procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(rmail-summary-construct-io-menu): Use all of FILES.

Browse source 
Also disable the menu instead of not displaying it, if FILES is empty.
This commit is contained in:
Richard M. Stallman 1995-09-06 15:16:39 +00:00
parent 0eef787b49
commit cb4903bcc1
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/mail/rmailsum.el
View file

@ -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.