(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 95d99a2d0f5a3dfb5cc2be2dc47e540898f92e33..d5194618c7ea22e67262f2c7ab66b564efc34314 100644 (file)
--- 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)))