Re: [VM] Mainly: How do you use virtual folders every day? and other questions

[Johan Vromans]

address@hidden writes:

> I also like your archiving method, Johan. Have not yet configured it
> here, though.

I'm not claiming this is the best piece of lisp I ever wrote, but it
gets the job done ;)

(setq boxlist
      (sort
       (directory-files jv-mail-tree t
                        "^INBOX.[12][0-9][0-9][0-9][0-9][0-9]$")
       '(lambda (a b) (string< b a))))
(setq boxes (list (nth 0 boxlist) (nth 1 boxlist) (nth 2 boxlist)))
(setq vm-virtual-folder-alist
      (append
       (list (list "INBOX"
             (list (append (reverse boxes)
                           (list vm-primary-inbox))
                   '(any))))))


-- Johan