From f9fffedbd76d2450abe68d832cd868afb9fccf48 Mon Sep 17 00:00:00 2001 From: jao Date: Thu, 29 Jul 2021 02:53:40 +0100 Subject: notmuch: more address cleaning --- notmuch.org | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'notmuch.org') diff --git a/notmuch.org b/notmuch.org index 20ddebc..1f92de7 100644 --- a/notmuch.org +++ b/notmuch.org @@ -180,6 +180,10 @@ (define-key message-mode-map (kbd "C-c C-d") #'notmuch-draft-postpone))) + (defconst jao-mail-clean-rx + (regexp-opt '("ElDiario.es - ElDiario.es: " "The Guardian: " + "The Conversation – Articles (UK): "))) + (defun jao-mail-clean-address (fun address) (let ((address (if (string-match ".+ updates on arXiv.org: \\(.+\\)" address) @@ -188,7 +192,7 @@ (let ((shr-width 1000)) (shr-render-region (point-min) (point-max))) (replace-regexp-in-string "\"" "" (buffer-string))) - (string-replace "ElDiario.es - ElDiario.es" "D" address)))) + (replace-regexp-in-string jao-mail-clean-rx "" address)))) (funcall fun address))) (advice-add 'notmuch-clean-address :around #'jao-mail-clean-address) -- cgit v1.2.3