summaryrefslogtreecommitdiff
path: root/mailscripts.el
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2022-12-21 17:29:13 -0700
committerSean Whitton <spwhitton@spwhitton.name>2022-12-22 11:22:40 -0700
commit4d3999d85670a29315d67dafbf6385bbf5e5af7d (patch)
tree135c2230fc0728091f559dae0e99384566ed10df /mailscripts.el
parent7c84984d356f72f1a39d15def6b98fa6ad5b0f3c (diff)
downloadmailscripts-4d3999d85670a29315d67dafbf6385bbf5e5af7d.tar.gz
mailscripts.el: fix call to message-fetch-field
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'mailscripts.el')
-rw-r--r--mailscripts.el1
1 files changed, 1 insertions, 0 deletions
diff --git a/mailscripts.el b/mailscripts.el
index a7a8240..3d9183e 100644
--- a/mailscripts.el
+++ b/mailscripts.el
@@ -301,6 +301,7 @@ See also the interactive wrapper command `mailscripts-prepare-patch'."
(if (file-exists-p (car patches))
(with-temp-buffer
(insert-file-contents (car patches))
+ (message-narrow-to-headers-or-head)
(and-let* ((subject (message-fetch-field "subject")))
(if (cdr patches)
(and (string-match