Mercurial > emacs
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))