[Tkabber-dev] r1585 - in trunk/tkabber-plugins: . receipts

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


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

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/receipts/receipts.tcl
Log:
	* receipts/receipts.tcl: Added packet ID to function for
	  chat_send_message_xlist_hook hook. Fixed packet ID processing for
	  receipts.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2008-10-25 12:50:15 UTC (rev 1584)
+++ trunk/tkabber-plugins/ChangeLog	2008-10-25 12:50:27 UTC (rev 1585)
@@ -8,6 +8,10 @@
 	  reversi/reversi.tcl: Rewrote invitation dialog to remove unnecessary
 	  vwait.
 
+	* receipts/receipts.tcl: Added packet ID to function for
+	  chat_send_message_xlist_hook hook. Fixed packet ID processing for
+	  receipts.
+
 2008-10-24  Sergei Golovan <sgolovan at nes.ru>
 
 	* tkabber-khim/tkabber-khim.tcl: Fixed settind option type.

Modified: trunk/tkabber-plugins/receipts/receipts.tcl
===================================================================
--- trunk/tkabber-plugins/receipts/receipts.tcl	2008-10-25 12:50:15 UTC (rev 1584)
+++ trunk/tkabber-plugins/receipts/receipts.tcl	2008-10-25 12:50:27 UTC (rev 1585)
@@ -112,17 +112,16 @@
     $cw image create end -name msgid_$id -image receipts/unconfirmed
 }
 
-proc receipts::attach_confirmation_request {xlistVar chatid user body type} {
+proc receipts::attach_confirmation_request {xlistVar chatid user id body type} {
     variable options
     if {!$options(request) || ![chat::is_chat $chatid]} return
 
-    global chat_msg_id
     upvar 2 $xlistVar xlist
 
     lappend xlist [::xmpp::xml::create request \
 			    -xmlns $::NS(receipts)]
 
-    richtext::property_update msgid $chat_msg_id
+    richtext::property_update msgid $id
 }
 
 # vim:ts=8:sw=4:sts=4:noet



More information about the Tkabber-dev mailing list