From 6297cc9fc4b3661592cca93d02ec6aea9965821f Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Fri, 5 Sep 1997 11:55:10 +0000
Subject: [PATCH] (mime-view-display-entity,
 mime-article/point-content-number,
 mime-article/cnum-to-cinfo, mime/flatten-content-info): Use
 `mime-entity-info-children' instead of
 `mime::content-info/children'.

---
 mime-view.el |   12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/mime-view.el b/mime-view.el
index f00c618..07bd94d 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.105 $
+;; Version: $Revision: 0.106 $
 ;; 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.105 1997-09-05 11:44:28 morioka Exp $")
+  "$Id: mime-view.el,v 0.106 1997-09-05 11:55:10 morioka Exp $")
 
 (defconst mime-view-version
   `,(get-version-string mime-view-RCS-ID))
@@ -542,7 +542,7 @@ The compressed face will be piped to this command.")
 	   (mime-view-insert-message/partial-button)
 	   )
 	  ((and (null rcnum)
-		(null (mime::content-info/children cinfo))
+		(null (mime-entity-info-children cinfo))
 		)
 	   (goto-char (point-max))
 	   (mime-view-insert-entity-button
@@ -630,7 +630,7 @@ The compressed face will be piped to this command.")
       )
   (let ((b (mime-entity-info-point-min cinfo))
 	(e (mime-entity-info-point-max cinfo))
-	(c (mime::content-info/children cinfo))
+	(c (mime-entity-info-children cinfo))
 	)
     (if (and (<= b p)(<= p e))
 	(or (let (co ret (sn 0))
@@ -666,7 +666,7 @@ The compressed face will be piped to this command.")
     (let ((sn (car cn)))
       (if (null sn)
 	  cinfo
-	(let ((rc (nth sn (mime::content-info/children cinfo))))
+	(let ((rc (nth sn (mime-entity-info-children cinfo))))
 	  (if rc
 	      (mime-article/cnum-to-cinfo (cdr cn) rc)
 	    ))
@@ -677,7 +677,7 @@ The compressed face will be piped to this command.")
       (setq cinfo mime::article/content-info)
       )
   (let ((dest (list cinfo))
-	(rcl (mime::content-info/children cinfo))
+	(rcl (mime-entity-info-children cinfo))
 	)
     (while rcl
       (setq dest (nconc dest (mime/flatten-content-info (car rcl))))
-- 
1.7.10.4