(mime-entity-content): New function.

diff --git a/mime-lib.el b/mime-lib.el
index fb46ca9..d32cba7 100644 (file)
--- 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)))