From: morioka <morioka>
Date: Thu, 16 Dec 1999 13:16:05 +0000 (+0000)
Subject: (mime-parse-external): New function.
X-Git-Tag: chao-1_14_0~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b28fce681b5a11004af4d67538a5537e800f67ea;p=elisp%2Fflim.git

(mime-parse-external): New function.
---

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))