← Back to branch summary

~ubuntu-branches/ubuntu/natty/vm/natty

« back to all changes in this revision

Viewing changes to debian/examples/dot.vm-auto-spool

  • Committer: Bazaar Package Importer
  • Author(s): Manoj Srivastava
  • Date: 2002-03-06 00:46:29 UTC
  • Revision ID: james.westby@ubuntu.com-20020306004629-d6hkaca872wyesmc
Tags: 7.03-1
* fixed defcustom syntax errors.
* minor compiler error cleanup.

Show diffs side-by-side

added added

removed removed

Lines of Context:
debian/examples/dot.vm-auto-spool
 
1
;; Set vm-spool-files based on all filenames in vm-spool-directory.
 
2
;; You probably don't want to do this unless you've set vm-spool-directory
 
3
;; to point to a directory used exclusively for your own spool files.
 
4
 
 
5
(cond ((string-equal vm-folder-directory vm-spool-directory)
 
6
       (error "vm-folder-directory and vm-spool-directory must be different."))
 
7
      (t
 
8
       (setq vm-spool-files
 
9
             (mapcar '(lambda(spool-name)
 
10
                        (list (concat vm-folder-directory spool-name)
 
11
                              (concat vm-spool-directory spool-name)
 
12
                              (concat vm-folder-directory spool-name ".CRASH")))
 
13
                     (directory-files vm-spool-directory nil "^[^.]")))))