diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-09-06 15:16:39 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-09-06 15:16:39 +0000 |
commit | 33c7613a4eb1e13ca32611248ff165ded270d245 (patch) | |
tree | aa651b161d716a8484eadbfc0ed6d61080bd3f91 /lisp/mail/rmailsum.el | |
parent | dfb20b16a2abb944b1c32d99e2c733489ef7d7dc (diff) | |
download | emacs-33c7613a4eb1e13ca32611248ff165ded270d245.tar.gz |
(rmail-summary-construct-io-menu): Use all of FILES.
Also disable the menu instead of not displaying it, if FILES is empty.
Diffstat (limited to 'lisp/mail/rmailsum.el')
-rw-r--r-- | lisp/mail/rmailsum.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 469c65452f6..57e837c7216 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -1325,18 +1325,22 @@ The variables `rmail-secondary-file-directory' and (defun rmail-summary-construct-io-menu () (let ((files (rmail-find-all-files rmail-secondary-file-directory))) - (if (listp files) + (if files (progn (define-key rmail-summary-mode-map [menu-bar classify input-menu] (cons "Input Rmail File" (rmail-list-to-menu "Input Rmail File" - (cdr files) + files 'rmail-summary-input))) (define-key rmail-summary-mode-map [menu-bar classify output-menu] (cons "Output Rmail File" (rmail-list-to-menu "Output Rmail File" - (cdr files) - 'rmail-summary-output-to-rmail-file))))))) + files + 'rmail-summary-output-to-rmail-file)))) + (define-key rmail-summary-mode-map [menu-bar classify input-menu] + '("Input Rmail File" . rmail-disable-menu)) + (define-key rmail-summary-mode-map [menu-bar classify output-menu] + '("Output Rmail File" . rmail-disable-menu))))) ;; Sorting messages in Rmail Summary buffer. |