From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 18 Jun 1996 22:43:32 +0000 (+0000)
Subject: (smtpmail-read-response): Goto smtpmail-read-point
X-Git-Tag: emacs-19.34~408
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8d16dbd12529346bd5f23415d6ccf077c95e950;p=emacs.git

(smtpmail-read-response): Goto smtpmail-read-point
---

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 00e07e9c059..801cac7fcb5 100644
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -345,8 +345,8 @@ don't define this value.")
 ;    (setq response-continue t)
 ;    (setq return-value '(nil ""))
 
-    (goto-char smtpmail-read-point)
     (while response-continue
+      (goto-char smtpmail-read-point)
       (while (not (search-forward "\r\n" nil t))
 	(accept-process-output process)
 	(goto-char smtpmail-read-point))