Mercurial > emacs
changeset 102340:9ea8a3661105
(rmail-mode-map): Add explicit keybinding for rmail-resend in the menu.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 01 Mar 2009 00:56:18 +0000 |
| parents | 824362943376 |
| children | c5d3b70a7002 |
| files | lisp/ChangeLog lisp/mail/rmail.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Mar 01 00:48:51 2009 +0000 +++ b/lisp/ChangeLog Sun Mar 01 00:56:18 2009 +0000 @@ -1,5 +1,8 @@ 2009-03-01 Glenn Morris <rgm@gnu.org> + * 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)
--- a/lisp/mail/rmail.el Sun Mar 01 00:48:51 2009 +0000 +++ b/lisp/mail/rmail.el Sun Mar 01 00:56:18 2009 +0000 @@ -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)