From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 13 Oct 1998 03:24:50 +0000 (+0000)
Subject: (nntp-possibly-change-group): Allow for unexpected
X-Git-Tag: emacs-20.4~1513
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=66bd5242de02ed66b7ba8a98dae44a7aed60e350;p=emacs.git

(nntp-possibly-change-group): Allow for unexpected
responses to GROUP command, since this may be called from a timer
with quit inhibited.
---

diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el
index 4067d566eb6..4a82b036dd7 100644
--- a/lisp/gnus/nntp.el
+++ b/lisp/gnus/nntp.el
@@ -871,7 +871,9 @@ This function is supposed to be called from `nntp-server-opened-hook'."
 	  (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))))))