File: dot.vm-auto-spool

package info (click to toggle)
vm 7.03-1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 2,224 kB
  • ctags: 1,936
  • sloc: lisp: 29,095; sh: 499; makefile: 385; ansic: 275
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 "^[^.]")))))