From: Glenn Morris Date: Sun, 1 Mar 2009 00:56:18 +0000 (+0000) Subject: (rmail-mode-map): Add explicit keybinding for rmail-resend in the menu. X-Git-Tag: emacs-pretest-23.0.92~400 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=017166cefcfb4024981f38c46d6154ef92709aad;p=emacs.git (rmail-mode-map): Add explicit keybinding for rmail-resend in the menu. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8be0d110d07..c85be8bf901 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2009-03-01 Glenn Morris + * 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 d69af6d7040..5831fd793ae 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)