+(setq bbdb-file "~/etc/brain/bbdb"
+ bbdb-north-american-phone-numbers-p nil
+ bbdb/news-auto-create-p
+ (lambda ()
+ (let ((group gnus-newsgroup-name))
+ (and (string-match "^nnimap\\+" group)
+ (not (string-match ":\\(crap\\|spam\\)\\." 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"
+ "\\)$")
+ bbdb-canonicalize-net-hook
+ (lambda (addr)
+ (cond ((string-match (concat "^reply-[0-9a-f]+-[0-9a-f]+_"
+ "HTML-[0-9]+-[0-9]+-[0-9]+"
+ "@\\(nationwide-communications\\.co\\.uk\\)")
+ addr)
+ (concat "nationwide@" (match-string 1 addr)))
+ ((string-match (concat "^[0-9]+@bugs\\."
+ "\\(" "debian\\.org"
+ "\\|" "distorted\\.org\\.uk"
+ "\\)")
+ addr)
+ (concat "submit@bugs." (match-string 1 addr)))
+ ((string-match "^\\([^@+]+\\)\\+[^@]*\\(@.*\\)$" addr)
+ (concat (match-string 1 addr) (match-string 2 addr)))
+ (t addr))))