[Tkabber-dev] r1906 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Jan 31 23:50:49 MSK 2010


Author: sergei
Date: 2010-01-31 23:50:49 +0300 (Sun, 31 Jan 2010)
New Revision: 1906

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/chats.tcl
Log:
	* chats.tcl: Fixed tracking nick change.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2010-01-31 19:53:48 UTC (rev 1905)
+++ trunk/tkabber/ChangeLog	2010-01-31 20:50:49 UTC (rev 1906)
@@ -7,6 +7,8 @@
 	* muc.tcl: Added an option to retry joining a group with different
 	  nicknames (adding _ at the end) in case of name conflicts.
 
+	* chats.tcl: Fixed tracking nick change.
+
 2010-01-30  Sergei Golovan  <sgolovan at nes.ru>
 
 	* plugins/roster/conferences.tcl: Added option for ignoring autojoin

Modified: trunk/tkabber/chats.tcl
===================================================================
--- trunk/tkabber/chats.tcl	2010-01-31 19:53:48 UTC (rev 1905)
+++ trunk/tkabber/chats.tcl	2010-01-31 20:50:49 UTC (rev 1906)
@@ -680,13 +680,14 @@
     set group [get_jid $chatid]
     set from $group/$nick
     set to $group/$new_nick
-    set ix [lsearch -exact [::chat::opened] $chatid]
+    set chatid1 [chatid $xlib $from]
+    set ix [lsearch -exact [::chat::opened] $chatid1]
     if {$ix < 0} return
 
     set msg [::msgcat::mc "%s has changed nick to %s." $nick $new_nick]
-    ::chat::add_message $chatid "" chat $msg {}
+    ::chat::add_message $chatid1 "" chat $msg {}
 
-    set cw [chat_win $chatid]
+    set cw [chat_win $chatid1]
     $cw config -state normal
     $cw delete {end - 1 char} ;# zap trailing newline
     $cw insert end " "



More information about the Tkabber-dev mailing list