X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-def.el;h=276dadd582afa1cd12d87d0d7f7e3339b501886e;hb=f64e139c5380c9b142e90dc9c308bf525a45c8a2;hp=88e788e4d40ffc30a38449dd1d7528e8942f7650;hpb=b3565485181f7cc7d8599671eb6f71a1ae417f23;p=elisp%2Fflim.git

diff --git a/mime-def.el b/mime-def.el
index 88e788e..276dadd 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -35,7 +35,7 @@
 (eval-when-compile (require 'cl))	; list*
 
 (eval-and-compile
-  (defconst mime-library-product ["Chao" (1 13 0) "JR Fujinomori"]
+  (defconst mime-library-product ["FLIM" (1 13 2) "Kasanui"]
     "Product name, version number and code name of MIME-library package.")
   )
 
@@ -212,6 +212,11 @@
 
 (require 'luna)
 
+(autoload 'mime-entity-content-type "mime")
+(autoload 'mime-parse-multipart "mime-parse")
+(autoload 'mime-parse-encapsulated "mime-parse")
+(autoload 'mime-entity-content "mime")
+
 (luna-define-class mime-entity ()
 		   (location
 		    content-type children parent
@@ -232,6 +237,30 @@
   (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)
+	   ))
+    ))
+
+(luna-define-method mime-insert-text-content ((entity mime-entity))
+  (insert
+   (decode-mime-charset-string (mime-entity-content entity)
+			       (or (mime-content-type-parameter
+				    (mime-entity-content-type entity)
+				    "charset")
+				   default-mime-charset)
+			       'CRLF)
+   ))
+
 
 ;;; @ for mm-backend
 ;;;