Mercurial > emacs

comparison lisp/gnus/nntp.el @ 23739:7b6f268e970d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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)