Function: goto-address-at-point

goto-address-at-point is an autoloaded, interactive and byte-compiled function defined in goto-addr.el.gz.

Signature

(goto-address-at-point &optional EVENT)

Documentation

Send to the e-mail address or load the URL at point.

Send mail to address at point. See documentation for goto-address-find-address-at-point. If no address is found there, then load the URL at or before point.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/net/goto-addr.el.gz
;; code to find and goto addresses; much of this has been blatantly
;; snarfed from browse-url.el

;;;###autoload
(defun goto-address-at-point (&optional event)
  "Send to the e-mail address or load the URL at point.
Send mail to address at point.  See documentation for
`goto-address-find-address-at-point'.  If no address is found
there, then load the URL at or before point."
  (interactive (list last-input-event))
  (save-excursion
    (if event (posn-set-point (event-end event)))
    (let ((address (save-excursion (goto-address-find-address-at-point))))
      (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
	      (browse-url url)
	    (error "No e-mail address or URL found")))))))