174 |
(overlay-put this-overlay 'evaporate t) |
(overlay-put this-overlay 'evaporate t) |
175 |
(overlay-put this-overlay |
(overlay-put this-overlay |
176 |
'mouse-face goto-address-url-mouse-face) |
'mouse-face goto-address-url-mouse-face) |
177 |
|
(overlay-put this-overlay 'follow-link t) |
178 |
(overlay-put this-overlay |
(overlay-put this-overlay |
179 |
'help-echo "mouse-2, C-c RET: follow URL") |
'help-echo "mouse-2, C-c RET: follow URL") |
180 |
(overlay-put this-overlay |
(overlay-put this-overlay |
190 |
(overlay-put this-overlay 'evaporate t) |
(overlay-put this-overlay 'evaporate t) |
191 |
(overlay-put this-overlay 'mouse-face |
(overlay-put this-overlay 'mouse-face |
192 |
goto-address-mail-mouse-face) |
goto-address-mail-mouse-face) |
193 |
|
(overlay-put this-overlay 'follow-link t) |
194 |
(overlay-put this-overlay |
(overlay-put this-overlay |
195 |
'help-echo "mouse-2, C-c RET: mail this address") |
'help-echo "mouse-2, C-c RET: mail this address") |
196 |
(overlay-put this-overlay |
(overlay-put this-overlay |
212 |
there, then load the URL at or before point." |
there, then load the URL at or before point." |
213 |
(interactive (list last-input-event)) |
(interactive (list last-input-event)) |
214 |
(save-excursion |
(save-excursion |
215 |
(if event (mouse-set-point event)) |
(if event (posn-set-point (event-end event))) |
216 |
(let ((address (save-excursion (goto-address-find-address-at-point)))) |
(let ((address (save-excursion (goto-address-find-address-at-point)))) |
217 |
(if (and address |
(if (and address |
218 |
(save-excursion |
(save-excursion |