diff options
Diffstat (limited to 'lisp/gnus/gnus-ml.el')
| -rw-r--r-- | lisp/gnus/gnus-ml.el | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/lisp/gnus/gnus-ml.el b/lisp/gnus/gnus-ml.el index 3b2b5a07c1d..bf33194cf75 100644 --- a/lisp/gnus/gnus-ml.el +++ b/lisp/gnus/gnus-ml.el @@ -31,16 +31,13 @@ ;;; Mailing list minor mode -(defvar gnus-mailing-list-mode-map - (let ((map (make-sparse-keymap))) - (gnus-define-keys map - "\C-c\C-nh" gnus-mailing-list-help - "\C-c\C-ns" gnus-mailing-list-subscribe - "\C-c\C-nu" gnus-mailing-list-unsubscribe - "\C-c\C-np" gnus-mailing-list-post - "\C-c\C-no" gnus-mailing-list-owner - "\C-c\C-na" gnus-mailing-list-archive) - map)) +(defvar-keymap gnus-mailing-list-mode-map + "\C-c\C-nh" #'gnus-mailing-list-help + "\C-c\C-ns" #'gnus-mailing-list-subscribe + "\C-c\C-nu" #'gnus-mailing-list-unsubscribe + "\C-c\C-np" #'gnus-mailing-list-post + "\C-c\C-no" #'gnus-mailing-list-owner + "\C-c\C-na" #'gnus-mailing-list-archive) (defvar gnus-mailing-list-menu) @@ -127,7 +124,7 @@ If FORCE is non-nil, replace the old ones." (t (gnus-message 1 "no list-unsubscribe in this group"))))) (defun gnus-mailing-list-post () - "Post message (really useful ?)" + "Post message (really useful ?)." (interactive) (let ((list-post (with-current-buffer gnus-original-article-buffer |