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:
parent
6f179afd49
commit
993f7c9389
1 changed files with 32 additions and 0 deletions
|
@ -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))
|
||||||
|
|
Loading…
Reference in a new issue