diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-04-05 21:39:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-04-05 21:39:03 +0000 |
| commit | f48ea7f06250f55385f40fa68aa783168eb9bc7e (patch) | |
| tree | 96f83d6f134af0f7e346f609c4397ea54c5d599d /lisp/mail/rmail.el | |
| parent | 196aba05070d39b90a3cd55c404613ae6cf46c35 (diff) | |
| download | emacs-f48ea7f06250f55385f40fa68aa783168eb9bc7e.tar.gz | |
(rmail-mode-map): Add menu item for
rmail-output-body-to-file and put it on w.
Diffstat (limited to 'lisp/mail/rmail.el')
| -rw-r--r-- | lisp/mail/rmail.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 20ed37cf449..34290cf429c 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -527,7 +527,7 @@ Note: it means the file has no messages in it.\n\^_"))) (define-key rmail-mode-map "\es" 'rmail-search) (define-key rmail-mode-map "t" 'rmail-toggle-header) (define-key rmail-mode-map "u" 'rmail-undelete-previous-message) - (define-key rmail-mode-map "w" 'rmail-edit-current-message) + (define-key rmail-mode-map "w" 'rmail-output-body-to-file) (define-key rmail-mode-map "x" 'rmail-expunge) (define-key rmail-mode-map "." 'rmail-beginning-of-message) (define-key rmail-mode-map "<" 'rmail-first-message) @@ -557,6 +557,9 @@ Note: it means the file has no messages in it.\n\^_"))) (define-key rmail-mode-map [menu-bar classify output-menu] nil) +(define-key rmail-mode-map [menu-bar classify output-body] + '("Output body to file..." . rmail-output-body-to-file)) + (define-key rmail-mode-map [menu-bar classify output-inbox] '("Output (inbox)..." . rmail-output)) |