102 |
"[-a-zA-Z0-9._+]+@\\([-a-zA-z0-9_]+\\.\\)+[a-zA-Z0-9]+" |
"[-a-zA-Z0-9._+]+@\\([-a-zA-z0-9_]+\\.\\)+[a-zA-Z0-9]+" |
103 |
"A regular expression probably matching an e-mail address.") |
"A regular expression probably matching an e-mail address.") |
104 |
|
|
105 |
(defvar goto-address-url-regexp thing-at-point-url-regexp |
(defvar goto-address-url-regexp |
106 |
|
(concat "\\<\\(" |
107 |
|
(mapconcat 'identity |
108 |
|
(delete "mailto:" (copy-sequence thing-at-point-uri-schemes)) |
109 |
|
"\\|") |
110 |
|
"\\)" |
111 |
|
thing-at-point-url-path-regexp) |
112 |
;; (concat "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|" |
;; (concat "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|" |
113 |
;; "telnet\\|wais\\):\\(//[-a-zA-Z0-9_.]+:" |
;; "telnet\\|wais\\):\\(//[-a-zA-Z0-9_.]+:" |
114 |
;; "[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*" |
;; "[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*" |
208 |
(interactive) |
(interactive) |
209 |
(save-excursion |
(save-excursion |
210 |
(let ((address (save-excursion (goto-address-find-address-at-point)))) |
(let ((address (save-excursion (goto-address-find-address-at-point)))) |
211 |
(if (and address |
(if (and address |
212 |
(save-excursion |
(save-excursion |
213 |
(goto-char (previous-single-char-property-change |
(goto-char (previous-single-char-property-change |
214 |
(point) 'goto-address nil |
(point) 'goto-address nil |