diff options
| author | Andrew Innes | 1998-11-20 23:54:16 +0000 |
|---|---|---|
| committer | Andrew Innes | 1998-11-20 23:54:16 +0000 |
| commit | 01215c1f353ba250081ce53b23820914122f9bf7 (patch) | |
| tree | f1f5432426c6138a3821b7abca37dc88bd5f750e | |
| parent | bacd83a703ab52a6d827a72f3c7d7d946503a777 (diff) | |
| download | emacs-01215c1f353ba250081ce53b23820914122f9bf7.tar.gz emacs-01215c1f353ba250081ce53b23820914122f9bf7.zip | |
(nntp-request-group): Allow for failures when requesting a new group.
| -rw-r--r-- | lisp/gnus/nntp.el | 2 |
1 files changed, 1 insertions, 1 deletions
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'" | |||
| 603 | 603 | ||
| 604 | (deffoo nntp-request-group (group &optional server dont-check) | 604 | (deffoo nntp-request-group (group &optional server dont-check) |
| 605 | (nntp-possibly-change-group nil server) | 605 | (nntp-possibly-change-group nil server) |
| 606 | (when (nntp-send-command "^2.*\n" "GROUP" group) | 606 | (when (nntp-send-command "^[245].*\n" "GROUP" group) |
| 607 | (let ((entry (nntp-find-connection-entry nntp-server-buffer))) | 607 | (let ((entry (nntp-find-connection-entry nntp-server-buffer))) |
| 608 | (setcar (cddr entry) group)))) | 608 | (setcar (cddr entry) group)))) |
| 609 | 609 | ||