40 lines
2 KiB
EmacsLisp
40 lines
2 KiB
EmacsLisp
(require 'mu4e)
|
|
|
|
(setq mu4e-change-filenames-when-moving t)
|
|
(setq mu4e-maildir "~/mail")
|
|
|
|
(setq mu4e-update-interval (* 11 60))
|
|
|
|
(setq mu4e-contexts
|
|
(list
|
|
(make-mu4e-context
|
|
:name "oxapentane.com"
|
|
:match-func (lambda (msg)
|
|
(when msg
|
|
(string-prefix-p "/grigory@shipunov.xyz" (mu4e-message-field msg :maildir))))
|
|
:vars '((user-mail-address . "grigory@shipunov.xyz")
|
|
(user-full-name . "Grisha Shipunov")
|
|
(mu4e-drafts-folder . "/grigory@shipunov.xyz/Drafts")
|
|
(mu4e-sent-folder . "/grigory@shipunov.xyz/Sent")
|
|
(mu4e-trash-folder . "/grigory@shipunov.xyz/Trash")
|
|
(mu4e-refile-folder . "/grigory@shipunov.xyz/Archive")
|
|
(mu4e-maildir-shortcuts . (("/grigory@shipunov.xyz/INBOX" . "?i")
|
|
("/grigory@shipunov.xyz/Drafts" . "?d")
|
|
("/grigory@shipunov.xyz/Sent" . "?s")))))
|
|
(make-mu4e-context
|
|
:name "oxapentane.com"
|
|
:match-func (lambda (msg)
|
|
(when msg
|
|
(string-prefix-p "/mail@oxapentane.com" (mu4e-message-field msg :maildir))))
|
|
:vars '((user-mail-address . "mail@oxapentane.com")
|
|
(user-full-name . "Grisha Shipunov")
|
|
(mu4e-drafts-folder . "/mail@oxapentane.com/Drafts")
|
|
(mu4e-sent-folder . "/mail@oxapentane.com/Sent")
|
|
(mu4e-trash-folder . "/mail@oxapentane.com/Trash")
|
|
(mu4e-refile-folder . "/mail@oxapentane.com/Archive")
|
|
(mu4e-maildir-shortcuts . (("/mail@oxapentane.com/INBOX" . "?i")
|
|
("/mail@oxapentane.com/Drafts" . "?d")
|
|
("/mail@oxapentane.com/Sent" . "?s")
|
|
("/mail@oxapentane.com/sinkhole" . "?S")))))))
|
|
|
|
(provide 'oxa/mail)
|