From: Lars Ingebrigtsen Date: Mon, 13 Jun 2022 14:46:14 +0000 (+0200) Subject: Massage In-Reply-To data in message-mail X-Git-Tag: emacs-29.0.90~1910^2~32 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5faa0bfdda012d049ddfa24f119ca33e16b026a7;p=emacs.git Massage In-Reply-To data in message-mail * lisp/gnus/message.el (message-mail): Fix up Message-IDs from Firefox (bug#55926). --- diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 5936d29c9d1..6973d8a86b2 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -7017,7 +7017,15 @@ is a function used to switch to and display the mail buffer." ;; https://lists.gnu.org/r/emacs-devel/2011-01/msg00337.html ;; We need to convert any string input, eg from rmail-start-mail. (dolist (h other-headers other-headers) - (if (stringp (car h)) (setcar h (intern (capitalize (car h))))))) + (when (stringp (car h)) + (setcar h (intern (capitalize (car h))))) + ;; Firefox sends us In-Reply-To headers that are Message-IDs + ;; without <> around them. Fix that. + (when (and (eq (car h) 'In-Reply-To) + ;; Looks like a Message-ID. + (string-match-p "\\`[^ @]+@[^ @]+\\'" (cdr h)) + (not (string-match-p "\\`<.*>\\'" (cdr h)))) + (setcdr h (concat "<" (cdr h) ">"))))) yank-action send-actions continue switch-function return-action))))