diff options
Diffstat (limited to 'lisp/mail/mspools.el')
| -rw-r--r-- | lisp/mail/mspools.el | 19 |
1 files changed, 7 insertions, 12 deletions
diff --git a/lisp/mail/mspools.el b/lisp/mail/mspools.el index 2c3851f835d..2ab4fa411a6 100644 --- a/lisp/mail/mspools.el +++ b/lisp/mail/mspools.el @@ -55,7 +55,6 @@ ;; `mspools-using-vm' for details. ;;; Basic installation. -;; (autoload 'mspools-show "mspools" "Show outstanding mail spools." t) ;; (setq mspools-folder-directory "~/MAIL/") ;; ;; If you use VM, mspools-folder-directory will default to vm-folder-directory @@ -165,17 +164,13 @@ your primary spool is. If this fails, set it to something like (defvar mspools-buffer "*spools*" "Name of buffer for displaying spool info.") -(defvar mspools-mode-map - (let ((map (make-sparse-keymap))) - (define-key map "\C-c\C-c" #'mspools-visit-spool) - (define-key map "\C-m" #'mspools-visit-spool) - (define-key map " " #'mspools-visit-spool) - (define-key map "n" #'next-line) - (define-key map "p" #'previous-line) - map) - "Keymap for the *spools* buffer.") - -;;; Code +(defvar-keymap mspools-mode-map + :doc "Keymap for the *spools* buffer." + "C-c C-c" #'mspools-visit-spool + "RET" #'mspools-visit-spool + "SPC" #'mspools-visit-spool + "n" #'next-line + "p" #'previous-line) ;;; VM Specific code (if mspools-using-vm |