Re: bbdb and nnmail-split-fancy

[David Z Maze <dmaze@MIT.EDU>]

Michael Cook <michael@waxrat.com> writes:
> does anyone know offhand how to get nnmail-split-fancy to pay
> attention to what's in my bbdb address book?
> that is, i want to say:
> 
>  if the message is addressed to me then
>     if the message is from someone in my address book
>        put the message into my inbox
>     else
>        put the message into the folder "other".

My .gnus file has the following construct:

(defun dzm-bbdb-split-fancy ()
  "Create a fancy mail split according to bbdb rules.
Look at entries in the bbdb.  For every entry with a \"mail-group\"
field, generate an appropriate split."
  (cons '&
	(apply 'nconc
	       (mapcan
		(lambda (rec)
		  (let ((nets (bbdb-record-net rec))
			(group (bbdb-record-getprop rec 'mail-group)))
		    (if group
			(cons
			 (mapcar
			  (lambda (net)
			    (list 'any (regexp-quote net) group))
			  nets)
			 nil))))
		(bbdb-records)))))

This looks rather Schemeful to me now, probably because I wrote it
around the time I was taking 6.001, MIT's introductory computer
science class, which apparently the esteemed Mr. Saklad hasn't had the
benefit of.  But the output of this can be dropped directly into
nnmail-split-fancy, like so:

(setq nnmail-split-fancy
      ;; Split to the first matching...
      `(|
        ;; Mailing lists...
        (&
         (any "ding@gnus\\.org" "mail.lists.ding")
         ;; etc.
        )
        ;; Individuals we know of from bbdb
        ,(dzm-bbdb-split-fancy)
        ;; Personal mail (or not)
        (any "dmaze@.*mit\\.edu" "mail.misc.personal")
        "mail.misc.impersonal"))

(Now, to figure out how to augment this recipe to use the new spam.el
stuff...)

-- 
David Maze             dmaze@mit.edu          http://www.mit.edu/~dmaze/
"Theoretical politics is interesting.  Politicking should be illegal."
	-- Abra Mitchell