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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Oct 7 17:30:14 MSD 2006


Author: sergei
Date: 2006-10-07 17:30:04 +0400 (Sat, 07 Oct 2006)
New Revision: 749

Modified:
   trunk/tkabber/plugins/chat/info_commands.tcl
Log:
	* plugins/chat/info_commands.tcl: Fixed command processing
	  after chat recipient logout.


Modified: trunk/tkabber/plugins/chat/info_commands.tcl
===================================================================
--- trunk/tkabber/plugins/chat/info_commands.tcl	2006-10-07 12:00:14 UTC (rev 748)
+++ trunk/tkabber/plugins/chat/info_commands.tcl	2006-10-07 13:30:04 UTC (rev 749)
@@ -80,13 +80,20 @@
     }
 
     set connid [chat::get_connid $chatid]
+    set jid [chat::get_jid $chatid]
     set jids {}
     set vcard_jids {}
     if {[cequal $name ""]} {
-	set jids [list [chat::get_jid $chatid]]
-	set vcard_jids [list [node_and_server_from_jid [chat::get_jid $chatid]]]
+	set bare_jid [node_and_server_from_jid $jid]
+	set full_jids [::get_jids_of_user $connid $bare_jid]
+	if {[lsearch $full_jids $jid] >= 0} {
+	    set jids [list $jid]
+	} else {
+	    set jids [list $bare_jid]
+	}
+	set vcard_jids [list $bare_jid]
     } elseif {[cequal $type groupchat]} {
-	set jids [list "[chat::get_jid $chatid]/$name"]
+	set jids [list "$jid/$name"]
 	set vcard_jids $jids
     }
     if {[cequal $jids {}]} {



More information about the Tkabber-dev mailing list