From: tmorioka <tmorioka>
Date: Tue, 25 Feb 1997 07:40:37 +0000 (+0000)
Subject: `tm:browse-url' was renamed to `mime-text-browse-url'.
X-Git-Tag: Hokutetsu-Ishikawa-new~280
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=38ddcd87df6278f033c7fe5d43378e75aa6228b6;p=elisp%2Fsemi.git

`tm:browse-url' was renamed to `mime-text-browse-url'.
---

diff --git a/mime-text.el b/mime-text.el
index 968d37e..3a7777d 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.7 1997-02-25 07:37:40 tmorioka Exp $
+;;	$Id: mime-text.el,v 0.8 1997-02-25 07:40:37 tmorioka Exp $
 ;; Keywords: text, MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -69,7 +69,7 @@
   "\\(http\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*[-a-zA-Z0-9_=#$@~`%&*+|\\/]"
   "*Regexp to match URL in text/plain body.")
 
-(defun tm:browse-url (&optional url)
+(defun mime-text-browse-url (&optional url)
   (if (fboundp browse-url-browser-function)
       (if url 
         (funcall browse-url-browser-function url)
@@ -96,7 +96,7 @@
 	  (let ((beg (match-beginning 0))
 		(end (match-end 0)))
 	    (tm:add-button beg end
-			   (function tm:browse-url)
+			   (function mime-text-browse-url)
 			   (list (buffer-substring beg end))))
 	  )))
   (run-hooks 'mime-view-plain-text-preview-hook)