[Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/03/01 00:56:21

Modified files:
        lisp           : ChangeLog 
        lisp/mail      : rmail.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15414&r2=1.15415
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.515&r2=1.516

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15414
retrieving revision 1.15415
diff -u -b -r1.15414 -r1.15415
--- ChangeLog   1 Mar 2009 00:48:51 -0000       1.15414
+++ ChangeLog   1 Mar 2009 00:56:18 -0000       1.15415
@@ -1,5 +1,8 @@
 2009-03-01  Glenn Morris  <address@hidden>
 
+       * 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)
 

Index: mail/rmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.515
retrieving revision 1.516
diff -u -b -r1.515 -r1.516
--- mail/rmail.el       28 Feb 2009 03:25:32 -0000      1.515
+++ mail/rmail.el       1 Mar 2009 00:56:20 -0000       1.516
@@ -966,6 +966,7 @@
     (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 @@
       '("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 @@
   (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)