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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Tue Jan 21 13:21:49 MSK 2014


Author: sergei
Date: 2014-01-21 13:21:49 +0400 (Tue, 21 Jan 2014)
New Revision: 2073

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/otr/otr.tcl
Log:
	* otr/otr.tcl: Fixed updating default OTR policy from GUI.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2014-01-21 08:17:20 UTC (rev 2072)
+++ trunk/tkabber-plugins/ChangeLog	2014-01-21 09:21:49 UTC (rev 2073)
@@ -6,6 +6,8 @@
 	* otr/otr.tcl, otr/README: Use ~/.tkabber/otr.private.key.pem file for
 	  DSA private key instead of ::OTRPrivateKey variable from the config.
 
+	* otr/otr.tcl: Fixed updating default OTR policy from GUI.
+
 2014-01-20  Sergei Golovan <sgolovan at nes.ru>
 
 	* otr/tclotr/otr.tcl: Do not send the OTR query message after an OTR

Modified: trunk/tkabber-plugins/otr/otr.tcl
===================================================================
--- trunk/tkabber-plugins/otr/otr.tcl	2014-01-21 08:17:20 UTC (rev 2072)
+++ trunk/tkabber-plugins/otr/otr.tcl	2014-01-21 09:21:49 UTC (rev 2073)
@@ -73,22 +73,22 @@
 
     custom::defvar options(allow-encryption) 1 \
 	[::msgcat::mc "Allow Tkabber to use Off-the-Record protocol (version 2 or 3)."] \
-	-group OTR -type boolean -command [namespace current]::update_policy
+	-group OTR -type boolean -command [namespace current]::update_default_policy
 
     custom::defvar options(require-encryption) 0 \
 	[::msgcat::mc "Refuse to send unencrypted messages. Note that if this option\
 		       is enabled and the previous one is not then you will not be\
 		       able to send any chat or normal messages at all"] \
-	-group OTR -type boolean -command [namespace current]::update_policy
+	-group OTR -type boolean -command [namespace current]::update_default_policy
 
     custom::defvar options(send-whitespace-tag) 1 \
 	[::msgcat::mc "Advertise your support of OTR using the whitespace tag."] \
-	-group OTR -type boolean -command [namespace current]::update_policy
+	-group OTR -type boolean -command [namespace current]::update_default_policy
 
     custom::defvar options(whitespace-or-error-start-ake) 1 \
 	[::msgcat::mc "Start the OTR authenticated key exchange when you\
 		       receive a whitespace tag or an OTR error message."] \
-	-group OTR -type boolean -command [namespace current]::update_policy
+	-group OTR -type boolean -command [namespace current]::update_default_policy
 
     custom::defvar options(dont-log-otr-messages) 0 \
 	[::msgcat::mc "Do not log OTR messages."] \
@@ -257,6 +257,10 @@
     set policy
 }
 
+proc otr::update_default_policy {args} {
+    update_policy
+}
+
 proc otr::update_policy {{xlib ""} {jid ""}} {
     variable ctx
 



More information about the Tkabber-dev mailing list