Function: nnfolder-generate-active-file

nnfolder-generate-active-file is an autoloaded, interactive and byte-compiled function defined in nnfolder.el.gz.

Signature

(nnfolder-generate-active-file)

Documentation

Look for mbox folders in the nnfolder directory and make them into groups.

This command does not work if you use short group names.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnfolder.el.gz
;;;###autoload
(defun nnfolder-generate-active-file ()
  "Look for mbox folders in the nnfolder directory and make them into groups.
This command does not work if you use short group names."
  (interactive)
  (nnmail-activate 'nnfolder)
  (unless (or gnus-nov-is-evil nnfolder-nov-is-evil)
    (dolist (file (directory-files (or nnfolder-nov-directory
				       nnfolder-directory)
				   t
				   (concat
				    (regexp-quote nnfolder-nov-file-suffix)
				    "$")))
      (when (not (message-mail-file-mbox-p file))
	(ignore-errors
	  (delete-file file)))))
    (dolist (file (if nnmail-use-long-file-names
		      (directory-files nnfolder-directory)
		    (nnfolder-recursive-directory-files
		     nnfolder-directory nil)))
      (when (and (not (backup-file-name-p file))
		 (message-mail-file-mbox-p
		  (nnfolder-group-pathname file)))
	(let ((oldgroup (assoc file nnfolder-group-alist)))
	  (if oldgroup
	      (nnheader-message 5 "Refreshing group %s..." file)
	    (nnheader-message 5 "Adding group %s..." file))
	  (if oldgroup
	      (setq nnfolder-group-alist
		    (delq oldgroup (copy-sequence nnfolder-group-alist))))
	  (push (list file (cons 1 0)) nnfolder-group-alist)
	  (nnfolder-possibly-change-folder file)
	  (nnfolder-possibly-change-group file)
	  (nnfolder-close-group file))))
    (nnheader-message 5 ""))