From: Mark Wooding <mdw@distorted.org.uk>
Date: Mon, 21 Mar 2016 11:41:43 +0000 (+0000)
Subject: dot/emacs: Don't snarf addresses from boring mailboxes.
X-Git-Url: https://git.distorted.org.uk/~mdw/profile/commitdiff_plain/f23fd56d2b2f923a22e79a764fc26bbc604861eb?ds=inline

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

diff --git a/dot/emacs b/dot/emacs
index 6dbbbed..d6b4370 100644
--- 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
-      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\\)"