Function: rmail-find-all-files

rmail-find-all-files is a byte-compiled function defined in rmail.el.gz.

Signature

(rmail-find-all-files START)

Documentation

Return list of file in dir START that match rmail-secondary-file-regexp.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/rmail.el.gz
;; This used to scan subdirectories recursively, but someone pointed out
;; that if the user wants that, person can put all the files in one dir.
;; And the recursive scan was slow.  So I took it out.
;; rms, Sep 1996.
(defun rmail-find-all-files (start)
  "Return list of file in dir START that match `rmail-secondary-file-regexp'."
  (if (file-accessible-directory-p start)
      ;; Don't sort here.
      (let* ((case-fold-search t)
	     (files (directory-files start t rmail-secondary-file-regexp)))
	;; Sort here instead of in directory-files
	;; because this list is usually much shorter.
	(sort files #'string<))))