;;; My Gnus global score file.  If you're interested in funky scoring,
;;; please also see my Internet blacklist scorefile, available at
;;;   http://www.cs.ubc.ca/spider/edmonds/usenet/gnus/BLACKLIST
;;; and my smegheads scorefile, available at
;;;   http://www.cs.ubc.ca/spider/edmonds/usenet/gnus/SMEGHEADS

((files "~/News/SMEGHEADS" "~/News/BLACKLIST")
 ("subject"
  ;; SELF-DISCIPLINE
  ("^ *\\[\\([-+?*$!]\\)\\1\\]" 100 nil r)
  ("\\[\\([-+?*$!]\\)\\1\\]" 20 nil r) ("[$$]" 63 nil s)
  ("[!!]" 31 nil s) ("[**]" 15 nil s) ("[??]" 15 nil s)
  ;; subjects of potential local interest
  ("vancouver" 20 nil s) ("canada" 10 nil s) ("canadian" 10 nil s)
  ;; me?  nah, can't be. :)
  ("brian" 10 nil s) ("edmonds" 100 nil s) ("brian edmonds" 500 nil s)
  ;; followups are slightly less interesting
  ("^ *re\\(\\[[0-9]+\\]\\)*: " -5 nil r)
  ;; morons who can't figure out how mailing lists work
  ("^\\(un\\)?subscribe$" -1000 nil r)
  ;; multiple dollar signs are bad news
  ("$$" -63 nil s) ("$$$" -64 nil s) ("$$$$" -128 nil s)
  ("$$$$$" -256 nil s) ("$$$$$$" -512 nil s)
  ("need cash" -10000 nil s) ("easy cash" -10000 nil s)
  ;; as are people who need self-promotion
  ("please read" -1000 nil s)
  ;; or those who just can't think of *anything*
  ("(no subject)" -1000 nil s) ("(none)" -1000 nil s)
  ;; any bangs and more than one asterisk or question are bad news
  ("!" -15 nil s) ("!!" -16 nil s) ("!!!" -32 nil s)
  ("!!!!" -64 nil s) ("!!!!!" -128 nil s) ("!!!!!!" -256 nil s)
  ("**" -15 nil s) ("***" -16 nil s) ("****" -32 nil s)
  ("*****" -64 nil s) ("******" -128 nil s)
  ("??" -15 nil s) ("???" -16 nil s) ("????" -32 nil s)
  ("?????" -64 nil s) ("??????" -128 nil s)
  ;; who needs a smilie in a subject line?
  (":)" -1000 nil s) (":-)" -1000 nil s) ("^_^" -1000 nil s)
  ;; phone numbers are bad news (thanks to Elf S. for this idea)
  ("[0-9][0-9][0-9]-[0-9][0-9][0-9][0-9]" -10000 nil r)
  ;; I'm sure you could phrase that more eloquently
  ("fuck" -10000 nil s) ("asshole" -10000 nil s) ("cunt" -10000 nil s)
  ("pedophil" -10000 nil s)
  ;; free offers (in caps) never are
  ("FREE" -10000 nil S)
  ;; subjects in allcaps too
  ("^ *..[^a-z]+$" -1000 nil R))
 ("xref"
  ;; politics, religion and talk groups are generally bad news
  ("politics" -1000 nil s) ("religion" -1000 nil s) (" talk." -1000 nil s)
  ;; the more crossposting, the exponentially worse the article
  ("cs.ubc.ca \\S-+ \\S-+ \\S-+" -1 nil r)
  ("cs.ubc.ca \\S-+ \\S-+ \\S-+ \\S-+" -2 nil r)
  ("cs.ubc.ca \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -4 nil r)
  ("cs.ubc.ca \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -8 nil r)
  ("cs.ubc.ca \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -16 nil r)
  ("cs.ubc.ca \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -32 nil r)
  ("cs.ubc.ca \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -64 nil r)
  ("cs.ubc.ca \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -128 nil r)
  ("cs.ubc.ca \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -256 nil r)
  ("cs.ubc.ca \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -512 nil r)
)
 (mark -9000) (expunge -9000)
 (read-only t))