(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'.

diff --git a/mime-view.el b/mime-view.el
index f00c618..07bd94d 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.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))))