Function: mspools-set-vm-spool-files

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

Signature

(mspools-set-vm-spool-files)

Documentation

Set value of vm-spool-files. Only needed for VM.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/mspools.el.gz
(defun mspools-set-vm-spool-files ()
  "Set value of `vm-spool-files'.  Only needed for VM."
  (if (not (file-readable-p mspools-vm-system-mail))
      (error "Need to set mspools-vm-system-mail to the spool for primary inbox"))
  (if (null mspools-folder-directory)
      (error "Set `mspools-folder-directory' to where the spool files are"))
  (setq
   vm-spool-files
   (append
    (list
     ;; Main mailbox
     (list vm-primary-inbox
	   mspools-vm-system-mail	; your mailbox
	   vm-crash-box			;crash for mailbox
	   ))

    ;; Mailing list inboxes
    ;; must have VM already loaded to get vm-folder-directory.
    (mapcar (lambda (s)
              "make the appropriate entry for vm-spool-files"
              (list
               (concat mspools-folder-directory s)
               (concat mspools-folder-directory s "." mspools-suffix)
               (concat mspools-folder-directory s ".crash")))
	    ;; So I create a vm-spool-files entry for each of those mail drops
	    (mapcar #'file-name-sans-extension
		    (directory-files mspools-folder-directory nil
				     (format "\\`[^.]+\\.%s" mspools-suffix)))
	    ))
   ))