From 67411fadab680b01d9027a3f4833ef8892377874 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Mon, 20 Jun 2022 11:39:32 -0400 Subject: gnus: Call message-field-value with lower case header The case doesn't matter; use lower case for consistency with other spots. --- piem-gnus.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- cgit v1.2.3