Mercurial > emacs

changeset 9448:99ec41e9cb2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-summary-resend): New function. (rmail-summary-mode-map - resend): Call rmail-summary-resend instead of rmail-resend.
author Richard M. Stallman <rms@gnu.org>
date Tue, 11 Oct 1994 17:07:27 +0000
parents 1ff618ef732b
children d11a719d7bde
files lisp/mail/rmailsum.el
diffstat 1 files changed, 8 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el	Tue Oct 11 13:04:30 1994 +0000
+++ b/lisp/mail/rmailsum.el	Tue Oct 11 17:07:27 1994 +0000
@@ -733,7 +733,7 @@
   '("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 @@
     (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.