[Tkabber-dev] r2131 - in trunk/tkabber-plugins: . otr

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Feb 2 22:25:24 MSK 2014


Author: sergei
Date: 2014-02-02 22:25:24 +0400 (Sun, 02 Feb 2014)
New Revision: 2131

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/otr/otr.tcl
Log:
	* otr/otr.tcl: Fixed bugs in switching OTR icons after authentication.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2014-02-02 17:46:37 UTC (rev 2130)
+++ trunk/tkabber-plugins/ChangeLog	2014-02-02 18:25:24 UTC (rev 2131)
@@ -7,6 +7,8 @@
 	  clipboard in authentication dialog, in manage key dialog, in
 	  edit authentication dialog.
 
+	* otr/otr.tcl: Fixed bugs in switching OTR icons after authentication.
+
 2014-01-31  Sergei Golovan <sgolovan at nes.ru>
 
 	* otr/otr.tcl: Fixed typo in creating OTR button for normal message

Modified: trunk/tkabber-plugins/otr/otr.tcl
===================================================================
--- trunk/tkabber-plugins/otr/otr.tcl	2014-02-02 17:46:37 UTC (rev 2130)
+++ trunk/tkabber-plugins/otr/otr.tcl	2014-02-02 18:25:24 UTC (rev 2131)
@@ -745,7 +745,7 @@
 	    auth::store $auth::Auth
 	    foreach idx [array names ctx msgstate,$xlib,*] {
 		regexp {msgstate,[^,]*,(.*)} $idx -> fjid
-		if {[peer_jid $fjid] eq $tjid} {
+		if {[peer_jid $xlib $fjid] eq $tjid} {
 		    on_msgstate_change $xlib $fjid $ctx($idx)
 		}
 	    }
@@ -942,7 +942,7 @@
 	    auth::store $auth::Auth
 	    foreach idx [array names ctx msgstate,$xlib,*] {
 		regexp {msgstate,[^,]*,(.*)} $idx -> fjid
-		if {[peer_jid $fjid] eq $tjid} {
+		if {[peer_jid $xlib $fjid] eq $tjid} {
 		    on_msgstate_change $xlib $fjid $ctx($idx)
 		}
 	    }
@@ -959,7 +959,7 @@
 	    auth::store $auth::Auth
 	    foreach idx [array names ctx msgstate,$xlib,*] {
 		regexp {msgstate,[^,]*,(.*)} $idx -> fjid
-		if {[peer_jid $fjid] eq $tjid} {
+		if {[peer_jid $xlib $fjid] eq $tjid} {
 		    on_msgstate_change $xlib $fjid $ctx($idx)
 		}
 	    }



More information about the Tkabber-dev mailing list