diff options
Diffstat (limited to 'custom/jao-custom-email.el')
-rw-r--r-- | custom/jao-custom-email.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/custom/jao-custom-email.el b/custom/jao-custom-email.el index e79e63d..a315c25 100644 --- a/custom/jao-custom-email.el +++ b/custom/jao-custom-email.el @@ -63,12 +63,14 @@ (,(regexp-quote "jao@gnu.org") . "hacking@jao.io"))) (defun jao-message-insert-bcc () - (let ((f (or (message-fetch-field "From") ""))) - (when-let (b (seq-some (lambda (x) (when (string-match-p (car x) f) (cdr x))) - jao-message--bcc-alist)) - (insert "Bcc: " b "\n")))) + (when jao-notmuch-enabled + (let ((f (or (message-fetch-field "From") ""))) + (when-let (b (seq-some (lambda (x) (when (string-match-p (car x) f) (cdr x))) + jao-message--bcc-alist)) + (insert "Bcc: " b "\n"))))) -(add-hook 'message-header-setup-hook #'jao-message-insert-bcc) +(when jao-notmuch-enabled + (add-hook 'message-header-setup-hook #'jao-message-insert-bcc)) ;;;; to->from (defvar jao-message-to-from nil) |