Mercurial > emacs

changeset 13001:7946d20948fc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-summary-construct-io-menu): Use all of FILES. Also disable the menu instead of not displaying it, if FILES is empty.
author Richard M. Stallman <rms@gnu.org>
date Wed, 06 Sep 1995 15:16:39 +0000
parents a86ad056a1cd
children 237f7920c3a2
files lisp/mail/rmailsum.el
diffstat 1 files changed, 8 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el	Mon Sep 04 20:26:58 1995 +0000
+++ b/lisp/mail/rmailsum.el	Wed Sep 06 15:16:39 1995 +0000
@@ -1325,18 +1325,22 @@
 
 (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.