Function: nnspool-request-group

nnspool-request-group is a byte-compiled function defined in nnspool.el.gz.

Signature

(nnspool-request-group GROUP &optional SERVER DONT-CHECK INFO)

Documentation

Select news GROUP.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnspool.el.gz
(deffoo nnspool-request-group (group &optional _server dont-check _info)
  "Select news GROUP."
  (let ((pathname (nnspool-article-pathname group))
	dir)
    (if (not (file-directory-p pathname))
	(nnheader-report
	 'nnspool "Invalid group name (no such directory): %s" group)
      (setq nnspool-current-directory pathname)
      (nnheader-report 'nnspool "Selected group %s" group)
      (if dont-check
	  (progn
	    (nnheader-report 'nnspool "Selected group %s" group)
	    t)
	;; Yes, completely empty spool directories *are* possible.
	;; Fix by Sudish Joseph <joseph@cis.ohio-state.edu>
	(when (setq dir (directory-files pathname nil "\\`[0-9]+\\'" t))
	  (setq dir (sort (mapcar #'string-to-number dir) #'<)))
	(if dir
	    (nnheader-insert
	     "211 %d %d %d %s\n" (length dir) (car dir)
	     (car (last dir)) group)
	  (nnheader-report 'nnspool "Empty group %s" group)
	  (nnheader-insert "211 0 0 0 %s\n" group))))))