From: morioka <morioka>
Date: Mon, 17 Mar 1997 12:50:46 +0000 (+0000)
Subject: `mime-preview/insert-content-button' ->
X-Git-Tag: Hokutetsu-Ishikawa-new~92
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0ba0d1c08a6c1941ec4d49026104a5c25bf6bd77;p=elisp%2Fsemi.git

`mime-preview/insert-content-button' ->
`mime-view-insert-entity-button'.
---

diff --git a/mime-view.el b/mime-view.el
index 193b627..e9cb3a2 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.38 $
+;; Version: $Revision: 0.39 $
 ;; 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.38 1997-03-17 12:44:38 morioka Exp $")
+  "$Id: mime-view.el,v 0.39 1997-03-17 12:50:46 morioka Exp $")
 
 (defconst mime-view-version (get-version-string mime-view-RCS-ID))
 
@@ -233,7 +233,7 @@ Each elements are regexp of field-name. [mime-view.el]")
 ;;; @@ content button
 ;;;
 
-(defun mime-preview/insert-content-button
+(defun mime-view-insert-entity-button
   (rcnum cinfo ctype params subj encoding)
   (save-restriction
     (narrow-to-region (point)(point))
@@ -287,7 +287,7 @@ Each elements are regexp of field-name. [mime-view.el]")
 	   (not (member
 		 ctype
 		 mime-view-content-button-ignored-ctype-list)))
-      (mime-preview/insert-content-button
+      (mime-view-insert-entity-button
        rcnum cinfo ctype params subj encoding)
     ))
 
@@ -531,7 +531,7 @@ The compressed face will be piped to this command.")
 	      ctype mime-view-content-button-visible-ctype-list))
 	(save-excursion
 	  (goto-char (point-max))
-	  (mime-preview/insert-content-button
+	  (mime-view-insert-entity-button
 	   rcnum cinfo ctype params subj encoding)
 	  ))
     (cond ((mime-view-body-visible-p rcnum cinfo ctype)
@@ -545,7 +545,7 @@ The compressed face will be piped to this command.")
 		(null (mime::content-info/children cinfo))
 		)
 	   (goto-char (point-max))
-	   (mime-preview/insert-content-button
+	   (mime-view-insert-entity-button
 	    rcnum cinfo ctype params subj encoding)
 	   ))
     (mime-preview/default-content-separator rcnum cinfo ctype params subj)