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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Oct 7 17:38:01 MSD 2006


Author: sergei
Date: 2006-10-07 17:37:55 +0400 (Sat, 07 Oct 2006)
New Revision: 750

Modified:
   trunk/tkabber/plugins/chat/info_commands.tcl
Log:
	* plugins/chat/info_commands.tcl: Added other full JIDs processing.


Modified: trunk/tkabber/plugins/chat/info_commands.tcl
===================================================================
--- trunk/tkabber/plugins/chat/info_commands.tcl	2006-10-07 13:30:04 UTC (rev 749)
+++ trunk/tkabber/plugins/chat/info_commands.tcl	2006-10-07 13:37:55 UTC (rev 750)
@@ -88,8 +88,10 @@
 	set full_jids [::get_jids_of_user $connid $bare_jid]
 	if {[lsearch $full_jids $jid] >= 0} {
 	    set jids [list $jid]
+	} elseif {[lempty $full_jids]} {
+	    set jids [list $bare_jid]
 	} else {
-	    set jids [list $bare_jid]
+	    set jids $full_jids
 	}
 	set vcard_jids [list $bare_jid]
     } elseif {[cequal $type groupchat]} {



More information about the Tkabber-dev mailing list