From ee736183741e2bd36e1732c1e51a4bb8d36e706d Mon Sep 17 00:00:00 2001 From: morioka Date: Sun, 21 Jun 1998 09:59:28 +0000 Subject: [PATCH] (mime-entity-content): New function. --- mime-lib.el | 7 +++++++ 1 file changed, 7 insertions(+) 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))) -- 1.7.10.4