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

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

diff --git a/mime-text.el b/mime-text.el
index d36e60b..c166584 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.5 1997-02-25 07:30:15 tmorioka Exp $
+;;	$Id: mime-text.el,v 0.6 1997-02-25 07:35:02 tmorioka Exp $
 ;; Keywords: text, MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -63,8 +63,9 @@
 ;;; @ 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 mime-text-url-regexp
+  "\\(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.")
 
 (defvar browse-url-browser-function nil)
 
@@ -91,7 +92,7 @@
   (if browse-url-browser-function
       (progn
 	(goto-char (point-min))
-	(while (re-search-forward tm:URL-regexp nil t)
+	(while (re-search-forward mime-text-url-regexp nil t)
 	  (let ((beg (match-beginning 0))
 		(end (match-end 0)))
 	    (tm:add-button beg end