From 9cab1ae751bfddb2a050aa9dd5f7da857bd37f26 Mon Sep 17 00:00:00 2001
From: "Dirk-Jan C. Binnema" <djcb@djcbsoftware.nl>
Date: Sat, 5 Dec 2020 11:40:54 +0200
Subject: [PATCH] mu4e-compose: restrict to headers in before-save-hook-fn

Follow up to issue #1846.
---
 mu4e/mu4e-compose.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/mu4e/mu4e-compose.el b/mu4e/mu4e-compose.el
index 1a3b0286..200eee2d 100644
--- a/mu4e/mu4e-compose.el
+++ b/mu4e/mu4e-compose.el
@@ -361,10 +361,12 @@ Message-ID."
             nil t))
 
 (defun mu4e~compose-before-save-hook-fn ()
-  ;; replace the date
+  "Add the message-id if necessary and update the date."
   (save-excursion
-    (unless (message-fetch-field "Message-ID")
-      (message-generate-headers '(Date Message-ID)))
+    (save-restriction
+      (message-narrow-to-headers)
+      (unless (message-fetch-field "Message-ID")
+        (message-generate-headers '(Date Message-ID))))
     (save-match-data
       (mu4e~draft-remove-mail-header-separator))))