diff options
| author | jao <jao@gnu.org> | 2022-10-08 02:13:49 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-10-08 02:13:49 +0100 |
| commit | 23e0ce59dd3b52e13bc3358db33f5bf4cc28a921 (patch) | |
| tree | 181a63b4c7a0a2ede8bb35d1587508ae679b5f65 /custom/jao-custom-email.el | |
| parent | 160539d20bd7754fe7b10b2e215a3aa6b6ef12dc (diff) | |
| download | elibs-23e0ce59dd3b52e13bc3358db33f5bf4cc28a921.tar.gz elibs-23e0ce59dd3b52e13bc3358db33f5bf4cc28a921.tar.bz2 | |
mail tweaks
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) |