Function: nnmh-request-create-group

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

Signature

(nnmh-request-create-group GROUP &optional SERVER ARGS)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnmh.el.gz
(deffoo nnmh-request-create-group (group &optional server _args)
  (nnheader-init-server-buffer)
  (unless (assoc group nnmh-group-alist)
    (let (active)
      (push (list group (setq active (cons 1 0)))
	    nnmh-group-alist)
      (nnmh-possibly-create-directory group)
      (nnmh-possibly-change-directory group server)
      (let ((articles (mapcar #'string-to-number
			      (directory-files
			       nnmh-current-directory nil "\\`[0-9]+\\'"))))
	(when articles
	  (setcar active (apply #'min articles))
	  (setcdr active (apply #'max articles))))))
  t)