[Tkabber-dev] r1584 - in trunk/tkabber: . plugins/chat

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Oct 25 16:50:15 MSD 2008


Author: sergei
Date: 2008-10-25 16:50:15 +0400 (Sat, 25 Oct 2008)
New Revision: 1584

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/chat/chatstate.tcl
   trunk/tkabber/plugins/chat/events.tcl
   trunk/tkabber/plugins/chat/send_message.tcl
Log:
	* chat/chatstate.tcl, chat/events.tcl, chat/send_message.tcl: Added
	  packet ID to chat_send_message_xlist_hook.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2008-10-25 11:24:07 UTC (rev 1583)
+++ trunk/tkabber/ChangeLog	2008-10-25 12:50:15 UTC (rev 1584)
@@ -5,6 +5,9 @@
 
 	* msgs/de.msg: Updated German translation (thanks to Roger Sondermann).
 
+	* chat/chatstate.tcl, chat/events.tcl, chat/send_message.tcl: Added
+	  packet ID to chat_send_message_xlist_hook.
+
 2008-10-24  Sergei Golovan  <sgolovan at nes.ru>
 
 	* gpgme.tcl, ifacetk/iface.tcl, ifacetk/iroster.tcl, login.tcl,

Modified: trunk/tkabber/plugins/chat/chatstate.tcl
===================================================================
--- trunk/tkabber/plugins/chat/chatstate.tcl	2008-10-25 11:24:07 UTC (rev 1583)
+++ trunk/tkabber/plugins/chat/chatstate.tcl	2008-10-25 12:50:15 UTC (rev 1584)
@@ -181,7 +181,7 @@
 hook::add chat_send_message_hook \
     [namespace current]::chatstate::clear_status_on_send
 
-proc chatstate::make_xlist {varname chatid user body type} {
+proc chatstate::make_xlist {varname chatid user id body type} {
     variable options
     variable chatstate
     upvar 2 $varname var

Modified: trunk/tkabber/plugins/chat/events.tcl
===================================================================
--- trunk/tkabber/plugins/chat/events.tcl	2008-10-25 11:24:07 UTC (rev 1583)
+++ trunk/tkabber/plugins/chat/events.tcl	2008-10-25 12:50:15 UTC (rev 1584)
@@ -244,7 +244,7 @@
 hook::add chat_send_message_hook \
     [namespace current]::events::clear_status_on_send
 
-proc events::make_xlist {varname chatid user body type} {
+proc events::make_xlist {varname chatid user id body type} {
     variable options
     upvar 2 $varname var
 

Modified: trunk/tkabber/plugins/chat/send_message.tcl
===================================================================
--- trunk/tkabber/plugins/chat/send_message.tcl	2008-10-25 11:24:07 UTC (rev 1583)
+++ trunk/tkabber/plugins/chat/send_message.tcl	2008-10-25 12:50:15 UTC (rev 1584)
@@ -6,15 +6,16 @@
     set chatw [chat::chat_win $chatid]
 
     if {[hook::is_flag chat_send_message_hook send]} {
+	set id [::xmpp::packetID $xlib]
 	set command [list message::send_msg $xlib $jid \
-			 -id [::xmpp::packetID $xlib] \
+			 -id $id \
 			 -type $type \
 			 -body $body]
 	if {[info exists ::chat::chats(thread,$chatid)]} {
 	    lappend command -thread $::chat::chats(thread,$chatid)
 	}
 	set xlist {}
-	hook::run chat_send_message_xlist_hook xlist $chatid $user $body $type
+	hook::run chat_send_message_xlist_hook xlist $chatid $user $id $body $type
 	if {[llength $xlist] > 0} {
 	    lappend command -xlist $xlist
 	}



More information about the Tkabber-dev mailing list