From: morioka <morioka>
Date: Sat, 24 Jul 1999 07:43:39 +0000 (+0000)
Subject: Add autoload settings for `mime-entity-content-type',
X-Git-Tag: flim-1_13_2~28
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=223f3f8b15e6d730d1e74768870a526626e6035b;p=elisp%2Fflim.git

Add autoload settings for `mime-entity-content-type',
`mime-parse-multipart' and `mime-parse-encapsulated' [to avoid
warning].
(mime-entity-children): New method of `mime-entity' [moved from
mmbuffer.el].
---

diff --git a/mime-def.el b/mime-def.el
index e1b6b0f..6b8effd 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -212,6 +212,10 @@
 
 (require 'luna)
 
+(autoload 'mime-entity-content-type "mime")
+(autoload 'mime-parse-multipart "mime-parse")
+(autoload 'mime-parse-encapsulated "mime-parse")
+
 (luna-define-class mime-entity ()
 		   (location
 		    content-type children parent
@@ -232,6 +236,20 @@
   (cdr (assq field-name
 	     (mime-entity-original-header-internal entity))))
 
+(luna-define-method mime-entity-children ((entity mime-entity))
+  (let* ((content-type (mime-entity-content-type entity))
+	 (primary-type (mime-content-type-primary-type content-type)))
+    (cond ((eq primary-type 'multipart)
+	   (mime-parse-multipart entity)
+	   )
+	  ((and (eq primary-type 'message)
+		(memq (mime-content-type-subtype content-type)
+		      '(rfc822 news external-body)
+		      ))
+	   (mime-parse-encapsulated entity)
+	   ))
+    ))
+
 
 ;;; @ for mm-backend
 ;;;