[Tkabber-dev] r1864 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Thu Jan 7 18:53:43 MSK 2010


Author: sergei
Date: 2010-01-07 18:53:43 +0300 (Thu, 07 Jan 2010)
New Revision: 1864

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/privacy.tcl
Log:
	* privacy.tcl: Added two debug messages.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2010-01-06 11:42:35 UTC (rev 1863)
+++ trunk/tkabber/ChangeLog	2010-01-07 15:53:43 UTC (rev 1864)
@@ -1,3 +1,7 @@
+2010-01-07  Sergei Golovan  <sgolovan at nes.ru>
+
+	* privacy.tcl: Added two debug messages.
+
 2010-01-06  Sergei Golovan  <sgolovan at nes.ru>
 
 	* plugins/general/headlines.tcl: Lowered priority of processing

Modified: trunk/tkabber/privacy.tcl
===================================================================
--- trunk/tkabber/privacy.tcl	2010-01-06 11:42:35 UTC (rev 1863)
+++ trunk/tkabber/privacy.tcl	2010-01-07 15:53:43 UTC (rev 1864)
@@ -1013,6 +1013,8 @@
 
     set status [catch {send_default_or_active_list $xlib "i-am-visible-list" active} msg]
 
+    debugmsg privacy "setting i-am-visible-list as default: $status $msg"
+
     switch -- $status {
 	0 {
 	    # ok
@@ -1052,6 +1054,8 @@
 			    {ignore-list invisible-list conference-list subscription-list} \
 			    {allow {} {}}} msg1]
 
+		    debugmsg privacy "joining i-am-visible-list: $status1 $msg1"
+
 		    switch -- $status1 {
 			0 {
 			    # ok



More information about the Tkabber-dev mailing list