diff options
author | rekado <rekado@elephly.net> | 2016-11-23 15:31:10 +0100 |
---|---|---|
committer | rekado <rekado@elephly.net> | 2016-11-23 15:32:31 +0100 |
commit | be1cb8db0d0ffb4db98589432e81ae4ee643ca2a (patch) | |
tree | 8de4a406dfd38f8a7203cd271530fb592c656360 /lisp/email.el | |
parent | 7452428d2bc34108f4f54d1905b3308e2f9700f6 (diff) |
email: Add checks for list email.
Diffstat (limited to 'lisp/email.el')
-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") |