X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=semi-def.el;h=9940f22c2c0fddfce5a72fd0a30c506f2241378a;hb=154bdd5462f644b328247bf28938b81c5eccf9b6;hp=3580c5edc6fd9c4c07b18b0302e3d920f6e465d3;hpb=a556556dca719fd3efa456c120cdd9001b7ab049;p=elisp%2Fsemi.git

diff --git a/semi-def.el b/semi-def.el
index 3580c5e..9940f22 100644
--- a/semi-def.el
+++ b/semi-def.el
@@ -1,4 +1,4 @@
-;;; semi-def.el --- definition module for REMI
+;;; semi-def.el --- definition module for SEMI
 
 ;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
 
@@ -24,14 +24,14 @@
 
 ;;; Code:
 
-(require 'emu)
+(require 'poe)
 
 (eval-when-compile (require 'cl))
 
 (require 'custom)
 
-(defconst mime-user-interface-version '("SEMI" "Toyama" 1 8 0)
-  "Implementation name, version name and numbers of MIME-kernel package.")
+(defconst mime-user-interface-product ["SEMI" (1 12 0) "Nishi-Kanazawa"]
+  "Product name, version number and code name of MIME-kernel package.")
 
 (autoload 'mule-caesar-region "mule-caesar"
   "Caesar rotation of current region." t)
@@ -105,8 +105,6 @@
 ;;; @ for URL
 ;;;
 
-(require 'browse-url)
-
 (defcustom mime-browse-url-regexp
   (concat "\\(http\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):"
 	  "\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?"
@@ -115,30 +113,20 @@
   :group 'mime
   :type 'regexp)
 
-(defun mime-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 mime-button-mother-dispatcher)
-	(call-interactively mime-button-mother-dispatcher)
-      )))
+(defcustom mime-browse-url-function (function browse-url)
+  "*Function to browse URL."
+  :group 'mime
+  :type 'function)
 
-(defsubst mime-browse-add-url-buttons ()
+(defsubst mime-add-url-buttons ()
   "Add URL-buttons for text body."
   (goto-char (point-min))
   (while (re-search-forward mime-browse-url-regexp nil t)
     (let ((beg (match-beginning 0))
 	  (end (match-end 0)))
-      (mime-add-button beg end (function mime-browse-url)
+      (mime-add-button beg end mime-browse-url-function
 		       (list (buffer-substring beg end))))))
 
-(defun mime-browse-add-url-buttons-maybe ()
-  "Add URL-buttons if 'browse-url-browser-function is non-nil."
-  (if browse-url-browser-function
-      (mime-browse-add-url-buttons)
-    ))
-
 
 ;;; @ menu
 ;;;