Mercurial > emacs

changeset 76538:a4570ccecc89

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 a6a84e388652
children e182631d2713
files lisp/net/tls.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
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