notmuch: arxiv emails don't have html in From anymore

1 files changed, 6 insertions, 8 deletions

diff --git a/custom/jao-custom-notmuch.el b/custom/jao-custom-notmuch.el
index 03d7e63..6f47364 100644
--- a/custom/jao-custom-notmuch.el
+++ b/custom/jao-custom-notmuch.el
@@ -357,17 +357,14 @@
 
 (defconst jao-mail-clean-rx
   (regexp-opt '("ElDiario.es - ElDiario.es: " "The Guardian: "
-                "The Conversation – Articles (UK): ")))
+                "The Conversation – Articles (UK): "
+                "gr-qc updates on arXiv.org: "
+                "quant-ph updates on arXiv.org: ")))
 
 (defun jao-mail-clean-address (args)
   (when-let ((address (car args)))
-    (list (if (string-match ".+ updates on arXiv.org: \\(.+\\)" address)
-              (with-temp-buffer
-                (insert (match-string 1 address))
-                (let ((shr-width 1000))
-                  (shr-render-region (point-min) (point-max)))
-                (replace-regexp-in-string "\"" "" (buffer-string)))
-            (replace-regexp-in-string jao-mail-clean-rx "" address)))))
+    (list (thread-last (replace-regexp-in-string jao-mail-clean-rx "" address)
+                       (replace-regexp-in-string "        " ", ")))))
 
 (use-package notmuch-show
   :init
@@ -619,6 +616,7 @@
 ;;; consult
 (jao-load-path "consult-notmuch")
 (require 'consult-notmuch)
+(setq consult-notmuch-newest-first t)
 (consult-customize consult-notmuch :preview-key 'any)
 
 (defvar jao-consult-notmuch-history nil)