From 59a7ad95c0150094faaf5284781031a360a31a99 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 4 Jun 2022 19:06:53 +0100 Subject: better message-dont-reply-to-names integration --- email.org | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'email.org') diff --git a/email.org b/email.org index 5010fed..e8a8a71 100644 --- a/email.org +++ b/email.org @@ -91,15 +91,18 @@ (add-hook 'message-header-setup-hook #'jao-message-adjust-from)) #+end_src *** Clean up reply addresses - #+begin_src emacs-lisp - (defun jao-message--dont-reply (mail) - (unless (string-match-p message-dont-reply-to-names mail) mail)) + #+begin_src emacs-lisp :tangle no + (defun jao-message--dont-reply () + (let ((x (message-dont-reply-to-names))) + (if (functionp x) + x + (lambda (mail) (unless (string-match-p x mail) mail))))) (defun jao-message-strip-replies () (dolist (header '("To" "Cc")) (when-let ((v (message-fetch-field header))) (let* ((v (message-tokenize-header v)) - (vs (delq nil (mapcar #'jao-message--dont-reply v))) + (vs (delq nil (mapcar (jao-message--dont-reply) v))) (v (when vs (mapconcat #'string-trim vs ", ")))) (message-replace-header header v))))) -- cgit v1.2.3