diff options
Diffstat (limited to 'custom/jao-custom-notmuch.el')
-rw-r--r-- | custom/jao-custom-notmuch.el | 14 |
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) |