diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-05-23 20:10:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-05-23 20:10:11 +0000 |
| commit | d5bafc55395399e36bf20b6add8d8b582d2e6d0b (patch) | |
| tree | 784c46cfad24d7653fd41d63b33a45324a890442 /lisp/mail/rmailsum.el | |
| parent | d1cad4080e1ea4e14052750e84bb6eec4625ba69 (diff) | |
| download | emacs-d5bafc55395399e36bf20b6add8d8b582d2e6d0b.tar.gz | |
(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.
Diffstat (limited to 'lisp/mail/rmailsum.el')
| -rw-r--r-- | lisp/mail/rmailsum.el | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 916782cb4bf..f9354710749 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -840,14 +840,15 @@ Search, the `unseen' attribute is restored.") (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 @@ Search, the `unseen' attribute is restored.") (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 @@ The variables `rmail-secondary-file-directory' and (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. |