[Emacs-diffs] /srv/bzr/emacs/trunk r105774: Update the process marker so that the "broken by peer" status message is inserted in the right place.

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 105774
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Thu 2011-09-15 00:57:57 +0200
message:
  Update the process marker so that the "broken by peer" status message is 
inserted in the right place.
modified:
  lisp/ChangeLog
  lisp/mail/smtpmail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-09-14 21:59:50 +0000
+++ b/lisp/ChangeLog    2011-09-14 22:57:57 +0000
@@ -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  <address@hidden>
 

=== modified file 'lisp/mail/smtpmail.el'
--- a/lisp/mail/smtpmail.el     2011-09-14 21:59:50 +0000
+++ b/lisp/mail/smtpmail.el     2011-09-14 22:57:57 +0000
@@ -835,7 +835,8 @@
 (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)