diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-08-26 06:55:43 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-08-26 06:55:43 +0000 |
commit | 74368262223f9f1f55097be94f882c2b378e1bfe (patch) | |
tree | c044b934530a54e4b7016f0679a9b82a4b162a86 /lisp | |
parent | 50d4e1704c664247b31f9c7a92ceb9ff784e1b53 (diff) | |
download | emacs-74368262223f9f1f55097be94f882c2b378e1bfe.tar.gz |
(rmail-summary-output-menu): New command.
(rmail-summary-mode-map): Add Output and Input with menu of files.
(rmail-summary-rmail-update): Check whether rmail-buffer is dead.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/mail/rmailsum.el | 26 |
1 files changed, 23 insertions, 3 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 10c5f7ef3af..5a009ce55dc 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -592,9 +592,10 @@ Commands for sorting the summary: (select-window window) (rmail-show-message msg-num)) (select-window owin)) - (save-excursion - (set-buffer rmail-buffer) - (rmail-show-message msg-num))))))))) + (if (buffer-name rmail-buffer) + (save-excursion + (set-buffer rmail-buffer) + (rmail-show-message msg-num)))))))))) (defvar rmail-summary-mode-map nil) @@ -667,6 +668,12 @@ Commands for sorting the summary: (define-key rmail-summary-mode-map [menu-bar classify] (cons "Classify" (make-sparse-keymap "Classify"))) +(define-key rmail-summary-mode-map [menu-bar classify output-menu] + '("Output (Rmail Menu)..." . rmail-summary-output-menu)) + +(define-key rmail-summary-mode-map [menu-bar classify input-menu] + '("Input Rmail file (menu)..." . rmail-input-menu)) + (define-key rmail-summary-mode-map [menu-bar classify output-inbox] '("Output (inbox)..." . rmail-summary-output)) @@ -1109,6 +1116,19 @@ buffer visiting that file." (if rmail-delete-after-output (rmail-summary-delete-forward nil))) +(defun rmail-summary-output-menu () + "Output current message to another Rmail file, chosen with a menu. +Also set the default for subsequent \\[rmail-output-to-rmail-file] commands. +The variables `rmail-secondary-file-directory' and +`rmail-secondary-file-regexp' control which files are offered in the menu." + (interactive) + (save-excursion + (set-buffer rmail-buffer) + (let ((rmail-delete-after-output nil)) + (call-interactively 'rmail-output-menu))) + (if rmail-delete-after-output + (rmail-summary-delete-forward nil))) + (defun rmail-summary-output () "Append this message to Unix mail file named FILE-NAME." (interactive) |