Function: nnfolder-recursive-directory-files

nnfolder-recursive-directory-files is a byte-compiled function defined in nnfolder.el.gz.

Signature

(nnfolder-recursive-directory-files DIR PREFIX)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnfolder.el.gz
(defun nnfolder-recursive-directory-files (dir prefix)
  (let ((files nil))
    (dolist (file (directory-files dir))
      (cond
       ((or (file-symlink-p (expand-file-name file dir))
	    (member file '("." "..")))
	;; Ignore
	)
       ((file-directory-p (expand-file-name file dir))
	(setq files (nconc (nnfolder-recursive-directory-files
			    (expand-file-name file dir)
			    (if prefix
				(concat prefix "." (directory-file-name file))
			      (file-name-nondirectory file)))
			   files)))
       ((file-regular-p (expand-file-name file dir))
	(push (if prefix
		  (concat prefix "." file)
		file)
	      files))))
    files))