Commit 18e90c58 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(rmail-summary-forward): Accept prefix arg

and pass it to rmail-forward.
parent 5dd1ad8e
...@@ -994,12 +994,14 @@ the body of the original message; otherwise copy the current message." ...@@ -994,12 +994,14 @@ the body of the original message; otherwise copy the current message."
(interactive) (interactive)
(mail-send-and-exit t)) (mail-send-and-exit t))
(defun rmail-summary-forward () (defun rmail-summary-forward (resend)
"Forward the current message to another user." "Forward the current message to another user.
(interactive) With prefix argument, \"resend\" the message instead of forwarding it;
see the documentation of `rmail-resend'."
(interactive "P")
(save-excursion (save-excursion
(set-buffer rmail-buffer) (set-buffer rmail-buffer)
(rmail-forward) (rmail-forward resend)
(use-local-map (copy-keymap (current-local-map))) (use-local-map (copy-keymap (current-local-map)))
(define-key (current-local-map) (define-key (current-local-map)
"\C-c\C-c" 'rmail-summary-send-and-exit))) "\C-c\C-c" 'rmail-summary-send-and-exit)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment