From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 5 Apr 1997 21:39:03 +0000 (+0000)
Subject: (rmail-mode-map): Add menu item for
X-Git-Tag: emacs-20.1~2639
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5eb9cf977780042cf36619b01fa8caadd7ee89a7;p=emacs.git

(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 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))