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")
)
|
