diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2022-06-20 11:39:32 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2022-06-20 11:39:32 -0400 |
| commit | 67411fadab680b01d9027a3f4833ef8892377874 (patch) | |
| tree | 1798c0004cdafef4b9dbbd42ca48d08ac826b450 | |
| parent | ea520c174e9dca31abaf4def44bc8be0024ac93d (diff) | |
| download | piem-67411fadab680b01d9027a3f4833ef8892377874.tar.gz | |
gnus: Call message-field-value with lower case header
The case doesn't matter; use lower case for consistency with other
spots.
| -rw-r--r-- | piem-gnus.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/piem-gnus.el b/piem-gnus.el index 9662650..c62a2e6 100644 --- a/piem-gnus.el +++ b/piem-gnus.el @@ -48,7 +48,7 @@ "Return the message ID of a Gnus article." (when (derived-mode-p 'gnus-article-mode 'gnus-summary-mode) (with-current-buffer gnus-original-article-buffer - (when-let ((mid (message-field-value "Message-ID"))) + (when-let ((mid (message-field-value "message-id"))) (if (string-match (rx string-start (zero-or-more space) "<" (group (one-or-more (not (any ">")))) ">" (zero-or-more space) string-end) |