Commit 1c66d9fb authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(goto-address-at-point): Deal with URLs

part of which look like email addresses.
parent c5bdb93d
2001-05-18 Gerd Moellmann <gerd@gnu.org>
* net/goto-addr.el (goto-address-at-point): Deal with URLs
part of which look like email addresses.
2001-05-18 Andrew Innes <andrewi@gnu.org>
 
* makefile.w32-in (compile-files-CMD, bootstrap-clean-CMD): Use
......
......@@ -201,7 +201,12 @@ there, then load the URL at or before point."
(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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment