diff options
-rw-r--r-- | lisp/email.el | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/lisp/email.el b/lisp/email.el index 5ba82af..735588b 100644 --- a/lisp/email.el +++ b/lisp/email.el @@ -146,7 +146,12 @@ :match-func (lambda (msg) (when msg (or (mu4e-message-contact-field-matches - msg :to (rot13 "erxnqb@ryrcuyl.arg"))))) + msg :to (rot13 "erxnqb@ryrcuyl.arg")) + ;; Additional check if this is a mailing list email. + (and (mu4e-message-field msg :mailing-list) + (zerop (call-process "grep" nil nil nil + "-E" "^Delivered-To: .*elephly.net" + (mu4e-message-field msg :path))))))) :vars `((user-mail-address . ,(rot13 "erxnqb@ryrcuyl.arg")) (user-full-name . ,(rot13 "Evpneqb Jhezhf")) (mu4e-sent-folder . "/private/Sent") @@ -186,7 +191,12 @@ http://elephly.net"))) :match-func (lambda (msg) (when msg (or (mu4e-message-contact-field-matches - msg :to (rot13 "evpneqb.jhezhf@zqp-oreyva.qr"))))) + msg :to (rot13 "evpneqb.jhezhf@zqp-oreyva.qr")) + ;; Additional check if this is a mailing list email. + (and (mu4e-message-field msg :mailing-list) + (zerop (call-process "grep" nil nil nil + "-E" "^Received: from .*mdc-berlin.de" + (mu4e-message-field msg :path))))))) :vars `((user-mail-address . ,(rot13 "evpneqb.jhezhf@zqp-oreyva.qr")) (user-full-name . ,(rot13 "Evpneqb Jhezhf")) (mu4e-sent-folder . "/mdc-personal/Sent Items") |