-\e$B$=$7$F!"\e(Bentity-number \e$B$d\e(B node-id \e$B$rMQ$$$k$3$H$G\e(B
-<code>mime-message-structure</code> \e$B$K$*$1$k\e(B entity \e$B$NAjBPE*$J0LCV4X78$r\e(B
-\e$B07$&$3$H$,$G$-$^$9!#\e(B
-
-
-<!-- <h2> mime-entity \e$B9=B$BN\e(B -->
-<!-- <node> mime-entity -->
-<!-- <p> -->
-<!-- <define type="Structure" name="mime-entity"> -->
-<!-- <p> -->
-<!-- entity \e$B$K4X$9$k>pJs$r<}$a$k9=B$BN!#\e(B -->
-<!-- <p> -->
-<!-- \e$B$3$N9=B$BN$r;2>H$9$k$K$O\e(B <code>mime-entity-\e$BMWAGL>\e(B</code> \e$B$H$$$&L>A0$N;2\e(B -->
-<!-- \e$B>H4X?t$rMQ$$$k!#\e(B -->
-<!-- <p> -->
-<!-- \e$B$3$N9=B$BN$NMWAG$O0J2<$NDL$j$G$"$k!'\e(B -->
-
-<!-- <vl> -->
-<!-- <dt>buffer<dd>entity \e$B$,B8:_$9$k\e(B buffer (buffer) -->
-<!-- </dd> -->
-<!-- <dt>header-start<dd>entity \e$B$NB8:_$9$k\e(B buffer \e$B$K$*$1$k\e(B header \e$B$N@hF,0LCV\e(B -->
-<!-- (point) -->
-<!-- </dd> -->
-<!-- <dt>header-end<dd>entity \e$B$NB8:_$9$k\e(B buffer \e$B$K$*$1$k\e(B header \e$B$NKvHx0LCV\e(B -->
-<!-- (point) -->
-<!-- </dd> -->
-<!-- <dt>body-start<dd>entity \e$B$NB8:_$9$k\e(B buffer \e$B$K$*$1$k\e(B body \e$B$N@hF,0LCV\e(B -->
-<!-- (point) -->
-<!-- </dd> -->
-<!-- <dt>body-end<dd>entity \e$B$NB8:_$9$k\e(B buffer \e$B$K$*$1$k\e(B body \e$B$NKvHx0LCV\e(B -->
-<!-- (point) -->
-<!-- </dd> -->
-<!-- <dt>node-id<dd>entity \e$B$N\e(B node-id (\e$B@0?t$N\e(B list) -->
-<!-- </dd> -->
-<!-- <dt>content-type<dd><dref>Content-Type</dref> \e$BMs$N>pJs\e(B -->
-<!-- (mime-content-type) -->
-<!-- </dd> -->
-<!-- <dt>content-disposition<dd><dref>Content-Disposition</dref> \e$BMs$N>pJs\e(B -->
-<!-- (mime-content-disposition) -->
-<!-- </dd> -->
-<!-- <dt>encoding<dd>entity \e$B$N\e(B <dref>Content-Transfer-Encoding</dref> (\e$BJ8;zNs\e(B) -->
-<!-- </dd> -->
-<!-- <dt>children<dd>entity \e$B$K4^$^$l$k\e(B entity \e$B$N\e(B list (mime-entity \e$B$N\e(B -->
-<!-- list) -->
-<!-- </dd> -->
-<!-- </vl> -->
-
-<!-- <p> -->
-<!-- \e$B$^$?!"2a5n$H$N8_49@-$N$?$a!"0J2<$NMWAGL>$N;2>H4X?t$bMxMQ2DG=$G$"$k!#\e(B -->
-
-<!-- <vl> -->
-<!-- <dt>type/subtype<dd>entity \e$B$N\e(B type/subtype (\e$BJ8;zNs\e(B) -->
-<!-- </dd> -->
-<!-- <dt>media-type<dd>entity \e$B$N\e(B media-primary-type (symbol) -->
-<!-- </dd> -->
-<!-- <dt>media-subtype<dd>entity \e$B$N\e(B media-subtype (symbol) -->
-<!-- </dd> -->
-<!-- <dt>parameters<dd>entity \e$B$N\e(B Content-Type \e$BMs$N\e(B parameter (\e$BO"A[\e(B list) -->
-<!-- </dd> -->
-<!-- </vl> -->
-<!-- </define> -->
-
-<!-- <defun name="make-mime-entity"> -->
-<!-- <args> buffer header-start header-end body-start body-end -->
-<!-- <opts> node-id content-type content-disposition encoding -->
-<!-- children -->
-<!-- <p> -->
-<!-- entity \e$B$N@8@.;R!#\e(B -->
-<!-- </defun> -->
-
-
-<h2> Entity \e$B$N@8@.\e(B
-<node> Entity creation
-<p>
-<defun name="mime-open-entity">
- <opts> type location
-<p>
-Open an entity and return it.
-<p>
-<var>type</var> is representation-type.
-<p>
-<var>location</var> is location of entity. Specification of it is
-depended on representation-type.
-</defun>
-
-<defun name="mime-parse-message">
- <opts> default-ctl node-id
-<p>
-\e$B8=:_$N\e(B buffer \e$B$r\e(B message \e$B$H$7$F9=J82r@O$7!"$=$N7k2L$N\e(B mime-entity \e$B$rJV\e(B
-\e$B$9!#\e(B
-</defun>
-
-<defun name="mime-parse-buffer">
- <opts> buffer