From 61c80674917752a236bd97e464117a8513ef7868 Mon Sep 17 00:00:00 2001 From: "Dirk-Jan C. Binnema" Date: Thu, 26 Oct 2023 18:34:07 +0300 Subject: [PATCH] mu4e-compose: add in-reply-to when needed Was missing. --- mu4e/mu4e-compose.el | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/mu4e/mu4e-compose.el b/mu4e/mu4e-compose.el index 75843ab4..1747f138 100644 --- a/mu4e/mu4e-compose.el +++ b/mu4e/mu4e-compose.el @@ -687,11 +687,15 @@ PARENT is the \"parent\" message; nil (with-temp-buffer ;; call the call message function; turn off the gnus crypto stuff; ;; we handle that ourselves below - (let ((message-required-mail-headers - '(From Subject Date (optional . In-Reply-To) - Message-ID - (optional . User-Agent) - (optional . Organization))) + (let* ((message-newsreader mu4e-user-agent-string) + (message-required-mail-headers + (seq-keep #'identity ;; ensure needed headers are generated. + `(From Subject Date Message-ID + ,(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)) ;; we handle it ourselves. (setq-local gnus-message-replysign nil