`mime-preview/insert-content-button' ->

`mime-view-insert-entity-button'.

diff --git a/mime-view.el b/mime-view.el
index 193b627..e9cb3a2 100644 (file)
--- 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)