mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-30 09:00:31 -08:00
Code Issues Projects Releases Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
Richard M. Stallman 1992-09-14 19:00:13 +00:00
parent 9508896e1d
commit ce90c14948
1 changed files with 21 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

39
lisp/mail/rmail.el
View file

@ -1507,24 +1507,27 @@ use \\[mail-yank-original] to yank the original message into it."
(subject (concat "["
(mail-strip-quoted-names (mail-fetch-field "From"))
": " (or (mail-fetch-field "Subject") "") "]")))
;; 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 (one-window-p t)
(function mail)
(function mail-other-window))
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)))))
;; 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 (one-window-p t)
(function mail)
(function mail-other-window))
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))))))
(defun rmail-resend (address &optional from comment mail-alias-file)
"Resend current message to ADDRESSES.