Synch to No Gnus 200406091356.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aef7ae1..be435dd 100644 (file)
--- 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 (file)
--- 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