From: morioka <morioka>
Date: Sun, 24 Jan 1999 14:15:25 +0000 (+0000)
Subject: (insert-entity-content): New method.
X-Git-Tag: flim-1_12-199901241900~9
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=86c445e400da31939e118eb48d0acbee5b3ec9af;p=elisp%2Fflim.git

(insert-entity-content): New method.
---

diff --git a/mmbuffer.el b/mmbuffer.el
index 7d39adc..38432fb 100644
--- 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
--- 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))