Re: Splitting and procmail

[Jonas Steverud <d4jonas@dtek.chalmers.se>]

Jonas Steverud <d4jonas@dtek.chalmers.se> writes:

[...]
> Is it possible to have a split that checks the From and if a certain
> regexp matches, a function is called that tests wheather the sender is a
> member of BBDB and if not it is placed in "Spam", otherwise the next
> rule is tested?

After doing some searches in the archives and the 'Net as such, I've
come up with the following function. I haven't tested it yet, so
comments are more then welcome.

I hope my example in the documentation string is correct.

(defun js-gnus-split-if-not-in-bbdb (SPLIT)
  "If the sender is not within the BBDB, the function returns SPLIT,
i.e. it is split to that group. SPLIT is a `nnmail-split-fancy'
`split' construct - usually a string with a group name.

To use BBDB as a white list for spam:
  nnmail-split-fancy
  ...
    \(|
      ...
       \(any \"\\\\(hotmail\\\\|msn\\\\|aol\\\\|yahoo\\\\|excite\\\\)\\.\\\\(co\\.uk\\\\|com\\\\|org\\\\)\"
                   \(: js-gnus-split-if-not-in-bbdb \"Spam\"\)
           \)
      

Handy togeather with very harsh spam filtering regexp's, like all mail
from Hotmail, MSN, AOL et al. Place valid addresses in BBDB and all
other mails will go to the spam group.

Inspired by http://www.gnus.org/list-archives/ding/200204/msg00077.html.
"
    (let ((from (message-fetch-field "from")))
      (and from
	   (let ((comp (condition-case ()
			   (mail-extract-address-components from)
			 (error nil))))
	     (if (and comp (not (bbdb-search-simple (car comp) (cadr comp))))
		 SPLIT)))))



-- 
(          www.dtek.chalmers.se/~d4jonas/         !     Wei Wu Wei     )
(        Meaning of U2 Lyrics, Roleplaying        !  To Do Without Do  )