[Tkabber-dev] r1460 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Jun 15 21:51:21 MSD 2008


Author: sergei
Date: 2008-06-15 21:51:20 +0400 (Sun, 15 Jun 2008)
New Revision: 1460

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/chats.tcl
Log:
	* chats.tcl: Lower node and server case for JID to which a new chat
	  window is opened using open_to_user procedure.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2008-06-08 13:53:15 UTC (rev 1459)
+++ trunk/tkabber/ChangeLog	2008-06-15 17:51:20 UTC (rev 1460)
@@ -1,3 +1,8 @@
+2008-06-15  Sergei Golovan  <sgolovan at nes.ru>
+
+	* chats.tcl: Lower node and server case for JID to which a new chat
+	  window is opened using open_to_user procedure.
+
 2008-06-08  Sergei Golovan  <sgolovan at nes.ru>
 
 	* doc/tkabber.html, doc/tkabber.xml, README: Added a note about data

Modified: trunk/tkabber/chats.tcl
===================================================================
--- trunk/tkabber/chats.tcl	2008-06-08 13:53:15 UTC (rev 1459)
+++ trunk/tkabber/chats.tcl	2008-06-15 17:51:20 UTC (rev 1460)
@@ -910,6 +910,8 @@
 	set jid $user
     }
 
+    set jid [tolower_node_and_domain $jid]
+
     set chatid [chatid $connid $jid]
     set cw [winid $chatid]
     if {![winfo exists $cw]} {



More information about the Tkabber-dev mailing list