(thing-at-point-short-url-regexp): Require that short URLs have at least one dot...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7deafcaa647e02b23d94b08f82b6b6f01b1c3f9c..f4b5019d8e632b3e1d2910cddc2f2df27ba55a4d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -13,6 +13,9 @@
 
 2011-06-30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * thingatpt.el (thing-at-point-short-url-regexp): Require that
+       short URLs have at least one dot in them (bug #7614).
+
        * progmodes/grep.el (rgrep): Bind `process-connection-type' to
        nil, because using a pty is apparently too slow (bug #895).
 

diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index 8f797d13103d558081e44e40802a60f698fb324e..a7ff23949fe57e35e3289f697ea1dcc9a162e6f8 100644 (file)
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -235,7 +235,7 @@ a symbol as a valid THING."
   "A regular expression probably matching the host and filename or e-mail part of a URL.")
 
 (defvar thing-at-point-short-url-regexp
-  (concat "[-A-Za-z0-9.]+" thing-at-point-url-path-regexp)
+  (concat "[-A-Za-z0-9]+\\.[-A-Za-z0-9.]+" thing-at-point-url-path-regexp)
   "A regular expression probably matching a URL without an access scheme.
 Hostname matching is stricter in this case than for
 ``thing-at-point-url-regexp''.")