diff options
| author | Richard M. Stallman | 1996-06-18 22:43:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-06-18 22:43:32 +0000 |
| commit | c8d16dbd12529346bd5f23415d6ccf077c95e950 (patch) | |
| tree | 19395acd1b4a64af2a3918ab52c3d1f7282ccc4e | |
| parent | b21dc7615e87908d113de43a4bce299beb7ba3a5 (diff) | |
| download | emacs-c8d16dbd12529346bd5f23415d6ccf077c95e950.tar.gz emacs-c8d16dbd12529346bd5f23415d6ccf077c95e950.zip | |
(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.") | |||
| 345 | ; (setq response-continue t) | 345 | ; (setq response-continue t) |
| 346 | ; (setq return-value '(nil "")) | 346 | ; (setq return-value '(nil "")) |
| 347 | 347 | ||
| 348 | (goto-char smtpmail-read-point) | ||
| 349 | (while response-continue | 348 | (while response-continue |
| 349 | (goto-char smtpmail-read-point) | ||
| 350 | (while (not (search-forward "\r\n" nil t)) | 350 | (while (not (search-forward "\r\n" nil t)) |
| 351 | (accept-process-output process) | 351 | (accept-process-output process) |
| 352 | (goto-char smtpmail-read-point)) | 352 | (goto-char smtpmail-read-point)) |