diff options
Diffstat (limited to 'pigeonhole/examples/mjohnson.sieve')
| -rw-r--r-- | pigeonhole/examples/mjohnson.sieve | 421 |
1 files changed, 421 insertions, 0 deletions
diff --git a/pigeonhole/examples/mjohnson.sieve b/pigeonhole/examples/mjohnson.sieve new file mode 100644 index 0000000..802ecd8 --- /dev/null +++ b/pigeonhole/examples/mjohnson.sieve @@ -0,0 +1,421 @@ +# Example Sieve Script +# Author: Matthew Johnson +# URL: http://wiki.fastmail.fm/index.php?title=MatthewJohnson + +########################################################################## +####### SIEVE SCRIPT by Matthew Johnson - MRJ Solutions, Inc. ########### +####### Email me at mailto:mattjohnson2005@gmail.com ## +####### Code Version: 12JUN2004 ########### +########################################################################## +require ["envelope", "fileinto", "reject", "vacation", "regex", "relational", + "comparator-i;ascii-numeric"]; +# +# todo: +# change to a nested format with +# allof()s and nots. +# add "in address book" check. ex:"header :is :comparator "i;octet" "X-Spam-Known-Sender" "yes"" +# finish reformating lines to <= 75 col (for web edit box) +# and delete rulers. +# Mine Michael Klose script for ideas. +# Check out the update to the Sieve pages on the Fastmail Wiki. +# + +#---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+ +require ["envelope", "fileinto", "reject", "vacation", "regex", + "relational", "comparator-i;ascii-numeric"]; + + + +# BLACKLIST - Mails to discard, drop on the floor. +# -high spam values except those delivered to me +# -Chinese content except for low spam values +# -virus rejected notifications +# -known spam addresses +# -newsletters that refuse my removal requests +# -twit-list +# -double twit-list +# -other + + +#---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+ +if anyof + ( + allof # combo test one - high spam values except for mail to/from me + ( + # spam score is greater or equal to 14 + header :value "ge" :comparator "i;ascii-numeric" + ["X-Spam-score"] ["14"], + not header :contains "X-Spam-Score" "-", + not header :contains "X-Spam-Score" "0.0", + not header :contains ["to","from","cc","bcc","received"] + [ + # do not discard email to me, will file or discard + # as spam later if needed + "matt@zeta.net", + "matthew@bigsc.com", + "matthew_johnson@bigsmallcompany.com", + "mmm@spend.com", + "finger@spend.com", + "myyaacct@yahoo.com" + ] + ), # end allof + allof #combo test two - chinese content except for low spam values + ( + anyof + ( + header :regex "Subject" "^=\\?(gb|GB)2312\\?", # Chinese ecoding at subject + header :regex "Subject" "^=\\?big5\\?", # Other kind of Chinese mail + + # Chinese content type + header :contains "Content-Type" + [ + "GB2312", + "big5" + ] + ), #end anyof + not anyof + ( + #We have to check the sign and the value separately: ascii-numeric, defined at + #header :contains "X-Spam-Score" "-", + header :value "lt" :comparator "i;ascii-numeric" "X-Spam-Score" "3" + ) #end not anyof + ), # end allof - test two + + # single tests + + # discard fastmail virus notifications + header :is ["subject"] ["Infected file rejected"], + + # black list, invalid addresses receiving a large amount of spam + # or spam bounces,rejected zeta.net accounts. + header :contains ["X-Delivered-to"] + + ["eagleeye@zeta.net","ealgeeye@zeta.net", + "alica.thiele@zeta.net", "2005@theta.com", + "jimlovingu2@zeta.net", + "alpha@zeta.net", + "JoshuaS@zeta.net", + "donnaf@zeta.net", + "pspinks@zeta.net", + "jsherman@zeta.net", + "holly@zeta.net", + "clabarca@zeta.net", + "meghanr@zeta.net", + "rtaylor@zeta.net", + "lboone@zeta.net", + "brower@zeta.net", + "jenj@zeta.net", + "cbackus@zeta.net", + "spengles@zeta.net", + "adams@zeta.net", + "dsmith@zeta.net", + "jwilderman@zeta.net", + "TimF@zeta.net", + "zd@zeta.net", + "louise@zeta.net"] + + # single 'not' tests + # ---out for testing--- not header :is :comparator "i;octet" "X-Spam-Known-Sender" "yes" + ) # end anyof() +{ + discard; + stop; +} + + +# +# WHITELIST - Keep these mails and put them in the inbox +# (some kept getting put in Junk Mail) +# Family, Friends, Current Vendors, Customers +# Contents of fastmail address book. +# +#---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+ +if anyof ( header :contains ["from","to","cc","bcc"] + [ "notification@eBay.com", + "MAILER-DAEMON@zeta.net", + "USPS_Track_Confirm@usps.com", + "credit.services@target.com", + "Comcast_Paydirect@comcast.net", + "mary@zeta.net", + "betty@zeta.net", + "andmanymore@zeta.net" + ], + header :is :comparator "i;octet" "X-Spam-Known-Sender" "yes" + ) +{ + fileinto "INBOX"; + stop; +} + +# redirects +if header :contains ["to", "cc"] "mary1@zeta.net" + { + redirect "mary@zeta.net"; + stop; + } + + +# +# +Spam filtering by score on 3, 5 and 14(above). +# +# +if header :value "ge" :comparator "i;ascii-numeric" ["X-Spam-score"] ["5"] { + fileinto "INBOX.Junk Mail.ge5"; + stop; +#---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+ +} elsif header :value "ge" :comparator "i;ascii-numeric" ["X-Spam-score"] ["3"] { + fileinto "INBOX.Junk Mail.ge3"; + stop; +} + + +# Potential Blacklist, start with soft discard, then migrate to full discard above +# +# Blacklist (2nd) During testing, throw into "Junk Mail.discard" until +# ready to discard. +# +if anyof + ( + # rejects for accounts across all domains + header :contains ["X-Delivered-to"] + [ + "drjoe@","VX@", + "alfa@zeta.net", + "media@zeta.net", + "zeta@zeta.net", + "xyz@zeta.net" + ], + + # other criteria - weird message from this account + header :contains ["from"] ["Charlie Root"], + # mailers that are always sending spam returns to me + header :contains ["from"] ["MAILER-DAEMON@aol.com"] , + header :contains ["from"] ["MAILER-DAEMON@otenet.gr"] , + + # common account names that I don't use in any of my domains and that spammers like + header :contains ["X-Delivered-to"] + [ "biz@","sales@","support@", "service@", "reg@", + "registration@", "regisration@", "root@", "webmaster@", "noreply@" + ], + # zeta.net common account names to reject + header :contains ["X-Delivered-to"] ["info@zeta.net"], + # bigsc.com rejects + header :contains ["X-Delivered-to"] ["info@bigsc.com"], + # theta.com rejects + header :contains ["X-Delivered-to"] ["info@theta.com"], + header :contains ["X-Delivered-to"] ["reg@theta.com"] +#---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+ + # saves for use maybe later + # header :contains ["X-Delivered-to"] ["webmaster@zeta.net"], + # header :contains ["X-Delivered-to"] ["webmaster@theta.com"], + # header :contains ["X-Delivered-to"] ["sales@bs.com"], + # header :contains ["X-Delivered-to"] ["sales@theta.com"], + # header :contains ["X-Delivered-to"] ["sales@bigsc.com"], + # header :contains ["X-Delivered-to"] "root@zeta.net", + + ) #end anyof() 2nd blacklist +{ + + fileinto "INBOX.Junk Mail.discard"; + stop; +} + + +# +Greylist, move to "INBOX.Junk Mail.greylist" +# +# 'Soft' Blacklist ?Greylist? +# + +#annoying person(s) that send questionable attachments +# look at occationally +if header :contains "from" "alex@yahoo.com" +{ + fileinto "INBOX.Junk Mail.greylist"; +} elsif header :contains "subject" "MAILER-DAEMON@fastmail.fm" + # non-person, but might + # want to look at it while + # figuring issues +{ + fileinto "INBOX.Junk Mail.greylist"; + stop; +} + +# +Spammy domains to filter +# +# domains that are known to be present in spam +# +if header :contains ["from", "received"] [".ru",".jp", ".kr", ".pt", + ".pl",".at",".cz",".cn",".lu" ] +{ + fileinto "INBOX.Junk Mail.discard"; + stop; +} + + +# +# Annoying newsletters that won't unsubscribe me, reject +# + +if anyof ( + #annoying newsletters + header :contains ["from"] "VistaPrintNews", # 2003 + header :contains ["from"] "newsletter@briantracyintl.com", # 2003 + header :contains ["from"] "info@yogalist.com", # 2003 + header :contains ["from"] "The Angela Larson Real Estate Team", + header :contains ["from"] "Brian Tracy" + ) +#---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+ +{ + reject "I HAVE TRIED TO UNSUBSCRIBE; I DO NOT WANT YOUR NEWSLETTER; PLEASE UNSUBSCRIBE ME"; + stop; +} + + + + +# +# Suspected zeta.net user from/to Zeta Institute, NY - reject +# +# +# +if header :contains ["X-Delivered-to","from"] + [ + # aaaaNEW_ENTRIES_ABOVE ################################### + "neville@zeta.net", + "animika@zeta.net", + "linda@zeta.net", + "jerry@zeta.net", + "adamS@zeta.net", + "lkdamon@zeta.net", + "AdamS@zeta.net", + "DConnor@zeta.net", + "LOUISR@zeta.net", + + # Start of Alpha ############################################# + "Allanv@zeta.net", + "AmberJ@zeta.net", + "DANDERSON@zeta.net", + "Jonas@zeta.net", + "KarenE@zeta.net", + "J.R.C.@zeta.net", # check to see if this is working + "PMackey@zeta.net", + + "adrienne@zeta.net","alpha@zeta.net","amina@zeta.net", + "anamika@zeta.net", + "claborca@zeta.net","communications@zeta.net", + "cz241@zeta.net", + "dee@zeta.net", + "ellenb@zeta.net","evis@zeta.net", + "frivera@zeta.net", + "gblack@zeta.net","gbrown@zeta.net","george@zeta.net","grace@zeta.net", + "happygolucky@zeta.net","hsp@zeta.net", + "ila@zeta.net", + "jacqueline_fenatifa@zeta.net","jlengler@zeta.net", + "joel@zeta.net","jolsen@zeta.net", "jsherman@zeta.net", + "kronjeklandish@zeta.net","kwilcox@zeta.net","bettyb@zeta.net", + "laurie@zeta.net","llmansell@zeta.net", + "louise@zeta.net","lzollo@zeta.net", + "mcraft@zeta.net","meganB@zeta.net","mwezi@zeta.net", + "nanwile@zeta.net", + "zetasound@zeta.net", + "peter@zeta.net", + "randi@zeta.net", "rcbackus@zeta.net", "registration@zeta.net", + "registration@omgea.org", + "rtaylor@zeta.net", + "sdonnarumma@zeta.net","stephanR@zeta.net","suzanne@zeta.net","suzzane@zeta.net", + "taryngaughan_dn@zeta.net" + # zzzzEND_OF_LIST#### + ] #end of Xdelivered-to list for possible zeta institute users + +{ + reject text: + ERROR: Your email has not been delivered. + + You have reached the mailer at zeta.net + + Perhaps you want to send to Zeta Institute in DillyDally, NY, USA? + + Use USER@zeta.net for them + + or try registration@zeta.net + Check the website at http://www.zeta.net/zeta/contact/ + Call Registration at 1 800 944 1001. + + or use this information: + + Zeta Institute + 150 River Drive + DillyDally, NY 12666 + Registration: 800-900-0000 + Ph: 845-200-0000 + Fax: 845-200-0001 + registration@zeta.net + + sincerely, POSTMASTER +. +; + fileinto "Inbox.Junk Mail.ezeta"; + stop; + } +#---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+ +# +Move messages into folders +# +# Process other messages into separate folders +# + # newsletters and mail lists +if header :contains ["subject"] + [ "newsletter", "[tc-ieee-", "[icntc", + "JUG News", "Xdesksoftware", + "announcement" ] +{ + fileinto "INBOX.Newsletters"; +} elsif header :contains ["from","subject"] ["Anthony Robbins"] { + fileinto "INBOX.Newsletters"; +} elsif header :contains ["from","subject"] ["MN Entrepreneurs","ME!"] { + fileinto "INBOX.Newsletters"; +} elsif header :contains ["from","received"] "adc.apple.com" { + fileinto "INBOX.Newsletters"; +} elsif header :contains "from" "wnewadmn@ieee.org" { + fileinto "INBOX.Newsletters"; +} elsif header :contains "from" "@lb.bcentral.com" { # techworthy@lb.bcentral.com + fileinto "INBOX.Newsletters"; +} elsif header :contains "from" "announcement@netbriefings.com" { #st paul company + fileinto "INBOX.Newsletters"; +} elsif header :contains "from" "newsletter@eletters.extremetech.com" { #semi-annoying rag + fileinto "INBOX.Newsletters"; +#---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+ +# my newsletter throw-away addresses +} elsif header :contains "to" ["microcenter@zeta.net","nmha@zeta.net"] { + fileinto "INBOX.Newsletters"; + +#---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+ +# +# Alerts mailbox +} elsif header :contains ["subject", "from"] + [ + "Alert", # F-Prot virus alert service, matches: + # "FRISK Virus Alert" + # or use s:FRISK Virus Alert: + # or use f:support@f-prot.com + "Payment", # Alerts from other payments + "credit.services@target.com", # Target Card Payments + "notify@quickbase.com" # Tic Talkers Database changes + ] +{ + fileinto "INBOX.Alerts"; + stop; +} + +# +Announcements from Dave Rolm, forward +# +# Perl Announcements from Dave Rolm +if header :contains "from" "dave@other.org" +{ + fileinto "Inbox"; + keep; +} +#---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+ +####################################################################### +#### END OF SIEVE SCRIPT by Matthew Johnson - MRJ Solutions, Inc. ##### +################ email me at mailto:mattjohnson2005@gmail.com # + |