From 75add72b5ac7ccb7f97f5e270f878b4f9e56e4e6 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 14 Mar 2024 05:09:12 +0000
Subject: gnus: arxiv from's are nicers now

---
 custom/jao-custom-gnus.el | 19 +++----------------
 1 file changed, 3 insertions(+), 16 deletions(-)

diff --git a/custom/jao-custom-gnus.el b/custom/jao-custom-gnus.el
index b679b16..e8a5a15 100644
--- a/custom/jao-custom-gnus.el
+++ b/custom/jao-custom-gnus.el
@@ -377,12 +377,7 @@
   (let* ((from (gnus-header-from headers))
          (from (gnus-summary-extract-address-component from))
          (from (replace-regexp-in-string jao-gnus--news-rx "" from)))
-    (if (string-prefix-p "<a " from)
-        (with-temp-buffer
-          (insert from)
-          (let ((shr-width 100000)) (shr-render-buffer (current-buffer)))
-          (buffer-string))
-      from)))
+    from))
 
 (setq gnus-user-date-format-alist
       '(((gnus-seconds-today) . "%H:%M")
@@ -552,16 +547,8 @@
 (defun jao-gnus-format-from ()
   (save-excursion
     (goto-char (point-min))
-    (cond ((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)))
-                 (replace-string-in-region "\"" "" (- begin 1))))))
-          ((re-search-forward jao-gnus--from-rx nil t)
-           (replace-match "" nil nil nil 1)))))
+    (when (re-search-forward jao-gnus--from-rx nil t)
+      (replace-match "" nil nil nil 1))))
 
 (add-hook 'gnus-part-display-hook 'jao-gnus-format-from)
 
-- 
cgit v1.2.3