(mime-parse-encapsulated): Run in body-buffer of an entity.
authormorioka <morioka>
Wed, 26 May 1999 08:51:07 +0000 (08:51 +0000)
committermorioka <morioka>
Wed, 26 May 1999 08:51:07 +0000 (08:51 +0000)
mmbuffer.el

index bc703a5..cb110fb 100644 (file)
 (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)