From 01215c1f353ba250081ce53b23820914122f9bf7 Mon Sep 17 00:00:00 2001 From: Andrew Innes Date: Fri, 20 Nov 1998 23:54:16 +0000 Subject: [PATCH] (nntp-request-group): Allow for failures when requesting a new group. --- lisp/gnus/nntp.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el index 0812be9917d..f92166ad214 100644 --- a/lisp/gnus/nntp.el +++ b/lisp/gnus/nntp.el @@ -603,7 +603,7 @@ server there that you can connect to. See also `nntp-open-connection-function'" (deffoo nntp-request-group (group &optional server dont-check) (nntp-possibly-change-group nil server) - (when (nntp-send-command "^2.*\n" "GROUP" group) + (when (nntp-send-command "^[245].*\n" "GROUP" group) (let ((entry (nntp-find-connection-entry nntp-server-buffer))) (setcar (cddr entry) group)))) -- 2.39.2