From 2302ed37e5055383c5a7d1d96aad2b3ac4aa451e Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sun, 5 May 2019 21:07:14 -0400 Subject: [PATCH] email/wanderlust: improve gmail support & refactor --- modules/email/wanderlust/config.el | 32 +++++++++++++++++------------- 1 file changed, 18 insertions(+), 14 deletions(-) diff --git a/modules/email/wanderlust/config.el b/modules/email/wanderlust/config.el index 2178ae591..0eff763a1 100644 --- a/modules/email/wanderlust/config.el +++ b/modules/email/wanderlust/config.el @@ -15,19 +15,13 @@ 'wl-draft-kill 'mail-send-hook)) - (setq wl-init-file (expand-file-name "wl.el" doom-private-dir)) - (setq wl-demo nil wl-stay-folder-window t - wl-folders-file (expand-file-name "folders.wl" doom-private-dir) - wl-x-face-file (expand-file-name "xface" doom-private-dir) - wl-draft-folder "%INBOX.drafts" - wl-fcc "%INBOX.Sent") + wl-init-file (expand-file-name "wl.el" doom-private-dir) + wl-folders-file (expand-file-name "folders.wl" doom-private-dir)) (setq wl-message-truncate-lines t wl-summary-width 120 - wl-local-domain - (ignore-errors (cadr (split-string user-mail-address "@"))) wl-message-ignored-field-list '(".*Received:" ".*Path:" @@ -46,23 +40,33 @@ "^MIME.*:" "^In-Reply-To:" "^Content-Transfer-Encoding:" - "^List-.*:")) - - (setq wl-message-visible-field-list '("^Message-Id:" "^User-Agent:" "^X-Mailer:" "^X-Face:")) + "^List-.*:") + wl-message-visible-field-list + '("^Message-Id:" + "^User-Agent:" + "^X-Mailer:" + "^X-Face:")) (when (featurep! +gmail) (setq elmo-imap4-default-server "imap.gmail.com" elmo-imap4-default-port 993 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-set-seen-flag-explicitly t) (setq wl-smtp-connection-type 'starttls wl-smtp-posting-port 587 wl-smtp-authenticate-type "plain" - wl-smtp-posting-user "" - wl-smtp-posting-server "smtp.gmail.com")) + wl-smtp-posting-user user-mail-address + 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)