From: yamaoka <yamaoka>
Date: Wed, 9 Jun 2004 14:21:24 +0000 (+0000)
Subject: Synch to No Gnus 200406091356.
X-Git-Tag: t-gnus-6_17_4-quimby-~871
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=78cf42ed94cd262f7b1a21564ea422073a397b40;p=elisp%2Fgnus.git-

Synch to No Gnus 200406091356.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aef7ae1..be435dd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-06-09  Jesper Harder  <harder@ifa.au.dk>
+
+	* message.el (message-send-mail-with-sendmail): Use with-current-buffer.
+
 2004-06-09  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* message.el (message-text-with-property): Make it fast and accept
diff --git a/lisp/message.el b/lisp/message.el
index d239762..87b349e 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4284,8 +4284,7 @@ This sub function is for exclusive use of `message-send-mail'."
 	    (when (eval message-mailer-swallows-blank-line)
 	      (newline))
 	    (when message-interactive
-	      (save-excursion
-		(set-buffer errbuf)
+	      (with-current-buffer errbuf
 		(erase-buffer))))
 	  (let* ((default-directory "/")
 		 (cpr (as-binary-process