Function: nndraft-request-group

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

Signature

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

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nndraft.el.gz
(deffoo nndraft-request-group (group &optional server dont-check _info)
  (nndraft-possibly-change-group group)
  (unless dont-check
    (let* ((pathname (nnmail-group-pathname group nndraft-directory))
	   (file-name-coding-system nnmail-pathname-coding-system)
	   dir file)
      (nnheader-re-read-dir pathname)
      (setq dir (mapcar (lambda (name) (string-to-number (substring name 1)))
			(ignore-errors (directory-files
					pathname nil "\\`#[0-9]+#\\'" t))))
      (dolist (n dir)
	(unless (file-exists-p
		 (setq file (expand-file-name (int-to-string n) pathname)))
	  (rename-file (nndraft-auto-save-file-name file) file)))))
  (nnoo-parent-function 'nndraft
			'nnmh-request-group
			(list group server dont-check)))