# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1283817851 0
# Node ID 650122532cd318c3455c7bf5c9af3f277f3c093a
# Parent  db1e98f7484b5e2df5c852a1e85112e05cc3cd8f
nntp.el (nntp-wait-for-string): Supply a timeout for accept-process-output to ensure progress.

diff -r db1e98f7484b -r 650122532cd3 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Tue Sep 07 00:00:56 2010 +0000
+++ b/lisp/gnus/ChangeLog	Tue Sep 07 00:04:11 2010 +0000
@@ -1,5 +1,8 @@
 2010-09-06  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+	* nntp.el (nntp-wait-for-string): Supply a timeout for
+	accept-process-output to ensure progress.
+
 	* gnus-start.el (gnus-get-unread-articles): If being given an explicit
 	level to get unread articles from, then use that for foreign groups,
 	too.
diff -r db1e98f7484b -r 650122532cd3 lisp/gnus/nntp.el
--- a/lisp/gnus/nntp.el	Tue Sep 07 00:00:56 2010 +0000
+++ b/lisp/gnus/nntp.el	Tue Sep 07 00:04:11 2010 +0000
@@ -1768,7 +1768,7 @@
     (while (and (setq proc (get-buffer-process buf))
 		(memq (process-status proc) '(open run))
 		(not (re-search-forward regexp nil t)))
-      (accept-process-output proc)
+      (accept-process-output proc 0.1)
       (set-buffer buf)
       (goto-char (point-min)))))
 
diff -r db1e98f7484b -r 650122532cd3 lisp/gnus/spam-report.el
--- a/lisp/gnus/spam-report.el	Tue Sep 07 00:00:56 2010 +0000
+++ b/lisp/gnus/spam-report.el	Tue Sep 07 00:04:11 2010 +0000
@@ -267,7 +267,7 @@
 	(gnus-message 7 "Waiting for response from %s..." host)
 	(while (and (memq (process-status tcp-connection) '(open run))
 		    (zerop (buffer-size)))
-	  (accept-process-output tcp-connection))
+	  (accept-process-output tcp-connection 1))
 	(gnus-message 7 "Waiting for response from %s... done" host)))))
 
 ;;;###autoload
diff -r db1e98f7484b -r 650122532cd3 lisp/mail/hashcash.el
--- a/lisp/mail/hashcash.el	Tue Sep 07 00:00:56 2010 +0000
+++ b/lisp/mail/hashcash.el	Tue Sep 07 00:04:11 2010 +0000
@@ -276,7 +276,7 @@
   (unless buffer (setq buffer (current-buffer)))
   (let (entry)
     (while (setq entry (rassq buffer hashcash-process-alist))
-      (accept-process-output (car entry)))))
+      (accept-process-output (car entry) 1))))
 
 (defun hashcash-processes-running-p (buffer)
   "Return non-nil if hashcash processes in BUFFER are still running."