From cb4903bcc10445a119100a0865455fa27780f936 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 6 Sep 1995 15:16:39 +0000 Subject: [PATCH] (rmail-summary-construct-io-menu): Use all of FILES. Also disable the menu instead of not displaying it, if FILES is empty. --- lisp/mail/rmailsum.el | 12 ++++++++---- 1 file 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. -- 2.39.2