[Tkabber-dev] r1810 - in trunk/tkabber: . plugins/general

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Mon Jun 8 09:11:45 MSD 2009


Author: sergei
Date: 2009-06-08 09:11:45 +0400 (Mon, 08 Jun 2009)
New Revision: 1810

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/general/headlines.tcl
Log:
	* plugins/general/headlines.tcl: Fixed message forwarding.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2009-06-08 05:01:42 UTC (rev 1809)
+++ trunk/tkabber/ChangeLog	2009-06-08 05:11:45 UTC (rev 1810)
@@ -2,6 +2,8 @@
 
 	* ifacetk/iface.tcl: Fixed sending announce messages.
 
+	* plugins/general/headlines.tcl: Fixed message forwarding.
+
 2009-05-16  Sergei Golovan  <sgolovan at nes.ru>
 
 	* ifacetk/iface.tcl: Fixed changing text status.

Modified: trunk/tkabber/plugins/general/headlines.tcl
===================================================================
--- trunk/tkabber/plugins/general/headlines.tcl	2009-06-08 05:01:42 UTC (rev 1809)
+++ trunk/tkabber/plugins/general/headlines.tcl	2009-06-08 05:11:45 UTC (rev 1810)
@@ -825,8 +825,11 @@
 	return
     }
 
+    if {[llength [connections]] == 0} return
+    set xlib [lindex [connections] 0]
+
     # TODO: xlib
-    message::send_msg $to -type headline \
+    message::send_msg $xlib $to -type headline \
 	-subject $props(text) \
 	-body $props(body) \
 	-xlist [list [::xmpp::xml::create x \



More information about the Tkabber-dev mailing list