From 92e93932aba504c5703f2e0a68c1e8c753be8324 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Mon, 18 Jul 2022 02:40:59 +0100
Subject: gnus: "from:" html washing back

---
 custom/jao-custom-gnus.el | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

(limited to 'custom/jao-custom-gnus.el')

diff --git a/custom/jao-custom-gnus.el b/custom/jao-custom-gnus.el
index 31dc806..cc8de92 100644
--- a/custom/jao-custom-gnus.el
+++ b/custom/jao-custom-gnus.el
@@ -639,6 +639,26 @@
           (gnus-article-show-images)
         (gnus-article-remove-images)))))
 
+;;;; remove html in From:
+(require 'shr)
+(defvar jao-gnus--from-rx
+  (concat "From: \\\"?\\(  " jao-gnus--news-rx "\\)"))
+
+(defun jao-gnus-remove-anchors ()
+  (save-excursion
+    (goto-char (point-min))
+    (cond ((re-search-forward jao-gnus--from-rx nil t)
+           (replace-match "" nil nil nil 1))
+          ((re-search-forward "[gq].+ updates on arXiv.org: " nil t)
+           (replace-match "")
+           (let ((begin (point)))
+             (when (re-search-forward "^\\(To\\|Subject\\):" nil t)
+               (beginning-of-line)
+               (let ((shr-width 10000))
+                 (shr-render-region begin (1- (point))))))))))
+
+(add-hook 'gnus-part-display-hook 'jao-gnus-remove-anchors)
+
 ;;;; follow links and enclosures
 (defun jao-gnus-follow-link (&optional external)
   (interactive "P")
-- 
cgit v1.2.3