From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 14 Nov 1993 05:50:47 +0000 (+0000)
Subject: (rmail-summary-forward): Accept prefix arg
X-Git-Tag: emacs-19.34~10845
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=18e90c58467bc1ef12b3905f929c4ca3ca78938b;p=emacs.git

(rmail-summary-forward): Accept prefix arg
and pass it to rmail-forward.
---

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 95d99a2d0f5..d5194618c7e 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -994,12 +994,14 @@ the body of the original message; otherwise copy the current message."
   (interactive)
   (mail-send-and-exit t))
 
-(defun rmail-summary-forward ()
-  "Forward the current message to another user."
-  (interactive)
+(defun rmail-summary-forward (resend)
+  "Forward the current message to another user.
+With prefix argument, \"resend\" the message instead of forwarding it;
+see the documentation of `rmail-resend'."
+  (interactive "P")
   (save-excursion
     (set-buffer rmail-buffer)
-    (rmail-forward)
+    (rmail-forward resend)
     (use-local-map (copy-keymap (current-local-map)))
     (define-key (current-local-map)
       "\C-c\C-c" 'rmail-summary-send-and-exit)))