gnus: arxiv from's are nicers now

1 files 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)