dot/emacs: Don't snarf addresses from boring mailboxes.

diff --git a/dot/emacs b/dot/emacs
index 6dbbbed49f23f76c5c3ef5d8c68b7e96efad620a..d6b437063228abcaed1adf69c4907b6f08542502 100644 (file)
--- a/dot/emacs
+++ b/dot/emacs
@@ -187,9 +187,11 @@
     (trap (bbdb-initialize 'gnus 'sendmail 'message)))
 (setq bbdb-file "~/etc/state/bbdb"
       bbdb-north-american-phone-numbers-p nil
     (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\\)"
       bbdb-user-mail-names
       (concat "^"
              "\\(" "\\(mdw\\|markw\\|root\\|postmaster\\)"