[Tkabber-dev] r1222 - trunk/tkabber/plugins/chat

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Tue Sep 4 22:06:31 MSD 2007


Author: sergei
Date: 2007-09-04 22:06:31 +0400 (Tue, 04 Sep 2007)
New Revision: 1222

Modified:
   trunk/tkabber/plugins/chat/histool.tcl
Log:
	* Fixed the previous fix.


Modified: trunk/tkabber/plugins/chat/histool.tcl
===================================================================
--- trunk/tkabber/plugins/chat/histool.tcl	2007-09-04 17:30:49 UTC (rev 1221)
+++ trunk/tkabber/plugins/chat/histool.tcl	2007-09-04 18:06:31 UTC (rev 1222)
@@ -421,17 +421,18 @@
 
     if {![eof $chan]} {
 	set msg [::logger::log_to_str $line]
-	if {[catch {array set mparts $msg}]} return
-	foreach part {nick body} {
-	    if {[info exists mparts($part)]
-	    && [::plugins::search::match $what $mparts($part)]} {
-		lassign [lindex $slist end] year month jid
-		set r $ftsearch(results)
-		$r configure -state normal
-		ftsearch_render_msg $r $year $month $jid $msg
-		$r configure -state disabled
-		set ftsearch(found) 1
-		break
+	if {![catch {array set mparts $msg}]} {
+	    foreach part {nick body} {
+		if {[info exists mparts($part)] && \
+			[::plugins::search::match $what $mparts($part)]} {
+		    lassign [lindex $slist end] year month jid
+		    set r $ftsearch(results)
+		    $r configure -state normal
+		    ftsearch_render_msg $r $year $month $jid $msg
+		    $r configure -state disabled
+		    set ftsearch(found) 1
+		    break
+		}
 	    }
 	}
 	schedule \



More information about the Tkabber-dev mailing list