X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mmcooked.el;h=6995469bfdc9e67bda42fa799ad571a61a804820;hb=99c158b34f006c5840785347fc7e711a6b246c0c;hp=cd261f4f081321e8fbfafc1d6a38a0eb02e60c7f;hpb=9cf6838bc986b73bc83955794f7424e9d3e1539d;p=elisp%2Fflim.git

diff --git a/mmcooked.el b/mmcooked.el
index cd261f4..6995469 100644
--- a/mmcooked.el
+++ b/mmcooked.el
@@ -58,14 +58,27 @@
 		  filename)
     ))
 
-(mm-define-method insert-decoded-header ((entity cooked)
-					 &optional invisible-fields
-					 visible-fields)
+(mm-define-method insert-header ((entity cooked)
+				 &optional invisible-fields visible-fields)
   (let (default-mime-charset)
     (funcall (mime-find-function 'insert-decoded-header 'buffer)
 	     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
 ;;;