Update the process marker so that the "broken by peer" status message is inserted...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6804f4150aff6bf9d2fa562d4634d671a8d64013..3d71b646b7ac87da347dea7f0c29a3afadf5fa62 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
        * mail/smtpmail.el (smtpmail-send-command): Don't include AUTH
        passwords in the log buffer.
+       (smtpmail-process-filter): Update the process marker so that the
+       "broken by peer" status message is inserted in the right place.
 
 2011-09-14  Stefan Monnier  <monnier@iro.umontreal.ca>
 

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 42c43c0951c264205cbd291c7c5ab3c37a73d17b..9fe19581e81cf1f5bed55e1011e6340ae1ae799a 100644 (file)
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -835,7 +835,8 @@ The list is in preference order.")
 (defun smtpmail-process-filter (process output)
   (with-current-buffer (process-buffer process)
     (goto-char (point-max))
-    (insert output)))
+    (insert output)
+    (set-marker (process-mark process) (point))))
 
 (defun smtpmail-read-response (process)
   (let ((case-fold-search nil)