dot/emacs: Squash away `blah+...@some.domain' suffixes for BBDB.

Some people have far too many suffixes.

diff --git a/dot/emacs b/dot/emacs
index fe857bc9675cd0f9f5b2e82b1905cf3b2761d316..31cfd159d203a9dc2c8ba86bbef2b78d2fe8c877 100644 (file)
--- a/dot/emacs
+++ b/dot/emacs
@@ -213,6 +213,8 @@
                                     "\\)")
                             addr)
               (concat "submit@bugs." (match-string 1 addr)))
                                     "\\)")
                             addr)
               (concat "submit@bugs." (match-string 1 addr)))

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

              (t addr))))
 
 ;; Customization.
              (t addr))))
 
 ;; Customization.