(rmail-mode-map): Add menu item for

rmail-output-body-to-file and put it on w.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 20ed37cf449dad8db86631e4e493c0c2ac9b955c..34290cf429c1f867801a38657b3c993aa5f77e3e 100644 (file)
--- 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))