tm 7.66.1.

[elisp/tm.git] / tm-def.el

diff --git a/tm-def.el b/tm-def.el
index 32a815d..70265ac 100644 (file)
--- a/tm-def.el
+++ b/tm-def.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;    $Id: tm-def.el,v 7.44 1996/05/27 14:51:15 morioka Exp $
+;;;    $Id: tm-def.el,v 7.45 1996/05/31 17:52:07 morioka Exp $
 ;;; Keywords: mail, news, MIME, multimedia, definition
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -304,7 +304,9 @@
 
 (defun tm:browse-url (&optional url)
   (if (fboundp browse-url-browser-function)
-      (call-interactively browse-url-browser-function)
+      (if url 
+        (funcall browse-url-browser-function url)
+      (call-interactively browse-url-browser-function))
     (if (fboundp tm:mother-button-dispatcher)
        (call-interactively tm:mother-button-dispatcher)
       )