tec/emacs-config
tec
/
emacs-config
1
0
Fork 0
Code Issues 4 Pull Requests Releases Activity

mail: only set "To" to org ML when "To" unset 

Oh, and refactor the position modification.
This commit is contained in:
TEC 2022-10-02 22:38:49 +08:00
parent 6b204fd097
commit 3f3ae42923
Signed by: tec
SSH Key Fingerprint: SHA256:eobz41Mnm0/iYWBvWThftS0ElEs1ftBr6jamutnXc/A
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
config.org
View File

@ -6878,8 +6878,12 @@ namely:
(defun +mu4e-compose-org-ml-setup ()
(when (string-match-p "\\`orgmode@" user-mail-address)
(goto-char (point-min))
(re-search-forward "^To: .*$")
(replace-match "To: emacs-orgmode@gnu.org")
(save-restriction
(mail-narrow-to-head)
(when (string-empty-p (mail-fetch-field "to"))
(re-search-forward "^To: .*$")
(replace-match "To: emacs-orgmode@gnu.org")
(advice-add 'message-goto-to :after #'+mu4e-goto-subject-not-to-once)))
(when (and org-msg-mode
(re-search-forward "^:alternatives: (\\(utf-8 html\\))" nil t))
(replace-match "utf-8" t t nil 1))
@ -6887,9 +6891,11 @@ namely:
(replace-regexp-in-string
(regexp-quote straight-build-dir)
"repos"
(file-name-directory (locate-library "org"))))
(add-transient-hook! 'message-goto-to
:after (message-goto-subject))))
(file-name-directory (locate-library "org"))))))
(defun +mu4e-goto-subject-not-to-once ()
(message-goto-subject)
(advice-remove 'message-goto-to #'+mu4e-goto-subject-not-to-once))
#+end_src
Now to make this take effect, we can just add it a bit later on in