diff options
| author | Karl Heuer <[email protected]> | 1998-09-21 19:47:00 +0000 |
|---|---|---|
| committer | Karl Heuer <[email protected]> | 1998-09-21 19:47:00 +0000 |
| commit | 7d8a6e1fc4ace52718ecab389e9b9532b9d36080 (patch) | |
| tree | 92ad336a7927dee3ccf15d6744ac2086a4bdf1cc /lisp/mail/rmail.el | |
| parent | f3e7c0dc58b24bf2d3ad356ab7c193a7acf1809a (diff) | |
(rmail-resend): Work properly if invoked from summary.
Diffstat (limited to 'lisp/mail/rmail.el')
| -rw-r--r-- | lisp/mail/rmail.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 341565bc52..dad0cd0aae 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -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 +---+ *$\\|" |