# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 835137812 0
# Node ID 85313b347ed94843a3f9b12587fdf7191de6f846
# Parent  ad4f0ac5e7efd35d3e2b6494ce453a591bea3afd
(smtpmail-read-response): Goto smtpmail-read-point

diff -r ad4f0ac5e7ef -r 85313b347ed9 lisp/mail/smtpmail.el
--- a/lisp/mail/smtpmail.el	Tue Jun 18 22:39:51 1996 +0000
+++ b/lisp/mail/smtpmail.el	Tue Jun 18 22:43:32 1996 +0000
@@ -345,8 +345,8 @@
 ;    (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))