# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 860276343 0
# Node ID 09aeacdc6fc2360a4ebe416e7b676ac347681009
# Parent  7a3eb2b72749ce306e7d9f608b656f139b736589
(rmail-mode-map): Add menu item for
rmail-output-body-to-file and put it on w.

diff -r 7a3eb2b72749 -r 09aeacdc6fc2 lisp/mail/rmail.el
--- 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))