diff lisp/mail/rmail.el @ 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 d3f5f14d1de4
children 09d1f6578d7f
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))