mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-17 17:58:46 +00:00
Code Issues Releases Activity

(rmail-summary-resend): New function.

Browse Source 
(rmail-summary-mode-map - resend): Call rmail-summary-resend
instead of rmail-resend.
This commit is contained in:
Richard M. Stallman 1994-10-11 17:07:27 +00:00
parent 7e5c230dc5
commit 4986bd386f
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/mail/rmailsum.el
View File

@ -733,7 +733,7 @@ Commands for sorting the summary:
'("Continue" . rmail-summary-continue))
(define-key rmail-summary-mode-map [menu-bar mail resend]
'("Re-send..." . rmail-resend))
'("Re-send..." . rmail-summary-resend))
(define-key rmail-summary-mode-map [menu-bar mail forward]
'("Forward" . rmail-summary-forward))
@ -1120,6 +1120,13 @@ see the documentation of `rmail-resend'."
(use-local-map (copy-keymap (current-local-map)))
(define-key (current-local-map)
"\C-c\C-c" 'rmail-summary-send-and-exit)))
(defun rmail-summary-resend ()
"Resend current message using 'rmail-resend'."
(interactive)
(save-excursion
(set-buffer rmail-buffer)
(call-interactively 'rmail-resend)))
;; Summary output commands.