nntp.el (nntp-wait-for-string): Supply a timeout for accept-process-output to ensure...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 7bd62149c957640c02f9bdbef80eea1bfa7504ac..f2e48fc5782e0b0190c3fc3995fc451f221443bd 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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 --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el
index 5373230fd8ec7f5d2bef326d8564354916e52971..3cdd63084eff2d58b981cb1a1bb3f579aa20bf9c 100644 (file)
--- a/lisp/gnus/nntp.el
+++ b/lisp/gnus/nntp.el
@@ -1768,7 +1768,7 @@ password contained in '~/.nntp-authinfo'."
     (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 --git a/lisp/gnus/spam-report.el b/lisp/gnus/spam-report.el
index 0e4576ae3f51654f3e0070d4451c6140e9e31f63..0e32e9340403f6d1418bbc2964e136e563b14eed 100644 (file)
--- a/lisp/gnus/spam-report.el
+++ b/lisp/gnus/spam-report.el
@@ -267,7 +267,7 @@ This is initialized based on `user-mail-address'."
        (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 --git a/lisp/mail/hashcash.el b/lisp/mail/hashcash.el
index a10db0194fc322b1edcf7f63ef765c1e923d1494..cc3af11a47d860760e807c06136df16b780cd6ce 100644 (file)
--- a/lisp/mail/hashcash.el
+++ b/lisp/mail/hashcash.el
@@ -276,7 +276,7 @@ BUFFER defaults to the current buffer."
   (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."