· 8 years ago · Jan 25, 2018, 01:08 PM
1;; wanderlust
2(autoload 'wl "wl" "Wanderlust" t)
3(autoload 'wl-other-frame "wl" "Wanderlust on new frame." t)
4(autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)
5(setq wl-message-id-domain "username@gmail.com")
6;; IMAP
7(setq elmo-imap4-default-server "imap.gmail.com")
8(setq elmo-imap4-default-user "username@gmail.com")
9(setq elmo-imap4-default-authenticate-type 'clear)
10(setq elmo-imap4-default-port '993)
11(setq elmo-imap4-default-stream-type 'ssl)
12
13(setq elmo-imap4-use-modified-utf7 t)
14
15;; SMTP
16(setq wl-smtp-connection-type 'starttls)
17(setq wl-smtp-posting-port 587)
18(setq wl-smtp-authenticate-type "plain")
19(setq wl-smtp-posting-user "username")
20(setq wl-smtp-posting-server "smtp.gmail.com")
21(setq wl-local-domain "gmail.com")
22
23(setq wl-default-folder "%inbox")
24(setq wl-default-spec "%")
25(setq wl-draft-folder "%[Gmail]/Drafts") ; Gmail IMAP
26(setq wl-trash-folder "%[Gmail]/Trash")
27
28(setq wl-folder-check-async t)
29
30(setq elmo-imap4-use-modified-utf7 t)
31
32(autoload 'wl-user-agent-compose "wl-draft" nil t)
33(if (boundp 'mail-user-agent)
34 (setq mail-user-agent 'wl-user-agent))
35(if (fboundp 'define-mail-user-agent)
36 (define-mail-user-agent
37 'wl-user-agent
38 'wl-user-agent-compose
39 'wl-draft-send
40 'wl-draft-kill
41 'mail-send-hook))