changeset 15454:85313b347ed9

(smtpmail-read-response): Goto smtpmail-read-point
author Richard M. Stallman <rms@gnu.org>
date Tue, 18 Jun 1996 22:43:32 +0000
parents ad4f0ac5e7ef
children 751cae978048
files lisp/mail/smtpmail.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))