Mercurial > emacs
changeset 17306:09aeacdc6fc2
(rmail-mode-map): Add menu item for
rmail-output-body-to-file and put it on w.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 05 Apr 1997 21:39:03 +0000 |
| parents | 7a3eb2b72749 |
| children | 830ad59547e4 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Sat Apr 05 21:38:07 1997 +0000 +++ b/lisp/mail/rmail.el Sat Apr 05 21:39:03 1997 +0000 @@ -527,7 +527,7 @@ (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 @@ (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))