-
Notifications
You must be signed in to change notification settings - Fork 0
/
.wl
187 lines (159 loc) · 6.31 KB
/
.wl
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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
;; mode:-*-emacs-lisp-*-
;; wanderlust
(setq
wl-plugged t
elmo-maildir-folder-path "/home/zoro/Mail/"
elmo-mh-folder-path "/home/zoro/Mail/"
elmo-message-fetch-confirm t
elmo-message-fetch-threshold 250000
wl-stay-folder-window t ;; show the folder pane (left)
wl-folder-window-width 25 ;; toggle on/off with 'i'
elmo-imap4-use-modified-utf7 t
wl-thread-insert-opened t
wl-thread-indent-level 1
wl-thread-have-younger-brother-str "+"
wl-thread-youngest-child-str "+"
wl-thread-vertical-str "|"
wl-thread-horizontal-str "-"
wl-thread-space-str " "
;; 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-fcc-force-as-read t ;; mark sent messages as read
wl-default-folder ".inbox"
wl-draft-folder ".draft" ;; store drafts in 'postponed'
wl-trash-folder ".trash" ;; put trash in 'trash'
wl-spam-folder ".trash" ;; ...spam as well
;; check this folder periodically, and update modeline
wl-biff-check-folder-list '(".inbox") ;; check every 180 seconds
wl-biff-check-interval 5
;; User Email addresses
wl-user-mail-address-list nil
wl-draft-reply-buffer-style 'keep
wl-interactive-send nil
wl-interactive-exit nil
;; Windows and decoration
wl-folder-use-frame nil
wl-highlight-body-too t
wl-use-highlight-mouse-line nil
wl-show-plug-status-on-modeline t
wl-message-window-size '(1 . 4)
mime-view-text/html-previewer 'shr
shr-use-colors nil
)
(setq global-mode-string
(cons
'(wl-modeline-biff-status
wl-modeline-biff-state-on
wl-modeline-biff-state-off)
global-mode-string))
;; Use wanderlust for default compose-mail
(if (boundp 'mail-user-agent)
(setq mail-user-agent 'wl-user-agent))
(if (fboundp 'define-mail-user-agent)
(define-mail-user-agent
'wl-user-agent
'wl-user-agent-compose
'wl-draft-send
'wl-draft-kill
'mail-send-hook))
;; BUILD the folder tree automatically
;; Note: if you change the hierarchy and want to rebuild the tree do
;; rm -rf ~/Emacs/Wanderlust/Elmo/folder
(setq wl-folder-hierarchy-access-folders
'("^.\\([^/.]+[/.]\\)*[^/.]+\\(:\\|@\\|$\\)"
"^-[^.]*\\(:\\|@\\|$\\)"
"^@$"
"^'$"))
;; ----------------------------------------------------------------------------
;;; Summary
(setq wl-auto-select-next 'unread
wl-summary-width nil
wl-summary-weekday-name-lang "en"
wl-summary-showto-folder-regexp ".Sent.*"
;;wl-summary-line-format "%n%T%P%M/%D(%W)%h:%m %t%[%17(%c %f%) %] %s"
wl-summary-line-format "%T%P%M/%D(%W)%h:%m %[ %17f %]%[%1@%] %t%C%s"
;; Summary threads
wl-thread-insert-opened t
wl-thread-open-reading-thread t
)
(setq
wl-forward-subject-prefix "Fwd: " ) ;; use "Fwd: " not "Forward: "
;;; Message:
(setq mime-view-mailcap-files '("~/.emacs.d/wanderlust/mailcap")
wl-message-ignored-field-list '("^.*:")
wl-message-visible-field-list
'("^\\(To\\|Cc\\):"
"^Subject:"
"^\\(From\\|Reply-To\\):"
"^Organization:"
"^X-Attribution:"
"^\\(Posted\\|Date\\):"
)
wl-message-sort-field-list
'("^From"
"^Organization:"
"^X-Attribution:"
"^Subject"
"^Date"
"^To"
"^Cc"))
;; ----------------------------------------------------------------------------
;;; Configure BBDB to manage Email addresses
(require 'ebdb-wl)
;; ----------------------------------------------------------------------------
;;; Configure recently used Email addresses
;; added hook.
(add-hook 'bbdb-notice-hook 'bbdb-auto-notes-hook)
(defun fetchmail-fetch ()
(interactive)
(shell-command "proxychains fetchmail -s -k -f ~/.fetchmailrc")
)
(global-set-key "\C-x\M-m" 'fetchmail-fetch)
(setq wl-biff-notify-hook '(ding))
;; xxxxxxxxxxxxxxx Set the templates xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
(setq wl-template-alist
'(
("gmail" ; Gmail
(wl-from . "zorowk <[email protected]>")
("From" . wl-from)
;; SMTP
(wl-smtp-connection-type . 'starttls)
(wl-smtp-posting-port . 587)
(wl-smtp-authenticate-type . "plain")
(wl-smtp-posting-user . "near.kingzero")
(wl-smtp-posting-server . "smtp.gmail.com")
(wl-local-domain . "gmail.com")
(wl-message-id-domain . "smtp.gmail.com")
;;(signature-file-name . "/mnt/usb/root/.signature")
)
))
;; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;; Automatically select the correct template based on which folder I'm visiting
(setq wl-draft-config-matchone t) ;; If non-nil, applied only one element of `wl-draft-config-alist'.
(setq wl-draft-config-alist
'(
( ; If I start a draft from my work e-mail folder and I'm using my
; personal computer (from home) use the template "Work-From-Home". I
; use a two different templates for my work E-Mail because I don't
; have access to the smtp server of my work when I'm at home. But
; since I can ssh to it i redirect a port to be able to sent e-mail
; from home though the smtp server of my work
;; (and (string-match ".*WORK" wl-draft-parent-folder) (string-match "dtripathi" system-name))
;; (template . "Work-From-Home")
;; )
;; ( ; If I start a draft from my work e-mail folder and I'm using my
; work computer, use the "Work" template
(and (string-match ".*OTHERS.*\\|.*Managers.*\\|.*Team.*" wl-draft-parent-folder) )
(template . "Work")
)
( ;; If I start a draft from any other folder, use the "gmail" template.
(not (string-match ".*OTHERS.*\\|.*Managers.*\\|.*Team.*" wl-draft-parent-folder))
(template . "gmail")
)
))
;; Apply wl-draft-config-alist as soon as you enter in a draft buffer. Without
;; this wanderlust would apply it only when actually sending the e-mail.
(add-hook 'wl-mail-setup-hook 'wl-draft-config-exec)
;; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx