# HG changeset patch
# User Karl Fogel <kfogel@red-bean.com>
# Date 1181957125 0
# Node ID 3513d3f93273acf3eec14802097db0180fe1ffa9
# Parent  697178a8197c981ca27e492c3db8cf7a99dff54e
* thingatpt.el (thing-at-point-email-regexp): Don't require two chars
  before the "@" in an email address.  Andreas Roehler noticed this problem.

diff -r 697178a8197c -r 3513d3f93273 lisp/ChangeLog
--- 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').
diff -r 697178a8197c -r 3513d3f93273 lisp/thingatpt.el
--- 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.")