[Tkabber-dev] r1221 - in trunk/tkabber: . plugins/chat

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Tue Sep 4 21:30:50 MSD 2007


Author: sergei
Date: 2007-09-04 21:30:49 +0400 (Tue, 04 Sep 2007)
New Revision: 1221

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/chat/histool.tcl
Log:
	* plugins/chat/histool.tcl: Ignore damaged history messages during
	  search in history.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-09-04 12:14:02 UTC (rev 1220)
+++ trunk/tkabber/ChangeLog	2007-09-04 17:30:49 UTC (rev 1221)
@@ -8,6 +8,9 @@
 
 	* msgs/es.msg: Updated Spanish translation (thanks to Badlop).
 
+	* plugins/chat/histool.tcl: Ignore damaged history messages during
+	  search in history.
+
 2007-09-03  Sergei Golovan  <sgolovan at nes.ru>
 
 	* plugins/iq/version.tcl: Made reporting OS version optional as

Modified: trunk/tkabber/plugins/chat/histool.tcl
===================================================================
--- trunk/tkabber/plugins/chat/histool.tcl	2007-09-04 12:14:02 UTC (rev 1220)
+++ trunk/tkabber/plugins/chat/histool.tcl	2007-09-04 17:30:49 UTC (rev 1221)
@@ -421,7 +421,7 @@
 
     if {![eof $chan]} {
 	set msg [::logger::log_to_str $line]
-	array set mparts $msg
+	if {[catch {array set mparts $msg}]} return
 	foreach part {nick body} {
 	    if {[info exists mparts($part)]
 	    && [::plugins::search::match $what $mparts($part)]} {
@@ -456,7 +456,7 @@
 
     set mynick [get_group_nick $jid ""]
 
-    array set mparts $msg
+    if {[catch {array set mparts $msg}]} return
 
     set start [$t index {end - 1 char}]
 



More information about the Tkabber-dev mailing list