summaryrefslogtreecommitdiffhomepage
path: root/custom
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2024-02-05 23:09:35 +0000
committerjao <jao@gnu.org>2024-02-05 23:09:35 +0000
commita0a34f6a95e1f2e124c5b9714283d9c3eb443f5f (patch)
treefe01839cf51eb587378e17de5fcbb0b54f828ac3 /custom
parent7c820c60987b81ce825733ea3cdb80ba25b61d8b (diff)
downloadelibs-a0a34f6a95e1f2e124c5b9714283d9c3eb443f5f.tar.gz
elibs-a0a34f6a95e1f2e124c5b9714283d9c3eb443f5f.tar.bz2
notmuch: arxiv emails don't have html in From anymore
Diffstat (limited to 'custom')
-rw-r--r--custom/jao-custom-notmuch.el14
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)