58 lines
2.7 KiB
EmacsLisp
58 lines
2.7 KiB
EmacsLisp
;;; +mail.el -*- lexical-binding: t; -*-
|
|
;; Mu4e configuration
|
|
;;
|
|
;; Set up the default email identity
|
|
(setq user-full-name "Amin Kasrou Aouam")
|
|
;; Use msmtp to send email
|
|
(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)
|
|
;; Account configuration
|
|
(set-email-account! "gmail"
|
|
'((mu4e-sent-folder . "/gmail/sent")
|
|
(mu4e-drafts-folder . "/gmail/drafts")
|
|
(mu4e-trash-folder . "/gmail/trash")
|
|
(mu4e-refile-folder . "/gmail/archive")
|
|
(smtpmail-smtp-user . "akasroua@gmail.com")
|
|
(user-mail-address . "akasroua@gmail.com"))
|
|
t)
|
|
(set-email-account! "ugent"
|
|
'((mu4e-sent-folder . "/ugent/sent")
|
|
(mu4e-drafts-folder . "/ugent/drafts")
|
|
(mu4e-trash-folder . "/ugent/trash")
|
|
(mu4e-refile-folder . "/ugent/archive")
|
|
(smtpmail-smtp-user . "amin.kasrouaouam@ugent.be")
|
|
(user-mail-address . "amin.kasrouaouam@ugent.be"))
|
|
t)
|
|
(set-email-account! "disroot"
|
|
'((mu4e-sent-folder . "/disroot/sent")
|
|
(mu4e-drafts-folder . "/disroot/drafts")
|
|
(mu4e-trash-folder . "/disroot/trash")
|
|
(mu4e-refile-folder . "/disroot/archive")
|
|
(smtpmail-smtp-user . "akasroua@disroot.org")
|
|
(user-mail-address . "akasroua@disroot.org"))
|
|
t)
|
|
;; Configure mu4e contexts
|
|
(setq mu4e-context-policy 'ask-if-none
|
|
mu4e-compose-context-policy 'ask-if-none)
|
|
;; Run lazy check when syncing
|
|
(setq mu4e-index-lazy-check t)
|
|
;; Use ISO dates
|
|
(setq mu4e-headers-date-format "%Y-%m-%d %H:%M")
|
|
;; Disable colors for HTML emails
|
|
(setq shr-use-colors nil)
|
|
;; Use shortcuts to access inboxes easily
|
|
(setq mu4e-maildir-shortcuts
|
|
'(("/disroot/inbox" . ?d)
|
|
("/gmail/inbox" . ?g)
|
|
("/ugent/inbox" . ?u)))
|
|
;; Change mu4e bookmarks
|
|
(setq mu4e-bookmarks '((:name "Unread messages" :query "flag:unread AND NOT flag:trashed" :key 117)
|
|
(:name "Today's messages" :query "date:today..now" :key 116)
|
|
(:name "Last 7 days" :query "date:7d..now" :hide-unread t :key 119)))
|
|
;; HACK Fix mu 1.10 layout
|
|
(set-popup-rule! "^\\*mu4e-\\(main\\|headers\\)\\*" :ignore t)
|
|
(set-popup-rule! "^\\*mu4e-draft\\*" :size 0.7 :vslot -4 :select t :quit nil :ttl 0)
|