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

mu4e-compose: add in-reply-to when needed 

Was missing.
This commit is contained in:
Dirk-Jan C. Binnema 2023-10-26 18:34:07 +03:00
parent 69ad8a8dfb
commit 61c8067491
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
mu4e/mu4e-compose.el
View File

@ -687,11 +687,15 @@ PARENT is the \"parent\" message; nil
(with-temp-buffer (with-temp-buffer
;; call the call message function; turn off the gnus crypto stuff; ;; call the call message function; turn off the gnus crypto stuff;
;; we handle that ourselves below ;; we handle that ourselves below
(let ((message-required-mail-headers (let* ((message-newsreader mu4e-user-agent-string)
'(From Subject Date (optional . In-Reply-To) (message-required-mail-headers
Message-ID (seq-keep #'identity ;; ensure needed headers are generated.
(optional . User-Agent) `(From Subject Date Message-ID
(optional . Organization))) ,(when (eq mu4e-compose-type 'reply) 'In-Reply-To)
;; XXX vvv these two don't work. why not?
;; ,(when message-newsreader 'User-Agent)
;; ,(when message-user-organization 'Organization)
)))
(message-this-is-mail t)) (message-this-is-mail t))
;; we handle it ourselves. ;; we handle it ourselves.
(setq-local gnus-message-replysign nil (setq-local gnus-message-replysign nil