summaryrefslogtreecommitdiff
path: root/.config/emacs/wl.el
blob: c27c87e5f52aaaa7215cb16d1aae04e392825154 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
;; 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-fcc            ".Sent"                   ;; sent msgs go to the "sent"-folder
  wl-default-folder ".FOLDERS.Ham"            ;; my main inbox
  wl-draft-folder   ".Draft"                  ;; store drafts in 'postponed'
  wl-trash-folder   ".Trash"                  ;; put trash in 'trash'
  wl-spam-folder    ".FOLDERS.Spam.training"  ;; put spam in 'Bulk Mail'
  wl-queue-folder   ".FOLDERS.Queue"          ;; we don't use this

  ;; 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           ;; but then display these
  '("^\\(To\\|Cc\\):"
    "^Subject:"
    "^\\(From\\|Reply-To\\):"
    "^Organization:"
    "^Message-Id:"
    "^\\(Posted\\|Date\\):"
    "^List-ID:"
    )
  wl-message-sort-field-list              ;; in this order
  '("^Date"
    "^From"
    "^Organization:"
    "^X-Attribution:"
    "^Subject"
    "^To"
    "^Cc")
  )