diff options
| author | Dirk-Jan C. Binnema <djcb@djcbsoftware.nl> | 2022-06-30 22:09:15 +0300 |
|---|---|---|
| committer | Dirk-Jan C. Binnema <djcb@djcbsoftware.nl> | 2022-07-01 08:31:00 +0300 |
| commit | 99eb3bb67472f21ed0d0031fd15d1a69cd1a7e9f (patch) | |
| tree | 04e8c76457929411a9f052297e866f471a9fe3fa | |
| parent | 40517e8a1ea451565e9e81ce57ede0fee674fecd (diff) | |
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.
| -rw-r--r-- | mu4e/mu4e-compose.el | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/mu4e/mu4e-compose.el b/mu4e/mu4e-compose.el index 6cc1c29..eb9647b 100644 --- a/mu4e/mu4e-compose.el +++ b/mu4e/mu4e-compose.el @@ -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) |