diff options
| author | jao <jao@gnu.org> | 2022-01-11 01:18:19 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-01-11 01:18:19 +0000 |
| commit | 2df214b91c87f120e42b1d1eb253bfdadc4230b3 (patch) | |
| tree | 2b7564f054280c414a1e5f61430aae1fd8bcd461 | |
| parent | e110f33f1756a7090ca36f3f5505f790c13d9379 (diff) | |
| download | elibs-2df214b91c87f120e42b1d1eb253bfdadc4230b3.tar.gz elibs-2df214b91c87f120e42b1d1eb253bfdadc4230b3.tar.bz2 | |
message: bcc setup
| -rw-r--r-- | email.org | 17 | ||||
| -rw-r--r-- | notmuch.org | 1 |
2 files changed, 15 insertions, 3 deletions
@@ -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 diff --git a/notmuch.org b/notmuch.org index 88f1b42..c2d8d32 100644 --- a/notmuch.org +++ b/notmuch.org @@ -193,6 +193,7 @@ :init :custom ((notmuch-address-use-company nil) + (notmuch-addres-command (if jao-notmuch-enabled-p 'internal 'as-is)) (notmuch-draft-folder "drafts") (notmuch-draft-quoted-tags '("part")) (notmuch-address-internal-completion '(received nil)) |