From: morioka <morioka>
Date: Sun, 21 Jun 1998 09:59:28 +0000 (+0000)
Subject: (mime-entity-content): New function.
X-Git-Tag: flim-1_5_0~13
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ee736183741e2bd36e1732c1e51a4bb8d36e706d;p=elisp%2Fflim.git

(mime-entity-content): New function.
---

diff --git a/mime-lib.el b/mime-lib.el
index fb46ca9..d32cba7 100644
--- a/mime-lib.el
+++ b/mime-lib.el
@@ -124,6 +124,13 @@ current-buffer, and return it.")
 		    entity (put-alist field-name field header))
 		   field)))))))
 
+(defun mime-entity-content (entity)
+  (save-excursion
+    (set-buffer (mime-entity-buffer entity))
+    (mime-decode-string (buffer-substring (mime-entity-body-start entity)
+					  (mime-entity-body-end entity))
+			(mime-entity-encoding entity))))
+
 (defsubst mime-root-entity-p (entity)
   "Return t if ENTITY is root-entity (message)."
   (null (mime-entity-node-id entity)))