(goto-address-at-point, goto-address-at-mouse):

Don't funcall browse-url-browser-function.

diff --git a/lisp/goto-addr.el b/lisp/goto-addr.el
index 7a4026158a80553aabfc894e492c5f165dc890f4..05c55684b453dc095551cae1f326cab65c9c840e 100644 (file)
--- a/lisp/goto-addr.el
+++ b/lisp/goto-addr.el
@@ -196,7 +196,7 @@ there, then load the URL at or before the position of the mouse click."
            (let ((url (browse-url-url-at-point)))
              (if (string-equal url "")
                  (error "No e-mail address or URL found")
-               (funcall browse-url-browser-function url)))
+               (browse-url url)))
          (funcall goto-address-mail-method address))))))
 
 ;;;###autoload
@@ -212,7 +212,7 @@ there, then load the URL at or before point."
          (let ((url (browse-url-url-at-point)))
            (if (string-equal url "")
                (error "No e-mail address or URL found")
-             (funcall browse-url-browser-function url)))
+             (browse-url url)))
        (funcall goto-address-mail-method address)))))
 
 (defun goto-address-find-address-at-point ()