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

[profile] / dot / emacs

diff --git a/dot/emacs b/dot/emacs
index fe857bc..31cfd15 100644 (file)
--- a/dot/emacs
+++ b/dot/emacs
@@ -213,6 +213,8 @@
                                     "\\)")
                             addr)
               (concat "submit@bugs." (match-string 1 addr)))
+             ((string-match "^\\([^@+]+\\)\\+[^@]*\\(@.*\\)$" addr)
+              (concat (match-string 1 addr) (match-string 2 addr)))
              (t addr))))
 
 ;; Customization.