From 38ddcd87df6278f033c7fe5d43378e75aa6228b6 Mon Sep 17 00:00:00 2001 From: tmorioka Date: Tue, 25 Feb 1997 07:40:37 +0000 Subject: [PATCH] `tm:browse-url' was renamed to `mime-text-browse-url'. --- mime-text.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 ;; 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) -- 1.7.10.4