 (defvar pjones:wl-devalot-folder-names
   '((:name "INBOX"   :nick "Inbox"  :use default :biff t)
     (:name "subs"    :nick "Subs")
+    (:name "misc"  :nick "Misc")
     (:name "mlists"  :nick "Lists")
     (:name "Archive" :nick "Archive")
     (:name "Drafts"  :nick "Drafts" :use draft)
     (:name "Sent"    :nick "Sent"   :use fcc)
     (:name "Trash"   :nick "Trash"  :use trash)
     (:name "Queue"   :nick "Queue"  :use queue)
-    (:name "Junk"    :nick "Junk")
+    (:name "Spam"    :nick "Spam")
     (:name "Travel"  :nick "Travel")
     (:name "root"    :nick "Root"))
   "Folders and their attributes for Devalot.")


(defun pjones:wl-devalot-folders-init ()
  "Update `pjones:wl-devalot-folder-names' with Wanderlust entities."
  (let* ((elmo-imap4-default-server "mail.pmade.com")
         (elmo-imap4-default-user (pjones:wl-get-user elmo-imap4-default-server)))
    (setq pjones:wl-devalot-folder-names
          (mapcar

    ;; Username/host separator:
    "@"
    ;; Domains:
    (or "devalot.com" "pmade.com" "effectiveruby.com")))

 '(wl-address-file (expand-file-name "~/notes/contacts/wanderlust.txt"))
 '(elmo-msgdb-directory (concat user-emacs-directory "elmo/"))
