alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mu4e-draft: fix mu4e-compose-pre-hook

Browse Source 
Run the hook earlier, and ensure mu4e-compose-type &
mu4e-compose-parent-message are set.

As noted in #2715.
This commit is contained in:
Dirk-Jan C. Binnema
2024-06-17 22:00:03 +03:00
parent e6fd83d00d
commit 67ea98e36e
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
mu4e/mu4e-draft.el
View File

@ -560,8 +560,7 @@ This is mu4e's version of `message-hidden-headers'.")
"Get ready for message composition. "Get ready for message composition.
PARENT is the parent message, if any." PARENT is the parent message, if any."
(unless (mu4e-running-p) (mu4e 'background)) ;; start if needed (unless (mu4e-running-p) (mu4e 'background)) ;; start if needed
(mu4e--context-autoswitch parent mu4e-compose-context-policy) (mu4e--context-autoswitch parent mu4e-compose-context-policy))
(run-hooks 'mu4e-compose-pre-hook))
(defun mu4e--prepare-draft-headers (compose-type) (defun mu4e--prepare-draft-headers (compose-type)
"Add extra headers for message based on COMPOSE-TYPE." "Add extra headers for message based on COMPOSE-TYPE."
@ -709,6 +708,11 @@ it must be nil.
After this, user is presented with a message composition buffer. After this, user is presented with a message composition buffer.
Returns the new buffer." Returns the new buffer."
;; run pre-hook early, so user can influence later steps.
(let ((mu4e-compose-parent-message parent)
(mu4e-compose-type compose-type))
(run-hooks 'mu4e-compose-pre-hook))
(mu4e--prepare-draft parent) (mu4e--prepare-draft parent)
;; evaluate BODY; this must yield a hidden, live buffer. This is evaluated in ;; evaluate BODY; this must yield a hidden, live buffer. This is evaluated in
;; a temp buffer with contains the parent-message, if any. if there's a ;; a temp buffer with contains the parent-message, if any. if there's a