# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 990190063 0
# Node ID 5bc4eff5115ea83b63eeb66606f0b59291a42f4d
# Parent  b5847ecfb8342da6b90b74f03f487e177e9c24f3
(goto-address-at-point): Deal with URLs
part of which look like email addresses.

diff -r b5847ecfb834 -r 5bc4eff5115e lisp/net/goto-addr.el
--- a/lisp/net/goto-addr.el	Fri May 18 12:06:38 2001 +0000
+++ b/lisp/net/goto-addr.el	Fri May 18 12:47:43 2001 +0000
@@ -201,7 +201,12 @@
   (interactive)
   (save-excursion
     (let ((address (save-excursion (goto-address-find-address-at-point))))
-      (if address
+      (if (and address 
+	       (save-excursion
+		 (goto-char (previous-single-char-property-change
+			     (point) 'goto-address nil
+			     (line-beginning-position)))
+		 (not (looking-at goto-address-url-regexp))))
 	  (compose-mail address)
 	(let ((url (browse-url-url-at-point)))
 	  (if url