From: Mark Wooding <mdw@distorted.org.uk>
Date: Thu, 24 Mar 2016 11:06:41 +0000 (+0000)
Subject: dot/emacs (bbdb-canonicalize-net-hook): Ignore uninteresting addresses.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/commitdiff_plain/73523a26cf2172c704a9160957fcf1261a2972d9?ds=inline

dot/emacs (bbdb-canonicalize-net-hook): Ignore uninteresting addresses.

Rather than trying to transform them into something apparently innocent,
just ignore uninteresting addresses like bug lists.
---

diff --git a/dot/emacs b/dot/emacs
index afb08bd..f8a0a2a 100644
--- a/dot/emacs
+++ b/dot/emacs
@@ -213,17 +213,17 @@
       (lambda (addr)
 	(cond ((null addr)
 	       nil)
-	      ((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)))
+	      ((or (string-match (concat "^reply-[0-9a-f]+-[0-9a-f]+_"
+					 "HTML-[0-9]+-[0-9]+-[0-9]+"
+					 "@\\(nationwide-communications\\."
+					 "co\\.uk\\)$")
+				 addr)
+		   (string-match (concat "^[0-9]+@bugs\\."
+					 "\\(" "debian\\.org"
+					 "\\|" "distorted\\.org\\.uk"
+					 "\\)$")
+				 addr))
+	       nil)
 	      ((string-match "^\\([^@+]+\\)\\+[^@]*\\(@.*\\)$" addr)
 	       (concat (match-string 1 addr) (match-string 2 addr)))
 	      (t addr))))