From 7d8a6e1fc4ace52718ecab389e9b9532b9d36080 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 21 Sep 1998 19:47:00 +0000 Subject: [PATCH] (rmail-resend): Work properly if invoked from summary. --- lisp/mail/rmail.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 341565bc52a..dad0cd0aae5 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 +---+ *$\\|"