From c8d16dbd12529346bd5f23415d6ccf077c95e950 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 18 Jun 1996 22:43:32 +0000 Subject: [PATCH] (smtpmail-read-response): Goto smtpmail-read-point --- lisp/mail/smtpmail.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))