49 lines
2.3 KiB
EmacsLisp
49 lines
2.3 KiB
EmacsLisp
(setq mail-user-agent 'notmuch-user-agent
|
|
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
|
|
notmuch-search-oldest-first nil
|
|
notmuch-show-logo nil
|
|
notmuch-hello-thousands-separator ","
|
|
notmuch-archive-tags '("-inbox" "+archive")
|
|
notmuch-message-headers-visible nil
|
|
notmuch-multipart/alternative-discouraged '("text/plain" "multipart/related")
|
|
notmuch-show-all-multipart/alternative-parts nil
|
|
notmuch-hello-sections '(notmuch-hello-insert-header
|
|
notmuch-hello-insert-saved-searches
|
|
notmuch-hello-insert-inbox
|
|
notmuch-hello-insert-alltags)
|
|
notmuch-fcc-dirs '((".*@xenia.me.uk" . "Proton/Sent")
|
|
(".*@proton.me" . "Proton/Sent")
|
|
(".*@litherlandsmith.slmail.me" . "Proton/Sent")
|
|
(".*@icloud.com" . "iCloud/Sent")
|
|
(".*@ukaea.uk" . "Outlook/Sent")
|
|
(".*@jet.uk" . "Outlook/Sent"))
|
|
notmuch-saved-searches '((:name "inbox" :query "tag:inbox" :key "i")
|
|
(:name "unread" :query "tag:unread AND tag:inbox" :key "u")
|
|
(:name "flagged" :query "tag:flagged" :key "f")
|
|
(:name "sent" :query "tag:sent" :key "t")
|
|
(:name "drafts" :query "tag:draft" :key "d")
|
|
(:name "all mail" :query "*" :key "a"))
|
|
notmuch-indicator-args '((:terms "tag:unread AND tag:inbox" :label " "))
|
|
notmuch-indicator-force-refresh-commands '(notmuch-refresh-this-buffer
|
|
notmuch-refresh-all-buffers
|
|
notmuch-poll-and-refresh-this-buffer))
|
|
|
|
(when (require 'notmuch nil :noerror)
|
|
(require 'notmuch-indicator)
|
|
(notmuch-indicator-mode +1)
|
|
(when (require 'hydra nil :noerror)
|
|
(defhydra email (global-map "C-c m")
|
|
"email"
|
|
("m" notmuch)
|
|
("c" notmuch-mua-new-mail)
|
|
("s" notmuch-search)
|
|
("i" (notmuch-search "is:inbox"))
|
|
("u" (notmuch-search "is:unread AND is:inbox")))))
|
|
|
|
(provide 'custom-email-config)
|