From: Nicolas Graner <nicolas@graner.name>
Date: Thu, 3 Nov 2022 21:49:43 +0000 (+0100)
Subject: Avoid error when forwarding messages from Rmail
X-Git-Tag: emacs-29.0.90~1616^2~287
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e275dd289437547414b22cda3227305fb6a85854;p=emacs.git

Avoid error when forwarding messages from Rmail

* lisp/gnus/message.el (message-mail): Verify that In-Reply-To has
a string value before matching it with a regexp.  (Bug#59007)
---

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 24cba97718a..3bbd68bdcd7 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -7034,6 +7034,7 @@ is a function used to switch to and display the mail buffer."
           ;; Firefox sends us In-Reply-To headers that are Message-IDs
           ;; without <> around them.  Fix that.
           (when (and (eq (car h) 'In-Reply-To)
+                     (stringp (cdr h))
                      ;; Looks like a Message-ID.
                      (string-match-p "\\`[^ @]+@[^ @]+\\'" (cdr h))
                      (not (string-match-p "\\`<.*>\\'" (cdr h))))