spool file directory
Affects | Status | Importance | Assigned to | Milestone | |
---|---|---|---|---|---|
VM |
Triaged
|
Wishlist
|
Unassigned |
Bug Description
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/
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
<crash box>
"~/.MAIL/
;;; now set the defaults for other folders:
(setq vm-crash-box-suffix ".crash")
(setq vm-spool-
(setq vm-spool-directory "~/.MAIL/")
Changed in vm: | |
status: | Confirmed → Triaged |
milestone: | none → 8.2.1 |
Follow-up from Piter:
I have found solution on this list.
Thanks.
now my vm file looks like this per-completion nil) per-composition nil) per-folders- summary nil) per-summary nil)
(setq vm-frame-
(setq vm-frame-
(setq vm-frame-per-edit nil)
(setq vm-frame-per-folder nil)
(setq vm-frame-
(setq vm-frame-per-help nil)
(setq vm-frame-
(setq vm-folder-directory "~/.MAIL/mail/" spool-directory "~/.MAIL/" directory and vm-spool-directory must be
( mapcar '(lambda( spool-name)
(list (concat vm-folder-directory (replace-
(concat vm-spool-directory spool-name)
(concat vm-folder-directory (replace-
(directory- files vm-spool-directory nil
vm-
)
(cond ((string-equal vm-folder-directory vm-spool-directory)
(error "vm-folder-
different."))
(t
(setq vm-spool-files
regexp-in-string ".spool" "" spool-name))
regexp-in-string ".spool" "" spool-name) ".CRASH")))
"^[^.]")))))