Here is a collection of suggestions from various sources:
   
  From "Dave Disser" <disser@sdd.hp.com>
  
   I like blasting anything without lowercase letters. Weeds out most of
   the make $$ fast, as well as the lame titles like "IBM" and "HP-UX"
   with no further description.
 (("Subject"
  ("^\\(Re: \\)?[^a-z]*$" -200 nil R)))

  From "Peter Arius" <arius@immd2.informatik.uni-erlangen.de>
  
   The most vital entries in my (still young) all.SCORE:
(("xref"
  ("alt.fan.oj-simpson" -1000 nil s))
 ("subject"
  ("\\<\\(make\\|fast\\|big\\)\\s-*\\(money\\|cash\\|bucks?\\)\\>" -1000 nil r)
  ("$$$$" -1000 nil s)))

  From "Per Abrahamsen" <abraham@dina.kvl.dk>
  
(("subject"
  ;; CAPS OF THE WORLD, UNITE
  ("^..[^a-z]+$" -1 nil R)
  ;; $$$ Make Money $$$ (Try work)
  ("$" -1 nil s)
  ;; I'm important! And I have exclamation marks to prove it!
  ("!" -1 nil s)))

  From "heddy boubaker" <boubaker@cenatls.cena.dgac.fr>
  
   I would like to contribute with mine.
(
 (read-only t)
 ("subject"
  ;; ALL CAPS SUBJECTS
  ("^\\([Rr][Ee]: +\\)?[^a-z]+$" -1 nil R)
  ;; $$$ Make Money $$$
  ("$$" -10 nil s)
  ;; Empty subjects are worthless!
  ("^ *\\([(<]none[>)]\\|(no subject\\( given\\)?)\\)? *$" -10 nil r)
  ;; Sometimes interesting announces occur!
  ("ANN?OU?NC\\(E\\|ING\\)" +10 nil r)
  ;; Some people think they're on mailing lists
  ("\\(un\\)?sub?scribe" -100 nil r)
  ;; Stop Micro$oft NOW!!
  ("\\(m\\(icro\\)?[s$]\\(oft\\|lot\\)?-?\\)?wind?\\(ows\\|aube\\|oze\\)?[- ]*\
\('?95\\|NT\\|3[.]1\\|32\\)" -1001 nil r)
  ;; I've nothing to buy
  ("\\(for\\|4\\)[- ]*sale" -100 nil r)
  ;; SELF-DISCIPLINED people
  ("\\[[^a-z0-9 \t\n][^a-z0-9 \t\n]\\]" +100 nil r)
  )
 ("from"
  ;; To keep track of posters from my site
  (".dgac.fr" +1000 nil s))
 ("followup"
  ;; Keep track of answers to my posts
  ("boubaker" +1000 nil s))
 ("lines"
  ;; Some people have really nothing to say!!
  (1 -10 nil <=))
 (mark -100)
 (expunge -1000)
 )

  From "Christopher Jones" <cjones@au.oracle.com>
  
   The sample all.SCORE files from Per and boubaker could be augmented
   with:
        (("subject"
          ;; No junk mail please!
          ("please ignore" -500 nil s)
          ("test" -500 nil e))
        )

  From "Brian Edmonds" <edmonds@cs.ubc.ca>
  
   Augment any of the above with a fast method of scoring down
   excessively cross posted articles.
 ("xref"
  ;; the more cross posting, the exponentially worse the article
  ("^xref: \\S-+ \\S-+ \\S-+ \\S-+" -1 nil r)
  ("^xref: \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -2 nil r)
  ("^xref: \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -4 nil r)
  ("^xref: \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -8 nil r)
  ("^xref: \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -16 nil r)
  ("^xref: \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -32 nil r)
  ("^xref: \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -64 nil
 r)
  ("^xref: \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -
128 nil r)
  ("^xref: \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\
S-+" -256 nil r)
  ("^xref: \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\
S-+ \\S-+" -512 nil r))

   Or see <URL:http://www.cs.ubc.ca/spider/edmonds/usenet/gnus/SCORE>
   which also includes pointers to my SMEGHEADS and BLACKLIST files.
   
  From "Hardrock" <dharland@kendaco.telebyte.com>
  
   (Original source unknown, this is used by permission from the Grubor
   FAQ 2.21).
  ("from"
   ("Law Doctor" -10000 nil s)
   ("Manus" -10000 nil s)
   ("Grubor" -10000 nil s)
   ("DrG" -10000 nil s))

  From "d. hall" <dhall@virage.org>
  
   Here's an example of using the orphan scoring rule to make reading of
   large newsgroups more pleasant, in this case comp.lang.c.
(("subject"
  ("windows" -100)
  ("dos" -100))
 (orphan -200)
 (mark-and-expunge -100))