Mercurial > emacs
diff lisp/gnus/nntp.el @ 23436:629892842585
(nntp-possibly-change-group): Allow for unexpected
responses to GROUP command, since this may be called from a timer
with quit inhibited.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 13 Oct 1998 03:24:50 +0000 |
parents | 196f32d1873f |
children | 52bc669c1549 |
line wrap: on
line diff
--- a/lisp/gnus/nntp.el Mon Oct 12 23:15:16 1998 +0000 +++ b/lisp/gnus/nntp.el Tue Oct 13 03:24:50 1998 +0000 @@ -871,7 +871,9 @@ (set-buffer (process-buffer (car entry))) (erase-buffer) (nntp-send-string (car entry) (concat "GROUP " group)) - (nntp-wait-for-string "^2.*\n") + ;; allow for unexpected responses, since this can be called + ;; from a timer with quit inhibited + (nntp-wait-for-string "^[245].*\n") (setcar (cddr entry) group) (erase-buffer))))))