From 65a046c491c62a3cc535845b87fed5e645e874c8 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Thu, 15 Sep 2011 00:57:57 +0200 Subject: [PATCH] Update the process marker so that the "broken by peer" status message is inserted in the right place. --- lisp/ChangeLog | 2 ++ lisp/mail/smtpmail.el | 3 ++- 2 files changed, 4 insertions(+), 1 deletion(-) 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) -- 2.39.2