Mercurial > emacs
changeset 22203:481d174f762a
(rmail-summary-output-body): New function.
(rmail-summary-mode-map): Bind w to that. Put it in menu bar.
Bind q to rmail-summary-wipe.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 23 May 1998 20:10:11 +0000 |
| parents | cca4f78e5e2a |
| children | e1921cd8a532 |
| files | lisp/mail/rmailsum.el |
| diffstat | 1 files changed, 17 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el Sat May 23 20:08:57 1998 +0000 +++ b/lisp/mail/rmailsum.el Sat May 23 20:10:11 1998 +0000 @@ -840,14 +840,15 @@ (define-key rmail-summary-mode-map "\ep" 'rmail-summary-previous-all) (define-key rmail-summary-mode-map "\e\C-p" 'rmail-summary-previous-labeled-message) (define-key rmail-summary-mode-map "q" 'rmail-summary-quit) + (define-key rmail-summary-mode-map "Q" 'rmail-summary-wipe) (define-key rmail-summary-mode-map "r" 'rmail-summary-reply) (define-key rmail-summary-mode-map "s" 'rmail-summary-expunge-and-save) (define-key rmail-summary-mode-map "\es" 'rmail-summary-search) (define-key rmail-summary-mode-map "t" 'rmail-summary-toggle-header) (define-key rmail-summary-mode-map "u" 'rmail-summary-undelete) (define-key rmail-summary-mode-map "\M-u" 'rmail-summary-undelete-many) - (define-key rmail-summary-mode-map "w" 'rmail-summary-wipe) (define-key rmail-summary-mode-map "x" 'rmail-summary-expunge) + (define-key rmail-summary-mode-map "w" 'rmail-summary-output-body) (define-key rmail-summary-mode-map "." 'rmail-summary-beginning-of-message) (define-key rmail-summary-mode-map "<" 'rmail-summary-first-message) (define-key rmail-summary-mode-map ">" 'rmail-summary-last-message) @@ -891,6 +892,9 @@ (define-key rmail-summary-mode-map [menu-bar classify output-menu] '(nil)) +(define-key rmail-summary-mode-map [menu-bar classify output-body] + '("Output (body)..." . rmail-summary-output-body)) + (define-key rmail-summary-mode-map [menu-bar classify output-inbox] '("Output (inbox)..." . rmail-summary-output)) @@ -1508,6 +1512,18 @@ (define-key rmail-summary-mode-map [menu-bar classify output-menu] '("Output Rmail File" . rmail-disable-menu))))) +(defun rmail-summary-output-body (&optional file-name) + "Write this message body to the file FILE-NAME. +FILE-NAME defaults, interactively, from the Subject field of the message." + (interactive) + (save-excursion + (set-buffer rmail-buffer) + (let ((rmail-delete-after-output nil)) + (if file-name + (rmail-output-body-to-file file-name) + (call-interactively 'rmail-output-body-to-file)))) + (if rmail-delete-after-output + (rmail-summary-delete-forward nil))) ;; Sorting messages in Rmail Summary buffer.