diff options
author | Nicolas Graner <nicolas@graner.name> | 2022-11-03 22:49:43 +0100 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2022-11-05 14:01:19 +0200 |
commit | e275dd289437547414b22cda3227305fb6a85854 (patch) | |
tree | 677eb204878bb7882cc12aa504d4cbddbab53062 /lisp/gnus/message.el | |
parent | ae7dcba6c5d9c2c19f4ee67793e164af3723f69f (diff) | |
download | emacs-e275dd289437547414b22cda3227305fb6a85854.tar.gz |
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)
Diffstat (limited to 'lisp/gnus/message.el')
-rw-r--r-- | lisp/gnus/message.el | 1 |
1 files changed, 1 insertions, 0 deletions
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)))) |