Lines Matching defs:group
41 :group 'gnus)
62 (setq nntp-server-list-active-group nil)))
203 :group 'nntp
259 (defvoo nntp-server-list-active-group 'try)
326 "Throws out to nntp-with-open-group-error so that the connection may
332 (throw 'nntp-with-open-group-error t))
586 (defvar nntp-with-open-group-internal nil)
589 (defmacro nntp-with-open-group (group server &optional connectionless &rest forms)
597 nntp-with-open-group, opens a new connection then re-issues the NNTP
605 (nntp-with-open-group-internal nil))
606 (while (catch 'nntp-with-open-group-error
609 (nntp-possibly-change-group ,group ,server ,connectionless)
631 (setq nntp-with-open-group-internal
641 nntp-with-open-group-internal))
643 (deffoo nntp-retrieve-headers (articles &optional group server fetch-old)
645 (nntp-with-open-group
646 group server
708 "Retrieve group info on GROUPS."
709 (nntp-with-open-group
720 (when (eq nntp-server-list-active-group 'try)
729 (command (if nntp-server-list-active-group
769 (if (not nntp-server-list-active-group)
785 (if (not nntp-server-list-active-group)
788 'group)
798 (deffoo nntp-retrieve-articles (articles &optional group server)
799 (nntp-with-open-group
800 group server
868 (defun nntp-try-list-active (group)
869 (nntp-list-active-group group)
875 (setq nntp-server-list-active-group nil))
877 (setq nntp-server-list-active-group t)))))
879 (deffoo nntp-list-active-group (group &optional server)
881 (nntp-with-open-group
883 (nntp-send-command "^\\.*\r?\n" "LIST ACTIVE" group)))
885 (deffoo nntp-request-group-articles (group &optional server)
887 (nntp-with-open-group
889 (nntp-send-command "^\\.*\r?\n" "LISTGROUP" group)))
891 (deffoo nntp-request-article (article &optional group server buffer command)
892 (nntp-with-open-group
893 group server
902 (nntp-find-group-and-number group))
903 (nntp-find-group-and-number group)))))
905 (deffoo nntp-request-head (article &optional group server)
906 (nntp-with-open-group
907 group server
912 (nntp-find-group-and-number group)
915 (deffoo nntp-request-body (article &optional group server)
916 (nntp-with-open-group
917 group server
922 (deffoo nntp-request-group (group &optional server dont-check)
923 (nntp-with-open-group
925 (when (nntp-send-command "^[245].*\n" "GROUP" group)
927 (setcar (cddr entry) group)))))
929 (deffoo nntp-close-group (group &optional server)
954 (nntp-possibly-change-group nil server t)
985 (nntp-with-open-group
990 (nntp-with-open-group
995 (nntp-with-open-group
1017 (nntp-with-open-group
1038 (deffoo nntp-request-type (group article)
1359 (defun nntp-possibly-change-group (group server &optional connectionless)
1369 (when group
1373 ((not (equal group (caddr entry)))
1377 (nntp-send-command "^[245].*\n" "GROUP" group)
1378 (setcar (cddr entry) group)
1597 (defun nntp-find-group-and-number (&optional group)
1612 ;; Then we find the group name.
1613 (setq group
1615 ;; If there is only one group in the Newsgroups
1617 ;; article comes from that group, I'd say.
1622 ;; If there is more than one group in the
1624 ;; be filled out. We hazard a guess that the group
1639 (if group
1640 (concat "\\(" (regexp-quote group) "\\):\\([0-9]+\\)")
1643 (setq group (match-string 1 xref)
1648 (setq group newsgroups))
1649 (group)
1650 (t (setq group ""))))
1651 (when (string-match "\r" group)
1652 (setq group (substring group 0 (match-beginning 0))))
1653 (cons group number)))))