Mercurial > emacs
changeset 81448:3513d3f93273
* thingatpt.el (thing-at-point-email-regexp): Don't require two chars
before the "@" in an email address. Andreas Roehler noticed this problem.
| author | Karl Fogel <kfogel@red-bean.com> |
|---|---|
| date | Sat, 16 Jun 2007 01:25:25 +0000 |
| parents | 697178a8197c |
| children | b28852f88acf |
| files | lisp/ChangeLog lisp/thingatpt.el |
| diffstat | 2 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Jun 16 01:03:35 2007 +0000 +++ b/lisp/ChangeLog Sat Jun 16 01:25:25 2007 +0000 @@ -1,3 +1,9 @@ +2007-06-16 Karl Fogel <kfogel@red-bean.com> + + * thingatpt.el (thing-at-point-email-regexp): Don't require two + chars before the "@" in an email address. Andreas Roehler noticed + this problem. + 2007-06-15 Karl Fogel <kfogel@red-bean.com> * thingatpt.el: Add support for email addresses (`email').
--- a/lisp/thingatpt.el Sat Jun 16 01:03:35 2007 +0000 +++ b/lisp/thingatpt.el Sat Jun 16 01:25:25 2007 +0000 @@ -342,7 +342,7 @@ ;; Email addresses (defvar thing-at-point-email-regexp - "<?[-+_.~a-zA-Z][-+_.~:a-zA-Z0-9]+@[-.a-zA-Z0-9]+>?" + "<?[-+_.~a-zA-Z][-+_.~:a-zA-Z0-9]*@[-.a-zA-Z0-9]+>?" "A regular expression probably matching an email address. This does not match the real name portion, only the address, optionally with angle brackets.")