dot/emacs: Squash away `blah+...@some.domain' suffixes for BBDB.
authorMark Wooding <mdw@distorted.org.uk>
Thu, 24 Mar 2016 11:06:41 +0000 (11:06 +0000)
committerMark Wooding <mdw@distorted.org.uk>
Fri, 25 Mar 2016 13:02:10 +0000 (13:02 +0000)
Some people have far too many suffixes.

dot/emacs

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