Commit dca46072 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(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.
parent 23cf7c60
...@@ -592,9 +592,10 @@ Commands for sorting the summary: ...@@ -592,9 +592,10 @@ Commands for sorting the summary:
(select-window window) (select-window window)
(rmail-show-message msg-num)) (rmail-show-message msg-num))
(select-window owin)) (select-window owin))
(save-excursion (if (buffer-name rmail-buffer)
(set-buffer rmail-buffer) (save-excursion
(rmail-show-message msg-num))))))))) (set-buffer rmail-buffer)
(rmail-show-message msg-num))))))))))
(defvar rmail-summary-mode-map nil) (defvar rmail-summary-mode-map nil)
...@@ -667,6 +668,12 @@ Commands for sorting the summary: ...@@ -667,6 +668,12 @@ Commands for sorting the summary:
(define-key rmail-summary-mode-map [menu-bar classify] (define-key rmail-summary-mode-map [menu-bar classify]
(cons "Classify" (make-sparse-keymap "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] (define-key rmail-summary-mode-map [menu-bar classify output-inbox]
'("Output (inbox)..." . rmail-summary-output)) '("Output (inbox)..." . rmail-summary-output))
...@@ -1109,6 +1116,19 @@ buffer visiting that file." ...@@ -1109,6 +1116,19 @@ buffer visiting that file."
(if rmail-delete-after-output (if rmail-delete-after-output
(rmail-summary-delete-forward nil))) (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 () (defun rmail-summary-output ()
"Append this message to Unix mail file named FILE-NAME." "Append this message to Unix mail file named FILE-NAME."
(interactive) (interactive)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment