diff options
| author | rekado <rekado@elephly.net> | 2016-11-23 22:43:51 +0100 |
|---|---|---|
| committer | rekado <rekado@elephly.net> | 2016-11-23 22:43:51 +0100 |
| commit | 925582a693e024d65dbfcca19985616bd0c5e39f (patch) | |
| tree | 4c56480b90dad09bfb952218fe64517331bab84f /lisp/email.el | |
| parent | f595dbc0b3f7160c0af10d38778ad3bf4633eb57 (diff) | |
email: Match emails sent *from* an address.
Diffstat (limited to 'lisp/email.el')
| -rw-r--r-- | lisp/email.el | 10 |
1 files changed, 9 insertions, 1 deletions
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 |