From c1d879d89c0e7613c09938840de690cba6773a39 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Fri, 16 Oct 1998 02:25:29 +0000
Subject: [PATCH] (insert-text-content): New method.

---
 mmcooked.el  |   14 ++++++++++++++
 mmgeneric.el |   10 ++++++++++
 2 files changed, 24 insertions(+)

diff --git a/mmcooked.el b/mmcooked.el
index cd261f4..e86ae24 100644
--- a/mmcooked.el
+++ b/mmcooked.el
@@ -66,6 +66,20 @@
 	     entity invisible-fields visible-fields)
     ))
 
+(mm-define-method insert-text-content ((entity cooked))
+  (let ((str (mime-entity-content entity)))
+    (insert
+     (if (member (mime-entity-encoding entity)
+		 '(nil "7bit" "8bit" "binary"))
+	 str
+       (decode-mime-charset-string str
+				   (or (mime-content-type-parameter
+					(mime-entity-content-type entity)
+					"charset")
+				       default-mime-charset)
+				   'CRLF)
+       ))))
+
 
 ;;; @ end
 ;;;
diff --git a/mmgeneric.el b/mmgeneric.el
index d68c9bd..41df66b 100644
--- a/mmgeneric.el
+++ b/mmgeneric.el
@@ -196,6 +196,16 @@
 		(insert "\n")
 		))))))))
 
+(mm-define-method insert-text-content ((entity generic))
+  (insert
+   (decode-mime-charset-string (mime-entity-content entity)
+			       (or (mime-content-type-parameter
+				    (mime-entity-content-type entity)
+				    "charset")
+				   default-mime-charset)
+			       'CRLF)
+   ))
+
 
 ;;; @ end
 ;;;
-- 
1.7.10.4