Add notmuch

init.el

@@ -444,6 +444,24 @@
   (:option finger-X.500-host-regexps '(".") ; only send username
            ))
 
+(setup notmuch
+  (:load-from "/usr/share/emacs/site-lisp/elpa-src/notmuch-0.31.4/")
+  (:require notmuch)
+  (:option notmuch-address-save-filename (.etc "notmuch/addresses" t)
+           notmuch-address-use-company (featurep 'company)
+           notmuch-fcc-dirs (list (cons chd/email (concat "\"" chd/sent-dir "\""
+                                                          " +sent +work -inbox"))
+                                  (cons ".*" "\"fastmail/Sent\" +sent +personal -inbox"))
+           notmuch-search-oldest-first nil)
+  ;; Composing mail
+  (:option message-kill-buffer-on-exit t)
+  ;; Sending mail
+  (:option send-mail-function #'sendmail-send-it
+           sendmail-program (executable-find "msmtp")
+           mail-specify-envelope-from t
+           message-sendmail-envelope-from 'header
+           mail-envelope-from 'header))
+
 (setup org
   ;; Plain org with the `setup' form for sorting, but I install with straight.
   (:straight (org