mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

(rmail-resend): Work properly if invoked from summary.

Browse Source
This commit is contained in:
Karl Heuer 1998-09-21 19:47:00 +00:00
parent f3e7c0dc58
commit 7d8a6e1fc4
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/mail/rmail.el
View File

@ -2891,11 +2891,10 @@ typically for purposes of moderating a list."
(if (not from) (setq from user-mail-address))
(let ((tembuf (generate-new-buffer " sendmail temp"))
(case-fold-search nil)
(mailbuf (current-buffer)))
(mailbuf rmail-buffer))
(unwind-protect
(save-excursion
(with-current-buffer tembuf
;;>> Copy message into temp buffer
(set-buffer tembuf)
(insert-buffer-substring mailbuf)
(goto-char (point-min))
;; Delete any Sender field, since that's not specifiable.
@ -2957,7 +2956,8 @@ typically for purposes of moderating a list."
(let (mail-aliases)
(funcall send-mail-function)))
(kill-buffer tembuf))
(rmail-set-attribute "resent" t rmail-current-message)))
(with-current-buffer rmail-buffer
(rmail-set-attribute "resent" t rmail-current-message))))
(defvar mail-unsent-separator
(concat "^ *---+ +Unsent message follows +---+ *$\\|"