File: dot.vm-auto-spool

package info (click to toggle)
vm 6.75-8
  • links: PTS
  • area: main
  • in suites: potato
  • size: 1,932 kB
  • ctags: 1,656
  • sloc: lisp: 24,646; sh: 342; makefile: 265
file content (13 lines) | stat: -rw-r--r-- 644 bytes parent folder | download | duplicates (14) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
;; Set vm-spool-files based on all filenames in vm-spool-directory.
;; You probably don't want to do this unless you've set vm-spool-directory
;; to point to a directory used exclusively for your own spool files.

(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 spool-name)
			      (concat vm-spool-directory spool-name)
			      (concat vm-folder-directory spool-name ".CRASH")))
		     (directory-files vm-spool-directory nil "^[^.]")))))