From 4986bd386fe914f943bb2e93deca40a2a6d4f742 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 11 Oct 1994 17:07:27 +0000 Subject: [PATCH] (rmail-summary-resend): New function. (rmail-summary-mode-map - resend): Call rmail-summary-resend instead of rmail-resend. --- lisp/mail/rmailsum.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) 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. -- 2.39.5