· 10 years ago · May 17, 2016, 11:33 PM
1...
2 %INBOX:0/217/49684
3...
4
5...
6 %INBOX:1/218/49684
7...
8
9...
10 %INBOX:0/218/49684
11...
12
13;; wanderlust
14(autoload 'wl "wl" "Wanderlust" t)
15(autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)
16(autoload 'wl-user-agent-compose "wl-draft" nil t)
17
18;; IMAP
19(setq elmo-imap4-default-server "imap.gmail.com")
20(setq elmo-imap4-default-user "my_email_address@gmail.com")
21(setq elmo-imap4-default-authenticate-type 'clear)
22(setq elmo-imap4-default-port '993)
23(setq elmo-imap4-default-stream-type 'ssl)
24
25(setq elmo-imap4-set-seen-flag-explicitly t)
26
27;; SMTP
28(setq wl-smtp-connection-type 'starttls)
29(setq wl-smtp-posting-port 587)
30(setq wl-smtp-authenticate-type "plain")
31(setq wl-smtp-posting-user "my_email_address@gmail.com")
32(setq wl-smtp-posting-server "smtp.gmail.com")
33(setq wl-local-domain "gmail.com")
34(setq wl-icon-directory "~/.emacs.d/el-get/wanderlust/etc/icons")
35(setq wl-default-folder "%inbox")
36(setq wl-default-spec "%")
37(setq wl-draft-folder "%[Gmail]/Drafts") ; Gmail IMAP
38(setq wl-trash-folder "%[Gmail]/Trash")
39
40(setq wl-folder-check-async t)
41
42(setq elmo-imap4-use-modified-utf7 t)
43
44(if (boundp 'mail-user-agent)
45 (setq mail-user-agent 'wl-user-agent))
46(if (fboundp 'define-mail-user-agent)
47 (define-mail-user-agent
48 'wl-user-agent
49 'wl-user-agent-compose
50 'wl-draft-send
51 'wl-draft-kill
52 'mail-send-hook))
53(require 'tls)
54(setq elmo-network-stream-type-alist '(("!" . (ssl ssl open-tls-stream))))
55
56;; ignore all fields
57(setq wl-message-ignored-field-list '("^.*:"))
58;; ..but these five
59(setq wl-message-visible-field-list
60 '("^To:"
61 "^Cc:"
62 "^From:"
63 "^Subject:"
64 "^Date:"))
65
66(setq wl-message-sort-field-list
67 '("^From:"
68 "^Subject:"
69 "^Date:"
70 "^To:"
71 "^Cc:"))
72(setq wl-biff-check-folder-list '("%[Gmail]/Important" "%Workrelatedstuff"))
73(setq wl-show-plug-status-on-modeline t)
74
75(add-hook 'wl-biff-notify-hook
76 (lambda (message &optional header)
77 (message
78 (format "New mail: %s. %s"
79 header
80 (substring message 0 (min 30 (length message)))))))
81
82%/
83
84;; Check these folders for new mail
85(setq wl-biff-check-folder-list
86 '("%INBOX:"user@gmail.com"/clear@imap.gmail.com:993"
87 "%INBOX:"user@other.domain"/clear@imapserver.other.domain:993"))
88
89;; Use strict diff so wl-biff works with Gmail and others
90(setq wl-strict-diff-folders wl-biff-check-folder-list)