aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2020-05-10 00:40:59 -0400
committerKyle Meyer <kyle@kyleam.com>2020-05-10 21:58:01 -0400
commit0b81766bb74f79dc87cfa53e081c6cd4787d94a2 (patch)
treec75642b7900cd75361facf02cecb69a806992824
parent6af1b2d12846f04d74366e3427310e2a9a32b524 (diff)
downloadpiem-0b81766bb74f79dc87cfa53e081c6cd4787d94a2.tar.gz
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.
-rw-r--r--piem-notmuch.el2
1 files changed, 1 insertions, 1 deletions
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"))))))