diff options
Diffstat (limited to 'lisp/gnus/canlock.el')
-rw-r--r-- | lisp/gnus/canlock.el | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/lisp/gnus/canlock.el b/lisp/gnus/canlock.el index 6c8c1a5927a..dbdbaa83d7e 100644 --- a/lisp/gnus/canlock.el +++ b/lisp/gnus/canlock.el @@ -1,4 +1,4 @@ -;;; canlock.el --- functions for Cancel-Lock feature +;;; canlock.el --- functions for Cancel-Lock feature -*- lexical-binding: t; -*- ;; Copyright (C) 1998-1999, 2001-2021 Free Software Foundation, Inc. @@ -30,7 +30,7 @@ ;; Key) header in a news article by using a hook which will be evaluated ;; just before sending an article as follows: ;; -;; (add-hook '*e**a*e-header-hook 'canlock-insert-header t) +;; (add-hook '*e**a*e-header-hook #'canlock-insert-header t) ;; ;; Verifying Cancel-Lock is mainly a function of news servers, however, ;; you can verify your own article using the command `canlock-verify' in @@ -52,20 +52,17 @@ (defcustom canlock-password nil "Password to use when signing a Cancel-Lock or a Cancel-Key header." :type '(radio (const :format "Not specified " nil) - (string :tag "Password")) - :group 'canlock) + (string :tag "Password"))) (defcustom canlock-password-for-verify canlock-password "Password to use when verifying a Cancel-Lock or a Cancel-Key header." :type '(radio (const :format "Not specified " nil) - (string :tag "Password")) - :group 'canlock) + (string :tag "Password"))) (defcustom canlock-force-insert-header nil "If non-nil, insert a Cancel-Lock or a Cancel-Key header even if the buffer does not look like a news message." - :type 'boolean - :group 'canlock) + :type 'boolean) (defun canlock-sha1 (message) "Make a SHA-1 digest of MESSAGE as a unibyte string of length 20 bytes." |