From: tmorioka <tmorioka>
Date: Tue, 25 Feb 1997 07:30:15 +0000 (+0000)
Subject: Variable `tm:URL-regexp', `browse-url-browser-function' and function
X-Git-Tag: Hokutetsu-Ishikawa-new~283
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=88ec2412b94ab4c526210e6626f8272677e20e75;p=elisp%2Fsemi.git

Variable `tm:URL-regexp', `browse-url-browser-function' and function
`tm:browse-url' were moved from mime-def.el.
---

diff --git a/mime-text.el b/mime-text.el
index 2418615..d36e60b 100644
--- a/mime-text.el
+++ b/mime-text.el
@@ -4,7 +4,7 @@
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Version:
-;;	$Id: mime-text.el,v 0.4 1997-02-21 05:28:36 tmorioka Exp $
+;;	$Id: mime-text.el,v 0.5 1997-02-25 07:30:15 tmorioka Exp $
 ;; Keywords: text, MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -60,6 +60,25 @@
 	 )))
 
 
+;;; @ for URL
+;;;
+
+(defvar tm:URL-regexp
+  "\\(http\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*[-a-zA-Z0-9_=#$@~`%&*+|\\/]")
+
+(defvar browse-url-browser-function nil)
+
+(defun tm:browse-url (&optional url)
+  (if (fboundp 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)
+      )
+    ))
+
+
 ;;; @ content filters for mime-text
 ;;;