dot/emacs (bbdb-canonicalize-net-hook): Ignore a personal address scheme.

A friend uses email addresses of the form `newsNN@SOME.DOMAIN' in Usenet
articles.  Ignore these, but don't leak what the domain name actually
is.

diff --git a/dot/emacs b/dot/emacs
index f8a0a2a169f8f1e511093a621c7e97f3e6c9cd61..b03ff68a1ba2a748568da5cac0b63d097606309e 100644 (file)
--- a/dot/emacs
+++ b/dot/emacs
@@ -222,7 +222,10 @@
                                         "\\(" "debian\\.org"
                                         "\\|" "distorted\\.org\\.uk"
                                         "\\)$")
                                         "\\(" "debian\\.org"
                                         "\\|" "distorted\\.org\\.uk"
                                         "\\)$")

-                                addr))
+                                addr)
+                  (and (string-match "^news\\([0-9]+\\)@\\(.*\\)$" addr)
+                       (string= (md5 (match-string 2 addr))
+                                "879b795aed959b1a000e9f95c132b16c")))

               nil)
              ((string-match "^\\([^@+]+\\)\\+[^@]*\\(@.*\\)$" addr)
               (concat (match-string 1 addr) (match-string 2 addr)))
               nil)
              ((string-match "^\\([^@+]+\\)\\+[^@]*\\(@.*\\)$" addr)
               (concat (match-string 1 addr) (match-string 2 addr)))