Index: smileys.tcl
===================================================================
--- smileys.tcl	(Revision 8730)
+++ smileys.tcl	(Arbeitskopie)
@@ -1210,25 +1210,25 @@
 			set start ${pos}+1c
 			set endpos [$tw index $pos+[string length $symbol]c]
 			
-			set skip 0
+			# set skip 0
 			# used to avoid invalid search caused by elided text, such as in ::op
 			if { [string compare [$tw get $pos $endpos]  $symbol] != 0} {
 				continue
-			} else {
-				for { set i $pos } {$i <= $endpos && !$skip } {set i [$tw index $i+1c]} {
-					set tags [$tw tag names $i]
-					foreach tag_name $tags {
-						set elided [$tw tag cget $tag_name -elide]
-						if {$elided != "" && $elided} {
-							set skip 1
-							break
-						}
-					}
-				}
+			# } else {
+			# 	for { set i $pos } {$i <= $endpos && !$skip } {set i [$tw index $i+1c]} {
+			# 		set tags [$tw tag names $i]
+			# 		foreach tag_name $tags {
+			# 			set elided [$tw tag cget $tag_name -elide]
+			# 			if {$elided != "" && $elided} {
+			# 				set skip 1
+			# 				break
+			# 			}
+			# 		}
+			# 	}
 			}
-			if {$skip} {
-				continue
-			}
+			# if {$skip} {
+			# 	continue
+			# }
 
 			# Also skip if we are part of a url
 			if { [lsearch -exact [$tw tag names $pos] "dont_replace_smileys"] != -1 } {