diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2020-05-10 00:40:59 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2020-05-10 21:58:01 -0400 |
| commit | 0b81766bb74f79dc87cfa53e081c6cd4787d94a2 (patch) | |
| tree | c75642b7900cd75361facf02cecb69a806992824 | |
| parent | 6af1b2d12846f04d74366e3427310e2a9a32b524 (diff) | |
| download | piem-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.el | 2 |
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")))))) |