From: tmorioka <tmorioka>
Date: Thu, 27 Feb 1997 06:37:53 +0000 (+0000)
Subject: `tm:add-button' -> `mime-add-button'.
X-Git-Tag: Hokutetsu-Ishikawa-new~259
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5755b19efaa7b96d1d135d322b8b2ef74d726058;p=elisp%2Fsemi.git

`tm:add-button' -> `mime-add-button'.
---

diff --git a/mime-def.el b/mime-def.el
index 719ef61..1b4693c 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 <morioka@jaist.ac.jp>
-;; Version: $Id: mime-def.el,v 0.25 1997-02-26 07:44:22 tmorioka Exp $
+;; Version: $Id: mime-def.el,v 0.26 1997-02-27 06:33:44 tmorioka Exp $
 ;; Keywords: definition, MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -69,7 +69,7 @@
 (defvar mime-button-mouse-face 'highlight
   "Face used for MIME-preview buffer mouse highlighting.")
 
-(defun tm:add-button (from to func &optional data)
+(defun mime-add-button (from to func &optional data)
   "Create a button between FROM and TO with callback FUNC and data DATA."
   (and mime-button-face
        (overlay-put (make-overlay from to) 'face mime-button-face))
diff --git a/mime-view.el b/mime-view.el
index f4566ba..6913adf 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -6,7 +6,7 @@
 ;; Created: 1994/7/13
 ;;	Renamed: 1994/8/31 from tm-body.el
 ;;	Renamed: 1997/02/19 from tm-view.el
-;; Version: $Revision: 0.18 $
+;; Version: $Revision: 0.19 $
 ;; Keywords: MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -40,7 +40,7 @@
 ;;;
 
 (defconst mime-view-RCS-ID
-  "$Id: mime-view.el,v 0.18 1997-02-26 04:32:23 tmorioka Exp $")
+  "$Id: mime-view.el,v 0.19 1997-02-27 06:37:53 tmorioka Exp $")
 
 (defconst mime-view-version (get-version-string mime-view-RCS-ID))
 
@@ -268,8 +268,8 @@ Each elements are regexp of field-name. [mime-view.el]")
 		 )
 	       (insert rest)
 	       ))))
-    (tm:add-button (point-min)(1- (point-max))
-		   (function mime-view-play-content))
+    (mime-add-button (point-min)(1- (point-max))
+		     (function mime-view-play-content))
     ))
 
 (defun mime-preview/default-content-button-function
@@ -577,8 +577,8 @@ The compressed face will be piped to this command.")
     (let ((be (point-max)))
       (narrow-to-region be be)
       (insert mime-view-announcement-for-message/partial)
-      (tm:add-button (point-min)(point-max)
-		     (function mime-view-play-content))
+      (mime-add-button (point-min)(point-max)
+		       (function mime-view-play-content))
       )))
 
 (defun mime-article/get-uu-filename (param &optional encoding)