message: bcc setup

1 files changed, 14 insertions, 3 deletions

diff --git a/email.org b/email.org
index e67a855..ce4fc8a 100644
--- a/email.org
+++ b/email.org
@@ -69,13 +69,25 @@
             (concat
              "X-Attribution: jao\n"
              "X-Clacks-Overhead: GNU Terry Pratchett\n"
-             "X-URL: <http://jao.io/>\n")
+             "X-URL: <https://jao.io/>\n")
             message-hidden-headers
             '("^References:" "^Face:" "^X-Face:" "^X-Draft-From:")
             message-make-forward-subject-function 'message-forward-subject-fwd)
 
       (setq message-expand-name-standard-ui t)
     #+end_src
+*** Bcc
+    #+begin_src emacs-lisp
+      (defvar jao-message--bcc-rx (regexp-opt '("mail.io" "gnu.org")))
+
+      (defun jao-message-insert-bcc ()
+        (let ((f (or (message-fetch-field "From") "")))
+          (when (or (string-blank-p f) (string-match-p jao-message--bcc-rx f))
+            (insert "Bcc: trove@jao.io\n"))))
+
+      (add-hook 'message-header-setup-hook #'jao-message-insert-bcc)
+
+    #+end_src
 *** Encryption
     #+begin_src emacs-lisp
       ;; avoiding bogus warning
@@ -128,7 +140,7 @@
                       '("User-Agent" . address-mime)))
     #+end_src
 *** Attach image to message
-    Use ~C-c C-p~ in message-mode.
+    Use ~C-c C-p~ in message-mode, and ~C-c y~.
 *** Check attachment
     #+begin_src emacs-lisp
       (defvar jao-message-attachment-regexp "\\([Ww]e send\\|[Ii] send\\|attach\\)")
@@ -358,6 +370,5 @@
 * notmuch
   #+begin_src emacs-lisp
     (defvar jao-notmuch-enabled-p (eq jao-afio-mail-function 'notmuch))
-    (setq notmuch-address-command (if jao-notmuch-enabled-p 'internal 'as-is))
     (jao-load-org "notmuch")
   #+end_src