From 3f5a375c9b57a777bd7bd6c5bec8816142247558 Mon Sep 17 00:00:00 2001 From: tmorioka Date: Tue, 25 Feb 1997 07:35:02 +0000 Subject: [PATCH] `tm:URL-regexp' was renamed to `mime-text-url-regexp'. --- mime-text.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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 ;; 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 -- 1.7.10.4