blob: a169249274e77332dc0b7768157ea002ece9774b (
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
76
77
|
;; mode:-*-emacs-lisp-*-
(setq user-mail-address "lukeshu@sbcglobal.net")
;; wanderlust
(setq
;; Misc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
wl-local-domain "lukeshu.ath.cx"
wl-icon-directory "~/.emacs.d/el-get/wanderlust/icons"
;; Network ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; This only deals with sending--I use offlineimap to fetch
wl-draft-send-mail-function 'wl-draft-send-mail-with-smtp
;; The following settings are Yahoo!'s SMTP servers:
wl-smtp-connection-type (quote ssl)
wl-smtp-authenticate-type "login"
wl-smtp-posting-server "plus.smtp.mail.yahoo.com"
;wl-smtp-posting-server "outbound.att.net"
wl-smtp-posting-port 465
wl-smtp-posting-user user-mail-address
wl-message-id-domain user-mail-address
;; Folders/File system ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
elmo-msgdb-directory "~/.emacs.d/elmo" ;; where elmo keeps all its stuff
elmo-cache-directory "~/.emacs.d/elmo-cache" ;; where elmo keeps all its stuff
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 "..Ham" ;; my main inbox
wl-draft-folder "..Draft" ;; store drafts in 'postponed'
wl-trash-folder "..Trash" ;; put trash in 'trash'
wl-spam-folder "..Bulk Mail" ;; put spam in 'Bulk Mail'
wl-queue-folder "..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-organization "Foo Corp"
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")
)
|
