From: tmorioka Date: Tue, 25 Feb 1997 07:29:59 +0000 (+0000) Subject: Variable `tm:URL-regexp', `browse-url-browser-function' and function X-Git-Tag: Hokutetsu-Ishikawa-new~284 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8080e03ca3fd62b865def371ab0c06fc9bae37a9;p=elisp%2Fsemi.git Variable `tm:URL-regexp', `browse-url-browser-function' and function `tm:browse-url' were moved to mime-text.el. --- diff --git a/mime-def.el b/mime-def.el index dc5bce7..8cab856 100644 --- a/mime-def.el +++ b/mime-def.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. ;; Author: MORIOKA Tomohiko -;; Version: $Id: mime-def.el,v 0.12 1997-02-25 06:35:05 tmorioka Exp $ +;; Version: $Id: mime-def.el,v 0.13 1997-02-25 07:29:59 tmorioka Exp $ ;; Keywords: definition, MIME, multimedia, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -100,25 +100,6 @@ )))) -;;; @ 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 browse-url-browser-function nil) - -(defun tm:browse-url (&optional url) - (if (fboundp browse-url-browser-function) - (if url - (funcall browse-url-browser-function url) - (call-interactively browse-url-browser-function)) - (if (fboundp tm:mother-button-dispatcher) - (call-interactively tm:mother-button-dispatcher) - ) - )) - - ;;; @ PGP ;;;