martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Massage In-Reply-To data in message-mail

Browse Source 
* lisp/gnus/message.el (message-mail): Fix up Message-IDs from
Firefox (bug#55926).
This commit is contained in:
Lars Ingebrigtsen
2022-06-13 16:46:14 +02:00
parent 5f5617727d
commit 5faa0bfdda
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/gnus/message.el
View File

@@ -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))))