Mercurial > emacs
diff lisp/gnus/nntp.el @ 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 | 5b9f64b04a04 |
| children | f2e111723c3a |
line wrap: on
line diff
--- 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)))))