Mercurial > emacs
comparison lisp/net/tls.el @ 76538:a4570ccecc89
(open-tls-stream): In handshake-waiting loop,
don't wait more if there is output available to process.
| author | Thien-Thi Nguyen <ttn@gnuvola.org> |
|---|---|
| date | Sun, 18 Mar 2007 11:40:13 +0000 |
| parents | dc6ada4b3839 |
| children | 5c43ac406461 c0409ee15cee |
comparison
equal
deleted
inserted
replaced
| 76537:a6a84e388652 | 76538:a4570ccecc89 |
|---|---|
| 144 (memq (process-status process) '(open run)) | 144 (memq (process-status process) '(open run)) |
| 145 (save-excursion | 145 (save-excursion |
| 146 (set-buffer buffer) ;; XXX "blue moon" nntp.el bug | 146 (set-buffer buffer) ;; XXX "blue moon" nntp.el bug |
| 147 (goto-char (point-min)) | 147 (goto-char (point-min)) |
| 148 (not (setq done (re-search-forward tls-success nil t))))) | 148 (not (setq done (re-search-forward tls-success nil t))))) |
| 149 (accept-process-output process 1) | 149 (unless (accept-process-output process 1) |
| 150 (sit-for 1)) | 150 (sit-for 1))) |
| 151 (message "Opening TLS connection with `%s'...%s" cmd | 151 (message "Opening TLS connection with `%s'...%s" cmd |
| 152 (if done "done" "failed")) | 152 (if done "done" "failed")) |
| 153 (if done | 153 (if done |
| 154 (setq done process) | 154 (setq done process) |
| 155 (delete-process process)))) | 155 (delete-process process)))) |