Commit c8d16dbd authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent b21dc761
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment