(insert-text-content): New method.

diff --git a/mmcooked.el b/mmcooked.el
index cd261f4..e86ae24 100644 (file)
--- 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 (file)
--- 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
 ;;;