emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

mu4e-compose: handle message-cite-reply-position later 

Can't really repro the problem. Perhaps I don't have hidden heders?
Anyway, can't hurt to move it after that.

Fixes #2283.
This commit is contained in:
Dirk-Jan C. Binnema 2022-06-30 22:09:15 +03:00
parent 40517e8a1e
commit 99eb3bb674
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
mu4e/mu4e-compose.el
View File

@ -581,14 +581,6 @@ are optional."
(mu4e~compose-set-friendly-buffer-name compose-type)
;; now jump to some useful positions, and start writing that mail!
(if (member compose-type '(new forward))
(message-goto-to)
;; otherwise, it depends...
(pcase message-cite-reply-position
((or 'above 'traditional) (message-goto-body))
(_ (when (message-goto-signature) (forward-line -2)))))
;; bind to `mu4e-compose-parent-message' of compose buffer
(set (make-local-variable 'mu4e-compose-parent-message) original-msg)
(put 'mu4e-compose-parent-message 'permanent-local t)
@ -600,6 +592,15 @@ are optional."
(mu4e~compose-hide-headers)
;; switch on the mode
(mu4e-compose-mode)
;; now jump to some useful positions, and start writing that mail!
(if (member compose-type '(new forward))
(message-goto-to)
;; otherwise, it depends...
(pcase message-cite-reply-position
((or 'above 'traditional) (message-goto-body))
(_ (when (message-goto-signature) (forward-line -2)))))
;; don't allow undoing anything before this.
(setq buffer-undo-list nil)