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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Tue Jan 28 21:02:35 MSK 2014


Author: sergei
Date: 2014-01-28 21:02:35 +0400 (Tue, 28 Jan 2014)
New Revision: 2117

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/otr/otr.tcl
Log:
	* otr/otr.tcl: Don't add not-private icon to incoming messages when
	  the message state is plaintext.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2014-01-28 16:57:34 UTC (rev 2116)
+++ trunk/tkabber-plugins/ChangeLog	2014-01-28 17:02:35 UTC (rev 2117)
@@ -15,6 +15,9 @@
 
 	* otr/otr.tcl: Unset a few global variables when they aren't in use.
 
+	* otr/otr.tcl: Don't add not-private icon to incoming messages when
+	  the message state is plaintext.
+
 2014-01-27  Sergei Golovan <sgolovan at nes.ru>
 
 	* otr/otr.tcl: Fail to load OTR plugin if Tkabber doesn't support the

Modified: trunk/tkabber-plugins/otr/otr.tcl
===================================================================
--- trunk/tkabber-plugins/otr/otr.tcl	2014-01-28 16:57:34 UTC (rev 2116)
+++ trunk/tkabber-plugins/otr/otr.tcl	2014-01-28 17:02:35 UTC (rev 2117)
@@ -964,7 +964,7 @@
 	    lappend x [::xmpp::xml::create "" \
 				-xmlns $ns \
 				-attrs {icon otr/notprivate}]
-	} else {
+	} elseif {[msgstate:index $xlib $from] != 0} {
 	    lappend x [::xmpp::xml::create "" \
 				-xmlns $ns \
 				-attrs [list icon [msgstate:icon $xlib $from]]]



More information about the Tkabber-dev mailing list