Mercurial > emacs

changeset 5006:356f6a751fdf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-summary-forward): Accept prefix arg and pass it to rmail-forward.
author Richard M. Stallman <rms@gnu.org>
date Sun, 14 Nov 1993 05:50:47 +0000
parents c762abae3964
children 8ed435ca9650
files lisp/mail/rmailsum.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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)))