71 lines
2.4 KiB
EmacsLisp
71 lines
2.4 KiB
EmacsLisp
(setq mu4e-maildir "~/Mail"
|
|
mu4e-attachment-dir "~/Downloads"
|
|
mu4e-get-mail-command "mbsync --pull-new inboxes"
|
|
mu4e-update-interval (* 5 60) ; Every 5 minutes
|
|
mu4e-sent-messages-behavior 'sent
|
|
mu4e-change-filenames-when-moving t
|
|
mu4e-alert-modeline-formatter 'mu4e-alert-default-mode-line-formatter
|
|
sendmail-program (executable-find "msmtp")
|
|
send-mail-function #'smtpmail-send-it
|
|
message-sendmail-f-is-evil t
|
|
message-sendmail-extra-arguments '("--read-envelope-from")
|
|
message-send-mail-function #'message-send-mail-with-sendmail
|
|
mu4e-maildir-shortcuts '((:maildir "/Proton/Inbox/" :key ?p)
|
|
(:maildir "/iCloud/Inbox/" :key ?i)
|
|
(:maildir "/Outlook/Inbox/" :key ?o))
|
|
mu4e-modeline-all-read '("R:" . " ")
|
|
mu4e-modeline-all-clear '("C:" . " ")
|
|
mu4e-modeline-new-items '("N:" . " ")
|
|
mu4e-modeline-unread-items '("U:" . " ")
|
|
mu4e-search-full-label '("F" . " ")
|
|
mu4e-search-hide-label '("H" . " ")
|
|
mu4e-search-related-label '("R" . " ")
|
|
mu4e-search-skip-duplicates-label '("D" . " ")
|
|
mu4e-search-threaded-label'("T" . " "))
|
|
|
|
(require 'mu4e)
|
|
|
|
(setq mu4e-contexts
|
|
(list
|
|
(make-mu4e-context
|
|
:name "Proton"
|
|
:match-func
|
|
(lambda (msg)
|
|
(when msg)
|
|
(string-prefix-p "/Proton" (mu4e-message-field msg :maildir)))
|
|
:vars
|
|
'((user-mail-address . "e.litherlandsmith@proton.me")
|
|
(mu4e-sent-folder . "/Proton/Sent")
|
|
(mu4e-drafts-folder . "/Proton/Drafts")
|
|
(mu4e-trash-folder . "/Proton/Trash")
|
|
(mu4e-refile-folder . "/Proton/Archive"))
|
|
)
|
|
(make-mu4e-context
|
|
:name "iCloud"
|
|
:match-func
|
|
(lambda (msg)
|
|
(when msg)
|
|
(string-prefix-p "/iCloud" (mu4e-message-field msg :maildir)))
|
|
:vars
|
|
'((user-mail-address . "e.litherlandsmith@icloud.com")
|
|
(mu4e-sent-folder . "/iCloud/Sent")
|
|
(mu4e-drafts-folder . "/iCloud/Drafts")
|
|
(mu4e-trash-folder . "/iCloud/Trash")
|
|
(mu4e-refile-folder . "/iCloud/Archive"))
|
|
)
|
|
(make-mu4e-context
|
|
:name "Outlook"
|
|
:match-func
|
|
(lambda (msg)
|
|
(when msg)
|
|
(string-prefix-p "/Outlook" (mu4e-message-field msg :maildir)))
|
|
:vars
|
|
'((user-mail-address . "evie.litherland-smith@ukaea.uk")
|
|
(mu4e-sent-folder . "/Outlook/Sent")
|
|
(mu4e-drafts-folder . "/Outlook/Drafts")
|
|
(mu4e-trash-folder . "/Outlook/Trash")
|
|
(mu4e-refile-folder . "/Outlook/Archive"))
|
|
)
|
|
))
|
|
(provide 'custom-email-config)
|