# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 753256247 0
# Node ID 356f6a751fdff309a33a3f0cf6552feac4f34788
# Parent  c762abae3964dce14b7accd24d0e6efc83531226
(rmail-summary-forward): Accept prefix arg
and pass it to rmail-forward.

diff -r c762abae3964 -r 356f6a751fdf lisp/mail/rmailsum.el
--- a/lisp/mail/rmailsum.el	Sun Nov 14 02:56:24 1993 +0000
+++ b/lisp/mail/rmailsum.el	Sun Nov 14 05:50:47 1993 +0000
@@ -994,12 +994,14 @@
   (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)))