(rmail-mode-map): Add explicit keybinding for rmail-resend in the menu.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8be0d110d0..c85be8bf90 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2009-03-01  Glenn Morris  <[email protected]>
 
+	* mail/rmail.el (rmail-mode-map): Add explicit keybinding for
+	rmail-resend in the menu.
+
 	* files.el (confirm-nonexistent-file-or-buffer): `other' must be last
 	custom choice.  (Bug#2506)
 
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index d69af6d704..5831fd793a 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -966,6 +966,7 @@ The buffer is expected to be narrowed to just the header of the message."
     (define-key map "d"      'rmail-delete-forward)
     (define-key map "\C-d"   'rmail-delete-backward)
     (define-key map "e"      'rmail-edit-current-message)
+    ;; If you change this, change the rmail-resend menu-item's :keys.
     (define-key map "f"      'rmail-forward)
     (define-key map "g"      'rmail-get-new-mail)
     (define-key map "h"      'rmail-summary)
@@ -1078,7 +1079,7 @@ The buffer is expected to be narrowed to just the header of the message."
       '("Continue" . rmail-continue))
 
     (define-key map [menu-bar mail resend]
-      '("Re-send..." . rmail-resend))
+    '(menu-item "Resend..." rmail-resend :keys "C-u f"))
 
     (define-key map [menu-bar mail forward]
       '("Forward" . rmail-forward))
@@ -3282,6 +3283,7 @@ original message into it."
   (interactive)
   (rmail-start-mail nil nil nil nil nil rmail-view-buffer))
 
+;; FIXME should complain if there is nothing to continue.
 (defun rmail-continue ()
   "Continue composing outgoing message previously being composed."
   (interactive)