Re: bbdb and nnmail-split-fancy

[Michael Cook <michael@waxrat.com>]

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?

ok, how about this:

(defun split-if-in-bbdb (field split)
  ;; FIELD is "from" or "to" or "cc".
  ;; SPLIT is an `nnmail-split-fancy' "split" construct.
  (let ((from (message-fetch-field field)))
    (and from
	 (let ((comp (condition-case ()
			 (mail-extract-address-components from)
		       (error nil))))
	   (and (bbdb-search-simple (car comp) (cadr comp))
		split)))))

then, in nnmail-split-fancy, something like this:

  (setq nnmail-split-fancy
        '(| ...
            (: split-if-in-bbdb "from" "inbox")
            "other"))

so, if the sender of the message is in your bbdb, then the message
gets split into your inbox folder.  otherwise, it gets split into
your "other" folder.

m.