 
 (custom-set-variables
  '(wl-from "Peter J. Jones <pjones@devalot.com>")
- '(wl-local-domain "pmade.com")
+ '(wl-local-domain "devalot.com")
+ '(elmo-imap4-default-server "imap.fastmail.com")
  '(elmo-imap4-default-stream-type 'ssl)
  '(elmo-imap4-default-authenticate-type 'login)
  '(elmo-passwd-storage-type 'auth-source)

(defvar pjones:wl-devalot-folder-names
  '((:name "INBOX"   :nick "Inbox"  :use default :biff t)
    (:name "subs"    :nick "Subs")
    (: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 "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 "imap.fastmail.com")
         (elmo-imap4-default-user (pjones:wl-get-user elmo-imap4-default-server)))
    (setq pjones:wl-devalot-folder-names
          (mapcar
