2001-10-25 Simon Josefsson <jas@extundo.com>

	* canlock.el (canlock-password, canlock-password-for-verify)
	(canlock-force-insert-header): Defcustom.

diff --git a/contrib/ChangeLog b/contrib/ChangeLog
index 179d05f..52685c9 100644 (file)
--- a/contrib/ChangeLog
+++ b/contrib/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-25  Simon Josefsson  <jas@extundo.com>
+
+       * canlock.el (canlock-password, canlock-password-for-verify) 
+       (canlock-force-insert-header): Defcustom.
+
 2001-10-17  Simon Josefsson  <jas@extundo.com>
 
        * canlock.el (sha1-binary): Autoload `sha1-binary'.

diff --git a/contrib/canlock.el b/contrib/canlock.el
index 29339af..ad617bc 100644 (file)
--- a/contrib/canlock.el
+++ b/contrib/canlock.el
@@ -102,17 +102,21 @@
   :type 'hook
   :group 'canlock)
 
-;;; Internal variables.
-
-(defvar canlock-password nil
-  "*Password to use when signing a Cancel-Lock or a Cancel-Key header.")
+(defcustom canlock-password nil
+  "*Password to use when signing a Cancel-Lock or a Cancel-Key header."
+  :type 'string
+  :group 'canlock)
 
-(defvar canlock-password-for-verify canlock-password
-  "*Password to use when verifying a Cancel-Lock or a Cancel-Key header.")
+(defcustom canlock-password-for-verify canlock-password
+  "*Password to use when verifying a Cancel-Lock or a Cancel-Key header."
+  :type 'string
+  :group 'canlock)
 
-(defvar canlock-force-insert-header nil
+(defcustom canlock-force-insert-header nil
   "*If non-nil, insert a Cancel-Lock or a Cancel-Key header even though the
-buffer does not contain a news message.")
+buffer does not contain a news message."
+  :type 'boolean
+  :group 'canlock)
 
 ;;; Functions.