From 2c4e98e33975db07cc96c16f6ba028aba62ba972 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 26 May 1999 08:51:07 +0000 Subject: [PATCH] (mime-parse-encapsulated): Run in body-buffer of an entity. --- mmbuffer.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/mmbuffer.el b/mmbuffer.el index bc703a5..cb110fb 100644 --- a/mmbuffer.el +++ b/mmbuffer.el @@ -151,13 +151,14 @@ (defun mime-parse-encapsulated (entity) (mime-entity-set-children-internal entity - (save-restriction - (narrow-to-region (mime-buffer-entity-body-start-internal entity) - (mime-buffer-entity-body-end-internal entity)) - (list (mime-parse-message - (mime-entity-representation-type-internal entity) nil - entity (cons 0 (mime-entity-node-id-internal entity)))) - ))) + (with-current-buffer (mime-entity-body-buffer entity) + (save-restriction + (narrow-to-region (mime-buffer-entity-body-start-internal entity) + (mime-buffer-entity-body-end-internal entity)) + (list (mime-parse-message + (mime-entity-representation-type-internal entity) nil + entity (cons 0 (mime-entity-node-id-internal entity)))) + )))) (defun mime-parse-message (representation-type &optional default-ctl parent node-id) -- 1.7.10.4