blob: deefef9e0291f333f475a80f9a9f71febd7a9c6d (
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
68
69
70
71
72
73
74
75
|
;; 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
)
|
