Function: mspools-get-spool-files

mspools-get-spool-files is a byte-compiled function defined in mspools.el.gz.

Signature

(mspools-get-spool-files)

Documentation

Find the list of spool files and display them in *spools* buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/mspools.el.gz
(defun mspools-get-spool-files ()
  "Find the list of spool files and display them in *spools* buffer."
  (if (null mspools-folder-directory)
      (error "Set `mspools-folder-directory' to where the spool files are"))
  (let* ((folders (directory-files mspools-folder-directory nil
				   (format "\\`[^.]+\\.%s\\'" mspools-suffix)))
	 (folders (delq nil (mapcar #'mspools-size-folder folders)))
	 ;; beg end
	 )
    (setq mspools-files folders)
    (setq mspools-files-len (length mspools-files))
    (with-current-buffer mspools-buffer
      (pcase-dolist (`(,spool . ,len) folders)
        ;; (setq beg (point))
        (insert (format " %10d %s" len spool))
        ;; (setq end (point))
        (insert "\n")
        ;;(put-text-property beg end 'mouse-face 'highlight)
        )
      (if (not (bolp))
	  (delete-char -1))			;delete last RET
      (goto-char (point-min)))))