notmuch: more address cleaning

1 files changed, 5 insertions, 1 deletions

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)