;; mode:-*-emacs-lisp-*-

(setq user-mail-address "lukeshu@lukeshu.com")

;; wanderlust
(setq
  ;; Misc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  wl-local-domain "lan.lukeshu.com"
  wl-icon-directory "~/.emacs.d/el-get/wanderlust/icons"
  wl-message-id-domain      user-mail-address

  ;; Network ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; This only deals with sending--I use offlineimap to fetch
  wl-draft-send-mail-function 'wl-draft-send-mail-with-sendmail

  ;; Folders/File system ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  elmo-maildir-folder-path "~/Maildir"          ;; where I store my mail

  ;; note: all below are dirs (Maildirs) under elmo-maildir-folder-path
  ;; the '.'-prefix is for marking them as maildirs
  wl-default-folder ".MAIN/Ham.2017"
  wl-spam-folder    ".QUEUES/Spam"
  wl-draft-folder   ".WL/Draft"
  wl-trash-folder   ".WL/Trash"
  wl-queue-folder   ".WL/Queue"
  wl-fcc            ".WL/Sent"

  ;; check this folder periodically, and update modeline
  ;wl-biff-check-folder-list '(".todo") ;; check every 180 seconds
                                       ;; (default: wl-biff-check-interval)

  ;wl-folder-hierarchy-access-folders '("\.*")
  wl-folder-hierarchy-access-folders '(
    "^.\\([^/.]+[/.]\\)*[^/.]+\\(:\\|@\\|$\\)"
    "^-[^.]*\\(:\\|@\\|$\\)"
    "^@$"
    "^'$")

  ;; Writing
  wl-from (concat user-full-name " <" user-mail-address ">") ;; From: line
  wl-fcc-force-as-read t                        ;; mark sent messages as read
  mime-edit-split-message nil                   ;; don't split long messages

  ;; Reading ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  wl-stay-folder-window t                       ;; show the folder pane (left)
  wl-folder-window-width 35                     ;;
  wl-message-auto-reassemble-message/partial t  ;; reasemble split messages

  wl-message-ignored-field-list '("^.*:")             ;; default to hiding all headers
  wl-message-visible-field-list (mapcar (lambda (str) ;; but then display these
    (apply 'concat (mapcar (lambda (c)
                             (if (and (<= ?a c) (<= c ?z))
                                 (list ?[ c (upcase c) ?])
                               (list c)))
                           str)))
          '(
            "^date:"
            "^subject:"

            "^from:"
            "^reply-to:"
            "^organization:"

            "^to:"
            "^cc:"

            "^message-id:"
            "^list-id:"
            "^mailing-list:"

            "^in-reply-to:"
            "^references:"
            ))
  wl-message-sort-field-list wl-message-visible-field-list ;; in this order
  )