Re: Spam spam spam spam spam

[Bill White <billw@wolfram.com>]

On Sat Apr 13 2002 at 17:49, John H Palmieri <palmieri@math.washington.edu> said:

> Speaking of spam, when I'm at work, I can run spamassassin and
> everything is pretty much okay.  At home, though, I get all of my
> mail from a pop server.  That is, my home machine receives no mail,
> so I can forward incoming mail through procmail until I'm blue in
> the face, but of course it has no effect.  What can I do to filter
> spam (or tag spam) with this setup?

I run spamassassin as the next-to-last step of my nnmail-split-fancy,
after messages have been matched against my whitelisted email
addresses and headers.

One caveat: call-process-region doesn't seem to play nicely with 8-bit
characters in some circumstances.  With this setup I get the ol' \201
in front of each one sometimes (and I haven't debugged it yet).  Any
advice for that?

----------------------------------------------------------------------
(setq nnmail-split-methods 'nnmail-split-fancy)

(if (string= "billwlx" (getenv "HOSTNAME"))
    (setq spamassassin-script "/home/usr0/billw/bin/spamassassin/spamassassin"
	  spamassassin-rules "/home/usr0/billw/bin/spamassassin/rules")
  (setq spamassassin-script "/home/billw/bin/SpamAssassin/spamassassin"
	spamassassin-rules "/home/billw/bin/SpamAssassin/rules"))

(defun spamassassin-on-message ()
  ;; use " *nnmail incoming*" while splitting crash-box
    (if (get-buffer " *nnmail incoming*")
	(set-buffer " *nnmail incoming*")
  ;; use gnus-original-article-buffer while respooling & tracing
      (set-buffer gnus-original-article-buffer))
    (call-process-region (point-min) (point-max) 
			 spamassassin-script
			 t t t
			 "-P" "-c" spamassassin-rules)
    (goto-char (point-min))
    (when (re-search-forward "^X-Spam-Status: Yes" nil t)
      "spamassassin"))

(setq nnmail-split-fancy
      '(|
	("to" ".*billw@wri\\.com" "spamtrap")
	(from ".*Dan Largent.*" "personal")
	(from ".*Michelle Largent.*" "personal")
	("Subject" ".*Voice mail waiting for x.*" "voice-mail")
[...]
	("sender" "owner-ding@hpc\\.uh\\.edu"
	 (: (lambda nil (format-time-string "gnus.%Y.%m"))))
	(any "owner-wri-\\b\\(\\w+\\)" "wri.\\1")
  	(: spamassassin-on-message)
	(: (lambda nil (format-time-string "mail.misc.%Y.%m")))))
----------------------------------------------------------------------

Hope this helps.

Cheers -

bw
-- 
Bill White . billw@wolfram.com . http://members.wri.com/billw
"No ma'am, we're musicians."