(require 'gnus-sum) 
;;(require 'mm) 
 
(setq gnus-default-posting-charset (quote iso-8859-1)) 
(setq message-posting-charset 'iso-8859-1) 
 
(add-to-list 'message-syntax-checks '(sender . disabled)) 
 
(setq gnus-auto-select-first nil) 
 
(setq gnus-extra-headers 
      '(To Newsgroups)) 
(setq nnmail-extra-headers gnus-extra-headers) 
(setq gnus-summary-line-format 
      "%U%R%z%I%(%[%4L: %-20,20f%]%) %s\n") 
(setq gnus-ignored-from-addresses 
      "Bruce Z. Lysik") 
 
(setq mail-sources 
      '((file) 
        (pop :server "mail.javanet.com" 
             :user "SNIPPED" 
             :password "SNIPPED")))
                                                    
(setq gnus-secondary-select-methods                  
      '((nnml "private"))                            
      nnmail-split-methods                           
      '(                                            
        ("mail.common.forwards" "^Subject:.*FW:")   
        ("mail.common.forwards" "^Subject:.*\(fwd\)") 
        ("mail.common.trash" "^Subject:.*unsubscribe") 
        ("mail.important.lissy" "^From:.*sweetdreamer80") 
        ("mail.important.lissy" "^From:.*Pat Joyce") 
        ("mail.important.irpg" "^From:.*ckeller@uswest\.net") 
        ("mail.important.technisource" "^From:.*tsrc\.net") 
        ("mail.important.etrade" "^From:.*etrade\.com") 
        ("mail.important.gnome-council" "^From:.*skeizer@juno\.com") 
        ("mail.important.gnome-council" "^CC:.*skeizer@juno\.com") 
        ("mail.important.gnome-council" "^From:.*cwmassey@escape\.ca") 
        ("mail.important.gnome-council" "^CC:.*cwmassey@escape\.ca") 
        ("mail.common.bbdb" "^To:.*info-bbdb@cs\.uiuc\.edu") 
        ("mail.common.bbdb" "^CC:.*info-bbdb@cs\.uiuc\.edu") 
        ("mail.common.bbdb" "^To:.*bbdb-info@xemacs\.org") 
        ("mail.common.bbdb" "^CC:.*bbdb-info@xemacs\.org") 
        ("mail.common.ding" "^To:.*ding@hpc\.uh\.edu") 
        ("mail.common.ding" "^CC:.*ding@hpc\.uh\.edu") 
        ("mail.common.ding" "^To:.*ding@gnus\.org") 
        ("mail.common.ding" "^CC:.*ding@gnus\.org") 
        ("mail.common.tinyfugue" "^To:.*tinyfugue@tcp\.com") 
        ("mail.common.tinyfugue" "^CC:.*tinyfugue@tcp\.com") 
        ("mail.common.bugtraq" "^To:.*BUGTRAQ@SECURITYFOCUS\.COM") 
        ("mail.common.bugtraq" "^CC:.*BUGTRAQ@SECURITYFOCUS\.COM") 
        ("mail.common.bugtraq" "^To:.*BUGTRAQ@netspace\.org") 
        ("mail.common.bugtraq" "^CC:.*BUGTRAQ@netspace\.org") 
        ("mail.common.redhat" "^To:.*redhat-list@redhat\.com") 
        ("mail.common.redhat" "^CC:.*redhat-list@redhat\.com") 
        ("mail.common.redhat" "^From:.*redhat-list-request@redhat\.com") 
        ("mail.common.gnome-list" "^To:.*gnome-list@gnome\.org") 
        ("mail.common.gnome-list" "^CC:.*gnome-list@gnome\.org") 
        ("mail.common.wearhard" "^To:.*wear-hard@haven\.org") 
        ("mail.common.wearhard" "^CC:.*wear-hard@haven\.org") 
        ("mail.common.pilot-unix" "^To:.*pilot-unix@hcirisc\.cs\.binghamton\.ed\
u") 
        ("mail.common.pilot-unix" "^CC:.*pilot-unix@hcirisc\.cs\.binghamton\.ed\
u") 
        ("mail.common.pilot-unix" "^To:.*pilot-unix@lists\.best\.com") 
        ("mail.common.pilot-unix" "^CC:.*pilot-unix@lists\.best\.com") 
        ("mail.common.eq-enchanters" "^To:.*EQ-Enchanters@onelist\.com") 
        ("mail.common.eq-enchanters" "^CC:.*EQ-Enchanters@onelist\.com") 
        ("mail.common.eq_jewelers" "^To:.*EQ_Jewelers@onelist\.com") 
        ("mail.common.eq_jewelers" "^CC:.*EQ_Jewlers@onelist\.com") 
        ("mail.common.eq_tinkering" "^To:.*EQ_Tinkering@onelist\.com") 
        ("mail.common.eq_tinkering" "^CC:.*EQ_Tinkering@onelist\.com") 
        ("mail.common.gnucash" "^To:.*gnucash")      
        ("mail.common.gnucash" "^CC:.*gnucash")      
        ("mail.common.system" "^From:.*Cron")        
        ("mail.common.trash" rat:despam)            
        ("mail.important.other" "^To:.*eldrik@logrus\.com") 
        ("mail.important.other" "^CC:.*eldrik@logrus\.com") 
        ("mail.important.other" "^To:.*eldrik@javanet\.com") 
        ("mail.important.other" "^CC:.*eldrik@javanet\.com") 
        ("mail.common.trash" "") 
        )) 
 
(defun rat:despam (arg) 
  "Return non-nil if mail is from a known spammer." 
  (goto-char (point-min)) 
  (re-search-forward (mapconcat 'regexp-quote spammers "\\|") nil t)) 
 
(setq spammers '( 
                 "tellme@peace.zzn.com" "wealthyconcepts@biz.st" 
                 "wolf9999@bellsouth.net" "cashconcepts@mailcity.com" 
                 "aws@aws.es" "mailinglist@504ipo.com" "me@netdomain.com" 
                 "thelist@satzone.com" "pam@brooksdata.net" 
                 "Research206@thewinnerszone.com" "ClickRewards.1izo1c1.p@news.\
clickrewards.com" 
                 "guranteedcredit.8m.com" "promotions@traderspain.com" 
                 "rlatham@cgsd.com" "hotmail.com" "stealthlinks.com" 
                 "postmaster@" "hushmail.com" "failureto@usa.net" 
                 "asd@ww.com" "acnutilities@usa.net" "smart-news.net" 
                 "wallstreetinterview.com" "geil@amber.com" "MAILER-DAEMON@" 
                 "globalfundanalysis.com" 
                 ))