From f23fd56d2b2f923a22e79a764fc26bbc604861eb Mon Sep 17 00:00:00 2001
Message-Id: <f23fd56d2b2f923a22e79a764fc26bbc604861eb.1717904751.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Mon, 21 Mar 2016 11:41:43 +0000
Subject: [PATCH] dot/emacs: Don't snarf addresses from boring mailboxes.
Organization: Straylight/Edgeware

From: Mark Wooding <mdw@distorted.org.uk>

---
 dot/emacs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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\\)"
-- 
[mdw]