Compare commits
No commits in common. "80923f8a5eddccd39e830860609d1b5a77548fc1" and "503d3f126f45bcf6e8fa788b651735173cd071c9" have entirely different histories.
80923f8a5e
...
503d3f126f
51
config.org
51
config.org
|
@ -6270,7 +6270,8 @@ We can also use this a signature,
|
||||||
(setq message-signature mu4e-from-name)
|
(setq message-signature mu4e-from-name)
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
I've got a few extra addresses I'd like ~+mu4e-set-from-address-h~ to be aware of.
|
Lastly, I've got a few extra addresses I'd like ~+mu4e-set-from-address-h~ to be
|
||||||
|
aware of.
|
||||||
|
|
||||||
#+begin_src emacs-lisp
|
#+begin_src emacs-lisp
|
||||||
(defun +mu4e-update-personal-addresses ()
|
(defun +mu4e-update-personal-addresses ()
|
||||||
|
@ -6296,17 +6297,6 @@ I've got a few extra addresses I'd like ~+mu4e-set-from-address-h~ to be aware o
|
||||||
(+mu4e-update-personal-addresses))
|
(+mu4e-update-personal-addresses))
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
When composing an email, I think it would make more sense to start off in =insert=
|
|
||||||
mode than =normal= mode, which can be accomplished via a compose hook.
|
|
||||||
|
|
||||||
#+begin_src emacs-lisp
|
|
||||||
(defun +mu4e-evil-enter-insert-mode ()
|
|
||||||
(when (eq (bound-and-true-p evil-state) 'normal)
|
|
||||||
(call-interactively #'evil-append)))
|
|
||||||
|
|
||||||
(add-hook 'mu4e-compose-mode-hook #'+mu4e-evil-enter-insert-mode 90)
|
|
||||||
#+end_src
|
|
||||||
|
|
||||||
**** Working with the Org mailing list
|
**** Working with the Org mailing list
|
||||||
:PROPERTIES:
|
:PROPERTIES:
|
||||||
:header-args:emacs-lisp: :noweb-ref mu4e-conf
|
:header-args:emacs-lisp: :noweb-ref mu4e-conf
|
||||||
|
@ -6512,43 +6502,6 @@ to the archive to refer to an earlier email) I'd much rather look at it in mu4e.
|
||||||
(add-to-list 'browse-url-handlers (cons "^https?://list\\.orgmode\\.org/" #'+browse-url-orgmode-ml))
|
(add-to-list 'browse-url-handlers (cons "^https?://list\\.orgmode\\.org/" #'+browse-url-orgmode-ml))
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
***** Setup when composing a new email
|
|
||||||
|
|
||||||
Thanks to having a dedicated address for my interactions with the Org ML, and
|
|
||||||
Doom's ~+mu4e-set-from-address-h~, we can tell at the end of compose setup whether
|
|
||||||
I'm composing an email to the Org ML and then do a little setup for convenience,
|
|
||||||
namely:
|
|
||||||
+ Pre-fill the =To= address
|
|
||||||
+ Ensure that =org-msg= is set up to send plaintext only
|
|
||||||
+ Set ~default-directory~ to my local Org repository (where patch files are
|
|
||||||
generated)
|
|
||||||
+ Move ~(point)~ to the =Subject:= line
|
|
||||||
|
|
||||||
#+begin_src emacs-lisp
|
|
||||||
(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")
|
|
||||||
(when (and org-msg-mode
|
|
||||||
(re-search-forward "^:alternatives: (\\(utf-8 html\\))" nil t))
|
|
||||||
(replace-match "utf-8" t t nil 1))
|
|
||||||
(setq default-directory
|
|
||||||
(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))))
|
|
||||||
#+end_src
|
|
||||||
|
|
||||||
Now to make this take effect, we can just add it a bit later on in
|
|
||||||
~mu4e-compose-mode-hook~ (after ~org-msg-post-setup~) by setting a hook depth of 1.
|
|
||||||
|
|
||||||
#+begin_src emacs-lisp
|
|
||||||
(add-hook 'mu4e-compose-mode-hook #'+mu4e-compose-org-ml-setup 1)
|
|
||||||
#+end_src
|
|
||||||
|
|
||||||
*** Org Msg
|
*** Org Msg
|
||||||
|
|
||||||
Doom does a fantastic stuff with the defaults with this, so we only make a few
|
Doom does a fantastic stuff with the defaults with this, so we only make a few
|
||||||
|
|
Loading…
Reference in a new issue