(insert-entity-content): New method.

diff --git a/mmbuffer.el b/mmbuffer.el
index 7d39adc..38432fb 100644 (file)
--- a/mmbuffer.el
+++ b/mmbuffer.el
@@ -86,6 +86,13 @@
                       (mime-entity-body-end-internal entity))
      (mime-entity-encoding entity))))
 
+(mm-define-method insert-entity-content ((entity buffer))
+  (insert (with-current-buffer (mime-entity-buffer-internal entity)
+           (mime-decode-string
+            (buffer-substring (mime-entity-body-start-internal entity)
+                              (mime-entity-body-end-internal entity))
+            (mime-entity-encoding entity)))))
+
 (mm-define-method write-entity-content ((entity buffer) filename)
   (save-excursion
     (set-buffer (mime-entity-buffer-internal entity))

diff --git a/mmgeneric.el b/mmgeneric.el
index a5a7244..df11185 100644 (file)
--- a/mmgeneric.el
+++ b/mmgeneric.el
@@ -100,6 +100,13 @@
                       (mime-entity-body-end-internal entity))
      (mime-entity-encoding entity))))
 
+(mm-define-method insert-entity-content ((entity generic))
+  (insert (with-current-buffer (mime-entity-buffer entity)
+           (mime-decode-string
+            (buffer-substring (mime-entity-body-start-internal entity)
+                              (mime-entity-body-end-internal entity))
+            (mime-entity-encoding entity)))))
+
 (mm-define-method write-entity-content ((entity generic) filename)
   (save-excursion
     (set-buffer (mime-entity-buffer entity))