From 0b81766bb74f79dc87cfa53e081c6cd4787d94a2 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sun, 10 May 2020 00:40:59 -0400 Subject: notmuch: Use more specific message-narrow-to-* variant message-narrow-to-headers-or-head will narrow to the message headers based on hitting two consecutive new lines or based on a match for mail-header-separator (by default "--text follows this line--"). Only the former condition is relevant in the context of a non-draft message, so use message-narrow-to-headers, which doesn't consider mail-header-separator. --- piem-notmuch.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/piem-notmuch.el b/piem-notmuch.el index 6ef6cdb..ed5bd4b 100644 --- a/piem-notmuch.el +++ b/piem-notmuch.el @@ -52,7 +52,7 @@ (pcase-let ((`(,listid ,to ,cc) (when (derived-mode-p 'notmuch-show-mode) (piem-notmuch--with-current-message - (message-narrow-to-headers-or-head) + (message-narrow-to-headers) (list (message-fetch-field "list-id") (message-fetch-field "to") (message-fetch-field "cc")))))) -- cgit v1.2.3