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

[profile] / dot / emacs

diff --git a/dot/emacs b/dot/emacs
index afb08bdf4be21b053732a6bfbf28c81808ae2a7e..f8a0a2a169f8f1e511093a621c7e97f3e6c9cd61 100644 (file)
--- 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))))