emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

email/wanderlust: improve gmail support & refactor

Browse source
This commit is contained in:
Henrik Lissner 2019-05-05 21:07:14 -04:00
parent e75c41b10d
commit 2302ed37e5
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 18 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

32
modules/email/wanderlust/config.el
View file

@ -15,19 +15,13 @@
'wl-draft-kill 'wl-draft-kill
'mail-send-hook)) 'mail-send-hook))
(setq wl-init-file (expand-file-name "wl.el" doom-private-dir))
(setq wl-demo nil (setq wl-demo nil
wl-stay-folder-window t wl-stay-folder-window t
wl-folders-file (expand-file-name "folders.wl" doom-private-dir) wl-init-file (expand-file-name "wl.el" doom-private-dir)
wl-x-face-file (expand-file-name "xface" doom-private-dir) wl-folders-file (expand-file-name "folders.wl" doom-private-dir))
wl-draft-folder "%INBOX.drafts"
wl-fcc "%INBOX.Sent")
(setq wl-message-truncate-lines t (setq wl-message-truncate-lines t
wl-summary-width 120 wl-summary-width 120
wl-local-domain
(ignore-errors (cadr (split-string user-mail-address "@")))
wl-message-ignored-field-list wl-message-ignored-field-list
'(".*Received:" '(".*Received:"
".*Path:" ".*Path:"
@ -46,23 +40,33 @@
"^MIME.*:" "^MIME.*:"
"^In-Reply-To:" "^In-Reply-To:"
"^Content-Transfer-Encoding:" "^Content-Transfer-Encoding:"
"^List-.*:")) "^List-.*:")
wl-message-visible-field-list
(setq wl-message-visible-field-list '("^Message-Id:" "^User-Agent:" "^X-Mailer:" "^X-Face:")) '("^Message-Id:"
"^User-Agent:"
"^X-Mailer:"
"^X-Face:"))
(when (featurep! +gmail) (when (featurep! +gmail)
(setq elmo-imap4-default-server "imap.gmail.com" (setq elmo-imap4-default-server "imap.gmail.com"
elmo-imap4-default-port 993 elmo-imap4-default-port 993
elmo-imap4-default-authenticate-type 'clear ; CRAM-MD5 elmo-imap4-default-authenticate-type 'clear ; CRAM-MD5
elmo-imap4-default-user "" elmo-imap4-default-user user-mail-address
elmo-imap4-default-stream-type 'ssl elmo-imap4-default-stream-type 'ssl
elmo-imap4-set-seen-flag-explicitly t) elmo-imap4-set-seen-flag-explicitly t)
(setq wl-smtp-connection-type 'starttls (setq wl-smtp-connection-type 'starttls
wl-smtp-posting-port 587 wl-smtp-posting-port 587
wl-smtp-authenticate-type "plain" wl-smtp-authenticate-type "plain"
wl-smtp-posting-user "" wl-smtp-posting-user user-mail-address
wl-smtp-posting-server "smtp.gmail.com")) wl-smtp-posting-server "smtp.gmail.com"
wl-local-domain "gmail.com")
(setq wl-default-folder "%inbox"
wl-draft-folder "%[Gmail]/Drafts"
wl-trash-folder "%[Gmail]/Trash"
wl-fcc-force-as-read t
wl-default-spec "%"))
(setq wl-message-id-domain wl-local-domain) (setq wl-message-id-domain wl-local-domain)