Mercurial > emacs
diff 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 |
line wrap: on
line diff
--- a/lisp/net/tls.el Sun Mar 18 08:07:17 2007 +0000 +++ b/lisp/net/tls.el Sun Mar 18 11:40:13 2007 +0000 @@ -146,8 +146,8 @@ (set-buffer buffer) ;; XXX "blue moon" nntp.el bug (goto-char (point-min)) (not (setq done (re-search-forward tls-success nil t))))) - (accept-process-output process 1) - (sit-for 1)) + (unless (accept-process-output process 1) + (sit-for 1))) (message "Opening TLS connection with `%s'...%s" cmd (if done "done" "failed")) (if done