summaryrefslogtreecommitdiffhomepage
path: root/custom/jao-custom-notmuch.el
diff options
context:
space:
mode:
Diffstat (limited to 'custom/jao-custom-notmuch.el')
-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)