# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 906407220 0
# Node ID 116f19dd86dc42094e2d3b3de316ce4acad01d14
# Parent  e23cdc314c104449b699f86470f918f0e272632f
(rmail-resend): Work properly if invoked from summary.

diff -r e23cdc314c10 -r 116f19dd86dc lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Mon Sep 21 19:45:14 1998 +0000
+++ b/lisp/mail/rmail.el	Mon Sep 21 19:47:00 1998 +0000
@@ -2891,11 +2891,10 @@
   (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 @@
 	  (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 +---+ *$\\|"