diff options
Diffstat (limited to 'notmuch.org')
| -rw-r--r-- | notmuch.org | 6 |
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) |