Mercurial > emacs
changeset 110257:650122532cd3
nntp.el (nntp-wait-for-string): Supply a timeout for accept-process-output to ensure progress.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Tue, 07 Sep 2010 00:04:11 +0000 |
parents | db1e98f7484b |
children | 1af4bf1c3af4 |
files | lisp/gnus/ChangeLog lisp/gnus/nntp.el lisp/gnus/spam-report.el lisp/mail/hashcash.el |
diffstat | 4 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)))))
--- 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
--- 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."