* thingatpt.el (thing-at-point-email-regexp): Don't require two chars

  before the "@" in an email address.  Andreas Roehler noticed this problem.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ec8ca907eebc144f3b64e3ae984cf96631ebc7b6..e808cf75937c41648691c911764b681be73957ca 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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').

diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index 0d57091fb0925d59d201a535fe7a8f8b9285617c..416812dbbf5b14f4d2024f7aa69ac2e4ed6f49f3 100644 (file)
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -342,7 +342,7 @@ point."
 
 ;;   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.")