From: tmorioka Date: Tue, 25 Feb 1997 07:37:40 +0000 (+0000) Subject: Require browse-url. X-Git-Tag: Hokutetsu-Ishikawa-new~281 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8b0b2f42cc368af9d4a4222035754d93ac126611;p=elisp%2Fsemi.git Require browse-url. --- diff --git a/mime-text.el b/mime-text.el index c166584..968d37e 100644 --- a/mime-text.el +++ b/mime-text.el @@ -4,7 +4,7 @@ ;; Author: MORIOKA Tomohiko ;; Version: -;; $Id: mime-text.el,v 0.6 1997-02-25 07:35:02 tmorioka Exp $ +;; $Id: mime-text.el,v 0.7 1997-02-25 07:37:40 tmorioka Exp $ ;; Keywords: text, MIME, multimedia, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -63,12 +63,12 @@ ;;; @ for URL ;;; +(require 'browse-url) + (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) - (defun tm:browse-url (&optional url) (if (fboundp browse-url-browser-function) (if url