(trap (bbdb-initialize 'gnus 'sendmail 'message)))
(setq bbdb-file "~/etc/state/bbdb"
bbdb-north-american-phone-numbers-p nil
- bbdb/news-auto-create-p (lambda ()
- (string-match "^nnimap\\+"
- gnus-newsgroup-name))
+ 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\\)"