78 lines
3.4 KiB
EmacsLisp
78 lines
3.4 KiB
EmacsLisp
(setq 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
|
|
message-kill-buffer-on-exit t
|
|
mail-user-agent 'mu4e-user-agent
|
|
read-mail-command 'mu4e
|
|
mu4e-maildir "~/Mail"
|
|
mu4e-attachment-dir "~/Downloads"
|
|
mu4e-get-mail-command "mbsync -a"
|
|
mu4e-update-interval (* 5 60) ; Every 5 minutes
|
|
mu4e-sent-messages-behavior 'sent
|
|
mu4e-change-filenames-when-moving t
|
|
mu4e-context-policy 'pick-first
|
|
mu4e-use-fancy-chars t
|
|
mu4e-headers-thread-single-orphan-prefix '("─>" . "─▶")
|
|
mu4e-headers-thread-orphan-prefix '("┬>" . "┬▶")
|
|
mu4e-headers-thread-connection-prefix '("│ " . "│ ")
|
|
mu4e-headers-thread-first-child-prefix '("├>" . "├▶")
|
|
mu4e-headers-thread-child-prefix '("├>" . "├▶")
|
|
mu4e-headers-thread-last-child-prefix '("└>" . "╰▶")
|
|
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" . " ")
|
|
mu4e-alert-modeline-formatter 'mu4e-alert-default-mode-line-formatter
|
|
mu4e-headers-fields '((:human-date . 12)
|
|
(:flags . 6)
|
|
(:from-or-to . 25)
|
|
(:subject))
|
|
mu4e-maildir-shortcuts '((:maildir "/Proton/Inbox/" :key ?p)
|
|
(:maildir "/iCloud/Inbox/" :key ?i)
|
|
(:maildir "/Outlook/Inbox/" :key ?o)))
|
|
|
|
(when (require 'mu4e nil :noerror)
|
|
(keymap-set global-map "C-c m m" #'mu4e)
|
|
(keymap-set global-map "C-c m u" #'mu4e-update-index)
|
|
(keymap-set global-map "C-c m c" #'mu4e-compose-new)
|
|
|
|
(when (require 'mu4e-alert nil :noerror)
|
|
(mu4e-alert-set-default-style 'libnotify)
|
|
(mu4e-alert-enable-notifications)
|
|
(mu4e-alert-enable-mode-line-display))
|
|
|
|
(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 Messages")
|
|
(mu4e-drafts-folder . "/iCloud/Drafts")
|
|
(mu4e-trash-folder . "/iCloud/Deleted Messages")
|
|
(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)
|