Mercurial > emacs
comparison lisp/gnus/nntp.el @ 23739:7b6f268e970d
(nntp-request-group): Allow for failures when requesting a new group.
author | Andrew Innes <andrewi@gnu.org> |
---|---|
date | Fri, 20 Nov 1998 23:54:16 +0000 |
parents | 52bc669c1549 |
children | 30ddc83990a0 |
comparison
equal
deleted
inserted
replaced
23738:2ef2813414b6 | 23739:7b6f268e970d |
---|---|
601 "\r?\n\\.\r?\n" "BODY" | 601 "\r?\n\\.\r?\n" "BODY" |
602 (if (numberp article) (int-to-string article) article))) | 602 (if (numberp article) (int-to-string article) article))) |
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 |
610 (deffoo nntp-close-group (group &optional server) | 610 (deffoo nntp-close-group (group &optional server) |
611 t) | 611 t) |