From 164110a45a1b4c2fe720426eae19a4cf0e763152 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sun, 30 Jan 2022 19:02:31 +0000
Subject: mail: notmuch has a better attachment checker

---
 email.org | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'email.org')

diff --git a/email.org b/email.org
index ba0ba05..cc28b73 100644
--- a/email.org
+++ b/email.org
@@ -1,12 +1,12 @@
 #+property: header-args:emacs-lisp :lexical t :tangle yes :comments yes :results silent :shebang ";; -*- lexical-binding: t; -*-" :tangle-mode (identity #o644)
 #+title: email handling (message mode, bbdb, gnus, notmuch)
 
-* personal emails
+* personal emails and others
   #+begin_src emacs-lisp
     (defvar jao-mails)
     (defvar jao-extra-mails)
-    (defvar jao-mails-regexp)
-    (setq jao-mails-regexp (regexp-opt jao-mails))
+    (defvar jao-mails-regexp (regexp-opt jao-mails))
+    (defvar jao-notmuch-enabled (eq jao-afio-mail-function 'notmuch))
   #+end_src
 * gnus
 *** directories
@@ -208,10 +208,11 @@
 *** Send mail hooks
     #+begin_src emacs-lisp
       (dolist (h '(jao-message-check-gcc
-                   jao-message-check-attachment
                    jao-message-check-recipient
                    jao-message-maybe-sign))
         (add-hook 'message-send-hook h))
+      (unless jao-notmuch-enabled
+        (add-hook 'message-send-hook #'jao-message-check-attachment))
     #+end_src
 *** Keybindings
     #+begin_src emacs-lisp
@@ -381,6 +382,5 @@
   #+end_src
 * notmuch
   #+begin_src emacs-lisp
-    (defvar jao-notmuch-enabled-p (eq jao-afio-mail-function 'notmuch))
     (jao-load-org "notmuch")
   #+end_src
-- 
cgit v1.2.3