update.

[elisp/flim.git] / mmgeneric.el

diff --git a/mmgeneric.el b/mmgeneric.el
index d68c9bd..634c80a 100644 (file)
--- a/mmgeneric.el
+++ b/mmgeneric.el
@@ -144,9 +144,8 @@
          )
        t)))
 
-(mm-define-method insert-decoded-header ((entity generic)
-                                        &optional invisible-fields
-                                        visible-fields)
+(mm-define-method insert-header ((entity generic)
+                                &optional invisible-fields visible-fields)
   (save-restriction
     (narrow-to-region (point)(point))
     (let ((the-buf (current-buffer))
@@ -196,6 +195,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
 ;;;