--- a/feeds.tcl	Tue Jun 04 20:49:13 2013 +0300
+++ b/feeds.tcl	Tue Jun 04 22:01:39 2013 +0300
@@ -55,10 +55,9 @@
 
 proc feeds_msg {utime ufeed uurl utitle} {
   global feeds_channels
-  feeds_log "$utime $ufeed $uurl $utitle"
   foreach {uchan ufilter} [array get feeds_channels] {
-    foreach umatch [split [string tolower $ufilter] "|"] {
-      if {[string match $umatch $ufeed]} {
+    foreach umatch [split $ufilter "|"] {
+      if {[string match -nocase $umatch $ufeed]} {
         feeds_smsg "#$uchan" "$ufeed: \002$utitle\002 -- $uurl"
       }
     }