# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 908249090 0
# Node ID 6298928425855dd587b1117c032f3c9815b2fa24
# Parent  dd68893482a9e89d4ca32c8cf8a0470f6f8ae5d4
(nntp-possibly-change-group): Allow for unexpected
responses to GROUP command, since this may be called from a timer
with quit inhibited.

diff -r dd68893482a9 -r 629892842585 lisp/gnus/nntp.el
--- 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))))))