Mercurial > emacs

changeset 37809:5bc4eff5115e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(goto-address-at-point): Deal with URLs part of which look like email addresses.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 18 May 2001 12:47:43 +0000
parents b5847ecfb834
children f6e50e3a9b78
files lisp/net/goto-addr.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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