From 925582a693e024d65dbfcca19985616bd0c5e39f Mon Sep 17 00:00:00 2001 From: rekado Date: Wed, 23 Nov 2016 22:43:51 +0100 Subject: email: Match emails sent *from* an address. --- lisp/email.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'lisp/email.el') diff --git a/lisp/email.el b/lisp/email.el index 1ca3536..16ed547 100644 --- a/lisp/email.el +++ b/lisp/email.el @@ -153,6 +153,8 @@ (when msg (or (mu4e-message-contact-field-matches msg :to (rot13 "erxnqb@ryrcuyl.arg")) + (mu4e-message-contact-field-matches + msg :from (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 @@ -178,7 +180,11 @@ http://elephly.net"))) (or (mu4e-message-contact-field-matches msg :to (rot13 "erxnqb@sunva.pbqreqbwb.oreyva")) (mu4e-message-contact-field-matches - msg :to (rot13 "uryyb@sunva.pbqreqbwb.oreyva"))))) + msg :from (rot13 "erxnqb@sunva.pbqreqbwb.oreyva")) + (mu4e-message-contact-field-matches + msg :to (rot13 "uryyb@sunva.pbqreqbwb.oreyva")) + (mu4e-message-contact-field-matches + msg :from (rot13 "uryyb@sunva.pbqreqbwb.oreyva"))))) :vars `((user-mail-address . ,(rot13 "erxnqb@sunva.pbqreqbwb.oreyva")) (user-full-name . ,(rot13 "Evpneqb Jhezhf")) (mu4e-sent-folder . "/fhaindojo/Sent") @@ -198,6 +204,8 @@ http://elephly.net"))) (when msg (or (mu4e-message-contact-field-matches msg :to (rot13 "evpneqb.jhezhf@zqp-oreyva.qr")) + (mu4e-message-contact-field-matches + msg :from (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 -- cgit v1.2.3