Re: Fight spam with BBDB database?

[Christian Lynbech]

Here is what I have for this in my .gnus. I am not sure that this
really is the best for querying bbdb about known senders but it seems
to work for me.

(setq my-split-rules
      '(("INBOX.lists.cmucl"   "^[A-Za-z-]+: .*cmucl[^@]*@cons.org")
        ("INBOX.lists.wsmith"  "^From: Wordsmith")
        ("INBOX.lists.auctex"  "^\\(To\\|CC\\): .*auc-?tex")
        ("INBOX.lists.ilisp"   "ilisp@cons.org")
        ("INBOX.lists.clisp"   "clisp.*@lists.sourceforge.net")
        ("INBOX.lists.clim"    "free-clim.*@\\(cons.org\\|mikemac.com\\)")
        ("INBOX.lists.sbcl"    "sbcl.*@lists\\.sourceforge\\.net")
        ("INBOX.lists.eclipse" "eclipse.*@common-lisp\\.net")
        ("INBOX.lists.slime"   "slime.*@common-lisp\\.net")
        ("INBOX.lists.cells"   "cells.*@common-lisp\\.net")
        ("INBOX.lists.opensource" "opensource@franz\\.com")
        ("INBOX.lists.openmcl" "openmcl.*@clozure\\.com")
        ("INBOX.lists.gbbopen" "gbbopen.*@gbbopen\\.org")
        ("INBOX.personal"      my-check-author-against-bbdb)
        ("INBOX.misc"          ""))

      nnimap-split-rule my-split-rules)

(defun my-check-author-against-bbdb (&rest args)
  "Check sender against BBDB.
This function receives the target INBOX as argument but ignores it."
  (message "calling my-check-author-against-bbdb...")
  (and (or (re-search-forward
            "From: .*[ <(]\\([a-zA-Z0-9.]+@[a-zA-Z0-9.]+\\).*$" nil t)
           (re-search-forward
            "From:\\s-*\\([a-zA-Z0-9.]+@[a-zA-Z0-9.]+\\).*$" nil t))
       (progn (message "found name '%s'" (match-string-no-properties 1)) t)
       (fboundp 'bbdb/vm-alternate-full-name)
       (bbdb/vm-alternate-full-name (match-string-no-properties 1))))


------------------------+-----------------------------------------------------
Christian Lynbech       | christian #\@ defun #\. dk
------------------------+-----------------------------------------------------
Hit the philistines three times over the head with the Elisp reference manual.
                                        - petonic@hal.com (Michael A. Petonic)