From b28fce681b5a11004af4d67538a5537e800f67ea Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 16 Dec 1999 13:16:05 +0000 Subject: [PATCH] (mime-parse-external): New function. --- mime-parse.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/mime-parse.el b/mime-parse.el index 5442896..24f9e61 100644 --- a/mime-parse.el +++ b/mime-parse.el @@ -286,6 +286,20 @@ If is is not found, return DEFAULT-ENCODING." entity (cons 0 (mime-entity-node-id-internal entity)))) )))) +(defun mime-parse-external (entity) + (require 'mmexternal) + (mime-entity-set-children-internal + entity + (with-current-buffer (mime-entity-body-buffer entity) + (save-restriction + (narrow-to-region (mime-entity-body-start-point entity) + (mime-entity-body-end-point entity)) + (list (mime-parse-message + 'mime-external-entity nil + entity (cons 0 (mime-entity-node-id-internal entity)))) + ;; [tomo] Should we unify with `mime-parse-encapsulated'? + )))) + (defun mime-parse-message (representation-type &optional default-ctl parent node-id) (let ((header-start (point-min)) -- 1.7.10.4