From: Lars Magne Ingebrigtsen Date: Wed, 14 Sep 2011 22:57:57 +0000 (+0200) Subject: Update the process marker so that the "broken by peer" status message is inserted... X-Git-Tag: emacs-pretest-24.0.90~104^2~44 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=65a046c491c62a3cc535845b87fed5e645e874c8;p=emacs.git Update the process marker so that the "broken by peer" status message is inserted in the right place. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6804f4150af..3d71b646b7a 100644 --- 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 diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 42c43c0951c..9fe19581e81 100644 --- 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)