diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-06-18 22:43:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-06-18 22:43:32 +0000 |
| commit | f8ba8af60903c7b6fcdee009378ee51954245de5 (patch) | |
| tree | 7390297970c032260b3edd0ecdd10a9d14792d5f | |
| parent | 6ccd86c7e1df17076309db156bad524f781fc5d1 (diff) | |
| download | emacs-f8ba8af60903c7b6fcdee009378ee51954245de5.tar.gz | |
(smtpmail-read-response): Goto smtpmail-read-point
| -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)) |