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

Mu4e: add support for non-@gmail gmail accounts

Browse source
This commit is contained in:
TEC 2020-10-13 23:36:55 +08:00
parent a8d7d61e44
commit f3daba3471
No known key found for this signature in database
GPG key ID: 779591AFDB81F06C
2 changed files with 15 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

16
modules/email/mu4e/config.el
View file

@ -364,10 +364,18 @@ Must be set before org-msg is loaded to take effect.")
(when (featurep! +gmail)
(after! mu4e
(defvar +mu4e-gmail-addresses nil
"A list of email addresses which, despite not:
- having '@gmail.com' in them, or
- being in a maildir where the name includes 'gmail'
Should be treated as a gmail address.")
;; don't save message to Sent Messages, Gmail/IMAP takes care of this
(setq mu4e-sent-messages-behavior
(lambda () ;; TODO make use +mu4e-msg-gmail-p
(if (string-match-p "@gmail.com\\'" (message-sendmail-envelope-from))
(if (or (string-match-p "@gmail.com\\'" (message-sendmail-envelope-from))
(member (message-sendmail-envelope-from) +mu4e-gmail-addresses))
'delete 'sent))
;; don't need to run cleanup after indexing for gmail
@ -382,10 +390,12 @@ Must be set before org-msg is loaded to take effect.")
(string-match-p "@gmail.com"
(cond
((member (mu4e-message-field msg :to)
(plist-get mu4e~server-props :personal-addresses))
(append (mu4e-personal-addresses)
+mu4e-gmail-addresses))
(mu4e-message-field msg :to))
((member (mu4e-message-field msg :from)
(plist-get mu4e~server-props :personal-addresses))
(append (mu4e-personal-addresses)
+mu4e-gmail-addresses))
(mu4e-message-field msg :from))
(t "")))
(string-match-p "gmail" (mu4e-message-field msg :maildir))))