+(setq bbdb-file "~/etc/brain/bbdb"
+ bbdb-north-american-phone-numbers-p nil
+ bbdb-extract-address-components-func 'bbdb-extract-address-components
+ bbdb/news-auto-create-p
+ (lambda ()
+ (let ((group gnus-newsgroup-name))
+ (and (string-match "^nnimap\\+" group)
+ (not (string-match ":\\(crap\\|spam\\|lists\\)\\." group)))))
+ bbdb-user-mail-names
+ (concat "^"
+ "\\(" "\\(mdw\\|markw\\|root\\|postmaster\\)"
+ "\\([-+][^@]*\\|\\)"
+ "@\\(\\(dist\\|esc\\)orted\\.org\\.uk\\|odin\\.gg\\)"
+ "\\|" "distorted\\.mdw@g\\(\\|oogle\\)mail.com"
+ "\\|" "mwooding@\\(good\\|blackberry\\)\\.com"
+ "\\|" "mark\\.wooding@trustonic\\.com"
+ "\\)$")
+ bbdb-canonicalize-net-hook
+ (lambda (addr)
+ (cond ((null addr)
+ nil)
+ ((or (string-match (concat "^reply-[0-9a-f]+-[0-9a-f]+_"
+ "HTML-[0-9]+-[0-9]+-[0-9]+"
+ "@\\(nationwide-communications\\."
+ "co\\.uk\\)$")
+ addr)
+ (string-match (concat "^[0-9]+@bugs\\."
+ "\\(" "debian\\.org"
+ "\\|" "distorted\\.org\\.uk"
+ "\\)$")
+ addr)
+ (string-match (concat "^MicrosoftExchange[0-9a-f]*"
+ "@newincco\\.onmicrosoft\\.com")
+ addr)
+ (member (md5 addr)
+ '("8815c5583970856799c85a3ee0eb6a9f" ;work wiki spam
+ ))
+ (and (string-match "^news\\([0-9]+\\)@\\(.*\\)$" addr)
+ (string= (md5 (match-string 2 addr))
+ "879b795aed959b1a000e9f95c132b16c")))
+ nil)
+ ((string-match "^\\([^@+]+\\)\\+[^@]*\\(@.*\\)$" addr)
+ (concat (match-string 1 addr) (match-string 2 addr)))
+ (t addr))))