[Tkabber-dev] r1900 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Jan 30 17:04:53 MSK 2010


Author: sergei
Date: 2010-01-30 17:04:53 +0300 (Sat, 30 Jan 2010)
New Revision: 1900

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/muc.tcl
Log:
	* muc.tcl: Fixed reporting nickname change.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2010-01-30 12:58:05 UTC (rev 1899)
+++ trunk/tkabber/ChangeLog	2010-01-30 14:04:53 UTC (rev 1900)
@@ -25,6 +25,8 @@
 	  command to test if a room is joined already by pinging yourself
 	  before actual entering the room.
 
+	* muc.tcl: Fixed reporting nickname change.
+
 2010-01-28  Sergei Golovan  <sgolovan at nes.ru>
 
 	* userinfo.tcl: Do not add TYPE element to PHOTO vCard item if it

Modified: trunk/tkabber/muc.tcl
===================================================================
--- trunk/tkabber/muc.tcl	2010-01-30 12:58:05 UTC (rev 1899)
+++ trunk/tkabber/muc.tcl	2010-01-30 14:04:53 UTC (rev 1900)
@@ -1272,21 +1272,21 @@
 	    }
 	}
 	nick {
+	    set real_jid ""
+	    foreach {key val} $args {
+		switch -- $key {
+		    -jid {
+			set real_jid " ($val)"
+		    }
+		    -nick {
+			set new_nick $val
+		    }
+		}
+	    }
+
 	    # TODO may be this reporting should not be done
 	    # if the $nick is being ignored (MUC ignore)
 	    if {$options(gen_enter_exit_msgs)} {
-		set real_jid ""
-		foreach {key val} $args {
-		    switch -- $key {
-			-jid {
-			    set real_jid " ($val)"
-			}
-			-nick {
-			    set new_nick $val
-			}
-		    }
-		}
-
 		chat::add_message $chatid $group groupchat \
 			    [::msgcat::mc "%s is now known as %s" \
 					 $nick$real_jid $new_nick] {}



More information about the Tkabber-dev mailing list