Mercurial > emacs
comparison lisp/mail/rmailsum.el @ 13001:7946d20948fc
(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 | be0fe2c66b9d |
| children | b7ad3e888238 |
comparison
equal
deleted
inserted
replaced
| 13000:a86ad056a1cd | 13001:7946d20948fc |
|---|---|
| 1323 (if rmail-delete-after-output | 1323 (if rmail-delete-after-output |
| 1324 (rmail-summary-delete-forward nil))) | 1324 (rmail-summary-delete-forward nil))) |
| 1325 | 1325 |
| 1326 (defun rmail-summary-construct-io-menu () | 1326 (defun rmail-summary-construct-io-menu () |
| 1327 (let ((files (rmail-find-all-files rmail-secondary-file-directory))) | 1327 (let ((files (rmail-find-all-files rmail-secondary-file-directory))) |
| 1328 (if (listp files) | 1328 (if files |
| 1329 (progn | 1329 (progn |
| 1330 (define-key rmail-summary-mode-map [menu-bar classify input-menu] | 1330 (define-key rmail-summary-mode-map [menu-bar classify input-menu] |
| 1331 (cons "Input Rmail File" | 1331 (cons "Input Rmail File" |
| 1332 (rmail-list-to-menu "Input Rmail File" | 1332 (rmail-list-to-menu "Input Rmail File" |
| 1333 (cdr files) | 1333 files |
| 1334 'rmail-summary-input))) | 1334 'rmail-summary-input))) |
| 1335 (define-key rmail-summary-mode-map [menu-bar classify output-menu] | 1335 (define-key rmail-summary-mode-map [menu-bar classify output-menu] |
| 1336 (cons "Output Rmail File" | 1336 (cons "Output Rmail File" |
| 1337 (rmail-list-to-menu "Output Rmail File" | 1337 (rmail-list-to-menu "Output Rmail File" |
| 1338 (cdr files) | 1338 files |
| 1339 'rmail-summary-output-to-rmail-file))))))) | 1339 'rmail-summary-output-to-rmail-file)))) |
| 1340 (define-key rmail-summary-mode-map [menu-bar classify input-menu] | |
| 1341 '("Input Rmail File" . rmail-disable-menu)) | |
| 1342 (define-key rmail-summary-mode-map [menu-bar classify output-menu] | |
| 1343 '("Output Rmail File" . rmail-disable-menu))))) | |
| 1340 | 1344 |
| 1341 | 1345 |
| 1342 ;; Sorting messages in Rmail Summary buffer. | 1346 ;; Sorting messages in Rmail Summary buffer. |
| 1343 | 1347 |
| 1344 (defun rmail-summary-sort-by-date (reverse) | 1348 (defun rmail-summary-sort-by-date (reverse) |