diff options
author | Robert Fenk <fenk@users.sourceforge.net> | 2000-11-16 12:00:04 +0000 |
---|---|---|
committer | Robert Fenk <fenk@users.sourceforge.net> | 2000-11-16 12:00:04 +0000 |
commit | d2f5817bbb837f3d584c9c2ded0b0b312b61a8f1 (patch) | |
tree | 600d74797870dd108c7cfb0f1a7d913dc8773bc8 /lisp | |
parent | 3eb72b8e0a9bcd18d4afd436378c27226229d94b (diff) |
(bbdb-extract-address-component-regexps):
added recognition of true names form addresses like
Robert.Fenk@gmx.de, in order to avoid creation of duplicate
records.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/bbdb-snarf.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/bbdb-snarf.el b/lisp/bbdb-snarf.el index d354c4f..f44928b 100644 --- a/lisp/bbdb-snarf.el +++ b/lisp/bbdb-snarf.el @@ -426,11 +426,14 @@ capitalize words and change order of names when separated by a comma." ;; name <address> ("\\(\\b[^<\",]*\\b\\)\\s-*<\\([^>]+\\)>" 1 2) - ;; name <address> + ;; <address> ("<\\([^>]+\\)>" nil 2) ;; address (name) ("\\(\\b[^<\",()]+\\b\\)\\s-*(\\([^)]+\\))" 2 1) + ;; firstname.lastname@host + ("\\b\\(\\([^@]+\\.[^@]+\\)@[0-9a-z._-]+\\)\\b" + (bbdb-snarf-nice-real-name (match-string 2 adstring)) 1) ;; user@host ("\\b\\(\\([0-9a-z._-]+\\)@[0-9a-z._-]+\\)\\b" nil 1) |