From 1372c6101c5d4fd403d8275510b4f41b4484955d Mon Sep 17 00:00:00 2001 From: Andrew G Cohen Date: Thu, 9 May 2024 16:44:21 +0800 Subject: [PATCH] ; Provide documentation example for gnus-alter-header-function * doc/misc/gnus.texi (Low-Level Threading): Provide an example of using gnus-alter-header-function to remove unwanted items in References header. (cherry picked from commit 1b8613063cf6a3b9a1f484e1179877e36ba4b5e0) --- doc/misc/gnus.texi | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi index 8aa7f855aea..c5e4c885ccf 100644 --- a/doc/misc/gnus.texi +++ b/doc/misc/gnus.texi @@ -7423,6 +7423,22 @@ meaningful. Here's one example: header)))) @end lisp +And another example: the protonmail bridge adds fake message-ids to +@code{References} in message headers, which can confuse threading. To +remove these spurious ids + +@lisp +(setq gnus-alter-header-function 'fix-protonmail-references) + +(defun fix-protonmail-references (header) + (setf (mail-header-references header) + (mapconcat + #'(lambda (x) (if (string-search "protonmail.internalid" x) "" x)) + (gnus-split-references (mail-header-references header)) " ")) + header) + + @end lisp + @end table -- 2.39.5