spool file directory

[Uday Reddy]

It seems desirable to allow all spool files to be in a separate directory rather than the directory of the folder. Piter says in viewmail-info mailing list (2011-04-30):

I have been using gnus and procmail/fetchnmail. Now I wanted to use
VM but I can't make it to read my spoolfiles.
I have spool files in folder ~/.MAIL
here is my VM file:
;;; first, set up special handling for the system mailbox
(setq vm-spool-files (list
                       ;; this should be a list of triples:
                       ;; <mail folder> <spool file>
<crash box>
                       (list "~/.MAIL/mail/inbox" (getenv "MAIL")
"~/.MAIL/mail/inbox.crash")))

;;; now set the defaults for other folders:
(setq vm-crash-box-suffix ".crash")
(setq vm-spool-file-suffixes (list ".spool"))
(setq vm-spool-directory "~/.MAIL/")

[Uday Reddy (reddyuday)]

Follow-up from Piter:

I have found solution on this list.
Thanks.

now my vm file looks like this
(setq vm-frame-per-completion nil)
(setq vm-frame-per-composition nil)
(setq vm-frame-per-edit nil)
(setq vm-frame-per-folder nil)
(setq vm-frame-per-folders-summary nil)
(setq vm-frame-per-help nil)
(setq vm-frame-per-summary nil)

(setq vm-folder-directory "~/.MAIL/mail/"
      vm-spool-directory "~/.MAIL/"
)
(cond ((string-equal vm-folder-directory vm-spool-directory)
       (error "vm-folder-directory and vm-spool-directory must be
different."))
      (t
       (setq vm-spool-files
             (mapcar '(lambda(spool-name)
                        (list (concat vm-folder-directory (replace-
regexp-in-string ".spool" "" spool-name))
                              (concat vm-spool-directory spool-name)
                              (concat vm-folder-directory (replace-
regexp-in-string ".spool" "" spool-name) ".CRASH")))
                     (directory-files vm-spool-directory nil
"^[^.]")))))