From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 11 Oct 1994 17:07:27 +0000 (+0000)
Subject: (rmail-summary-resend): New function.
X-Git-Tag: emacs-19.34~6406
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4986bd386fe914f943bb2e93deca40a2a6d4f742;p=emacs.git

(rmail-summary-resend): New function.
(rmail-summary-mode-map - resend): Call rmail-summary-resend
instead of rmail-resend.
---

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index fd037cba9d8..b9cd9b6f4c3 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -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.