Commit 65c200c5 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(rmail-forward): Don't bind mail-signature, mail-setup-hook.

parent e4865e3f
......@@ -1808,28 +1808,25 @@ see the documentation of `rmail-resend'."
""))
(or (mail-fetch-field "Subject") "")
"]")))
;; Turn off the usual actions for initializing the message body
;; because we want to get only the text from the failure message.
(let (mail-signature mail-setup-hook)
;; If only one window, use it for the mail buffer.
;; Otherwise, use another window for the mail buffer
;; so that the Rmail buffer remains visible
;; and sending the mail will get back to it.
(if (funcall (if (and (not rmail-mail-new-frame) (one-window-p t))
(function mail)
(function rmail-start-mail))
nil nil subject nil nil nil
(list (list (function (lambda (buf msgnum)
(save-excursion
(set-buffer buf)
(rmail-set-attribute
"forwarded" t msgnum))))
(current-buffer)
rmail-current-message)))
;; If only one window, use it for the mail buffer.
;; Otherwise, use another window for the mail buffer
;; so that the Rmail buffer remains visible
;; and sending the mail will get back to it.
(if (funcall (if (and (not rmail-mail-new-frame) (one-window-p t))
(function mail)
(function rmail-start-mail))
nil nil subject nil nil nil
(list (list (function (lambda (buf msgnum)
(save-excursion
(set-buffer buf)
(rmail-set-attribute
"forwarded" t msgnum))))
(current-buffer)
rmail-current-message)))
(save-excursion
(goto-char (point-max))
(forward-line 1)
(insert-buffer forward-buffer)))))))
(insert-buffer forward-buffer))))))
(defun rmail-resend (address &optional from comment mail-alias-file)
"Resend current message to ADDRESSES.
......
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