diff options
| -rw-r--r-- | lisp/mail/smtpmail.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |