Further configure notmuch

Until now my notmuch is usable but not almost always pleasurably so. For
example, when I reply to messages, notmuch warns that "Insert failed:"; when I
check Gmail, the reply sent... strange. After consulting with a fellow notmuch
user and Emacs disciple, tazjin@, I borrowed some of his notmuch configuration.

- notmuch is no longer warning about replies
- Replies do not include noisy email signatures
- I have an Emacs User-Agent header in my outgoing mail
- All of this and more...
This commit is contained in:
William Carroll 2020-02-18 11:03:20 +00:00
parent 6f179afd49
commit 993f7c9389

View file

@ -31,6 +31,38 @@
;; Sort results from newest-to-oldest. ;; Sort results from newest-to-oldest.
(setq notmuch-search-oldest-first nil) (setq notmuch-search-oldest-first nil)
;; Discard noisy email signatures.
(setq notmuch-mua-cite-function #'message-cite-original-without-signature)
;; By default, this is just '("-inbox")
(setq notmuch-archive-tags '("-inbox" "-unread" "+archive"))
;; Show saved searches even when they're empty.
(setq notmuch-show-empty-saved-searches t)
;; Currently the sendmail executable on my system is symlinked to msmtp.
(setq send-mail-function #'sendmail-send-it)
;; I'm not sure if I need this or not. Copying it from tazjin@'s monorepo.
(setq notmuch-always-prompt-for-sender nil)
;; Add the "User-Agent" header to my emails and ensure that it includes Emacs
;; and notmuch information.
(setq notmuch-mua-user-agent-function
(lambda ()
(format "Emacs %s; notmuch.el %s" emacs-version notmuch-emacs-version)))
;; I was informed that Gmail does this server-side
(setq notmuch-fcc-dirs nil)
;; Ensure buffers are closed after sending mail.
(setq message-kill-buffer-on-exit t)
;; Ensure sender is correctly passed to msmtp.
(setq mail-specify-envelope-from t
message-sendmail-envelope-from 'header
mail-envelope-from 'header)
;; Assert that no two saved searches share share a KBD ;; Assert that no two saved searches share share a KBD
(prelude/assert (prelude/assert
(list/xs-distinct-by? (lambda (x) (plist-get x :key)) notmuch-saved-searches)) (list/xs-distinct-by? (lambda (x) (plist-get x :key)) notmuch-saved-searches))