# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 909940102 0
# Node ID 133e5c5c2e64368dd2d621eb9b7868ff406781ea
# Parent  3805e63b8caf455cb45207ab092d0aea7158427b
(goto-address-at-point, goto-address-at-mouse):
Don't funcall browse-url-browser-function.

diff -r 3805e63b8caf -r 133e5c5c2e64 lisp/goto-addr.el
--- a/lisp/goto-addr.el	Sun Nov 01 16:58:49 1998 +0000
+++ b/lisp/goto-addr.el	Sun Nov 01 17:08:22 1998 +0000
@@ -196,7 +196,7 @@
 	    (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 @@
 	  (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 ()