Function: mail-source-fetch-directory

mail-source-fetch-directory is a byte-compiled function defined in mail-source.el.gz.

Signature

(mail-source-fetch-directory SOURCE CALLBACK)

Documentation

Fetcher for directory sources.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mail-source.el.gz
(defun mail-source-fetch-directory (source callback)
  "Fetcher for directory sources."
  (mail-source-bind (directory source)
    (mail-source-run-script
     prescript `((?t . ,path)) prescript-delay)
    (let ((found 0)
	  (mail-source-string (format "directory:%s" path)))
      (dolist (file (directory-files
		     path t (concat (regexp-quote suffix) "$")))
	(when (and (file-regular-p file)
		   (funcall predicate file)
		   (mail-source-movemail file mail-source-crash-box))
          (incf found (mail-source-callback callback file))
          (mail-source-run-script postscript `((?t . ,path)))
	  (mail-source-delete-crash-box)))
      found)))