FLIM 1.9 Manual about MIME Features -<author>MORIOKA Tomohiko <mail>morioka@jaist.ac.jp</mail> -<date>1998/07/01 - -<toc> -</head> - -<body> - -<abstract> -<p> -This file documents MIME features of FLIM, a Internet message -parsing/encoding library for GNU Emacs. -</abstract> - - -<h1> What is FLIM? -<node> Introduction -<p> -FLIM is a library to provide basic features about message -representation or encoding. - - -<h1> How to use MIME features -<node> How to use -<p> -Please eval following to use MIME features provided by FLIM: - -<lisp> -(require 'mime) -</lisp> - - -<h1> Message and Entity -<node> Entity -<p> -According to <dref>RFC 2045</dref>, `The term ``entity'', refers -specifically to the MIME-defined header fields and contents of either -a message or one of the parts in the body of a multipart entity.' In -this document, the term <concept>entity</concept> indicates all of -header fields and body. -<p> -The definition of RFC 2045 indicates that a MIME message is a tree. -An message is a tree, each node is an entity, like following figure. -Namely MIME extends message to tree structure. -<p> -FLIM uses <concept>mime-entity</concept> structure to represent -information of entity. In this document, it is called simply -`mime-entity'. -<p> -$BA0=R$N$h$&$K!"(Bmessage $BCf$N3F(B entity $B$OLZ$N@a$KEv$?$j$^$9$,!"$3$NLZ$K$O(B -$B?<$5$HF1$8?<$5$NCf$N=gHV$K=>$C$FHV9f$,IU$1$k$3$H$,$G$-$^$9!#B($A!"(B -<verb> - - $B(#(!(!(!($(B - $B("(B nil $B("(B - $B(&(!(((!(%(B - $B(#(!(!(!(!(!(!(!(!(!(+(!(!(!(!(!(!(!(!(!($(B - $B(#(*($(B $B(#(*($(B $B(#(*($(B - $B("#0("(B $B("#1("(B $B("#2("(B - $B(&(((%(B $B(&(((%(B $B(&(((%(B - $B("(B $B(#(!(!(!(!(+(!(!(!(!($(B $B("(B - $B(#(!(*(!($(#(!(*(!($(#(!(*(!($(#(!(*(!($(#(!(*(!($(B - $B("(B $B#0(B.$B#0("("(B $B#1(B.$B#0("("(B $B#1(B.$B#1("("(B $B#1(B.$B#2("("(B $B#2(B.$B#0("(B - $B(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(B - -</verb> -<p> -<noindent>$B$N$h$&$K?<$5(B n $B$N@a$K$OD9$5(B n $B$N@0?tNs$N@aHV9f$,?6$l$^$9!#$3$l(B -$B$r(B <concept>entity-number</concept> $B$H8F$S$^$9!#(Bentity-number $B$O(B S $B<0$H(B -$B$7$F$O(B <code>(1 2 3)</code> $B$N$h$&$J@0?t$N%j%9%H$H$7$FI=8=$5$l$^$9!#(B -<p> -mime-entity $B$G$O!"$3$l$HF1MM$N(B <concept>node-id</concept> $B$rMQ$$$^$9!#(B -node-id $B$O$A$g$&$I(B entity-number $B$r5U$K$7$?%j%9%H$G!"(Bentity-number -1.2.3 $B$KBP1~$9$k(B node-id $B$O(B <code>(3 2 1)</code> $B$G$9!#(B -<p> -$BA0=R$N$h$&$K!"(BMIME message $B$O(B entity $B$rC10L$H$7$?LZ9=B$$K$J$C$F$$$k$N$G!"(B -$B$3$N:,$G$"$k(B message $BA4BN$b(B mime-entity $B$GI=8=$9$k$3$H$,$G$-!"(Bbuffer -local $BJQ?t(B <code>mime-message-structure</code> $B$K3JG<$9$k$3$H$K$7$^$9!#(B -$B$=$7$F!"(Bentity-number $B$d(B node-id $B$rMQ$$$k$3$H$G(B -<code>mime-message-structure</code> $B$K$*$1$k(B entity $B$NAjBPE*$J0LCV4X78$r(B -$B07$&$3$H$,$G$-$^$9!#(B - - -<h2> Functions to create mime-entity -<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. <cf node="mm-backend"> -<p> -<var>location</var> is location of entity. Specification of it is -depended on representation-type. -</defun> - -<defun name="mime-parse-buffer"> - <opts> buffer type -<p> -Parse <var>buffer</var> as message, and set the result to buffer local -variable <code>mime-message-structure</code> of <var>buffer</var> as -mime-entity. -<p> -If <var>buffer</var> is omitted, current buffer is used. -<p> -<var>type</var> is representation-type of created mime-entity. <cf -node="mm-backend"> Default value is <var>buffer</var>. -</defun> - - -<h2> Features about message tree -<node> Entity hierarchy -<p> -<defvar name="mime-message-structure"> -<p> -Buffer local variable to store mime-entity structure of message. -</defvar> - -<defun name="mime-entity-children"> - <args> entity -<p> -Return list of entities included in the <var>entity</var>. -</defun> - -<defun name="mime-entity-parent"> - <args> entity <opts> message -<p> -Return parent entity of the <var>entity</var>. -<p> -If <var>message</var> is specified, it is regarded as root instead of -<code>mime-message-structure</code>. -</defun> - -<defun name="mime-root-entity-p"> - <args> entity -<p> -Return non-<code>nil</code> if <var>entity</var> is root entity -(message). -</defun> - -<defun name="mime-entity-node-id"> - <args> entity -<p> -Return node-id of <var>entity</var>. -</defun> - -<defun name="mime-entity-number"> - <args> entity -<p> -Return entity-number of <var>entity</var>. -</defun> - -<defun name="mime-find-entity-from-number"> - <args> entity-number <opts> message -<p> -Return entity from <var>entity-number</var> in <var>message</var>. -<p> -If <var>message</var> is not specified, -<code>mime-message-structure</code> is used. -</defun> - -<defun name="mime-find-entity-from-node-id"> - <args> entity-node-id <opts> message -<p> -Return entity from <var>entity-node-id</var> in <var>message</var>. -<p> -If <var>message</var> is not specified, -<code>mime-message-structure</code> is used. -</defun> - - -<h2> Functions about attributes of mime-entity -<node> Entity Attributes -<p> -<defun name="mime-entity-content-type"> - <args> entity -<p> -Return content-type of <var>entity</var>. -<cf node="mime-content-type"> -</defun> - -<defun name="mime-entity-content-disposition"> - <args> entity -<p> -Return content-disposition of <var>entity</var>. <cf -node="mime-content-disposition"> -</defun> - -<defun name="mime-entity-filename"> - <args> entity -<p> -Return file name of <var>entity</var>. -</defun> - -<defun name="mime-entity-encoding"> - <args> entity <opts> default-encoding -<p> -Return content-transfer-encoding of <var>entity</var>. -<cf node="Content-Transfer-Encoding"> -<p> -If the <var>entity</var> does not have Content-Transfer-Encoding -field, this function returns <var>default-encoding</var>. If it is -nil, <code>"7bit"</code> is used as default value. -</defun> - -<defun name="mime-entity-cooked-p"> - <args> entity -<p> -Return non-nil if contents of <var>entity</var> has been already -code-converted. -</defun> - - -<h2> Information of entity header -<node> Entity-header -<p> -<defun name="mime-fetch-field"> - <args> field-name <opts> entity -<p> -Return field-body of <var>field-name</var> field in header of -<var>entity</var>. -<p> -The results is network representation. -<p> -If <var>entity</var> is omitted, <code>mime-message-structure</code> -is used as default value. -<p> -If <var>field-name</var> field is not found, this function returns -<code>nil</code>. -</defun> - -<defun name="mime-read-field"> - <args> field-name <opts> entity -<p> -Parse <var>field-name</var> field in header of <var>entity</var>, and -return the result. -<p> -Format of result is depended on kind of field. For non-structured -field, this function returns string. For structured field, it returns -list corresponding with structure of the field. -<p> -Strings in the result will be converted to internal representation of -Emacs. -<p> -If <var>entity</var> is omitted, <code>mime-message-structure</code> -is used as default value. -<p> -If <var>field-name</var> field is not found, this function returns -<code>nil</code>. -</defun> - -<defun name="mime-insert-decoded-header"> - <args> entity <opts> invisible-fields visible-fields -<p> -Insert before point a decoded contents of header of <var>entity</var>. -<p> -<var>invisible-fields</var> is list of regexps to match field-name to -hide. <var>visible-fields</var> is list of regexps to match -field-name to hide. -<p> -If a field-name is matched with some elements of -<var>invisible-fields</var> and matched with none of -<var>visible-fields</var>, this function don't insert the field. -</defun> - - -<h2> Contents of Entity -<node> Entity-content -<p> -<defun name="mime-entity-content"> - <args> entity -<p> -Return content of <var>entity</var> as byte sequence. -</defun> - -<defun name="mime-write-entity-content"> - <args> entity filename -<p> -Write content of <var>entity</var> into <var>filename</var>. -</defun> - -<defun name="mime-write-entity"> - <args> entity filename -<p> -Write representation of <var>entity</var> into <var>filename</var>. -</defun> - -<defun name="mime-write-entity-body"> - <args> entity filename -<p> -Write body of <var>entity</var> into <var>filename</var>. -</defun> - - -<h2> Entity as buffer representation -<node> Entity buffer -<p> -<defun name="mime-entity-buffer"> - <args> entity -<p> -Return buffer, which contains <var>entity</var>. -</defun> - -<defun name="mime-entity-point-min"> - <args> entity -<p> -Return the start point of <var>entity</var> in the buffer which -contains <var>entity</var>. -</defun> - -<defun name="mime-entity-point-max"> - <args> entity -<p> -Return the end point of <var>entity</var> in the buffer which -contains <var>entity</var>. -</defun> - -<defun name="mime-entity-header-start"> - <args> entity -<p> -Return the start point of header of <var>entity</var> in the buffer -which contains <var>entity</var>. -</defun> - -<defun name="mime-entity-header-end"> - <args> entity -<p> -Return the end point of header of <var>entity</var> in the buffer -which contains <var>entity</var>. -</defun> - -<defun name="mime-entity-body-start"> - <args> entity -<p> -Return the start point of body of <var>entity</var> in the buffer -which contains <var>entity</var>. -</defun> - -<defun name="mime-entity-body-end"> - <args> entity -<p> -Return the end point of body of <var>entity</var> in the buffer which -contains <var>entity</var>. -</defun> - - -<h2> Entity representations and implementations -<node> mm-backend -<p> -Entity $B$OCj>]2=$5$l$?%G!<%?I=8=$G!"<B:]$N%G!<%?I=8=$H$7$F$OMQES$K1~$8$F(B -$B$5$^$6$^$J$b$N$,MxMQ$G$-$k$h$&$K@_7W$5$l$F$$$^$9!#(B -<p> -$B$3$3$G!"(Bentity $B$,$I$&$$$&<oN`$NI=8=$r9T$C$F$$$k$+$r<($9$N$,(B -<concept>representation-type</concept> $B$G!"(Bentity $B$r@8@.$9$k;~$K$O$3$l$r(B -$B;XDj$7$^$9!#(B<cf node="Entity Creation"> -<p> -$BA0@a$^$G$K=R$Y$FMh$?(B entity $B$KBP$9$k=hM}$O!"(Bentity $B$KBP$7$F$=$N=hM}$r0M(B -$BMj$9$k$3$H$K$h$C$F<B8=$5$l$F$$$^$9!#(BEntity $B$O<+J,$N(B -representation-type $B$rCN$C$F$*$j!"$=$N(B representation-type $B$K1~$8$F<B:](B -$B$N=hM}$r9T$&4X?t$r8F$S=P$7$^$9!#$3$N$h$&$J4X?t$r(B <concept>entity $B=hM}(B -method</concept> $B$H8F$S$^$9!#$^$?!"(Brepresentation-type $BKh$K$3$N$h$&$J4X(B -$B?t$r$^$H$a$?$b$N$r(B <concept>mm-backend</concept> $B$H8F$S$^$9!#(B -<p> -mm-backend $B$O(B representation-type $B$NL>A0$N@hF,$K(B <code>mm</code> $B$H$$$&(B -$B@\F,<-$rIU$1$?4X?tL>$+$i$J$k(B module $B$G!"$=$N(B module $BL>$OF1MM$K(B -representation-type $B$NL>A0$N@hF,$K(B <code>mm</code> $B$rIU$1$?$b$N$K$J$C$F(B -$B$$$^$9!#$3$N(B module $B$O(B representation-type $B$N(B entity $B$,:G=i$K@8@.$5$l$k(B -$B;~$K<+F0E*$K(B require $B$5$l$^$9!#(B - - -<h3> Message-passing for entity -<node> Request for entity -<p> -<defun name="mime-entity-send"> - <args> entity message <rest> args -<p> -<var>entity</var> $B$K(B <var>message</var> $B$rAw$k!#(B -<p> -<var>args</var> $B$O(B <var>message</var> $B$N0z?t$G$"$k!#(B -</defun> - - -<h3> How to make mm-backend -<node> mm-backend module -<p> -$B!J$9$_$^$;$s!#$=$N$&$A=q$-$^$9(B (^_^;$B!K(B -<p> -$B!J$H$j$"$($:!"(Bmm*.el $B$r;29M$K$7$F$/$@$5$$!K(B - - -<h1> Information of Content-Type field -<node> Content-Type -<p> -<concept>Content-Type field</concept> is a field to indicate kind of -contents or data format, such as <dref>media-type</dref> and MIME -charset. It is defined in <dref>RFC 2045</dref>. - -<memo> -<p> -Historically, Content-Type field was proposed in RFC 1049. In it, -Content-Type did not distinguish type and subtype, and there are no -mechanism to represent kind of character code like MIME charset. -</memo> - -<p> -FLIM provides parser for Content-Type field and structure -<concept>mime-content-type</concept> to store information of -Content-Type field. - - -<h2> Format of Content-Type field -<node> Content-Type field -<p> -Content-Type $BMs$N7A<0$O0J2<$N$h$&$KDj5A$5$l$F$$$^$9!'(B - -<quote> -``Content-Type'' ``:'' <concept>type</concept> ``/'' -<concept>subtype</concept> *( ``;'' <concept>parameter</concept> ) -</quote> -<p> -$BNc$($P!"(B - -<quote> -<verb> -Content-Type: image/jpeg -</verb> -</quote> - -<noindent> -$B$d(B - -<quote> -<verb> -Content-Type: text/plain; charset=iso-2022-jp -</verb> -</quote> - -<noindent> -$B$J$I$N$h$&$KMQ$$$i$l$^$9!#(B -<p> -$B$3$3$G!"(B`type' $B$H(B `subtype' $B$O(B entity $B$N7A<0$r<($9$b$N$G!"N><T$rAm>N$7(B -$B$F!"(B`media-type' $B$H8F$V$3$H$K$7$^$9!#>e5-$NNc$K$*$1$k(B `image/jpeg' $B$d(B -`text/plain' $B$O(B media-type $B$N#1$D$G$9!#(B - -<memo> -<p> -Content-Type $BMs$N$J$$(B entity $B$O(B - -<quote> -<verb> -Content-Type: text/plain; charset=us-ascii -</verb> -</quote> - -<noindent> -$B$H$7$F2r<a$5$l$k!#(B<cf node="us-ascii"> -</memo> - - -<h2> mime-content-type structure -<node> mime-content-type -<p> -<define type="Structure" name="mime-content-type"> -<p> -Content-Type $BMs$N>pJs$r3JG<$9$k$?$a$N9=B$BN!#(B -<p> -$B$3$N9=B$BN$r;2>H$9$k$K$O(B <code>mime-content-type-$BMWAGL>(B</code> $B$H$$$&L>(B -$BA0$N;2>H4X?t$rMQ$$$k!#(B -<p> -$B$3$N9=B$BN$NMWAG$O0J2<$NDL$j$G$"$k!'(B - -<vl> -<dt>primary-type<dd>media-type $B$N<g7?(B (symbol). -</dd> -<dt>subtype<dd>media-type $B$NI{7?(B (symbol). -</dd> -<dt>parameters<dd>Content-Type $BMs$N(B parameter ($BO"A[(B list). -</dd> -</vl> -</define> - -<defun name="make-mime-content-type"> - <args> type subtype - <opts> parameters -<p>content-type $B$N@8@.;R!#(B -</defun> - -<defun name="mime-content-type-parameter"> -<args> content-type parameter -<p> -<var>content-type</var> $B$N(B <var>parameter</var> $B$NCM$rJV$9!#(B -</defun> - - -<h2> Parser -<node> Content-Type parser -<p> -<defun name="mime-parse-Content-Type"> - <args> string -<p> -<var>string</var> $B$r(B content-type $B$H$7$F2r@O$7$?7k2L$rJV$9!#(B -</defun> - -<defun name="mime-read-Content-Type"> -<p> -$B8=:_$N(B buffer $B$N(B Content-Type $BMs$rFI$_<h$j!"2r@O$7$?7k2L$rJV$9!#(B -<p> -Content-Type $BMs$,B8:_$7$J$$>l9g$O(B nil $B$rJV$9!#(B -</defun> - - -<h2> Utility functions -<node> Content-Type utility -<p> -<defun name="mime-type/subtype-string"> - <args> type <opts> subtype -<p> -Return type/subtype string from <var>type</var> and -<var>subtype</var>. -</defun> - - -<h1> Information of Content-Disposition field -<node> Content-Disposition -<p> -<concept>Content-Disposition $BMs(B</concept> $B$O(B entity $B$NI=<($d(B file $BL>$J$I(B -$B$NB0@-$K$J$I$K4X$9$k>pJs$r5-=R$9$k$?$a$N$b$N$G$9!#(B - -<rfc number="2183" type="Standards Track" - author="S. Dorner, K. Moore and R. Troost" - title="Communicating Presentation Information in - Internet Messages: The Content-Disposition Header" - date="August 1997"> -<p> -FLIM $B$O(B Content-Disposition $BMs$r9=J82r@O$9$k4X?t$H(B Content-Disposition -$BMs$N2r@O7k2L$r3JG<$9$k9=B$BN(B -<concept>mime-content-disposition</concept> $B$rDs6!$7$^$9!#(B - - -<h2> mime-content-disposition structure -<node> mime-content-disposition -<p> -<define type="Structure" name="mime-content-disposition"> -<p> -Content-Disposition $BMs$N2r@O7k2L$r<}$a$k$?$a$N9=B$BN!#(B -<p> -$B$3$N9=B$BN$r;2>H$9$k$K$O(B <code>mime-content-disposition-$BMWAGL>(B</code> $B$H(B -$B$$$&L>A0$N;2>H4X?t$rMQ$$$k!#(B -<p> -$B$3$N9=B$BN$NMWAG$O0J2<$NDL$j$G$"$k!'(B - -<vl> -<dt>disposition-type<dd>disposition-type (symbol). -</dd> -<dt>parameters<dd>Content-Disposition $BMs$N(B parameter ($BO"A[(B list). -</dd> -</vl> -</define> - -<defun name="mime-content-disposition-parameter"> -<args> content-disposition parameter -<p> -<var>content-disposition</var> $B$N(B <var>parameter</var> $B$NCM$rJV$9!#(B -</defun> - -<defun name="mime-content-disposition-filename"> -<args> content-disposition -<p> -<var>content-disposition</var> $B$N(B filename $B$NCM$rJV$9!#(B -</defun> - - -<h2> Parser for Content-Disposition field -<node> Content-Disposition parser -<p> -<defun name="mime-parse-Content-Disposition"> - <args> string -<p> -<var>string</var> $B$r(B content-disposition $B$H$7$F2r@O$7$?7k2L$rJV$9!#(B -</defun> - -<defun name="mime-read-Content-Disposition"> -<p> -$B8=:_$N(B buffer $B$N(B Content-Disposition $BMs$rFI$_<h$j!"2r@O$7$?7k2L$rJV$9!#(B -<p> -Content-Disposition $BMs$,B8:_$7$J$$>l9g$O(B nil $B$rJV$9!#(B -</defun> - - -<h1> Encoding Method -<node> Content-Transfer-Encoding -<p> -<concept>Content-Transfer-Encoding $BMs(B</concept> $B$O(B entity $B$NId9f2=K!$r5-(B -$B=R$9$k$?$a$N$b$N$G$9!#(B -<p> -FLIM $B$G$O(B Content-Transfer-Encoding $BMs$r9=J82r@O$9$k4X?t$rDs6!$7$^$9!#$3(B -$B$l$i$N4X?t$O(B Content-Transfer-Encoding $BMs$N>pJs$OJ8;zNs$GI=8=$7$^$9!#(B -<p> -$B$^$?!"(BContent-Transfer-Encoding $B$K4p$E$$$FId9f2=!&I|9f2=$r9T$&4X?t$bDs(B -$B6!$5$l$^$9!#(B - - -<h2> Parser -<node> Content-Transfer-Encoding parser -<p> -<defun name="mime-parse-Content-Transfer-Encoding"> - <args> string -<p> -<var>string</var> $B$r(B content-transfer-encoding $B$H$7$F2r@O$7$?7k2L$rJV$9!#(B -</defun> - -<defun name="mime-read-Content-Transfer-Encoding"> - <opts>default-encoding -<p> -$B8=:_$N(B buffer $B$N(B Content-Transfer-Encoding $BMs$rFI$_<h$j!"2r@O$7$?7k2L$r(B -$BJV$9!#(B -<p> -Content-Transfer-Encoding $BMs$,B8:_$7$J$$>l9g$O(B -<var>default-encoding</var> $B$rJV$9!#(B -</defun> - - -<h2> Region encoding/decoding -<node> Region encoder/decoder -<p> -<defun name="mime-encode-region"> - <args> start end encoding -<p> -Encode region <var>start</var> to <var>end</var> of current buffer -using <var>encoding</var>. -</defun> - -<defun name="mime-decode-region"> - <args> start end encoding -<p> -Decode region <var>start</var> to <var>end</var> of current buffer -using <var>encoding</var>. -</defun> - -<defvar name="mime-encoding-method-alist"> -<p> -Alist of encoding vs. corresponding method to encode region. -<p> -Each element looks like <code>(STRING . FUNCTION)</code> or -<code>(STRING . nil)</code>. <var>string</var> is -content-transfer-encoding. <code>function</code> is region encoder -and <code>nil</code> means not to encode. -</defvar> - -<defvar name="mime-decoding-method-alist"> -<p> -Alist of encoding vs. corresponding method to decode region. -<p> -Each element looks like <code>(STRING . FUNCTION)</code> or -<code>(STRING . nil)</code>. <var>string</var> is -content-transfer-encoding. <code>function</code> is region decoder -and <code>nil</code> means not to decode. -</defvar> - - -<h2> String encoding/decoding -<node> String encoder/decoder -<p> -<defun name="mime-decode-string"> - <args> string encoding -<p> -<var>string</var> $B$r(B <var>encoding</var> $B$H$7$FI|9f$7$?7k2L$rJV$7$^$9!#(B -</defun> - -<defvar name="mime-string-decoding-method-alist"> -<p> -Alist of encoding vs. corresponding method to decode string. -<p> -Each element looks like <code>(STRING . FUNCTION)</code>. -STRING is content-transfer-encoding. -FUNCTION is string decoder. -</defvar> - - -<h2> File encoding/decoding -<node> File encoder/decoder -<p> -<defun name="mime-insert-encoded-file"> - <args> filename encoding -<p> -Insert file <var>FILENAME</var> encoded by <var>ENCODING</var> format. -</defun> - -<defun name="mime-write-decoded-region"> - <args> start end filename encoding -<p> -Decode and write current region encoded by <var>encoding</var> into -<var>filename</var>. -<p> -<var>start</var> and <var>end</var> are buffer positions. -</defun> - -<defvar name="mime-file-encoding-method-alist"> -<p> -Alist of encoding vs. corresponding method to insert encoded file. -<p> -Each element looks like <code>(STRING . FUNCTION)</code>. STRING is -content-transfer-encoding. FUNCTION is function to insert encoded -file. -</defvar> - -<defvar name="mime-file-decoding-method-alist"> -<p> -Alist of encoding vs. corresponding method to write decoded region to -file. -<p> -Each element looks like <code>(STRING . FUNCTION)</code>. STRING is -content-transfer-encoding. FUNCTION is function to write decoded -region to file. -</defvar> - - -<h1> Network representation of header -<node> encoded-word -<p> -encoded-word $B$O(B header $B$GHs(B <dref>ASCII</dref> $BJ8;z$rI=8=$9$k$?$a$N7A(B -$B<0$G!"(B<concept>RFC 2047</concept> $B$GDj5A$5$l$F$$$^$9!#(B -<p> -<rfc number="2047" type="Standards Track" author="K. Moore" - title="MIME (Multipurpose Internet Mail Extensions) Part - Three: Message Header Extensions for Non-ASCII Text" - date="November 1996" obsolete="1521,1522,1590"> -<p> -$B$^$?!"9T57$N0-$$$3$H$@$H8@$($^$9$,!"(Bencoded-word $B$rMQ$$$:$KHs(B -<dref>ASCII</dref> $BJ8;z$r(B header $B$KF~$l$?5-;v$bB8:_$7$^$9!#(B -<p> -FLIM $B$O$3$l$i$rId9f2=!&I|9f2=$9$k5!G=$rDs6!$7$^$9!#(B - - -<h2> Header encoding/decoding -<node> Header encoder/decoder -<p> -<defun name="eword-encode-header"> - <opts> code-conversion separator -<p> -Decode MIME encoded-words in header fields. -<p> -If <var>code-conversion</var> is <code>nil</code>, it decodes only -encoded-words. If it is mime-charset, it decodes non-ASCII bit -patterns as the mime-charset. Otherwise it decodes non-ASCII bit -patterns as the default-mime-charset. -<p> -If <var>separator</var> is not nil, it is used as header separator. -</defun> - -<defun name="eword-encode-header"> - <opts> code-conversion -<p> -Encode header fields to network representation, such as MIME -encoded-word. -<p> -It refer variable <code>eword-field-encoding-method-alist</code>. -</defun> - - -<h1> Various Customization -<node> custom -<p> -<define type="group" name="mime"> -<p> -MIME $B4XO"5!G=$K4X$9$k(B group. -<p> -<code>mail</code> $B$H(B <code>news</code> $B$KB0$9$k!#(B -</define> - -<defvar name="default-mime-charset"> -<p> -$BE,@Z$J(B <dref>MIME charset</dref> $B$,8+$D$+$i$J$+$C$?>l9g$KMQ$$$i$l$k(B -MIME charset. -<p> -$BK\Mh$O(B APEL $B$NJQ?t$G$"$k!#(B -</defvar> - -<defvar name="mime-temp-directory"> -<p> -MIME $B5!G=$K4X$9$k<BAu$,0l;~E*$K;HMQ$9$k(B file $B$r:n@.$9$k(B directory. -<p> -$B4D6-JQ?t(B <code>MIME_TMP_DIR</code>, <code>TM_TMP_DIR</code>, -<code>TMPDIR</code>, <code>TMP</code> $B$b$7$/$O(B <code>TEMP</code> $B$,@_Dj(B -$B$5$l$F$$$?>l9g!"$=$l$r=i4|CM$H$7$FMQ$$$k!#2?$b@_Dj$5$l$F$$$J$$>l9g!"(B -<code>"/tmp/"</code> $B$rMQ$$$k!#(B -</defvar> - - -<h1> Appendix -<node> Appendix - -<h2> Glossary -<node> Glossary - -<h3> 7bit -<node> 7bit -<p> -<concept>7bit</concept> means any integer between 0 .. 127. -<p> -Any data represented by 7bit integers is called <concept>7bit -data</concept>. -<p> -Textual string consisted of Control characters between 0 .. 31 and -127, and space represented by 32, and graphic characters between 33 -.. 236 are called <concept>7bit (textual) string</concept>. -<p> -Conventional Internet <a node="MTA">MTA</a> can translate 7bit data, -so it is no need to translate by <a -node="Quoted-Printable">Quoted-Printable</a> or <a -node="Base64">Base64</a> for 7bit data. -<p> -However if there are too long lines, it can not translate by 7bit MTA -even if it is 7bit data. <dref>RFC 821</dref> and <dref>RFC -2045</dref> require lines in 7bit data must be less than 998 bytes. -So if a ``7bit data'' has a line more than 999 bytes, it is regarded -as <dref>binary</dref>. For example, Postscript file should be -encoded by Quoted-Printable. - - -<h3> 8bit -<node> 8bit -<p> -<concept>8bit</concept> means any integer between 0 .. 255. -<p> -Any data represented by 8bit integers is called <concept>8bit -data</concept>. -<p> -Textual string consisted of Control characters between 0 .. 31, 127, -and 128 .. 159, and space represented by 32, and graphic characters -between 33 .. 236 and 160 .. 255 are called <concept>8bit (textual) -string</concept>. -<p> -For example, <dref>iso-8859-1</dref> or <dref>euc-kr</dref> are -coded-character-set represented by 8bit textual string. -<p> -Traditional Internet <a node="MTA">MTA</a> can translate only -<dref>7bit</dref> data, so if a 8bit data will be translated such MTA, -it must be encoded by <dref>Quoted-Printable</dref> or -<dref>Base64</dref>. -<p> -However 8bit MTA are increasing today. -<p> -However if there are too long lines, it can not translate by 8bit MTA -even if it is 8bit data. <dref>RFC 2045</dref> require lines in 8bit -data must be less than 998 bytes. So if a ``8bit data'' has a line -more than 999 bytes, it is regarded as <dref>binary</dref>, so it must -be encoded by Base64 or Quoted-Printable. - - -<h3> ASCII -<node> ASCII -<p> -<concept>ASCII</concept> is a 94-character set contains primary latin -characters (A-Z, a-z), numbers and some characters. It is a standard -of the United States of America. It is a variant of <a node="ISO -646">ISO 646</a>. - -<standard abbrev="ASCII" title-en="Coded Character Set -- 7-Bit - American Standard Code for Information Interchange" - number="ANSI X3.4" year="1986"> - - -<h3> Base64 -<node> Base64 -<p> -<concept>Base64</concept> is a transfer encoding method of -<dref>MIME</dref> defined in <dref>RFC 2045</dref>. -<p> -The encoding process represents 24-bit groups of input bits as output -strings of 4 encoded characters. Encoded characters represent integer -0 .. 63 or <concept>pad</concept>. Base64 data must be 4 * n bytes, -so pad is used to adjust size. -<p> -These 65 characters are subset of all versions of ISO 646, including -US-ASCII, and all versions of EBCDIC. So it is safe even if it is -translated by non-Internet gateways. - - -<h3> binary -<node> binary -<p> -Any byte stream is called <concept>binary</concept>. -<p> -It does not require structureof lines. It differs from from <a -node="8bit">8bit</a>. -<p> -In addition, if line structured data contain too long line (more than -998 bytes), it is regarded as binary. - - -<h3> Coded character set, Character code -<node> coded character set -<p> -A set of unambiguous rules that establishes a character set and the -one-to-one relationship between the characters of the set and their -bit combinations. - - -<h3> media-type -<node> media-type -<p> -<concept>media-type</concept> specifies the nature of the data in the -body of <dref>MIME</dref> <dref>entity</dref>. It consists of -<concept>type</concept> and <concept>subtype</concept>. It is defined -in <dref>RFC 2046</dref>. -<p> -Currently there are following standard primary-types: - -<ul> -<li><concept>text</concept> -</li> -<li><concept>image</concept> -</li> -<li><concept>audio</concept> -</li> -<li><concept>video</concept> -</li> -<li><concept>application</concept> -</li> -<li><a node="multipart"><concept>multipart</concept></a> -</li> -<li><concept>message</concept> -</ul> - -<p> -And there are various subtypes, for example, application/octet-stream, -audio/basic, image/jpeg, <dref>multipart/mixed</dref>, -<dref>text/plain</dref>, video/mpeg... - -<p> -You can refer registered media types at <a -href="ftp://ftp.isi.edu/in-notes/iana/assignments/media-types">MEDIA -TYPES</a>. -<p> -In addition, you can use private type or subtype using -<concept>x-token</concept>, which as the prefix `x-'. However you can -not use them in public. -<p> -<cf node="Content-Type field"> - - -<h3> message -<node> message -<p> -In this document, it means mail defined in <dref>RFC 822</dref> and -news message defined in <dref>RFC 1036</dref>. - - -<h3> MIME -<node> MIME -<p> -MIME stands for <concept>Multipurpose Internet Mail -Extensions</concept>, it is an extension for <dref>RFC 822</dref>. -<p> -According to RFC 2045: -<p> -STD 11, RFC 822, defines a message representation protocol specifying -considerable detail about US-ASCII message headers, and leaves the -message content, or message body, as flat US-ASCII text. This set of -documents, collectively called the Multipurpose Internet Mail -Extensions, or MIME, redefines the format of messages to allow for - -<ol> -<li>textual message bodies in character sets other than US-ASCII, -</li> -<li>an extensible set of different formats for non-textual message -bodies, -</li> -<li>multi-part message bodies, and -</li> -<li>textual header information in character sets other than US-ASCII. -</ol> - -<p> -It is defined in <dref>RFC 2045</dref>, <dref>RFC 2046</dref>, <a -node="encoded-word">RFC 2047</a>, <dref>RFC 2048</dref> and <dref>RFC -2049</dref>. - - -<h3> MIME charset -<node> MIME charset -<p> -<a node="coded character set">Coded character set</a> used in -<dref>Content-Type field</dref> or charset parameter of <a -node="encoded-word">encoded-word</a>. -<p> -It is defined in <dref>RFC 2045</dref>. -<p> -<dref>iso-2022-jp</dref> or <dref>euc-kr</dref> are kinds of it. (In -this document, MIME charsets are written by small letters to -distinguish <dref>graphic character set</dref>. For example, ISO -8859-1 is a graphic character set, and iso-8859-1 is a MIME charset) - - -<h3> MTA -<node> MTA -<p> -<concept>Message Transfer Agent</concept>. It means mail transfer -programs (ex. sendmail) and news servers. -<p> -<cf node="MUA"> - - -<h3> MUA -<node> MUA -<p> -<concept>Message User Agent</concept>. It means mail readers and news -readers. -<p> -<cf node="MTA"> - - -<h3> Quoted-Printable -<node> Quoted-Printable -<p> -<concept>Quoted-Printable</concept> is a transfer encoding method of -<dref>MIME</dref> defined in <dref>RFC 2045</dref>. -<p> -If the data being encoded are mostly US-ASCII text, the encoded form -of the data remains largely recognizable by humans. -<p> -<cf node="Base64"> - - -<h3> RFC 822 -<node> RFC 822 -<p> -A RFC defines format of Internet mail message, mainly <concept>message -header</concept>. - -<memo> -<p> -news message is based on RFC 822, so <concept>Internet -message</concept> may be more suitable than <concept>Internet -mail</concept> . -</memo> - -<rfc number="822" type="STD 11" author="D. Crocker" title="Standard - for the Format of ARPA Internet Text Messages" - date="August 1982"> - - -<h3> RFC 1036 -<node> RFC 1036 -<p> -A RFC defines format of USENET message. It is a subset of <dref>RFC -822</dref>. It is not Internet standard, but a lot of netnews -excepting Usenet uses it. - -<rfc name="USENET" number="1036" author="M. Horton and R. Adams" - title="Standard for Interchange of USENET Messages" - date="December 1987" obsolete="850"> - - -<h3> RFC 2045 -<node> RFC 2045 -<p> -<rfc number="2045" type="Standards Track" author="N. Freed and - N. Borenstein" title="Multipurpose Internet Mail - Extensions (MIME) Part One: Format of Internet Message - Bodies" date="November 1996" obsolete="1521, 1522, - 1590"> - - -<h3> RFC 2046 -<node> RFC 2046 -<p> -<rfc number="2046" type="Standards Track" author="N. Freed and - N. Borenstein" title="Multipurpose Internet Mail - Extensions (MIME) Part Two: Media Types" - date="November 1996" obsolete="1521, 1522, 1590"> - - -<h3> RFC 2048 -<node> RFC 2048 -<p> -<rfc number="2048" type="Standards Track" author="N. Freed, J. Klensin - and J. Postel" title="Multipurpose Internet Mail - Extensions (MIME) Part Four: Registration Procedures" - date="November 1996" obsolete="1521, 1522, 1590"> - - -<h3> RFC 2049 -<node> RFC 2049 -<p> -<rfc number="2049" type="Standards Track" author="N. Freed and - N. Borenstein" title="Multipurpose Internet Mail - Extensions (MIME) Part Five: Conformance Criteria and - Examples" date="November 1996" obsolete="1521, 1522, - 1590"> - - -<h3> plain text -<node> plain text -<p> -A textual data represented by only <dref>coded character set</dref>. -It does not have information about font or typesetting. -<cf node="text/plain"> - - -<h3> us-ascii -<node> us-ascii -<p> -A <a node="MIME charset">MIME charset</a> for primary Latin script -mainly written by English or other languages. -<p> -It is a 7bit <dref>coded character set</dref> based on <dref>ISO -2022</dref>, it contains only -<dref>ASCII</dref> and <dref>code extension</dref> is not allowed. -<p> -It is standard coded character set of Internet mail. If MIME charset -is not specified, <concept>us-ascii</concept> is used as default. -<p> -In addition, <concept>ASCII</concept> of <dref>RFC 822</dref> should -be interpreted as us-ascii. - - -<h2> How to report bugs -<node> Bug report -<p> -If you write bug-reports and/or suggestions for improvement, please -send them to the tm Mailing List: - -<ul> -<li> Japanese <mail>bug-tm-ja@chamonix.jaist.ac.jp</mail> -<li> English <mail>bug-tm-en@chamonix.jaist.ac.jp</mail> -</ul> - -<p> -Notice that, we do not welcome bug reports about too old version. -Bugs in old version might be fixed. So please try latest version at -first. -<p> -You should write <concept>good bug report</concept>. If you write -only ``FLIM does not work'', we can not find such situations. At -least, you should write name, type, variants and version of OS, emacs, -APEL, FLIM, SEMI and MUA, and setting. In addition, if error occurs, -to send backtrace is very important. <cf file="emacs" node="Bugs"> -<p> -Bug may not appear only your environment, but also in a lot of -environment (otherwise it might not bug). Therefor if you send mail -to author directly, we must write a lot of mails. So please send mail -to address for tm bugs instead of author. - -<p> -Via the tm ML, you can report FLIM bugs, obtain the latest release of -FLIM, and discuss future enhancements to FLIM. To join the tm ML, -send empty e-mail to: - -<ul> -<li> Japanese <mail>tm-ja-help@chamonix.jaist.ac.jp</mail> -<li> English <mail>tm-en-help@chamonix.jaist.ac.jp</mail> -</ul> - - -<h2> CVS based development -<node> CVS -<p> -FLIM $B$N(B file $B$O(B CVS $B$r;H$C$F4IM}$5$l$F$$$^$9!#$3$N$?$a!"0J2<$NJ}K!$G:G(B -$B?7$N(B FLIM $B$rF~<j$9$k$3$H$,$G$-$^$9!'(B - -<verb> -(0) cvs login - - % cvs -d :pserver:anonymous@chamonix.jaist.ac.jp:/hare/cvs/root \ - login - - CVS password: [CR] # NULL string - -(1) checkout - - % cvs -d :pserver:anonymous@chamonix.jaist.ac.jp:/hare/cvs/root \ - checkout [-r TAG] flim -</verb> - -<p> -CVS $B$rMQ$$$?3+H/$K;22C$7$?$$J}$O(B - -<ul> -<li> <mail>cvs@chamonix.jaist.ac.jp</mail> -</ul> - -<noindent> -$B$^$G!"(Baccount $BL>$H(B UNIX $B$N(B passwd $B$HF1$87A<0$N(B crypt $B2=$5$l$?(B password -$B$r1h$($F8fO"Mm$/$@$5$$!#(B - - -<h2> History of FLIM -<node> History -<p> -FLIM $B$N(B code $B$N:G8E$NItJ,$O(B $B1]JB(B $B;LCR(B $B;a$,=q$$$?(B <file>mime.el</file> -$B$K5/8;$7$^$9!#$3$N>.$5$J(B program $B$O(B Nemacs $B$GF0:n$9$k(B iso-2022-jp $B$N(B -B-encoding $B@lMQ$N(B encoded-word $B$NI|9f2=%W%m%0%i%`$G$7$?!#(B -<p> -$B$=$N8e!"<i2,(B $BCNI'(B $B$O(B <file>mime.el</file> $B$r85$K(B -<file>tiny-mime.el</file> $B$H$$$&%W%m%0%i%`$r=q$-$^$9!#$3$l$O!"(BNemacs -$B$H(B Mule $B$GF0:n$9$k(B encoded-word $B$NId9f2=!&I|9f2=%W%m%0%i%`$G$7$?!#(B -<file>tiny-mime.el</file> $B$O(B B-encoding $B$@$1$G$J$/(B Q-encoding $B$b(B -support $B$7!"$^$?!"(BMULE $B$G07$&$3$H$,$G$-$k$5$^$6$^$J(B <dref>MIME -charset</dref> $B$rF1;~$K;H$&$3$H$,$G$-$^$7$?!#$3$N;~!"(BNemacs $B$H(B Mule $B$N(B -$BAPJ}$r(B support $B$9$k$?$a$KMQ$$$i$l$?%F%/%K%C%/$O8e$K(B emu package $B$K$^$H(B -$B$a$i$l$^$9!#(B -<p> -$B$3$N:"!"<i2,(B $BCNI'(B $B$O(B <file>tiny-mime.el</file> $B$r$5$^$6$^$J(B MUA $B$G;H$&(B -$B$?$a$N@_Dj=8$bG[I[$7$F$$$^$7$?$,!"$=$l$i$O8e$K(B -<file>tiny-mime.el</file> $B$H$H$b$K#1$D$N(B package $B$K$^$H$a$i$l!"(Btm $B$H$$(B -$B$&L>A0$GG[I[$5$l$^$9!#(B -<p> -$B<i2,(B $BCNI'(B $B$O$d$,$F!"(BMIME message $B$r1\Mw$9$k$?$a$N%W%m%0%i%`$G$"$k(B -<file>tm-body.el</file> $B$r=q$-$^$9!#$3$l$O!"$9$0$K(B -<file>tm-view.el</file> $B$H$$$&L>A0$KJQ$o$j$^$7$?$,!"$d$,$F!"$3$l$,(B -<file>tiny-mime.el</file> $B$KBe$o$C$F!"(Btm $B$NCf3K$H$J$j$^$9!#(B -<p> -<file>tm-view.el</file> $B$OEvA3!"(BContent-Transfer-Encoding $B$r07$&I,MW$,(B -$B$"$j$^$9!#$3$NL\E*$N$?$a$K!"(BMEL $B$,@0Hw$5$l$O$8$a$^$7$?!#(BBase64 $B$K4X$7(B -$B$F$O(B <file>tiny-mime.el</file> $B$N(B code $B$,0\$5$l!"$^$?!"?7$?$K(B -Quoted-Printable $B$N(B code $B$,DI2C$5$l$^$7$?!#$3$l$i$,(B -<file>mel-b.el</file> $B$H(B <file>mel-q.el</file> $B$K$J$j$^$7$?!#(B -<p> -$B$^$?!"8e$K!"<i2,(B $BCNI'(B $B$K$h$C$F(B uuencode $BMQ$N(B <file>mel-u.el</file> $B$,(B -$BDI2C$5$l!"$=$N8e$K!">.NS(B $B=$J?(B $B;a$K$h$C$F(B x-gzip64 $BMQ$N(B -<file>mel-g.el</file> $B$,DI2C$5$l$^$7$?!#(B -<p> -tm $B$G$O8e$K!"<i2,(B $BCNI'(B $B$K$h$C$F(B <file>tiny-mime.el</file> $B$N:F<BAu$,9T(B -$B$o$l!"$3$N2aDx$G!"(BSTD 11 $B$N(B parser $B$,=q$+$l$^$7$?!#$3$l$O!"8=:_$N(B -<file>std11.el</file> $B$KEv$?$j$^$9!#$^$?!"$3$N2aDx$G(B -<file>tiny-mime.el</file> $B$OI|9f2=$r9T$&(B <file>tm-ew-d.el</file> $B$HId(B -$B9f2=$r9T$&(B <file>tm-ew-e.el</file> $B$KJ,$1$i$l$^$7$?!#$3$NN><T$,8=:_$N(B -<file>eword-decode.el</file> $B$H(B <file>eword-encode.el</file> $B$N@hAD$K(B -$BEv$?$j$^$9!#(B -<p> -$B8e$K!"<i2,(B $BCNI'(B $B$i$K$h$C$F(B tm $B$NA4LL=q$-49$(:n6H$,9T$o$l!"$3$N2aDx$G!"(B -tm $B$O(B APEL, MEL, SEMI, EMH, RMAIL-MIME, Gnus-MIME $B$J$I$KJ,$1$i$l$^$7$?!#(B -$B$3$N$&$A$N(B MEL $B$,(B FLIM $B$ND>@\$N@hAD$KEv$?$j$^$9!#(B -<p> -$B8e$K!"(BAPEL $B$+$i(B <file>std11.el</file> $B$,0\$5$l!"$^$?!"(B -<file>mailcap.el</file>, <file>eword-decode.el</file> $B$*$h$S(B -<file>eword-encode.el</file> $B$,(B SEMI $B$+$i0\$5$l!"(Bpackage $B$NL>A0$,(B FLIM -$B$H$J$j$^$9!#(B -<p> -$B$3$ND>A0$+$iEDCf(B $BE/(B $B;a$,$h$j(B RFC $B$KCi<B$J<BAu$r=q$-;O$a!"$3$l$O!"8=:_!"(B -FLIM $B$N;^$G$"$k(B ``FLIM-FLAM'' $B$H$J$C$F$$$^$9!#(B - - -<h1> Concept Index -<node> Concept Index - -<cindex> - - -<h1> Function Index -<node> Function Index - -<findex> - - -<h1> Variable Index -<node> Variable Index - -<vindex> - -</body> diff --git a/mime-en.texi b/mime-en.texi deleted file mode 100644 index a95ec3d..0000000 --- a/mime-en.texi +++ /dev/null @@ -1,1474 +0,0 @@ -\input texinfo.tex -@setfilename mime-en.info -@settitle{FLIM 1.9 Manual about MIME Features} -@titlepage -@title FLIM 1.9 Manual about MIME Features -@author MORIOKA Tomohiko <morioka@@jaist.ac.jp> -@subtitle 1998/07/01 -@end titlepage -@node Top, Introduction, (dir), (dir) -@top FLIM 1.9 Manual about MIME Features - -@ifinfo - -This file documents MIME features of FLIM, a Internet message -parsing/encoding library for GNU Emacs. -@end ifinfo - -@menu -* Introduction:: What is FLIM? -* How to use:: How to use MIME features -* Entity:: Message and Entity -* Content-Type:: Information of Content-Type field -* Content-Disposition:: Information of Content-Disposition field -* Content-Transfer-Encoding:: Encoding Method -* encoded-word:: Network representation of header -* custom:: Various Customization -* Appendix:: -* Concept Index:: -* Function Index:: -* Variable Index:: -@end menu - -@node Introduction, How to use, Top, Top -@chapter What is FLIM? - -FLIM is a library to provide basic features about message -representation or encoding. - - -@node How to use, Entity, Introduction, Top -@chapter How to use MIME features - -Please eval following to use MIME features provided by FLIM: - -@lisp -(require 'mime) -@end lisp - - - -@node Entity, Content-Type, How to use, Top -@chapter Message and Entity -@cindex node-id -@cindex entity-number -@cindex mime-entity -@cindex entity - -According to RFC 2045 (@ref{RFC 2045}), `The term ``entity'', refers -specifically to the MIME-defined header fields and contents of either a -message or one of the parts in the body of a multipart entity.' In this -document, the term @strong{entity} indicates all of header fields and -body.@refill - -The definition of RFC 2045 indicates that a MIME message is a tree. An -message is a tree, each node is an entity, like following figure. -Namely MIME extends message to tree structure.@refill - -FLIM uses @strong{mime-entity} structure to represent information of -entity. In this document, it is called simply `mime-entity'.@refill - -$BA0=R$N$h$&$K!"(Bmessage $BCf$N3F(B entity $B$OLZ$N@a$KEv$?$j$^$9$,!"$3$NLZ$K$O(B -$B?<$5$HF1$8?<$5$NCf$N=gHV$K=>$C$FHV9f$,IU$1$k$3$H$,$G$-$^$9!#B($A!"(B -@example - - $B(#(!(!(!($(B - $B("(B nil $B("(B - $B(&(!(((!(%(B - $B(#(!(!(!(!(!(!(!(!(!(+(!(!(!(!(!(!(!(!(!($(B - $B(#(*($(B $B(#(*($(B $B(#(*($(B - $B("#0("(B $B("#1("(B $B("#2("(B - $B(&(((%(B $B(&(((%(B $B(&(((%(B - $B("(B $B(#(!(!(!(!(+(!(!(!(!($(B $B("(B - $B(#(!(*(!($(#(!(*(!($(#(!(*(!($(#(!(*(!($(#(!(*(!($(B - $B("(B $B#0(B.$B#0("("(B $B#1(B.$B#0("("(B $B#1(B.$B#1("("(B $B#1(B.$B#2("("(B $B#2(B.$B#0("(B - $B(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(B -@end example - -@noindent -$B$N$h$&$K?<$5(B n $B$N@a$K$OD9$5(B n $B$N@0?tNs$N@aHV9f$,?6$l$^$9!#$3$l(B -$B$r(B @strong{entity-number} $B$H8F$S$^$9!#(Bentity-number $B$O(B S $B<0$H(B -$B$7$F$O(B @code{(1 2 3)} $B$N$h$&$J@0?t$N%j%9%H$H$7$FI=8=$5$l$^$9!#(B - -mime-entity $B$G$O!"$3$l$HF1MM$N(B @strong{node-id} $B$rMQ$$$^$9!#(Bnode-id $B$O$A$g(B -$B$&$I(B entity-number $B$r5U$K$7$?%j%9%H$G!"(Bentity-number 1.2.3 $B$KBP1~$9$k(B -node-id $B$O(B @code{(3 2 1)} $B$G$9!#(B@refill - -$BA0=R$N$h$&$K!"(BMIME message $B$O(B entity $B$rC10L$H$7$?LZ9=B$$K$J$C$F$$$k$N$G!"(B -$B$3$N:,$G$"$k(B message $BA4BN$b(B mime-entity $B$GI=8=$9$k$3$H$,$G$-!"(Bbuffer -local $BJQ?t(B @code{mime-message-structure} $B$K3JG<$9$k$3$H$K$7$^$9!#(B -$B$=$7$F!"(Bentity-number $B$d(B node-id $B$rMQ$$$k$3$H$G(B -@code{mime-message-structure} $B$K$*$1$k(B entity $B$NAjBPE*$J0LCV4X78$r(B -$B07$&$3$H$,$G$-$^$9!#(B - - -@menu -* Entity creation:: Functions to create mime-entity -* Entity hierarchy:: Features about message tree -* Entity Attributes:: Functions about attributes of mime-entity -* Entity-header:: Information of entity header -* Entity-content:: Contents of Entity -* Entity buffer:: Entity as buffer representation -* mm-backend:: Entity representations and implementations -@end menu - -@node Entity creation, Entity hierarchy, Entity, Entity -@section Functions to create mime-entity - -@defun mime-open-entity &optional type location - -Open an entity and return it.@refill - -@var{type} is representation-type. (cf. @ref{mm-backend}) @refill - -@var{location} is location of entity. Specification of it is depended -on representation-type. -@end defun - - -@defun mime-parse-buffer &optional buffer type - -Parse @var{buffer} as message, and set the result to buffer local -variable @code{mime-message-structure} of @var{buffer} as -mime-entity.@refill - -If @var{buffer} is omitted, current buffer is used.@refill - -@var{type} is representation-type of created -mime-entity. (cf. @ref{mm-backend}) Default value is @var{buffer}. -@end defun - - - -@node Entity hierarchy, Entity Attributes, Entity creation, Entity -@section Features about message tree - -@defvar mime-message-structure - -Buffer local variable to store mime-entity structure of message. -@end defvar - - -@defun mime-entity-children entity - -Return list of entities included in the @var{entity}. -@end defun - - -@defun mime-entity-parent entity &optional message - -Return parent entity of the @var{entity}.@refill - -If @var{message} is specified, it is regarded as root instead of -@code{mime-message-structure}. -@end defun - - -@defun mime-root-entity-p entity - -Return non-@code{nil} if @var{entity} is root entity (message). -@end defun - - -@defun mime-entity-node-id entity - -Return node-id of @var{entity}. -@end defun - - -@defun mime-entity-number entity - -Return entity-number of @var{entity}. -@end defun - - -@defun mime-find-entity-from-number entity-number &optional message - -Return entity from @var{entity-number} in @var{message}.@refill - -If @var{message} is not specified, @code{mime-message-structure} is -used. -@end defun - - -@defun mime-find-entity-from-node-id entity-node-id &optional message - -Return entity from @var{entity-node-id} in @var{message}.@refill - -If @var{message} is not specified, @code{mime-message-structure} is -used. -@end defun - - - -@node Entity Attributes, Entity-header, Entity hierarchy, Entity -@section Functions about attributes of mime-entity - -@defun mime-entity-content-type entity - -Return content-type of @var{entity}. (cf. @ref{mime-content-type}) -@end defun - - -@defun mime-entity-content-disposition entity - -Return content-disposition of -@var{entity}. (cf. @ref{mime-content-disposition}) -@end defun - - -@defun mime-entity-filename entity - -Return file name of @var{entity}. -@end defun - - -@defun mime-entity-encoding entity &optional default-encoding - -Return content-transfer-encoding of @var{entity}. -(cf. @ref{Content-Transfer-Encoding}) @refill - -If the @var{entity} does not have Content-Transfer-Encoding field, this -function returns @var{default-encoding}. If it is nil, @code{"7bit"} is -used as default value. -@end defun - - -@defun mime-entity-cooked-p entity - -Return non-nil if contents of @var{entity} has been already -code-converted. -@end defun - - - -@node Entity-header, Entity-content, Entity Attributes, Entity -@section Information of entity header - -@defun mime-fetch-field field-name &optional entity - -Return field-body of @var{field-name} field in header of -@var{entity}.@refill - -The results is network representation.@refill - -If @var{entity} is omitted, @code{mime-message-structure} is used as -default value.@refill - -If @var{field-name} field is not found, this function returns -@code{nil}. -@end defun - - -@defun mime-read-field field-name &optional entity - -Parse @var{field-name} field in header of @var{entity}, and return the -result.@refill - -Format of result is depended on kind of field. For non-structured -field, this function returns string. For structured field, it returns -list corresponding with structure of the field.@refill - -Strings in the result will be converted to internal representation of -Emacs.@refill - -If @var{entity} is omitted, @code{mime-message-structure} is used as -default value.@refill - -If @var{field-name} field is not found, this function returns -@code{nil}. -@end defun - - -@defun mime-insert-decoded-header entity &optional invisible-fields visible-fields - -Insert before point a decoded contents of header of @var{entity}.@refill - -@var{invisible-fields} is list of regexps to match field-name to hide. -@var{visible-fields} is list of regexps to match field-name to -hide.@refill - -If a field-name is matched with some elements of @var{invisible-fields} -and matched with none of @var{visible-fields}, this function don't -insert the field. -@end defun - - - -@node Entity-content, Entity buffer, Entity-header, Entity -@section Contents of Entity - -@defun mime-entity-content entity - -Return content of @var{entity} as byte sequence. -@end defun - - -@defun mime-write-entity-content entity filename - -Write content of @var{entity} into @var{filename}. -@end defun - - -@defun mime-write-entity entity filename - -Write representation of @var{entity} into @var{filename}. -@end defun - - -@defun mime-write-entity-body entity filename - -Write body of @var{entity} into @var{filename}. -@end defun - - - -@node Entity buffer, mm-backend, Entity-content, Entity -@section Entity as buffer representation - -@defun mime-entity-buffer entity - -Return buffer, which contains @var{entity}. -@end defun - - -@defun mime-entity-point-min entity - -Return the start point of @var{entity} in the buffer which contains -@var{entity}. -@end defun - - -@defun mime-entity-point-max entity - -Return the end point of @var{entity} in the buffer which contains -@var{entity}. -@end defun - - -@defun mime-entity-header-start entity - -Return the start point of header of @var{entity} in the buffer which -contains @var{entity}. -@end defun - - -@defun mime-entity-header-end entity - -Return the end point of header of @var{entity} in the buffer which -contains @var{entity}. -@end defun - - -@defun mime-entity-body-start entity - -Return the start point of body of @var{entity} in the buffer which -contains @var{entity}. -@end defun - - -@defun mime-entity-body-end entity - -Return the end point of body of @var{entity} in the buffer which -contains @var{entity}. -@end defun - - - -@node mm-backend, , Entity buffer, Entity -@section Entity representations and implementations -@cindex mm-backend -@cindex entity $B=hM}(B method -@cindex representation-type - -Entity $B$OCj>]2=$5$l$?%G!<%?I=8=$G!"<B:]$N%G!<%?I=8=$H$7$F$OMQES$K1~$8$F(B -$B$5$^$6$^$J$b$N$,MxMQ$G$-$k$h$&$K@_7W$5$l$F$$$^$9!#(B@refill - -$B$3$3$G!"(Bentity $B$,$I$&$$$&<oN`$NI=8=$r9T$C$F$$$k$+$r<($9$N$,(B -@strong{representation-type} $B$G!"(Bentity $B$r@8@.$9$k;~$K$O$3$l$r;XDj$7$^$9!#(B -(cf. @ref{Entity Creation}) @refill - -$BA0@a$^$G$K=R$Y$FMh$?(B entity $B$KBP$9$k=hM}$O!"(Bentity $B$KBP$7$F$=$N=hM}$r0M(B -$BMj$9$k$3$H$K$h$C$F<B8=$5$l$F$$$^$9!#(BEntity $B$O<+J,$N(B representation-type -$B$rCN$C$F$*$j!"$=$N(B representation-type $B$K1~$8$F<B:]$N=hM}$r9T$&4X?t$r8F(B -$B$S=P$7$^$9!#$3$N$h$&$J4X?t$r(B @strong{entity $B=hM}(Bmethod} $B$H8F$S$^$9!#$^$?!"(B -representation-type $BKh$K$3$N$h$&$J4X?t$r$^$H$a$?$b$N$r(B -@strong{mm-backend} $B$H8F$S$^$9!#(B@refill - -mm-backend $B$O(B representation-type $B$NL>A0$N@hF,$K(B @code{mm} $B$H$$$&(B -$B@\F,<-$rIU$1$?4X?tL>$+$i$J$k(B module $B$G!"$=$N(B module $BL>$OF1MM$K(B -representation-type $B$NL>A0$N@hF,$K(B @code{mm} $B$rIU$1$?$b$N$K$J$C$F(B -$B$$$^$9!#$3$N(B module $B$O(B representation-type $B$N(B entity $B$,:G=i$K@8@.$5$l$k(B -$B;~$K<+F0E*$K(B require $B$5$l$^$9!#(B - - -@menu -* Request for entity:: Message-passing for entity -* mm-backend module:: How to make mm-backend -@end menu - -@node Request for entity, mm-backend module, mm-backend, mm-backend -@subsection Message-passing for entity - -@defun mime-entity-send entity message &rest args - -@var{entity} $B$K(B @var{message} $B$rAw$k!#(B@refill - -@var{args} $B$O(B @var{message} $B$N0z?t$G$"$k!#(B -@end defun - - - -@node mm-backend module, , Request for entity, mm-backend -@subsection How to make mm-backend - -$B!J$9$_$^$;$s!#$=$N$&$A=q$-$^$9(B (^_^;$B!K(B@refill - -$B!J$H$j$"$($:!"(Bmm*.el $B$r;29M$K$7$F$/$@$5$$!K(B - - -@node Content-Type, Content-Disposition, Entity, Top -@chapter Information of Content-Type field -@cindex mime-content-type -@cindex Content-Type field - -@strong{Content-Type field} is a field to indicate kind of contents or -data format, such as media-type (@ref{media-type}) and MIME charset. It -is defined in RFC 2045 (@ref{RFC 2045}). - -@noindent -@strong{[Memo]} -@quotation - -Historically, Content-Type field was proposed in RFC 1049. In it, -Content-Type did not distinguish type and subtype, and there are no -mechanism to represent kind of character code like MIME charset. -@end quotation - - -FLIM provides parser for Content-Type field and structure -@strong{mime-content-type} to store information of -Content-Type field. - - -@menu -* Content-Type field:: Format of Content-Type field -* mime-content-type:: mime-content-type structure -* Content-Type parser:: Parser -* Content-Type utility:: Utility functions -@end menu - -@node Content-Type field, mime-content-type, Content-Type, Content-Type -@section Format of Content-Type field -@cindex parameter -@cindex subtype -@cindex type - -Content-Type $BMs$N7A<0$O0J2<$N$h$&$KDj5A$5$l$F$$$^$9!'(B - -@quotation -``Content-Type'' ``:'' @strong{type} ``/'' -@strong{subtype} *( ``;'' @strong{parameter} ) -@end quotation - -$BNc$($P!"(B - -@quotation -@example -Content-Type: image/jpeg -@end example -@end quotation - -@noindent -$B$d(B - -@quotation -@example -Content-Type: text/plain; charset=iso-2022-jp -@end example -@end quotation - -@noindent -$B$J$I$N$h$&$KMQ$$$i$l$^$9!#(B - -$B$3$3$G!"(B`type' $B$H(B `subtype' $B$O(B entity $B$N7A<0$r<($9$b$N$G!"N><T$rAm>N$7(B -$B$F!"(B`media-type' $B$H8F$V$3$H$K$7$^$9!#>e5-$NNc$K$*$1$k(B `image/jpeg' $B$d(B -`text/plain' $B$O(B media-type $B$N#1$D$G$9!#(B - -@noindent -@strong{[Memo]} -@quotation - -Content-Type $BMs$N$J$$(B entity $B$O(B - -@quotation -@example -Content-Type: text/plain; charset=us-ascii -@end example -@end quotation - -@noindent -$B$H$7$F2r<a$5$l$k!#(B(cf. @ref{us-ascii}) -@end quotation - - - -@node mime-content-type, Content-Type parser, Content-Type field, Content-Type -@section mime-content-type structure - -@deffn{Structure} mime-content-type - -Content-Type $BMs$N>pJs$r3JG<$9$k$?$a$N9=B$BN!#(B@refill - -$B$3$N9=B$BN$r;2>H$9$k$K$O(B @code{mime-content-type-$BMWAGL>(B} $B$H$$$&L>A0$N;2(B -$B>H4X?t$rMQ$$$k!#(B@refill - -$B$3$N9=B$BN$NMWAG$O0J2<$NDL$j$G$"$k!'(B - -@table @var -@item primary-type -media-type $B$N<g7?(B (symbol). - -@item subtype -media-type $B$NI{7?(B (symbol). - -@item parameters -Content-Type $BMs$N(B parameter ($BO"A[(B list). - -@end table -@end deffn - - -@defun make-mime-content-type type subtype - &optional parameters - -content-type $B$N@8@.;R!#(B -@end defun - - -@defun mime-content-type-parameter content-type parameter - -@var{content-type} $B$N(B @var{parameter} $B$NCM$rJV$9!#(B -@end defun - - - -@node Content-Type parser, Content-Type utility, mime-content-type, Content-Type -@section Parser - -@defun mime-parse-Content-Type string - -@var{string} $B$r(B content-type $B$H$7$F2r@O$7$?7k2L$rJV$9!#(B -@end defun - - -@defun mime-read-Content-Type - -$B8=:_$N(B buffer $B$N(B Content-Type $BMs$rFI$_<h$j!"2r@O$7$?7k2L$rJV$9!#(B@refill - -Content-Type $BMs$,B8:_$7$J$$>l9g$O(B nil $B$rJV$9!#(B -@end defun - - - -@node Content-Type utility, , Content-Type parser, Content-Type -@section Utility functions - -@defun mime-type/subtype-string type &optional subtype - -Return type/subtype string from @var{type} and @var{subtype}. -@end defun - - - -@node Content-Disposition, Content-Transfer-Encoding, Content-Type, Top -@chapter Information of Content-Disposition field -@cindex mime-content-disposition -@cindex RFC 2183 -@cindex Standards Track -@cindex Content-Disposition $BMs(B - -@strong{Content-Disposition $BMs(B} $B$O(B entity $B$NI=<($d(B file $BL>$J$I(B -$B$NB0@-$K$J$I$K4X$9$k>pJs$r5-=R$9$k$?$a$N$b$N$G$9!#(B - - -@noindent -[RFC 2183] -@quotation -S. Dorner, K. Moore and R. Troost, ``Communicating Presentation -Information in Internet Messages: The Content-Disposition Header'', -August 1997, Standards Track. -@end quotation - -FLIM $B$O(B Content-Disposition $BMs$r9=J82r@O$9$k4X?t$H(B Content-Disposition -$BMs$N2r@O7k2L$r3JG<$9$k9=B$BN(B -@strong{mime-content-disposition} $B$rDs6!$7$^$9!#(B - - -@menu -* mime-content-disposition:: mime-content-disposition structure -* Content-Disposition parser:: Parser for Content-Disposition field -@end menu - -@node mime-content-disposition, Content-Disposition parser, Content-Disposition, Content-Disposition -@section mime-content-disposition structure - -@deffn{Structure} mime-content-disposition - -Content-Disposition $BMs$N2r@O7k2L$r<}$a$k$?$a$N9=B$BN!#(B@refill - -$B$3$N9=B$BN$r;2>H$9$k$K$O(B @code{mime-content-disposition-$BMWAGL>(B} $B$H$$$&L>(B -$BA0$N;2>H4X?t$rMQ$$$k!#(B@refill - -$B$3$N9=B$BN$NMWAG$O0J2<$NDL$j$G$"$k!'(B - -@table @var -@item disposition-type -disposition-type (symbol). - -@item parameters -Content-Disposition $BMs$N(B parameter ($BO"A[(B list). - -@end table -@end deffn - - -@defun mime-content-disposition-parameter content-disposition parameter - -@var{content-disposition} $B$N(B @var{parameter} $B$NCM$rJV$9!#(B -@end defun - - -@defun mime-content-disposition-filename content-disposition - -@var{content-disposition} $B$N(B filename $B$NCM$rJV$9!#(B -@end defun - - - -@node Content-Disposition parser, , mime-content-disposition, Content-Disposition -@section Parser for Content-Disposition field - -@defun mime-parse-Content-Disposition string - -@var{string} $B$r(B content-disposition $B$H$7$F2r@O$7$?7k2L$rJV$9!#(B -@end defun - - -@defun mime-read-Content-Disposition - -$B8=:_$N(B buffer $B$N(B Content-Disposition $BMs$rFI$_<h$j!"2r@O$7$?7k2L$rJV$9!#(B -@refill - -Content-Disposition $BMs$,B8:_$7$J$$>l9g$O(B nil $B$rJV$9!#(B -@end defun - - - -@node Content-Transfer-Encoding, encoded-word, Content-Disposition, Top -@chapter Encoding Method -@cindex Content-Transfer-Encoding $BMs(B - -@strong{Content-Transfer-Encoding $BMs(B} $B$O(B entity $B$NId9f2=K!$r5-=R$9$k$?$a(B -$B$N$b$N$G$9!#(B@refill - -FLIM $B$G$O(B Content-Transfer-Encoding $BMs$r9=J82r@O$9$k4X?t$rDs6!$7$^$9!#$3(B -$B$l$i$N4X?t$O(B Content-Transfer-Encoding $BMs$N>pJs$OJ8;zNs$GI=8=$7$^$9!#(B -@refill - -$B$^$?!"(BContent-Transfer-Encoding $B$K4p$E$$$FId9f2=!&I|9f2=$r9T$&4X?t$bDs(B -$B6!$5$l$^$9!#(B - - -@menu -* Content-Transfer-Encoding parser:: Parser -* Region encoder/decoder:: Region encoding/decoding -* String encoder/decoder:: String encoding/decoding -* File encoder/decoder:: File encoding/decoding -@end menu - -@node Content-Transfer-Encoding parser, Region encoder/decoder, Content-Transfer-Encoding, Content-Transfer-Encoding -@section Parser - -@defun mime-parse-Content-Transfer-Encoding string - -@var{string} $B$r(B content-transfer-encoding $B$H$7$F2r@O$7$?7k2L$rJV$9!#(B -@end defun - - -@defun mime-read-Content-Transfer-Encoding &optional default-encoding - -$B8=:_$N(B buffer $B$N(B Content-Transfer-Encoding $BMs$rFI$_<h$j!"2r@O$7$?7k2L$r(B -$BJV$9!#(B@refill - -Content-Transfer-Encoding $BMs$,B8:_$7$J$$>l9g$O(B@var{default-encoding} $B$r(B -$BJV$9!#(B -@end defun - - - -@node Region encoder/decoder, String encoder/decoder, Content-Transfer-Encoding parser, Content-Transfer-Encoding -@section Region encoding/decoding - -@defun mime-encode-region start end encoding - -Encode region @var{start} to @var{end} of current buffer using -@var{encoding}. -@end defun - - -@defun mime-decode-region start end encoding - -Decode region @var{start} to @var{end} of current buffer using -@var{encoding}. -@end defun - - -@defvar mime-encoding-method-alist - -Alist of encoding vs. corresponding method to encode region.@refill - -Each element looks like @code{(STRING . FUNCTION)} or @code{(STRING -. nil)}. @var{string} is content-transfer-encoding. @code{function} is -region encoder and @code{nil} means not to encode. -@end defvar - - -@defvar mime-decoding-method-alist - -Alist of encoding vs. corresponding method to decode region.@refill - -Each element looks like @code{(STRING . FUNCTION)} or @code{(STRING -. nil)}. @var{string} is content-transfer-encoding. @code{function} is -region decoder and @code{nil} means not to decode. -@end defvar - - - -@node String encoder/decoder, File encoder/decoder, Region encoder/decoder, Content-Transfer-Encoding -@section String encoding/decoding - -@defun mime-decode-string string encoding - -@var{string} $B$r(B @var{encoding} $B$H$7$FI|9f$7$?7k2L$rJV$7$^$9!#(B -@end defun - - -@defvar mime-string-decoding-method-alist - -Alist of encoding vs. corresponding method to decode string.@refill - -Each element looks like @code{(STRING . FUNCTION)}. STRING is -content-transfer-encoding. FUNCTION is string decoder. -@end defvar - - - -@node File encoder/decoder, , String encoder/decoder, Content-Transfer-Encoding -@section File encoding/decoding - -@defun mime-insert-encoded-file filename encoding - -Insert file @var{FILENAME} encoded by @var{ENCODING} format. -@end defun - - -@defun mime-write-decoded-region start end filename encoding - -Decode and write current region encoded by @var{encoding} into -@var{filename}.@refill - -@var{start} and @var{end} are buffer positions. -@end defun - - -@defvar mime-file-encoding-method-alist - -Alist of encoding vs. corresponding method to insert encoded -file.@refill - -Each element looks like @code{(STRING . FUNCTION)}. STRING is -content-transfer-encoding. FUNCTION is function to insert encoded file. -@end defvar - - -@defvar mime-file-decoding-method-alist - -Alist of encoding vs. corresponding method to write decoded region to -file.@refill - -Each element looks like @code{(STRING . FUNCTION)}. STRING is -content-transfer-encoding. FUNCTION is function to write decoded region -to file. -@end defvar - - - -@node encoded-word, custom, Content-Transfer-Encoding, Top -@chapter Network representation of header -@cindex RFC 2047 -@cindex Standards Track -@cindex RFC 2047 - -encoded-word $B$O(B header $B$GHs(B ASCII (@ref{ASCII}) $BJ8;z$rI=8=$9$k$?$a$N7A<0(B -$B$G!"(B@strong{RFC 2047} $B$GDj5A$5$l$F$$$^$9!#(B@refill - - -@noindent -[RFC 2047] -@quotation -K. Moore, ``MIME (Multipurpose Internet Mail Extensions) Part Three: -Message Header Extensions for Non-ASCII Text'', November 1996, Standards -Track (obsolete RFC 1521,1522,1590). -@end quotation - -$B$^$?!"9T57$N0-$$$3$H$@$H8@$($^$9$,!"(Bencoded-word $B$rMQ$$$:$KHs(B ASCII -(@ref{ASCII}) $BJ8;z$r(B header $B$KF~$l$?5-;v$bB8:_$7$^$9!#(B@refill - -FLIM $B$O$3$l$i$rId9f2=!&I|9f2=$9$k5!G=$rDs6!$7$^$9!#(B - - -@menu -* Header encoder/decoder:: Header encoding/decoding -@end menu - -@node Header encoder/decoder, , encoded-word, encoded-word -@section Header encoding/decoding - -@defun eword-encode-header &optional code-conversion separator - -Decode MIME encoded-words in header fields.@refill - -If @var{code-conversion} is @code{nil}, it decodes only encoded-words. -If it is mime-charset, it decodes non-ASCII bit patterns as the -mime-charset. Otherwise it decodes non-ASCII bit patterns as the -default-mime-charset.@refill - -If @var{separator} is not nil, it is used as header separator. -@end defun - - -@defun eword-encode-header &optional code-conversion - -Encode header fields to network representation, such as MIME -encoded-word.@refill - -It refer variable @code{eword-field-encoding-method-alist}. -@end defun - - - -@node custom, Appendix, encoded-word, Top -@chapter Various Customization - -@deffn{group} mime - -MIME $B4XO"5!G=$K4X$9$k(B group.@refill - -@code{mail} $B$H(B @code{news} $B$KB0$9$k!#(B -@end deffn - - -@defvar default-mime-charset - -$BE,@Z$J(B MIME charset (@ref{MIME charset}) $B$,8+$D$+$i$J$+$C$?>l9g$KMQ$$$i(B -$B$l$k(BMIME charset.@refill - -$BK\Mh$O(B APEL $B$NJQ?t$G$"$k!#(B -@end defvar - - -@defvar mime-temp-directory - -MIME $B5!G=$K4X$9$k<BAu$,0l;~E*$K;HMQ$9$k(B file $B$r:n@.$9$k(B -directory.@refill - -$B4D6-JQ?t(B @code{MIME_TMP_DIR}, @code{TM_TMP_DIR}, @code{TMPDIR}, -@code{TMP} $B$b$7$/$O(B @code{TEMP} $B$,@_Dj$5$l$F$$$?>l9g!"$=$l$r=i4|CM$H$7$F(B -$BMQ$$$k!#2?$b@_Dj$5$l$F$$$J$$>l9g!"(B@code{"/tmp/"} $B$rMQ$$$k!#(B -@end defvar - - - -@node Appendix, Concept Index, custom, Top -@chapter Appendix - - -@menu -* Glossary:: -* Bug report:: How to report bugs -* CVS:: CVS based development -* History:: History of FLIM -@end menu - -@node Glossary, Bug report, Appendix, Appendix -@section Glossary - - -@menu -* 7bit:: -* 8bit:: -* ASCII:: -* Base64:: -* binary:: -* coded character set:: Coded character set, Character code -* media-type:: -* message:: -* MIME:: -* MIME charset:: -* MTA:: -* MUA:: -* Quoted-Printable:: -* RFC 822:: -* RFC 1036:: -* RFC 2045:: -* RFC 2046:: -* RFC 2048:: -* RFC 2049:: -* plain text:: -* us-ascii:: -@end menu - -@node 7bit, 8bit, Glossary, Glossary -@subsection 7bit -@cindex 7bit (textual) string -@cindex 7bit data -@cindex 7bit - -@strong{7bit} means any integer between 0 .. 127.@refill - -Any data represented by 7bit integers is called @strong{7bit data}.@refill - -Textual string consisted of Control characters between 0 .. 31 and 127, -and space represented by 32, and graphic characters between 33 .. 236 -are called @strong{7bit (textual) string}.@refill - -Conventional Internet MTA (@ref{MTA}) can translate 7bit data, so it is -no need to translate by Quoted-Printable (@ref{Quoted-Printable}) or -Base64 (@ref{Base64}) for 7bit data.@refill - -However if there are too long lines, it can not translate by 7bit MTA -even if it is 7bit data. RFC 821 (@ref{RFC 821}) and RFC 2045 (@ref{RFC 2045}) require lines in 7bit data must be less than 998 bytes. So if a -``7bit data'' has a line more than 999 bytes, it is regarded as binary -(@ref{binary}). For example, Postscript file should be encoded by -Quoted-Printable. - - -@node 8bit, ASCII, 7bit, Glossary -@subsection 8bit -@cindex 8bit (textual) string -@cindex 8bit data -@cindex 8bit - -@strong{8bit} means any integer between 0 .. 255.@refill - -Any data represented by 8bit integers is called @strong{8bit data}.@refill - -Textual string consisted of Control characters between 0 .. 31, 127, and -128 .. 159, and space represented by 32, and graphic characters between -33 .. 236 and 160 .. 255 are called @strong{8bit (textual) string}.@refill - -For example, iso-8859-1 (@ref{iso-8859-1}) or euc-kr (@ref{euc-kr}) are -coded-character-set represented by 8bit textual string.@refill - -Traditional Internet MTA (@ref{MTA}) can translate only 7bit -(@ref{7bit}) data, so if a 8bit data will be translated such MTA, it -must be encoded by Quoted-Printable (@ref{Quoted-Printable}) or Base64 -(@ref{Base64}).@refill - -However 8bit MTA are increasing today.@refill - -However if there are too long lines, it can not translate by 8bit MTA -even if it is 8bit data. RFC 2045 (@ref{RFC 2045}) require lines in -8bit data must be less than 998 bytes. So if a ``8bit data'' has a line -more than 999 bytes, it is regarded as binary (@ref{binary}), so it must -be encoded by Base64 or Quoted-Printable. - - -@node ASCII, Base64, 8bit, Glossary -@subsection ASCII -@cindex ANSI X3.4:1986 -@cindex ASCII -@cindex ASCII - -@strong{ASCII} is a 94-character set contains primary latin characters -(A-Z, a-z), numbers and some characters. It is a standard of the United -States of America. It is a variant of ISO 646 (@ref{ISO 646}). - - -@noindent -[ASCII] -@quotation -``Coded Character Set -- 7-Bit American Standard Code for Information -Interchange'', ANSI X3.4:1986. -@end quotation - - - -@node Base64, binary, ASCII, Glossary -@subsection Base64 -@cindex pad -@cindex Base64 - -@strong{Base64} is a transfer encoding method of MIME (@ref{MIME}) -defined in RFC 2045 (@ref{RFC 2045}).@refill - -The encoding process represents 24-bit groups of input bits as output -strings of 4 encoded characters. Encoded characters represent integer 0 -.. 63 or @strong{pad}. Base64 data must be 4 * n bytes, so pad is used -to adjust size.@refill - -These 65 characters are subset of all versions of ISO 646, including -US-ASCII, and all versions of EBCDIC. So it is safe even if it is -translated by non-Internet gateways. - - -@node binary, coded character set, Base64, Glossary -@subsection binary -@cindex binary - -Any byte stream is called @strong{binary}.@refill - -It does not require structureof lines. It differs from from 8bit -(@ref{8bit}).@refill - -In addition, if line structured data contain too long line (more than -998 bytes), it is regarded as binary. - - -@node coded character set, media-type, binary, Glossary -@subsection Coded character set, Character code - -A set of unambiguous rules that establishes a character set and the -one-to-one relationship between the characters of the set and their -bit combinations. - - -@node media-type, message, coded character set, Glossary -@subsection media-type -@cindex x-token -@cindex message -@cindex multipart -@cindex application -@cindex video -@cindex audio -@cindex image -@cindex text -@cindex subtype -@cindex type -@cindex media-type - -@strong{media-type} specifies the nature of the data in the body of MIME -(@ref{MIME}) entity (@ref{entity}). It consists of @strong{type} and -@strong{subtype}. It is defined in RFC 2046 (@ref{RFC 2046}).@refill - -Currently there are following standard primary-types: - -@itemize @bullet -@item -@strong{text} -@item -@strong{image} -@item -@strong{audio} -@item -@strong{video} -@item -@strong{application} -@item -@strong{multipart} (@ref{multipart}) -@item -@strong{message} -@end itemize - - -And there are various subtypes, for example, application/octet-stream, -audio/basic, image/jpeg, multipart/mixed (@ref{multipart/mixed}), -text/plain (@ref{text/plain}), video/mpeg... @refill - -You can refer registered media types at MEDIA TYPES -(ftp://ftp.isi.edu/in-notes/iana/assignments/media-types).@refill - -In addition, you can use private type or subtype using @strong{x-token}, -which as the prefix `x-'. However you can not use them in -public.@refill - -(cf. @ref{Content-Type field}) - - - -@node message, MIME, media-type, Glossary -@subsection message - -In this document, it means mail defined in RFC 822 (@ref{RFC 822}) and -news message defined in RFC 1036 (@ref{RFC 1036}). - - -@node MIME, MIME charset, message, Glossary -@subsection MIME -@cindex Multipurpose Internet Mail Extensions - -MIME stands for @strong{Multipurpose Internet Mail Extensions}, it is an -extension for RFC 822 (@ref{RFC 822}).@refill - -According to RFC 2045:@refill - -STD 11, RFC 822, defines a message representation protocol specifying -considerable detail about US-ASCII message headers, and leaves the -message content, or message body, as flat US-ASCII text. This set of -documents, collectively called the Multipurpose Internet Mail -Extensions, or MIME, redefines the format of messages to allow for - -@enumerate -@item -textual message bodies in character sets other than US-ASCII, -@item -an extensible set of different formats for non-textual message -bodies, -@item -multi-part message bodies, and -@item -textual header information in character sets other than US-ASCII. -@end enumerate - - -It is defined in RFC 2045 (@ref{RFC 2045}), RFC 2046 (@ref{RFC 2046}), -RFC 2047 (@ref{encoded-word}), RFC 2048 (@ref{RFC 2048}) and RFC 2049 -(@ref{RFC 2049}). - - -@node MIME charset, MTA, MIME, Glossary -@subsection MIME charset - -Coded character set (@ref{coded character set}) used in Content-Type -field (@ref{Content-Type field}) or charset parameter of encoded-word -(@ref{encoded-word}).@refill - -It is defined in RFC 2045 (@ref{RFC 2045}).@refill - -iso-2022-jp (@ref{iso-2022-jp}) or euc-kr (@ref{euc-kr}) are kinds of -it. (In this document, MIME charsets are written by small letters to -distinguish graphic character set (@ref{graphic character set}). For -example, ISO 8859-1 is a graphic character set, and iso-8859-1 is a MIME -charset) - - -@node MTA, MUA, MIME charset, Glossary -@subsection MTA -@cindex Message Transfer Agent - -@strong{Message Transfer Agent}. It means mail transfer programs -(ex. sendmail) and news servers.@refill - -(cf. @ref{MUA}) - - - -@node MUA, Quoted-Printable, MTA, Glossary -@subsection MUA -@cindex Message User Agent - -@strong{Message User Agent}. It means mail readers and news -readers.@refill - -(cf. @ref{MTA}) - - - -@node Quoted-Printable, RFC 822, MUA, Glossary -@subsection Quoted-Printable -@cindex Quoted-Printable - -@strong{Quoted-Printable} is a transfer encoding method of MIME -(@ref{MIME}) defined in RFC 2045 (@ref{RFC 2045}).@refill - -If the data being encoded are mostly US-ASCII text, the encoded form of -the data remains largely recognizable by humans.@refill - -(cf. @ref{Base64}) - - - -@node RFC 822, RFC 1036, Quoted-Printable, Glossary -@subsection RFC 822 -@cindex RFC 822 -@cindex STD 11 -@cindex Internet mail -@cindex Internet message -@cindex message header - -A RFC defines format of Internet mail message, mainly @strong{message header}. - -@noindent -@strong{[Memo]} -@quotation - -news message is based on RFC 822, so @strong{Internet message} may be -more suitable than @strong{Internet mail} . -@end quotation - - - -@noindent -[RFC 822] -@quotation -D. Crocker, ``Standard for the Format of ARPA Internet Text Messages'', -August 1982, STD 11. -@end quotation - - - -@node RFC 1036, RFC 2045, RFC 822, Glossary -@subsection RFC 1036 -@cindex RFC 1036 -@cindex USENET - -A RFC defines format of USENET message. It is a subset of RFC 822 -(@ref{RFC 822}). It is not Internet standard, but a lot of netnews -excepting Usenet uses it. - - -@noindent -[USENET: RFC 1036] -@quotation -M. Horton and R. Adams, ``Standard for Interchange of USENET Messages'', -December 1987, (obsolete RFC 850). -@end quotation - - - -@node RFC 2045, RFC 2046, RFC 1036, Glossary -@subsection RFC 2045 -@cindex RFC 2045 -@cindex Standards Track - - -@noindent -[RFC 2045] -@quotation -N. Freed and N. Borenstein, ``Multipurpose Internet Mail Extensions -(MIME) Part One: Format of Internet Message Bodies'', November 1996, -Standards Track (obsolete RFC 1521, 1522, 1590). -@end quotation - - - -@node RFC 2046, RFC 2048, RFC 2045, Glossary -@subsection RFC 2046 -@cindex RFC 2046 -@cindex Standards Track - - -@noindent -[RFC 2046] -@quotation -N. Freed and N. Borenstein, ``Multipurpose Internet Mail Extensions -(MIME) Part Two: Media Types'', November 1996, Standards Track (obsolete -RFC 1521, 1522, 1590). -@end quotation - - - -@node RFC 2048, RFC 2049, RFC 2046, Glossary -@subsection RFC 2048 -@cindex RFC 2048 -@cindex Standards Track - - -@noindent -[RFC 2048] -@quotation -N. Freed, J. Klensin and J. Postel, ``Multipurpose Internet Mail -Extensions (MIME) Part Four: Registration Procedures'', November 1996, -Standards Track (obsolete RFC 1521, 1522, 1590). -@end quotation - - - -@node RFC 2049, plain text, RFC 2048, Glossary -@subsection RFC 2049 -@cindex RFC 2049 -@cindex Standards Track - - -@noindent -[RFC 2049] -@quotation -N. Freed and N. Borenstein, ``Multipurpose Internet Mail Extensions -(MIME) Part Five: Conformance Criteria and Examples'', November 1996, -Standards Track (obsolete RFC 1521, 1522, 1590). -@end quotation - - - -@node plain text, us-ascii, RFC 2049, Glossary -@subsection plain text - -A textual data represented by only coded character set (@ref{coded character set}). It does not have information about font or -typesetting. (cf. @ref{text/plain}) - - - -@node us-ascii, , plain text, Glossary -@subsection us-ascii -@cindex ASCII -@cindex us-ascii - -A MIME charset (@ref{MIME charset}) for primary Latin script mainly -written by English or other languages.@refill - -It is a 7bit coded character set (@ref{coded character set}) based on -ISO 2022 (@ref{ISO 2022}), it contains only ASCII (@ref{ASCII}) and code -extension (@ref{code extension}) is not allowed.@refill - -It is standard coded character set of Internet mail. If MIME charset is -not specified, @strong{us-ascii} is used as default.@refill - -In addition, @strong{ASCII} of RFC 822 (@ref{RFC 822}) should be -interpreted as us-ascii. - - -@node Bug report, CVS, Glossary, Appendix -@section How to report bugs -@cindex good bug report - -If you write bug-reports and/or suggestions for improvement, please -send them to the tm Mailing List: - -@itemize @bullet -@item - Japanese <bug-tm-ja@@chamonix.jaist.ac.jp> -@item - English <bug-tm-en@@chamonix.jaist.ac.jp> -@end itemize - - -Notice that, we do not welcome bug reports about too old version. Bugs -in old version might be fixed. So please try latest version at -first.@refill - -You should write @strong{good bug report}. If you write only ``FLIM -does not work'', we can not find such situations. At least, you should -write name, type, variants and version of OS, emacs, APEL, FLIM, SEMI -and MUA, and setting. In addition, if error occurs, to send backtrace -is very important. (cf. @ref{(emacs)Bugs}) @refill - -Bug may not appear only your environment, but also in a lot of -environment (otherwise it might not bug). Therefor if you send mail -to author directly, we must write a lot of mails. So please send mail -to address for tm bugs instead of author. - -Via the tm ML, you can report FLIM bugs, obtain the latest release of -FLIM, and discuss future enhancements to FLIM. To join the tm ML, -send empty e-mail to: - -@itemize @bullet -@item - Japanese <tm-ja-help@@chamonix.jaist.ac.jp> -@item - English <tm-en-help@@chamonix.jaist.ac.jp> -@end itemize - - - -@node CVS, History, Bug report, Appendix -@section CVS based development - -FLIM $B$N(B file $B$O(B CVS $B$r;H$C$F4IM}$5$l$F$$$^$9!#$3$N$?$a!"0J2<$NJ}K!$G:G(B -$B?7$N(B FLIM $B$rF~<j$9$k$3$H$,$G$-$^$9!'(B - -@example -(0) cvs login - - % cvs -d :pserver:anonymous@@chamonix.jaist.ac.jp:/hare/cvs/root \ - login - - CVS password: [CR] # NULL string - -(1) checkout - - % cvs -d :pserver:anonymous@@chamonix.jaist.ac.jp:/hare/cvs/root \ - checkout [-r TAG] flim -@end example - - -CVS $B$rMQ$$$?3+H/$K;22C$7$?$$J}$O(B - -@itemize @bullet -@item - <cvs@@chamonix.jaist.ac.jp> -@end itemize - -@noindent -$B$^$G!"(Baccount $BL>$H(B UNIX $B$N(B passwd $B$HF1$87A<0$N(B crypt $B2=$5$l$?(B password -$B$r1h$($F8fO"Mm$/$@$5$$!#(B - - -@node History, , CVS, Appendix -@section History of FLIM - -FLIM $B$N(B code $B$N:G8E$NItJ,$O(B $B1]JB(B $B;LCR(B $B;a$,=q$$$?(B @file{mime.el}$B$K5/8;$7(B -$B$^$9!#$3$N>.$5$J(B program $B$O(B Nemacs $B$GF0:n$9$k(B iso-2022-jp $B$N(B B-encoding -$B@lMQ$N(B encoded-word $B$NI|9f2=%W%m%0%i%`$G$7$?!#(B@refill - -$B$=$N8e!"<i2,(B $BCNI'(B $B$O(B @file{mime.el} $B$r85$K(B@file{tiny-mime.el} $B$H$$$&%W%m(B -$B%0%i%`$r=q$-$^$9!#$3$l$O!"(BNemacs $B$H(B Mule $B$GF0:n$9$k(B encoded-word $B$NId9f(B -$B2=!&I|9f2=%W%m%0%i%`$G$7$?!#(B@file{tiny-mime.el} $B$O(B B-encoding $B$@$1$G$J$/(B -Q-encoding $B$b(Bsupport $B$7!"$^$?!"(BMULE $B$G07$&$3$H$,$G$-$k$5$^$6$^$J(B MIME -charset (@ref{MIME charset}) $B$rF1;~$K;H$&$3$H$,$G$-$^$7$?!#$3$N;~!"(B -Nemacs $B$H(B Mule $B$NAPJ}$r(B support $B$9$k$?$a$KMQ$$$i$l$?%F%/%K%C%/$O8e$K(B emu -package $B$K$^$H$a$i$l$^$9!#(B@refill - -$B$3$N:"!"<i2,(B $BCNI'(B $B$O(B @file{tiny-mime.el} $B$r$5$^$6$^$J(B MUA $B$G;H$&$?$a$N@_(B -$BDj=8$bG[I[$7$F$$$^$7$?$,!"$=$l$i$O8e$K(B@file{tiny-mime.el} $B$H$H$b$K#1$D$N(B -package $B$K$^$H$a$i$l!"(Btm $B$H$$$&L>A0$GG[I[$5$l$^$9!#(B@refill - -$B<i2,(B $BCNI'(B $B$O$d$,$F!"(BMIME message $B$r1\Mw$9$k$?$a$N%W%m%0%i%`$G$"$k(B -@file{tm-body.el} $B$r=q$-$^$9!#$3$l$O!"$9$0$K(B@file{tm-view.el} $B$H$$$&L>A0(B -$B$KJQ$o$j$^$7$?$,!"$d$,$F!"$3$l$,(B@file{tiny-mime.el} $B$KBe$o$C$F!"(Btm $B$NCf(B -$B3K$H$J$j$^$9!#(B@refill - -@file{tm-view.el} $B$OEvA3!"(BContent-Transfer-Encoding $B$r07$&I,MW$,$"$j$^$9!#(B -$B$3$NL\E*$N$?$a$K!"(BMEL $B$,@0Hw$5$l$O$8$a$^$7$?!#(BBase64 $B$K4X$7$F$O(B -@file{tiny-mime.el} $B$N(B code $B$,0\$5$l!"$^$?!"?7$?$K(BQuoted-Printable $B$N(B -code $B$,DI2C$5$l$^$7$?!#$3$l$i$,(B@file{mel-b.el} $B$H(B @file{mel-q.el} $B$K$J$j(B -$B$^$7$?!#(B@refill - -$B$^$?!"8e$K!"<i2,(B $BCNI'(B $B$K$h$C$F(B uuencode $BMQ$N(B @file{mel-u.el} $B$,DI2C$5$l!"(B -$B$=$N8e$K!">.NS(B $B=$J?(B $B;a$K$h$C$F(B x-gzip64 $BMQ$N(B@file{mel-g.el} $B$,DI2C$5$l$^(B -$B$7$?!#(B@refill - -tm $B$G$O8e$K!"<i2,(B $BCNI'(B $B$K$h$C$F(B @file{tiny-mime.el} $B$N:F<BAu$,9T$o$l!"$3(B -$B$N2aDx$G!"(BSTD 11 $B$N(B parser $B$,=q$+$l$^$7$?!#$3$l$O!"8=:_$N(B -@file{std11.el} $B$KEv$?$j$^$9!#$^$?!"$3$N2aDx$G(B @file{tiny-mime.el} $B$OI|(B -$B9f2=$r9T$&(B @file{tm-ew-d.el} $B$HId9f2=$r9T$&(B @file{tm-ew-e.el} $B$KJ,$1$i$l(B -$B$^$7$?!#$3$NN><T$,8=:_$N(B @file{eword-decode.el} $B$H(B -@file{eword-encode.el} $B$N@hAD$KEv$?$j$^$9!#(B@refill - -$B8e$K!"<i2,(B $BCNI'(B $B$i$K$h$C$F(B tm $B$NA4LL=q$-49$(:n6H$,9T$o$l!"$3$N2aDx$G!"(Btm -$B$O(B APEL, MEL, SEMI, EMH, RMAIL-MIME, Gnus-MIME $B$J$I$KJ,$1$i$l$^$7$?!#$3(B -$B$N$&$A$N(B MEL $B$,(B FLIM $B$ND>@\$N@hAD$KEv$?$j$^$9!#(B@refill - -$B8e$K!"(BAPEL $B$+$i(B @file{std11.el} $B$,0\$5$l!"$^$?!"(B@file{mailcap.el}, -@file{eword-decode.el} $B$*$h$S(B @file{eword-encode.el} $B$,(B SEMI $B$+$i0\$5$l!"(B -package $B$NL>A0$,(B FLIM$B$H$J$j$^$9!#(B@refill - -$B$3$ND>A0$+$iEDCf(B $BE/(B $B;a$,$h$j(B RFC $B$KCi<B$J<BAu$r=q$-;O$a!"$3$l$O!"8=:_!"(B -FLIM $B$N;^$G$"$k(B ``FLIM-FLAM'' $B$H$J$C$F$$$^$9!#(B - - -@node Concept Index, Function Index, Appendix, Top -@chapter Concept Index - -@printindex cp - -@node Function Index, Variable Index, Concept Index, Top -@chapter Function Index - -@printindex fn - -@node Variable Index, , Function Index, Top -@chapter Variable Index - -@printindex vr -@bye diff --git a/mime-ja.sgml b/mime-ja.sgml deleted file mode 100644 index c3cfb08..0000000 --- a/mime-ja.sgml +++ /dev/null @@ -1,1278 +0,0 @@ -<!doctype sinfo system> -<head> -<title>FLIM 1.9 MIME $B5!G=@bL@=q(B -<author>$B<i2,(B $BCNI'(B <mail>morioka@jaist.ac.jp</mail> -<date>1998/07/01 - -<toc> -</head> - -<body> - -<abstract> -<p> -This file documents MIME features of FLIM, a Internet message -parsing/encoding library for GNU Emacs. -<p> -GNU Emacs $BMQ$N(B Internet Message $B$N2r@O$dId9f2=$K4X$9$k(B library $B$G$"$k(B -FLIM $B$N(B MIME $B5!G=$K4X$7$F@bL@$7$^$9!#(B -</abstract> - - -<h1> FLIM $B$C$F2?!)(B -<node> Introduction -<p> -FLIM $B$O(B Internet Message $B$NI=8=$dId9f2=$K4X$9$k4pACE*$J5!G=$rDs6!$9$k(B -$B$?$a$N(B library $B$G$9!#(B - - -<h1> FLIM $B$N(B MIME $B5!G=$N;H$$J}(B -<node> How to use -<p> -FLIM $B$NDs6!$9$k(B MIME $B5!G=$r;H$&$?$a$K$O(B - -<lisp> -(require 'mime) -</lisp> - -<noindent>$B$rI>2A$7$F$/$@$5$$!#(B - - -<h1> Message $B$H(B Entity -<node> Entity -<p> -<dref>RFC 2045</dref> $B$K$h$l$P!"!V(BEntity $B$H$$$&8l$O!"(Bmessage, $B$b$7$/$O!"(B -multipart entity $B$N(B body $BCf$N#1$D$NItJ,$N!"(BMIME $B$GDj5A$5$l$?(B header -field $B$HFbMF$r;X$9!W$H$J$C$F$$$^$9!#$3$3$G$O!"(BMIME $B$GDj5A$5$l$?(B header -field $B0J30$NA4$F$N(B header $B$H(B body $B$r;X$98l$H$7$F(B -<concept>entity</concept>$B$rMQ$$$k$3$H$K$7$^$9!#(B -<p> -RFC 2045 $B$NDj5A$O!"(BMIME message $B$,(B entity $B$rC10L$H$9$kLZ9=B$$G$"$k$3$H$r(B -$B<($7$F$$$^$9!#(Bmessage $B$O2<?^$G<($9$h$&$JLZ$H$J$j!"(Bentity $B$O$3$NLZ$K$*$1(B -$B$k@a$H$J$j$^$9!#$D$^$j!"(BMIME $B$O(B message $B$rLZ9=B$$K3HD%$7$?Lu$G$9!#(B -<p> -FLIM $B$O(B entity $B$N>pJs$rI=8=$9$k$?$a$K(B<concept>mime-entity</concept> $B9=(B -$BB$BN$rMQ$$$^$9!#0J2<$G$OC1$K(B mime-entity $B$H8F$V$3$H$K$7$^$9!#(B -<p> -$BA0=R$N$h$&$K!"(Bmessage $BCf$N3F(B entity $B$OLZ$N@a$KEv$?$j$^$9$,!"$3$NLZ$K$O(B -$B?<$5$HF1$8?<$5$NCf$N=gHV$K=>$C$FHV9f$,IU$1$k$3$H$,$G$-$^$9!#B($A!"(B -<verb> - - $B(#(!(!(!($(B - $B("(B nil $B("(B - $B(&(!(((!(%(B - $B(#(!(!(!(!(!(!(!(!(!(+(!(!(!(!(!(!(!(!(!($(B - $B(#(*($(B $B(#(*($(B $B(#(*($(B - $B("#0("(B $B("#1("(B $B("#2("(B - $B(&(((%(B $B(&(((%(B $B(&(((%(B - $B("(B $B(#(!(!(!(!(+(!(!(!(!($(B $B("(B - $B(#(!(*(!($(#(!(*(!($(#(!(*(!($(#(!(*(!($(#(!(*(!($(B - $B("(B $B#0(B.$B#0("("(B $B#1(B.$B#0("("(B $B#1(B.$B#1("("(B $B#1(B.$B#2("("(B $B#2(B.$B#0("(B - $B(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(B - -</verb> -<p> -<noindent>$B$N$h$&$K?<$5(B n $B$N@a$K$OD9$5(B n $B$N@0?tNs$N@aHV9f$,?6$l$^$9!#$3$l(B -$B$r(B <concept>entity-number</concept> $B$H8F$S$^$9!#(Bentity-number $B$O(B S $B<0$H(B -$B$7$F$O(B <code>(1 2 3)</code> $B$N$h$&$J@0?t$N%j%9%H$H$7$FI=8=$5$l$^$9!#(B -<p> -mime-entity $B$G$O!"$3$l$HF1MM$N(B <concept>node-id</concept> $B$rMQ$$$^$9!#(B -node-id $B$O$A$g$&$I(B entity-number $B$r5U$K$7$?%j%9%H$G!"(Bentity-number -1.2.3 $B$KBP1~$9$k(B node-id $B$O(B <code>(3 2 1)</code> $B$G$9!#(B -<p> -$BA0=R$N$h$&$K!"(BMIME message $B$O(B entity $B$rC10L$H$7$?LZ9=B$$K$J$C$F$$$k$N$G!"(B -$B$3$N:,$G$"$k(B message $BA4BN$b(B mime-entity $B$GI=8=$9$k$3$H$,$G$-!"(Bbuffer -local $BJQ?t(B <code>mime-message-structure</code> $B$K3JG<$9$k$3$H$K$7$^$9!#(B -$B$=$7$F!"(Bentity-number $B$d(B node-id $B$rMQ$$$k$3$H$G(B -<code>mime-message-structure</code> $B$K$*$1$k(B entity $B$NAjBPE*$J0LCV4X78$r(B -$B07$&$3$H$,$G$-$^$9!#(B - - -<h2> Entity $B$N@8@.(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. <cf node="mm-backend"> -<p> -<var>location</var> is location of entity. Specification of it is -depended on representation-type. -</defun> - -<defun name="mime-parse-buffer"> - <opts> buffer type -<p> -<var>buffer</var> $B$r(B message $B$H$7$F9=J82r@O$7!"$=$N7k2L$N(B mime-entity -$B$r(B <var>buffer</var> $B$N(B<code>mime-message-structure</code> $B$K3JG<$9$k!#(B -<p> -<var>buffer</var> $B$,>JN,$5$l$?>l9g!"8=:_$N(B buffer $B$r9=J82r@O$9$k!#(B -<p> -<var>type</var> $B$,;XDj$5$l$?>l9g!"$=$NCM$r@8@.$5$l$k(B mime-entity $B$NI=(B -$B>]7?$H$7$FMQ$$$k!#>JN,$5$l$?>l9g$O(B <var>buffer</var> $B$H$J$k!#(B<cf -node="mm-backend"> -</defun> - - -<h2> Entity $B3,AX(B -<node> Entity hierarchy -<p> -<defvar name="mime-message-structure"> -<p> -$B8=:_$N(B buffer $B$K$*$1$k(B message $BA4BN$N(B mime-entity $B9=B$BN$r3JG<$9$k(B -buffer local $BJQ?t!#(B -</defvar> - -<defun name="mime-entity-children"> - <args> entity -<p> -<var>entity</var> $B$K4^$^$l$k(B entity $B$N(B list $B$rJV$9!#(B -</defun> - -<defun name="mime-entity-parent"> - <args> entity <opts> message -<p> -<var>entity</var> $B$N?F$N(B entity $B$rJV$9!#(B -<p> -<var>message</var> $B$,;XDj$5$l$?>l9g!"$3$l$r:,$H8+Jo$9!#(B -</defun> - -<defun name="mime-root-entity-p"> - <args> entity -<p> -<var>entity</var> $B$,:,!JB($A!"(Bmessage $BA4BN!K$G$"$k>l9g$K!"(B -$BHs(B-<code>nil</code> $B$rJV$9!#(B -</defun> - -<defun name="mime-entity-node-id"> - <args> entity -<p> -<var>entity</var> $B$N(B node-id $B$rJV$9!#(B -</defun> - -<defun name="mime-entity-number"> - <args> entity -<p> -<var>entity</var> $B$N(B entity-number $B$rJV$9!#(B -</defun> - -<defun name="mime-find-entity-from-number"> - <args> entity-number <opts> message -<p> -Return entity from <var>entity-number</var> in <var>message</var>. -<p> -If <var>message</var> is not specified, -<code>mime-message-structure</code> is used. -</defun> - -<defun name="mime-find-entity-from-node-id"> - <args> entity-node-id <opts> message -<p> -Return entity from <var>entity-node-id</var> in <var>message</var>. -<p> -If <var>message</var> is not specified, -<code>mime-message-structure</code> is used. -</defun> - - -<h2> Entity $B$NB0@-(B -<node> Entity Attributes -<p> -<defun name="mime-entity-content-type"> - <args> entity -<p> -<var>entity</var> $B$N(B content-type $B$rJV$9!#(B<cf -node="mime-content-type"> -</defun> - -<defun name="mime-entity-content-disposition"> - <args> entity -<p> -<var>entity</var> $B$N(B content-disposition $B$rJV$9!#(B<cf -node="mime-content-disposition"> -</defun> - -<defun name="mime-entity-filename"> - <args> entity -<p> -<var>entity</var> $B$N(B file $BL>$rJV$9!#(B -</defun> - -<defun name="mime-entity-encoding"> - <args> entity <opts> default-encoding -<p> -<var>entity</var> $B$N(B content-transfer-encoding $B$rJV$9!#(B<cf -node="Content-Transfer-Encoding"> -<p> -$B$b$7!"(B<var>entity</var> $B$K(B Content-Transfer-Encoding $BMs$,B8:_$7$J$$>l(B -$B9g$O!"(B<var>default-encoding</var> $B$rJV$9!#$3$l$,;XDj$5$l$J$$>l9g$O!"(B -<code>"7bit"</code> $B$rMQ$$$k!#(B -</defun> - -<defun name="mime-entity-cooked-p"> - <args> entity -<p> -Return non-nil if contents of <var>entity</var> has been already -code-converted. -</defun> - - -<h2> Entity header $B$N>pJs(B -<node> Entity-header -<p> -<defun name="mime-fetch-field"> - <args> field-name <opts> entity -<p> -<var>entity</var> $B$N(B header $BCf$N(B <var>field-name</var> $BMs$N(B body $B$rJV$9!#(B -<p> -$B7k2L$NJ8;zNs$O(B network $BI=8=$N$^$^$G$"$k!#(B -<p> -<var>entity</var> $B$,>JN,$5$l$?>l9g$O!"(B -<code>mime-message-structure</code> $B$NCM$rMQ$$$k!#(B -<p> -<var>field-name</var> $BMs$,B8:_$7$J$$>l9g$O(B <code>nil</code> $B$rJV$9!#(B -</defun> - -<defun name="mime-read-field"> - <args> field-name <opts> entity -<p> -<var>entity</var> $B$N(B header $BCf$N(B <var>field-name</var> $BMs$r9=J82r@O$7$?(B -$B7k2L$rJV$9!#(B -<p> -$B7k2L$N7A<0$OMsKh$K0[$J$k!#Hs9=B$2=Ms$N>l9g$OJ8;zNs$rJV$7!"9=B$2=Ms$N>l9g(B -$B$O$=$N7A<0$K=>$C$?(B list $B$rJV$9!#(B -<p> -$B7k2LCf$NJ8;zNs$O(B Emacs $B$NFbItI=8=$KJQ49$5$l$k!#(B -<p> -<var>entity</var> $B$,>JN,$5$l$?>l9g$O!"(B -<code>mime-message-structure</code> $B$NCM$rMQ$$$k!#(B -<p> -<var>field-name</var> $BMs$,B8:_$7$J$$>l9g$O(B nil $B$rJV$9!#(B -</defun> - -<defun name="mime-insert-decoded-header"> - <args> entity <opts> invisible-fields visible-fields -<p> -$B8=:_0LCV$K(B <var>entity</var> $B$NI|9f$7$?(B header $B$rA^F~$9$k!#(B -<p> -<var>invisible-fields</var> $B$H(B <var>visible-fields</var> $B$O@55,I=8=$N(B -list $B$G!"$=$l$>$l!"I=<($7$?$/$J$$(B field $BL>$HI=<($7$?$$MsL>$rI=8=$7$?$b$N(B -$B$G$"$k!#(B -<p> -<var>invisible-fields</var> $B$NMWAG$N$I$l$+$K(B match $B$7!"$+$D!"(B -<var>visible-fields</var> $B$NMWAG$N$I$l$K$b(B match $B$7$J$$Ms$OI=<($5$l$J$$!#(B -</defun> - - -<h2> Entity $B$NFbMF(B -<node> Entity-content -<p> -<defun name="mime-entity-content"> - <args> entity -<p> -<var>entity</var> $B$NFbMF$N(B byte $BNs$rJV$9!#(B -</defun> - -<defun name="mime-write-entity-content"> - <args> entity filename -<p> -Write content of <var>entity</var> into <var>filename</var>. -</defun> - -<defun name="mime-write-entity"> - <args> entity filename -<p> -Write representation of <var>entity</var> into <var>filename</var>. -</defun> - -<defun name="mime-write-entity-body"> - <args> entity filename -<p> -Write body of <var>entity</var> into <var>filename</var>. -</defun> - - -<h2> Entity $B$N(B buffer $B$K$h$kI=8=(B -<node> Entity buffer -<p> -<defun name="mime-entity-buffer"> - <args> entity -<p> -<var>entity</var> $B$,B8:_$9$k(B buffer $B$rJV$9!#(B -</defun> - -<defun name="mime-entity-point-min"> - <args> entity -<p> -<var>entity</var> $B$,B8:_$9$k(B buffer $B$K$*$1$k!"(B<var>entity</var> $B$,@j$a$k(B -$BNN0h$N@hF,0LCV$rJV$9!#(B -</defun> - -<defun name="mime-entity-point-max"> - <args> entity -<p> -<var>entity</var> $B$,B8:_$9$k(B buffer $B$K$*$1$k!"(B<var>entity</var> $B$,@j$a$k(B -$BNN0h$NKvHx0LCV$rJV$9!#(B -</defun> - -<defun name="mime-entity-header-start"> - <args> entity -<p> -<var>entity</var> $B$,B8:_$9$k(B buffer $B$K$*$1$k!"(Bheader $B$,@j$a$kNN0h$N@hF,(B -$B0LCV$rJV$9!#(B -</defun> - -<defun name="mime-entity-header-end"> - <args> entity -<p> -<var>entity</var> $B$,B8:_$9$k(B buffer $B$K$*$1$k!"(Bheader $B$,@j$a$kNN0h$NKvHx(B -$B0LCV$rJV$9!#(B -</defun> - -<defun name="mime-entity-body-start"> - <args> entity -<p> -<var>entity</var> $B$,B8:_$9$k(B buffer $B$K$*$1$k!"(Bbody $B$,@j$a$kNN0h$N@hF,0L(B -$BCV$rJV$9!#(B -</defun> - -<defun name="mime-entity-body-end"> - <args> entity -<p> -<var>entity</var> $B$,B8:_$9$k(B buffer $B$K$*$1$k!"(Bbody $B$,@j$a$kNN0h$NKvHx0L(B -$BCV$rJV$9!#(B -</defun> - - -<h2> Entity $B$NI=8=$H<B8=(B -<node> mm-backend -<p> -Entity $B$OCj>]2=$5$l$?%G!<%?I=8=$G!"<B:]$N%G!<%?I=8=$H$7$F$OMQES$K1~$8$F(B -$B$5$^$6$^$J$b$N$,MxMQ$G$-$k$h$&$K@_7W$5$l$F$$$^$9!#(B -<p> -$B$3$3$G!"(Bentity $B$,$I$&$$$&<oN`$NI=8=$r9T$C$F$$$k$+$r<($9$N$,(B -<concept>representation-type</concept> $B$G!"(Bentity $B$r@8@.$9$k;~$K$O$3$l$r(B -$B;XDj$7$^$9!#(B<cf node="Entity Creation"> -<p> -$BA0@a$^$G$K=R$Y$FMh$?(B entity $B$KBP$9$k=hM}$O!"(Bentity $B$KBP$7$F$=$N=hM}$r0M(B -$BMj$9$k$3$H$K$h$C$F<B8=$5$l$F$$$^$9!#(BEntity $B$O<+J,$N(B -representation-type $B$rCN$C$F$*$j!"$=$N(B representation-type $B$K1~$8$F<B:](B -$B$N=hM}$r9T$&4X?t$r8F$S=P$7$^$9!#$3$N$h$&$J4X?t$r(B <concept>entity $B=hM}(B -method</concept> $B$H8F$S$^$9!#$^$?!"(Brepresentation-type $BKh$K$3$N$h$&$J4X(B -$B?t$r$^$H$a$?$b$N$r(B <concept>mm-backend</concept> $B$H8F$S$^$9!#(B -<p> -mm-backend $B$O(B representation-type $B$NL>A0$N@hF,$K(B <code>mm</code> $B$H$$$&(B -$B@\F,<-$rIU$1$?4X?tL>$+$i$J$k(B module $B$G!"$=$N(B module $BL>$OF1MM$K(B -representation-type $B$NL>A0$N@hF,$K(B <code>mm</code> $B$rIU$1$?$b$N$K$J$C$F(B -$B$$$^$9!#$3$N(B module $B$O(B representation-type $B$N(B entity $B$,:G=i$K@8@.$5$l$k(B -$B;~$K<+F0E*$K(B require $B$5$l$^$9!#(B - - -<h3> Entity $B$X$NJX$j(B -<node> Request for entity -<p> -<defun name="mime-entity-send"> - <args> entity message <rest> args -<p> -<var>entity</var> $B$K(B <var>message</var> $B$rAw$k!#(B -<p> -<var>args</var> $B$O(B <var>message</var> $B$N0z?t$G$"$k!#(B -</defun> - - -<h3> mm-backend $B$N:n$jJ}(B -<node> mm-backend module -<p> -$B!J$9$_$^$;$s!#$=$N$&$A=q$-$^$9(B (^_^;$B!K(B -<p> -$B!J$H$j$"$($:!"(Bmm*.el $B$r;29M$K$7$F$/$@$5$$!K(B - - -<h1> Content-Type $BMs$N>pJs(B -<node> Content-Type -<p> -<concept>Content-Type $BMs(B</concept> $B$O(B <dref>media-type</dref> $B$d(B MIME -charset $B$H$$$C$?(B <dref>entity</dref> $B$NFbMF$N<oN`$dI=8=7A<0$J$I$r5-=R(B -$B$9$k$?$a$N$b$N$G!"(B<dref>RFC 2045</dref> $B$GDj5A$5$l$F$$$^$9!#(B - -<memo> -<p> -$BNr;KE*$K$O(B RFC 1049 $B$G(B Content-Type $BMs$,Ds0F$5$l$F$$$k!#C"$7!"(BMIME $B$N(B -media-type $B$N$h$&$J(B type $B$H(B subtype $B$N6hJL$O$J$/!"(BMIME charset $B$N$h$&(B -$B$JJ8;zId9f$N<oN`$rI=8=$9$k$3$H$b$G$-$J$$!#(B -</memo> - -<p> -FLIM $B$O(B Content-Type $BMs$r9=J82r@O$9$k4X?t$H(B Content-Type $BMs$N2r@O7k2L$r(B -$B3JG<$9$k9=B$BN(B <concept>mime-content-type</concept> $B$rDs6!$7$^$9!#(B - - -<h2> Content-Type $BMs$N7A<0(B -<node> Content-Type field -<p> -Content-Type $BMs$N7A<0$O0J2<$N$h$&$KDj5A$5$l$F$$$^$9!'(B - -<quote> -``Content-Type'' ``:'' <concept>type</concept> ``/'' -<concept>subtype</concept> *( ``;'' <concept>parameter</concept> ) -</quote> -<p> -$BNc$($P!"(B - -<quote> -<verb> -Content-Type: image/jpeg -</verb> -</quote> - -<noindent> -$B$d(B - -<quote> -<verb> -Content-Type: text/plain; charset=iso-2022-jp -</verb> -</quote> - -<noindent> -$B$J$I$N$h$&$KMQ$$$i$l$^$9!#(B -<p> -$B$3$3$G!"(B`type' $B$H(B `subtype' $B$O(B entity $B$N7A<0$r<($9$b$N$G!"N><T$rAm>N$7(B -$B$F!"(B`media-type' $B$H8F$V$3$H$K$7$^$9!#>e5-$NNc$K$*$1$k(B `image/jpeg' $B$d(B -`text/plain' $B$O(B media-type $B$N#1$D$G$9!#(B - -<memo> -<p> -Content-Type $BMs$N$J$$(B entity $B$O(B - -<quote> -<verb> -Content-Type: text/plain; charset=us-ascii -</verb> -</quote> - -<noindent> -$B$H$7$F2r<a$5$l$k!#(B<cf node="us-ascii"> -</memo> - - -<h2> mime-content-type $B9=B$BN(B -<node> mime-content-type -<p> -<define type="Structure" name="mime-content-type"> -<p> -Content-Type $BMs$N>pJs$r3JG<$9$k$?$a$N9=B$BN!#(B -<p> -$B$3$N9=B$BN$r;2>H$9$k$K$O(B <code>mime-content-type-$BMWAGL>(B</code> $B$H$$$&L>(B -$BA0$N;2>H4X?t$rMQ$$$k!#(B -<p> -$B$3$N9=B$BN$NMWAG$O0J2<$NDL$j$G$"$k!'(B - -<vl> -<dt>primary-type<dd>media-type $B$N<g7?(B (symbol). -</dd> -<dt>subtype<dd>media-type $B$NI{7?(B (symbol). -</dd> -<dt>parameters<dd>Content-Type $BMs$N(B parameter ($BO"A[(B list). -</dd> -</vl> -</define> - -<defun name="make-mime-content-type"> - <args> type subtype - <opts> parameters -<p>content-type $B$N@8@.;R!#(B -</defun> - -<defun name="mime-content-type-parameter"> -<args> content-type parameter -<p> -<var>content-type</var> $B$N(B <var>parameter</var> $B$NCM$rJV$9!#(B -</defun> - - -<h2> Content-Type $BMs$N2r@O4o(B -<node> Content-Type parser -<p> -<defun name="mime-parse-Content-Type"> - <args> string -<p> -<var>string</var> $B$r(B content-type $B$H$7$F2r@O$7$?7k2L$rJV$9!#(B -</defun> - -<defun name="mime-read-Content-Type"> -<p> -$B8=:_$N(B buffer $B$N(B Content-Type $BMs$rFI$_<h$j!"2r@O$7$?7k2L$rJV$9!#(B -<p> -Content-Type $BMs$,B8:_$7$J$$>l9g$O(B nil $B$rJV$9!#(B -</defun> - - -<h2> Content-Type $B$K4X$9$kM-MQ$J4X?t(B -<node> Content-Type utility -<p> -<defun name="mime-type/subtype-string"> - <args> type <opts> subtype -<p> -<var>type</var> $B$H(B <var>subtype</var> $B$+$i(B type/subtype $B7A<0$NJ8;zNs$rJV(B -$B$9!#(B -</defun> - - -<h1> Content-Disposition $BMs$N>pJs(B -<node> Content-Disposition -<p> -<concept>Content-Disposition $BMs(B</concept> $B$O(B entity $B$NI=<($d(B file $BL>$J$I(B -$B$NB0@-$K$J$I$K4X$9$k>pJs$r5-=R$9$k$?$a$N$b$N$G$9!#(B - -<rfc number="2183" type="Standards Track" - author="S. Dorner, K. Moore and R. Troost" - title="Communicating Presentation Information in - Internet Messages: The Content-Disposition Header" - date="August 1997"> -<p> -FLIM $B$O(B Content-Disposition $BMs$r9=J82r@O$9$k4X?t$H(B Content-Disposition -$BMs$N2r@O7k2L$r3JG<$9$k9=B$BN(B -<concept>mime-content-disposition</concept> $B$rDs6!$7$^$9!#(B - - -<h2> mime-content-disposition $B9=B$BN(B -<node> mime-content-disposition -<p> -<define type="Structure" name="mime-content-disposition"> -<p> -Content-Disposition $BMs$N2r@O7k2L$r<}$a$k$?$a$N9=B$BN!#(B -<p> -$B$3$N9=B$BN$r;2>H$9$k$K$O(B <code>mime-content-disposition-$BMWAGL>(B</code> $B$H(B -$B$$$&L>A0$N;2>H4X?t$rMQ$$$k!#(B -<p> -$B$3$N9=B$BN$NMWAG$O0J2<$NDL$j$G$"$k!'(B - -<vl> -<dt>disposition-type<dd>disposition-type (symbol). -</dd> -<dt>parameters<dd>Content-Disposition $BMs$N(B parameter ($BO"A[(B list). -</dd> -</vl> -</define> - -<defun name="mime-content-disposition-parameter"> -<args> content-disposition parameter -<p> -<var>content-disposition</var> $B$N(B <var>parameter</var> $B$NCM$rJV$9!#(B -</defun> - -<defun name="mime-content-disposition-filename"> -<args> content-disposition -<p> -<var>content-disposition</var> $B$N(B filename $B$NCM$rJV$9!#(B -</defun> - - -<h2> Content-Disposition $BMs$N2r@O4o(B -<node> Content-Disposition parser -<p> -<defun name="mime-parse-Content-Disposition"> - <args> string -<p> -<var>string</var> $B$r(B content-disposition $B$H$7$F2r@O$7$?7k2L$rJV$9!#(B -</defun> - -<defun name="mime-read-Content-Disposition"> -<p> -$B8=:_$N(B buffer $B$N(B Content-Disposition $BMs$rFI$_<h$j!"2r@O$7$?7k2L$rJV$9!#(B -<p> -Content-Disposition $BMs$,B8:_$7$J$$>l9g$O(B nil $B$rJV$9!#(B -</defun> - - -<h1> $BId9f2=K!(B -<node> Content-Transfer-Encoding -<p> -<concept>Content-Transfer-Encoding $BMs(B</concept> $B$O(B entity $B$NId9f2=K!$r5-(B -$B=R$9$k$?$a$N$b$N$G$9!#(B -<p> -FLIM $B$G$O(B Content-Transfer-Encoding $BMs$r9=J82r@O$9$k4X?t$rDs6!$7$^$9!#$3(B -$B$l$i$N4X?t$O(B Content-Transfer-Encoding $BMs$N>pJs$OJ8;zNs$GI=8=$7$^$9!#(B -<p> -$B$^$?!"(BContent-Transfer-Encoding $B$K4p$E$$$FId9f2=!&I|9f2=$r9T$&4X?t$bDs(B -$B6!$5$l$^$9!#(B - - -<h2> Content-Transfer-Encoding $BMs$N2r@O4o(B -<node> Content-Transfer-Encoding parser -<p> -<defun name="mime-parse-Content-Transfer-Encoding"> - <args> string -<p> -<var>string</var> $B$r(B content-transfer-encoding $B$H$7$F2r@O$7$?7k2L$rJV$9!#(B -</defun> - -<defun name="mime-read-Content-Transfer-Encoding"> - <opts>default-encoding -<p> -$B8=:_$N(B buffer $B$N(B Content-Transfer-Encoding $BMs$rFI$_<h$j!"2r@O$7$?7k2L$r(B -$BJV$9!#(B -<p> -Content-Transfer-Encoding $BMs$,B8:_$7$J$$>l9g$O(B -<var>default-encoding</var> $B$rJV$9!#(B -</defun> - - -<h2> $BNN0h$NId9f2=!&I|9f2=(B -<node> Region encoder/decoder -<p> -<defun name="mime-encode-region"> - <args> start end encoding -<p> -Encode region <var>start</var> to <var>end</var> of current buffer -using <var>encoding</var>. -</defun> - -<defun name="mime-decode-region"> - <args> start end encoding -<p> -Decode region <var>start</var> to <var>end</var> of current buffer -using <var>encoding</var>. -</defun> - -<defvar name="mime-encoding-method-alist"> -<p> -Alist of encoding vs. corresponding method to encode region. -<p> -Each element looks like <code>(STRING . FUNCTION)</code> or -<code>(STRING . nil)</code>. <var>string</var> is -content-transfer-encoding. <code>function</code> is region encoder -and <code>nil</code> means not to encode. -</defvar> - -<defvar name="mime-decoding-method-alist"> -<p> -Alist of encoding vs. corresponding method to decode region. -<p> -Each element looks like <code>(STRING . FUNCTION)</code> or -<code>(STRING . nil)</code>. <var>string</var> is -content-transfer-encoding. <code>function</code> is region decoder -and <code>nil</code> means not to decode. -</defvar> - - -<h2> $BJ8;zNs$NId9f2=!&I|9f2=(B -<node> String encoder/decoder -<p> -<defun name="mime-decode-string"> - <args> string encoding -<p> -<var>string</var> $B$r(B <var>encoding</var> $B$H$7$FI|9f$7$?7k2L$rJV$7$^$9!#(B -</defun> - -<defvar name="mime-string-decoding-method-alist"> -<p> -Alist of encoding vs. corresponding method to decode string. -<p> -Each element looks like <code>(STRING . FUNCTION)</code>. -STRING is content-transfer-encoding. -FUNCTION is string decoder. -</defvar> - - -<h2> File $B$NId9f2=!&I|9f2=(B -<node> File encoder/decoder -<p> -<defun name="mime-insert-encoded-file"> - <args> filename encoding -<p> -Insert file <var>FILENAME</var> encoded by <var>ENCODING</var> format. -</defun> - -<defun name="mime-write-decoded-region"> - <args> start end filename encoding -<p> -Decode and write current region encoded by <var>encoding</var> into -<var>filename</var>. -<p> -<var>start</var> and <var>end</var> are buffer positions. -</defun> - -<defvar name="mime-file-encoding-method-alist"> -<p> -Alist of encoding vs. corresponding method to insert encoded file. -<p> -Each element looks like <code>(STRING . FUNCTION)</code>. STRING is -content-transfer-encoding. FUNCTION is function to insert encoded -file. -</defvar> - -<defvar name="mime-file-decoding-method-alist"> -<p> -Alist of encoding vs. corresponding method to write decoded region to -file. -<p> -Each element looks like <code>(STRING . FUNCTION)</code>. STRING is -content-transfer-encoding. FUNCTION is function to write decoded -region to file. -</defvar> - - -<h1> Header $B$N(B network $BI=8=(B -<node> encoded-word -<p> -encoded-word $B$O(B header $B$GHs(B <dref>ASCII</dref> $BJ8;z$rI=8=$9$k$?$a$N7A(B -$B<0$G!"(B<concept>RFC 2047</concept> $B$GDj5A$5$l$F$$$^$9!#(B -<p> -<rfc number="2047" type="Standards Track" author="K. Moore" - title="MIME (Multipurpose Internet Mail Extensions) Part - Three: Message Header Extensions for Non-ASCII Text" - date="November 1996" obsolete="1521,1522,1590"> -<p> -$B$^$?!"9T57$N0-$$$3$H$@$H8@$($^$9$,!"(Bencoded-word $B$rMQ$$$:$KHs(B -<dref>ASCII</dref> $BJ8;z$r(B header $B$KF~$l$?5-;v$bB8:_$7$^$9!#(B -<p> -FLIM $B$O$3$l$i$rId9f2=!&I|9f2=$9$k5!G=$rDs6!$7$^$9!#(B - - -<h2> Header $B$NId9f2=!&I|9f2=(B -<node> Header encoder/decoder -<p> -<defun name="eword-encode-header"> - <opts> code-conversion separator -<p> -Decode MIME encoded-words in header fields. -<p> -If <var>code-conversion</var> is <code>nil</code>, it decodes only -encoded-words. If it is mime-charset, it decodes non-ASCII bit -patterns as the mime-charset. Otherwise it decodes non-ASCII bit -patterns as the default-mime-charset. -<p> -If <var>separator</var> is not nil, it is used as header separator. -</defun> - -<defun name="eword-encode-header"> - <opts> code-conversion -<p> -Encode header fields to network representation, such as MIME -encoded-word. -<p> -It refer variable <code>eword-field-encoding-method-alist</code>. -</defun> - - -<h1> $B0lHL@_Dj(B -<node> custom -<p> -<define type="group" name="mime"> -<p> -MIME $B4XO"5!G=$K4X$9$k(B group. -<p> -<code>mail</code> $B$H(B <code>news</code> $B$KB0$9$k!#(B -</define> - -<defvar name="default-mime-charset"> -<p> -$BE,@Z$J(B <dref>MIME charset</dref> $B$,8+$D$+$i$J$+$C$?>l9g$KMQ$$$i$l$k(B -MIME charset. -<p> -$BK\Mh$O(B APEL $B$NJQ?t$G$"$k!#(B -</defvar> - -<defvar name="mime-temp-directory"> -<p> -MIME $B5!G=$K4X$9$k<BAu$,0l;~E*$K;HMQ$9$k(B file $B$r:n@.$9$k(B directory. -<p> -$B4D6-JQ?t(B <code>MIME_TMP_DIR</code>, <code>TM_TMP_DIR</code>, -<code>TMPDIR</code>, <code>TMP</code> $B$b$7$/$O(B <code>TEMP</code> $B$,@_Dj(B -$B$5$l$F$$$?>l9g!"$=$l$r=i4|CM$H$7$FMQ$$$k!#2?$b@_Dj$5$l$F$$$J$$>l9g!"(B -<code>"/tmp/"</code> $B$rMQ$$$k!#(B -</defvar> - - -<h1> $BIUO?(B -<node> Appendix - -<h2> $BMQ8l(B -<node> Glossary - -<h3> 7bit -<node> 7bit -<p> -$B$3$3$G$O(B 0 $B$+$i(B 127 $B$N@0?t$r;X$9!#(B -<p> -0 $B$+$i(B 127 $B$N@0?t$NNs$GI=8=$G$-$k$h$&$J(B data $B$r(B ``7bit $B$N(B data'' $B$H8F(B -$B$V!#(B -<p> -$B$^$?!"(B0 $B$+$i(B 31 $B$*$h$S(B 127 $B$GI=8=$5$l$k@)8fJ8;z$H(B 32 $B$GI=8=$5$l$k6uGr(B -$B$H(B 33 $B$+$i(B 126 $B$GI=8=$5$l$k?^7AJ8;z$+$i$J$kJ8;zNs$N$3$H$r(B ``7bit $B$NJ8(B -$B;zNs(B'' $B$H8F$V!J$3$l$O(B <dref>ISO 2022</dref> $B$N!V(B7 $BC10L7O!W$HF1MM!K!#(B -<p> -$BEAE}E*$J(B Internet $B$N(B <dref>MTA</dref> $B$O(B 7bit $B$N(B data $B$rE>Aw$G$-$k$N$G!"(B -7bit $B$N(B data $B$O(B <dref>Quoted-Printable</dref> $B$d(B <dref>Base64</dref> -$B$H$$$C$?JQ49$r9T$o$J$/$F$b$=$N$^$^E>Aw$G$-$k!#(B -<p> -$B$7$+$7!"(B7bit $B$G$"$l$P$I$s$J(B data $B$G$bNI$$$H$O$$$($J$$!#$J$<$J$i!"#19T(B -$B$ND9$5$,$"$^$j$KD9$$$H!"(BMTA $B$O$=$N(B message $B$rE>Aw$9$k$3$H$,$G$-$J$$$+(B -$B$i$G$"$k!#$A$J$_$K!"(B<dref>RFC 821</dref> $B$O#19T$O2~9TJ8;z$r=|$$$F(B 998 -byte $B0JFb$G$"$k$3$H$r5a$a$F$$$k!#$h$C$F!"$3$l0J>e$N9T$,4^$^$l$k2DG=@-(B -$B$N$"$k(B data, $BNc$($P!"(BPostscript $B$N(B data $B$J$I$O(B Quoted-Printable $BEy$G(B -encode$B$9$kI,MQ$,$"$k!#(B - - -<h3> 8bit -<node> 8bit -<p> -$B$3$3$G$O(B 0 $B$+$i(B 255 $B$N@0?t$r;X$9!#(B -<p> -0 $B$+$i(B 255 $B$N@0?t$NNs$GI=8=$G$-$k$h$&$J(B data $B$r(B ``8bit $B$N(B data'' $B$H8F(B -$B$V!#(B -<p> -$B$^$?!"(B0 $B$+$i(B 31, 127 $B$*$h$S(B 128 $B$+$i(B 159 $B$GI=8=$5$l$k@)8fJ8;z$H(B 32 $B$G(B -$BI=8=$5$l$k6uGr$H(B 33 $B$+$i(B 126 $B$H(B 160 $B$+$i(B 255 $B$GI=8=$5$l$k?^7AJ8;z$+$i(B -$B$J$kJ8;zNs$N$3$H$r(B ``8bit $B$NJ8;zNs(B'' $B$H8F$V!J$3$l$O(B <dref>ISO -2022</dref> $B$N!V(B8 $BC10L7O!W$HF1MM!K!#(B -<p> -<dref>iso-8859-1</dref> $B$d(B <dref>euc-kr</dref> $B$H$$$C$?Id9f2=J8;z=89g(B -$B$O(B 8bit $B$NJ8;zNs$G$"$k!#(B -<p> -$BEAE}E*$J(B Internet $B$N(B <dref>MTA</dref> $B$O(B <dref>7bit</dref> $B$N(B data $B$7(B -$B$+E>Aw$G$-$J$$$N$G!"$=$&$7$?(B MTA $B$r7PM3$9$k>l9g!"(B -<dref>Quoted-Printable</dref> $B$d(B <dref>Base64</dref> $B$H$$$C$?JQ49$r9T(B -$B$o$J$/$F$O$J$i$J$$!#(B -<p> -$B$7$+$7!":G6a$G$O(B 8bit $B$NJ8;zNs$r$=$N$^$^DL$9$3$H$,$G$-$k(B MTA $B$bEP>l$7(B -$B$F$-$?$N$G!"$=$N$^$^Aw$k$3$H$,$G$-$k>l9g$bA}$($F$-$?!#(B -<p> -$B$7$+$7!"(B8bit $B$G$"$l$P$I$s$J(B data $B$G$bNI$$$H$O$$$($J$$!#$J$<$J$i!"#19T(B -$B$ND9$5$,$"$^$j$KD9$$$H!"(BMTA $B$O$=$N(B message $B$rE>Aw$9$k$3$H$,$G$-$J$$$+(B -$B$i$G$"$k!#$A$J$_$K!"(B<dref>RFC 821</dref> $B$O#19T$O2~9TJ8;z$r=|$$$F(B 998 -byte $B0JFb$G$"$k$3$H$r5a$a$F$$$k!#$h$C$F!"$3$l0J>e$N9T$,4^$^$l$k2DG=@-(B -$B$N$"$k(B data, $BNc$($P!"(BPostscript $B$N(B data $B$J$I$O(B Quoted-Printable $BEy$G(B -encode$B$9$kI,MQ$,$"$k!#(B -<p> -$B$^$?!"$3$&$7$?M}M3$+$i!"#19T$,(B 999 byte $B0J>e$N9T$,B8:_$9$k2DG=@-$N$"$k(B -data $B$O(B <a node="binary"><concept>binary</concept></a> $B$H8F$V$3$H$K$9(B -$B$k!#(B -<p> -$B$A$J$_$K!"(B7bit $B$GI=8=$G$-$k(B data $B$O(B 8bit $B$G$bI=8=$G$-$k!#$h$C$F!"(B -``8bit'' $B$H8@$C$?>l9g!"#19T$,(B 998 byte $B0J2<$NG$0U$N(B data $B$r;X$9$3$H$,(B -$B$"$k!#(B - - -<h3> ASCII -<node> ASCII -<p> -$B%"%a%j%+O"K.$G;H$o$l$kJ8;z$rId9f2=$7$?(B<dref>$BId9f2=J8;z=89g(B</dref>$B!#(B -A-Z, a-z $B$N(B Latin $BJ8;z$H?t;z!"4v$D$+$N5-9f$+$i$J$k!#(BISO 646 $B$N0l$D$G!"(B -$B8=:_$O9q:]4p=`HG(B (IRV) $B$K$J$C$F$$$k!#(B - -<standard abbrev="ASCII" title-en="Coded Character Set -- 7-Bit - American Standard Code for Information Interchange" - number="ANSI X3.4" year="1986"> - - -<h3> Base64 -<node> Base64 -<p> -<dref>RFC 2045</dref> $B$GDj5A$5$l$F$$$k(B <dref>MIME</dref> $B$K$*$1$k(B <a -node="binary">binary data</a> $B$N(B network $B$G$NJQ49K!$N#1$D!#(B -<p> -$B!X(B64 $B?J?t!Y$H$$$&0UL#$G!"(B3 byte $B$N(B data $B$r(B 0 $B$+$i(B 63 $B$N?t$rI=$9(B -<dref>ASCII</dref> 4 $BJ8;z$KJQ49$9$kJ}K!!#!J$b$7!"(B4 $BJ8;z$K$J$i$J$1$l$P(B -<concept>pad</concept> $B$H8F$P$l$k5M$aJ*$r$7$FD9$5$rD4@0$9$k!K(B -<p> -$B$3$N(B 65 $B<oN`$NJ8;z$O(B ASCII $B$H(B EBCDIC $B$N6&DLItJ,$+$iA*$P$l$F$*$j!"(B -Internet $B0J30$N(B network $B$r7PM3$9$k>l9g$G$b0BA4$KE>Aw$G$-$k$h$&$K@_7W$5(B -$B$l$F$$$k!#(B - - -<h3> binary -<node> binary -<p> -$BG$0U$N(B byte $BNs$r(B <concept>binary</concept> $B$H8F$V!#(B -<p> -<dref>8bit</dref> $B$H0[$J$k$N$O(B data $B$K9T$N9=B$$r2>Dj$7$J$$$3$H$G$"$k!#(B -<p> -$B$^$?!"9T$N9=B$$,$"$C$F$b!"(B999 byte $B0J>e$+$i$J$k9T$,$"$k>l9g$b(B binary -$B$H8F$V$3$H$K$9$k!#(B -<p> -$B$A$J$_$K!"(B<dref>7bit</dref> $B$d(B 8bit $B$GI=8=$G$-$k(B data $B$O(B binary $B$G$bI=(B -$B8=$G$-$k!#$h$C$F!"(B<concept>binary data</concept> $B$H8@$C$?>l9g!"G$0U$N(B -data $B$r;X$9$3$H$,$"$k!#(B - - -<h3> Coded character set$B!JId9f2=J8;z=89g!K(B, Character code$B!JJ8;zId9f!K(B -<node> Coded character set -<p> -$BJ8;z$H(B byte $BNs$H#1BP#1$KBP1~IU$1$k[#Kf$G$J$$5,B'$N=89g!#(B - - -<h3> media-type -<node> media-type -<p> -<dref>MIME</dref> $B$K$*$1$k(B <dref>entity</dref> $B$N<oN`!#(B -<concept>primary-type</concept> $B$H(B <concept>subtype</concept> $B$+$i$J$k!#(B -<dref>RFC 2046</dref> $B$GDj5A$5$l$F$$$k!#(B -<p> -primary-type $B$OI8=`$G$O(B - -<ul> -<li><concept>text</concept> -</li> -<li><concept>image</concept> -</li> -<li><concept>audio</concept> -</li> -<li><concept>video</concept> -</li> -<li><concept>application</concept> -</li> -<li><a node="multipart"><concept>multipart</concept></a> -</li> -<li><concept>message</concept> -</ul> - -<noindent> -$B$,Dj5A$5$l!"$=$l$>$l$K$O(B application/octet-stream, audio/basic, -image/jpeg, <dref>multipart/mixed</dref>, <dref>text/plain</dref>, -video/mpeg $B$J$I$N$5$^$6$^$J(B subtype $B$,Dj5A$5$l$F$$$k!#(B - -<memo title="$BCm0U(B"> -<p> -$B$3$3$G$O!"(Btext/plain $B$J$I$N(B type/subtype $B$NAH$r$7$P$7$P(B -<concept>primary-type/subtype</concept> $B$H=q$/!#(B -</memo> - -<p> -media-type $B$O!"(BRFC 2046 $B$GDj5A$5$l$F$$$k$b$N$K2C$($F!"EPO?$9$k$3$H$b$G(B -$B$-$k!#8=:_!"EPO?$5$l$F$$$k$b$N$O(B <a -href="ftp://ftp.isi.edu/in-notes/iana/assignments/media-types">MEDIA -TYPES</a> $B$G;2>H$G$-$k!#(B -<p> -$B$^$?!"(Btype $B$b$7$/$O(B subtype $B$K!"A0$K(B `x-' $B$rIU$1$?(B -<concept>x-token</concept> $B$rMQ$$$k$3$H$K$h$j!"EPO?$5$l$F$$$J$$$b$N$r(B -$B;dE*$KMQ$$$k$3$H$b$G$-$k!#$7$+$7!"EvA3$N$3$H$J$,$i!"$3$&$7$?;dE*$J(B -media-type $B$ONJ2r$rF@$?<T$N4V$G$7$+2r<a$G$-$J$$$N$GMxMQ$K$OCm0U$9$k$3(B -$B$H!#(B -<p> -<cf node="Content-Type"> - - -<h3> message -<node> message -<p> -$B$3$3$G$O(B mail $B$H(B news $B5-;v$NAm>N$H$7$FMQ$$$k!#(B - - -<h3> MIME -<node> MIME -<p> -<concept>Multipurpose Internet Mail Extensions</concept> $B$NN,$G!"(B -Internet $B$N(B mail $B$d(B news $B$G(B <a node="us-ascii">us-ascii plain text</a> -$B0J30$NJ8;z$r;H$&$?$a$N(B <dref>RFC 822</dref> $B$KBP$9$k3HD%!#(B -<p> -RFC 2045 $B$OKAF,$G<!$N$h$&$K=R$Y$F$$$k!'(B -<p> -STD 11, RFC 822 $B$O!"(BUS-ASCII message header $B$K4X$7$FHs>o$K>\:Y$K5,Dj$7(B -$B$?(B message $BI=8=(B protocol $B$rDj5A$7$F$$$k!#$7$+$7!"$=$l$OC1$K(B flat $B$J(B -US-ASCII text $B$N$_$KN1$^$j!"(Bmessage $B$NFbMF$d(B message body $B$K4X$9$k5,Dj(B -$B$O$J$5$l$F$$$J$$!#(BMultipurpose Internet Mail Extensions, $B$"$k$$$O(B MIME -$B$HAm>N$5$l$k!"$3$N0lO"$NJ8=q$O!"0J2<$N;v$r2DG=$H$9$k$?$a$K(B message $B$N(B -$B7A<0$r:FDj5A$7$?!'(B - -<ol> -<li>$BJ8=q(B message body $B$K$*$1$k(B US-ASCII $B0J30$NJ8;z=89g(B -</li> -<li>$BHsJ8=q(B message body -</li> -<li>$BJ#?t$NItJ,$+$i$J$k(B message body -</li> -<li>US-ASCII $B0J30$NJ8;z=89g$+$i$J$kJ8=q(B header $B>pJs(B -</ol> - -<p> -<dref>RFC 2045</dref>, <dref>RFC 2046</dref>, <a -node="encoded-word">RFC 2047</a>, <dref>RFC 2048</dref>, <dref>RFC -2049</dref> $B$GDj5A$5$l$F$$$k!#(B - - -<h3> MIME charset -<node> MIME charset -<p> -<dref>Content-Type</dref> $BMs$d(B <dref>encoded-word</dref> $B$N(B charset -parameter $B$GMQ$$$i$l$kEPO?$5$l$?(B<a node="Coded character set">$BId9f2=J8(B -$B;z=89g(B</a>$B!#(B -<p> -<dref>RFC 2045</dref> $B$GDj5A$5$l$F$$$k!#(B -<p> -iso-2022-jp $B$d(B euc-kr $B$O$=$N#1$D!#(B - - -<h3> MTA -<node> MTA -<p> -<concept>Message Transfer Agent</concept> $B$NN,$G!"(Bqmail $B$d(B sendmail $B$J(B -$B$I$N(B mail $BG[Aw(B program $B$H(B inn $B$J$I$N(B news server $B$NAm>N!#(B -<p> -<cf node="MUA"> - - -<h3> MUA -<node> MUA -<p> -<concept>Message User Agent</concept> $B$NN,$G!"(Bmail reader $B$H(B news -reader $B$NAm>N!#(B -<p> -<cf node="MTA"> - - -<h3> Quoted-Printable -<node> Quoted-Printable -<p> -<dref>RFC 2045</dref> $B$GDj5A$5$l$F$$$k(B <dref>MIME</dref> $B$K$*$1$k(B -<dref>binary data</dref> $B$N(B network $B$G$NJQ49K!$N#1$D!#(B -<p> -`=' $B$d@)8fJ8;z$d(B 128 $B0J>e$NJ8;z$J$I$O(B `=AF' $B$N$h$&$K(B `=' $B$N8e$KB3$/(B 16 -$B?J?t$GI=8=$9$k!#$3$N$?$a!"(B<dref>ASCII</dref> $BJ8;zCf?4$N(B data $B$G$O(B -<dref>Base64</dref> $B$KHf$Y$k$H2DFI@-$,9b$/$J$k2DG=@-$,$"$k!#(B -<p> -$B$7$+$7$J$,$i!"(BEBCDIC $B$K$OB8:_$7$J$$J8;z$rMxMQ$9$k>l9g!"(BEBCDIC $B$rMxMQ$7(B -$B$F$$$k(B network $B$G$O0BA4$KE>Aw$9$k$3$H$,$G$-$:!"(BBase64 $B$KHf$Y$F0BA4@-$O(B -$BDc$$!#(B - - -<h3> RFC 822 -<node> RFC 822 -<p> -Internet mail $B$N<g$K(B <concept>message header</concept> $B$K4X$9$k7A<0$K(B -$B4X$9$kI8=`$rDj$a$F$$$k(B RFC. - -<memo> -<p> -news message $B$b$3$l$K=`$8$F$$$k$N$G!"(B<concept>Internet mail</concept> -$B$H=q$/$h$j$b!"(B<concept>Internet message</concept> $B$H=q$$$?J}$,NI$$$+$b(B -$B$7$l$J$$!#(B -</memo> - -<rfc number="822" type="STD 11" author="D. Crocker" title="Standard - for the Format of ARPA Internet Text Messages" - date="August 1982"> - - -<h3> RFC 1036 -<node> RFC 1036 -<p> -USENET $B$G$N(B message $B$N7A<0$rDj$a$?(B RFC. <dref>RFC 822</dref> $B$N(B -subset $B$K$J$C$F$$$k!#(BInternet $B$NI8=`$G$O$J$$$,!"(BUSENET $B0J30$N(B netnews -$B$G$b$3$l$K=`$8$F$$$k$b$N$,B?$$!#(B - -<rfc name="USENET" number="1036" author="M. Horton and R. Adams" - title="Standard for Interchange of USENET Messages" - date="December 1987" obsolete="850"> - - -<h3> RFC 2045 -<node> RFC 2045 -<p> -<rfc number="2045" type="Standards Track" author="N. Freed and - N. Borenstein" title="Multipurpose Internet Mail - Extensions (MIME) Part One: Format of Internet Message - Bodies" date="November 1996" obsolete="1521, 1522, - 1590"> - - -<h3> RFC 2046 -<node> RFC 2046 -<p> -<rfc number="2046" type="Standards Track" author="N. Freed and - N. Borenstein" title="Multipurpose Internet Mail - Extensions (MIME) Part Two: Media Types" - date="November 1996" obsolete="1521, 1522, 1590"> - - -<h3> RFC 2048 -<node> RFC 2048 -<p> -<rfc number="2048" type="Standards Track" author="N. Freed, J. Klensin - and J. Postel" title="Multipurpose Internet Mail - Extensions (MIME) Part Four: Registration Procedures" - date="November 1996" obsolete="1521, 1522, 1590"> - - -<h3> RFC 2049 -<node> RFC 2049 -<p> -<rfc number="2049" type="Standards Track" author="N. Freed and - N. Borenstein" title="Multipurpose Internet Mail - Extensions (MIME) Part Five: Conformance Criteria and - Examples" date="November 1996" obsolete="1521, 1522, - 1590"> - - -<h3> plain text -<node> plain text -<p> -$B=qBN$dAHHG$K4X$9$k>pJs$r;}$?$J$$(B<a node="Coded character set">$BJ8;zId9f(B -</a>$B$N$_$GI=8=$5$l$k(B text $B>pJs!#(B<cf node="text/plain"> - - -<h3> us-ascii -<node> us-ascii -<p> -$B%"%a%j%+O"K.$J$I$G;H$o$l$k1Q8l$J$I$rI=8=$9$k$?$a$N(B <dref>MIME -charset</dref> $B$N#1$D!#(B -<p> -<dref>ASCII</dref> $B$N$_$+$i$J$j(B ISO 2022 $B$K$h$kId9f3HD%$O5v$5$l$J$$!#(B -<p> -Internet message $B$K$*$1$kI8=`$N(B<a node="Coded character set">$BId9f2=J8(B -$B;z=89g(B</a>$B$G$"$j!"L@<(E*$K(B MIME charset $B$,<($5$l$J$$>l9g$O86B'$H$7$F(B -<concept>us-ascii</concept> $B$,;H$o$l$k!#(B -<p> -$B$^$?!"(B<dref>RFC 822</dref> $B$K$*$1$k(B <concept>ASCII</concept> -$B$O(B us-ascii $B$G$"$k!#(B - - -<h2> bug $BJs9p$N;EJ}(B -<node> Bug report -<p> -FLIM $B$N%P%0$r8+$D$1$?$i!"0J2<$N(B address $B$K(B mail $B$rAw$C$F$/$@$5$$!'(B - -<ul> -<li> $BF|K\8l(B <mail>bug-tm-ja@chamonix.jaist.ac.jp</mail> -<li> $B1Q8l(B <mail>bug-tm-en@chamonix.jaist.ac.jp</mail> -</ul> - -<p> -$BC"$7!"$"$^$j$K$b8E$$HG$K4X$9$kJs9p$O4?7^$5$l$^$;$s!#8E$$HG$N(B bug $B$O!"(B -$B?7$7$$HG$G$O<#$C$F$$$k$+$b$7$l$^$;$s!#$^$:!":G?7HG$G3NG'$7$F$_$^$7$g$&!#(B -<p> -$B$=$l$+$i!"E,@Z$JJs9p$r$7$^$7$g$&!#C1$K!V$&$^$/F0$+$J$$!W$H8@$o$l$F$b$I(B -$B$&$$$&>u67$J$N$+$O$5$C$Q$jH=$j$^$;$s!#:GDc8B!"(BOS, emacs, APEL, FLIM, -SEMI, $B;H$C$F$$$k(B MUA $B$N<oN`$*$h$SHG!"@_Dj$r=q$/I,MW$,$"$j$^$9!#$^$?!"(B -error $B$,5/$C$F$$$k>l9g$O(B backtrace $B$rAw$k$3$H$b=EMW$G$9!#(B<cf -file="emacs" node="Bugs"> -<p> -$B$^$?!"(Bbug $B$OBgDqJ#?t$N?M$,Ax6x$9$k$b$N$G$9!J$=$&$G$J$1$l$P!"(Bbug $B$G$O$J(B -$B$$2DG=@-$,$"$j$^$9!K!#$@$+$i!":n<T$KD>@\(B mail $B$rAw$k$H:n<T$OF1$8(B mail -$B$r2?DL$b=q$/1)L\$K$J$j$^$9!#$@$+$i!"I,$:(B bug $BJs9p$O>e5-$N(B address $B$KAw$C(B -$B$F$/$@$5$$!#(B - -<p> -tm ML $B$G$O(B FLIM $B$N%P%0>pJs$N8r49$d:G?7HG$NG[I[!"(BFLIM $B$N2~NI$K4X$9$k5D(B -$BO@$r9T$J$C$F$$$^$9!#(Btm ML $B$K;22C$7$?$$J}$O(B - -<ul> -<li> $BF|K\8l(B <mail>tm-ja-help@chamonix.jaist.ac.jp</mail> -<li> $B1Q8l(B <mail>tm-en-help@chamonix.jaist.ac.jp</mail> -</ul> - -<noindent> -$B$K6u$N(B mail $B$rAw$C$F2<$5$$!#(B - - -<h2> CVS $B$K$h$k3+H/(B -<node> CVS -<p> -FLIM $B$N(B file $B$O(B CVS $B$r;H$C$F4IM}$5$l$F$$$^$9!#$3$N$?$a!"0J2<$NJ}K!$G:G(B -$B?7$N(B FLIM $B$rF~<j$9$k$3$H$,$G$-$^$9!'(B - -<verb> -(0) cvs login - - % cvs -d :pserver:anonymous@chamonix.jaist.ac.jp:/hare/cvs/root \ - login - - CVS password: [CR] # NULL string - -(1) checkout - - % cvs -d :pserver:anonymous@chamonix.jaist.ac.jp:/hare/cvs/root \ - checkout [-r TAG] flim -</verb> - -<p> -CVS $B$rMQ$$$?3+H/$K;22C$7$?$$J}$O(B - -<ul> -<li> <mail>cvs@chamonix.jaist.ac.jp</mail> -</ul> - -<noindent> -$B$^$G!"(Baccount $BL>$H(B UNIX $B$N(B passwd $B$HF1$87A<0$N(B crypt $B2=$5$l$?(B password -$B$r1h$($F8fO"Mm$/$@$5$$!#(B - - -<h2> $BNr;K(B -<node> History -<p> -FLIM $B$N(B code $B$N:G8E$NItJ,$O(B $B1]JB(B $B;LCR(B $B;a$,=q$$$?(B <file>mime.el</file> -$B$K5/8;$7$^$9!#$3$N>.$5$J(B program $B$O(B Nemacs $B$GF0:n$9$k(B iso-2022-jp $B$N(B -B-encoding $B@lMQ$N(B encoded-word $B$NI|9f2=%W%m%0%i%`$G$7$?!#(B -<p> -$B$=$N8e!"<i2,(B $BCNI'(B $B$O(B <file>mime.el</file> $B$r85$K(B -<file>tiny-mime.el</file> $B$H$$$&%W%m%0%i%`$r=q$-$^$9!#$3$l$O!"(BNemacs -$B$H(B Mule $B$GF0:n$9$k(B encoded-word $B$NId9f2=!&I|9f2=%W%m%0%i%`$G$7$?!#(B -<file>tiny-mime.el</file> $B$O(B B-encoding $B$@$1$G$J$/(B Q-encoding $B$b(B -support $B$7!"$^$?!"(BMULE $B$G07$&$3$H$,$G$-$k$5$^$6$^$J(B <dref>MIME -charset</dref> $B$rF1;~$K;H$&$3$H$,$G$-$^$7$?!#$3$N;~!"(BNemacs $B$H(B Mule $B$N(B -$BAPJ}$r(B support $B$9$k$?$a$KMQ$$$i$l$?%F%/%K%C%/$O8e$K(B emu package $B$K$^$H(B -$B$a$i$l$^$9!#(B -<p> -$B$3$N:"!"<i2,(B $BCNI'(B $B$O(B <file>tiny-mime.el</file> $B$r$5$^$6$^$J(B MUA $B$G;H$&(B -$B$?$a$N@_Dj=8$bG[I[$7$F$$$^$7$?$,!"$=$l$i$O8e$K(B -<file>tiny-mime.el</file> $B$H$H$b$K#1$D$N(B package $B$K$^$H$a$i$l!"(Btm $B$H$$(B -$B$&L>A0$GG[I[$5$l$^$9!#(B -<p> -$B<i2,(B $BCNI'(B $B$O$d$,$F!"(BMIME message $B$r1\Mw$9$k$?$a$N%W%m%0%i%`$G$"$k(B -<file>tm-body.el</file> $B$r=q$-$^$9!#$3$l$O!"$9$0$K(B -<file>tm-view.el</file> $B$H$$$&L>A0$KJQ$o$j$^$7$?$,!"$d$,$F!"$3$l$,(B -<file>tiny-mime.el</file> $B$KBe$o$C$F!"(Btm $B$NCf3K$H$J$j$^$9!#(B -<p> -<file>tm-view.el</file> $B$OEvA3!"(BContent-Transfer-Encoding $B$r07$&I,MW$,(B -$B$"$j$^$9!#$3$NL\E*$N$?$a$K!"(BMEL $B$,@0Hw$5$l$O$8$a$^$7$?!#(BBase64 $B$K4X$7(B -$B$F$O(B <file>tiny-mime.el</file> $B$N(B code $B$,0\$5$l!"$^$?!"?7$?$K(B -Quoted-Printable $B$N(B code $B$,DI2C$5$l$^$7$?!#$3$l$i$,(B -<file>mel-b.el</file> $B$H(B <file>mel-q.el</file> $B$K$J$j$^$7$?!#(B -<p> -$B$^$?!"8e$K!"<i2,(B $BCNI'(B $B$K$h$C$F(B uuencode $BMQ$N(B <file>mel-u.el</file> $B$,(B -$BDI2C$5$l!"$=$N8e$K!">.NS(B $B=$J?(B $B;a$K$h$C$F(B x-gzip64 $BMQ$N(B -<file>mel-g.el</file> $B$,DI2C$5$l$^$7$?!#(B -<p> -tm $B$G$O8e$K!"<i2,(B $BCNI'(B $B$K$h$C$F(B <file>tiny-mime.el</file> $B$N:F<BAu$,9T(B -$B$o$l!"$3$N2aDx$G!"(BSTD 11 $B$N(B parser $B$,=q$+$l$^$7$?!#$3$l$O!"8=:_$N(B -<file>std11.el</file> $B$KEv$?$j$^$9!#$^$?!"$3$N2aDx$G(B -<file>tiny-mime.el</file> $B$OI|9f2=$r9T$&(B <file>tm-ew-d.el</file> $B$HId(B -$B9f2=$r9T$&(B <file>tm-ew-e.el</file> $B$KJ,$1$i$l$^$7$?!#$3$NN><T$,8=:_$N(B -<file>eword-decode.el</file> $B$H(B <file>eword-encode.el</file> $B$N@hAD$K(B -$BEv$?$j$^$9!#(B -<p> -$B8e$K!"<i2,(B $BCNI'(B $B$i$K$h$C$F(B tm $B$NA4LL=q$-49$(:n6H$,9T$o$l!"$3$N2aDx$G!"(B -tm $B$O(B APEL, MEL, SEMI, EMH, RMAIL-MIME, Gnus-MIME $B$J$I$KJ,$1$i$l$^$7$?!#(B -$B$3$N$&$A$N(B MEL $B$,(B FLIM $B$ND>@\$N@hAD$KEv$?$j$^$9!#(B -<p> -$B8e$K!"(BAPEL $B$+$i(B <file>std11.el</file> $B$,0\$5$l!"$^$?!"(B -<file>mailcap.el</file>, <file>eword-decode.el</file> $B$*$h$S(B -<file>eword-encode.el</file> $B$,(B SEMI $B$+$i0\$5$l!"(Bpackage $B$NL>A0$,(B FLIM -$B$H$J$j$^$9!#(B -<p> -$B$3$ND>A0$+$iEDCf(B $BE/(B $B;a$,$h$j(B RFC $B$KCi<B$J<BAu$r=q$-;O$a!"$3$l$O!"8=:_!"(B -FLIM $B$N;^$G$"$k(B ``FLIM-FLAM'' $B$H$J$C$F$$$^$9!#(B - - -<h1> $B35G0:w0z(B -<node> Concept Index - -<cindex> - - -<h1> $B4X?t:w0z(B -<node> Function Index - -<findex> - - -<h1> $BJQ?t:w0z(B -<node> Variable Index - -<vindex> - -</body> diff --git a/mime-ja.texi b/mime-ja.texi deleted file mode 100644 index 7474bc2..0000000 --- a/mime-ja.texi +++ /dev/null @@ -1,1480 +0,0 @@ -\input texinfo.tex -@setfilename mime-ja.info -@settitle{FLIM 1.9 MIME $B5!G=@bL@=q(B} -@titlepage -@title FLIM 1.9 MIME $B5!G=@bL@=q(B -@author $B<i2,(B $BCNI'(B <morioka@@jaist.ac.jp> -@subtitle 1998/07/01 -@end titlepage -@node Top, Introduction, (dir), (dir) -@top FLIM 1.9 MIME $B5!G=@bL@=q(B - -@ifinfo - -This file documents MIME features of FLIM, a Internet message -parsing/encoding library for GNU Emacs.@refill - -GNU Emacs $BMQ$N(B Internet Message $B$N2r@O$dId9f2=$K4X$9$k(B library $B$G$"$k(B -FLIM $B$N(B MIME $B5!G=$K4X$7$F@bL@$7$^$9!#(B -@end ifinfo - -@menu -* Introduction:: FLIM $B$C$F2?!)(B -* How to use:: FLIM $B$N(B MIME $B5!G=$N;H$$J}(B -* Entity:: Message $B$H(B Entity -* Content-Type:: Content-Type $BMs$N>pJs(B -* Content-Disposition:: Content-Disposition $BMs$N>pJs(B -* Content-Transfer-Encoding:: $BId9f2=K!(B -* encoded-word:: Header $B$N(B network $BI=8=(B -* custom:: $B0lHL@_Dj(B -* Appendix:: $BIUO?(B -* Concept Index:: $B35G0:w0z(B -* Function Index:: $B4X?t:w0z(B -* Variable Index:: $BJQ?t:w0z(B -@end menu - -@node Introduction, How to use, Top, Top -@chapter FLIM $B$C$F2?!)(B - -FLIM $B$O(B Internet Message $B$NI=8=$dId9f2=$K4X$9$k4pACE*$J5!G=$rDs6!$9$k(B -$B$?$a$N(B library $B$G$9!#(B - - -@node How to use, Entity, Introduction, Top -@chapter FLIM $B$N(B MIME $B5!G=$N;H$$J}(B - -FLIM $B$NDs6!$9$k(B MIME $B5!G=$r;H$&$?$a$K$O(B - -@lisp -(require 'mime) -@end lisp - -@noindent -$B$rI>2A$7$F$/$@$5$$!#(B - - -@node Entity, Content-Type, How to use, Top -@chapter Message $B$H(B Entity -@cindex node-id -@cindex entity-number -@cindex mime-entity -@cindex entity - -RFC 2045 (@ref{RFC 2045}) $B$K$h$l$P!"!V(BEntity $B$H$$$&8l$O!"(Bmessage, $B$b$7$/(B -$B$O!"(Bmultipart entity $B$N(B body $BCf$N#1$D$NItJ,$N!"(BMIME $B$GDj5A$5$l$?(B header -field $B$HFbMF$r;X$9!W$H$J$C$F$$$^$9!#$3$3$G$O!"(BMIME $B$GDj5A$5$l$?(B header -field $B0J30$NA4$F$N(B header $B$H(B body $B$r;X$98l$H$7$F(B @strong{entity}$B$rMQ$$$k(B -$B$3$H$K$7$^$9!#(B@refill - -RFC 2045 $B$NDj5A$O!"(BMIME message $B$,(B entity $B$rC10L$H$9$kLZ9=B$$G$"$k$3$H$r(B -$B<($7$F$$$^$9!#(Bmessage $B$O2<?^$G<($9$h$&$JLZ$H$J$j!"(Bentity $B$O$3$NLZ$K$*$1(B -$B$k@a$H$J$j$^$9!#$D$^$j!"(BMIME $B$O(B message $B$rLZ9=B$$K3HD%$7$?Lu$G$9!#(B -@refill - -FLIM $B$O(B entity $B$N>pJs$rI=8=$9$k$?$a$K(B@strong{mime-entity} $B9=B$BN$rMQ$$$^(B -$B$9!#0J2<$G$OC1$K(B mime-entity $B$H8F$V$3$H$K$7$^$9!#(B@refill - -$BA0=R$N$h$&$K!"(Bmessage $BCf$N3F(B entity $B$OLZ$N@a$KEv$?$j$^$9$,!"$3$NLZ$K$O(B -$B?<$5$HF1$8?<$5$NCf$N=gHV$K=>$C$FHV9f$,IU$1$k$3$H$,$G$-$^$9!#B($A!"(B -@example - - $B(#(!(!(!($(B - $B("(B nil $B("(B - $B(&(!(((!(%(B - $B(#(!(!(!(!(!(!(!(!(!(+(!(!(!(!(!(!(!(!(!($(B - $B(#(*($(B $B(#(*($(B $B(#(*($(B - $B("#0("(B $B("#1("(B $B("#2("(B - $B(&(((%(B $B(&(((%(B $B(&(((%(B - $B("(B $B(#(!(!(!(!(+(!(!(!(!($(B $B("(B - $B(#(!(*(!($(#(!(*(!($(#(!(*(!($(#(!(*(!($(#(!(*(!($(B - $B("(B $B#0(B.$B#0("("(B $B#1(B.$B#0("("(B $B#1(B.$B#1("("(B $B#1(B.$B#2("("(B $B#2(B.$B#0("(B - $B(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(B -@end example - -@noindent -$B$N$h$&$K?<$5(B n $B$N@a$K$OD9$5(B n $B$N@0?tNs$N@aHV9f$,?6$l$^$9!#$3$l(B -$B$r(B @strong{entity-number} $B$H8F$S$^$9!#(Bentity-number $B$O(B S $B<0$H(B -$B$7$F$O(B @code{(1 2 3)} $B$N$h$&$J@0?t$N%j%9%H$H$7$FI=8=$5$l$^$9!#(B - -mime-entity $B$G$O!"$3$l$HF1MM$N(B @strong{node-id} $B$rMQ$$$^$9!#(Bnode-id $B$O$A$g(B -$B$&$I(B entity-number $B$r5U$K$7$?%j%9%H$G!"(Bentity-number 1.2.3 $B$KBP1~$9$k(B -node-id $B$O(B @code{(3 2 1)} $B$G$9!#(B@refill - -$BA0=R$N$h$&$K!"(BMIME message $B$O(B entity $B$rC10L$H$7$?LZ9=B$$K$J$C$F$$$k$N$G!"(B -$B$3$N:,$G$"$k(B message $BA4BN$b(B mime-entity $B$GI=8=$9$k$3$H$,$G$-!"(Bbuffer -local $BJQ?t(B @code{mime-message-structure} $B$K3JG<$9$k$3$H$K$7$^$9!#(B -$B$=$7$F!"(Bentity-number $B$d(B node-id $B$rMQ$$$k$3$H$G(B -@code{mime-message-structure} $B$K$*$1$k(B entity $B$NAjBPE*$J0LCV4X78$r(B -$B07$&$3$H$,$G$-$^$9!#(B - - -@menu -* Entity creation:: Entity $B$N@8@.(B -* Entity hierarchy:: Entity $B3,AX(B -* Entity Attributes:: Entity $B$NB0@-(B -* Entity-header:: Entity header $B$N>pJs(B -* Entity-content:: Entity $B$NFbMF(B -* Entity buffer:: Entity $B$N(B buffer $B$K$h$kI=8=(B -* mm-backend:: Entity $B$NI=8=$H<B8=(B -@end menu - -@node Entity creation, Entity hierarchy, Entity, Entity -@section Entity $B$N@8@.(B - -@defun mime-open-entity &optional type location - -Open an entity and return it.@refill - -@var{type} is representation-type. (cf. @ref{mm-backend}) @refill - -@var{location} is location of entity. Specification of it is depended -on representation-type. -@end defun - - -@defun mime-parse-buffer &optional buffer type - -@var{buffer} $B$r(B message $B$H$7$F9=J82r@O$7!"$=$N7k2L$N(B mime-entity $B$r(B -@var{buffer} $B$N(B@code{mime-message-structure} $B$K3JG<$9$k!#(B@refill - -@var{buffer} $B$,>JN,$5$l$?>l9g!"8=:_$N(B buffer $B$r9=J82r@O$9$k!#(B@refill - -@var{type} $B$,;XDj$5$l$?>l9g!"$=$NCM$r@8@.$5$l$k(B mime-entity $B$NI=>]7?$H$7(B -$B$FMQ$$$k!#>JN,$5$l$?>l9g$O(B @var{buffer} $B$H$J$k!#(B(cf. @ref{mm-backend}) -@end defun - - - -@node Entity hierarchy, Entity Attributes, Entity creation, Entity -@section Entity $B3,AX(B - -@defvar mime-message-structure - -$B8=:_$N(B buffer $B$K$*$1$k(B message $BA4BN$N(B mime-entity $B9=B$BN$r3JG<$9$k(Bbuffer -local $BJQ?t!#(B -@end defvar - - -@defun mime-entity-children entity - -@var{entity} $B$K4^$^$l$k(B entity $B$N(B list $B$rJV$9!#(B -@end defun - - -@defun mime-entity-parent entity &optional message - -@var{entity} $B$N?F$N(B entity $B$rJV$9!#(B@refill - -@var{message} $B$,;XDj$5$l$?>l9g!"$3$l$r:,$H8+Jo$9!#(B -@end defun - - -@defun mime-root-entity-p entity - -@var{entity} $B$,:,!JB($A!"(Bmessage $BA4BN!K$G$"$k>l9g$K!"Hs(B-@code{nil} $B$rJV(B -$B$9!#(B -@end defun - - -@defun mime-entity-node-id entity - -@var{entity} $B$N(B node-id $B$rJV$9!#(B -@end defun - - -@defun mime-entity-number entity - -@var{entity} $B$N(B entity-number $B$rJV$9!#(B -@end defun - - -@defun mime-find-entity-from-number entity-number &optional message - -Return entity from @var{entity-number} in @var{message}.@refill - -If @var{message} is not specified, @code{mime-message-structure} is -used. -@end defun - - -@defun mime-find-entity-from-node-id entity-node-id &optional message - -Return entity from @var{entity-node-id} in @var{message}.@refill - -If @var{message} is not specified, @code{mime-message-structure} is -used. -@end defun - - - -@node Entity Attributes, Entity-header, Entity hierarchy, Entity -@section Entity $B$NB0@-(B - -@defun mime-entity-content-type entity - -@var{entity} $B$N(B content-type $B$rJV$9!#(B(cf. @ref{mime-content-type}) -@end defun - - -@defun mime-entity-content-disposition entity - -@var{entity} $B$N(B content-disposition $B$rJV$9!#(B -(cf. @ref{mime-content-disposition}) -@end defun - - -@defun mime-entity-filename entity - -@var{entity} $B$N(B file $BL>$rJV$9!#(B -@end defun - - -@defun mime-entity-encoding entity &optional default-encoding - -@var{entity} $B$N(B content-transfer-encoding $B$rJV$9!#(B -(cf. @ref{Content-Transfer-Encoding}) @refill - -$B$b$7!"(B@var{entity} $B$K(B Content-Transfer-Encoding $BMs$,B8:_$7$J$$>l9g$O!"(B -@var{default-encoding} $B$rJV$9!#$3$l$,;XDj$5$l$J$$>l9g$O!"(B@code{"7bit"} -$B$rMQ$$$k!#(B -@end defun - - -@defun mime-entity-cooked-p entity - -Return non-nil if contents of @var{entity} has been already -code-converted. -@end defun - - - -@node Entity-header, Entity-content, Entity Attributes, Entity -@section Entity header $B$N>pJs(B - -@defun mime-fetch-field field-name &optional entity - -@var{entity} $B$N(B header $BCf$N(B @var{field-name} $BMs$N(B body $B$rJV$9!#(B@refill - -$B7k2L$NJ8;zNs$O(B network $BI=8=$N$^$^$G$"$k!#(B@refill - -@var{entity} $B$,>JN,$5$l$?>l9g$O!"(B@code{mime-message-structure} $B$NCM$rMQ(B -$B$$$k!#(B@refill - -@var{field-name} $BMs$,B8:_$7$J$$>l9g$O(B @code{nil} $B$rJV$9!#(B -@end defun - - -@defun mime-read-field field-name &optional entity - -@var{entity} $B$N(B header $BCf$N(B @var{field-name} $BMs$r9=J82r@O$7$?7k2L$rJV$9!#(B -@refill - -$B7k2L$N7A<0$OMsKh$K0[$J$k!#Hs9=B$2=Ms$N>l9g$OJ8;zNs$rJV$7!"9=B$2=Ms$N>l9g(B -$B$O$=$N7A<0$K=>$C$?(B list $B$rJV$9!#(B@refill - -$B7k2LCf$NJ8;zNs$O(B Emacs $B$NFbItI=8=$KJQ49$5$l$k!#(B@refill - -@var{entity} $B$,>JN,$5$l$?>l9g$O!"(B@code{mime-message-structure} $B$NCM$rMQ(B -$B$$$k!#(B@refill - -@var{field-name} $BMs$,B8:_$7$J$$>l9g$O(B nil $B$rJV$9!#(B -@end defun - - -@defun mime-insert-decoded-header entity &optional invisible-fields visible-fields - -$B8=:_0LCV$K(B @var{entity} $B$NI|9f$7$?(B header $B$rA^F~$9$k!#(B@refill - -@var{invisible-fields} $B$H(B @var{visible-fields} $B$O@55,I=8=$N(Blist $B$G!"$=$l(B -$B$>$l!"I=<($7$?$/$J$$(B field $BL>$HI=<($7$?$$MsL>$rI=8=$7$?$b$N$G$"$k!#(B -@refill - -@var{invisible-fields} $B$NMWAG$N$I$l$+$K(B match $B$7!"$+$D!"(B -@var{visible-fields} $B$NMWAG$N$I$l$K$b(B match $B$7$J$$Ms$OI=<($5$l$J$$!#(B -@end defun - - - -@node Entity-content, Entity buffer, Entity-header, Entity -@section Entity $B$NFbMF(B - -@defun mime-entity-content entity - -@var{entity} $B$NFbMF$N(B byte $BNs$rJV$9!#(B -@end defun - - -@defun mime-write-entity-content entity filename - -Write content of @var{entity} into @var{filename}. -@end defun - - -@defun mime-write-entity entity filename - -Write representation of @var{entity} into @var{filename}. -@end defun - - -@defun mime-write-entity-body entity filename - -Write body of @var{entity} into @var{filename}. -@end defun - - - -@node Entity buffer, mm-backend, Entity-content, Entity -@section Entity $B$N(B buffer $B$K$h$kI=8=(B - -@defun mime-entity-buffer entity - -@var{entity} $B$,B8:_$9$k(B buffer $B$rJV$9!#(B -@end defun - - -@defun mime-entity-point-min entity - -@var{entity} $B$,B8:_$9$k(B buffer $B$K$*$1$k!"(B@var{entity} $B$,@j$a$kNN0h$N@hF,(B -$B0LCV$rJV$9!#(B -@end defun - - -@defun mime-entity-point-max entity - -@var{entity} $B$,B8:_$9$k(B buffer $B$K$*$1$k!"(B@var{entity} $B$,@j$a$kNN0h$NKvHx(B -$B0LCV$rJV$9!#(B -@end defun - - -@defun mime-entity-header-start entity - -@var{entity} $B$,B8:_$9$k(B buffer $B$K$*$1$k!"(Bheader $B$,@j$a$kNN0h$N@hF,0LCV$r(B -$BJV$9!#(B -@end defun - - -@defun mime-entity-header-end entity - -@var{entity} $B$,B8:_$9$k(B buffer $B$K$*$1$k!"(Bheader $B$,@j$a$kNN0h$NKvHx0LCV$r(B -$BJV$9!#(B -@end defun - - -@defun mime-entity-body-start entity - -@var{entity} $B$,B8:_$9$k(B buffer $B$K$*$1$k!"(Bbody $B$,@j$a$kNN0h$N@hF,0LCV$rJV(B -$B$9!#(B -@end defun - - -@defun mime-entity-body-end entity - -@var{entity} $B$,B8:_$9$k(B buffer $B$K$*$1$k!"(Bbody $B$,@j$a$kNN0h$NKvHx0LCV$rJV(B -$B$9!#(B -@end defun - - - -@node mm-backend, , Entity buffer, Entity -@section Entity $B$NI=8=$H<B8=(B -@cindex mm-backend -@cindex entity $B=hM}(B method -@cindex representation-type - -Entity $B$OCj>]2=$5$l$?%G!<%?I=8=$G!"<B:]$N%G!<%?I=8=$H$7$F$OMQES$K1~$8$F(B -$B$5$^$6$^$J$b$N$,MxMQ$G$-$k$h$&$K@_7W$5$l$F$$$^$9!#(B@refill - -$B$3$3$G!"(Bentity $B$,$I$&$$$&<oN`$NI=8=$r9T$C$F$$$k$+$r<($9$N$,(B -@strong{representation-type} $B$G!"(Bentity $B$r@8@.$9$k;~$K$O$3$l$r;XDj$7$^$9!#(B -(cf. @ref{Entity Creation}) @refill - -$BA0@a$^$G$K=R$Y$FMh$?(B entity $B$KBP$9$k=hM}$O!"(Bentity $B$KBP$7$F$=$N=hM}$r0M(B -$BMj$9$k$3$H$K$h$C$F<B8=$5$l$F$$$^$9!#(BEntity $B$O<+J,$N(B representation-type -$B$rCN$C$F$*$j!"$=$N(B representation-type $B$K1~$8$F<B:]$N=hM}$r9T$&4X?t$r8F(B -$B$S=P$7$^$9!#$3$N$h$&$J4X?t$r(B @strong{entity $B=hM}(Bmethod} $B$H8F$S$^$9!#$^$?!"(B -representation-type $BKh$K$3$N$h$&$J4X?t$r$^$H$a$?$b$N$r(B -@strong{mm-backend} $B$H8F$S$^$9!#(B@refill - -mm-backend $B$O(B representation-type $B$NL>A0$N@hF,$K(B @code{mm} $B$H$$$&(B -$B@\F,<-$rIU$1$?4X?tL>$+$i$J$k(B module $B$G!"$=$N(B module $BL>$OF1MM$K(B -representation-type $B$NL>A0$N@hF,$K(B @code{mm} $B$rIU$1$?$b$N$K$J$C$F(B -$B$$$^$9!#$3$N(B module $B$O(B representation-type $B$N(B entity $B$,:G=i$K@8@.$5$l$k(B -$B;~$K<+F0E*$K(B require $B$5$l$^$9!#(B - - -@menu -* Request for entity:: Entity $B$X$NJX$j(B -* mm-backend module:: mm-backend $B$N:n$jJ}(B -@end menu - -@node Request for entity, mm-backend module, mm-backend, mm-backend -@subsection Entity $B$X$NJX$j(B - -@defun mime-entity-send entity message &rest args - -@var{entity} $B$K(B @var{message} $B$rAw$k!#(B@refill - -@var{args} $B$O(B @var{message} $B$N0z?t$G$"$k!#(B -@end defun - - - -@node mm-backend module, , Request for entity, mm-backend -@subsection mm-backend $B$N:n$jJ}(B - -$B!J$9$_$^$;$s!#$=$N$&$A=q$-$^$9(B (^_^;$B!K(B@refill - -$B!J$H$j$"$($:!"(Bmm*.el $B$r;29M$K$7$F$/$@$5$$!K(B - - -@node Content-Type, Content-Disposition, Entity, Top -@chapter Content-Type $BMs$N>pJs(B -@cindex mime-content-type -@cindex Content-Type $BMs(B - -@strong{Content-Type $BMs(B} $B$O(B media-type (@ref{media-type}) $B$d(B MIME -charset $B$H$$$C$?(B entity (@ref{entity}) $B$NFbMF$N<oN`$dI=8=7A<0$J$I$r5-=R(B -$B$9$k$?$a$N$b$N$G!"(BRFC 2045 (@ref{RFC 2045}) $B$GDj5A$5$l$F$$$^$9!#(B - -@noindent -@strong{[Memo]} -@quotation - -$BNr;KE*$K$O(B RFC 1049 $B$G(B Content-Type $BMs$,Ds0F$5$l$F$$$k!#C"$7!"(BMIME $B$N(B -media-type $B$N$h$&$J(B type $B$H(B subtype $B$N6hJL$O$J$/!"(BMIME charset $B$N$h$&$J(B -$BJ8;zId9f$N<oN`$rI=8=$9$k$3$H$b$G$-$J$$!#(B -@end quotation - - -FLIM $B$O(B Content-Type $BMs$r9=J82r@O$9$k4X?t$H(B Content-Type $BMs$N2r@O7k2L$r(B -$B3JG<$9$k9=B$BN(B @strong{mime-content-type} $B$rDs6!$7$^$9!#(B - - -@menu -* Content-Type field:: Content-Type $BMs$N7A<0(B -* mime-content-type:: mime-content-type $B9=B$BN(B -* Content-Type parser:: Content-Type $BMs$N2r@O4o(B -* Content-Type utility:: Content-Type $B$K4X$9$kM-MQ$J4X?t(B -@end menu - -@node Content-Type field, mime-content-type, Content-Type, Content-Type -@section Content-Type $BMs$N7A<0(B -@cindex parameter -@cindex subtype -@cindex type - -Content-Type $BMs$N7A<0$O0J2<$N$h$&$KDj5A$5$l$F$$$^$9!'(B - -@quotation -``Content-Type'' ``:'' @strong{type} ``/'' -@strong{subtype} *( ``;'' @strong{parameter} ) -@end quotation - -$BNc$($P!"(B - -@quotation -@example -Content-Type: image/jpeg -@end example -@end quotation - -@noindent -$B$d(B - -@quotation -@example -Content-Type: text/plain; charset=iso-2022-jp -@end example -@end quotation - -@noindent -$B$J$I$N$h$&$KMQ$$$i$l$^$9!#(B - -$B$3$3$G!"(B`type' $B$H(B `subtype' $B$O(B entity $B$N7A<0$r<($9$b$N$G!"N><T$rAm>N$7(B -$B$F!"(B`media-type' $B$H8F$V$3$H$K$7$^$9!#>e5-$NNc$K$*$1$k(B `image/jpeg' $B$d(B -`text/plain' $B$O(B media-type $B$N#1$D$G$9!#(B - -@noindent -@strong{[Memo]} -@quotation - -Content-Type $BMs$N$J$$(B entity $B$O(B - -@quotation -@example -Content-Type: text/plain; charset=us-ascii -@end example -@end quotation - -@noindent -$B$H$7$F2r<a$5$l$k!#(B(cf. @ref{us-ascii}) -@end quotation - - - -@node mime-content-type, Content-Type parser, Content-Type field, Content-Type -@section mime-content-type $B9=B$BN(B - -@deffn{Structure} mime-content-type - -Content-Type $BMs$N>pJs$r3JG<$9$k$?$a$N9=B$BN!#(B@refill - -$B$3$N9=B$BN$r;2>H$9$k$K$O(B @code{mime-content-type-$BMWAGL>(B} $B$H$$$&L>A0$N;2(B -$B>H4X?t$rMQ$$$k!#(B@refill - -$B$3$N9=B$BN$NMWAG$O0J2<$NDL$j$G$"$k!'(B - -@table @var -@item primary-type -media-type $B$N<g7?(B (symbol). - -@item subtype -media-type $B$NI{7?(B (symbol). - -@item parameters -Content-Type $BMs$N(B parameter ($BO"A[(B list). - -@end table -@end deffn - - -@defun make-mime-content-type type subtype - &optional parameters - -content-type $B$N@8@.;R!#(B -@end defun - - -@defun mime-content-type-parameter content-type parameter - -@var{content-type} $B$N(B @var{parameter} $B$NCM$rJV$9!#(B -@end defun - - - -@node Content-Type parser, Content-Type utility, mime-content-type, Content-Type -@section Content-Type $BMs$N2r@O4o(B - -@defun mime-parse-Content-Type string - -@var{string} $B$r(B content-type $B$H$7$F2r@O$7$?7k2L$rJV$9!#(B -@end defun - - -@defun mime-read-Content-Type - -$B8=:_$N(B buffer $B$N(B Content-Type $BMs$rFI$_<h$j!"2r@O$7$?7k2L$rJV$9!#(B@refill - -Content-Type $BMs$,B8:_$7$J$$>l9g$O(B nil $B$rJV$9!#(B -@end defun - - - -@node Content-Type utility, , Content-Type parser, Content-Type -@section Content-Type $B$K4X$9$kM-MQ$J4X?t(B - -@defun mime-type/subtype-string type &optional subtype - -@var{type} $B$H(B @var{subtype} $B$+$i(B type/subtype $B7A<0$NJ8;zNs$rJV$9!#(B -@end defun - - - -@node Content-Disposition, Content-Transfer-Encoding, Content-Type, Top -@chapter Content-Disposition $BMs$N>pJs(B -@cindex mime-content-disposition -@cindex RFC 2183 -@cindex Standards Track -@cindex Content-Disposition $BMs(B - -@strong{Content-Disposition $BMs(B} $B$O(B entity $B$NI=<($d(B file $BL>$J$I(B -$B$NB0@-$K$J$I$K4X$9$k>pJs$r5-=R$9$k$?$a$N$b$N$G$9!#(B - - -@noindent -[RFC 2183] -@quotation -S. Dorner, K. Moore and R. Troost, ``Communicating Presentation -Information in Internet Messages: The Content-Disposition Header'', -August 1997, Standards Track. -@end quotation - -FLIM $B$O(B Content-Disposition $BMs$r9=J82r@O$9$k4X?t$H(B Content-Disposition -$BMs$N2r@O7k2L$r3JG<$9$k9=B$BN(B -@strong{mime-content-disposition} $B$rDs6!$7$^$9!#(B - - -@menu -* mime-content-disposition:: mime-content-disposition $B9=B$BN(B -* Content-Disposition parser:: Content-Disposition $BMs$N2r@O4o(B -@end menu - -@node mime-content-disposition, Content-Disposition parser, Content-Disposition, Content-Disposition -@section mime-content-disposition $B9=B$BN(B - -@deffn{Structure} mime-content-disposition - -Content-Disposition $BMs$N2r@O7k2L$r<}$a$k$?$a$N9=B$BN!#(B@refill - -$B$3$N9=B$BN$r;2>H$9$k$K$O(B @code{mime-content-disposition-$BMWAGL>(B} $B$H$$$&L>(B -$BA0$N;2>H4X?t$rMQ$$$k!#(B@refill - -$B$3$N9=B$BN$NMWAG$O0J2<$NDL$j$G$"$k!'(B - -@table @var -@item disposition-type -disposition-type (symbol). - -@item parameters -Content-Disposition $BMs$N(B parameter ($BO"A[(B list). - -@end table -@end deffn - - -@defun mime-content-disposition-parameter content-disposition parameter - -@var{content-disposition} $B$N(B @var{parameter} $B$NCM$rJV$9!#(B -@end defun - - -@defun mime-content-disposition-filename content-disposition - -@var{content-disposition} $B$N(B filename $B$NCM$rJV$9!#(B -@end defun - - - -@node Content-Disposition parser, , mime-content-disposition, Content-Disposition -@section Content-Disposition $BMs$N2r@O4o(B - -@defun mime-parse-Content-Disposition string - -@var{string} $B$r(B content-disposition $B$H$7$F2r@O$7$?7k2L$rJV$9!#(B -@end defun - - -@defun mime-read-Content-Disposition - -$B8=:_$N(B buffer $B$N(B Content-Disposition $BMs$rFI$_<h$j!"2r@O$7$?7k2L$rJV$9!#(B -@refill - -Content-Disposition $BMs$,B8:_$7$J$$>l9g$O(B nil $B$rJV$9!#(B -@end defun - - - -@node Content-Transfer-Encoding, encoded-word, Content-Disposition, Top -@chapter $BId9f2=K!(B -@cindex Content-Transfer-Encoding $BMs(B - -@strong{Content-Transfer-Encoding $BMs(B} $B$O(B entity $B$NId9f2=K!$r5-=R$9$k$?$a(B -$B$N$b$N$G$9!#(B@refill - -FLIM $B$G$O(B Content-Transfer-Encoding $BMs$r9=J82r@O$9$k4X?t$rDs6!$7$^$9!#$3(B -$B$l$i$N4X?t$O(B Content-Transfer-Encoding $BMs$N>pJs$OJ8;zNs$GI=8=$7$^$9!#(B -@refill - -$B$^$?!"(BContent-Transfer-Encoding $B$K4p$E$$$FId9f2=!&I|9f2=$r9T$&4X?t$bDs(B -$B6!$5$l$^$9!#(B - - -@menu -* Content-Transfer-Encoding parser:: Content-Transfer-Encoding $BMs$N2r@O4o(B -* Region encoder/decoder:: $BNN0h$NId9f2=!&I|9f2=(B -* String encoder/decoder:: $BJ8;zNs$NId9f2=!&I|9f2=(B -* File encoder/decoder:: File $B$NId9f2=!&I|9f2=(B -@end menu - -@node Content-Transfer-Encoding parser, Region encoder/decoder, Content-Transfer-Encoding, Content-Transfer-Encoding -@section Content-Transfer-Encoding $BMs$N2r@O4o(B - -@defun mime-parse-Content-Transfer-Encoding string - -@var{string} $B$r(B content-transfer-encoding $B$H$7$F2r@O$7$?7k2L$rJV$9!#(B -@end defun - - -@defun mime-read-Content-Transfer-Encoding &optional default-encoding - -$B8=:_$N(B buffer $B$N(B Content-Transfer-Encoding $BMs$rFI$_<h$j!"2r@O$7$?7k2L$r(B -$BJV$9!#(B@refill - -Content-Transfer-Encoding $BMs$,B8:_$7$J$$>l9g$O(B@var{default-encoding} $B$r(B -$BJV$9!#(B -@end defun - - - -@node Region encoder/decoder, String encoder/decoder, Content-Transfer-Encoding parser, Content-Transfer-Encoding -@section $BNN0h$NId9f2=!&I|9f2=(B - -@defun mime-encode-region start end encoding - -Encode region @var{start} to @var{end} of current buffer using -@var{encoding}. -@end defun - - -@defun mime-decode-region start end encoding - -Decode region @var{start} to @var{end} of current buffer using -@var{encoding}. -@end defun - - -@defvar mime-encoding-method-alist - -Alist of encoding vs. corresponding method to encode region.@refill - -Each element looks like @code{(STRING . FUNCTION)} or @code{(STRING -. nil)}. @var{string} is content-transfer-encoding. @code{function} is -region encoder and @code{nil} means not to encode. -@end defvar - - -@defvar mime-decoding-method-alist - -Alist of encoding vs. corresponding method to decode region.@refill - -Each element looks like @code{(STRING . FUNCTION)} or @code{(STRING -. nil)}. @var{string} is content-transfer-encoding. @code{function} is -region decoder and @code{nil} means not to decode. -@end defvar - - - -@node String encoder/decoder, File encoder/decoder, Region encoder/decoder, Content-Transfer-Encoding -@section $BJ8;zNs$NId9f2=!&I|9f2=(B - -@defun mime-decode-string string encoding - -@var{string} $B$r(B @var{encoding} $B$H$7$FI|9f$7$?7k2L$rJV$7$^$9!#(B -@end defun - - -@defvar mime-string-decoding-method-alist - -Alist of encoding vs. corresponding method to decode string.@refill - -Each element looks like @code{(STRING . FUNCTION)}. STRING is -content-transfer-encoding. FUNCTION is string decoder. -@end defvar - - - -@node File encoder/decoder, , String encoder/decoder, Content-Transfer-Encoding -@section File $B$NId9f2=!&I|9f2=(B - -@defun mime-insert-encoded-file filename encoding - -Insert file @var{FILENAME} encoded by @var{ENCODING} format. -@end defun - - -@defun mime-write-decoded-region start end filename encoding - -Decode and write current region encoded by @var{encoding} into -@var{filename}.@refill - -@var{start} and @var{end} are buffer positions. -@end defun - - -@defvar mime-file-encoding-method-alist - -Alist of encoding vs. corresponding method to insert encoded -file.@refill - -Each element looks like @code{(STRING . FUNCTION)}. STRING is -content-transfer-encoding. FUNCTION is function to insert encoded file. -@end defvar - - -@defvar mime-file-decoding-method-alist - -Alist of encoding vs. corresponding method to write decoded region to -file.@refill - -Each element looks like @code{(STRING . FUNCTION)}. STRING is -content-transfer-encoding. FUNCTION is function to write decoded region -to file. -@end defvar - - - -@node encoded-word, custom, Content-Transfer-Encoding, Top -@chapter Header $B$N(B network $BI=8=(B -@cindex RFC 2047 -@cindex Standards Track -@cindex RFC 2047 - -encoded-word $B$O(B header $B$GHs(B ASCII (@ref{ASCII}) $BJ8;z$rI=8=$9$k$?$a$N7A<0(B -$B$G!"(B@strong{RFC 2047} $B$GDj5A$5$l$F$$$^$9!#(B@refill - - -@noindent -[RFC 2047] -@quotation -K. Moore, ``MIME (Multipurpose Internet Mail Extensions) Part Three: -Message Header Extensions for Non-ASCII Text'', November 1996, Standards -Track (obsolete RFC 1521,1522,1590). -@end quotation - -$B$^$?!"9T57$N0-$$$3$H$@$H8@$($^$9$,!"(Bencoded-word $B$rMQ$$$:$KHs(B ASCII -(@ref{ASCII}) $BJ8;z$r(B header $B$KF~$l$?5-;v$bB8:_$7$^$9!#(B@refill - -FLIM $B$O$3$l$i$rId9f2=!&I|9f2=$9$k5!G=$rDs6!$7$^$9!#(B - - -@menu -* Header encoder/decoder:: Header $B$NId9f2=!&I|9f2=(B -@end menu - -@node Header encoder/decoder, , encoded-word, encoded-word -@section Header $B$NId9f2=!&I|9f2=(B - -@defun eword-encode-header &optional code-conversion separator - -Decode MIME encoded-words in header fields.@refill - -If @var{code-conversion} is @code{nil}, it decodes only encoded-words. -If it is mime-charset, it decodes non-ASCII bit patterns as the -mime-charset. Otherwise it decodes non-ASCII bit patterns as the -default-mime-charset.@refill - -If @var{separator} is not nil, it is used as header separator. -@end defun - - -@defun eword-encode-header &optional code-conversion - -Encode header fields to network representation, such as MIME -encoded-word.@refill - -It refer variable @code{eword-field-encoding-method-alist}. -@end defun - - - -@node custom, Appendix, encoded-word, Top -@chapter $B0lHL@_Dj(B - -@deffn{group} mime - -MIME $B4XO"5!G=$K4X$9$k(B group.@refill - -@code{mail} $B$H(B @code{news} $B$KB0$9$k!#(B -@end deffn - - -@defvar default-mime-charset - -$BE,@Z$J(B MIME charset (@ref{MIME charset}) $B$,8+$D$+$i$J$+$C$?>l9g$KMQ$$$i(B -$B$l$k(BMIME charset.@refill - -$BK\Mh$O(B APEL $B$NJQ?t$G$"$k!#(B -@end defvar - - -@defvar mime-temp-directory - -MIME $B5!G=$K4X$9$k<BAu$,0l;~E*$K;HMQ$9$k(B file $B$r:n@.$9$k(B -directory.@refill - -$B4D6-JQ?t(B @code{MIME_TMP_DIR}, @code{TM_TMP_DIR}, @code{TMPDIR}, -@code{TMP} $B$b$7$/$O(B @code{TEMP} $B$,@_Dj$5$l$F$$$?>l9g!"$=$l$r=i4|CM$H$7$F(B -$BMQ$$$k!#2?$b@_Dj$5$l$F$$$J$$>l9g!"(B@code{"/tmp/"} $B$rMQ$$$k!#(B -@end defvar - - - -@node Appendix, Concept Index, custom, Top -@chapter $BIUO?(B - - -@menu -* Glossary:: $BMQ8l(B -* Bug report:: bug $BJs9p$N;EJ}(B -* CVS:: CVS $B$K$h$k3+H/(B -* History:: $BNr;K(B -@end menu - -@node Glossary, Bug report, Appendix, Appendix -@section $BMQ8l(B - - -@menu -* 7bit:: -* 8bit:: -* ASCII:: -* Base64:: -* binary:: -* Coded character set:: Coded character set$B!JId9f2=J8;z=89g!K(B, Character code$B!JJ8;zId9f!K(B -* media-type:: -* message:: -* MIME:: -* MIME charset:: -* MTA:: -* MUA:: -* Quoted-Printable:: -* RFC 822:: -* RFC 1036:: -* RFC 2045:: -* RFC 2046:: -* RFC 2048:: -* RFC 2049:: -* plain text:: -* us-ascii:: -@end menu - -@node 7bit, 8bit, Glossary, Glossary -@subsection 7bit - -$B$3$3$G$O(B 0 $B$+$i(B 127 $B$N@0?t$r;X$9!#(B@refill - -0 $B$+$i(B 127 $B$N@0?t$NNs$GI=8=$G$-$k$h$&$J(B data $B$r(B ``7bit $B$N(B data'' $B$H8F$V!#(B -@refill - -$B$^$?!"(B0 $B$+$i(B 31 $B$*$h$S(B 127 $B$GI=8=$5$l$k@)8fJ8;z$H(B 32 $B$GI=8=$5$l$k6uGr$H(B -33 $B$+$i(B 126 $B$GI=8=$5$l$k?^7AJ8;z$+$i$J$kJ8;zNs$N$3$H$r(B ``7bit $B$NJ8;zNs(B'' -$B$H8F$V!J$3$l$O(B ISO 2022 (@ref{ISO 2022}) $B$N!V(B7 $BC10L7O!W$HF1MM!K!#(B - -$BEAE}E*$J(B Internet $B$N(B MTA (@ref{MTA}) $B$O(B 7bit $B$N(B data $B$rE>Aw$G$-$k$N$G!"(B -7bit $B$N(B data $B$O(B Quoted-Printable (@ref{Quoted-Printable}) $B$d(B Base64 -(@ref{Base64}) $B$H$$$C$?JQ49$r9T$o$J$/$F$b$=$N$^$^E>Aw$G$-$k!#(B@refill - -$B$7$+$7!"(B7bit $B$G$"$l$P$I$s$J(B data $B$G$bNI$$$H$O$$$($J$$!#$J$<$J$i!"#19T$N(B -$BD9$5$,$"$^$j$KD9$$$H!"(BMTA $B$O$=$N(B message $B$rE>Aw$9$k$3$H$,$G$-$J$$$+$i$G(B -$B$"$k!#$A$J$_$K!"(BRFC 821 (@ref{RFC 821}) $B$O#19T$O2~9TJ8;z$r=|$$$F(B 998 -byte $B0JFb$G$"$k$3$H$r5a$a$F$$$k!#$h$C$F!"$3$l0J>e$N9T$,4^$^$l$k2DG=@-$N(B -$B$"$k(B data, $BNc$($P!"(BPostscript $B$N(B data $B$J$I$O(B Quoted-Printable $BEy$G(B -encode$B$9$kI,MQ$,$"$k!#(B - - -@node 8bit, ASCII, 7bit, Glossary -@subsection 8bit -@cindex binary - -$B$3$3$G$O(B 0 $B$+$i(B 255 $B$N@0?t$r;X$9!#(B@refill - -0 $B$+$i(B 255 $B$N@0?t$NNs$GI=8=$G$-$k$h$&$J(B data $B$r(B ``8bit $B$N(B data'' $B$H8F$V!#(B -@refill - -$B$^$?!"(B0 $B$+$i(B 31, 127 $B$*$h$S(B 128 $B$+$i(B 159 $B$GI=8=$5$l$k@)8fJ8;z$H(B 32 $B$GI=(B -$B8=$5$l$k6uGr$H(B 33 $B$+$i(B 126 $B$H(B 160 $B$+$i(B 255 $B$GI=8=$5$l$k?^7AJ8;z$+$i$J$k(B -$BJ8;zNs$N$3$H$r(B ``8bit $B$NJ8;zNs(B'' $B$H8F$V!J$3$l$O(B ISO 2022 (@ref{ISO 2022}) $B$N!V(B8 $BC10L7O!W$HF1MM!K!#(B@refill - -iso-8859-1 (@ref{iso-8859-1}) $B$d(B euc-kr (@ref{euc-kr}) $B$H$$$C$?Id9f2=J8(B -$B;z=89g$O(B 8bit $B$NJ8;zNs$G$"$k!#(B@refill - -$BEAE}E*$J(B Internet $B$N(B MTA (@ref{MTA}) $B$O(B 7bit (@ref{7bit}) $B$N(B data $B$7$+E>(B -$BAw$G$-$J$$$N$G!"$=$&$7$?(B MTA $B$r7PM3$9$k>l9g!"(BQuoted-Printable -(@ref{Quoted-Printable}) $B$d(B Base64 (@ref{Base64}) $B$H$$$C$?JQ49$r9T$o$J$/(B -$B$F$O$J$i$J$$!#(B@refill - -$B$7$+$7!":G6a$G$O(B 8bit $B$NJ8;zNs$r$=$N$^$^DL$9$3$H$,$G$-$k(B MTA $B$bEP>l$7$F(B -$B$-$?$N$G!"$=$N$^$^Aw$k$3$H$,$G$-$k>l9g$bA}$($F$-$?!#(B@refill - -$B$7$+$7!"(B8bit $B$G$"$l$P$I$s$J(B data $B$G$bNI$$$H$O$$$($J$$!#$J$<$J$i!"#19T$N(B -$BD9$5$,$"$^$j$KD9$$$H!"(BMTA $B$O$=$N(B message $B$rE>Aw$9$k$3$H$,$G$-$J$$$+$i$G(B -$B$"$k!#$A$J$_$K!"(BRFC 821 (@ref{RFC 821}) $B$O#19T$O2~9TJ8;z$r=|$$$F(B 998 -byte $B0JFb$G$"$k$3$H$r5a$a$F$$$k!#$h$C$F!"$3$l0J>e$N9T$,4^$^$l$k2DG=@-$N(B -$B$"$k(B data, $BNc$($P!"(BPostscript $B$N(B data $B$J$I$O(B Quoted-Printable $BEy$G(B -encode$B$9$kI,MQ$,$"$k!#(B@refill - -$B$^$?!"$3$&$7$?M}M3$+$i!"#19T$,(B 999 byte $B0J>e$N9T$,B8:_$9$k2DG=@-$N$"$k(B -data $B$O(B @strong{binary} (@ref{binary}) $B$H8F$V$3$H$K$9$k!#(B@refill - -$B$A$J$_$K!"(B7bit $B$GI=8=$G$-$k(B data $B$O(B 8bit $B$G$bI=8=$G$-$k!#$h$C$F!"(B -``8bit'' $B$H8@$C$?>l9g!"#19T$,(B 998 byte $B0J2<$NG$0U$N(B data $B$r;X$9$3$H$,(B -$B$"$k!#(B - - -@node ASCII, Base64, 8bit, Glossary -@subsection ASCII -@cindex ANSI X3.4:1986 -@cindex ASCII - -$B%"%a%j%+O"K.$G;H$o$l$kJ8;z$rId9f2=$7$?Id9f2=J8;z=89g(B (@ref{$BId9f2=J8;z=8(B $B9g(B})$B!#(BA-Z, a-z $B$N(B Latin $BJ8;z$H?t;z!"4v$D$+$N5-9f$+$i$J$k!#(BISO 646 $B$N0l$D(B -$B$G!"8=:_$O9q:]4p=`HG(B (IRV) $B$K$J$C$F$$$k!#(B - - -@noindent -[ASCII] -@quotation -``Coded Character Set -- 7-Bit American Standard Code for Information -Interchange'', ANSI X3.4:1986. -@end quotation - - - -@node Base64, binary, ASCII, Glossary -@subsection Base64 -@cindex pad - -RFC 2045 (@ref{RFC 2045}) $B$GDj5A$5$l$F$$$k(B MIME (@ref{MIME}) $B$K$*$1$k(B -binary data (@ref{binary}) $B$N(B network $B$G$NJQ49K!$N#1$D!#(B@refill - -$B!X(B64 $B?J?t!Y$H$$$&0UL#$G!"(B3 byte $B$N(B data $B$r(B 0 $B$+$i(B 63 $B$N?t$rI=$9(B ASCII -(@ref{ASCII}) 4 $BJ8;z$KJQ49$9$kJ}K!!#!J$b$7!"(B4 $BJ8;z$K$J$i$J$1$l$P(B -@strong{pad} $B$H8F$P$l$k5M$aJ*$r$7$FD9$5$rD4@0$9$k!K(B@refill - -$B$3$N(B 65 $B<oN`$NJ8;z$O(B ASCII $B$H(B EBCDIC $B$N6&DLItJ,$+$iA*$P$l$F$*$j!"(B -Internet $B0J30$N(B network $B$r7PM3$9$k>l9g$G$b0BA4$KE>Aw$G$-$k$h$&$K@_7W$5(B -$B$l$F$$$k!#(B - - -@node binary, Coded character set, Base64, Glossary -@subsection binary -@cindex binary data -@cindex binary - -$BG$0U$N(B byte $BNs$r(B @strong{binary} $B$H8F$V!#(B@refill - -8bit (@ref{8bit}) $B$H0[$J$k$N$O(B data $B$K9T$N9=B$$r2>Dj$7$J$$$3$H$G$"$k!#(B - -$B$^$?!"9T$N9=B$$,$"$C$F$b!"(B999 byte $B0J>e$+$i$J$k9T$,$"$k>l9g$b(B binary $B$H(B -$B8F$V$3$H$K$9$k!#(B@refill - -$B$A$J$_$K!"(B7bit (@ref{7bit}) $B$d(B 8bit $B$GI=8=$G$-$k(B data $B$O(B binary $B$G$bI=8=(B -$B$G$-$k!#$h$C$F!"(B@strong{binary data} $B$H8@$C$?>l9g!"G$0U$N(B data $B$r;X$9$3(B -$B$H$,$"$k!#(B - - -@node Coded character set, media-type, binary, Glossary -@subsection Coded character set$B!JId9f2=J8;z=89g!K(B, Character code$B!JJ8;zId9f!K(B - -$BJ8;z$H(B byte $BNs$H#1BP#1$KBP1~IU$1$k[#Kf$G$J$$5,B'$N=89g!#(B - - -@node media-type, message, Coded character set, Glossary -@subsection media-type -@cindex x-token -@cindex primary-type/subtype -@cindex message -@cindex multipart -@cindex application -@cindex video -@cindex audio -@cindex image -@cindex text -@cindex subtype -@cindex primary-type - -MIME (@ref{MIME}) $B$K$*$1$k(B entity (@ref{entity}) $B$N<oN`!#(B -@strong{primary-type} $B$H(B @strong{subtype} $B$+$i$J$k!#(BRFC 2046 (@ref{RFC 2046}) $B$GDj5A$5$l$F$$$k!#(B@refill - -primary-type $B$OI8=`$G$O(B - -@itemize @bullet -@item -@strong{text} -@item -@strong{image} -@item -@strong{audio} -@item -@strong{video} -@item -@strong{application} -@item -@strong{multipart} (@ref{multipart}) -@item -@strong{message} -@end itemize - -@noindent -$B$,Dj5A$5$l!"$=$l$>$l$K$O(B application/octet-stream, audio/basic, -image/jpeg, multipart/mixed (@ref{multipart/mixed}), text/plain -(@ref{text/plain}), video/mpeg $B$J$I$N$5$^$6$^$J(B subtype $B$,Dj5A$5$l$F$$$k!#(B - -@noindent -@strong{[$BCm0U(B]} -@quotation - -$B$3$3$G$O!"(Btext/plain $B$J$I$N(B type/subtype $B$NAH$r$7$P$7$P(B -@strong{primary-type/subtype} $B$H=q$/!#(B -@end quotation - - -media-type $B$O!"(BRFC 2046 $B$GDj5A$5$l$F$$$k$b$N$K2C$($F!"EPO?$9$k$3$H$b$G$-(B -$B$k!#8=:_!"EPO?$5$l$F$$$k$b$N$O(B MEDIA TYPES -(ftp://ftp.isi.edu/in-notes/iana/assignments/media-types) $B$G;2>H$G$-$k!#(B - -$B$^$?!"(Btype $B$b$7$/$O(B subtype $B$K!"A0$K(B `x-' $B$rIU$1$?(B @strong{x-token} $B$rMQ(B -$B$$$k$3$H$K$h$j!"EPO?$5$l$F$$$J$$$b$N$r;dE*$KMQ$$$k$3$H$b$G$-$k!#$7$+$7!"(B -$BEvA3$N$3$H$J$,$i!"$3$&$7$?;dE*$J(B media-type $B$ONJ2r$rF@$?<T$N4V$G$7$+2r<a(B -$B$G$-$J$$$N$GMxMQ$K$OCm0U$9$k$3$H!#(B@refill - -(cf. @ref{Content-Type}) - - - -@node message, MIME, media-type, Glossary -@subsection message - -$B$3$3$G$O(B mail $B$H(B news $B5-;v$NAm>N$H$7$FMQ$$$k!#(B - - -@node MIME, MIME charset, message, Glossary -@subsection MIME -@cindex Multipurpose Internet Mail Extensions - -@strong{Multipurpose Internet Mail Extensions} $B$NN,$G!"(BInternet $B$N(B mail -$B$d(B news $B$G(B us-ascii plain text (@ref{us-ascii}) $B0J30$NJ8;z$r;H$&$?$a$N(B -RFC 822 (@ref{RFC 822}) $B$KBP$9$k3HD%!#(B@refill - -RFC 2045 $B$OKAF,$G<!$N$h$&$K=R$Y$F$$$k!'(B@refill - -STD 11, RFC 822 $B$O!"(BUS-ASCII message header $B$K4X$7$FHs>o$K>\:Y$K5,Dj$7(B -$B$?(B message $BI=8=(B protocol $B$rDj5A$7$F$$$k!#$7$+$7!"$=$l$OC1$K(B flat $B$J(B -US-ASCII text $B$N$_$KN1$^$j!"(Bmessage $B$NFbMF$d(B message body $B$K4X$9$k5,Dj(B -$B$O$J$5$l$F$$$J$$!#(BMultipurpose Internet Mail Extensions, $B$"$k$$$O(B MIME -$B$HAm>N$5$l$k!"$3$N0lO"$NJ8=q$O!"0J2<$N;v$r2DG=$H$9$k$?$a$K(B message $B$N(B -$B7A<0$r:FDj5A$7$?!'(B - -@enumerate -@item -$BJ8=q(B message body $B$K$*$1$k(B US-ASCII $B0J30$NJ8;z=89g(B -@item -$BHsJ8=q(B message body -@item -$BJ#?t$NItJ,$+$i$J$k(B message body -@item -US-ASCII $B0J30$NJ8;z=89g$+$i$J$kJ8=q(B header $B>pJs(B -@end enumerate - - -RFC 2045 (@ref{RFC 2045}), RFC 2046 (@ref{RFC 2046}), RFC 2047 -(@ref{encoded-word}), RFC 2048 (@ref{RFC 2048}), RFC 2049 (@ref{RFC 2049}) $B$GDj5A$5$l$F$$$k!#(B - - -@node MIME charset, MTA, MIME, Glossary -@subsection MIME charset - -Content-Type (@ref{Content-Type}) $BMs$d(B encoded-word (@ref{encoded-word}) -$B$N(B charset parameter $B$GMQ$$$i$l$kEPO?$5$l$?Id9f2=J8;z=89g(B(@ref{Coded character set})$B!#(B@refill - -RFC 2045 (@ref{RFC 2045}) $B$GDj5A$5$l$F$$$k!#(B@refill - -iso-2022-jp $B$d(B euc-kr $B$O$=$N#1$D!#(B - - -@node MTA, MUA, MIME charset, Glossary -@subsection MTA -@cindex Message Transfer Agent - -@strong{Message Transfer Agent} $B$NN,$G!"(Bqmail $B$d(B sendmail $B$J$I$N(B mail $BG[(B -$BAw(B program $B$H(B inn $B$J$I$N(B news server $B$NAm>N!#(B@refill - -(cf. @ref{MUA}) - - - -@node MUA, Quoted-Printable, MTA, Glossary -@subsection MUA -@cindex Message User Agent - -@strong{Message User Agent} $B$NN,$G!"(Bmail reader $B$H(B news reader $B$NAm>N!#(B -@refill - -(cf. @ref{MTA}) - - - -@node Quoted-Printable, RFC 822, MUA, Glossary -@subsection Quoted-Printable - -RFC 2045 (@ref{RFC 2045}) $B$GDj5A$5$l$F$$$k(B MIME (@ref{MIME}) $B$K$*$1$k(B -binary data (@ref{binary data}) $B$N(B network $B$G$NJQ49K!$N#1$D!#(B@refill - -`=' $B$d@)8fJ8;z$d(B 128 $B0J>e$NJ8;z$J$I$O(B `=AF' $B$N$h$&$K(B `=' $B$N8e$KB3$/(B 16 -$B?J?t$GI=8=$9$k!#$3$N$?$a!"(BASCII (@ref{ASCII}) $BJ8;zCf?4$N(B data $B$G$O(B -Base64 (@ref{Base64}) $B$KHf$Y$k$H2DFI@-$,9b$/$J$k2DG=@-$,$"$k!#(B@refill - -$B$7$+$7$J$,$i!"(BEBCDIC $B$K$OB8:_$7$J$$J8;z$rMxMQ$9$k>l9g!"(BEBCDIC $B$rMxMQ$7(B -$B$F$$$k(B network $B$G$O0BA4$KE>Aw$9$k$3$H$,$G$-$:!"(BBase64 $B$KHf$Y$F0BA4@-$O(B -$BDc$$!#(B - - -@node RFC 822, RFC 1036, Quoted-Printable, Glossary -@subsection RFC 822 -@cindex RFC 822 -@cindex STD 11 -@cindex Internet message -@cindex Internet mail -@cindex message header - -Internet mail $B$N<g$K(B @strong{message header} $B$K4X$9$k7A<0$K(B -$B4X$9$kI8=`$rDj$a$F$$$k(B RFC. - -@noindent -@strong{[Memo]} -@quotation - -news message $B$b$3$l$K=`$8$F$$$k$N$G!"(B@strong{Internet mail} $B$H=q$/$h$j$b!"(B -@strong{Internet message} $B$H=q$$$?J}$,NI$$$+$b$7$l$J$$!#(B -@end quotation - - - -@noindent -[RFC 822] -@quotation -D. Crocker, ``Standard for the Format of ARPA Internet Text Messages'', -August 1982, STD 11. -@end quotation - - - -@node RFC 1036, RFC 2045, RFC 822, Glossary -@subsection RFC 1036 -@cindex RFC 1036 -@cindex USENET - -USENET $B$G$N(B message $B$N7A<0$rDj$a$?(B RFC. RFC 822 (@ref{RFC 822}) $B$N(B -subset $B$K$J$C$F$$$k!#(BInternet $B$NI8=`$G$O$J$$$,!"(BUSENET $B0J30$N(B netnews $B$G(B -$B$b$3$l$K=`$8$F$$$k$b$N$,B?$$!#(B - - -@noindent -[USENET: RFC 1036] -@quotation -M. Horton and R. Adams, ``Standard for Interchange of USENET Messages'', -December 1987, (obsolete RFC 850). -@end quotation - - - -@node RFC 2045, RFC 2046, RFC 1036, Glossary -@subsection RFC 2045 -@cindex RFC 2045 -@cindex Standards Track - - -@noindent -[RFC 2045] -@quotation -N. Freed and N. Borenstein, ``Multipurpose Internet Mail Extensions -(MIME) Part One: Format of Internet Message Bodies'', November 1996, -Standards Track (obsolete RFC 1521, 1522, 1590). -@end quotation - - - -@node RFC 2046, RFC 2048, RFC 2045, Glossary -@subsection RFC 2046 -@cindex RFC 2046 -@cindex Standards Track - - -@noindent -[RFC 2046] -@quotation -N. Freed and N. Borenstein, ``Multipurpose Internet Mail Extensions -(MIME) Part Two: Media Types'', November 1996, Standards Track (obsolete -RFC 1521, 1522, 1590). -@end quotation - - - -@node RFC 2048, RFC 2049, RFC 2046, Glossary -@subsection RFC 2048 -@cindex RFC 2048 -@cindex Standards Track - - -@noindent -[RFC 2048] -@quotation -N. Freed, J. Klensin and J. Postel, ``Multipurpose Internet Mail -Extensions (MIME) Part Four: Registration Procedures'', November 1996, -Standards Track (obsolete RFC 1521, 1522, 1590). -@end quotation - - - -@node RFC 2049, plain text, RFC 2048, Glossary -@subsection RFC 2049 -@cindex RFC 2049 -@cindex Standards Track - - -@noindent -[RFC 2049] -@quotation -N. Freed and N. Borenstein, ``Multipurpose Internet Mail Extensions -(MIME) Part Five: Conformance Criteria and Examples'', November 1996, -Standards Track (obsolete RFC 1521, 1522, 1590). -@end quotation - - - -@node plain text, us-ascii, RFC 2049, Glossary -@subsection plain text - -$B=qBN$dAHHG$K4X$9$k>pJs$r;}$?$J$$J8;zId9f(B(@ref{Coded character set})$B$N$_(B -$B$GI=8=$5$l$k(B text $B>pJs!#(B(cf. @ref{text/plain}) - - - -@node us-ascii, , plain text, Glossary -@subsection us-ascii -@cindex ASCII -@cindex us-ascii - -$B%"%a%j%+O"K.$J$I$G;H$o$l$k1Q8l$J$I$rI=8=$9$k$?$a$N(B MIME charset -(@ref{MIME charset}) $B$N#1$D!#(B@refill - -ASCII (@ref{ASCII}) $B$N$_$+$i$J$j(B ISO 2022 $B$K$h$kId9f3HD%$O5v$5$l$J$$!#(B - -Internet message $B$K$*$1$kI8=`$NId9f2=J8;z=89g(B(@ref{Coded character set}) -$B$G$"$j!"L@<(E*$K(B MIME charset $B$,<($5$l$J$$>l9g$O86B'$H$7$F(B -@strong{us-ascii} $B$,;H$o$l$k!#(B@refill - -$B$^$?!"(BRFC 822 (@ref{RFC 822}) $B$K$*$1$k(B @strong{ASCII} $B$O(B us-ascii $B$G$"$k!#(B - - -@node Bug report, CVS, Glossary, Appendix -@section bug $BJs9p$N;EJ}(B - -FLIM $B$N%P%0$r8+$D$1$?$i!"0J2<$N(B address $B$K(B mail $B$rAw$C$F$/$@$5$$!'(B - -@itemize @bullet -@item - $BF|K\8l(B <bug-tm-ja@@chamonix.jaist.ac.jp> -@item - $B1Q8l(B <bug-tm-en@@chamonix.jaist.ac.jp> -@end itemize - - -$BC"$7!"$"$^$j$K$b8E$$HG$K4X$9$kJs9p$O4?7^$5$l$^$;$s!#8E$$HG$N(B bug $B$O!"?7(B -$B$7$$HG$G$O<#$C$F$$$k$+$b$7$l$^$;$s!#$^$:!":G?7HG$G3NG'$7$F$_$^$7$g$&!#(B -@refill - -$B$=$l$+$i!"E,@Z$JJs9p$r$7$^$7$g$&!#C1$K!V$&$^$/F0$+$J$$!W$H8@$o$l$F$b$I$&(B -$B$$$&>u67$J$N$+$O$5$C$Q$jH=$j$^$;$s!#:GDc8B!"(BOS, emacs, APEL, FLIM, SEMI, -$B;H$C$F$$$k(B MUA $B$N<oN`$*$h$SHG!"@_Dj$r=q$/I,MW$,$"$j$^$9!#$^$?!"(Berror $B$,(B -$B5/$C$F$$$k>l9g$O(B backtrace $B$rAw$k$3$H$b=EMW$G$9!#(B(cf. @ref{(emacs)Bugs}) - -$B$^$?!"(Bbug $B$OBgDqJ#?t$N?M$,Ax6x$9$k$b$N$G$9!J$=$&$G$J$1$l$P!"(Bbug $B$G$O$J(B -$B$$2DG=@-$,$"$j$^$9!K!#$@$+$i!":n<T$KD>@\(B mail $B$rAw$k$H:n<T$OF1$8(B mail -$B$r2?DL$b=q$/1)L\$K$J$j$^$9!#$@$+$i!"I,$:(B bug $BJs9p$O>e5-$N(B address $B$KAw$C(B -$B$F$/$@$5$$!#(B - -tm ML $B$G$O(B FLIM $B$N%P%0>pJs$N8r49$d:G?7HG$NG[I[!"(BFLIM $B$N2~NI$K4X$9$k5D(B -$BO@$r9T$J$C$F$$$^$9!#(Btm ML $B$K;22C$7$?$$J}$O(B - -@itemize @bullet -@item - $BF|K\8l(B <tm-ja-help@@chamonix.jaist.ac.jp> -@item - $B1Q8l(B <tm-en-help@@chamonix.jaist.ac.jp> -@end itemize - -@noindent -$B$K6u$N(B mail $B$rAw$C$F2<$5$$!#(B - - -@node CVS, History, Bug report, Appendix -@section CVS $B$K$h$k3+H/(B - -FLIM $B$N(B file $B$O(B CVS $B$r;H$C$F4IM}$5$l$F$$$^$9!#$3$N$?$a!"0J2<$NJ}K!$G:G(B -$B?7$N(B FLIM $B$rF~<j$9$k$3$H$,$G$-$^$9!'(B - -@example -(0) cvs login - - % cvs -d :pserver:anonymous@@chamonix.jaist.ac.jp:/hare/cvs/root \ - login - - CVS password: [CR] # NULL string - -(1) checkout - - % cvs -d :pserver:anonymous@@chamonix.jaist.ac.jp:/hare/cvs/root \ - checkout [-r TAG] flim -@end example - - -CVS $B$rMQ$$$?3+H/$K;22C$7$?$$J}$O(B - -@itemize @bullet -@item - <cvs@@chamonix.jaist.ac.jp> -@end itemize - -@noindent -$B$^$G!"(Baccount $BL>$H(B UNIX $B$N(B passwd $B$HF1$87A<0$N(B crypt $B2=$5$l$?(B password -$B$r1h$($F8fO"Mm$/$@$5$$!#(B - - -@node History, , CVS, Appendix -@section $BNr;K(B - -FLIM $B$N(B code $B$N:G8E$NItJ,$O(B $B1]JB(B $B;LCR(B $B;a$,=q$$$?(B @file{mime.el}$B$K5/8;$7(B -$B$^$9!#$3$N>.$5$J(B program $B$O(B Nemacs $B$GF0:n$9$k(B iso-2022-jp $B$N(B B-encoding -$B@lMQ$N(B encoded-word $B$NI|9f2=%W%m%0%i%`$G$7$?!#(B@refill - -$B$=$N8e!"<i2,(B $BCNI'(B $B$O(B @file{mime.el} $B$r85$K(B@file{tiny-mime.el} $B$H$$$&%W%m(B -$B%0%i%`$r=q$-$^$9!#$3$l$O!"(BNemacs $B$H(B Mule $B$GF0:n$9$k(B encoded-word $B$NId9f(B -$B2=!&I|9f2=%W%m%0%i%`$G$7$?!#(B@file{tiny-mime.el} $B$O(B B-encoding $B$@$1$G$J$/(B -Q-encoding $B$b(Bsupport $B$7!"$^$?!"(BMULE $B$G07$&$3$H$,$G$-$k$5$^$6$^$J(B MIME -charset (@ref{MIME charset}) $B$rF1;~$K;H$&$3$H$,$G$-$^$7$?!#$3$N;~!"(B -Nemacs $B$H(B Mule $B$NAPJ}$r(B support $B$9$k$?$a$KMQ$$$i$l$?%F%/%K%C%/$O8e$K(B emu -package $B$K$^$H$a$i$l$^$9!#(B@refill - -$B$3$N:"!"<i2,(B $BCNI'(B $B$O(B @file{tiny-mime.el} $B$r$5$^$6$^$J(B MUA $B$G;H$&$?$a$N@_(B -$BDj=8$bG[I[$7$F$$$^$7$?$,!"$=$l$i$O8e$K(B@file{tiny-mime.el} $B$H$H$b$K#1$D$N(B -package $B$K$^$H$a$i$l!"(Btm $B$H$$$&L>A0$GG[I[$5$l$^$9!#(B@refill - -$B<i2,(B $BCNI'(B $B$O$d$,$F!"(BMIME message $B$r1\Mw$9$k$?$a$N%W%m%0%i%`$G$"$k(B -@file{tm-body.el} $B$r=q$-$^$9!#$3$l$O!"$9$0$K(B@file{tm-view.el} $B$H$$$&L>A0(B -$B$KJQ$o$j$^$7$?$,!"$d$,$F!"$3$l$,(B@file{tiny-mime.el} $B$KBe$o$C$F!"(Btm $B$NCf(B -$B3K$H$J$j$^$9!#(B@refill - -@file{tm-view.el} $B$OEvA3!"(BContent-Transfer-Encoding $B$r07$&I,MW$,$"$j$^$9!#(B -$B$3$NL\E*$N$?$a$K!"(BMEL $B$,@0Hw$5$l$O$8$a$^$7$?!#(BBase64 $B$K4X$7$F$O(B -@file{tiny-mime.el} $B$N(B code $B$,0\$5$l!"$^$?!"?7$?$K(BQuoted-Printable $B$N(B -code $B$,DI2C$5$l$^$7$?!#$3$l$i$,(B@file{mel-b.el} $B$H(B @file{mel-q.el} $B$K$J$j(B -$B$^$7$?!#(B@refill - -$B$^$?!"8e$K!"<i2,(B $BCNI'(B $B$K$h$C$F(B uuencode $BMQ$N(B @file{mel-u.el} $B$,DI2C$5$l!"(B -$B$=$N8e$K!">.NS(B $B=$J?(B $B;a$K$h$C$F(B x-gzip64 $BMQ$N(B@file{mel-g.el} $B$,DI2C$5$l$^(B -$B$7$?!#(B@refill - -tm $B$G$O8e$K!"<i2,(B $BCNI'(B $B$K$h$C$F(B @file{tiny-mime.el} $B$N:F<BAu$,9T$o$l!"$3(B -$B$N2aDx$G!"(BSTD 11 $B$N(B parser $B$,=q$+$l$^$7$?!#$3$l$O!"8=:_$N(B -@file{std11.el} $B$KEv$?$j$^$9!#$^$?!"$3$N2aDx$G(B @file{tiny-mime.el} $B$OI|(B -$B9f2=$r9T$&(B @file{tm-ew-d.el} $B$HId9f2=$r9T$&(B @file{tm-ew-e.el} $B$KJ,$1$i$l(B -$B$^$7$?!#$3$NN><T$,8=:_$N(B @file{eword-decode.el} $B$H(B -@file{eword-encode.el} $B$N@hAD$KEv$?$j$^$9!#(B@refill - -$B8e$K!"<i2,(B $BCNI'(B $B$i$K$h$C$F(B tm $B$NA4LL=q$-49$(:n6H$,9T$o$l!"$3$N2aDx$G!"(Btm -$B$O(B APEL, MEL, SEMI, EMH, RMAIL-MIME, Gnus-MIME $B$J$I$KJ,$1$i$l$^$7$?!#$3(B -$B$N$&$A$N(B MEL $B$,(B FLIM $B$ND>@\$N@hAD$KEv$?$j$^$9!#(B@refill - -$B8e$K!"(BAPEL $B$+$i(B @file{std11.el} $B$,0\$5$l!"$^$?!"(B@file{mailcap.el}, -@file{eword-decode.el} $B$*$h$S(B @file{eword-encode.el} $B$,(B SEMI $B$+$i0\$5$l!"(B -package $B$NL>A0$,(B FLIM$B$H$J$j$^$9!#(B@refill - -$B$3$ND>A0$+$iEDCf(B $BE/(B $B;a$,$h$j(B RFC $B$KCi<B$J<BAu$r=q$-;O$a!"$3$l$O!"8=:_!"(B -FLIM $B$N;^$G$"$k(B ``FLIM-FLAM'' $B$H$J$C$F$$$^$9!#(B - - -@node Concept Index, Function Index, Appendix, Top -@chapter $B35G0:w0z(B - -@printindex cp - -@node Function Index, Variable Index, Concept Index, Top -@chapter $B4X?t:w0z(B - -@printindex fn - -@node Variable Index, , Function Index, Top -@chapter $BJQ?t:w0z(B - -@printindex vr -@bye diff --git a/mime-lib.el b/mime-lib.el deleted file mode 100644 index bdee3ec..0000000 --- a/mime-lib.el +++ /dev/null @@ -1,31 +0,0 @@ -;;; mime-lib.el --- MIME library module - -;; Copyright (C) 1998 Free Software Foundation, Inc. - -;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> -;; Keywords: MIME, multimedia, mail, news - -;; This file is part of FLIM (Faithful Library about Internet Message). - -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License as -;; published by the Free Software Foundation; either version 2, or (at -;; your option) any later version. - -;; This program is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Code: - -(require 'mime) - -(provide 'mime-lib) - -;;; mime-lib.el ends here diff --git a/mime-parse.el b/mime-parse.el deleted file mode 100644 index fa20a85..0000000 --- a/mime-parse.el +++ /dev/null @@ -1,270 +0,0 @@ -;;; mime-parse.el --- MIME message parser - -;; Copyright (C) 1994,1995,1996,1997,1998 Free Software Foundation, Inc. - -;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> -;; Keywords: parse, MIME, multimedia, mail, news - -;; This file is part of SEMI (Spadework for Emacs MIME Interfaces). - -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License as -;; published by the Free Software Foundation; either version 2, or (at -;; your option) any later version. - -;; This program is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Code: - -(require 'emu) -(require 'std11) -(require 'mime-def) - -(eval-when-compile (require 'cl)) - - -;;; @ field parser -;;; - -(defconst mime/content-parameter-value-regexp - (concat "\$" - std11-quoted-string-regexp - "\\|[^; \t\n]*\$")) - -(defconst mime::parameter-regexp - (concat "^[ \t]*\;[ \t]*\$" mime-token-regexp "\$" - "[ \t]*=[ \t]*\$" mime/content-parameter-value-regexp "\$")) - -(defun mime-parse-parameter (str) - (if (string-match mime::parameter-regexp str) - (let ((e (match-end 2))) - (cons - (cons (downcase (substring str (match-beginning 1) (match-end 1))) - (std11-strip-quoted-string - (substring str (match-beginning 2) e)) - ) - (substring str e) - )))) - - -;;; @ Content-Type -;;; - -;;;###autoload -(defun mime-parse-Content-Type (string) - "Parse STRING as field-body of Content-Type field. -Return value is - (PRIMARY-TYPE SUBTYPE (NAME1 . VALUE1)(NAME2 . VALUE2) ...) -or nil. PRIMARY-TYPE and SUBTYPE are symbol and NAME_n and VALUE_n -are string." - (setq string (std11-unfold-string string)) - (if (string-match `,(concat "^\$" mime-token-regexp - "\$/\$" mime-token-regexp "\$") string) - (let* ((type (downcase - (substring string (match-beginning 1) (match-end 1)))) - (subtype (downcase - (substring string (match-beginning 2) (match-end 2)))) - ret dest) - (setq string (substring string (match-end 0))) - (while (setq ret (mime-parse-parameter string)) - (setq dest (cons (car ret) dest) - string (cdr ret)) - ) - (make-mime-content-type (intern type)(intern subtype) - (nreverse dest)) - ))) - -;;;###autoload -(defun mime-read-Content-Type () - "Read field-body of Content-Type field from current-buffer, -and return parsed it. Format of return value is as same as -`mime-parse-Content-Type'." - (let ((str (std11-field-body "Content-Type"))) - (if str - (mime-parse-Content-Type str) - ))) - - -;;; @ Content-Disposition -;;; - -(defconst mime-disposition-type-regexp mime-token-regexp) - -;;;###autoload -(defun mime-parse-Content-Disposition (string) - "Parse STRING as field-body of Content-Disposition field." - (setq string (std11-unfold-string string)) - (if (string-match `,(concat "^" mime-disposition-type-regexp) string) - (let* ((e (match-end 0)) - (type (downcase (substring string 0 e))) - ret dest) - (setq string (substring string e)) - (while (setq ret (mime-parse-parameter string)) - (setq dest (cons (car ret) dest) - string (cdr ret)) - ) - (cons (cons 'type (intern type)) - (nreverse dest)) - ))) - -;;;###autoload -(defun mime-read-Content-Disposition () - "Read field-body of Content-Disposition field from current-buffer, -and return parsed it." - (let ((str (std11-field-body "Content-Disposition"))) - (if str - (mime-parse-Content-Disposition str) - ))) - - -;;; @ Content-Transfer-Encoding -;;; - -;;;###autoload -(defun mime-parse-Content-Transfer-Encoding (string) - "Parse STRING as field-body of Content-Transfer-Encoding field." - (if (string-match "[ \t\n\r]+$" string) - (setq string (match-string 0 string)) - ) - (downcase string)) - -;;;###autoload -(defun mime-read-Content-Transfer-Encoding (&optional default-encoding) - "Read field-body of Content-Transfer-Encoding field from -current-buffer, and return it. -If is is not found, return DEFAULT-ENCODING." - (let ((str (std11-field-body "Content-Transfer-Encoding"))) - (if str - (mime-parse-Content-Transfer-Encoding str) - default-encoding))) - - -;;; @ message parser -;;; - -(defun mime-parse-multipart (entity) - (goto-char (point-min)) - (let* ((representation-type - (mime-entity-representation-type-internal entity)) - (content-type (mime-entity-content-type-internal entity)) - (dash-boundary - (concat "--" (mime-content-type-parameter content-type "boundary"))) - (delimiter (concat "\n" (regexp-quote dash-boundary))) - (close-delimiter (concat delimiter "--[ \t]*$")) - (rsep (concat delimiter "[ \t]*\n")) - (dc-ctl - (if (eq (mime-content-type-subtype content-type) 'digest) - (make-mime-content-type 'message 'rfc822) - (make-mime-content-type 'text 'plain) - )) - (header-end (mime-entity-header-end-internal entity)) - (body-end (mime-entity-body-end-internal entity))) - (save-restriction - (goto-char body-end) - (narrow-to-region header-end - (if (re-search-backward close-delimiter nil t) - (match-beginning 0) - body-end)) - (goto-char header-end) - (if (re-search-forward rsep nil t) - (let ((cb (match-end 0)) - ce ncb ret children - (node-id (mime-entity-node-id-internal entity)) - (i 0)) - (while (re-search-forward rsep nil t) - (setq ce (match-beginning 0)) - (setq ncb (match-end 0)) - (save-restriction - (narrow-to-region cb ce) - (setq ret (mime-parse-message representation-type dc-ctl - entity (cons i node-id))) - ) - (setq children (cons ret children)) - (goto-char (setq cb ncb)) - (setq i (1+ i)) - ) - (setq ce (point-max)) - (save-restriction - (narrow-to-region cb ce) - (setq ret (mime-parse-message representation-type dc-ctl - entity (cons i node-id))) - ) - (setq children (cons ret children)) - (mime-entity-set-children-internal entity (nreverse children)) - ) - (mime-entity-set-content-type-internal - entity (make-mime-content-type 'message 'x-broken)) - nil) - ))) - -(defun mime-parse-encapsulated (entity) - (mime-entity-set-children-internal - entity - (save-restriction - (narrow-to-region (mime-entity-body-start-internal entity) - (mime-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) - (let ((header-start (point-min)) - header-end - body-start - (body-end (point-max)) - content-type) - (goto-char header-start) - (if (re-search-forward "^$" nil t) - (setq header-end (match-end 0) - body-start (if (= header-end body-end) - body-end - (1+ header-end))) - (setq header-end (point-min) - body-start (point-min))) - (save-restriction - (narrow-to-region header-start header-end) - (setq content-type (or (let ((str (std11-fetch-field "Content-Type"))) - (if str - (mime-parse-Content-Type str) - )) - default-ctl)) - ) - (make-mime-entity-internal representation-type - (current-buffer) - content-type nil parent node-id - (current-buffer) - header-start header-end - body-start body-end) - )) - - -;;; @ for buffer -;;; - -;;;###autoload -(defun mime-parse-buffer (&optional buffer representation-type) - "Parse BUFFER as a MIME message. -If buffer is omitted, it parses current-buffer." - (save-excursion - (if buffer (set-buffer buffer)) - (setq mime-message-structure - (mime-parse-message (or representation-type 'buffer) nil)) - )) - - -;;; @ end -;;; - -(provide 'mime-parse) - -;;; mime-parse.el ends here diff --git a/mime.el b/mime.el deleted file mode 100644 index 9200173..0000000 --- a/mime.el +++ /dev/null @@ -1,344 +0,0 @@ -;;; mime.el --- MIME library module - -;; Copyright (C) 1998 Free Software Foundation, Inc. - -;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> -;; Keywords: MIME, multimedia, mail, news - -;; This file is part of FLIM (Faithful Library about Internet Message). - -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License as -;; published by the Free Software Foundation; either version 2, or (at -;; your option) any later version. - -;; This program is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Code: - -(require 'alist) -(require 'std11) -(require 'mime-def) -(require 'eword-decode) - -(autoload 'eword-encode-field "eword-encode" - "Encode header field STRING, and return the result.") -(autoload 'eword-encode-header "eword-encode" - "Encode header fields to network representation, such as MIME encoded-word.") - - -(autoload 'mime-parse-Content-Type "mime-parse" - "Parse STRING as field-body of Content-Type field.") -(autoload 'mime-read-Content-Type "mime-parse" - "Read field-body of Content-Type field from current-buffer, -and return parsed it.") - -(autoload 'mime-parse-Content-Disposition "mime-parse" - "Parse STRING as field-body of Content-Disposition field.") -(autoload 'mime-read-Content-Disposition "mime-parse" - "Read field-body of Content-Disposition field from current-buffer, -and return parsed it.") - -(autoload 'mime-parse-Content-Transfer-Encoding "mime-parse" - "Parse STRING as field-body of Content-Transfer-Encoding field.") -(autoload 'mime-read-Content-Transfer-Encoding "mime-parse" - "Read field-body of Content-Transfer-Encoding field from -current-buffer, and return it.") - -(autoload 'mime-parse-buffer "mime-parse" - "Parse BUFFER as a MIME message.") - - -;;; @ Entity Representation and Implementation -;;; - -(defsubst mime-find-function (service type) - (let ((imps (cdr (assq type mime-entity-implementation-alist)))) - (if imps - (cdr (assq service imps)) - (require (intern (format "mm%s" type))) - (cdr (assq service - (cdr (assq type mime-entity-implementation-alist)))) - ))) - -(defsubst mime-entity-function (entity service) - (mime-find-function service - (mime-entity-representation-type-internal entity))) - -(defsubst mime-entity-send (entity service &rest args) - (apply (mime-find-function - service (mime-entity-representation-type-internal entity)) - entity - args)) - -(defsubst mm-arglist-to-arguments (arglist) - (let (dest) - (while arglist - (let ((arg (car arglist))) - (or (memq arg '(&optional &rest)) - (setq dest (cons arg dest))) - ) - (setq arglist (cdr arglist))) - (nreverse dest))) - -(defmacro mm-define-generic (name args &optional doc) - (if doc - `(defun ,(intern (format "mime-%s" name)) ,args - ,doc - (mime-entity-send ,(car args) ',name - ,@(mm-arglist-to-arguments (cdr args))) - ) - `(defun ,(intern (format "mime-%s" name)) ,args - (mime-entity-send ,(car args) ',name - ,@(mm-arglist-to-arguments (cdr args))) - ))) - -(put 'mm-define-generic 'lisp-indent-function 'defun) - -(defun mime-open-entity (type location) - "Open an entity and return it. -TYPE is representation-type. -LOCATION is location of entity. Specification of it is depended on -representation-type." - (let ((entity (make-mime-entity-internal type location))) - (mime-entity-send entity 'initialize-instance) - entity)) - -(mm-define-generic entity-cooked-p (entity) - "Return non-nil if contents of ENTITY has been already code-converted.") - - -;;; @ Entity as node of message -;;; - -(defun mime-entity-children (entity) - (or (mime-entity-children-internal entity) - (mime-entity-send entity 'entity-children))) - -(defalias 'mime-entity-node-id 'mime-entity-node-id-internal) - -(defun mime-entity-number (entity) - "Return entity-number of ENTITY." - (reverse (mime-entity-node-id-internal entity))) - -(defun mime-find-entity-from-number (entity-number &optional message) - "Return entity from ENTITY-NUMBER in MESSAGE. -If MESSAGE is not specified, `mime-message-structure' is used." - (or message - (setq message mime-message-structure)) - (let ((sn (car entity-number))) - (if (null sn) - message - (let ((rc (nth sn (mime-entity-children message)))) - (if rc - (mime-find-entity-from-number (cdr entity-number) rc) - )) - ))) - -(defun mime-find-entity-from-node-id (entity-node-id &optional message) - "Return entity from ENTITY-NODE-ID in MESSAGE. -If MESSAGE is not specified, `mime-message-structure' is used." - (mime-find-entity-from-number (reverse entity-node-id) message)) - -(defun mime-entity-parent (entity &optional message) - "Return mother entity of ENTITY. -If MESSAGE is specified, it is regarded as root entity." - (if (equal entity message) - nil - (mime-entity-parent-internal entity))) - -(defun mime-root-entity-p (entity &optional message) - "Return t if ENTITY is root-entity (message). -If MESSAGE is specified, it is regarded as root entity." - (null (mime-entity-parent entity message))) - - -;;; @ Entity Buffer -;;; - -(defun mime-entity-buffer (entity) - (or (mime-entity-buffer-internal entity) - (mime-entity-send entity 'entity-buffer))) - -(mm-define-generic entity-point-min (entity) - "Return the start point of ENTITY in the buffer which contains ENTITY.") - -(mm-define-generic entity-point-max (entity) - "Return the end point of ENTITY in the buffer which contains ENTITY.") - -(defun mime-entity-header-start (entity) - (or (mime-entity-header-start-internal entity) - (mime-entity-send entity 'entity-header-start))) - -(defun mime-entity-header-end (entity) - (or (mime-entity-header-end-internal entity) - (mime-entity-send entity 'entity-header-end))) - -(defun mime-entity-body-start (entity) - (or (mime-entity-body-start-internal entity) - (mime-entity-send entity 'entity-body-start))) - -(defun mime-entity-body-end (entity) - (or (mime-entity-body-end-internal entity) - (mime-entity-send entity 'entity-body-end))) - - -;;; @ Entity Header -;;; - -(defun mime-fetch-field (field-name &optional entity) - (or (symbolp field-name) - (setq field-name (intern (capitalize (capitalize field-name))))) - (or entity - (setq entity mime-message-structure)) - (let* ((header (mime-entity-original-header-internal entity)) - (field-body (cdr (assq field-name header)))) - (or field-body - (progn - (if (setq field-body - (mime-entity-send entity 'fetch-field - (symbol-name field-name))) - (mime-entity-set-original-header-internal - entity (put-alist field-name field-body header)) - ) - field-body)))) - -(defalias 'mime-entity-content-type 'mime-entity-content-type-internal) - -(defun mime-entity-content-disposition (entity) - (or (mime-entity-content-disposition-internal entity) - (let ((ret (mime-fetch-field 'Content-Disposition entity))) - (if ret - (let ((disposition (mime-parse-Content-Disposition ret))) - (when disposition - (mime-entity-set-content-disposition-internal - entity disposition) - disposition)))))) - -(defun mime-entity-encoding (entity &optional default-encoding) - (or (mime-entity-encoding-internal entity) - (let ((encoding - (or (let ((ret (mime-fetch-field - 'Content-Transfer-Encoding entity))) - (and ret (mime-parse-Content-Transfer-Encoding ret))) - default-encoding "7bit"))) - (mime-entity-set-encoding-internal entity encoding) - encoding))) - -(defun mime-read-field (field-name &optional entity) - (or (symbolp field-name) - (setq field-name (capitalize (capitalize field-name)))) - (or entity - (setq entity mime-message-structure)) - (cond ((eq field-name 'Content-Type) - (mime-entity-content-type entity) - ) - ((eq field-name 'Content-Disposition) - (mime-entity-content-disposition entity) - ) - ((eq field-name 'Content-Transfer-Encoding) - (mime-entity-encoding entity) - ) - (t - (let* ((header (mime-entity-parsed-header-internal entity)) - (field (cdr (assq field-name header)))) - (or field - (let ((field-body (mime-fetch-field field-name entity))) - (when field-body - (cond ((memq field-name '(From Resent-From - To Resent-To - Cc Resent-Cc - Bcc Resent-Bcc - Reply-To Resent-Reply-To)) - (setq field (std11-parse-addresses - (eword-lexical-analyze field-body))) - ) - ((memq field-name '(Sender Resent-Sender)) - (setq field (std11-parse-address - (eword-lexical-analyze field-body))) - ) - ((memq field-name eword-decode-ignored-field-list) - (setq field field-body)) - ((memq field-name eword-decode-structured-field-list) - (setq field (eword-decode-structured-field-body - field-body))) - (t - (setq field (ew-decode-field (symbol-name field-name) - field-body)) - )) - (mime-entity-set-parsed-header-internal - entity (put-alist field-name field header)) - field))))))) - -(mm-define-generic insert-decoded-header (entity &optional invisible-fields - visible-fields) - "Insert before point a decoded header of ENTITY.") - - -;;; @ Entity Attributes -;;; - -(defun mime-entity-uu-filename (entity) - (if (member (mime-entity-encoding entity) mime-uuencode-encoding-name-list) - (save-excursion - (set-buffer (mime-entity-buffer entity)) - (goto-char (mime-entity-body-start entity)) - (if (re-search-forward "^begin [0-9]+ " - (mime-entity-body-end entity) t) - (if (looking-at ".+$") - (buffer-substring (match-beginning 0)(match-end 0)) - ))))) - -(defun mime-entity-filename (entity) - "Return filename of ENTITY." - (or (mime-entity-uu-filename entity) - (mime-content-disposition-filename - (mime-entity-content-disposition entity)) - (cdr (let ((param (mime-content-type-parameters - (mime-entity-content-type entity)))) - (or (assoc "name" param) - (assoc "x-name" param)) - )))) - - -(defsubst mime-entity-media-type (entity) - (mime-content-type-primary-type (mime-entity-content-type entity))) -(defsubst mime-entity-media-subtype (entity) - (mime-content-type-subtype (mime-entity-content-type entity))) -(defsubst mime-entity-parameters (entity) - (mime-content-type-parameters (mime-entity-content-type entity))) -(defsubst mime-entity-type/subtype (entity-info) - (mime-type/subtype-string (mime-entity-media-type entity-info) - (mime-entity-media-subtype entity-info))) - - -;;; @ Entity Content -;;; - -(mm-define-generic entity-content (entity) - "Return content of ENTITY as byte sequence (string).") - -(mm-define-generic write-entity-content (entity filename) - "Write content of ENTITY into FILENAME.") - -(mm-define-generic write-entity (entity filename) - "Write header and body of ENTITY into FILENAME.") - -(mm-define-generic write-entity-body (entity filename) - "Write body of ENTITY into FILENAME.") - - -;;; @ end -;;; - -(provide 'mime) - -;;; mime.el ends here diff --git a/mmbuffer.el b/mmbuffer.el deleted file mode 100644 index 5913265..0000000 --- a/mmbuffer.el +++ /dev/null @@ -1,194 +0,0 @@ -;;; mmbuffer.el --- MIME entity module for binary buffer - -;; Copyright (C) 1998 Free Software Foundation, Inc. - -;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> -;; Keywords: MIME, multimedia, mail, news - -;; This file is part of FLIM (Faithful Library about Internet Message). - -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License as -;; published by the Free Software Foundation; either version 2, or (at -;; your option) any later version. - -;; This program is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Code: - -(require 'mime) -(require 'mime-parse) - -(mm-define-backend buffer) - -(mm-define-method initialize-instance ((entity buffer)) - (mime-entity-set-buffer-internal - entity (mime-entity-location-internal entity)) - (save-excursion - (set-buffer (mime-entity-buffer-internal entity)) - (setq mime-message-structure entity) - (let ((header-start (point-min)) - header-end - body-start - (body-end (point-max))) - (goto-char header-start) - (if (re-search-forward "^$" nil t) - (setq header-end (match-end 0) - body-start (if (= header-end body-end) - body-end - (1+ header-end))) - (setq header-end (point-min) - body-start (point-min))) - (save-restriction - (narrow-to-region header-start header-end) - (mime-entity-set-content-type-internal - entity - (let ((str (std11-fetch-field "Content-Type"))) - (if str - (mime-parse-Content-Type str) - ))) - ) - (mime-entity-set-header-start-internal entity header-start) - (mime-entity-set-header-end-internal entity header-end) - (mime-entity-set-body-start-internal entity body-start) - (mime-entity-set-body-end-internal entity body-end) - ))) - -(mm-define-method entity-point-min ((entity buffer)) - (mime-entity-header-start-internal entity)) - -(mm-define-method entity-point-max ((entity buffer)) - (mime-entity-body-end-internal entity)) - -(mm-define-method fetch-field ((entity buffer) field-name) - (save-excursion - (set-buffer (mime-entity-buffer-internal entity)) - (save-restriction - (narrow-to-region (mime-entity-header-start-internal entity) - (mime-entity-header-end-internal entity)) - (std11-fetch-field field-name) - ))) - -(mm-define-method entity-cooked-p ((entity buffer)) nil) - -(mm-define-method entity-children ((entity buffer)) - (let* ((content-type (mime-entity-content-type entity)) - (primary-type (mime-content-type-primary-type content-type))) - (cond ((eq primary-type 'multipart) - (mime-parse-multipart entity) - ) - ((and (eq primary-type 'message) - (memq (mime-content-type-subtype content-type) - '(rfc822 news external-body) - )) - (mime-parse-encapsulated entity) - )) - )) - -(mm-define-method entity-content ((entity buffer)) - (save-excursion - (set-buffer (mime-entity-buffer-internal entity)) - (mime-decode-string - (buffer-substring (mime-entity-body-start-internal entity) - (mime-entity-body-end-internal entity)) - (mime-entity-encoding entity)))) - -(mm-define-method write-entity-content ((entity buffer) filename) - (save-excursion - (set-buffer (mime-entity-buffer-internal entity)) - (mime-write-decoded-region (mime-entity-body-start-internal entity) - (mime-entity-body-end-internal entity) - filename - (or (mime-entity-encoding entity) "7bit")) - )) - -(mm-define-method write-entity ((entity buffer) filename) - (save-excursion - (set-buffer (mime-entity-buffer-internal entity)) - (write-region-as-binary (mime-entity-header-start-internal entity) - (mime-entity-body-end-internal entity) - filename) - )) - -(mm-define-method write-entity-body ((entity buffer) filename) - (save-excursion - (set-buffer (mime-entity-buffer-internal entity)) - (write-region-as-binary (mime-entity-body-start-internal entity) - (mime-entity-body-end-internal entity) - filename) - )) - -(defun mime-visible-field-p (field-name visible-fields invisible-fields) - (or (catch 'found - (while visible-fields - (let ((regexp (car visible-fields))) - (if (string-match regexp field-name) - (throw 'found t) - )) - (setq visible-fields (cdr visible-fields)) - )) - (catch 'found - (while invisible-fields - (let ((regexp (car invisible-fields))) - (if (string-match regexp field-name) - (throw 'found nil) - )) - (setq invisible-fields (cdr invisible-fields)) - ) - t))) - -(mm-define-method insert-decoded-header ((entity buffer) - &optional invisible-fields - visible-fields) - (save-restriction - (narrow-to-region (point)(point)) - (let ((the-buf (current-buffer)) - (src-buf (mime-entity-buffer-internal entity)) - (h-end (mime-entity-header-end-internal entity)) - beg p end field-name len field-body decoded) - (save-excursion - (set-buffer src-buf) - (goto-char (mime-entity-header-start-internal entity)) - (save-restriction - (narrow-to-region (point) h-end) - (while (re-search-forward std11-field-head-regexp nil t) - (setq beg (match-beginning 0) - p (match-end 0) - field-name (buffer-substring beg (1- p)) - len (string-width field-name) - end (std11-field-end)) - (when (mime-visible-field-p field-name - visible-fields invisible-fields) - (save-excursion - (set-buffer the-buf) - (setq field-body (ew-lf-crlf-to-crlf - (save-excursion - (set-buffer src-buf) - (buffer-substring p end)))) - (setq decoded (ew-decode-field field-name field-body)) - (unless (equal field-body decoded) - (setq decoded (ew-crlf-refold - decoded - (1+ (string-width field-name)) - fill-column))) - (insert field-name) - (insert ":") - (insert (ew-crlf-to-lf decoded)) - (insert "\n") - )))))))) - - -;;; @ end -;;; - -(provide 'mmbuffer) - -;;; mmbuffer.el ends here diff --git a/mmcooked.el b/mmcooked.el deleted file mode 100644 index cd261f4..0000000 --- a/mmcooked.el +++ /dev/null @@ -1,75 +0,0 @@ -;;; mmcooked.el --- MIME entity implementation for binary buffer - -;; Copyright (C) 1998 Free Software Foundation, Inc. - -;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> -;; Keywords: MIME, multimedia, mail, news - -;; This file is part of FLIM (Faithful Library about Internet Message). - -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License as -;; published by the Free Software Foundation; either version 2, or (at -;; your option) any later version. - -;; This program is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Code: - -(require 'mmbuffer) - -(mm-define-backend cooked (buffer)) - -(mm-define-method entity-cooked-p ((entity cooked)) t) - -(mm-define-method write-entity-content ((entity cooked) filename) - (save-excursion - (set-buffer (mime-entity-buffer-internal entity)) - (let ((encoding (or (mime-entity-encoding entity) "7bit"))) - (if (member encoding '("7bit" "8bit" "binary")) - (write-region (mime-entity-body-start-internal entity) - (mime-entity-body-end-internal entity) filename) - (mime-write-decoded-region (mime-entity-body-start-internal entity) - (mime-entity-body-end-internal entity) - filename encoding) - )))) - -(mm-define-method write-entity ((entity cooked) filename) - (save-excursion - (set-buffer (mime-entity-buffer-internal entity)) - (write-region (mime-entity-header-start-internal entity) - (mime-entity-body-end-internal entity) - filename) - )) - -(mm-define-method write-entity-body ((entity cooked) filename) - (save-excursion - (set-buffer (mime-entity-buffer-internal entity)) - (write-region (mime-entity-body-start-internal entity) - (mime-entity-body-end-internal entity) - filename) - )) - -(mm-define-method insert-decoded-header ((entity cooked) - &optional invisible-fields - visible-fields) - (let (default-mime-charset) - (funcall (mime-find-function 'insert-decoded-header 'buffer) - entity invisible-fields visible-fields) - )) - - -;;; @ end -;;; - -(provide 'mmcooked) - -;;; mmcooked.el ends here diff --git a/natset.el b/natset.el deleted file mode 100644 index 2a09041..0000000 --- a/natset.el +++ /dev/null @@ -1,296 +0,0 @@ -(provide 'natset) - -;;; pacage for set of natural number. -;; (natural number includes zero.) - -;;; predicates - -(defun natset-empty-p (ns) - "Returns t if NS is empty." - (equal ns ())) - -(defun natset-full-p (ns) - "Returns t if NS is full." - (equal ns '(0))) - -(defun natset-closed-p (ns) - "Returns t if NS is closed." - (= (logand (length ns) 1) 0)) - -(defun natset-open-p (ns) - "Returns t if NS is open." - (= (logand (length ns) 1) 1)) - -(defun natset-has-p (ns i) - "Returns t if I is in NS." - (not (natset-empty-p (natset-intersection (natset-single i) ns)))) - -(defun natset-has-intersection-p (ns1 ns2) - "Returns t if the intersection of NS1 and NS2 is not empty." - (not (natset-empty-p (natset-intersection ns1 ns2)))) - -(defun natset-include-p (ns1 ns2) - "Returns t if NS1 includes NS2." - (equal ns1 (natset-union ns1 ns2))) - -;;; accessor - -(defun natset-start (ns) - "Returns start element in NS." - (if (natset-empty-p ns) - (error "natset empty" ns)) - (car ns)) - -;;; primitive constructor - -(defun natset-empty () - "Returns a empty set. -{}" - ()) - -(defun natset-full () - "Returns a full set. -{i | 0 <= i}" - '(0)) - -(defun natset-single (&rest elts) - "Returns a set contains singleton elements. -{i | i in ELTS}" - (let ((ns (natset-empty))) - (while elts - (setq ns (natset-union ns (natset-seg (car elts) (car elts))) - elts (cdr elts))) - ns)) - -(defun natset-seg (start &optional end) - "Returns a set contains one segment. -{i | START <= i and i <= END} - -If END is nil, Return the set {i | START <= i}" - (if end - (list start (1+ end)) - (list start))) - -;;; complex constructor - -(defun natset-start-set (ns) - "Returns a set contains start boundaries for NS. -{i | NS does not contains i-1 and NS contains i}" - (let ((res ())) - (while ns - (setq res (cons (1+ (car ns)) (cons (car ns) res)) - ns (cddr ns))) - (nreverse res))) - -(defun natset-end-set (ns) - "Returns a set contains end boundaries for NS. -{i | NS contains i-1 and NS does not contains i}" - (let ((res ())) - (setq ns (cdr ns)) - (while ns - (setq res (cons (1+ (car ns)) (cons (car ns) res)) - ns (cddr ns))) - (nreverse res))) - -(defun natset-boundary-set (ns) - "Returns a set contains start and end boundaries for NS. -{i | NS contains i-1 xor NS does not contains i}" - (natset-union (natset-start-set ns) (natset-end-set ns))) - -(defun natset-minmax (ns) - "Returns a set contains a range from minimum to maximam of NS. -{i | There exists j, k in NS, j <= i <= k}" - (cond - ((null ns) ()) - ((natset-open-p ns) (list (car ns))) - (t - (list (car ns) (nth (1- (length ns)) ns))))) - -;;; set operation - -(defun natset-negate (ns) - "Returns negated set. -{i | 0 <= i and NS does not contains i}" - (if (and (consp ns) (= (car ns) 0)) - (cdr ns) - (cons 0 ns))) - -(defun natset-union (&rest nss) - "Returns unioned set. -{i | There exists ns in NSS s.t ns contains i}" - (let ((ns (natset-empty))) - (while nss - (setq ns (natset-union2 ns (car nss)) - nss (cdr nss))) - ns)) - -(defun natset-intersection (&rest nss) - "Returns intersectioned set. -{i | For all ns in NSS, ns contains i}" - (natset-negate (apply 'natset-union (mapcar 'natset-negate nss)))) - -(defun natset-sub (ns &rest nss) - "Returns subtracted set. -{i | NS contains i and for all ns in NSS, ns does not contains i}" - (setq ns (natset-intersection ns (natset-negate (apply 'natset-union nss))))) - -;;; enumeration - -(defun natset-enum (ns) - (if (natset-open-p ns) - (error "natset open" ns)) - (let ((res ()) i j) - (while ns - (setq i (car ns) - j (cadr ns) - ns (cddr ns)) - (while (< i j) - (setq res (cons i res) - i (1+ i)))) - (nreverse res))) - -;;; code generation - -(defun natset-take-seg (ns) - (cond - ((null ns) (error "NS empty" ns)) - ((null (cdr ns)) (cons ns ())) - (t (cons (list (car ns) (cadr ns)) (cddr ns))))) - -(defun natset-valid-filter (ns valid) - "Returns a filtered set R. -R includes intersection between VALID and NS. -R does not include intersecton between VALID and negated NS. -Element does not contained in VALID is unspecified." - (let* ((res (natset-intersection valid ns)) - (len (length res)) - (u-set (natset-negate valid)) - tmp1 tmp2 tmpl) - (while u-set - (setq tmp1 (natset-take-seg u-set)) - (setq tmp2 (natset-union (car tmp1) res) - tmpl (length tmp2)) - (if (or (< tmpl len) (and (= tmpl len) (equal 0 (car tmp2)))) - (setq res tmp2 - len (length tmp2))) - (setq u-set (cdr tmp1))) - res)) - -(defun natset-gen-pred-exp (ns var &optional valid) - "Returns a expression to test value of variable VAR is in NS or not. - -If VALID is not nil, the condition value of VAR is in VALID is assumed. -It is impossible to set VALID to empty set because empty set is represented as nil." - (if valid (setq ns (natset-valid-filter ns valid))) - (cond - ((null ns) nil) - ((= (car ns) 0) (natset-gen-pred-exp-internal (cdr ns) var nil 0)) - (t (natset-gen-pred-exp-internal ns var t 0)))) - -(defun natset-gen-ccl-branch (reg fail &rest clauses) - (let* ((natsets (mapcar 'car clauses))) - (let ((range (apply 'natset-union natsets)) tmp) - (unless (natset-empty-p range) - (setq natsets (cons (natset-negate range) - natsets) - clauses (cons (cons (car natsets) - fail) - clauses))) - (setq range (natset-full) - tmp natsets) - (while tmp - (setcar tmp - (natset-intersection - (car tmp) - range)) - (setq range (natset-sub range (car tmp)) - tmp (cdr tmp)))) - (let ((b (natset-enum - (natset-sub - (apply - 'natset-union - (mapcar - 'natset-boundary-set - natsets)) - (natset-single 0))))) - (natset-gen-ccl-branch-internal reg 0 b clauses)))) - -(defun natset-gen-ccl-branch-internal (reg s b clauses) - (cond - ((null b) - (cdr (natset-assoc s clauses))) - ((null (cdr b)) - `(if (,reg < ,(car b)) - ,(cdr (natset-assoc s clauses)) - ,(cdr (natset-assoc (car b) clauses)))) - (t - (let* ((div (natset-divide (length b))) - (l (append b ())) - (g (nthcdr (1- div) l)) - (m (cadr g))) - (setq g (prog1 (cddr g) (setcdr g ()))) - `(if (,reg < ,m) - ,(natset-gen-ccl-branch-internal reg s l clauses) - ,(natset-gen-ccl-branch-internal reg m g clauses)))))) - -(defun natset-assoc (key alist) - (catch 'return - (while alist - (when (natset-has-p (caar alist) key) - (throw 'return (car alist))) - (setq alist (cdr alist))) - nil)) - -;;; internal primitive - -(defun natset-union2 (ns1 ns2) - (let (res start (end t)) - (while (and end (or (consp ns1) (consp ns2))) - (if (and (consp ns1) (or (null ns2) (<= (car ns1) (car ns2)))) - (setq start (car ns1) - end (cadr ns1) - ns1 (cddr ns1)) - (setq start (car ns2) - end (cadr ns2) - ns2 (cddr ns2))) - (while (and end - (or (and (consp ns1) (<= (car ns1) end)) - (and (consp ns2) (<= (car ns2) end)))) - (if (and (consp ns1) (<= (car ns1) end)) - (progn - (if (or (null (cadr ns1)) (< end (cadr ns1))) (setq end (cadr ns1))) - (setq ns1 (cddr ns1))) - (progn - (if (or (null (cadr ns2)) (< end (cadr ns2))) (setq end (cadr ns2))) - (setq ns2 (cddr ns2))))) - (setq res (cons start res)) - (if end (setq res (cons end res)))) - (nreverse res))) - -; n is greater or equal 2. -; returns one of 1 .. n-1 -; (In reality, returns greatest 2^i - 1) -(defun natset-divide (n) - (let ((l 2) tmp) - (while (< (setq tmp (lsh l 1)) n) - (setq l tmp)) - (1- l))) - -(defun natset-gen-pred-exp-internal (ns var bool base) - (cond - ((null ns) (not bool)) - ((null (cdr ns)) - (if (<= (car ns) base) - bool - (if bool `(<= ,(car ns) ,var) `(< ,var ,(car ns))))) - (t - (let* ((div (natset-divide (length ns))) - (l (append ns ())) - (g (nthcdr (1- div) l)) - (m (cadr g)) - ) - (setq g (prog1 (cddr g) (setcdr g ()))) - `(if (< ,var ,m) - ,(natset-gen-pred-exp-internal l var bool base) - ,(natset-gen-pred-exp-internal - g var (if (= (logand div 1) 1) bool (not bool)) m)))))) diff --git a/rx.el b/rx.el deleted file mode 100644 index 08c60d0..0000000 --- a/rx.el +++ /dev/null @@ -1,394 +0,0 @@ -;;; regular expression - -;;; core -;; rx ::= [] {} -;; | () {""} -;; | (* . rx) closure -;; | (| . rxs) alternative -;; | (rx . rx) concatination -;; | (cc c1 c2 c3 ...) character class (natset) -;;; sugar -;; | (+ . rx) positive closure -;; | "..." string -;; | c character -;; | (non-ascii) (cc 128) -;; | [ range ... ] -;; | [ ^ range ... ] -;;; internal -;; | pc primitive character class -;; | (act . int) action - -;; range ::= c -;; | "..." -;; | (c1 c2) [c1 c2] -;; | (c1 . c2) [c1 c2) -;; | (c) [c1 inf) -;; | non-ascii - -(require 'natset) -(require 'automata) -(provide 'rx) - -(defun rx-empty-p (rx) (equal rx [])) -(defun rx-null-p (rx) (equal rx ())) -(defun rx-act-p (rx) (and (consp rx) (eq (car rx) 'act))) -(defun rx-cc-p (rx) (and (consp rx) (eq (car rx) 'cc))) -(defalias 'rx-pc-p 'integerp) - -(defun rx-clo-p (rx) (and (consp rx) (eq (car rx) '*))) -(defun rx-alt-p (rx) (and (consp rx) (eq (car rx) '|))) -(defun rx-con-p (rx) (and (consp rx) (or (null (car rx)) (not (symbolp (car rx)))))) - -(defun rx-clo (rx) - (cond - ((rx-empty-p rx) ()) - ((rx-null-p rx) rx) - ((rx-act-p rx) rx) - ((rx-clo-p rx) rx) - (t (cons '* rx)))) -(defun rx-alt (rxs) - (cond - ((null rxs) []) - ((null (cdr rxs)) (car rxs)) - (t (cons '| rxs)))) -(defun rx-alt2 (r1 r2) - (cond - ((rx-empty-p r1) r2) - ((rx-empty-p r2) r1) - ((equal r1 r2) r1) - (t (list '| r1 r2)))) -(defun rx-con (r1 r2) - (cond - ((rx-empty-p r1) []) - ((rx-empty-p r2) []) - ((rx-null-p r1) r2) - ((rx-null-p r2) r1) - ((and (rx-act-p r1) (rx-act-p r2)) r2) - (t (cons r1 r2)))) -(defun rx-act (obj) (cons 'act obj)) -(defun rx-cc (cs) (cons 'cc cs)) - -;;; regular expression preprocessing - -(defun rx-range-to-ns (range) - (cond - ((char-or-char-int-p range) - (natset-single (char-int range))) - ((stringp range) - (let ((ns (natset-empty)) (chars (string-to-int-list range))) - (while chars - (setq ns (natset-union ns (natset-single (car chars))) - chars (cdr chars))) - ns)) - ((eq range 'non-ascii) - (natset-seg 128)) - ((and (consp range) - (null (cdr range)) - (char-or-char-int-p (car range))) - (natset-seg (car range))) - ((and (consp range) - (consp (cdr range)) - (null (cddr range)) - (char-or-char-int-p (car range)) - (char-or-char-int-p (cadr range))) - (natset-seg (char-int (car range)) (char-int (cadr range)))) - ((and (consp range) - (char-or-char-int-p (car range)) - (char-or-char-int-p (cdr range))) - (natset-seg (char-int (car range)) (1- (char-int (cdr range))))) - (t (error "not range %s" range)))) - -(defun rx-vcc-to-rx (vcc) - (let ((l (append vcc ())) neg ns) - (if (eq (car l) '^) - (setq l (cdr l) - neg t)) - (setq l (mapcar 'rx-range-to-ns l)) - (setq ns (natset-empty)) - (while l - (setq ns (natset-union ns (car l)) - l (cdr l))) - (if neg (setq ns (natset-negate ns))) - (if (natset-empty-p ns) - [] - (rx-cc ns)))) - -(defun rx-desugar (rx) - (cond - ((stringp rx) (rx-desugar (string-to-int-list rx))) - ((vectorp rx) (rx-vcc-to-rx rx)) - ((char-or-char-int-p rx) (rx-cc (natset-single (char-int rx)))) - ((and (consp rx) (eq (car rx) '+)) (let ((r (rx-desugar (cdr rx)))) (rx-con r (rx-clo r)))) - ((and (consp rx) (eq (car rx) 'non-ascii)) (rx-cc (natset-seg 128))) - ((and (consp rx) (eq (car rx) 'any)) (rx-cc (natset-full))) - ((rx-empty-p rx) rx) - ((rx-null-p rx) rx) - ((rx-act-p rx) rx) - ((rx-cc-p rx) rx) - ((rx-clo-p rx) (rx-clo (rx-desugar (cdr rx)))) - ((rx-alt-p rx) (rx-alt (mapcar 'rx-desugar (cdr rx)))) - ((rx-con-p rx) (rx-con (rx-desugar (car rx)) (rx-desugar (cdr rx)))) - (t (error "not rx %s" rx)))) - -(defun rx-collect-cc (rx &optional cs) - (cond - ((rx-empty-p rx) cs) - ((rx-null-p rx) cs) - ((rx-act-p rx) cs) - ((rx-cc-p rx) (append (cdr rx) cs)) - ((rx-clo-p rx) (rx-collect-cc (cdr rx) cs)) - ((rx-alt-p rx) - (setq rx (cdr rx)) - (while (consp rx) - (setq cs (rx-collect-cc (car rx) cs) - rx (cdr rx))) - cs) - ((rx-con-p rx) (rx-collect-cc (car rx) (rx-collect-cc (cdr rx) cs))) - (t (error "not rx %s" rx)))) - -(defun rx-cc-to-pc (rx cs) - (cond - ((rx-empty-p rx) rx) - ((rx-null-p rx) rx) - ((rx-act-p rx) rx) - ((rx-cc-p rx) - (setq rx (cdr rx)) - (let (res) - (while (and (consp rx) (consp (cdr rx))) - (let ((start (car rx)) (end (cadr rx))) - (setq res (rx-filter (lambda (c) (and (<= start c) (< c end))) cs res) - rx (cddr rx)))) - (if (consp rx) - (let ((start (car rx))) - (setq res (rx-filter (lambda (c) (<= start c)) cs res)))) - (rx-alt (rx-sort-int res)))) - ((rx-clo-p rx) (rx-clo (rx-cc-to-pc (cdr rx) cs))) - ((rx-alt-p rx) (rx-alt (mapcar (lambda (r) (rx-cc-to-pc r cs)) (cdr rx)))) - ((rx-con-p rx) (rx-con (rx-cc-to-pc (car rx) cs) (rx-cc-to-pc (cdr rx) cs))) - (t (error "not rx %s" rx)))) - -(defun rx-categolize-char (rx) - (let ((cs (rx-sort-int (rx-collect-cc rx)))) - (cons - (rx-cc-to-pc rx cs) - cs))) - -;;; simplification - -(defun rx-nullable-p (rx) - (cond - ((rx-empty-p rx) nil) - ((rx-null-p rx) t) - ((rx-act-p rx) t) - ((rx-pc-p rx) nil) - ((rx-clo-p rx) t) - ((rx-alt-p rx) - (setq rx (cdr rx)) - (while (and (consp rx) (not (rx-nullable-p (car rx)))) - (setq rx (cdr rx))) - (consp rx)) - ((rx-con-p rx) - (and (rx-nullable-p (car rx)) (rx-nullable-p (cdr rx)))) - (t (error "not rx %s" rx)))) - -(defun rx-simplify (rx) - (cond - ((rx-empty-p rx) rx) - ((rx-null-p rx) rx) - ((rx-act-p rx) rx) - ((rx-pc-p rx) rx) - ((rx-clo-p rx) - (rx-clo (rx-simplify (cdr rx)))) - ((rx-alt-p rx) - (let ((in (cdr rx)) (out ()) - already-simplified-list already-simplified) - (while (consp in) - (setq rx (car in) - in (cdr in) - already-simplified (car already-simplified-list) - already-simplified-list (cdr already-simplified-list)) - (if (rx-alt-p rx) - (setq in (append (cdr rx) in)) - (progn - (setq rx (if already-simplified rx (rx-simplify rx))) - (cond - ((rx-empty-p rx)) ; [] is identity element for alternation. - ((rx-alt-p rx) - (setq in (append (cdr rx) in) - already-simplified-list (append (make-list (length (cdr rx)) nil) already-simplified-list))) - ((not (member rx out)) - (setq out (cons rx out))))))) - (rx-alt (rx-sort-rx (reverse out))))) - ((rx-con-p rx) - (catch 'return - (let ((in (list (car rx) (cdr rx))) (out ()) - already-simplified-list already-simplified) - (while (consp in) - (setq rx (car in) - in (cdr in) - already-simplified (car already-simplified-list) - already-simplified-list (cdr already-simplified-list)) - (if (rx-con-p rx) - (setq in (rx-cons* (car rx) (cdr rx) in)) - (progn - (setq rx (if already-simplified rx (rx-simplify rx))) - (cond - ((rx-empty-p rx) ; [] is zero element for concatination. - (throw 'return [])) - ((rx-null-p rx)) ; () is identity element for concatination. - ((rx-con-p rx) - (setq in (rx-cons* (car rx) (cdr rx) in)) - already-simplified-list (rx-cons* t t already-simplified-list)) - (t - (setq out (cons rx out))))))) - (if (= (length out) 1) - (car out) - (nreverse out))))) - (t (error "not rx %s" rx)))) - -;;; head property - -(defun rx-head-pcs (rx &optional res) - (cond - ((rx-empty-p rx) res) - ((rx-null-p rx) res) - ((rx-act-p rx) res) - ((rx-pc-p rx) (if (member rx res) res (cons rx res))) - ((rx-clo-p rx) (rx-head-pcs (cdr rx) res)) - ((rx-alt-p rx) - (setq rx (cdr rx)) - (while (consp rx) - (setq res (rx-head-pcs (car rx) res) - rx (cdr rx))) - res) - ((rx-con-p rx) - (setq res (rx-head-pcs (car rx) res)) - (if (rx-nullable-p (car rx)) - (setq res (rx-head-pcs (cdr rx) res))) - res) - (t (error "not rx %s" rx)))) - -(defun rx-head-act (rx &optional res) - (cond - ((rx-empty-p rx) res) - ((rx-null-p rx) res) - ((rx-act-p rx) (rx-better-act rx res)) - ((rx-pc-p rx) res) - ((rx-clo-p rx) (rx-head-act (cdr rx) res)) - ((rx-alt-p rx) - (setq rx (cdr rx)) - (while (consp rx) - (setq res (rx-head-act (car rx) res) - rx (cdr rx))) - res) - ((rx-con-p rx) - (setq res (rx-head-act (car rx) res)) - (if (rx-nullable-p (car rx)) - (setq res (rx-head-act (cdr rx) res))) - res) - (t (error "not rx %s" rx)))) - -;;; stepping - -(defun rx-step-internal (rx pc) - (cond - ((rx-empty-p rx) []) - ((rx-null-p rx) []) - ((rx-act-p rx) []) - ((rx-pc-p rx) (if (= rx pc) () [])) - ((rx-clo-p rx) (rx-con (rx-step-internal (cdr rx) pc) rx)) - ((rx-alt-p rx) (rx-alt (mapcar (lambda (r) (rx-step-internal r pc)) (cdr rx)))) - ((rx-con-p rx) - (if (rx-nullable-p (car rx)) - (rx-alt2 - (rx-con (rx-step-internal (car rx) pc) (cdr rx)) - (rx-step-internal (cdr rx) pc)) - (rx-con (rx-step-internal (car rx) pc) (cdr rx)))) - (t (error "not rx %s" rx)))) - -(defun rx-step (rx &rest pcs) - (while (consp pcs) - (setq rx (rx-simplify (rx-step-internal rx (car pcs))) - pcs (cdr pcs))) - rx) - -;;; utilities - -(defun rx-better-act (a1 a2) - (cond - ((null a2) a1) - ((< (cdr a1) (cdr a2)) a1) - (t a2))) - -(defun rx-cons* (elt &rest lst) - (if (null lst) - elt - (cons elt (apply 'rx-cons* (car lst) (cdr lst))))) - -(defun rx-filter (fun lst &optional rest) - (if (null lst) - rest - (if (funcall fun (car lst)) - (cons (car lst) (rx-filter fun (cdr lst) rest)) - (rx-filter fun (cdr lst) rest)))) - -(defun rx-cmp-index (rx) - (cond - ((rx-null-p rx) (list 0)) - ((rx-act-p rx) (list 1 (cdr rx))) - ((rx-empty-p rx) (list 2)) - ((rx-clo-p rx) (list 3 (cdr rx))) - ((rx-alt-p rx) (cons 4 (cdr rx))) - ((rx-con-p rx) (list 5 (car rx) (cdr rx))) - ((rx-pc-p rx) (list 6 rx)) - (t (error "not rx %s" rx)))) - -(defun rx-cmp-int (i1 i2) - (cond - ((< i1 i2) -1) - ((> i1 i2) 1) - (t 0))) - -(defun rx-cmp-rx (r1 r2) - (let ((i1 (rx-cmp-index r1)) (i2 (rx-cmp-index r2))) - (cond - ((< (car i1) (car i2)) -1) - ((> (car i1) (car i2)) 1) - (t (setq i1 (cdr i1) - i2 (cdr i2)) - (catch 'result - (while (and (consp i1) (consp i2)) - (let ((r (if (and (integerp (car i1)) (integerp (car i2))) - (rx-cmp-int (car i1) (car i2)) - (rx-cmp-rx (car i1) (car i2))))) - (if (not (zerop r)) - (throw 'result r) - (setq i1 (cdr i1) - i2 (cdr i2))))) - (if (null i1) (if (null i2) 0 -1) 1)))))) - -(defun rx-sort-rx (l &optional res) - (if (null l) - res - (let ((e (car l)) lt gt cmp) - (setq l (cdr l)) - (while (consp l) - (setq cmp (rx-cmp-rx (car l) e)) - (cond - ((< cmp 0) (setq lt (cons (car l) lt))) - ((< 0 cmp) (setq gt (cons (car l) gt)))) - (setq l (cdr l))) - (rx-sort-rx lt (cons e (rx-sort-rx gt res)))))) - -(defun rx-sort-int (l &optional res) - (if (null l) - res - (let ((e (car l)) lt gt) - (setq l (cdr l)) - (while (consp l) - (cond - ((< (car l) e) (setq lt (cons (car l) lt))) - ((< e (car l)) (setq gt (cons (car l) gt)))) - (setq l (cdr l))) - (rx-sort-int lt (cons e (rx-sort-int gt res)))))) - diff --git a/std11.el b/std11.el deleted file mode 100644 index 080cae2..0000000 --- a/std11.el +++ /dev/null @@ -1,836 +0,0 @@ -;;; std11.el --- STD 11 functions for GNU Emacs - -;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc. - -;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> -;; Keywords: mail, news, RFC 822, STD 11 - -;; This file is part of MU (Message Utilities). - -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License as -;; published by the Free Software Foundation; either version 2, or (at -;; your option) any later version. - -;; This program is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Code: - -(autoload 'buffer-substring-no-properties "emu") -(autoload 'member "emu") - - -;;; @ field -;;; - -(defconst std11-field-name-regexp "[!-9;-~]+") -(defconst std11-field-head-regexp - (concat "^" std11-field-name-regexp ":")) -(defconst std11-next-field-head-regexp - (concat "\n" std11-field-name-regexp ":")) - -(defun std11-field-end () - "Move to end of field and return this point. [std11.el]" - (if (re-search-forward std11-next-field-head-regexp nil t) - (goto-char (match-beginning 0)) - (if (re-search-forward "^$" nil t) - (goto-char (1- (match-beginning 0))) - (end-of-line) - )) - (point) - ) - -(defsubst std11-fetch-field (name) - "Return the value of the header field NAME. -The buffer is expected to be narrowed to just the headers of the message." - (save-excursion - (goto-char (point-min)) - (let ((case-fold-search t)) - (if (re-search-forward (concat "^" name ":[ \t]*") nil t) - (buffer-substring-no-properties (match-end 0) (std11-field-end)) - )))) - -(defun std11-field-body (name &optional boundary) - "Return the value of the header field NAME. -If BOUNDARY is not nil, it is used as message header separator." - (save-excursion - (save-restriction - (std11-narrow-to-header boundary) - (std11-fetch-field name) - ))) - -(defun std11-find-field-body (field-names &optional boundary) - "Return the first found field-body specified by FIELD-NAMES -of the message header in current buffer. If BOUNDARY is not nil, it is -used as message header separator. [std11.el]" - (save-excursion - (save-restriction - (std11-narrow-to-header boundary) - (let ((case-fold-search t) - field-name) - (catch 'tag - (while (setq field-name (car field-names)) - (goto-char (point-min)) - (if (re-search-forward (concat "^" field-name ":[ \t]*") nil t) - (throw 'tag - (buffer-substring-no-properties - (match-end 0) (std11-field-end))) - ) - (setq field-names (cdr field-names)) - )))))) - -(defun std11-field-bodies (field-names &optional default-value boundary) - "Return list of each field-bodies of FIELD-NAMES of the message header -in current buffer. If BOUNDARY is not nil, it is used as message -header separator. [std11.el]" - (save-excursion - (save-restriction - (std11-narrow-to-header boundary) - (let* ((case-fold-search t) - (dest (make-list (length field-names) default-value)) - (s-rest field-names) - (d-rest dest) - field-name) - (while (setq field-name (car s-rest)) - (goto-char (point-min)) - (if (re-search-forward (concat "^" field-name ":[ \t]*") nil t) - (setcar d-rest - (buffer-substring-no-properties - (match-end 0) (std11-field-end))) - ) - (setq s-rest (cdr s-rest) - d-rest (cdr d-rest)) - ) - dest)))) - - -;;; @ unfolding -;;; - -(defun std11-unfold-string (string) - "Unfold STRING as message header field. [std11.el]" - (let ((dest "")) - (while (string-match "\n\$[ \t]\$" string) - (setq dest (concat dest - (substring string 0 (match-beginning 0)) - (match-string 1 string) - )) - (setq string (substring string (match-end 0))) - ) - (concat dest string) - )) - - -;;; @ header -;;; - -(defun std11-narrow-to-header (&optional boundary) - "Narrow to the message header. -If BOUNDARY is not nil, it is used as message header separator. -\[std11.el]" - (narrow-to-region - (goto-char (point-min)) - (if (re-search-forward - (concat "^\$" (regexp-quote (or boundary "")) "\$?$") - nil t) - (match-beginning 0) - (point-max) - ))) - -(defun std11-header-string (regexp &optional boundary) - "Return string of message header fields matched by REGEXP. -If BOUNDARY is not nil, it is used as message header separator. -\[std11.el]" - (let ((case-fold-search t)) - (save-excursion - (save-restriction - (std11-narrow-to-header boundary) - (goto-char (point-min)) - (let (field header) - (while (re-search-forward std11-field-head-regexp nil t) - (setq field - (buffer-substring (match-beginning 0) (std11-field-end))) - (if (string-match regexp field) - (setq header (concat header field "\n")) - )) - header) - )))) - -(defun std11-header-string-except (regexp &optional boundary) - "Return string of message header fields not matched by REGEXP. -If BOUNDARY is not nil, it is used as message header separator. -\[std11.el]" - (let ((case-fold-search t)) - (save-excursion - (save-restriction - (std11-narrow-to-header boundary) - (goto-char (point-min)) - (let (field header) - (while (re-search-forward std11-field-head-regexp nil t) - (setq field - (buffer-substring (match-beginning 0) (std11-field-end))) - (if (not (string-match regexp field)) - (setq header (concat header field "\n")) - )) - header) - )))) - -(defun std11-collect-field-names (&optional boundary) - "Return list of all field-names of the message header in current buffer. -If BOUNDARY is not nil, it is used as message header separator. -\[std11.el]" - (save-excursion - (save-restriction - (std11-narrow-to-header boundary) - (goto-char (point-min)) - (let (dest name) - (while (re-search-forward std11-field-head-regexp nil t) - (setq name (buffer-substring-no-properties - (match-beginning 0)(1- (match-end 0)))) - (or (member name dest) - (setq dest (cons name dest)) - ) - ) - dest)))) - - -;;; @ quoted-string -;;; - -(defun std11-wrap-as-quoted-pairs (string specials) - (let (dest - (i 0) - (b 0) - (len (length string)) - ) - (while (< i len) - (let ((chr (aref string i))) - (if (memq chr specials) - (setq dest (concat dest (substring string b i) "\\") - b i) - )) - (setq i (1+ i)) - ) - (concat dest (substring string b)) - )) - -(defconst std11-non-qtext-char-list '(?\" ?\\ ?\r ?\n)) - -(defun std11-wrap-as-quoted-string (string) - "Wrap STRING as RFC 822 quoted-string. [std11.el]" - (concat "\"" - (std11-wrap-as-quoted-pairs string std11-non-qtext-char-list) - "\"")) - -(defun std11-strip-quoted-pair (string) - "Strip quoted-pairs in STRING. [std11.el]" - (let (dest - (b 0) - (i 0) - (len (length string)) - ) - (while (< i len) - (let ((chr (aref string i))) - (if (eq chr ?\\) - (setq dest (concat dest (substring string b i)) - b (1+ i) - i (+ i 2)) - (setq i (1+ i)) - ))) - (concat dest (substring string b)) - )) - -(defun std11-strip-quoted-string (string) - "Strip quoted-string STRING. [std11.el]" - (let ((len (length string))) - (or (and (>= len 2) - (let ((max (1- len))) - (and (eq (aref string 0) ?\") - (eq (aref string max) ?\") - (std11-strip-quoted-pair (substring string 1 max)) - ))) - string))) - - -;;; @ lexical analyze -;;; - -(defconst std11-space-chars " \t\n") -(defconst std11-spaces-regexp (` (, (concat "[" std11-space-chars "]+")))) -(defconst std11-special-char-list '(?\] ?\[ - ?$ ?$ ?< ?> ?@ - ?, ?\; ?: ?\\ ?\" - ?.)) -(defconst std11-atom-regexp - (` (, (concat "^[^" std11-special-char-list std11-space-chars "]+")))) - -(defun std11-analyze-spaces (string) - (if (and (string-match std11-spaces-regexp string) - (= (match-beginning 0) 0)) - (let ((end (match-end 0))) - (cons (cons 'spaces (substring string 0 end)) - (substring string end) - )))) - -(defun std11-analyze-special (str) - (if (and (> (length str) 0) - (memq (aref str 0) std11-special-char-list)) - (cons (cons 'specials (substring str 0 1)) - (substring str 1) - ))) - -(defun std11-analyze-atom (str) - (if (string-match std11-atom-regexp str) - (let ((end (match-end 0))) - (cons (cons 'atom (substring str 0 end)) - (substring str end) - )))) - -(defun std11-check-enclosure (str open close &optional recursive from) - (let ((len (length str)) - (i (or from 0)) - ) - (if (and (> len i) - (eq (aref str i) open)) - (let (p chr) - (setq i (1+ i)) - (catch 'tag - (while (< i len) - (setq chr (aref str i)) - (cond ((eq chr ?\\) - (setq i (1+ i)) - (if (>= i len) - (throw 'tag nil) - ) - (setq i (1+ i)) - ) - ((eq chr close) - (throw 'tag (1+ i)) - ) - ((eq chr open) - (if (and recursive - (setq p (std11-check-enclosure - str open close recursive i)) - ) - (setq i p) - (throw 'tag nil) - )) - (t - (setq i (1+ i)) - )) - )))))) - -(defun std11-analyze-quoted-string (str) - (let ((p (std11-check-enclosure str ?\" ?\"))) - (if p - (cons (cons 'quoted-string (substring str 1 (1- p))) - (substring str p)) - ))) - -(defun std11-analyze-domain-literal (str) - (let ((p (std11-check-enclosure str ?\[ ?\]))) - (if p - (cons (cons 'domain-literal (substring str 1 (1- p))) - (substring str p)) - ))) - -(defun std11-analyze-comment (str) - (let ((p (std11-check-enclosure str ?$ ?$ t))) - (if p - (cons (cons 'comment (substring str 1 (1- p))) - (substring str p)) - ))) - -(defun std11-lexical-analyze (str) - (let (dest ret) - (while (not (string-equal str "")) - (setq ret - (or (std11-analyze-quoted-string str) - (std11-analyze-domain-literal str) - (std11-analyze-comment str) - (std11-analyze-spaces str) - (std11-analyze-special str) - (std11-analyze-atom str) - '((error) . "") - )) - (setq dest (cons (car ret) dest)) - (setq str (cdr ret)) - ) - (nreverse dest) - )) - - -;;; @ parser -;;; - -(defun std11-ignored-token-p (token) - (let ((type (car token))) - (or (eq type 'spaces)(eq type 'comment)) - )) - -(defun std11-parse-token (lal) - (let (token itl) - (while (and lal - (progn - (setq token (car lal)) - (std11-ignored-token-p token) - )) - (setq lal (cdr lal)) - (setq itl (cons token itl)) - ) - (cons (nreverse (cons token itl)) - (cdr lal)) - )) - -(defun std11-parse-ascii-token (lal) - (let (token itl parsed token-value) - (while (and lal - (setq token (car lal)) - (or (std11-ignored-token-p token) - (if (and (setq token-value (cdr token)) - (find-non-ascii-charset-string token-value) - ) - (setq token nil) - ))) - (setq lal (cdr lal)) - (setq itl (cons token itl)) - ) - (if (and token - (setq parsed (nreverse (cons token itl))) - ) - (cons parsed (cdr lal)) - ))) - -(defun std11-parse-token-or-comment (lal) - (let (token itl) - (while (and lal - (progn - (setq token (car lal)) - (eq (car token) 'spaces) - )) - (setq lal (cdr lal)) - (setq itl (cons token itl)) - ) - (cons (nreverse (cons token itl)) - (cdr lal)) - )) - -(defun std11-parse-word (lal) - (let ((ret (std11-parse-ascii-token lal))) - (if ret - (let ((elt (car ret)) - (rest (cdr ret)) - ) - (if (or (assq 'atom elt) - (assq 'quoted-string elt)) - (cons (cons 'word elt) rest) - ))))) - -(defun std11-parse-word-or-comment (lal) - (let ((ret (std11-parse-token-or-comment lal))) - (if ret - (let ((elt (car ret)) - (rest (cdr ret)) - ) - (cond ((or (assq 'atom elt) - (assq 'quoted-string elt)) - (cons (cons 'word elt) rest) - ) - ((assq 'comment elt) - (cons (cons 'comment-word elt) rest) - )) - )))) - -(defun std11-parse-phrase (lal) - (let (ret phrase) - (while (setq ret (std11-parse-word-or-comment lal)) - (setq phrase (append phrase (cdr (car ret)))) - (setq lal (cdr ret)) - ) - (if phrase - (cons (cons 'phrase phrase) lal) - ))) - -(defun std11-parse-local-part (lal) - (let ((ret (std11-parse-word lal))) - (if ret - (let ((local-part (cdr (car ret))) dot) - (setq lal (cdr ret)) - (while (and (setq ret (std11-parse-ascii-token lal)) - (setq dot (car ret)) - (string-equal (cdr (assq 'specials dot)) ".") - (setq ret (std11-parse-word (cdr ret))) - (setq local-part - (append local-part dot (cdr (car ret))) - ) - (setq lal (cdr ret)) - )) - (cons (cons 'local-part local-part) lal) - )))) - -(defun std11-parse-sub-domain (lal) - (let ((ret (std11-parse-ascii-token lal))) - (if ret - (let ((sub-domain (car ret))) - (if (or (assq 'atom sub-domain) - (assq 'domain-literal sub-domain) - ) - (cons (cons 'sub-domain sub-domain) - (cdr ret) - ) - ))))) - -(defun std11-parse-domain (lal) - (let ((ret (std11-parse-sub-domain lal))) - (if ret - (let ((domain (cdr (car ret))) dot) - (setq lal (cdr ret)) - (while (and (setq ret (std11-parse-ascii-token lal)) - (setq dot (car ret)) - (string-equal (cdr (assq 'specials dot)) ".") - (setq ret (std11-parse-sub-domain (cdr ret))) - (setq domain - (append domain dot (cdr (car ret))) - ) - (setq lal (cdr ret)) - )) - (cons (cons 'domain domain) lal) - )))) - -(defun std11-parse-at-domain (lal) - (let ((ret (std11-parse-ascii-token lal)) at-sign) - (if (and ret - (setq at-sign (car ret)) - (string-equal (cdr (assq 'specials at-sign)) "@") - (setq ret (std11-parse-domain (cdr ret))) - ) - (cons (cons 'at-domain (append at-sign (cdr (car ret)))) - (cdr ret)) - ))) - -(defun std11-parse-addr-spec (lal) - (let ((ret (std11-parse-local-part lal)) - addr) - (if (and ret - (prog1 - (setq addr (cdr (car ret))) - (setq lal (cdr ret)) - (and (setq ret (std11-parse-at-domain lal)) - (setq addr (append addr (cdr (car ret)))) - (setq lal (cdr ret)) - ))) - (cons (cons 'addr-spec addr) lal) - ))) - -(defun std11-parse-route (lal) - (let ((ret (std11-parse-at-domain lal)) - route comma colon) - (if (and ret - (progn - (setq route (cdr (car ret))) - (setq lal (cdr ret)) - (while (and (setq ret (std11-parse-ascii-token lal)) - (setq comma (car ret)) - (string-equal (cdr (assq 'specials comma)) ",") - (setq ret (std11-parse-at-domain (cdr ret))) - ) - (setq route (append route comma (cdr (car ret)))) - (setq lal (cdr ret)) - ) - (and (setq ret (std11-parse-ascii-token lal)) - (setq colon (car ret)) - (string-equal (cdr (assq 'specials colon)) ":") - (setq route (append route colon)) - ) - )) - (cons (cons 'route route) - (cdr ret) - ) - ))) - -(defun std11-parse-route-addr (lal) - (let ((ret (std11-parse-ascii-token lal)) - < route addr-spec >) - (if (and ret - (setq < (car ret)) - (string-equal (cdr (assq 'specials <)) "<") - (setq lal (cdr ret)) - (progn (and (setq ret (std11-parse-route lal)) - (setq route (cdr (car ret))) - (setq lal (cdr ret)) - ) - (setq ret (std11-parse-addr-spec lal)) - ) - (setq addr-spec (cdr (car ret))) - (setq lal (cdr ret)) - (setq ret (std11-parse-ascii-token lal)) - (setq > (car ret)) - (string-equal (cdr (assq 'specials >)) ">") - ) - (cons (cons 'route-addr (append route addr-spec)) - (cdr ret) - ) - ))) - -(defun std11-parse-phrase-route-addr (lal) - (let ((ret (std11-parse-phrase lal)) phrase) - (if ret - (progn - (setq phrase (cdr (car ret))) - (setq lal (cdr ret)) - )) - (if (setq ret (std11-parse-route-addr lal)) - (cons (list 'phrase-route-addr - phrase - (cdr (car ret))) - (cdr ret)) - ))) - -(defun std11-parse-mailbox (lal) - (let ((ret (or (std11-parse-phrase-route-addr lal) - (std11-parse-addr-spec lal))) - mbox comment) - (if (and ret - (prog1 - (setq mbox (car ret)) - (setq lal (cdr ret)) - (if (and (setq ret (std11-parse-token-or-comment lal)) - (setq comment (cdr (assq 'comment (car ret)))) - ) - (setq lal (cdr ret)) - ))) - (cons (list 'mailbox mbox comment) - lal) - ))) - -(defun std11-parse-group (lal) - (let ((ret (std11-parse-phrase lal)) - phrase colon comma mbox semicolon) - (if (and ret - (setq phrase (cdr (car ret))) - (setq lal (cdr ret)) - (setq ret (std11-parse-ascii-token lal)) - (setq colon (car ret)) - (string-equal (cdr (assq 'specials colon)) ":") - (setq lal (cdr ret)) - (progn - (and (setq ret (std11-parse-mailbox lal)) - (setq mbox (list (car ret))) - (setq lal (cdr ret)) - (progn - (while (and (setq ret (std11-parse-ascii-token lal)) - (setq comma (car ret)) - (string-equal - (cdr (assq 'specials comma)) ",") - (setq lal (cdr ret)) - (setq ret (std11-parse-mailbox lal)) - (setq mbox (cons (car ret) mbox)) - (setq lal (cdr ret)) - ) - ))) - (and (setq ret (std11-parse-ascii-token lal)) - (setq semicolon (car ret)) - (string-equal (cdr (assq 'specials semicolon)) ";") - ))) - (cons (list 'group phrase (nreverse mbox)) - (cdr ret) - ) - ))) - -(defun std11-parse-address (lal) - (or (std11-parse-group lal) - (std11-parse-mailbox lal) - )) - -(defun std11-parse-addresses (lal) - (let ((ret (std11-parse-address lal))) - (if ret - (let ((dest (list (car ret)))) - (setq lal (cdr ret)) - (while (and (setq ret (std11-parse-ascii-token lal)) - (string-equal (cdr (assq 'specials (car ret))) ",") - (setq ret (std11-parse-address (cdr ret))) - ) - (setq dest (cons (car ret) dest)) - (setq lal (cdr ret)) - ) - (nreverse dest) - )))) - -(defun std11-parse-msg-id (lal) - (let ((ret (std11-parse-ascii-token lal)) - < addr-spec >) - (if (and ret - (setq < (car ret)) - (string-equal (cdr (assq 'specials <)) "<") - (setq lal (cdr ret)) - (setq ret (std11-parse-addr-spec lal)) - (setq addr-spec (car ret)) - (setq lal (cdr ret)) - (setq ret (std11-parse-ascii-token lal)) - (setq > (car ret)) - (string-equal (cdr (assq 'specials >)) ">") - ) - (cons (cons 'msg-id (cdr addr-spec)) - (cdr ret)) - ))) - - -;;; @ composer -;;; - -(defun std11-addr-to-string (seq) - "Return string from lexical analyzed list SEQ -represents addr-spec of RFC 822. [std11.el]" - (mapconcat (function - (lambda (token) - (let ((name (car token))) - (cond - ((eq name 'spaces) "") - ((eq name 'comment) "") - ((eq name 'quoted-string) - (concat "\"" (cdr token) "\"")) - (t (cdr token))) - ))) - seq "") - ) - -(defun std11-address-string (address) - "Return string of address part from parsed ADDRESS of RFC 822. -\[std11.el]" - (cond ((eq (car address) 'group) - (mapconcat (function std11-address-string) - (car (cdr address)) - ", ") - ) - ((eq (car address) 'mailbox) - (let ((addr (nth 1 address))) - (std11-addr-to-string - (if (eq (car addr) 'phrase-route-addr) - (nth 2 addr) - (cdr addr) - ) - ))))) - -(defun std11-full-name-string (address) - "Return string of full-name part from parsed ADDRESS of RFC 822. -\[std11.el]" - (cond ((eq (car address) 'group) - (mapconcat (function - (lambda (token) - (cdr token) - )) - (nth 1 address) "") - ) - ((eq (car address) 'mailbox) - (let ((addr (nth 1 address)) - (comment (nth 2 address)) - phrase) - (if (eq (car addr) 'phrase-route-addr) - (setq phrase - (mapconcat - (function - (lambda (token) - (let ((type (car token))) - (cond ((eq type 'quoted-string) - (std11-strip-quoted-pair (cdr token)) - ) - ((eq type 'comment) - (concat - "(" - (std11-strip-quoted-pair (cdr token)) - ")") - ) - (t - (cdr token) - ))))) - (nth 1 addr) "")) - ) - (cond ((> (length phrase) 0) phrase) - (comment (std11-strip-quoted-pair comment)) - ) - )))) - -(defun std11-msg-id-string (msg-id) - "Return string from parsed MSG-ID of RFC 822." - (concat "<" (std11-addr-to-string (cdr msg-id)) ">") - ) - -(defun std11-fill-msg-id-list-string (string &optional column) - "Fill list of msg-id in STRING, and return the result." - (or column - (setq column 12)) - (let ((lal (std11-lexical-analyze string)) - dest) - (let ((ret (std11-parse-msg-id lal))) - (if ret - (let* ((str (std11-msg-id-string (car ret))) - (len (length str))) - (setq lal (cdr ret)) - (if (> (+ len column) 76) - (setq dest (concat dest "\n " str) - column (1+ len)) - (setq dest str - column (+ column len)) - )) - (setq dest (concat dest (cdr (car lal))) - lal (cdr lal)) - )) - (while lal - (let ((ret (std11-parse-msg-id lal))) - (if ret - (let* ((str (std11-msg-id-string (car ret))) - (len (1+ (length str)))) - (setq lal (cdr ret)) - (if (> (+ len column) 76) - (setq dest (concat dest "\n " str) - column len) - (setq dest (concat dest " " str) - column (+ column len)) - )) - (setq dest (concat dest (cdr (car lal))) - lal (cdr lal)) - ))) - dest)) - - -;;; @ parser with lexical analyzer -;;; - -(defun std11-parse-address-string (string) - "Parse STRING as mail address. [std11.el]" - (std11-parse-address (std11-lexical-analyze string)) - ) - -(defun std11-parse-addresses-string (string) - "Parse STRING as mail address list. [std11.el]" - (std11-parse-addresses (std11-lexical-analyze string)) - ) - -(defun std11-extract-address-components (string) - "Extract full name and canonical address from STRING. -Returns a list of the form (FULL-NAME CANONICAL-ADDRESS). -If no name can be extracted, FULL-NAME will be nil. [std11.el]" - (let* ((structure (car (std11-parse-address-string - (std11-unfold-string string)))) - (phrase (std11-full-name-string structure)) - (address (std11-address-string structure)) - ) - (list phrase address) - )) - - -;;; @ end -;;; - -(provide 'std11)

From: tomo Date: Sun, 23 Aug 1998 01:37:39 +0000 (+0000) Subject: This commit was manufactured by cvs2svn to create branch X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=219fcaab0ef87e29c644613b08f561534baa888e;p=elisp%2Fflim.git This commit was manufactured by cvs2svn to create branch 'unlabeled-1.1.2.3.2'. --- diff --git a/COLORS b/COLORS deleted file mode 100644 index 909f80b..0000000 --- a/COLORS +++ /dev/null @@ -1,3179 +0,0 @@ -#V C H HVC xyY -9 6 97.5 2.5R9/6 CIExyY:0.3665/0.3183/0.7866 -9 6 0 5R9/6 CIExyY:0.3734/0.3256/0.7866 -9 6 2.5 7.5R9/6 CIExyY:0.3812/0.3348/0.7866 -9 6 5 10R9/6 CIExyY:0.388/0.3439/0.7866 -9 4 97.5 2.5R9/4 CIExyY:0.3445/0.3179/0.7866 -9 4 0 5R9/4 CIExyY:0.3495/0.3226/0.7866 -9 4 2.5 7.5R9/4 CIExyY:0.3551/0.3283/0.7866 -9 4 5 10R9/4 CIExyY:0.36/0.3348/0.7866 -9 2 97.5 2.5R9/2 CIExyY:0.322/0.3168/0.7866 -9 2 0 5R9/2 CIExyY:0.324/0.3188/0.7866 -9 2 2.5 7.5R9/2 CIExyY:0.3263/0.321/0.7866 -9 2 5 10R9/2 CIExyY:0.3284/0.3233/0.7866 -9 1 0 5R9/1 CIExyY:0.3148/0.3173/0.7866 -9 1 5 10R9/1 CIExyY:0.3165/0.3188/0.7866 -8 10 97.5 2.5R8/10 CIExyY:0.4125/0.316/0.591 -8 10 0 5R8/10 CIExyY:0.4249/0.327/0.591 -8 10 2.5 7.5R8/10 CIExyY:0.4388/0.3419/0.591 -8 10 5 10R8/10 CIExyY:0.449/0.3589/0.591 -8 8 97.5 2.5R8/8 CIExyY:0.39/0.3171/0.591 -8 8 0 5R8/8 CIExyY:0.4001/0.3263/0.591 -8 8 2.5 7.5R8/8 CIExyY:0.4118/0.3385/0.591 -8 8 5 10R8/8 CIExyY:0.4212/0.3526/0.591 -8 6 97.5 2.5R8/6 CIExyY:0.3671/0.3175/0.591 -8 6 0 5R8/6 CIExyY:0.3743/0.3248/0.591 -8 6 2.5 7.5R8/6 CIExyY:0.383/0.3335/0.591 -8 6 5 10R8/6 CIExyY:0.391/0.3442/0.591 -8 4 97.5 2.5R8/4 CIExyY:0.346/0.3177/0.591 -8 4 0 5R8/4 CIExyY:0.351/0.3224/0.591 -8 4 2.5 7.5R8/4 CIExyY:0.3564/0.3279/0.591 -8 4 5 10R8/4 CIExyY:0.3621/0.3349/0.591 -8 3 97.5 2.5R8/3 CIExyY:0.3343/0.3174/0.591 -8 3 0 5R8/3 CIExyY:0.3377/0.3205/0.591 -8 3 2.5 7.5R8/3 CIExyY:0.3415/0.3244/0.591 -8 3 5 10R8/3 CIExyY:0.3455/0.3292/0.591 -8 2 97.5 2.5R8/2 CIExyY:0.3236/0.3169/0.591 -8 2 0 5R8/2 CIExyY:0.3254/0.3186/0.591 -8 2 2.5 7.5R8/2 CIExyY:0.3277/0.3211/0.591 -8 2 5 10R8/2 CIExyY:0.3301/0.3237/0.591 -8 1 0 5R8/1 CIExyY:0.3157/0.3171/0.591 -8 1 5 10R8/1 CIExyY:0.3177/0.3192/0.591 -7 16 97.5 2.5R7/16 CIExyY:0.4885/0.3039/0.4306 -7 16 2.5 7.5R7/16 CIExyY:0.5341/0.3452/0.4306 -7 16 5 10R7/16 CIExyY:0.5519/0.3729/0.4306 -7 14 97.5 2.5R7/14 CIExyY:0.466/0.3082/0.4306 -7 14 0 5R7/14 CIExyY:0.4848/0.3238/0.4306 -7 14 2.5 7.5R7/14 CIExyY:0.5059/0.345/0.4306 -7 14 5 10R7/14 CIExyY:0.5234/0.37/0.4306 -7 12 97.5 2.5R7/12 CIExyY:0.4435/0.3119/0.4306 -7 12 0 5R7/12 CIExyY:0.4595/0.3252/0.4306 -7 12 2.5 7.5R7/12 CIExyY:0.4777/0.3435/0.4306 -7 12 5 10R7/12 CIExyY:0.493/0.3659/0.4306 -7 10 97.5 2.5R7/10 CIExyY:0.4183/0.3144/0.4306 -7 10 0 5R7/10 CIExyY:0.432/0.326/0.4306 -7 10 2.5 7.5R7/10 CIExyY:0.447/0.3413/0.4306 -7 10 5 10R7/10 CIExyY:0.46/0.3596/0.4306 -7 8 97.5 2.5R7/8 CIExyY:0.3961/0.316/0.4306 -7 8 0 5R7/8 CIExyY:0.4067/0.3256/0.4306 -7 8 2.5 7.5R7/8 CIExyY:0.4196/0.3382/0.4306 -7 8 5 10R7/8 CIExyY:0.4308/0.3533/0.4306 -7 6 97.5 2.5R7/6 CIExyY:0.3728/0.317/0.4306 -7 6 0 5R7/6 CIExyY:0.3805/0.3244/0.4306 -7 6 2.5 7.5R7/6 CIExyY:0.3888/0.3336/0.4306 -7 6 5 10R7/6 CIExyY:0.3984/0.3452/0.4306 -7 4 97.5 2.5R7/4 CIExyY:0.3499/0.3171/0.4306 -7 4 0 5R7/4 CIExyY:0.3552/0.3222/0.4306 -7 4 2.5 7.5R7/4 CIExyY:0.3611/0.3282/0.4306 -7 4 5 10R7/4 CIExyY:0.3671/0.336/0.4306 -7 3 97.5 2.5R7/3 CIExyY:0.3389/0.3171/0.4306 -7 3 0 5R7/3 CIExyY:0.3426/0.3206/0.4306 -7 3 2.5 7.5R7/3 CIExyY:0.347/0.3251/0.4306 -7 3 5 10R7/3 CIExyY:0.3512/0.3306/0.4306 -7 2 97.5 2.5R7/2 CIExyY:0.3284/0.317/0.4306 -7 2 0 5R7/2 CIExyY:0.3306/0.319/0.4306 -7 2 2.5 7.5R7/2 CIExyY:0.3335/0.322/0.4306 -7 2 5 10R7/2 CIExyY:0.336/0.3253/0.4306 -7 1 0 5R7/1 CIExyY:0.3196/0.3175/0.4306 -7 1 5 10R7/1 CIExyY:0.3221/0.3204/0.4306 -6 18 97.5 2.5R6/18 CIExyY:0.5262/0.2928/0.3005 -6 18 0 5R6/18 CIExyY:0.5552/0.3138/0.3005 -6 18 2.5 7.5R6/18 CIExyY:0.5829/0.3396/0.3005 -6 18 5 10R6/18 CIExyY:0.6009/0.372/0.3005 -6 16 97.5 2.5R6/16 CIExyY:0.5041/0.2983/0.3005 -6 16 0 5R6/16 CIExyY:0.5297/0.3179/0.3005 -6 16 2.5 7.5R6/16 CIExyY:0.556/0.342/0.3005 -6 16 5 10R6/16 CIExyY:0.5741/0.3713/0.3005 -6 14 97.5 2.5R6/14 CIExyY:0.479/0.3041/0.3005 -6 14 0 5R6/14 CIExyY:0.502/0.3212/0.3005 -6 14 2.5 7.5R6/14 CIExyY:0.5265/0.3431/0.3005 -6 14 5 10R6/14 CIExyY:0.5468/0.3697/0.3005 -6 12 97.5 2.5R6/12 CIExyY:0.4568/0.3082/0.3005 -6 12 0 5R6/12 CIExyY:0.476/0.3234/0.3005 -6 12 2.5 7.5R6/12 CIExyY:0.4961/0.3428/0.3005 -6 12 5 10R6/12 CIExyY:0.515/0.3667/0.3005 -6 10 97.5 2.5R6/10 CIExyY:0.432/0.3118/0.3005 -6 10 0 5R6/10 CIExyY:0.448/0.325/0.3005 -6 10 2.5 7.5R6/10 CIExyY:0.4655/0.3412/0.3005 -6 10 5 10R6/10 CIExyY:0.4812/0.3619/0.3005 -6 8 97.5 2.5R6/8 CIExyY:0.4065/0.3144/0.3005 -6 8 0 5R6/8 CIExyY:0.4187/0.3251/0.3005 -6 8 2.5 7.5R6/8 CIExyY:0.4318/0.3383/0.3005 -6 8 5 10R6/8 CIExyY:0.4449/0.355/0.3005 -6 6 97.5 2.5R6/6 CIExyY:0.3832/0.3158/0.3005 -6 6 0 5R6/6 CIExyY:0.3921/0.3244/0.3005 -6 6 2.5 7.5R6/6 CIExyY:0.4/0.334/0.3005 -6 6 5 10R6/6 CIExyY:0.4103/0.3473/0.3005 -6 4 97.5 2.5R6/4 CIExyY:0.3566/0.3163/0.3005 -6 4 0 5R6/4 CIExyY:0.3628/0.3221/0.3005 -6 4 2.5 7.5R6/4 CIExyY:0.3692/0.3291/0.3005 -6 4 5 10R6/4 CIExyY:0.3768/0.3381/0.3005 -6 3 97.5 2.5R6/3 CIExyY:0.3439/0.3165/0.3005 -6 3 0 5R6/3 CIExyY:0.3482/0.3206/0.3005 -6 3 2.5 7.5R6/3 CIExyY:0.3535/0.3261/0.3005 -6 3 5 10R6/3 CIExyY:0.3591/0.3325/0.3005 -6 2 97.5 2.5R6/2 CIExyY:0.3318/0.3166/0.3005 -6 2 0 5R6/2 CIExyY:0.3343/0.319/0.3005 -6 2 2.5 7.5R6/2 CIExyY:0.3381/0.3228/0.3005 -6 2 5 10R6/2 CIExyY:0.3417/0.3268/0.3005 -6 1 0 5R6/1 CIExyY:0.3214/0.3175/0.3005 -6 1 5 10R6/1 CIExyY:0.3251/0.3213/0.3005 -5 20 97.5 2.5R5/20 CIExyY:0.5784/0.2719/0.1977 -5 20 0 5R5/20 CIExyY:0.6142/0.297/0.1977 -5 20 2.5 7.5R5/20 CIExyY:0.6388/0.3216/0.1977 -5 18 97.5 2.5R5/18 CIExyY:0.554/0.2804/0.1977 -5 18 0 5R5/18 CIExyY:0.5918/0.3033/0.1977 -5 18 2.5 7.5R5/18 CIExyY:0.6161/0.3277/0.1977 -5 18 5 10R5/18 CIExyY:0.6297/0.3642/0.1977 -5 16 97.5 2.5R5/16 CIExyY:0.53/0.288/0.1977 -5 16 0 5R5/16 CIExyY:0.5637/0.3102/0.1977 -5 16 2.5 7.5R5/16 CIExyY:0.5901/0.3331/0.1977 -5 16 5 10R5/16 CIExyY:0.6037/0.3657/0.1977 -5 14 97.5 2.5R5/14 CIExyY:0.5047/0.295/0.1977 -5 14 0 5R5/14 CIExyY:0.5341/0.3158/0.1977 -5 14 2.5 7.5R5/14 CIExyY:0.559/0.337/0.1977 -5 14 5 10R5/14 CIExyY:0.5771/0.3664/0.1977 -5 12 97.5 2.5R5/12 CIExyY:0.482/0.3002/0.1977 -5 12 0 5R5/12 CIExyY:0.5071/0.3194/0.1977 -5 12 2.5 7.5R5/12 CIExyY:0.528/0.3389/0.1977 -5 12 5 10R5/12 CIExyY:0.5481/0.366/0.1977 -5 10 97.5 2.5R5/10 CIExyY:0.4533/0.3058/0.1977 -5 10 0 5R5/10 CIExyY:0.4747/0.3227/0.1977 -5 10 2.5 7.5R5/10 CIExyY:0.4927/0.3399/0.1977 -5 10 5 10R5/10 CIExyY:0.5113/0.363/0.1977 -5 8 97.5 2.5R5/8 CIExyY:0.4252/0.3101/0.1977 -5 8 0 5R5/8 CIExyY:0.4413/0.324/0.1977 -5 8 2.5 7.5R5/8 CIExyY:0.4563/0.3387/0.1977 -5 8 5 10R5/8 CIExyY:0.4713/0.3575/0.1977 -5 6 97.5 2.5R5/6 CIExyY:0.396/0.313/0.1977 -5 6 0 5R5/6 CIExyY:0.4078/0.3238/0.1977 -5 6 2.5 7.5R5/6 CIExyY:0.418/0.3348/0.1977 -5 6 5 10R5/6 CIExyY:0.4299/0.3499/0.1977 -5 4 97.5 2.5R5/4 CIExyY:0.366/0.3148/0.1977 -5 4 0 5R5/4 CIExyY:0.374/0.322/0.1977 -5 4 2.5 7.5R5/4 CIExyY:0.3806/0.3294/0.1977 -5 4 5 10R5/4 CIExyY:0.3879/0.3398/0.1977 -5 3 97.5 2.5R5/3 CIExyY:0.3507/0.3154/0.1977 -5 3 0 5R5/3 CIExyY:0.3563/0.3207/0.1977 -5 3 2.5 7.5R5/3 CIExyY:0.3612/0.3262/0.1977 -5 3 5 10R5/3 CIExyY:0.3668/0.3339/0.1977 -5 2 97.5 2.5R5/2 CIExyY:0.336/0.3158/0.1977 -5 2 0 5R5/2 CIExyY:0.3392/0.3192/0.1977 -5 2 2.5 7.5R5/2 CIExyY:0.3425/0.3229/0.1977 -5 2 5 10R5/2 CIExyY:0.3465/0.3278/0.1977 -5 1 0 5R5/1 CIExyY:0.3235/0.3177/0.1977 -5 1 5 10R5/1 CIExyY:0.3274/0.3218/0.1977 -4 20 2.5 7.5R4/20 CIExyY:0.6806/0.2988/0.12 -4 18 97.5 2.5R4/18 CIExyY:0.5898/0.2622/0.12 -4 18 0 5R4/18 CIExyY:0.6329/0.2881/0.12 -4 18 2.5 7.5R4/18 CIExyY:0.6538/0.31/0.12 -4 16 97.5 2.5R4/16 CIExyY:0.562/0.2724/0.12 -4 16 0 5R4/16 CIExyY:0.6039/0.2978/0.12 -4 16 2.5 7.5R4/16 CIExyY:0.626/0.3192/0.12 -4 16 5 10R4/16 CIExyY:0.6409/0.3533/0.12 -4 14 97.5 2.5R4/14 CIExyY:0.5369/0.281/0.12 -4 14 0 5R4/14 CIExyY:0.5734/0.3057/0.12 -4 14 2.5 7.5R4/14 CIExyY:0.5959/0.3269/0.12 -4 14 5 10R4/14 CIExyY:0.6154/0.3568/0.12 -4 12 97.5 2.5R4/12 CIExyY:0.5072/0.2897/0.12 -4 12 0 5R4/12 CIExyY:0.5385/0.3129/0.12 -4 12 2.5 7.5R4/12 CIExyY:0.5603/0.3321/0.12 -4 12 5 10R4/12 CIExyY:0.5801/0.3588/0.12 -4 10 97.5 2.5R4/10 CIExyY:0.4774/0.2969/0.12 -4 10 0 5R4/10 CIExyY:0.5043/0.3176/0.12 -4 10 2.5 7.5R4/10 CIExyY:0.5235/0.3351/0.12 -4 10 5 10R4/10 CIExyY:0.5418/0.358/0.12 -4 8 97.5 2.5R4/8 CIExyY:0.4472/0.3031/0.12 -4 8 0 5R4/8 CIExyY:0.469/0.3209/0.12 -4 8 2.5 7.5R4/8 CIExyY:0.485/0.3359/0.12 -4 8 5 10R4/8 CIExyY:0.4995/0.3557/0.12 -4 6 97.5 2.5R4/6 CIExyY:0.4141/0.3085/0.12 -4 6 0 5R4/6 CIExyY:0.4299/0.3226/0.12 -4 6 2.5 7.5R4/6 CIExyY:0.4415/0.334/0.12 -4 6 5 10R4/6 CIExyY:0.4535/0.35/0.12 -4 4 97.5 2.5R4/4 CIExyY:0.3806/0.3125/0.12 -4 4 0 5R4/4 CIExyY:0.3916/0.3223/0.12 -4 4 2.5 7.5R4/4 CIExyY:0.399/0.33/0.12 -4 4 5 10R4/4 CIExyY:0.4078/0.3412/0.12 -4 3 97.5 2.5R4/3 CIExyY:0.3635/0.3139/0.12 -4 3 0 5R4/3 CIExyY:0.3713/0.3214/0.12 -4 3 2.5 7.5R4/3 CIExyY:0.3765/0.327/0.12 -4 3 5 10R4/3 CIExyY:0.3832/0.3356/0.12 -4 2 97.5 2.5R4/2 CIExyY:0.3461/0.315/0.12 -4 2 0 5R4/2 CIExyY:0.3508/0.32/0.12 -4 2 2.5 7.5R4/2 CIExyY:0.3538/0.3236/0.12 -4 2 5 10R4/2 CIExyY:0.3582/0.3294/0.12 -4 1 0 5R4/1 CIExyY:0.3303/0.3183/0.12 -4 1 5 10R4/1 CIExyY:0.3336/0.3229/0.12 -3 16 97.5 2.5R3/16 CIExyY:0.6116/0.2456/0.06555 -3 16 0 5R3/16 CIExyY:0.652/0.266/0.06555 -3 16 2.5 7.5R3/16 CIExyY:0.6817/0.2872/0.06555 -3 14 97.5 2.5R3/14 CIExyY:0.5828/0.2579/0.06555 -3 14 0 5R3/14 CIExyY:0.6204/0.2789/0.06555 -3 14 2.5 7.5R3/14 CIExyY:0.6492/0.3012/0.06555 -3 14 5 10R3/14 CIExyY:0.6703/0.3249/0.06555 -3 12 97.5 2.5R3/12 CIExyY:0.5536/0.2691/0.06555 -3 12 0 5R3/12 CIExyY:0.5884/0.2904/0.06555 -3 12 2.5 7.5R3/12 CIExyY:0.6158/0.3129/0.06555 -3 12 5 10R3/12 CIExyY:0.6322/0.3361/0.06555 -3 10 97.5 2.5R3/10 CIExyY:0.5191/0.2811/0.06555 -3 10 0 5R3/10 CIExyY:0.55/0.3024/0.06555 -3 10 2.5 7.5R3/10 CIExyY:0.573/0.324/0.06555 -3 10 5 10R3/10 CIExyY:0.5871/0.344/0.06555 -3 8 97.5 2.5R3/8 CIExyY:0.4821/0.2918/0.06555 -3 8 0 5R3/8 CIExyY:0.5064/0.3114/0.06555 -3 8 2.5 7.5R3/8 CIExyY:0.5251/0.3297/0.06555 -3 8 5 10R3/8 CIExyY:0.5393/0.3477/0.06555 -3 6 97.5 2.5R3/6 CIExyY:0.4409/0.3009/0.06555 -3 6 0 5R3/6 CIExyY:0.4592/0.3168/0.06555 -3 6 2.5 7.5R3/6 CIExyY:0.4738/0.3316/0.06555 -3 6 5 10R3/6 CIExyY:0.4854/0.3467/0.06555 -3 4 97.5 2.5R3/4 CIExyY:0.4021/0.3076/0.06555 -3 4 0 5R3/4 CIExyY:0.4148/0.319/0.06555 -3 4 2.5 7.5R3/4 CIExyY:0.424/0.3302/0.06555 -3 4 5 10R3/4 CIExyY:0.4308/0.3412/0.06555 -3 3 97.5 2.5R3/3 CIExyY:0.3812/0.3105/0.06555 -3 3 0 5R3/3 CIExyY:0.3903/0.3193/0.06555 -3 3 2.5 7.5R3/3 CIExyY:0.3971/0.3279/0.06555 -3 3 5 10R3/3 CIExyY:0.4023/0.3369/0.06555 -3 2 97.5 2.5R3/2 CIExyY:0.3591/0.313/0.06555 -3 2 0 5R3/2 CIExyY:0.3645/0.319/0.06555 -3 2 2.5 7.5R3/2 CIExyY:0.369/0.3248/0.06555 -3 2 5 10R3/2 CIExyY:0.3728/0.3314/0.06555 -3 1 0 5R3/1 CIExyY:0.3377/0.318/0.06555 -3 1 5 10R3/1 CIExyY:0.3421/0.3246/0.06555 -2 14 97.5 2.5R2/14 CIExyY:0.5734/0.2083/0.03126 -2 14 0 5R2/14 CIExyY:0.6302/0.2287/0.03126 -2 14 2.5 7.5R2/14 CIExyY:0.6791/0.252/0.03126 -2 14 5 10R2/14 CIExyY:0.7165/0.2734/0.03126 -2 12 97.5 2.5R2/12 CIExyY:0.5438/0.2254/0.03126 -2 12 0 5R2/12 CIExyY:0.593/0.2465/0.03126 -2 12 2.5 7.5R2/12 CIExyY:0.6392/0.2704/0.03126 -2 12 5 10R2/12 CIExyY:0.6732/0.2937/0.03126 -2 10 97.5 2.5R2/10 CIExyY:0.5122/0.2428/0.03126 -2 10 0 5R2/10 CIExyY:0.5557/0.2633/0.03126 -2 10 2.5 7.5R2/10 CIExyY:0.5952/0.2874/0.03126 -2 10 5 10R2/10 CIExyY:0.6247/0.312/0.03126 -2 8 97.5 2.5R2/8 CIExyY:0.4776/0.2593/0.03126 -2 8 0 5R2/8 CIExyY:0.5143/0.28/0.03126 -2 8 2.5 7.5R2/8 CIExyY:0.5433/0.3027/0.03126 -2 8 5 10R2/8 CIExyY:0.5713/0.3259/0.03126 -2 6 97.5 2.5R2/6 CIExyY:0.439/0.276/0.03126 -2 6 0 5R2/6 CIExyY:0.4642/0.2934/0.03126 -2 6 2.5 7.5R2/6 CIExyY:0.4875/0.3123/0.03126 -2 6 5 10R2/6 CIExyY:0.5095/0.3331/0.03126 -2 4 97.5 2.5R2/4 CIExyY:0.4021/0.29/0.03126 -2 4 0 5R2/4 CIExyY:0.4184/0.3032/0.03126 -2 4 2.5 7.5R2/4 CIExyY:0.4335/0.3169/0.03126 -2 4 5 10R2/4 CIExyY:0.4481/0.333/0.03126 -2 3 97.5 2.5R2/3 CIExyY:0.3827/0.2967/0.03126 -2 3 0 5R2/3 CIExyY:0.3946/0.3074/0.03126 -2 3 2.5 7.5R2/3 CIExyY:0.405/0.3179/0.03126 -2 3 5 10R2/3 CIExyY:0.4152/0.3309/0.03126 -2 2 97.5 2.5R2/2 CIExyY:0.3614/0.3033/0.03126 -2 2 0 5R2/2 CIExyY:0.3692/0.3111/0.03126 -2 2 2.5 7.5R2/2 CIExyY:0.3751/0.3181/0.03126 -2 2 5 10R2/2 CIExyY:0.3811/0.3274/0.03126 -2 1 0 5R2/1 CIExyY:0.3413/0.3141/0.03126 -2 1 5 10R2/1 CIExyY:0.346/0.3225/0.03126 -1 10 97.5 2.5R1/10 CIExyY:0.5058/0.19/0.0121 -1 10 0 5R1/10 CIExyY:0.5604/0.21/0.0121 -1 10 2.5 7.5R1/10 CIExyY:0.6111/0.229/0.0121 -1 10 5 10R1/10 CIExyY:0.6661/0.2499/0.0121 -1 8 97.5 2.5R1/8 CIExyY:0.4812/0.2103/0.0121 -1 8 0 5R1/8 CIExyY:0.5282/0.2297/0.0121 -1 8 2.5 7.5R1/8 CIExyY:0.5722/0.2487/0.0121 -1 8 5 10R1/8 CIExyY:0.6178/0.2713/0.0121 -1 6 97.5 2.5R1/6 CIExyY:0.4515/0.2329/0.0121 -1 6 0 5R1/6 CIExyY:0.4885/0.2515/0.0121 -1 6 2.5 7.5R1/6 CIExyY:0.5235/0.2698/0.0121 -1 6 5 10R1/6 CIExyY:0.5584/0.2921/0.0121 -1 4 97.5 2.5R1/4 CIExyY:0.4166/0.2569/0.0121 -1 4 0 5R1/4 CIExyY:0.442/0.2728/0.0121 -1 4 2.5 7.5R1/4 CIExyY:0.466/0.2888/0.0121 -1 4 5 10R1/4 CIExyY:0.4933/0.3068/0.0121 -1 2 97.5 2.5R1/2 CIExyY:0.3768/0.2816/0.0121 -1 2 0 5R1/2 CIExyY:0.3908/0.2929/0.0121 -1 2 2.5 7.5R1/2 CIExyY:0.402/0.3034/0.0121 -1 2 5 10R1/2 CIExyY:0.4128/0.3154/0.0121 -9 8 12.5 7.5YR9/8 CIExyY:0.422/0.393/0.7866 -9 8 15 10YR9/8 CIExyY:0.4199/0.4069/0.7866 -9 6 7.5 2.5YR9/6 CIExyY:0.3927/0.355/0.7866 -9 6 10 5YR9/6 CIExyY:0.3948/0.3659/0.7866 -9 6 12.5 7.5YR9/6 CIExyY:0.395/0.3763/0.7866 -9 6 15 10YR9/6 CIExyY:0.3941/0.3877/0.7866 -9 4 7.5 2.5YR9/4 CIExyY:0.3641/0.3422/0.7866 -9 4 10 5YR9/4 CIExyY:0.3668/0.3509/0.7866 -9 4 12.5 7.5YR9/4 CIExyY:0.3679/0.3585/0.7866 -9 4 15 10YR9/4 CIExyY:0.3677/0.3668/0.7866 -9 3 15 10YR9/3 CIExyY:0.3536/0.3553/0.7866 -9 2 7.5 2.5YR9/2 CIExyY:0.332/0.3273/0.7866 -9 2 10 5YR9/2 CIExyY:0.3353/0.3325/0.7866 -9 2 12.5 7.5YR9/2 CIExyY:0.338/0.3377/0.7866 -9 2 15 10YR9/2 CIExyY:0.3392/0.343/0.7866 -9 1 10 5YR9/1 CIExyY:0.3213/0.3238/0.7866 -9 1 15 10YR9/1 CIExyY:0.3246/0.33/0.7866 -8 20 12.5 7.5YR8/20 CIExyY:0.5391/0.4518/0.591 -8 20 15 10YR8/20 CIExyY:0.5245/0.4709/0.591 -8 18 12.5 7.5YR8/18 CIExyY:0.5316/0.448/0.591 -8 18 15 10YR8/18 CIExyY:0.5179/0.467/0.591 -8 16 12.5 7.5YR8/16 CIExyY:0.5195/0.4424/0.591 -8 16 15 10YR8/16 CIExyY:0.5079/0.4613/0.591 -8 14 10 5YR8/14 CIExyY:0.5088/0.4145/0.591 -8 14 12.5 7.5YR8/14 CIExyY:0.5025/0.4338/0.591 -8 14 15 10YR8/14 CIExyY:0.494/0.453/0.591 -8 12 7.5 2.5YR8/12 CIExyY:0.4852/0.3847/0.591 -8 12 10 5YR8/12 CIExyY:0.4849/0.405/0.591 -8 12 12.5 7.5YR8/12 CIExyY:0.4816/0.4232/0.591 -8 12 15 10YR8/12 CIExyY:0.4753/0.4414/0.591 -8 10 7.5 2.5YR8/10 CIExyY:0.4552/0.3761/0.591 -8 10 10 5YR8/10 CIExyY:0.4576/0.3938/0.591 -8 10 12.5 7.5YR8/10 CIExyY:0.4568/0.41/0.591 -8 10 15 10YR8/10 CIExyY:0.4527/0.4268/0.591 -8 8 7.5 2.5YR8/8 CIExyY:0.4275/0.3662/0.591 -8 8 10 5YR8/8 CIExyY:0.431/0.382/0.591 -8 8 12.5 7.5YR8/8 CIExyY:0.4306/0.3952/0.591 -8 8 15 10YR8/8 CIExyY:0.428/0.4102/0.591 -8 6 7.5 2.5YR8/6 CIExyY:0.396/0.3547/0.591 -8 6 10 5YR8/6 CIExyY:0.3988/0.3663/0.591 -8 6 12.5 7.5YR8/6 CIExyY:0.4/0.377/0.591 -8 6 15 10YR8/6 CIExyY:0.3994/0.3896/0.591 -8 4 7.5 2.5YR8/4 CIExyY:0.3667/0.3429/0.591 -8 4 10 5YR8/4 CIExyY:0.369/0.351/0.591 -8 4 12.5 7.5YR8/4 CIExyY:0.3699/0.3586/0.591 -8 4 15 10YR8/4 CIExyY:0.3701/0.3674/0.591 -8 3 7.5 2.5YR8/3 CIExyY:0.3497/0.3352/0.591 -8 3 10 5YR8/3 CIExyY:0.353/0.3421/0.591 -8 3 12.5 7.5YR8/3 CIExyY:0.3547/0.3484/0.591 -8 3 15 10YR8/3 CIExyY:0.3555/0.3557/0.591 -8 2 7.5 2.5YR8/2 CIExyY:0.3334/0.3276/0.591 -8 2 10 5YR8/2 CIExyY:0.3373/0.333/0.591 -8 2 12.5 7.5YR8/2 CIExyY:0.3395/0.3379/0.591 -8 2 15 10YR8/2 CIExyY:0.3407/0.3434/0.591 -8 1 10 5YR8/1 CIExyY:0.3227/0.3242/0.591 -8 1 15 10YR8/1 CIExyY:0.3256/0.3303/0.591 -7 20 7.5 2.5YR7/20 CIExyY:0.5824/0.4046/0.4306 -7 20 10 5YR7/20 CIExyY:0.5657/0.4298/0.4306 -7 18 7.5 2.5YR7/18 CIExyY:0.5695/0.4024/0.4306 -7 18 10 5YR7/18 CIExyY:0.5564/0.4267/0.4306 -7 18 12.5 7.5YR7/18 CIExyY:0.5417/0.4492/0.4306 -7 18 15 10YR7/18 CIExyY:0.5276/0.47/0.4306 -7 16 7.5 2.5YR7/16 CIExyY:0.5522/0.3989/0.4306 -7 16 10 5YR7/16 CIExyY:0.5437/0.4228/0.4306 -7 16 12.5 7.5YR7/16 CIExyY:0.5319/0.4449/0.4306 -7 16 15 10YR7/16 CIExyY:0.5188/0.465/0.4306 -7 14 7.5 2.5YR7/14 CIExyY:0.5297/0.3938/0.4306 -7 14 10 5YR7/14 CIExyY:0.5252/0.4168/0.4306 -7 14 12.5 7.5YR7/14 CIExyY:0.5174/0.4381/0.4306 -7 14 15 10YR7/14 CIExyY:0.5074/0.4581/0.4306 -7 12 7.5 2.5YR7/12 CIExyY:0.5001/0.3861/0.4306 -7 12 10 5YR7/12 CIExyY:0.5007/0.4081/0.4306 -7 12 12.5 7.5YR7/12 CIExyY:0.497/0.4282/0.4306 -7 12 15 10YR7/12 CIExyY:0.49/0.448/0.4306 -7 10 7.5 2.5YR7/10 CIExyY:0.4671/0.3768/0.4306 -7 10 10 5YR7/10 CIExyY:0.4711/0.3972/0.4306 -7 10 12.5 7.5YR7/10 CIExyY:0.4704/0.4151/0.4306 -7 10 15 10YR7/10 CIExyY:0.4667/0.4335/0.4306 -7 8 7.5 2.5YR7/8 CIExyY:0.4371/0.3679/0.4306 -7 8 10 5YR7/8 CIExyY:0.4402/0.3842/0.4306 -7 8 12.5 7.5YR7/8 CIExyY:0.4415/0.3996/0.4306 -7 8 15 10YR7/8 CIExyY:0.4399/0.4164/0.4306 -7 6 7.5 2.5YR7/6 CIExyY:0.4053/0.357/0.4306 -7 6 10 5YR7/6 CIExyY:0.4091/0.3701/0.4306 -7 6 12.5 7.5YR7/6 CIExyY:0.4107/0.382/0.4306 -7 6 15 10YR7/6 CIExyY:0.4102/0.396/0.4306 -7 4 7.5 2.5YR7/4 CIExyY:0.3715/0.3439/0.4306 -7 4 10 5YR7/4 CIExyY:0.375/0.353/0.4306 -7 4 12.5 7.5YR7/4 CIExyY:0.3772/0.3613/0.4306 -7 4 15 10YR7/4 CIExyY:0.3778/0.3719/0.4306 -7 3 7.5 2.5YR7/3 CIExyY:0.3551/0.3369/0.4306 -7 3 10 5YR7/3 CIExyY:0.3584/0.344/0.4306 -7 3 12.5 7.5YR7/3 CIExyY:0.3605/0.3507/0.4306 -7 3 15 10YR7/3 CIExyY:0.3612/0.359/0.4306 -7 2 7.5 2.5YR7/2 CIExyY:0.3392/0.3298/0.4306 -7 2 10 5YR7/2 CIExyY:0.3421/0.3349/0.4306 -7 2 12.5 7.5YR7/2 CIExyY:0.3437/0.3397/0.4306 -7 2 15 10YR7/2 CIExyY:0.3443/0.3454/0.4306 -7 1 10 5YR7/1 CIExyY:0.326/0.3256/0.4306 -7 1 15 10YR7/1 CIExyY:0.3273/0.3312/0.4306 -6 18 7.5 2.5YR6/18 CIExyY:0.5879/0.4021/0.3005 -6 18 10 5YR6/18 CIExyY:0.5715/0.427/0.3005 -6 16 7.5 2.5YR6/16 CIExyY:0.5698/0.399/0.3005 -6 16 10 5YR6/16 CIExyY:0.5597/0.4239/0.3005 -6 16 12.5 7.5YR6/16 CIExyY:0.5468/0.4478/0.3005 -6 14 7.5 2.5YR6/14 CIExyY:0.5488/0.3947/0.3005 -6 14 10 5YR6/14 CIExyY:0.5423/0.4188/0.3005 -6 14 12.5 7.5YR6/14 CIExyY:0.532/0.4412/0.3005 -6 14 15 10YR6/14 CIExyY:0.52/0.4623/0.3005 -6 12 7.5 2.5YR6/12 CIExyY:0.5215/0.3887/0.3005 -6 12 10 5YR6/12 CIExyY:0.5199/0.4119/0.3005 -6 12 12.5 7.5YR6/12 CIExyY:0.5145/0.4331/0.3005 -6 12 15 10YR6/12 CIExyY:0.505/0.4536/0.3005 -6 10 7.5 2.5YR6/10 CIExyY:0.4891/0.3806/0.3005 -6 10 10 5YR6/10 CIExyY:0.4921/0.4022/0.3005 -6 10 12.5 7.5YR6/10 CIExyY:0.4904/0.422/0.3005 -6 10 15 10YR6/10 CIExyY:0.4843/0.4416/0.3005 -6 8 7.5 2.5YR6/8 CIExyY:0.4533/0.3708/0.3005 -6 8 10 5YR6/8 CIExyY:0.4592/0.39/0.3005 -6 8 12.5 7.5YR6/8 CIExyY:0.4596/0.4064/0.3005 -6 8 15 10YR6/8 CIExyY:0.457/0.4249/0.3005 -6 6 7.5 2.5YR6/6 CIExyY:0.418/0.36/0.3005 -6 6 10 5YR6/6 CIExyY:0.4229/0.375/0.3005 -6 6 12.5 7.5YR6/6 CIExyY:0.4242/0.3876/0.3005 -6 6 15 10YR6/6 CIExyY:0.424/0.403/0.3005 -6 4 7.5 2.5YR6/4 CIExyY:0.3806/0.3467/0.3005 -6 4 10 5YR6/4 CIExyY:0.384/0.3564/0.3005 -6 4 12.5 7.5YR6/4 CIExyY:0.386/0.3652/0.3005 -6 4 15 10YR6/4 CIExyY:0.3861/0.3767/0.3005 -6 3 7.5 2.5YR6/3 CIExyY:0.3628/0.3396/0.3005 -6 3 10 5YR6/3 CIExyY:0.3656/0.347/0.3005 -6 3 12.5 7.5YR6/3 CIExyY:0.3674/0.3539/0.3005 -6 3 15 10YR6/3 CIExyY:0.3677/0.3629/0.3005 -6 2 7.5 2.5YR6/2 CIExyY:0.3453/0.3321/0.3005 -6 2 10 5YR6/2 CIExyY:0.3474/0.3373/0.3005 -6 2 12.5 7.5YR6/2 CIExyY:0.3487/0.3421/0.3005 -6 2 15 10YR6/2 CIExyY:0.3491/0.3483/0.3005 -6 1 10 5YR6/1 CIExyY:0.329/0.3271/0.3005 -6 1 15 10YR6/1 CIExyY:0.33/0.3328/0.3005 -5 16 7.5 2.5YR5/16 CIExyY:0.5933/0.3989/0.1977 -5 14 7.5 2.5YR5/14 CIExyY:0.5731/0.3953/0.1977 -5 14 10 5YR5/14 CIExyY:0.5642/0.4201/0.1977 -5 14 12.5 7.5YR5/14 CIExyY:0.5506/0.445/0.1977 -5 12 7.5 2.5YR5/12 CIExyY:0.5482/0.3909/0.1977 -5 12 10 5YR5/12 CIExyY:0.5422/0.4141/0.1977 -5 12 12.5 7.5YR5/12 CIExyY:0.5335/0.4373/0.1977 -5 12 15 10YR5/12 CIExyY:0.5211/0.46/0.1977 -5 10 7.5 2.5YR5/10 CIExyY:0.5175/0.3844/0.1977 -5 10 10 5YR5/10 CIExyY:0.5161/0.4064/0.1977 -5 10 12.5 7.5YR5/10 CIExyY:0.5108/0.4276/0.1977 -5 10 15 10YR5/10 CIExyY:0.5025/0.4489/0.1977 -5 8 7.5 2.5YR5/8 CIExyY:0.4795/0.3758/0.1977 -5 8 10 5YR5/8 CIExyY:0.483/0.396/0.1977 -5 8 12.5 7.5YR5/8 CIExyY:0.482/0.4141/0.1977 -5 8 15 10YR5/8 CIExyY:0.477/0.4338/0.1977 -5 6 7.5 2.5YR5/6 CIExyY:0.4365/0.364/0.1977 -5 6 10 5YR5/6 CIExyY:0.442/0.3808/0.1977 -5 6 12.5 7.5YR5/6 CIExyY:0.444/0.3954/0.1977 -5 6 15 10YR5/6 CIExyY:0.4428/0.4128/0.1977 -5 4 7.5 2.5YR5/4 CIExyY:0.3925/0.3494/0.1977 -5 4 10 5YR5/4 CIExyY:0.3968/0.3614/0.1977 -5 4 12.5 7.5YR5/4 CIExyY:0.3991/0.3714/0.1977 -5 4 15 10YR5/4 CIExyY:0.3995/0.384/0.1977 -5 3 7.5 2.5YR5/3 CIExyY:0.3713/0.3417/0.1977 -5 3 10 5YR5/3 CIExyY:0.3748/0.3507/0.1977 -5 3 12.5 7.5YR5/3 CIExyY:0.3765/0.3582/0.1977 -5 3 15 10YR5/3 CIExyY:0.3771/0.3681/0.1977 -5 2 7.5 2.5YR5/2 CIExyY:0.3506/0.3337/0.1977 -5 2 10 5YR5/2 CIExyY:0.353/0.3395/0.1977 -5 2 12.5 7.5YR5/2 CIExyY:0.354/0.3445/0.1977 -5 2 15 10YR5/2 CIExyY:0.3546/0.3514/0.1977 -5 1 10 5YR5/1 CIExyY:0.3315/0.328/0.1977 -5 1 15 10YR5/1 CIExyY:0.3322/0.3341/0.1977 -4 12 7.5 2.5YR4/12 CIExyY:0.5809/0.391/0.12 -4 12 10 5YR4/12 CIExyY:0.5729/0.4169/0.12 -4 10 7.5 2.5YR4/10 CIExyY:0.5475/0.3856/0.12 -4 10 10 5YR4/10 CIExyY:0.5432/0.4097/0.12 -4 10 12.5 7.5YR4/10 CIExyY:0.5356/0.4342/0.12 -4 10 15 10YR4/10 CIExyY:0.525/0.4573/0.12 -4 8 7.5 2.5YR4/8 CIExyY:0.5071/0.3777/0.12 -4 8 10 5YR4/8 CIExyY:0.507/0.3994/0.12 -4 8 12.5 7.5YR4/8 CIExyY:0.5038/0.4204/0.12 -4 8 15 10YR4/8 CIExyY:0.4965/0.4414/0.12 -4 6 7.5 2.5YR4/6 CIExyY:0.4612/0.3674/0.12 -4 6 10 5YR4/6 CIExyY:0.4651/0.3859/0.12 -4 6 12.5 7.5YR4/6 CIExyY:0.4655/0.4029/0.12 -4 6 15 10YR4/6 CIExyY:0.4618/0.4213/0.12 -4 4 7.5 2.5YR4/4 CIExyY:0.4141/0.3539/0.12 -4 4 10 5YR4/4 CIExyY:0.4187/0.3679/0.12 -4 4 12.5 7.5YR4/4 CIExyY:0.4208/0.3809/0.12 -4 4 15 10YR4/4 CIExyY:0.4189/0.3948/0.12 -4 3 7.5 2.5YR4/3 CIExyY:0.3886/0.3457/0.12 -4 3 10 5YR4/3 CIExyY:0.3924/0.3567/0.12 -4 3 12.5 7.5YR4/3 CIExyY:0.3942/0.3664/0.12 -4 3 15 10YR4/3 CIExyY:0.3933/0.3779/0.12 -4 2 7.5 2.5YR4/2 CIExyY:0.3624/0.3367/0.12 -4 2 10 5YR4/2 CIExyY:0.3651/0.3442/0.12 -4 2 12.5 7.5YR4/2 CIExyY:0.3662/0.3504/0.12 -4 2 15 10YR4/2 CIExyY:0.366/0.359/0.12 -4 1 10 5YR4/1 CIExyY:0.3374/0.3307/0.12 -4 1 15 10YR4/1 CIExyY:0.338/0.3384/0.12 -3 10 7.5 2.5YR3/10 CIExyY:0.5941/0.3818/0.06555 -3 8 7.5 2.5YR3/8 CIExyY:0.5475/0.3771/0.06555 -3 8 10 5YR3/8 CIExyY:0.5456/0.404/0.06555 -3 8 12.5 7.5YR3/8 CIExyY:0.539/0.4306/0.06555 -3 8 15 10YR3/8 CIExyY:0.5305/0.4559/0.06555 -3 6 7.5 2.5YR3/6 CIExyY:0.4954/0.3692/0.06555 -3 6 10 5YR3/6 CIExyY:0.4966/0.3908/0.06555 -3 6 12.5 7.5YR3/6 CIExyY:0.493/0.4116/0.06555 -3 6 15 10YR3/6 CIExyY:0.4872/0.4326/0.06555 -3 4 7.5 2.5YR3/4 CIExyY:0.436/0.3563/0.06555 -3 4 10 5YR3/4 CIExyY:0.4376/0.3715/0.06555 -3 4 12.5 7.5YR3/4 CIExyY:0.4378/0.3865/0.06555 -3 4 15 10YR3/4 CIExyY:0.4341/0.4018/0.06555 -3 3 7.5 2.5YR3/3 CIExyY:0.4062/0.3483/0.06555 -3 3 10 5YR3/3 CIExyY:0.4079/0.3603/0.06555 -3 3 12.5 7.5YR3/3 CIExyY:0.4082/0.3715/0.06555 -3 3 15 10YR3/3 CIExyY:0.4051/0.3834/0.06555 -3 2 7.5 2.5YR3/2 CIExyY:0.3757/0.3391/0.06555 -3 2 10 5YR3/2 CIExyY:0.3771/0.3476/0.06555 -3 2 12.5 7.5YR3/2 CIExyY:0.3771/0.3549/0.06555 -3 2 15 10YR3/2 CIExyY:0.3747/0.363/0.06555 -3 1 10 5YR3/1 CIExyY:0.3447/0.333/0.06555 -3 1 15 10YR3/1 CIExyY:0.343/0.3406/0.06555 -2 8 7.5 2.5YR2/8 CIExyY:0.5995/0.359/0.03126 -2 6 7.5 2.5YR2/6 CIExyY:0.528/0.3581/0.03126 -2 6 10 5YR2/6 CIExyY:0.5426/0.3925/0.03126 -2 6 12.5 7.5YR2/6 CIExyY:0.5475/0.4271/0.03126 -2 4 7.5 2.5YR2/4 CIExyY:0.4598/0.3508/0.03126 -2 4 10 5YR2/4 CIExyY:0.4674/0.3738/0.03126 -2 4 12.5 7.5YR2/4 CIExyY:0.469/0.3964/0.03126 -2 4 15 10YR2/4 CIExyY:0.4676/0.4168/0.03126 -2 3 10 5YR2/3 CIExyY:0.4279/0.3615/0.03126 -2 3 12.5 7.5YR2/3 CIExyY:0.429/0.3785/0.03126 -2 2 7.5 2.5YR2/2 CIExyY:0.3852/0.3365/0.03126 -2 2 10 5YR2/2 CIExyY:0.388/0.3476/0.03126 -2 2 12.5 7.5YR2/2 CIExyY:0.3889/0.359/0.03126 -2 2 15 10YR2/2 CIExyY:0.3872/0.3688/0.03126 -2 1 10 5YR2/1 CIExyY:0.3485/0.3324/0.03126 -2 1 15 10YR2/1 CIExyY:0.3482/0.3431/0.03126 -1 8 7.5 2.5YR1/8 CIExyY:0.6721/0.3058/0.0121 -1 6 7.5 2.5YR1/6 CIExyY:0.6048/0.327/0.0121 -1 4 7.5 2.5YR1/4 CIExyY:0.5311/0.3371/0.0121 -1 4 10 5YR1/4 CIExyY:0.566/0.3795/0.0121 -1 2 7.5 2.5YR1/2 CIExyY:0.4258/0.3344/0.0121 -1 2 10 5YR1/2 CIExyY:0.4377/0.358/0.0121 -1 2 12.5 7.5YR1/2 CIExyY:0.443/0.3775/0.0121 -1 2 15 10YR1/2 CIExyY:0.4446/0.3982/0.0121 -9 20 20 5Y9/20 CIExyY:0.483/0.5092/0.7866 -9 18 20 5Y9/18 CIExyY:0.4782/0.5049/0.7866 -9 18 22.5 7.5Y9/18 CIExyY:0.4663/0.5188/0.7866 -9 18 25 10Y9/18 CIExyY:0.454/0.532/0.7866 -9 16 20 5Y9/16 CIExyY:0.4711/0.4977/0.7866 -9 16 22.5 7.5Y9/16 CIExyY:0.4595/0.5104/0.7866 -9 16 25 10Y9/16 CIExyY:0.4477/0.5225/0.7866 -9 14 20 5Y9/14 CIExyY:0.4602/0.4869/0.7866 -9 14 22.5 7.5Y9/14 CIExyY:0.4503/0.4993/0.7866 -9 14 25 10Y9/14 CIExyY:0.4393/0.5101/0.7866 -9 12 17.5 2.5Y9/12 CIExyY:0.4569/0.4527/0.7866 -9 12 20 5Y9/12 CIExyY:0.4455/0.4719/0.7866 -9 12 22.5 7.5Y9/12 CIExyY:0.4369/0.4829/0.7866 -9 12 25 10Y9/12 CIExyY:0.4271/0.492/0.7866 -9 10 17.5 2.5Y9/10 CIExyY:0.437/0.4369/0.7866 -9 10 20 5Y9/10 CIExyY:0.4275/0.4529/0.7866 -9 10 22.5 7.5Y9/10 CIExyY:0.4201/0.4622/0.7866 -9 10 25 10Y9/10 CIExyY:0.412/0.4694/0.7866 -9 8 17.5 2.5Y9/8 CIExyY:0.4154/0.4186/0.7866 -9 8 20 5Y9/8 CIExyY:0.408/0.4319/0.7866 -9 8 22.5 7.5Y9/8 CIExyY:0.4019/0.4392/0.7866 -9 8 25 10Y9/8 CIExyY:0.3957/0.445/0.7866 -9 6 17.5 2.5Y9/6 CIExyY:0.391/0.3972/0.7866 -9 6 20 5Y9/6 CIExyY:0.3858/0.4071/0.7866 -9 6 22.5 7.5Y9/6 CIExyY:0.3811/0.4123/0.7866 -9 6 25 10Y9/6 CIExyY:0.3761/0.4155/0.7866 -9 4 17.5 2.5Y9/4 CIExyY:0.3655/0.3738/0.7866 -9 4 20 5Y9/4 CIExyY:0.3621/0.3799/0.7866 -9 4 22.5 7.5Y9/4 CIExyY:0.3591/0.3832/0.7866 -9 4 25 10Y9/4 CIExyY:0.3558/0.3852/0.7866 -9 3 17.5 2.5Y9/3 CIExyY:0.3525/0.361/0.7866 -9 3 20 5Y9/3 CIExyY:0.3502/0.3656/0.7866 -9 3 22.5 7.5Y9/3 CIExyY:0.3481/0.3684/0.7866 -9 3 25 10Y9/3 CIExyY:0.3456/0.3699/0.7866 -9 2 17.5 2.5Y9/2 CIExyY:0.339/0.3472/0.7866 -9 2 20 5Y9/2 CIExyY:0.3378/0.3504/0.7866 -9 2 22.5 7.5Y9/2 CIExyY:0.3365/0.3527/0.7866 -9 2 25 10Y9/2 CIExyY:0.3349/0.3537/0.7866 -9 1 20 5Y9/1 CIExyY:0.3245/0.3341/0.7866 -9 1 25 10Y9/1 CIExyY:0.3232/0.336/0.7866 -8 20 17.5 2.5Y8/20 CIExyY:0.5091/0.49/0.591 -8 18 17.5 2.5Y8/18 CIExyY:0.5033/0.4855/0.591 -8 18 20 5Y8/18 CIExyY:0.4847/0.5069/0.591 -8 18 22.5 7.5Y8/18 CIExyY:0.4709/0.522/0.591 -8 18 25 10Y8/18 CIExyY:0.457/0.5366/0.591 -8 16 17.5 2.5Y8/16 CIExyY:0.4957/0.48/0.591 -8 16 20 5Y8/16 CIExyY:0.4791/0.5012/0.591 -8 16 22.5 7.5Y8/16 CIExyY:0.4658/0.5158/0.591 -8 16 25 10Y8/16 CIExyY:0.4525/0.5295/0.591 -8 14 17.5 2.5Y8/14 CIExyY:0.4842/0.4712/0.591 -8 14 20 5Y8/14 CIExyY:0.4699/0.492/0.591 -8 14 22.5 7.5Y8/14 CIExyY:0.4574/0.5062/0.591 -8 14 25 10Y8/14 CIExyY:0.445/0.5181/0.591 -8 12 17.5 2.5Y8/12 CIExyY:0.4678/0.4589/0.591 -8 12 20 5Y8/12 CIExyY:0.4562/0.4788/0.591 -8 12 22.5 7.5Y8/12 CIExyY:0.4455/0.4917/0.591 -8 12 25 10Y8/12 CIExyY:0.4341/0.502/0.591 -8 10 17.5 2.5Y8/10 CIExyY:0.4469/0.4423/0.591 -8 10 20 5Y8/10 CIExyY:0.4376/0.4601/0.591 -8 10 22.5 7.5Y8/10 CIExyY:0.4283/0.4712/0.591 -8 10 25 10Y8/10 CIExyY:0.419/0.4791/0.591 -8 8 17.5 2.5Y8/8 CIExyY:0.4231/0.4231/0.591 -8 8 20 5Y8/8 CIExyY:0.4158/0.4378/0.591 -8 8 22.5 7.5Y8/8 CIExyY:0.4088/0.4466/0.591 -8 8 25 10Y8/8 CIExyY:0.4008/0.452/0.591 -8 6 17.5 2.5Y8/6 CIExyY:0.3969/0.4009/0.591 -8 6 20 5Y8/6 CIExyY:0.3913/0.4117/0.591 -8 6 22.5 7.5Y8/6 CIExyY:0.3862/0.4175/0.591 -8 6 25 10Y8/6 CIExyY:0.3803/0.4216/0.591 -8 4 17.5 2.5Y8/4 CIExyY:0.3684/0.3751/0.591 -8 4 20 5Y8/4 CIExyY:0.365/0.3826/0.591 -8 4 22.5 7.5Y8/4 CIExyY:0.3622/0.3861/0.591 -8 4 25 10Y8/4 CIExyY:0.3581/0.3883/0.591 -8 3 17.5 2.5Y8/3 CIExyY:0.3546/0.3621/0.591 -8 3 20 5Y8/3 CIExyY:0.3524/0.3676/0.591 -8 3 22.5 7.5Y8/3 CIExyY:0.3503/0.3704/0.591 -8 3 25 10Y8/3 CIExyY:0.3472/0.3721/0.591 -8 2 17.5 2.5Y8/2 CIExyY:0.3406/0.3484/0.591 -8 2 20 5Y8/2 CIExyY:0.3394/0.3518/0.591 -8 2 22.5 7.5Y8/2 CIExyY:0.3379/0.354/0.591 -8 2 25 10Y8/2 CIExyY:0.3359/0.3552/0.591 -8 1 20 5Y8/1 CIExyY:0.3255/0.3348/0.591 -8 1 25 10Y8/1 CIExyY:0.3237/0.3369/0.591 -7 16 17.5 2.5Y7/16 CIExyY:0.5049/0.4843/0.4306 -7 16 20 5Y7/16 CIExyY:0.4875/0.5047/0.4306 -7 16 22.5 7.5Y7/16 CIExyY:0.4728/0.5215/0.4306 -7 16 25 10Y7/16 CIExyY:0.4582/0.5375/0.4306 -7 14 17.5 2.5Y7/14 CIExyY:0.495/0.4773/0.4306 -7 14 20 5Y7/14 CIExyY:0.4791/0.4965/0.4306 -7 14 22.5 7.5Y7/14 CIExyY:0.4652/0.5128/0.4306 -7 14 25 10Y7/14 CIExyY:0.4516/0.5277/0.4306 -7 12 17.5 2.5Y7/12 CIExyY:0.4806/0.4666/0.4306 -7 12 20 5Y7/12 CIExyY:0.4677/0.4857/0.4306 -7 12 22.5 7.5Y7/12 CIExyY:0.4547/0.5005/0.4306 -7 12 25 10Y7/12 CIExyY:0.442/0.5131/0.4306 -7 10 17.5 2.5Y7/10 CIExyY:0.4606/0.4516/0.4306 -7 10 20 5Y7/10 CIExyY:0.4509/0.4696/0.4306 -7 10 22.5 7.5Y7/10 CIExyY:0.44/0.483/0.4306 -7 10 25 10Y7/10 CIExyY:0.4289/0.4937/0.4306 -7 8 17.5 2.5Y7/8 CIExyY:0.4353/0.4312/0.4306 -7 8 20 5Y7/8 CIExyY:0.4271/0.4462/0.4306 -7 8 22.5 7.5Y7/8 CIExyY:0.4184/0.4568/0.4306 -7 8 25 10Y7/8 CIExyY:0.409/0.4641/0.4306 -7 6 17.5 2.5Y7/6 CIExyY:0.4073/0.4073/0.4306 -7 6 20 5Y7/6 CIExyY:0.4009/0.4198/0.4306 -7 6 22.5 7.5Y7/6 CIExyY:0.3943/0.4264/0.4306 -7 6 25 10Y7/6 CIExyY:0.3864/0.4305/0.4306 -7 4 17.5 2.5Y7/4 CIExyY:0.3761/0.38/0.4306 -7 4 20 5Y7/4 CIExyY:0.3718/0.3885/0.4306 -7 4 22.5 7.5Y7/4 CIExyY:0.3677/0.3925/0.4306 -7 4 25 10Y7/4 CIExyY:0.3624/0.3951/0.4306 -7 3 17.5 2.5Y7/3 CIExyY:0.36/0.3658/0.4306 -7 3 20 5Y7/3 CIExyY:0.357/0.3717/0.4306 -7 3 22.5 7.5Y7/3 CIExyY:0.3538/0.3745/0.4306 -7 3 25 10Y7/3 CIExyY:0.3498/0.3763/0.4306 -7 2 17.5 2.5Y7/2 CIExyY:0.3436/0.3507/0.4306 -7 2 20 5Y7/2 CIExyY:0.3419/0.354/0.4306 -7 2 22.5 7.5Y7/2 CIExyY:0.3396/0.3558/0.4306 -7 2 25 10Y7/2 CIExyY:0.3369/0.3569/0.4306 -7 1 20 5Y7/1 CIExyY:0.3263/0.3356/0.4306 -7 1 25 10Y7/1 CIExyY:0.3237/0.3369/0.4306 -6 14 17.5 2.5Y6/14 CIExyY:0.5061/0.4829/0.3005 -6 14 20 5Y6/14 CIExyY:0.4905/0.5038/0.3005 -6 14 22.5 7.5Y6/14 CIExyY:0.4754/0.522/0.3005 -6 14 25 10Y6/14 CIExyY:0.4593/0.5392/0.3005 -6 12 17.5 2.5Y6/12 CIExyY:0.4928/0.473/0.3005 -6 12 20 5Y6/12 CIExyY:0.478/0.492/0.3005 -6 12 22.5 7.5Y6/12 CIExyY:0.4638/0.5087/0.3005 -6 12 25 10Y6/12 CIExyY:0.4488/0.5237/0.3005 -6 10 17.5 2.5Y6/10 CIExyY:0.476/0.4607/0.3005 -6 10 20 5Y6/10 CIExyY:0.4639/0.479/0.3005 -6 10 22.5 7.5Y6/10 CIExyY:0.4512/0.4943/0.3005 -6 10 25 10Y6/10 CIExyY:0.4372/0.5068/0.3005 -6 8 17.5 2.5Y6/8 CIExyY:0.4517/0.4421/0.3005 -6 8 20 5Y6/8 CIExyY:0.4426/0.4588/0.3005 -6 8 22.5 7.5Y6/8 CIExyY:0.4321/0.4719/0.3005 -6 8 25 10Y6/8 CIExyY:0.4201/0.4812/0.3005 -6 6 17.5 2.5Y6/6 CIExyY:0.4203/0.4176/0.3005 -6 6 20 5Y6/6 CIExyY:0.414/0.4305/0.3005 -6 6 22.5 7.5Y6/6 CIExyY:0.406/0.44/0.3005 -6 6 25 10Y6/6 CIExyY:0.396/0.4452/0.3005 -6 4 17.5 2.5Y6/4 CIExyY:0.384/0.3867/0.3005 -6 4 20 5Y6/4 CIExyY:0.3794/0.3955/0.3005 -6 4 22.5 7.5Y6/4 CIExyY:0.3745/0.4004/0.3005 -6 4 25 10Y6/4 CIExyY:0.3679/0.4033/0.3005 -6 3 17.5 2.5Y6/3 CIExyY:0.3661/0.3708/0.3005 -6 3 20 5Y6/3 CIExyY:0.3626/0.3772/0.3005 -6 3 22.5 7.5Y6/3 CIExyY:0.3589/0.3805/0.3005 -6 3 25 10Y6/3 CIExyY:0.354/0.3824/0.3005 -6 2 17.5 2.5Y6/2 CIExyY:0.348/0.354/0.3005 -6 2 20 5Y6/2 CIExyY:0.3457/0.358/0.3005 -6 2 22.5 7.5Y6/2 CIExyY:0.3431/0.3601/0.3005 -6 2 25 10Y6/2 CIExyY:0.3398/0.3611/0.3005 -6 1 20 5Y6/1 CIExyY:0.3283/0.3378/0.3005 -6 1 25 10Y6/1 CIExyY:0.3252/0.3392/0.3005 -5 12 17.5 2.5Y5/12 CIExyY:0.5082/0.4812/0.1977 -5 12 20 5Y5/12 CIExyY:0.4931/0.5019/0.1977 -5 12 22.5 7.5Y5/12 CIExyY:0.4767/0.5208/0.1977 -5 12 25 10Y5/12 CIExyY:0.459/0.539/0.1977 -5 10 17.5 2.5Y5/10 CIExyY:0.4905/0.4683/0.1977 -5 10 20 5Y5/10 CIExyY:0.4777/0.4876/0.1977 -5 10 22.5 7.5Y5/10 CIExyY:0.4632/0.5057/0.1977 -5 10 25 10Y5/10 CIExyY:0.4468/0.5209/0.1977 -5 8 17.5 2.5Y5/8 CIExyY:0.4685/0.4524/0.1977 -5 8 20 5Y5/8 CIExyY:0.4579/0.4692/0.1977 -5 8 22.5 7.5Y5/8 CIExyY:0.445/0.485/0.1977 -5 8 25 10Y5/8 CIExyY:0.4307/0.4967/0.1977 -5 6 17.5 2.5Y5/6 CIExyY:0.438/0.4292/0.1977 -5 6 20 5Y5/6 CIExyY:0.4302/0.4435/0.1977 -5 6 22.5 7.5Y5/6 CIExyY:0.4199/0.4551/0.1977 -5 6 25 10Y5/6 CIExyY:0.4072/0.4621/0.1977 -5 4 17.5 2.5Y5/4 CIExyY:0.3968/0.3954/0.1977 -5 4 20 5Y5/4 CIExyY:0.3915/0.4057/0.1977 -5 4 22.5 7.5Y5/4 CIExyY:0.385/0.412/0.1977 -5 4 25 10Y5/4 CIExyY:0.3762/0.4158/0.1977 -5 3 17.5 2.5Y5/3 CIExyY:0.3752/0.3766/0.1977 -5 3 20 5Y5/3 CIExyY:0.3708/0.3843/0.1977 -5 3 22.5 7.5Y5/3 CIExyY:0.3661/0.3883/0.1977 -5 3 25 10Y5/3 CIExyY:0.3593/0.3904/0.1977 -5 2 17.5 2.5Y5/2 CIExyY:0.3534/0.357/0.1977 -5 2 20 5Y5/2 CIExyY:0.35/0.362/0.1977 -5 2 22.5 7.5Y5/2 CIExyY:0.347/0.364/0.1977 -5 2 25 10Y5/2 CIExyY:0.3422/0.3648/0.1977 -5 1 20 5Y5/1 CIExyY:0.3296/0.3392/0.1977 -5 1 25 10Y5/1 CIExyY:0.3256/0.3398/0.1977 -4 10 17.5 2.5Y4/10 CIExyY:0.512/0.48/0.12 -4 8 17.5 2.5Y4/8 CIExyY:0.4865/0.4625/0.12 -4 8 20 5Y4/8 CIExyY:0.4745/0.481/0.12 -4 8 22.5 7.5Y4/8 CIExyY:0.4595/0.499/0.12 -4 8 25 10Y4/8 CIExyY:0.443/0.5153/0.12 -4 6 17.5 2.5Y4/6 CIExyY:0.4542/0.4391/0.12 -4 6 20 5Y4/6 CIExyY:0.4451/0.455/0.12 -4 6 22.5 7.5Y4/6 CIExyY:0.4331/0.4688/0.12 -4 6 25 10Y4/6 CIExyY:0.419/0.4795/0.12 -4 4 17.5 2.5Y4/4 CIExyY:0.4138/0.4076/0.12 -4 4 20 5Y4/4 CIExyY:0.4069/0.4188/0.12 -4 4 22.5 7.5Y4/4 CIExyY:0.3982/0.4272/0.12 -4 4 25 10Y4/4 CIExyY:0.3871/0.4321/0.12 -4 3 17.5 2.5Y4/3 CIExyY:0.3893/0.3876/0.12 -4 3 20 5Y4/3 CIExyY:0.3836/0.3955/0.12 -4 3 22.5 7.5Y4/3 CIExyY:0.3768/0.4009/0.12 -4 3 25 10Y4/3 CIExyY:0.3677/0.4032/0.12 -4 2 17.5 2.5Y4/2 CIExyY:0.3633/0.3654/0.12 -4 2 20 5Y4/2 CIExyY:0.359/0.3701/0.12 -4 2 22.5 7.5Y4/2 CIExyY:0.3542/0.3727/0.12 -4 2 25 10Y4/2 CIExyY:0.3476/0.3731/0.12 -4 1 20 5Y4/1 CIExyY:0.3341/0.3434/0.12 -4 1 25 10Y4/1 CIExyY:0.328/0.3437/0.12 -3 6 17.5 2.5Y3/6 CIExyY:0.4784/0.4531/0.06555 -3 6 20 5Y3/6 CIExyY:0.467/0.4711/0.06555 -3 6 22.5 7.5Y3/6 CIExyY:0.4526/0.4889/0.06555 -3 6 25 10Y3/6 CIExyY:0.4345/0.5026/0.06555 -3 4 17.5 2.5Y3/4 CIExyY:0.4277/0.4166/0.06555 -3 4 20 5Y3/4 CIExyY:0.4191/0.4283/0.06555 -3 4 22.5 7.5Y3/4 CIExyY:0.4086/0.4379/0.06555 -3 4 25 10Y3/4 CIExyY:0.3961/0.4452/0.06555 -3 3 17.5 2.5Y3/3 CIExyY:0.3996/0.3944/0.06555 -3 3 20 5Y3/3 CIExyY:0.3923/0.4025/0.06555 -3 3 22.5 7.5Y3/3 CIExyY:0.3841/0.4085/0.06555 -3 3 25 10Y3/3 CIExyY:0.3739/0.4124/0.06555 -3 2 17.5 2.5Y3/2 CIExyY:0.3703/0.37/0.06555 -3 2 20 5Y3/2 CIExyY:0.3646/0.3748/0.06555 -3 2 22.5 7.5Y3/2 CIExyY:0.3589/0.3778/0.06555 -3 2 25 10Y3/2 CIExyY:0.3513/0.3789/0.06555 -3 1 20 5Y3/1 CIExyY:0.3369/0.3458/0.06555 -3 1 25 10Y3/1 CIExyY:0.3296/0.3464/0.06555 -2 4 17.5 2.5Y2/4 CIExyY:0.4627/0.4392/0.03126 -2 4 20 5Y2/4 CIExyY:0.4543/0.4573/0.03126 -2 4 22.5 7.5Y2/4 CIExyY:0.4401/0.4723/0.03126 -2 4 25 10Y2/4 CIExyY:0.4188/0.4789/0.03126 -2 2 17.5 2.5Y2/2 CIExyY:0.3825/0.3785/0.03126 -2 2 20 5Y2/2 CIExyY:0.3757/0.3839/0.03126 -2 2 22.5 7.5Y2/2 CIExyY:0.366/0.3858/0.03126 -2 2 25 10Y2/2 CIExyY:0.3556/0.3848/0.03126 -2 1 20 5Y2/1 CIExyY:0.3413/0.3494/0.03126 -2 1 25 10Y2/1 CIExyY:0.3306/0.3474/0.03126 -1 2 17.5 2.5Y1/2 CIExyY:0.4362/0.4177/0.0121 -1 2 20 5Y1/2 CIExyY:0.423/0.4265/0.0121 -1 2 22.5 7.5Y1/2 CIExyY:0.4042/0.4287/0.0121 -1 2 25 10Y1/2 CIExyY:0.3802/0.4212/0.0121 -9 18 27.5 2.5GY9/18 CIExyY:0.4354/0.5508/0.7866 -9 18 30 5GY9/18 CIExyY:0.4108/0.5699/0.7866 -9 18 32.5 7.5GY9/18 CIExyY:0.3602/0.592/0.7866 -9 18 35 10GY9/18 CIExyY:0.3032/0.5748/0.7866 -9 16 27.5 2.5GY9/16 CIExyY:0.4288/0.5383/0.7866 -9 16 30 5GY9/16 CIExyY:0.4058/0.5541/0.7866 -9 16 32.5 7.5GY9/16 CIExyY:0.3581/0.5654/0.7866 -9 16 35 10GY9/16 CIExyY:0.3079/0.544/0.7866 -9 14 27.5 2.5GY9/14 CIExyY:0.4212/0.5237/0.7866 -9 14 30 5GY9/14 CIExyY:0.3993/0.5329/0.7866 -9 14 32.5 7.5GY9/14 CIExyY:0.3551/0.5339/0.7866 -9 14 35 10GY9/14 CIExyY:0.3115/0.5129/0.7866 -9 12 27.5 2.5GY9/12 CIExyY:0.4108/0.5028/0.7866 -9 12 30 5GY9/12 CIExyY:0.3911/0.5082/0.7866 -9 12 32.5 7.5GY9/12 CIExyY:0.3518/0.5042/0.7866 -9 12 35 10GY9/12 CIExyY:0.3139/0.4829/0.7866 -9 10 27.5 2.5GY9/10 CIExyY:0.3973/0.4761/0.7866 -9 10 30 5GY9/10 CIExyY:0.381/0.4791/0.7866 -9 10 32.5 7.5GY9/10 CIExyY:0.3471/0.4735/0.7866 -9 10 35 10GY9/10 CIExyY:0.3155/0.4558/0.7866 -9 8 27.5 2.5GY9/8 CIExyY:0.3834/0.449/0.7866 -9 8 30 5GY9/8 CIExyY:0.3698/0.4497/0.7866 -9 8 32.5 7.5GY9/8 CIExyY:0.3414/0.4415/0.7866 -9 8 35 10GY9/8 CIExyY:0.3157/0.4259/0.7866 -9 6 27.5 2.5GY9/6 CIExyY:0.367/0.4178/0.7866 -9 6 30 5GY9/6 CIExyY:0.3572/0.4179/0.7866 -9 6 32.5 7.5GY9/6 CIExyY:0.3351/0.4111/0.7866 -9 6 35 10GY9/6 CIExyY:0.3153/0.4008/0.7866 -9 4 27.5 2.5GY9/4 CIExyY:0.3499/0.3866/0.7866 -9 4 30 5GY9/4 CIExyY:0.3437/0.3861/0.7866 -9 4 32.5 7.5GY9/4 CIExyY:0.3274/0.3791/0.7866 -9 4 35 10GY9/4 CIExyY:0.3144/0.3711/0.7866 -9 3 27.5 2.5GY9/3 CIExyY:0.3413/0.3707/0.7866 -9 3 30 5GY9/3 CIExyY:0.3364/0.3701/0.7866 -9 3 32.5 7.5GY9/3 CIExyY:0.3237/0.3648/0.7866 -9 3 35 10GY9/3 CIExyY:0.3135/0.3582/0.7866 -9 2 27.5 2.5GY9/2 CIExyY:0.3321/0.3539/0.7866 -9 2 30 5GY9/2 CIExyY:0.3284/0.3534/0.7866 -9 2 32.5 7.5GY9/2 CIExyY:0.3193/0.35/0.7866 -9 2 35 10GY9/2 CIExyY:0.3124/0.3454/0.7866 -9 1 30 5GY9/1 CIExyY:0.3197/0.3356/0.7866 -9 1 35 10GY9/1 CIExyY:0.3112/0.3317/0.7866 -8 24 35 10GY8/24 CIExyY:0.2781/0.684/0.591 -8 22 35 10GY8/22 CIExyY:0.2846/0.6564/0.591 -8 20 30 5GY8/20 CIExyY:0.4127/0.5855/0.591 -8 20 32.5 7.5GY8/20 CIExyY:0.3592/0.6235/0.591 -8 20 35 10GY8/20 CIExyY:0.2918/0.6255/0.591 -8 18 27.5 2.5GY8/18 CIExyY:0.4371/0.5557/0.591 -8 18 30 5GY8/18 CIExyY:0.4104/0.5785/0.591 -8 18 32.5 7.5GY8/18 CIExyY:0.3585/0.6063/0.591 -8 18 35 10GY8/18 CIExyY:0.2987/0.5919/0.591 -8 16 27.5 2.5GY8/16 CIExyY:0.4327/0.5475/0.591 -8 16 30 5GY8/16 CIExyY:0.4061/0.5641/0.591 -8 16 32.5 7.5GY8/16 CIExyY:0.3569/0.5798/0.591 -8 16 35 10GY8/16 CIExyY:0.3043/0.5578/0.591 -8 14 27.5 2.5GY8/14 CIExyY:0.4261/0.5344/0.591 -8 14 30 5GY8/14 CIExyY:0.4011/0.5468/0.591 -8 14 32.5 7.5GY8/14 CIExyY:0.3546/0.549/0.591 -8 14 35 10GY8/14 CIExyY:0.3091/0.5247/0.591 -8 12 27.5 2.5GY8/12 CIExyY:0.4154/0.5133/0.591 -8 12 30 5GY8/12 CIExyY:0.3924/0.5199/0.591 -8 12 32.5 7.5GY8/12 CIExyY:0.3511/0.5144/0.591 -8 12 35 10GY8/12 CIExyY:0.3124/0.4926/0.591 -8 10 27.5 2.5GY8/10 CIExyY:0.4021/0.4869/0.591 -8 10 30 5GY8/10 CIExyY:0.3816/0.4879/0.591 -8 10 32.5 7.5GY8/10 CIExyY:0.3463/0.4791/0.591 -8 10 35 10GY8/10 CIExyY:0.314/0.4601/0.591 -8 8 27.5 2.5GY8/8 CIExyY:0.3858/0.455/0.591 -8 8 30 5GY8/8 CIExyY:0.3696/0.4542/0.591 -8 8 32.5 7.5GY8/8 CIExyY:0.3408/0.4452/0.591 -8 8 35 10GY8/8 CIExyY:0.3149/0.4284/0.591 -8 6 27.5 2.5GY8/6 CIExyY:0.369/0.423/0.591 -8 6 30 5GY8/6 CIExyY:0.3573/0.4214/0.591 -8 6 32.5 7.5GY8/6 CIExyY:0.3339/0.4129/0.591 -8 6 35 10GY8/6 CIExyY:0.315/0.4014/0.591 -8 4 27.5 2.5GY8/4 CIExyY:0.3504/0.3887/0.591 -8 4 30 5GY8/4 CIExyY:0.3433/0.3872/0.591 -8 4 32.5 7.5GY8/4 CIExyY:0.3266/0.3809/0.591 -8 4 35 10GY8/4 CIExyY:0.314/0.3727/0.591 -8 3 27.5 2.5GY8/3 CIExyY:0.3418/0.3724/0.591 -8 3 30 5GY8/3 CIExyY:0.3361/0.3709/0.591 -8 3 32.5 7.5GY8/3 CIExyY:0.3231/0.3657/0.591 -8 3 35 10GY8/3 CIExyY:0.3131/0.3594/0.591 -8 2 27.5 2.5GY8/2 CIExyY:0.3327/0.3555/0.591 -8 2 30 5GY8/2 CIExyY:0.3284/0.3542/0.591 -8 2 32.5 7.5GY8/2 CIExyY:0.3194/0.3502/0.591 -8 2 35 10GY8/2 CIExyY:0.3121/0.3459/0.591 -8 1 30 5GY8/1 CIExyY:0.3193/0.3362/0.591 -8 1 35 10GY8/1 CIExyY:0.3111/0.3317/0.591 -7 22 35 10GY7/22 CIExyY:0.2728/0.6893/0.4306 -7 20 35 10GY7/20 CIExyY:0.2816/0.6563/0.4306 -7 18 32.5 7.5GY7/18 CIExyY:0.3555/0.6242/0.4306 -7 18 35 10GY7/18 CIExyY:0.2905/0.6186/0.4306 -7 16 27.5 2.5GY7/16 CIExyY:0.4366/0.5573/0.4306 -7 16 30 5GY7/16 CIExyY:0.4076/0.5783/0.4306 -7 16 32.5 7.5GY7/16 CIExyY:0.3549/0.6/0.4306 -7 16 35 10GY7/16 CIExyY:0.2981/0.5835/0.4306 -7 14 27.5 2.5GY7/14 CIExyY:0.4309/0.5459/0.4306 -7 14 30 5GY7/14 CIExyY:0.4027/0.5615/0.4306 -7 14 32.5 7.5GY7/14 CIExyY:0.3532/0.57/0.4306 -7 14 35 10GY7/14 CIExyY:0.3047/0.5458/0.4306 -7 12 27.5 2.5GY7/12 CIExyY:0.4213/0.527/0.4306 -7 12 30 5GY7/12 CIExyY:0.3949/0.5367/0.4306 -7 12 32.5 7.5GY7/12 CIExyY:0.3502/0.5328/0.4306 -7 12 35 10GY7/12 CIExyY:0.3092/0.5095/0.4306 -7 10 27.5 2.5GY7/10 CIExyY:0.4091/0.503/0.4306 -7 10 30 5GY7/10 CIExyY:0.3852/0.5051/0.4306 -7 10 32.5 7.5GY7/10 CIExyY:0.3461/0.495/0.4306 -7 10 35 10GY7/10 CIExyY:0.3123/0.4732/0.4306 -7 8 27.5 2.5GY7/8 CIExyY:0.3919/0.4681/0.4306 -7 8 30 5GY7/8 CIExyY:0.3722/0.4669/0.4306 -7 8 32.5 7.5GY7/8 CIExyY:0.3406/0.4558/0.4306 -7 8 35 10GY7/8 CIExyY:0.314/0.4387/0.4306 -7 6 27.5 2.5GY7/6 CIExyY:0.3728/0.4316/0.4306 -7 6 30 5GY7/6 CIExyY:0.3581/0.4291/0.4306 -7 6 32.5 7.5GY7/6 CIExyY:0.3341/0.4191/0.4306 -7 6 35 10GY7/6 CIExyY:0.3142/0.4058/0.4306 -7 4 27.5 2.5GY7/4 CIExyY:0.3534/0.3953/0.4306 -7 4 30 5GY7/4 CIExyY:0.3437/0.3929/0.4306 -7 4 32.5 7.5GY7/4 CIExyY:0.3267/0.3848/0.4306 -7 4 35 10GY7/4 CIExyY:0.3133/0.3764/0.4306 -7 3 27.5 2.5GY7/3 CIExyY:0.3433/0.3764/0.4306 -7 3 30 5GY7/3 CIExyY:0.3363/0.3746/0.4306 -7 3 32.5 7.5GY7/3 CIExyY:0.3229/0.3683/0.4306 -7 3 35 10GY7/3 CIExyY:0.3125/0.3617/0.4306 -7 2 27.5 2.5GY7/2 CIExyY:0.3328/0.3569/0.4306 -7 2 30 5GY7/2 CIExyY:0.3284/0.3559/0.4306 -7 2 32.5 7.5GY7/2 CIExyY:0.319/0.3516/0.4306 -7 2 35 10GY7/2 CIExyY:0.3117/0.3469/0.4306 -7 1 30 5GY7/1 CIExyY:0.3198/0.3365/0.4306 -7 1 35 10GY7/1 CIExyY:0.3109/0.3318/0.4306 -6 20 35 10GY6/20 CIExyY:0.2648/0.7004/0.3005 -6 18 35 10GY6/18 CIExyY:0.2763/0.6616/0.3005 -6 16 32.5 7.5GY6/16 CIExyY:0.3493/0.6282/0.3005 -6 16 35 10GY6/16 CIExyY:0.2872/0.6199/0.3005 -6 14 27.5 2.5GY6/14 CIExyY:0.4354/0.5594/0.3005 -6 14 30 5GY6/14 CIExyY:0.4042/0.5788/0.3005 -6 14 32.5 7.5GY6/14 CIExyY:0.3498/0.5985/0.3005 -6 14 35 10GY6/14 CIExyY:0.2962/0.5802/0.3005 -6 12 27.5 2.5GY6/12 CIExyY:0.4269/0.5414/0.3005 -6 12 30 5GY6/12 CIExyY:0.398/0.5564/0.3005 -6 12 32.5 7.5GY6/12 CIExyY:0.3488/0.5596/0.3005 -6 12 35 10GY6/12 CIExyY:0.3037/0.5358/0.3005 -6 10 27.5 2.5GY6/10 CIExyY:0.4159/0.519/0.3005 -6 10 30 5GY6/10 CIExyY:0.3891/0.5264/0.3005 -6 10 32.5 7.5GY6/10 CIExyY:0.3463/0.5196/0.3005 -6 10 35 10GY6/10 CIExyY:0.3086/0.4949/0.3005 -6 8 27.5 2.5GY6/8 CIExyY:0.4006/0.4885/0.3005 -6 8 30 5GY6/8 CIExyY:0.3772/0.488/0.3005 -6 8 32.5 7.5GY6/8 CIExyY:0.3418/0.4768/0.3005 -6 8 35 10GY6/8 CIExyY:0.3116/0.4563/0.3005 -6 6 27.5 2.5GY6/6 CIExyY:0.3799/0.447/0.3005 -6 6 30 5GY6/6 CIExyY:0.3622/0.4438/0.3005 -6 6 32.5 7.5GY6/6 CIExyY:0.3351/0.4321/0.3005 -6 6 35 10GY6/6 CIExyY:0.3128/0.4175/0.3005 -6 4 27.5 2.5GY6/4 CIExyY:0.3572/0.4038/0.3005 -6 4 30 5GY6/4 CIExyY:0.3461/0.4008/0.3005 -6 4 32.5 7.5GY6/4 CIExyY:0.3275/0.3922/0.3005 -6 4 35 10GY6/4 CIExyY:0.3124/0.3822/0.3005 -6 3 27.5 2.5GY6/3 CIExyY:0.3458/0.3823/0.3005 -6 3 30 5GY6/3 CIExyY:0.3376/0.38/0.3005 -6 3 32.5 7.5GY6/3 CIExyY:0.3235/0.3735/0.3005 -6 3 35 10GY6/3 CIExyY:0.3118/0.3658/0.3005 -6 2 27.5 2.5GY6/2 CIExyY:0.3342/0.3607/0.3005 -6 2 30 5GY6/2 CIExyY:0.3288/0.3592/0.3005 -6 2 32.5 7.5GY6/2 CIExyY:0.3193/0.355/0.3005 -6 2 35 10GY6/2 CIExyY:0.3112/0.3496/0.3005 -6 1 30 5GY6/1 CIExyY:0.3196/0.3381/0.3005 -6 1 35 10GY6/1 CIExyY:0.3106/0.3332/0.3005 -5 18 35 10GY5/18 CIExyY:0.2549/0.7179/0.1977 -5 16 35 10GY5/16 CIExyY:0.2702/0.67/0.1977 -5 14 32.5 7.5GY5/14 CIExyY:0.3429/0.6335/0.1977 -5 14 35 10GY5/14 CIExyY:0.2838/0.6208/0.1977 -5 12 27.5 2.5GY5/12 CIExyY:0.4333/0.5602/0.1977 -5 12 30 5GY5/12 CIExyY:0.4011/0.5802/0.1977 -5 12 32.5 7.5GY5/12 CIExyY:0.345/0.5949/0.1977 -5 12 35 10GY5/12 CIExyY:0.294/0.5751/0.1977 -5 10 27.5 2.5GY5/10 CIExyY:0.4224/0.5369/0.1977 -5 10 30 5GY5/10 CIExyY:0.3928/0.5485/0.1977 -5 10 32.5 7.5GY5/10 CIExyY:0.3451/0.549/0.1977 -5 10 35 10GY5/10 CIExyY:0.3028/0.5237/0.1977 -5 8 27.5 2.5GY5/8 CIExyY:0.4088/0.5068/0.1977 -5 8 30 5GY5/8 CIExyY:0.3815/0.5093/0.1977 -5 8 32.5 7.5GY5/8 CIExyY:0.3412/0.4976/0.1977 -5 8 35 10GY5/8 CIExyY:0.308/0.4759/0.1977 -5 6 27.5 2.5GY5/6 CIExyY:0.3879/0.4646/0.1977 -5 6 30 5GY5/6 CIExyY:0.3663/0.4614/0.1977 -5 6 32.5 7.5GY5/6 CIExyY:0.3354/0.4483/0.1977 -5 6 35 10GY5/6 CIExyY:0.3108/0.4301/0.1977 -5 4 27.5 2.5GY5/4 CIExyY:0.3621/0.4143/0.1977 -5 4 30 5GY5/4 CIExyY:0.3482/0.4097/0.1977 -5 4 32.5 7.5GY5/4 CIExyY:0.3274/0.3994/0.1977 -5 4 35 10GY5/4 CIExyY:0.3111/0.3881/0.1977 -5 3 27.5 2.5GY5/3 CIExyY:0.3486/0.3888/0.1977 -5 3 30 5GY5/3 CIExyY:0.3386/0.385/0.1977 -5 3 32.5 7.5GY5/3 CIExyY:0.3231/0.3771/0.1977 -5 3 35 10GY5/3 CIExyY:0.3111/0.369/0.1977 -5 2 27.5 2.5GY5/2 CIExyY:0.3352/0.3636/0.1977 -5 2 30 5GY5/2 CIExyY:0.3289/0.3612/0.1977 -5 2 32.5 7.5GY5/2 CIExyY:0.3188/0.356/0.1977 -5 2 35 10GY5/2 CIExyY:0.311/0.3508/0.1977 -5 1 30 5GY5/1 CIExyY:0.3193/0.3383/0.1977 -5 1 35 10GY5/1 CIExyY:0.3107/0.3333/0.1977 -4 16 35 10GY4/16 CIExyY:0.2422/0.736/0.12 -4 14 35 10GY4/14 CIExyY:0.259/0.6858/0.12 -4 12 32.5 7.5GY4/12 CIExyY:0.3348/0.6468/0.12 -4 12 35 10GY4/12 CIExyY:0.2758/0.6282/0.12 -4 10 30 5GY4/10 CIExyY:0.3983/0.585/0.12 -4 10 32.5 7.5GY4/10 CIExyY:0.3395/0.5913/0.12 -4 10 35 10GY4/10 CIExyY:0.2908/0.5672/0.12 -4 8 27.5 2.5GY4/8 CIExyY:0.4174/0.53/0.12 -4 8 30 5GY4/8 CIExyY:0.3868/0.5384/0.12 -4 8 32.5 7.5GY4/8 CIExyY:0.34/0.5348/0.12 -4 8 35 10GY4/8 CIExyY:0.3008/0.5095/0.12 -4 6 27.5 2.5GY4/6 CIExyY:0.3968/0.4857/0.12 -4 6 30 5GY4/6 CIExyY:0.3718/0.4852/0.12 -4 6 32.5 7.5GY4/6 CIExyY:0.3355/0.4739/0.12 -4 6 35 10GY4/6 CIExyY:0.3069/0.455/0.12 -4 4 27.5 2.5GY4/4 CIExyY:0.3708/0.4329/0.12 -4 4 30 5GY4/4 CIExyY:0.3538/0.4284/0.12 -4 4 32.5 7.5GY4/4 CIExyY:0.3281/0.4157/0.12 -4 4 35 10GY4/4 CIExyY:0.31/0.4018/0.12 -4 3 27.5 2.5GY4/3 CIExyY:0.3546/0.4018/0.12 -4 3 30 5GY4/3 CIExyY:0.3427/0.3978/0.12 -4 3 32.5 7.5GY4/3 CIExyY:0.3234/0.3872/0.12 -4 3 35 10GY4/3 CIExyY:0.3107/0.3775/0.12 -4 2 27.5 2.5GY4/2 CIExyY:0.3382/0.3706/0.12 -4 2 30 5GY4/2 CIExyY:0.3312/0.3678/0.12 -4 2 32.5 7.5GY4/2 CIExyY:0.3185/0.3604/0.12 -4 2 35 10GY4/2 CIExyY:0.3109/0.355/0.12 -4 1 30 5GY4/1 CIExyY:0.3201/0.3401/0.12 -4 1 35 10GY4/1 CIExyY:0.3107/0.3345/0.12 -3 14 35 10GY3/14 CIExyY:0.2283/0.7423/0.06555 -3 12 35 10GY3/12 CIExyY:0.2531/0.67/0.06555 -3 10 32.5 7.5GY3/10 CIExyY:0.3266/0.6448/0.06555 -3 10 35 10GY3/10 CIExyY:0.2724/0.6026/0.06555 -3 8 30 5GY3/8 CIExyY:0.3924/0.5832/0.06555 -3 8 32.5 7.5GY3/8 CIExyY:0.3341/0.57/0.06555 -3 8 35 10GY3/8 CIExyY:0.2887/0.5361/0.06555 -3 6 27.5 2.5GY3/6 CIExyY:0.4069/0.511/0.06555 -3 6 30 5GY3/6 CIExyY:0.375/0.5109/0.06555 -3 6 32.5 7.5GY3/6 CIExyY:0.3333/0.4967/0.06555 -3 6 35 10GY3/6 CIExyY:0.2992/0.4717/0.06555 -3 4 27.5 2.5GY3/4 CIExyY:0.3772/0.4484/0.06555 -3 4 30 5GY3/4 CIExyY:0.3554/0.4429/0.06555 -3 4 32.5 7.5GY3/4 CIExyY:0.327/0.4288/0.06555 -3 4 35 10GY3/4 CIExyY:0.3053/0.4123/0.06555 -3 3 27.5 2.5GY3/3 CIExyY:0.3593/0.4125/0.06555 -3 3 30 5GY3/3 CIExyY:0.3438/0.4072/0.06555 -3 3 32.5 7.5GY3/3 CIExyY:0.3226/0.3954/0.06555 -3 3 35 10GY3/3 CIExyY:0.3073/0.3839/0.06555 -3 2 27.5 2.5GY3/2 CIExyY:0.3412/0.3768/0.06555 -3 2 30 5GY3/2 CIExyY:0.3319/0.3729/0.06555 -3 2 32.5 7.5GY3/2 CIExyY:0.318/0.3644/0.06555 -3 2 35 10GY3/2 CIExyY:0.3088/0.3578/0.06555 -3 1 30 5GY3/1 CIExyY:0.3204/0.342/0.06555 -3 1 35 10GY3/1 CIExyY:0.3097/0.3349/0.06555 -2 12 35 10GY2/12 CIExyY:0.1907/0.7798/0.03126 -2 10 35 10GY2/10 CIExyY:0.2307/0.6814/0.03126 -2 8 32.5 7.5GY2/8 CIExyY:0.316/0.6509/0.03126 -2 8 35 10GY2/8 CIExyY:0.2628/0.5837/0.03126 -2 6 30 5GY2/6 CIExyY:0.3839/0.5748/0.03126 -2 6 32.5 7.5GY2/6 CIExyY:0.326/0.5379/0.03126 -2 6 35 10GY2/6 CIExyY:0.2852/0.4972/0.03126 -2 4 27.5 2.5GY2/4 CIExyY:0.3881/0.4752/0.03126 -2 4 30 5GY2/4 CIExyY:0.3582/0.465/0.03126 -2 4 32.5 7.5GY2/4 CIExyY:0.3248/0.4457/0.03126 -2 4 35 10GY2/4 CIExyY:0.2986/0.424/0.03126 -2 3 27.5 2.5GY2/3 CIExyY:0.3636/0.4239/0.03126 -2 3 30 5GY2/3 CIExyY:0.3442/0.4164/0.03126 -2 3 32.5 7.5GY2/3 CIExyY:0.321/0.4026/0.03126 -2 3 35 10GY2/3 CIExyY:0.3034/0.389/0.03126 -2 2 27.5 2.5GY2/2 CIExyY:0.3421/0.3803/0.03126 -2 2 30 5GY2/2 CIExyY:0.3309/0.3743/0.03126 -2 2 32.5 7.5GY2/2 CIExyY:0.3165/0.365/0.03126 -2 2 35 10GY2/2 CIExyY:0.3069/0.358/0.03126 -2 1 30 5GY2/1 CIExyY:0.3192/0.3404/0.03126 -2 1 35 10GY2/1 CIExyY:0.3091/0.333/0.03126 -1 6 35 10GY1/6 CIExyY:0.2232/0.6392/0.0121 -1 4 30 5GY1/4 CIExyY:0.3765/0.5942/0.0121 -1 4 32.5 7.5GY1/4 CIExyY:0.3133/0.538/0.0121 -1 4 35 10GY1/4 CIExyY:0.2722/0.4903/0.0121 -1 2 27.5 2.5GY1/2 CIExyY:0.354/0.4088/0.0121 -1 2 30 5GY1/2 CIExyY:0.3359/0.3982/0.0121 -1 2 32.5 7.5GY1/2 CIExyY:0.3154/0.384/0.0121 -1 2 35 10GY1/2 CIExyY:0.3006/0.372/0.0121 -9 16 37.5 2.5G9/16 CIExyY:0.263/0.4966/0.7866 -9 14 37.5 2.5G9/14 CIExyY:0.2711/0.4726/0.7866 -9 12 37.5 2.5G9/12 CIExyY:0.2786/0.4491/0.7866 -9 12 40 5G9/12 CIExyY:0.2528/0.416/0.7866 -9 12 42.5 7.5G9/12 CIExyY:0.2419/0.3985/0.7866 -9 12 45 10G9/12 CIExyY:0.2325/0.3796/0.7866 -9 10 37.5 2.5G9/10 CIExyY:0.2851/0.4275/0.7866 -9 10 40 5G9/10 CIExyY:0.2639/0.4001/0.7866 -9 10 42.5 7.5G9/10 CIExyY:0.2545/0.3855/0.7866 -9 10 45 10G9/10 CIExyY:0.2457/0.3702/0.7866 -9 8 37.5 2.5G9/8 CIExyY:0.2912/0.4054/0.7866 -9 8 40 5G9/8 CIExyY:0.2735/0.3854/0.7866 -9 8 42.5 7.5G9/8 CIExyY:0.2652/0.3738/0.7866 -9 8 45 10G9/8 CIExyY:0.2574/0.3618/0.7866 -9 6 37.5 2.5G9/6 CIExyY:0.2966/0.3846/0.7866 -9 6 40 5G9/6 CIExyY:0.2832/0.3697/0.7866 -9 6 42.5 7.5G9/6 CIExyY:0.2763/0.3607/0.7866 -9 6 45 10G9/6 CIExyY:0.2703/0.3513/0.7866 -9 4 37.5 2.5G9/4 CIExyY:0.3018/0.3606/0.7866 -9 4 40 5G9/4 CIExyY:0.2933/0.3519/0.7866 -9 4 42.5 7.5G9/4 CIExyY:0.2882/0.3461/0.7866 -9 4 45 10G9/4 CIExyY:0.284/0.3402/0.7866 -9 3 37.5 2.5G9/3 CIExyY:0.3039/0.3503/0.7866 -9 2 37.5 2.5G9/2 CIExyY:0.3058/0.34/0.7866 -9 2 40 5G9/2 CIExyY:0.3017/0.3357/0.7866 -9 2 42.5 7.5G9/2 CIExyY:0.2987/0.3323/0.7866 -9 2 45 10G9/2 CIExyY:0.2965/0.3293/0.7866 -9 1 40 5G9/1 CIExyY:0.3058/0.3267/0.7866 -9 1 45 10G9/1 CIExyY:0.303/0.3232/0.7866 -8 24 37.5 2.5G8/24 CIExyY:0.2091/0.6033/0.591 -8 22 37.5 2.5G8/22 CIExyY:0.2221/0.5799/0.591 -8 22 40 5G8/22 CIExyY:0.1821/0.494/0.591 -8 20 37.5 2.5G8/20 CIExyY:0.2339/0.5561/0.591 -8 20 40 5G8/20 CIExyY:0.1956/0.4806/0.591 -8 20 42.5 7.5G8/20 CIExyY:0.1845/0.4492/0.591 -8 20 45 10G8/20 CIExyY:0.1734/0.4164/0.591 -8 18 37.5 2.5G8/18 CIExyY:0.2451/0.5309/0.591 -8 18 40 5G8/18 CIExyY:0.2103/0.4652/0.591 -8 18 42.5 7.5G8/18 CIExyY:0.198/0.4372/0.591 -8 18 45 10G8/18 CIExyY:0.1866/0.4086/0.591 -8 16 37.5 2.5G8/16 CIExyY:0.2563/0.5045/0.591 -8 16 40 5G8/16 CIExyY:0.224/0.45/0.591 -8 16 42.5 7.5G8/16 CIExyY:0.212/0.4252/0.591 -8 16 45 10G8/16 CIExyY:0.2012/0.3992/0.591 -8 14 37.5 2.5G8/14 CIExyY:0.2661/0.478/0.591 -8 14 40 5G8/14 CIExyY:0.2368/0.4348/0.591 -8 14 42.5 7.5G8/14 CIExyY:0.2254/0.4125/0.591 -8 14 45 10G8/14 CIExyY:0.2148/0.3903/0.591 -8 12 37.5 2.5G8/12 CIExyY:0.2743/0.4554/0.591 -8 12 40 5G8/12 CIExyY:0.2489/0.4191/0.591 -8 12 42.5 7.5G8/12 CIExyY:0.238/0.4002/0.591 -8 12 45 10G8/12 CIExyY:0.2282/0.3811/0.591 -8 10 37.5 2.5G8/10 CIExyY:0.2829/0.4301/0.591 -8 10 40 5G8/10 CIExyY:0.2613/0.4026/0.591 -8 10 42.5 7.5G8/10 CIExyY:0.2515/0.3867/0.591 -8 10 45 10G8/10 CIExyY:0.243/0.371/0.591 -8 8 37.5 2.5G8/8 CIExyY:0.2896/0.4065/0.591 -8 8 40 5G8/8 CIExyY:0.2723/0.3865/0.591 -8 8 42.5 7.5G8/8 CIExyY:0.2639/0.3733/0.591 -8 8 45 10G8/8 CIExyY:0.2564/0.3611/0.591 -8 6 37.5 2.5G8/6 CIExyY:0.2952/0.3851/0.591 -8 6 40 5G8/6 CIExyY:0.2822/0.3702/0.591 -8 6 42.5 7.5G8/6 CIExyY:0.2754/0.3608/0.591 -8 6 45 10G8/6 CIExyY:0.2693/0.3512/0.591 -8 4 37.5 2.5G8/4 CIExyY:0.3009/0.3614/0.591 -8 4 40 5G8/4 CIExyY:0.2924/0.3523/0.591 -8 4 42.5 7.5G8/4 CIExyY:0.2874/0.3464/0.591 -8 4 45 10G8/4 CIExyY:0.2828/0.3403/0.591 -8 3 37.5 2.5G8/3 CIExyY:0.3032/0.3509/0.591 -8 3 40 5G8/3 CIExyY:0.2967/0.3442/0.591 -8 3 42.5 7.5G8/3 CIExyY:0.2927/0.3396/0.591 -8 3 45 10G8/3 CIExyY:0.2892/0.3349/0.591 -8 2 37.5 2.5G8/2 CIExyY:0.3053/0.3404/0.591 -8 2 40 5G8/2 CIExyY:0.3009/0.3359/0.591 -8 2 42.5 7.5G8/2 CIExyY:0.2981/0.3326/0.591 -8 2 45 10G8/2 CIExyY:0.2957/0.3293/0.591 -8 1 40 5G8/1 CIExyY:0.3053/0.3268/0.591 -8 1 45 10G8/1 CIExyY:0.3026/0.3232/0.591 -7 26 37.5 2.5G7/26 CIExyY:0.1689/0.6549/0.4306 -7 26 40 5G7/26 CIExyY:0.1397/0.5312/0.4306 -7 26 42.5 7.5G7/26 CIExyY:0.1303/0.4858/0.4306 -7 24 37.5 2.5G7/24 CIExyY:0.1875/0.6265/0.4306 -7 24 40 5G7/24 CIExyY:0.1521/0.52/0.4306 -7 24 42.5 7.5G7/24 CIExyY:0.1415/0.4778/0.4306 -7 24 45 10G7/24 CIExyY:0.131/0.4377/0.4306 -7 22 37.5 2.5G7/22 CIExyY:0.2029/0.6017/0.4306 -7 22 40 5G7/22 CIExyY:0.1659/0.5074/0.4306 -7 22 42.5 7.5G7/22 CIExyY:0.1539/0.4683/0.4306 -7 22 45 10G7/22 CIExyY:0.1434/0.4306/0.4306 -7 20 37.5 2.5G7/20 CIExyY:0.2181/0.5744/0.4306 -7 20 40 5G7/20 CIExyY:0.1805/0.4933/0.4306 -7 20 42.5 7.5G7/20 CIExyY:0.1688/0.457/0.4306 -7 20 45 10G7/20 CIExyY:0.1589/0.422/0.4306 -7 18 37.5 2.5G7/18 CIExyY:0.2328/0.5467/0.4306 -7 18 40 5G7/18 CIExyY:0.1967/0.4771/0.4306 -7 18 42.5 7.5G7/18 CIExyY:0.1841/0.4448/0.4306 -7 18 45 10G7/18 CIExyY:0.1734/0.4135/0.4306 -7 16 37.5 2.5G7/16 CIExyY:0.2448/0.5203/0.4306 -7 16 40 5G7/16 CIExyY:0.2111/0.4616/0.4306 -7 16 42.5 7.5G7/16 CIExyY:0.1982/0.433/0.4306 -7 16 45 10G7/16 CIExyY:0.1881/0.4049/0.4306 -7 14 37.5 2.5G7/14 CIExyY:0.2568/0.4931/0.4306 -7 14 40 5G7/14 CIExyY:0.2262/0.445/0.4306 -7 14 42.5 7.5G7/14 CIExyY:0.2139/0.4199/0.4306 -7 14 45 10G7/14 CIExyY:0.2033/0.3956/0.4306 -7 12 37.5 2.5G7/12 CIExyY:0.2672/0.4667/0.4306 -7 12 40 5G7/12 CIExyY:0.2416/0.4267/0.4306 -7 12 42.5 7.5G7/12 CIExyY:0.2295/0.4058/0.4306 -7 12 45 10G7/12 CIExyY:0.2195/0.3854/0.4306 -7 10 37.5 2.5G7/10 CIExyY:0.2775/0.4395/0.4306 -7 10 40 5G7/10 CIExyY:0.2554/0.4087/0.4306 -7 10 42.5 7.5G7/10 CIExyY:0.2445/0.3914/0.4306 -7 10 45 10G7/10 CIExyY:0.2352/0.3748/0.4306 -7 8 37.5 2.5G7/8 CIExyY:0.2861/0.4129/0.4306 -7 8 40 5G7/8 CIExyY:0.2687/0.3901/0.4306 -7 8 42.5 7.5G7/8 CIExyY:0.2595/0.3764/0.4306 -7 8 45 10G7/8 CIExyY:0.2513/0.3635/0.4306 -7 6 37.5 2.5G7/6 CIExyY:0.2933/0.3873/0.4306 -7 6 40 5G7/6 CIExyY:0.2801/0.3721/0.4306 -7 6 42.5 7.5G7/6 CIExyY:0.2728/0.3622/0.4306 -7 6 45 10G7/6 CIExyY:0.2662/0.3526/0.4306 -7 4 37.5 2.5G7/4 CIExyY:0.2992/0.3644/0.4306 -7 4 40 5G7/4 CIExyY:0.2902/0.3548/0.4306 -7 4 42.5 7.5G7/4 CIExyY:0.285/0.3482/0.4306 -7 4 45 10G7/4 CIExyY:0.2803/0.3415/0.4306 -7 3 37.5 2.5G7/3 CIExyY:0.302/0.353/0.4306 -7 3 40 5G7/3 CIExyY:0.2952/0.3459/0.4306 -7 3 42.5 7.5G7/3 CIExyY:0.2911/0.3409/0.4306 -7 3 45 10G7/3 CIExyY:0.2873/0.3357/0.4306 -7 2 37.5 2.5G7/2 CIExyY:0.3047/0.3413/0.4306 -7 2 40 5G7/2 CIExyY:0.3001/0.3366/0.4306 -7 2 42.5 7.5G7/2 CIExyY:0.2972/0.3333/0.4306 -7 2 45 10G7/2 CIExyY:0.2945/0.3297/0.4306 -7 1 40 5G7/1 CIExyY:0.3051/0.3268/0.4306 -7 1 45 10G7/1 CIExyY:0.302/0.3233/0.4306 -6 28 37.5 2.5G6/28 CIExyY:0.1145/0.7122/0.3005 -6 28 40 5G6/28 CIExyY:0.0908/0.5695/0.3005 -6 28 42.5 7.5G6/28 CIExyY:0.0858/0.5127/0.3005 -6 26 37.5 2.5G6/26 CIExyY:0.134/0.6871/0.3005 -6 26 40 5G6/26 CIExyY:0.1079/0.556/0.3005 -6 26 42.5 7.5G6/26 CIExyY:0.101/0.5018/0.3005 -6 26 45 10G6/26 CIExyY:0.0941/0.452/0.3005 -6 24 37.5 2.5G6/24 CIExyY:0.1536/0.6605/0.3005 -6 24 40 5G6/24 CIExyY:0.1252/0.5408/0.3005 -6 24 42.5 7.5G6/24 CIExyY:0.1159/0.491/0.3005 -6 24 45 10G6/24 CIExyY:0.107/0.4458/0.3005 -6 22 37.5 2.5G6/22 CIExyY:0.1739/0.6318/0.3005 -6 22 40 5G6/22 CIExyY:0.1432/0.5252/0.3005 -6 22 42.5 7.5G6/22 CIExyY:0.1325/0.4795/0.3005 -6 22 45 10G6/22 CIExyY:0.123/0.4378/0.3005 -6 20 37.5 2.5G6/20 CIExyY:0.1922/0.6035/0.3005 -6 20 40 5G6/20 CIExyY:0.1609/0.5091/0.3005 -6 20 42.5 7.5G6/20 CIExyY:0.1485/0.4677/0.3005 -6 20 45 10G6/20 CIExyY:0.1382/0.4299/0.3005 -6 18 37.5 2.5G6/18 CIExyY:0.2102/0.5737/0.3005 -6 18 40 5G6/18 CIExyY:0.1785/0.4924/0.3005 -6 18 42.5 7.5G6/18 CIExyY:0.1654/0.4551/0.3005 -6 18 45 10G6/18 CIExyY:0.1551/0.4208/0.3005 -6 16 37.5 2.5G6/16 CIExyY:0.2278/0.543/0.3005 -6 16 40 5G6/16 CIExyY:0.196/0.4751/0.3005 -6 16 42.5 7.5G6/16 CIExyY:0.1832/0.4414/0.3005 -6 16 45 10G6/16 CIExyY:0.1722/0.4113/0.3005 -6 14 37.5 2.5G6/14 CIExyY:0.2426/0.5133/0.3005 -6 14 40 5G6/14 CIExyY:0.213/0.4571/0.3005 -6 14 42.5 7.5G6/14 CIExyY:0.2001/0.4278/0.3005 -6 14 45 10G6/14 CIExyY:0.1895/0.4015/0.3005 -6 12 37.5 2.5G6/12 CIExyY:0.2574/0.4814/0.3005 -6 12 40 5G6/12 CIExyY:0.2293/0.439/0.3005 -6 12 42.5 7.5G6/12 CIExyY:0.2171/0.4138/0.3005 -6 12 45 10G6/12 CIExyY:0.206/0.3914/0.3005 -6 10 37.5 2.5G6/10 CIExyY:0.269/0.453/0.3005 -6 10 40 5G6/10 CIExyY:0.2466/0.4181/0.3005 -6 10 42.5 7.5G6/10 CIExyY:0.235/0.3979/0.3005 -6 10 45 10G6/10 CIExyY:0.2247/0.3796/0.3005 -6 8 37.5 2.5G6/8 CIExyY:0.2799/0.4239/0.3005 -6 8 40 5G6/8 CIExyY:0.2612/0.399/0.3005 -6 8 42.5 7.5G6/8 CIExyY:0.251/0.3829/0.3005 -6 8 45 10G6/8 CIExyY:0.242/0.3679/0.3005 -6 6 37.5 2.5G6/6 CIExyY:0.2892/0.3963/0.3005 -6 6 40 5G6/6 CIExyY:0.2748/0.3795/0.3005 -6 6 42.5 7.5G6/6 CIExyY:0.2662/0.3672/0.3005 -6 6 45 10G6/6 CIExyY:0.2591/0.3558/0.3005 -6 4 37.5 2.5G6/4 CIExyY:0.2967/0.3695/0.3005 -6 4 40 5G6/4 CIExyY:0.2868/0.3595/0.3005 -6 4 42.5 7.5G6/4 CIExyY:0.2807/0.3522/0.3005 -6 4 45 10G6/4 CIExyY:0.2749/0.3443/0.3005 -6 3 37.5 2.5G6/3 CIExyY:0.3004/0.3566/0.3005 -6 3 40 5G6/3 CIExyY:0.2928/0.349/0.3005 -6 3 42.5 7.5G6/3 CIExyY:0.2883/0.3435/0.3005 -6 3 45 10G6/3 CIExyY:0.2838/0.3375/0.3005 -6 2 37.5 2.5G6/2 CIExyY:0.3039/0.3437/0.3005 -6 2 40 5G6/2 CIExyY:0.2988/0.3382/0.3005 -6 2 42.5 7.5G6/2 CIExyY:0.2958/0.3344/0.3005 -6 2 45 10G6/2 CIExyY:0.2929/0.3303/0.3005 -6 1 40 5G6/1 CIExyY:0.3046/0.3273/0.3005 -6 1 45 10G6/1 CIExyY:0.3018/0.3231/0.3005 -5 28 37.5 2.5G5/28 CIExyY:0.0794/0.7385/0.1977 -5 28 40 5G5/28 CIExyY:0.0609/0.5898/0.1977 -5 28 42.5 7.5G5/28 CIExyY:0.0585/0.5224/0.1977 -5 28 45 10G5/28 CIExyY:0.0572/0.459/0.1977 -5 26 37.5 2.5G5/26 CIExyY:0.0992/0.7155/0.1977 -5 26 40 5G5/26 CIExyY:0.0784/0.5761/0.1977 -5 26 42.5 7.5G5/26 CIExyY:0.073/0.5131/0.1977 -5 26 45 10G5/26 CIExyY:0.069/0.4542/0.1977 -5 24 37.5 2.5G5/24 CIExyY:0.1188/0.6918/0.1977 -5 24 40 5G5/24 CIExyY:0.0953/0.5628/0.1977 -5 24 42.5 7.5G5/24 CIExyY:0.0878/0.5039/0.1977 -5 24 45 10G5/24 CIExyY:0.0811/0.4491/0.1977 -5 22 37.5 2.5G5/22 CIExyY:0.1377/0.6674/0.1977 -5 22 40 5G5/22 CIExyY:0.1144/0.5463/0.1977 -5 22 42.5 7.5G5/22 CIExyY:0.105/0.4927/0.1977 -5 22 45 10G5/22 CIExyY:0.0958/0.4428/0.1977 -5 20 37.5 2.5G5/20 CIExyY:0.1579/0.6392/0.1977 -5 20 40 5G5/20 CIExyY:0.1318/0.5321/0.1977 -5 20 42.5 7.5G5/20 CIExyY:0.1212/0.4817/0.1977 -5 20 45 10G5/20 CIExyY:0.112/0.436/0.1977 -5 18 37.5 2.5G5/18 CIExyY:0.1782/0.6095/0.1977 -5 18 40 5G5/18 CIExyY:0.1489/0.5171/0.1977 -5 18 42.5 7.5G5/18 CIExyY:0.1372/0.4705/0.1977 -5 18 45 10G5/18 CIExyY:0.1275/0.4288/0.1977 -5 16 37.5 2.5G5/16 CIExyY:0.2005/0.5759/0.1977 -5 16 40 5G5/16 CIExyY:0.1695/0.4981/0.1977 -5 16 42.5 7.5G5/16 CIExyY:0.1571/0.4561/0.1977 -5 16 45 10G5/16 CIExyY:0.1469/0.4192/0.1977 -5 14 37.5 2.5G5/14 CIExyY:0.2211/0.5411/0.1977 -5 14 40 5G5/14 CIExyY:0.1912/0.4773/0.1977 -5 14 42.5 7.5G5/14 CIExyY:0.1776/0.4415/0.1977 -5 14 45 10G5/14 CIExyY:0.1671/0.4089/0.1977 -5 12 37.5 2.5G5/12 CIExyY:0.2385/0.5071/0.1977 -5 12 40 5G5/12 CIExyY:0.2104/0.4578/0.1977 -5 12 42.5 7.5G5/12 CIExyY:0.1964/0.4271/0.1977 -5 12 45 10G5/12 CIExyY:0.1852/0.3992/0.1977 -5 10 37.5 2.5G5/10 CIExyY:0.2565/0.4705/0.1977 -5 10 40 5G5/10 CIExyY:0.2329/0.4331/0.1977 -5 10 42.5 7.5G5/10 CIExyY:0.22/0.4082/0.1977 -5 10 45 10G5/10 CIExyY:0.2095/0.3853/0.1977 -5 8 37.5 2.5G5/8 CIExyY:0.271/0.438/0.1977 -5 8 40 5G5/8 CIExyY:0.2511/0.4107/0.1977 -5 8 42.5 7.5G5/8 CIExyY:0.2395/0.3915/0.1977 -5 8 45 10G5/8 CIExyY:0.2297/0.373/0.1977 -5 6 37.5 2.5G5/6 CIExyY:0.2841/0.4045/0.1977 -5 6 40 5G5/6 CIExyY:0.269/0.386/0.1977 -5 6 42.5 7.5G5/6 CIExyY:0.2598/0.3724/0.1977 -5 6 45 10G5/6 CIExyY:0.2519/0.3587/0.1977 -5 4 37.5 2.5G5/4 CIExyY:0.2943/0.3735/0.1977 -5 4 40 5G5/4 CIExyY:0.2841/0.3628/0.1977 -5 4 42.5 7.5G5/4 CIExyY:0.2775/0.3545/0.1977 -5 4 45 10G5/4 CIExyY:0.2711/0.3455/0.1977 -5 3 37.5 2.5G5/3 CIExyY:0.2988/0.3588/0.1977 -5 3 40 5G5/3 CIExyY:0.2911/0.351/0.1977 -5 3 42.5 7.5G5/3 CIExyY:0.2861/0.3451/0.1977 -5 3 45 10G5/3 CIExyY:0.2811/0.3383/0.1977 -5 2 37.5 2.5G5/2 CIExyY:0.303/0.3445/0.1977 -5 2 40 5G5/2 CIExyY:0.2978/0.3392/0.1977 -5 2 42.5 7.5G5/2 CIExyY:0.2945/0.3355/0.1977 -5 2 45 10G5/2 CIExyY:0.291/0.331/0.1977 -5 1 40 5G5/1 CIExyY:0.3041/0.3276/0.1977 -5 1 45 10G5/1 CIExyY:0.3007/0.3236/0.1977 -4 26 37.5 2.5G4/26 CIExyY:0.0528/0.7502/0.12 -4 26 40 5G4/26 CIExyY:0.0407/0.601/0.12 -4 26 42.5 7.5G4/26 CIExyY:0.0392/0.5258/0.12 -4 26 45 10G4/26 CIExyY:0.04/0.4545/0.12 -4 24 37.5 2.5G4/24 CIExyY:0.076/0.725/0.12 -4 24 40 5G4/24 CIExyY:0.0614/0.5857/0.12 -4 24 42.5 7.5G4/24 CIExyY:0.0581/0.5151/0.12 -4 24 45 10G4/24 CIExyY:0.0553/0.4492/0.12 -4 22 37.5 2.5G4/22 CIExyY:0.1009/0.6975/0.12 -4 22 40 5G4/22 CIExyY:0.0841/0.5684/0.12 -4 22 42.5 7.5G4/22 CIExyY:0.077/0.504/0.12 -4 22 45 10G4/22 CIExyY:0.0702/0.444/0.12 -4 20 37.5 2.5G4/20 CIExyY:0.123/0.6706/0.12 -4 20 40 5G4/20 CIExyY:0.1018/0.5543/0.12 -4 20 42.5 7.5G4/20 CIExyY:0.0928/0.4942/0.12 -4 20 45 10G4/20 CIExyY:0.085/0.4388/0.12 -4 18 37.5 2.5G4/18 CIExyY:0.1446/0.6431/0.12 -4 18 40 5G4/18 CIExyY:0.1188/0.54/0.12 -4 18 42.5 7.5G4/18 CIExyY:0.1086/0.4842/0.12 -4 18 45 10G4/18 CIExyY:0.1006/0.433/0.12 -4 16 37.5 2.5G4/16 CIExyY:0.1682/0.6111/0.12 -4 16 40 5G4/16 CIExyY:0.1402/0.5214/0.12 -4 16 42.5 7.5G4/16 CIExyY:0.1293/0.4703/0.12 -4 16 45 10G4/16 CIExyY:0.1212/0.4245/0.12 -4 14 37.5 2.5G4/14 CIExyY:0.1909/0.5779/0.12 -4 14 40 5G4/14 CIExyY:0.1627/0.5015/0.12 -4 14 42.5 7.5G4/14 CIExyY:0.15/0.4562/0.12 -4 14 45 10G4/14 CIExyY:0.1398/0.4168/0.12 -4 12 37.5 2.5G4/12 CIExyY:0.2128/0.5425/0.12 -4 12 40 5G4/12 CIExyY:0.1843/0.4807/0.12 -4 12 42.5 7.5G4/12 CIExyY:0.1706/0.4419/0.12 -4 12 45 10G4/12 CIExyY:0.1602/0.407/0.12 -4 10 37.5 2.5G4/10 CIExyY:0.2355/0.5006/0.12 -4 10 40 5G4/10 CIExyY:0.2115/0.4532/0.12 -4 10 42.5 7.5G4/10 CIExyY:0.1989/0.4219/0.12 -4 10 45 10G4/10 CIExyY:0.1876/0.3933/0.12 -4 8 37.5 2.5G4/8 CIExyY:0.2561/0.4597/0.12 -4 8 40 5G4/8 CIExyY:0.2359/0.4266/0.12 -4 8 42.5 7.5G4/8 CIExyY:0.2232/0.4022/0.12 -4 8 45 10G4/8 CIExyY:0.2124/0.3799/0.12 -4 6 37.5 2.5G4/6 CIExyY:0.2735/0.4215/0.12 -4 6 40 5G4/6 CIExyY:0.2581/0.3992/0.12 -4 6 42.5 7.5G4/6 CIExyY:0.2467/0.3822/0.12 -4 6 45 10G4/6 CIExyY:0.2374/0.3655/0.12 -4 4 37.5 2.5G4/4 CIExyY:0.2891/0.3821/0.12 -4 4 40 5G4/4 CIExyY:0.2781/0.3704/0.12 -4 4 42.5 7.5G4/4 CIExyY:0.2702/0.3602/0.12 -4 4 45 10G4/4 CIExyY:0.2628/0.3498/0.12 -4 3 37.5 2.5G4/3 CIExyY:0.2956/0.364/0.12 -4 3 40 5G4/3 CIExyY:0.2874/0.3558/0.12 -4 3 42.5 7.5G4/3 CIExyY:0.2814/0.3486/0.12 -4 3 45 10G4/3 CIExyY:0.2756/0.3413/0.12 -4 2 37.5 2.5G4/2 CIExyY:0.3012/0.347/0.12 -4 2 40 5G4/2 CIExyY:0.2959/0.3417/0.12 -4 2 42.5 7.5G4/2 CIExyY:0.2919/0.3371/0.12 -4 2 45 10G4/2 CIExyY:0.288/0.3327/0.12 -4 1 40 5G4/1 CIExyY:0.3035/0.3284/0.12 -4 1 45 10G4/1 CIExyY:0.2996/0.3243/0.12 -3 22 37.5 2.5G3/22 CIExyY:0.039/0.7468/0.06555 -3 22 40 5G3/22 CIExyY:0.034/0.6011/0.06555 -3 22 42.5 7.5G3/22 CIExyY:0.0332/0.5206/0.06555 -3 22 45 10G3/22 CIExyY:0.0333/0.4444/0.06555 -3 20 37.5 2.5G3/20 CIExyY:0.072/0.7127/0.06555 -3 20 40 5G3/20 CIExyY:0.062/0.5802/0.06555 -3 20 42.5 7.5G3/20 CIExyY:0.0568/0.5082/0.06555 -3 20 45 10G3/20 CIExyY:0.0528/0.4393/0.06555 -3 18 37.5 2.5G3/18 CIExyY:0.1049/0.6766/0.06555 -3 18 40 5G3/18 CIExyY:0.0882/0.5605/0.06555 -3 18 42.5 7.5G3/18 CIExyY:0.0798/0.4954/0.06555 -3 18 45 10G3/18 CIExyY:0.0718/0.434/0.06555 -3 16 37.5 2.5G3/16 CIExyY:0.1341/0.642/0.06555 -3 16 40 5G3/16 CIExyY:0.112/0.5414/0.06555 -3 16 42.5 7.5G3/16 CIExyY:0.1023/0.4818/0.06555 -3 16 45 10G3/16 CIExyY:0.0925/0.4275/0.06555 -3 14 37.5 2.5G3/14 CIExyY:0.1626/0.6052/0.06555 -3 14 40 5G3/14 CIExyY:0.1382/0.5197/0.06555 -3 14 42.5 7.5G3/14 CIExyY:0.1262/0.4667/0.06555 -3 14 45 10G3/14 CIExyY:0.1161/0.4192/0.06555 -3 12 37.5 2.5G3/12 CIExyY:0.1902/0.5642/0.06555 -3 12 40 5G3/12 CIExyY:0.166/0.4948/0.06555 -3 12 42.5 7.5G3/12 CIExyY:0.1516/0.4505/0.06555 -3 12 45 10G3/12 CIExyY:0.1411/0.4095/0.06555 -3 10 37.5 2.5G3/10 CIExyY:0.217/0.5211/0.06555 -3 10 40 5G3/10 CIExyY:0.1935/0.4682/0.06555 -3 10 42.5 7.5G3/10 CIExyY:0.18/0.431/0.06555 -3 10 45 10G3/10 CIExyY:0.1688/0.3974/0.06555 -3 8 37.5 2.5G3/8 CIExyY:0.2435/0.4752/0.06555 -3 8 40 5G3/8 CIExyY:0.2228/0.438/0.06555 -3 8 42.5 7.5G3/8 CIExyY:0.2088/0.4101/0.06555 -3 8 45 10G3/8 CIExyY:0.197/0.3841/0.06555 -3 6 37.5 2.5G3/6 CIExyY:0.2642/0.4342/0.06555 -3 6 40 5G3/6 CIExyY:0.2471/0.41/0.06555 -3 6 42.5 7.5G3/6 CIExyY:0.2346/0.3901/0.06555 -3 6 45 10G3/6 CIExyY:0.224/0.3699/0.06555 -3 4 37.5 2.5G3/4 CIExyY:0.2836/0.3915/0.06555 -3 4 40 5G3/4 CIExyY:0.2711/0.378/0.06555 -3 4 42.5 7.5G3/4 CIExyY:0.2618/0.3667/0.06555 -3 4 45 10G3/4 CIExyY:0.2525/0.3537/0.06555 -3 3 37.5 2.5G3/3 CIExyY:0.2923/0.3702/0.06555 -3 3 40 5G3/3 CIExyY:0.2828/0.3607/0.06555 -3 3 42.5 7.5G3/3 CIExyY:0.2758/0.3529/0.06555 -3 3 45 10G3/3 CIExyY:0.2686/0.3438/0.06555 -3 2 37.5 2.5G3/2 CIExyY:0.2999/0.35/0.06555 -3 2 40 5G3/2 CIExyY:0.2935/0.3439/0.06555 -3 2 42.5 7.5G3/2 CIExyY:0.289/0.3391/0.06555 -3 2 45 10G3/2 CIExyY:0.2844/0.3337/0.06555 -3 1 40 5G3/1 CIExyY:0.3028/0.3288/0.06555 -3 1 45 10G3/1 CIExyY:0.2986/0.3243/0.06555 -2 16 37.5 2.5G2/16 CIExyY:0.0329/0.7358/0.03126 -2 16 40 5G2/16 CIExyY:0.0277/0.5986/0.03126 -2 16 42.5 7.5G2/16 CIExyY:0.0276/0.5153/0.03126 -2 16 45 10G2/16 CIExyY:0.0285/0.4327/0.03126 -2 14 37.5 2.5G2/14 CIExyY:0.082/0.686/0.03126 -2 14 40 5G2/14 CIExyY:0.0688/0.5691/0.03126 -2 14 42.5 7.5G2/14 CIExyY:0.0629/0.4973/0.03126 -2 14 45 10G2/14 CIExyY:0.0599/0.427/0.03126 -2 12 37.5 2.5G2/12 CIExyY:0.1307/0.6308/0.03126 -2 12 40 5G2/12 CIExyY:0.112/0.5358/0.03126 -2 12 42.5 7.5G2/12 CIExyY:0.1022/0.4759/0.03126 -2 12 45 10G2/12 CIExyY:0.0934/0.4183/0.03126 -2 10 37.5 2.5G2/10 CIExyY:0.1773/0.5698/0.03126 -2 10 40 5G2/10 CIExyY:0.156/0.4981/0.03126 -2 10 42.5 7.5G2/10 CIExyY:0.1442/0.4505/0.03126 -2 10 45 10G2/10 CIExyY:0.1321/0.4059/0.03126 -2 8 37.5 2.5G2/8 CIExyY:0.2192/0.5042/0.03126 -2 8 40 5G2/8 CIExyY:0.1979/0.4583/0.03126 -2 8 42.5 7.5G2/8 CIExyY:0.1842/0.4244/0.03126 -2 8 45 10G2/8 CIExyY:0.1705/0.3911/0.03126 -2 6 37.5 2.5G2/6 CIExyY:0.2493/0.4522/0.03126 -2 6 40 5G2/6 CIExyY:0.2318/0.4231/0.03126 -2 6 42.5 7.5G2/6 CIExyY:0.22/0.3983/0.03126 -2 6 45 10G2/6 CIExyY:0.2092/0.3739/0.03126 -2 4 37.5 2.5G2/4 CIExyY:0.2763/0.3998/0.03126 -2 4 40 5G2/4 CIExyY:0.264/0.3845/0.03126 -2 4 42.5 7.5G2/4 CIExyY:0.254/0.3705/0.03126 -2 4 45 10G2/4 CIExyY:0.2442/0.3559/0.03126 -2 3 37.5 2.5G2/3 CIExyY:0.288/0.3741/0.03126 -2 3 40 5G2/3 CIExyY:0.2788/0.3641/0.03126 -2 3 42.5 7.5G2/3 CIExyY:0.2711/0.355/0.03126 -2 3 45 10G2/3 CIExyY:0.2635/0.345/0.03126 -2 2 37.5 2.5G2/2 CIExyY:0.2978/0.3507/0.03126 -2 2 40 5G2/2 CIExyY:0.2918/0.345/0.03126 -2 2 42.5 7.5G2/2 CIExyY:0.2869/0.34/0.03126 -2 2 45 10G2/2 CIExyY:0.282/0.3341/0.03126 -2 1 40 5G2/1 CIExyY:0.3025/0.3286/0.03126 -2 1 45 10G2/1 CIExyY:0.298/0.3242/0.03126 -1 8 37.5 2.5G1/8 CIExyY:0.062/0.6896/0.0121 -1 8 40 5G1/8 CIExyY:0.0559/0.571/0.0121 -1 8 42.5 7.5G1/8 CIExyY:0.053/0.4943/0.0121 -1 8 45 10G1/8 CIExyY:0.0511/0.4158/0.0121 -1 6 37.5 2.5G1/6 CIExyY:0.1711/0.5619/0.0121 -1 6 40 5G1/6 CIExyY:0.1468/0.4996/0.0121 -1 6 42.5 7.5G1/6 CIExyY:0.1344/0.4505/0.0121 -1 6 45 10G1/6 CIExyY:0.1249/0.4019/0.0121 -1 4 37.5 2.5G1/4 CIExyY:0.2454/0.4489/0.0121 -1 4 40 5G1/4 CIExyY:0.229/0.4218/0.0121 -1 4 42.5 7.5G1/4 CIExyY:0.2159/0.3967/0.0121 -1 4 45 10G1/4 CIExyY:0.204/0.3724/0.0121 -1 2 37.5 2.5G1/2 CIExyY:0.291/0.3634/0.0121 -1 2 40 5G1/2 CIExyY:0.2833/0.3564/0.0121 -1 2 42.5 7.5G1/2 CIExyY:0.2758/0.3484/0.0121 -1 2 45 10G1/2 CIExyY:0.2689/0.3407/0.0121 -9 10 47.5 2.5BG9/10 CIExyY:0.2382/0.3568/0.7866 -9 10 50 5BG9/10 CIExyY:0.2301/0.3405/0.7866 -9 10 52.5 7.5BG9/10 CIExyY:0.2215/0.3226/0.7866 -9 8 47.5 2.5BG9/8 CIExyY:0.2509/0.3507/0.7866 -9 8 50 5BG9/8 CIExyY:0.2437/0.3378/0.7866 -9 8 52.5 7.5BG9/8 CIExyY:0.2361/0.3225/0.7866 -9 6 47.5 2.5BG9/6 CIExyY:0.2652/0.3433/0.7866 -9 6 50 5BG9/6 CIExyY:0.2599/0.3338/0.7866 -9 6 52.5 7.5BG9/6 CIExyY:0.2543/0.322/0.7866 -9 6 55 10BG9/6 CIExyY:0.2501/0.3118/0.7866 -9 4 47.5 2.5BG9/4 CIExyY:0.2805/0.3349/0.7866 -9 4 50 5BG9/4 CIExyY:0.2768/0.3287/0.7866 -9 4 52.5 7.5BG9/4 CIExyY:0.2728/0.3208/0.7866 -9 4 55 10BG9/4 CIExyY:0.27/0.314/0.7866 -9 2 47.5 2.5BG9/2 CIExyY:0.2947/0.3267/0.7866 -9 2 50 5BG9/2 CIExyY:0.293/0.3232/0.7866 -9 2 52.5 7.5BG9/2 CIExyY:0.2911/0.3188/0.7866 -9 2 55 10BG9/2 CIExyY:0.2907/0.3159/0.7866 -9 1 50 5BG9/1 CIExyY:0.3013/0.32/0.7866 -9 1 55 10BG9/1 CIExyY:0.3007/0.3164/0.7866 -8 18 47.5 2.5BG8/18 CIExyY:0.1759/0.3782/0.591 -8 16 47.5 2.5BG8/16 CIExyY:0.1915/0.3732/0.591 -8 16 50 5BG8/16 CIExyY:0.1814/0.345/0.591 -8 16 52.5 7.5BG8/16 CIExyY:0.1721/0.3168/0.591 -8 14 47.5 2.5BG8/14 CIExyY:0.2057/0.3681/0.591 -8 14 50 5BG8/14 CIExyY:0.1958/0.3432/0.591 -8 14 52.5 7.5BG8/14 CIExyY:0.1868/0.3179/0.591 -8 14 55 10BG8/14 CIExyY:0.1788/0.2936/0.591 -8 12 47.5 2.5BG8/12 CIExyY:0.2196/0.363/0.591 -8 12 50 5BG8/12 CIExyY:0.2101/0.3412/0.591 -8 12 52.5 7.5BG8/12 CIExyY:0.201/0.3188/0.591 -8 12 55 10BG8/12 CIExyY:0.1937/0.2978/0.591 -8 10 47.5 2.5BG8/10 CIExyY:0.2352/0.3566/0.591 -8 10 50 5BG8/10 CIExyY:0.2264/0.3383/0.591 -8 10 52.5 7.5BG8/10 CIExyY:0.2184/0.3196/0.591 -8 10 55 10BG8/10 CIExyY:0.212/0.3025/0.591 -8 8 47.5 2.5BG8/8 CIExyY:0.25/0.35/0.591 -8 8 50 5BG8/8 CIExyY:0.2419/0.3352/0.591 -8 8 52.5 7.5BG8/8 CIExyY:0.2352/0.3198/0.591 -8 8 55 10BG8/8 CIExyY:0.2302/0.3063/0.591 -8 6 47.5 2.5BG8/6 CIExyY:0.2647/0.3429/0.591 -8 6 50 5BG8/6 CIExyY:0.2588/0.3318/0.591 -8 6 52.5 7.5BG8/6 CIExyY:0.2525/0.3198/0.591 -8 6 55 10BG8/6 CIExyY:0.2489/0.3099/0.591 -8 4 47.5 2.5BG8/4 CIExyY:0.2791/0.3351/0.591 -8 4 50 5BG8/4 CIExyY:0.2752/0.3278/0.591 -8 4 52.5 7.5BG8/4 CIExyY:0.2718/0.32/0.591 -8 4 55 10BG8/4 CIExyY:0.2686/0.313/0.591 -8 3 47.5 2.5BG8/3 CIExyY:0.2864/0.3311/0.591 -8 3 50 5BG8/3 CIExyY:0.2834/0.3255/0.591 -8 3 52.5 7.5BG8/3 CIExyY:0.2809/0.3193/0.591 -8 3 55 10BG8/3 CIExyY:0.2789/0.3142/0.591 -8 2 47.5 2.5BG8/2 CIExyY:0.294/0.3268/0.591 -8 2 50 5BG8/2 CIExyY:0.2919/0.3228/0.591 -8 2 52.5 7.5BG8/2 CIExyY:0.29/0.3183/0.591 -8 2 55 10BG8/2 CIExyY:0.2894/0.3152/0.591 -8 1 50 5BG8/1 CIExyY:0.3007/0.3198/0.591 -8 1 55 10BG8/1 CIExyY:0.2998/0.3159/0.591 -7 22 47.5 2.5BG7/22 CIExyY:0.1334/0.387/0.4306 -7 20 47.5 2.5BG7/20 CIExyY:0.149/0.3827/0.4306 -7 20 50 5BG7/20 CIExyY:0.138/0.3412/0.4306 -7 18 47.5 2.5BG7/18 CIExyY:0.1626/0.3788/0.4306 -7 18 50 5BG7/18 CIExyY:0.1515/0.341/0.4306 -7 18 52.5 7.5BG7/18 CIExyY:0.1427/0.3076/0.4306 -7 16 47.5 2.5BG7/16 CIExyY:0.1788/0.3739/0.4306 -7 16 50 5BG7/16 CIExyY:0.1675/0.3401/0.4306 -7 16 52.5 7.5BG7/16 CIExyY:0.1584/0.3101/0.4306 -7 16 55 10BG7/16 CIExyY:0.1489/0.2768/0.4306 -7 14 47.5 2.5BG7/14 CIExyY:0.1932/0.3694/0.4306 -7 14 50 5BG7/14 CIExyY:0.1838/0.339/0.4306 -7 14 52.5 7.5BG7/14 CIExyY:0.1751/0.3129/0.4306 -7 14 55 10BG7/14 CIExyY:0.1671/0.2832/0.4306 -7 12 47.5 2.5BG7/12 CIExyY:0.2102/0.3636/0.4306 -7 12 50 5BG7/12 CIExyY:0.1997/0.3379/0.4306 -7 12 52.5 7.5BG7/12 CIExyY:0.1914/0.3148/0.4306 -7 12 55 10BG7/12 CIExyY:0.1841/0.2892/0.4306 -7 10 47.5 2.5BG7/10 CIExyY:0.2264/0.3576/0.4306 -7 10 50 5BG7/10 CIExyY:0.2163/0.3361/0.4306 -7 10 52.5 7.5BG7/10 CIExyY:0.2094/0.3165/0.4306 -7 10 55 10BG7/10 CIExyY:0.2035/0.2956/0.4306 -7 8 47.5 2.5BG7/8 CIExyY:0.2439/0.3508/0.4306 -7 8 50 5BG7/8 CIExyY:0.2354/0.3335/0.4306 -7 8 52.5 7.5BG7/8 CIExyY:0.2292/0.3178/0.4306 -7 8 55 10BG7/8 CIExyY:0.2235/0.3014/0.4306 -7 6 47.5 2.5BG7/6 CIExyY:0.2608/0.343/0.4306 -7 6 50 5BG7/6 CIExyY:0.2543/0.3302/0.4306 -7 6 52.5 7.5BG7/6 CIExyY:0.249/0.3186/0.4306 -7 6 55 10BG7/6 CIExyY:0.2448/0.3069/0.4306 -7 4 47.5 2.5BG7/4 CIExyY:0.2764/0.3354/0.4306 -7 4 50 5BG7/4 CIExyY:0.2712/0.3269/0.4306 -7 4 52.5 7.5BG7/4 CIExyY:0.2671/0.3189/0.4306 -7 4 55 10BG7/4 CIExyY:0.2642/0.3109/0.4306 -7 3 47.5 2.5BG7/3 CIExyY:0.2844/0.3313/0.4306 -7 3 50 5BG7/3 CIExyY:0.2803/0.3249/0.4306 -7 3 52.5 7.5BG7/3 CIExyY:0.2772/0.3187/0.4306 -7 3 55 10BG7/3 CIExyY:0.2753/0.3127/0.4306 -7 2 47.5 2.5BG7/2 CIExyY:0.2927/0.3269/0.4306 -7 2 50 5BG7/2 CIExyY:0.2898/0.3225/0.4306 -7 2 52.5 7.5BG7/2 CIExyY:0.2878/0.3182/0.4306 -7 2 55 10BG7/2 CIExyY:0.2869/0.3143/0.4306 -7 1 50 5BG7/1 CIExyY:0.2997/0.3197/0.4306 -7 1 55 10BG7/1 CIExyY:0.2986/0.3155/0.4306 -6 22 47.5 2.5BG6/22 CIExyY:0.112/0.386/0.3005 -6 20 47.5 2.5BG6/20 CIExyY:0.1269/0.3829/0.3005 -6 20 50 5BG6/20 CIExyY:0.1168/0.3344/0.3005 -6 18 47.5 2.5BG6/18 CIExyY:0.1423/0.379/0.3005 -6 18 50 5BG6/18 CIExyY:0.1325/0.3345/0.3005 -6 18 52.5 7.5BG6/18 CIExyY:0.1248/0.2981/0.3005 -6 18 55 10BG6/18 CIExyY:0.1181/0.2581/0.3005 -6 16 47.5 2.5BG6/16 CIExyY:0.16/0.3748/0.3005 -6 16 50 5BG6/16 CIExyY:0.1491/0.3345/0.3005 -6 16 52.5 7.5BG6/16 CIExyY:0.1408/0.3017/0.3005 -6 16 55 10BG6/16 CIExyY:0.1337/0.2651/0.3005 -6 14 47.5 2.5BG6/14 CIExyY:0.1779/0.3699/0.3005 -6 14 50 5BG6/14 CIExyY:0.1662/0.3343/0.3005 -6 14 52.5 7.5BG6/14 CIExyY:0.1585/0.3052/0.3005 -6 14 55 10BG6/14 CIExyY:0.1518/0.2729/0.3005 -6 12 47.5 2.5BG6/12 CIExyY:0.1954/0.3645/0.3005 -6 12 50 5BG6/12 CIExyY:0.1844/0.3337/0.3005 -6 12 52.5 7.5BG6/12 CIExyY:0.1762/0.3081/0.3005 -6 12 55 10BG6/12 CIExyY:0.1698/0.2802/0.3005 -6 10 47.5 2.5BG6/10 CIExyY:0.2148/0.3584/0.3005 -6 10 50 5BG6/10 CIExyY:0.2037/0.3329/0.3005 -6 10 52.5 7.5BG6/10 CIExyY:0.1961/0.311/0.3005 -6 10 55 10BG6/10 CIExyY:0.1909/0.2881/0.3005 -6 8 47.5 2.5BG6/8 CIExyY:0.2332/0.3522/0.3005 -6 8 50 5BG6/8 CIExyY:0.2236/0.3311/0.3005 -6 8 52.5 7.5BG6/8 CIExyY:0.2171/0.3138/0.3005 -6 8 55 10BG6/8 CIExyY:0.2116/0.295/0.3005 -6 6 47.5 2.5BG6/6 CIExyY:0.2526/0.3448/0.3005 -6 6 50 5BG6/6 CIExyY:0.2441/0.329/0.3005 -6 6 52.5 7.5BG6/6 CIExyY:0.2384/0.3155/0.3005 -6 6 55 10BG6/6 CIExyY:0.2335/0.3015/0.3005 -6 4 47.5 2.5BG6/4 CIExyY:0.2702/0.3369/0.3005 -6 4 50 5BG6/4 CIExyY:0.2648/0.3262/0.3005 -6 4 52.5 7.5BG6/4 CIExyY:0.2604/0.3169/0.3005 -6 4 55 10BG6/4 CIExyY:0.2578/0.3078/0.3005 -6 3 47.5 2.5BG6/3 CIExyY:0.2801/0.332/0.3005 -6 3 50 5BG6/3 CIExyY:0.2759/0.3242/0.3005 -6 3 52.5 7.5BG6/3 CIExyY:0.2725/0.3172/0.3005 -6 3 55 10BG6/3 CIExyY:0.2706/0.3107/0.3005 -6 2 47.5 2.5BG6/2 CIExyY:0.2902/0.3268/0.3005 -6 2 50 5BG6/2 CIExyY:0.2872/0.3219/0.3005 -6 2 52.5 7.5BG6/2 CIExyY:0.2849/0.3172/0.3005 -6 2 55 10BG6/2 CIExyY:0.2837/0.3132/0.3005 -6 1 50 5BG6/1 CIExyY:0.2987/0.3193/0.3005 -6 1 55 10BG6/1 CIExyY:0.2969/0.3151/0.3005 -5 24 47.5 2.5BG5/24 CIExyY:0.0738/0.3851/0.1977 -5 22 47.5 2.5BG5/22 CIExyY:0.0861/0.3832/0.1977 -5 22 50 5BG5/22 CIExyY:0.0781/0.3211/0.1977 -5 20 47.5 2.5BG5/20 CIExyY:0.1005/0.3814/0.1977 -5 20 50 5BG5/20 CIExyY:0.0904/0.3231/0.1977 -5 18 47.5 2.5BG5/18 CIExyY:0.1165/0.3785/0.1977 -5 18 50 5BG5/18 CIExyY:0.1046/0.3244/0.1977 -5 18 52.5 7.5BG5/18 CIExyY:0.0982/0.2828/0.1977 -5 16 47.5 2.5BG5/16 CIExyY:0.1348/0.375/0.1977 -5 16 50 5BG5/16 CIExyY:0.1243/0.3261/0.1977 -5 16 52.5 7.5BG5/16 CIExyY:0.1167/0.288/0.1977 -5 16 55 10BG5/16 CIExyY:0.1108/0.2489/0.1977 -5 14 47.5 2.5BG5/14 CIExyY:0.1559/0.3708/0.1977 -5 14 50 5BG5/14 CIExyY:0.1448/0.3275/0.1977 -5 14 52.5 7.5BG5/14 CIExyY:0.1364/0.2932/0.1977 -5 14 55 10BG5/14 CIExyY:0.1308/0.2582/0.1977 -5 12 47.5 2.5BG5/12 CIExyY:0.1735/0.3668/0.1977 -5 12 50 5BG5/12 CIExyY:0.1614/0.328/0.1977 -5 12 52.5 7.5BG5/12 CIExyY:0.1537/0.2976/0.1977 -5 12 55 10BG5/12 CIExyY:0.1485/0.2662/0.1977 -5 10 47.5 2.5BG5/10 CIExyY:0.198/0.3606/0.1977 -5 10 50 5BG5/10 CIExyY:0.185/0.328/0.1977 -5 10 52.5 7.5BG5/10 CIExyY:0.1776/0.3032/0.1977 -5 10 55 10BG5/10 CIExyY:0.1716/0.276/0.1977 -5 8 47.5 2.5BG5/8 CIExyY:0.2205/0.3537/0.1977 -5 8 50 5BG5/8 CIExyY:0.21/0.328/0.1977 -5 8 52.5 7.5BG5/8 CIExyY:0.203/0.3082/0.1977 -5 8 55 10BG5/8 CIExyY:0.197/0.286/0.1977 -5 6 47.5 2.5BG5/6 CIExyY:0.2448/0.3452/0.1977 -5 6 50 5BG5/6 CIExyY:0.236/0.327/0.1977 -5 6 52.5 7.5BG5/6 CIExyY:0.2292/0.3125/0.1977 -5 6 55 10BG5/6 CIExyY:0.2234/0.2952/0.1977 -5 4 47.5 2.5BG5/4 CIExyY:0.2659/0.3369/0.1977 -5 4 50 5BG5/4 CIExyY:0.2591/0.3246/0.1977 -5 4 52.5 7.5BG5/4 CIExyY:0.255/0.315/0.1977 -5 4 55 10BG5/4 CIExyY:0.2512/0.304/0.1977 -5 3 47.5 2.5BG5/3 CIExyY:0.2769/0.3321/0.1977 -5 3 50 5BG5/3 CIExyY:0.2714/0.3229/0.1977 -5 3 52.5 7.5BG5/3 CIExyY:0.2679/0.3157/0.1977 -5 3 55 10BG5/3 CIExyY:0.2652/0.3078/0.1977 -5 2 47.5 2.5BG5/2 CIExyY:0.288/0.327/0.1977 -5 2 50 5BG5/2 CIExyY:0.2841/0.321/0.1977 -5 2 52.5 7.5BG5/2 CIExyY:0.2812/0.3161/0.1977 -5 2 55 10BG5/2 CIExyY:0.2796/0.3111/0.1977 -5 1 50 5BG5/1 CIExyY:0.297/0.3188/0.1977 -5 1 55 10BG5/1 CIExyY:0.2945/0.3139/0.1977 -4 24 47.5 2.5BG4/24 CIExyY:0.051/0.38/0.12 -4 22 47.5 2.5BG4/22 CIExyY:0.0636/0.3788/0.12 -4 20 47.5 2.5BG4/20 CIExyY:0.0768/0.3773/0.12 -4 20 50 5BG4/20 CIExyY:0.0675/0.3075/0.12 -4 18 47.5 2.5BG4/18 CIExyY:0.0915/0.3754/0.12 -4 18 50 5BG4/18 CIExyY:0.0828/0.3108/0.12 -4 18 52.5 7.5BG4/18 CIExyY:0.0768/0.2667/0.12 -4 16 47.5 2.5BG4/16 CIExyY:0.1102/0.372/0.12 -4 16 50 5BG4/16 CIExyY:0.0992/0.3141/0.12 -4 16 52.5 7.5BG4/16 CIExyY:0.0922/0.2718/0.12 -4 16 55 10BG4/16 CIExyY:0.0888/0.2298/0.12 -4 14 47.5 2.5BG4/14 CIExyY:0.1283/0.3688/0.12 -4 14 50 5BG4/14 CIExyY:0.117/0.317/0.12 -4 14 52.5 7.5BG4/14 CIExyY:0.1092/0.2774/0.12 -4 14 55 10BG4/14 CIExyY:0.1033/0.2376/0.12 -4 12 47.5 2.5BG4/12 CIExyY:0.1492/0.3649/0.12 -4 12 50 5BG4/12 CIExyY:0.1379/0.3193/0.12 -4 12 52.5 7.5BG4/12 CIExyY:0.1298/0.284/0.12 -4 12 55 10BG4/12 CIExyY:0.1248/0.2484/0.12 -4 10 47.5 2.5BG4/10 CIExyY:0.1738/0.36/0.12 -4 10 50 5BG4/10 CIExyY:0.1618/0.3219/0.12 -4 10 52.5 7.5BG4/10 CIExyY:0.154/0.291/0.12 -4 10 55 10BG4/10 CIExyY:0.148/0.26/0.12 -4 8 47.5 2.5BG4/8 CIExyY:0.2006/0.354/0.12 -4 8 50 5BG4/8 CIExyY:0.189/0.3234/0.12 -4 8 52.5 7.5BG4/8 CIExyY:0.1815/0.2985/0.12 -4 8 55 10BG4/8 CIExyY:0.176/0.273/0.12 -4 6 47.5 2.5BG4/6 CIExyY:0.2278/0.3463/0.12 -4 6 50 5BG4/6 CIExyY:0.2182/0.324/0.12 -4 6 52.5 7.5BG4/6 CIExyY:0.2113/0.3052/0.12 -4 6 55 10BG4/6 CIExyY:0.2063/0.2863/0.12 -4 4 47.5 2.5BG4/4 CIExyY:0.2552/0.3375/0.12 -4 4 50 5BG4/4 CIExyY:0.248/0.3232/0.12 -4 4 52.5 7.5BG4/4 CIExyY:0.2429/0.3108/0.12 -4 4 55 10BG4/4 CIExyY:0.2384/0.2984/0.12 -4 3 47.5 2.5BG4/3 CIExyY:0.2697/0.3324/0.12 -4 3 50 5BG4/3 CIExyY:0.2639/0.3222/0.12 -4 3 52.5 7.5BG4/3 CIExyY:0.2595/0.3131/0.12 -4 3 55 10BG4/3 CIExyY:0.2559/0.3041/0.12 -4 2 47.5 2.5BG4/2 CIExyY:0.284/0.327/0.12 -4 2 50 5BG4/2 CIExyY:0.2799/0.3208/0.12 -4 2 52.5 7.5BG4/2 CIExyY:0.2764/0.3148/0.12 -4 2 55 10BG4/2 CIExyY:0.274/0.3091/0.12 -4 1 50 5BG4/1 CIExyY:0.2954/0.3188/0.12 -4 1 55 10BG4/1 CIExyY:0.2922/0.3133/0.12 -3 20 47.5 2.5BG3/20 CIExyY:0.0482/0.3695/0.06555 -3 18 47.5 2.5BG3/18 CIExyY:0.0648/0.3682/0.06555 -3 18 50 5BG3/18 CIExyY:0.058/0.294/0.06555 -3 16 47.5 2.5BG3/16 CIExyY:0.0843/0.3667/0.06555 -3 16 50 5BG3/16 CIExyY:0.0735/0.2979/0.06555 -3 16 52.5 7.5BG3/16 CIExyY:0.0691/0.2559/0.06555 -3 14 47.5 2.5BG3/14 CIExyY:0.1051/0.3648/0.06555 -3 14 50 5BG3/14 CIExyY:0.094/0.3027/0.06555 -3 14 52.5 7.5BG3/14 CIExyY:0.0874/0.2627/0.06555 -3 14 55 10BG3/14 CIExyY:0.0798/0.2151/0.06555 -3 12 47.5 2.5BG3/12 CIExyY:0.1288/0.362/0.06555 -3 12 50 5BG3/12 CIExyY:0.1158/0.3071/0.06555 -3 12 52.5 7.5BG3/12 CIExyY:0.1086/0.2706/0.06555 -3 12 55 10BG3/12 CIExyY:0.1018/0.2281/0.06555 -3 10 47.5 2.5BG3/10 CIExyY:0.1552/0.358/0.06555 -3 10 50 5BG3/10 CIExyY:0.141/0.3118/0.06555 -3 10 52.5 7.5BG3/10 CIExyY:0.1326/0.2784/0.06555 -3 10 55 10BG3/10 CIExyY:0.125/0.2411/0.06555 -3 8 47.5 2.5BG3/8 CIExyY:0.1845/0.3531/0.06555 -3 8 50 5BG3/8 CIExyY:0.1703/0.3159/0.06555 -3 8 52.5 7.5BG3/8 CIExyY:0.162/0.2872/0.06555 -3 8 55 10BG3/8 CIExyY:0.1551/0.2571/0.06555 -3 6 47.5 2.5BG3/6 CIExyY:0.2132/0.3468/0.06555 -3 6 50 5BG3/6 CIExyY:0.202/0.3188/0.06555 -3 6 52.5 7.5BG3/6 CIExyY:0.1928/0.2958/0.06555 -3 6 55 10BG3/6 CIExyY:0.1861/0.2722/0.06555 -3 4 47.5 2.5BG3/4 CIExyY:0.2437/0.3386/0.06555 -3 4 50 5BG3/4 CIExyY:0.2343/0.32/0.06555 -3 4 52.5 7.5BG3/4 CIExyY:0.2272/0.3041/0.06555 -3 4 55 10BG3/4 CIExyY:0.2221/0.2886/0.06555 -3 3 47.5 2.5BG3/3 CIExyY:0.2618/0.333/0.06555 -3 3 50 5BG3/3 CIExyY:0.254/0.3199/0.06555 -3 3 52.5 7.5BG3/3 CIExyY:0.2482/0.3083/0.06555 -3 3 55 10BG3/3 CIExyY:0.2435/0.2971/0.06555 -3 2 47.5 2.5BG3/2 CIExyY:0.2799/0.3271/0.06555 -3 2 50 5BG3/2 CIExyY:0.2742/0.3192/0.06555 -3 2 52.5 7.5BG3/2 CIExyY:0.2699/0.312/0.06555 -3 2 55 10BG3/2 CIExyY:0.266/0.305/0.06555 -3 1 50 5BG3/1 CIExyY:0.2934/0.318/0.06555 -3 1 55 10BG3/1 CIExyY:0.2885/0.3116/0.06555 -2 14 47.5 2.5BG2/14 CIExyY:0.0555/0.3588/0.03126 -2 12 47.5 2.5BG2/12 CIExyY:0.0851/0.3576/0.03126 -2 12 50 5BG2/12 CIExyY:0.0769/0.288/0.03126 -2 12 52.5 7.5BG2/12 CIExyY:0.0724/0.2478/0.03126 -2 10 47.5 2.5BG2/10 CIExyY:0.119/0.3551/0.03126 -2 10 50 5BG2/10 CIExyY:0.105/0.2956/0.03126 -2 10 52.5 7.5BG2/10 CIExyY:0.0991/0.2582/0.03126 -2 10 55 10BG2/10 CIExyY:0.0929/0.2133/0.03126 -2 8 47.5 2.5BG2/8 CIExyY:0.1557/0.3517/0.03126 -2 8 50 5BG2/8 CIExyY:0.1405/0.3037/0.03126 -2 8 52.5 7.5BG2/8 CIExyY:0.1325/0.271/0.03126 -2 8 55 10BG2/8 CIExyY:0.1258/0.2331/0.03126 -2 6 47.5 2.5BG2/6 CIExyY:0.1971/0.3452/0.03126 -2 6 50 5BG2/6 CIExyY:0.1843/0.311/0.03126 -2 6 52.5 7.5BG2/6 CIExyY:0.1747/0.2853/0.03126 -2 6 55 10BG2/6 CIExyY:0.1669/0.257/0.03126 -2 4 47.5 2.5BG2/4 CIExyY:0.2343/0.3378/0.03126 -2 4 50 5BG2/4 CIExyY:0.2234/0.315/0.03126 -2 4 52.5 7.5BG2/4 CIExyY:0.2162/0.2981/0.03126 -2 4 55 10BG2/4 CIExyY:0.2096/0.279/0.03126 -2 3 47.5 2.5BG2/3 CIExyY:0.2556/0.3327/0.03126 -2 3 50 5BG2/3 CIExyY:0.2465/0.3166/0.03126 -2 3 52.5 7.5BG2/3 CIExyY:0.2404/0.3043/0.03126 -2 3 55 10BG2/3 CIExyY:0.2347/0.2904/0.03126 -2 2 47.5 2.5BG2/2 CIExyY:0.2765/0.3271/0.03126 -2 2 50 5BG2/2 CIExyY:0.2697/0.3175/0.03126 -2 2 52.5 7.5BG2/2 CIExyY:0.2651/0.3098/0.03126 -2 2 55 10BG2/2 CIExyY:0.2606/0.301/0.03126 -2 1 50 5BG2/1 CIExyY:0.2915/0.3175/0.03126 -2 1 55 10BG2/1 CIExyY:0.2861/0.3099/0.03126 -1 8 47.5 2.5BG1/8 CIExyY:0.0476/0.3458/0.0121 -1 6 47.5 2.5BG1/6 CIExyY:0.1169/0.3452/0.0121 -1 6 50 5BG1/6 CIExyY:0.1093/0.286/0.0121 -1 6 52.5 7.5BG1/6 CIExyY:0.1059/0.2485/0.0121 -1 6 55 10BG1/6 CIExyY:0.1074/0.2129/0.0121 -1 4 47.5 2.5BG1/4 CIExyY:0.1883/0.3406/0.0121 -1 4 50 5BG1/4 CIExyY:0.1753/0.3021/0.0121 -1 4 52.5 7.5BG1/4 CIExyY:0.1702/0.2768/0.0121 -1 4 55 10BG1/4 CIExyY:0.1658/0.2496/0.0121 -1 2 47.5 2.5BG1/2 CIExyY:0.26/0.3289/0.0121 -1 2 50 5BG1/2 CIExyY:0.25/0.3141/0.0121 -1 2 52.5 7.5BG1/2 CIExyY:0.243/0.3023/0.0121 -1 2 55 10BG1/2 CIExyY:0.2362/0.2882/0.0121 -9 4 57.5 2.5B9/4 CIExyY:0.268/0.3073/0.7866 -9 4 60 5B9/4 CIExyY:0.2675/0.3005/0.7866 -9 4 62.5 7.5B9/4 CIExyY:0.2688/0.2961/0.7866 -9 4 65 10B9/4 CIExyY:0.2712/0.2924/0.7866 -9 2 57.5 2.5B9/2 CIExyY:0.2909/0.3125/0.7866 -9 2 60 5B9/2 CIExyY:0.2919/0.3102/0.7866 -9 2 62.5 7.5B9/2 CIExyY:0.2937/0.3087/0.7866 -9 2 65 10B9/2 CIExyY:0.2949/0.3076/0.7866 -9 1 60 5B9/1 CIExyY:0.3018/0.3137/0.7866 -9 1 65 10B9/1 CIExyY:0.3036/0.3128/0.7866 -8 12 57.5 2.5B8/12 CIExyY:0.1877/0.2752/0.591 -8 10 57.5 2.5B8/10 CIExyY:0.2066/0.2839/0.591 -8 8 57.5 2.5B8/8 CIExyY:0.2264/0.2923/0.591 -8 8 60 5B8/8 CIExyY:0.2237/0.2761/0.591 -8 8 62.5 7.5B8/8 CIExyY:0.2252/0.2668/0.591 -8 8 65 10B8/8 CIExyY:0.2294/0.2587/0.591 -8 6 57.5 2.5B8/6 CIExyY:0.2462/0.3/0.591 -8 6 60 5B8/6 CIExyY:0.2457/0.2888/0.591 -8 6 62.5 7.5B8/6 CIExyY:0.2472/0.2821/0.591 -8 6 65 10B8/6 CIExyY:0.2512/0.276/0.591 -8 4 57.5 2.5B8/4 CIExyY:0.2668/0.3067/0.591 -8 4 60 5B8/4 CIExyY:0.2671/0.2998/0.591 -8 4 62.5 7.5B8/4 CIExyY:0.2688/0.2956/0.591 -8 4 65 10B8/4 CIExyY:0.2718/0.2911/0.591 -8 3 57.5 2.5B8/3 CIExyY:0.2783/0.3097/0.591 -8 3 60 5B8/3 CIExyY:0.2791/0.305/0.591 -8 3 62.5 7.5B8/3 CIExyY:0.2807/0.302/0.591 -8 3 65 10B8/3 CIExyY:0.2829/0.299/0.591 -8 2 57.5 2.5B8/2 CIExyY:0.2897/0.3124/0.591 -8 2 60 5B8/2 CIExyY:0.2908/0.3096/0.591 -8 2 62.5 7.5B8/2 CIExyY:0.2922/0.3077/0.591 -8 2 65 10B8/2 CIExyY:0.2935/0.3062/0.591 -8 1 60 5B8/1 CIExyY:0.3014/0.3135/0.591 -8 1 65 10B8/1 CIExyY:0.3028/0.3122/0.591 -7 16 57.5 2.5B7/16 CIExyY:0.1435/0.2472/0.4306 -7 14 57.5 2.5B7/14 CIExyY:0.1624/0.2581/0.4306 -7 14 60 5B7/14 CIExyY:0.1615/0.2307/0.4306 -7 12 57.5 2.5B7/12 CIExyY:0.1797/0.2672/0.4306 -7 12 60 5B7/12 CIExyY:0.1778/0.243/0.4306 -7 12 62.5 7.5B7/12 CIExyY:0.1818/0.2303/0.4306 -7 12 65 10B7/12 CIExyY:0.1883/0.2203/0.4306 -7 10 57.5 2.5B7/10 CIExyY:0.1994/0.2775/0.4306 -7 10 60 5B7/10 CIExyY:0.1986/0.2579/0.4306 -7 10 62.5 7.5B7/10 CIExyY:0.2016/0.2466/0.4306 -7 10 65 10B7/10 CIExyY:0.2078/0.2382/0.4306 -7 8 57.5 2.5B7/8 CIExyY:0.2208/0.2871/0.4306 -7 8 60 5B7/8 CIExyY:0.2204/0.2729/0.4306 -7 8 62.5 7.5B7/8 CIExyY:0.2225/0.2631/0.4306 -7 8 65 10B7/8 CIExyY:0.2277/0.2559/0.4306 -7 6 57.5 2.5B7/6 CIExyY:0.2418/0.296/0.4306 -7 6 60 5B7/6 CIExyY:0.241/0.2854/0.4306 -7 6 62.5 7.5B7/6 CIExyY:0.2436/0.2787/0.4306 -7 6 65 10B7/6 CIExyY:0.2478/0.2728/0.4306 -7 4 57.5 2.5B7/4 CIExyY:0.2629/0.3038/0.4306 -7 4 60 5B7/4 CIExyY:0.2633/0.2972/0.4306 -7 4 62.5 7.5B7/4 CIExyY:0.2651/0.2927/0.4306 -7 4 65 10B7/4 CIExyY:0.2685/0.2886/0.4306 -7 3 57.5 2.5B7/3 CIExyY:0.2747/0.3076/0.4306 -7 3 60 5B7/3 CIExyY:0.2754/0.3027/0.4306 -7 3 62.5 7.5B7/3 CIExyY:0.277/0.2995/0.4306 -7 3 65 10B7/3 CIExyY:0.2797/0.2965/0.4306 -7 2 57.5 2.5B7/2 CIExyY:0.2867/0.311/0.4306 -7 2 60 5B7/2 CIExyY:0.2875/0.3078/0.4306 -7 2 62.5 7.5B7/2 CIExyY:0.2888/0.3058/0.4306 -7 2 65 10B7/2 CIExyY:0.2908/0.3039/0.4306 -7 1 60 5B7/1 CIExyY:0.2992/0.3124/0.4306 -7 1 65 10B7/1 CIExyY:0.3011/0.3106/0.4306 -6 16 57.5 2.5B6/16 CIExyY:0.1294/0.2348/0.3005 -6 16 60 5B6/16 CIExyY:0.131/0.2048/0.3005 -6 16 62.5 7.5B6/16 CIExyY:0.1376/0.1879/0.3005 -6 16 65 10B6/16 CIExyY:0.1454/0.1778/0.3005 -6 14 57.5 2.5B6/14 CIExyY:0.148/0.2459/0.3005 -6 14 60 5B6/14 CIExyY:0.1496/0.2193/0.3005 -6 14 62.5 7.5B6/14 CIExyY:0.1556/0.2043/0.3005 -6 14 65 10B6/14 CIExyY:0.1629/0.1947/0.3005 -6 12 57.5 2.5B6/12 CIExyY:0.166/0.2561/0.3005 -6 12 60 5B6/12 CIExyY:0.1685/0.2339/0.3005 -6 12 62.5 7.5B6/12 CIExyY:0.1734/0.2203/0.3005 -6 12 65 10B6/12 CIExyY:0.1803/0.2114/0.3005 -6 10 57.5 2.5B6/10 CIExyY:0.1879/0.2682/0.3005 -6 10 60 5B6/10 CIExyY:0.1883/0.2487/0.3005 -6 10 62.5 7.5B6/10 CIExyY:0.1934/0.2374/0.3005 -6 10 65 10B6/10 CIExyY:0.2/0.2298/0.3005 -6 8 57.5 2.5B6/8 CIExyY:0.208/0.2789/0.3005 -6 8 60 5B6/8 CIExyY:0.2088/0.2635/0.3005 -6 8 62.5 7.5B6/8 CIExyY:0.2132/0.2537/0.3005 -6 8 65 10B6/8 CIExyY:0.2189/0.2468/0.3005 -6 6 57.5 2.5B6/6 CIExyY:0.2312/0.2899/0.3005 -6 6 60 5B6/6 CIExyY:0.232/0.2789/0.3005 -6 6 62.5 7.5B6/6 CIExyY:0.2352/0.2708/0.3005 -6 6 65 10B6/6 CIExyY:0.2399/0.265/0.3005 -6 4 57.5 2.5B6/4 CIExyY:0.2571/0.3008/0.3005 -6 4 60 5B6/4 CIExyY:0.2579/0.2938/0.3005 -6 4 62.5 7.5B6/4 CIExyY:0.2602/0.2881/0.3005 -6 4 65 10B6/4 CIExyY:0.2637/0.284/0.3005 -6 3 57.5 2.5B6/3 CIExyY:0.2703/0.3055/0.3005 -6 3 60 5B6/3 CIExyY:0.2711/0.3004/0.3005 -6 3 62.5 7.5B6/3 CIExyY:0.2728/0.2962/0.3005 -6 3 65 10B6/3 CIExyY:0.2755/0.2928/0.3005 -6 2 57.5 2.5B6/2 CIExyY:0.2835/0.3097/0.3005 -6 2 60 5B6/2 CIExyY:0.2842/0.3063/0.3005 -6 2 62.5 7.5B6/2 CIExyY:0.2854/0.3037/0.3005 -6 2 65 10B6/2 CIExyY:0.2871/0.3012/0.3005 -6 1 60 5B6/1 CIExyY:0.2972/0.3116/0.3005 -6 1 65 10B6/1 CIExyY:0.2987/0.309/0.3005 -5 18 65 10B5/18 CIExyY:0.1203/0.1505/0.1977 -5 16 57.5 2.5B5/16 CIExyY:0.109/0.2166/0.1977 -5 16 60 5B5/16 CIExyY:0.1132/0.1863/0.1977 -5 16 62.5 7.5B5/16 CIExyY:0.123/0.1711/0.1977 -5 16 65 10B5/16 CIExyY:0.1326/0.1632/0.1977 -5 14 57.5 2.5B5/14 CIExyY:0.1283/0.2292/0.1977 -5 14 60 5B5/14 CIExyY:0.132/0.2021/0.1977 -5 14 62.5 7.5B5/14 CIExyY:0.1404/0.1878/0.1977 -5 14 65 10B5/14 CIExyY:0.1492/0.1797/0.1977 -5 12 57.5 2.5B5/12 CIExyY:0.1461/0.2406/0.1977 -5 12 60 5B5/12 CIExyY:0.1505/0.2172/0.1977 -5 12 62.5 7.5B5/12 CIExyY:0.1584/0.2042/0.1977 -5 12 65 10B5/12 CIExyY:0.1666/0.1964/0.1977 -5 10 57.5 2.5B5/10 CIExyY:0.1697/0.2549/0.1977 -5 10 60 5B5/10 CIExyY:0.1729/0.2347/0.1977 -5 10 62.5 7.5B5/10 CIExyY:0.1792/0.223/0.1977 -5 10 65 10B5/10 CIExyY:0.186/0.2149/0.1977 -5 8 57.5 2.5B5/8 CIExyY:0.1947/0.2687/0.1977 -5 8 60 5B5/8 CIExyY:0.1958/0.2519/0.1977 -5 8 62.5 7.5B5/8 CIExyY:0.2007/0.2417/0.1977 -5 8 65 10B5/8 CIExyY:0.2067/0.2344/0.1977 -5 6 57.5 2.5B5/6 CIExyY:0.221/0.2823/0.1977 -5 6 60 5B5/6 CIExyY:0.2215/0.2701/0.1977 -5 6 62.5 7.5B5/6 CIExyY:0.2248/0.2612/0.1977 -5 6 65 10B5/6 CIExyY:0.2299/0.2548/0.1977 -5 4 57.5 2.5B5/4 CIExyY:0.2492/0.2954/0.1977 -5 4 60 5B5/4 CIExyY:0.2493/0.2879/0.1977 -5 4 62.5 7.5B5/4 CIExyY:0.2511/0.2808/0.1977 -5 4 65 10B5/4 CIExyY:0.2547/0.2757/0.1977 -5 3 57.5 2.5B5/3 CIExyY:0.264/0.3015/0.1977 -5 3 60 5B5/3 CIExyY:0.2642/0.2958/0.1977 -5 3 62.5 7.5B5/3 CIExyY:0.2655/0.2906/0.1977 -5 3 65 10B5/3 CIExyY:0.2682/0.2862/0.1977 -5 2 57.5 2.5B5/2 CIExyY:0.2791/0.3071/0.1977 -5 2 60 5B5/2 CIExyY:0.2794/0.3032/0.1977 -5 2 62.5 7.5B5/2 CIExyY:0.2803/0.3/0.1977 -5 2 65 10B5/2 CIExyY:0.2821/0.2966/0.1977 -5 1 60 5B5/1 CIExyY:0.2948/0.31/0.1977 -5 1 65 10B5/1 CIExyY:0.2961/0.3067/0.1977 -4 16 57.5 2.5B4/16 CIExyY:0.09/0.1973/0.12 -4 16 65 10B4/16 CIExyY:0.1155/0.1416/0.12 -4 14 57.5 2.5B4/14 CIExyY:0.1027/0.2057/0.12 -4 14 60 5B4/14 CIExyY:0.1098/0.1785/0.12 -4 14 62.5 7.5B4/14 CIExyY:0.1204/0.1655/0.12 -4 14 65 10B4/14 CIExyY:0.131/0.158/0.12 -4 12 57.5 2.5B4/12 CIExyY:0.1247/0.2209/0.12 -4 12 60 5B4/12 CIExyY:0.1299/0.1963/0.12 -4 12 62.5 7.5B4/12 CIExyY:0.1393/0.1837/0.12 -4 12 65 10B4/12 CIExyY:0.1487/0.176/0.12 -4 10 57.5 2.5B4/10 CIExyY:0.1463/0.2354/0.12 -4 10 60 5B4/10 CIExyY:0.1512/0.2148/0.12 -4 10 62.5 7.5B4/10 CIExyY:0.1601/0.2028/0.12 -4 10 65 10B4/10 CIExyY:0.1681/0.1954/0.12 -4 8 57.5 2.5B4/8 CIExyY:0.1737/0.2524/0.12 -4 8 60 5B4/8 CIExyY:0.1759/0.2345/0.12 -4 8 62.5 7.5B4/8 CIExyY:0.1821/0.2232/0.12 -4 8 65 10B4/8 CIExyY:0.1893/0.216/0.12 -4 6 57.5 2.5B4/6 CIExyY:0.2048/0.2708/0.12 -4 6 60 5B4/6 CIExyY:0.206/0.2572/0.12 -4 6 62.5 7.5B4/6 CIExyY:0.2102/0.247/0.12 -4 6 65 10B4/6 CIExyY:0.2157/0.2407/0.12 -4 4 57.5 2.5B4/4 CIExyY:0.236/0.2872/0.12 -4 4 60 5B4/4 CIExyY:0.2363/0.2782/0.12 -4 4 62.5 7.5B4/4 CIExyY:0.2388/0.2704/0.12 -4 4 65 10B4/4 CIExyY:0.2429/0.2648/0.12 -4 3 57.5 2.5B4/3 CIExyY:0.254/0.2957/0.12 -4 3 60 5B4/3 CIExyY:0.2538/0.2889/0.12 -4 3 62.5 7.5B4/3 CIExyY:0.2555/0.2827/0.12 -4 3 65 10B4/3 CIExyY:0.2586/0.2778/0.12 -4 2 57.5 2.5B4/2 CIExyY:0.2727/0.3038/0.12 -4 2 60 5B4/2 CIExyY:0.2723/0.2992/0.12 -4 2 62.5 7.5B4/2 CIExyY:0.2733/0.2947/0.12 -4 2 65 10B4/2 CIExyY:0.2753/0.291/0.12 -4 1 60 5B4/1 CIExyY:0.2912/0.3085/0.12 -4 1 65 10B4/1 CIExyY:0.2926/0.304/0.12 -3 14 65 10B3/14 CIExyY:0.1065/0.1285/0.06555 -3 12 57.5 2.5B3/12 CIExyY:0.0989/0.1963/0.06555 -3 12 60 5B3/12 CIExyY:0.1042/0.1681/0.06555 -3 12 62.5 7.5B3/12 CIExyY:0.1131/0.1542/0.06555 -3 12 65 10B3/12 CIExyY:0.1228/0.146/0.06555 -3 10 57.5 2.5B3/10 CIExyY:0.122/0.2132/0.06555 -3 10 60 5B3/10 CIExyY:0.1259/0.1879/0.06555 -3 10 62.5 7.5B3/10 CIExyY:0.1343/0.1756/0.06555 -3 10 65 10B3/10 CIExyY:0.1432/0.1675/0.06555 -3 8 57.5 2.5B3/8 CIExyY:0.1511/0.2331/0.06555 -3 8 60 5B3/8 CIExyY:0.1527/0.2119/0.06555 -3 8 62.5 7.5B3/8 CIExyY:0.1583/0.1987/0.06555 -3 8 65 10B3/8 CIExyY:0.1658/0.1905/0.06555 -3 6 57.5 2.5B3/6 CIExyY:0.1826/0.2536/0.06555 -3 6 60 5B3/6 CIExyY:0.1835/0.2375/0.06555 -3 6 62.5 7.5B3/6 CIExyY:0.1875/0.2258/0.06555 -3 6 65 10B3/6 CIExyY:0.1933/0.2173/0.06555 -3 4 57.5 2.5B3/4 CIExyY:0.2183/0.2748/0.06555 -3 4 60 5B3/4 CIExyY:0.2176/0.2632/0.06555 -3 4 62.5 7.5B3/4 CIExyY:0.22/0.2536/0.06555 -3 4 65 10B3/4 CIExyY:0.2246/0.2467/0.06555 -3 3 57.5 2.5B3/3 CIExyY:0.2403/0.2868/0.06555 -3 3 60 5B3/3 CIExyY:0.2388/0.2777/0.06555 -3 3 62.5 7.5B3/3 CIExyY:0.2398/0.2695/0.06555 -3 3 65 10B3/3 CIExyY:0.2429/0.263/0.06555 -3 2 57.5 2.5B3/2 CIExyY:0.2636/0.2983/0.06555 -3 2 60 5B3/2 CIExyY:0.2617/0.2921/0.06555 -3 2 62.5 7.5B3/2 CIExyY:0.2616/0.2857/0.06555 -3 2 65 10B3/2 CIExyY:0.2631/0.2801/0.06555 -3 1 60 5B3/1 CIExyY:0.2857/0.3053/0.06555 -3 1 65 10B3/1 CIExyY:0.2855/0.2979/0.06555 -2 10 57.5 2.5B2/10 CIExyY:0.0911/0.1828/0.03126 -2 10 60 5B2/10 CIExyY:0.0965/0.1558/0.03126 -2 10 62.5 7.5B2/10 CIExyY:0.1051/0.1422/0.03126 -2 10 65 10B2/10 CIExyY:0.1157/0.1346/0.03126 -2 8 57.5 2.5B2/8 CIExyY:0.123/0.2076/0.03126 -2 8 60 5B2/8 CIExyY:0.1245/0.1827/0.03126 -2 8 62.5 7.5B2/8 CIExyY:0.1313/0.1692/0.03126 -2 8 65 10B2/8 CIExyY:0.1396/0.1603/0.03126 -2 6 57.5 2.5B2/6 CIExyY:0.1621/0.2358/0.03126 -2 6 60 5B2/6 CIExyY:0.1617/0.2162/0.03126 -2 6 62.5 7.5B2/6 CIExyY:0.1658/0.2026/0.03126 -2 6 65 10B2/6 CIExyY:0.1716/0.1937/0.03126 -2 4 57.5 2.5B2/4 CIExyY:0.206/0.2649/0.03126 -2 4 60 5B2/4 CIExyY:0.2048/0.2518/0.03126 -2 4 62.5 7.5B2/4 CIExyY:0.2063/0.24/0.03126 -2 4 65 10B2/4 CIExyY:0.2102/0.2313/0.03126 -2 3 57.5 2.5B2/3 CIExyY:0.2314/0.2799/0.03126 -2 3 60 5B2/3 CIExyY:0.2297/0.27/0.03126 -2 3 62.5 7.5B2/3 CIExyY:0.2295/0.26/0.03126 -2 3 65 10B2/3 CIExyY:0.232/0.2515/0.03126 -2 2 57.5 2.5B2/2 CIExyY:0.2578/0.294/0.03126 -2 2 60 5B2/2 CIExyY:0.2559/0.2874/0.03126 -2 2 62.5 7.5B2/2 CIExyY:0.2545/0.2799/0.03126 -2 2 65 10B2/2 CIExyY:0.2558/0.2725/0.03126 -2 1 60 5B2/1 CIExyY:0.2829/0.3031/0.03126 -2 1 65 10B2/1 CIExyY:0.2818/0.2941/0.03126 -1 8 62.5 7.5B1/8 CIExyY:0.0968/0.128/0.0121 -1 8 65 10B1/8 CIExyY:0.1077/0.1218/0.0121 -1 6 57.5 2.5B1/6 CIExyY:0.1118/0.1908/0.0121 -1 6 60 5B1/6 CIExyY:0.1212/0.1745/0.0121 -1 6 62.5 7.5B1/6 CIExyY:0.1303/0.1639/0.0121 -1 6 65 10B1/6 CIExyY:0.1392/0.1563/0.0121 -1 4 57.5 2.5B1/4 CIExyY:0.1649/0.2324/0.0121 -1 4 60 5B1/4 CIExyY:0.1667/0.2168/0.0121 -1 4 62.5 7.5B1/4 CIExyY:0.1716/0.2048/0.0121 -1 4 65 10B1/4 CIExyY:0.1783/0.1974/0.0121 -1 2 57.5 2.5B1/2 CIExyY:0.2322/0.2781/0.0121 -1 2 60 5B1/2 CIExyY:0.2291/0.2677/0.0121 -1 2 62.5 7.5B1/2 CIExyY:0.2291/0.2579/0.0121 -1 2 65 10B1/2 CIExyY:0.2309/0.2491/0.0121 -9 4 75 10PB9/4 CIExyY:0.291/0.285/0.7866 -9 2 67.5 2.5PB9/2 CIExyY:0.2975/0.3063/0.7866 -9 2 70 5PB9/2 CIExyY:0.2991/0.3057/0.7866 -9 2 72.5 7.5PB9/2 CIExyY:0.3015/0.3052/0.7866 -9 2 75 10PB9/2 CIExyY:0.3038/0.3054/0.7866 -9 1 70 5PB9/1 CIExyY:0.3046/0.311/0.7866 -9 1 75 10PB9/1 CIExyY:0.3078/0.312/0.7866 -8 8 75 10PB8/8 CIExyY:0.2677/0.2443/0.591 -8 6 67.5 2.5PB8/6 CIExyY:0.2562/0.2709/0.591 -8 6 70 5PB8/6 CIExyY:0.2614/0.267/0.591 -8 6 72.5 7.5PB8/6 CIExyY:0.2702/0.2648/0.591 -8 6 75 10PB8/6 CIExyY:0.2792/0.2649/0.591 -8 4 67.5 2.5PB8/4 CIExyY:0.2758/0.2879/0.591 -8 4 70 5PB8/4 CIExyY:0.2798/0.2861/0.591 -8 4 72.5 7.5PB8/4 CIExyY:0.2856/0.2846/0.591 -8 4 75 10PB8/4 CIExyY:0.2911/0.2848/0.591 -8 3 67.5 2.5PB8/3 CIExyY:0.2861/0.2966/0.591 -8 3 70 5PB8/3 CIExyY:0.289/0.2954/0.591 -8 3 72.5 7.5PB8/3 CIExyY:0.2933/0.2944/0.591 -8 3 75 10PB8/3 CIExyY:0.2972/0.2946/0.591 -8 2 67.5 2.5PB8/2 CIExyY:0.2957/0.3047/0.591 -8 2 70 5PB8/2 CIExyY:0.2974/0.3039/0.591 -8 2 72.5 7.5PB8/2 CIExyY:0.3003/0.3034/0.591 -8 2 75 10PB8/2 CIExyY:0.3027/0.3035/0.591 -8 1 70 5PB8/1 CIExyY:0.3046/0.311/0.591 -8 1 75 10PB8/1 CIExyY:0.3072/0.3109/0.591 -7 12 75 10PB7/12 CIExyY:0.2465/0.2058/0.4306 -7 10 67.5 2.5PB7/10 CIExyY:0.2162/0.2309/0.4306 -7 10 70 5PB7/10 CIExyY:0.2254/0.2267/0.4306 -7 10 72.5 7.5PB7/10 CIExyY:0.241/0.2224/0.4306 -7 10 75 10PB7/10 CIExyY:0.2563/0.224/0.4306 -7 8 67.5 2.5PB7/8 CIExyY:0.2352/0.2498/0.4306 -7 8 70 5PB7/8 CIExyY:0.2427/0.2458/0.4306 -7 8 72.5 7.5PB7/8 CIExyY:0.2546/0.2418/0.4306 -7 8 75 10PB7/8 CIExyY:0.267/0.2425/0.4306 -7 6 67.5 2.5PB7/6 CIExyY:0.2538/0.2677/0.4306 -7 6 70 5PB7/6 CIExyY:0.2596/0.2643/0.4306 -7 6 72.5 7.5PB7/6 CIExyY:0.2687/0.2612/0.4306 -7 6 75 10PB7/6 CIExyY:0.2776/0.2612/0.4306 -7 4 67.5 2.5PB7/4 CIExyY:0.2729/0.2848/0.4306 -7 4 70 5PB7/4 CIExyY:0.2773/0.2828/0.4306 -7 4 72.5 7.5PB7/4 CIExyY:0.2833/0.2809/0.4306 -7 4 75 10PB7/4 CIExyY:0.2886/0.2801/0.4306 -7 3 67.5 2.5PB7/3 CIExyY:0.2832/0.2939/0.4306 -7 3 70 5PB7/3 CIExyY:0.2864/0.2922/0.4306 -7 3 72.5 7.5PB7/3 CIExyY:0.2909/0.2908/0.4306 -7 3 75 10PB7/3 CIExyY:0.2946/0.2902/0.4306 -7 2 67.5 2.5PB7/2 CIExyY:0.2932/0.3025/0.4306 -7 2 70 5PB7/2 CIExyY:0.2952/0.3011/0.4306 -7 2 72.5 7.5PB7/2 CIExyY:0.2982/0.3003/0.4306 -7 2 75 10PB7/2 CIExyY:0.3005/0.3/0.4306 -7 1 70 5PB7/1 CIExyY:0.3032/0.3093/0.4306 -7 1 75 10PB7/1 CIExyY:0.3058/0.3089/0.4306 -6 16 75 10PB6/16 CIExyY:0.2265/0.1671/0.3005 -6 14 67.5 2.5PB6/14 CIExyY:0.1754/0.1868/0.3005 -6 14 70 5PB6/14 CIExyY:0.1873/0.1822/0.3005 -6 14 72.5 7.5PB6/14 CIExyY:0.2119/0.1799/0.3005 -6 14 75 10PB6/14 CIExyY:0.2352/0.1839/0.3005 -6 12 67.5 2.5PB6/12 CIExyY:0.1913/0.2038/0.3005 -6 12 70 5PB6/12 CIExyY:0.2026/0.1999/0.3005 -6 12 72.5 7.5PB6/12 CIExyY:0.2241/0.1975/0.3005 -6 12 75 10PB6/12 CIExyY:0.244/0.1998/0.3005 -6 10 67.5 2.5PB6/10 CIExyY:0.2095/0.2225/0.3005 -6 10 70 5PB6/10 CIExyY:0.2197/0.2188/0.3005 -6 10 72.5 7.5PB6/10 CIExyY:0.2378/0.2168/0.3005 -6 10 75 10PB6/10 CIExyY:0.254/0.2176/0.3005 -6 8 67.5 2.5PB6/8 CIExyY:0.2274/0.2406/0.3005 -6 8 70 5PB6/8 CIExyY:0.236/0.2365/0.3005 -6 8 72.5 7.5PB6/8 CIExyY:0.2505/0.2347/0.3005 -6 8 75 10PB6/8 CIExyY:0.2637/0.2352/0.3005 -6 6 67.5 2.5PB6/6 CIExyY:0.2465/0.2599/0.3005 -6 6 70 5PB6/6 CIExyY:0.2533/0.2558/0.3005 -6 6 72.5 7.5PB6/6 CIExyY:0.2638/0.2531/0.3005 -6 6 75 10PB6/6 CIExyY:0.274/0.2533/0.3005 -6 4 67.5 2.5PB6/4 CIExyY:0.2684/0.2804/0.3005 -6 4 70 5PB6/4 CIExyY:0.2734/0.2778/0.3005 -6 4 72.5 7.5PB6/4 CIExyY:0.2798/0.2752/0.3005 -6 4 75 10PB6/4 CIExyY:0.2863/0.2747/0.3005 -6 3 67.5 2.5PB6/3 CIExyY:0.2791/0.29/0.3005 -6 3 70 5PB6/3 CIExyY:0.283/0.288/0.3005 -6 3 72.5 7.5PB6/3 CIExyY:0.2877/0.2859/0.3005 -6 3 75 10PB6/3 CIExyY:0.2926/0.2855/0.3005 -6 2 67.5 2.5PB6/2 CIExyY:0.2897/0.2991/0.3005 -6 2 70 5PB6/2 CIExyY:0.2923/0.2978/0.3005 -6 2 72.5 7.5PB6/2 CIExyY:0.2955/0.2963/0.3005 -6 2 75 10PB6/2 CIExyY:0.2988/0.2961/0.3005 -6 1 70 5PB6/1 CIExyY:0.3013/0.3072/0.3005 -6 1 75 10PB6/1 CIExyY:0.3047/0.3064/0.3005 -5 22 75 10PB5/22 CIExyY:0.2082/0.1225/0.1977 -5 20 72.5 7.5PB5/20 CIExyY:0.1794/0.1239/0.1977 -5 20 75 10PB5/20 CIExyY:0.2121/0.1329/0.1977 -5 18 67.5 2.5PB5/18 CIExyY:0.1363/0.141/0.1977 -5 18 70 5PB5/18 CIExyY:0.1518/0.1365/0.1977 -5 18 72.5 7.5PB5/18 CIExyY:0.1862/0.1365/0.1977 -5 18 75 10PB5/18 CIExyY:0.2174/0.1444/0.1977 -5 16 67.5 2.5PB5/16 CIExyY:0.1495/0.1559/0.1977 -5 16 70 5PB5/16 CIExyY:0.1638/0.1521/0.1977 -5 16 72.5 7.5PB5/16 CIExyY:0.1945/0.1511/0.1977 -5 16 75 10PB5/16 CIExyY:0.2224/0.1555/0.1977 -5 14 67.5 2.5PB5/14 CIExyY:0.1642/0.1723/0.1977 -5 14 70 5PB5/14 CIExyY:0.1773/0.1689/0.1977 -5 14 72.5 7.5PB5/14 CIExyY:0.2042/0.1661/0.1977 -5 14 75 10PB5/14 CIExyY:0.2299/0.1698/0.1977 -5 12 67.5 2.5PB5/12 CIExyY:0.1793/0.1894/0.1977 -5 12 70 5PB5/12 CIExyY:0.1918/0.1858/0.1977 -5 12 72.5 7.5PB5/12 CIExyY:0.2157/0.183/0.1977 -5 12 75 10PB5/12 CIExyY:0.2384/0.1857/0.1977 -5 10 67.5 2.5PB5/10 CIExyY:0.1968/0.2078/0.1977 -5 10 70 5PB5/10 CIExyY:0.208/0.2041/0.1977 -5 10 72.5 7.5PB5/10 CIExyY:0.2285/0.202/0.1977 -5 10 75 10PB5/10 CIExyY:0.2478/0.203/0.1977 -5 8 67.5 2.5PB5/8 CIExyY:0.2157/0.2278/0.1977 -5 8 70 5PB5/8 CIExyY:0.2255/0.2239/0.1977 -5 8 72.5 7.5PB5/8 CIExyY:0.2417/0.2204/0.1977 -5 8 75 10PB5/8 CIExyY:0.2572/0.2211/0.1977 -5 6 67.5 2.5PB5/6 CIExyY:0.2365/0.2488/0.1977 -5 6 70 5PB5/6 CIExyY:0.2447/0.2449/0.1977 -5 6 72.5 7.5PB5/6 CIExyY:0.2563/0.2417/0.1977 -5 6 75 10PB5/6 CIExyY:0.2686/0.2412/0.1977 -5 4 67.5 2.5PB5/4 CIExyY:0.26/0.272/0.1977 -5 4 70 5PB5/4 CIExyY:0.2662/0.2687/0.1977 -5 4 72.5 7.5PB5/4 CIExyY:0.2739/0.2666/0.1977 -5 4 75 10PB5/4 CIExyY:0.2821/0.2659/0.1977 -5 3 67.5 2.5PB5/3 CIExyY:0.2722/0.2832/0.1977 -5 3 70 5PB5/3 CIExyY:0.2772/0.2805/0.1977 -5 3 72.5 7.5PB5/3 CIExyY:0.2828/0.2787/0.1977 -5 3 75 10PB5/3 CIExyY:0.289/0.2781/0.1977 -5 2 67.5 2.5PB5/2 CIExyY:0.2847/0.2942/0.1977 -5 2 70 5PB5/2 CIExyY:0.2882/0.2923/0.1977 -5 2 72.5 7.5PB5/2 CIExyY:0.2918/0.2908/0.1977 -5 2 75 10PB5/2 CIExyY:0.2959/0.2905/0.1977 -5 1 70 5PB5/1 CIExyY:0.2992/0.3042/0.1977 -5 1 75 10PB5/1 CIExyY:0.3029/0.3032/0.1977 -4 30 75 10PB4/30 CIExyY:0.1952/0.0778/0.12 -4 28 75 10PB4/28 CIExyY:0.1971/0.084/0.12 -4 26 72.5 7.5PB4/26 CIExyY:0.1659/0.0825/0.12 -4 26 75 10PB4/26 CIExyY:0.1994/0.0904/0.12 -4 24 72.5 7.5PB4/24 CIExyY:0.1684/0.0899/0.12 -4 24 75 10PB4/24 CIExyY:0.202/0.0985/0.12 -4 22 72.5 7.5PB4/22 CIExyY:0.1713/0.098/0.12 -4 22 75 10PB4/22 CIExyY:0.2048/0.1064/0.12 -4 20 70 5PB4/20 CIExyY:0.1288/0.1027/0.12 -4 20 72.5 7.5PB4/20 CIExyY:0.1742/0.1058/0.12 -4 20 75 10PB4/20 CIExyY:0.2075/0.114/0.12 -4 18 67.5 2.5PB4/18 CIExyY:0.1218/0.1203/0.12 -4 18 70 5PB4/18 CIExyY:0.1392/0.1167/0.12 -4 18 72.5 7.5PB4/18 CIExyY:0.1798/0.1185/0.12 -4 18 75 10PB4/18 CIExyY:0.212/0.1256/0.12 -4 16 67.5 2.5PB4/16 CIExyY:0.1336/0.1349/0.12 -4 16 70 5PB4/16 CIExyY:0.1504/0.1317/0.12 -4 16 72.5 7.5PB4/16 CIExyY:0.1861/0.1316/0.12 -4 16 75 10PB4/16 CIExyY:0.217/0.1373/0.12 -4 14 67.5 2.5PB4/14 CIExyY:0.1473/0.1513/0.12 -4 14 70 5PB4/14 CIExyY:0.1627/0.1479/0.12 -4 14 72.5 7.5PB4/14 CIExyY:0.1941/0.1468/0.12 -4 14 75 10PB4/14 CIExyY:0.222/0.1503/0.12 -4 12 67.5 2.5PB4/12 CIExyY:0.1634/0.1698/0.12 -4 12 70 5PB4/12 CIExyY:0.1773/0.1659/0.12 -4 12 72.5 7.5PB4/12 CIExyY:0.2037/0.1629/0.12 -4 12 75 10PB4/12 CIExyY:0.2298/0.1659/0.12 -4 10 67.5 2.5PB4/10 CIExyY:0.1805/0.1888/0.12 -4 10 70 5PB4/10 CIExyY:0.1925/0.1843/0.12 -4 10 72.5 7.5PB4/10 CIExyY:0.2158/0.1811/0.12 -4 10 75 10PB4/10 CIExyY:0.2388/0.1837/0.12 -4 8 67.5 2.5PB4/8 CIExyY:0.1995/0.2094/0.12 -4 8 70 5PB4/8 CIExyY:0.2103/0.205/0.12 -4 8 72.5 7.5PB4/8 CIExyY:0.2304/0.2023/0.12 -4 8 75 10PB4/8 CIExyY:0.2497/0.2038/0.12 -4 6 67.5 2.5PB4/6 CIExyY:0.2235/0.2343/0.12 -4 6 70 5PB4/6 CIExyY:0.2325/0.23/0.12 -4 6 72.5 7.5PB4/6 CIExyY:0.2471/0.2266/0.12 -4 6 75 10PB4/6 CIExyY:0.2618/0.2263/0.12 -4 4 67.5 2.5PB4/4 CIExyY:0.2487/0.2597/0.12 -4 4 70 5PB4/4 CIExyY:0.2562/0.256/0.12 -4 4 72.5 7.5PB4/4 CIExyY:0.2657/0.2528/0.12 -4 4 75 10PB4/4 CIExyY:0.2759/0.2522/0.12 -4 3 67.5 2.5PB4/3 CIExyY:0.263/0.2734/0.12 -4 3 70 5PB4/3 CIExyY:0.2686/0.2697/0.12 -4 3 72.5 7.5PB4/3 CIExyY:0.2756/0.2668/0.12 -4 3 75 10PB4/3 CIExyY:0.2832/0.2657/0.12 -4 2 67.5 2.5PB4/2 CIExyY:0.2782/0.2876/0.12 -4 2 70 5PB4/2 CIExyY:0.2816/0.2842/0.12 -4 2 72.5 7.5PB4/2 CIExyY:0.2861/0.2819/0.12 -4 2 75 10PB4/2 CIExyY:0.2911/0.2804/0.12 -4 1 70 5PB4/1 CIExyY:0.2954/0.2997/0.12 -4 1 75 10PB4/1 CIExyY:0.3/0.2971/0.12 -3 34 72.5 7.5PB3/34 CIExyY:0.1608/0.048/0.06555 -3 34 75 10PB3/34 CIExyY:0.1918/0.0503/0.06555 -3 32 72.5 7.5PB3/32 CIExyY:0.1612/0.0511/0.06555 -3 32 75 10PB3/32 CIExyY:0.1926/0.0542/0.06555 -3 30 72.5 7.5PB3/30 CIExyY:0.1621/0.0556/0.06555 -3 30 75 10PB3/30 CIExyY:0.1938/0.0599/0.06555 -3 28 72.5 7.5PB3/28 CIExyY:0.1632/0.0609/0.06555 -3 28 75 10PB3/28 CIExyY:0.195/0.065/0.06555 -3 26 72.5 7.5PB3/26 CIExyY:0.1642/0.0655/0.06555 -3 26 75 10PB3/26 CIExyY:0.1963/0.0708/0.06555 -3 24 72.5 7.5PB3/24 CIExyY:0.1658/0.0711/0.06555 -3 24 75 10PB3/24 CIExyY:0.1982/0.0772/0.06555 -3 22 72.5 7.5PB3/22 CIExyY:0.1677/0.0782/0.06555 -3 22 75 10PB3/22 CIExyY:0.2004/0.0847/0.06555 -3 20 72.5 7.5PB3/20 CIExyY:0.1702/0.0867/0.06555 -3 20 75 10PB3/20 CIExyY:0.203/0.093/0.06555 -3 18 70 5PB3/18 CIExyY:0.1228/0.0895/0.06555 -3 18 72.5 7.5PB3/18 CIExyY:0.173/0.0948/0.06555 -3 18 75 10PB3/18 CIExyY:0.206/0.102/0.06555 -3 16 70 5PB3/16 CIExyY:0.1318/0.1024/0.06555 -3 16 72.5 7.5PB3/16 CIExyY:0.1765/0.1048/0.06555 -3 16 75 10PB3/16 CIExyY:0.2092/0.1118/0.06555 -3 14 67.5 2.5PB3/14 CIExyY:0.1251/0.1218/0.06555 -3 14 70 5PB3/14 CIExyY:0.1431/0.1184/0.06555 -3 14 72.5 7.5PB3/14 CIExyY:0.1824/0.1188/0.06555 -3 14 75 10PB3/14 CIExyY:0.2142/0.125/0.06555 -3 12 67.5 2.5PB3/12 CIExyY:0.1398/0.1395/0.06555 -3 12 70 5PB3/12 CIExyY:0.1557/0.1356/0.06555 -3 12 72.5 7.5PB3/12 CIExyY:0.1903/0.1353/0.06555 -3 12 75 10PB3/12 CIExyY:0.2206/0.1407/0.06555 -3 10 67.5 2.5PB3/10 CIExyY:0.1576/0.16/0.06555 -3 10 70 5PB3/10 CIExyY:0.1718/0.1562/0.06555 -3 10 72.5 7.5PB3/10 CIExyY:0.2005/0.1536/0.06555 -3 10 75 10PB3/10 CIExyY:0.2278/0.1565/0.06555 -3 8 67.5 2.5PB3/8 CIExyY:0.178/0.1833/0.06555 -3 8 70 5PB3/8 CIExyY:0.1908/0.1799/0.06555 -3 8 72.5 7.5PB3/8 CIExyY:0.2149/0.1761/0.06555 -3 8 75 10PB3/8 CIExyY:0.2387/0.1786/0.06555 -3 6 67.5 2.5PB3/6 CIExyY:0.2022/0.2101/0.06555 -3 6 70 5PB3/6 CIExyY:0.2122/0.2052/0.06555 -3 6 72.5 7.5PB3/6 CIExyY:0.2311/0.201/0.06555 -3 6 75 10PB3/6 CIExyY:0.2511/0.2031/0.06555 -3 4 67.5 2.5PB3/4 CIExyY:0.2312/0.2405/0.06555 -3 4 70 5PB3/4 CIExyY:0.2393/0.2361/0.06555 -3 4 72.5 7.5PB3/4 CIExyY:0.252/0.2319/0.06555 -3 4 75 10PB3/4 CIExyY:0.266/0.2319/0.06555 -3 3 67.5 2.5PB3/3 CIExyY:0.2478/0.2574/0.06555 -3 3 70 5PB3/3 CIExyY:0.2543/0.2532/0.06555 -3 3 72.5 7.5PB3/3 CIExyY:0.2641/0.2493/0.06555 -3 3 75 10PB3/3 CIExyY:0.2747/0.2482/0.06555 -3 2 67.5 2.5PB3/2 CIExyY:0.2663/0.2756/0.06555 -3 2 70 5PB3/2 CIExyY:0.2708/0.2719/0.06555 -3 2 72.5 7.5PB3/2 CIExyY:0.2777/0.2687/0.06555 -3 2 75 10PB3/2 CIExyY:0.2847/0.267/0.06555 -3 1 70 5PB3/1 CIExyY:0.2893/0.2928/0.06555 -3 1 75 10PB3/1 CIExyY:0.2964/0.2894/0.06555 -2 38 72.5 7.5PB2/38 CIExyY:0.1623/0.028/0.03126 -2 36 72.5 7.5PB2/36 CIExyY:0.1628/0.031/0.03126 -2 34 72.5 7.5PB2/34 CIExyY:0.163/0.034/0.03126 -2 34 75 10PB2/34 CIExyY:0.1911/0.0344/0.03126 -2 32 72.5 7.5PB2/32 CIExyY:0.1635/0.0373/0.03126 -2 32 75 10PB2/32 CIExyY:0.1918/0.0379/0.03126 -2 30 72.5 7.5PB2/30 CIExyY:0.164/0.0409/0.03126 -2 30 75 10PB2/30 CIExyY:0.1925/0.042/0.03126 -2 28 72.5 7.5PB2/28 CIExyY:0.1647/0.0451/0.03126 -2 28 75 10PB2/28 CIExyY:0.1937/0.0471/0.03126 -2 26 72.5 7.5PB2/26 CIExyY:0.1653/0.0492/0.03126 -2 26 75 10PB2/26 CIExyY:0.1949/0.052/0.03126 -2 24 72.5 7.5PB2/24 CIExyY:0.166/0.0538/0.03126 -2 24 75 10PB2/24 CIExyY:0.1962/0.0578/0.03126 -2 22 72.5 7.5PB2/22 CIExyY:0.167/0.0594/0.03126 -2 22 75 10PB2/22 CIExyY:0.1978/0.0643/0.03126 -2 20 72.5 7.5PB2/20 CIExyY:0.1685/0.0666/0.03126 -2 20 75 10PB2/20 CIExyY:0.1998/0.0718/0.03126 -2 18 72.5 7.5PB2/18 CIExyY:0.1701/0.0742/0.03126 -2 18 75 10PB2/18 CIExyY:0.2021/0.0808/0.03126 -2 16 72.5 7.5PB2/16 CIExyY:0.1728/0.0839/0.03126 -2 16 75 10PB2/16 CIExyY:0.2052/0.091/0.03126 -2 14 70 5PB2/14 CIExyY:0.1253/0.0873/0.03126 -2 14 72.5 7.5PB2/14 CIExyY:0.1762/0.0955/0.03126 -2 14 75 10PB2/14 CIExyY:0.2087/0.1026/0.03126 -2 12 67.5 2.5PB2/12 CIExyY:0.1166/0.1076/0.03126 -2 12 70 5PB2/12 CIExyY:0.1363/0.1048/0.03126 -2 12 72.5 7.5PB2/12 CIExyY:0.1813/0.1094/0.03126 -2 12 75 10PB2/12 CIExyY:0.2139/0.117/0.03126 -2 10 67.5 2.5PB2/10 CIExyY:0.1332/0.1278/0.03126 -2 10 70 5PB2/10 CIExyY:0.15/0.124/0.03126 -2 10 72.5 7.5PB2/10 CIExyY:0.1882/0.1258/0.03126 -2 10 75 10PB2/10 CIExyY:0.22/0.133/0.03126 -2 8 67.5 2.5PB2/8 CIExyY:0.154/0.153/0.03126 -2 8 70 5PB2/8 CIExyY:0.1685/0.1491/0.03126 -2 8 72.5 7.5PB2/8 CIExyY:0.2005/0.1495/0.03126 -2 8 75 10PB2/8 CIExyY:0.2294/0.1551/0.03126 -2 6 67.5 2.5PB2/6 CIExyY:0.1825/0.1857/0.03126 -2 6 70 5PB2/6 CIExyY:0.1942/0.1811/0.03126 -2 6 72.5 7.5PB2/6 CIExyY:0.2189/0.179/0.03126 -2 6 75 10PB2/6 CIExyY:0.244/0.184/0.03126 -2 4 67.5 2.5PB2/4 CIExyY:0.2175/0.2245/0.03126 -2 4 70 5PB2/4 CIExyY:0.2263/0.2192/0.03126 -2 4 72.5 7.5PB2/4 CIExyY:0.242/0.2148/0.03126 -2 4 75 10PB2/4 CIExyY:0.26/0.2162/0.03126 -2 3 67.5 2.5PB2/3 CIExyY:0.2374/0.2454/0.03126 -2 3 70 5PB2/3 CIExyY:0.2442/0.2398/0.03126 -2 3 72.5 7.5PB2/3 CIExyY:0.2556/0.2351/0.03126 -2 3 75 10PB2/3 CIExyY:0.2693/0.2347/0.03126 -2 2 67.5 2.5PB2/2 CIExyY:0.2592/0.2675/0.03126 -2 2 70 5PB2/2 CIExyY:0.2638/0.2624/0.03126 -2 2 72.5 7.5PB2/2 CIExyY:0.2712/0.2582/0.03126 -2 2 75 10PB2/2 CIExyY:0.2803/0.2567/0.03126 -2 1 70 5PB2/1 CIExyY:0.2856/0.2877/0.03126 -2 1 75 10PB2/1 CIExyY:0.2937/0.2834/0.03126 -1 38 72.5 7.5PB1/38 CIExyY:0.168/0.014/0.0121 -1 36 72.5 7.5PB1/36 CIExyY:0.1681/0.016/0.0121 -1 34 72.5 7.5PB1/34 CIExyY:0.1682/0.018/0.0121 -1 32 72.5 7.5PB1/32 CIExyY:0.1682/0.0202/0.0121 -1 30 72.5 7.5PB1/30 CIExyY:0.1684/0.0234/0.0121 -1 30 75 10PB1/30 CIExyY:0.1928/0.024/0.0121 -1 28 72.5 7.5PB1/28 CIExyY:0.1686/0.027/0.0121 -1 28 75 10PB1/28 CIExyY:0.1936/0.0281/0.0121 -1 26 72.5 7.5PB1/26 CIExyY:0.1689/0.0309/0.0121 -1 26 75 10PB1/26 CIExyY:0.1942/0.0326/0.0121 -1 24 72.5 7.5PB1/24 CIExyY:0.1691/0.0352/0.0121 -1 24 75 10PB1/24 CIExyY:0.1952/0.038/0.0121 -1 22 72.5 7.5PB1/22 CIExyY:0.1696/0.0402/0.0121 -1 22 75 10PB1/22 CIExyY:0.1965/0.0436/0.0121 -1 20 72.5 7.5PB1/20 CIExyY:0.1701/0.0454/0.0121 -1 20 75 10PB1/20 CIExyY:0.1976/0.0493/0.0121 -1 18 72.5 7.5PB1/18 CIExyY:0.1709/0.0518/0.0121 -1 18 75 10PB1/18 CIExyY:0.1991/0.0564/0.0121 -1 16 72.5 7.5PB1/16 CIExyY:0.172/0.0583/0.0121 -1 16 75 10PB1/16 CIExyY:0.2003/0.0638/0.0121 -1 14 72.5 7.5PB1/14 CIExyY:0.1738/0.0688/0.0121 -1 14 75 10PB1/14 CIExyY:0.2038/0.0745/0.0121 -1 12 72.5 7.5PB1/12 CIExyY:0.1763/0.0804/0.0121 -1 12 75 10PB1/12 CIExyY:0.207/0.0869/0.0121 -1 10 70 5PB1/10 CIExyY:0.1285/0.087/0.0121 -1 10 72.5 7.5PB1/10 CIExyY:0.1804/0.095/0.0121 -1 10 75 10PB1/10 CIExyY:0.212/0.1029/0.0121 -1 8 67.5 2.5PB1/8 CIExyY:0.1273/0.1157/0.0121 -1 8 70 5PB1/8 CIExyY:0.1447/0.1124/0.0121 -1 8 72.5 7.5PB1/8 CIExyY:0.1872/0.1141/0.0121 -1 8 75 10PB1/8 CIExyY:0.219/0.1228/0.0121 -1 6 67.5 2.5PB1/6 CIExyY:0.1539/0.1491/0.0121 -1 6 70 5PB1/6 CIExyY:0.1678/0.1447/0.0121 -1 6 72.5 7.5PB1/6 CIExyY:0.2/0.1422/0.0121 -1 6 75 10PB1/6 CIExyY:0.229/0.147/0.0121 -1 4 67.5 2.5PB1/4 CIExyY:0.1895/0.1911/0.0121 -1 4 70 5PB1/4 CIExyY:0.2012/0.1867/0.0121 -1 4 72.5 7.5PB1/4 CIExyY:0.2232/0.1821/0.0121 -1 4 75 10PB1/4 CIExyY:0.2459/0.1828/0.0121 -1 2 67.5 2.5PB1/2 CIExyY:0.236/0.242/0.0121 -1 2 70 5PB1/2 CIExyY:0.2427/0.2368/0.0121 -1 2 72.5 7.5PB1/2 CIExyY:0.2547/0.231/0.0121 -1 2 75 10PB1/2 CIExyY:0.2677/0.228/0.0121 -9 6 82.5 7.5P9/6 CIExyY:0.312/0.2788/0.7866 -9 6 85 10P9/6 CIExyY:0.3218/0.2845/0.7866 -9 4 77.5 2.5P9/4 CIExyY:0.2963/0.2865/0.7866 -9 4 80 5P9/4 CIExyY:0.3003/0.287/0.7866 -9 4 82.5 7.5P9/4 CIExyY:0.3117/0.2928/0.7866 -9 4 85 10P9/4 CIExyY:0.3176/0.2966/0.7866 -9 2 77.5 2.5P9/2 CIExyY:0.305/0.3051/0.7866 -9 2 80 5P9/2 CIExyY:0.3067/0.306/0.7866 -9 2 82.5 7.5P9/2 CIExyY:0.3107/0.3081/0.7866 -9 2 85 10P9/2 CIExyY:0.3128/0.3094/0.7866 -9 1 80 5P9/1 CIExyY:0.3088/0.3122/0.7866 -9 1 85 10P9/1 CIExyY:0.311/0.314/0.7866 -8 14 85 10P8/14 CIExyY:0.3342/0.2349/0.591 -8 12 82.5 7.5P8/12 CIExyY:0.3117/0.237/0.591 -8 12 85 10P8/12 CIExyY:0.3312/0.247/0.591 -8 10 80 5P8/10 CIExyY:0.287/0.238/0.591 -8 10 82.5 7.5P8/10 CIExyY:0.3116/0.2497/0.591 -8 10 85 10P8/10 CIExyY:0.3282/0.2582/0.591 -8 8 77.5 2.5P8/8 CIExyY:0.28/0.2488/0.591 -8 8 80 5P8/8 CIExyY:0.2914/0.2534/0.591 -8 8 82.5 7.5P8/8 CIExyY:0.3116/0.2626/0.591 -8 8 85 10P8/8 CIExyY:0.325/0.27/0.591 -8 6 77.5 2.5P8/6 CIExyY:0.2881/0.2671/0.591 -8 6 80 5P8/6 CIExyY:0.2963/0.2704/0.591 -8 6 82.5 7.5P8/6 CIExyY:0.3114/0.2785/0.591 -8 6 85 10P8/6 CIExyY:0.3213/0.2829/0.591 -8 4 77.5 2.5P8/4 CIExyY:0.2962/0.285/0.591 -8 4 80 5P8/4 CIExyY:0.3012/0.2868/0.591 -8 4 82.5 7.5P8/4 CIExyY:0.3114/0.2915/0.591 -8 4 85 10P8/4 CIExyY:0.3175/0.2955/0.591 -8 3 77.5 2.5P8/3 CIExyY:0.3007/0.2949/0.591 -8 3 80 5P8/3 CIExyY:0.3039/0.2961/0.591 -8 3 82.5 7.5P8/3 CIExyY:0.3111/0.2995/0.591 -8 3 85 10P8/3 CIExyY:0.3152/0.3022/0.591 -8 2 77.5 2.5P8/2 CIExyY:0.3048/0.304/0.591 -8 2 80 5P8/2 CIExyY:0.3065/0.3047/0.591 -8 2 82.5 7.5P8/2 CIExyY:0.3107/0.307/0.591 -8 2 85 10P8/2 CIExyY:0.3131/0.3084/0.591 -8 1 80 5P8/1 CIExyY:0.3086/0.3118/0.591 -8 1 85 10P8/1 CIExyY:0.3113/0.3133/0.591 -7 22 85 10P7/22 CIExyY:0.343/0.1883/0.4306 -7 20 85 10P7/20 CIExyY:0.341/0.1988/0.4306 -7 18 82.5 7.5P7/18 CIExyY:0.3093/0.1962/0.4306 -7 18 85 10P7/18 CIExyY:0.3391/0.2088/0.4306 -7 16 82.5 7.5P7/16 CIExyY:0.3099/0.2074/0.4306 -7 16 85 10P7/16 CIExyY:0.3368/0.2192/0.4306 -7 14 80 5P7/14 CIExyY:0.2801/0.2068/0.4306 -7 14 82.5 7.5P7/14 CIExyY:0.3101/0.2192/0.4306 -7 14 85 10P7/14 CIExyY:0.3341/0.2308/0.4306 -7 12 77.5 2.5P7/12 CIExyY:0.2664/0.2127/0.4306 -7 12 80 5P7/12 CIExyY:0.2833/0.2197/0.4306 -7 12 82.5 7.5P7/12 CIExyY:0.3104/0.232/0.4306 -7 12 85 10P7/12 CIExyY:0.3314/0.2423/0.4306 -7 10 77.5 2.5P7/10 CIExyY:0.2729/0.2289/0.4306 -7 10 80 5P7/10 CIExyY:0.2872/0.2343/0.4306 -7 10 82.5 7.5P7/10 CIExyY:0.3108/0.2442/0.4306 -7 10 85 10P7/10 CIExyY:0.3288/0.2531/0.4306 -7 8 77.5 2.5P7/8 CIExyY:0.2799/0.2459/0.4306 -7 8 80 5P7/8 CIExyY:0.2918/0.2504/0.4306 -7 8 82.5 7.5P7/8 CIExyY:0.3109/0.2584/0.4306 -7 8 85 10P7/8 CIExyY:0.3256/0.2654/0.4306 -7 6 77.5 2.5P7/6 CIExyY:0.2873/0.2633/0.4306 -7 6 80 5P7/6 CIExyY:0.2961/0.2663/0.4306 -7 6 82.5 7.5P7/6 CIExyY:0.3111/0.273/0.4306 -7 6 85 10P7/6 CIExyY:0.3221/0.2786/0.4306 -7 4 77.5 2.5P7/4 CIExyY:0.295/0.281/0.4306 -7 4 80 5P7/4 CIExyY:0.3009/0.2831/0.4306 -7 4 82.5 7.5P7/4 CIExyY:0.3111/0.288/0.4306 -7 4 85 10P7/4 CIExyY:0.3181/0.292/0.4306 -7 3 77.5 2.5P7/3 CIExyY:0.2991/0.2906/0.4306 -7 3 80 5P7/3 CIExyY:0.3034/0.2921/0.4306 -7 3 82.5 7.5P7/3 CIExyY:0.3111/0.296/0.4306 -7 3 85 10P7/3 CIExyY:0.3159/0.2989/0.4306 -7 2 77.5 2.5P7/2 CIExyY:0.3031/0.3/0.4306 -7 2 80 5P7/2 CIExyY:0.3059/0.301/0.4306 -7 2 82.5 7.5P7/2 CIExyY:0.3109/0.3037/0.4306 -7 2 85 10P7/2 CIExyY:0.3138/0.3054/0.4306 -7 1 80 5P7/1 CIExyY:0.3082/0.3092/0.4306 -7 1 85 10P7/1 CIExyY:0.3118/0.3113/0.4306 -6 26 85 10P6/26 CIExyY:0.3457/0.1604/0.3005 -6 24 82.5 7.5P6/24 CIExyY:0.3058/0.1547/0.3005 -6 24 85 10P6/24 CIExyY:0.3441/0.1698/0.3005 -6 22 82.5 7.5P6/22 CIExyY:0.3062/0.1638/0.3005 -6 22 85 10P6/22 CIExyY:0.3426/0.1785/0.3005 -6 20 80 5P6/20 CIExyY:0.2702/0.1621/0.3005 -6 20 82.5 7.5P6/20 CIExyY:0.3069/0.1745/0.3005 -6 20 85 10P6/20 CIExyY:0.3409/0.1882/0.3005 -6 18 77.5 2.5P6/18 CIExyY:0.2504/0.1658/0.3005 -6 18 80 5P6/18 CIExyY:0.2731/0.1738/0.3005 -6 18 82.5 7.5P6/18 CIExyY:0.3075/0.187/0.3005 -6 18 85 10P6/18 CIExyY:0.3388/0.1995/0.3005 -6 16 77.5 2.5P6/16 CIExyY:0.2548/0.1768/0.3005 -6 16 80 5P6/16 CIExyY:0.2761/0.1852/0.3005 -6 16 82.5 7.5P6/16 CIExyY:0.308/0.1976/0.3005 -6 16 85 10P6/16 CIExyY:0.337/0.2095/0.3005 -6 14 77.5 2.5P6/14 CIExyY:0.2593/0.1909/0.3005 -6 14 80 5P6/14 CIExyY:0.2794/0.1979/0.3005 -6 14 82.5 7.5P6/14 CIExyY:0.3084/0.2095/0.3005 -6 14 85 10P6/14 CIExyY:0.3349/0.2203/0.3005 -6 12 77.5 2.5P6/12 CIExyY:0.2647/0.2052/0.3005 -6 12 80 5P6/12 CIExyY:0.2829/0.2121/0.3005 -6 12 82.5 7.5P6/12 CIExyY:0.309/0.2222/0.3005 -6 12 85 10P6/12 CIExyY:0.3321/0.2329/0.3005 -6 10 77.5 2.5P6/10 CIExyY:0.2703/0.2204/0.3005 -6 10 80 5P6/10 CIExyY:0.2862/0.226/0.3005 -6 10 82.5 7.5P6/10 CIExyY:0.3092/0.235/0.3005 -6 10 85 10P6/10 CIExyY:0.3293/0.245/0.3005 -6 8 77.5 2.5P6/8 CIExyY:0.277/0.2372/0.3005 -6 8 80 5P6/8 CIExyY:0.2905/0.2421/0.3005 -6 8 82.5 7.5P6/8 CIExyY:0.3099/0.2502/0.3005 -6 8 85 10P6/8 CIExyY:0.3259/0.2584/0.3005 -6 6 77.5 2.5P6/6 CIExyY:0.2842/0.255/0.3005 -6 6 80 5P6/6 CIExyY:0.295/0.2585/0.3005 -6 6 82.5 7.5P6/6 CIExyY:0.3101/0.265/0.3005 -6 6 85 10P6/6 CIExyY:0.3226/0.2716/0.3005 -6 4 77.5 2.5P6/4 CIExyY:0.2932/0.2759/0.3005 -6 4 80 5P6/4 CIExyY:0.3001/0.2778/0.3005 -6 4 82.5 7.5P6/4 CIExyY:0.3107/0.2831/0.3005 -6 4 85 10P6/4 CIExyY:0.3181/0.2871/0.3005 -6 3 77.5 2.5P6/3 CIExyY:0.2974/0.286/0.3005 -6 3 80 5P6/3 CIExyY:0.3025/0.2872/0.3005 -6 3 82.5 7.5P6/3 CIExyY:0.3108/0.2913/0.3005 -6 3 85 10P6/3 CIExyY:0.3164/0.2945/0.3005 -6 2 77.5 2.5P6/2 CIExyY:0.3016/0.296/0.3005 -6 2 80 5P6/2 CIExyY:0.305/0.2967/0.3005 -6 2 82.5 7.5P6/2 CIExyY:0.3107/0.2993/0.3005 -6 2 85 10P6/2 CIExyY:0.3146/0.3018/0.3005 -6 1 80 5P6/1 CIExyY:0.3075/0.3063/0.3005 -6 1 85 10P6/1 CIExyY:0.3126/0.309/0.3005 -5 30 82.5 7.5P5/30 CIExyY:0.301/0.117/0.1977 -5 30 85 10P5/30 CIExyY:0.349/0.1308/0.1977 -5 28 80 5P5/28 CIExyY:0.2618/0.1135/0.1977 -5 28 82.5 7.5P5/28 CIExyY:0.3018/0.1253/0.1977 -5 28 85 10P5/28 CIExyY:0.3478/0.1388/0.1977 -5 26 77.5 2.5P5/26 CIExyY:0.2348/0.114/0.1977 -5 26 80 5P5/26 CIExyY:0.2635/0.1224/0.1977 -5 26 82.5 7.5P5/26 CIExyY:0.3022/0.1331/0.1977 -5 26 85 10P5/26 CIExyY:0.3468/0.146/0.1977 -5 24 77.5 2.5P5/24 CIExyY:0.2372/0.1223/0.1977 -5 24 80 5P5/24 CIExyY:0.2652/0.1304/0.1977 -5 24 82.5 7.5P5/24 CIExyY:0.303/0.1423/0.1977 -5 24 85 10P5/24 CIExyY:0.345/0.1555/0.1977 -5 22 77.5 2.5P5/22 CIExyY:0.2402/0.1315/0.1977 -5 22 80 5P5/22 CIExyY:0.2673/0.1398/0.1977 -5 22 82.5 7.5P5/22 CIExyY:0.3038/0.15/0.1977 -5 22 85 10P5/22 CIExyY:0.3437/0.1644/0.1977 -5 20 77.5 2.5P5/20 CIExyY:0.2438/0.1419/0.1977 -5 20 80 5P5/20 CIExyY:0.2694/0.1499/0.1977 -5 20 82.5 7.5P5/20 CIExyY:0.3042/0.1606/0.1977 -5 20 85 10P5/20 CIExyY:0.3422/0.1735/0.1977 -5 18 77.5 2.5P5/18 CIExyY:0.2476/0.1532/0.1977 -5 18 80 5P5/18 CIExyY:0.2718/0.1604/0.1977 -5 18 82.5 7.5P5/18 CIExyY:0.3052/0.1711/0.1977 -5 18 85 10P5/18 CIExyY:0.3401/0.184/0.1977 -5 16 77.5 2.5P5/16 CIExyY:0.2515/0.1644/0.1977 -5 16 80 5P5/16 CIExyY:0.2744/0.1718/0.1977 -5 16 82.5 7.5P5/16 CIExyY:0.306/0.183/0.1977 -5 16 85 10P5/16 CIExyY:0.3382/0.1951/0.1977 -5 14 77.5 2.5P5/14 CIExyY:0.256/0.1774/0.1977 -5 14 80 5P5/14 CIExyY:0.2775/0.1847/0.1977 -5 14 82.5 7.5P5/14 CIExyY:0.3068/0.1951/0.1977 -5 14 85 10P5/14 CIExyY:0.336/0.2067/0.1977 -5 12 77.5 2.5P5/12 CIExyY:0.2608/0.1913/0.1977 -5 12 80 5P5/12 CIExyY:0.2806/0.1977/0.1977 -5 12 82.5 7.5P5/12 CIExyY:0.3071/0.208/0.1977 -5 12 85 10P5/12 CIExyY:0.3338/0.2186/0.1977 -5 10 77.5 2.5P5/10 CIExyY:0.2665/0.2075/0.1977 -5 10 80 5P5/10 CIExyY:0.2845/0.2137/0.1977 -5 10 82.5 7.5P5/10 CIExyY:0.308/0.223/0.1977 -5 10 85 10P5/10 CIExyY:0.3308/0.2328/0.1977 -5 8 77.5 2.5P5/8 CIExyY:0.2728/0.224/0.1977 -5 8 80 5P5/8 CIExyY:0.2885/0.2296/0.1977 -5 8 82.5 7.5P5/8 CIExyY:0.3087/0.2375/0.1977 -5 8 85 10P5/8 CIExyY:0.328/0.2464/0.1977 -5 6 77.5 2.5P5/6 CIExyY:0.2806/0.2444/0.1977 -5 6 80 5P5/6 CIExyY:0.2932/0.2487/0.1977 -5 6 82.5 7.5P5/6 CIExyY:0.3093/0.2555/0.1977 -5 6 85 10P5/6 CIExyY:0.3243/0.263/0.1977 -5 4 77.5 2.5P5/4 CIExyY:0.2898/0.2667/0.1977 -5 4 80 5P5/4 CIExyY:0.2986/0.2699/0.1977 -5 4 82.5 7.5P5/4 CIExyY:0.31/0.275/0.1977 -5 4 85 10P5/4 CIExyY:0.3193/0.2807/0.1977 -5 3 77.5 2.5P5/3 CIExyY:0.2948/0.2788/0.1977 -5 3 80 5P5/3 CIExyY:0.3015/0.2812/0.1977 -5 3 82.5 7.5P5/3 CIExyY:0.3102/0.2854/0.1977 -5 3 85 10P5/3 CIExyY:0.3173/0.2897/0.1977 -5 2 77.5 2.5P5/2 CIExyY:0.3/0.2912/0.1977 -5 2 80 5P5/2 CIExyY:0.3045/0.2928/0.1977 -5 2 82.5 7.5P5/2 CIExyY:0.3103/0.2959/0.1977 -5 2 85 10P5/2 CIExyY:0.3148/0.2986/0.1977 -5 1 80 5P5/1 CIExyY:0.3074/0.3045/0.1977 -5 1 85 10P5/1 CIExyY:0.3124/0.3075/0.1977 -4 32 77.5 2.5P4/32 CIExyY:0.2265/0.0774/0.12 -4 32 80 5P4/32 CIExyY:0.2574/0.0833/0.12 -4 32 82.5 7.5P4/32 CIExyY:0.2962/0.0906/0.12 -4 30 77.5 2.5P4/30 CIExyY:0.2285/0.0847/0.12 -4 30 80 5P4/30 CIExyY:0.2588/0.0907/0.12 -4 30 82.5 7.5P4/30 CIExyY:0.2969/0.0979/0.12 -4 30 85 10P4/30 CIExyY:0.344/0.108/0.12 -4 28 77.5 2.5P4/28 CIExyY:0.2302/0.0909/0.12 -4 28 80 5P4/28 CIExyY:0.26/0.0971/0.12 -4 28 82.5 7.5P4/28 CIExyY:0.2979/0.1062/0.12 -4 28 85 10P4/28 CIExyY:0.3432/0.1172/0.12 -4 26 77.5 2.5P4/26 CIExyY:0.2322/0.0978/0.12 -4 26 80 5P4/26 CIExyY:0.2618/0.1052/0.12 -4 26 82.5 7.5P4/26 CIExyY:0.2986/0.1135/0.12 -4 26 85 10P4/26 CIExyY:0.3428/0.1248/0.12 -4 24 77.5 2.5P4/24 CIExyY:0.2348/0.1062/0.12 -4 24 80 5P4/24 CIExyY:0.2635/0.1132/0.12 -4 24 82.5 7.5P4/24 CIExyY:0.2993/0.1225/0.12 -4 24 85 10P4/24 CIExyY:0.3421/0.1337/0.12 -4 22 77.5 2.5P4/22 CIExyY:0.2371/0.1143/0.12 -4 22 80 5P4/22 CIExyY:0.2652/0.1218/0.12 -4 22 82.5 7.5P4/22 CIExyY:0.3001/0.1306/0.12 -4 22 85 10P4/22 CIExyY:0.3411/0.1424/0.12 -4 20 77.5 2.5P4/20 CIExyY:0.2394/0.1221/0.12 -4 20 80 5P4/20 CIExyY:0.267/0.13/0.12 -4 20 82.5 7.5P4/20 CIExyY:0.301/0.1396/0.12 -4 20 85 10P4/20 CIExyY:0.34/0.15/0.12 -4 18 77.5 2.5P4/18 CIExyY:0.243/0.1332/0.12 -4 18 80 5P4/18 CIExyY:0.2693/0.1408/0.12 -4 18 82.5 7.5P4/18 CIExyY:0.3016/0.15/0.12 -4 18 85 10P4/18 CIExyY:0.3386/0.1626/0.12 -4 16 77.5 2.5P4/16 CIExyY:0.2467/0.1452/0.12 -4 16 80 5P4/16 CIExyY:0.2718/0.152/0.12 -4 16 82.5 7.5P4/16 CIExyY:0.3028/0.1621/0.12 -4 16 85 10P4/16 CIExyY:0.337/0.1756/0.12 -4 14 77.5 2.5P4/14 CIExyY:0.2509/0.1585/0.12 -4 14 80 5P4/14 CIExyY:0.2747/0.166/0.12 -4 14 82.5 7.5P4/14 CIExyY:0.3035/0.1755/0.12 -4 14 85 10P4/14 CIExyY:0.3351/0.1875/0.12 -4 12 77.5 2.5P4/12 CIExyY:0.2559/0.173/0.12 -4 12 80 5P4/12 CIExyY:0.2778/0.1808/0.12 -4 12 82.5 7.5P4/12 CIExyY:0.3048/0.1905/0.12 -4 12 85 10P4/12 CIExyY:0.3331/0.2014/0.12 -4 10 77.5 2.5P4/10 CIExyY:0.2619/0.1903/0.12 -4 10 80 5P4/10 CIExyY:0.2814/0.1967/0.12 -4 10 82.5 7.5P4/10 CIExyY:0.3056/0.206/0.12 -4 10 85 10P4/10 CIExyY:0.3306/0.2162/0.12 -4 8 77.5 2.5P4/8 CIExyY:0.2685/0.2089/0.12 -4 8 80 5P4/8 CIExyY:0.2855/0.215/0.12 -4 8 82.5 7.5P4/8 CIExyY:0.3066/0.2228/0.12 -4 8 85 10P4/8 CIExyY:0.328/0.2318/0.12 -4 6 77.5 2.5P4/6 CIExyY:0.2763/0.23/0.12 -4 6 80 5P4/6 CIExyY:0.2903/0.2347/0.12 -4 6 82.5 7.5P4/6 CIExyY:0.3076/0.2416/0.12 -4 6 85 10P4/6 CIExyY:0.3248/0.2493/0.12 -4 4 77.5 2.5P4/4 CIExyY:0.2855/0.2531/0.12 -4 4 80 5P4/4 CIExyY:0.2958/0.2565/0.12 -4 4 82.5 7.5P4/4 CIExyY:0.3084/0.2622/0.12 -4 4 85 10P4/4 CIExyY:0.321/0.2686/0.12 -4 3 77.5 2.5P4/3 CIExyY:0.2906/0.2661/0.12 -4 3 80 5P4/3 CIExyY:0.2989/0.2688/0.12 -4 3 82.5 7.5P4/3 CIExyY:0.3089/0.2734/0.12 -4 3 85 10P4/3 CIExyY:0.3187/0.279/0.12 -4 2 77.5 2.5P4/2 CIExyY:0.2962/0.2807/0.12 -4 2 80 5P4/2 CIExyY:0.3022/0.2825/0.12 -4 2 82.5 7.5P4/2 CIExyY:0.3093/0.2859/0.12 -4 2 85 10P4/2 CIExyY:0.3162/0.2902/0.12 -4 1 80 5P4/1 CIExyY:0.3059/0.2982/0.12 -4 1 85 10P4/1 CIExyY:0.3133/0.3026/0.12 -3 34 77.5 2.5P3/34 CIExyY:0.223/0.0543/0.06555 -3 32 77.5 2.5P3/32 CIExyY:0.2242/0.0587/0.06555 -3 32 80 5P3/32 CIExyY:0.2557/0.063/0.06555 -3 30 77.5 2.5P3/30 CIExyY:0.2252/0.0638/0.06555 -3 30 80 5P3/30 CIExyY:0.2568/0.069/0.06555 -3 30 82.5 7.5P3/30 CIExyY:0.2922/0.075/0.06555 -3 28 77.5 2.5P3/28 CIExyY:0.2268/0.0698/0.06555 -3 28 80 5P3/28 CIExyY:0.2579/0.075/0.06555 -3 28 82.5 7.5P3/28 CIExyY:0.293/0.0812/0.06555 -3 26 77.5 2.5P3/26 CIExyY:0.2286/0.0765/0.06555 -3 26 80 5P3/26 CIExyY:0.259/0.0822/0.06555 -3 26 82.5 7.5P3/26 CIExyY:0.2938/0.0892/0.06555 -3 26 85 10P3/26 CIExyY:0.3343/0.0978/0.06555 -3 24 77.5 2.5P3/24 CIExyY:0.2305/0.0832/0.06555 -3 24 80 5P3/24 CIExyY:0.2602/0.0891/0.06555 -3 24 82.5 7.5P3/24 CIExyY:0.2944/0.0967/0.06555 -3 24 85 10P3/24 CIExyY:0.3341/0.1055/0.06555 -3 22 77.5 2.5P3/22 CIExyY:0.2329/0.0911/0.06555 -3 22 80 5P3/22 CIExyY:0.262/0.0978/0.06555 -3 22 82.5 7.5P3/22 CIExyY:0.2953/0.1057/0.06555 -3 22 85 10P3/22 CIExyY:0.334/0.1146/0.06555 -3 20 77.5 2.5P3/20 CIExyY:0.2354/0.1003/0.06555 -3 20 80 5P3/20 CIExyY:0.2639/0.1074/0.06555 -3 20 82.5 7.5P3/20 CIExyY:0.2961/0.1151/0.06555 -3 20 85 10P3/20 CIExyY:0.3332/0.124/0.06555 -3 18 77.5 2.5P3/18 CIExyY:0.238/0.1094/0.06555 -3 18 80 5P3/18 CIExyY:0.2657/0.1163/0.06555 -3 18 82.5 7.5P3/18 CIExyY:0.2969/0.1239/0.06555 -3 18 85 10P3/18 CIExyY:0.3329/0.1332/0.06555 -3 16 77.5 2.5P3/16 CIExyY:0.241/0.1198/0.06555 -3 16 80 5P3/16 CIExyY:0.268/0.1272/0.06555 -3 16 82.5 7.5P3/16 CIExyY:0.2981/0.1356/0.06555 -3 16 85 10P3/16 CIExyY:0.332/0.1456/0.06555 -3 14 77.5 2.5P3/14 CIExyY:0.2449/0.1325/0.06555 -3 14 80 5P3/14 CIExyY:0.2707/0.1397/0.06555 -3 14 82.5 7.5P3/14 CIExyY:0.2992/0.1475/0.06555 -3 14 85 10P3/14 CIExyY:0.3309/0.1572/0.06555 -3 12 77.5 2.5P3/12 CIExyY:0.2498/0.148/0.06555 -3 12 80 5P3/12 CIExyY:0.2739/0.1539/0.06555 -3 12 82.5 7.5P3/12 CIExyY:0.3003/0.1618/0.06555 -3 12 85 10P3/12 CIExyY:0.3301/0.1715/0.06555 -3 10 77.5 2.5P3/10 CIExyY:0.2548/0.1638/0.06555 -3 10 80 5P3/10 CIExyY:0.2772/0.1707/0.06555 -3 10 82.5 7.5P3/10 CIExyY:0.302/0.1794/0.06555 -3 10 85 10P3/10 CIExyY:0.3286/0.1889/0.06555 -3 8 77.5 2.5P3/8 CIExyY:0.2615/0.1845/0.06555 -3 8 80 5P3/8 CIExyY:0.2819/0.191/0.06555 -3 8 82.5 7.5P3/8 CIExyY:0.3037/0.1981/0.06555 -3 8 85 10P3/8 CIExyY:0.3269/0.2075/0.06555 -3 6 77.5 2.5P3/6 CIExyY:0.2691/0.2072/0.06555 -3 6 80 5P3/6 CIExyY:0.287/0.2135/0.06555 -3 6 82.5 7.5P3/6 CIExyY:0.3057/0.2208/0.06555 -3 6 85 10P3/6 CIExyY:0.3243/0.2293/0.06555 -3 4 77.5 2.5P3/4 CIExyY:0.2792/0.2342/0.06555 -3 4 80 5P3/4 CIExyY:0.2928/0.2386/0.06555 -3 4 82.5 7.5P3/4 CIExyY:0.3072/0.2448/0.06555 -3 4 85 10P3/4 CIExyY:0.3214/0.2517/0.06555 -3 3 77.5 2.5P3/3 CIExyY:0.2852/0.2498/0.06555 -3 3 80 5P3/3 CIExyY:0.296/0.253/0.06555 -3 3 82.5 7.5P3/3 CIExyY:0.308/0.2583/0.06555 -3 3 85 10P3/3 CIExyY:0.3195/0.2644/0.06555 -3 2 77.5 2.5P3/2 CIExyY:0.2922/0.268/0.06555 -3 2 80 5P3/2 CIExyY:0.2997/0.27/0.06555 -3 2 82.5 7.5P3/2 CIExyY:0.3088/0.274/0.06555 -3 2 85 10P3/2 CIExyY:0.317/0.279/0.06555 -3 1 80 5P3/1 CIExyY:0.3043/0.2908/0.06555 -3 1 85 10P3/1 CIExyY:0.3139/0.2961/0.06555 -2 30 77.5 2.5P2/30 CIExyY:0.2231/0.0432/0.03126 -2 28 77.5 2.5P2/28 CIExyY:0.2245/0.0491/0.03126 -2 28 80 5P2/28 CIExyY:0.2559/0.0525/0.03126 -2 26 77.5 2.5P2/26 CIExyY:0.226/0.0555/0.03126 -2 26 80 5P2/26 CIExyY:0.2569/0.0594/0.03126 -2 24 77.5 2.5P2/24 CIExyY:0.2277/0.0621/0.03126 -2 24 80 5P2/24 CIExyY:0.2582/0.0669/0.03126 -2 24 82.5 7.5P2/24 CIExyY:0.2882/0.0719/0.03126 -2 22 77.5 2.5P2/22 CIExyY:0.2298/0.0696/0.03126 -2 22 80 5P2/22 CIExyY:0.2597/0.075/0.03126 -2 22 82.5 7.5P2/22 CIExyY:0.289/0.0799/0.03126 -2 22 85 10P2/22 CIExyY:0.323/0.0861/0.03126 -2 20 77.5 2.5P2/20 CIExyY:0.232/0.0779/0.03126 -2 20 80 5P2/20 CIExyY:0.2612/0.0838/0.03126 -2 20 82.5 7.5P2/20 CIExyY:0.2902/0.0901/0.03126 -2 20 85 10P2/20 CIExyY:0.3231/0.0962/0.03126 -2 18 77.5 2.5P2/18 CIExyY:0.2345/0.0873/0.03126 -2 18 80 5P2/18 CIExyY:0.2632/0.0935/0.03126 -2 18 82.5 7.5P2/18 CIExyY:0.2912/0.0995/0.03126 -2 18 85 10P2/18 CIExyY:0.3233/0.1063/0.03126 -2 16 77.5 2.5P2/16 CIExyY:0.2372/0.098/0.03126 -2 16 80 5P2/16 CIExyY:0.2652/0.1045/0.03126 -2 16 82.5 7.5P2/16 CIExyY:0.2922/0.1106/0.03126 -2 16 85 10P2/16 CIExyY:0.3235/0.1181/0.03126 -2 14 77.5 2.5P2/14 CIExyY:0.2406/0.11/0.03126 -2 14 80 5P2/14 CIExyY:0.2676/0.1163/0.03126 -2 14 82.5 7.5P2/14 CIExyY:0.2938/0.1235/0.03126 -2 14 85 10P2/14 CIExyY:0.3235/0.1317/0.03126 -2 12 77.5 2.5P2/12 CIExyY:0.2449/0.1245/0.03126 -2 12 80 5P2/12 CIExyY:0.2709/0.132/0.03126 -2 12 82.5 7.5P2/12 CIExyY:0.2956/0.1392/0.03126 -2 12 85 10P2/12 CIExyY:0.3233/0.1477/0.03126 -2 10 77.5 2.5P2/10 CIExyY:0.2501/0.1422/0.03126 -2 10 80 5P2/10 CIExyY:0.2743/0.15/0.03126 -2 10 82.5 7.5P2/10 CIExyY:0.2979/0.1569/0.03126 -2 10 85 10P2/10 CIExyY:0.323/0.1659/0.03126 -2 8 77.5 2.5P2/8 CIExyY:0.257/0.1635/0.03126 -2 8 80 5P2/8 CIExyY:0.2791/0.1707/0.03126 -2 8 82.5 7.5P2/8 CIExyY:0.3/0.1781/0.03126 -2 8 85 10P2/8 CIExyY:0.3219/0.1862/0.03126 -2 6 77.5 2.5P2/6 CIExyY:0.2661/0.1921/0.03126 -2 6 80 5P2/6 CIExyY:0.285/0.1992/0.03126 -2 6 82.5 7.5P2/6 CIExyY:0.3025/0.2058/0.03126 -2 6 85 10P2/6 CIExyY:0.3207/0.2132/0.03126 -2 4 77.5 2.5P2/4 CIExyY:0.2758/0.2208/0.03126 -2 4 80 5P2/4 CIExyY:0.2908/0.2261/0.03126 -2 4 82.5 7.5P2/4 CIExyY:0.3048/0.2321/0.03126 -2 4 85 10P2/4 CIExyY:0.3189/0.239/0.03126 -2 3 77.5 2.5P2/3 CIExyY:0.2818/0.2377/0.03126 -2 3 80 5P2/3 CIExyY:0.2942/0.2419/0.03126 -2 3 82.5 7.5P2/3 CIExyY:0.3059/0.2468/0.03126 -2 3 85 10P2/3 CIExyY:0.3178/0.2527/0.03126 -2 2 77.5 2.5P2/2 CIExyY:0.2892/0.2583/0.03126 -2 2 80 5P2/2 CIExyY:0.2984/0.2612/0.03126 -2 2 82.5 7.5P2/2 CIExyY:0.3071/0.2647/0.03126 -2 2 85 10P2/2 CIExyY:0.3161/0.2691/0.03126 -2 1 80 5P2/1 CIExyY:0.3036/0.2855/0.03126 -2 1 85 10P2/1 CIExyY:0.3136/0.2893/0.03126 -1 26 77.5 2.5P1/26 CIExyY:0.2251/0.0355/0.0121 -1 24 77.5 2.5P1/24 CIExyY:0.2266/0.0418/0.0121 -1 22 77.5 2.5P1/22 CIExyY:0.2279/0.0473/0.0121 -1 22 80 5P1/22 CIExyY:0.259/0.0509/0.0121 -1 20 77.5 2.5P1/20 CIExyY:0.2295/0.0542/0.0121 -1 20 80 5P1/20 CIExyY:0.2601/0.0586/0.0121 -1 20 82.5 7.5P1/20 CIExyY:0.2831/0.0625/0.0121 -1 18 77.5 2.5P1/18 CIExyY:0.2312/0.0618/0.0121 -1 18 80 5P1/18 CIExyY:0.2612/0.0667/0.0121 -1 18 82.5 7.5P1/18 CIExyY:0.2841/0.0706/0.0121 -1 18 85 10P1/18 CIExyY:0.3069/0.0748/0.0121 -1 16 77.5 2.5P1/16 CIExyY:0.2331/0.0696/0.0121 -1 16 80 5P1/16 CIExyY:0.2625/0.0746/0.0121 -1 16 82.5 7.5P1/16 CIExyY:0.2852/0.079/0.0121 -1 16 85 10P1/16 CIExyY:0.3078/0.0839/0.0121 -1 14 77.5 2.5P1/14 CIExyY:0.2361/0.081/0.0121 -1 14 80 5P1/14 CIExyY:0.2645/0.0863/0.0121 -1 14 82.5 7.5P1/14 CIExyY:0.2868/0.0903/0.0121 -1 14 85 10P1/14 CIExyY:0.3084/0.0952/0.0121 -1 12 77.5 2.5P1/12 CIExyY:0.2394/0.094/0.0121 -1 12 80 5P1/12 CIExyY:0.267/0.1006/0.0121 -1 12 82.5 7.5P1/12 CIExyY:0.2884/0.1059/0.0121 -1 12 85 10P1/12 CIExyY:0.3094/0.111/0.0121 -1 10 77.5 2.5P1/10 CIExyY:0.2441/0.1112/0.0121 -1 10 80 5P1/10 CIExyY:0.2701/0.1173/0.0121 -1 10 82.5 7.5P1/10 CIExyY:0.2905/0.1229/0.0121 -1 10 85 10P1/10 CIExyY:0.3102/0.1282/0.0121 -1 8 77.5 2.5P1/8 CIExyY:0.2496/0.1303/0.0121 -1 8 80 5P1/8 CIExyY:0.2742/0.1375/0.0121 -1 8 82.5 7.5P1/8 CIExyY:0.2932/0.1429/0.0121 -1 8 85 10P1/8 CIExyY:0.3114/0.1481/0.0121 -1 6 77.5 2.5P1/6 CIExyY:0.257/0.1559/0.0121 -1 6 80 5P1/6 CIExyY:0.2794/0.1628/0.0121 -1 6 82.5 7.5P1/6 CIExyY:0.296/0.1682/0.0121 -1 6 85 10P1/6 CIExyY:0.3126/0.1737/0.0121 -1 4 77.5 2.5P1/4 CIExyY:0.2668/0.1874/0.0121 -1 4 80 5P1/4 CIExyY:0.2854/0.1927/0.0121 -1 4 82.5 7.5P1/4 CIExyY:0.2991/0.1974/0.0121 -1 4 85 10P1/4 CIExyY:0.3132/0.2032/0.0121 -1 2 77.5 2.5P1/2 CIExyY:0.2808/0.2296/0.0121 -1 2 80 5P1/2 CIExyY:0.2936/0.233/0.0121 -1 2 82.5 7.5P1/2 CIExyY:0.303/0.2361/0.0121 -1 2 85 10P1/2 CIExyY:0.3132/0.2404/0.0121 -9 6 87.5 2.5RP9/6 CIExyY:0.3322/0.291/0.7866 -9 6 90 5RP9/6 CIExyY:0.3431/0.2988/0.7866 -9 6 92.5 7.5RP9/6 CIExyY:0.3512/0.3052/0.7866 -9 6 95 10RP9/6 CIExyY:0.359/0.3118/0.7866 -9 4 87.5 2.5RP9/4 CIExyY:0.3234/0.301/0.7866 -9 4 90 5RP9/4 CIExyY:0.3301/0.306/0.7866 -9 4 92.5 7.5RP9/4 CIExyY:0.335/0.3099/0.7866 -9 4 95 10RP9/4 CIExyY:0.34/0.314/0.7866 -9 2 87.5 2.5RP9/2 CIExyY:0.3149/0.3108/0.7866 -9 2 90 5RP9/2 CIExyY:0.3172/0.3126/0.7866 -9 2 92.5 7.5RP9/2 CIExyY:0.319/0.3141/0.7866 -9 2 95 10RP9/2 CIExyY:0.3205/0.3155/0.7866 -9 1 90 5RP9/1 CIExyY:0.3126/0.315/0.7866 -9 1 95 10RP9/1 CIExyY:0.3136/0.316/0.7866 -8 14 87.5 2.5RP8/14 CIExyY:0.3621/0.2496/0.591 -8 12 87.5 2.5RP8/12 CIExyY:0.3552/0.2594/0.591 -8 12 90 5RP8/12 CIExyY:0.3818/0.2742/0.591 -8 12 92.5 7.5RP8/12 CIExyY:0.4002/0.2859/0.591 -8 10 87.5 2.5RP8/10 CIExyY:0.3479/0.2699/0.591 -8 10 90 5RP8/10 CIExyY:0.3685/0.2828/0.591 -8 10 92.5 7.5RP8/10 CIExyY:0.383/0.293/0.591 -8 10 95 10RP8/10 CIExyY:0.3983/0.3049/0.591 -8 8 87.5 2.5RP8/8 CIExyY:0.3406/0.2793/0.591 -8 8 90 5RP8/8 CIExyY:0.357/0.29/0.591 -8 8 92.5 7.5RP8/8 CIExyY:0.3682/0.2983/0.591 -8 8 95 10RP8/8 CIExyY:0.38/0.3082/0.591 -8 6 87.5 2.5RP8/6 CIExyY:0.3327/0.2898/0.591 -8 6 90 5RP8/6 CIExyY:0.344/0.2978/0.591 -8 6 92.5 7.5RP8/6 CIExyY:0.3521/0.3042/0.591 -8 6 95 10RP8/6 CIExyY:0.36/0.3112/0.591 -8 4 87.5 2.5RP8/4 CIExyY:0.3239/0.3/0.591 -8 4 90 5RP8/4 CIExyY:0.3303/0.3052/0.591 -8 4 92.5 7.5RP8/4 CIExyY:0.336/0.3092/0.591 -8 4 95 10RP8/4 CIExyY:0.3412/0.3135/0.591 -8 3 87.5 2.5RP8/3 CIExyY:0.3194/0.3052/0.591 -8 3 90 5RP8/3 CIExyY:0.3241/0.3088/0.591 -8 3 92.5 7.5RP8/3 CIExyY:0.3276/0.3115/0.591 -8 3 95 10RP8/3 CIExyY:0.3311/0.3144/0.591 -8 2 87.5 2.5RP8/2 CIExyY:0.3154/0.31/0.591 -8 2 90 5RP8/2 CIExyY:0.318/0.312/0.591 -8 2 92.5 7.5RP8/2 CIExyY:0.32/0.3136/0.591 -8 2 95 10RP8/2 CIExyY:0.3218/0.3152/0.591 -8 1 90 5RP8/1 CIExyY:0.3132/0.3146/0.591 -8 1 95 10RP8/1 CIExyY:0.3145/0.3158/0.591 -7 20 87.5 2.5RP7/20 CIExyY:0.3811/0.2143/0.4306 -7 18 87.5 2.5RP7/18 CIExyY:0.3751/0.2241/0.4306 -7 18 90 5RP7/18 CIExyY:0.4186/0.2459/0.4306 -7 16 87.5 2.5RP7/16 CIExyY:0.3688/0.2342/0.4306 -7 16 90 5RP7/16 CIExyY:0.4076/0.254/0.4306 -7 16 92.5 7.5RP7/16 CIExyY:0.4346/0.2689/0.4306 -7 16 95 10RP7/16 CIExyY:0.4648/0.2878/0.4306 -7 14 87.5 2.5RP7/14 CIExyY:0.362/0.2448/0.4306 -7 14 90 5RP7/14 CIExyY:0.3958/0.2628/0.4306 -7 14 92.5 7.5RP7/14 CIExyY:0.4195/0.2762/0.4306 -7 14 95 10RP7/14 CIExyY:0.4456/0.2931/0.4306 -7 12 87.5 2.5RP7/12 CIExyY:0.3555/0.2545/0.4306 -7 12 90 5RP7/12 CIExyY:0.3841/0.271/0.4306 -7 12 92.5 7.5RP7/12 CIExyY:0.404/0.2834/0.4306 -7 12 95 10RP7/12 CIExyY:0.426/0.298/0.4306 -7 10 87.5 2.5RP7/10 CIExyY:0.3487/0.2648/0.4306 -7 10 90 5RP7/10 CIExyY:0.3713/0.2798/0.4306 -7 10 92.5 7.5RP7/10 CIExyY:0.3871/0.2906/0.4306 -7 10 95 10RP7/10 CIExyY:0.404/0.303/0.4306 -7 8 87.5 2.5RP7/8 CIExyY:0.3417/0.2745/0.4306 -7 8 90 5RP7/8 CIExyY:0.3603/0.2869/0.4306 -7 8 92.5 7.5RP7/8 CIExyY:0.3722/0.2963/0.4306 -7 8 95 10RP7/8 CIExyY:0.3851/0.3067/0.4306 -7 6 87.5 2.5RP7/6 CIExyY:0.3338/0.2854/0.4306 -7 6 90 5RP7/6 CIExyY:0.347/0.2949/0.4306 -7 6 92.5 7.5RP7/6 CIExyY:0.3562/0.3022/0.4306 -7 6 95 10RP7/6 CIExyY:0.3648/0.3098/0.4306 -7 4 87.5 2.5RP7/4 CIExyY:0.3254/0.2971/0.4306 -7 4 90 5RP7/4 CIExyY:0.3332/0.3032/0.4306 -7 4 92.5 7.5RP7/4 CIExyY:0.3389/0.3079/0.4306 -7 4 95 10RP7/4 CIExyY:0.3446/0.3125/0.4306 -7 3 87.5 2.5RP7/3 CIExyY:0.3211/0.3025/0.4306 -7 3 90 5RP7/3 CIExyY:0.3267/0.307/0.4306 -7 3 92.5 7.5RP7/3 CIExyY:0.3308/0.3103/0.4306 -7 3 95 10RP7/3 CIExyY:0.3349/0.3137/0.4306 -7 2 87.5 2.5RP7/2 CIExyY:0.317/0.3076/0.4306 -7 2 90 5RP7/2 CIExyY:0.3206/0.3104/0.4306 -7 2 92.5 7.5RP7/2 CIExyY:0.3232/0.3125/0.4306 -7 2 95 10RP7/2 CIExyY:0.3258/0.3148/0.4306 -7 1 90 5RP7/1 CIExyY:0.315/0.3135/0.4306 -7 1 95 10RP7/1 CIExyY:0.3175/0.3157/0.4306 -6 24 87.5 2.5RP6/24 CIExyY:0.3927/0.1892/0.3005 -6 22 87.5 2.5RP6/22 CIExyY:0.3877/0.1978/0.3005 -6 22 90 5RP6/22 CIExyY:0.4449/0.2219/0.3005 -6 20 87.5 2.5RP6/20 CIExyY:0.3833/0.2056/0.3005 -6 20 90 5RP6/20 CIExyY:0.4368/0.2283/0.3005 -6 20 92.5 7.5RP6/20 CIExyY:0.4735/0.2464/0.3005 -6 18 87.5 2.5RP6/18 CIExyY:0.3773/0.2158/0.3005 -6 18 90 5RP6/18 CIExyY:0.4245/0.2382/0.3005 -6 18 92.5 7.5RP6/18 CIExyY:0.4581/0.2549/0.3005 -6 18 95 10RP6/18 CIExyY:0.4961/0.2751/0.3005 -6 16 87.5 2.5RP6/16 CIExyY:0.3718/0.2251/0.3005 -6 16 90 5RP6/16 CIExyY:0.4136/0.2467/0.3005 -6 16 92.5 7.5RP6/16 CIExyY:0.4448/0.2622/0.3005 -6 16 95 10RP6/16 CIExyY:0.4781/0.2812/0.3005 -6 14 87.5 2.5RP6/14 CIExyY:0.3652/0.2355/0.3005 -6 14 90 5RP6/14 CIExyY:0.4023/0.2552/0.3005 -6 14 92.5 7.5RP6/14 CIExyY:0.4285/0.2702/0.3005 -6 14 95 10RP6/14 CIExyY:0.4552/0.2881/0.3005 -6 12 87.5 2.5RP6/12 CIExyY:0.3582/0.2462/0.3005 -6 12 90 5RP6/12 CIExyY:0.39/0.2646/0.3005 -6 12 92.5 7.5RP6/12 CIExyY:0.4125/0.2784/0.3005 -6 12 95 10RP6/12 CIExyY:0.436/0.2936/0.3005 -6 10 87.5 2.5RP6/10 CIExyY:0.3509/0.2578/0.3005 -6 10 90 5RP6/10 CIExyY:0.3769/0.2738/0.3005 -6 10 92.5 7.5RP6/10 CIExyY:0.396/0.286/0.3005 -6 10 95 10RP6/10 CIExyY:0.415/0.2989/0.3005 -6 8 87.5 2.5RP6/8 CIExyY:0.3437/0.2688/0.3005 -6 8 90 5RP6/8 CIExyY:0.3648/0.282/0.3005 -6 8 92.5 7.5RP6/8 CIExyY:0.3791/0.2929/0.3005 -6 8 95 10RP6/8 CIExyY:0.393/0.3038/0.3005 -6 6 87.5 2.5RP6/6 CIExyY:0.3362/0.2799/0.3005 -6 6 90 5RP6/6 CIExyY:0.352/0.2904/0.3005 -6 6 92.5 7.5RP6/6 CIExyY:0.3635/0.2987/0.3005 -6 6 95 10RP6/6 CIExyY:0.374/0.3074/0.3005 -6 4 87.5 2.5RP6/4 CIExyY:0.3272/0.2929/0.3005 -6 4 90 5RP6/4 CIExyY:0.3371/0.3001/0.3005 -6 4 92.5 7.5RP6/4 CIExyY:0.3439/0.3056/0.3005 -6 4 95 10RP6/4 CIExyY:0.3503/0.3112/0.3005 -6 3 87.5 2.5RP6/3 CIExyY:0.323/0.2989/0.3005 -6 3 90 5RP6/3 CIExyY:0.33/0.3044/0.3005 -6 3 92.5 7.5RP6/3 CIExyY:0.3348/0.3086/0.3005 -6 3 95 10RP6/3 CIExyY:0.3397/0.3127/0.3005 -6 2 87.5 2.5RP6/2 CIExyY:0.3188/0.3048/0.3005 -6 2 90 5RP6/2 CIExyY:0.3232/0.3085/0.3005 -6 2 92.5 7.5RP6/2 CIExyY:0.3261/0.3113/0.3005 -6 2 95 10RP6/2 CIExyY:0.3292/0.3141/0.3005 -6 1 90 5RP6/1 CIExyY:0.3166/0.3124/0.3005 -6 1 95 10RP6/1 CIExyY:0.3193/0.3153/0.3005 -5 26 87.5 2.5RP5/26 CIExyY:0.4011/0.1652/0.1977 -5 24 87.5 2.5RP5/24 CIExyY:0.3965/0.1738/0.1977 -5 24 90 5RP5/24 CIExyY:0.4683/0.1978/0.1977 -5 22 87.5 2.5RP5/22 CIExyY:0.3924/0.1814/0.1977 -5 22 90 5RP5/22 CIExyY:0.4581/0.2068/0.1977 -5 22 92.5 7.5RP5/22 CIExyY:0.5045/0.2248/0.1977 -5 20 87.5 2.5RP5/20 CIExyY:0.3873/0.1909/0.1977 -5 20 90 5RP5/20 CIExyY:0.4484/0.215/0.1977 -5 20 92.5 7.5RP5/20 CIExyY:0.4915/0.233/0.1977 -5 20 95 10RP5/20 CIExyY:0.5396/0.2535/0.1977 -5 18 87.5 2.5RP5/18 CIExyY:0.3821/0.2007/0.1977 -5 18 90 5RP5/18 CIExyY:0.4372/0.2242/0.1977 -5 18 92.5 7.5RP5/18 CIExyY:0.4761/0.2421/0.1977 -5 18 95 10RP5/18 CIExyY:0.5185/0.262/0.1977 -5 16 87.5 2.5RP5/16 CIExyY:0.3763/0.2108/0.1977 -5 16 90 5RP5/16 CIExyY:0.4261/0.2331/0.1977 -5 16 92.5 7.5RP5/16 CIExyY:0.4617/0.2506/0.1977 -5 16 95 10RP5/16 CIExyY:0.4986/0.2685/0.1977 -5 14 87.5 2.5RP5/14 CIExyY:0.3703/0.2211/0.1977 -5 14 90 5RP5/14 CIExyY:0.4142/0.2428/0.1977 -5 14 92.5 7.5RP5/14 CIExyY:0.4454/0.2596/0.1977 -5 14 95 10RP5/14 CIExyY:0.4767/0.2776/0.1977 -5 12 87.5 2.5RP5/12 CIExyY:0.3635/0.2325/0.1977 -5 12 90 5RP5/12 CIExyY:0.4022/0.2523/0.1977 -5 12 92.5 7.5RP5/12 CIExyY:0.4303/0.2675/0.1977 -5 12 95 10RP5/12 CIExyY:0.4579/0.2841/0.1977 -5 10 87.5 2.5RP5/10 CIExyY:0.356/0.2452/0.1977 -5 10 90 5RP5/10 CIExyY:0.388/0.263/0.1977 -5 10 92.5 7.5RP5/10 CIExyY:0.4108/0.2773/0.1977 -5 10 95 10RP5/10 CIExyY:0.4332/0.2918/0.1977 -5 8 87.5 2.5RP5/8 CIExyY:0.349/0.257/0.1977 -5 8 90 5RP5/8 CIExyY:0.3748/0.2729/0.1977 -5 8 92.5 7.5RP5/8 CIExyY:0.3932/0.2852/0.1977 -5 8 95 10RP5/8 CIExyY:0.4105/0.298/0.1977 -5 6 87.5 2.5RP5/6 CIExyY:0.3396/0.2718/0.1977 -5 6 90 5RP5/6 CIExyY:0.3585/0.2842/0.1977 -5 6 92.5 7.5RP5/6 CIExyY:0.3726/0.2941/0.1977 -5 6 95 10RP5/6 CIExyY:0.3851/0.3039/0.1977 -5 4 87.5 2.5RP5/4 CIExyY:0.3298/0.2869/0.1977 -5 4 90 5RP5/4 CIExyY:0.3421/0.2954/0.1977 -5 4 92.5 7.5RP5/4 CIExyY:0.3515/0.3024/0.1977 -5 4 95 10RP5/4 CIExyY:0.3594/0.309/0.1977 -5 3 87.5 2.5RP5/3 CIExyY:0.3248/0.2944/0.1977 -5 3 90 5RP5/3 CIExyY:0.3338/0.301/0.1977 -5 3 92.5 7.5RP5/3 CIExyY:0.3404/0.3062/0.1977 -5 3 95 10RP5/3 CIExyY:0.3461/0.3112/0.1977 -5 2 87.5 2.5RP5/2 CIExyY:0.3199/0.3019/0.1977 -5 2 90 5RP5/2 CIExyY:0.3256/0.3065/0.1977 -5 2 92.5 7.5RP5/2 CIExyY:0.3296/0.3098/0.1977 -5 2 95 10RP5/2 CIExyY:0.3332/0.3131/0.1977 -5 1 90 5RP5/1 CIExyY:0.3177/0.3116/0.1977 -5 1 95 10RP5/1 CIExyY:0.321/0.3148/0.1977 -4 26 87.5 2.5RP4/26 CIExyY:0.4048/0.1428/0.12 -4 24 87.5 2.5RP4/24 CIExyY:0.4011/0.1504/0.12 -4 22 87.5 2.5RP4/22 CIExyY:0.3967/0.1593/0.12 -4 22 90 5RP4/22 CIExyY:0.4656/0.1821/0.12 -4 20 87.5 2.5RP4/20 CIExyY:0.3926/0.1679/0.12 -4 20 90 5RP4/20 CIExyY:0.4571/0.1906/0.12 -4 20 92.5 7.5RP4/20 CIExyY:0.513/0.2101/0.12 -4 20 95 10RP4/20 CIExyY:0.5674/0.2319/0.12 -4 18 87.5 2.5RP4/18 CIExyY:0.3865/0.1802/0.12 -4 18 90 5RP4/18 CIExyY:0.4455/0.2023/0.12 -4 18 92.5 7.5RP4/18 CIExyY:0.4965/0.2217/0.12 -4 18 95 10RP4/18 CIExyY:0.5466/0.2424/0.12 -4 16 87.5 2.5RP4/16 CIExyY:0.3807/0.1923/0.12 -4 16 90 5RP4/16 CIExyY:0.4339/0.2139/0.12 -4 16 92.5 7.5RP4/16 CIExyY:0.4799/0.2329/0.12 -4 16 95 10RP4/16 CIExyY:0.5234/0.253/0.12 -4 14 87.5 2.5RP4/14 CIExyY:0.3748/0.2039/0.12 -4 14 90 5RP4/14 CIExyY:0.4225/0.2249/0.12 -4 14 92.5 7.5RP4/14 CIExyY:0.4629/0.2437/0.12 -4 14 95 10RP4/14 CIExyY:0.502/0.2623/0.12 -4 12 87.5 2.5RP4/12 CIExyY:0.3683/0.2162/0.12 -4 12 90 5RP4/12 CIExyY:0.4104/0.2361/0.12 -4 12 92.5 7.5RP4/12 CIExyY:0.445/0.2541/0.12 -4 12 95 10RP4/12 CIExyY:0.4789/0.2717/0.12 -4 10 87.5 2.5RP4/10 CIExyY:0.3608/0.2301/0.12 -4 10 90 5RP4/10 CIExyY:0.396/0.2489/0.12 -4 10 92.5 7.5RP4/10 CIExyY:0.4259/0.2651/0.12 -4 10 95 10RP4/10 CIExyY:0.4528/0.2811/0.12 -4 8 87.5 2.5RP4/8 CIExyY:0.3533/0.2438/0.12 -4 8 90 5RP4/8 CIExyY:0.3833/0.26/0.12 -4 8 92.5 7.5RP4/8 CIExyY:0.4072/0.275/0.12 -4 8 95 10RP4/8 CIExyY:0.4282/0.289/0.12 -4 6 87.5 2.5RP4/6 CIExyY:0.3442/0.2595/0.12 -4 6 90 5RP4/6 CIExyY:0.3671/0.2733/0.12 -4 6 92.5 7.5RP4/6 CIExyY:0.385/0.2859/0.12 -4 6 95 10RP4/6 CIExyY:0.3999/0.2972/0.12 -4 4 87.5 2.5RP4/4 CIExyY:0.334/0.277/0.12 -4 4 90 5RP4/4 CIExyY:0.3491/0.2872/0.12 -4 4 92.5 7.5RP4/4 CIExyY:0.3612/0.2963/0.12 -4 4 95 10RP4/4 CIExyY:0.3715/0.3042/0.12 -4 3 87.5 2.5RP4/3 CIExyY:0.3287/0.2858/0.12 -4 3 90 5RP4/3 CIExyY:0.3402/0.294/0.12 -4 3 92.5 7.5RP4/3 CIExyY:0.3494/0.3012/0.12 -4 3 95 10RP4/3 CIExyY:0.3568/0.3075/0.12 -4 2 87.5 2.5RP4/2 CIExyY:0.3231/0.2951/0.12 -4 2 90 5RP4/2 CIExyY:0.331/0.301/0.12 -4 2 92.5 7.5RP4/2 CIExyY:0.3371/0.3061/0.12 -4 2 95 10RP4/2 CIExyY:0.3417/0.3106/0.12 -4 1 90 5RP4/1 CIExyY:0.3211/0.3084/0.12 -4 1 95 10RP4/1 CIExyY:0.3261/0.3135/0.12 -3 22 87.5 2.5RP3/22 CIExyY:0.4018/0.1304/0.06555 -3 20 87.5 2.5RP3/20 CIExyY:0.3969/0.1413/0.06555 -3 20 90 5RP3/20 CIExyY:0.4577/0.1593/0.06555 -3 18 87.5 2.5RP3/18 CIExyY:0.3929/0.1506/0.06555 -3 18 90 5RP3/18 CIExyY:0.4503/0.1695/0.06555 -3 18 92.5 7.5RP3/18 CIExyY:0.513/0.1893/0.06555 -3 16 87.5 2.5RP3/16 CIExyY:0.3876/0.1629/0.06555 -3 16 90 5RP3/16 CIExyY:0.4418/0.1809/0.06555 -3 16 92.5 7.5RP3/16 CIExyY:0.4991/0.2011/0.06555 -3 16 95 10RP3/16 CIExyY:0.5628/0.2241/0.06555 -3 14 87.5 2.5RP3/14 CIExyY:0.3818/0.1758/0.06555 -3 14 90 5RP3/14 CIExyY:0.4313/0.1944/0.06555 -3 14 92.5 7.5RP3/14 CIExyY:0.4831/0.214/0.06555 -3 14 95 10RP3/14 CIExyY:0.538/0.2369/0.06555 -3 12 87.5 2.5RP3/12 CIExyY:0.3754/0.1898/0.06555 -3 12 90 5RP3/12 CIExyY:0.4199/0.2089/0.06555 -3 12 92.5 7.5RP3/12 CIExyY:0.4654/0.2273/0.06555 -3 12 95 10RP3/12 CIExyY:0.5139/0.2489/0.06555 -3 10 87.5 2.5RP3/10 CIExyY:0.3681/0.2054/0.06555 -3 10 90 5RP3/10 CIExyY:0.4073/0.2235/0.06555 -3 10 92.5 7.5RP3/10 CIExyY:0.4445/0.2419/0.06555 -3 10 95 10RP3/10 CIExyY:0.4851/0.2618/0.06555 -3 8 87.5 2.5RP3/8 CIExyY:0.3598/0.2233/0.06555 -3 8 90 5RP3/8 CIExyY:0.393/0.2395/0.06555 -3 8 92.5 7.5RP3/8 CIExyY:0.4234/0.2556/0.06555 -3 8 95 10RP3/8 CIExyY:0.4552/0.2741/0.06555 -3 6 87.5 2.5RP3/6 CIExyY:0.3501/0.2425/0.06555 -3 6 90 5RP3/6 CIExyY:0.3765/0.2569/0.06555 -3 6 92.5 7.5RP3/6 CIExyY:0.399/0.2708/0.06555 -3 6 95 10RP3/6 CIExyY:0.4218/0.2864/0.06555 -3 4 87.5 2.5RP3/4 CIExyY:0.34/0.2624/0.06555 -3 4 90 5RP3/4 CIExyY:0.3586/0.2742/0.06555 -3 4 92.5 7.5RP3/4 CIExyY:0.3739/0.2851/0.06555 -3 4 95 10RP3/4 CIExyY:0.3889/0.2969/0.06555 -3 3 87.5 2.5RP3/3 CIExyY:0.334/0.2736/0.06555 -3 3 90 5RP3/3 CIExyY:0.3484/0.2838/0.06555 -3 3 92.5 7.5RP3/3 CIExyY:0.3601/0.2925/0.06555 -3 3 95 10RP3/3 CIExyY:0.3714/0.3019/0.06555 -3 2 87.5 2.5RP3/2 CIExyY:0.3272/0.2861/0.06555 -3 2 90 5RP3/2 CIExyY:0.337/0.294/0.06555 -3 2 92.5 7.5RP3/2 CIExyY:0.345/0.3001/0.06555 -3 2 95 10RP3/2 CIExyY:0.3526/0.3068/0.06555 -3 1 90 5RP3/1 CIExyY:0.3243/0.3048/0.06555 -3 1 95 10RP3/1 CIExyY:0.3323/0.3116/0.06555 -2 20 87.5 2.5RP2/20 CIExyY:0.3802/0.108/0.03126 -2 18 87.5 2.5RP2/18 CIExyY:0.3778/0.1188/0.03126 -2 18 90 5RP2/18 CIExyY:0.4338/0.134/0.03126 -2 16 87.5 2.5RP2/16 CIExyY:0.3748/0.131/0.03126 -2 16 90 5RP2/16 CIExyY:0.4269/0.1454/0.03126 -2 16 92.5 7.5RP2/16 CIExyY:0.4744/0.1595/0.03126 -2 14 87.5 2.5RP2/14 CIExyY:0.3711/0.1449/0.03126 -2 14 90 5RP2/14 CIExyY:0.418/0.1598/0.03126 -2 14 92.5 7.5RP2/14 CIExyY:0.4624/0.1737/0.03126 -2 14 95 10RP2/14 CIExyY:0.5129/0.1888/0.03126 -2 12 87.5 2.5RP2/12 CIExyY:0.3668/0.1618/0.03126 -2 12 90 5RP2/12 CIExyY:0.408/0.1764/0.03126 -2 12 92.5 7.5RP2/12 CIExyY:0.4481/0.1903/0.03126 -2 12 95 10RP2/12 CIExyY:0.4911/0.206/0.03126 -2 10 87.5 2.5RP2/10 CIExyY:0.3617/0.18/0.03126 -2 10 90 5RP2/10 CIExyY:0.3971/0.1939/0.03126 -2 10 92.5 7.5RP2/10 CIExyY:0.4321/0.2082/0.03126 -2 10 95 10RP2/10 CIExyY:0.4678/0.2237/0.03126 -2 8 87.5 2.5RP2/8 CIExyY:0.3555/0.2003/0.03126 -2 8 90 5RP2/8 CIExyY:0.3858/0.214/0.03126 -2 8 92.5 7.5RP2/8 CIExyY:0.4137/0.2276/0.03126 -2 8 95 10RP2/8 CIExyY:0.4428/0.2419/0.03126 -2 6 87.5 2.5RP2/6 CIExyY:0.347/0.2259/0.03126 -2 6 90 5RP2/6 CIExyY:0.3708/0.238/0.03126 -2 6 92.5 7.5RP2/6 CIExyY:0.3918/0.249/0.03126 -2 6 95 10RP2/6 CIExyY:0.4139/0.2608/0.03126 -2 4 87.5 2.5RP2/4 CIExyY:0.3382/0.2496/0.03126 -2 4 90 5RP2/4 CIExyY:0.3558/0.2597/0.03126 -2 4 92.5 7.5RP2/4 CIExyY:0.3702/0.2683/0.03126 -2 4 95 10RP2/4 CIExyY:0.385/0.2778/0.03126 -2 3 87.5 2.5RP2/3 CIExyY:0.3336/0.2614/0.03126 -2 3 90 5RP2/3 CIExyY:0.3479/0.2706/0.03126 -2 3 92.5 7.5RP2/3 CIExyY:0.3589/0.2783/0.03126 -2 3 95 10RP2/3 CIExyY:0.37/0.2865/0.03126 -2 2 87.5 2.5RP2/2 CIExyY:0.3279/0.2754/0.03126 -2 2 90 5RP2/2 CIExyY:0.3383/0.2829/0.03126 -2 2 92.5 7.5RP2/2 CIExyY:0.3459/0.2892/0.03126 -2 2 95 10RP2/2 CIExyY:0.3532/0.2957/0.03126 -2 1 90 5RP2/1 CIExyY:0.326/0.2978/0.03126 -2 1 95 10RP2/1 CIExyY:0.3336/0.3056/0.03126 -1 16 87.5 2.5RP1/16 CIExyY:0.3368/0.0902/0.0121 -1 14 87.5 2.5RP1/14 CIExyY:0.3368/0.102/0.0121 -1 14 90 5RP1/14 CIExyY:0.3811/0.1138/0.0121 -1 12 87.5 2.5RP1/12 CIExyY:0.3361/0.1181/0.0121 -1 12 90 5RP1/12 CIExyY:0.3772/0.1283/0.0121 -1 12 92.5 7.5RP1/12 CIExyY:0.424/0.14/0.0121 -1 12 95 10RP1/12 CIExyY:0.4668/0.1514/0.0121 -1 10 87.5 2.5RP1/10 CIExyY:0.3354/0.1351/0.0121 -1 10 90 5RP1/10 CIExyY:0.3727/0.1458/0.0121 -1 10 92.5 7.5RP1/10 CIExyY:0.4132/0.158/0.0121 -1 10 95 10RP1/10 CIExyY:0.4521/0.171/0.0121 -1 8 87.5 2.5RP1/8 CIExyY:0.3342/0.1551/0.0121 -1 8 90 5RP1/8 CIExyY:0.366/0.1662/0.0121 -1 8 92.5 7.5RP1/8 CIExyY:0.4005/0.1793/0.0121 -1 8 95 10RP1/8 CIExyY:0.4357/0.1921/0.0121 -1 6 87.5 2.5RP1/6 CIExyY:0.3321/0.1811/0.0121 -1 6 90 5RP1/6 CIExyY:0.3588/0.192/0.0121 -1 6 92.5 7.5RP1/6 CIExyY:0.3865/0.2036/0.0121 -1 6 95 10RP1/6 CIExyY:0.4151/0.2169/0.0121 -1 4 87.5 2.5RP1/4 CIExyY:0.329/0.2095/0.0121 -1 4 90 5RP1/4 CIExyY:0.3503/0.2196/0.0121 -1 4 92.5 7.5RP1/4 CIExyY:0.3705/0.23/0.0121 -1 4 95 10RP1/4 CIExyY:0.392/0.2423/0.0121 -1 2 87.5 2.5RP1/2 CIExyY:0.324/0.2459/0.0121 -1 2 90 5RP1/2 CIExyY:0.3378/0.2542/0.0121 -1 2 92.5 7.5RP1/2 CIExyY:0.3498/0.2617/0.0121 -1 2 95 10RP1/2 CIExyY:0.3629/0.271/0.0121 diff --git a/ChangeLog b/ChangeLog deleted file mode 100644 index cc8cc48..0000000 --- a/ChangeLog +++ /dev/null @@ -1,1370 +0,0 @@ -1998-08-23 Tanaka Akira - - * lex.el (lex-gen-ccel-unibyte-automata-state): Jump start of loop - on end of states. - -1998-08-22 Tanaka Akira - - * TESTPAT: Use `\t' instead of raw TAB character. - - * ew-line.el (ew-crlf-line-generic): Accept bare LF before first CR - occurence. - - * ew-quote.el: Evaluate constants on byte-compile time. - - * ew-unit.el: Ditto. - - * ew-var.el: Ditto. - - * lex.el: CCL support. - (lex-use-ccl): New variable. - (lex-gen-machine): Use `lex-gen-automata' and `lex-gen-action'. - (lex-gen-automata): New function. - (lex-gen-action): New function. - (lex-gen-ccl-unibyte-automata): New function. - (lex-gen-ccl-unibyte-automata-program): New function. - (lex-gen-ccl-unibyte-automata-state): New function. - - * natset.el (natset-gen-ccl-branch): New function. - (natset-gen-ccl-branch-internal): New function. - (natset-assoc): New function. - -1998-08-21 Shuhei KOBAYASHI - - * TESTPAT: Specify coding-system. - -1998-08-21 Tanaka Akira - - * TESTPAT: Change quoted-encoded-word to embedded-encoeded-word. - - * closure.el (closure-make): Closure structure changed. - (closure-partial-call): New function. - (closure-call): Support new structure. - - * ew-dec.el (ew-decode-field): Abolish argument `eword-filter'. - (ew-decode-none): Ditto. - (ew-decode-generic): Ditto. - (ew-decode-unstructured-ewords): Ditto. - (ew-decode-unstructured): Ditto. - (ew-decode-phrase-ewords): Ditto. - (ew-decode-phrase): Ditto. - (ew-decode-comment-ewords): Ditto. - (ew-decode-comment): Ditto. - (ew-analyze-field-to-decode): New function. - (ew-decode-analyzed-field): New function. - (ew-decode-field-no-cache): Use `ew-analyze-field-to-decode' and - `ew-decode-analyzed-field'. - (ew-decode-us-ascii): Now inlining function. - (ew-rotate): New macro. - - * ew-quote.el (ew-encode-crlf): Support `ew-remove-bare-crlf' option. - - * ew-unit.el (ew-eword-p): Now inlining function. - (ew-decode-eword): Abolish arguments `eword-filter1' and - `eword-filter2'. - - * ew-var.el (ew-remove-bare-crlf): New variable. - (ew-dynamic-options): Add `ew-remove-bare-crlf'. - - * eword-decode.el: Remove third argument for `ew-decode-field'. - -1998-08-21 Tanaka Akira - - * ew-dec.el (ew-decode-us-ascii): New function. - (ew-decode-none): Use the function `ew-decode-us-ascii' instead of - the variable `ew-decode-us-ascii'. - (ew-decode-generic): Ditto. - (ew-decode-generic-others): Ditto. - - * ew-unit.el (ew-charset-aliases): Abolished. - (ew-char-decoder): Use `decode-mime-charset-string' with 'LF as lbt. - - * ew-var.el (ew-decode-us-ascii): Abolished. - (ew-default-mime-charset): New variable. - (ew-dynamic-options): Add `ew-default-mime-charset'. - -1998-08-21 Tanaka Akira - - * ew-unit.el (ew-eword-p): Use aref instead of substring. - (ew-char-decoder): Refined. - - * lalr-el.scm (gen-larl1): New function. - -1998-08-20 Tanaka Akira - - * ew-var.el (ew-dynamic-options): The result is now integer instead - of list of booleans. - -1998-08-20 Tanaka Akira - - * Makefile: Output parse table to ew-parse.out instead of - states.output. - - * ew-var.el (ew-decode-field-syntax-alist): Keys are now symbols - instead of strings. - - * ew-dec.el (ew-decode-field-no-cache): Ditto. - -1998-08-19 Tanaka Akira - - * Makefile: Avoid an error about unexisting `scm'. - -1998-08-19 Tanaka Akira - - * Makefile: Add a rule for making `ew-parse.el'. - - * ew-parse.scm: New file. - - * lalr-el.scm: New file. - - * lr-driver.el (lr-push): Now inlining. - -1998-08-19 Tanaka Akira - - * ew-dec.el: Use 'decoded property instead of 'result for - decoded string. - -1998-08-19 Tanaka Akira - - * ew-parse.el: Use lookahead token. - - * ew-data.el (ew-mark-phrase): Decode last token in phrase. - -1998-08-19 Tanaka Akira - - * ew-parse.el: Remove token suffix "-tok". - - * ew-data.el: Ditto. - - * ew-dec.el: Ditto. - - * ew-scan-m.el: Ditto. - - * ew-scan-s.el: Ditto. - - * ew-scan-u.el: Ditto. - - * ew-var.el: Ditto. - -1998-08-19 Tanaka Akira - - * DOODLE-TIPS: Add desctiptions about byte-compile warnings. - - * ew-data.el (ew-mark-phrase): Does not update right end of - fragments separation. - - * ew-dec.el (ew-mark): Wait `ew-parse-error-sit-for-seconds' - seconds after parse error. - - * ew-line.el (ew-tab-to-space): New function. - (ew-crlf-generic): New function. - (ew-crlf-line-generic): Rewrited. - (ew-lf-generic): New function. - (ew-lf-line-generic): Rewrited. - (ew-crlf-convert): New function. - (ew-crlf-line-convert): Rewrited. - (ew-lf-convert): New function. - (ew-lf-line-convert): Rewrited. - (ew-crlf-fold): New function. - (ew-lf-fold): New function. - (ew-crlf-refold): New function. - (ew-lf-refold): New function. - - * ew-parse.el: Parser actions are now accesible to a lookahead - token. - - * ew-var.el (ew-parse-error-sit-for-seconds): New variable. - - * eword-decode.el: Enable debug code `rotate-memo'. - (eword-decode-header): Refold decoded field. - (eword-decode-and-fold-structured-field): Use `ew-crlf-refold'. - - * lr-driver.el (lr-parse): Provides a lookahead token to parser - actions. - - * mmbuffer.el (insert-decoded-header): Refold decoded field. - -1998-08-18 Tanaka Akira - - * DOODLE-TIPS: Change `gnus-unstructured-field-decoder' and - `gnus-structured-field-decoder' usable by FLAM-DOODLE and FLIM. - - * ew-data.el (ew-mark-phrase): Update both ends of fragments after - fragments separation. - - * ew-unit.el (ew-charset-aliases): Add 'x-ctext. - -1998-08-18 Tanaka Akira - - * mime-def.el (mime-library-version-string): bump up to - FLAM-DOODLE 1.9.1. - -1998-08-18 Tanaka Akira - - * COLORS: New file. - - * ew-data.el (ew-add-frag): Change defun to defsubst. - - * ew-scan-m.el (ew-scan-mime): Refine to fit inlining `ew-add-frag'. - - * ew-scan-s.el (ew-scan-std11): Ditto. - - * ew-scan-u.el (ew-scan-unstructured): Ditto. - -1998-08-17 Tanaka Akira - - * ew-data.el: - - Abolish prev-token, next-token, start and end - properties on fragment. - - Abolish function `ew-tokenize-frag', `ew-add-open', - `ew-add-close', `ew-add-token', `ew-add-close-token' and - `ew-token-list'. - (ew-make-anchor): Add type property. - (ew-token-last-frag-p): New function. - - * ew-parse.el: Add new token `anchor'. - - * ew-scan-m.el: Use `ew-add-frag' instead of abolished - functions. - - * ew-scan-s.el: Ditto. - -1998-08-17 Tanaka Akira - - * ew-data.el: - - Require 'ew-util. - - Change token prefix "ew:raw-" to "ew:". - - * ew-dec.el: Change token prefix "ew:raw-" to "ew:". - (ew-mark): Shorten parse error message. - - * ew-scan-m.el: Change token prefix "ew:raw-" to "ew:". - (ew-scan-mime): Change atom to token. - - * ew-scan-s.el: Change token prefix "ew:raw-" to "ew:". - - * ew-scan-u.el: Change token prefix "ew:raw-" to "ew:". - - * ew-parse.el: Change token prefix "ew:raw-" to "ew:". - -1998-08-17 Tanaka Akira - - * ew-dec.el: Require 'ew-var. - (ew-decode-field-cache-buf): New variable. - (ew-decode-field-cache-num): New variable. - (ew-decode-field-no-cache): Renamed from `ew-decode-field'. - (ew-decode-field): Call `ew-decode-field-no-cache' with caching. - -1998-08-17 Tanaka Akira - - * FLIM-ELS (flim-modules): Add `ew-var' and reorder. - - * ew-var.el: New file. - - * ew-data.el: Require 'ew-var. - (ew-separate-eword): New function. - (ew-mark-phrase): Use `ew-separate-eword'. - - * ew-dec.el: - - Require 'ew-var. - - Move `ew-decode-quoted-encoded-word', - `ew-ignore-75bytes-limit', `ew-ignore-76bytes-limit', - `ew-permit-sticked-comment', `ew-permit-sticked-special', - `ew-decode-us-ascii', `ew-decode-field-syntax-alist' and - `ew-decode-field-default-syntax' to ew-var.el. - (ew-decode-field): Use `ew-separate-eword'. - - * ew-quote.el: Require 'ew-var. - - Move `ew-token-regexp', `ew-encoded-text-regexp', - `ew-encoded-word-regexp', - -1998-08-17 Tanaka Akira - - * DOODLE-TIPS: Use `ew-decode-field' directly instead of - `eword-decode-unstructured-field-body' and - `eword-decode-and-unfold-structured-field'. - - * FLAM-VERSION: New file (renamed from VERSION.FLAM). - - * eword-decode.el (eword-decode-header): Convert CRLF to LF in - a result of `ew-decode-field'. - (eword-decode-structured-field-body) Ditto. - (eword-decode-unstructured-field-body) Ditto. - - * mime.el (mime-read-field): Use `ew-decode-field' instead of - `eword-decode-unstructured-field-body'. - - * mmbuffer.el (insert-decoded-header): Use `ew-decode-field' - directly. - -1998-08-17 Tanaka Akira - - * DOODLE-TIPS: New file. - - * TESTPAT: Separator of field-name and field-body is now not special. - - * ew-data.el (ew-special-frag-p): Separator of field-name and - field-body is now not special. - - * ew-line.el (ew-cut-generic): New function. - (ew-cut-cr-lf): Use `ew-cut-generic'. - (ew-cut-cr): New function. - (ew-cut-lf): New function. - (ew-crlf-line-generic): Renamed from `ew-line-generic' - (ew-crlf-line-convert): Renamed from `ew-line-convert' - (ew-lf-line-generic): New function. - (ew-lf-line-convert): New function. - - * eword-decode.el (eword-decode-and-fold-structured-field): Use - `ew-decode-field'. - (eword-decode-and-unfold-structured-field): Use - `ew-decode-field'. - -1998-08-16 Tanaka Akira - - * TESTPAT: Add a driver for `ew-decode-field'. - -1998-08-16 Tanaka Akira - - * FLIM-ELS (flim-modules): Reorder. - -1998-08-16 Tanaka Akira - - * ChangeLog: Fix typo. - - * ew-parse.el: New file. - -1998-08-16 Tanaka Akira - - * FLIM-ELS (flim-modules): Add `closure', `natset', `digraph', - `automata', `rx', `lex', `lr-driver', `ew-util', `ew-line', - `ew-quote', `ew-unit', `ew-data', `ew-parse', `ew-scan-s', - `ew-scan-m', `ew-scan-u' and `ew-dec'. - - * automata.el, closure.el, digraph.el, ew-data.el, ew-dec.el, - ew-line.el, ew-quote.el, ew-scan-m.el, ew-scan-s.el, - ew-scan-u.el, ew-unit.el, ew-util.el, lex.el, lr-driver.el, - natset.el, rx.el: New files. - - * eword-decode.el: Require 'ew-dec. - (eword-decode-header): Use `ew-decode-field'. - (eword-decode-and-unfold-structure): Ditto. - (eword-decode-structured-field-body): Ditto. - (eword-decode-unstructured-field-body): Ditto. - -1998-08-16 Tanaka Akira - - * DOODLE: branched from flam-1_9_1 - -1998-08-16 Tanaka Akira - - * mime-def.el (mime-library-version-string): bump up to FLIM-FLAM 1.9.1. - -1998-07-22 Tanaka Akira - - * ChangeLog: Fix typo. - -1998-07-22 Tanaka Akira - - * TESTPAT: Add 25 tests. - - * TESTPAT: Fix comment convention. - - * eword-decode.el (decode-entire-string): Add formal argument - `chars-must-be-quote'. - (eword-decode-unstructured): Add actual argument `chars-must-be-quote'. - (eword-decode-comment): Add actual argument `chars-must-be-quote'. - (eword-decode-quoted-string): Add actual argument `chars-must-be-quote'. - (eword-analyze-quoted-string): Does not quote result of - `eword-decode-quoted-string' as quoted-string because the result is - now already quoted-string form. - -1998-07-21 Tanaka Akira - - * TESTPAT: Add two tests. - - * TESTPAT: quoted-encoded-word quoting character is changed from * to +. - -1998-07-21 Tanaka Akira - - * TESTPAT: Add sixteen tests. - -1998-07-20 Tanaka Akira - - * TESTPAT: Add three tests. - -1998-07-20 Tanaka Akira - - * TESTPAT: Add two tests. - -1998-07-20 Tanaka Akira - - * TESTPAT: Add test. - -1998-07-20 MORIOKA Tomohiko - - * mime-def.el (mime-library-version-string): Renamed from - `mime-spadework-module-version-string' to sync with flim-1_9_0. - - * mel-q.el (quoted-printable-internal-decode-region): Fix - sync-mistake. - -1998-07-19 Tanaka Akira - - * TESTPAT: Add full automatic testing capability. - -1998-07-19 Tanaka Akira - - * TESTPAT: Add quoted-encoded-word description and test. - -1998-07-18 Tanaka Akira - - * TESTPAT: Add test result by FLIM-FLAM. - - * eword-decode.el (eword-lexical-analyze-internal): Restrict - calling `eword-analyze-encoded-word' after calling - `eword-analyze-spaces'. - -1998-07-18 Tanaka Akira - - * TESTPAT: Add test. - - * eword-decode.el (eword-analyze-quoted-string): Quote string as - quoted-string. - (eword-analyze-encoded-word): Quote non-atoms string as - quoted-string. - -1998-07-18 Tanaka Akira - - * Fix character code for ChangeLog. - -1998-07-18 Tanaka Akira - - * Sync up with flim-1_8_1 to flim-1_9_0. - -1998-07-18 Tanaka Akira - - * TESTPAT: Add test driver for FLIM-FLAM. - -1998-07-16 Tanaka Akira - - * TESTPAT: Change format to s-exp. - -1998-07-13 Tanaka Akira - - * TESTPAT: Add one test. - -1998-07-06 Tanaka Akira - - * Sync up with flim-1_3_0 to flim-1_8_1. - -1998-06-08 Tanaka Akira - - * Sync up with flim-1_2_1 to flim-1_3_0. - -1998-05-27 Tanaka Akira - - * eword-decode.el (eword-after-encoded-word-in-phrase-regexp): - Remove `(' to do not decode encoded word just before comment. - -1998-05-27 Tanaka Akira - - * TESTPAT: New file. - -1998-05-22 Tanaka Akira - - * eword-decode.el (eword-analyze-quoted-string): Check - `eword-decode-quoted-encoded-word'. - -1998-05-14 Tanaka Akira - - * eword-decode.el (eword-analyze-comment): Call - `std11-unfold-string'. - -1998-05-13 Tanaka Akira - - * mime-def.el: Fix typo. - -1998-05-13 Tanaka Akira - - * Sync up with flim-1_2_0 to flim-1_2_1. - -1998-05-08 Tanaka Akira - - * Sync up with flim-1_1_0 to flim-1_2_0. - -1998-05-06 Tanaka Akira - - * Sync up with flim-1_0_1 to flim-1_1_0. - -1998-04-25 Tanaka Akira - - * eword-decode.el (eword-decode-string): Fix arguments order to - calling `eword-decode-unstructured'. - (eword-decode-region): Fix arguments order to calling - `eword-decode-unstructured'. - -1998-04-25 Tanaka Akira - - * eword-decode.el (eword-decode-first-encoded-words): Update - DOC-string. - (eword-decode-first-encoded-words): Update DOC-string. - (eword-decode-unstructured): Argument `code-conversion' is now - required. - (eword-decode-comment): Argument `code-conversion' is now - required. - (eword-decode-quoted-string): Argument `code-conversion' is now - required. - (eword-decode-string): Update DOC-string. Reorder arguments to - calling `eword-decode-unstructured'. - (eword-decode-region): Update DOC-string. Reorder arguments to - calling `eword-decode-unstructured'. - (eword-analyze-quoted-string): Add `default-mime-charset' argument - to calling eword-decode-quoted-string. - (eword-analyze-comment): Add `default-mime-charset' argument to - calling eword-decode-comment. - -1998-04-25 Tanaka Akira - - * eword-decode.el (eword-decode-entire-string): Delete argument - `default-charset'. Add argument `code-conversion'. - (eword-decode-unstructured): Add argument `code-conversion'. - (eword-decode-comment): Add argument `code-conversion'. - (eword-decode-quoted-string): Add argument `code-conversion'. - (eword-decode-string): Propagate `code-conversion' to - `eword-decode-unstructured'. - (eword-decode-region): Propagate `code-conversion' to - `eword-decode-unstructured'. - -1998-04-23 Shuhei KOBAYASHI - - * eword-decode.el (eword-decode-ignored-field-list): Add - `received'. - - * mel.el (mime-temp-directory): Use TMPDIR, TMP, or TEMP - environment variables. - -1998-04-23 Tanaka Akira - - * eword-decode.el (eword-encoded-word-prefix-regexp): New - constant. - (eword-encoded-word-suffix-regexp): New constant. - (eword-encoded-text-in-unstructured-regexp): New constant. - (eword-encoded-word-in-unstructured-regexp): New constant. - (eword-after-encoded-word-in-unstructured-regexp): New constant. - (eword-decode-entire-string): New function. - (eword-decode-unstructured): Use `eword-decode-entire-string'. - (eword-decode-comment): Use `eword-decode-entire-string'. - (eword-decode-quoted-string): Use `eword-decode-entire-string'. - (eword-decode-string): Add optional argument - `default-mime-charset'. - (eword-decode-region): Add optional argument - `default-mime-charset'. - (eword-decode-header): Refine `code-conversion' treatment. - -1998-04-21 Tanaka Akira - - * eword-decode.el (eword-decode-header): code-conversion is now - effective again. - -1998-04-21 MORIOKA Tomohiko - - * eword-decode.el (eword-decode-quoted-encoded-word): Use - 'defcustom. - -1998-04-21 MORIOKA Tomohiko - - * eword-decode.el (eword-decode-sticked-encoded-word): Use - 'defcustom. - -1998-04-21 Tanaka Akira - - * VERSION.FLAM: New file. - -1998-04-17 Tanaka Akira - - * Sync up with flim-1_0_0 to flim-1_0_1. - -1998-04-13 Tanaka Akira - - * eword-decode.el: Copied from AKEMI branch of SEMI. - - -1998-07-15 MORIOKA Tomohiko - - * FLIM: Version 1.9.0 (Terada) was released. - -1998-07-10 MORIOKA Tomohiko - - * mime-parse.el (mime-parse-multipart): Set message/x-broken if - parsing is failed. - -1998-07-10 MORIOKA Tomohiko - - * mmbuffer.el (entity-children): Don't use - `mime-entity-children-internal'. - - * mime-parse.el (mime-parse-multipart): Modify for - `mime-parse-message'; return children. - (mime-parse-encapsulated): Likewise. - (mime-parse-message): Change interface; delete DOC-string; don't - parse children instantly. - (mime-parse-buffer): Modify for `mime-parse-message'. - - * mime-parse.el (mime-parse-message): Delete autoload cookie. - - * mime.el: Delete autoload setting for `mime-parse-message'. - - * mime-en.sgml, mime-ja.sgml (Entity creation): Delete description - of `mime-parse-message'; modify description of `mime-parse-buffer' - to add `representation-type'. - - -1998-07-07 MORIOKA Tomohiko - - * FLIM-Chao: Version 1.8.0 (Shij.DNr) was released.*B - -1998-07-07 MORIOKA Tomohiko - - * mmcooked.el: Abolish method `open'. - - * mmbuffer.el (initialize-instance): New method; abolish `open'. - (entity-children): New method. - - * mime.el (mime-open-entity): Send `initialize-instance' to - created message. - (mime-entity-children): New implementation. - (mime-entity-parent): New implementation. - (mime-root-entity-p): New implementation. - - * mime-parse.el (mime-parse-multipart): Specify current entity as - parent. - (mime-parse-encapsulated): Likewise. - (mime-parse-message): Change interface to specify parent; modify - for `make-mime-entity-internal'. - (mime-parse-buffer): Modify for `mime-parse-message'. - - * mime-def.el (make-mime-entity-internal): Change interface; add - format of `mime-entity' to add `parent'. - -1998-07-07 MORIOKA Tomohiko - - * mmbuffer.el (mime-visible-field-p): Renamed from - `eword-visible-field-p'. - -1998-07-07 MORIOKA Tomohiko - - * mime.el (mm-arglist-to-arguments): New function. - (mm-define-generic): New macro. - (mime-entity-cooked-p): Use `mm-define-generic'. - (mime-entity-point-min): Use `mm-define-generic'. - (mime-insert-decoded-header): Use `mm-define-generic'. - (mime-entity-content): Use `mm-define-generic'. - (mime-write-entity-content): Use `mm-define-generic'. - (mime-write-entity): Use `mm-define-generic'. - (mime-write-entity-body): Use `mm-define-generic'. - -1998-07-07 MORIOKA Tomohiko - - * mmbuffer.el (eword-visible-field-p): Moved from mime.el. - - * mime.el: Move `eword-visible-field-p' to mmbuffer.el. - (mime-write-entity-body): Change message to `write-body'. - -1998-07-07 MORIOKA Tomohiko - - * mmcooked.el, mmbuffer.el (open): Renamed from `open-entity'. - - * mime.el (mime-open-entity): Change message to `open'. - - * mime-def.el (mm-define-backend): Must `copy-alist'. - -1998-07-07 MORIOKA Tomohiko - - * mmcooked.el, mmbuffer.el: Use `mm-define-backend' and - `mm-define-method'. - - * mime.el: Move `mime-entity-implementation-alist' to mime-def.el. - (mime-find-function): New implementation. - (mime-entity-cooked-p): Use `mime-entity-send'. - - * mime-def.el (mime-entity-implementation-alist): Moved from - mime.el. - (mm-define-backend): New macro. - (mm-define-method): New macro. - - -1998-07-05 MORIOKA Tomohiko - - * FLIM: Version 1.8.1 (Kutsukawa) was released. - -1998-07-04 MORIOKA Tomohiko - - * mime-en.sgml, mime-ja.sgml (Entity Attributes): Add description - about `default-encoding' of `mime-entity-encoding'. - - * mime-en.texi, mime-en.sgml: New files. - - * mime-ja.sgml (media-type): Fix typo. - - * mime-ja.sgml (Glossary): Fix order. - - * mime-ja.sgml (Entity Attributes): Use

 tag for nil.
-
-	* mime-ja.sgml (Entity Attributes): Fix typo.
-
-1998-07-03  MORIOKA Tomohiko  
-
-	* mime.el (mime-entity-encoding): Add new optional argument
-	`default-encoding'; set default encoding if
-	Content-Transfer-Encoding field is not found.
-
-1998-07-03  MORIOKA Tomohiko  
-
-	* mmbuffer.el (mmbuffer-write-entity): Use
-	`mime-entity-buffer-internal', `mmbuffer-entity-point-min' and
-	`mmbuffer-entity-point-max'.
-	(mmbuffer-write-entity-body): Use `mime-entity-buffer-internal',
-	`mime-entity-body-start-internal' and
-	`mime-entity-body-end-internal'.
-	(mmbuffer-insert-decoded-header): Use
-	`mime-entity-buffer-internal', `mime-entity-header-start-internal'
-	and `mime-entity-header-end-internal'.
-
-
-1998-07-01  MORIOKA Tomohiko  
-
-	* FLIM: Version 1.8.0 (.DNRkubo) was released.*B
-
-	* README.en: Delete `How to use'.
-
-1998-07-01  MORIOKA Tomohiko  
-
-	* mime-ja.sgml (Entity creation): Add reference for `mm-backend'
-	in description of `mime-open-entity'.
-
-	* mime-ja.sgml (mm-backend): New section.
-
-1998-07-01  MORIOKA Tomohiko  
-
-	* mime-ja.sgml (Entity-header): Modify description about
-	`mime-insert-decoded-header'.
-
-	* mmcooked.el (mmcooked-insert-decoded-header): New function.
-
-	* mmbuffer.el (mmbuffer-insert-decoded-header): New function.
-
-	* mime.el (mime-insert-decoded-header): Use implementation of
-	mm-backend; abolish optional argument `code-conversion'.
-
-1998-06-30  MORIOKA Tomohiko  
-
-	* eword-decode.el (eword-decode-encoded-text): Use
-	`decode-mime-charset-string'.
-
-1998-06-30  MORIOKA Tomohiko  
-
-	* mmcooked.el (mmcooked-write-entity-body): New function.
-
-	* mmbuffer.el (mmbuffer-write-entity-body): New function.
-
-	* mime.el (mime-write-entity-body): Use implementation of
-	mm-backend.
-
-1998-06-30  MORIOKA Tomohiko  
-
-	* mmcooked.el (mmcooked-write-entity): New function.
-
-	* mmbuffer.el (mmbuffer-write-entity): New function.
-
-	* mime.el (mime-write-entity): Use implementation of mm-backend.
-
-1998-06-30  MORIOKA Tomohiko  
-
-	* mmcooked.el (mmcooked-entity-content): New alias for
-	`mmbuffer-entity-content'.
-	(mmcooked-write-entity-content): New function.
-
-	* mmbuffer.el (mmbuffer-entity-content): New function.
-	(mmbuffer-write-entity-content): New function.
-
-	* mime.el (mime-entity-send): New function.
-	(mime-entity-buffer): Use `mime-entity-send'.
-	(mime-entity-point-min): Likewise.
-	(mime-entity-point-max): Likewise.
-	(mime-entity-header-start): Likewise.
-	(mime-entity-header-end): Likewise.
-	(mime-entity-body-start): Likewise.
-	(mime-entity-body-end): Likewise.
-	(mime-fetch-field): Likewise.
-	(mime-entity-content): Use implementation of mm-backend.
-	(mime-write-entity-content): Likewise.
-
-
-1998-06-30  MORIOKA Tomohiko  
-
-	* FLIM: Version 1.7.0 (Iseda) was released.
-
-	* mime-ja.sgml (Entity creation): Add description of
-	`mime-open-entity'.
-	(Entity Attributes): Add description of `mime-entity-cooked-p'.
-	(Entity-content): Add description of `mime-write-entity-content',
-	`mime-write-entity' and `mime-write-entity-body'.
-
-1998-06-29  MORIOKA Tomohiko  
-
-	* mime.el (mime-write-entity-content): New function.
-
-1998-06-28  MORIOKA Tomohiko  
-
-	* mime.el (mime-write-entity-body): New function.
-
-	* mime.el (mime-write-entity): New function.
-
-1998-06-28  MORIOKA Tomohiko  
-
-	* mime-parse.el (mime-parse-multipart): Change media-type of
-	entity to application/octet-stream if the first delimiter is not
-	found.
-
-1998-06-28  MORIOKA Tomohiko  
-
-	* FLIM-ELS (flim-modules): Add `mmbuffer' and `mmcooked'.
-
-	* mmcooked.el: New file.
-
-	* mmbuffer.el: New file.
-
-	* mime.el (mime-entity-implementation-alist): New variable.
-	(mime-find-function): New function.
-	(mime-open-entity): New function.
-	(mime-entity-function): New function.
-	(mime-entity-cooked-p): New function.
-	(mime-entity-buffer): Use backend-module.
-	(mime-entity-point-min): Likewise.
-	(mime-entity-point-max): Likewise.
-	(mime-entity-header-start): Likewise.
-	(mime-entity-header-end): Likewise.
-	(mime-entity-body-start): Likewise.
-	(mime-entity-body-end): Likewise.
-	(mime-fetch-field): Likewise.
-
-	* mime-parse.el (mime-parse-message): New optional argument
-	`representation-type'.
-	(mime-parse-buffer): Likewise.
-
-	* mime-def.el: Change format of mime-entity-internal to add
-	`representation-type' and `location'.
-
-
-1998-06-28  MORIOKA Tomohiko  
-
-	* FLIM-Chao: Version 1.7.0 (Goj.DNr) was released.*B
-
-1998-06-26  MORIOKA Tomohiko  
-
-	* mime-ja.sgml: Modify for FLIM 1.7.
-
-	* mime.el (mime-entity-number): Add DOC.
-
-1998-06-26  MORIOKA Tomohiko  
-
-	* mime.el (mime-entity-encoding): New implementation.
-
-	* mime-parse.el (mime-parse-message): Abolish argument `encoding'.
-
-	* mime-def.el (make-mime-entity-internal): Abolish argument
-	`encoding'.
-	(mime-entity-set-encoding-internal): New function.
-
-1998-06-26  MORIOKA Tomohiko  
-
-	* mime.el (mime-entity-content-disposition): New implementation.
-
-	* mime-parse.el (mime-parse-message): Don't parse
-	Content-Disposition.
-
-	* mime-def.el (make-mime-entity-internal): Delete argument
-	`content-disposition'.
-	(mime-entity-set-content-disposition-internal): New function.
-
-1998-06-25  MORIOKA Tomohiko  
-
-	* eword-decode.el: Move function `eword-visible-field-p' and
-	`mime-insert-decoded-header' to mime.el.
-
-	* mime-parse.el: Use internal functions of mime-entity.
-
-	* mime.el (mime-entity-children): Moved from mime-def.el; use
-	`mime-entity-children-internal'.
-	(mime-entity-node-id): Moved from mime-def.el; use
-	`mime-entity-node-id-internal'.
-	(mime-entity-number): Moved from mime-def.el; use
-	`mime-entity-node-id-internal'.
-	(mime-entity-buffer): Moved from mime-def.el; use
-	`mime-entity-buffer-internal'.
-	(mime-entity-point-min): Moved from mime-def.el; use
-	`mime-entity-header-start-internal'.
-	(mime-entity-point-max): Moved from mime-def.el; use
-	`mime-entity-body-end-internal'.
-	(mime-entity-header-start): Moved from mime-def.el; use
-	`mime-entity-header-start-internal'.
-	(mime-entity-header-end): Moved from mime-def.el; use
-	`mime-entity-header-end-internal'.
-	(mime-entity-content-type): Moved from mime-def.el; use
-	`mime-entity-content-type-internal'.
-	(mime-entity-content-disposition): Moved from mime-def.el; use
-	`mime-entity-content-disposition-internal'.
-	(mime-entity-encoding): Moved from mime-def.el; use
-	`mime-entity-encoding-internal'.
-	(mime-fetch-field): Use `mime-entity-original-header-internal' and
-	`mime-entity-set-original-header-internal'.
-	(mime-read-field): Use `mime-entity-parsed-header-internal' and
-	`mime-entity-set-parsed-header-internal'.
-	(eword-visible-field-p): Moved from eword-decode.el.
-	(mime-insert-decoded-header): Moved from eword-decode.el.
-	(mime-entity-body-start): Moved from mime-def.el; use
-	`mime-entity-body-start-internal'.
-	(mime-entity-body-end): Moved from mime-def.el; use
-	`mime-entity-body-end-internal'.
-	(mime-entity-media-type): Moved from mime-def.el.
-	(mime-entity-media-subtype): Moved from mime-def.el.
-	(mime-entity-parameters): Moved from mime-def.el.
-	(mime-entity-type/subtype): Moved from mime-def.el.
-
-	* mime-def.el (make-mime-entity-internal): Renamed from
-	`make-mime-entity'.
-	(mime-entity-buffer-internal): New function.
-	(mime-entity-header-start-internal): New function.
-	(mime-entity-header-end-internal): New function.
-	(mime-entity-body-start-internal): New function.
-	(mime-entity-body-end-internal): New function.
-	(mime-entity-node-id-internal): New function.
-	(mime-entity-content-type-internal): New function.
-	(mime-entity-content-disposition-internal): New function.
-	(mime-entity-encoding-internal): New function.
-	(mime-entity-original-header-internal): New function.
-	(mime-entity-children-internal): New function.
-	(mime-entity-parsed-header-internal): New function.
-	(mime-entity-set-original-header-internal): Renamed from
-	`mime-entity-set-original-header'.
-	(mime-entity-set-children-internal): Renamed from
-	`mime-entity-set-children'.
-	(mime-entity-set-parsed-header-internal): Renamed from
-	`mime-entity-set-parsed-header'.  Move `mime-entity-SLOT'
-	functions to mime.el.
-
-1998-06-25  MORIOKA Tomohiko  
-
-	* mime-ja.sgml (CVS): Fix typo.
-
-1998-06-24  MORIOKA Tomohiko  
-
-	* mime-parse.el (mime-parse-encapsulated): New function.
-	(mime-parse-message): Use `mime-parse-encapsulated'.
-
-1998-06-24  MORIOKA Tomohiko  
-
-	* mime-def.el (mime-entity-set-children): New function.
-
-	* mime-parse.el (mime-parse-multipart): Change interface.
-	(mime-parse-message): Use `mime-entity-set-children'.
-
-1998-06-24  Shuhei KOBAYASHI  
-
-	* mime.el (mime-read-field): Fix typo.
-
-
-1998-06-24  MORIOKA Tomohiko  
-
-	* FLIM: Version 1.6.0 (Ogura) was released.
-
-	* mime-ja.sgml (Entity Attributes): New section.
-
-	* mime-ja.sgml (Entity as node in message): Add description of
-	`mime-find-entity-from-number' and
-	`mime-find-entity-from-node-id'.
-
-	* mime.el (mime-find-entity-from-number): New function.
-	(mime-find-entity-from-node-id): New function.
-	(mime-entity-parent): New function (moved from SEMI MIME-View).
-	(mime-entity-uu-filename): New function (moved from SEMI
-	MIME-View).
-	(mime-entity-filename): New function (moved from SEMI MIME-View).
-
-	* mime-def.el (mime-uuencode-encoding-name-list): New variable.
-
-1998-06-24  MORIOKA Tomohiko  
-
-	* mime-ja.sgml: Modify for FLIM 1.6.
-
-	* mime.el (mime-fetch-field): New function; abolish
-	`mime-entity-fetch-field'.
-	(mime-read-field): New function; abolish `mime-entity-read-field'.
-
-1998-06-23  MORIOKA Tomohiko  
-
-	* mime-ja.sgml, mime-ja.texi: New files.
-
-1998-06-22  Shuhei KOBAYASHI  
-
-	* mime-parse.el (mime-parse-message): Would error if empty body.
-
-
-1998-06-22  MORIOKA Tomohiko  
-
-	* FLIM: Version 1.5.0 (Mukaijima) was released.
-
-1998-06-21  MORIOKA Tomohiko  
-
-	* README.en (What's FLIM): Modify for mime.el.
-
-	* FLIM-ELS (flim-modules): Add `mime'.
-
-	* mime-lib.el: Move every definitions to mime.el.
-
-	* mime.el: New module (renamed from mime-lib.el).
-
-1998-06-21  MORIOKA Tomohiko  
-
-	* mime-lib.el: Add autoload setting for eword-encode.el.
-
-	* mime-lib.el (mime-entity-content): New function.
-
-1998-06-20  MORIOKA Tomohiko  
-
-	* mel.el: Abolish constant `mel-version'.
-
-	* mel.el (mime-string-decoding-method-alist): New variable.
-	(mime-decode-string): New function.
-
-1998-06-20  MORIOKA Tomohiko  
-
-	* mel-b.el (base64-external-decode-string): New function.
-	(base64-decode-string): New function.
-
-1998-06-20  MORIOKA Tomohiko  
-
-	* mel-q.el (quoted-printable-decode-string): New implementation.
-
-1998-06-20  MORIOKA Tomohiko  
-
-	* mel-q.el (quoted-printable-internal-decode-region): New
-	implementation.
-
-1998-06-20  MORIOKA Tomohiko  
-
-	* mel-q.el (q-encoding-decode-string): Use
-	`quoted-printable-hex-char-to-num'.
-
-	* mel-q.el (quoted-printable-hex-char-to-num): New function.
-	(quoted-printable-decode-string): Use
-	`quoted-printable-hex-char-to-num'.
-
-1998-06-19  MORIOKA Tomohiko  
-
-	* mime-def.el, mime-parse.el: Move `mime-message-structure' from
-	mime-parse.el to mime-def.el.
-
-1998-06-19  MORIOKA Tomohiko  
-
-	* mime-lib.el, mime-parse.el: Move `mime-root-entity-p' from
-	mime-parse.el to mime-lib.el.
-
-	* mime-lib.el: Add autoload setting for mime-parse.el.
-
-1998-06-19  MORIOKA Tomohiko  
-
-	* mime-parse.el, mime-def.el: Move `mime-entity-point-min',
-	`mime-entity-point-max', `mime-entity-media-type',
-	`mime-entity-media-subtype', `mime-entity-parameters' and
-	`mime-entity-type/subtype' from mime-parse.el to mime-def.el.
-
-	* mime-parse.el, mime-def.el: Move `mime-content-disposition'
-	reference functions from mime-parse.el to mime-def.el.
-
-	* mime-parse.el, mime-def.el: Move structure `mime-content-type'
-	from mime-parse.el to mime-def.el.
-
-1998-06-19  MORIOKA Tomohiko  
-
-	* mel-b.el (base64-internal-decode-string): Renamed from
-	`base64-decode-string'.
-	(base64-decode-string): New alias for
-	`base64-internal-decode-string'.
-
-1998-06-19  MORIOKA Tomohiko  
-
-	* mel-b.el (base64-decode-unit): New function; abolish
-	`base64-decode-1'.
-	(base64-decode-string): New implementation.
-	(base64-internal-decode-region): New implementation.
-
-1998-06-19  MORIOKA Tomohiko  
-
-	* mime-parse.el (mime-message-structure): New variable.
-	(mime-parse-buffer): New function.
-
-1998-06-19  Shuhei KOBAYASHI  
-
-	* mime-def.el: Require 'cl when it is compiled.
-
-	* mime-lib.el (mime-entity-read-field): Fix typo.
-	Use `eword-decode-ignored-field-list'.
-
-	* mime-parse.el (mime-parse-multipart): Fix typo.
-	(mime-parse-message): Parse message/external-body.
-
-
-1998-06-19  MORIOKA Tomohiko  
-
-	* FLIM: Version 1.4.1 (Momoyama-Gory.DNrmae) was released.*B
-
-1998-06-18  MORIOKA Tomohiko  
-
-	* eword-decode.el (mime-insert-decoded-header): Fix typo.
-
-
-1998-06-18  MORIOKA Tomohiko  
-
-	* FLIM: Version 1.4.0 (Kintetsu-Tanbabashi) was released.
-
-1998-06-18  MORIOKA Tomohiko  
-
-	* README.en (What's FLIM): Add description about mime-lib.el and
-	mime-parse.el.
-
-1998-06-17  MORIOKA Tomohiko  
-
-	* mime-parse.el: Require 'cl when it is compiled.
-
-	* eword-decode.el (eword-visible-field-p): New function.
-	(mime-insert-decoded-header): Use `eword-visible-field-p'.
-
-1998-06-17  MORIOKA Tomohiko  
-
-	* mime-def.el (mime-library-version-string): Renamed from
-	`mime-spadework-module-version-string'.
-
-	* mime-parse.el: New file; moved from SEMI layer.
-
-	* FLIM-ELS (flim-modules): Add `mime-parse'.
-
-1998-06-17  MORIOKA Tomohiko  
-
-	* FLIM-ELS (flim-modules): Add `mime-lib'.
-
-	* mime-lib.el: New module.
-
-	* mime-def.el (mime-entity): Add new slots for original-header and
-	parsed-header.
-	(mime-entity-set-original-header): New function.
-	(mime-entity-set-parsed-header): New function.
-
-1998-06-16  MORIOKA Tomohiko  
-
-	* mime-def.el (mime-entity-number): New function (moved from SEMI
-	layer).
-
-1998-06-16  MORIOKA Tomohiko  
-
-	* mime-def.el: Move definition of structure `mime-entity' from
-	SEMI layer.
-
-1998-06-16  MORIOKA Tomohiko  
-
-	* eword-decode.el (eword-decode-ignored-field-list): Capitalize
-	default value.
-	(eword-decode-structured-field-list): Capitalize default value.
-	(eword-decode-header): Regularize field name by `capitalize'.
-	(mime-insert-decoded-header): New function.
-
-1998-06-15  MORIOKA Tomohiko  
-
-	* mailcap.el (mailcap-file): Use `defcustom'.
-
-
-1998-06-01  MORIOKA Tomohiko  
-
-	* FLIM: Version 1.3.0 (Fushimi) was released.
-
-1998-05-28  MORIOKA Tomohiko  
-
-	* std11.el (std11-fetch-field): New function.
-	(std11-field-body): Use 'std11-fetch-field.
-
-1998-05-28  MORIOKA Tomohiko  
-
-	* mime-def.el (regexp-*): New function (moved from mime-parse.el
-	of SEMI (REMI)).
-	(regexp-or): New function (moved from mime-parse.el of
-	SEMI (REMI)).
-
-	(std11-quoted-pair-regexp): New constant (moved from mime-parse.el
-	of SEMI (REMI)).
-	(std11-non-qtext-char-list): New constant (copied from std11.el).
-	(std11-qtext-regexp): New constant (moved from mime-parse.el of
-	SEMI (REMI)).
-	(std11-quoted-string-regexp): New constant (moved from
-	mime-parse.el of SEMI (REMI)).
-
-
-1998-05-17  MORIOKA Tomohiko  
-
-	* FLIM: Version 1.2.2 (Takeda) was released.
-
-	* FLIM-VERSION: New file.
-
-1998-05-15  MORIOKA Tomohiko  
-
-	* mel-q.el (quoted-printable-internal-encode-region): Use
-	'looking-at-as-unibyte instead of local binding for
-	enable-multibyte-characters.
-
-
-1998-05-09  MORIOKA Tomohiko  
-
-	* FLIM: Version 1.2.1 (Kamitobaguchi) was released.
-
-1998-05-09  MORIOKA Tomohiko  
-
-	* mel-q.el (quoted-printable-internal-decode-region): Use
-	'string-as-multibyte to avoid problem in Emacs 20.3.
-
-1998-05-08  Katsumi Yamaoka   
-
-	* mel-u.el: Use mime-temp-directory instead of TMP.
-
-
-1998-05-06  MORIOKA Tomohiko  
-
-	* FLIM: Version 1.2.0 (J.DN~jNr) was released.*B
-
-	* README.en (What's FLIM): Delete description about
- 	std11-parse.el; add description about mailcap.el.
-
-1998-05-06  MORIOKA Tomohiko  
-
-	* eword-decode.el (eword-decode-encoded-word-error-handler): New
-	variable.
-	(eword-decode-encoded-word-default-error-handler): New function.
-	(eword-decode-encoded-word): Use
-	'eword-decode-encoded-word-error-handler.
-
-1998-05-06  MORIOKA Tomohiko  
-
-	* mailcap.el: Require 'mime-def.
-
-	* mime-def.el (mime-type/subtype-string): New function (moved from
-	semi/mime-parse.el).
-
-1998-05-06  MORIOKA Tomohiko  
-
-	* std11-parse.el: Abolish std11-parse.el.
-
-	* FLIM-ELS (flim-modules): Abolish 'std11-parse.
-
-	* eword-decode.el: Require 'std11 instead of 'std11-parse.
-
-	* std11.el: Merge std11-parse.el.
-
-1998-05-06  MORIOKA Tomohiko  
-
-	* mime-def.el (mime-temp-directory): Use 'defcustom.
-
-	* mel-u.el: Require 'mime-def instead of 'mel.
-
-	* mime-def.el (mime-temp-directory): New variable (moved from
-	mel.el).
-
-	* mel.el: Move definition of 'mime-temp-directory to mime-def.el.
-
-1998-05-06  MORIOKA Tomohiko  
-
-	* mailcap.el (mailcap-format-command): New function.
-
-	* mailcap.el (mailcap-look-at-mtext): Don't strip quoted character
-	again.
-
-
-1998-05-05  MORIOKA Tomohiko  
-
-	* FLIM: Version 1.1.0 (T.DNrji) was released.*B
-
-1998-05-04  MORIOKA Tomohiko  
-
-	* mime-def.el (quoted-printable-hex-chars): New constant.
-	(quoted-printable-octet-regexp): New constant.
-
-	* mel-q.el, eword-decode.el: Move definition of constant
-	'quoted-printable-hex-chars and 'quoted-printable-octet-regexp to
-	mime-def.el.
-
-1998-05-03  MORIOKA Tomohiko  
-
-	* mailcap.el (mailcap-look-at-mtext): Strip quoted character.
-
-1998-05-03  MORIOKA Tomohiko  
-
-	* mailcap.el (mailcap-look-at-mtext): Fix typo.
-
-1998-05-03  MORIOKA Tomohiko  
-
-	* FLIM-ELS (flim-modules): Add mailcap.
-
-	* mailcap.el: New file (copied from SEMI).
-
-1998-04-23  Shuhei KOBAYASHI  
-
-	* eword-decode.el (eword-decode-ignored-field-list): Add
-	`received'.
-	
-	* mel.el (mime-temp-directory): Use TMPDIR, TMP, or TEMP
-	environment variables.
-
-
-1998-04-17  MORIOKA Tomohiko  
-
-	* FLIM: Version 1.0.1 (Ky.DNrto) was released.*B
-
-	* mime-def.el (mime-spadework-module-version-string): New
- 	constant.
-
-	* eword-encode.el: Abolish constant 'eword-encode-version.
-
-	* eword-decode.el: Abolish constant 'eword-decode-version.
-
-1998-04-17  MORIOKA Tomohiko  
-
-	* eword-encode.el (eword-encode-divide-into-charset-words): Use
-	'char-length or 'char-next-index instead of 'char-bytes.
-	(tm-eword::encode-string-1): Use 'char-next-index instead of
-	'char-bytes.
-
-1998-04-17  MORIOKA Tomohiko  
-
-	* mel.el (base64-dl-module): Must check base64.so actually exists.
-
-
-1998-04-13  MORIOKA Tomohiko  
-
-	* FLIM: Version 1.0.0 was released.
-
-	* README.en: Modify for FLIM.
-
-	* ChangeLog: New file.
-
-1998-04-13  MORIOKA Tomohiko  
-
-	* FLIM-CFG, FLIM-ELS, FLIM-MK: New files.
-
-	* Makefile: Modify for FLIM.
-
-1998-04-10  MORIOKA Tomohiko  
-
-	* Makefile: New file.
-
-	* mime-def.el, std11-parse.el, std11.el, eword-decode.el,
- 	eword-encode.el: Copied from MEL, SEMI (mime-def.el
- 	eword-decode.el eword-encode.el) and APEL (std11-parse.el
- 	std11.el).
diff --git a/DOODLE-TIPS b/DOODLE-TIPS
deleted file mode 100644
index 4491261..0000000
--- a/DOODLE-TIPS
+++ /dev/null
@@ -1,28 +0,0 @@
-* You should byte-compile(make).
-Because DOODLE uses very complex macro.
-
-Especialy ew-line.el, ew-scan-m.el, ew-scan-s.el and ew-scan-u.el that are require 'lex.
-(lex is scanner generator.)
-
-* Multiline field-bodies fetched from XOVER is already concatinated,
-you should set ew-ignore-76bytes-limit to true.
-Currentry Gnus use these variables to decode and "Subject" and "From",
-tell it here. Unless doing it, DOODLE does not decode atoms in phrase
-because DOODLE cannot decide whether an atom is in phrase or not without
-field name information.
-
-(setq gnus-unstructured-field-decoder
-   (lambda (string)
-     (if (fboundp 'ew-decode-field)
-         (let ((ew-ignore-76bytes-limit t))
-           (ew-cut-cr-lf (ew-decode-field "Subject" (ew-lf-crlf-to-crlf string))))
-       (eword-decode-and-unfold-structured-field string))))
-
-(setq gnus-structured-field-decoder
-   (lambda (string)
-     (if (fboundp 'ew-decode-field)
-         (let ((ew-ignore-76bytes-limit t))
-           (ew-cut-cr-lf (ew-decode-field "From" (ew-lf-crlf-to-crlf string))))
-       (eword-decode-unstructured-field-body (std11-unfold-string string) 'must-unfold))))
-
-* Ignore warnings about args-eword-* when byte-compiling.
diff --git a/DOODLE-VERSION b/DOODLE-VERSION
deleted file mode 100644
index 8d0333a..0000000
--- a/DOODLE-VERSION
+++ /dev/null
@@ -1,88 +0,0 @@
-FLIM: Faithful Library about Internet Message
-FLAM: Faithful Library About MIME
-DOODLE: Definition Oriented Obsessive Decoding Library for Encoded-word
-
-Order is not significant.
-
-     1	$BAIK'(B		$B$9$[$&(B			2.5R3.0/3.0	FLIM-FLAM 1.0.0 
-     2	$B9HG_(B		$B$3$&$P$$(B		2.5R7.0/8.0	FLIM-FLAM 1.0.1
-     3	$B4Z9H2V(B		$B$+$i$/$l$J$p(B		4.0R4.0/14.0	FLIM-FLAM 1.1.0
-     4	$BEm2V(B		$B$b$b(B			2.5R6.0/10.0	FLIM-FLAM 1.2.0
-     5	$B:y(B		$B$5$/$i(B			2.5R7.0/7.0	FLIM-FLAM 1.2.1
-     6	$BFy(B		$B$K$/(B			2.5YR8.0/4.0	FLIM-FLAM 1.3.0 
-     7	$B@VAIK'(B		$B$"$+$9$[$&(B		7.5R4.0/14.0	FLIM-FLAM 1.8.0
-     8	$B6d.F&(B		$B$"$:$-(B			2.5R3.5/5.0
-    20	$BIrF:Cc(B		$B$($S$A$c(B		5.0R4.0/11.0
-    21	$B??GCc(B		$B$3$2$A$c(B		10R3.0/2.0
-    26	$B7*Hi(B		$B$/$j$+$O(B		10R3.0/4.0
-    27	$BFP(B		$B$H$S(B			10R4.0/7.0
-    28	$B3w(B		$B$+$P(B			10R4.0/5.0
-    29	$B2+H'@w(B		$B$3$&$m$;$s(B		2.5Y5.0/4.0
-    30	$BCz;RCc(B		$B$A$g$&$8$A$c(B		5.0YR4.0/4.0
-    31	$B>MU(B		$B$^$D$P(B			7.5G5.0/5.0
-    54	$B;3Mu@"(B		$B$d$^$"$$$:$j(B		5.0BG/4.0/4.0
-    55	$B3$>>(B		$B$_$k(B			2.5GY3.5/2.0
-    56	$BU;Cc(B		$B$3$S$A$c(B		10Y4.0/2.0
-    57	$B@DGrFK(B		$B$"$*$7$m$D$k$P$_(B	5.0GY7.5/3.0
-    58	$B2X;R:0(B		$B$J$9$3$s(B		7.5PB/2.3/3.0
-    59	$B:0(B		$B$3$s(B			7.5PB3.0/3.0
-    60	$BG<8M(B		$B$J$s$I(B			5.0PB3.0/4.0
-    61	$B:0@D(B		$B$3$s$8$g$&(B		8.5PB3.0/12.0
-    62	$BN0M~(B		$B$k$j(B			7.5PB3.0/12.0
-    63	$B72@D(B		$B$0$s$8$g$&(B		6.0PB3.5/12.0
-    64	$BGr72(B		$B$S$c$/$0$s(B		7.5B6.0/4.0
-    65	$Be](B		$B$O$J$@(B			10B3.5/5.0
-    66	$B@u2+(B		$B$"$5$.(B			10BG6.0/3.0
-    67	$BLG;g(B		$B$a$C$7(B			5.0P2.5/4.0
-    68	$B?<;g(B		$B$3$`$i$5$-(B		5.0P2.5/4.0
-    69	$BFsMu(B		$B$U$?$"$$(B		5.0P4.0/3.0
-    70	$B;g(B		$B$`$i$5$-(B		7.5P3.5/4.0
-    71	$BIrF:(B		$B$($S(B			7.5P3.5/6.0
-    72	$B? JR, $(B5~ET;T8rDL6I(B
-1.1.0	T-Dòji-A			$(BEl;{(B
-1.2.0	J-Dþjò-A			$(B==>r(B
-1.2.1	Kamitobaguchi		$(B>eD;1)8}(B
-1.2.2	Takeda			$(BC]ED(B		; = $(B5~ET;T8rDL6I(B $(B1(4]@~(B
-1.3.0	Fushimi			$(BIz8+(B
-1.4.0	Kintetsu-Tanbabashi	$(B6aE4C0GH66(B	; <=> $(B5~:e(B $(BC0GH66(B
-1.4.1	Momoyama-Gory-Dòmae-A	$(BEm;38fNMA0(B
-1.5.0	Mukaijima		$(B8~Eg(B
-1.6.0	Ogura			$(B>.AR(B
-1.7.0	Iseda			$(B0K@*ED(B
-1.8.0	-DÒkubo-A			$(BBg5WJ](B
-1.8.1	Kutsukawa		$(B5WDE@n(B
-1.9.0	Terada			$(B;{ED(B
-
-
-[Chao Version names]
-
-;;-------------------------------------------------------------------------
-;;	Kyoto Municipal Transfer Bureau
-;;				$(B5~ET;T8rDL6I(B
-;;		http://www.city.kyoto.jp/kotsu/main.htm
-;;	Karasuma Line		$(B1(4]@~(B
-;;-------------------------------------------------------------------------
-1.2.0	Takeda			$(BC]ED(B		; = $(B6aE4(B $(B5~ET@~(B
-1.3.0	Kuinabashi		$(B$/$$$J66(B
-1.4.0	J-Dþjò-A			$(B==>r(B
-1.6.0	Kuj-Dò-A			$(B6e>r(B
-1.6.1	Ky-Dòto-A			$(B5~ET(B		; <=> JR, $(B6aE4(B
-1.7.0	Goj-Dò-A			$(B8^>r(B
-1.8.0	Shij-Dò-A			$(B;M>r(B
diff --git a/Makefile b/Makefile
deleted file mode 100644
index beba984..0000000
--- a/Makefile
+++ /dev/null
@@ -1,54 +0,0 @@
-#
-# Makefile for FLIM.
-#
-
-PACKAGE = flim
-VERSION = 1.9.0
-
-TAR	= tar
-RM	= /bin/rm -f
-CP	= /bin/cp -p
-
-EMACS	= emacs
-FLAGS   = -batch -q -no-site-file -l FLIM-MK
-
-PREFIX = NONE
-LISPDIR = NONE
-
-GOMI	= *.elc
-FILES	= README.?? Makefile FLIM-MK FLIM-CFG FLIM-ELS *.el ChangeLog
-
-
-elc: ew-parse.el
-	$(EMACS) $(FLAGS) -f compile-flim $(PREFIX) $(LISPDIR)
-
-install:	elc
-	$(EMACS) $(FLAGS) -f install-flim $(PREFIX) $(LISPDIR)
-
-clean:
-	-$(RM) $(GOMI)
-	cd ../tl && make clean
-
-
-tar:
-	cvs commit
-	sh -c 'cvs tag -RF $(PACKAGE)-`echo $(VERSION) \
-				| sed s/\\\\./_/ | sed s/\\\\./_/`; \
-	cd /tmp; \
-	cvs -d :pserver:anonymous@chamonix.jaist.ac.jp:/hare/cvs/root \
-		export -d $(PACKAGE)-$(VERSION) \
-		-r $(PACKAGE)-`echo $(VERSION) | sed s/\\\\./_/ | sed s/\\\\./_/` \
-		flim'
-	cd /tmp; $(RM) $(PACKAGE)-$(VERSION)/ftp.in ; \
-		$(TAR) cvzf $(PACKAGE)-$(VERSION).tar.gz $(PACKAGE)-$(VERSION)
-	cd /tmp; $(RM) -r $(PACKAGE)-$(VERSION)
-	sed "s/VERSION/$(VERSION)/" < ftp.in > ftp
-
-release:
-	-$(RM) /pub/GNU/elisp/apel/$(PACKAGE)-$(VERSION).tar.gz
-	mv /tmp/$(PACKAGE)-$(VERSION).tar.gz /pub/GNU/elisp/flim/
-	cd /pub/GNU/elisp/semi/ ; \
-		ln -s ../flim/$(PACKAGE)-$(VERSION).tar.gz .
-
-ew-parse.el: ew-parse.scm lalr-el.scm
-	-scm -f lalr-el.scm -f ew-parse.scm > ew-parse.out
diff --git a/README.en b/README.en
deleted file mode 100644
index 74bf582..0000000
--- a/README.en
+++ /dev/null
@@ -1,120 +0,0 @@
-[README for FLIM (English Version)]
-
-What's FLIM
-===========
-
-  FLIM is a library to provide basic features about message
-  representation or encoding.  It consists of following
-  modules:
-
-    std11.el	--- STD 11 (RFC 822) parser and utility
-
-    mime.el	--- MIME library
-
-        mime-def.el --- Definitions about MIME format
-
-    	mime-parse.el --- MIME parser
-
-    	mel.el --- MIME encoder/decoder
-	    mel-dl.el --- base64 (b-encoding) encoder/decoder
-			  (for Emacs 20 with dynamic loading support)
-	    mel-b.el  --- base64 (b-encoding) encoder/decoder
-			  (for other emacsen)
-	    mel-q.el  --- quoted-printable and q-encoding encoder/decoder
-	    mel-u.el  --- unofficial module for uuencode
-	    mel-g.el  --- unofficial module for gzip64
-
-	eword-decode.el --- encoded-word decoder
-	eword-encode.el --- encoded-word encoder
-
-    mailcap.el	--- mailcap parser and utility
-
-
-Installation
-============
-
-(0) before installing it, please install APEL package.  APEL package
-    is available at:
-
-	ftp://ftp.jaist.ac.jp/pub/GNU/elisp/apel/
-
-(1-a) run in expanded place
-
-  If you don't want to install other directories, please do only
-  following:
-
-	% make
-
-  You can specify the emacs command name, for example
-
-	% make install EMACS=xemacs
-
-  If `EMACS=...' is omitted, EMACS=emacs is used.
-
-(1-b) make install
-
-  If you want to install other directories, please do following:
-
-	% make install
-
-  You can specify the emacs command name, for example
-
-	% make install EMACS=xemacs
-
-  If `EMACS=...' is omitted, EMACS=emacs is used.
-
-  You can specify the prefix of the directory tree for Emacs Lisp
-  programs and shell scripts, for example:
-
-	% make install PREFIX=~/
-
-  If `PREFIX=...' is omitted, the prefix of the directory tree of the
-  specified emacs command is used (perhaps /usr/local).
-
-  For example, if PREFIX=/usr/local and EMACS 19.34 is specified, it
-  will create the following directory tree:
-
-	/usr/local/share/emacs/site-lisp/flim/   --- FLIM
-
-  You can specify site-lisp directory, for example
-
-	% make install LISPDIR=~/share/emacs/lisp
-
-  If `LISPDIR=...' is omitted, site-lisp directory of the specified
-  emacs command is used (perhaps /usr/local/share/emacs/site-lisp or
-  /usr/local/lib/xemacs/site-lisp).
-
-  You can specify other optional settings by editing the file
-  FLIM-CFG.  Please read comments in it.
-
-
-load-path (for Emacs or MULE)
-=============================
-
-  If you are using Emacs or Mule, please add directory of FLIM to
-  load-path.  If you install by default setting, you can write
-  subdirs.el for example:
-
-  --------------------------------------------------------------------
-  (normal-top-level-add-to-load-path '("apel" "flim"))
-  --------------------------------------------------------------------
-
-  If you are using XEmacs, there are no need of setting about
-  load-path.
-
-
-Bug reports
-===========
-
-  If you write bug-reports and/or suggestions for improvement, please
-  send them to the tm Mailing List:
-
-	bug-tm-en@chamonix.jaist.ac.jp	(English)
-	bug-tm-ja@chamonix.jaist.ac.jp	(Japanese)
-
-  Via the tm ML, you can report FLIM bugs, obtain the latest release
-  of FLIM, and discuss future enhancements to FLIM. To join the tm ML,
-  send an empty e-mail to
-
-	tm-en-help@chamonix.jaist.ac.jp	(English)
-	tm-ja-help@chamonix.jaist.ac.jp	(Japanese)
diff --git a/TESTPAT b/TESTPAT
deleted file mode 100644
index 1290c99..0000000
--- a/TESTPAT
+++ /dev/null
@@ -1,1341 +0,0 @@
-;;; -*- mode: emacs-lisp; coding: iso-2022-7bit-ss2 -*-
-;----------------------------------------------------------------------------
-;-------- This sequece of HYPHEN-MINUS is 76 bytes long. --------------------
-;----------------------------------------------------------------------------
-
-;;; options:
-;;encode-sticked-comment-as-atom    ; violate the policy preserving structures
-;;ignore-75bytes-limit              ; violate RFC2047
-;;ignore-76bytes-limit              ; violate RFC2047
-;;permit-sticked-comment            ; violate RFC2047
-;;permit-sticked-special            ; violate RFC2047
-;;separate-sticked-comment          ; violate the policy preserving absence of space
-;;separate-sticked-special          ; violate the policy preserving absence of space
-;;zero-characters-encoded-word-hack ; violate common sense (very tricky)
-;;embedded-encoded-word		    ; violate character sequence semantics
-;;separate-sticked-tokens-for-fold  ; violate the policy preserving absence of space
-;;encode-long-ascii-string-for-fold ; violate the policy preserving US-ASCII string
-;;divide-atom-for-fold		    ; violate tne policy preserving absence of space
-
-;;; test driver
-
-;;; FLIM or FLAM
-'(progn
-(require 'mime)
-(require 'ew-line)
-
-(if (< max-specpdl-size 1000)
-  (setq max-specpdl-size 1000))
-
-(defun decode-test (src dsts &rest opts)
-  (setq src (ew-crlf-to-lf src))
-  (setq eword-lexical-analyze-cache nil)
-  (setq eword-decode-sticked-encoded-word
-    (or (memq 'permit-sticked-comment opts)
-  	(memq 'permit-sticked-special opts)))
-  (setq eword-decode-quoted-encoded-word nil)
-  (with-temp-buffer
-    (insert src "\n" mail-header-separator)
-    (eword-decode-header 'us-ascii mail-header-separator)
-    (goto-char (point-min))
-    (std11-narrow-to-header mail-header-separator)
-    (std11-field-end)
-    (let ((result (std11-unfold-string
-		   (buffer-substring (point-min) (point)))))
-      (if (member result dsts) t result))))
-
-(defun encode-test (src dsts &rest opts)
-  (setq eword-lexical-analyze-cache nil)
-  (setq eword-decode-sticked-encoded-word nil)
-  (setq eword-decode-quoted-encoded-word nil)
-  (with-temp-buffer
-    (insert src "\n" mail-header-separator)
-    (goto-char (point-min))
-    (eword-encode-header 'us-ascii)
-    (goto-char (point-min))
-    (std11-narrow-to-header mail-header-separator)
-    (std11-field-end)
-    (let ((result (buffer-substring (point-min) (point))))
-      (if (member result dsts) t result))))
-)
-
-;;; EW
-(progn
-(require 'ew-dec)
-(require 'ew-line)
-
-(defun decode-test (src dsts &rest opts)
-  (setq ew-decode-field-cache-buf nil)
-  (let ((ew-decode-sticked-encoded-word nil)
-	(ew-decode-quoted-encoded-word nil)
-	(ew-ignore-75bytes-limit (memq 'ignore-75bytes-limit opts))
-	(ew-ignore-76bytes-limit (memq 'ignore-76bytes-limit opts))
-	(ew-permit-sticked-comment (memq 'permit-sticked-comment opts))
-	(ew-permit-sticked-special (memq 'permit-sticked-special opts)))
-    (string-match "\\`[^:]*:" src)
-    (let* ((field-name (substring src
-				  (match-beginning 0)
-				  (1- (match-end 0))))
-	   (field-body (substring src (match-end 0)))
-	   (result (ew-crlf-unfold
-		    (concat field-name ":"
-			    (ew-decode-field field-name field-body)))))
-      (if (member result dsts) t result))))
-
-(defun encode-test (src dsts &rest opts)
-  nil)
-)
-
-;;;
-
-(setq decode-succ-count 0)
-(setq decode-all-count 0)
-(defun decode (src dsts &rest opts)
-  (if (stringp dsts) (setq dsts (list dsts)))
-  (setq decode-all-count (1+ decode-all-count))
-  (let ((res (condition-case nil
-	       (apply 'decode-test src dsts opts)
-	       (error nil))))
-    (if (eq res t)
-      (progn
-	(setq decode-succ-count (1+ decode-succ-count))
-	(insert "\n'dsucc"))
-      (insert (format "\n%S\n'dfail" res)))
-    res))
-
-(setq encode-succ-count 0)
-(setq encode-all-count 0)
-(defun encode (src dsts &rest opts)
-  (if (stringp dsts) (setq dsts (list dsts)))
-  (setq encode-all-count (1+ encode-all-count))
-  (let ((res (condition-case nil
-	       (apply 'encode-test src dsts opts)
-	       (error nil))))
-    (if (eq res t)
-      (progn
-	(setq encode-succ-count (1+ encode-succ-count))
-	(insert "\n'esucc"))
-      (insert (format "\n%S\n'efail" res)))
-    res))
-
-(defun report ()
-  (insert
-    (format "\n\"Decode: %d/%d  Encode: %d/%d  Total: %d/%d\""
-      decode-succ-count decode-all-count
-      encode-succ-count encode-all-count
-      (+ decode-succ-count encode-succ-count)
-      (+ decode-all-count encode-all-count))))
-
-;;;start-test
-
-;;; Section 1: Decoding examples from RFC2047
-
-(decode
-"From: =?US-ASCII?Q?Keith_Moore?= "
-"From: Keith Moore ")
-
-(decode
-"To: =?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?= "
-"To: Keld J.ANxrn Simonsen ")*B
-
-(decode
-"CC: =?ISO-8859-1?Q?Andr=E9?= Pirard "
-"CC: Andr.ANi Pirard ")*B
-
-(decode
-"Subject: =?ISO-8859-1?B?SWYgeW91IGNhbiByZWFkIHRoaXMgeW8=?=\r
- =?ISO-8859-2?B?dSB1bmRlcnN0YW5kIHRoZSBleGFtcGxlLg==?="
-"Subject: If you can read this you understand the example.")
-
-(decode
-"From: =?ISO-8859-1?Q?Olle_J=E4rnefors?= "
-"From: Olle J.ANdrnefors ")*B
-
-(decode
-"From: =?ISO-8859-1?Q?Patrik_F=E4ltstr=F6m?= "
-"From: Patrik F.ANdltstrNvm ")*B
-
-(decode
-"From: Nathaniel Borenstein \r
-\t(=?iso-8859-8?b?7eXs+SDv4SDp7Oj08A==?=)"
-"From: Nathaniel Borenstein \t(.HNmNeNlNy NoNa NiNlNhNtNp)")*B
-
-(decode
-"From: foo@bar.baz (=?ISO-8859-1?Q?a?=)"
-"From: foo@bar.baz (a)")
-
-(decode
-"From: foo@bar.baz (=?ISO-8859-1?Q?a?= b)"
-"From: foo@bar.baz (a b)")
-
-(decode
-"From: foo@bar.baz (=?ISO-8859-1?Q?a?= =?ISO-8859-1?Q?b?=)"
-"From: foo@bar.baz (ab)")
-
-(decode
-"From: foo@bar.baz (=?ISO-8859-1?Q?a?=  =?ISO-8859-1?Q?b?=)"
-"From: foo@bar.baz (ab)")
-
-(decode
-"From: foo@bar.baz (=?ISO-8859-1?Q?a?=\r
-\t=?ISO-8859-1?Q?b?=)"
-"From: foo@bar.baz (ab)")
-
-(decode
-"From: foo@bar.baz (=?ISO-8859-1?Q?a_b?=)"
-"From: foo@bar.baz (a b)")
-
-(decode
-"From: foo@bar.baz (=?ISO-8859-1?Q?a?= =?ISO-8859-2?Q?_b?=)"
-"From: foo@bar.baz (a b)")
-
-(decode
-"Subject: (=?ISO-8859-1?Q?a?=)"
-"Subject: (=?ISO-8859-1?Q?a?=)")
-
-(decode
-"Subject: (=?ISO-8859-1?Q?a?= b)"
-"Subject: (=?ISO-8859-1?Q?a?= b)")
-
-(decode
-"Subject: (=?ISO-8859-1?Q?a?= =?ISO-8859-1?Q?b?=)"
-"Subject: (=?ISO-8859-1?Q?a?= =?ISO-8859-1?Q?b?=)")
-
-(decode
-"Subject: (=?ISO-8859-1?Q?a?=  =?ISO-8859-1?Q?b?=)"
-"Subject: (=?ISO-8859-1?Q?a?=  =?ISO-8859-1?Q?b?=)")
-
-(decode
-"Subject: (=?ISO-8859-1?Q?a?=\r
-\t=?ISO-8859-1?Q?b?=)"
-"Subject: (=?ISO-8859-1?Q?a?=\t=?ISO-8859-1?Q?b?=)")
-
-(decode
-"Subject: (=?ISO-8859-1?Q?a_b?=)"
-"Subject: (=?ISO-8859-1?Q?a_b?=)")
-
-(decode
-"Subject: (=?ISO-8859-1?Q?a?= =?ISO-8859-2?Q?_b?=)"
-"Subject: (=?ISO-8859-1?Q?a?= =?ISO-8859-2?Q?_b?=)")
-
-;;; Section 2: Decoding proper inputs.
-
-(decode
-"From: =?ISO-2022-JP?B?GyRCJCIbKEI=?= "
-"From: $B$"(B ")
-
-(decode
-"From: =?ISO-2022-JP?B?GyRCJCIbKEI=?= =?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
- "
-"From: $B$"$$(B ")
-
-(decode
-"From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
- =?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
- "
-"From: $B$"$$(B ")
-
-(decode
-"From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
-\t=?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
- "
-"From: $B$"$$(B ")
-
-(decode
-"From: =?ISO-2022-JP?B?GyRCJCIbKEI=?= \"ja \\\"a\\\"\" "
-"From: $B$"(B \"ja \\\"a\\\"\" ")
-
-(decode
-"From: akr@jaist.ac.jp (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
- =?ISO-2022-JP?B?GyhC?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
- =?ISO-2022-JP?B?GyhC?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)"
-"From: akr@jaist.ac.jp ($B$"(B($B$$(B)$B$&(B)")
-
-(decode
-"From: a=?ISO-2022-JP?B?GyRCJCIbKEI=?= "
-"From: a=?ISO-2022-JP?B?GyRCJCIbKEI=?= ")
-
-(decode
-"From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=b "
-"From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=b ")
-
-(decode
-"From: a=?ISO-2022-JP?B?GyRCJCIbKEI=?=b "
-"From: a=?ISO-2022-JP?B?GyRCJCIbKEI=?=b ")
-
-(decode
-"From: \"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\" "
-"From: \"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\" ")
-
-(decode
-"From: \"\\\"\\\\\" =?ISO-2022-JP?B?GyRCJCIbKEI=?= \"\\\"\\\\\" "
-"From: \"\\\"\\\\\" $B$"(B \"\\\"\\\\\" ")
-
-(decode
-"From: < =?ISO-2022-JP?B?GyRCJCIbKEI=?= @jaist.ac.jp>"
-"From: < =?ISO-2022-JP?B?GyRCJCIbKEI=?= @jaist.ac.jp>")
-
-(decode
-"From: =?ISO-2022-JP?Q?=1B=24BAA=1B=28B?= "
-"From: $BAA(B ")
-
-(decode
-"From: =?ISO-2022-JP?Q?=1B$BAA=1B(B?= ) "
-"From: =?ISO-2022-JP?Q?=1B$BAA=1B(B?= ) ")
-
-(decode
-"From: (=?US-ASCII?Q?(?=)foo@bar.baz(=?US-ASCII?Q?))baz@bar.foo(?=)"
-"From: (=?US-ASCII?Q?(?=)foo@bar.baz(=?US-ASCII?Q?))baz@bar.foo(?=)")
-
-(decode
-"From: =?ISO-2022-JP?B?GyRCJCIbKEIoGyRCJCIbKEIp?= "
-"From: \"$B$"(B($B$"(B)\" ")
-
-(decode
-"From: =?US-ASCII?Q?=28?= , =?US-ASCII?Q?=29?= "
-"From: \"(\" , \")\" "
-'ignore-76bytes-limit)
-
-(decode
-"From: =?ISO-2022-JP?B?YSJiGyRCJCIbKEJjXA==?= "
-"From: \"a\\\"b$B$"(Bc\\\\\" ")
-
-(decode
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject: $B$"(B")
-
-(decode
-"Subject: a=?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject: a=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
-
-(decode
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=b"
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=b")
-
-(decode
-"Subject: a=?ISO-2022-JP?B?GyRCJCIbKEI=?=b"
-"Subject: a=?ISO-2022-JP?B?GyRCJCIbKEI=?=b")
-
-(decode
-"Subject: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
-
-(decode
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(b)"
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(b)")
-
-(decode
-"Subject: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=(b)"
-"Subject: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=(b)")
-
-(decode
-"Subject: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
-
-(decode
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\""
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\"")
-
-(decode
-"Subject: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\""
-"Subject: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\"")
-
-(decode
-"Subject: (Re: =?ISO-2022-JP?B?GyRCJCIbKEI=?=)"
-"Subject: (Re: =?ISO-2022-JP?B?GyRCJCIbKEI=?=)")
-
-(decode
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:"
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:")
-
-(decode
-"Subject: =?ISO-2022-JP?B??="
-"Subject: =?ISO-2022-JP?B??=")
-
-(decode
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?= a\r
- =?ISO-2022-JP?B?GyRCJCQbKEI=?="
-"Subject: $B$"(B a $B$$(B")
-
-(decode
-"Subject: =?ISO-2022-JP?B?GyRCMCQbKEIgICAgICAgICAgICAgICAgICAgICAgICAgICAg?=\r
- =?US-ASCII?Q?____________________________________________________________?=\r
- =?ISO-2022-JP?B?ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIBskQlJfGyhC?="
-"Subject: $B0$(B                                                                                                                          $BR_(B")
-
-(decode
-"From: =?ISO-8859-1?Q?abcdefghijklmnopqrst=A1=28=29=22=5C?= "
-"From: \"abcdefghijklmnopqrst.AN!()\\\"\\\\\" ")*B
-
-(decode
-"Subject: ?= =?"
-"Subject: ?= =?")
-
-(decode
-"Subject: \" =?ISO-2022-JP?B?GyRCJCIbKEI=?= \""
-"Subject: \" $B$"(B \"")
-
-(decode
-"From: \"\\\\\" =?ISO-2022-JP?B?GyRCJCIbKEI=?= \"\" "
-"From: \"\\\\\" $B$"(B \"\" ")
-
-(decode
-"Subject: =?ISO-2022-JP?Q?=1B$B$\"=1B(B_=1B$B$\"=1B(B?="
-"Subject: $B$"(B $B$"(B")
-
-(decode
-"Subject: =?ISO-2022-JP?Q?=1B$B$\"=1B(B =1B$B$\"=1B(B?="
-"Subject: =?ISO-2022-JP?Q?=1B$B$\"=1B(B =1B$B$\"=1B(B?=")
-
-(decode
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?= a =?ISO-8859-8?Q?=E0?="
-"Subject: $B$"(B a .HN`")*B
-
-(decode
-"Subject: =?ISO-8859-8?Q?=E0?= =?ISO-2022-JP?B?GyRCTm0bKEI=?="
-"Subject: .HN`$BNm(B")*B
-
-(decode
-"Subject: =?ISO-8859-8?Q?=E0_?= =?ISO-2022-JP?B?GyRCTm0bKEI=?="
-"Subject: .HN` $BNm(B")*B
-
-(decode
-"Subject: =?ISO-2022-JP-2?B?Gy5GG05DGyRCNFg/dBsoQg==?="
-"Subject: .FNC$B4X?t(B")*B
-
-(decode
-"Subject: =?ISO-8859-7?Q?=C3?= =?ISO-2022-JP?B?GyRCNFg/dBsoQg==?="
-"Subject: .FNC$B4X?t(B")*B
-
-(decode
-"Subject: =?Shift_JIS?B?gqA=?="
-"Subject: $B$"(B")
-
-(decode
-"Subject: =?EUC-JP?B?pKI=?="
-"Subject: $B$"(B")
-
-(decode
-"Subject: = =?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject: = $B$"(B")
-
-(decode
-"Subject: =? =?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject: =? $B$"(B")
-
-(decode
-"Subject: =?ISO-2022-JP =?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject: =?ISO-2022-JP $B$"(B")
-
-(decode
-"Subject: =?ISO-2022-JP? =?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject: =?ISO-2022-JP? $B$"(B")
-
-(decode
-"Subject: =?ISO-2022-JP?B =?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject: =?ISO-2022-JP?B $B$"(B")
-
-(decode
-"Subject: =?ISO-2022-JP?B? =?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject: =?ISO-2022-JP?B? $B$"(B")
-
-(decode
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI =?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI $B$"(B")
-
-(decode
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI= =?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI= $B$"(B")
-
-(decode
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=? =?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=? $B$"(B")
-
-(decode
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?= =?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject: $B$"$"(B")
-
-(decode
-"Subject: ==?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject: ==?ISO-2022-JP?B?GyRCJCIbKEI=?=")
-
-(decode
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=="
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?==")
-
-(decode
-"From: akr@jaist.ac.jp (\\=?ISO-2022-JP?B?GyRCJCIbKEI=?=)"
-"From: akr@jaist.ac.jp (\\=?ISO-2022-JP?B?GyRCJCIbKEI=?=)")
-
-(decode
-"=?ISO-2022-JP?B?GyRCJCIbKEI=?=: test"
-"=?ISO-2022-JP?B?GyRCJCIbKEI=?=: test")
-
-(decode
-"=?ISO-2022-JP?B?GyRCJCIbKEI=?=: test"
-"=?ISO-2022-JP?B?GyRCJCIbKEI=?=: test"
-'permit-sticked-special)
-
-;;; Section 3: Decoding melancholic inputs.
-
-(decode
-"From:=?ISO-2022-JP?B?GyRCJCIbKEI=?= "
-"From:$B$"(B ")
-
-(decode
-"From: akr@jaist.ac.jp\r
- (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\\a=?ISO-2022-JP?B?GyRCJCQbKEI=?=)"
-"From: akr@jaist.ac.jp ($B$"(B\\a$B$$(B)")
-
-(decode
-"From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?= "
-"From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?= ")
-
-(decode
-"From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) "
-"From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) ")
-
-(decode
-"From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) "
-"From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) ")
-
-(decode
-"From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?= "
-"From: (a)$B$"(B "
-'permit-sticked-comment)
-
-(decode
-"From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) "
-"From: $B$"(B(b) "
-'permit-sticked-comment)
-
-(decode
-"From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) "
-"From: (a)$B$"(B(b) "
-'permit-sticked-comment)
-
-(decode
-"From: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?= "
-"From: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?= ")
-
-(decode
-"From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\" "
-"From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\" ")
-
-(decode
-"From: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\" "
-"From: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\" ")
-
-(decode
-"From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)\r
- "
-"From: $B$"(B($B$"(B) "
-'permit-sticked-comment)
-
-(decode
-"To: =?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=")
-
-(decode
-"To: =?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"To: $B$"(B"
-'permit-sticked-special)
-
-(decode
-"To: ,=?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"To: ,=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
-
-(decode
-"To: ,=?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"To: ,$B$"(B"
-'permit-sticked-special)
-
-(decode
-"To: akr@jaist.ac.jp,=?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"To: akr@jaist.ac.jp,=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
-
-(decode
-"To: akr@jaist.ac.jp,=?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"To: akr@jaist.ac.jp,$B$"(B"
-'permit-sticked-special)
-
-(decode
-"To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:akr@jaist.ac.jp;"
-"To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:akr@jaist.ac.jp;")
-
-(decode
-"To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:akr@jaist.ac.jp;"
-"To: $B$"(B:akr@jaist.ac.jp;"
-'permit-sticked-special)
-
-(decode
-"To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=;"
-"To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=;")
-
-(decode
-"To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=;"
-"To: $B$"(B:$B$$(B;"
-'ignore-76bytes-limit 'permit-sticked-special)
-
-(decode
-"To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=,=?ISO-2022-JP?B?GyRCJCYbKEI=?=;,=?ISO-2022-JP?B?GyRCJCgbKEI=?="
-"To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=,=?ISO-2022-JP?B?GyRCJCYbKEI=?=;,=?ISO-2022-JP?B?GyRCJCgbKEI=?=")
-
-(decode
-"To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=,=?ISO-2022-JP?B?GyRCJCYbKEI=?=;,=?ISO-2022-JP?B?GyRCJCgbKEI=?="
-"To: $B$"(B:$B$$(B,$B$&(B;,$B$((B"
-'ignore-76bytes-limit 'permit-sticked-special)
-
-(decode
-"Subject:=?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject:$B$"(B")
-
-;;; Section 4: Decoding invalid inputs.
-
-(decode
-"From: =?ISO-2022-JP?B?GyRCJCIbKEI=?==?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
- "
-"From: =?ISO-2022-JP?B?GyRCJCIbKEI=?==?ISO-2022-JP?B?GyRCJCQbKEI=?= ")
-
-(decode
-"From: akr@jaist.ac.jp\r
- (=?ISO-2022-JP?B?GyRCJCIbKEI=?=a=?ISO-2022-JP?B?GyRCJCQbKEI=?=)"
-"From: akr@jaist.ac.jp (=?ISO-2022-JP?B?GyRCJCIbKEI=?=a=?ISO-2022-JP?B?GyRCJCQbKEI=?=)")
-
-(decode
-"From: akr@jaist.ac.jp\r
- (=?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)"
-"From: akr@jaist.ac.jp (=?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)")
-
-(decode
-"From: akr@jaist.ac.jp\r
- (=?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)"
-"From: akr@jaist.ac.jp ($B$"(B($B$$(B)$B$&(B)"
-'ignore-76bytes-limit)
-
-(decode
-"Subject: =?=?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject: =?=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
-
-(decode
-"Subject: =?ISO-2022-JP=?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject: =?ISO-2022-JP=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
-
-(decode
-"Subject: =?ISO-2022-JP?=?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject: =?ISO-2022-JP?=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
-
-(decode
-"Subject: =?ISO-2022-JP?B=?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject: =?ISO-2022-JP?B=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
-
-(decode
-"Subject: =?ISO-2022-JP?B?=?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject: =?ISO-2022-JP?B?=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
-
-(decode
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
-
-(decode
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI==?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI==?ISO-2022-JP?B?GyRCJCIbKEI=?=")
-
-(decode
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
-
-(decode
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?==?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?==?ISO-2022-JP?B?GyRCJCIbKEI=?=")
-
-(decode
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI?="
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI?=")
-
-(decode
-"Subject: =?ISO-2022-JP?B?GyRCNFg-dBsoQg==?="
-"Subject: =?ISO-2022-JP?B?GyRCNFg-dBsoQg==?=")
-
-(decode
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?= =?= =?ISO-2022-JP?B?GyRCJCIbKEI=?="
-"Subject: $B$"(B=?=$B$"(B")
-
-;;; Section 5: Encoding proper inputs.
-
-(encode
-"From: $B$"(B "
-"From: =?ISO-2022-JP?B?GyRCJCIbKEI=?= ")
-
-(encode
-"From: $B$"$$(B "
-"From: =?ISO-2022-JP?B?GyRCJCIkJBsoQg==?= ")
-
-(encode
-"From: $B$"(B $B$$(B "
-"From: =?ISO-2022-JP?B?GyRCJCIbKEIgGyRCJCQbKEI=?= ")
-
-(encode
-"From: .AN! N! "*B
-"From: =?ISO-8859-1?Q?=A1_=A1?= ")
-
-(encode
-"From: \"$B$"(B($B$"(B)\" "
-"From: =?ISO-2022-JP?B?GyRCJCIbKEIoGyRCJCIbKEIp?= ")
-
-(encode
-"From: \"a\\\"b$B$"(Bc\\\\\" "
-"From: =?ISO-2022-JP?B?YSJiGyRCJCIbKEJjXA==?= ")
-
-(encode
-"Subject: $B0$(B                                                                                                                          $BR_(B"
-"Subject: =?ISO-2022-JP?B?GyRCMCQbKEIgICAgICAgICAgICAgICAgICAgICAgICAgICAg?=\r
- =?US-ASCII?Q?____________________________________________________________?=\r
- =?ISO-2022-JP?B?ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIBskQlJfGyhC?=")
-
-(encode
-"Subject: $B0$(B                                                                                                                          $BR_(B"
-"Subject: =?ISO-2022-JP?B?GyQpQrCkICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICDS3w=="
-'ignore-76bytes-limit 'ignore-75bytes-limit)
-
-(encode
-"From: .AN! "*B
-"From: =?ISO-8859-1?Q?=A1?= ")
-
-(encode
-"From: \"abcdefghijklmnopqrst.AN!()\\\"\\\\\" "*B
-"From: =?ISO-8859-1?Q?abcdefghijklmnopqrst=A1=28=29=22=5C?= ")
-
-(encode
-"From: akr@jaist.ac.jp (abcdefghijklmnopqrst.AN!\\(\\)\"\\\\)"*B
-"From: akr@jaist.ac.jp (=?ISO-8859-1?Q?abcdefghijklmnopqrst=A1=28=29\"=5C?=)")
-
-(encode
-"Subject: $B$"(B a .HN`"*B
-"Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?= a =?ISO-8859-8?Q?=E0?=")
-
-(encode
-"Subject: .HN`$BNm(B"*B
-"Subject: =?ISO-8859-8?Q?=E0?= =?ISO-2022-JP?B?GyRCTm0bKEI=?=")
-
-(encode
-"Subject: .HN` $BNm(B"*B
-'("Subject: =?ISO-8859-8?Q?=E0_?= =?ISO-2022-JP?B?GyRCTm0bKEI=?="
-  "Subject: =?ISO-8859-8?Q?=E0?= =?ISO-2022-JP?B?IBskQk5tGyhC?="))
-
-(encode
-"Subject: .FNC$B4X?t(B"*B
-'("Subject: =?ISO-8859-7?Q?=C3?= =?ISO-2022-JP?B?GyRCNFg/dBsoQg==?="
-  "Subject: =?ISO-2022-JP-2?B?Gy5GG05DGyRCNFg/dBsoQg==?="))
-
-(encode
-"From: aaaaaaaaaaaaaaaaaaaaa($B$"$$(B)aaaaaaaaaaaaaaaaaaaa "
-"From: aaaaaaaaaaaaaaaaaaaaa(=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
- =?ISO-2022-JP?B?GyRCJCQbKEI=?=)aaaaaaaaaaaaaaaaaaaa ")
-
-(encode
-"From: aaaaaaaaaaaaaaaaaaaaa ($B$"$$(B)aaaaaaaaaaaaaaaaaaaa "
-'("From: aaaaaaaaaaaaaaaaaaaaa
- (=?ISO-2022-JP?B?GyRCJCIkJBsoQg==?=)aaaaaaaaaaaaaaaaaaaa "
-  "From: aaaaaaaaaaaaaaaaaaaaa (=?ISO-2022-JP?B?GyRCJCIbKEI=?=
- =?ISO-2022-JP?B?GyRCJCQbKEI=?=)aaaaaaaaaaaaaaaaaaaa "))
-
-(encode
-"From: aaaaaaaaaaaaaaaaaaaaa( $B$"$$(B)aaaaaaaaaaaaaaaaaaaa "
-'("From: aaaaaaaaaaaaaaaaaaaaa(
- =?ISO-2022-JP?B?GyRCJCIkJBsoQg==?=)aaaaaaaaaaaaaaaaaaaa "
-  "From: aaaaaaaaaaaaaaaaaaaaa( =?ISO-2022-JP?B?GyRCJCIbKEI=?=
- =?ISO-2022-JP?B?GyRCJCQbKEI=?=)aaaaaaaaaaaaaaaaaaaa "))
-
-(encode
-"From: aaaaaaaaaaaaaaaaaaaaa($B$"$$(B )aaaaaaaaaaaaaaaaaaaa "
-'("From: aaaaaaaaaaaaaaaaaaaaa(=?ISO-2022-JP?B?GyRCJCIkJBsoQg==?=
- )aaaaaaaaaaaaaaaaaaaa "
-  "From: aaaaaaaaaaaaaaaaaaaaa(=?ISO-2022-JP?B?GyRCJCIbKEI=?=
- =?ISO-2022-JP?B?GyRCJCQbKEI=?= )aaaaaaaaaaaaaaaaaaaa "))
-
-(encode
-"From: aaaaaaaaaaaaaaaaaaaaa($B$"$$(B) aaaaaaaaaaaaaaaaaaaa "
-"From: aaaaaaaaaaaaaaaaaaaaa(=?ISO-2022-JP?B?GyRCJCIkJBsoQg==?=)\r
- aaaaaaaaaaaaaaaaaaaa ")
-
-(encode
-"From: aaaaaaaaaaaaaaaaaaaaa($B$"(B $B$$(B)aaaaaaaaaaaaaaaaaaaa "
-"From: aaaaaaaaaaaaaaaaaaaaa(=?ISO-2022-JP?B?GyRCJCIbKEIgCg==?=\r
- =?ISO-2022-JP?B?GyRCJCQbKEI=?=)aaaaaaaaaaaaaaaaaaaa ")
-
-(encode
-"From: ($B$"(B)aaaaaaaaaaaaaaaaaaaa "
-"From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaa ")
-
-(encode
-"From: ($B$"(B)aaaaaaaaaaaaaaaaaaaaa "
-"From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaa\r
- ")
-
-(encode
-"From: ($B$"(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa "
-"From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
- ")
-
-(encode
-"From: ($B$"(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa "
-"From:\r
- (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
- ")
-
-(encode
-"From: ($B$"(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa "
-"From:\r
- (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
- ")
-
-(encode
-"From: ($B$"(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa "
-"From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
- =?ISO-2022-JP?B?GyhC?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
- "
-'zero-characters-encoded-word-hack)
-
-(encode
-"From: ($B$"(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa "
-"From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
- =?ISO-2022-JP?B?GyhC?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
- "
-'zero-characters-encoded-word-hack)
-
-(encode
-"From: ($B$"(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa "
-"From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)\r
- aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa "
-'separate-sticked-tokens-for-fold)
-
-(encode
-"From: ($B$"(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa "
-"From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)=?US-ASCII?Q?aaaaaaaaaaaaaaaaaaaaaaa?=\r
- =?US-ASCII?Q?aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa?= "
-'encode-long-ascii-string-for-fold 'permit-sticked-special)
-
-(encode
-"From: ($B$"(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa "
-"From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
- aaaaaaaaaaaaaaaa "
-'divide-atom-for-fold)
-
-(encode
-"From: ($B$"(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa "
-'("From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa "
-  "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
- ")
-'ignore-76bytes-limit)
-
-(encode
-"From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa($B$"(B)aa "
-"From: =?US-ASCII?Q?aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa?=\r
- =?US-ASCII?Q?a?=(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aa "
-'encode-long-ascii-string-for-fold)
-
-(encode
-"From: $B$"(B aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa($B$"(B)aa "
-"From: =?ISO-2022-JP?B?GyRCJCIbKEIgYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYQ==?=\r
- =?US-ASCII?Q?aaaaaaaaaaaaaaa?=(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aa"
-'encode-long-ascii-string-for-fold)
-
-(encode
-"From: ($B$"(B) "
-"From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=) ")
-
-(encode
-"From: (((((((((((((((((((((((((((((((((((((((($B$"(B)))))))))))))))))))))))))))))))))))))))) "
-"From: ((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
- =?ISO-2022-JP?B?GyhC?=))))))))))))))))))))))))))))))))))))))))\r
- "
-'zero-characters-encoded-word-hack)
-
-(encode
-"From: ((((((((((((((((((((((((((((((((((((((((($B$"(B))))))))))))))))))))))))))))))))))))))))) "
-"From: (((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyhC?=\r
- =?ISO-2022-JP?B?GyRCJCIbKEI=?=)))))))))))))))))))))))))))))))))))))))))\r
- "
-'zero-characters-encoded-word-hack)
-
-(encode
-"From: (((((((((((((((((((((((((((((((((((((((((((((($B$"(B)))))))))))))))))))))))))))))))))))))))))))))) "
-"From: ((((((((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyhC?=\r
- =?ISO-2022-JP?B?GyRCJCIbKEI=?=))))))))))))))))))))))))))))))))))))))))))))))\r
- "
-'zero-characters-encoded-word-hack)
-
-(encode
-"From: ((((((((((((((((((((((((((((((((((((((((((((((($B$"(B))))))))))))))))))))))))))))))))))))))))))))))) "
-"From: (((((((((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyhC?=\r
- =?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
- =?ISO-2022-JP?B?GyhC?=)))))))))))))))))))))))))))))))))))))))))))))))\r
- "
-'zero-characters-encoded-word-hack)
-
-(encode
-"From: (((((((((((((((((((((((((((((((((((((((((((((((($B$"(B)))))))))))))))))))))))))))))))))))))))))))))))) "
-"From:\r
- ((((((((((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyhC?=\r
- =?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
- =?ISO-2022-JP?B?GyhC?=))))))))))))))))))))))))))))))))))))))))))))))))\r
- "
-'zero-characters-encoded-word-hack)
-
-(encode
-"From: (((((((((((((((((((((((((((((((((((((((((((((((((((((($B$"(B)))))))))))))))))))))))))))))))))))))))))))))))))))))) "
-"From:\r
- ((((((((((((((((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyhC?=\r
- =?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
- =?ISO-2022-JP?B?GyhC?=))))))))))))))))))))))))))))))))))))))))))))))))))))))\r
- "
-'zero-characters-encoded-word-hack)
-
-(encode
-"From: ((((((((((((((((((((((((((((((((((((((((((($B$"(B))))))))))))))))))))))))))))))))))))))))))) "
-"From:\r
- ((((((((((((((((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyhC?=\r
- =?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
- =?ISO-2022-JP?B?GyhC?=))))))))))))))))))))))))))))))))))))))))))))))))))))))\r
- "
-'zero-characters-encoded-word-hack)
-
-(encode
-"From: ((((((((((((((((((((((((((((((((((((((((((((((((((((((($B$"(B))))))))))))))))))))))))))))))))))))))))))))))))))))))) "
-"From:\r
- ((((((((((((((((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyhC?=\r
- =?ISO-2022-JP?B?GyhC?=(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)=?ISO-2022-JP?B?GyhC?=\r
- =?ISO-2022-JP?B?GyhC?=))))))))))))))))))))))))))))))))))))))))))))))))))))))\r
- "
-'zero-characters-encoded-word-hack)
-
-(encode
-"From: (((((((((((((((((((((((((((((((((((((((((((((((((((((((($B$"(B)))))))))))))))))))))))))))))))))))))))))))))))))))))))) "
-"From:\r
- ((((((((((((((((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyhC?=\r
- =?ISO-2022-JP?B?GyhC?=((=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
- =?ISO-2022-JP?B?GyhC?=))))))))))))))))))))))))))))))))=?ISO-2022-JP?B?GyhC?=\r
- =?ISO-2022-JP?B?GyhC?=))))))))))))))))))))))))\r
- "
-'zero-characters-encoded-word-hack)
-
-(encode
-"From: ()($B$"(B)() "
-"From: ()(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)() ")
-
-(encode
-"From: ($B$"(B)()()()()()()()()()()()()()()()()()()() "
-"From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)()()()()()()()()()()()()()()()()()()()\r
-  ")
-
-(encode
-"From: ($B$"(B)()()()()()()()()()()()()()()()()()()()()()() "
-"From:\r
- (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)()()()()()()()()()()()()()()()()()()()()()()\r
-  ")
-
-(encode
-"From: ($B$"(B)()()()()()()()()()()()()()()()()()()()()()()() "
-"From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
- =?ISO-2022-JP?B?GyhC?=)()()()()()()()()()()()()()()()()()()()()()()()\r
-  "
-'zero-characters-encoded-word-hack)
-
-(encode
-"From: ($B$"(B)()()()()()()()()()()()()()()()()()()()()()()()()()()() "
-"From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
- =?ISO-2022-JP?B?GyhC?=)()()()()()()()()()()()()()()()(=?ISO-2022-JP?B?GyhC?=\r
- =?ISO-2022-JP?B?GyhC?=)()()()()()()()()()()() "
-'zero-characters-encoded-word-hack)
-
-(encode
-"To: l@d ($B$"(B aaa)($B$"(B)"
-"To: l@d (=?ISO-2022-JP?B?GyRCJCIbKEI=?= aaa)(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)")
-
-(encode
-"To: l@d ($B$"(B aaaa)($B$"(B)"
-"To: l@d (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
- aaaa)(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)")
-
-(encode
-"To: l@d ($B$"(B aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa)($B$"(B)"
-"To: l@d (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
- aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa)(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)")
-
-(encode
-"To: l@d ($B$"(B aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa)($B$"(B)"
-"To: l@d (=?ISO-2022-JP?B?GyRCJCIbKEIgYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWE=?=\r
- =?US-ASCII?Q?aaaaaaaaaaaaaaaaaa?=)(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)"
-'encode-long-ascii-string-for-fold)
-
-(encode
-"To: l@d ($B$"(B aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()$B$"(B)"
-"To: l@d (=?ISO-2022-JP?B?GyRCJCIbKEIgYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWE=?=\r
- =?US-ASCII?Q?aaaaaaaaaaaaaaaaaa?=()=?ISO-2022-JP?B?GyRCJCIbKEI=?=)"
-'encode-long-ascii-string-for-fold)
-
-(encode
-"To: l@d ($B$"(B aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa $B$"(B)($B$"(B)"
-"To: l@d (=?ISO-2022-JP?B?GyRCJCIbKEI=?= aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
- =?ISO-2022-JP?B?GyRCJCIbKEI=?=)(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)")
-
-(encode
-"To: l@d ($B$"(B aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa $B$"(B)($B$"(B)"
-"To: l@d (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
- aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
- =?ISO-2022-JP?B?GyRCJCIbKEI=?=)(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)")
-
-;----------------------------------------------------------------------------
-
-;;; Section 6: Encoding melancholic inputs.
-
-(encode
-"From: akr@jaist.ac.jp ($B$"(B($B$$(B)$B$&(B)"
-"From: akr@jaist.ac.jp\r
- (=?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)"
-'ignore-76bytes-limit)
-
-(encode
-"From: akr@jaist.ac.jp ($B$"(B($B$$(B)$B$&(B)"
-"From: akr@jaist.ac.jp (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
- =?ISO-2022-JP?B?GyhC?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
- =?ISO-2022-JP?B?GyhC?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)"
-'zero-characters-encoded-word-hack)
-
-(encode
-"From: $B$"(B($B$"(B) "
-"From: =?ISO-2022-JP?B?GyRCJCIbKEIoGyRCJCIbKEIp?= "
-'encode-sticked-comment-as-atom)
-
-(encode
-"From: $B$"(B($B$"(B) "
-"From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)\r
- "
-'permit-sticked-comment)
-
-(encode
-"From: $B$"(B($B$"(B) "
-"From: =?ISO-2022-JP?B?GyRCJCIbKEI=?= (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)\r
- "
-'separate-sticked-comment)
-
-(encode
-"To: $B$"(B"
-"To: =?ISO-2022-JP?B?GyRCJCIbKEI=?="
-'permit-sticked-special)
-
-(encode
-"To: $B$"(B"
-"To: =?ISO-2022-JP?B?GyRCJCIbKEI=?= "
-'separate-sticked-special)
-
-(encode
-"To: ,$B$"(B"
-"To: ,=?ISO-2022-JP?B?GyRCJCIbKEI=?="
-'permit-sticked-special)
-
-(encode
-"To: ,$B$"(B"
-"To: , =?ISO-2022-JP?B?GyRCJCIbKEI=?= "
-'separate-sticked-special)
-
-(encode
-"To: akr@jaist.ac.jp,$B$"(B"
-"To: akr@jaist.ac.jp,=?ISO-2022-JP?B?GyRCJCIbKEI=?="
-'permit-sticked-special)
-
-(encode
-"To: akr@jaist.ac.jp,$B$"(B"
-"To: akr@jaist.ac.jp, =?ISO-2022-JP?B?GyRCJCIbKEI=?= "
-'separate-sticked-special)
-
-(encode
-"To: $B$"(B:akr@jaist.ac.jp;"
-"To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:akr@jaist.ac.jp;"
-'permit-sticked-special)
-
-(encode
-"To: $B$"(B:akr@jaist.ac.jp;"
-"To: =?ISO-2022-JP?B?GyRCJCIbKEI=?= :akr@jaist.ac.jp;"
-'separate-sticked-special)
-
-(encode
-"To: $B$"(B:$B$$(B;"
-"To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=;"
-'ignore-76bytes-limit 'permit-sticked-special)
-
-(encode
-"To: $B$"(B:$B$$(B;"
-"To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
- =?ISO-2022-JP?B?GyhC?=;"
-'zero-characters-encoded-word-hack 'permit-sticked-special)
-
-(encode
-"To: $B$"(B:$B$$(B;"
-"To: =?ISO-2022-JP?B?GyRCJCIbKEI=?= : =?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
- ;"
-'separate-sticked-special)
-
-(encode
-"To: $B$"(B:$B$$(B,$B$&(B;,$B$((B"
-"To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=,=?ISO-2022-JP?B?GyRCJCYbKEI=?=;,=?ISO-2022-JP?B?GyRCJCgbKEI=?="
-'ignore-76bytes-limit 'permit-sticked-special)
-
-(encode
-"To: $B$"(B:$B$$(B,$B$&(B;,$B$((B"
-"To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
- =?ISO-2022-JP?B?GyhC?=,=?ISO-2022-JP?B?GyRCJCYbKEI=?=\r
- =?ISO-2022-JP?B?GyhC?=;,=?ISO-2022-JP?B?GyRCJCgbKEI=?="
-'zero-characters-encoded-word-hack 'permit-sticked-special)
-
-(encode
-"To: $B$"(B:$B$$(B,$B$&(B;,$B$((B"
-"To: =?ISO-2022-JP?B?GyRCJCIbKEI=?= : =?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
- , =?ISO-2022-JP?B?GyRCJCYbKEI=?= ;,\r
- =?ISO-2022-JP?B?GyRCJCgbKEI=?= "
-'separate-sticked-special)
-
-;;; Section 7: Using embedded-encoded-words.
-;;
-;; embedded-encoded-word $BI=8=(B
-;; 
-;; RFC2047 $B$N%G%3!<%@$O@x:_E*$K(B($B%G%3!<%I7k2L$G$J$/(B) encoded-word $B$=$N$b$N$r(B
-;; $B=PNO$7$J$1$l$P$J$i$J$$$3$H$,$"$k!#(B
-;;
-;; 1. $BCN$i$J$$(B charset $B$b$7$/$O(B encoding $B$,;XDj$5$l$F$$$?$H$-!#(B
-;;  =?unknown-charset?known-encoding?some-encoded-text?=
-;;  =?known-charset?unknown-encoding?some-encoded-text?=
-;;  =?unknown-charset?unknown-encoding?some-encoded-text?=
-;;
-;; 2. $B%G%3!<%I$G$-$F$bFbMF$,7uF]$9$.$k$H$-!#(B
-;;  Non ASCII $B3HD%(B RFC822 $B$NCf$K(B =?US-ASCII?Q?=0D=0A=0D=0A?= $B$N%G%3!<%I(B
-;; $B7k2L$rKd$a9~$`$N$O4m81$9$.$k!#(B
-;;
-;; $B$^$?!"%G%3!<%@$O(B encoded-word $B$N$h$&$K$_$($k%G%3!<%I7k2L$r=PNO$7$J$1(B
-;; $B$l$P$J$i$J$$$3$H$b$"$k!#(B
-;;
-;;  =?US-ASCII?Q?=3D=3FUS-ASCII=3FQ=3Ftext=3F=3D?=
-;;
-;; $B%G%3!<%@$,C1$J$kJ8;zNs$r=PNO$9$k>l9g!"C1=c$K$O(B encoded-word $B$=$N$b$N$H(B
-;; encoded-word $B$N$h$&$K$_$($kJ8;zNs$r6hJL$G$-$J$$!#(B
-;; $B$3$3$G$OJ8;zNsCf$G$=$l$i$r3Nl9g(B(0, 3, 6, ...): charset $B$N@hF,$N(B + $B$N?t$r(B
-;;    1/3 $B$K$7$?J8;zNs(B
-;;  3$B$rK!$H$7$F(B1$B$HEy$7$$>l9g(B(1, 4, 7, ...): charset $B$N@hF,$N(B + $B$N?t$r(B
-;;    1/3 ($B>.?tE@0J2<@Zl9g(B(2, 5, 8, ...): charset $B$N@hF,$N(B + $B$N?t$r(B
-;;    1/3 ($B>.?tE@0J2<@Zl9g!"4q?tHVL\$N$b$N$KBP$7$F>e5-$N%k!<%k$rE,MQ$9$k!#(B
-;;
-;; NOTE: + $B$r(B embedded-encoded-word $BI=8=$N(B quote $BJ8;z$H8F$V!#(B
-;;
-;; NOTE: $B8=;~E@(B(1998/07/19)$B$G(B IANA $B$K$O(B + $B$r4^$`(B charset $B$O(B
-;;  $BEPO?$5$l$F$$$J$$$N$G!"$=$l$i$N(B charset $B$r;H$C$?(B
-;;  encoded-word $B$rI=8=$9$k$K$O(B + $B$r(B 1$B$D$D$1$k$3$H$K$J$k!#(B
-;;
-;;  =?US-ASCII?Q?abcdef?= $B$H$$$&(Bencoded-word : =?+US-ASCII?Q?abcdef?=
-;;
-;;  =?US-ASCII?Q?abcdef?= $B$H$$$&J8;zNs(B	    : =?US-ASCII?Q?abcdef?=
-;;  =?+US-ASCII?Q?abcdef?= $B$H$$$&J8;zNs(B	    : =?+++US-ASCII?Q?abcdef?=
-;;  =?++US-ASCII?Q?abcdef?= $B$H$$$&J8;zNs(B     : =?++++++US-ASCII?Q?abcdef?=
-;;  =?+++US-ASCII?Q?abcdef?= $B$H$$$&J8;zNs(B    : =?+++++++++US-ASCII?Q?abcdef?=
-;;  =?US-ASCII+?Q?abcdef?= $B$H$$$&J8;zNs(B      : =?US-ASCII+?Q?abcdef?=
-;;  =?U+S-ASCII?Q?abcdef?= $B$H$$$&J8;zNs(B      : =?U+S-ASCII?Q?abcdef?=
-;;
-;;  =?US-ASCII?Q?abcdef? $B$H$$$&J8;zNs(B	    : =?++US-ASCII?Q?abcdef?=
-;;  =?+US-ASCII?Q?abcdef? $B$H$$$&J8;zNs(B	    : =?+++++US-ASCII?Q?abcdef?=
-;;  =?++US-ASCII?Q?abcdef? $B$H$$$&J8;zNs(B     : =?++++++++US-ASCII?Q?abcdef?=
-;;  =?+++US-ASCII?Q?abcdef? $B$H$$$&J8;zNs(B    : =?+++++++++++US-ASCII?Q?abcdef?=
-;;
-;; NOTE: encoded-word $B$K8+$($kJ8;zNs$G(B + $B$,(B 3$BG\A}$5$l$k$N$O(B charset $B$N(B
-;;  $B@hF,$@$1$G$"$j!"(Bencoding $B$d(B encoded-text $B$O$?$H$((B + $B$,F~$C$F$$$F$b(B
-;;  $BJQ2=$7$J$$!#$^$?!"(Bcharset $BCf$G$b(B $B@hF,0J30$N(B + $B$OJQ2=$7$J$$!#(B
-;;
-;; NOTE: charset $B$H(B encoding $B$K$O(B = $B$O4^$^$l$J$$$N$G(B 1$BJ8;z0J>e=E$J$k$3(B
-;;  $B$H$O$J$$!#(B
-;;
-;; rule 3: $BJ8;zNsA4BN$NFbMF$O!"(Brule 1 $B$H(B rule 2 $B$G2r$l$=$NJ8;zNs$=$N$b$N$rI=8=$9$k$,!"$=$l$i$rO"7k$7$?J8;zNs(B
-;;  =?+US-ASCII?Q?abcd?= $B$O(B abcd $B$H$$$&J8;zNs$rI=8=$9$k$3$H$K$J$j!"(B
-;;  $B$=$l$>$l$NFbMF$NO"7k$H$O$J$i$J$$!#(B
-;;
-;;  $B$3$l$O$H$/$K(B Non ASCII $B3HD%(B RFC822 $B$NCf$K(B embedded-encoded-word $BI=8=$r(B
-;;  $BKd$a9~$`$H$-$K5$$rIU$1$J$1$l$P$J$i$J$$!#(B($BKd$a9~$s$@7k2L$O@5$7$$(B
-;;  embedded-encoded-word $BI=8=$H$O$J$i$J$$$+$bCN$l$J$$!#(B)
-
-(decode
-"Subject: =?Unknown-Charset?B?gqA=?="
-"Subject: =?+Unknown-Charset?B?gqA=?="
-'embedded-encoded-word)
-
-(decode
-"Subject: =?US-ASCII?G?H4sIACqUszUAA8tIzcnJBwCGphA2BQAAAA==?="
-"Subject: =?+US-ASCII?G?H4sIACqUszUAA8tIzcnJBwCGphA2BQAAAA==?="
-'embedded-encoded-word)
-
-(decode
-"Subject: =?US-ASCII?Unknown-Encoding?H4sIAGOUszUAAwtyczYyMDEHAEpvqpIHAAAA?="
-"Subject: =?+US-ASCII?Unknown-Encoding?H4sIAGOUszUAAwtyczYyMDEHAEpvqpIHAAAA?="
-'embedded-encoded-word)
-
-(decode
-"Subject: =?ISO-2022-JP?G?H4sIAGiTszUAA5NWcVIBAhMtaQ0nAGLSaeEMAAAA?=\r
- =?ISO-2022-JP?G?H4sIAH6TszUAA5NWcVIxV3FTyVbxldZwAgAuIikKDgAAAA==?="
-"Subject: =?+ISO-2022-JP?G?H4sIAGiTszUAA5NWcVIBAhMtaQ0nAGLSaeEMAAAA?==?+ISO-2022-JP?G?H4sIAH6TszUAA5NWcVIxV3FTyVbxldZwAgAuIikKDgAAAA==?="
-'embedded-encoded-word)
-
-(decode
-"Subject: =?Unknown-Charset?B?gqA=?= =?Unknown-Charset?B?gqA=?="
-"Subject: =?+Unknown-Charset?B?gqA=?==?+Unknown-Charset?B?gqA=?="
-'embedded-encoded-word)
-
-(decode
-"Subject: =?Unknown-Charset?B?gqA=?=  =?Unknown-Charset?B?gqA=?="
-"Subject: =?+Unknown-Charset?B?gqA=?==?+Unknown-Charset?B?gqA=?="
-'embedded-encoded-word)
-
-(decode
-"Subject: =?Unknown-Charset?B?gqA=?=\r
- =?Unknown-Charset?B?gqA=?="
-"Subject: =?+Unknown-Charset?B?gqA=?==?+Unknown-Charset?B?gqA=?="
-'embedded-encoded-word)
-
-(decode
-"Subject: =?Unknown-Charset?B?gqA=?=\r
-\t=?Unknown-Charset?B?gqA=?="
-"Subject: =?+Unknown-Charset?B?gqA=?==?+Unknown-Charset?B?gqA=?="
-'embedded-encoded-word)
-
-(decode
-"Subject: a=?Unknown-Charset?B?gqA=?="
-"Subject: a=?Unknown-Charset?B?gqA=?="
-'embedded-encoded-word)
-
-(decode
-"Subject: =?Unknown-Charset?B?gqA=?=b"
-"Subject: =?Unknown-Charset?B?gqA=?=b"
-'embedded-encoded-word)
-
-(decode
-"Subject: a=?Unknown-Charset?B?gqA=?=b"
-"Subject: a=?Unknown-Charset?B?gqA=?=b"
-'embedded-encoded-word)
-
-(decode
-"Subject: a =?Unknown-Charset?B?gqA=?= b"
-"Subject: a =?+Unknown-Charset?B?gqA=?= b"
-'embedded-encoded-word)
-
-(decode
-"Subject: =?ISO-2022-JP?B?DQoNCg==?="
-"Subject: =?+US-ASCII?Q?=0D=0A=0D=0A?="
-'embedded-encoded-word)
-
-(decode
-"Subject: =?US-ASCII?Q?a=0D=0A_b?="
-"Subject: a b"
-'embedded-encoded-word)
-
-(decode
-"Subject: =?US-ASCII?Q?a=0D=0Ab?="
-"Subject: a=?+US-ASCII?Q?=0D=0A?=b"
-'embedded-encoded-word)
-
-;;; Section 8: CR and LF.
-
-(decode
-"From: akr@jaist.ac.jp (\r\\\n)"
-"From: akr@jaist.ac.jp (\r\\\n)")
-
-(decode
-"From: akr@jaist.ac.jp (\r=?US-ASCII?Q?=0A?= =?US-ASCII?Q?a?=)"
-"From: akr@jaist.ac.jp (\r=?US-ASCII?Q?=0A?= a)")
-
-(decode
-"From: akr@jaist.ac.jp (\r=?US-ASCII?Q?=0A_?=)"
-"From: akr@jaist.ac.jp (\r=?US-ASCII?Q?=0A_?=)")
-
-(decode
-"From: akr@jaist.ac.jp (\r=?US-ASCII?Q?=0A=09?=)"
-"From: akr@jaist.ac.jp (\r=?US-ASCII?Q?=0A=09?=)")
-
-(decode
-"From: akr@jaist.ac.jp (\r=?US-ASCII?Q?=0A?= )"
-"From: akr@jaist.ac.jp (\r=?US-ASCII?Q?=0A?= )")
-
-(decode
-"From: akr@jaist.ac.jp (\r=?US-ASCII?Q?=0A?=\t)"
-"From: akr@jaist.ac.jp (\r=?US-ASCII?Q?=0A?=\t)")
-
-(decode
-"From: akr@jaist.ac.jp (\\\r\\\n)"
-"From: akr@jaist.ac.jp (\\\r\\\n)")
-
-(decode
-"From: akr@jaist.ac.jp (\\\r=?US-ASCII?Q?=0A?= =?US-ASCII?Q?a?=)"
-"From: akr@jaist.ac.jp (=?+US-ASCII?Q?=0D=0A?=a)"
-'embedded-encoded-word)
-
-(decode
-"From: akr@jaist.ac.jp (\\\r=?US-ASCII?Q?=0Aa?=)"
-"From: akr@jaist.ac.jp (=?+US-ASCII?Q?=0D=0A?=a)"
-'embedded-encoded-word)
-
-(decode
-"From: akr@jaist.ac.jp (\\\r=?US-ASCII?Q?=0A_?=)"
-"From: akr@jaist.ac.jp (\\ )")
-
-(decode
-"From: akr@jaist.ac.jp (\\\r=?US-ASCII?Q?=0A=09?=)"
-"From: akr@jaist.ac.jp (\\\t)")
-
-(decode
-"From: akr@jaist.ac.jp (\\\r=?US-ASCII?Q?=0A?= )"
-"From: akr@jaist.ac.jp (\\ )")
-
-(decode
-"From: akr@jaist.ac.jp (\\\r=?US-ASCII?Q?=0A?=\t)"
-"From: akr@jaist.ac.jp (\\\t)")
-
-(decode
-"From: akr@jaist.ac.jp (\\\r=?US-ASCII?Q?=0A?=\r
- =?US-ASCII?Q?=0D=0A?= =?US-ASCII?Q?a?=)"
-"From: akr@jaist.ac.jp (=?+US-ASCII?Q?=0D=0A=0D=0A?=a)"
-'embedded-encoded-word)
-
-(decode
-"From: akr@jaist.ac.jp (\\\r=?US-ASCII?Q?=0A?=\r
- =?US-ASCII?Q?=0D?=\\\n =?US-ASCII?Q?a?=)"
-"From: akr@jaist.ac.jp (=?+US-ASCII?Q?=0D=0A?=\r\\
- a)"
-'embedded-encoded-word)
-
-;;;end-test
-
-(report)
-
-;----------------------------------------------------------------------------
diff --git a/automata.el b/automata.el
deleted file mode 100644
index eac194f..0000000
--- a/automata.el
+++ /dev/null
@@ -1,499 +0,0 @@
-
-(require 'digraph)
-(require 'natset)
-(provide 'automata)
-
-(defvar automata-never-fail (make-symbol "automata-never-fail"))
-(defvar automata-state-var (make-symbol "automata-state"))
-
-(defmacro automata (in-var start-tag &rest clauses)
-  (let* ((org-len (length clauses))
-	 (org-graph (make-vector org-len nil))
-	 (tag-to-org-alist nil)
-	 forest org-to-forest forest-to-org
-	 i j tmp trans)
-    (setq tmp clauses
-	  i 0)
-    (while tmp
-      (setq tag-to-org-alist (cons (cons (caar tmp) i) tag-to-org-alist)
-	    i (1+ i)
-	    tmp (cdr tmp)))
-    (setq tmp clauses
-	  i 0)
-    (while tmp
-      (setq trans (cddr (cdar tmp)))
-      (while trans
-	(setq j (cdr (assoc (cadr (car trans)) tag-to-org-alist)))
-	(if (not (member j (aref org-graph i)))
-	    (aset org-graph i (cons j (aref org-graph i))))
-	(setq trans (cdr trans)))
-      (setq i (1+ i)
-	    tmp (cdr tmp)))
-    ;;(error "%s" org-graph)
-    (setq tmp (digraph-split-as-forest org-graph)
-	  forest (aref tmp 0)
-	  org-to-forest (aref tmp 1)
-	  forest-to-org (aref tmp 2))
-    (setq clauses
-	  (mapcar
-	   (lambda (c)
-	     (let ((tag (car c))
-		   (action (cadr c))
-		   (fail (nth 2 c))
-		   (trs (nthcdr 3 c)))
-	       (setq trs
-		     (mapcar
-		      (lambda (next)
-			(list
-			 (apply
-			  'natset-union
-			  (mapcar
-			   (lambda (tr) (if (equal (cadr tr) next) (car tr) (natset-empty)))
-			   trs))
-			 next))
-		      (natset-enum (apply 'natset-single (mapcar 'cadr trs)))))
-	       (cons tag (cons action (cons fail trs)))))
-	   clauses))
-    `(let ((,automata-state-var ,(cdr (assoc start-tag tag-to-org-alist))))
-       ,@(automata-exp-seq
-	  (automata-gen-state
-	   in-var clauses
-	   org-len
-	   (list (cdr (assoc start-tag tag-to-org-alist)))
-	   tag-to-org-alist
-	   (aref org-to-forest (cdr (assoc start-tag tag-to-org-alist)))
-	   forest org-to-forest forest-to-org)))))
-
-(defun automata-gen-state (in-var clauses
-				  org-len
-				  start-states
-				  tag-to-org-alist
-				  forest-state forest org-to-forest forest-to-org)
-  (let* ((org-states (aref forest-to-org forest-state))
-	 (forest-states (digraph-descents forest forest-state))
-	 (branch-length (+ (length org-states) (length forest-states)))
-	 (branch-to-org
-	  (vconcat
-	   (mapcar 'list org-states)
-	   (mapcar (lambda (forest-state)
-		     (aref forest-to-org forest-state))
-		   forest-states)))
-	 (org-to-branch
-	  (let ((org-to-branch (make-vector org-len nil))
-		(i 0) tmp)
-	    (while (< i branch-length)
-	      (setq tmp (aref branch-to-org i))
-	      (while tmp
-		(aset org-to-branch (car tmp) i)
-		(setq tmp (cdr tmp)))
-	      (setq i (1+ i)))
-	    org-to-branch))
-	 (branch-to-forest
-	  (vconcat
-	   (make-list (length org-states) nil)
-	   forest-states))
-	 (branch-state-range
-	  (vconcat
-	   (mapcar 'natset-single org-states)
-	   (mapcar (lambda (forest-state)
-		     (apply 'natset-single
-			    (aref forest-to-org forest-state)))
-		   forest-states)))
-	 (branch-descents
-	  (vconcat
-	   (mapcar (lambda (org-state)
-		     (let* ((c (nth org-state clauses))
-			    (trs (nthcdr 3 c)))
-		       (apply 'natset-union
-			      (mapcar (lambda (tr)
-					(natset-single
-					 (cdr (assoc (cadr tr) tag-to-org-alist))))
-				      trs))))
-		   org-states)
-	   (mapcar (lambda (forest-state) ())
-		   forest-states)))
-	 (all-descents (apply 'natset-union (append branch-descents ())))
-	 (branch-ascents
-	  (let* ((branch-ascents (make-vector branch-length 0))
-		 (i 0) j)
-	    (while (< i branch-length)
-	      (setq j 0)
-	      (while (< j branch-length)
-		(if (natset-has-intersection-p (aref branch-state-range i)
-					       (aref branch-descents j))
-		    (aset branch-ascents i
-			  (1+ (aref branch-ascents i))))
-		(setq j (1+ j)))
-	      (setq i (1+ i)))
-	    branch-ascents))
-	 (start-inline nil)
-	 (branch-inline
-	  (let* ((branch-inline (make-vector branch-length nil))
-		 (start-ns (apply 'natset-single start-states))
-		 (i 0))
-	    (while (< i branch-length)
-	      (if (natset-has-intersection-p (aref branch-state-range i) start-ns)
-		  (if (and (= (length start-states) 1)
-			   (= (aref branch-ascents i) 0))
-		      (progn
-			(setq start-inline i)
-			(aset branch-inline i t))
-		    nil)
-		(if (= (aref branch-ascents i) 1)
-		    (aset branch-inline i t)))
-	      (setq i (1+ i)))
-	    branch-inline))
-	 (branch-gen nil)
-	 (_
-	  (setq branch-gen
-		(vconcat
-		 (mapcar
-		  (lambda (org-state)
-		    (cons
-		     (lambda (org-state)
-		       `(,(natset-single org-state)
-			 nil ; don't duplicate.
-			 ,@(let* ((c (nth org-state clauses)))
-			     (automata-exp-seq
-			      (nth 1 c) ; action
-			      (if (null (nthcdr 3 c))
-				  (nth 2 c)
-				`(automata-branch
-				  ,in-var ; input variable
-				  ,(natset-full) ; input is unpredictable.
-				  ,(nth 2 c) ; fail action
-				  ,@(let ((trs (nthcdr 3 c)))
-				      (mapcar
-				       (lambda (next-branch)
-					 (let ((input-range 
-						(apply 'natset-union
-						       (mapcar
-							(lambda (tr)
-							  (if (member (cdr (assoc (cadr tr) tag-to-org-alist))
-								      (aref branch-to-org next-branch))
-							      (car tr)
-							    (natset-empty)))
-							trs))))
-					   `(,input-range ; input range
-					     ,(not (aref branch-inline next-branch)) ; duplicatable unless inlining.
-					     ,(let ((goto-list (apply
-								'append
-								(mapcar
-								 (lambda (tr)
-								   (let ((range (natset-intersection (car tr) input-range)))
-								     (if range
-									 `((,range
-									    t
-									    (automata-goto
-									     ,automata-state-var
-									     ,org-state
-									     ,(cdr (assoc (cadr tr) tag-to-org-alist)))))
-								       ())))
-								 trs))))
-						(if (= (length goto-list) 1)
-						    (car (cddr (car goto-list)))
-						  `(automata-branch
-						    ,in-var
-						    ,input-range
-						    ,automata-never-fail
-						    ,@goto-list)))
-					     ,@(if (aref branch-inline next-branch)
-						   (automata-exp-seq
-						    `(progn ,@(cddr (funcall (car (aref branch-gen next-branch))
-									     (cdr (aref branch-gen next-branch))))))
-						 ()))))
-				       (natset-enum
-					(apply 'natset-union
-					       (mapcar
-						(lambda (tr)
-						  (natset-single
-						   (aref org-to-branch
-							 (cdr (assoc (cadr tr) tag-to-org-alist)))))
-						trs))))
-				      )))))))
-		     org-state))
-		  org-states)
-		 (mapcar
-		  (lambda (forest-state)
-		    (cons
-		     (lambda (forest-state)
-		       `(,(natset-intersection
-			   (apply 'natset-single (aref forest-to-org forest-state))
-			   all-descents) ; state range
-			 nil ; don't duplicate.
-			 ,@(automata-exp-seq
-			    (automata-gen-state
-			     in-var clauses
-			     org-len
-			     (aref forest-to-org forest-state)
-			     tag-to-org-alist
-			     forest-state forest org-to-forest forest-to-org))))
-		     forest-state))
-		  forest-states))))
-	 (branches
-	  (let* ((branches ())
-		 (i branch-length))
-	    (while (< 0 i)
-	      (setq i (1- i))
-	      (if (not (aref branch-inline i))
-		  (setq branches
-			(cons
-			 (funcall (car (aref branch-gen i))
-				  (cdr (aref branch-gen i)))
-			 branches))))
-	    branches))
-	 )
-    ;;(error "err")
-    (if start-inline
-	(apply
-	 'automata-seq-exp
-	 `(progn ,@(cddr (funcall (car (aref branch-gen start-inline))
-				  (cdr (aref branch-gen start-inline)))))
-	 (cond
-	  ((null branches) ())
-	  ((null (cdr branches))
-	   (cddr (car branches)))
-	  (t
-	   `((while t 
-	       (automata-branch
-		,automata-state-var ,(natset-full) ,automata-never-fail
-		,@branches))))))
-      (if (= (length branches) 1)
-	  `(while t ,@(cddr (car branches)))
-	`(while t ; ,branch-inline ,branch-state-range ,branch-descents ,branch-ascents
-		(automata-branch
-		 ,automata-state-var ,(natset-full) ,automata-never-fail
-		 ,@branches))))))
-
-(defun automata-seq-exp (&rest seq)
-  (cond
-   ((null seq) nil)
-   ((null (cdr seq))
-    (car seq))
-   (t
-    (setq seq
-	  (apply
-	   'append
-	   (mapcar
-	    (lambda (exp) (if (and (consp exp) (eq (car exp) 'progn))
-			      (cdr exp)
-			    (list exp)))
-	    seq)))
-    (let ((rseq (reverse seq)))
-      (cons 'progn
-	    (apply
-	     'append
-	     (apply
-	      'append
-	      (mapcar
-	       (lambda (exp) (if (null exp) () (list exp)))
-	       (nreverse (cdr rseq))))
-	     (list (list (car rseq)))))))))
-
-(defun automata-exp-seq (&rest seq)
-  (let ((exp (apply 'automata-seq-exp seq)))
-    (if (and (consp exp) (eq (car exp) 'progn))
-	(cdr exp)
-      (list exp))))
-
-(defmacro automata-goto (var curr next)
-  (if (eq curr next)
-      nil
-    `(setq ,var ,next)))
-
-(defmacro automata-branch (var range fail &rest clauses)
-  (when (eq fail automata-never-fail)
-    (setq range (natset-intersection
-		 (apply 'natset-union (mapcar 'car clauses))
-		 range)))
-  (let ((len (length clauses))
-	ns-list dup-list body-list tmp ns)
-    (setq tmp clauses
-	  ns (natset-negate range))
-    (while tmp
-      (setq ns-list (cons (natset-sub (caar tmp) ns) ns-list)
-	    dup-list (cons (cadr (car tmp)) dup-list)
-	    body-list (cons (cddr (car tmp)) body-list)
-	    ns (natset-union ns (caar tmp))
-	    tmp (cdr tmp))
-      (if (natset-empty-p (car ns-list))
-	  (setq ns-list (cdr ns-list)
-		dup-list (cdr dup-list)
-		body-list (cdr body-list))))
-    (setq ns-list (nreverse ns-list)
-	  dup-list (nreverse dup-list)
-	  body-list (nreverse body-list))
-    (automata-branch-i var range fail ns-list dup-list body-list)))
-
-(defun automata-branch-i (var range fail ns-list dup-list body-list)
-  (cond
-   ((null ns-list) fail)
-   ((null (cdr ns-list))
-    (if (natset-include-p (car ns-list) range)
-	(apply 'automata-seq-exp (car body-list))
-      `(if ,(natset-gen-pred-exp (car ns-list) var range)
-	   ,(apply 'automata-seq-exp (car body-list))
-	 ,fail)))
-   (t
-    (let (tmp tmpn tmpd cut)
-      (setq tmpn ns-list
-	    cut (natset-empty))
-      (while tmpn
-	(setq cut (natset-union cut (natset-boundary-set (car tmpn)))
-	      tmpn (cdr tmpn)))
-      (setq tmpn ns-list
-	    tmpd dup-list)
-      (while tmpn
-	(if (not (car tmpd))
-	    (setq tmp (natset-minmax (car tmpn))
-		  tmp (natset-sub tmp (natset-start-set tmp))
-		  cut (natset-sub cut tmp)))
-	(setq tmpn (cdr tmpn)
-	      tmpd (cdr tmpd)))
-      (setq cut (natset-sub cut (natset-boundary-set (natset-minmax range))))
-      (if (null (setq cut (natset-enum cut)))
-	  `(if ,(natset-gen-pred-exp (car ns-list) var range)
-	       ,(apply 'automata-seq-exp (car body-list))
-	     ,(automata-branch-i var
-				 (natset-sub range (car ns-list))
-				 fail
-				 (cdr ns-list)
-				 (cdr dup-list)
-				 (cdr body-list)))
-	(let* ((mid (nth (/ (length cut) 2) cut))
-	       (lower (natset-seg 0 (1- mid)))
-	       (higher (natset-seg mid))
-	       ns-list1 dup-list1 body-list1
-	       ns-list2 dup-list2 body-list2
-	       )
-	  (while ns-list
-	    (if (natset-has-intersection-p lower (car ns-list))
-		(setq ns-list1 (cons (natset-intersection (car ns-list) lower) ns-list1)
-		      dup-list1 (cons (car dup-list) dup-list1)
-		      body-list1 (cons (car body-list) body-list1)))
-	    (if (natset-has-intersection-p higher (car ns-list))
-		(setq ns-list2 (cons (natset-intersection (car ns-list) higher) ns-list2)
-		      dup-list2 (cons (car dup-list) dup-list2)
-		      body-list2 (cons (car body-list) body-list2)))
-	    (setq ns-list (cdr ns-list)
-		  dup-list (cdr dup-list)
-		  body-list (cdr body-list)))
-	  ;;(if (or (null ns-list1) (null ns-list2)) (error "divide fail"))
-	  `(if (< ,var ,mid)
-	       ,(automata-branch-i var
-				   (natset-intersection range lower)
-				   fail ns-list1 dup-list1 body-list1)
-	     ,(automata-branch-i var
-				 (natset-intersection range higher)
-				 fail ns-list2 dup-list2 body-list2))))))))
-
-
-'(
-(npp (macroexpand '
-(automata pc 0
-		(1
-		 (progn
-		   (lex-match 1)
-		   (lex-scan-unibyte-save))
-		 (lex-fail))
-		(5
-		 (progn
-		   (lex-match 2)
-		   (lex-scan-unibyte-save))
-		 (lex-fail))
-		(4
-		 (progn
-		   (lex-scan-unibyte-read pc))
-		 (lex-fail)
-		 ((9 10) 5) ((32 33) 5))
-		(2
-		 (progn
-		   (lex-match 3)
-		   (lex-scan-unibyte-save)
-		   (lex-scan-unibyte-read pc))
-		 (lex-fail)
-		 ((13 14) 2)
-		 ((0 9) 3) ((11 13) 3) ((14 32) 3) ((33) 3)
-		 ((10 11) 4))
-		(3
-		 (progn
-		   (lex-match 3)
-		   (lex-scan-unibyte-save)
-		   (lex-scan-unibyte-read pc))
-		 (lex-fail)
-		 ((0 9) 3) ((10 11) 3) ((11 13) 3) ((14 32) 3) ((33) 3)
-		 ((13 14) 2)
-		 )
-		(0
-		 (progn
-		   (lex-match 3)
-		   (lex-scan-unibyte-save)
-		   (lex-scan-unibyte-read pc))
-		 (lex-fail)
-		 ((0 9) 3) ((10 11) 3) ((11 13) 3) ((14 32) 3) ((33) 3)
-		 ((13 14) 2)
-		 ((9 10) 1) ((32 33) 1)))))
-
-(npp (macroexpand '
-(automata pc 0
-		(0
-		 (progn
-		   (lex-match 3)
-		   (lex-scan-unibyte-save)
-		   (lex-scan-unibyte-read pc))
-		 (lex-fail)
-		 ((0 9) 3) ((10 11) 3) ((11 13) 3) ((14 32) 3) ((33) 3)
-		 ((13 14) 2)
-		 ((9 10) 1) ((32 33) 1))
-		(1
-		 (progn
-		   (lex-match 1)
-		   (lex-scan-unibyte-save))
-		 (lex-fail))
-		(2
-		 (progn
-		   (lex-match 3)
-		   (lex-scan-unibyte-save)
-		   (lex-scan-unibyte-read pc))
-		 (lex-fail)
-		 ((13 14) 2)
-		 ((0 9) 3) ((11 13) 3) ((14 32) 3) ((33) 3)
-		 ((10 11) 4))
-		(3
-		 (progn
-		   (lex-match 3)
-		   (lex-scan-unibyte-save)
-		   (lex-scan-unibyte-read pc))
-		 (lex-fail)
-		 ((0 9) 3) ((10 11) 3) ((11 13) 3) ((14 32) 3) ((33) 3)
-		 ((13 14) 2)
-		 )
-		(4
-		 (progn
-		   (lex-scan-unibyte-read pc))
-		 (lex-fail)
-		 ((9 10) 5) ((32 33) 5))
-		(5
-		 (progn
-		   (lex-match 2)
-		   (lex-scan-unibyte-save))
-		 (lex-fail))
-)))
-
-(npp
-(automata-gen-state
-'pc
-'((0 (progn (lex-match 3) (lex-scan-unibyte-save) (lex-scan-unibyte-read pc)) (lex-fail) ((9 10 32 33) 1) ((13 14) 2) ((0 9 10 13 14 32 33) 3))
-  (1 (progn (lex-match 1) (lex-scan-unibyte-save)) (lex-fail))
-  (2 (progn (lex-match 3) (lex-scan-unibyte-save) (lex-scan-unibyte-read pc)) (lex-fail) ((13 14) 2) ((0 9 11 13 14 32 33) 3) ((10 11) 4))
-  (3 (progn (lex-match 3) (lex-scan-unibyte-save) (lex-scan-unibyte-read pc)) (lex-fail) ((13 14) 2) ((0 9 10 13 14 32 33) 3))
-  (4 (progn (lex-scan-unibyte-read pc)) (lex-fail) ((9 10 32 33) 5))
-  (5 (progn (lex-match 2) (lex-scan-unibyte-save)) (lex-fail)))
-6
-'(0)
-'((5 . 5) (4 . 4) (3 . 3) (2 . 2) (1 . 1) (0 . 0))
-0
-[(4 1) (2) (3) nil nil]
-[0 4 1 1 2 3]
-[(0) (3 2) (4) (5) (1)]))
-)
\ No newline at end of file
diff --git a/closure.el b/closure.el
deleted file mode 100644
index 8220628..0000000
--- a/closure.el
+++ /dev/null
@@ -1,66 +0,0 @@
-(provide 'closure)
-
-;; closure is one of following forms.
-;;  FUNCTION
-;;  (WRAPPER FUNCTION FV1 . FVS)
-;;  (PARTIAL-ARGS CLOSURE)
-
-(defmacro closure-make (fun &rest fvs)
-  "Make a closure from a function FUN and free variables FVS.
-CAUTION: Do not assign to free variables."
-  (if (null fvs)
-      fun
-    (let* ((funv (make-symbol "funv"))
-	   (args (make-symbol "args")))
-      `(list
-	(lambda (,funv ,args ,@fvs)
-	  (apply ,funv ,args))
-	,fun
-	,@fvs))))
-
-(defmacro closure-partial-call (clo &rest args)
-  "Call partially."
-  `(list (list ,@args) ,clo))
-
-(defun closure-call (clo &rest args)
-  "Call closure."
-  (while
-      (and
-       (not (functionp clo))
-       (if (cddr clo)
-	   (progn
-	     (setq args (cons (cadr clo) (cons args (cddr clo)))
-		   clo (car clo))
-	     nil)
-	 t))
-    (setq args (append (car clo) args)
-	  clo (cadr clo)))
-  (apply clo args))
-
-(defun closure-compose (c1 c2)
-  "Compose C1 and C2.
-
-If either C1 or C2 is nil, another one is returned.
-If C1 and C2 is non-nil, C1 must be closure with one argument."
-  (cond
-   ((null c1) c2)
-   ((null c2) c1)
-   (t
-    (closure-make
-     (lambda (&rest args)
-       (closure-call c1 (apply 'closure-call c2 args)))
-     c1 c2))))
-
-'(
-
-(setq c1 (let ((a 1)) (closure-make (lambda (b) (+ a b)) a)))
-(closure-call c1 2) ; => 3
-
-(let ((a 1)) (setq plus1 (closure-make (lambda (b) (+ a b)) a)))
-(let ((a 2)) (setq plus2 (closure-make (lambda (b) (+ a b)) a)))
-(setq plus3 (closure-compose plus1 plus2))
-(closure-call plus3 4) ; => 7
-
-(closure-call (closure-partial-call (closure-partial-call '+ 1 2 3) 4 5 6) 7 8 9) ;=> 45
-
-)
\ No newline at end of file
diff --git a/digraph.el b/digraph.el
deleted file mode 100644
index 2a463d1..0000000
--- a/digraph.el
+++ /dev/null
@@ -1,347 +0,0 @@
-;;; directed graph package.
-(provide 'digraph)
-
-;; A directed graph is represented as vector of lists of integers.
-;; The number of nodes in the graph is length of the vector.
-;;
-;; i'th list of the vector contains j <=> there is the edge from i to j.
-
-(defalias 'digraph-descents 'aref)
-
-(defun digraph-split-as-dag (g)
-  "Returns 3 element vector of follows.
-
-0. Directed acyclic graph generated by mergeing each strongly connected
-components in G as new nodes.
-
-1. Map from a node in g to a node in result.
-
-2. Map from a node in result to nodes in g."
-  (let* ((old-len (length g))
-	 (new-to-olds (vconcat (digraph-tsort g)))
-	 (new-len (length new-to-olds))
-	 (old-to-new (make-vector old-len ()))
-	 (i 0)
-	 js res)
-    (while (< i new-len)
-      (setq js (aref new-to-olds i))
-      (while js
-	(aset old-to-new (car js) i)
-	(setq js (cdr js)))
-      (setq i (1+ i)))
-    (setq i (1- new-len))
-    (while (<= 0 i)
-      (setq res (cons
-		 (digraph-list-uniq
-		  (apply
-		   'nconc
-		   (mapcar
-		    (lambda (old)
-		      (apply
-		       'nconc
-		       (mapcar 
-			(lambda (old)
-			  (if (= i (aref old-to-new old))
-			      ()
-			    (list (aref old-to-new old))))
-			(aref g old))))
-		    (aref new-to-olds i))))
-		 res)
-	    i (1- i)))
-    (vector 
-     (vconcat res)
-     old-to-new
-     new-to-olds)))
-
-(defun digraph-split-as-forest (g)
-  "Returns 3 element vector of follows.
-
-0. Tree generated by merging nodes which have common descent node.
-
-1. Map from a node in g to a node in result.
-
-2. Map from a node in result to nodes in g."
-  (let* ((tmp (digraph-split-as-dag g))
-	 (d (aref tmp 0))
-	 (g-to-d (aref tmp 1))
-	 (d-to-g (aref tmp 2))
-	 ;;(_ (error "%s" tmp))
-	 (tmp (digraph-dag-to-forest d))
-	 (f (aref tmp 0))
-	 (d-to-f (aref tmp 1))
-	 (f-to-d (aref tmp 2))
-	 old-indices
-	 new-indices
-	 i)
-    (setq i (1- (length g)))
-    (while (<= 0 i)
-      (setq old-indices (cons i old-indices)
-	    i (1- i)))
-    (setq i (1- (length f)))
-    (while (<= 0 i)
-      (setq new-indices (cons i new-indices)
-	    i (1- i)))
-    (vector
-     f
-     (vconcat
-      (mapcar
-       (lambda (gi) (aref d-to-f (aref g-to-d gi)))
-       old-indices))
-     (vconcat
-      (mapcar
-       (lambda (fi)
-	 (apply
-	  'nconc
-	  (mapcar
-	   (lambda (di) (aref d-to-g di))
-	   (aref f-to-d fi))))
-       new-indices)))))
-
-(defun digraph-tsort (dep)
-  "Sort nodes in a graph toporogicaly.
-
-DEP is a vector of lists of integers and
-digraph-tsort returns list of lists of integers.
-
-The graph has (length DEP) nodes.
-
-Dependency for i'th node is represented by i'th element of DEP.
-If (aref DEP i) is a list (j1 j2 ... jn), it represents that i'th node
-depends to j1, j2, ... and jn'th nodes of the graph.
-
-A result of digraph-tsort is a sequence of sets of indexes for each
-strongly connected nodes ordered by indepenedent to dependent as list
-of lists of integers.
-
-If (nth n result) contains an integer i, it represents the fact as
-follows.
-
-1. For all j in (nth n result) and j != i, i'th node depends to j'th
-node and vice versa.
-
-2. For all m < n and j in (nth m result), i'th nodes does not depend
-to j'th node."
-  (let* ((len (length dep))
-	 (ord (make-vector len nil))
-	 (i 0)
-	 (res ()))
-    (while (< i len)
-      (if (not (aref ord i))
-	  (setq res (nth 3 (digraph-tsort-visit dep len ord i 0 () res))))
-      (setq i (1+ i)))
-    res))
-
-(defun digraph-tsort-visit (dep len ord i id stk res)
-  (aset ord i id)
-  (let ((js (aref dep i))
-	(m id)
-	(nid (1+ id))
-	(stk (cons i stk))
-	(res res))
-    (while js
-      (let* ((j (car js)) (jo (aref ord j)))
-	(if jo
-	    (setq m (if (< m jo) m jo))
-	  (let* ((tmp (digraph-tsort-visit dep len ord j nid stk res))
-		 (m0 (nth 0 tmp)))
-	    (setq m (if (< m m0) m m0)
-		  nid (nth 1 tmp)
-		  stk (nth 2 tmp)
-		  res (nth 3 tmp)))))
-      (setq js (cdr js)))
-    (if (= m id)
-	(let* ((p (member i stk))
-	       (nstk (cdr p))
-	       (tmp stk))
-	  (setcdr p ())
-	  (while tmp
-	    (aset ord (car tmp) len)
-	    (setq tmp (cdr tmp)))
-	  (list m nid nstk (cons stk res)))
-      (list m nid stk res))))
-
-(defun digraph-reverse (g)
-  "Return graph with reversed edge."
-  (let* ((len (length g))
-	 (rev (make-vector len nil))
-	 (i 0))
-    (while (< i len)
-      (let ((links (aref g i)))
-	(while links
-	  (if (not (member i (aref rev (car links))))
-	      (aset rev (car links) (cons i (aref rev (car links)))))
-	  (setq links (cdr links))))
-      (setq i (1+ i)))
-    rev))
-
-(defun digraph-leaves (g)
-  "Return list of leaves of G."
-  (let* ((i (length g))
-	(res ()))
-    (while (< 0 i)
-      (setq i (1- i))
-      (if (null (aref g i))
-	  (setq res (cons i res))))
-    res))
-
-(defun digraph-roots (g)
-  "Return list of roots of G."
-  (digraph-leaves (digraph-reverse g)))
-
-;;; forest
-
-(defun digraph-dag-to-forest (dag)
-  "Convert a DAG(directed acyclic graph) to forest(set of trees)."
-  (let* ((len (length dag))
-	 (rev (digraph-reverse dag))
-	 (forest (digraph-forest-make len))
-	 (i 0))
-    (while (< i len)
-      (digraph-dag-forest-add-node forest i (aref rev i))
-      (setq i (1+ i)))
-    ;;(error "%s" forest)
-    (digraph-forest-to-graph forest)))
-
-(defun digraph-dag-forest-add-node (forest node links)
-  (if (null links)
-      (digraph-forest-add-tree forest node)
-    (let ((parent (car links)))
-      (setq links (cdr links))
-      (digraph-forest-add-node forest parent node)
-      (while links
-	(digraph-forest-merge-node forest parent (car links))
-	(setq links (cdr links)))))
-  forest)
-
-;; forest = [last-tree-id node-merge-map node-parent-map]
-(defun digraph-forest-make (num)
-  (vector 0 (make-vector num nil) (make-vector num nil)))
-(defsubst digraph-forest-merge-map (forest) (aref forest 1))
-(defsubst digraph-forest-parent-map (forest) (aref forest 2))
-
-(defun digraph-forest-add-tree (forest node)
-  (aset (digraph-forest-parent-map forest)
-	node
-	(aset forest 0 (1- (aref forest 0)))))
-
-(defun digraph-forest-add-node (forest parent node)
-  (aset (digraph-forest-parent-map forest) node parent))
-
-(defun digraph-forest-node-id (forest node)
-  (let ((merge-map (digraph-forest-merge-map forest)) tmp)
-    (while (setq tmp (aref merge-map node))
-      (setq node tmp))
-    node))
-
-(defun digraph-forest-tree-id (forest node)
-  (setq node (digraph-forest-node-id forest node))
-  (let ((parent-map (digraph-forest-parent-map forest))
-	tmp)
-    (while (<= 0 (setq tmp (aref parent-map node)))
-      (setq node (digraph-forest-node-id forest tmp)))
-    tmp))
-  
-(defun digraph-forest-root-p (forest node)
-  (setq node (digraph-forest-node-id forest node))
-  (< (aref (digraph-forest-parent-map forest) node) 0))
-
-(defun digraph-forest-path-to-root (forest node)
-  (setq node (digraph-forest-node-id forest node))
-  (let ((parent-map (digraph-forest-parent-map forest))
-	(path (list node)))
-    (while (not (digraph-forest-root-p forest node))
-      (setq node (digraph-forest-node-id forest (aref parent-map node))
-	    path (cons node path)))
-    path))
-
-(defun digraph-forest-merge-node (forest n1 n2)
-  (setq n1 (digraph-forest-node-id forest n1)
-	n2 (digraph-forest-node-id forest n2))
-  (let ((t1 (digraph-forest-tree-id forest n1))
-	(t2 (digraph-forest-tree-id forest n2)))
-    (if (= t1 t2)
-	(let ((merge-map (digraph-forest-merge-map forest))
-	      (p1 (digraph-forest-path-to-root forest n1))
-	      (p2 (digraph-forest-path-to-root forest n2))
-	      top)
-	  (while (and p1 p2
-		      (= (car p1) (car p2)))
-	    (setq top (car p1)
-		  p1 (cdr p1)
-		  p2 (cdr p2)))
-	  (setq p1 (nreverse p1))
-	  (setq p2 (nreverse p2))
-	  (while (and p1 p2)
-	    (aset merge-map (car p2) (car p1))
-	    (setq p1 (cdr p1)
-		  p2 (cdr p2)))
-	  (if (or p1 p2)
-	      (let ((ns (nconc p1 p2)) n)
-		(while ns
-		  (aset merge-map (car ns) top)
-		  (setq ns (cdr ns))))))
-      (let ((merge-map (digraph-forest-merge-map forest))
-	    (parent-map (digraph-forest-parent-map forest)))
-	(while (and (not (digraph-forest-root-p forest n1))
-		    (not (digraph-forest-root-p forest n2)))
-	  (aset merge-map n2 n1)
-	  (setq n1 (digraph-forest-node-id forest (aref parent-map n1))
-		n2 (digraph-forest-node-id forest (aref parent-map n2))))
-	(if (digraph-forest-root-p forest n2)
-	    (aset merge-map n2 n1)
-	  (aset merge-map n1 n2)))))
-  forest)
-
-(defun digraph-forest-to-graph (forest)
-  (let* ((merge-map (digraph-forest-merge-map forest))
-	 (parent-map (digraph-forest-parent-map forest))
-	 (old-len (length merge-map))
-	 (old-to-new (make-vector old-len nil))
-	 new-to-olds
-	 (new-len 0)
-	 (i 0)
-	 j
-	 graph
-	 )
-    (while (< i old-len)
-      (setq j (digraph-forest-node-id forest i))
-      (if (aref old-to-new j)
-	  (aset old-to-new i (aref old-to-new j))
-	(progn
-	  (aset old-to-new j new-len)
-	  (aset old-to-new i new-len)
-	  (setq new-len (1+ new-len))))
-      (setq i (1+ i)))
-    (setq new-to-olds (make-vector new-len nil)
-	  graph (make-vector new-len nil))
-    (setq i (1- old-len))
-    (while (<= 0 i)
-      (setq j (aref old-to-new i))
-      (aset new-to-olds j
-	    (cons i (aref new-to-olds j)))
-      (setq i (1- i)))
-    (setq i 0)
-    (while (< i new-len)
-      (setq j (aref parent-map (digraph-forest-node-id forest (car (aref new-to-olds i)))))
-      (if (<= 0 j) (aset graph (aref old-to-new j)
-			 (cons i (aref graph (aref old-to-new j)))))
-      (setq i (1+ i)))
-    (vector graph old-to-new new-to-olds)))
-
-;;; utilities
-
-(defun digraph-list-uniq (il)
-  (if (null il)
-      ()
-    (if (member (car il) (cdr il))
-	(digraph-list-uniq (cdr il))
-      (cons (car il) (digraph-list-uniq (cdr il))))))
-
-'(
-(digraph-split-as-forest [nil nil nil nil nil nil nil nil nil nil (10) nil nil (12) (13) (0 1 2 3 4 5 6 7 8 9 10 11 13 14)])
-[
- [(14 13 12 11 10 9 8 7 6 5 4 3 1) (2) nil nil nil nil nil nil nil nil nil nil nil nil nil]
- [14 13 12 11 10 9 8 7 6 5 4 3 2 1 0 0]
- [(15) (14) (13) (12) (11) (10) (9) (8) (7) (6) (5) (4) (3) (2) (1) (0)]]
-
-)
\ No newline at end of file
diff --git a/ew-data.el b/ew-data.el
deleted file mode 100644
index 436b014..0000000
--- a/ew-data.el
+++ /dev/null
@@ -1,171 +0,0 @@
-(require 'ew-var)
-(require 'ew-util)
-(provide 'ew-data)
-
-(defun ew-make-anchor (column str)
-  (let ((anchor (make-symbol str)))
-    (put anchor 'anchor anchor)
-    (put anchor 'type 'ew:*anchor*)
-    (put anchor 'prev-frag anchor)
-    (put anchor 'next-frag anchor)
-    (put anchor 'column column)
-    (put anchor 'line-length 0)
-    anchor))
-
-(defun ew-terminate (anchor)
-  (let ((frag (get anchor 'prev-frag))
-	(line-length (get anchor 'column)))
-    (while (null (get frag 'line-length))
-      (put frag 'line-length line-length)
-      (setq frag (get frag 'prev-frag)))))
-
-(defsubst ew-add-frag (anchor start end type)
-  (let ((frag (make-symbol (substring (symbol-name anchor) start end))))
-    (put frag 'anchor anchor)
-    (put frag 'type type)
-    (put frag 'prev-frag (get anchor 'prev-frag))
-    (put frag 'next-frag anchor)
-    (put (get anchor 'prev-frag) 'next-frag frag)
-    (put anchor 'prev-frag frag)
-    (put frag 'decode (or (get type 'decode) 'ew-decode-none))
-    (if (string-match "\r\n\\(.*\r\n\\)*" (symbol-name frag))
-	(let ((prev-line-length (+ (get anchor 'column) (match-beginning 0)))
-	      (next-line-column (- (length (symbol-name frag)) (match-end 0)))
-	      (tmp frag))
-	  (while (null (get tmp 'line-length))
-	    (put tmp 'line-length prev-line-length)
-	    (setq tmp (get tmp 'prev-frag)))
-	  (put anchor 'column next-line-column))
-      (put anchor 'column (+ (get anchor 'column) (length (symbol-name frag)))))
-    frag))
-
-;;; listup
-
-(defun ew-frag-list (anchor)
-  (let ((res ())
-	(tmp (get anchor 'prev-frag)))
-    (while (not (eq anchor tmp))
-      (setq res (cons tmp res)
-	    tmp (get tmp 'prev-frag)))
-    res))
-
-(defun ew-pair-list (anchor)
-  (mapcar
-   (lambda (frag)
-     (cons (symbol-value (get frag 'type))
-           frag))
-   (ew-frag-list anchor)))
-
-(defun ew-separate-eword (frag1 frag2 targets)
-  (while (not (eq frag1 frag2))
-    (when (and (memq (get frag1 'type) targets)
-	       (string-match ew-encoded-word-regexp
-			     (symbol-name frag1))
-	       (or (< 0 (match-beginning 0))
-		   (< (match-end 0) (length (symbol-name frag1)))))
-      (let ((atom (symbol-name frag1))
-	    (start (match-end 0))
-	    result
-	    frag)
-	(when (< 0 (match-beginning 0))
-	  (setq frag (make-symbol (substring atom 0 (match-beginning 0)))
-		result (ew-rcons* result frag)))
-	(setq frag (make-symbol (substring atom (match-beginning 0) (match-end 0)))
-	      result (ew-rcons* result frag))
-	(when (cdr result)
-	  (put frag 'prev-frag (cadr result))
-	  (put (cadr result) 'next-frag frag)
-	  (setq frag (cadr result)))
-	(put frag 'prev-frag (get frag1 'prev-frag))
-	(put (get frag1 'prev-frag) 'next-frag frag)
-	(while (string-match ew-encoded-word-regexp atom start)
-	  (when (< start (match-beginning 0))
-	    (setq frag (make-symbol (substring atom start (match-beginning 0)))
-		  result (ew-rcons* result frag))
-	    (put frag 'prev-frag (cadr result))
-	    (put (cadr result) 'next-frag frag))
-	  (setq frag (make-symbol (substring atom (match-beginning 0) (match-end 0)))
-		result (ew-rcons* result frag)
-		start (match-end 0))
-	  (put frag 'prev-frag (cadr result))
-	  (put (cadr result) 'next-frag frag))
-	(when (< start (length (symbol-name frag1)))
-	  (setq frag (make-symbol (substring atom start))
-		result (ew-rcons* result frag))
-	  (put frag 'prev-frag (cadr result))
-	  (put (cadr result) 'next-frag frag))
-	(setq frag (car result))
-	(put frag 'next-frag (get frag1 'next-frag))
-	(put (get frag1 'next-frag) 'prev-frag frag)
-	(while result
-	  (setq frag (car result)
-		result (cdr result))
-	  (put frag 'anchor (get frag1 'anchor))
-	  (put frag 'type (get frag1 'type))
-	  (put frag 'decode (get frag1 'decode))
-	  (put frag 'line-length (get frag1 'line-length)))))
-    (setq frag1 (get frag1 'next-frag))))
-
-;;; phrase marking
-
-(defun ew-mark-phrase (frag1 frag2)
-  (when ew-decode-sticked-encoded-word
-    (ew-separate-eword
-     frag1 frag2
-     (if ew-decode-quoted-encoded-word
-	 '(ew:atom
-	   ew:qs-texts)
-       '(ew:atom)))
-    (setq frag1 (get (get frag1 'prev-frag) 'next-frag)))
-  (while (not (eq frag1 frag2))
-    (setq frag2 (get frag2 'prev-frag))
-    (unless (ew-comment-frag-p frag2)
-      (put frag2 'decode 'ew-decode-phrase)))
-  (while (not (ew-token-last-frag-p
-	       (setq frag2 (get frag2 'prev-frag))))
-    (unless (ew-comment-frag-p frag2)
-      (put frag2 'decode 'ew-decode-phrase))))
-
-;;; frag predicate
-
-(defun ew-token-last-frag-p (frag)
-  (member (get frag 'type)
-	  '(ew:*anchor*
-	    ew:lt
-	    ew:gt
-	    ew:at
-	    ew:comma
-	    ew:semicolon
-	    ew:colon
-	    ew:dot
-	    ew:atom
-	    ew:qs-end
-	    ew:dl-end)))
-
-(defun ew-comment-frag-p (frag)
-  (member (get frag 'type)
-	  '(ew:cm-begin
-	    ew:cm-end
-	    ew:cm-nested-begin
-	    ew:cm-nested-end
-	    ew:cm-texts
-	    ew:cm-wsp
-	    ew:cm-fold
-	    ew:cm-qfold
-	    ew:cm-qpair)))
-
-(defun ew-special-frag-p (frag)
-  (member (get frag 'type)
-	  '(ew:lt
-	    ew:gt
-	    ew:at
-	    ew:comma
-	    ew:semicolon
-	    ew:colon
-	    ew:dot
-	    ew:qs-begin
-	    ew:qs-end
-	    ew:dl-begin
-	    ew:dl-end
-	    ew:cm-begin
-	    ew:cm-end)))
diff --git a/ew-dec.el b/ew-dec.el
deleted file mode 100644
index fa80a83..0000000
--- a/ew-dec.el
+++ /dev/null
@@ -1,480 +0,0 @@
-(require 'emu)
-(require 'ew-var)
-(require 'ew-unit)
-(require 'ew-scan-s)
-(require 'ew-scan-m)
-(require 'ew-scan-u)
-(require 'ew-parse)
-(provide 'ew-dec)
-
-(defvar ew-decode-field-cache-buf '())
-(defvar ew-decode-field-cache-num 300)
-
-(defun ew-decode-field (field-name field-body)
-  "Decode MIME RFC2047 encoded-words in a field.
-FIELD-NAME is a name of the field such as \"To\", \"Subject\" etc. and
-used to selecting syntax of body of the field and deciding first
-column of body of the field.
-FIELD-BODY is a body of the field.
-
-If FIELD-BODY has multiple lines, each line is separated by CRLF as
-pure network representation. Also if the result has multiple lines,
-each line is separated by CRLF."
-  (let* ((key (ew-cons* field-name field-body
-			(ew-dynamic-options)))
-	 (tmp (assoc key ew-decode-field-cache-buf)))
-    (if tmp
-	(cdr tmp)
-      (progn
-	(setq tmp (nthcdr ew-decode-field-cache-num
-			  ew-decode-field-cache-buf))
-	(if (cdr tmp)
-	    (progn
-	      (setcdr (cdr tmp) ew-decode-field-cache-buf)
-	      (setq ew-decode-field-cache-buf (cdr tmp))
-	      (setcdr tmp nil))
-	  (setq ew-decode-field-cache-buf
-		(cons (cons nil nil)
-		      ew-decode-field-cache-buf)))
-	(setcar (car ew-decode-field-cache-buf) key)
-	(setcdr (car ew-decode-field-cache-buf)
-		(ew-decode-field-no-cache
-		 field-name field-body))
-	(cdar ew-decode-field-cache-buf)))))
-
-(defun ew-analyze-field-to-decode (field-name field-body)
-  "Analyze FIELD-BODY to decode."
-  (let ((tmp (assq (intern (downcase field-name)) ew-decode-field-syntax-alist))
-	anchor)
-    (if tmp
-	(setq tmp (cdr tmp))
-      (setq tmp ew-decode-field-default-syntax))
-    (setq anchor (funcall (car tmp) (1+ (length field-name)) field-body))
-    (put anchor 'field-name field-name)
-    (put anchor 'scanner (car tmp))
-    (put anchor 'marker (cdr tmp))
-    anchor))
-
-(defun ew-decode-analyzed-field (anchor)
-  "Decode analyzed field."
-  (or (get anchor 'decoded)
-      (let (tmp frag1 frag2 decode)
-	(when ew-decode-sticked-encoded-word
-	  (ew-separate-eword
-	   (get anchor 'next-frag)
-	   anchor
-	   (if (eq (get anchor 'scanner) 'ew-scan-unibyte-unstructured)
-	       '(ew:us-texts)
-	     '(ew:cm-texts))))
-	(when (get anchor 'marker)
-	  (ew-mark (get anchor 'marker) anchor))
-	(setq frag1 (get anchor 'next-frag))
-	(while (not (eq frag1 anchor))
-	  (setq decode (get frag1 'decode))
-	  (setq frag2 (get frag1 'next-frag))
-	  (while (and (not (eq frag2 anchor))
-		      (eq decode (get frag2 'decode)))
-	    (setq frag2 (get frag2 'next-frag)))
-	  (funcall decode anchor frag1 frag2)
-	  (setq frag1 frag2))
-	(setq frag1 (get anchor 'prev-frag)
-	      tmp ())
-	(while (not (eq frag1 anchor))
-	  (setq tmp (cons (or (get frag1 'decoded) (symbol-name frag1)) tmp)
-		frag1 (get frag1 'prev-frag)))
-	(put anchor 'decoded (apply 'concat tmp)))))
-
-(defun ew-decode-field-no-cache (field-name field-body)
-  "No caching version of ew-decode-field."
-  (ew-decode-analyzed-field
-   (ew-analyze-field-to-decode field-name field-body)))
-
-(defun ew-mark (tag anchor)
-  (let ((tlist (cons (list (symbol-value tag)) (ew-pair-list anchor))))
-    ;;(insert (format "%s" tlist))
-    (ew-parse
-     (lambda ()
-       (if (null tlist)
-           (cons 0 anchor)
-         (prog1 (car tlist) (setq tlist (cdr tlist)))))
-     (lambda (msg tok)
-       (message "%s%s : %s" msg tok anchor)
-       (when (< 0 ew-parse-error-sit-for-seconds)
-	 (sit-for ew-parse-error-sit-for-seconds))))))
-
-(defsubst ew-decode-us-ascii (str)
-  (decode-mime-charset-string str ew-default-mime-charset 'LF))
-
-(defun ew-decode-none (anchor frag end)
-  (while (not (eq frag end))
-    (put frag 'decoded (ew-decode-us-ascii (symbol-name frag)))
-    (setq frag (get frag 'next-frag))))
-
-(defsubst ew-proper-eword-p (frag)
-  (and
-   (or ew-ignore-75bytes-limit
-       (<= (length (symbol-name frag)) 75))
-   (or ew-ignore-76bytes-limit
-       (<= (get frag 'line-length) 76))
-   (cond
-    ((eq (get frag 'type) 'ew:cm-texts)
-     (ew-eword-p (symbol-name frag)))
-    ((eq (get frag 'type) 'ew:qs-texts)
-     (ew-eword-p (symbol-name frag)))
-    ((eq (get frag 'type) 'ew:atom)
-     (and
-      (or ew-permit-sticked-comment
-	  (and
-	   (not (ew-comment-frag-p (get frag 'prev-frag)))
-	   (not (ew-comment-frag-p (get frag 'next-frag)))))
-      (or ew-permit-sticked-special
-	  (and
-	   (or (ew-comment-frag-p (get frag 'prev-frag))
-	       (not (ew-special-frag-p (get frag 'prev-frag))))
-	   (or (ew-comment-frag-p (get frag 'next-frag))
-	       (not (ew-special-frag-p (get frag 'next-frag))))))
-      (ew-eword-p (symbol-name frag))))
-    ((eq (get frag 'type) 'ew:us-texts)
-     (and
-      (or ew-permit-sticked-special
-	  (not (ew-special-frag-p (get frag 'prev-frag))))
-      (ew-eword-p (symbol-name frag))))
-    (t
-     nil))))
-
-(defun ew-decode-generic (anchor start end
-			  decode-ewords
-			  decode-others
-			  eword gap all)
-  (let ((frag start) (start-others start) type f)
-    (while (not (eq frag end))
-      (setq type (get frag 'type))
-      (cond
-       ((and (memq type eword)
-	     (ew-proper-eword-p frag))
-	(when (not (eq start-others frag))
-	  (funcall decode-others start-others frag))
-	(let ((first frag) (ewords (list frag)))
-	  (while (progn
-		   (setq f (get frag 'next-frag))
-		   (while (and (not (eq f end))
-			       (memq (get f 'type) gap))
-		     (setq f (get f 'next-frag)))
-		   (and (not (eq f end))
-			(ew-proper-eword-p f)))
-	    (setq frag (get frag 'next-frag))
-	    (while (not (eq frag f))
-	      (put frag 'decoded "")
-	      (setq frag (get frag 'next-frag)))
-	    (setq ewords (ew-rcons* ewords f)
-		  frag f))
-	  (funcall decode-ewords
-		   (nreverse ewords)))
-	(setq start-others (get frag 'next-frag)))
-       ((memq type all)
-	nil)
-       (t
-	(error "unexpected token: %s (%s)" frag type)))
-      (setq frag (get frag 'next-frag)))
-    (when (not (eq start-others end))
-      (funcall decode-others start-others end))))
-
-(defun ew-decode-generic-others (start end puncts quotes targets)
-  (let ((frag start) (start-nonpunct start) type buff tmp)
-    (while (not (eq frag end))
-      (setq type (get frag 'type))
-      (cond
-       ((memq type puncts)
-	(when buff
-	  (setq buff (apply 'concat (nreverse buff))
-		tmp (ew-decode-us-ascii buff))
-	  (if (equal buff tmp)
-	      (while (not (eq start-nonpunct frag))
-		(put start-nonpunct 'decoded (symbol-name start-nonpunct))
-		(setq start-nonpunct (get start-nonpunct 'next-frag)))
-	    (progn
-	      (put start-nonpunct 'decoded tmp)
-	      (setq start-nonpunct (get start-nonpunct 'next-frag))
-	      (while (not (eq start-nonpunct frag))
-		(put start-nonpunct 'decoded "")
-		(setq start-nonpunct (get start-nonpunct 'next-frag)))))
-	  (setq buff ()))
-	(put frag 'decoded (symbol-name frag))
-	(setq start-nonpunct (get frag 'next-frag)))
-       ((memq type quotes)
-	(setq buff (ew-rcons* buff
-			      (substring (symbol-name frag) 1))))
-       ((memq type targets)
-	(setq buff (ew-rcons* buff
-			      (symbol-name frag))))
-       (t (error "something wrong: unexpected token: %s (%s)" frag type)))
-      (setq frag (get frag 'next-frag)))
-    (when buff
-      (setq buff (apply 'concat (nreverse buff))
-	    tmp (ew-decode-us-ascii buff))
-      (if (equal buff tmp)
-	  (while (not (eq start-nonpunct frag))
-	    (put start-nonpunct 'decoded (symbol-name start-nonpunct))
-	    (setq start-nonpunct (get start-nonpunct 'next-frag)))
-	(progn
-	  (put start-nonpunct 'decoded tmp)
-	  (setq start-nonpunct (get start-nonpunct 'next-frag))
-	  (while (not (eq start-nonpunct frag))
-	    (put start-nonpunct 'decoded "")
-	    (setq start-nonpunct (get start-nonpunct 'next-frag))))))))
-
-(defun ew-decode-unstructured-ewords (ewords)
-  (while ewords
-    (put (car ewords)
-	 'decoded
-	 (list (ew-decode-eword (symbol-name (car ewords)))))
-    (setq ewords (cdr ewords))))
-
-(defun ew-decode-unstructured-others (start end)
-  (let (strs)
-    (while (not (eq start end))
-      (put start 'decoded "")
-      (setq strs (ew-rcons* strs
-			    (symbol-name start))
-	    start (get start 'next-frag)))
-    (put (get end 'prev-frag)
-	 'decoded
-	 (ew-decode-us-ascii
-	  (apply 'concat (nreverse strs))))))
-
-(defun ew-decode-unstructured (anchor start end)
-  (ew-decode-generic
-   anchor start end
-   'ew-decode-unstructured-ewords
-   'ew-decode-unstructured-others
-   '(ew:us-texts)
-   '(ew:us-wsp
-     ew:us-fold)
-   '(ew:us-texts
-     ew:us-wsp
-     ew:us-fold))
-  (let ((frag end) tmp)
-    (while (not (eq frag start))
-      (setq frag (get frag 'prev-frag)
-	    tmp (cons (get frag 'decoded) tmp))
-      (put frag 'decoded ""))
-    (put start 'decoded (ew-encode-crlf (apply 'ew-quote-concat tmp)))))
-
-(defun ew-decode-phrase-ewords (ewords)
-  (let* ((qs (eq (get (car ewords) 'type) 'ew:qs-texts))
-	 (regexp (if qs "[\\\\\\\"]" "[][()<>@,;:\\\\\\\".\000-\037]"))
-	 has-dangerous-char
-	 tmp decoded)
-    (setq tmp ewords)
-    (while tmp
-      (put (car tmp)
-	   'decoded
-	   (list (setq decoded (ew-decode-eword (symbol-name (car tmp))))))
-      (setq tmp (cdr tmp)
-	    has-dangerous-char (or has-dangerous-char
-				   (string-match regexp decoded))))
-    (when has-dangerous-char
-      (setq tmp ewords)
-      (while tmp
-	(setq decoded (get (car tmp) 'decoded))
-	(setcar decoded (ew-embed-in-quoted-string (car decoded)))
-	(setq tmp (cdr tmp)))
-      (when (not qs)
-	(setq decoded (get (car ewords) 'decoded))
-	(setcar decoded (concat "\"" (car decoded)))
-	(setq decoded (get (car (last ewords)) 'decoded))
-	(setcar decoded (concat (car decoded) "\""))))))
-
-(defun ew-decode-phrase-others (start end)
-  (ew-decode-generic-others
-   start end
-   '(ew:qs-begin
-     ew:qs-end)
-   '(ew:qs-qfold
-     ew:qs-qpair)
-   '(ew:atom
-     ew:wsp
-     ew:fold
-     ew:qs-texts
-     ew:qs-wsp
-     ew:qs-fold)))
-
-(defmacro ew-rotate (var val len)
-  (let ((tmp (make-symbol "tmp")))
-    `(let ((,tmp (nthcdr ,(- len 2) ,var)))
-       (if (cdr ,tmp)
-	   (progn
-	     (setcdr (cdr ,tmp) ,var)
-	     (setq ,var (cdr ,tmp))
-	     (setcdr ,tmp nil))
-	 (setq ,var (cons nil ,var)))
-       (setcar ,var ,val))))
-
-(defun ew-decode-phrase (anchor start end)
-  (ew-decode-generic
-   anchor start end
-   'ew-decode-phrase-ewords
-   'ew-decode-phrase-others
-   (if ew-decode-quoted-encoded-word
-       '(ew:atom ew:qs-texts)
-     '(ew:atom))
-   '(ew:wsp
-     ew:fold
-     ew:qs-wsp
-     ew:qs-fold)
-   '(ew:atom
-     ew:wsp
-     ew:fold
-     ew:qs-begin
-     ew:qs-end
-     ew:qs-texts
-     ew:qs-wsp
-     ew:qs-fold
-     ew:qs-qfold
-     ew:qs-qpair))
-  (let ((frag start) decoded str len idx char
-	chars frags
-	tmp)
-    (while (not (eq frag end))
-      (setq decoded (get frag 'decoded)
-	    str (or (car-safe decoded) decoded)
-	    len (length str)
-	    idx 0)
-      (while (< idx len)
-	(setq char (sref str idx))
-	(ew-rotate chars char 3)
-	(ew-rotate frags frag 3)
-	(when (and (not (memq char '(?\t ?\ )))
-		   (equal (cdr chars) '(?\n ?\r))
-		   (eq (get (setq tmp (nth 2 frags)) 'type) 'ew:qs-qpair)
-		   (eq (symbol-name tmp) (get tmp 'decoded)))
-	  (put tmp 'decoded "\r"))
-	(setq idx (char-next-index char idx)))
-      (setq frag (get frag 'next-frag)))
-    (setq frag end
-	  tmp ())
-    (while (not (eq frag start))
-      (setq frag (get frag 'prev-frag)
-	    tmp (cons (get frag 'decoded) tmp))
-      (put frag 'decoded ""))
-    (put start 'decoded (ew-encode-crlf (apply 'ew-quote-concat tmp)))))
-
-(defun ew-decode-comment-ewords (ewords)
-  (let* ((regexp "[()\\\\]")
-	 has-dangerous-char
-	 tmp decoded)
-    (setq tmp ewords)
-    (while tmp
-      (put (car tmp)
-	   'decoded
-	   (list (setq decoded (ew-decode-eword (symbol-name (car tmp))))))
-      (setq tmp (cdr tmp)
-	    has-dangerous-char (or has-dangerous-char
-				   (string-match regexp decoded))))
-    (when has-dangerous-char
-      (setq tmp ewords)
-      (while tmp
-	(setq decoded (get (car tmp) 'decoded))
-	(setcar decoded (ew-embed-in-comment (car decoded)))
-	(setq tmp (cdr tmp))))))
-
-(defun ew-decode-comment-others (start end)
-  (ew-decode-generic-others
-   start end
-   '()
-   '(ew:cm-qfold
-     ew:cm-qpair)
-   '(ew:cm-texts
-     ew:cm-wsp
-     ew:cm-fold)))
-
-(defun ew-decode-comment (anchor start end)
-  (ew-decode-generic
-   anchor start end
-   'ew-decode-comment-ewords
-   'ew-decode-comment-others
-   '(ew:cm-texts)
-   '(ew:cm-wsp
-     ew:cm-fold)
-   '(ew:cm-texts
-     ew:cm-wsp
-     ew:cm-fold
-     ew:cm-qfold
-     ew:cm-qpair))
-  (let ((frag start) decoded str len idx char
-	chars frags tmp)
-    (while (not (eq frag end))
-      (setq decoded (get frag 'decoded)
-	    str (or (car-safe decoded) decoded)
-	    len (length str)
-	    idx 0)
-      (while (< idx len)
-	(setq char (sref str idx))
-	(ew-rotate chars char 3)
-	(ew-rotate frags frag 3)
-	(when (and (not (memq char '(?\t ?\ )))
-		   (equal (cdr chars) '(?\n ?\r))
-		   (eq (get (setq tmp (nth 2 frags)) 'type) 'ew:cm-qpair)
-		   (eq (symbol-name tmp) (get tmp 'decoded)))
-	  (put tmp 'decoded "\r"))
-	(setq idx (char-next-index char idx)))
-      (setq frag (get frag 'next-frag)))
-    (setq frag end
-	  tmp ())
-    (while (not (eq frag start))
-      (setq frag (get frag 'prev-frag)
-	    tmp (cons (get frag 'decoded) tmp))
-      (put frag 'decoded ""))
-    (put start 'decoded (ew-encode-crlf (apply 'ew-quote-concat tmp)))))
-
-;;;
-
-(defun ew-embed-in-phrase (str)
-  (concat "\"" (ew-embed-in-quoted-string str) "\""))
-
-(defun ew-embed-in-quoted-string (str)
-  (ew-quote-as-quoted-pair str '(?\\ ?\")))
-
-(defun ew-embed-in-comment (str)
-  (ew-quote-as-quoted-pair str '(?\\ ?\( ?\))))
-
-(defun ew-quote-as-quoted-pair (str specials)
-  (let ((i 0) (j 0) (l (length str)) result)
-    (while (< j l)
-      (when (member (aref str j) specials)
-	(setq result (ew-rcons*
-		      result
-		      (substring str i j)
-		      "\\")
-	      i j))
-      (setq j (1+ j)))
-    (when (< i l)
-      (setq result (ew-rcons*
-		    result
-		    (substring str i))))
-    (apply 'concat (nreverse result))))
-
-;;;
-
-(defun ew-contain-non-ascii-p (str)
-  (not (eq (charsets-to-mime-charset (find-charset-string str)) 'us-ascii)))
-
-'(
-
-(ew-decode-field "To" " =?US-ASCII?Q?phrase?= ")
-(ew-decode-field "To" " =?US-ASCII?Q?phrase?= < =?US-ASCII?Q?akr?= @jaist.ac.jp>")
-(ew-decode-field "To" " =?US-ASCII?Q?akr?= @jaist.ac.jp")
-(ew-decode-field "Subject" " =?ISO-2022-JP?B?GyRCJCIbKEI=?=")
-(ew-decode-field "Content-Type" " text/vnd.latex-z(=?US-ASCII?Q?What=3F?=);charset=ISO-2022-JP")
-
-(ew-decode-field "To" " =?US-ASCII?Q?A=22B=5CC?= ")
-(let ((ew-decode-quoted-encoded-word t))
-  (ew-decode-field "To" " \"=?US-ASCII?Q?A=22B=5CC?=\" "))
-
-(ew-decode-field "To" " akr@jaist.ac.jp (=?US-ASCII?Q?=28A=29B=5C?=)")
-
-(ew-decode-field "To" "\"A\\BC\e$B\\\"\\\\\e(B\" ")
-(ew-decode-field "To" "\"A\\BC\" ")
-(ew-decode-field "To" "\"\e\\$\\B\\$\\\"\e\\(\\B\" ")
-
-)
diff --git a/ew-line.el b/ew-line.el
deleted file mode 100644
index 226935a..0000000
--- a/ew-line.el
+++ /dev/null
@@ -1,334 +0,0 @@
-(require 'lex)
-(require 'ew-util)
-(provide 'ew-line)
-
-(put 'ew-crlf-line-generic 'lisp-indent-function 1)
-(put 'ew-crlf-line-convert 'lisp-indent-function 1)
-(put 'ew-lf-line-generic 'lisp-indent-function 1)
-(put 'ew-lf-line-convert 'lisp-indent-function 1)
-
-(defun ew-tab-to-space (str)
-  (let ((i 0) (j 0) (l (length str)) result)
-    (while (< j l)
-      (when (equal (aref str j) ?\t)
-        (setq result (ew-rcons*
-                      result
-                      (substring str i j)
-                      " ")
-              i j))
-      (setq j (1+ j)))
-    (when (< i l)
-      (setq result (ew-rcons*
-                    result
-                    (substring str i))))
-    (apply 'concat (nreverse result))))
-
-(defun ew-lf-to-crlf (str)
-  (let ((i 0) (j 0) (l (length str)) result)
-    (while (< j l)
-      (when (equal (aref str j) ?\n)
-        (setq result (ew-rcons*
-                      result
-                      (substring str i j)
-                      "\r")
-              i j))
-      (setq j (1+ j)))
-    (when (< i l)
-      (setq result (ew-rcons*
-                    result
-                    (substring str i))))
-    (apply 'concat (nreverse result))))
-
-(defun ew-crlf-to-lf (str)
-  (let* ((i 0) (j 0) (l (length str)) (l- (1- l)) result)
-    (while (< j l-)
-      (when (and (equal (aref str j) ?\r)
-		 (equal (aref str (1+ j)) ?\n))
-        (setq result (ew-rcons*
-                      result
-                      (substring str i j))
-	      j (1+ j)
-              i j))
-      (setq j (1+ j)))
-    (when (< i l)
-      (setq result (ew-rcons*
-                    result
-                    (substring str i))))
-    (apply 'concat (nreverse result))))
-
-(defun ew-lf-crlf-to-crlf (str)
-  (let* ((i 0) (j 0) (l (length str)) (l- (1- l)) result)
-    (while (< j l)
-      (cond
-       ((and (< j l-)
-	     (equal (aref str j) ?\r)
-	     (equal (aref str (1+ j)) ?\n))
-	(setq j (1+ j)))
-       ((equal (aref str j) ?\n)
-        (setq result (ew-rcons*
-                      result
-                      (substring str i j)
-		      "\r")
-              i j)))
-      (setq j (1+ j)))
-    (when (< i l)
-      (setq result (ew-rcons*
-                    result
-                    (substring str i))))
-    (apply 'concat (nreverse result))))
-
-(defun ew-crlf-unfold (str)
-  (let* ((i 0) (j 0) (l (length str)) (l- (- l 2)) result)
-    (while (< j l-)
-      (when (and (equal (aref str j) ?\r)
-		 (equal (aref str (1+ j)) ?\n)
-		 (member (aref str (+ j 2)) '(?\t ?\ )))
-        (setq result (ew-rcons*
-                      result
-                      (substring str i j))
-	      j (+ j 2)
-              i j))
-      (setq j (1+ j)))
-    (when (< i l)
-      (setq result (ew-rcons*
-                    result
-                    (substring str i))))
-    (apply 'concat (nreverse result))))
-
-(defun ew-lf-unfold (str)
-  (let* ((i 0) (j 0) (l (length str)) (l- (- l 1)) result)
-    (while (< j l-)
-      (when (and (equal (aref str j) ?\n)
-		 (member (aref str (+ j 1)) '(?\t ?\ )))
-        (setq result (ew-rcons*
-                      result
-                      (substring str i j))
-	      j (+ j 1)
-              i j))
-      (setq j (1+ j)))
-    (when (< i l)
-      (setq result (ew-rcons*
-                    result
-                    (substring str i))))
-    (apply 'concat (nreverse result))))
-
-(defun ew-cut-generic (str chars)
-  (let ((i 0) (j 0) (l (length str)) result)
-    (while (< j l)
-      (when (member (aref str j) chars)
-        (setq result (ew-rcons*
-                      result
-                      (substring str i j))
-              i (1+ j)))
-      (setq j (1+ j)))
-    (when (< i l)
-      (setq result (ew-rcons*
-                    result
-                    (substring str i))))
-    (apply 'concat (nreverse result))))
-
-(defun ew-cut-cr-lf (str)  (ew-cut-generic str '(?\r ?\n)))
-(defun ew-cut-cr (str) (ew-cut-generic str '(?\r)))
-(defun ew-cut-lf (str) (ew-cut-generic str '(?\n)))
-
-(defmacro ew-crlf-generic-define ()
-  (let ((str (make-symbol "str"))
-	(others-fun (make-symbol "others-fun"))
-	(fold-fun (make-symbol "fold-fun"))
-	(nl-fun (make-symbol "nl-fun"))
-	(cr-fun (make-symbol "cr-fun"))
-	(lf-fun (make-symbol "lf-fun"))
-	(p (make-symbol "p"))
-	(q (make-symbol "q"))
-	(r (make-symbol "r")))
-    `(defun ew-crlf-generic
-       (,str ,others-fun ,fold-fun ,nl-fun ,cr-fun ,lf-fun)
-       (let ((,p 0) (,q (length ,str)) ,r)
-	 (while (< ,p ,q)
-	   (setq ,r ,p)
-	   (lex-scan-unibyte ,str ,p ,q
-	     ((+ [^ "\r\n"]) (when ,others-fun (funcall ,others-fun ,r ,p)))
-	     ((?\r ?\n [" \t"]) (when ,fold-fun (funcall ,fold-fun ,r ,p)))
-	     ((?\r ?\n) (when ,nl-fun (funcall ,nl-fun ,r ,p)))
-	     ((?\r) (when ,cr-fun (funcall ,cr-fun ,r ,p)))
-	     ((?\n) (when ,lf-fun (funcall ,lf-fun ,r ,p)))
-	     (() (error "something wrong"))))
-	 ,q))))
-(ew-crlf-generic-define)
-
-(defmacro ew-crlf-line-generic-define ()
-  (let ((str (make-symbol "str"))
-	(others-fun (make-symbol "others-fun"))
-	(fold-fun (make-symbol "fold-fun"))
-	(nl-fun (make-symbol "nl-fun"))
-	(p (make-symbol "p"))
-	(q (make-symbol "q"))
-	(r (make-symbol "r")))
-    `(defun ew-crlf-line-generic
-       (,str ,others-fun ,fold-fun ,nl-fun)
-       (let ((,p 0) (,q (length ,str)) ,r)
-	 (while (< ,p ,q)
-	   (setq ,r ,p)
-	   (lex-scan-unibyte ,str ,p ,q
-	     (() (error "something wrong"))
-	     (((* [^ "\r"])
-	       (* (+ ?\r) [^ "\r\n"] (* [^ "\r"]))
-	       (* ?\r)
-	       (?\r ?\n [" \t"]))
-	      (when (and ,others-fun (< ,r (- ,p 3))) (funcall ,others-fun ,r (- ,p 3)))
-	      (when ,fold-fun (funcall ,fold-fun (- ,p 3) ,p)))
-	     (((* [^ "\r"])
-	       (* (+ ?\r) [^ "\r\n"] (* [^ "\r"]))
-	       (* ?\r)
-	       (?\r ?\n))
-	      (when (and ,others-fun (< ,r (- ,p 2))) (funcall ,others-fun ,r (- ,p 2)))
-	      (when ,nl-fun (funcall ,nl-fun (- ,p 2) ,p)))
-	     (((* [^ "\r"])
-	       (* (+ ?\r) [^ "\r\n"] (* [^ "\r"]))
-	       (* ?\r))
-	      (when ,others-fun (funcall ,others-fun ,r ,p)))))
-	 ,q))))
-(ew-crlf-line-generic-define)
-
-(defmacro ew-lf-generic-define ()
-  (let ((str (make-symbol "str"))
-	(others-fun (make-symbol "others-fun"))
-	(fold-fun (make-symbol "fold-fun"))
-	(nl-fun (make-symbol "nl-fun"))
-	(cr-fun (make-symbol "cr-fun"))
-	(p (make-symbol "p"))
-	(q (make-symbol "q"))
-	(r (make-symbol "r")))
-    `(defun ew-lf-generic
-       (,str ,others-fun ,fold-fun ,nl-fun ,cr-fun)
-       (let ((,p 0) (,q (length ,str)) ,r)
-	 (while (< ,p ,q)
-	   (setq ,r ,p)
-	   (lex-scan-unibyte ,str ,p ,q
-	     ((+ [^ "\r\n"]) (when ,others-fun (funcall ,others-fun ,r ,p)))
-	     ((?\n [" \t"]) (when ,fold-fun (funcall ,fold-fun ,r ,p)))
-	     ((?\n) (when ,nl-fun (funcall ,nl-fun ,r ,p)))
-	     ((?\r) (when ,cr-fun (funcall ,cr-fun ,r ,p)))
-	     (() (error "something wrong"))))
-	 ,q))))
-(ew-lf-generic-define)
-
-(defmacro ew-lf-line-generic-define ()
-  (let ((str (make-symbol "str"))
-	(others-fun (make-symbol "others-fun"))
-	(fold-fun (make-symbol "fold-fun"))
-	(nl-fun (make-symbol "nl-fun"))
-	(p (make-symbol "p"))
-	(q (make-symbol "q"))
-	(r (make-symbol "r")))
-    `(defun ew-lf-line-generic
-       (,str ,others-fun ,fold-fun ,nl-fun)
-       (let ((,p 0) (,q (length ,str)) ,r)
-	 (while (< ,p ,q)
-	   (setq ,r ,p)
-	   (lex-scan-unibyte ,str ,p ,q
-	     (() (error "something wrong"))
-	     ((+ [^ "\n"])
-	      (when ,others-fun (funcall ,others-fun ,r ,p)))
-	     ((?\n [" \t"])
-	      (when ,fold-fun (funcall ,fold-fun ,r ,p)))
-	     (?\n
-	      (when ,nl-fun (funcall ,nl-fun ,r ,p)))))
-	 ,q))))
-(ew-lf-line-generic-define)
-
-(defmacro ew-generic-convert-define (name generic &rest funcs)
-  (let ((str (make-symbol "str"))
-	(funcs-vars (mapcar (lambda (func) (make-symbol (symbol-name func))) funcs))
-	(index (make-symbol "index"))
-	(result (make-symbol "result"))
-	(tmp (make-symbol "tmp"))
-	(start (make-symbol "starx"))
-	(end (make-symbol "end")))
-    `(defun ,name
-       (,str ,@funcs-vars)
-       (let ((,index 0) ,result ,tmp)
-	 (when (> (,generic
-		   ,str
-		   ,@(mapcar
-		      (lambda (fun)
-			`(when ,fun
-			   (lambda (,start ,end)
-			     (setq ,tmp (funcall ,fun (substring ,str ,start ,end)))
-			     (when ,tmp
-			       (when (< ,index ,start)
-				 (setq ,result
-				       (ew-rcons* ,result
-						  (substring ,str ,index ,start))))
-			       (setq ,result (ew-rcons* ,result ,tmp)
-				     ,index ,end)))))
-		      funcs-vars))
-		  ,index)
-	   (setq ,result
-		 (ew-rcons* ,result
-			    (substring ,str ,index))))
-	 (apply 'concat (nreverse ,result))))))
-(ew-generic-convert-define ew-crlf-convert ew-crlf-generic others-fun fold-fun nl-fun cr-fun lf-fun)
-(ew-generic-convert-define ew-crlf-line-convert ew-crlf-line-generic others-fun fold-fun nl-fun)
-(ew-generic-convert-define ew-lf-convert ew-lf-generic others-fun fold-fun nl-fun cr-fun)
-(ew-generic-convert-define ew-lf-line-convert ew-lf-line-generic others-fun fold-fun nl-fun)
-
-(defmacro ew-fold-define (name convert nl)
-  `(defun ,name (str start-column line-length)
-     (let ((column start-column))
-       (,convert str
-         (lambda (line)
-	   (let ((start 0)
-		 (end (length line))
-		 result tmp fold width)
-	     (while (and (< start end)
-			 (progn
-			   (when (<= column 1)
-			     (setq tmp (sref line start)
-				   result (ew-rcons* result (char-to-string tmp))
-				   column (+ column (char-width tmp))
-				   start (char-next-index tmp start)))
-			   (string-match "[ \t]" line start)))
-	       (setq tmp (substring line start (match-beginning 0))
-		     width (string-width tmp)
-		     result (ew-rcons* result tmp)
-		     column (+ column width)
-		     start (match-beginning 0))
-	       (if (<= line-length column)
-		   (progn
-		     (when (and fold (not (= line-length column)))
-		       (setcdr fold (cons (car fold) (cdr fold)))
-		       (setcar fold ,nl)
-		       (setq column (+ width
-				       (if (eq (cdr result) fold)
-					   0
-					 (string-width (cadr result))))))
-		     (if (<= line-length column)
-			 (setq result (ew-rcons* result ,nl)
-			       column 0
-			       fold nil)
-		       (setq fold result)))
-		 (setq fold result))
-	       (setq tmp (sref line (match-beginning 0))
-		     result (ew-rcons* result (char-to-string tmp))
-		     column (+ column (char-width tmp))
-		     start (match-end 0)))
-	     (when (< start end)
-	       (setq tmp (substring line start)
-		     result (ew-rcons* result tmp)
-		     column (+ column (string-width tmp))))
-	     (when (and (< line-length column) fold)
-	       (setcdr fold (cons (car fold) (cdr fold)))
-	       (setcar fold ,nl))
-	     (apply 'concat (nreverse result))))
-	 (lambda (fold) (setq column 1) nil)
-	 (lambda (nl) (setq column 0) nil)))))
-
-(ew-fold-define ew-crlf-fold ew-crlf-line-convert "\r\n")
-(ew-fold-define ew-lf-fold ew-crlf-line-convert "\n")
-
-(defun ew-crlf-refold (string start-column line-length)
-  (ew-crlf-fold (ew-crlf-unfold string) start-column line-length))
-
-(defun ew-lf-refold (string start-column line-length)
-  (ew-lf-fold (ew-lf-unfold string) start-column line-length))
diff --git a/ew-parse.el b/ew-parse.el
deleted file mode 100644
index b439926..0000000
--- a/ew-parse.el
+++ /dev/null
@@ -1,796 +0,0 @@
-; *** Header ***
-(provide 'ew-parse)
-(require 'ew-data)
-(require 'lr-driver)
-
-; *** Token Definitions ***
-(defconst ew:*eoi*	0)
-(defconst ew:*anchor*	1)
-(defconst ew:*err*	2)
-(defconst ew:tag-mailbox	3)
-(defconst ew:tag-mailbox*	4)
-(defconst ew:tag-mailbox+	5)
-(defconst ew:tag-address*	6)
-(defconst ew:tag-address+	7)
-(defconst ew:tag-phrase*	8)
-(defconst ew:tag-phrase-msg-id*	9)
-(defconst ew:lt	10)
-(defconst ew:gt	11)
-(defconst ew:at	12)
-(defconst ew:comma	13)
-(defconst ew:semicolon	14)
-(defconst ew:colon	15)
-(defconst ew:dot	16)
-(defconst ew:atom	17)
-(defconst ew:slash	18)
-(defconst ew:question	19)
-(defconst ew:equal	20)
-(defconst ew:token	21)
-(defconst ew:qs-begin	22)
-(defconst ew:qs-end	23)
-(defconst ew:qs-texts	24)
-(defconst ew:qs-wsp	25)
-(defconst ew:qs-fold	26)
-(defconst ew:qs-qfold	27)
-(defconst ew:qs-qpair	28)
-(defconst ew:dl-begin	29)
-(defconst ew:dl-end	30)
-(defconst ew:dl-texts	31)
-(defconst ew:dl-wsp	32)
-(defconst ew:dl-fold	33)
-(defconst ew:dl-qfold	34)
-(defconst ew:dl-qpair	35)
-(defconst ew:cm-begin	36)
-(defconst ew:cm-end	37)
-(defconst ew:cm-nested-begin	38)
-(defconst ew:cm-nested-end	39)
-(defconst ew:cm-texts	40)
-(defconst ew:cm-wsp	41)
-(defconst ew:cm-fold	42)
-(defconst ew:cm-qfold	43)
-(defconst ew:cm-qpair	44)
-(defconst ew:wsp	45)
-(defconst ew:fold	46)
-(defconst ew:us-texts	47)
-(defconst ew:us-wsp	48)
-(defconst ew:us-fold	49)
-
-(defconst ew:token-defs
-  (list 
-   (cons 0 "*eoi*")
-   (cons 1 "*anchor*")
-   (cons 2 "*err*")
-   (cons 3 "tag-mailbox")
-   (cons 4 "tag-mailbox*")
-   (cons 5 "tag-mailbox+")
-   (cons 6 "tag-address*")
-   (cons 7 "tag-address+")
-   (cons 8 "tag-phrase*")
-   (cons 9 "tag-phrase-msg-id*")
-   (cons 10 "lt")
-   (cons 11 "gt")
-   (cons 12 "at")
-   (cons 13 "comma")
-   (cons 14 "semicolon")
-   (cons 15 "colon")
-   (cons 16 "dot")
-   (cons 17 "atom")
-   (cons 18 "slash")
-   (cons 19 "question")
-   (cons 20 "equal")
-   (cons 21 "token")
-   (cons 22 "qs-begin")
-   (cons 23 "qs-end")
-   (cons 24 "qs-texts")
-   (cons 25 "qs-wsp")
-   (cons 26 "qs-fold")
-   (cons 27 "qs-qfold")
-   (cons 28 "qs-qpair")
-   (cons 29 "dl-begin")
-   (cons 30 "dl-end")
-   (cons 31 "dl-texts")
-   (cons 32 "dl-wsp")
-   (cons 33 "dl-fold")
-   (cons 34 "dl-qfold")
-   (cons 35 "dl-qpair")
-   (cons 36 "cm-begin")
-   (cons 37 "cm-end")
-   (cons 38 "cm-nested-begin")
-   (cons 39 "cm-nested-end")
-   (cons 40 "cm-texts")
-   (cons 41 "cm-wsp")
-   (cons 42 "cm-fold")
-   (cons 43 "cm-qfold")
-   (cons 44 "cm-qpair")
-   (cons 45 "wsp")
-   (cons 46 "fold")
-   (cons 47 "us-texts")
-   (cons 48 "us-wsp")
-   (cons 49 "us-fold")
-  ))
-
-; *** Action Table ***
-(defconst ew:action-table
-  [
-     ((default . *error*) (3 . 7) (4 . 6) (5 . 5) (6 . 4) (7 . 3) (8 . 2) (9 . 1))
-     ((default . -61))
-     ((default . -61))
-     ((default . -61))
-     ((default . -61))
-     ((default . -61))
-     ((default . -61))
-     ((default . -61))
-     ((default . *error*) (0 . 16))
-     ((default . -51) (17 . 21) (22 . 20) (36 . 19) (45 . 18) (46 . 17))
-     ((default . -53) (17 . 21) (22 . 20) (36 . 19) (45 . 18) (46 . 17))
-     ((default . *error*) (10 . 34) (17 . 21) (22 . 20) (36 . 19) (45 . 18) (46 . 17))
-     ((default . -9) (10 . 34) (17 . 21) (22 . 20) (36 . 19) (45 . 18) (46 . 17))
-     ((default . *error*) (10 . 34) (17 . 21) (22 . 20) (36 . 19) (45 . 18) (46 . 17))
-     ((default . -30) (10 . 34) (17 . 21) (22 . 20) (36 . 19) (45 . 18) (46 . 17))
-     ((default . *error*) (10 . 34) (17 . 21) (22 . 20) (36 . 19) (45 . 18) (46 . 17))
-     ((default . -1) (0 . accept))
-     ((default . -63))
-     ((default . -62))
-     ((default . -90))
-     ((default . -76))
-     ((default . -61))
-     ((default . -64))
-     ((default . -61))
-     ((default . -48))
-     ((default . -49))
-     ((default . -8) (10 . 34))
-     ((default . -57))
-     ((default . -37))
-     ((default . -36) (17 . 21) (22 . 20))
-     ((default . -52))
-     ((default . -54) (13 . 60))
-     ((default . -7))
-     ((default . -55))
-     ((default . -61))
-     ((default . -43) (12 . 63))
-     ((default . -37) (16 . -25) (12 . -25))
-     ((default . -29))
-     ((default . *error*) (10 . 34) (15 . 68))
-     ((default . -13))
-     ((default . *error*) (12 . 63) (16 . 71))
-     ((default . -14))
-     ((default . -27))
-     ((default . -11))
-     ((default . -6) (13 . 60))
-     ((default . -10) (13 . 60))
-     ((default . -5))
-     ((default . *error*) (10 . 34))
-     ((default . -4) (13 . 60))
-     ((default . -32))
-     ((default . -31) (13 . 60))
-     ((default . -3))
-     ((default . -2))
-     ((default . *error*) (37 . 83) (38 . 82) (39 . 81) (40 . 80) (41 . 79) (42 . 78) (43 . 77) (44 . 76))
-     ((default . *error*) (23 . 89) (24 . 88) (25 . 87) (26 . 86) (27 . 85) (28 . 84))
-     ((default . -74) (36 . 19) (45 . 18) (46 . 17))
-     ((default . -72) (36 . 19) (45 . 18) (46 . 17))
-     ((default . *error*) (17 . 21) (22 . 20))
-     ((default . -51) (17 . 21) (22 . 20))
-     ((default . -38))
-     ((default . -61))
-     ((default . *error*) (17 . 21) (22 . 20))
-     ((default . -65) (36 . 19) (45 . 18) (46 . 17))
-     ((default . -61))
-     ((default . *error*) (17 . 21) (29 . 96))
-     ((default . *error*) (17 . 21) (22 . 20))
-     ((default . *error*) (13 . 60) (15 . 68))
-     ((default . -44))
-     ((default . -61))
-     ((default . -30) (10 . 34) (17 . 21) (22 . 20))
-     ((default . -28))
-     ((default . -61))
-     ((default . *error*) (17 . 21) (22 . 20))
-     ((default . *error*) (17 . 21) (29 . 96))
-     ((default . *error*) (10 . 34) (17 . 21) (22 . 20))
-     ((default . *error*) (10 . 34) (17 . 21) (22 . 20))
-     ((default . -97))
-     ((default . -96))
-     ((default . -95))
-     ((default . -94))
-     ((default . -93))
-     ((default . -92))
-     ((default . -91))
-     ((default . -89))
-     ((default . -81))
-     ((default . -80))
-     ((default . -79))
-     ((default . -78))
-     ((default . -77))
-     ((default . -75))
-     ((default . -25))
-     ((default . *error*) (11 . 113))
-     ((default . -58))
-     ((default . -68) (36 . 19) (45 . 18) (46 . 17))
-     ((default . -56))
-     ((default . -67) (36 . 19) (45 . 18) (46 . 17))
-     ((default . -83))
-     ((default . -61))
-     ((default . -21))
-     ((default . -46))
-     ((default . -19))
-     ((default . -45))
-     ((default . -40) (16 . 71))
-     ((default . *error*) (11 . 113))
-     ((default . -39))
-     ((default . *error*) (12 . 63))
-     ((default . -70) (36 . 19) (45 . 18) (46 . 17))
-     ((default . *error*) (14 . 120))
-     ((default . -71) (36 . 19) (45 . 18) (46 . 17))
-     ((default . -26))
-     ((default . -15) (16 . 71))
-     ((default . -12))
-     ((default . -33))
-     ((default . -61))
-     ((default . -35))
-     ((default . *error*) (30 . 128) (31 . 127) (32 . 126) (33 . 125) (34 . 124) (35 . 123))
-     ((default . -73) (36 . 19) (45 . 18) (46 . 17))
-     ((default . *error*) (17 . 21) (29 . 96))
-     ((default . -42))
-     ((default . *error*) (17 . 21) (29 . 96))
-     ((default . -61))
-     ((default . -22))
-     ((default . -66) (36 . 19) (45 . 18) (46 . 17))
-     ((default . -88))
-     ((default . -87))
-     ((default . -86))
-     ((default . -85))
-     ((default . -84))
-     ((default . -82))
-     ((default . -20))
-     ((default . -41) (16 . 71))
-     ((default . -69) (36 . 19) (45 . 18) (46 . 17))
-    ])
-
-; *** Goto Table ***
-(defconst ew:goto-table
-  [
-     ((1 . 8))
-     ((33 . 9))
-     ((33 . 10))
-     ((33 . 11))
-     ((33 . 12))
-     ((33 . 13))
-     ((33 . 14))
-     ((33 . 15))
-     ()
-     ((48 . 22)(44 . 23)(43 . 24)(41 . 25)(31 . 26)(28 . 27)(26 . 28)(19 . 29)(18 . 30))
-     ((48 . 22)(44 . 23)(43 . 24)(41 . 25)(30 . 31)(29 . 32)(26 . 28)(19 . 29)(18 . 33))
-     ((48 . 22)(44 . 23)(43 . 24)(41 . 25)(34 . 35)(26 . 36)(22 . 37)(19 . 29)(18 . 38)(13 . 39)(12 . 40)(10 . 41)(5 . 42)(4 . 43)(3 . 44))
-     ((48 . 22)(44 . 23)(43 . 24)(41 . 25)(34 . 35)(26 . 36)(22 . 37)(19 . 29)(18 . 38)(13 . 39)(12 . 40)(10 . 41)(5 . 42)(4 . 43)(3 . 45)(2 . 46))
-     ((48 . 22)(44 . 23)(43 . 24)(41 . 25)(34 . 35)(26 . 36)(22 . 37)(19 . 29)(18 . 47)(15 . 48)(13 . 49)(12 . 40)(5 . 42))
-     ((48 . 22)(44 . 23)(43 . 24)(41 . 25)(34 . 35)(26 . 36)(22 . 37)(19 . 29)(18 . 47)(15 . 50)(14 . 51)(13 . 49)(12 . 40)(5 . 42))
-     ((48 . 22)(44 . 23)(43 . 24)(41 . 25)(34 . 35)(26 . 36)(22 . 37)(19 . 29)(18 . 47)(13 . 52)(12 . 40)(5 . 42))
-     ()
-     ()
-     ()
-     ((49 . 53))
-     ((45 . 54))
-     ((33 . 55))
-     ()
-     ((33 . 56))
-     ()
-     ()
-     ((34 . 57)(17 . 58))
-     ()
-     ()
-     ((44 . 23)(43 . 24)(41 . 25)(26 . 59))
-     ()
-     ((37 . 61))
-     ()
-     ()
-     ((33 . 62))
-     ((36 . 64)(23 . 65)(21 . 66)(20 . 67))
-     ()
-     ()
-     ((39 . 69)(34 . 35)(22 . 70))
-     ()
-     ((40 . 72)(36 . 73))
-     ()
-     ()
-     ()
-     ((37 . 74))
-     ((37 . 74))
-     ()
-     ((34 . 35)(22 . 70))
-     ((37 . 75))
-     ()
-     ((37 . 75))
-     ()
-     ()
-     ()
-     ()
-     ((48 . 22))
-     ((48 . 22))
-     ((44 . 23)(43 . 24)(41 . 25)(26 . 90)(12 . 40)(5 . 91))
-     ((44 . 23)(43 . 24)(41 . 25)(28 . 92)(26 . 28)(19 . 29)(18 . 30))
-     ()
-     ((33 . 93))
-     ((44 . 23)(43 . 24)(41 . 25)(26 . 28)(19 . 29)(18 . 94))
-     ((48 . 22))
-     ((33 . 95))
-     ((46 . 97)(43 . 98)(42 . 99)(24 . 100)(9 . 101)(8 . 102))
-     ((44 . 23)(43 . 24)(41 . 25)(26 . 90)(12 . 40)(5 . 103))
-     ((39 . 104)(37 . 105))
-     ()
-     ((33 . 106))
-     ((44 . 23)(43 . 24)(41 . 25)(34 . 35)(26 . 36)(22 . 37)(19 . 29)(18 . 47)(15 . 50)(14 . 107)(13 . 49)(12 . 40)(5 . 42))
-     ()
-     ((33 . 108))
-     ((44 . 23)(43 . 24)(41 . 25)(26 . 109))
-     ((46 . 97)(43 . 98)(42 . 99)(24 . 100)(9 . 101)(8 . 110))
-     ((44 . 23)(43 . 24)(41 . 25)(34 . 35)(26 . 36)(22 . 37)(19 . 29)(18 . 38)(13 . 39)(12 . 40)(10 . 41)(5 . 42)(4 . 111))
-     ((44 . 23)(43 . 24)(41 . 25)(34 . 35)(26 . 36)(22 . 37)(19 . 29)(18 . 47)(13 . 112)(12 . 40)(5 . 42))
-     ()
-     ()
-     ()
-     ()
-     ()
-     ()
-     ()
-     ()
-     ()
-     ()
-     ()
-     ()
-     ()
-     ()
-     ()
-     ((35 . 114))
-     ()
-     ((48 . 22))
-     ()
-     ((48 . 22))
-     ((47 . 115))
-     ((33 . 116))
-     ()
-     ()
-     ()
-     ()
-     ((40 . 117))
-     ((35 . 118))
-     ()
-     ((36 . 119))
-     ((48 . 22))
-     ((38 . 121))
-     ((48 . 22))
-     ()
-     ((40 . 117))
-     ()
-     ()
-     ((33 . 122))
-     ()
-     ()
-     ((48 . 22))
-     ((46 . 97)(43 . 98)(42 . 99)(24 . 129)(9 . 101))
-     ()
-     ((46 . 97)(43 . 98)(42 . 99)(24 . 100)(9 . 101)(8 . 130))
-     ((33 . 131))
-     ()
-     ((48 . 22))
-     ()
-     ()
-     ()
-     ()
-     ()
-     ()
-     ()
-     ((40 . 117))
-     ((48 . 22))
-    ])
-
-; *** Reduction Table ***
-(defconst ew:reduction-table
-  (vector
-    '()
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (accept $1)))
-    (lambda (stack sp goto-table $look)
-      (let* (($3 (aref stack (- sp 1)))
-             ($2 (aref stack (- sp 3)))
-             ($1 (aref stack (- sp 5))))
-          (lr-push stack (- sp 6) 1 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($3 (aref stack (- sp 1)))
-             ($2 (aref stack (- sp 3)))
-             ($1 (aref stack (- sp 5))))
-          (lr-push stack (- sp 6) 1 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($3 (aref stack (- sp 1)))
-             ($2 (aref stack (- sp 3)))
-             ($1 (aref stack (- sp 5))))
-          (lr-push stack (- sp 6) 1 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($3 (aref stack (- sp 1)))
-             ($2 (aref stack (- sp 3)))
-             ($1 (aref stack (- sp 5))))
-          (lr-push stack (- sp 6) 1 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($3 (aref stack (- sp 1)))
-             ($2 (aref stack (- sp 3)))
-             ($1 (aref stack (- sp 5))))
-          (lr-push stack (- sp 6) 1 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($3 (aref stack (- sp 1)))
-             ($2 (aref stack (- sp 3)))
-             ($1 (aref stack (- sp 5))))
-          (lr-push stack (- sp 6) 1 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($3 (aref stack (- sp 1)))
-             ($2 (aref stack (- sp 3)))
-             ($1 (aref stack (- sp 5))))
-          (lr-push stack (- sp 6) 1 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* ()
-          (lr-push stack (- sp 0) 2 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($1 (aref stack (- sp 1))))
-          (lr-push stack (- sp 2) 2 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($1 (aref stack (- sp 1))))
-          (lr-push stack (- sp 2) 3 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($3 (aref stack (- sp 1)))
-             ($2 (aref stack (- sp 3)))
-             ($1 (aref stack (- sp 5))))
-          (lr-push stack (- sp 6) 3 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($1 (aref stack (- sp 1))))
-          (lr-push stack (- sp 2) 4 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($1 (aref stack (- sp 1))))
-          (lr-push stack (- sp 2) 4 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($3 (aref stack (- sp 1)))
-             ($2 (aref stack (- sp 3)))
-             ($1 (aref stack (- sp 5))))
-          (lr-push stack (- sp 6) 5 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($3 (aref stack (- sp 1)))
-             ($2 (aref stack (- sp 3)))
-             ($1 (aref stack (- sp 5))))
-          (lr-push stack (- sp 6) 6 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($4 (aref stack (- sp 1)))
-             ($3 (aref stack (- sp 3)))
-             ($2 (aref stack (- sp 5)))
-             ($1 (aref stack (- sp 7))))
-          (lr-push stack (- sp 8) 7 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 7 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($1 (aref stack (- sp 1))))
-          (lr-push stack (- sp 2) 8 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($3 (aref stack (- sp 1)))
-             ($2 (aref stack (- sp 3)))
-             ($1 (aref stack (- sp 5))))
-          (lr-push stack (- sp 6) 8 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($1 (aref stack (- sp 1))))
-          (lr-push stack (- sp 2) 9 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($4 (aref stack (- sp 1)))
-             ($3 (aref stack (- sp 3)))
-             ($2 (aref stack (- sp 5)))
-             ($1 (aref stack (- sp 7))))
-          (lr-push stack (- sp 8) 10 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($3 (aref stack (- sp 1)))
-             ($2 (aref stack (- sp 3)))
-             ($1 (aref stack (- sp 5))))
-          (lr-push stack (- sp 6) 11 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($5 (aref stack (- sp 1)))
-             ($4 (aref stack (- sp 3)))
-             ($3 (aref stack (- sp 5)))
-             ($2 (aref stack (- sp 7)))
-             ($1 (aref stack (- sp 9))))
-          (lr-push stack (- sp 10) 11 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($1 (aref stack (- sp 1))))
-          (lr-push stack (- sp 2) 12 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($3 (aref stack (- sp 1)))
-             ($2 (aref stack (- sp 3)))
-             ($1 (aref stack (- sp 5))))
-          (lr-push stack (- sp 6) 12 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($1 (aref stack (- sp 1))))
-          (lr-push stack (- sp 2) 13 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 13 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($1 (aref stack (- sp 1))))
-          (lr-push stack (- sp 2) 13 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* ()
-          (lr-push stack (- sp 0) 14 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($1 (aref stack (- sp 1))))
-          (lr-push stack (- sp 2) 14 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($1 (aref stack (- sp 1))))
-          (lr-push stack (- sp 2) 15 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($3 (aref stack (- sp 1)))
-             ($2 (aref stack (- sp 3)))
-             ($1 (aref stack (- sp 5))))
-          (lr-push stack (- sp 6) 15 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($1 (aref stack (- sp 1))))
-          (lr-push stack (- sp 2) 16 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($3 (aref stack (- sp 1)))
-             ($2 (aref stack (- sp 3)))
-             ($1 (aref stack (- sp 5))))
-          (lr-push stack (- sp 6) 17 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($1 (aref stack (- sp 1))))
-          (lr-push stack (- sp 2) 18 goto-table (ew-mark-phrase $1 $look))))
-    (lambda (stack sp goto-table $look)
-      (let* (($1 (aref stack (- sp 1))))
-          (lr-push stack (- sp 2) 19 goto-table $1)))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 19 goto-table $1)))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 20 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 21 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($4 (aref stack (- sp 1)))
-             ($3 (aref stack (- sp 3)))
-             ($2 (aref stack (- sp 5)))
-             ($1 (aref stack (- sp 7))))
-          (lr-push stack (- sp 8) 21 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($4 (aref stack (- sp 1)))
-             ($3 (aref stack (- sp 3)))
-             ($2 (aref stack (- sp 5)))
-             ($1 (aref stack (- sp 7))))
-          (lr-push stack (- sp 8) 22 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* ()
-          (lr-push stack (- sp 0) 23 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($1 (aref stack (- sp 1))))
-          (lr-push stack (- sp 2) 23 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($1 (aref stack (- sp 1))))
-          (lr-push stack (- sp 2) 24 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($1 (aref stack (- sp 1))))
-          (lr-push stack (- sp 2) 24 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 25 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($1 (aref stack (- sp 1))))
-          (lr-push stack (- sp 2) 26 goto-table $1)))
-    (lambda (stack sp goto-table $look)
-      (let* (($1 (aref stack (- sp 1))))
-          (lr-push stack (- sp 2) 26 goto-table $1)))
-    (lambda (stack sp goto-table $look)
-      (let* (($1 (aref stack (- sp 1))))
-          (lr-push stack (- sp 2) 27 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* ()
-          (lr-push stack (- sp 0) 28 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($1 (aref stack (- sp 1))))
-          (lr-push stack (- sp 2) 28 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* ()
-          (lr-push stack (- sp 0) 29 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($1 (aref stack (- sp 1))))
-          (lr-push stack (- sp 2) 29 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($1 (aref stack (- sp 1))))
-          (lr-push stack (- sp 2) 30 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($3 (aref stack (- sp 1)))
-             ($2 (aref stack (- sp 3)))
-             ($1 (aref stack (- sp 5))))
-          (lr-push stack (- sp 6) 30 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($1 (aref stack (- sp 1))))
-          (lr-push stack (- sp 2) 31 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($3 (aref stack (- sp 1)))
-             ($2 (aref stack (- sp 3)))
-             ($1 (aref stack (- sp 5))))
-          (lr-push stack (- sp 6) 31 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($1 (aref stack (- sp 1))))
-          (lr-push stack (- sp 2) 32 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($3 (aref stack (- sp 1)))
-             ($2 (aref stack (- sp 3)))
-             ($1 (aref stack (- sp 5))))
-          (lr-push stack (- sp 6) 32 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* ()
-          (lr-push stack (- sp 0) 33 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 33 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 33 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 33 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 34 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 35 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 36 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 37 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 38 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 39 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 40 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 41 goto-table $1)))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 42 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 43 goto-table $1)))
-    (lambda (stack sp goto-table $look)
-      (let* (($3 (aref stack (- sp 1)))
-             ($2 (aref stack (- sp 3)))
-             ($1 (aref stack (- sp 5))))
-          (lr-push stack (- sp 6) 44 goto-table $1)))
-    (lambda (stack sp goto-table $look)
-      (let* ()
-          (lr-push stack (- sp 0) 45 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 45 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 45 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 45 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 45 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 45 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($3 (aref stack (- sp 1)))
-             ($2 (aref stack (- sp 3)))
-             ($1 (aref stack (- sp 5))))
-          (lr-push stack (- sp 6) 46 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* ()
-          (lr-push stack (- sp 0) 47 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 47 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 47 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 47 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 47 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 47 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($3 (aref stack (- sp 1)))
-             ($2 (aref stack (- sp 3)))
-             ($1 (aref stack (- sp 5))))
-          (lr-push stack (- sp 6) 48 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* ()
-          (lr-push stack (- sp 0) 49 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 49 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 49 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 49 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 49 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 49 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 49 goto-table ())))
-    (lambda (stack sp goto-table $look)
-      (let* (($2 (aref stack (- sp 1)))
-             ($1 (aref stack (- sp 3))))
-          (lr-push stack (- sp 4) 49 goto-table ())))
-  ))
-
-; *** Parser Definition ***
-(defun ew-parse(scanner errorhandler)
-  (lr-parse scanner errorhandler 
-    ew:action-table
-    ew:goto-table
-    ew:reduction-table
-    ew:token-defs))
-
-; *** Footer ***
-(put 'ew:cm-texts 'decode 'ew-decode-comment)
-(put 'ew:cm-wsp 'decode 'ew-decode-comment)
-(put 'ew:cm-fold 'decode 'ew-decode-comment)
-(put 'ew:cm-qfold 'decode 'ew-decode-comment)
-(put 'ew:cm-qpair 'decode 'ew-decode-comment)
-(put 'ew:us-texts 'decode 'ew-decode-unstructured)
-(put 'ew:us-wsp 'decode 'ew-decode-unstructured)
-(put 'ew:us-fold 'decode 'ew-decode-unstructured)
-
-
diff --git a/ew-parse.scm b/ew-parse.scm
deleted file mode 100644
index ddb0074..0000000
--- a/ew-parse.scm
+++ /dev/null
@@ -1,182 +0,0 @@
-(define field-grammar
-'(
-; Terminal symbols
-*anchor*
-*err*
-
-tag-mailbox
-tag-mailbox*
-tag-mailbox+
-tag-address*
-tag-address+
-tag-phrase*
-tag-phrase-msg-id*
-
-;; S : STD11 structured field
-;; M : MIME structured field
-;; U : Unstructured field
-
-lt              ; S/M
-gt              ; S/M
-at              ; S/M
-comma           ; S/M
-semicolon       ; S/M
-colon           ; S/M
-
-dot             ; S
-atom            ; S
-
-slash           ; M
-question        ; M
-equal           ; M
-token           ; M
-
-qs-begin        ; S/M
-qs-end          ; S/M
-qs-texts        ; S/M
-qs-wsp          ; S/M
-qs-fold         ; S/M
-qs-qfold        ; S/M
-qs-qpair        ; S/M
-
-dl-begin        ; S/M
-dl-end          ; S/M
-dl-texts        ; S/M
-dl-wsp          ; S/M
-dl-fold         ; S/M
-dl-qfold        ; S/M
-dl-qpair        ; S/M
-
-cm-begin        ; S/M
-cm-end          ; S/M
-cm-nested-begin ; S/M
-cm-nested-end   ; S/M
-cm-texts        ; S/M
-cm-wsp          ; S/M
-cm-fold         ; S/M
-cm-qfold        ; S/M
-cm-qpair        ; S/M
-
-wsp             ; S/M
-fold            ; S/M
-
-us-texts        ; U
-us-wsp          ; U
-us-fold         ; U
-
-; Productions
-(start (tag-mailbox gap mailbox)                  : ()
-  (tag-mailbox* gap mailbox*)                     : ()
-  (tag-mailbox+ gap mailbox+)                     : ()
-  (tag-address* gap address*)                     : ()
-  (tag-address+ gap address+)                     : ()
-  (tag-phrase* gap phrase*)                       : ()
-  (tag-phrase-msg-id* gap phrase-msg-id*)         : ())
-(address* ()                                      : ()
-  (address+)                                      : ())
-(address+ (address)                               : ()
-  (address+ comma-gap address)                    : ())
-(address (mailbox)                                : ()
-  (group)                                         : ())
-(addr-spec (local-part at-gap domain)             : ())
-(date (atom-gap atom-gap atom-gap)                : ())
-(date-time (atom-gap comma-gap date time)         : ()
-  (date time)                                     : ())
-(domain (sub-domain)                              : ()
-  (domain dot-gap sub-domain)                     : ())
-(domain-ref (atom-gap)                            : ())
-(group (phrase colon-gap mailbox* semicolon-gap)  : ())
-(hour (atom-gap colon-gap atom-gap)               : ()
-  (atom-gap colon-gap atom-gap colon-gap atom-gap): ())
-(local-part (word)                                : ()
-  (local-part dot-gap word)                       : ())
-(mailbox (addr-spec)                              : ()
-  (phrase route-addr)                             : ()
-  (route-addr)                                    : ())
-(mailbox* ()                                      : ()
-  (mailbox+)                                      : ())
-(mailbox+ (mailbox)                               : ()
-  (mailbox+ comma-gap mailbox)                    : ())
-(month (atom-gap)                                 : ())
-(msg-id (lt-gap addr-spec gt-gap)                 : ())
-(phrase (phrase-c)                                : (ew-mark-phrase $1 $look))
-(phrase-c (word)                                  : $1
-  (phrase-c word)                                 : $1)
-(route (at-domain+ colon-gap)                     : ())
-(at-domain+ (at-gap domain)                       : ()
-  (at-domain+ comma-gap at-gap domain)            : ())
-(route-addr (lt-gap route/ addr-spec gt-gap)      : ())
-(route/ ()                                        : ()
-  (route)                                         : ())
-(sub-domain (domain-ref)                          : ()
-  (domain-literal-gap)                            : ())
-(time (hour zone)                                 : ())
-(word (atom-gap)                                  : $1
-  (quoted-string-gap)                             : $1)
-(zone (atom-gap)                                  : ())
-(phrase/ ()                                       : ()
-  (phrase)                                        : ())
-(phrase* ()                                       : ()
-  (phrase+)                                       : ())
-(phrase+ (phrase)                                 : ()
-  (phrase+ comma-gap phrase)                      : ())
-(phrase-msg-id* (phrase/)                         : ()
-  (phrase-msg-id* msg-id phrase/)                 : ())
-(word1or2 (word)                                  : ()
-  (word comma-gap word)                           : ())
-(gap ()                                           : ()
-  (gap wsp)                                       : ()
-  (gap fold)                                      : ()
-  (gap comment)                                   : ())
-(lt-gap (lt gap)                                  : ())
-(gt-gap (gt gap)                                  : ())
-(at-gap (at gap)                                  : ())
-(comma-gap (comma gap)                            : ())
-(semicolon-gap (semicolon gap)                    : ())
-(colon-gap (colon gap)                            : ())
-(dot-gap (dot gap)                                : ())
-(quoted-string-gap (quoted-string gap)            : $1)
-(domain-literal-gap (domain-literal gap)          : ())
-(atom-gap (atom gap)                              : $1)
-(quoted-string (qs-begin qs qs-end)               : $1)
-(qs ()                                            : ()
-  (qs qs-texts)                                   : ()
-  (qs qs-wsp)                                     : ()
-  (qs qs-fold)                                    : ()
-  (qs qs-qfold)                                   : ()
-  (qs qs-qpair)                                   : ())
-(domain-literal (dl-begin dl dl-end)              : ())
-(dl ()                                            : ()
-  (dl dl-texts)                                   : ()
-  (dl dl-wsp)                                     : ()
-  (dl dl-fold)                                    : ()
-  (dl dl-qfold)                                   : ()
-  (dl dl-qpair)                                   : ())
-(comment (cm-begin cm cm-end)                     : ())
-(cm ()                                            : ()
-  (cm cm-nested-begin)                            : ()
-  (cm cm-nested-end)                              : ()
-  (cm cm-texts)                                   : ()
-  (cm cm-wsp)                                     : ()
-  (cm cm-fold)                                    : ()
-  (cm cm-qfold)                                   : ()
-  (cm cm-qpair)                                   : ())
-
-))
-
-(gen-lalr1 field-grammar "ew-parse.el"
-"(provide 'ew-parse)
-(require 'ew-data)
-"
-"(put 'ew:cm-texts 'decode 'ew-decode-comment)
-(put 'ew:cm-wsp 'decode 'ew-decode-comment)
-(put 'ew:cm-fold 'decode 'ew-decode-comment)
-(put 'ew:cm-qfold 'decode 'ew-decode-comment)
-(put 'ew:cm-qpair 'decode 'ew-decode-comment)
-(put 'ew:us-texts 'decode 'ew-decode-unstructured)
-(put 'ew:us-wsp 'decode 'ew-decode-unstructured)
-(put 'ew:us-fold 'decode 'ew-decode-unstructured)
-"
-'ew)
-
-(print-states)
diff --git a/ew-quote.el b/ew-quote.el
deleted file mode 100644
index 583d060..0000000
--- a/ew-quote.el
+++ /dev/null
@@ -1,193 +0,0 @@
-;;; quoted encoded word library
-
-(require 'ew-var)
-(require 'ew-util)
-(require 'ew-line)
-(provide 'ew-quote)
-
-;; This library provides functions operating strings embedding
-;; unencodable encoded words.
-
-;;;type   embedded-pattern     denoted-pattern
-;; Type-0 =?(QQQ)*A?B?C?=      =?(Q)*A?B?C?=
-;; Type-1 =?(QQQ)*QA?B?C?=     Decode =?(Q)*A?B?C?= as encoded-word
-;; Type-2 =?(QQQ)*QQA?B?C?=    =?(Q)*A?B?C?
-
-;; Q : quoting character '+'.
-;; A : token. But it does not start with quoting character.
-;; B : token.
-;; C : encoded-text.
-
-(eval-and-compile
-  (defconst ew-quoting-char ?+))
-(defconst ew-quoting-chars-regexp
-  (eval-when-compile
-    (concat (regexp-quote (char-to-string ew-quoting-char)) "*")))
-
-(defconst ew-type2-regexp
-  (eval-when-compile
-    (require 'ew-var)
-    (concat (regexp-quote "=?")
-            "\\(" ew-token-regexp "\\)"
-            (regexp-quote "?")
-            "\\(" ew-token-regexp "\\)"
-            (regexp-quote "?")
-            "\\(" ew-encoded-text-regexp "\\)"
-            (regexp-quote "?")
-            "\\'")))
-
-;;;
-
-(defun ew-quoting-char-seq (num)
-  (make-string num ew-quoting-char))
-
-(defun ew-quote (str)
-  (ew-quote-concat str))
-
-(defun ew-concat (&rest args)
-  (apply 'ew-quote-concat (mapcar 'list args)))
-
-(defun ew-quote-concat (&rest args)
-  (let (result raws tmp)
-    (while args
-      (setq tmp (car args))
-      (cond
-       ((stringp tmp)
-	;; raw string
-	(setq raws (cons tmp raws)))
-       ((listp tmp)
-	;; quoted encoded word embedding strings
-	(let (str start eword-start charset-start quoting-end eword-end l q r)
-	  (while tmp
-	    (setq str (car tmp)
-		  start 0)
-	    (while (string-match ew-encoded-word-regexp str start)
-	      (setq eword-start (match-beginning 0)
-		    charset-start (match-beginning 1)
-		    eword-end (match-end 0))
-	      (string-match ew-quoting-chars-regexp str charset-start)
-	      (setq quoting-end (match-end 0)
-		    l (- quoting-end charset-start)
-		    q (/ l 3)
-		    r (% l 3))
-	      (cond
-	       ((= r 0) ; Type-0
-		(setq raws
-		      (ew-rcons*
-		       raws
-		       (substring str start charset-start)
-		       (ew-quoting-char-seq q)
-		       (substring str quoting-end eword-end))))
-	       ((= r 2) ; Type-2
-		(setq raws
-		      (ew-rcons*
-		       raws
-		       (substring str start charset-start)
-		       (ew-quoting-char-seq q)
-		       (substring str quoting-end (1- eword-end)))))
-	       ((= r 1) ; Type-1
-		(setq raws
-		      (ew-rcons*
-		       raws
-		       (substring str start eword-start))
-		      result
-		      (ew-rcons*
-		       result
-		       (ew-quote-sole (apply 'concat (nreverse raws)) t)
-		       (substring str eword-start eword-end))
-		      raws ())))
-	      (setq start eword-end))
-	    (setq raws (ew-rcons* raws (substring str start))
-		  tmp (cdr tmp)))))
-       (t
-	(error "ew-quote-concat: %s" tmp)))
-      (setq args (cdr args)))
-    (setq result
-	  (ew-rcons*
-	   result
-	   (ew-quote-sole (apply 'concat (nreverse raws)) nil)))
-    (apply 'concat (nreverse result))))
-
-(defun ew-quote-sole (str gen-type2)
-  (let (result (start 0) charset-start quoting-end eword-end l)
-    (while (string-match ew-encoded-word-regexp str start)
-      (setq charset-start (match-beginning 1)
-	    eword-end (match-end 0))
-      (string-match ew-quoting-chars-regexp str charset-start)
-      (setq quoting-end (match-end 0)
-	    l (* (- quoting-end charset-start) 3)
-	    result
-	    (ew-rcons*
-	     result
-	     (substring str start charset-start)
-	     (ew-quoting-char-seq l)
-	     (substring str quoting-end eword-end))
-	    start eword-end))
-    (if (and gen-type2
-	     (string-match ew-type2-regexp str start))
-	(progn
-	  (setq charset-start (match-beginning 1)
-		eword-end (match-end 0))
-	  (string-match ew-quoting-chars-regexp str charset-start)
-	  (setq quoting-end (match-end 0)
-		l (* (- quoting-end charset-start) 3)
-		result
-		(ew-rcons*
-		 result
-		 (substring str start charset-start)
-		 (ew-quoting-char-seq (+ l 2))
-		 (substring str quoting-end eword-end)
-		 "=")))
-      (setq result (ew-rcons* result (substring str start))))
-    (apply 'concat (nreverse result))))
-
-(defun ew-quote-eword (charset encoding encoded-text)
-  (string-match ew-quoting-chars-regexp charset)
-  (concat
-   "=?+" ; Type-1
-   (ew-quoting-char-seq (* (- (match-end 0) (match-beginning 0)) 3))
-   (substring charset (match-end 0))
-   "?"
-   encoding
-   "?"
-   encoded-text
-   "?="))
-
-(defun ew-encode-crlf (str)
-  (if ew-remove-bare-crlf
-      (ew-crlf-line-convert str nil nil (lambda (nl) ""))
-    (let ((sstart 0)
-	  (mstart 0)
-	  (end (length str)) result ms me)
-      (while (string-match "\\(\r\n\\)+" str mstart)
-	(setq ms (match-beginning 0)
-	      me (match-end 0))
-	(setq mstart me)
-	(when (and (< me end)
-		   (member (aref str me) '(?\t ?\ )))
-	  (setq me (- me 2)))
-	(when (< ms me)
-	  (setq result (ew-rcons* result
-				  (substring str sstart ms)
-				  "=?+US-ASCII?Q?")
-		sstart me)
-	  (while (< ms me)
-	    (setq result (ew-rcons* result "=0D=0A")
-		  ms (+ ms 2)))
-	  (setq result (ew-rcons* result "?="))))
-      (when (< sstart end)
-	(setq result (ew-rcons* result
-				(substring str sstart))))
-      (apply 'concat (nreverse result)))))
-
-'(
-(ew-quote-concat "aaa=?A?B?C?=ccc") ;"aaa=?A?B?C?=ccc"
-(ew-quote-concat "aaa=?+A?B?C?=ccc") ;"aaa=?+++A?B?C?=ccc"
-(ew-quote-concat '("aaa=?A?B?C?=ccc")) ;"aaa=?A?B?C?=ccc"
-(ew-quote-concat '("aaa=?+++A?B?C?=ccc")) ;"aaa=?+++A?B?C?=ccc"
-(ew-quote-concat "aaa=?+A?B" "?C?=ccc") ;"aaa=?+++A?B?C?=ccc"
-(ew-quote-concat "a=?+A?B?C?" '("=?+US-ASCII?Q?z?=")) ;"a=?+++++A?B?C?==?+US-ASCII?Q?z?="
-(ew-quote-concat "a=?+A?B?C?=?+D?E?F?" '("=?+US-ASCII?Q?z?=")) ;"a=?+++A?B?C?=?+D?E?F?=?+US-ASCII?Q?z?="
-(ew-quote-concat "a=?+A?B?C?=?+D?E?F?=?+G?H?I?" '("=?+US-ASCII?Q?z?=")) ;"a=?+++A?B?C?=?+D?E?F?=?+++++G?H?I?==?+US-ASCII?Q?z?="
-(ew-quote-concat '("a=?++A?B?C?==?+++A?B?C?=c")) ;"a=?A?B?C?=?+A?B?C?=c"
-)
diff --git a/ew-scan-m.el b/ew-scan-m.el
deleted file mode 100644
index d8dbf85..0000000
--- a/ew-scan-m.el
+++ /dev/null
@@ -1,174 +0,0 @@
-(require 'lex)
-(require 'automata)
-(require 'ew-data)
-(require 'ew-parse)
-(provide 'ew-scan-m)
-
-(defmacro ew-scan-mime (scan col str)
-  `(let ((res (ew-make-anchor col str))
-	 (mode 'token)
-	 (p 0)
-	 (q (length str))
-	 r
-	 type
-	 nest)
-     (while (< p q)
-       (setq r p)
-       (cond
-	((eq mode 'token)
-	 (setq
-	  type
-	  (,scan
-	   str p q
-	   ([" \t"] 'ew:wsp)
-	   (?< 'ew:lt)
-	   (?> 'ew:gt)
-	   (?@ 'ew:at)
-	   (?, 'ew:comma)
-	   (?\; 'ew:semicolon)
-	   (?: 'ew:colon)
-	   (?/ 'ew:slash)
-	   (?? 'ew:question)
-	   (?= 'ew:equal)
-	   ((?\r ?\n [" \t"]) 'ew:fold)
-	   ((?\r ?\n [^ " \t"])
-	    (setq p q) 'ew:*err*)
-	   ((+ [(?a ?z) (?A ?Z) (?0 ?9) "!#$%&'*+-.^_`{|}~" non-ascii])
-	    'ew:token)
-	   (?\" (setq mode 'quoted-string) 'ew:qs-begin)
-	   (?\[ (setq mode 'domain-literal) 'ew:dl-begin)
-	   (?\( (setq mode 'comment
-		      nest 1)
-		'ew:cm-begin)
-	   (() (setq p q) 'ew:*err*)))
-	 (ew-add-frag res r p type))
-	((eq mode 'quoted-string)
-	 (setq
-	  type
-	  (,scan
-	   str p q
-	   (?\" (setq mode 'token) 'ew:qs-end)
-	   ((?\\ ?\r ?\n [" \t"]) 'ew:qs-qfold)
-	   ((?\\ ?\r ?\n [^ " \t"])
-	    (setq p q) 'ew:*err*)
-	   (((* [^ "\"\\ \t\r"])
-	     (* (+ ?\r) [^ "\"\\ \t\r\n"] (* [^ "\"\\ \t\r"]))
-	     (* ?\r)
-	     (?\r ?\n [" \t"]))
-	    (when (< r (- p 3))
-	      (ew-add-frag res r (- p 3) 'ew:qs-texts)
-	      (setq r (- p 3)))
-	    'ew:qs-fold)
-	   (((* [^ "\"\\ \t\r"])
-	     (* (+ ?\r) [^ "\"\\ \t\r\n"] (* [^ "\"\\ \t\r"]))
-	     (* ?\r)
-	     (?\r ?\n [^ " \t"]))
-	    (when (< r (- p 3))
-	      (ew-add-frag res r (- p 3) 'ew:qs-texts)
-	      (setq r (- p 3)))
-	    (setq p q) 'ew:*err*)
-	   ((?\\ (any))
-	    'ew:qs-qpair)
-	   ([" \t"]
-	    'ew:qs-wsp)
-	   (((* [^ "\"\\ \t\r"])
-	     (* (+ ?\r) [^ "\"\\ \t\r\n"] (* [^ "\"\\ \t\r"]))
-	     (* ?\r))
-	    (if (< r p)
-		'ew:qs-texts
-	      (progn (setq p q) 'ew:*err*)))))
-	 (ew-add-frag res r p type))
-	((eq mode 'domain-literal)
-	 (setq
-	  type
-	  (,scan
-	   str p q
-	   (?\] (setq mode 'token) 'ew:dl-end)
-	   ((?\\ ?\r ?\n [" \t"])
-	    'ew:dl-qfold)
-	   ((?\\ ?\r ?\n [^ " \t"])
-	    (setq p q) 'ew:*err*)
-	   (((* [^ "[]\\ \t\r"])
-	     (* (+ ?\r) [^ "[]\\ \t\r\n"] (* [^ "[]\\ \t\r"]))
-	     (* ?\r)
-	     (?\r ?\n [" \t"]))
-	    (when (< r (- p 3))
-	      (ew-add-frag res r (- p 3) 'ew:dl-texts)
-	      (setq r (- p 3)))
-	    'ew:dl-fold)
-	   (((* [^ "[]\\ \t\r"])
-	     (* (+ ?\r) [^ "[]\\ \t\r\n"] (* [^ "[]\\ \t\r"]))
-	     (* ?\r)
-	     (?\r ?\n [^ " \t"]))
-	    (when (< r (- p 3))
-	      (ew-add-frag res r (- p 3) 'ew:dl-texts)
-	      (setq r (- p 3)))
-	    (setq p q) 'ew:*err*)
-	   ((?\\ (any))
-	    'ew:dl-qpair)
-	   ([" \t"]
-	    'ew:dl-wsp)
-	   (((* [^ "[]\\ \t\r"])
-	     (* (+ ?\r) [^ "[]\\ \t\r\n"] (* [^ "[]\\ \t\r"]))
-	     (* ?\r))
-	    (if (< r p)
-		'ew:dl-texts
-	      (progn (setq p q) 'ew:*err*)))))
-	 (ew-add-frag res r p type))
-	((eq mode 'comment)
-	 (setq
-	  type
-	  (,scan
-	   str p q
-	   (?\( (setq nest (1+ nest)) 'ew:cm-nested-begin)
-	   (?\) (setq nest (1- nest))
-		(if (zerop nest)
-		    (progn (setq mode 'token) 'ew:cm-end)
-		  'ew:cm-nested-end))
-	   ((?\\ ?\r ?\n [" \t"])
-	    'ew:cm-qfold)
-	   ((?\\ ?\r ?\n [^ " \t"])
-	    (setq p q) 'ew:*err*)
-	   (((* [^ "()\\ \t\r"])
-	     (* (+ ?\r) [^ "()\\ \t\r\n"] (* [^ "()\\ \t\r"]))
-	     (* ?\r)
-	     (?\r ?\n [" \t"]))
-	    (when (< r (- p 3))
-	      (ew-add-frag res r (- p 3) 'ew:cm-texts)
-	      (setq r (- p 3)))
-	    'ew:cm-fold)
-	   (((* [^ "()\\ \t\r"])
-	     (* (+ ?\r) [^ "()\\ \t\r\n"] (* [^ "()\\ \t\r"]))
-	     (* ?\r)
-	     (?\r ?\n [^ " \t"]))
-	    (when (< r (- p 3))
-	      (ew-add-frag res r (- p 3) 'ew:cm-texts)
-	      (setq r (- p 3)))
-	    (setq p q) 'ew:*err*)
-	   ((?\\ (any))
-	    'ew:cm-qpair)
-	   ([" \t"]
-	    'ew:cm-wsp)
-	   (((* [^ "()\\ \t\r"])
-	     (* (+ ?\r) [^ "()\\ \t\r\n"] (* [^ "()\\ \t\r"]))
-	     (* ?\r))
-	    (if (< r p)
-		'ew:cm-texts
-	      (progn (setq p q) 'ew:*err*)))))
-	 (ew-add-frag res r p type))))
-     (ew-terminate res)
-     res))
-
-(defun ew-scan-unibyte-mime (col str)
-  (ew-scan-mime lex-scan-unibyte col str))
-(defun ew-scan-multibyte-mime (col str)
-  (ew-scan-mime lex-scan-multibyte col str))
-
-'(	
-(npp
- (mapcar
-  (lambda (frag) (cons (get frag 'type) (symbol-name frag)))
-  (ew-frag-list
-   (ew-scan-unibyte-mime
-    0 " text/vnd.latex-z; charset=ISO-2022-JP"))))
-)
diff --git a/ew-scan-s.el b/ew-scan-s.el
deleted file mode 100644
index 3c07044..0000000
--- a/ew-scan-s.el
+++ /dev/null
@@ -1,179 +0,0 @@
-(require 'lex)
-(require 'automata)
-(require 'ew-data)
-(require 'ew-parse)
-(provide 'ew-scan-s)
-
-(defmacro ew-scan-std11 (scan col str)
-  `(let ((res (ew-make-anchor col str))
-	 (mode 'token)
-	 (p 0)
-	 (q (length str))
-	 r
-	 type
-	 nest)
-     (while (< p q)
-       (setq r p)
-       (cond
-	((eq mode 'token)
-	 (setq
-	  type
-	  (,scan
-	   str p q
-	   ([" \t"] 'ew:wsp)
-	   (?< 'ew:lt)
-	   (?> 'ew:gt)
-	   (?@ 'ew:at)
-	   (?, 'ew:comma)
-	   (?\; 'ew:semicolon)
-	   (?: 'ew:colon)
-	   (?. 'ew:dot)
-	   ((?\r ?\n [" \t"]) 'ew:fold)
-	   ((?\r ?\n [^ " \t"])
-	    (setq p q) 'ew:*err*)
-	   ((+ [(?a ?z) (?A ?Z) (?0 ?9) "!#$%&'*+-/=?^_`{|}~" non-ascii])
-	    'ew:atom)
-	   (?\" (setq mode 'quoted-string) 'ew:qs-begin)
-	   (?\[ (setq mode 'domain-literal) 'ew:dl-begin)
-	   (?\( (setq mode 'comment
-		      nest 1)
-		'ew:cm-begin)
-	   (() (setq p q) 'ew:*err*)))
-	 (ew-add-frag res r p type))
-	((eq mode 'quoted-string)
-	 (setq
-	  type
-	  (,scan
-	   str p q
-	   (?\" (setq mode 'token) 'ew:qs-end)
-	   ((?\\ ?\r ?\n [" \t"]) 'ew:qs-qfold)
-	   ((?\\ ?\r ?\n [^ " \t"])
-	    (setq p q) 'ew:*err*)
-	   (((* [^ "\"\\ \t\r"])
-	     (* (+ ?\r) [^ "\"\\ \t\r\n"] (* [^ "\"\\ \t\r"]))
-	     (* ?\r)
-	     (?\r ?\n [" \t"]))
-	    (when (< r (- p 3))
-	      (ew-add-frag res r (- p 3) 'ew:qs-texts)
-	      (setq r (- p 3)))
-	    'ew:qs-fold)
-	   (((* [^ "\"\\ \t\r"])
-	     (* (+ ?\r) [^ "\"\\ \t\r\n"] (* [^ "\"\\ \t\r"]))
-	     (* ?\r)
-	     (?\r ?\n [^ " \t"]))
-	    (when (< r (- p 3))
-	      (ew-add-frag res r (- p 3) 'ew:qs-texts)
-	      (setq r (- p 3)))
-	    (setq p q) 'ew:*err*)
-	   ((?\\ (any))
-	    'ew:qs-qpair)
-	   ([" \t"]
-	    'ew:qs-wsp)
-	   (((* [^ "\"\\ \t\r"])
-	     (* (+ ?\r) [^ "\"\\ \t\r\n"] (* [^ "\"\\ \t\r"]))
-	     (* ?\r))
-	    (if (< r p)
-		'ew:qs-texts
-	      (progn (setq p q) 'ew:*err*)))))
-	 (ew-add-frag res r p type))
-	((eq mode 'domain-literal)
-	 (setq
-	  type
-	  (,scan
-	   str p q
-	   (?\] (setq mode 'token) 'ew:dl-end)
-	   ((?\\ ?\r ?\n [" \t"])
-	    'ew:dl-qfold)
-	   ((?\\ ?\r ?\n [^ " \t"])
-	    (setq p q) 'ew:*err*)
-	   (((* [^ "[]\\ \t\r"])
-	     (* (+ ?\r) [^ "[]\\ \t\r\n"] (* [^ "[]\\ \t\r"]))
-	     (* ?\r)
-	     (?\r ?\n [" \t"]))
-	    (when (< r (- p 3))
-	      (ew-add-frag res r (- p 3) 'ew:dl-texts)
-	      (setq r (- p 3)))
-	    'ew:dl-fold)
-	   (((* [^ "[]\\ \t\r"])
-	     (* (+ ?\r) [^ "[]\\ \t\r\n"] (* [^ "[]\\ \t\r"]))
-	     (* ?\r)
-	     (?\r ?\n [^ " \t"]))
-	    (when (< r (- p 3))
-	      (ew-add-frag res r (- p 3) 'ew:dl-texts)
-	      (setq r (- p 3)))
-	    (setq p q) 'ew:*err*)
-	   ((?\\ (any))
-	    'ew:dl-qpair)
-	   ([" \t"]
-	    'ew:dl-wsp)
-	   (((* [^ "[]\\ \t\r"])
-	     (* (+ ?\r) [^ "[]\\ \t\r\n"] (* [^ "[]\\ \t\r"]))
-	     (* ?\r))
-	    (if (< r p)
-		'ew:dl-texts
-	      (progn (setq p q) 'ew:*err*)))))
-	 (ew-add-frag res r p type))
-	((eq mode 'comment)
-	 (setq
-	  type
-	  (,scan
-	   str p q
-	   (?\( (setq nest (1+ nest)) 'ew:cm-nested-begin)
-	   (?\) (setq nest (1- nest))
-		(if (zerop nest)
-		    (progn (setq mode 'token) 'ew:cm-end)
-		  'ew:cm-nested-end))
-	   ((?\\ ?\r ?\n [" \t"])
-	    'ew:cm-qfold)
-	   ((?\\ ?\r ?\n [^ " \t"])
-	    (setq p q) 'ew:*err*)
-	   (((* [^ "()\\ \t\r"])
-	     (* (+ ?\r) [^ "()\\ \t\r\n"] (* [^ "()\\ \t\r"]))
-	     (* ?\r)
-	     (?\r ?\n [" \t"]))
-	    (when (< r (- p 3))
-	      (ew-add-frag res r (- p 3) 'ew:cm-texts)
-	      (setq r (- p 3)))
-	    'ew:cm-fold)
-	   (((* [^ "()\\ \t\r"])
-	     (* (+ ?\r) [^ "()\\ \t\r\n"] (* [^ "()\\ \t\r"]))
-	     (* ?\r)
-	     (?\r ?\n [^ " \t"]))
-	    (when (< r (- p 3))
-	      (ew-add-frag res r (- p 3) 'ew:cm-texts)
-	      (setq r (- p 3)))
-	    (setq p q) 'ew:*err*)
-	   ((?\\ (any))
-	    'ew:cm-qpair)
-	   ([" \t"]
-	    'ew:cm-wsp)
-	   (((* [^ "()\\ \t\r"])
-	     (* (+ ?\r) [^ "()\\ \t\r\n"] (* [^ "()\\ \t\r"]))
-	     (* ?\r))
-	    (if (< r p)
-		'ew:cm-texts
-	      (progn (setq p q) 'ew:*err*)))))
-	 (ew-add-frag res r p type))))
-     (ew-terminate res)
-     res))
-
-(defun ew-scan-unibyte-std11 (col str)
-  (ew-scan-std11 lex-scan-unibyte col str))
-(defun ew-scan-multibyte-std11 (col str)
-  (ew-scan-std11 lex-scan-multibyte col str))
-
-'(	
-(npp
- (mapcar
-  'symbol-plist
-  (ew-frag-list
-   (ew-scan-unibyte-std11
-    0 " Tanaka Akira  (Tanaka Akira)"))))
-
-(npp
- (mapcar
-  (lambda (frag) (cons (get frag 'type) (symbol-name frag)))
-  (ew-frag-list
-   (ew-scan-unibyte-std11
-    0 " Tanaka Akira  (Tanaka Akira)"))))
-)
diff --git a/ew-scan-u.el b/ew-scan-u.el
deleted file mode 100644
index 92c240f..0000000
--- a/ew-scan-u.el
+++ /dev/null
@@ -1,66 +0,0 @@
-(require 'lex)
-(require 'automata)
-(require 'ew-data)
-(require 'ew-parse)
-(provide 'ew-scan-u)
-
-(defmacro ew-scan-unstructured (scan col str)
-  `(let ((res (ew-make-anchor col str))
-	 (p 0)
-	 (q (length str))
-	 r
-	 type)
-     (while (< p q)
-       (setq r p)
-       (setq
-	type
-	(,scan
-	 str p q
-	 ([" \t"] 'ew:us-wsp)
-	 (((* [^ " \t\r"])
-	   (* (+ ?\r) [^ " \t\r\n"] (* [^ " \t\r"]))
-	   (* ?\r)
-	   (?\r ?\n [" \t"]))
-	  (when (< r (- p 3))
-	    (ew-add-frag res r (- p 3) 'ew:us-texts)
-	    (setq r (- p 3)))
-	  'ew:us-fold)
-	 (((* [^ " \t\r"])
-	   (* (+ ?\r) [^ " \t\r\n"] (* [^ " \t\r"]))
-	   (* ?\r)
-	   (?\r ?\n [^ " \t"]))
-	  (when (< r (- p 3))
-	    (ew-add-frag res r (- p 3) 'ew:us-texts)
-	    (setq r (- p 3)))
-	  (setq p q) 'ew:*err*)
-	 (((* [^ " \t\r"])
-	   (* (+ ?\r) [^ " \t\r\n"] (* [^ " \t\r"]))
-	   (* ?\r))
-	  (if (< r p)
-	      'ew:us-texts
-	    (progn (setq p q) 'ew:*err*)))))
-       (ew-add-frag res r p type))
-     (ew-terminate res)
-     res))
-
-(defun ew-scan-unibyte-unstructured (col str)
-  (ew-scan-unstructured lex-scan-unibyte col str))
-(defun ew-scan-multibyte-unstructured (col str)
-  (ew-scan-unstructured lex-scan-multibyte col str))
-
-'(	
-(npp
- (mapcar
-  (lambda (frag) (cons (get frag 'type) (symbol-name frag)))
-  (ew-frag-list
-   (ew-scan-unibyte-unstructured
-    0 " Hello! =?US-ASCII?Q?Hello!?="))))
-
-(npp
- (mapcar
-  (lambda (frag) (cons (get frag 'type) (symbol-name frag)))
-  (ew-frag-list
-   (ew-scan-unibyte-unstructured
-    0 " \r\na"))))
-
-)
diff --git a/ew-unit.el b/ew-unit.el
deleted file mode 100644
index ab4af48..0000000
--- a/ew-unit.el
+++ /dev/null
@@ -1,81 +0,0 @@
-(require 'closure)
-(require 'ew-line)
-(require 'ew-quote)
-(require 'mel)
-
-(provide 'ew-unit)
-
-(defconst ew-anchored-encoded-word-regexp
-  (eval-when-compile
-    (require 'ew-var)
-    (concat "\\`" ew-encoded-word-regexp "\\'")))
-
-(defconst ew-b-regexp
-  (eval-when-compile
-    (concat "\\`\\("
-            "[A-Za-z0-9+/]"
-            "[A-Za-z0-9+/]"
-            "[A-Za-z0-9+/]"
-            "[A-Za-z0-9+/]"
-            "\\)*"
-            "[A-Za-z0-9+/]"
-            "[A-Za-z0-9+/]"
-            "\\(==\\|"
-            "[A-Za-z0-9+/]"
-            "[A-Za-z0-9+/=]"
-            "\\)\\'")))
-
-(defconst ew-q-regexp "\\`\\([^=?]\\|=[0-9A-Fa-f][0-9A-Fa-f]\\)*\\'")
-
-(defconst ew-byte-decoder-alist
-  '(("B" . ew-b-decode)
-    ("Q" . ew-q-decode)))
-
-(defconst ew-byte-checker-alist
-  '(("B" . ew-b-check)
-    ("Q" . ew-q-check)))
-
-(defun ew-b-check (encoding encoded-text) (string-match ew-b-regexp encoded-text))
-(defun ew-q-check (encoding encoded-text) (string-match ew-q-regexp encoded-text))
-
-(defsubst ew-eword-p (str)
-  (let ((len (length str)))
-    (and
-     (<= 3 len)
-     (eq (aref str 0) ?=)
-     (eq (aref str 1) ??)
-     (eq (aref str (- len 2)) ??)
-     (eq (aref str (1- len)) ?=))))
-
-(defun ew-decode-eword (str)
-  (if (string-match ew-anchored-encoded-word-regexp str)
-      (let ((charset (match-string 1 str))
-	    (encoding (match-string 2 str))
-	    (encoded-text (match-string 3 str))
-	    bdec cdec
-	    bcheck
-	    tmp)
-	(if (and (setq bdec (ew-byte-decoder encoding))
-		 (setq cdec (ew-char-decoder charset)))
-	    (if (or (null (setq bcheck (ew-byte-checker encoding)))
-		    (funcall bcheck encoding encoded-text))
-		(ew-quote (closure-call cdec (funcall bdec encoded-text)))
-	      (ew-quote str))
-	  (ew-quote-eword charset encoding encoded-text)))
-    (ew-quote str)))
-
-(defun ew-byte-decoder (encoding)
-  (cdr (assoc (upcase encoding) ew-byte-decoder-alist)))
-
-(defun ew-byte-checker (encoding)
-  (cdr (assoc (upcase encoding) ew-byte-checker-alist)))
-
-(defalias 'ew-b-decode 'base64-decode-string)
-(defalias 'ew-q-decode 'q-encoding-decode-string)
-
-(defun ew-char-decoder (charset)
-  (let ((sym (intern (downcase charset))))
-    (when (mime-charset-to-coding-system sym 'LF)
-      (closure-make
-       (lambda (str) (decode-mime-charset-string str sym 'LF))
-       sym))))
diff --git a/ew-util.el b/ew-util.el
deleted file mode 100644
index fb1b373..0000000
--- a/ew-util.el
+++ /dev/null
@@ -1,19 +0,0 @@
-(provide 'ew-util)
-
-(defmacro ew-cons* (seed &rest rest)
-  (setq rest (nreverse (cons seed rest))
-	seed (car rest)
-	rest (cdr rest))
-  (while rest
-    (setq seed `(cons ,(car rest) ,seed)
-	  rest (cdr rest)))
-  seed)
-    
-(defmacro ew-rcons* (seed &rest rest)
-  (while rest
-    (setq seed `(cons ,(car rest) ,seed)
-	  rest (cdr rest)))
-  seed)
-
-(defmacro ew-rappend (a b)
-  `(append (reverse ,b) ,a))
diff --git a/ew-var.el b/ew-var.el
deleted file mode 100644
index 9ac619b..0000000
--- a/ew-var.el
+++ /dev/null
@@ -1,83 +0,0 @@
-(provide 'ew-var)
-
-;;; user customizable variables.
-
-(defvar ew-decode-sticked-encoded-word nil)
-(defvar ew-decode-quoted-encoded-word nil)
-(defvar ew-ignore-75bytes-limit nil)
-(defvar ew-ignore-76bytes-limit nil)
-(defvar ew-permit-sticked-comment nil)
-(defvar ew-permit-sticked-special nil)
-
-(defvar ew-remove-bare-crlf nil)
-(defvar ew-default-mime-charset 'x-ctext)
-
-;;;
-(defvar ew-decode-field-syntax-alist
-'((from                 ew-scan-unibyte-std11 . ew:tag-mailbox+)
-  (sender               ew-scan-unibyte-std11 . ew:tag-mailbox)
-  (to                   ew-scan-unibyte-std11 . ew:tag-address+)
-  (resent-to            ew-scan-unibyte-std11 . ew:tag-address+)
-  (cc                   ew-scan-unibyte-std11 . ew:tag-address+)
-  (resent-cc            ew-scan-unibyte-std11 . ew:tag-address+)
-  (bcc                  ew-scan-unibyte-std11 . ew:tag-address*)
-  (resent-bcc           ew-scan-unibyte-std11 . ew:tag-address*)
-  (message-id           ew-scan-unibyte-std11)
-  (resent-message-id    ew-scan-unibyte-std11)
-  (in-reply-to          ew-scan-unibyte-std11 . ew:tag-phrase-msg-id*)
-  (references           ew-scan-unibyte-std11 . ew:tag-phrase-msg-id*)
-  (keywords             ew-scan-unibyte-std11 . ew:tag-phrase*)
-  (subject              ew-scan-unibyte-unstructured)
-  (comments             ew-scan-unibyte-unstructured)
-  (encrypted            ew-scan-unibyte-std11)
-  (date                 ew-scan-unibyte-std11)
-  (reply-to             ew-scan-unibyte-std11 . ew:tag-address+)
-  (received             ew-scan-unibyte-std11)
-  (resent-reply-to      ew-scan-unibyte-std11 . ew:tag-address+)
-  (resent-from          ew-scan-unibyte-std11 . ew:tag-mailbox+)
-  (resent-sender        ew-scan-unibyte-std11 . ew:tag-mailbox)
-  (resent-date          ew-scan-unibyte-std11)
-  (return-path          ew-scan-unibyte-std11)
-  (mime-version         ew-scan-unibyte-std11)
-  (content-type         ew-scan-unibyte-mime)
-  (content-transfer-encoding    ew-scan-unibyte-mime)
-  (content-id           ew-scan-unibyte-std11)
-  (content-description  ew-scan-unibyte-unstructured)
-  (content-disposition  ew-scan-unibyte-mime)
-  (approved             ew-scan-unibyte-std11 . ew:tag-address+)
-))
-
-(defvar ew-decode-field-default-syntax '(ew-scan-unibyte-unstructured))
-
-(defvar ew-parse-error-sit-for-seconds 0)
-
-;;; constants.
-
-(eval-and-compile
-  (defconst ew-token-regexp "[-!#-'*+0-9A-Z^-~]+")
-  (defconst ew-encoded-text-regexp "[!->@-~]+")
-)
-(defconst ew-encoded-word-regexp
-  (eval-when-compile
-    (concat (regexp-quote "=?")
-            "\\(" ew-token-regexp "\\)"
-            (regexp-quote "?")
-            "\\(" ew-token-regexp "\\)"
-            (regexp-quote "?")
-            "\\(" ew-encoded-text-regexp "\\)"
-            (regexp-quote "?="))))
-
-;;; utilities for variables.
-
-(defun ew-dynamic-options ()
-  (cons
-   ew-default-mime-charset
-   (logior
-    (if ew-decode-sticked-encoded-word 1 0)
-    (if ew-decode-quoted-encoded-word 2 0)
-    (if ew-ignore-75bytes-limit 4 0)
-    (if ew-ignore-76bytes-limit 8 0)
-    (if ew-permit-sticked-comment 16 0)
-    (if ew-permit-sticked-special 32 0)
-    (if ew-remove-bare-crlf 64 0)
-    )))
diff --git a/eword-decode.el b/eword-decode.el
deleted file mode 100644
index 49e2761..0000000
--- a/eword-decode.el
+++ /dev/null
@@ -1,813 +0,0 @@
-;;; eword-decode.el --- RFC 2047 based encoded-word decoder for GNU Emacs
-
-;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
-
-;; Author: ENAMI Tsugutomo 
-;;         MORIOKA Tomohiko 
-;;         Tanaka Akira 
-;; Maintainer: Tanaka Akira 
-;; Created: 1995/10/03
-;; Original: 1992/07/20 ENAMI Tsugutomo's `mime.el'.
-;;	Renamed: 1993/06/03 to tiny-mime.el
-;;	Renamed: 1995/10/03 from tiny-mime.el (split off encoder)
-;;	Renamed: 1997/02/22 from tm-ew-d.el
-;; Keywords: encoded-word, MIME, multilingual, header, mail, news
-
-;; This file is part of FLAM (Faithful Library About MIME).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'std11)
-(require 'mel)
-(require 'mime-def)
-
-(require 'ew-dec)
-
-(defgroup eword-decode nil
-  "Encoded-word decoding"
-  :group 'mime)
-
-;;; TEST
-
-(defvar rotate-memo nil)
-(defmacro rotate-memo (var val)
-  `(when rotate-memo
-     (unless (boundp ',var) (setq ,var ()))
-     (setq ,var (cons ,val ,var))
-     (let ((tmp (last ,var (- (length ,var) 100))))
-       (when tmp (setcdr tmp nil)))
-     ,var))
-
-;;; @ variables
-;;;
-
-(defcustom eword-decode-sticked-encoded-word nil
-  "*If non-nil, decode encoded-words sticked on atoms,
-other encoded-words, etc.
-however this behaviour violates RFC2047."
-  :group 'eword-decode
-  :type 'boolean)
-
-(defcustom eword-decode-quoted-encoded-word nil
-  "*If non-nil, decode encoded-words in quoted-string
-however this behaviour violates RFC2047."
-  :group 'eword-decode
-  :type 'boolean)
-
-
-;;; @ MIME encoded-word definition
-;;;
-
-(defconst eword-encoded-word-prefix-regexp
-  (concat (regexp-quote "=?")
-	  "\\(" mime-charset-regexp "\\)"
-	  (regexp-quote "?")
-	  "\\(B\\|Q\\)"
-	  (regexp-quote "?")))
-(defconst eword-encoded-word-suffix-regexp
-  (regexp-quote "?="))
-
-(defconst eword-encoded-text-in-unstructured-regexp "[!->@-~]+")
-(defconst eword-encoded-word-in-unstructured-regexp
-  (concat eword-encoded-word-prefix-regexp
-	  "\\(" eword-encoded-text-in-unstructured-regexp "\\)"
-	  eword-encoded-word-suffix-regexp))
-(defconst eword-after-encoded-word-in-unstructured-regexp "\\([ \t]\\|$\\)")
-
-(defconst eword-encoded-text-in-phrase-regexp "[-A-Za-z0-9!*+/=_]+")
-(defconst eword-encoded-word-in-phrase-regexp
-  (concat eword-encoded-word-prefix-regexp
-	  "\\(" eword-encoded-text-in-phrase-regexp "\\)"
-	  eword-encoded-word-suffix-regexp))
-(defconst eword-after-encoded-word-in-phrase-regexp "\\([ \t]\\|$\\)")
-
-(defconst eword-encoded-text-in-comment-regexp "[]!-'*->@-[^-~]+")
-(defconst eword-encoded-word-in-comment-regexp
-  (concat eword-encoded-word-prefix-regexp
-	  "\\(" eword-encoded-text-in-comment-regexp "\\)"
-	  eword-encoded-word-suffix-regexp))
-(defconst eword-after-encoded-word-in-comment-regexp "\\([ \t()\\\\]\\|$\\)")
-
-(defconst eword-encoded-text-in-quoted-string-regexp "[]!#->@-[^-~]+")
-(defconst eword-encoded-word-in-quoted-string-regexp
-  (concat eword-encoded-word-prefix-regexp
-	  "\\(" eword-encoded-text-in-quoted-string-regexp "\\)"
-	  eword-encoded-word-suffix-regexp))
-(defconst eword-after-encoded-word-in-quoted-string-regexp "\\([ \t\"\\\\]\\|$\\)")
-
-; obsolete
-(defconst eword-encoded-text-regexp eword-encoded-text-in-unstructured-regexp)
-(defconst eword-encoded-word-regexp eword-encoded-word-in-unstructured-regexp)
-
-
-;;; @@ Base64
-;;;
-
-(defconst base64-token-regexp "[A-Za-z0-9+/]")
-(defconst base64-token-padding-regexp "[A-Za-z0-9+/=]")
-
-(defconst eword-B-encoded-text-regexp
-  (concat "\\(\\("
-	  base64-token-regexp
-	  base64-token-regexp
-	  base64-token-regexp
-	  base64-token-regexp
-	  "\\)*"
-	  base64-token-regexp
-	  base64-token-regexp
-	  base64-token-padding-regexp
-	  base64-token-padding-regexp
-          "\\)"))
-
-;; (defconst eword-B-encoding-and-encoded-text-regexp
-;;   (concat "\\(B\\)\\?" eword-B-encoded-text-regexp))
-
-
-;;; @@ Quoted-Printable
-;;;
-
-(defconst eword-Q-encoded-text-regexp
-  (concat "\\([^=?]\\|" quoted-printable-octet-regexp "\\)+"))
-;; (defconst eword-Q-encoding-and-encoded-text-regexp
-;;   (concat "\\(Q\\)\\?" eword-Q-encoded-text-regexp))
-
-
-;;; @ internal utilities
-;;;
-
-(defun eword-decode-first-encoded-words (string
-					 eword-regexp
-					 after-regexp
-					 &optional must-unfold)
-  "Decode MIME encoded-words in beginning of STRING.
-
-EWORD-REGEXP is the regexp that matches a encoded-word.
-Usual value is
-eword-encoded-word-in-unstructured-regexp, 
-eword-encoded-text-in-phrase-regexp,
-eword-encoded-word-in-comment-regexp or
-eword-encoded-word-in-quoted-string-regexp.
-
-AFTER-REGEXP is the regexp that matches a after encoded-word.
-Usual value is
-eword-after-encoded-word-in-unstructured-regexp, 
-eword-after-encoded-text-in-phrase-regexp,
-eword-after-encoded-word-in-comment-regexp or
-eword-after-encoded-word-in-quoted-string-regexp.
-
-If beginning of STRING matches EWORD-REGEXP with AFTER-REGEXP,
-returns a cons cell of decoded string(sequence of characters) and 
-the rest(sequence of octets).
-
-If beginning of STRING does not matches EWORD-REGEXP and AFTER-REGEXP,
-returns nil.
-
-If an encoded-word is broken or your emacs implementation can not
-decode the charset included in it, it is returned in decoded part
-as encoded-word form.
-
-If MUST-UNFOLD is non-nil, it unfolds and eliminates line-breaks even
-if there are in decoded encoded-words (generated by bad manner MUA
-such as a version of Net$cape)."
-  (if eword-decode-sticked-encoded-word (setq after-regexp ""))
-  (let* ((between-ewords-regexp
-  	   (if eword-decode-sticked-encoded-word
-	     "\\(\n?[ \t]\\)*"
-	     "\\(\n?[ \t]\\)+"))
-	 (between-ewords-eword-after-regexp
-	   (concat "\\`\\(" between-ewords-regexp "\\)"
-		      "\\(" eword-regexp "\\)"
-		      after-regexp))
-	 (eword-after-regexp
-	   (concat "\\`\\(" eword-regexp "\\)" after-regexp))
-  	 (src string)	; sequence of octets.
-  	 (dst ""))	; sequence of characters.
-    (if (string-match eword-after-regexp src)
-      (let* (p
-      	     (q (match-end 1))
-      	     (ew (substring src 0 q))
-      	     (dw (eword-decode-encoded-word ew must-unfold)))
-        (setq dst (concat dst dw)
-	      src (substring src q))
-	(if (not (string= ew dw))
-	  (progn
-	    (while
-	      (and
-	        (string-match between-ewords-eword-after-regexp src)
-		(progn
-		  (setq p (match-end 1)
-		  	q (match-end 3)
-		        ew (substring src p q)
-		        dw (eword-decode-encoded-word ew must-unfold))
-		  (if (string= ew dw)
-		    (progn
-		      (setq dst (concat dst (substring src 0 q))
-			    src (substring src q))
-		      nil)
-		    t)))
-	      (setq dst (concat dst dw)
-	            src (substring src q)))))
-	(cons dst src))
-      nil)))
-
-(defun eword-decode-entire-string (string
-				   eword-regexp
-				   after-regexp
-				   safe-regexp
-				   escape ; ?\\ or nil.
-				   delimiters ; list of chars.
-                                   chars-must-be-quote
-				   must-unfold
-				   code-conversion)
-  (if (and code-conversion
-	   (not (mime-charset-to-coding-system code-conversion)))
-      (setq code-conversion default-mime-charset))
-  (let ((equal-safe-regexp (concat "\\`=?" safe-regexp))
-  	(dst "")
-	(buf "")
-  	(src string)
-	(ew-enable t))
-    (while (< 0 (length src))
-      (let ((ch (aref src 0))
-      	    (decoded (and
-	    		ew-enable
-			(eword-decode-first-encoded-words src
-			  eword-regexp after-regexp must-unfold))))
-	(if (and (not (string= buf ""))
-		 (or decoded (memq ch delimiters)))
-	  (setq dst (concat dst
-	  	      (std11-wrap-as-quoted-pairs
-		        (decode-mime-charset-string buf code-conversion)
-			chars-must-be-quote))
-		buf ""))
-	(cond
-	  (decoded
-	    (setq dst (concat dst
-	    		(std11-wrap-as-quoted-pairs
-			  (car decoded)
-			  chars-must-be-quote))
-		  src (cdr decoded)))
-	  ((memq ch delimiters)
-	    (setq dst (concat dst (list ch))
-		  src (substring src 1)
-		  ew-enable t))
-	  ((eq ch escape)
-	    (setq buf (concat buf (list (aref src 1)))
-		  src (substring src 2)
-		  ew-enable t))
-	  ((string-match "\\`[ \t\n]+" src)
-	    (setq buf (concat buf (substring src 0 (match-end 0)))
-		  src (substring src (match-end 0))
-		  ew-enable t))
-	  ((and (string-match equal-safe-regexp src)
-	  	(< 0 (match-end 0)))
-	    (setq buf (concat buf (substring src 0 (match-end 0)))
-		  src (substring src (match-end 0))
-		  ew-enable eword-decode-sticked-encoded-word))
-	  (t (error "something wrong")))))
-    (if (not (string= buf ""))
-      (setq dst (concat dst
-      		  (std11-wrap-as-quoted-pairs
-		    (decode-mime-charset-string buf code-conversion)
-		    chars-must-be-quote))))
-    dst))
-
-
-;;; @ for string
-;;;
-
-(defun eword-decode-unstructured (string code-conversion &optional must-unfold)
-  (eword-decode-entire-string
-    string
-    eword-encoded-word-in-unstructured-regexp
-    eword-after-encoded-word-in-unstructured-regexp
-    "[^ \t\n=]*"
-    nil
-    nil
-    nil
-    must-unfold
-    code-conversion))
-
-(defun eword-decode-comment (string code-conversion &optional must-unfold)
-  (eword-decode-entire-string
-    string
-    eword-encoded-word-in-comment-regexp
-    eword-after-encoded-word-in-comment-regexp
-    "[^ \t\n()\\\\=]*"
-    ?\\
-    '(?\( ?\))
-    '(?\( ?\) ?\\ ?\r ?\n)
-    must-unfold
-    code-conversion))
-
-(defun eword-decode-quoted-string (string code-conversion &optional must-unfold)
-  (eword-decode-entire-string
-    string
-    eword-encoded-word-in-quoted-string-regexp
-    eword-after-encoded-word-in-quoted-string-regexp
-    "[^ \t\n\"\\\\=]*"
-    ?\\
-    '(?\")
-    '(?\" ?\\ ?\r ?\n)
-    must-unfold
-    code-conversion))
-
-(defun eword-decode-string (string &optional must-unfold code-conversion)
-  "Decode MIME encoded-words in STRING.
-
-STRING is unfolded before decoding.
-
-If an encoded-word is broken or your emacs implementation can not
-decode the charset included in it, it is not decoded.
-
-If MUST-UNFOLD is non-nil, it unfolds and eliminates line-breaks even
-if there are in decoded encoded-words (generated by bad manner MUA
-such as a version of Net$cape).
-
-If CODE-CONVERSION is nil, it decodes only encoded-words.  If it is
-mime-charset, it decodes non-ASCII bit patterns as the mime-charset.
-Otherwise it decodes non-ASCII bit patterns as the
-default-mime-charset."
-  (eword-decode-unstructured
-    (std11-unfold-string string)
-    code-conversion
-    must-unfold))
-
-
-;;; @ for region
-;;;
-
-(defun eword-decode-region (start end &optional unfolding must-unfold
-						code-conversion)
-  "Decode MIME encoded-words in region between START and END.
-
-If UNFOLDING is not nil, it unfolds before decoding.
-
-If MUST-UNFOLD is non-nil, it unfolds and eliminates line-breaks even
-if there are in decoded encoded-words (generated by bad manner MUA
-such as a version of Net$cape).
-
-If CODE-CONVERSION is nil, it decodes only encoded-words.  If it is
-mime-charset, it decodes non-ASCII bit patterns as the mime-charset.
-Otherwise it decodes non-ASCII bit patterns as the
-default-mime-charset."
-  (interactive "*r")
-  (rotate-memo args-eword-decode-region
-	       (list start end (buffer-substring start end) unfolding must-unfold code-conversion))
-  (save-excursion
-    (save-restriction
-      (narrow-to-region start end)
-      (if unfolding
-	  (eword-decode-unfold)
-	)
-      (let ((str (eword-decode-unstructured
-		   (buffer-substring (point-min) (point-max))
-		   code-conversion
-		   must-unfold)))
-	(delete-region (point-min) (point-max))
-	(insert str)))))
-
-
-;;; @ for message header
-;;;
-
-(defcustom eword-decode-ignored-field-list
-  '(Newsgroups Path Lines Nntp-Posting-Host Received Message-Id Date)
-  "*List of field-names to be ignored when decoding.
-Each field name must be symbol."
-  :group 'eword-decode
-  :type '(repeat symbol))
-
-(defcustom eword-decode-structured-field-list
-  '(Reply-To Resent-Reply-To From Resent-From Sender Resent-Sender
-	     To Resent-To Cc Resent-Cc Bcc Resent-Bcc Dcc
-	     Mime-Version Content-Type Content-Transfer-Encoding
-	     Content-Disposition)
-  "*List of field-names to decode as structured field.
-Each field name must be symbol."
-  :group 'eword-decode
-  :type '(repeat symbol))
-
-(defun eword-decode-header (&optional code-conversion separator)
-  "Decode MIME encoded-words in header fields.
-If CODE-CONVERSION is nil, it decodes only encoded-words.  If it is
-mime-charset, it decodes non-ASCII bit patterns as the mime-charset.
-Otherwise it decodes non-ASCII bit patterns as the
-default-mime-charset.
-If SEPARATOR is not nil, it is used as header separator."
-  (interactive "*")
-  (rotate-memo args-eword-decode-header (list code-conversion))
-  (unless code-conversion
-    (message "eword-decode-header is called with no code-conversion")
-    (sit-for 2))
-  (if (and code-conversion
-	   (not (mime-charset-to-coding-system code-conversion)))
-      (setq code-conversion default-mime-charset))
-  (save-excursion
-    (save-restriction
-      (std11-narrow-to-header separator)
-      (rotate-memo args-h-eword-decode-header (buffer-substring (point-min) (point-max)))
-      (if code-conversion
-	  (let (beg p end field-name field-body decoded)
-	    (goto-char (point-min))
-	    (while (re-search-forward std11-field-head-regexp nil t)
-	      (setq beg (match-beginning 0)
-		    p (match-end 0)
-		    field-name (buffer-substring beg (1- p))
-		    end (std11-field-end)
-		    field-body (buffer-substring p end)
-		    decoded (ew-decode-field
-			     field-name
-			     (ew-lf-crlf-to-crlf field-body)))
-	      (unless (equal field-body decoded)
-		(setq decoded (ew-crlf-refold
-			       decoded
-			       (1+ (string-width field-name))
-			       fill-column)))
-	      (delete-region p end)
-	      (insert (ew-crlf-to-lf decoded))))
-	(eword-decode-region (point-min) (point-max) t nil nil)
-	))))
-
-(defun eword-decode-unfold ()
-  (goto-char (point-min))
-  (let (field beg end)
-    (while (re-search-forward std11-field-head-regexp nil t)
-      (setq beg (match-beginning 0)
-            end (std11-field-end))
-      (setq field (buffer-substring beg end))
-      (if (string-match eword-encoded-word-regexp field)
-          (save-restriction
-            (narrow-to-region (goto-char beg) end)
-            (while (re-search-forward "\n\\([ \t]\\)" nil t)
-              (replace-match (match-string 1))
-              )
-	    (goto-char (point-max))
-	    ))
-      )))
-
-
-;;; @ encoded-word decoder
-;;;
-
-(defvar eword-decode-encoded-word-error-handler
-  'eword-decode-encoded-word-default-error-handler)
-
-(defvar eword-warning-face nil
-  "Face used for invalid encoded-word.")
-
-(defun eword-decode-encoded-word-default-error-handler (word signal)
-  (and (add-text-properties 0 (length word)
-			    (and eword-warning-face
-				 (list 'face eword-warning-face))
-			    word)
-       word))
-
-(defun eword-decode-encoded-word (word &optional must-unfold)
-  "Decode WORD if it is an encoded-word.
-
-If your emacs implementation can not decode the charset of WORD, it
-returns WORD.  Similarly the encoded-word is broken, it returns WORD.
-
-If MUST-UNFOLD is non-nil, it unfolds and eliminates line-breaks even
-if there are in decoded encoded-word (generated by bad manner MUA such
-as a version of Net$cape)."
-  (or (if (string-match eword-encoded-word-regexp word)
-	  (let ((charset
-		 (substring word (match-beginning 1) (match-end 1))
-		 )
-		(encoding
-		 (upcase
-		  (substring word (match-beginning 2) (match-end 2))
-		  ))
-		(text
-		 (substring word (match-beginning 3) (match-end 3))
-		 ))
-            (condition-case err
-                (eword-decode-encoded-text charset encoding text must-unfold)
-              (error
-	       (funcall eword-decode-encoded-word-error-handler word err)
-               ))
-            ))
-      word))
-
-
-;;; @ encoded-text decoder
-;;;
-
-(defun eword-decode-encoded-text (charset encoding string
-					  &optional must-unfold)
-  "Decode STRING as an encoded-text.
-
-If your emacs implementation can not decode CHARSET, it returns nil.
-
-If ENCODING is not \"B\" or \"Q\", it occurs error.
-So you should write error-handling code if you don't want break by errors.
-
-If MUST-UNFOLD is non-nil, it unfolds and eliminates line-breaks even
-if there are in decoded encoded-text (generated by bad manner MUA such
-as a version of Net$cape)."
-  (let ((cs (mime-charset-to-coding-system charset)))
-    (if cs
-	(let ((dest
-               (cond
-                ((string-equal "B" encoding)
-                 (if (and (string-match eword-B-encoded-text-regexp string)
-                          (string-equal string (match-string 0 string)))
-                     (base64-decode-string string)
-                   (error "Invalid encoded-text %s" string)))
-                ((string-equal "Q" encoding)
-                 (if (and (string-match eword-Q-encoded-text-regexp string)
-                          (string-equal string (match-string 0 string)))
-                     (q-encoding-decode-string string)
-                   (error "Invalid encoded-text %s" string)))
-                (t
-                 (error "Invalid encoding %s" encoding)
-                 )))
-              )
-	  (when dest
-	    (setq dest (decode-mime-charset-string dest charset))
-	    (if must-unfold
-		(mapconcat (function
-			    (lambda (chr)
-			      (cond ((eq chr ?\n) "")
-				    ((eq chr ?\t) " ")
-				    (t (char-to-string chr)))
-			      ))
-			   (std11-unfold-string dest)
-			   "")
-	      dest))))))
-
-
-;;; @ lexical analyze
-;;;
-
-(defvar eword-lexical-analyze-cache nil)
-(defvar eword-lexical-analyze-cache-max 299
-  "*Max position of eword-lexical-analyze-cache.
-It is max size of eword-lexical-analyze-cache - 1.")
-
-(defcustom eword-lexical-analyzers
-  '(eword-analyze-quoted-string
-    eword-analyze-domain-literal
-    eword-analyze-comment
-    eword-analyze-spaces
-    eword-analyze-special
-    eword-analyze-encoded-word
-    eword-analyze-atom)
-  "*List of functions to return result of lexical analyze.
-Each function must have two arguments: STRING and MUST-UNFOLD.
-STRING is the target string to be analyzed.
-If MUST-UNFOLD is not nil, each function must unfold and eliminate
-bare-CR and bare-LF from the result even if they are included in
-content of the encoded-word.
-Each function must return nil if it can not analyze STRING as its
-format.
-
-Previous function is preferred to next function.  If a function
-returns nil, next function is used.  Otherwise the return value will
-be the result."
-  :group 'eword-decode
-  :type '(repeat function))
-
-(defun eword-analyze-quoted-string (string &optional must-unfold)
-  (let ((p (std11-check-enclosure string ?\" ?\")))
-    (if p
-        (cons (cons 'quoted-string
-                    (if eword-decode-quoted-encoded-word
-                        (eword-decode-quoted-string
-                          (substring string 0 p)
-                          default-mime-charset)
-                      (std11-wrap-as-quoted-string
-                       (decode-mime-charset-string
-                        (std11-strip-quoted-pair (substring string 1 (1- p)))
-                        default-mime-charset))))
-              (substring string p)))
-    ))
-
-(defun eword-analyze-domain-literal (string &optional must-unfold)
-  (std11-analyze-domain-literal string))
-
-(defun eword-analyze-comment (string &optional must-unfold)
-  (let ((len (length string)))
-    (if (and (< 0 len) (eq (aref string 0) ?\())
-	(let ((p 0))
-	  (while (and p (< p len) (eq (aref string p) ?\())
-	    (setq p (std11-check-enclosure string ?\( ?\) t p)))
-	  (setq p (or p len))
-	  (cons (cons 'comment
-		      (eword-decode-comment
-		        (std11-unfold-string (substring string 0 p))
-			default-mime-charset))
-		(substring string p)))
-      nil)))
-
-(defun eword-analyze-spaces (string &optional must-unfold)
-  (std11-analyze-spaces string))
-
-(defun eword-analyze-special (string &optional must-unfold)
-  (std11-analyze-special string))
-
-(defun eword-analyze-encoded-word (string &optional must-unfold)
-  (let ((decoded (eword-decode-first-encoded-words
-                  string
-                  eword-encoded-word-in-phrase-regexp
-                  eword-after-encoded-word-in-phrase-regexp
-                  must-unfold)))
-    (if decoded
-        (let ((s (car decoded)))
-          (while (or (string-match std11-atom-regexp s)
-                     (string-match std11-spaces-regexp s))
-            (setq s (substring s (match-end 0))))
-          (if (= (length s) 0)
-              (cons (cons 'atom (car decoded)) (cdr decoded))
-            (cons (cons 'quoted-string
-                        (std11-wrap-as-quoted-string (car decoded)))
-                  (cdr decoded)))))))
-
-(defun eword-analyze-atom (string &optional must-unfold)
-  (if (let ((enable-multibyte-characters nil))
-        (string-match std11-atom-regexp string))
-      (let ((end (match-end 0)))
-	(if (and eword-decode-sticked-encoded-word
-		 (string-match eword-encoded-word-in-phrase-regexp
-		 	       (substring string 0 end))
-		 (< 0 (match-beginning 0)))
-	    (setq end (match-beginning 0)))
-	(cons (cons 'atom (decode-mime-charset-string
-			   (substring string 0 end)
-			   default-mime-charset))
-	      (substring string end)
-	      ))))
-
-(defun eword-lexical-analyze-internal (string must-unfold)
-  (let ((last 'eword-analyze-spaces)
-        dest ret)
-    (while (not (string-equal string ""))
-      (setq ret
-            (let ((rest eword-lexical-analyzers)
-                  func r)
-              (while (and (setq func (car rest))
-                          (or
-                           (and
-                            (not eword-decode-sticked-encoded-word)
-                            (not (eq last 'eword-analyze-spaces))
-                            (eq func 'eword-analyze-encoded-word))
-                           (null (setq r (funcall func string must-unfold))))
-                          )
-                (setq rest (cdr rest)))
-              (setq last func)
-              (or r `((error . ,string) . ""))
-              ))
-      (setq dest (cons (car ret) dest))
-      (setq string (cdr ret))
-      )
-    (nreverse dest)
-    ))
-
-(defun eword-lexical-analyze (string &optional must-unfold)
-  "Return lexical analyzed list corresponding STRING.
-It is like std11-lexical-analyze, but it decodes non us-ascii
-characters encoded as encoded-words or invalid \"raw\" format.
-\"Raw\" non us-ascii characters are regarded as variable
-`default-mime-charset'."
-  (let* ((str (copy-sequence string))
-  	 (key (cons str (cons default-mime-charset must-unfold)))
-	 ret)
-    (set-text-properties 0 (length str) nil str)
-    (if (setq ret (assoc key eword-lexical-analyze-cache))
-	(cdr ret)
-      (setq ret (eword-lexical-analyze-internal str must-unfold))
-      (setq eword-lexical-analyze-cache
-	    (cons (cons key ret)
-		  (last eword-lexical-analyze-cache
-			eword-lexical-analyze-cache-max)))
-      ret)))
-
-(defun eword-decode-token (token)
-  (cdr token))
-
-(defun eword-decode-and-fold-structured-field
-  (string start-column &optional max-column must-unfold)
-  "Decode and fold (fill) STRING as structured field body.
-It decodes non us-ascii characters in FULL-NAME encoded as
-encoded-words or invalid \"raw\" string.  \"Raw\" non us-ascii
-characters are regarded as variable `default-mime-charset'.
-
-If an encoded-word is broken or your emacs implementation can not
-decode the charset included in it, it is not decoded.
-
-If MAX-COLUMN is omitted, `fill-column' is used.
-
-If MUST-UNFOLD is non-nil, it unfolds and eliminates line-breaks even
-if there are in decoded encoded-words (generated by bad manner MUA
-such as a version of Net$cape)."
-  (rotate-memo args-eword-decode-and-fold-structured-field
-	       (list string start-column max-column must-unfold))
-  (or max-column
-      (setq max-column fill-column))
-  (let* ((field-name (make-string (1- start-column) ?X))
-	 (field-body (ew-lf-crlf-to-crlf string))
-	 (ew-decode-field-default-syntax '(ew-scan-unibyte-std11))
-	 (decoded (ew-decode-field field-name field-body)))
-    (unless (equal field-body decoded)
-      (setq decoded (ew-crlf-refold decoded start-column max-column)))
-    (ew-crlf-to-lf decoded)))
-
-(defun eword-decode-and-unfold-structured-field (string)
-  "Decode and unfold STRING as structured field body.
-It decodes non us-ascii characters in FULL-NAME encoded as
-encoded-words or invalid \"raw\" string.  \"Raw\" non us-ascii
-characters are regarded as variable `default-mime-charset'.
-
-If an encoded-word is broken or your emacs implementation can not
-decode the charset included in it, it is not decoded."
-  (rotate-memo args-eword-decode-and-unfold-structured-field (list string))
-  (let* ((ew-decode-field-default-syntax '(ew-scan-unibyte-std11))
-	 (decoded (ew-decode-field "" (ew-lf-crlf-to-crlf string))))
-    (ew-crlf-to-lf (ew-crlf-unfold decoded))))
-
-(defun eword-decode-structured-field-body (string &optional must-unfold
-						  start-column max-column)
-  "Decode non us-ascii characters in STRING as structured field body.
-STRING is unfolded before decoding.
-
-It decodes non us-ascii characters in FULL-NAME encoded as
-encoded-words or invalid \"raw\" string.  \"Raw\" non us-ascii
-characters are regarded as variable `default-mime-charset'.
-
-If an encoded-word is broken or your emacs implementation can not
-decode the charset included in it, it is not decoded.
-
-If MUST-UNFOLD is non-nil, it unfolds and eliminates line-breaks even
-if there are in decoded encoded-words (generated by bad manner MUA
-such as a version of Net$cape)."
-  (rotate-memo args-eword-decode-structured-field-body
-	       (list string must-unfold start-column max-column))
-  (if start-column
-      ;; fold with max-column
-      (eword-decode-and-fold-structured-field
-       string start-column max-column must-unfold)
-    ;; Don't fold
-    (let* ((ew-decode-field-default-syntax '(ew-scan-unibyte-std11))
-	   (decoded (ew-decode-field "" (ew-lf-crlf-to-crlf string))))
-      (ew-crlf-to-lf decoded))))
-
-(defun eword-decode-unstructured-field-body (string &optional must-unfold)
-  "Decode non us-ascii characters in STRING as unstructured field body.
-STRING is unfolded before decoding.
-
-It decodes non us-ascii characters in FULL-NAME encoded as
-encoded-words or invalid \"raw\" string.  \"Raw\" non us-ascii
-characters are regarded as variable `default-mime-charset'.
-
-If an encoded-word is broken or your emacs implementation can not
-decode the charset included in it, it is not decoded.
-
-If MUST-UNFOLD is non-nil, it unfolds and eliminates line-breaks even
-if there are in decoded encoded-words (generated by bad manner MUA
-such as a version of Net$cape)."
-  (rotate-memo args-eword-decode-unstructured-field-body
-	       (list string must-unfold))
-  (let ((decoded (ew-decode-field "" (ew-lf-crlf-to-crlf string))))
-    (ew-crlf-to-lf (ew-crlf-unfold decoded))))
-
-(defun eword-extract-address-components (string)
-  "Extract full name and canonical address from STRING.
-Returns a list of the form (FULL-NAME CANONICAL-ADDRESS).
-If no name can be extracted, FULL-NAME will be nil.
-It decodes non us-ascii characters in FULL-NAME encoded as
-encoded-words or invalid \"raw\" string.  \"Raw\" non us-ascii
-characters are regarded as variable `default-mime-charset'."
-  (rotate-memo args-eword-extract-address-components (list string))
-  (let* ((structure (car (std11-parse-address
-			  (eword-lexical-analyze
-			   (std11-unfold-string string) 'must-unfold))))
-         (phrase  (std11-full-name-string structure))
-         (address (std11-address-string structure))
-         )
-    (list phrase address)
-    ))
-
-
-;;; @ end
-;;;
-
-(provide 'eword-decode)
-
-;;; eword-decode.el ends here
diff --git a/eword-encode.el b/eword-encode.el
deleted file mode 100644
index 41bb25f..0000000
--- a/eword-encode.el
+++ /dev/null
@@ -1,635 +0,0 @@
-;;; eword-encode.el --- RFC 2047 based encoded-word encoder for GNU Emacs
-
-;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko 
-;; Keywords: encoded-word, MIME, multilingual, header, mail, news
-
-;; This file is part of SEMI (Spadework for Emacs MIME Interfaces).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'emu)
-(require 'mel)
-(require 'std11)
-(require 'mime-def)
-(require 'eword-decode)
-
-
-;;; @ variables
-;;;
-
-(defvar eword-field-encoding-method-alist
-  '(("X-Nsubject" . iso-2022-jp-2)
-    ("Newsgroups" . nil)
-    ("Message-ID" . nil)
-    (t            . mime)
-    )
-  "*Alist to specify field encoding method.
-Its key is field-name, value is encoding method.
-
-If method is `mime', this field will be encoded into MIME format.
-
-If method is a MIME-charset, this field will be encoded as the charset
-when it must be convert into network-code.
-
-If method is `default-mime-charset', this field will be encoded as
-variable `default-mime-charset' when it must be convert into
-network-code.
-
-If method is nil, this field will not be encoded.")
-
-(defvar eword-charset-encoding-alist
-  '((us-ascii		. nil)
-    (iso-8859-1		. "Q")
-    (iso-8859-2		. "Q")
-    (iso-8859-3		. "Q")
-    (iso-8859-4		. "Q")
-    (iso-8859-5		. "Q")
-    (koi8-r		. "Q")
-    (iso-8859-7		. "Q")
-    (iso-8859-8		. "Q")
-    (iso-8859-9		. "Q")
-    (iso-2022-jp	. "B")
-    (iso-2022-kr	. "B")
-    (gb2312		. "B")
-    (cn-gb		. "B")
-    (cn-gb-2312		. "B")
-    (euc-kr		. "B")
-    (iso-2022-jp-2	. "B")
-    (iso-2022-int-1	. "B")
-    ))
-
-
-;;; @ encoded-text encoder
-;;;
-
-(defun eword-encode-text (charset encoding string &optional mode)
-  "Encode STRING as an encoded-word, and return the result.
-CHARSET is a symbol to indicate MIME charset of the encoded-word.
-ENCODING allows \"B\" or \"Q\".
-MODE is allows `text', `comment', `phrase' or nil.  Default value is
-`phrase'."
-  (let ((text
-	 (cond ((string= encoding "B")
-		(base64-encode-string string))
-	       ((string= encoding "Q")
-		(q-encoding-encode-string string mode))
-	       )
-	 ))
-    (if text
-	(concat "=?" (upcase (symbol-name charset)) "?"
-		encoding "?" text "?=")
-      )))
-
-
-;;; @ charset word
-;;;
-
-(defsubst eword-encode-char-type (character)
-  (if (or (eq character ? )(eq character ?\t))
-      nil
-    (char-charset character)
-    ))
-
-(defun eword-encode-divide-into-charset-words (string)
-  (let ((len (length string))
-	dest)
-    (while (> len 0)
-      (let* ((chr (sref string 0))
-	     (charset (eword-encode-char-type chr))
-	     (i (char-length chr)))
-	(while (and (< i len)
-		    (setq chr (sref string i))
-		    (eq charset (eword-encode-char-type chr))
-		    )
-	  (setq i (char-next-index chr i))
-	  )
-	(setq dest (cons (cons charset (substring string 0 i)) dest)
-	      string (substring string i)
-	      len (- len i)
-	      )))
-    (nreverse dest)
-    ))
-
-
-;;; @ word
-;;;
-
-(defun eword-encode-charset-words-to-words (charset-words)
-  (let (dest)
-    (while charset-words
-      (let* ((charset-word (car charset-words))
-	     (charset (car charset-word))
-	     )
-	(if charset
-	    (let ((charsets (list charset))
-		  (str (cdr charset-word))
-		  )
-	      (catch 'tag
-		(while (setq charset-words (cdr charset-words))
-		  (setq charset-word (car charset-words)
-			charset (car charset-word))
-		  (if (null charset)
-		      (throw 'tag nil)
-		    )
-		  (or (memq charset charsets)
-		      (setq charsets (cons charset charsets))
-		      )
-		  (setq str (concat str (cdr charset-word)))
-		  ))
-	      (setq dest (cons (cons charsets str) dest))
-	      )
-	  (setq dest (cons charset-word dest)
-		charset-words (cdr charset-words)
-		))))
-    (nreverse dest)
-    ))
-
-
-;;; @ rule
-;;;
-
-(defmacro tm-eword::make-rword (text charset encoding type)
-  (` (list (, text)(, charset)(, encoding)(, type))))
-(defmacro tm-eword::rword-text (rword)
-  (` (car (, rword))))
-(defmacro tm-eword::rword-charset (rword)
-  (` (car (cdr (, rword)))))
-(defmacro tm-eword::rword-encoding (rword)
-  (` (car (cdr (cdr (, rword))))))
-(defmacro tm-eword::rword-type (rword)
-  (` (car (cdr (cdr (cdr (, rword)))))))
-
-(defun tm-eword::find-charset-rule (charsets)
-  (if charsets
-      (let* ((charset (charsets-to-mime-charset charsets))
-	     (encoding (cdr (assq charset eword-charset-encoding-alist)))
-	     )
-	(list charset encoding)
-	)))
-
-(defun tm-eword::words-to-ruled-words (wl &optional mode)
-  (mapcar (function
-	   (lambda (word)
-	     (let ((ret (tm-eword::find-charset-rule (car word))))
-	       (tm-eword::make-rword (cdr word) (car ret)(nth 1 ret) mode)
-	       )))
-	  wl))
-
-(defun tm-eword::space-process (seq)
-  (let (prev a ac b c cc)
-    (while seq
-      (setq b (car seq))
-      (setq seq (cdr seq))
-      (setq c (car seq))
-      (setq cc (tm-eword::rword-charset c))
-      (if (null (tm-eword::rword-charset b))
-	  (progn
-	    (setq a (car prev))
-	    (setq ac (tm-eword::rword-charset a))
-	    (if (and (tm-eword::rword-encoding a)
-		     (tm-eword::rword-encoding c))
-		(cond ((eq ac cc)
-		       (setq prev (cons
-				   (cons (concat (car a)(car b)(car c))
-					 (cdr a))
-				   (cdr prev)
-				   ))
-		       (setq seq (cdr seq))
-		       )
-		      (t
-		       (setq prev (cons
-				   (cons (concat (car a)(car b))
-					 (cdr a))
-				   (cdr prev)
-				   ))
-		       ))
-	      (setq prev (cons b prev))
-	      ))
-	(setq prev (cons b prev))
-	))
-    (reverse prev)
-    ))
-
-(defun tm-eword::split-string (str &optional mode)
-  (tm-eword::space-process
-   (tm-eword::words-to-ruled-words
-    (eword-encode-charset-words-to-words
-     (eword-encode-divide-into-charset-words str))
-    mode)))
-
-
-;;; @ length
-;;;
-
-(defun tm-eword::encoded-word-length (rword)
-  (let ((string   (tm-eword::rword-text     rword))
-	(charset  (tm-eword::rword-charset  rword))
-	(encoding (tm-eword::rword-encoding rword))
-	ret)
-    (setq ret
-	  (cond ((string-equal encoding "B")
-		 (setq string (encode-mime-charset-string string charset))
-		 (base64-encoded-length string)
-		 )
-		((string-equal encoding "Q")
-		 (setq string (encode-mime-charset-string string charset))
-		 (q-encoding-encoded-length string
-					    (tm-eword::rword-type rword))
-		 )))
-    (if ret
-	(cons (+ 7 (length (symbol-name charset)) ret) string)
-      )))
-
-
-;;; @ encode-string
-;;;
-
-(defun tm-eword::encode-string-1 (column rwl)
-  (let* ((rword (car rwl))
-	 (ret (tm-eword::encoded-word-length rword))
-	 string len)
-    (if (null ret)
-	(cond ((and (setq string (car rword))
-		    (or (<= (setq len (+ (length string) column)) 76)
-			(<= column 1))
-		    )
-	       (setq rwl (cdr rwl))
-	       )
-	      (t
-	       (setq string "\n ")
-	       (setq len 1)
-	       ))
-      (cond ((and (setq len (car ret))
-		  (<= (+ column len) 76)
-		  )
-	     (setq string
-		   (eword-encode-text
-		    (tm-eword::rword-charset rword)
-		    (tm-eword::rword-encoding rword)
-		    (cdr ret)
-		    (tm-eword::rword-type rword)
-		    ))
-	     (setq len (+ (length string) column))
-	     (setq rwl (cdr rwl))
-	     )
-	    (t
-	     (setq string (car rword))
-	     (let* ((p 0) np
-		    (str "") nstr)
-	       (while (and (< p len)
-			   (progn
-			     (setq np (char-next-index (sref string p) p))
-			     (setq nstr (substring string 0 np))
-			     (setq ret (tm-eword::encoded-word-length
-					(cons nstr (cdr rword))
-					))
-			     (setq nstr (cdr ret))
-			     (setq len (+ (car ret) column))
-			     (<= len 76)
-			     ))
-		 (setq str nstr
-		       p np))
-	       (if (string-equal str "")
-		   (setq string "\n "
-			 len 1)
-		 (setq rwl (cons (cons (substring string p) (cdr rword))
-				 (cdr rwl)))
-		 (setq string
-		       (eword-encode-text
-			(tm-eword::rword-charset rword)
-			(tm-eword::rword-encoding rword)
-			str
-			(tm-eword::rword-type rword)))
-		 (setq len (+ (length string) column))
-		 )
-	       )))
-      )
-    (list string len rwl)
-    ))
-
-(defun tm-eword::encode-rwl (column rwl)
-  (let (ret dest ps special str ew-f pew-f)
-    (while rwl
-      (setq ew-f (nth 2 (car rwl)))
-      (if (and pew-f ew-f)
-	  (setq rwl (cons '(" ") rwl)
-		pew-f nil)
-	(setq pew-f ew-f)
-	)
-      (setq ret (tm-eword::encode-string-1 column rwl))
-      (setq str (car ret))
-      (if (eq (elt str 0) ?\n)
-	  (if (eq special ?\()
-	      (progn
-		(setq dest (concat dest "\n ("))
-		(setq ret (tm-eword::encode-string-1 2 rwl))
-		(setq str (car ret))
-		))
-	(cond ((eq special ? )
-	       (if (string= str "(")
-		   (setq ps t)
-		 (setq dest (concat dest " "))
-		 (setq ps nil)
-		 ))
-	      ((eq special ?\()
-	       (if ps
-		   (progn
-		     (setq dest (concat dest " ("))
-		     (setq ps nil)
-		     )
-		 (setq dest (concat dest "("))
-		 )
-	       )))
-      (cond ((string= str " ")
-	     (setq special ? )
-	     )
-	    ((string= str "(")
-	     (setq special ?\()
-	     )
-	    (t
-	     (setq special nil)
-	     (setq dest (concat dest str))
-	     ))
-      (setq column (nth 1 ret)
-	    rwl (nth 2 ret))
-      )
-    (list dest column)
-    ))
-
-(defun tm-eword::encode-string (column str &optional mode)
-  (tm-eword::encode-rwl column (tm-eword::split-string str mode))
-  )
-
-
-;;; @ converter
-;;;
-
-(defun tm-eword::phrase-to-rwl (phrase)
-  (let (token type dest str)
-    (while phrase
-      (setq token (car phrase))
-      (setq type (car token))
-      (cond ((eq type 'quoted-string)
-	     (setq str (concat "\"" (cdr token) "\""))
-	     (setq dest
-		   (append dest
-			   (list
-			    (let ((ret (tm-eword::find-charset-rule
-					(find-non-ascii-charset-string str))))
-			      (tm-eword::make-rword
-			       str (car ret)(nth 1 ret) 'phrase)
-			      )
-			    )))
-	     )
-	    ((eq type 'comment)
-	     (setq dest
-		   (append dest
-			   '(("(" nil nil))
-			   (tm-eword::words-to-ruled-words
-			    (eword-encode-charset-words-to-words
-			     (eword-encode-divide-into-charset-words
-			      (cdr token)))
-			    'comment)
-			   '((")" nil nil))
-			   ))
-	     )
-	    (t
-	     (setq dest
-		   (append dest
-			   (tm-eword::words-to-ruled-words
-			    (eword-encode-charset-words-to-words
-			     (eword-encode-divide-into-charset-words
-			      (cdr token))
-			     ) 'phrase)))
-	     ))
-      (setq phrase (cdr phrase))
-      )
-    (tm-eword::space-process dest)
-    ))
-
-(defun eword-addr-seq-to-rwl (seq)
-  (let (dest pname)
-    (while seq
-      (let* ((token (car seq))
-	     (name (car token))
-	     )
-	(cond ((eq name 'spaces)
-	       (setq dest (nconc dest (list (list (cdr token) nil nil))))
-	       )
-	      ((eq name 'comment)
-	       (setq dest
-		     (nconc
-		      dest
-		      (list (list "(" nil nil))
-		      (tm-eword::split-string (cdr token) 'comment)
-		      (list (list ")" nil nil))
-		      ))
-	       )
-	      ((eq name 'quoted-string)
-	       (setq dest
-		     (nconc
-		      dest
-		      (list
-		       (list (concat "\"" (cdr token) "\"") nil nil)
-		       )))
-	       )
-	      (t
-	       (setq dest
-		     (if (or (eq pname 'spaces)
-			     (eq pname 'comment))
-			 (nconc dest (list (list (cdr token) nil nil)))
-		       (nconc (butlast dest)
-			      (list
-			       (list (concat (car (car (last dest)))
-					     (cdr token))
-				     nil nil)))))
-	       ))
-	(setq seq (cdr seq)
-	      pname name))
-      )
-    dest))
-
-(defun eword-phrase-route-addr-to-rwl (phrase-route-addr)
-  (if (eq (car phrase-route-addr) 'phrase-route-addr)
-      (let ((phrase (nth 1 phrase-route-addr))
-	    (route (nth 2 phrase-route-addr))
-	    dest)
-	(if (eq (car (car phrase)) 'spaces)
-	    (setq phrase (cdr phrase))
-	  )
-	(setq dest (tm-eword::phrase-to-rwl phrase))
-	(if dest
-	    (setq dest (append dest '((" " nil nil))))
-	  )
-	(append
-	 dest
-	 (eword-addr-seq-to-rwl
-	  (append '((specials . "<"))
-		  route
-		  '((specials . ">"))))
-	 ))))
-
-(defun eword-addr-spec-to-rwl (addr-spec)
-  (if (eq (car addr-spec) 'addr-spec)
-      (eword-addr-seq-to-rwl (cdr addr-spec))
-    ))
-
-(defun tm-eword::mailbox-to-rwl (mbox)
-  (let ((addr (nth 1 mbox))
-	(comment (nth 2 mbox))
-	dest)
-    (setq dest (or (eword-phrase-route-addr-to-rwl addr)
-		   (eword-addr-spec-to-rwl addr)
-		   ))
-    (if comment
-	(setq dest
-	      (append dest
-		      '((" " nil nil)
-			("(" nil nil))
-		      (tm-eword::split-string comment 'comment)
-		      '((")" nil nil))
-		      )))
-    dest))
-
-(defun tm-eword::addresses-to-rwl (addresses)
-  (let ((dest (tm-eword::mailbox-to-rwl (car addresses))))
-    (if dest
-	(while (setq addresses (cdr addresses))
-	  (setq dest (append dest
-			     '(("," nil nil))
-			     '((" " nil nil))
-			     (tm-eword::mailbox-to-rwl (car addresses))
-			     ))
-	  ))
-    dest))
-
-(defun tm-eword::encode-address-list (column str)
-  (tm-eword::encode-rwl
-   column
-   (tm-eword::addresses-to-rwl (std11-parse-addresses-string str))
-   ))
-
-
-;;; @ application interfaces
-;;;
-
-(defun eword-encode-field (string)
-  "Encode header field STRING, and return the result.
-A lexical token includes non-ASCII character is encoded as MIME
-encoded-word.  ASCII token is not encoded."
-  (setq string (std11-unfold-string string))
-  (let ((ret (string-match std11-field-head-regexp string)))
-    (or (if ret
-	    (let ((field-name (substring string 0 (1- (match-end 0))))
-		  (field-body (eliminate-top-spaces
-			       (substring string (match-end 0))))
-		  )
-	      (if (setq ret
-			(cond ((string-equal field-body "") "")
-			      ((memq (intern (downcase field-name))
-				     '(reply-to
-				       from sender
-				       resent-reply-to resent-from
-				       resent-sender to resent-to
-				       cc resent-cc
-				       bcc resent-bcc dcc
-				       mime-version)
-				     )
-			       (car (tm-eword::encode-address-list
-				     (+ (length field-name) 2) field-body))
-			       )
-			      (t
-			       (car (tm-eword::encode-string
-				     (1+ (length field-name))
-				     field-body 'text))
-			       ))
-			)
-		  (concat field-name ": " ret)
-		)))
-	(car (tm-eword::encode-string 0 string))
-	)))
-
-(defun eword-in-subject-p ()
-  (let ((str (std11-field-body "Subject")))
-    (if (and str (string-match eword-encoded-word-regexp str))
-	str)))
-
-(defsubst eword-find-field-encoding-method (field-name)
-  (setq field-name (downcase field-name))
-  (let ((alist eword-field-encoding-method-alist))
-    (catch 'found
-      (while alist
-	(let* ((pair (car alist))
-	       (str (car pair)))
-	  (if (and (stringp str)
-		   (string= field-name (downcase str)))
-	      (throw 'found (cdr pair))
-	    ))
-	(setq alist (cdr alist)))
-      (cdr (assq t eword-field-encoding-method-alist))
-      )))
-
-(defun eword-encode-header (&optional code-conversion)
-  "Encode header fields to network representation, such as MIME encoded-word.
-
-It refer variable `eword-field-encoding-method-alist'."
-  (interactive "*")
-  (save-excursion
-    (save-restriction
-      (std11-narrow-to-header mail-header-separator)
-      (goto-char (point-min))
-      (let ((default-cs (mime-charset-to-coding-system default-mime-charset))
-	    beg end field-name)
-	(while (re-search-forward std11-field-head-regexp nil t)
-	  (setq beg (match-beginning 0))
-	  (setq field-name (buffer-substring beg (1- (match-end 0))))
-	  (setq end (std11-field-end))
-	  (and (find-non-ascii-charset-region beg end)
-	       (let ((method (eword-find-field-encoding-method
-			      (downcase field-name))))
-		 (cond ((eq method 'mime)
-			(let ((field
-			       (buffer-substring-no-properties beg end)
-			       ))
-			  (delete-region beg end)
-			  (insert (eword-encode-field field))
-			  ))
-		       (code-conversion
-			(let ((cs
-			       (or (mime-charset-to-coding-system
-				    method)
-				   default-cs)))
-			  (encode-coding-region beg end cs)
-			  )))
-		 ))
-	  ))
-      )))
-
-(defun eword-encode-string (str &optional column mode)
-  (car (tm-eword::encode-rwl (or column 0) (tm-eword::split-string str mode)))
-  )
-
-
-;;; @ end
-;;;
-
-(provide 'eword-encode)
-
-;;; eword-encode.el ends here
diff --git a/ftp.in b/ftp.in
deleted file mode 100644
index 80b8381..0000000
--- a/ftp.in
+++ /dev/null
@@ -1,17 +0,0 @@
---<>-{
-
-  It is available from
-
-    ftp://ftp.jaist.ac.jp/pub/GNU/elisp/flim/
-
---[[message/external-body;
-	access-type=anon-ftp;
-	site="ftp.jaist.ac.jp";
-	directory="/pub/GNU/elisp/flim";
-	name="flim-VERSION.tar.gz";
-	mode=image]]
-Content-Type: application/octet-stream;
-	name="flim-VERSION.tar.gz";
-	type=tar;
-	conversions=gzip
---}-<>
diff --git a/lalr-el.scm b/lalr-el.scm
deleted file mode 100644
index be9392a..0000000
--- a/lalr-el.scm
+++ /dev/null
@@ -1,1623 +0,0 @@
-;; ---------------------------------------------------------------------- ;;
-;; FICHIER               : lalr.scm                                       ;;
-;; DATE DE CREATION      : Mon Jan 22 15:42:32 1996                       ;;
-;; DERNIERE MODIFICATION : Mon Jun  3 10:24:43 1996                       ;;
-;; ---------------------------------------------------------------------- ;;
-;; Copyright (C) 1984, 1989, 1990 Free Software Foundation, Inc.          ;;
-;;   (for the Bison source code translated in Scheme)                     ;;
-;; Copyright (C) 1996 Dominique Boucher                                   ;;
-;;   (for the translation in Scheme)                                      ;;
-;; ---------------------------------------------------------------------- ;;
-;; An efficient Scheme LALR(1) Parser Generator  -- lalr.scm              ;;
-;; ---------------------------------------------------------------------- ;;
-;; This file contains yet another LALR(1) parser generator written in     ;;
-;; Scheme. In contrast to other such parser generators, this one          ;;
-;; implements a more efficient algorithm for computing the lookahead sets.;;
-;; The algorithm is the same as used in Bison (GNU yacc) and is described ;;
-;; in the following paper:                                                ;;
-;;                                                                        ;;
-;; "Efficient Computation of LALR(1) Look-Ahead Set", F. DeRemer and      ;;
-;; T. Pennello, TOPLAS, vol. 4, no. 4, october 1982.                      ;;
-;;                                                                        ;;
-;; As a consequence, it is not written in a fully functional style.       ;;
-;; The program has been successfully tested on several Scheme             ;;
-;; interpreters and compilers, including scm4d3, Gambit v2.2, and         ;;
-;; MIT-Scheme 7.2.0 (microcode 11.127, runtime 14.160).                   ;;
-;; ---------------------------------------------------------------------- ;;
-;; HOW TO USE THE PROGRAM                                                 ;;
-;;                                                                        ;;
-;; To generate a parser for a given grammar, the latter must be first     ;;
-;; written down in scheme. The next section will describe the syntax      ;;
-;; of the grammar. Now suppose your grammar is defined like this:         ;;
-;;                                                                        ;;
-;;    (define my-grammar { grammar })                                     ;;
-;;                                                                        ;;
-;; All you need to do is evaluate the expression:                         ;;
-;;                                                                        ;;
-;;    (gen-lalr1 my-grammar "file" [prefix])                              ;;
-;;                                                                        ;;
-;; where "file" is the name of the file (a string) that will contain the  ;;
-;; tables for LR-parsing. The last argument must be supplied if you want  ;;
-;; multiple parsers coexist in the same application. It must be a symbol, ;;
-;; otherwise it will be ignored.                                          ;;
-;;                                                                        ;;
-;; To run the parser, you must first load the LR parsing driver(also part ;;
-;; of this distribution):                                                 ;;
-;;                                                                        ;;
-;;      (load "lr-dvr.scm")                                               ;;
-;;                                                                        ;;
-;; The interface to the generated parser will be the function             ;;
-;;                                                                        ;;
-;;     ([prefix-]parse lexer errorp)                                      ;;
-;;                                                                        ;;
-;; where lexer is the name of the scanner feeding the parser with pairs   ;;
-;; (token . lval) and errorp is the name of a user-defined error          ;;
-;; function (the standard error function can be used as well).            ;;
-;;                                                                        ;;
-;;                                                                        ;;
-;; Here are some notes about the lexer and the error function:            ;;
-;;                                                                        ;;
-;;   - the tokens (which are the first components of the pairs returned   ;;
-;;     by the lexer) must agree with the tokens defined in the grammar.   ;;
-;;                                                                        ;;
-;;   - when the lexer wants to signal the end of the input, it must       ;;
-;;     return the pair '(0) each time it's invoked.                       ;;
-;;                                                                        ;;
-;;   - the error function must accept two parameters (the standard error  ;;
-;;     function accepts a variable number of parameters, so it accepts    ;;
-;;     two).                                                              ;;
-;;                                                                        ;;
-;; ---------------------------------------------------------------------- ;;
-;; THE GRAMMAR FORMAT                                                     ;;
-;;                                                                        ;;
-;; The grammar is specified by first giving the list of terminals and the ;;
-;; list of non-terminal definitions. Each non-terminal definition         ;;
-;; is a list where the first element is the non-terminal and the other    ;;
-;; elements are the right-hand sides (lists of grammar symbols). In       ;;
-;; addition to this, each rhs can be followed by a semantic action.       ;;
-;; By convention, use strings for tokens and atoms for non-terminals.     ;;
-;;                                                                        ;;
-;; For example, consider the following (yacc) grammar:                    ;;
-;;                                                                        ;;
-;;   e : e '+' t                                                          ;;
-;;     | t                                                                ;;
-;;     ;                                                                  ;;
-;;                                                                        ;;
-;;   t : t '*' f                                                          ;;
-;;     | f                                                                ;;
-;;     ;                                                                  ;;
-;;                                                                        ;;
-;;   f : ID                                                               ;;
-;;     ;                                                                  ;;
-;;                                                                        ;;
-;; The same grammar, written for the scheme parser generator, would look  ;;
-;; like this (with semantic actions)                                      ;;
-;;                                                                        ;;
-;; (define my-grammar                                                     ;;
-;;   '(                                                                   ;;
-;;     ; Terminal symbols                                                 ;;
-;;     ID ADD MULT                                                        ;;
-;;     ; Productions                                                      ;;
-;;     (e (e ADD t)  : (+ $1 $3)                                          ;;
-;;        (t)        : $1                                                 ;;
-;;        )                                                               ;;
-;;     (t (t MULT f) : (* $1 $3)                                          ;;
-;;        (f)        : $1                                                 ;;
-;;        )                                                               ;;
-;;     (f (ID)       : $1)                                                ;;
-;;    ))                                                                  ;;
-;;                                                                        ;;
-;; In semantic actions, the symbol $ refers to the synthesized         ;;
-;; attribute value of the nth symbol in the production. The value         ;;
-;; associated with the non-terminal on the left is the result of          ;;
-;; evaluating the semantic action (it defaults to #f).                    ;;
-;;                                                                        ;;
-;; If you evaluate                                                        ;;
-;;                                                                        ;;
-;;    (gen-lalr1 my-grammar "foo.scm" 'my)                                ;;
-;;                                                                        ;;
-;; then the generated parser will be named 'my-parser'.                   ;;
-;;                                                                        ;;
-;; NOTE ON CONFLICT RESOLUTION                                            ;;
-;;                                                                        ;;
-;; Conflicts in the grammar are handled in a conventional way.            ;;
-;; Shift/Reduce conflicts are resolved by shifting, and Reduce/Reduce     ;;
-;; conflicts are resolved by choosing the rule listed first in the        ;;
-;; grammar definition.                                                    ;;
-;;                                                                        ;;
-;; You can print the states of the generated parser by evaluating         ;;
-;; `(print-states)'. The format of the output is similar to the one       ;;
-;; produced by bison when given the -v command-line option.               ;;
-;; ---------------------------------------------------------------------- ;;
-;; lalr.scm is free software; you can redistribute it and/or modify       ;;
-;; it under the terms of the GNU General Public License as published by   ;;
-;; the Free Software Foundation; either version 2, or (at your option)    ;;
-;; any later version.                                                     ;;
-;;                                                                        ;;
-;; lalr.scm is distributed in the hope that it will be useful,            ;;
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of         ;;
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          ;;
-;; GNU General Public License for more details.                           ;;
-;;                                                                        ;;
-;; You should have received a copy of the GNU General Public License      ;;
-;; along with lalr.scm; see the file COPYING.  If not, write to           ;;
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  ;;
-;;                                                                        ;;
-;; Dominique Boucher -- Universite de Montreal                            ;;
-;;                                                                        ;;
-;; Send questions, comments or suggestions to boucherd@iro.umontreal.ca   ;;
-;; ---------------------------------------------------------------------- ;;
-
-;; 1998/08/16: Tanaka Akira  transplants generating code from Scheme to Emacs-Lisp.
-
-;;; ---------- SYSTEM DEPENDENT SECTION -----------------
-
-;; -------- SCM
-(begin
-  (defmacro def-macro (args body)
-    `(defmacro ,(car args) ,(cdr args) ,body))
-  
-  (def-macro (BITS-PER-WORD) 24)
-  (def-macro (logical-or x . y) `(logior ,x ,@y))
-  )
-
-;; -------- MIT-Scheme 
-'(begin
-  (declare (usual-integrations))
-  
-  (define-macro (def-macro form . body)
-    `(DEFINE-MACRO ,form (LET () ,@body)))
-    
-  (def-macro (BITS-PER-WORD) 24)
-  (def-macro (logical-or x . y) `(fix:or ,x ,@y))
-  )
-
-;; -------- Gambit
-'(begin
-   
- (declare 
-  (standard-bindings)
-  (fixnum)
-  (block)
-  (not safe))
-
- (define-macro (def-macro form . body)
-    `(DEFINE-MACRO ,form (LET () ,@body)))
-    
-  (def-macro (BITS-PER-WORD) 28)
-  (def-macro (logical-or x . y) `(,(string->symbol "##logior") ,x ,@y))
-  )
-
-;; -------- Bigloo 
-'(begin	    
-  
- (define-macro (def-macro form . body)
-    `(DEFINE-MACRO ,form (LET () ,@body)))
- (def-macro (BITS-PER-WORD) 16)
- (def-macro (logical-or x . y) `(bit-or ,x ,@y))
- )
-
-;;; ---------- END OF SYSTEM DEPENDENT SECTION ------------
-
-;; - Macros pour la gestion des vecteurs de bits
-
-(def-macro (set-bit v b)
-  `(let ((x (quotient ,b (BITS-PER-WORD)))
-	 (y (expt 2 (remainder ,b (BITS-PER-WORD)))))
-     (vector-set! ,v x (logical-or (vector-ref ,v x) y))))
-
-(def-macro (bit-union v1 v2 n)
-  `(do ((i 0 (+ i 1)))
-       ((= i ,n))
-     (vector-set! ,v1 i (logical-or (vector-ref ,v1 i) 
-				    (vector-ref ,v2 i)))))
-
-;; - Macro pour les structures de donnees
-
-(def-macro (new-core)              `(make-vector 4 0))
-(def-macro (set-core-number! c n)  `(vector-set! ,c 0 ,n))
-(def-macro (set-core-acc-sym! c s) `(vector-set! ,c 1 ,s))
-(def-macro (set-core-nitems! c n)  `(vector-set! ,c 2 ,n))
-(def-macro (set-core-items! c i)   `(vector-set! ,c 3 ,i))
-(def-macro (core-number c)         `(vector-ref ,c 0))
-(def-macro (core-acc-sym c)        `(vector-ref ,c 1))
-(def-macro (core-nitems c)         `(vector-ref ,c 2))
-(def-macro (core-items c)          `(vector-ref ,c 3))
-
-(def-macro (new-shift)              `(make-vector 3 0))
-(def-macro (set-shift-number! c x)  `(vector-set! ,c 0 ,x))
-(def-macro (set-shift-nshifts! c x) `(vector-set! ,c 1 ,x))
-(def-macro (set-shift-shifts! c x)  `(vector-set! ,c 2 ,x))
-(def-macro (shift-number s)         `(vector-ref ,s 0))
-(def-macro (shift-nshifts s)        `(vector-ref ,s 1))
-(def-macro (shift-shifts s)         `(vector-ref ,s 2))
-
-(def-macro (new-red)                `(make-vector 3 0))
-(def-macro (set-red-number! c x)    `(vector-set! ,c 0 ,x))
-(def-macro (set-red-nreds! c x)     `(vector-set! ,c 1 ,x))
-(def-macro (set-red-rules! c x)     `(vector-set! ,c 2 ,x))
-(def-macro (red-number c)           `(vector-ref ,c 0))
-(def-macro (red-nreds c)            `(vector-ref ,c 1))
-(def-macro (red-rules c)            `(vector-ref ,c 2))
-
-
-
-(def-macro (new-set nelem)
-  `(make-vector ,nelem 0))
-
-
-(def-macro (vector-map f v)
-  `(let ((vm-n (- (vector-length ,v) 1)))
-    (let loop ((vm-low 0) (vm-high vm-n))
-      (if (= vm-low vm-high)
-	  (vector-set! ,v vm-low (,f (vector-ref ,v vm-low) vm-low))
-	  (let ((vm-middle (quotient (+ vm-low vm-high) 2)))
-	    (loop vm-low vm-middle)
-	    (loop (+ vm-middle 1) vm-high))))))
-
-
-;; - Constantes
-(define STATE-TABLE-SIZE 1009)
-
-
-;; - Tableaux 
-(define rrhs         #f)
-(define rlhs         #f)
-(define ritem        #f)
-(define nullable     #f)
-(define derives      #f)
-(define fderives     #f)
-(define firsts       #f)
-(define kernel-base  #f)
-(define kernel-end   #f)
-(define shift-symbol #f)
-(define shift-set    #f)
-(define red-set      #f)
-(define state-table  #f)
-(define acces-symbol #f)
-(define reduction-table #f)
-(define shift-table  #f)
-(define consistent   #f)
-(define lookaheads   #f)
-(define LA           #f)
-(define LAruleno     #f)
-(define lookback     #f)
-(define goto-map     #f)
-(define from-state   #f)
-(define to-state     #f)
-(define includes     #f)
-(define F            #f)
-(define action-table #f)
-
-;; - Variables
-(define nitems          #f)
-(define nrules          #f)
-(define nvars           #f)
-(define nterms          #f)
-(define nsyms           #f)
-(define nstates         #f)
-(define first-state     #f)
-(define last-state      #f)
-(define final-state     #f)
-(define first-shift     #f)
-(define last-shift      #f)
-(define first-reduction #f)
-(define last-reduction  #f)
-(define nshifts         #f)
-(define maxrhs          #f)
-(define ngotos          #f)
-(define token-set-size  #f)
-
-(define (gen-larl1 gram output-file header footer . opt)
-  (define (conv-rule-right rr)
-    (if (null? rr)
-      '()
-      (cons (reverse (car rr))
-        (cons (cadr rr)
-          (cons (caddr rr)
-            (conv-rule-right (cdddr rr)))))))
-  (apply gen-lalr1
-    (map
-      (lambda (elt)
-        (if (symbol? elt)
-          elt
-          (cons (car elt) (conv-rule-right (cdr elt)))))
-      gram)
-    output-file
-    header
-    footer
-    opt))
-
-(define (gen-lalr1 gram output-file header footer . opt)
-  (initialize-all)
-  (rewrite-grammar 
-   gram
-   (lambda (terms vars gram gram/actions)
-     (set! the-terminals (list->vector terms))
-     (set! the-nonterminals (list->vector vars))
-     (set! nterms (length terms))
-     (set! nvars  (length vars))
-     (set! nsyms  (+ nterms nvars))
-     (let ((no-of-rules (length gram/actions))
-	   (no-of-items (let loop ((l gram/actions) (count 0))
-			  (if (null? l) 
-			      count
-			      (loop (cdr l) (+ count (length (caar l))))))))
-       (pack-grammar no-of-rules no-of-items gram)
-       (set-derives)
-       (set-nullable)
-       (generate-states)
-       (lalr)
-       (build-tables)
-       (compact-action-table)
-       (let* ((parser-name (if (and (pair? opt) (symbol? (car opt))) (car opt) #f))
-	      (prefix      (if parser-name 
-			       (string-append
-				(symbol->string parser-name)
-				":")
-			       ""))
-	      (parser-prefix (if parser-name
-				  (string-append (symbol->string parser-name) "-")
-				 "")))
-	 (with-output-to-file output-file
-	   (lambda ()
-	     (display "; *** Header ***")
-	     (newline)
-	     (output-header header parser-prefix)
-	     (display "; *** Token Definitions ***")
-	     (newline)
-	     (output-token-defs terms prefix)
-	     (display "; *** Action Table ***")
-	     (newline)
-	     (output-action-table prefix)
-	     (display "; *** Goto Table ***")
-	     (newline)
-	     (output-goto-table prefix)
-	     (display "; *** Reduction Table ***")
-	     (newline)
-	     (output-reduction-table gram/actions prefix)
-	     (display "; *** Parser Definition ***")
-	     (newline)
-	     (output-parser-def parser-prefix prefix)
-	     (display "; *** Footer ***")
-	     (newline)
-             (output-footer footer)
-	     )))))))
-
-
-(define (initialize-all)
-  (set! rrhs         #f)
-  (set! rlhs         #f)
-  (set! ritem        #f)
-  (set! nullable     #f)
-  (set! derives      #f)
-  (set! fderives     #f)
-  (set! firsts       #f)
-  (set! kernel-base  #f)
-  (set! kernel-end   #f)
-  (set! shift-symbol #f)
-  (set! shift-set    #f)
-  (set! red-set      #f)
-  (set! state-table  (make-vector STATE-TABLE-SIZE '()))
-  (set! acces-symbol #f)
-  (set! reduction-table #f)
-  (set! shift-table  #f)
-  (set! consistent   #f)
-  (set! lookaheads   #f)
-  (set! LA           #f)
-  (set! LAruleno     #f)
-  (set! lookback     #f)
-  (set! goto-map     #f)
-  (set! from-state   #f)
-  (set! to-state     #f)
-  (set! includes     #f)
-  (set! F            #f)
-  (set! action-table #f)
-  (set! nstates         #f)
-  (set! first-state     #f)
-  (set! last-state      #f)
-  (set! final-state     #f)
-  (set! first-shift     #f)
-  (set! last-shift      #f)
-  (set! first-reduction #f)
-  (set! last-reduction  #f)
-  (set! nshifts         #f)
-  (set! maxrhs          #f)
-  (set! ngotos          #f)
-  (set! token-set-size  #f))
-
-
-(define (pack-grammar no-of-rules no-of-items gram)
-  (set! nrules (+  no-of-rules 1))
-  (set! nitems no-of-items)
-  (set! rlhs (make-vector nrules #f))
-  (set! rrhs (make-vector nrules #f))
-  (set! ritem (make-vector (+ 1 nitems) #f))
-
-  (let loop ((p gram) (item-no 0) (rule-no 1))
-	(if (not (null? p))
-	(let ((nt (caar p)))
-	  (let loop2 ((prods (cdar p)) (it-no2 item-no) (rl-no2 rule-no))
-		(if (null? prods)
-		(loop (cdr p) it-no2 rl-no2)
-		(begin
-		  (vector-set! rlhs rl-no2 nt)
-		  (vector-set! rrhs rl-no2 it-no2)
-		  (let loop3 ((rhs (car prods)) (it-no3 it-no2))
-			(if (null? rhs)
-			(begin
-			  (vector-set! ritem it-no3 (- rl-no2))
-			  (loop2 (cdr prods) (+ it-no3 1) (+ rl-no2 1)))
-			(begin
-			  (vector-set! ritem it-no3 (car rhs))
-			  (loop3 (cdr rhs) (+ it-no3 1))))))))))))
-
-
-;; Fonction set-derives
-;; --------------------
-(define (set-derives)
-  (define delts (make-vector (+ nrules 1) 0))
-  (define dset  (make-vector nvars -1))
-
-  (let loop ((i 1) (j 0))		; i = 0
-    (if (< i nrules)
-	(let ((lhs (vector-ref rlhs i)))
-	  (if (>= lhs 0)
-	      (begin
-		(vector-set! delts j (cons i (vector-ref dset lhs)))
-		(vector-set! dset lhs j)
-		(loop (+ i 1) (+ j 1)))
-	      (loop (+ i 1) j)))))
-  
-  (set! derives (make-vector nvars 0))
-  
-  (let loop ((i 0))
-    (if (< i nvars)
-	(let ((q (let loop2 ((j (vector-ref dset i)) (s '()))
-		   (if (< j 0)
-		       s
-		       (let ((x (vector-ref delts j)))
-			 (loop2 (cdr x) (cons (car x) s)))))))
-	  (vector-set! derives i q)
-	  (loop (+ i 1))))))
-
-
-
-(define (set-nullable)
-  (set! nullable (make-vector nvars #f))
-  (let ((squeue (make-vector nvars #f))
-	(rcount (make-vector (+ nrules 1) 0))
-	(rsets  (make-vector nvars #f))
-	(relts  (make-vector (+ nitems nvars 1) #f)))
-    (let loop ((r 0) (s2 0) (p 0))
-      (let ((*r (vector-ref ritem r)))
-	(if *r
-	    (if (< *r 0)
-		(let ((symbol (vector-ref rlhs (- *r))))
-		  (if (and (>= symbol 0)
-			   (not (vector-ref nullable symbol)))
-		      (begin
-			(vector-set! nullable symbol #t)
-			(vector-set! squeue s2 symbol)
-			(loop (+ r 1) (+ s2 1) p))))
-		(let loop2 ((r1 r) (any-tokens #f))
-		  (let* ((symbol (vector-ref ritem r1)))
-		    (if (> symbol 0)
-			(loop2 (+ r1 1) (or any-tokens (>= symbol nvars)))
-			(if (not any-tokens)
-			    (let ((ruleno (- symbol)))
-			      (let loop3 ((r2 r) (p2 p))
-				(let ((symbol (vector-ref ritem r2)))
-				  (if (> symbol 0)
-				      (begin
-					(vector-set! rcount ruleno
-						     (+ (vector-ref rcount ruleno) 1))
-					(vector-set! relts p2
-						     (cons (vector-ref rsets symbol)
-							   ruleno))
-					(vector-set! rsets symbol p2)
-					(loop3 (+ r2 1) (+ p2 1)))
-				      (loop (+ r2 1) s2 p2)))))
-			    (loop (+ r1 1) s2 p))))))
-	    (let loop ((s1 0) (s3 s2))
-	      (if (< s1 s3)
-		  (let loop2 ((p (vector-ref rsets (vector-ref squeue s1))) (s4 s3))
-		    (if p 
-			(let* ((x (vector-ref relts p))
-			       (ruleno (cdr x))
-			       (y (- (vector-ref rcount ruleno) 1)))
-			  (vector-set! rcount ruleno y)
-			  (if (= y 0)
-			      (let ((symbol (vector-ref rlhs ruleno)))
-				(if (and (>= symbol 0)
-					 (not (vector-ref nullable symbol)))
-				    (begin
-				      (vector-set! nullable symbol #t)
-				      (vector-set! squeue s4 symbol)
-				      (loop2 (car x) (+ s4 1)))
-				    (loop2 (car x) s4)))
-			      (loop2 (car x) s4))))
-		    (loop (+ s1 1) s4)))))))))
-		  
-
-
-; Fonction set-firsts qui calcule un tableau de taille
-; nvars et qui donne, pour chaque non-terminal X, une liste des
-; non-terminaux pouvant apparaitre au debut d'une derivation a
-; partir de X.
-
-(define (set-firsts)
-  (set! firsts (make-vector nvars '()))
-  
-  ;; -- initialization
-  (let loop ((i 0))
-    (if (< i nvars)
-	(let loop2 ((sp (vector-ref derives i)))
-	  (if (null? sp)
-	      (loop (+ i 1))
-	      (let ((sym (vector-ref ritem (vector-ref rrhs (car sp)))))
-		(if (< -1 sym nvars)
-		    (vector-set! firsts i (sinsert sym (vector-ref firsts i))))
-		(loop2 (cdr sp)))))))
-
-  ;; -- reflexive and transitive closure
-  (let loop ((continue #t))
-    (if continue
-	(let loop2 ((i 0) (cont #f))
-	  (if (>= i nvars)
-	      (loop cont)
-	      (let* ((x (vector-ref firsts i))
-		     (y (let loop3 ((l x) (z x))
-			  (if (null? l)
-			      z
-			      (loop3 (cdr l)
-				     (sunion (vector-ref firsts (car l)) z))))))
-		(if (equal? x y)
-		    (loop2 (+ i 1) cont)
-		    (begin
-		      (vector-set! firsts i y)
-		      (loop2 (+ i 1) #t))))))))
-  
-  (let loop ((i 0))
-    (if (< i nvars)
-	(begin
-	  (vector-set! firsts i (sinsert i (vector-ref firsts i)))
-	  (loop (+ i 1))))))
-
-
-
-
-; Fonction set-fderives qui calcule un tableau de taille
-; nvars et qui donne, pour chaque non-terminal, une liste des regles pouvant
-; etre derivees a partir de ce non-terminal. (se sert de firsts)
-
-(define (set-fderives)
-  (set! fderives (make-vector nvars #f))
-
-  (set-firsts)
-
-  (let loop ((i 0))
-    (if (< i nvars)
-	(let ((x (let loop2 ((l (vector-ref firsts i)) (fd '()))
-		   (if (null? l) 
-		       fd
-		       (loop2 (cdr l) 
-			      (sunion (vector-ref derives (car l)) fd))))))
-	  (vector-set! fderives i x)
-	  (loop (+ i 1))))))
-
-
-; Fonction calculant la fermeture d'un ensemble d'items LR0
-; ou core est une liste d'items
-
-(define (closure core)
-  ;; Initialization
-  (define ruleset (make-vector nrules #f))
-
-  (let loop ((csp core))
-    (if (not (null? csp))
-	(let ((sym (vector-ref ritem (car csp))))
-	  (if (< -1 sym nvars)
-	      (let loop2 ((dsp (vector-ref fderives sym)))
-		(if (not (null? dsp))
-		    (begin
-		      (vector-set! ruleset (car dsp) #t)
-		      (loop2 (cdr dsp))))))
-	  (loop (cdr csp)))))
-
-  (let loop ((ruleno 1) (csp core) (itemsetv '())) ; ruleno = 0
-    (if (< ruleno nrules)
-	(if (vector-ref ruleset ruleno)
-	    (let ((itemno (vector-ref rrhs ruleno)))
-	      (let loop2 ((c csp) (itemsetv2 itemsetv))
-		(if (and (pair? c)
-			 (< (car c) itemno))
-		    (loop2 (cdr c) (cons (car c) itemsetv2))
-		    (loop (+ ruleno 1) c (cons itemno itemsetv2)))))
-	    (loop (+ ruleno 1) csp itemsetv))
-	(let loop2 ((c csp) (itemsetv2 itemsetv))
-	  (if (pair? c)
-	      (loop2 (cdr c) (cons (car c) itemsetv2))
-	      (reverse itemsetv2))))))
-
-
-
-(define (allocate-item-sets)
-  (set! kernel-base (make-vector nsyms 0))
-  (set! kernel-end  (make-vector nsyms #f)))
-
-
-(define (allocate-storage)
-  (allocate-item-sets)
-  (set! red-set (make-vector (+ nrules 1) 0)))
-
-;; --
-
-
-(define (initialize-states)
-  (let ((p (new-core)))
-    (set-core-number! p 0)
-    (set-core-acc-sym! p #f)
-    (set-core-nitems! p 1)
-    (set-core-items! p '(0))
-
-    (set! first-state (list p))
-    (set! last-state first-state)
-    (set! nstates 1)))
-
-
-
-(define (generate-states)
-  (allocate-storage)
-  (set-fderives)
-  (initialize-states)
-  (let loop ((this-state first-state))
-    (if (pair? this-state)
-	(let* ((x (car this-state))
-	       (is (closure (core-items x))))
-	  (save-reductions x is)
-	  (new-itemsets is)
-	  (append-states)
-	  (if (> nshifts 0)
-	      (save-shifts x))
-	  (loop (cdr this-state))))))
-
-
-;; Fonction calculant les symboles sur lesquels il faut "shifter" 
-;; et regroupe les items en fonction de ces symboles
-
-(define (new-itemsets itemset)
-  ;; - Initialization
-  (set! shift-symbol '())
-  (let loop ((i 0))
-    (if (< i nsyms)
-	(begin
-	  (vector-set! kernel-end i '())
-	  (loop (+ i 1)))))
-
-  (let loop ((isp itemset))
-    (if (pair? isp)
-	(let* ((i (car isp))
-	       (sym (vector-ref ritem i)))
-	  (if (>= sym 0)
-	      (begin
-		(set! shift-symbol (sinsert sym shift-symbol))
-		(let ((x (vector-ref kernel-end sym)))
-		  (if (null? x)
-		      (begin
-			(vector-set! kernel-base sym (cons (+ i 1) x))
-			(vector-set! kernel-end sym (vector-ref kernel-base sym)))
-		      (begin
-			(set-cdr! x (list (+ i 1)))
-			(vector-set! kernel-end sym (cdr x)))))))
-	  (loop (cdr isp)))))
-
-  (set! nshifts (length shift-symbol)))
-
-
-
-(define (get-state sym)
-  (let* ((isp  (vector-ref kernel-base sym))
-	 (n    (length isp))
-	 (key  (let loop ((isp1 isp) (k 0))
-		 (if (null? isp1)
-		     (modulo k STATE-TABLE-SIZE)
-		     (loop (cdr isp1) (+ k (car isp1))))))
-	 (sp   (vector-ref state-table key)))
-    (if (null? sp)
-	(let ((x (new-state sym)))
-	  (vector-set! state-table key (list x))
-	  (core-number x))
-	(let loop ((sp1 sp))
-	  (if (and (= n (core-nitems (car sp1)))
-		   (let loop2 ((i1 isp) (t (core-items (car sp1)))) 
-		     (if (and (pair? i1) 
-			      (= (car i1)
-				 (car t)))
-			 (loop2 (cdr i1) (cdr t))
-			 (null? i1))))
-	      (core-number (car sp1))
-	      (if (null? (cdr sp1))
-		  (let ((x (new-state sym)))
-		    (set-cdr! sp1 (list x))
-		    (core-number x))
-		  (loop (cdr sp1))))))))
-
-
-(define (new-state sym)
-  (let* ((isp  (vector-ref kernel-base sym))
-	 (n    (length isp))
-	 (p    (new-core)))
-    (set-core-number! p nstates)
-    (set-core-acc-sym! p sym)
-    (if (= sym nvars) (set! final-state nstates))
-    (set-core-nitems! p n)
-    (set-core-items! p isp)
-    (set-cdr! last-state (list p))
-    (set! last-state (cdr last-state))
-    (set! nstates (+ nstates 1))
-    p))
-
-
-;; --
-
-(define (append-states)
-  (set! shift-set
-	(let loop ((l (reverse shift-symbol)))
-	  (if (null? l)
-	      '()
-	      (cons (get-state (car l)) (loop (cdr l)))))))
-
-;; --
-
-(define (save-shifts core)
-  (let ((p (new-shift)))
-	(set-shift-number! p (core-number core))
-	(set-shift-nshifts! p nshifts)
-	(set-shift-shifts! p shift-set)
-	(if last-shift
-	(begin
-	  (set-cdr! last-shift (list p))
-	  (set! last-shift (cdr last-shift)))
-	(begin
-	  (set! first-shift (list p))
-	  (set! last-shift first-shift)))))
-
-(define (save-reductions core itemset)
-  (let ((rs (let loop ((l itemset))
-	      (if (null? l)
-		  '()
-		  (let ((item (vector-ref ritem (car l))))
-		    (if (< item 0)
-			(cons (- item) (loop (cdr l)))
-			(loop (cdr l))))))))
-    (if (pair? rs)
-	(let ((p (new-red)))
-	  (set-red-number! p (core-number core))
-	  (set-red-nreds!  p (length rs))
-	  (set-red-rules!  p rs)
-	  (if last-reduction
-	      (begin
-		(set-cdr! last-reduction (list p))
-		(set! last-reduction (cdr last-reduction)))
-	      (begin
-		(set! first-reduction (list p))
-		(set! last-reduction first-reduction)))))))
-
-
-;; --
-
-(define (lalr)
-  (set! token-set-size (+ 1 (quotient nterms (BITS-PER-WORD))))
-  (set-accessing-symbol)
-  (set-shift-table)
-  (set-reduction-table)
-  (set-max-rhs)
-  (initialize-LA)
-  (set-goto-map)
-  (initialize-F)
-  (build-relations)
-  (digraph includes)
-  (compute-lookaheads))
-
-(define (set-accessing-symbol)
-  (set! acces-symbol (make-vector nstates #f))
-  (let loop ((l first-state))
-    (if (pair? l)
-	(let ((x (car l)))
-	  (vector-set! acces-symbol (core-number x) (core-acc-sym x))
-	  (loop (cdr l))))))
-
-(define (set-shift-table)
-  (set! shift-table (make-vector nstates #f))
-  (let loop ((l first-shift))
-    (if (pair? l)
-	(let ((x (car l)))
-	  (vector-set! shift-table (shift-number x) x)
-	  (loop (cdr l))))))
-
-(define (set-reduction-table)
-  (set! reduction-table (make-vector nstates #f))
-  (let loop ((l first-reduction))
-    (if (pair? l)
-	(let ((x (car l)))
-	  (vector-set! reduction-table (red-number x) x)
-	  (loop (cdr l))))))
-
-(define (set-max-rhs)
-  (let loop ((p 0) (curmax 0) (length 0))
-    (let ((x (vector-ref ritem p)))
-      (if x
-	  (if (>= x 0)
-	      (loop (+ p 1) curmax (+ length 1))
-	      (loop (+ p 1) (max curmax length) 0))
-	  (set! maxrhs curmax)))))
-
-(define (initialize-LA)
-  (define (last l)
-    (if (null? (cdr l))
-	(car l)
-	(last (cdr l))))
-
-  (set! consistent (make-vector nstates #f))
-  (set! lookaheads (make-vector (+ nstates 1) #f))
-
-  (let loop ((count 0) (i 0))
-    (if (< i nstates)
-	(begin
-	  (vector-set! lookaheads i count)
-	  (let ((rp (vector-ref reduction-table i))
-		(sp (vector-ref shift-table i)))
-	    (if (and rp
-		     (or (> (red-nreds rp) 1)
-			 (and sp
-			      (not
-			       (< (vector-ref acces-symbol
-					      (last (shift-shifts sp)))
-				  nvars)))))
-		(loop (+ count (red-nreds rp)) (+ i 1))
-		(begin
-		  (vector-set! consistent i #t)
-		  (loop count (+ i 1))))))
-
-	(begin
-	  (vector-set! lookaheads nstates count)
-	  (let ((c (max count 1)))
-	    (set! LA (make-vector c #f))
-	    (do ((j 0 (+ j 1))) ((= j c)) (vector-set! LA j (new-set token-set-size)))
-	    (set! LAruleno (make-vector c -1))
-	    (set! lookback (make-vector c #f)))
-	  (let loop ((i 0) (np 0))
-	    (if (< i nstates)
-		(if (vector-ref consistent i)
-		    (loop (+ i 1) np)
-		    (let ((rp (vector-ref reduction-table i)))
-		      (if rp
-			  (let loop2 ((j (red-rules rp)) (np2 np))
-			    (if (null? j)
-				(loop (+ i 1) np2)
-				(begin
-				  (vector-set! LAruleno np2 (car j))
-				  (loop2 (cdr j) (+ np2 1)))))
-			  (loop (+ i 1) np))))))))))
-
-
-(define (set-goto-map)
-  (set! goto-map (make-vector (+ nvars 1) 0))
-  (let ((temp-map (make-vector (+ nvars 1) 0)))
-    (let loop ((ng 0) (sp first-shift))
-      (if (pair? sp)
-	  (let loop2 ((i (reverse (shift-shifts (car sp)))) (ng2 ng))
-	    (if (pair? i)
-		(let ((symbol (vector-ref acces-symbol (car i))))
-		  (if (< symbol nvars)
-		      (begin
-			(vector-set! goto-map symbol 
-				     (+ 1 (vector-ref goto-map symbol)))
-			(loop2 (cdr i) (+ ng2 1)))
-		      (loop2 (cdr i) ng2)))
-		(loop ng2 (cdr sp))))
-
-	  (let loop ((k 0) (i 0))
-	    (if (< i nvars)
-		(begin
-		  (vector-set! temp-map i k)
-		  (loop (+ k (vector-ref goto-map i)) (+ i 1)))
-
-		(begin
-		  (do ((i 0 (+ i 1)))
-		      ((>= i nvars))
-		    (vector-set! goto-map i (vector-ref temp-map i)))
-
-		  (set! ngotos ng)
-		  (vector-set! goto-map nvars ngotos)
-		  (vector-set! temp-map nvars ngotos)
-		  (set! from-state (make-vector ngotos #f))
-		  (set! to-state (make-vector ngotos #f))
-		  
-		  (do ((sp first-shift (cdr sp)))
-		      ((null? sp))
-		    (let* ((x (car sp))
-			   (state1 (shift-number x)))
-		      (do ((i (shift-shifts x) (cdr i)))
-			  ((null? i))
-			(let* ((state2 (car i))
-			       (symbol (vector-ref acces-symbol state2)))
-			  (if (< symbol nvars)
-			      (let ((k (vector-ref temp-map symbol)))
-				(vector-set! temp-map symbol (+ k 1))
-				(vector-set! from-state k state1)
-				(vector-set! to-state k state2))))))))))))))
-
-
-(define (map-goto state symbol)
-  (let loop ((low (vector-ref goto-map symbol))
-	     (high (- (vector-ref goto-map (+ symbol 1)) 1)))
-    (if (> low high)
-	(begin
-	  (display (list "Error in map-goto" state symbol)) (newline)
-	  0)
-	(let* ((middle (quotient (+ low high) 2))
-	       (s (vector-ref from-state middle)))
-	  (cond
-	   ((= s state)
-	    middle)
-	   ((< s state)
-	    (loop (+ middle 1) high))
-	   (else
-	    (loop low (- middle 1))))))))
-
-
-(define (initialize-F)
-  (set! F (make-vector ngotos #f))
-  (do ((i 0 (+ i 1))) ((= i ngotos)) (vector-set! F i (new-set token-set-size)))
-
-  (let ((reads (make-vector ngotos #f)))
-
-    (let loop ((i 0) (rowp 0))
-      (if (< i ngotos)
-	  (let* ((rowf (vector-ref F rowp))
-		 (stateno (vector-ref to-state i))
-		 (sp (vector-ref shift-table stateno)))
-	    (if sp
-		(let loop2 ((j (shift-shifts sp)) (edges '()))
-		  (if (pair? j)
-		      (let ((symbol (vector-ref acces-symbol (car j))))
-			(if (< symbol nvars)
-			    (if (vector-ref nullable symbol)
-				(loop2 (cdr j) (cons (map-goto stateno symbol) 
-						     edges))
-				(loop2 (cdr j) edges))
-			    (begin
-			      (set-bit rowf (- symbol nvars))
-			      (loop2 (cdr j) edges))))
-		      (if (pair? edges)
-			  (vector-set! reads i (reverse edges))))))
-	      (loop (+ i 1) (+ rowp 1)))))
-    (digraph reads)))
-
-(define (add-lookback-edge stateno ruleno gotono)
-  (let ((k (vector-ref lookaheads (+ stateno 1))))
-    (let loop ((found #f) (i (vector-ref lookaheads stateno)))
-      (if (and (not found) (< i k))
-	  (if (= (vector-ref LAruleno i) ruleno)
-	      (loop #t i)
-	      (loop found (+ i 1)))
-
-	  (if (not found)
-	      (begin (display "Error in add-lookback-edge : ")
-		     (display (list stateno ruleno gotono)) (newline))
-	      (vector-set! lookback i
-			   (cons gotono (vector-ref lookback i))))))))
-
-
-(define (transpose r-arg n)
-  (let ((new-end (make-vector n #f))
-	(new-R  (make-vector n #f)))
-    (do ((i 0 (+ i 1))) 
-	((= i n))
-      (let ((x (list 'bidon)))
-	(vector-set! new-R i x)
-	(vector-set! new-end i x)))
-    (do ((i 0 (+ i 1)))
-	((= i n))
-      (let ((sp (vector-ref r-arg i)))
-	(if (pair? sp)
-	    (let loop ((sp2 sp))
-	      (if (pair? sp2)
-		  (let* ((x (car sp2))
-			 (y (vector-ref new-end x)))
-		    (set-cdr! y (cons i (cdr y)))
-		    (vector-set! new-end x (cdr y))
-		    (loop (cdr sp2))))))))
-    (do ((i 0 (+ i 1)))
-	((= i n))
-      (vector-set! new-R i (cdr (vector-ref new-R i))))
-    
-    new-R))
-
-
-
-(define (build-relations)
-
-  (define (get-state stateno symbol)
-    (let loop ((j (shift-shifts (vector-ref shift-table stateno)))
-	       (stno stateno))
-      (if (null? j)
-	  stno
-	  (let ((st2 (car j)))
-	    (if (= (vector-ref acces-symbol st2) symbol)
-		st2
-		(loop (cdr j) st2))))))
-
-  (set! includes (make-vector ngotos #f))
-  (do ((i 0 (+ i 1)))
-      ((= i ngotos))
-    (let ((state1 (vector-ref from-state i))
-	  (symbol1 (vector-ref acces-symbol (vector-ref to-state i))))
-      (let loop ((rulep (vector-ref derives symbol1))
-		 (edges '()))
-	(if (pair? rulep)
-	    (let ((*rulep (car rulep)))
-	      (let loop2 ((rp (vector-ref rrhs *rulep))
-			  (stateno state1)
-			  (states (list state1)))
-		(let ((*rp (vector-ref ritem rp)))
-		  (if (> *rp 0)
-		      (let ((st (get-state stateno *rp)))
-			(loop2 (+ rp 1) st (cons st states)))
-		      (begin
-
-			(if (not (vector-ref consistent stateno))
-			    (add-lookback-edge stateno *rulep i))
-			
-			(let loop2 ((done #f) 
-				    (stp (cdr states))
-				    (rp2 (- rp 1))
-				    (edgp edges))
-			  (if (not done)
-			      (let ((*rp (vector-ref ritem rp2)))
-				(if (< -1 *rp nvars)
-				  (loop2 (not (vector-ref nullable *rp))
-					 (cdr stp)
-					 (- rp2 1)
-					 (cons (map-goto (car stp) *rp) edgp))
-				  (loop2 #t stp rp2 edgp)))
-
-			      (loop (cdr rulep) edgp))))))))
-	    (vector-set! includes i edges)))))
-  (set! includes (transpose includes ngotos)))
-			
-
-
-(define (compute-lookaheads)
-  (let ((n (vector-ref lookaheads nstates)))
-    (let loop ((i 0))
-      (if (< i n)
-	  (let loop2 ((sp (vector-ref lookback i)))
-	    (if (pair? sp)
-		(let ((LA-i (vector-ref LA i))
-		      (F-j  (vector-ref F (car sp))))
-		  (bit-union LA-i F-j token-set-size)
-		  (loop2 (cdr sp)))
-		(loop (+ i 1))))))))
-
-
-
-(define (digraph relation)
-  (define infinity (+ ngotos 2))
-  (define INDEX (make-vector (+ ngotos 1) 0))
-  (define VERTICES (make-vector (+ ngotos 1) 0))
-  (define top 0)
-  (define R relation)
-
-  (define (traverse i)
-    (set! top (+ 1 top))
-    (vector-set! VERTICES top i)
-    (let ((height top))
-      (vector-set! INDEX i height)
-      (let ((rp (vector-ref R i)))
-	(if (pair? rp)
-	    (let loop ((rp2 rp))
-	      (if (pair? rp2)
-		  (let ((j (car rp2)))
-		    (if (= 0 (vector-ref INDEX j))
-			(traverse j))
-		    (if (> (vector-ref INDEX i) 
-			   (vector-ref INDEX j))
-			(vector-set! INDEX i (vector-ref INDEX j)))
-		    (let ((F-i (vector-ref F i))
-			  (F-j (vector-ref F j)))
-		      (bit-union F-i F-j token-set-size))
-		    (loop (cdr rp2))))))
-	(if (= (vector-ref INDEX i) height)
-	    (let loop ()
-	      (let ((j (vector-ref VERTICES top)))
-		(set! top (- top 1))
-		(vector-set! INDEX j infinity)
-		(if (not (= i j))
-		    (begin
-		      (bit-union (vector-ref F i) 
-				 (vector-ref F j)
-				 token-set-size)
-		      (loop)))))))))
-
-  (let loop ((i 0))
-    (if (< i ngotos)
-	(begin
-	  (if (and (= 0 (vector-ref INDEX i))
-		   (pair? (vector-ref R i)))
-	      (traverse i))
-	  (loop (+ i 1))))))
-
-
-;; --
-
-(define (build-tables)
-  (define (add-action St Sym Act)
-    (let* ((x (vector-ref ACTION-TABLE St))
-	   (y (assv Sym x)))
-      (if y
-	  (if (not (= Act (cdr y)))
-	      ;; -- there is a conflict 
-	      (begin
-		(if (and (<= (cdr y) 0)
-			 (<= Act 0))
-		    (begin
-		      (display "%% Reduce/Reduce conflict ")
-		      (display "(reduce ") (display (- Act))
-		      (display ", reduce ") (display (- (cdr y)))
-		      (display ") on ") (print-symbol (+ Sym nvars))
-		      (display " in state ") (display St)
-		      (newline)
-		      (set-cdr! y (max (cdr y) Act)))
-		    (begin
-		      (display "%% Shift/Reduce conflict ")
-		      (display "(shift ") (display Act)
-		      (display ", reduce ") (display (- (cdr y)))
-		      (display ") on ") (print-symbol (+ Sym nvars))
-		      (display " in state ") (display St)
-		      (newline)
-		      (set-cdr! y Act)))))
-	  (vector-set! ACTION-TABLE St
-		       (cons (cons Sym Act) x)))))
-	
-  (set! action-table (make-vector nstates '()))
-
-  (do ((i 0 (+ i 1)))  ; i = state
-      ((= i nstates))
-    (let ((red (vector-ref reduction-table i)))
-      (if (and red (>= (red-nreds red) 1))
-	  (if (and (= (red-nreds red) 1) (vector-ref consistent i))
-	      (add-action i 'default (- (car (red-rules red))))
-	      (let ((k (vector-ref lookaheads (+ i 1))))
-		(let loop ((j (vector-ref lookaheads i)))
-		  (if (< j k)
-		      (let ((rule (- (vector-ref LAruleno j)))
-			    (lav  (vector-ref LA j)))
-			(let loop2 ((token 0) (x (vector-ref lav 0)) (y 1) (z 0))
-			  (if (< token nterms)
-			      (begin
-				(let ((in-la-set? (modulo x 2)))
-				  (if (= in-la-set? 1)
-				      (add-action i token rule)))
-				(if (= y (BITS-PER-WORD))
-				    (loop2 (+ token 1) 
-					   (vector-ref lav (+ z 1))
-					   1
-					   (+ z 1))
-				    (loop2 (+ token 1) (quotient x 2) (+ y 1) z)))))
-			(loop (+ j 1)))))))))
-
-    (let ((shiftp (vector-ref shift-table i)))
-      (if shiftp
-	  (let loop ((k (shift-shifts shiftp)))
-	    (if (pair? k)
-		(let* ((state (car k))
-		       (symbol (vector-ref acces-symbol state)))
-		  (if (>= symbol nvars)
-		      (add-action i (- symbol nvars) state))
-		  (loop (cdr k))))))))
-
-  (add-action final-state 0 'accept))
-
-(define (compact-action-table)
-  (define (most-common-action acts)
-    (let ((accums '()))
-      (let loop ((l acts))
-	(if (pair? l)
-	    (let* ((x (cdar l))
-		   (y (assv x accums)))
-	      (if (and (number? x) (< x 0))
-		  (if y
-		      (set-cdr! y (+ 1 (cdr y)))
-		      (set! accums (cons `(,x . 1) accums))))
-	      (loop (cdr l)))))
-
-      (let loop ((l accums) (max 0) (sym #f))
-	(if (null? l)
-	    sym
-	    (let ((x (car l)))
-	      (if (> (cdr x) max)
-		  (loop (cdr l) (cdr x) (car x))
-		  (loop (cdr l) max sym)))))))
-
-  (do ((i 0 (+ i 1)))
-      ((= i nstates))
-    (let ((acts (vector-ref action-table i)))
-      (if (vector? (vector-ref reduction-table i))
-	  (let ((act (most-common-action acts)))
-	    (vector-set! action-table i
-			 (cons `(default . ,(if act act 'error))
-			       (filter (lambda (x) 
-					 (not (eq? (cdr x) act)))
-				       acts))))
-	  (vector-set! action-table i 
-		       (cons `(default . *error*) acts))))))
-
-
-(define (output-action-table prefix)
-  (display "(defconst ") (display prefix) (display "action-table") (newline)
-  (display "  [") (newline)
-  (do ((i 0 (+ i 1)))
-      ((= i nstates))
-    (display "     ")
-    (write (vector-ref action-table i))
-    (newline))
-  (display "    ])") (newline)
-  (newline))
-
-(define (output-goto-table prefix)
-  (display "(defconst ") (display prefix) (display "goto-table") (newline)
-  (display "  [") (newline)
-  (do ((i 0 (+ i 1)))
-      ((= i nstates))
-    (display "     ") 
-    (let ((shifts (vector-ref shift-table i)))
-      (if shifts
-	  (begin
-	    (display "(")
-	    (let loop ((l (shift-shifts shifts)))
-	      (if (null? l)
-		  (display ")")
-		  (let* ((state (car l))
-			 (symbol (vector-ref acces-symbol state)))
-		    (if (< symbol nvars)
-			(display `(,symbol . ,state)))
-		    (loop (cdr l))))))
-	  (display '())))
-    (newline))
-  (display "    ])") (newline)
-  (newline))
-
-(define (output-reduction-table gram/actions prefix)
-  (display "(defconst ") (display prefix) (display "reduction-table") (newline)
-  (display "  (vector") (newline)
-  (display "    '()") (newline)
-  (for-each
-   (lambda (p)
-     (let ((act (cdr p)))
-       (display "    (lambda (stack sp goto-table $look)") (newline)
-       (let* ((nt (caar p)) (rhs (cdar p)) (n (length rhs)))
-	 (display "      (let* (")
-	 (if act
-	     (let loop ((i 1) (l rhs))
-	       (if (not (null? l))
-		   (let ((rest (cdr l)))
-		     (if (> i 1) (begin (newline) (display "             ")))
-		     (display "($") (display (+ (- n i) 1)) (display " ")
-		     (display "(aref stack (- sp ")
-		     (display (- (* i 2) 1))
-		     (display ")))")
-		     (loop (+ i 1) rest)))))
-	 (display ")")
-	 (newline)
-	 (display "          ")
-	 (if (= nt 0)
-	     (display "(accept $1)")
-	     (begin
-	       (display "(lr-push stack (- sp ")
-	       (display (* 2 n))
-	       (display ") ")
-	       (display nt)
-	       (display " goto-table ")
-	       (write (cdr p))
-	       (display ")")))
-	 (display "))") (newline))))
-   gram/Actions)
-  (display "  ))") (newline)
-  (newline))
-
-(define (output-header header parser-prefix)
-  (display header)
-  (display "(require 'lr-driver)") (newline)
-  (newline))
-
-(define (output-footer footer)
-  (display footer) (newline)
-  (newline))
-
-(define (output-parser-def parser-prefix prefix)
-  (display "(defun ") (display parser-prefix) (display "parse") (display "(scanner errorhandler)") (newline)
-  (display "  (lr-parse scanner errorhandler ") (newline)
-  (display "    ") (display prefix) (display "action-table") (newline)
-  (display "    ") (display prefix) (display "goto-table") (newline)
-  (display "    ") (display prefix) (display "reduction-table") (newline)
-  (display "    ") (display prefix) (display "token-defs))") (newline)
-  (newline))
-
-(define (output-token-defs terms prefix)
-  (let loop ((i 0) (l terms))
-    (if (pair? l)
-	(let ((x (car l)))
-	  (display "(defconst ") (display prefix)
-	  (write x)
-	  (display #\tab)
-	  (display i)
-	  (display ")")
-	  (newline)
-	  (loop (+ i 1) (cdr l)))))
-  (newline)
-  (display "(defconst ") (display prefix) (display "token-defs") (newline)
-  (display "  (list ") (newline)
-  (let loop ((i 0) (l terms))
-    (if (pair? l)
-	(begin
-	  (display "   (cons ")
-	  (display i)
-	  (display " \"") (display (car l)) (display "\")")
-	  (newline)
-	  (loop (+ i 1) (cdr l)))))
-  (display "  ))") (newline)
-  (newline))
-
-;; --
-
-(define (rewrite-grammar grammar proc) 
-
-  (define eoi '*EOI*)
-
-  (if (not (pair? grammar))
-      (error "Grammar definition must be a non-empty list")
-      (let loop1 ((lst grammar) (rev-terms '()))
-	(if (and (pair? lst) (not (pair? (car lst)))) ; definition d'un terminal?
-	    (let ((term (car lst)))
-	      (cond ((not (valid-terminal? term))
-		     (error "Invalid terminal:" term))
-		    ((member term rev-terms)
-		     (error "Terminal previously defined:" term))
-		    (else
-		     (loop1 (cdr lst) (cons term rev-terms)))))
-	    (let loop2 ((lst lst) (rev-nonterm-defs '()))
-	      (if (pair? lst)
-		  (let ((def (car lst)))
-		    (if (not (pair? def))
-			(error "Nonterminal definition must be a non-empty list")
-			(let ((nonterm (car def)))
-			  (cond ((not (valid-nonterminal? nonterm))
-				 (error "Invalid nonterminal:" nonterm))
-				((or (member nonterm rev-terms)
-				     (assoc nonterm rev-nonterm-defs))
-				 (error "Nonterminal previously defined:" nonterm))
-				(else
-				 (loop2 (cdr lst)
-					(cons def rev-nonterm-defs)))))))
-		  (let* ((terms (cons eoi (reverse rev-terms)))
-			 (nonterm-defs (reverse rev-nonterm-defs))
-			 (nonterms (cons '*start* (map car nonterm-defs))))
-		    (if (= (length nonterms) 1)
-			(error "Grammar must contain at least one nonterminal")
-			(let ((compiled-nonterminals
-			       (map (lambda (nonterm-def)
-				      (rewrite-nonterm-def nonterm-def
-							   terms
-							   nonterms))
-				    (cons `(*start* (,(cadr nonterms) ,eoi) : $1)
-					  nonterm-defs))))
-			  (proc terms
-				nonterms
-				(map (lambda (x) (cons (caaar x) (map cdar x)))
-				     compiled-nonterminals)
-				(apply append compiled-nonterminals)))))))))))
-
-
-(define (rewrite-nonterm-def nonterm-def terms nonterms)
-
-  (define No-NT (length nonterms))
-
-  (define (encode x) 
-    (let ((PosInNT (pos-in-list x nonterms)))
-      (if PosInNT
-	  PosInNT
-	  (let ((PosInT (pos-in-list x terms)))
-	    (if PosInT
-		(+ No-NT PosInT)
-		(error "undefined symbol : " x))))))
-
-  (if (not (pair? (cdr nonterm-def)))
-      (error "At least one production needed for nonterminal" (car nonterm-def))
-      (let ((name (symbol->string (car nonterm-def))))
-	(let loop1 ((lst (cdr nonterm-def))
-		    (i 1)
-		    (rev-productions-and-actions '()))
-	  (if (not (pair? lst))
-	      (reverse rev-productions-and-actions)
-	      (let* ((rhs (car lst))
-		     (rest (cdr lst))
-		     (prod (map encode (cons (car nonterm-def) rhs))))
-		(for-each (lambda (x)
-			    (if (not (or (member x terms) (member x nonterms)))
-				(error "Invalid terminal or nonterminal" x)))
-			  rhs)
-		(if (and (pair? rest)
-			 (eq? (car rest) ':)
-			 (pair? (cdr rest)))
-		    (loop1 (cddr rest)
-			   (+ i 1)
-			   (cons (cons prod (cadr rest)) 
-				 rev-productions-and-actions))
-		    (let* ((rhs-length (length rhs))
-			   (action
-			    (cons 'VECTOR
-				 (cons (list 'QUOTE (string->symbol
-						     (string-append
-						      name
-						      "-"
-						      (number->string i))))
-				       (let loop-j ((j 1))
-					 (if (> j rhs-length)
-					     '()
-					     (cons (string->symbol
-						    (string-append
-						     "$"
-						     (number->string j)))
-						   (loop-j (+ j 1)))))))))
-		      (loop1 rest
-			     (+ i 1)
-			     (cons (cons prod action) 
-				   rev-productions-and-actions))))))))))
-
-(define (valid-nonterminal? x)
-  (symbol? x))
-
-(define (valid-terminal? x)
-  (symbol? x))              ; DB 
-
-;; ---------------------------------------------------------------------- ;;
-;; Miscellaneous                                                          ;;
-;; ---------------------------------------------------------------------- ;;
-(define (pos-in-list x lst)
-  (let loop ((lst lst) (i 0))
-    (cond ((not (pair? lst))    #f)
-	  ((equal? (car lst) x) i)
-	  (else                 (loop (cdr lst) (+ i 1))))))
-
-(define (sunion lst1 lst2)		; union of sorted lists
-  (let loop ((L1 lst1)
-	     (L2 lst2))
-    (cond ((null? L1)    L2)
-	  ((null? L2)    L1)
-	  (else 
-	   (let ((x (car L1)) (y (car L2)))
-	     (cond
-	      ((> x y)
-	       (cons y (loop L1 (cdr L2))))
-	      ((< x y)
-	       (cons x (loop (cdr L1) L2)))
-	      (else
-	       (loop (cdr L1) L2))
-	      ))))))
-
-(define (sinsert elem lst)
-  (let loop ((l1 lst))
-    (if (null? l1) 
-	(cons elem l1)
-	(let ((x (car l1)))
-	  (cond ((< elem x)
-		 (cons elem l1))
-		((> elem x)
-		 (cons x (loop (cdr l1))))
-		(else 
-		 l1))))))
-
-(define (filter p lst)
-  (let loop ((l lst))
-    (if (null? l)
-	'()
-	(let ((x (car l)) (y (cdr l)))
-	(if (p x)
-	    (cons x (loop y))
-	    (loop y))))))
-
-;; ---------------------------------------------------------------------- ;;
-;; Debugging tools ...                                                    ;;
-;; ---------------------------------------------------------------------- ;;
-(define the-terminals #f)
-(define the-nonterminals #f)
-
-(define (print-item item-no)
-  (let loop ((i item-no))
-    (let ((v (vector-ref ritem i)))
-      (if (>= v 0)
-	  (loop (+ i 1))
-	  (let* ((rlno    (- v))
-		 (nt      (vector-ref rlhs rlno)))
-	    (display (vector-ref the-nonterminals nt)) (display " --> ")
-	    (let loop ((i (vector-ref rrhs rlno)))
-	      (let ((v (vector-ref ritem i)))
-		(if (= i item-no)
-		    (display ". "))
-		(if (>= v 0)
-		    (begin
-		      (print-symbol v)
-		      (display " ")
-		      (loop (+ i 1)))
-		    (begin 
-		      (display "   (rule ")
-		      (display (- v))
-		      (display ")")
-		      (newline))))))))))
-  
-(define (print-symbol n)
-  (display (if (>= n nvars)
-	       (vector-ref the-terminals (- n nvars))
-	       (vector-ref the-nonterminals n))))
-  
-(define (print-states)
-  (define (print-action act)
-    (cond
-     ((eq? act '*error*)
-      (display " : Error"))
-     ((eq? act 'accept)
-      (display " : Accept input"))
-     ((< act 0)
-      (display " : reduce using rule ")
-      (display (- act)))
-     (else
-      (display " : shift and goto state ")
-      (display act)))
-    (newline)
-    #t)
-  
-  (define (print-actions acts)
-    (let loop ((l acts))
-      (if (null? l)
-	  #t
-	  (let ((sym (caar l))
-		(act (cdar l)))
-	    (display "   ")
-	    (cond
-	     ((eq? sym 'default)
-	      (display "default action"))
-	     (else
-	      (print-symbol (+ sym nvars))))
-	    (print-action act)
-	    (loop (cdr l))))))
-  
-  (if (not action-table)
-      (begin
-	(display "No generated parser available!")
-	(newline)
-	#f)
-      (begin
-	(display "State table") (newline)
-	(display "-----------") (newline) (newline)
-  
-	(let loop ((l first-state))
-	  (if (null? l)
-	      #t
-	      (let* ((core  (car l))
-		     (i     (core-number core))
-		     (items (core-items core))
-		     (actions (vector-ref action-table i)))
-		(display "state ") (display i) (newline)
-		(newline)
-		(for-each (lambda (x) (display "   ") (print-item x))
-			  items)
-		(newline)
-		(print-actions actions)
-		(newline)
-		(loop (cdr l))))))))
-
-
-	  
diff --git a/lr-driver.el b/lr-driver.el
deleted file mode 100644
index 32fe294..0000000
--- a/lr-driver.el
+++ /dev/null
@@ -1,72 +0,0 @@
-;; ---------------------------------------------------------------------- ;;
-;; FICHIER               : lr-dvr.scm                                     ;;
-;; DATE DE CREATION      : Fri May 31 15:47:05 1996                       ;;
-;; DERNIERE MODIFICATION : Fri May 31 15:51:13 1996                       ;;
-;; ---------------------------------------------------------------------- ;;
-;; Copyright (c) 1996 Dominique Boucher                                   ;;
-;; ---------------------------------------------------------------------- ;;
-;; The LR parser driver                                                   ;;
-;;                                                                        ;;
-;; lr-dvr.scm is part of the lalr.scm distribution which is free          ;;
-;; software; you can redistribute it and/or modify                        ;;
-;; it under the terms of the GNU General Public License as published by   ;;
-;; the Free Software Foundation; either version 2, or (at your option)    ;;
-;; any later version.                                                     ;;
-;;                                                                        ;;
-;; lalr.scm is distributed in the hope that it will be useful,            ;;
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of         ;;
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          ;;
-;; GNU General Public License for more details.                           ;;
-;;                                                                        ;;
-;; You should have received a copy of the GNU General Public License      ;;
-;; along with lalr.scm; see the file COPYING.  If not, write to           ;;
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  ;;
-;; ---------------------------------------------------------------------- ;;
-
-;; 1998/08/16: Tanaka Akira  transplants from Scheme to Emacs-Lisp.
-
-(provide 'lr-driver)
-
-(defconst lr-max-stack-size 500)
-
-(defsubst lr-push (stack sp new-cat goto-table lval)
-  (let* ((state     (aref stack sp))
-	 (new-state (cdr (assq new-cat (aref goto-table state))))
-	 (new-sp    (+ sp 2)))
-    (if (>= new-sp lr-max-stack-size)
-	(error "PARSE ERROR : stack overflow")
-	(progn
-	  (aset stack new-sp new-state)
-	  (aset stack (- new-sp 1) lval)
-	  new-sp))))
-
-(defun lr-parse (lexerp errorp action-table goto-table reduction-table token-defs)
-  (let ((stack (make-vector lr-max-stack-size 0)) (sp 0) (input (funcall lexerp)))
-    (catch 'parser
-      (while t
-        (let* ((state (aref stack sp))
-               (i     (car input))
-               (act   (let* ((l (aref action-table state)) (y (assq i l))) (if y (cdr y) (cdar l)))))
-
-          (cond
-
-           ;; Input succesfully parsed
-           ((eq act 'accept)
-            (throw 'parser (aref stack 1)))
-
-           ;; Syntax error in input
-           ((eq act '*error*)
-            (throw 'parser
-              (funcall errorp "PARSE ERROR : unexpected token : " 
-                       (cdr (assq i token-defs)))))
-
-           ;; Shift current token on top of the stack
-           ((>= act 0)
-            (aset stack (+ sp 1) (cdr input))
-            (aset stack (+ sp 2) act)
-            (setq sp (+ sp 2))
-            (setq input (funcall lexerp)))
-
-           ;; Reduce by rule (- act)
-           (t 
-            (setq sp (funcall (aref reduction-table (- act)) stack sp goto-table (cdr input))))))))))
diff --git a/mailcap.el b/mailcap.el
deleted file mode 100644
index 12eee88..0000000
--- a/mailcap.el
+++ /dev/null
@@ -1,269 +0,0 @@
-;;; mailcap.el --- mailcap parser
-
-;; Copyright (C) 1997,1998 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko 
-;; Created: 1997/6/27
-;; Keywords: mailcap, setting, configuration, MIME, multimedia
-
-;; This file is part of SEMI (Spadework for Emacs MIME Interfaces).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'mime-def)
-
-
-;;; @ comment
-;;;
-
-(defsubst mailcap-skip-comment ()
-  (let ((chr (char-after (point))))
-    (when (and chr
-	       (or (= chr ?\n)
-		   (= chr ?#)))
-      (forward-line)
-      t)))
-
-
-;;; @ token
-;;;
-
-(defsubst mailcap-look-at-token ()
-  (if (looking-at mime-token-regexp)
-      (let ((beg (match-beginning 0))
-	    (end (match-end 0)))
-	(goto-char end)
-	(buffer-substring beg end)
-	)))
-
-
-;;; @ typefield
-;;;
-
-(defsubst mailcap-look-at-type-field ()
-  (let ((type (mailcap-look-at-token)))
-    (if type
-	(if (eq (char-after (point)) ?/)
-	    (progn
-	      (forward-char)
-	      (let ((subtype (mailcap-look-at-token)))
-		(if subtype
-		    (cons (cons 'type (intern type))
-			  (unless (string= subtype "*")
-			    (list (cons 'subtype (intern subtype)))
-			    )))))
-	  (list (cons 'type (intern type)))
-	  ))))
-
-
-;;; @ field separator
-;;;
-
-(defsubst mailcap-skip-field-separator ()
-  (let ((ret (looking-at "\\([ \t]\\|\\\\\n\\)*;\\([ \t]\\|\\\\\n\\)*")))
-    (when ret
-      (goto-char (match-end 0))
-      t)))
-
-
-;;; @ mtext
-;;;
-
-(defsubst mailcap-look-at-schar ()
-  (let ((chr (char-after (point))))
-    (if (and (>= chr ? )
-	     (/= chr ?\;)
-	     (/= chr ?\\)
-	     )
-	(prog1
-	    chr
-	  (forward-char)))))
-
-(defsubst mailcap-look-at-qchar ()
-  (let ((chr (char-after (point))))
-    (when (eq chr ?\\)
-      (forward-char 2)
-      (char-before (point))
-      )))
-
-(defsubst mailcap-look-at-mtext ()
-  (let ((beg (point)))
-    (while (or (mailcap-look-at-qchar)
-	       (mailcap-look-at-schar)))
-    (buffer-substring beg (point))
-    ))
-
-
-;;; @ field
-;;;
-
-(defsubst mailcap-look-at-field ()
-  (let ((token (mailcap-look-at-token)))
-    (if token
-	(if (looking-at "[ \t]*=[ \t]*")
-	    (let ((value (progn
-			   (goto-char (match-end 0))
-			   (mailcap-look-at-mtext))))
-	      (if value
-		  (cons (intern token) value)
-		))
-	  (list (intern token))
-	  ))))
-
-
-;;; @ mailcap entry
-;;;
-
-(defun mailcap-look-at-entry ()
-  (let ((type (mailcap-look-at-type-field)))
-    (if (and type (mailcap-skip-field-separator))
-	(let ((view (mailcap-look-at-mtext))
-	      fields field)
-	  (when view
-	    (while (and (mailcap-skip-field-separator)
-			(setq field (mailcap-look-at-field))
-			)
-	      (setq fields (cons field fields))
-	      )
-	    (nconc type
-		   (list (cons 'view view))
-		   fields))))))
-
-
-;;; @ main
-;;;
-
-(defun mailcap-parse-buffer (&optional buffer order)
-  "Parse BUFFER as a mailcap, and return the result.
-If optional argument ORDER is a function, result is sorted by it.
-If optional argument ORDER is not specified, result is sorted original
-order.  Otherwise result is not sorted."
-  (save-excursion
-    (if buffer
-	(set-buffer buffer))
-    (goto-char (point-min))
-    (let (entries entry)
-      (while (progn
-	       (while (mailcap-skip-comment))
-	       (setq entry (mailcap-look-at-entry))
-	       )
-	(setq entries (cons entry entries))
-	(forward-line)
-	)
-      (cond ((functionp order) (sort entries order))
-	    ((null order) (nreverse entries))
-	    (t entries)
-	    ))))
-
-
-(defcustom mailcap-file "~/.mailcap"
-  "*File name of user's mailcap file."
-  :group 'mime
-  :type 'file)
-
-(defun mailcap-parse-file (&optional filename order)
-  "Parse FILENAME as a mailcap, and return the result.
-If optional argument ORDER is a function, result is sorted by it.
-If optional argument ORDER is not specified, result is sorted original
-order.  Otherwise result is not sorted."
-  (or filename
-      (setq filename mailcap-file))
-  (with-temp-buffer
-    (insert-file-contents filename)
-    (mailcap-parse-buffer (current-buffer) order)
-    ))
-
-(defun mailcap-format-command (mtext situation)
-  "Return formated command string from MTEXT and SITUATION.
-
-MTEXT is a command text of mailcap specification, such as
-view-command.
-
-SITUATION is an association-list about information of entity.  Its key
-may be:
-
-	'type		primary media-type
-	'subtype	media-subtype
-	'filename	filename
-	STRING		parameter of Content-Type field"
-  (let ((i 0)
-	(len (length mtext))
-	(p 0)
-	dest)
-    (while (< i len)
-      (let ((chr (aref mtext i)))
-	(cond ((eq chr ?%)
-	       (setq i (1+ i)
-		     chr (aref mtext i))
-	       (cond ((eq chr ?s)
-		      (let ((file (cdr (assq 'filename situation))))
-			(if (null file)
-			    (error "'filename is not specified in situation.")
-			  (setq dest (concat dest
-					     (substring mtext p (1- i))
-					     file)
-				i (1+ i)
-				p i)
-			  )))
-		     ((eq chr ?t)
-		      (let ((type (or (mime-type/subtype-string
-				       (cdr (assq 'type situation))
-				       (cdr (assq 'subtype situation)))
-				      "text/plain")))
-			(setq dest (concat dest
-					   (substring mtext p (1- i))
-					   type)
-			      i (1+ i)
-			      p i)
-			))
-		     ((eq chr ?\{)
-		      (setq i (1+ i))
-		      (if (not (string-match "}" mtext i))
-			  (error "parse error!!!")
-			(let* ((me (match-end 0))
-			       (attribute (substring mtext i (1- me)))
-			       (parameter (cdr (assoc attribute situation))))
-			  (if (null parameter)
-			      (error "\"%s\" is not specified in situation."
-				     attribute)
-			    (setq dest (concat dest
-					       (substring mtext p (- i 2))
-					       parameter)
-				  i me
-				  p i)
-			    )
-			  )))
-		     (t (error "Invalid sequence `%%%c'." chr))
-		     ))
-	      ((eq chr ?\\)
-	       (setq dest (concat dest (substring mtext p i))
-		     p (1+ i)
-		     i (+ i 2))
-	       )
-	      (t (setq i (1+ i)))
-	      )))
-    (concat dest (substring mtext p))
-    ))
-
-
-;;; @ end
-;;;
-
-(provide 'mailcap)
-
-;;; mailcap.el ends here
diff --git a/mel-b.el b/mel-b.el
deleted file mode 100644
index e9a382a..0000000
--- a/mel-b.el
+++ /dev/null
@@ -1,362 +0,0 @@
-;;; mel-b.el: Base64 encoder/decoder for GNU Emacs
-
-;; Copyright (C) 1992,1995,1996,1997,1998 Free Software Foundation, Inc.
-
-;; Author: ENAMI Tsugutomo 
-;;         MORIOKA Tomohiko 
-;; Created: 1995/6/24
-;; Keywords: MIME, Base64
-
-;; This file is part of MEL (MIME Encoding Library).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'emu)
-
-
-;;; @ variables
-;;;
-
-(defvar base64-external-encoder '("mmencode")
-  "*list of base64 encoder program name and its arguments.")
-
-(defvar base64-external-decoder '("mmencode" "-u")
-  "*list of base64 decoder program name and its arguments.")
-
-(defvar base64-external-decoder-option-to-specify-file '("-o")
-  "*list of options of base64 decoder program to specify file.")
-
-(defvar base64-internal-encoding-limit 1000
-  "*limit size to use internal base64 encoder.
-If size of input to encode is larger than this limit,
-external encoder is called.")
-
-(defvar base64-internal-decoding-limit 1000
-  "*limit size to use internal base64 decoder.
-If size of input to decode is larger than this limit,
-external decoder is called.")
-
-
-;;; @ internal base64 decoder/encoder
-;;;	based on base64 decoder by Enami Tsugutomo
-
-;;; @@ convert from/to base64 char
-;;;
-
-(defun base64-num-to-char (n)
-  (cond ((eq n nil) ?=)
-	((< n 26) (+ ?A n))
-	((< n 52) (+ ?a (- n 26)))
-	((< n 62) (+ ?0 (- n 52)))
-	((= n 62) ?+)
-	((= n 63) ?/)
-	(t (error "not a base64 integer %d" n))))
-
-(defun base64-char-to-num (c)
-  (cond ((and (<= ?A c) (<= c ?Z)) (- c ?A))
-	((and (<= ?a c) (<= c ?z)) (+ (- c ?a) 26))
-	((and (<= ?0 c) (<= c ?9)) (+ (- c ?0) 52))
-	((= c ?+) 62)
-	((= c ?/) 63)
-	((= c ?=) nil)
-	(t (error "not a base64 character %c" c))))
-
-
-;;; @@ encode/decode one base64 unit
-;;;
-
-(defun base64-encode-1 (pack)
-  (let ((a (car pack))
-	(b (nth 1 pack))
-	(c (nth 2 pack)))
-    (concat
-     (char-to-string (base64-num-to-char (ash a -2)))
-     (if b
-	 (concat
-	  (char-to-string
-	   (base64-num-to-char (logior (ash (logand a 3) 4) (ash b -4))))
-	  (if c
-	      (concat
-	       (char-to-string
-		(base64-num-to-char (logior (ash (logand b 15) 2) (ash c -6))))
-	       (char-to-string (base64-num-to-char (logand c 63)))
-	       )
-	    (concat (char-to-string
-		     (base64-num-to-char (ash (logand b 15) 2))) "=")
-	    ))
-       (concat (char-to-string
-		(base64-num-to-char (ash (logand a 3) 4))) "==")
-       ))))
-
-(defun base64-decode-unit (a b &optional c d)
-  (condition-case err
-      (concat
-       (char-to-string (logior (ash (base64-char-to-num a) 2)
-			       (ash (setq b (base64-char-to-num b)) -4)))
-       (if (and c (setq c (base64-char-to-num c)))
-	   (concat (char-to-string
-		    (logior (ash (logand b 15) 4) (ash c -2)))
-		   (if (and d (setq d (base64-char-to-num d)))
-		       (char-to-string (logior (ash (logand c 3) 6) d))
-		     ))))
-    (error (message (nth 1 err))
-	   "")))
-
-
-;;; @@ base64 encoder/decoder for string
-;;;
-
-(defun base64-encode-string (string)
-  "Encode STRING to base64, and return the result."
-  (let ((len (length string))
-	(b 0)(e 57)
-	dest)
-    (while (< e len)
-      (setq dest
-	    (concat dest
-		    (mapconcat
-		     (function base64-encode-1)
-		     (pack-sequence (substring string b e) 3)
-		     "")
-		    "\n"))
-      (setq b e
-	    e (+ e 57)
-	    )
-      )
-    (let* ((es (mapconcat
-		(function base64-encode-1)
-		(pack-sequence (substring string b) 3)
-		""))
-	   (m (mod (length es) 4))
-	   )
-      (concat dest es (cond ((= m 3) "=")
-			    ((= m 2) "==")
-			    ))
-      )))
-
-(defun base64-internal-decode-string (string)
-  (let ((len (length string))
-	(i 0)
-	dest)
-    (while (< i len)
-      (let ((a (aref string i)))
-	(setq i (1+ i))
-	(unless (eq a ?\n)
-	  (let ((b (aref string i)))
-	    (setq i (1+ i))
-	    (cond
-	     ((eq b ?\n)
-	      ;; invalid
-	      )
-	     ((>= i len)
-	      (setq dest (concat dest (base64-decode-unit a b) ))
-	      )
-	     (t
-	      (let ((c (aref string i)))
-		(setq i (1+ i))
-		(cond
-		 ((eq c ?\n)
-		  (setq dest (concat dest (base64-decode-unit a b)))
-		  )
-		 ((>= i len)
-		  (setq dest (concat dest (base64-decode-unit a b c)))
-		  )
-		 (t
-		  (let ((d (aref string i)))
-		    (setq i (1+ i))
-		    (setq dest
-			  (concat dest
-				  (if (eq c ?\n)
-				      (base64-decode-unit a b c)
-				    (base64-decode-unit a b c d))))
-		    ))))))))))
-    dest))
-
-
-;;; @ base64 encoder/decoder for region
-;;;
-
-(defun base64-internal-encode-region (beg end)
-  (save-excursion
-    (save-restriction
-      (narrow-to-region beg end)
-      (let ((str (buffer-substring beg end)))
-	(delete-region beg end)
-	(insert (base64-encode-string str))
-	)
-      (or (bolp)
-	  (insert "\n")
-	  )
-      )))
-
-(defun base64-internal-decode-region (beg end)
-  (save-excursion
-    (let ((str (buffer-substring beg end)))
-      (delete-region beg end)
-      (goto-char beg)
-      (insert (base64-internal-decode-string str)))))
-
-(defun base64-external-encode-region (beg end)
-  (save-excursion
-    (save-restriction
-      (narrow-to-region beg end)
-      (as-binary-process (apply (function call-process-region)
-				beg end (car base64-external-encoder)
-				t t nil (cdr base64-external-encoder))
-			 )
-      ;; for OS/2
-      ;;   regularize line break code
-      (goto-char (point-min))
-      (while (re-search-forward "\r$" nil t)
-	(replace-match "")
-	)
-      )))
-
-(defun base64-external-decode-region (beg end)
-  (save-excursion
-    (as-binary-process (apply (function call-process-region)
-			      beg end (car base64-external-decoder)
-			      t t nil (cdr base64-external-decoder))
-		       )))
-
-(defun base64-external-decode-string (string)
-  (with-temp-buffer
-    (insert string)
-    (as-binary-process (apply (function call-process-region)
-			      (point-min) (point-max)
-			      (car base64-external-decoder)
-			      t t nil (cdr base64-external-decoder))
-		       )
-    (buffer-string)))
-
-
-(defun base64-encode-region (start end)
-  "Encode current region by base64.
-START and END are buffer positions.
-This function calls internal base64 encoder if size of region is
-smaller than `base64-internal-encoding-limit', otherwise it calls
-external base64 encoder specified by `base64-external-encoder'.  In
-this case, you must install the program (maybe mmencode included in
-metamail or XEmacs package)."
-  (interactive "r")
-  (if (and base64-internal-encoding-limit
-	   (> (- end start) base64-internal-encoding-limit))
-      (base64-external-encode-region start end)
-    (base64-internal-encode-region start end)
-    ))
-
-(defun base64-decode-region (start end)
-  "Decode current region by base64.
-START and END are buffer positions.
-This function calls internal base64 decoder if size of region is
-smaller than `base64-internal-decoding-limit', otherwise it calls
-external base64 decoder specified by `base64-external-decoder'.  In
-this case, you must install the program (maybe mmencode included in
-metamail or XEmacs package)."
-  (interactive "r")
-  (if (and base64-internal-decoding-limit
-	   (> (- end start) base64-internal-decoding-limit))
-      (base64-external-decode-region start end)
-    (base64-internal-decode-region start end)
-    ))
-
-(defun base64-decode-string (string)
-  "Decode STRING which is encoded in base64, and return the result.
-This function calls internal base64 decoder if size of STRING is
-smaller than `base64-internal-decoding-limit', otherwise it calls
-external base64 decoder specified by `base64-external-decoder'.  In
-this case, you must install the program (maybe mmencode included in
-metamail or XEmacs package)."
-  (interactive "r")
-  (if (and base64-internal-decoding-limit
-	   (> (length string) base64-internal-decoding-limit))
-      (base64-external-decode-string string)
-    (base64-internal-decode-string string)
-    ))
-
-
-;;; @ base64 encoder/decoder for file
-;;;
-
-(defun base64-insert-encoded-file (filename)
-  "Encode contents of file FILENAME to base64, and insert the result.
-It calls external base64 encoder specified by
-`base64-external-encoder'.  So you must install the program (maybe
-mmencode included in metamail or XEmacs package)."
-  (interactive (list (read-file-name "Insert encoded file: ")))
-  (apply (function call-process) (car base64-external-encoder)
-	 filename t nil (cdr base64-external-encoder))
-  )
-
-(defun base64-write-decoded-region (start end filename)
-  "Decode and write current region encoded by base64 into FILENAME.
-START and END are buffer positions."
-  (interactive
-   (list (region-beginning) (region-end)
-	 (read-file-name "Write decoded region to file: ")))
-  (as-binary-process
-   (apply (function call-process-region)
-	  start end (car base64-external-decoder)
-	  nil nil nil
-	  (append (cdr base64-external-decoder)
-		  base64-external-decoder-option-to-specify-file
-		  (list filename))
-	  )))
-
-
-;;; @ etc
-;;;
-
-(defun base64-encoded-length (string)
-  (let ((len (length string)))
-    (* (+ (/ len 3)
-	  (if (= (mod len 3) 0) 0 1)
-	  ) 4)
-    ))
-
-(defun pack-sequence (seq size)
-  "Split sequence SEQ into SIZE elements packs,
-and return list of packs. [mel-b; tl-seq function]"
-  (let ((len (length seq)) (p 0) obj
-	unit (i 0)
-	dest)
-    (while (< p len)
-      (setq obj (elt seq p))
-      (setq unit (cons obj unit))
-      (setq i (1+ i))
-      (if (= i size)
-	  (progn
-	    (setq dest (cons (reverse unit) dest))
-	    (setq unit nil)
-	    (setq i 0)
-	    ))
-      (setq p (1+ p))
-      )
-    (if unit
-	(setq dest (cons (reverse unit) dest))
-      )
-    (reverse dest)
-    ))
-
-
-;;; @ end
-;;;
-
-(provide 'mel-b)
-
-;;; mel-b.el ends here.
diff --git a/mel-dl.el b/mel-dl.el
deleted file mode 100644
index 0e79cca..0000000
--- a/mel-dl.el
+++ /dev/null
@@ -1,143 +0,0 @@
-;;; mel-dl.el: Base64 encoder/decoder using DL module
-
-;; Copyright (C) 1998 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko 
-;; Keywords: MIME, Base64
-
-;; This file is part of MEL (MIME Encoding Library).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'emu)
-
-(defvar base64-dl-module
-  (expand-file-name "base64.so" exec-directory))
-
-(defvar base64-dl-handle
-  (and (file-exists-p base64-dl-module)
-       (dynamic-link base64-dl-module)))
-
-(dynamic-call "emacs_base64_init" base64-dl-handle)
-
-(defalias 'base64-encode-string 'encode-base64-string)
-(defalias 'base64-decode-string 'decode-base64-string)
-
-(defun base64-encode-region (start end)
-  "Encode current region by base64.
-START and END are buffer positions."
-  (interactive "r")
-  (save-excursion
-    (save-restriction
-      (narrow-to-region start end)
-      (let ((str (buffer-substring start end)))
-	(delete-region start end)
-	(insert (encode-base64-string str))
-	)
-      (or (bolp)
-	  (insert "\n")
-	  )
-      )))
-
-(defun base64-decode-region (start end)
-  "Decode current region by base64.
-START and END are buffer positions."
-  (interactive "r")
-  (save-excursion
-    (save-restriction
-      (narrow-to-region start end)
-      (goto-char (point-min))
-      (while (looking-at ".*\n")
-	(condition-case err
-	    (replace-match
-	     (decode-base64-string
-	      (buffer-substring (match-beginning 0) (1- (match-end 0))))
-	     t t)
-	  (error
-	   (prog1
-	       (message (nth 1 err))
-	     (replace-match "")))))
-      (if (looking-at ".*$")
-	  (condition-case err
-	      (replace-match
-	       (decode-base64-string
-		(buffer-substring (match-beginning 0) (match-end 0)))
-	       t t)
-	    (error
-	     (prog1
-		 (message (nth 1 err))
-	       (replace-match "")))
-	    ))
-      )))
-
-
-;;; @ base64 encoder/decoder for file
-;;;
-
-(defvar base64-external-encoder '("mmencode")
-  "*list of base64 encoder program name and its arguments.")
-
-(defvar base64-external-decoder '("mmencode" "-u")
-  "*list of base64 decoder program name and its arguments.")
-
-(defvar base64-external-decoder-option-to-specify-file '("-o")
-  "*list of options of base64 decoder program to specify file.")
-
-(defun base64-insert-encoded-file (filename)
-  "Encode contents of file FILENAME to base64, and insert the result.
-It calls external base64 encoder specified by
-`base64-external-encoder'.  So you must install the program (maybe
-mmencode included in metamail or XEmacs package)."
-  (interactive (list (read-file-name "Insert encoded file: ")))
-  (apply (function call-process) (car base64-external-encoder)
-	 filename t nil (cdr base64-external-encoder))
-  )
-
-(defun base64-write-decoded-region (start end filename)
-  "Decode and write current region encoded by base64 into FILENAME.
-START and END are buffer positions."
-  (interactive
-   (list (region-beginning) (region-end)
-	 (read-file-name "Write decoded region to file: ")))
-  (as-binary-process
-   (apply (function call-process-region)
-	  start end (car base64-external-decoder)
-	  nil nil nil
-	  (append (cdr base64-external-decoder)
-		  base64-external-decoder-option-to-specify-file
-		  (list filename))
-	  )))
-
-
-;;; @ etc
-;;;
-
-(defun base64-encoded-length (string)
-  (let ((len (length string)))
-    (* (+ (/ len 3)
-	  (if (= (mod len 3) 0) 0 1)
-	  ) 4)
-    ))
-
-
-;;; @ end
-;;;
-
-(provide 'mel-dl)
-
-;;; mel-dl.el ends here.
diff --git a/mel-g.el b/mel-g.el
deleted file mode 100644
index 73db30f..0000000
--- a/mel-g.el
+++ /dev/null
@@ -1,120 +0,0 @@
-;;; mel-g.el: Gzip64 encoder/decoder for GNU Emacs
-
-;; Copyright (C) 1995,1996,1997,1998 MORIOKA Tomohiko
-;; Copyright (C) 1996,1997 Shuhei KOBAYASHI
-
-;; Author: Shuhei KOBAYASHI 
-;;	modified by MORIOKA Tomohiko 
-;; Maintainer: Shuhei KOBAYASHI 
-;; Created: 1995/10/25
-;; Keywords: Gzip64, base64, gzip, MIME
-
-;; This file is part of MEL (MIME Encoding Library).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Commentary:
-
-;;; NOTE: Gzip64 is an experimental Content-Transfer-Encoding and its
-;;; use is STRONGLY DISCOURAGED except for private communication.
-
-;;; Code:
-
-(require 'emu)
-(require 'path-util)
-
-
-;;; @ variables
-;;;
-
-(defvar gzip64-external-encoder
-  (let ((file (exec-installed-p "mmencode")))
-    (and file
-	 (` ("sh" "-c" (, (concat "gzip -c | " file))))
-	 ))
-  "*list of gzip64 encoder program name and its arguments.")
-
-(defvar gzip64-external-decoder
-  (let ((file (exec-installed-p "mmencode")))
-    (and file
-	 (` ("sh" "-c" (, (concat file " -u | gzip -dc"))))
-	 ))
-  "*list of gzip64 decoder program name and its arguments.")
-
-
-;;; @ encoder/decoder for region
-;;;
-
-(defun gzip64-external-encode-region (beg end)
-  (interactive "*r")
-  (save-excursion
-    (as-binary-process (apply (function call-process-region)
-			      beg end (car gzip64-external-encoder)
-			      t t nil (cdr gzip64-external-encoder))
-		       )
-    ;; for OS/2
-    ;;   regularize line break code
-    (goto-char (point-min))
-    (while (re-search-forward "\r$" nil t)
-      (replace-match "")
-      )
-    ))
-
-(defun gzip64-external-decode-region (beg end)
-  (interactive "*r")
-  (save-excursion
-    (as-binary-process (apply (function call-process-region)
-			      beg end (car gzip64-external-decoder)
-			      t t nil (cdr gzip64-external-decoder))
-		       )
-    ))
-
-(defalias 'gzip64-encode-region 'gzip64-external-encode-region)
-(defalias 'gzip64-decode-region 'gzip64-external-decode-region)
-
-
-;;; @ encoder/decoder for file
-;;;
-
-(defun gzip64-insert-encoded-file (filename)
-  (interactive (list (read-file-name "Insert encoded file: ")))
-  (apply (function call-process) (car gzip64-external-encoder)
-	 filename t nil
-	 (cdr gzip64-external-encoder))
-  )
-
-(defun gzip64-write-decoded-region (start end filename)
-  "Decode and write current region encoded by gzip64 into FILENAME.
-START and END are buffer positions."
-  (interactive
-   (list (region-beginning) (region-end)
-	 (read-file-name "Write decoded region to file: ")))
-  (as-binary-process
-   (apply (function call-process-region)
-	  start end (car gzip64-external-decoder)
-	  nil nil nil
-	  (let ((args (cdr gzip64-external-decoder)))
-	    (append (butlast args)
-		    (list (concat (car (last args)) ">" filename))))
-	  )))
-
-
-;;; @ end
-;;;
-
-(provide 'mel-g)
-
-;;; mel-g.el ends here.
diff --git a/mel-q.el b/mel-q.el
deleted file mode 100644
index 47a7a2b..0000000
--- a/mel-q.el
+++ /dev/null
@@ -1,338 +0,0 @@
-;;; mel-q.el: Quoted-Printable and Q-encoding encoder/decoder for GNU Emacs
-
-;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko 
-;; Created: 1995/6/25
-;; Keywords: MIME, Quoted-Printable, Q-encoding
-
-;; This file is part of MEL (MIME Encoding Library).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'emu)
-(require 'mime-def)
-
-
-;;; @ Quoted-Printable encoder
-;;;
-
-(defsubst quoted-printable-quote-char (character)
-  (concat
-   "="
-   (char-to-string (aref quoted-printable-hex-chars (ash character -4)))
-   (char-to-string (aref quoted-printable-hex-chars (logand character 15)))
-   ))
-
-(defun quoted-printable-internal-encode-region (start end)
-  (save-excursion
-    (save-restriction
-      (narrow-to-region start end)
-      (goto-char start)
-      (let ((col 0))
-	(while (< (point)(point-max))
-	  (cond ((>= col 75)
-		 (insert "=\n")
-		 (setq col 0)
-		 )
-		((looking-at-as-unibyte "^From ")
-		 (replace-match "=46rom ")
-		 (backward-char 1)
-		 (setq col (+ col 6))
-		 )
-		((looking-at-as-unibyte "[ \t]\n")
-		 (forward-char 1)
-		 (insert "=\n")
-		 (forward-char 1)
-		 (setq col 0)
-		 )
-		(t
-		 (let ((chr (char-after (point))))
-		   (cond ((= chr ?\n)
-			  (forward-char 1)
-			  (setq col 0)
-			  )
-			 ((or (= chr ?\t)
-			      (and (<= 32 chr)(/= chr ?=)(< chr 127))
-			      )
-			  (forward-char 1)
-			  (setq col (1+ col))
-			  )
-			 ((>= col 73)
-			  (insert "=\n")
-			  (setq col 0)
-			  )
-			 (t
-			  (delete-char 1)
-			  (insert (quoted-printable-quote-char chr))
-			  (setq col (+ col 3))
-			  ))
-		   )))
-	  )))))
-
-
-(defvar quoted-printable-external-encoder '("mmencode" "-q")
-  "*list of quoted-printable encoder program name and its arguments.")
-
-(defun quoted-printable-external-encode-region (start end)
-  (save-excursion
-    (save-restriction
-      (narrow-to-region start end)
-      (as-binary-process
-       (apply (function call-process-region)
-	      start end (car quoted-printable-external-encoder)
-	      t t nil (cdr quoted-printable-external-encoder))
-       )
-      ;; for OS/2
-      ;;   regularize line break code
-      (goto-char (point-min))
-      (while (re-search-forward "\r$" nil t)
-	(replace-match "")
-	)
-      )))
-
-
-(defvar quoted-printable-internal-encoding-limit
-  (if (and (featurep 'xemacs)(featurep 'mule))
-      0
-    (require 'path-util)
-    (if (exec-installed-p "mmencode")
-	1000
-      (message "Don't found external encoder for Quoted-Printable!")
-      nil))
-  "*limit size to use internal quoted-printable encoder.
-If size of input to encode is larger than this limit,
-external encoder is called.")
-
-(defun quoted-printable-encode-region (start end)
-  "Encode current region by quoted-printable.
-START and END are buffer positions.
-This function calls internal quoted-printable encoder if size of
-region is smaller than `quoted-printable-internal-encoding-limit',
-otherwise it calls external quoted-printable encoder specified by
-`quoted-printable-external-encoder'.  In this case, you must install
-the program (maybe mmencode included in metamail or XEmacs package)."
-  (interactive "r")
-  (if (and quoted-printable-internal-encoding-limit
-	   (> (- end start) quoted-printable-internal-encoding-limit))
-      (quoted-printable-external-encode-region start end)
-    (quoted-printable-internal-encode-region start end)
-    ))
-
-
-(defun quoted-printable-encode-string (string)
-  "Encode STRING to quoted-printable, and return the result."
-  (with-temp-buffer
-    (insert string)
-    (quoted-printable-encode-region (point-min)(point-max))
-    (buffer-string)
-    ))
-
-
-(defun quoted-printable-insert-encoded-file (filename)
-  "Encode contents of file FILENAME to quoted-printable, and insert the result.
-It calls external quoted-printable encoder specified by
-`quoted-printable-external-encoder'.  So you must install the program
-\(maybe mmencode included in metamail or XEmacs package)."
-  (interactive (list (read-file-name "Insert encoded file: ")))
-  (apply (function call-process) (car quoted-printable-external-encoder)
-	 filename t nil (cdr quoted-printable-external-encoder))
-  )
-
-
-;;; @ Quoted-Printable decoder
-;;;
-
-(defsubst quoted-printable-hex-char-to-num (chr)
-  (cond ((<= ?a chr) (+ (- chr ?a) 10))
-	((<= ?A chr) (+ (- chr ?A) 10))
-	((<= ?0 chr) (- chr ?0))
-	))
-
-(defun quoted-printable-internal-decode-region (start end)
-  (save-excursion
-    (save-restriction
-      (narrow-to-region start end)
-      (goto-char (point-min))
-      (while (search-forward "=" nil t)
-	(let ((beg (match-beginning 0)))
-	  (cond ((looking-at "\n")
-		 (delete-region beg (match-end 0))
-		 )
-		((looking-at
-		  `,(concat "[" quoted-printable-hex-chars
-			    "][" quoted-printable-hex-chars "]"))
-		 (let* ((end (match-end 0))
-			(hex (buffer-substring (match-beginning 0) end)))
-		   (delete-region beg end)
-		   (insert
-		    (logior
-		     (ash (quoted-printable-hex-char-to-num (aref hex 0)) 4)
-		     (quoted-printable-hex-char-to-num (aref hex 1))))
-		   ))
-		(t
-		 ;; invalid
-		 ))
-	  )))))
-
-(defvar quoted-printable-external-decoder '("mmencode" "-q" "-u")
-  "*list of quoted-printable decoder program name and its arguments.")
-
-(defun quoted-printable-external-decode-region (start end)
-  (save-excursion
-    (as-binary-process
-     (apply (function call-process-region)
-	    start end (car quoted-printable-external-decoder)
-	    t t nil (cdr quoted-printable-external-decoder))
-     )))
-
-
-(defvar quoted-printable-internal-decoding-limit nil
-  "*limit size to use internal quoted-printable decoder.
-If size of input to decode is larger than this limit,
-external decoder is called.")
-
-(defun quoted-printable-decode-region (start end)
-  "Decode current region by quoted-printable.
-START and END are buffer positions.
-This function calls internal quoted-printable decoder if size of
-region is smaller than `quoted-printable-internal-decoding-limit',
-otherwise it calls external quoted-printable decoder specified by
-`quoted-printable-external-decoder'.  In this case, you must install
-the program (maybe mmencode included in metamail or XEmacs package)."
-  (interactive "r")
-  (if (and quoted-printable-internal-decoding-limit
-	   (> (- end start) quoted-printable-internal-decoding-limit))
-      (quoted-printable-external-decode-region start end)
-    (quoted-printable-internal-decode-region start end)
-    ))
-
-(defun quoted-printable-decode-string (string)
-  "Decode STRING which is encoded in quoted-printable, and return the result."
-  (with-temp-buffer
-    (insert string)
-    (quoted-printable-decode-region (point-min)(point-max))
-    (buffer-string)))
-
-
-(defvar quoted-printable-external-decoder-option-to-specify-file '("-o")
-  "*list of options of quoted-printable decoder program to specify file.")
-
-(defun quoted-printable-write-decoded-region (start end filename)
-  "Decode and write current region encoded by quoted-printable into FILENAME.
-START and END are buffer positions."
-  (interactive
-   (list (region-beginning) (region-end)
-	 (read-file-name "Write decoded region to file: ")))
-  (as-binary-process
-   (apply (function call-process-region)
-	  start end (car quoted-printable-external-decoder)
-	  nil nil nil
-	  (append (cdr quoted-printable-external-decoder)
-		  quoted-printable-external-decoder-option-to-specify-file
-		  (list filename))
-	  )))
-
-
-;;; @ Q-encoding encode/decode string
-;;;
-
-(defconst q-encoding-special-chars-alist
-  '((text	?= ?? ?_)
-    (comment	?= ?? ?_ ?\( ?\) ?\\)
-    (phrase	?= ?? ?_ ?\( ?\) ?\\ ?\" ?# ?$ ?% ?& ?' ?, ?. ?/
-		?: ?\; ?< ?> ?@ ?\[ ?\] ?^ ?` ?{ ?| ?} ?~)
-    ))
-
-(defun q-encoding-encode-string (string &optional mode)
-  "Encode STRING to Q-encoding of encoded-word, and return the result.
-MODE allows `text', `comment', `phrase' or nil.  Default value is
-`phrase'."
-  (let ((specials (cdr (or (assq mode q-encoding-special-chars-alist)
-			   (assq 'phrase q-encoding-special-chars-alist)
-			   ))))
-    (mapconcat (function
-		(lambda (chr)
-		  (cond ((eq chr ? ) "_")
-			((or (< chr 32) (< 126 chr)
-			     (memq chr specials)
-			     )
-			 (quoted-printable-quote-char chr)
-			 )
-			(t
-			 (char-to-string chr)
-			 ))
-		  ))
-	       string "")
-    ))
-
-(defun q-encoding-decode-string (string)
-  "Decode STRING which is encoded in Q-encoding and return the result."
-  (let (q h l)
-    (mapconcat (function
-		(lambda (chr)
-		  (cond ((eq chr ?_) " ")
-			((eq chr ?=)
-			 (setq q t)
-			 "")
-			(q (setq h (quoted-printable-hex-char-to-num chr))
-			   (setq q nil)
-			   "")
-			(h (setq l (quoted-printable-hex-char-to-num chr))
-			   (prog1
-			       (char-to-string (logior (ash h 4) l))
-			     (setq h nil)
-			     )
-			   )
-			(t (char-to-string chr))
-			)))
-	       string "")))
-
-
-;;; @@ etc
-;;;
-
-(defun q-encoding-printable-char-p (chr mode)
-  (and (not (memq chr '(?= ?? ?_)))
-       (<= ?\   chr)(<= chr ?~)
-       (cond ((eq mode 'text) t)
-	     ((eq mode 'comment)
-	      (not (memq chr '(?\( ?\) ?\\)))
-	      )
-	     (t
-	      (string-match "[A-Za-z0-9!*+/=_---]" (char-to-string chr))
-	      ))))
-
-(defun q-encoding-encoded-length (string &optional mode)
-  (let ((l 0)(i 0)(len (length string)) chr)
-    (while (< i len)
-      (setq chr (elt string i))
-      (if (q-encoding-printable-char-p chr mode)
-	  (setq l (+ l 1))
-	(setq l (+ l 3))
-	)
-      (setq i (+ i 1)) )
-    l))
-
-
-;;; @ end
-;;;
-
-(provide 'mel-q)
-
-;;; mel-q.el ends here
diff --git a/mel-u.el b/mel-u.el
deleted file mode 100644
index d004d60..0000000
--- a/mel-u.el
+++ /dev/null
@@ -1,143 +0,0 @@
-;;; mel-u.el: uuencode encoder/decoder for GNU Emacs
-
-;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko 
-;; Created: 1995/10/25
-;; Keywords: uuencode
-
-;; This file is part of MEL (MIME Encoding Library).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'emu)
-(require 'mime-def)
-
-
-;;; @ variables
-;;;
-
-(defvar uuencode-external-encoder '("uuencode" "-")
-  "*list of uuencode encoder program name and its arguments.")
-
-(defvar uuencode-external-decoder '("sh" "-c" "uudecode")
-  "*list of uuencode decoder program name and its arguments.")
-
-
-;;; @ uuencode encoder/decoder for region
-;;;
-
-(defun uuencode-external-encode-region (start end)
-  "Encode current region by unofficial uuencode format.
-This function uses external uuencode encoder which is specified by
-variable `uuencode-external-encoder'."
-  (interactive "*r")
-  (save-excursion
-    (as-binary-process (apply (function call-process-region)
-			      start end (car uuencode-external-encoder)
-			      t t nil (cdr uuencode-external-encoder))
-		       )
-    ;; for OS/2
-    ;;   regularize line break code
-    (goto-char (point-min))
-    (while (re-search-forward "\r$" nil t)
-      (replace-match "")
-      )
-    ))
-
-(defun uuencode-external-decode-region (start end)
-  "Decode current region by unofficial uuencode format.
-This function uses external uuencode decoder which is specified by
-variable `uuencode-external-decoder'."
-  (interactive "*r")
-  (save-excursion
-    (let ((filename (save-excursion
-		      (save-restriction
-			(narrow-to-region start end)
-			(goto-char start)
-			(if (re-search-forward "^begin [0-9]+ " nil t)
-			    (if (looking-at ".+$")
-				(buffer-substring (match-beginning 0)
-						  (match-end 0))
-			      )))))
-	  (default-directory mime-temp-directory))
-      (if filename
-	  (as-binary-process
-	   (apply (function call-process-region)
-		  start end (car uuencode-external-decoder)
-		  t nil nil (cdr uuencode-external-decoder))
-	   (as-binary-input-file (insert-file-contents filename))
-	   ;; The previous line causes the buffer to be made read-only, I
-	   ;; do not pretend to understand the control flow leading to this
-	   ;; but suspect it has something to do with image-mode. -slb
-	   ;;	Use `inhibit-read-only' to avoid to force
-	   ;;	buffer-read-only nil. - tomo.
-	   (let ((inhibit-read-only t))
-	     (delete-file filename)
-	     )
-	   ))
-      )))
-
-(defalias 'uuencode-encode-region 'uuencode-external-encode-region)
-(defalias 'uuencode-decode-region 'uuencode-external-decode-region)
-
-
-;;; @ uuencode encoder/decoder for file
-;;;
-
-(defun uuencode-insert-encoded-file (filename)
-  "Insert file encoded by unofficial uuencode format.
-This function uses external uuencode encoder which is specified by
-variable `uuencode-external-encoder'."
-  (interactive (list (read-file-name "Insert encoded file: ")))
-  (call-process (car uuencode-external-encoder) filename t nil
-		(file-name-nondirectory filename))
-  )
-
-(defun uuencode-write-decoded-region (start end filename)
-  "Decode and write current region encoded by uuencode into FILENAME.
-START and END are buffer positions."
-  (interactive
-   (list (region-beginning) (region-end)
-	 (read-file-name "Write decoded region to file: ")))
-  (save-excursion
-    (let ((file (save-excursion
-		  (save-restriction
-		    (narrow-to-region start end)
-		    (goto-char start)
-		    (if (re-search-forward "^begin [0-9]+ " nil t)
-			(if (looking-at ".+$")
-			    (buffer-substring (match-beginning 0)
-					      (match-end 0))
-			  )))))
-	  (default-directory mime-temp-directory))
-      (if file
-	  (as-binary-process
-	   (apply (function call-process-region)
-		  start end (car uuencode-external-decoder)
-		  nil nil nil (cdr uuencode-external-decoder))
-	   (rename-file file filename 'overwrites)
-	   )))))
-
-
-;;; @ end
-;;;
-
-(provide 'mel-u)
-
-;;; mel-u.el ends here
diff --git a/mel.el b/mel.el
deleted file mode 100644
index 2ed43a4..0000000
--- a/mel.el
+++ /dev/null
@@ -1,285 +0,0 @@
-;;; mel.el : a MIME encoding/decoding library
-
-;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko 
-;; modified by Shuhei KOBAYASHI 
-;; Created: 1995/6/25
-;; Keywords: MIME, Base64, Quoted-Printable, uuencode, gzip64
-
-;; This file is part of MEL (MIME Encoding Library).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'emu)
-
-
-;;; @ variable
-;;;
-
-(defvar base64-dl-module
-  (and (fboundp 'dynamic-link)
-       (let ((path (expand-file-name "base64.so" exec-directory)))
-	 (and (file-exists-p path)
-	      path))))
-
-
-;;; @ autoload
-;;;
-
-(cond (base64-dl-module
-       (autoload 'base64-encode-string "mel-dl"
-	 "Encode STRING to base64, and return the result.")
-       (autoload 'base64-decode-string "mel-dl"
-	 "Decode STRING which is encoded in base64, and return the result.")
-       (autoload 'base64-encode-region "mel-dl"
-	 "Encode current region by base64." t)
-       (autoload 'base64-decode-region "mel-dl"
-	 "Decode current region by base64." t)
-       (autoload 'base64-insert-encoded-file "mel-dl"
-	 "Encode contents of file to base64, and insert the result." t)
-       (autoload 'base64-write-decoded-region "mel-dl"
-	 "Decode and write current region encoded by base64 into FILENAME." t)
-       ;; for encoded-word
-       (autoload 'base64-encoded-length "mel-dl")
-       )
-      (t
-       (autoload 'base64-encode-string "mel-b"
-	 "Encode STRING to base64, and return the result.")
-       (autoload 'base64-decode-string "mel-b"
-	 "Decode STRING which is encoded in base64, and return the result.")
-       (autoload 'base64-encode-region "mel-b"
-	 "Encode current region by base64." t)
-       (autoload 'base64-decode-region "mel-b"
-	 "Decode current region by base64." t)
-       (autoload 'base64-insert-encoded-file "mel-b"
-	 "Encode contents of file to base64, and insert the result." t)
-       (autoload 'base64-write-decoded-region "mel-b"
-	 "Decode and write current region encoded by base64 into FILENAME." t)
-       ;; for encoded-word
-       (autoload 'base64-encoded-length "mel-b")
-       ))
-
-(autoload 'quoted-printable-encode-string "mel-q"
-  "Encode STRING to quoted-printable, and return the result.")
-(autoload 'quoted-printable-decode-string "mel-q"
-  "Decode STRING which is encoded in quoted-printable, and return the result.")
-(autoload 'quoted-printable-encode-region "mel-q"
-  "Encode current region by Quoted-Printable." t)
-(autoload 'quoted-printable-decode-region "mel-q"
-  "Decode current region by Quoted-Printable." t)
-(autoload 'quoted-printable-insert-encoded-file "mel-q"
-  "Encode contents of file to quoted-printable, and insert the result." t)
-(autoload 'quoted-printable-write-decoded-region "mel-q"
-  "Decode and write current region encoded by quoted-printable into FILENAME."
-  t)
-;; for encoded-word
-(autoload 'q-encoding-encode-string "mel-q"
-  "Encode STRING to Q-encoding of encoded-word, and return the result.")
-(autoload 'q-encoding-decode-string "mel-q"
-  "Decode STRING which is encoded in Q-encoding and return the result.")
-(autoload 'q-encoding-encoded-length "mel-q")
-
-(autoload 'uuencode-encode-region "mel-u"
-  "Encode current region by unofficial uuencode format." t)
-(autoload 'uuencode-decode-region "mel-u"
-  "Decode current region by unofficial uuencode format." t)
-(autoload 'uuencode-insert-encoded-file "mel-u"
-  "Insert file encoded by unofficial uuencode format." t)
-(autoload 'uuencode-write-decoded-region "mel-u"
-  "Decode and write current region encoded by uuencode into FILENAME." t)
-
-(autoload 'gzip64-encode-region "mel-g"
-  "Encode current region by unofficial x-gzip64 format." t)
-(autoload 'gzip64-decode-region "mel-g"
-  "Decode current region by unofficial x-gzip64 format." t)
-(autoload 'gzip64-insert-encoded-file "mel-g"
-  "Insert file encoded by unofficial gzip64 format." t)
-(autoload 'gzip64-write-decoded-region "mel-g"
-  "Decode and write current region encoded by gzip64 into FILENAME." t)
-
-
-;;; @ region
-;;;
-
-;;;###autoload
-(defvar mime-encoding-method-alist
-  '(("base64"           . base64-encode-region)
-    ("quoted-printable" . quoted-printable-encode-region)
-    ;; Not standard, their use is DISCOURAGED.
-    ;; ("x-uue"            . uuencode-encode-region)
-    ;; ("x-gzip64"         . gzip64-encode-region)
-    ("7bit")
-    ("8bit")
-    ("binary")
-    )
-  "Alist of encoding vs. corresponding method to encode region.
-Each element looks like (STRING . FUNCTION) or (STRING . nil).
-STRING is content-transfer-encoding.
-FUNCTION is region encoder and nil means not to encode.")
-
-;;;###autoload
-(defvar mime-decoding-method-alist
-  '(("base64"           . base64-decode-region)
-    ("quoted-printable" . quoted-printable-decode-region)
-    ("x-uue"            . uuencode-decode-region)
-    ("x-uuencode"       . uuencode-decode-region)
-    ("x-gzip64"         . gzip64-decode-region)
-    )
-  "Alist of encoding vs. corresponding method to decode region.
-Each element looks like (STRING . FUNCTION).
-STRING is content-transfer-encoding.
-FUNCTION is region decoder.")
-
-;;;###autoload
-(defun mime-encode-region (start end encoding)
-  "Encode region START to END of current buffer using ENCODING.
-ENCODING must be string.  If ENCODING is found in
-`mime-encoding-method-alist' as its key, this function encodes the
-region by its value."
-  (interactive
-   (list (region-beginning) (region-end)
-	 (completing-read "encoding: "
-			  mime-encoding-method-alist
-			  nil t "base64"))
-   )
-  (let ((f (cdr (assoc encoding mime-encoding-method-alist))))
-    (if f
-	(funcall f start end)
-      )))
-
-;;;###autoload
-(defun mime-decode-region (start end encoding)
-  "Decode region START to END of current buffer using ENCODING.
-ENCODING must be string.  If ENCODING is found in
-`mime-decoding-method-alist' as its key, this function decodes the
-region by its value."
-  (interactive
-   (list (region-beginning) (region-end)
-	 (completing-read "encoding: "
-			  mime-decoding-method-alist
-			  nil t "base64"))
-   )
-  (let ((f (cdr (assoc encoding mime-decoding-method-alist))))
-    (if f
-	(funcall f start end)
-      )))
-
-
-;;; @ string
-;;;
-
-;;;###autoload
-(defvar mime-string-decoding-method-alist
-  '(("base64"           . base64-decode-string)
-    ("quoted-printable" . quoted-printable-decode-string)
-    ("7bit"		. identity)
-    ("8bit"		. identity)
-    ("binary"		. identity)
-    )
-  "Alist of encoding vs. corresponding method to decode string.
-Each element looks like (STRING . FUNCTION).
-STRING is content-transfer-encoding.
-FUNCTION is string decoder.")
-
-;;;###autoload
-(defun mime-decode-string (string encoding)
-  "Decode STRING using ENCODING.
-ENCODING must be string.  If ENCODING is found in
-`mime-string-decoding-method-alist' as its key, this function decodes
-the STRING by its value."
-  (let ((f (cdr (assoc encoding mime-string-decoding-method-alist))))
-    (if f
-	(funcall f string)
-      (with-temp-buffer
-	(insert string)
-	(mime-decode-region (point-min)(point-max) encoding)
-	(buffer-string)
-	))))
-
-
-;;; @ file
-;;;
-
-;;;###autoload
-(defvar mime-file-encoding-method-alist
-  '(("base64"           . base64-insert-encoded-file)
-    ("quoted-printable" . quoted-printable-insert-encoded-file)
-    ;; Not standard, their use is DISCOURAGED.
-    ;; ("x-uue"            . uuencode-insert-encoded-file)
-    ;; ("x-gzip64"         . gzip64-insert-encoded-file)
-    ("7bit"		. insert-file-contents-as-binary)
-    ("8bit"		. insert-file-contents-as-binary)
-    ("binary"		. insert-file-contents-as-binary)
-    )
-  "Alist of encoding vs. corresponding method to insert encoded file.
-Each element looks like (STRING . FUNCTION).
-STRING is content-transfer-encoding.
-FUNCTION is function to insert encoded file.")
-
-;;;###autoload
-(defvar mime-file-decoding-method-alist
-  '(("base64"           . base64-write-decoded-region)
-    ("quoted-printable" . quoted-printable-write-decoded-region)
-    ("x-uue"            . uuencode-write-decoded-region)
-    ("x-gzip64"         . gzip64-write-decoded-region)
-    ("7bit"		. write-region-as-binary)
-    ("8bit"		. write-region-as-binary)
-    ("binary"		. write-region-as-binary)
-    )
-  "Alist of encoding vs. corresponding method to write decoded region to file.
-Each element looks like (STRING . FUNCTION).
-STRING is content-transfer-encoding.
-FUNCTION is function to write decoded region to file.")
-
-;;;###autoload
-(defun mime-insert-encoded-file (filename encoding)
-  "Insert file FILENAME encoded by ENCODING format."
-  (interactive
-   (list (read-file-name "Insert encoded file: ")
-	 (completing-read "encoding: "
-			  mime-encoding-method-alist
-			  nil t "base64"))
-   )
-  (let ((f (cdr (assoc encoding mime-file-encoding-method-alist))))
-    (if f
-	(funcall f filename)
-      )))
-
-;;;###autoload
-(defun mime-write-decoded-region (start end filename encoding)
-  "Decode and write current region encoded by ENCODING into FILENAME.
-START and END are buffer positions."
-  (interactive
-   (list (region-beginning) (region-end)
-	 (read-file-name "Write decoded region to file: ")
-	 (completing-read "encoding: "
-			  mime-file-decoding-method-alist
-			  nil t "base64")))
-  (let ((f (cdr (assoc encoding mime-file-decoding-method-alist))))
-    (if f
-	(funcall f start end filename)
-      )))
-
-
-;;; @ end
-;;;
-
-(provide 'mel)
-
-;;; mel.el ends here.
diff --git a/mime-def.el b/mime-def.el
deleted file mode 100644
index f362130..0000000
--- a/mime-def.el
+++ /dev/null
@@ -1,326 +0,0 @@
-;;; mime-def.el --- definition module about MIME
-
-;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko 
-;; Keywords: definition, MIME, multimedia, mail, news
-
-;; This file is part of FLAM (Faithful Library About MIME).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(defconst mime-library-version-string
-  "FLAM-DOODLE 1.9.1 - \"$B2+C0(B\" 10R5.5/14.0")
-
-
-;;; @ variables
-;;;
-
-(require 'custom)
-
-(eval-when-compile (require 'cl))
-
-(defgroup mime nil
-  "Emacs MIME Interfaces"
-  :group 'news
-  :group 'mail)
-
-(custom-handle-keyword 'default-mime-charset :group 'mime
-		       'custom-variable)
-
-(defcustom mime-temp-directory (or (getenv "MIME_TMP_DIR")
-				   (getenv "TM_TMP_DIR")
-				   (getenv "TMPDIR")
-				   (getenv "TMP")
-				   (getenv "TEMP")
-				   "/tmp/")
-  "*Directory for temporary files."
-  :group 'mime
-  :type 'directory)
-
-(defcustom mime-uuencode-encoding-name-list '("x-uue" "x-uuencode")
-  "*List of encoding names for uuencode format."
-  :group 'mime
-  :type '(repeat string))
-
-
-;;; @ required functions
-;;;
-
-(unless (fboundp 'butlast)
-  (defun butlast (x &optional n)
-    "Returns a copy of LIST with the last N elements removed."
-    (if (and n (<= n 0)) x
-      (nbutlast (copy-sequence x) n)))
-  
-  (defun nbutlast (x &optional n)
-    "Modifies LIST to remove the last N elements."
-    (let ((m (length x)))
-      (or n (setq n 1))
-      (and (< n m)
-	   (progn
-	     (if (> n 0) (setcdr (nthcdr (- (1- m) n) x) nil))
-	     x))))
-  )
-
-(defsubst eliminate-top-spaces (string)
-  "Eliminate top sequence of space or tab in STRING."
-  (if (string-match "^[ \t]+" string)
-      (substring string (match-end 0))
-    string))
-
-(defsubst regexp-* (regexp)
-  (concat regexp "*"))
-
-(defsubst regexp-or (&rest args)
-  (concat "\\(" (mapconcat (function identity) args "\\|") "\\)"))
-
-
-;;; @ about STD 11
-;;;
-
-(defconst std11-quoted-pair-regexp "\\\\.")
-(defconst std11-non-qtext-char-list '(?\" ?\\ ?\r ?\n))
-(defconst std11-qtext-regexp
-  (concat "[^" (char-list-to-string std11-non-qtext-char-list) "]"))
-(defconst std11-quoted-string-regexp
-  (concat "\""
-	  (regexp-*
-	   (regexp-or std11-qtext-regexp std11-quoted-pair-regexp))
-	  "\""))
-
-
-;;; @ about MIME
-;;;
-
-(defconst mime-tspecials "][()<>@,\;:\\\"/?=")
-(defconst mime-token-regexp (concat "[^" mime-tspecials "\000-\040]+"))
-(defconst mime-charset-regexp mime-token-regexp)
-
-(defconst mime-media-type/subtype-regexp
-  (concat mime-token-regexp "/" mime-token-regexp))
-
-
-;;; @@ Quoted-Printable
-;;;
-
-(defconst quoted-printable-hex-chars "0123456789ABCDEF")
-
-(defconst quoted-printable-octet-regexp
-  (concat "=[" quoted-printable-hex-chars
-	  "][" quoted-printable-hex-chars "]"))
-
-
-;;; @ Content-Type
-;;;
-
-(defsubst make-mime-content-type (type subtype &optional parameters)
-  (list* (cons 'type type)
-	 (cons 'subtype subtype)
-	 (nreverse parameters))
-  )
-
-(defsubst mime-content-type-primary-type (content-type)
-  "Return primary-type of CONTENT-TYPE."
-  (cdr (car content-type)))
-
-(defsubst mime-content-type-subtype (content-type)
-  "Return primary-type of CONTENT-TYPE."
-  (cdr (cadr content-type)))
-
-(defsubst mime-content-type-parameters (content-type)
-  "Return primary-type of CONTENT-TYPE."
-  (cddr content-type))
-
-(defsubst mime-content-type-parameter (content-type parameter)
-  "Return PARAMETER value of CONTENT-TYPE."
-  (cdr (assoc parameter (mime-content-type-parameters content-type))))
-
-
-(defsubst mime-type/subtype-string (type &optional subtype)
-  "Return type/subtype string from TYPE and SUBTYPE."
-  (if type
-      (if subtype
-	  (format "%s/%s" type subtype)
-	(format "%s" type))))
-
-
-;;; @ Content-Disposition
-;;;
-
-(defsubst mime-content-disposition-type (content-disposition)
-  "Return disposition-type of CONTENT-DISPOSITION."
-  (cdr (car content-disposition)))
-
-(defsubst mime-content-disposition-parameters (content-disposition)
-  "Return disposition-parameters of CONTENT-DISPOSITION."
-  (cdr content-disposition))
-
-(defsubst mime-content-disposition-parameter (content-disposition parameter)
-  "Return PARAMETER value of CONTENT-DISPOSITION."
-  (cdr (assoc parameter (cdr content-disposition))))
-
-(defsubst mime-content-disposition-filename (content-disposition)
-  "Return filename of CONTENT-DISPOSITION."
-  (mime-content-disposition-parameter content-disposition "filename"))
-
-
-;;; @ MIME entity
-;;;
-
-(defsubst make-mime-entity-internal (representation-type location
-				     &optional content-type
-				     children parent node-id
-				     buffer
-				     header-start header-end
-				     body-start body-end)
-  (vector representation-type location
-	  content-type nil nil children parent node-id
-	  buffer header-start header-end body-start body-end
-	  nil nil))
-
-(defsubst mime-entity-representation-type-internal (entity)
-  (aref entity 0))
-(defsubst mime-entity-set-representation-type-internal (entity type)
-  (aset entity 0 type))
-(defsubst mime-entity-location-internal (entity)
-  (aref entity 1))
-
-(defsubst mime-entity-content-type-internal (entity)
-  (aref entity 2))
-(defsubst mime-entity-set-content-type-internal (entity type)
-  (aset entity 2 type))
-(defsubst mime-entity-content-disposition-internal (entity)
-  (aref entity 3))
-(defsubst mime-entity-set-content-disposition-internal (entity disposition)
-  (aset entity 3 disposition))
-(defsubst mime-entity-encoding-internal (entity)
-  (aref entity 4))
-(defsubst mime-entity-set-encoding-internal (entity encoding)
-  (aset entity 4 encoding))
-
-(defsubst mime-entity-children-internal (entity)
-  (aref entity 5))
-(defsubst mime-entity-set-children-internal (entity children)
-  (aset entity 5 children))
-(defsubst mime-entity-parent-internal (entity)
-  (aref entity 6))
-(defsubst mime-entity-node-id-internal (entity)
-  (aref entity 7))
-
-(defsubst mime-entity-buffer-internal (entity)
-  (aref entity 8))
-(defsubst mime-entity-set-buffer-internal (entity buffer)
-  (aset entity 8 buffer))
-(defsubst mime-entity-header-start-internal (entity)
-  (aref entity 9))
-(defsubst mime-entity-set-header-start-internal (entity point)
-  (aset entity 9 point))
-(defsubst mime-entity-header-end-internal (entity)
-  (aref entity 10))
-(defsubst mime-entity-set-header-end-internal (entity point)
-  (aset entity 10 point))
-(defsubst mime-entity-body-start-internal (entity)
-  (aref entity 11))
-(defsubst mime-entity-set-body-start-internal (entity point)
-  (aset entity 11 point))
-(defsubst mime-entity-body-end-internal (entity)
-  (aref entity 12))
-(defsubst mime-entity-set-body-end-internal (entity point)
-  (aset entity 12 point))
-
-(defsubst mime-entity-original-header-internal (entity)
-  (aref entity 13))
-(defsubst mime-entity-set-original-header-internal (entity header)
-  (aset entity 13 header))
-(defsubst mime-entity-parsed-header-internal (entity)
-  (aref entity 14))
-(defsubst mime-entity-set-parsed-header-internal (entity header)
-  (aset entity 14 header))
-
-
-;;; @ message structure
-;;;
-
-(defvar mime-message-structure nil
-  "Information about structure of message.
-Please use reference function `mime-entity-SLOT' to get value of SLOT.
-
-Following is a list of slots of the structure:
-
-buffer			buffer includes this entity (buffer).
-node-id			node-id (list of integers)
-header-start		minimum point of header in raw-buffer
-header-end		maximum point of header in raw-buffer
-body-start		minimum point of body in raw-buffer
-body-end		maximum point of body in raw-buffer
-content-type		content-type (content-type)
-content-disposition	content-disposition (content-disposition)
-encoding		Content-Transfer-Encoding (string or nil)
-children		entities included in this entity (list of entity)
-
-If an entity includes other entities in its body, such as multipart or
-message/rfc822, `mime-entity' structures of them are included in
-`children', so the `mime-entity' structure become a tree.")
-
-(make-variable-buffer-local 'mime-message-structure)
-
-
-;;; @ for mm-backend
-;;;
-
-(defvar mime-entity-implementation-alist nil)
-
-(defmacro mm-define-backend (type &optional parents)
-  (if parents
-      `(let ((rest ',(reverse parents)))
-	 (while rest
-	   (set-alist 'mime-entity-implementation-alist
-		      ',type
-		      (copy-alist
-		       (cdr (assq (car rest)
-				  mime-entity-implementation-alist))))
-	   (setq rest (cdr rest))
-	   ))))
-
-(defmacro mm-define-method (name args &rest body)
-  (let* ((specializer (car args))
-	 (class (nth 1 specializer))
-	 (self (car specializer)))
-    `(let ((imps (cdr (assq ',class mime-entity-implementation-alist)))
-	   (func (lambda ,(if self
-			      (cons self (cdr args))
-			    (cdr args))
-		   ,@body)))
-       (if imps
-	   (set-alist 'mime-entity-implementation-alist
-		      ',class (put-alist ',name func imps))
-	 (set-alist 'mime-entity-implementation-alist
-		    ',class
-		    (list (cons ',name func)))
-	 ))))
-
-(put 'mm-define-method 'lisp-indent-function 'defun)
-
-
-;;; @ end
-;;;
-
-(provide 'mime-def)
-
-;;; mime-def.el ends here
diff --git a/mime-en.sgml b/mime-en.sgml
deleted file mode 100644
index f9d5d4e..0000000
--- a/mime-en.sgml
+++ /dev/null
@@ -1,1267 +0,0 @@
-
-
-FLIM 1.9 Manual about MIME Features
-<author>MORIOKA Tomohiko <mail>morioka@jaist.ac.jp</mail>
-<date>1998/07/01
-
-<toc>
-</head>
-
-<body>
-
-<abstract>
-<p>
-This file documents MIME features of FLIM, a Internet message
-parsing/encoding library for GNU Emacs.
-</abstract>
-
-
-<h1> What is FLIM?
-<node> Introduction
-<p>
-FLIM is a library to provide basic features about message
-representation or encoding.
-
-
-<h1> How to use MIME features
-<node> How to use
-<p>
-Please eval following to use MIME features provided by FLIM:
-
-<lisp>
-(require 'mime)
-</lisp>
-
-
-<h1> Message and Entity
-<node> Entity
-<p>
-According to <dref>RFC 2045</dref>, `The term ``entity'', refers
-specifically to the MIME-defined header fields and contents of either
-a message or one of the parts in the body of a multipart entity.'  In
-this document, the term <concept>entity</concept> indicates all of
-header fields and body.
-<p>
-The definition of RFC 2045 indicates that a MIME message is a tree.
-An message is a tree, each node is an entity, like following figure.
-Namely MIME extends message to tree structure.
-<p>
-FLIM uses <concept>mime-entity</concept> structure to represent
-information of entity.  In this document, it is called simply
-`mime-entity'.
-<p>
-$BA0=R$N$h$&$K!"(Bmessage $BCf$N3F(B entity $B$OLZ$N@a$KEv$?$j$^$9$,!"$3$NLZ$K$O(B
-$B?<$5$HF1$8?<$5$NCf$N=gHV$K=>$C$FHV9f$,IU$1$k$3$H$,$G$-$^$9!#B($A!"(B
-<verb>
-
-                              $B(#(!(!(!($(B
-                              $B("(B  nil $B("(B
-                              $B(&(!(((!(%(B
-              $B(#(!(!(!(!(!(!(!(!(!(+(!(!(!(!(!(!(!(!(!($(B
-            $B(#(*($(B              $B(#(*($(B              $B(#(*($(B
-            $B("#0("(B              $B("#1("(B              $B("#2("(B
-            $B(&(((%(B              $B(&(((%(B              $B(&(((%(B
-              $B("(B        $B(#(!(!(!(!(+(!(!(!(!($(B        $B("(B
-          $B(#(!(*(!($(#(!(*(!($(#(!(*(!($(#(!(*(!($(#(!(*(!($(B
-          $B("(B $B#0(B.$B#0("("(B $B#1(B.$B#0("("(B $B#1(B.$B#1("("(B $B#1(B.$B#2("("(B $B#2(B.$B#0("(B
-          $B(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(B
-
-</verb>
-<p>
-<noindent>$B$N$h$&$K?<$5(B n $B$N@a$K$OD9$5(B n $B$N@0?tNs$N@aHV9f$,?6$l$^$9!#$3$l(B
-$B$r(B <concept>entity-number</concept> $B$H8F$S$^$9!#(Bentity-number $B$O(B S $B<0$H(B
-$B$7$F$O(B <code>(1 2 3)</code> $B$N$h$&$J@0?t$N%j%9%H$H$7$FI=8=$5$l$^$9!#(B
-<p>
-mime-entity $B$G$O!"$3$l$HF1MM$N(B <concept>node-id</concept> $B$rMQ$$$^$9!#(B
-node-id $B$O$A$g$&$I(B entity-number $B$r5U$K$7$?%j%9%H$G!"(Bentity-number
-1.2.3 $B$KBP1~$9$k(B node-id $B$O(B <code>(3 2 1)</code> $B$G$9!#(B
-<p>
-$BA0=R$N$h$&$K!"(BMIME message $B$O(B entity $B$rC10L$H$7$?LZ9=B$$K$J$C$F$$$k$N$G!"(B
-$B$3$N:,$G$"$k(B message $BA4BN$b(B mime-entity $B$GI=8=$9$k$3$H$,$G$-!"(Bbuffer
-local $BJQ?t(B <code>mime-message-structure</code> $B$K3JG<$9$k$3$H$K$7$^$9!#(B
-$B$=$7$F!"(Bentity-number $B$d(B node-id $B$rMQ$$$k$3$H$G(B 
-<code>mime-message-structure</code> $B$K$*$1$k(B entity $B$NAjBPE*$J0LCV4X78$r(B
-$B07$&$3$H$,$G$-$^$9!#(B
-
-
-<h2> Functions to create mime-entity
-<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. <cf node="mm-backend">
-<p>
-<var>location</var> is location of entity.  Specification of it is
-depended on representation-type.
-</defun>
-
-<defun name="mime-parse-buffer">
-	  <opts> buffer type
-<p>
-Parse <var>buffer</var> as message, and set the result to buffer local
-variable <code>mime-message-structure</code> of <var>buffer</var> as
-mime-entity.
-<p>
-If <var>buffer</var> is omitted, current buffer is used.
-<p>
-<var>type</var> is representation-type of created mime-entity. <cf
-node="mm-backend"> Default value is <var>buffer</var>.
-</defun>
-
-
-<h2> Features about message tree
-<node> Entity hierarchy
-<p>
-<defvar name="mime-message-structure">
-<p>
-Buffer local variable to store mime-entity structure of message.
-</defvar>
-
-<defun name="mime-entity-children">
-	  <args> entity
-<p>
-Return list of entities included in the <var>entity</var>.
-</defun>
-
-<defun name="mime-entity-parent">
-	  <args> entity <opts> message
-<p>
-Return parent entity of the <var>entity</var>.
-<p>
-If <var>message</var> is specified, it is regarded as root instead of
-<code>mime-message-structure</code>.
-</defun>
-
-<defun name="mime-root-entity-p">
-	  <args> entity
-<p>
-Return non-<code>nil</code> if <var>entity</var> is root entity
-(message).
-</defun>
-
-<defun name="mime-entity-node-id">
-	  <args> entity
-<p>
-Return node-id of <var>entity</var>.
-</defun>
-
-<defun name="mime-entity-number">
-	  <args> entity
-<p>
-Return entity-number of <var>entity</var>.
-</defun>
-
-<defun name="mime-find-entity-from-number">
-	    <args> entity-number <opts> message
-<p>
-Return entity from <var>entity-number</var> in <var>message</var>.
-<p>
-If <var>message</var> is not specified,
-<code>mime-message-structure</code> is used.
-</defun>
-
-<defun name="mime-find-entity-from-node-id">
-	    <args> entity-node-id <opts> message
-<p>
-Return entity from <var>entity-node-id</var> in <var>message</var>.
-<p>
-If <var>message</var> is not specified,
-<code>mime-message-structure</code> is used.
-</defun>
-
-
-<h2> Functions about attributes of mime-entity
-<node> Entity Attributes
-<p>
-<defun name="mime-entity-content-type">
-	    <args> entity
-<p>
-Return content-type of <var>entity</var>.
-<cf node="mime-content-type">
-</defun>
-
-<defun name="mime-entity-content-disposition">
-	    <args> entity
-<p>
-Return content-disposition of <var>entity</var>. <cf
-node="mime-content-disposition">
-</defun>
-
-<defun name="mime-entity-filename">
-	    <args> entity
-<p>
-Return file name of <var>entity</var>.
-</defun>
-
-<defun name="mime-entity-encoding">
-	    <args> entity <opts> default-encoding
-<p>
-Return content-transfer-encoding of <var>entity</var>.
-<cf node="Content-Transfer-Encoding">
-<p>
-If the <var>entity</var> does not have Content-Transfer-Encoding
-field, this function returns <var>default-encoding</var>.  If it is
-nil, <code>"7bit"</code> is used as default value.
-</defun>
-
-<defun name="mime-entity-cooked-p">
-	    <args> entity
-<p>
-Return non-nil if contents of <var>entity</var> has been already
-code-converted.
-</defun>
-
-
-<h2> Information of entity header
-<node> Entity-header
-<p>
-<defun name="mime-fetch-field">
-	    <args> field-name <opts> entity
-<p>
-Return field-body of <var>field-name</var> field in header of
-<var>entity</var>.
-<p>
-The results is network representation.
-<p>
-If <var>entity</var> is omitted, <code>mime-message-structure</code>
-is used as default value.
-<p>
-If <var>field-name</var> field is not found, this function returns
-<code>nil</code>.
-</defun>
-
-<defun name="mime-read-field">
-	    <args> field-name <opts> entity
-<p>
-Parse <var>field-name</var> field in header of <var>entity</var>, and
-return the result.
-<p>
-Format of result is depended on kind of field.  For non-structured
-field, this function returns string.  For structured field, it returns
-list corresponding with structure of the field.
-<p>
-Strings in the result will be converted to internal representation of
-Emacs.
-<p>
-If <var>entity</var> is omitted, <code>mime-message-structure</code>
-is used as default value.
-<p>
-If <var>field-name</var> field is not found, this function returns
-<code>nil</code>.
-</defun>
-
-<defun name="mime-insert-decoded-header">
-	    <args> entity <opts> invisible-fields visible-fields
-<p>
-Insert before point a decoded contents of header of <var>entity</var>.
-<p>
-<var>invisible-fields</var> is list of regexps to match field-name to
-hide.  <var>visible-fields</var> is list of regexps to match
-field-name to hide.
-<p>
-If a field-name is matched with some elements of
-<var>invisible-fields</var> and matched with none of
-<var>visible-fields</var>, this function don't insert the field.
-</defun>
-
-
-<h2> Contents of Entity
-<node> Entity-content
-<p>
-<defun name="mime-entity-content">
-	    <args> entity
-<p>
-Return content of <var>entity</var> as byte sequence.
-</defun>
-
-<defun name="mime-write-entity-content">
-	    <args> entity filename
-<p>
-Write content of <var>entity</var> into <var>filename</var>.
-</defun>
-
-<defun name="mime-write-entity">
-	    <args> entity filename
-<p>
-Write representation of <var>entity</var> into <var>filename</var>.
-</defun>
-
-<defun name="mime-write-entity-body">
-	    <args> entity filename
-<p>
-Write body of <var>entity</var> into <var>filename</var>.
-</defun>
-
-
-<h2> Entity as buffer representation
-<node> Entity buffer
-<p>
-<defun name="mime-entity-buffer">
-	    <args> entity
-<p>
-Return buffer, which contains <var>entity</var>.
-</defun>
-
-<defun name="mime-entity-point-min">
-	    <args> entity
-<p>
-Return the start point of <var>entity</var> in the buffer which
-contains <var>entity</var>.
-</defun>
-
-<defun name="mime-entity-point-max">
-	    <args> entity
-<p>
-Return the end point of <var>entity</var> in the buffer which
-contains <var>entity</var>.
-</defun>
-
-<defun name="mime-entity-header-start">
-	    <args> entity
-<p>
-Return the start point of header of <var>entity</var> in the buffer
-which contains <var>entity</var>.
-</defun>
-
-<defun name="mime-entity-header-end">
-	    <args> entity
-<p>
-Return the end point of header of <var>entity</var> in the buffer
-which contains <var>entity</var>.
-</defun>
-
-<defun name="mime-entity-body-start">
-	    <args> entity
-<p>
-Return the start point of body of <var>entity</var> in the buffer
-which contains <var>entity</var>.
-</defun>
-
-<defun name="mime-entity-body-end">
-	    <args> entity
-<p>
-Return the end point of body of <var>entity</var> in the buffer which
-contains <var>entity</var>.
-</defun>
-
-
-<h2> Entity representations and implementations
-<node> mm-backend
-<p>
-Entity $B$OCj>]2=$5$l$?%G!<%?I=8=$G!"<B:]$N%G!<%?I=8=$H$7$F$OMQES$K1~$8$F(B
-$B$5$^$6$^$J$b$N$,MxMQ$G$-$k$h$&$K@_7W$5$l$F$$$^$9!#(B
-<p>
-$B$3$3$G!"(Bentity $B$,$I$&$$$&<oN`$NI=8=$r9T$C$F$$$k$+$r<($9$N$,(B
-<concept>representation-type</concept> $B$G!"(Bentity $B$r@8@.$9$k;~$K$O$3$l$r(B
-$B;XDj$7$^$9!#(B<cf node="Entity Creation">
-<p>
-$BA0@a$^$G$K=R$Y$FMh$?(B entity $B$KBP$9$k=hM}$O!"(Bentity $B$KBP$7$F$=$N=hM}$r0M(B
-$BMj$9$k$3$H$K$h$C$F<B8=$5$l$F$$$^$9!#(BEntity $B$O<+J,$N(B 
-representation-type $B$rCN$C$F$*$j!"$=$N(B representation-type $B$K1~$8$F<B:](B
-$B$N=hM}$r9T$&4X?t$r8F$S=P$7$^$9!#$3$N$h$&$J4X?t$r(B <concept>entity $B=hM}(B
-method</concept> $B$H8F$S$^$9!#$^$?!"(Brepresentation-type $BKh$K$3$N$h$&$J4X(B
-$B?t$r$^$H$a$?$b$N$r(B <concept>mm-backend</concept> $B$H8F$S$^$9!#(B
-<p>
-mm-backend $B$O(B representation-type $B$NL>A0$N@hF,$K(B <code>mm</code> $B$H$$$&(B
-$B@\F,<-$rIU$1$?4X?tL>$+$i$J$k(B module $B$G!"$=$N(B module $BL>$OF1MM$K(B
-representation-type $B$NL>A0$N@hF,$K(B <code>mm</code> $B$rIU$1$?$b$N$K$J$C$F(B
-$B$$$^$9!#$3$N(B module $B$O(B representation-type $B$N(B entity $B$,:G=i$K@8@.$5$l$k(B
-$B;~$K<+F0E*$K(B require $B$5$l$^$9!#(B
-
-
-<h3> Message-passing for entity
-<node> Request for entity
-<p>
-<defun name="mime-entity-send">
-	      <args> entity message <rest> args
-<p>
-<var>entity</var> $B$K(B <var>message</var> $B$rAw$k!#(B
-<p>
-<var>args</var> $B$O(B <var>message</var> $B$N0z?t$G$"$k!#(B
-</defun>
-
-
-<h3> How to make mm-backend
-<node> mm-backend module
-<p>
-$B!J$9$_$^$;$s!#$=$N$&$A=q$-$^$9(B (^_^;$B!K(B
-<p>
-$B!J$H$j$"$($:!"(Bmm*.el $B$r;29M$K$7$F$/$@$5$$!K(B
-
-
-<h1> Information of Content-Type field
-<node> Content-Type
-<p>
-<concept>Content-Type field</concept> is a field to indicate kind of
-contents or data format, such as <dref>media-type</dref> and MIME
-charset.  It is defined in <dref>RFC 2045</dref>.
-
-<memo>
-<p>
-Historically, Content-Type field was proposed in RFC 1049.  In it,
-Content-Type did not distinguish type and subtype, and there are no
-mechanism to represent kind of character code like MIME charset.
-</memo>
-
-<p>
-FLIM provides parser for Content-Type field and structure
-<concept>mime-content-type</concept> to store information of
-Content-Type field.
-
-
-<h2> Format of Content-Type field
-<node> Content-Type field
-<p>
-Content-Type $BMs$N7A<0$O0J2<$N$h$&$KDj5A$5$l$F$$$^$9!'(B
-
-<quote>
-``Content-Type'' ``:'' <concept>type</concept> ``/''
-<concept>subtype</concept> *( ``;'' <concept>parameter</concept> )
-</quote>
-<p>
-$BNc$($P!"(B
-
-<quote>
-<verb>
-Content-Type: image/jpeg
-</verb>
-</quote>
-
-<noindent>
-$B$d(B
-
-<quote>
-<verb>
-Content-Type: text/plain; charset=iso-2022-jp
-</verb>
-</quote>
-
-<noindent>
-$B$J$I$N$h$&$KMQ$$$i$l$^$9!#(B
-<p>
-$B$3$3$G!"(B`type' $B$H(B `subtype' $B$O(B entity $B$N7A<0$r<($9$b$N$G!"N><T$rAm>N$7(B
-$B$F!"(B`media-type' $B$H8F$V$3$H$K$7$^$9!#>e5-$NNc$K$*$1$k(B `image/jpeg' $B$d(B
-`text/plain' $B$O(B media-type $B$N#1$D$G$9!#(B
-
-<memo>
-<p>
-Content-Type $BMs$N$J$$(B entity $B$O(B
-
-<quote>
-<verb>
-Content-Type: text/plain; charset=us-ascii
-</verb>
-</quote>
-
-<noindent>
-$B$H$7$F2r<a$5$l$k!#(B<cf node="us-ascii">
-</memo>
-
-
-<h2> mime-content-type structure
-<node> mime-content-type
-<p>
-<define type="Structure" name="mime-content-type">
-<p>
-Content-Type $BMs$N>pJs$r3JG<$9$k$?$a$N9=B$BN!#(B
-<p>
-$B$3$N9=B$BN$r;2>H$9$k$K$O(B <code>mime-content-type-$BMWAGL>(B</code> $B$H$$$&L>(B
-$BA0$N;2>H4X?t$rMQ$$$k!#(B
-<p>
-$B$3$N9=B$BN$NMWAG$O0J2<$NDL$j$G$"$k!'(B
-
-<vl>
-<dt>primary-type<dd>media-type $B$N<g7?(B (symbol).
-</dd>
-<dt>subtype<dd>media-type $B$NI{7?(B (symbol).
-</dd>
-<dt>parameters<dd>Content-Type $BMs$N(B parameter ($BO"A[(B list).
-</dd>
-</vl>
-</define>
-
-<defun name="make-mime-content-type">
-	  <args> type subtype
-	  <opts> parameters
-<p>content-type $B$N@8@.;R!#(B
-</defun>
-
-<defun name="mime-content-type-parameter">
-<args> content-type parameter
-<p>
-<var>content-type</var> $B$N(B <var>parameter</var> $B$NCM$rJV$9!#(B
-</defun>
-
-
-<h2> Parser
-<node> Content-Type parser
-<p>
-<defun name="mime-parse-Content-Type">
-	  <args> string
-<p>
-<var>string</var> $B$r(B content-type $B$H$7$F2r@O$7$?7k2L$rJV$9!#(B
-</defun>
-
-<defun name="mime-read-Content-Type">
-<p>
-$B8=:_$N(B buffer $B$N(B Content-Type $BMs$rFI$_<h$j!"2r@O$7$?7k2L$rJV$9!#(B
-<p>
-Content-Type $BMs$,B8:_$7$J$$>l9g$O(B nil $B$rJV$9!#(B
-</defun>
-
-
-<h2> Utility functions
-<node> Content-Type utility
-<p>
-<defun name="mime-type/subtype-string">
-	  <args> type <opts> subtype
-<p>
-Return type/subtype string from <var>type</var> and
-<var>subtype</var>.
-</defun>
-
-
-<h1> Information of Content-Disposition field
-<node> Content-Disposition
-<p>
-<concept>Content-Disposition $BMs(B</concept> $B$O(B entity $B$NI=<($d(B file $BL>$J$I(B
-$B$NB0@-$K$J$I$K4X$9$k>pJs$r5-=R$9$k$?$a$N$b$N$G$9!#(B
-
-<rfc number="2183" type="Standards Track"
-	      author="S. Dorner, K. Moore and R. Troost"
-	      title="Communicating Presentation Information in
-	      Internet Messages: The Content-Disposition Header"
-	      date="August 1997">
-<p>
-FLIM $B$O(B Content-Disposition $BMs$r9=J82r@O$9$k4X?t$H(B Content-Disposition 
-$BMs$N2r@O7k2L$r3JG<$9$k9=B$BN(B 
-<concept>mime-content-disposition</concept> $B$rDs6!$7$^$9!#(B
-
-
-<h2> mime-content-disposition structure
-<node> mime-content-disposition
-<p>
-<define type="Structure" name="mime-content-disposition">
-<p>
-Content-Disposition $BMs$N2r@O7k2L$r<}$a$k$?$a$N9=B$BN!#(B
-<p>
-$B$3$N9=B$BN$r;2>H$9$k$K$O(B <code>mime-content-disposition-$BMWAGL>(B</code> $B$H(B
-$B$$$&L>A0$N;2>H4X?t$rMQ$$$k!#(B
-<p>
-$B$3$N9=B$BN$NMWAG$O0J2<$NDL$j$G$"$k!'(B
-
-<vl>
-<dt>disposition-type<dd>disposition-type (symbol).
-</dd>
-<dt>parameters<dd>Content-Disposition $BMs$N(B parameter ($BO"A[(B list).
-</dd>
-</vl>
-</define>
-
-<defun name="mime-content-disposition-parameter">
-<args> content-disposition parameter
-<p>
-<var>content-disposition</var> $B$N(B <var>parameter</var> $B$NCM$rJV$9!#(B
-</defun>
-
-<defun name="mime-content-disposition-filename">
-<args> content-disposition
-<p>
-<var>content-disposition</var> $B$N(B filename $B$NCM$rJV$9!#(B
-</defun>
-
-
-<h2> Parser for Content-Disposition field
-<node> Content-Disposition parser
-<p>
-<defun name="mime-parse-Content-Disposition">
-	    <args> string
-<p>
-<var>string</var> $B$r(B content-disposition $B$H$7$F2r@O$7$?7k2L$rJV$9!#(B
-</defun>
-
-<defun name="mime-read-Content-Disposition">
-<p>
-$B8=:_$N(B buffer $B$N(B Content-Disposition $BMs$rFI$_<h$j!"2r@O$7$?7k2L$rJV$9!#(B
-<p>
-Content-Disposition $BMs$,B8:_$7$J$$>l9g$O(B nil $B$rJV$9!#(B
-</defun>
-
-
-<h1> Encoding Method
-<node> Content-Transfer-Encoding
-<p>
-<concept>Content-Transfer-Encoding $BMs(B</concept> $B$O(B entity $B$NId9f2=K!$r5-(B
-$B=R$9$k$?$a$N$b$N$G$9!#(B
-<p>
-FLIM $B$G$O(B Content-Transfer-Encoding $BMs$r9=J82r@O$9$k4X?t$rDs6!$7$^$9!#$3(B
-$B$l$i$N4X?t$O(B Content-Transfer-Encoding $BMs$N>pJs$OJ8;zNs$GI=8=$7$^$9!#(B
-<p>
-$B$^$?!"(BContent-Transfer-Encoding $B$K4p$E$$$FId9f2=!&I|9f2=$r9T$&4X?t$bDs(B
-$B6!$5$l$^$9!#(B
-
-
-<h2> Parser
-<node> Content-Transfer-Encoding parser
-<p>
-<defun name="mime-parse-Content-Transfer-Encoding">
-	  <args> string
-<p>
-<var>string</var> $B$r(B content-transfer-encoding $B$H$7$F2r@O$7$?7k2L$rJV$9!#(B
-</defun>
-
-<defun name="mime-read-Content-Transfer-Encoding">
-	  <opts>default-encoding
-<p>
-$B8=:_$N(B buffer $B$N(B Content-Transfer-Encoding $BMs$rFI$_<h$j!"2r@O$7$?7k2L$r(B
-$BJV$9!#(B
-<p>
-Content-Transfer-Encoding $BMs$,B8:_$7$J$$>l9g$O(B
-<var>default-encoding</var> $B$rJV$9!#(B
-</defun>
-
-
-<h2> Region encoding/decoding
-<node> Region encoder/decoder
-<p>
-<defun name="mime-encode-region">
-	    <args> start end encoding
-<p>
-Encode region <var>start</var> to <var>end</var> of current buffer
-using <var>encoding</var>.
-</defun>
-
-<defun name="mime-decode-region">
-	    <args> start end encoding
-<p>
-Decode region <var>start</var> to <var>end</var> of current buffer
-using <var>encoding</var>.
-</defun>
-
-<defvar name="mime-encoding-method-alist">
-<p>
-Alist of encoding vs. corresponding method to encode region.
-<p>
-Each element looks like <code>(STRING . FUNCTION)</code> or
-<code>(STRING . nil)</code>.  <var>string</var> is
-content-transfer-encoding.  <code>function</code> is region encoder
-and <code>nil</code> means not to encode.
-</defvar>
-
-<defvar name="mime-decoding-method-alist">
-<p>
-Alist of encoding vs. corresponding method to decode region.
-<p>
-Each element looks like <code>(STRING . FUNCTION)</code> or
-<code>(STRING . nil)</code>.  <var>string</var> is
-content-transfer-encoding.  <code>function</code> is region decoder
-and <code>nil</code> means not to decode.
-</defvar>
-
-
-<h2> String encoding/decoding
-<node> String encoder/decoder
-<p>
-<defun name="mime-decode-string">
-	      <args> string encoding
-<p>
-<var>string</var> $B$r(B <var>encoding</var> $B$H$7$FI|9f$7$?7k2L$rJV$7$^$9!#(B
-</defun>
-
-<defvar name="mime-string-decoding-method-alist">
-<p>
-Alist of encoding vs. corresponding method to decode string.
-<p>
-Each element looks like <code>(STRING . FUNCTION)</code>.
-STRING is content-transfer-encoding.
-FUNCTION is string decoder.
-</defvar>
-
-
-<h2> File encoding/decoding
-<node> File encoder/decoder
-<p>
-<defun name="mime-insert-encoded-file">
-	    <args> filename encoding
-<p>
-Insert file <var>FILENAME</var> encoded by <var>ENCODING</var> format.
-</defun>
-
-<defun name="mime-write-decoded-region">
-	      <args> start end filename encoding
-<p>
-Decode and write current region encoded by <var>encoding</var> into
-<var>filename</var>.
-<p>
-<var>start</var> and <var>end</var> are buffer positions.
-</defun>
-
-<defvar name="mime-file-encoding-method-alist">
-<p>
-Alist of encoding vs. corresponding method to insert encoded file.
-<p>
-Each element looks like <code>(STRING . FUNCTION)</code>.  STRING is
-content-transfer-encoding.  FUNCTION is function to insert encoded
-file.
-</defvar>
-
-<defvar name="mime-file-decoding-method-alist">
-<p>
-Alist of encoding vs. corresponding method to write decoded region to
-file.
-<p>
-Each element looks like <code>(STRING . FUNCTION)</code>.  STRING is
-content-transfer-encoding.  FUNCTION is function to write decoded
-region to file.
-</defvar>
-
-
-<h1> Network representation of header
-<node> encoded-word
-<p>
-encoded-word $B$O(B header $B$GHs(B <dref>ASCII</dref> $BJ8;z$rI=8=$9$k$?$a$N7A(B
-$B<0$G!"(B<concept>RFC 2047</concept> $B$GDj5A$5$l$F$$$^$9!#(B
-<p>
-<rfc number="2047" type="Standards Track" author="K. Moore"
-	      title="MIME (Multipurpose Internet Mail Extensions) Part
-	      Three: Message Header Extensions for Non-ASCII Text"
-	      date="November 1996" obsolete="1521,1522,1590">
-<p>
-$B$^$?!"9T57$N0-$$$3$H$@$H8@$($^$9$,!"(Bencoded-word $B$rMQ$$$:$KHs(B 
-<dref>ASCII</dref> $BJ8;z$r(B header $B$KF~$l$?5-;v$bB8:_$7$^$9!#(B
-<p>
-FLIM $B$O$3$l$i$rId9f2=!&I|9f2=$9$k5!G=$rDs6!$7$^$9!#(B
-
-
-<h2> Header encoding/decoding
-<node> Header encoder/decoder
-<p>
-<defun name="eword-encode-header">
-	      <opts> code-conversion separator
-<p>
-Decode MIME encoded-words in header fields.
-<p>
-If <var>code-conversion</var> is <code>nil</code>, it decodes only
-encoded-words.  If it is mime-charset, it decodes non-ASCII bit
-patterns as the mime-charset.  Otherwise it decodes non-ASCII bit
-patterns as the default-mime-charset.
-<p>
-If <var>separator</var> is not nil, it is used as header separator.
-</defun>
-
-<defun name="eword-encode-header">
-	      <opts> code-conversion
-<p>
-Encode header fields to network representation, such as MIME
-encoded-word.
-<p>
-It refer variable <code>eword-field-encoding-method-alist</code>.
-</defun>
-
-
-<h1> Various Customization
-<node> custom
-<p>
-<define type="group" name="mime">
-<p>
-MIME $B4XO"5!G=$K4X$9$k(B group.
-<p>
-<code>mail</code> $B$H(B <code>news</code> $B$KB0$9$k!#(B
-</define>
-
-<defvar name="default-mime-charset">
-<p>
-$BE,@Z$J(B <dref>MIME charset</dref> $B$,8+$D$+$i$J$+$C$?>l9g$KMQ$$$i$l$k(B
-MIME charset.
-<p>
-$BK\Mh$O(B APEL $B$NJQ?t$G$"$k!#(B
-</defvar>
-
-<defvar name="mime-temp-directory">
-<p>
-MIME $B5!G=$K4X$9$k<BAu$,0l;~E*$K;HMQ$9$k(B file $B$r:n@.$9$k(B directory.
-<p>
-$B4D6-JQ?t(B <code>MIME_TMP_DIR</code>, <code>TM_TMP_DIR</code>,
-<code>TMPDIR</code>, <code>TMP</code> $B$b$7$/$O(B <code>TEMP</code> $B$,@_Dj(B
-$B$5$l$F$$$?>l9g!"$=$l$r=i4|CM$H$7$FMQ$$$k!#2?$b@_Dj$5$l$F$$$J$$>l9g!"(B
-<code>"/tmp/"</code> $B$rMQ$$$k!#(B
-</defvar>
-
-
-<h1> Appendix
-<node> Appendix
-
-<h2> Glossary
-<node> Glossary
-
-<h3> 7bit
-<node> 7bit
-<p>
-<concept>7bit</concept> means any integer between 0 .. 127.
-<p>
-Any data represented by 7bit integers is called <concept>7bit
-data</concept>.
-<p>
-Textual string consisted of Control characters between 0 .. 31 and
-127, and space represented by 32, and graphic characters between 33
-.. 236 are called <concept>7bit (textual) string</concept>.
-<p>
-Conventional Internet <a node="MTA">MTA</a> can translate 7bit data,
-so it is no need to translate by <a
-node="Quoted-Printable">Quoted-Printable</a> or <a
-node="Base64">Base64</a> for 7bit data.
-<p>
-However if there are too long lines, it can not translate by 7bit MTA
-even if it is 7bit data.  <dref>RFC 821</dref> and <dref>RFC
-2045</dref> require lines in 7bit data must be less than 998 bytes.
-So if a ``7bit data'' has a line more than 999 bytes, it is regarded
-as <dref>binary</dref>.  For example, Postscript file should be
-encoded by Quoted-Printable.
-
-
-<h3> 8bit
-<node> 8bit
-<p>
-<concept>8bit</concept> means any integer between 0 .. 255.
-<p>
-Any data represented by 8bit integers is called <concept>8bit
-data</concept>.
-<p>
-Textual string consisted of Control characters between 0 .. 31, 127,
-and 128 .. 159, and space represented by 32, and graphic characters
-between 33 .. 236 and 160 .. 255 are called <concept>8bit (textual)
-string</concept>.
-<p>
-For example, <dref>iso-8859-1</dref> or <dref>euc-kr</dref> are
-coded-character-set represented by 8bit textual string.
-<p>
-Traditional Internet <a node="MTA">MTA</a> can translate only
-<dref>7bit</dref> data, so if a 8bit data will be translated such MTA,
-it must be encoded by <dref>Quoted-Printable</dref> or
-<dref>Base64</dref>.
-<p>
-However 8bit MTA are increasing today.
-<p>
-However if there are too long lines, it can not translate by 8bit MTA
-even if it is 8bit data.  <dref>RFC 2045</dref> require lines in 8bit
-data must be less than 998 bytes.  So if a ``8bit data'' has a line
-more than 999 bytes, it is regarded as <dref>binary</dref>, so it must
-be encoded by Base64 or Quoted-Printable.
-
-
-<h3> ASCII
-<node> ASCII
-<p>
-<concept>ASCII</concept> is a 94-character set contains primary latin
-characters (A-Z, a-z), numbers and some characters.  It is a standard
-of the United States of America.  It is a variant of <a node="ISO
-646">ISO 646</a>.
-
-<standard abbrev="ASCII" title-en="Coded Character Set -- 7-Bit
-	      American Standard Code for Information Interchange"
-	      number="ANSI X3.4" year="1986">
-
-
-<h3> Base64
-<node> Base64
-<p>
-<concept>Base64</concept> is a transfer encoding method of
-<dref>MIME</dref> defined in <dref>RFC 2045</dref>.
-<p>
-The encoding process represents 24-bit groups of input bits as output
-strings of 4 encoded characters.  Encoded characters represent integer
-0 .. 63 or <concept>pad</concept>.  Base64 data must be 4 * n bytes,
-so pad is used to adjust size.
-<p>
-These 65 characters are subset of all versions of ISO 646, including
-US-ASCII, and all versions of EBCDIC.  So it is safe even if it is
-translated by non-Internet gateways.
-
-
-<h3> binary
-<node> binary
-<p>
-Any byte stream is called <concept>binary</concept>.
-<p>
-It does not require structureof lines.  It differs from from <a
-node="8bit">8bit</a>.
-<p>
-In addition, if line structured data contain too long line (more than
-998 bytes), it is regarded as binary.
-
-
-<h3> Coded character set, Character code
-<node> coded character set
-<p>
-A set of unambiguous rules that establishes a character set and the
-one-to-one relationship between the characters of the set and their
-bit combinations.
-
-
-<h3> media-type
-<node> media-type
-<p>
-<concept>media-type</concept> specifies the nature of the data in the
-body of <dref>MIME</dref> <dref>entity</dref>.  It consists of
-<concept>type</concept> and <concept>subtype</concept>.  It is defined
-in <dref>RFC 2046</dref>.
-<p>
-Currently there are following standard primary-types:
-
-<ul>
-<li><concept>text</concept>
-</li>
-<li><concept>image</concept>
-</li>
-<li><concept>audio</concept>
-</li>
-<li><concept>video</concept>
-</li>
-<li><concept>application</concept>
-</li>
-<li><a node="multipart"><concept>multipart</concept></a>
-</li>
-<li><concept>message</concept>
-</ul>
-
-<p>
-And there are various subtypes, for example, application/octet-stream,
-audio/basic, image/jpeg, <dref>multipart/mixed</dref>,
-<dref>text/plain</dref>, video/mpeg...
-
-<p>
-You can refer registered media types at <a
-href="ftp://ftp.isi.edu/in-notes/iana/assignments/media-types">MEDIA
-TYPES</a>.
-<p>
-In addition, you can use private type or subtype using
-<concept>x-token</concept>, which as the prefix `x-'.  However you can
-not use them in public.
-<p>
-<cf node="Content-Type field">
-
-
-<h3> message
-<node> message
-<p>
-In this document, it means mail defined in <dref>RFC 822</dref> and
-news message defined in <dref>RFC 1036</dref>.
-
-
-<h3> MIME
-<node> MIME
-<p>
-MIME stands for <concept>Multipurpose Internet Mail
-Extensions</concept>, it is an extension for <dref>RFC 822</dref>.
-<p>
-According to RFC 2045:
-<p>
-STD 11, RFC 822, defines a message representation protocol specifying
-considerable detail about US-ASCII message headers, and leaves the
-message content, or message body, as flat US-ASCII text.  This set of
-documents, collectively called the Multipurpose Internet Mail
-Extensions, or MIME, redefines the format of messages to allow for
-
-<ol>
-<li>textual message bodies in character sets other than US-ASCII,
-</li>
-<li>an extensible set of different formats for non-textual message
-bodies,
-</li>
-<li>multi-part message bodies, and
-</li>
-<li>textual header information in character sets other than US-ASCII.
-</ol>
-
-<p>
-It is defined in <dref>RFC 2045</dref>, <dref>RFC 2046</dref>, <a
-node="encoded-word">RFC 2047</a>, <dref>RFC 2048</dref> and <dref>RFC
-2049</dref>.
-
-
-<h3> MIME charset
-<node> MIME charset
-<p>
-<a node="coded character set">Coded character set</a> used in
-<dref>Content-Type field</dref> or charset parameter of <a
-node="encoded-word">encoded-word</a>.
-<p>
-It is defined in <dref>RFC 2045</dref>.
-<p>
-<dref>iso-2022-jp</dref> or <dref>euc-kr</dref> are kinds of it.  (In
-this document, MIME charsets are written by small letters to
-distinguish <dref>graphic character set</dref>.  For example, ISO
-8859-1 is a graphic character set, and iso-8859-1 is a MIME charset)
-
-
-<h3> MTA
-<node> MTA
-<p>
-<concept>Message Transfer Agent</concept>.  It means mail transfer
-programs (ex. sendmail) and news servers.
-<p>
-<cf node="MUA">
-
-
-<h3> MUA
-<node> MUA
-<p>
-<concept>Message User Agent</concept>.  It means mail readers and news
-readers.
-<p>
-<cf node="MTA">
-
-
-<h3> Quoted-Printable
-<node> Quoted-Printable
-<p>
-<concept>Quoted-Printable</concept> is a transfer encoding method of
-<dref>MIME</dref> defined in <dref>RFC 2045</dref>.
-<p>
-If the data being encoded are mostly US-ASCII text, the encoded form
-of the data remains largely recognizable by humans.
-<p>
-<cf node="Base64">
-
-
-<h3> RFC 822
-<node> RFC 822
-<p>
-A RFC defines format of Internet mail message, mainly <concept>message
-header</concept>.
-
-<memo>
-<p>
-news message is based on RFC 822, so <concept>Internet
-message</concept> may be more suitable than <concept>Internet
-mail</concept> .
-</memo>
-
-<rfc number="822" type="STD 11" author="D. Crocker" title="Standard
-	      for the Format of ARPA Internet Text Messages"
-	      date="August 1982">
-
-
-<h3> RFC 1036
-<node> RFC 1036
-<p>
-A RFC defines format of USENET message.  It is a subset of <dref>RFC
-822</dref>.  It is not Internet standard, but a lot of netnews
-excepting Usenet uses it.
-
-<rfc name="USENET" number="1036" author="M. Horton and R. Adams"
-	      title="Standard for Interchange of USENET Messages"
-	      date="December 1987" obsolete="850">
-
-
-<h3> RFC 2045
-<node> RFC 2045
-<p>
-<rfc number="2045" type="Standards Track" author="N. Freed and
-	      N. Borenstein" title="Multipurpose Internet Mail
-	      Extensions (MIME) Part One: Format of Internet Message
-	      Bodies" date="November 1996" obsolete="1521, 1522,
-	      1590">
-
-
-<h3> RFC 2046
-<node> RFC 2046
-<p>
-<rfc number="2046" type="Standards Track" author="N. Freed and
-	      N. Borenstein" title="Multipurpose Internet Mail
-                 Extensions (MIME) Part Two: Media Types"
-                 date="November 1996" obsolete="1521, 1522, 1590">
-
-
-<h3> RFC 2048
-<node> RFC 2048
-<p>
-<rfc number="2048" type="Standards Track" author="N. Freed, J. Klensin
-	      and J. Postel" title="Multipurpose Internet Mail
-	      Extensions (MIME) Part Four: Registration Procedures"
-	      date="November 1996" obsolete="1521, 1522, 1590">
-
-
-<h3> RFC 2049
-<node> RFC 2049
-<p>
-<rfc number="2049" type="Standards Track" author="N. Freed and
-	      N. Borenstein" title="Multipurpose Internet Mail
-	      Extensions (MIME) Part Five: Conformance Criteria and
-	      Examples" date="November 1996" obsolete="1521, 1522,
-	      1590">
-
-
-<h3> plain text
-<node> plain text
-<p>
-A textual data represented by only <dref>coded character set</dref>.
-It does not have information about font or typesetting.
-<cf node="text/plain">
-
-
-<h3> us-ascii
-<node> us-ascii
-<p>
-A <a node="MIME charset">MIME charset</a> for primary Latin script
-mainly written by English or other languages.
-<p>
-It is a 7bit <dref>coded character set</dref> based on <dref>ISO
-2022</dref>, it contains only
-<dref>ASCII</dref> and <dref>code extension</dref> is not allowed.
-<p>
-It is standard coded character set of Internet mail.  If MIME charset
-is not specified, <concept>us-ascii</concept> is used as default.
-<p>
-In addition, <concept>ASCII</concept> of <dref>RFC 822</dref> should
-be interpreted as us-ascii.
-
-
-<h2> How to report bugs
-<node> Bug report
-<p>
-If you write bug-reports and/or suggestions for improvement, please
-send them to the tm Mailing List:
-
-<ul>
-<li> Japanese <mail>bug-tm-ja@chamonix.jaist.ac.jp</mail>
-<li> English <mail>bug-tm-en@chamonix.jaist.ac.jp</mail>
-</ul>
-
-<p>
-Notice that, we do not welcome bug reports about too old version.
-Bugs in old version might be fixed.  So please try latest version at
-first.
-<p>
-You should write <concept>good bug report</concept>.  If you write
-only ``FLIM does not work'', we can not find such situations.  At
-least, you should write name, type, variants and version of OS, emacs,
-APEL, FLIM, SEMI and MUA, and setting.  In addition, if error occurs,
-to send backtrace is very important. <cf file="emacs" node="Bugs">
-<p>
-Bug may not appear only your environment, but also in a lot of
-environment (otherwise it might not bug).  Therefor if you send mail
-to author directly, we must write a lot of mails.  So please send mail
-to address for tm bugs instead of author.
-
-<p>
-Via the tm ML, you can report FLIM bugs, obtain the latest release of
-FLIM, and discuss future enhancements to FLIM.  To join the tm ML,
-send empty e-mail to:
-
-<ul>
-<li> Japanese <mail>tm-ja-help@chamonix.jaist.ac.jp</mail>
-<li> English  <mail>tm-en-help@chamonix.jaist.ac.jp</mail>
-</ul>
-
-
-<h2> CVS based development
-<node> CVS
-<p>
-FLIM $B$N(B file $B$O(B CVS $B$r;H$C$F4IM}$5$l$F$$$^$9!#$3$N$?$a!"0J2<$NJ}K!$G:G(B
-$B?7$N(B FLIM $B$rF~<j$9$k$3$H$,$G$-$^$9!'(B
-
-<verb>
-(0) cvs login
-
-    % cvs -d :pserver:anonymous@chamonix.jaist.ac.jp:/hare/cvs/root \
-	login
-
-    CVS password: [CR] # NULL string
-
-(1) checkout
-
-    % cvs -d :pserver:anonymous@chamonix.jaist.ac.jp:/hare/cvs/root \
-	checkout [-r TAG] flim
-</verb>
-
-<p>
-CVS $B$rMQ$$$?3+H/$K;22C$7$?$$J}$O(B
-
-<ul>
-<li> <mail>cvs@chamonix.jaist.ac.jp</mail>
-</ul>
-
-<noindent>
-$B$^$G!"(Baccount $BL>$H(B UNIX $B$N(B passwd $B$HF1$87A<0$N(B crypt $B2=$5$l$?(B password
-$B$r1h$($F8fO"Mm$/$@$5$$!#(B
-
-
-<h2> History of FLIM
-<node> History
-<p>
-FLIM $B$N(B code $B$N:G8E$NItJ,$O(B $B1]JB(B $B;LCR(B $B;a$,=q$$$?(B <file>mime.el</file>
-$B$K5/8;$7$^$9!#$3$N>.$5$J(B program $B$O(B Nemacs $B$GF0:n$9$k(B iso-2022-jp $B$N(B 
-B-encoding $B@lMQ$N(B encoded-word $B$NI|9f2=%W%m%0%i%`$G$7$?!#(B
-<p>
-$B$=$N8e!"<i2,(B $BCNI'(B $B$O(B <file>mime.el</file> $B$r85$K(B
-<file>tiny-mime.el</file> $B$H$$$&%W%m%0%i%`$r=q$-$^$9!#$3$l$O!"(BNemacs 
-$B$H(B Mule $B$GF0:n$9$k(B encoded-word $B$NId9f2=!&I|9f2=%W%m%0%i%`$G$7$?!#(B
-<file>tiny-mime.el</file> $B$O(B B-encoding $B$@$1$G$J$/(B Q-encoding $B$b(B
-support $B$7!"$^$?!"(BMULE $B$G07$&$3$H$,$G$-$k$5$^$6$^$J(B <dref>MIME
-charset</dref> $B$rF1;~$K;H$&$3$H$,$G$-$^$7$?!#$3$N;~!"(BNemacs $B$H(B Mule $B$N(B
-$BAPJ}$r(B support $B$9$k$?$a$KMQ$$$i$l$?%F%/%K%C%/$O8e$K(B emu package $B$K$^$H(B
-$B$a$i$l$^$9!#(B
-<p>
-$B$3$N:"!"<i2,(B $BCNI'(B $B$O(B <file>tiny-mime.el</file> $B$r$5$^$6$^$J(B MUA $B$G;H$&(B
-$B$?$a$N@_Dj=8$bG[I[$7$F$$$^$7$?$,!"$=$l$i$O8e$K(B
-<file>tiny-mime.el</file> $B$H$H$b$K#1$D$N(B package $B$K$^$H$a$i$l!"(Btm $B$H$$(B
-$B$&L>A0$GG[I[$5$l$^$9!#(B
-<p>
-$B<i2,(B $BCNI'(B $B$O$d$,$F!"(BMIME message $B$r1\Mw$9$k$?$a$N%W%m%0%i%`$G$"$k(B
-<file>tm-body.el</file> $B$r=q$-$^$9!#$3$l$O!"$9$0$K(B
-<file>tm-view.el</file> $B$H$$$&L>A0$KJQ$o$j$^$7$?$,!"$d$,$F!"$3$l$,(B
-<file>tiny-mime.el</file> $B$KBe$o$C$F!"(Btm $B$NCf3K$H$J$j$^$9!#(B
-<p>
-<file>tm-view.el</file> $B$OEvA3!"(BContent-Transfer-Encoding $B$r07$&I,MW$,(B
-$B$"$j$^$9!#$3$NL\E*$N$?$a$K!"(BMEL $B$,@0Hw$5$l$O$8$a$^$7$?!#(BBase64 $B$K4X$7(B
-$B$F$O(B <file>tiny-mime.el</file> $B$N(B code $B$,0\$5$l!"$^$?!"?7$?$K(B
-Quoted-Printable $B$N(B code $B$,DI2C$5$l$^$7$?!#$3$l$i$,(B
-<file>mel-b.el</file> $B$H(B <file>mel-q.el</file> $B$K$J$j$^$7$?!#(B
-<p>
-$B$^$?!"8e$K!"<i2,(B $BCNI'(B $B$K$h$C$F(B uuencode $BMQ$N(B <file>mel-u.el</file> $B$,(B
-$BDI2C$5$l!"$=$N8e$K!">.NS(B $B=$J?(B $B;a$K$h$C$F(B x-gzip64 $BMQ$N(B
-<file>mel-g.el</file> $B$,DI2C$5$l$^$7$?!#(B
-<p>
-tm $B$G$O8e$K!"<i2,(B $BCNI'(B $B$K$h$C$F(B <file>tiny-mime.el</file> $B$N:F<BAu$,9T(B
-$B$o$l!"$3$N2aDx$G!"(BSTD 11 $B$N(B parser $B$,=q$+$l$^$7$?!#$3$l$O!"8=:_$N(B 
-<file>std11.el</file> $B$KEv$?$j$^$9!#$^$?!"$3$N2aDx$G(B 
-<file>tiny-mime.el</file> $B$OI|9f2=$r9T$&(B <file>tm-ew-d.el</file> $B$HId(B
-$B9f2=$r9T$&(B <file>tm-ew-e.el</file> $B$KJ,$1$i$l$^$7$?!#$3$NN><T$,8=:_$N(B 
-<file>eword-decode.el</file> $B$H(B <file>eword-encode.el</file> $B$N@hAD$K(B
-$BEv$?$j$^$9!#(B
-<p>
-$B8e$K!"<i2,(B $BCNI'(B $B$i$K$h$C$F(B tm $B$NA4LL=q$-49$(:n6H$,9T$o$l!"$3$N2aDx$G!"(B
-tm $B$O(B APEL, MEL, SEMI, EMH, RMAIL-MIME, Gnus-MIME $B$J$I$KJ,$1$i$l$^$7$?!#(B
-$B$3$N$&$A$N(B MEL $B$,(B FLIM $B$ND>@\$N@hAD$KEv$?$j$^$9!#(B
-<p>
-$B8e$K!"(BAPEL $B$+$i(B <file>std11.el</file> $B$,0\$5$l!"$^$?!"(B
-<file>mailcap.el</file>, <file>eword-decode.el</file> $B$*$h$S(B 
-<file>eword-encode.el</file> $B$,(B SEMI $B$+$i0\$5$l!"(Bpackage $B$NL>A0$,(B FLIM
-$B$H$J$j$^$9!#(B
-<p>
-$B$3$ND>A0$+$iEDCf(B $BE/(B $B;a$,$h$j(B RFC $B$KCi<B$J<BAu$r=q$-;O$a!"$3$l$O!"8=:_!"(B
-FLIM $B$N;^$G$"$k(B ``FLIM-FLAM'' $B$H$J$C$F$$$^$9!#(B
-
-
-<h1> Concept Index
-<node> Concept Index
-
-<cindex>
-
-
-<h1> Function Index
-<node> Function Index
-
-<findex>
-
-
-<h1> Variable Index
-<node> Variable Index
-
-<vindex>
-
-</body>
diff --git a/mime-en.texi b/mime-en.texi
deleted file mode 100644
index a95ec3d..0000000
--- a/mime-en.texi
+++ /dev/null
@@ -1,1474 +0,0 @@
-\input texinfo.tex
-@setfilename mime-en.info
-@settitle{FLIM 1.9 Manual about MIME Features}
-@titlepage
-@title FLIM 1.9 Manual about MIME Features
-@author MORIOKA Tomohiko <morioka@@jaist.ac.jp>
-@subtitle 1998/07/01
-@end titlepage
-@node Top, Introduction, (dir), (dir)
-@top FLIM 1.9 Manual about MIME Features
-
-@ifinfo
-
-This file documents MIME features of FLIM, a Internet message
-parsing/encoding library for GNU Emacs.
-@end ifinfo
-
-@menu
-* Introduction::                What is FLIM?
-* How to use::                  How to use MIME features
-* Entity::                      Message and Entity
-* Content-Type::                Information of Content-Type field
-* Content-Disposition::         Information of Content-Disposition field
-* Content-Transfer-Encoding::   Encoding Method
-* encoded-word::                Network representation of header
-* custom::                      Various Customization
-* Appendix::                    
-* Concept Index::               
-* Function Index::              
-* Variable Index::              
-@end menu
-
-@node Introduction, How to use, Top, Top
-@chapter What is FLIM?
-
-FLIM is a library to provide basic features about message
-representation or encoding.
-
-
-@node How to use, Entity, Introduction, Top
-@chapter How to use MIME features
-
-Please eval following to use MIME features provided by FLIM:
-
-@lisp
-(require 'mime)
-@end lisp
-
-
-
-@node Entity, Content-Type, How to use, Top
-@chapter Message and Entity
-@cindex node-id
-@cindex entity-number
-@cindex mime-entity
-@cindex entity
-
-According to RFC 2045 (@ref{RFC 2045}), `The term ``entity'', refers
-specifically to the MIME-defined header fields and contents of either a
-message or one of the parts in the body of a multipart entity.'  In this
-document, the term @strong{entity} indicates all of header fields and
-body.@refill
-
-The definition of RFC 2045 indicates that a MIME message is a tree.  An
-message is a tree, each node is an entity, like following figure.
-Namely MIME extends message to tree structure.@refill
-
-FLIM uses @strong{mime-entity} structure to represent information of
-entity.  In this document, it is called simply `mime-entity'.@refill
-
-$BA0=R$N$h$&$K!"(Bmessage $BCf$N3F(B entity $B$OLZ$N@a$KEv$?$j$^$9$,!"$3$NLZ$K$O(B
-$B?<$5$HF1$8?<$5$NCf$N=gHV$K=>$C$FHV9f$,IU$1$k$3$H$,$G$-$^$9!#B($A!"(B
-@example
-
-                              $B(#(!(!(!($(B
-                              $B("(B  nil $B("(B
-                              $B(&(!(((!(%(B
-              $B(#(!(!(!(!(!(!(!(!(!(+(!(!(!(!(!(!(!(!(!($(B
-            $B(#(*($(B              $B(#(*($(B              $B(#(*($(B
-            $B("#0("(B              $B("#1("(B              $B("#2("(B
-            $B(&(((%(B              $B(&(((%(B              $B(&(((%(B
-              $B("(B        $B(#(!(!(!(!(+(!(!(!(!($(B        $B("(B
-          $B(#(!(*(!($(#(!(*(!($(#(!(*(!($(#(!(*(!($(#(!(*(!($(B
-          $B("(B $B#0(B.$B#0("("(B $B#1(B.$B#0("("(B $B#1(B.$B#1("("(B $B#1(B.$B#2("("(B $B#2(B.$B#0("(B
-          $B(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(B
-@end example
-
-@noindent
-$B$N$h$&$K?<$5(B n $B$N@a$K$OD9$5(B n $B$N@0?tNs$N@aHV9f$,?6$l$^$9!#$3$l(B
-$B$r(B @strong{entity-number} $B$H8F$S$^$9!#(Bentity-number $B$O(B S $B<0$H(B
-$B$7$F$O(B @code{(1 2 3)} $B$N$h$&$J@0?t$N%j%9%H$H$7$FI=8=$5$l$^$9!#(B
-
-mime-entity $B$G$O!"$3$l$HF1MM$N(B @strong{node-id} $B$rMQ$$$^$9!#(Bnode-id $B$O$A$g(B
-$B$&$I(B entity-number $B$r5U$K$7$?%j%9%H$G!"(Bentity-number 1.2.3 $B$KBP1~$9$k(B 
-node-id $B$O(B @code{(3 2 1)} $B$G$9!#(B@refill
-
-$BA0=R$N$h$&$K!"(BMIME message $B$O(B entity $B$rC10L$H$7$?LZ9=B$$K$J$C$F$$$k$N$G!"(B
-$B$3$N:,$G$"$k(B message $BA4BN$b(B mime-entity $B$GI=8=$9$k$3$H$,$G$-!"(Bbuffer
-local $BJQ?t(B @code{mime-message-structure} $B$K3JG<$9$k$3$H$K$7$^$9!#(B
-$B$=$7$F!"(Bentity-number $B$d(B node-id $B$rMQ$$$k$3$H$G(B 
-@code{mime-message-structure} $B$K$*$1$k(B entity $B$NAjBPE*$J0LCV4X78$r(B
-$B07$&$3$H$,$G$-$^$9!#(B
-
-
-@menu
-* Entity creation::             Functions to create mime-entity
-* Entity hierarchy::            Features about message tree
-* Entity Attributes::           Functions about attributes of mime-entity
-* Entity-header::               Information of entity header
-* Entity-content::              Contents of Entity
-* Entity buffer::               Entity as buffer representation
-* mm-backend::                  Entity representations and implementations
-@end menu
-
-@node Entity creation, Entity hierarchy, Entity, Entity
-@section Functions to create mime-entity
-
-@defun mime-open-entity &optional  type location
-
-Open an entity and return it.@refill
-
-@var{type} is representation-type. (cf. @ref{mm-backend}) @refill
-
-@var{location} is location of entity.  Specification of it is depended
-on representation-type.
-@end defun
-
-
-@defun mime-parse-buffer &optional  buffer type
-
-Parse @var{buffer} as message, and set the result to buffer local
-variable @code{mime-message-structure} of @var{buffer} as
-mime-entity.@refill
-
-If @var{buffer} is omitted, current buffer is used.@refill
-
-@var{type} is representation-type of created
-mime-entity. (cf. @ref{mm-backend}) Default value is @var{buffer}.
-@end defun
-
-
-
-@node Entity hierarchy, Entity Attributes, Entity creation, Entity
-@section Features about message tree
-
-@defvar mime-message-structure
-
-Buffer local variable to store mime-entity structure of message.
-@end defvar
-
-
-@defun mime-entity-children entity
-
-Return list of entities included in the @var{entity}.
-@end defun
-
-
-@defun mime-entity-parent entity  &optional  message
-
-Return parent entity of the @var{entity}.@refill
-
-If @var{message} is specified, it is regarded as root instead of
-@code{mime-message-structure}.
-@end defun
-
-
-@defun mime-root-entity-p entity
-
-Return non-@code{nil} if @var{entity} is root entity (message).
-@end defun
-
-
-@defun mime-entity-node-id entity
-
-Return node-id of @var{entity}.
-@end defun
-
-
-@defun mime-entity-number entity
-
-Return entity-number of @var{entity}.
-@end defun
-
-
-@defun mime-find-entity-from-number entity-number  &optional  message
-
-Return entity from @var{entity-number} in @var{message}.@refill
-
-If @var{message} is not specified, @code{mime-message-structure} is
-used.
-@end defun
-
-
-@defun mime-find-entity-from-node-id entity-node-id  &optional  message
-
-Return entity from @var{entity-node-id} in @var{message}.@refill
-
-If @var{message} is not specified, @code{mime-message-structure} is
-used.
-@end defun
-
-
-
-@node Entity Attributes, Entity-header, Entity hierarchy, Entity
-@section Functions about attributes of mime-entity
-
-@defun mime-entity-content-type entity
-
-Return content-type of @var{entity}.  (cf. @ref{mime-content-type})
-@end defun
-
-
-@defun mime-entity-content-disposition entity
-
-Return content-disposition of
-@var{entity}. (cf. @ref{mime-content-disposition})
-@end defun
-
-
-@defun mime-entity-filename entity
-
-Return file name of @var{entity}.
-@end defun
-
-
-@defun mime-entity-encoding entity  &optional  default-encoding
-
-Return content-transfer-encoding of @var{entity}.
-(cf. @ref{Content-Transfer-Encoding}) @refill
-
-If the @var{entity} does not have Content-Transfer-Encoding field, this
-function returns @var{default-encoding}.  If it is nil, @code{"7bit"} is
-used as default value.
-@end defun
-
-
-@defun mime-entity-cooked-p entity
-
-Return non-nil if contents of @var{entity} has been already
-code-converted.
-@end defun
-
-
-
-@node Entity-header, Entity-content, Entity Attributes, Entity
-@section Information of entity header
-
-@defun mime-fetch-field field-name  &optional  entity
-
-Return field-body of @var{field-name} field in header of
-@var{entity}.@refill
-
-The results is network representation.@refill
-
-If @var{entity} is omitted, @code{mime-message-structure} is used as
-default value.@refill
-
-If @var{field-name} field is not found, this function returns
-@code{nil}.
-@end defun
-
-
-@defun mime-read-field field-name  &optional  entity
-
-Parse @var{field-name} field in header of @var{entity}, and return the
-result.@refill
-
-Format of result is depended on kind of field.  For non-structured
-field, this function returns string.  For structured field, it returns
-list corresponding with structure of the field.@refill
-
-Strings in the result will be converted to internal representation of
-Emacs.@refill
-
-If @var{entity} is omitted, @code{mime-message-structure} is used as
-default value.@refill
-
-If @var{field-name} field is not found, this function returns
-@code{nil}.
-@end defun
-
-
-@defun mime-insert-decoded-header entity  &optional  invisible-fields visible-fields
-
-Insert before point a decoded contents of header of @var{entity}.@refill
-
-@var{invisible-fields} is list of regexps to match field-name to hide.
-@var{visible-fields} is list of regexps to match field-name to
-hide.@refill
-
-If a field-name is matched with some elements of @var{invisible-fields}
-and matched with none of @var{visible-fields}, this function don't
-insert the field.
-@end defun
-
-
-
-@node Entity-content, Entity buffer, Entity-header, Entity
-@section Contents of Entity
-
-@defun mime-entity-content entity
-
-Return content of @var{entity} as byte sequence.
-@end defun
-
-
-@defun mime-write-entity-content entity filename
-
-Write content of @var{entity} into @var{filename}.
-@end defun
-
-
-@defun mime-write-entity entity filename
-
-Write representation of @var{entity} into @var{filename}.
-@end defun
-
-
-@defun mime-write-entity-body entity filename
-
-Write body of @var{entity} into @var{filename}.
-@end defun
-
-
-
-@node Entity buffer, mm-backend, Entity-content, Entity
-@section Entity as buffer representation
-
-@defun mime-entity-buffer entity
-
-Return buffer, which contains @var{entity}.
-@end defun
-
-
-@defun mime-entity-point-min entity
-
-Return the start point of @var{entity} in the buffer which contains
-@var{entity}.
-@end defun
-
-
-@defun mime-entity-point-max entity
-
-Return the end point of @var{entity} in the buffer which contains
-@var{entity}.
-@end defun
-
-
-@defun mime-entity-header-start entity
-
-Return the start point of header of @var{entity} in the buffer which
-contains @var{entity}.
-@end defun
-
-
-@defun mime-entity-header-end entity
-
-Return the end point of header of @var{entity} in the buffer which
-contains @var{entity}.
-@end defun
-
-
-@defun mime-entity-body-start entity
-
-Return the start point of body of @var{entity} in the buffer which
-contains @var{entity}.
-@end defun
-
-
-@defun mime-entity-body-end entity
-
-Return the end point of body of @var{entity} in the buffer which
-contains @var{entity}.
-@end defun
-
-
-
-@node mm-backend,  , Entity buffer, Entity
-@section Entity representations and implementations
-@cindex mm-backend
-@cindex entity $B=hM}(B method
-@cindex representation-type
-
-Entity $B$OCj>]2=$5$l$?%G!<%?I=8=$G!"<B:]$N%G!<%?I=8=$H$7$F$OMQES$K1~$8$F(B
-$B$5$^$6$^$J$b$N$,MxMQ$G$-$k$h$&$K@_7W$5$l$F$$$^$9!#(B@refill
-
-$B$3$3$G!"(Bentity $B$,$I$&$$$&<oN`$NI=8=$r9T$C$F$$$k$+$r<($9$N$,(B
-@strong{representation-type} $B$G!"(Bentity $B$r@8@.$9$k;~$K$O$3$l$r;XDj$7$^$9!#(B
-(cf. @ref{Entity Creation}) @refill
-
-$BA0@a$^$G$K=R$Y$FMh$?(B entity $B$KBP$9$k=hM}$O!"(Bentity $B$KBP$7$F$=$N=hM}$r0M(B
-$BMj$9$k$3$H$K$h$C$F<B8=$5$l$F$$$^$9!#(BEntity $B$O<+J,$N(B representation-type 
-$B$rCN$C$F$*$j!"$=$N(B representation-type $B$K1~$8$F<B:]$N=hM}$r9T$&4X?t$r8F(B
-$B$S=P$7$^$9!#$3$N$h$&$J4X?t$r(B @strong{entity $B=hM}(Bmethod} $B$H8F$S$^$9!#$^$?!"(B
-representation-type $BKh$K$3$N$h$&$J4X?t$r$^$H$a$?$b$N$r(B 
-@strong{mm-backend} $B$H8F$S$^$9!#(B@refill
-
-mm-backend $B$O(B representation-type $B$NL>A0$N@hF,$K(B @code{mm} $B$H$$$&(B
-$B@\F,<-$rIU$1$?4X?tL>$+$i$J$k(B module $B$G!"$=$N(B module $BL>$OF1MM$K(B
-representation-type $B$NL>A0$N@hF,$K(B @code{mm} $B$rIU$1$?$b$N$K$J$C$F(B
-$B$$$^$9!#$3$N(B module $B$O(B representation-type $B$N(B entity $B$,:G=i$K@8@.$5$l$k(B
-$B;~$K<+F0E*$K(B require $B$5$l$^$9!#(B
-
-
-@menu
-* Request for entity::          Message-passing for entity
-* mm-backend module::           How to make mm-backend
-@end menu
-
-@node Request for entity, mm-backend module, mm-backend, mm-backend
-@subsection Message-passing for entity
-
-@defun mime-entity-send entity message  &rest  args
-
-@var{entity} $B$K(B @var{message} $B$rAw$k!#(B@refill
-
-@var{args} $B$O(B @var{message} $B$N0z?t$G$"$k!#(B
-@end defun
-
-
-
-@node mm-backend module,  , Request for entity, mm-backend
-@subsection How to make mm-backend
-
-$B!J$9$_$^$;$s!#$=$N$&$A=q$-$^$9(B (^_^;$B!K(B@refill
-
-$B!J$H$j$"$($:!"(Bmm*.el $B$r;29M$K$7$F$/$@$5$$!K(B
-
-
-@node Content-Type, Content-Disposition, Entity, Top
-@chapter Information of Content-Type field
-@cindex mime-content-type
-@cindex Content-Type field
-
-@strong{Content-Type field} is a field to indicate kind of contents or
-data format, such as media-type (@ref{media-type}) and MIME charset.  It
-is defined in RFC 2045 (@ref{RFC 2045}).
-
-@noindent
-@strong{[Memo]}
-@quotation
-
-Historically, Content-Type field was proposed in RFC 1049.  In it,
-Content-Type did not distinguish type and subtype, and there are no
-mechanism to represent kind of character code like MIME charset.
-@end quotation
-
-
-FLIM provides parser for Content-Type field and structure
-@strong{mime-content-type} to store information of
-Content-Type field.
-
-
-@menu
-* Content-Type field::          Format of Content-Type field
-* mime-content-type::           mime-content-type structure
-* Content-Type parser::         Parser
-* Content-Type utility::        Utility functions
-@end menu
-
-@node Content-Type field, mime-content-type, Content-Type, Content-Type
-@section Format of Content-Type field
-@cindex parameter
-@cindex subtype
-@cindex type
-
-Content-Type $BMs$N7A<0$O0J2<$N$h$&$KDj5A$5$l$F$$$^$9!'(B
-
-@quotation
-``Content-Type'' ``:'' @strong{type} ``/''
-@strong{subtype} *( ``;'' @strong{parameter} )
-@end quotation
-
-$BNc$($P!"(B
-
-@quotation
-@example
-Content-Type: image/jpeg
-@end example
-@end quotation
-
-@noindent
-$B$d(B
-
-@quotation
-@example
-Content-Type: text/plain; charset=iso-2022-jp
-@end example
-@end quotation
-
-@noindent
-$B$J$I$N$h$&$KMQ$$$i$l$^$9!#(B
-
-$B$3$3$G!"(B`type' $B$H(B `subtype' $B$O(B entity $B$N7A<0$r<($9$b$N$G!"N><T$rAm>N$7(B
-$B$F!"(B`media-type' $B$H8F$V$3$H$K$7$^$9!#>e5-$NNc$K$*$1$k(B `image/jpeg' $B$d(B
-`text/plain' $B$O(B media-type $B$N#1$D$G$9!#(B
-
-@noindent
-@strong{[Memo]}
-@quotation
-
-Content-Type $BMs$N$J$$(B entity $B$O(B
-
-@quotation
-@example
-Content-Type: text/plain; charset=us-ascii
-@end example
-@end quotation
-
-@noindent
-$B$H$7$F2r<a$5$l$k!#(B(cf. @ref{us-ascii})
-@end quotation
-
-
-
-@node mime-content-type, Content-Type parser, Content-Type field, Content-Type
-@section mime-content-type structure
-
-@deffn{Structure} mime-content-type
-
-Content-Type $BMs$N>pJs$r3JG<$9$k$?$a$N9=B$BN!#(B@refill
-
-$B$3$N9=B$BN$r;2>H$9$k$K$O(B @code{mime-content-type-$BMWAGL>(B} $B$H$$$&L>A0$N;2(B
-$B>H4X?t$rMQ$$$k!#(B@refill
-
-$B$3$N9=B$BN$NMWAG$O0J2<$NDL$j$G$"$k!'(B
-
-@table @var
-@item primary-type
-media-type $B$N<g7?(B (symbol).
-
-@item subtype
-media-type $B$NI{7?(B (symbol).
-
-@item parameters
-Content-Type $BMs$N(B parameter ($BO"A[(B list).
-
-@end table
-@end deffn
-
-
-@defun make-mime-content-type type subtype
-	   &optional  parameters
-
-content-type $B$N@8@.;R!#(B
-@end defun
-
-
-@defun mime-content-type-parameter content-type parameter
-
-@var{content-type} $B$N(B @var{parameter} $B$NCM$rJV$9!#(B
-@end defun
-
-
-
-@node Content-Type parser, Content-Type utility, mime-content-type, Content-Type
-@section Parser
-
-@defun mime-parse-Content-Type string
-
-@var{string} $B$r(B content-type $B$H$7$F2r@O$7$?7k2L$rJV$9!#(B
-@end defun
-
-
-@defun mime-read-Content-Type
-
-$B8=:_$N(B buffer $B$N(B Content-Type $BMs$rFI$_<h$j!"2r@O$7$?7k2L$rJV$9!#(B@refill
-
-Content-Type $BMs$,B8:_$7$J$$>l9g$O(B nil $B$rJV$9!#(B
-@end defun
-
-
-
-@node Content-Type utility,  , Content-Type parser, Content-Type
-@section Utility functions
-
-@defun mime-type/subtype-string type  &optional  subtype
-
-Return type/subtype string from @var{type} and @var{subtype}.
-@end defun
-
-
-
-@node Content-Disposition, Content-Transfer-Encoding, Content-Type, Top
-@chapter Information of Content-Disposition field
-@cindex mime-content-disposition
-@cindex RFC 2183
-@cindex Standards Track
-@cindex Content-Disposition $BMs(B
-
-@strong{Content-Disposition $BMs(B} $B$O(B entity $B$NI=<($d(B file $BL>$J$I(B
-$B$NB0@-$K$J$I$K4X$9$k>pJs$r5-=R$9$k$?$a$N$b$N$G$9!#(B
-
-
-@noindent
-[RFC 2183]
-@quotation
-S. Dorner, K. Moore and R. Troost, ``Communicating Presentation
-Information in Internet Messages: The Content-Disposition Header'',
-August 1997, Standards Track.
-@end quotation
-
-FLIM $B$O(B Content-Disposition $BMs$r9=J82r@O$9$k4X?t$H(B Content-Disposition 
-$BMs$N2r@O7k2L$r3JG<$9$k9=B$BN(B 
-@strong{mime-content-disposition} $B$rDs6!$7$^$9!#(B
-
-
-@menu
-* mime-content-disposition::    mime-content-disposition structure
-* Content-Disposition parser::  Parser for Content-Disposition field
-@end menu
-
-@node mime-content-disposition, Content-Disposition parser, Content-Disposition, Content-Disposition
-@section mime-content-disposition structure
-
-@deffn{Structure} mime-content-disposition
-
-Content-Disposition $BMs$N2r@O7k2L$r<}$a$k$?$a$N9=B$BN!#(B@refill
-
-$B$3$N9=B$BN$r;2>H$9$k$K$O(B @code{mime-content-disposition-$BMWAGL>(B} $B$H$$$&L>(B
-$BA0$N;2>H4X?t$rMQ$$$k!#(B@refill
-
-$B$3$N9=B$BN$NMWAG$O0J2<$NDL$j$G$"$k!'(B
-
-@table @var
-@item disposition-type
-disposition-type (symbol).
-
-@item parameters
-Content-Disposition $BMs$N(B parameter ($BO"A[(B list).
-
-@end table
-@end deffn
-
-
-@defun mime-content-disposition-parameter content-disposition parameter
-
-@var{content-disposition} $B$N(B @var{parameter} $B$NCM$rJV$9!#(B
-@end defun
-
-
-@defun mime-content-disposition-filename content-disposition
-
-@var{content-disposition} $B$N(B filename $B$NCM$rJV$9!#(B
-@end defun
-
-
-
-@node Content-Disposition parser,  , mime-content-disposition, Content-Disposition
-@section Parser for Content-Disposition field
-
-@defun mime-parse-Content-Disposition string
-
-@var{string} $B$r(B content-disposition $B$H$7$F2r@O$7$?7k2L$rJV$9!#(B
-@end defun
-
-
-@defun mime-read-Content-Disposition
-
-$B8=:_$N(B buffer $B$N(B Content-Disposition $BMs$rFI$_<h$j!"2r@O$7$?7k2L$rJV$9!#(B
-@refill
-
-Content-Disposition $BMs$,B8:_$7$J$$>l9g$O(B nil $B$rJV$9!#(B
-@end defun
-
-
-
-@node Content-Transfer-Encoding, encoded-word, Content-Disposition, Top
-@chapter Encoding Method
-@cindex Content-Transfer-Encoding $BMs(B
-
-@strong{Content-Transfer-Encoding $BMs(B} $B$O(B entity $B$NId9f2=K!$r5-=R$9$k$?$a(B
-$B$N$b$N$G$9!#(B@refill
-
-FLIM $B$G$O(B Content-Transfer-Encoding $BMs$r9=J82r@O$9$k4X?t$rDs6!$7$^$9!#$3(B
-$B$l$i$N4X?t$O(B Content-Transfer-Encoding $BMs$N>pJs$OJ8;zNs$GI=8=$7$^$9!#(B
-@refill
-
-$B$^$?!"(BContent-Transfer-Encoding $B$K4p$E$$$FId9f2=!&I|9f2=$r9T$&4X?t$bDs(B
-$B6!$5$l$^$9!#(B
-
-
-@menu
-* Content-Transfer-Encoding parser::  Parser
-* Region encoder/decoder::      Region encoding/decoding
-* String encoder/decoder::      String encoding/decoding
-* File encoder/decoder::        File encoding/decoding
-@end menu
-
-@node Content-Transfer-Encoding parser, Region encoder/decoder, Content-Transfer-Encoding, Content-Transfer-Encoding
-@section Parser
-
-@defun mime-parse-Content-Transfer-Encoding string
-
-@var{string} $B$r(B content-transfer-encoding $B$H$7$F2r@O$7$?7k2L$rJV$9!#(B
-@end defun
-
-
-@defun mime-read-Content-Transfer-Encoding &optional default-encoding
-
-$B8=:_$N(B buffer $B$N(B Content-Transfer-Encoding $BMs$rFI$_<h$j!"2r@O$7$?7k2L$r(B
-$BJV$9!#(B@refill
-
-Content-Transfer-Encoding $BMs$,B8:_$7$J$$>l9g$O(B@var{default-encoding} $B$r(B
-$BJV$9!#(B
-@end defun
-
-
-
-@node Region encoder/decoder, String encoder/decoder, Content-Transfer-Encoding parser, Content-Transfer-Encoding
-@section Region encoding/decoding
-
-@defun mime-encode-region start end encoding
-
-Encode region @var{start} to @var{end} of current buffer using
-@var{encoding}.
-@end defun
-
-
-@defun mime-decode-region start end encoding
-
-Decode region @var{start} to @var{end} of current buffer using
-@var{encoding}.
-@end defun
-
-
-@defvar mime-encoding-method-alist
-
-Alist of encoding vs. corresponding method to encode region.@refill
-
-Each element looks like @code{(STRING . FUNCTION)} or @code{(STRING
-. nil)}.  @var{string} is content-transfer-encoding.  @code{function} is
-region encoder and @code{nil} means not to encode.
-@end defvar
-
-
-@defvar mime-decoding-method-alist
-
-Alist of encoding vs. corresponding method to decode region.@refill
-
-Each element looks like @code{(STRING . FUNCTION)} or @code{(STRING
-. nil)}.  @var{string} is content-transfer-encoding.  @code{function} is
-region decoder and @code{nil} means not to decode.
-@end defvar
-
-
-
-@node String encoder/decoder, File encoder/decoder, Region encoder/decoder, Content-Transfer-Encoding
-@section String encoding/decoding
-
-@defun mime-decode-string string encoding
-
-@var{string} $B$r(B @var{encoding} $B$H$7$FI|9f$7$?7k2L$rJV$7$^$9!#(B
-@end defun
-
-
-@defvar mime-string-decoding-method-alist
-
-Alist of encoding vs. corresponding method to decode string.@refill
-
-Each element looks like @code{(STRING . FUNCTION)}.  STRING is
-content-transfer-encoding.  FUNCTION is string decoder.
-@end defvar
-
-
-
-@node File encoder/decoder,  , String encoder/decoder, Content-Transfer-Encoding
-@section File encoding/decoding
-
-@defun mime-insert-encoded-file filename encoding
-
-Insert file @var{FILENAME} encoded by @var{ENCODING} format.
-@end defun
-
-
-@defun mime-write-decoded-region start end filename encoding
-
-Decode and write current region encoded by @var{encoding} into
-@var{filename}.@refill
-
-@var{start} and @var{end} are buffer positions.
-@end defun
-
-
-@defvar mime-file-encoding-method-alist
-
-Alist of encoding vs. corresponding method to insert encoded
-file.@refill
-
-Each element looks like @code{(STRING . FUNCTION)}.  STRING is
-content-transfer-encoding.  FUNCTION is function to insert encoded file.
-@end defvar
-
-
-@defvar mime-file-decoding-method-alist
-
-Alist of encoding vs. corresponding method to write decoded region to
-file.@refill
-
-Each element looks like @code{(STRING . FUNCTION)}.  STRING is
-content-transfer-encoding.  FUNCTION is function to write decoded region
-to file.
-@end defvar
-
-
-
-@node encoded-word, custom, Content-Transfer-Encoding, Top
-@chapter Network representation of header
-@cindex RFC 2047
-@cindex Standards Track
-@cindex RFC 2047
-
-encoded-word $B$O(B header $B$GHs(B ASCII (@ref{ASCII}) $BJ8;z$rI=8=$9$k$?$a$N7A<0(B
-$B$G!"(B@strong{RFC 2047} $B$GDj5A$5$l$F$$$^$9!#(B@refill
-
-
-@noindent
-[RFC 2047]
-@quotation
-K. Moore, ``MIME (Multipurpose Internet Mail Extensions) Part Three:
-Message Header Extensions for Non-ASCII Text'', November 1996, Standards
-Track (obsolete RFC 1521,1522,1590).
-@end quotation
-
-$B$^$?!"9T57$N0-$$$3$H$@$H8@$($^$9$,!"(Bencoded-word $B$rMQ$$$:$KHs(B ASCII
-(@ref{ASCII}) $BJ8;z$r(B header $B$KF~$l$?5-;v$bB8:_$7$^$9!#(B@refill
-
-FLIM $B$O$3$l$i$rId9f2=!&I|9f2=$9$k5!G=$rDs6!$7$^$9!#(B
-
-
-@menu
-* Header encoder/decoder::      Header encoding/decoding
-@end menu
-
-@node Header encoder/decoder,  , encoded-word, encoded-word
-@section Header encoding/decoding
-
-@defun eword-encode-header &optional  code-conversion separator
-
-Decode MIME encoded-words in header fields.@refill
-
-If @var{code-conversion} is @code{nil}, it decodes only encoded-words.
-If it is mime-charset, it decodes non-ASCII bit patterns as the
-mime-charset.  Otherwise it decodes non-ASCII bit patterns as the
-default-mime-charset.@refill
-
-If @var{separator} is not nil, it is used as header separator.
-@end defun
-
-
-@defun eword-encode-header &optional  code-conversion
-
-Encode header fields to network representation, such as MIME
-encoded-word.@refill
-
-It refer variable @code{eword-field-encoding-method-alist}.
-@end defun
-
-
-
-@node custom, Appendix, encoded-word, Top
-@chapter Various Customization
-
-@deffn{group} mime
-
-MIME $B4XO"5!G=$K4X$9$k(B group.@refill
-
-@code{mail} $B$H(B @code{news} $B$KB0$9$k!#(B
-@end deffn
-
-
-@defvar default-mime-charset
-
-$BE,@Z$J(B MIME charset (@ref{MIME charset}) $B$,8+$D$+$i$J$+$C$?>l9g$KMQ$$$i(B
-$B$l$k(BMIME charset.@refill
-
-$BK\Mh$O(B APEL $B$NJQ?t$G$"$k!#(B
-@end defvar
-
-
-@defvar mime-temp-directory
-
-MIME $B5!G=$K4X$9$k<BAu$,0l;~E*$K;HMQ$9$k(B file $B$r:n@.$9$k(B 
-directory.@refill
-
-$B4D6-JQ?t(B @code{MIME_TMP_DIR}, @code{TM_TMP_DIR}, @code{TMPDIR},
-@code{TMP} $B$b$7$/$O(B @code{TEMP} $B$,@_Dj$5$l$F$$$?>l9g!"$=$l$r=i4|CM$H$7$F(B
-$BMQ$$$k!#2?$b@_Dj$5$l$F$$$J$$>l9g!"(B@code{"/tmp/"} $B$rMQ$$$k!#(B
-@end defvar
-
-
-
-@node Appendix, Concept Index, custom, Top
-@chapter Appendix
-
-
-@menu
-* Glossary::                    
-* Bug report::                  How to report bugs
-* CVS::                         CVS based development
-* History::                     History of FLIM
-@end menu
-
-@node Glossary, Bug report, Appendix, Appendix
-@section Glossary
-
-
-@menu
-* 7bit::                        
-* 8bit::                        
-* ASCII::                       
-* Base64::                      
-* binary::                      
-* coded character set::         Coded character set, Character code
-* media-type::                  
-* message::                     
-* MIME::                        
-* MIME charset::                
-* MTA::                         
-* MUA::                         
-* Quoted-Printable::            
-* RFC 822::                     
-* RFC 1036::                    
-* RFC 2045::                    
-* RFC 2046::                    
-* RFC 2048::                    
-* RFC 2049::                    
-* plain text::                  
-* us-ascii::                    
-@end menu
-
-@node 7bit, 8bit, Glossary, Glossary
-@subsection 7bit
-@cindex 7bit (textual) string
-@cindex 7bit data
-@cindex 7bit
-
-@strong{7bit} means any integer between 0 .. 127.@refill
-
-Any data represented by 7bit integers is called @strong{7bit data}.@refill
-
-Textual string consisted of Control characters between 0 .. 31 and 127,
-and space represented by 32, and graphic characters between 33 .. 236
-are called @strong{7bit (textual) string}.@refill
-
-Conventional Internet MTA (@ref{MTA}) can translate 7bit data, so it is
-no need to translate by Quoted-Printable (@ref{Quoted-Printable}) or
-Base64 (@ref{Base64}) for 7bit data.@refill
-
-However if there are too long lines, it can not translate by 7bit MTA
-even if it is 7bit data.  RFC 821 (@ref{RFC 821}) and RFC 2045 (@ref{RFC 2045}) require lines in 7bit data must be less than 998 bytes.  So if a
-``7bit data'' has a line more than 999 bytes, it is regarded as binary
-(@ref{binary}).  For example, Postscript file should be encoded by
-Quoted-Printable.
-
-
-@node 8bit, ASCII, 7bit, Glossary
-@subsection 8bit
-@cindex 8bit (textual) string
-@cindex 8bit data
-@cindex 8bit
-
-@strong{8bit} means any integer between 0 .. 255.@refill
-
-Any data represented by 8bit integers is called @strong{8bit data}.@refill
-
-Textual string consisted of Control characters between 0 .. 31, 127, and
-128 .. 159, and space represented by 32, and graphic characters between
-33 .. 236 and 160 .. 255 are called @strong{8bit (textual) string}.@refill
-
-For example, iso-8859-1 (@ref{iso-8859-1}) or euc-kr (@ref{euc-kr}) are
-coded-character-set represented by 8bit textual string.@refill
-
-Traditional Internet MTA (@ref{MTA}) can translate only 7bit
-(@ref{7bit}) data, so if a 8bit data will be translated such MTA, it
-must be encoded by Quoted-Printable (@ref{Quoted-Printable}) or Base64
-(@ref{Base64}).@refill
-
-However 8bit MTA are increasing today.@refill
-
-However if there are too long lines, it can not translate by 8bit MTA
-even if it is 8bit data.  RFC 2045 (@ref{RFC 2045}) require lines in
-8bit data must be less than 998 bytes.  So if a ``8bit data'' has a line
-more than 999 bytes, it is regarded as binary (@ref{binary}), so it must
-be encoded by Base64 or Quoted-Printable.
-
-
-@node ASCII, Base64, 8bit, Glossary
-@subsection ASCII
-@cindex ANSI X3.4:1986
-@cindex ASCII
-@cindex ASCII
-
-@strong{ASCII} is a 94-character set contains primary latin characters
-(A-Z, a-z), numbers and some characters.  It is a standard of the United
-States of America.  It is a variant of ISO 646 (@ref{ISO 646}).
-
-
-@noindent
-[ASCII]
-@quotation
-``Coded Character Set -- 7-Bit American Standard Code for Information
-Interchange'', ANSI X3.4:1986.
-@end quotation
-
-
-
-@node Base64, binary, ASCII, Glossary
-@subsection Base64
-@cindex pad
-@cindex Base64
-
-@strong{Base64} is a transfer encoding method of MIME (@ref{MIME})
-defined in RFC 2045 (@ref{RFC 2045}).@refill
-
-The encoding process represents 24-bit groups of input bits as output
-strings of 4 encoded characters.  Encoded characters represent integer 0
-.. 63 or @strong{pad}.  Base64 data must be 4 * n bytes, so pad is used
-to adjust size.@refill
-
-These 65 characters are subset of all versions of ISO 646, including
-US-ASCII, and all versions of EBCDIC.  So it is safe even if it is
-translated by non-Internet gateways.
-
-
-@node binary, coded character set, Base64, Glossary
-@subsection binary
-@cindex binary
-
-Any byte stream is called @strong{binary}.@refill
-
-It does not require structureof lines.  It differs from from 8bit
-(@ref{8bit}).@refill
-
-In addition, if line structured data contain too long line (more than
-998 bytes), it is regarded as binary.
-
-
-@node coded character set, media-type, binary, Glossary
-@subsection Coded character set, Character code
-
-A set of unambiguous rules that establishes a character set and the
-one-to-one relationship between the characters of the set and their
-bit combinations.
-
-
-@node media-type, message, coded character set, Glossary
-@subsection media-type
-@cindex x-token
-@cindex message
-@cindex multipart
-@cindex application
-@cindex video
-@cindex audio
-@cindex image
-@cindex text
-@cindex subtype
-@cindex type
-@cindex media-type
-
-@strong{media-type} specifies the nature of the data in the body of MIME
-(@ref{MIME}) entity (@ref{entity}).  It consists of @strong{type} and
-@strong{subtype}.  It is defined in RFC 2046 (@ref{RFC 2046}).@refill
-
-Currently there are following standard primary-types:
-
-@itemize @bullet
-@item
-@strong{text}
-@item
-@strong{image}
-@item
-@strong{audio}
-@item
-@strong{video}
-@item
-@strong{application}
-@item
-@strong{multipart} (@ref{multipart})
-@item
-@strong{message}
-@end itemize
-
-
-And there are various subtypes, for example, application/octet-stream,
-audio/basic, image/jpeg, multipart/mixed (@ref{multipart/mixed}),
-text/plain (@ref{text/plain}), video/mpeg...  @refill
-
-You can refer registered media types at MEDIA TYPES
-(ftp://ftp.isi.edu/in-notes/iana/assignments/media-types).@refill
-
-In addition, you can use private type or subtype using @strong{x-token},
-which as the prefix `x-'.  However you can not use them in
-public.@refill
-
-(cf. @ref{Content-Type field})
-
-
-
-@node message, MIME, media-type, Glossary
-@subsection message
-
-In this document, it means mail defined in RFC 822 (@ref{RFC 822}) and
-news message defined in RFC 1036 (@ref{RFC 1036}).
-
-
-@node MIME, MIME charset, message, Glossary
-@subsection MIME
-@cindex Multipurpose Internet Mail Extensions
-
-MIME stands for @strong{Multipurpose Internet Mail Extensions}, it is an
-extension for RFC 822 (@ref{RFC 822}).@refill
-
-According to RFC 2045:@refill
-
-STD 11, RFC 822, defines a message representation protocol specifying
-considerable detail about US-ASCII message headers, and leaves the
-message content, or message body, as flat US-ASCII text.  This set of
-documents, collectively called the Multipurpose Internet Mail
-Extensions, or MIME, redefines the format of messages to allow for
-
-@enumerate
-@item
-textual message bodies in character sets other than US-ASCII,
-@item
-an extensible set of different formats for non-textual message
-bodies,
-@item
-multi-part message bodies, and
-@item
-textual header information in character sets other than US-ASCII.
-@end enumerate
-
-
-It is defined in RFC 2045 (@ref{RFC 2045}), RFC 2046 (@ref{RFC 2046}),
-RFC 2047 (@ref{encoded-word}), RFC 2048 (@ref{RFC 2048}) and RFC 2049
-(@ref{RFC 2049}).
-
-
-@node MIME charset, MTA, MIME, Glossary
-@subsection MIME charset
-
-Coded character set (@ref{coded character set}) used in Content-Type
-field (@ref{Content-Type field}) or charset parameter of encoded-word
-(@ref{encoded-word}).@refill
-
-It is defined in RFC 2045 (@ref{RFC 2045}).@refill
-
-iso-2022-jp (@ref{iso-2022-jp}) or euc-kr (@ref{euc-kr}) are kinds of
-it.  (In this document, MIME charsets are written by small letters to
-distinguish graphic character set (@ref{graphic character set}).  For
-example, ISO 8859-1 is a graphic character set, and iso-8859-1 is a MIME
-charset)
-
-
-@node MTA, MUA, MIME charset, Glossary
-@subsection MTA
-@cindex Message Transfer Agent
-
-@strong{Message Transfer Agent}.  It means mail transfer programs
-(ex. sendmail) and news servers.@refill
-
-(cf. @ref{MUA})
-
-
-
-@node MUA, Quoted-Printable, MTA, Glossary
-@subsection MUA
-@cindex Message User Agent
-
-@strong{Message User Agent}.  It means mail readers and news
-readers.@refill
-
-(cf. @ref{MTA})
-
-
-
-@node Quoted-Printable, RFC 822, MUA, Glossary
-@subsection Quoted-Printable
-@cindex Quoted-Printable
-
-@strong{Quoted-Printable} is a transfer encoding method of MIME
-(@ref{MIME}) defined in RFC 2045 (@ref{RFC 2045}).@refill
-
-If the data being encoded are mostly US-ASCII text, the encoded form of
-the data remains largely recognizable by humans.@refill
-
-(cf. @ref{Base64})
-
-
-
-@node RFC 822, RFC 1036, Quoted-Printable, Glossary
-@subsection RFC 822
-@cindex RFC 822
-@cindex STD 11
-@cindex Internet mail
-@cindex Internet message
-@cindex message header
-
-A RFC defines format of Internet mail message, mainly @strong{message header}.
-
-@noindent
-@strong{[Memo]}
-@quotation
-
-news message is based on RFC 822, so @strong{Internet message} may be
-more suitable than @strong{Internet mail} .
-@end quotation
-
-
-
-@noindent
-[RFC 822]
-@quotation
-D. Crocker, ``Standard for the Format of ARPA Internet Text Messages'',
-August 1982, STD 11.
-@end quotation
-
-
-
-@node RFC 1036, RFC 2045, RFC 822, Glossary
-@subsection RFC 1036
-@cindex RFC 1036
-@cindex USENET
-
-A RFC defines format of USENET message.  It is a subset of RFC 822
-(@ref{RFC 822}).  It is not Internet standard, but a lot of netnews
-excepting Usenet uses it.
-
-
-@noindent
-[USENET: RFC 1036]
-@quotation
-M. Horton and R. Adams, ``Standard for Interchange of USENET Messages'',
-December 1987, (obsolete RFC 850).
-@end quotation
-
-
-
-@node RFC 2045, RFC 2046, RFC 1036, Glossary
-@subsection RFC 2045
-@cindex RFC 2045
-@cindex Standards Track
-
-
-@noindent
-[RFC 2045]
-@quotation
-N. Freed and N. Borenstein, ``Multipurpose Internet Mail Extensions
-(MIME) Part One: Format of Internet Message Bodies'', November 1996,
-Standards Track (obsolete RFC 1521, 1522, 1590).
-@end quotation
-
-
-
-@node RFC 2046, RFC 2048, RFC 2045, Glossary
-@subsection RFC 2046
-@cindex RFC 2046
-@cindex Standards Track
-
-
-@noindent
-[RFC 2046]
-@quotation
-N. Freed and N. Borenstein, ``Multipurpose Internet Mail Extensions
-(MIME) Part Two: Media Types'', November 1996, Standards Track (obsolete
-RFC 1521, 1522, 1590).
-@end quotation
-
-
-
-@node RFC 2048, RFC 2049, RFC 2046, Glossary
-@subsection RFC 2048
-@cindex RFC 2048
-@cindex Standards Track
-
-
-@noindent
-[RFC 2048]
-@quotation
-N. Freed, J. Klensin and J. Postel, ``Multipurpose Internet Mail
-Extensions (MIME) Part Four: Registration Procedures'', November 1996,
-Standards Track (obsolete RFC 1521, 1522, 1590).
-@end quotation
-
-
-
-@node RFC 2049, plain text, RFC 2048, Glossary
-@subsection RFC 2049
-@cindex RFC 2049
-@cindex Standards Track
-
-
-@noindent
-[RFC 2049]
-@quotation
-N. Freed and N. Borenstein, ``Multipurpose Internet Mail Extensions
-(MIME) Part Five: Conformance Criteria and Examples'', November 1996,
-Standards Track (obsolete RFC 1521, 1522, 1590).
-@end quotation
-
-
-
-@node plain text, us-ascii, RFC 2049, Glossary
-@subsection plain text
-
-A textual data represented by only coded character set (@ref{coded character set}).  It does not have information about font or
-typesetting.  (cf. @ref{text/plain})
-
-
-
-@node us-ascii,  , plain text, Glossary
-@subsection us-ascii
-@cindex ASCII
-@cindex us-ascii
-
-A MIME charset (@ref{MIME charset}) for primary Latin script mainly
-written by English or other languages.@refill
-
-It is a 7bit coded character set (@ref{coded character set}) based on
-ISO 2022 (@ref{ISO 2022}), it contains only ASCII (@ref{ASCII}) and code
-extension (@ref{code extension}) is not allowed.@refill
-
-It is standard coded character set of Internet mail.  If MIME charset is
-not specified, @strong{us-ascii} is used as default.@refill
-
-In addition, @strong{ASCII} of RFC 822 (@ref{RFC 822}) should be
-interpreted as us-ascii.
-
-
-@node Bug report, CVS, Glossary, Appendix
-@section How to report bugs
-@cindex good bug report
-
-If you write bug-reports and/or suggestions for improvement, please
-send them to the tm Mailing List:
-
-@itemize @bullet
-@item
- Japanese <bug-tm-ja@@chamonix.jaist.ac.jp>
-@item
- English <bug-tm-en@@chamonix.jaist.ac.jp>
-@end itemize
-
-
-Notice that, we do not welcome bug reports about too old version.  Bugs
-in old version might be fixed.  So please try latest version at
-first.@refill
-
-You should write @strong{good bug report}.  If you write only ``FLIM
-does not work'', we can not find such situations.  At least, you should
-write name, type, variants and version of OS, emacs, APEL, FLIM, SEMI
-and MUA, and setting.  In addition, if error occurs, to send backtrace
-is very important. (cf. @ref{(emacs)Bugs}) @refill
-
-Bug may not appear only your environment, but also in a lot of
-environment (otherwise it might not bug).  Therefor if you send mail
-to author directly, we must write a lot of mails.  So please send mail
-to address for tm bugs instead of author.
-
-Via the tm ML, you can report FLIM bugs, obtain the latest release of
-FLIM, and discuss future enhancements to FLIM.  To join the tm ML,
-send empty e-mail to:
-
-@itemize @bullet
-@item
- Japanese <tm-ja-help@@chamonix.jaist.ac.jp>
-@item
- English  <tm-en-help@@chamonix.jaist.ac.jp>
-@end itemize
-
-
-
-@node CVS, History, Bug report, Appendix
-@section CVS based development
-
-FLIM $B$N(B file $B$O(B CVS $B$r;H$C$F4IM}$5$l$F$$$^$9!#$3$N$?$a!"0J2<$NJ}K!$G:G(B
-$B?7$N(B FLIM $B$rF~<j$9$k$3$H$,$G$-$^$9!'(B
-
-@example
-(0) cvs login
-
-    % cvs -d :pserver:anonymous@@chamonix.jaist.ac.jp:/hare/cvs/root \
-	login
-
-    CVS password: [CR] # NULL string
-
-(1) checkout
-
-    % cvs -d :pserver:anonymous@@chamonix.jaist.ac.jp:/hare/cvs/root \
-	checkout [-r TAG] flim
-@end example
-
-
-CVS $B$rMQ$$$?3+H/$K;22C$7$?$$J}$O(B
-
-@itemize @bullet
-@item
- <cvs@@chamonix.jaist.ac.jp>
-@end itemize
-
-@noindent
-$B$^$G!"(Baccount $BL>$H(B UNIX $B$N(B passwd $B$HF1$87A<0$N(B crypt $B2=$5$l$?(B password
-$B$r1h$($F8fO"Mm$/$@$5$$!#(B
-
-
-@node History,  , CVS, Appendix
-@section History of FLIM
-
-FLIM $B$N(B code $B$N:G8E$NItJ,$O(B $B1]JB(B $B;LCR(B $B;a$,=q$$$?(B @file{mime.el}$B$K5/8;$7(B
-$B$^$9!#$3$N>.$5$J(B program $B$O(B Nemacs $B$GF0:n$9$k(B iso-2022-jp $B$N(B B-encoding 
-$B@lMQ$N(B encoded-word $B$NI|9f2=%W%m%0%i%`$G$7$?!#(B@refill
-
-$B$=$N8e!"<i2,(B $BCNI'(B $B$O(B @file{mime.el} $B$r85$K(B@file{tiny-mime.el} $B$H$$$&%W%m(B
-$B%0%i%`$r=q$-$^$9!#$3$l$O!"(BNemacs $B$H(B Mule $B$GF0:n$9$k(B encoded-word $B$NId9f(B
-$B2=!&I|9f2=%W%m%0%i%`$G$7$?!#(B@file{tiny-mime.el} $B$O(B B-encoding $B$@$1$G$J$/(B 
-Q-encoding $B$b(Bsupport $B$7!"$^$?!"(BMULE $B$G07$&$3$H$,$G$-$k$5$^$6$^$J(B MIME
-charset (@ref{MIME charset}) $B$rF1;~$K;H$&$3$H$,$G$-$^$7$?!#$3$N;~!"(B
-Nemacs $B$H(B Mule $B$NAPJ}$r(B support $B$9$k$?$a$KMQ$$$i$l$?%F%/%K%C%/$O8e$K(B emu
-package $B$K$^$H$a$i$l$^$9!#(B@refill
-
-$B$3$N:"!"<i2,(B $BCNI'(B $B$O(B @file{tiny-mime.el} $B$r$5$^$6$^$J(B MUA $B$G;H$&$?$a$N@_(B
-$BDj=8$bG[I[$7$F$$$^$7$?$,!"$=$l$i$O8e$K(B@file{tiny-mime.el} $B$H$H$b$K#1$D$N(B 
-package $B$K$^$H$a$i$l!"(Btm $B$H$$$&L>A0$GG[I[$5$l$^$9!#(B@refill
-
-$B<i2,(B $BCNI'(B $B$O$d$,$F!"(BMIME message $B$r1\Mw$9$k$?$a$N%W%m%0%i%`$G$"$k(B
-@file{tm-body.el} $B$r=q$-$^$9!#$3$l$O!"$9$0$K(B@file{tm-view.el} $B$H$$$&L>A0(B
-$B$KJQ$o$j$^$7$?$,!"$d$,$F!"$3$l$,(B@file{tiny-mime.el} $B$KBe$o$C$F!"(Btm $B$NCf(B
-$B3K$H$J$j$^$9!#(B@refill
-
-@file{tm-view.el} $B$OEvA3!"(BContent-Transfer-Encoding $B$r07$&I,MW$,$"$j$^$9!#(B
-$B$3$NL\E*$N$?$a$K!"(BMEL $B$,@0Hw$5$l$O$8$a$^$7$?!#(BBase64 $B$K4X$7$F$O(B 
-@file{tiny-mime.el} $B$N(B code $B$,0\$5$l!"$^$?!"?7$?$K(BQuoted-Printable $B$N(B 
-code $B$,DI2C$5$l$^$7$?!#$3$l$i$,(B@file{mel-b.el} $B$H(B @file{mel-q.el} $B$K$J$j(B
-$B$^$7$?!#(B@refill
-
-$B$^$?!"8e$K!"<i2,(B $BCNI'(B $B$K$h$C$F(B uuencode $BMQ$N(B @file{mel-u.el} $B$,DI2C$5$l!"(B
-$B$=$N8e$K!">.NS(B $B=$J?(B $B;a$K$h$C$F(B x-gzip64 $BMQ$N(B@file{mel-g.el} $B$,DI2C$5$l$^(B
-$B$7$?!#(B@refill
-
-tm $B$G$O8e$K!"<i2,(B $BCNI'(B $B$K$h$C$F(B @file{tiny-mime.el} $B$N:F<BAu$,9T$o$l!"$3(B
-$B$N2aDx$G!"(BSTD 11 $B$N(B parser $B$,=q$+$l$^$7$?!#$3$l$O!"8=:_$N(B 
-@file{std11.el} $B$KEv$?$j$^$9!#$^$?!"$3$N2aDx$G(B @file{tiny-mime.el} $B$OI|(B
-$B9f2=$r9T$&(B @file{tm-ew-d.el} $B$HId9f2=$r9T$&(B @file{tm-ew-e.el} $B$KJ,$1$i$l(B
-$B$^$7$?!#$3$NN><T$,8=:_$N(B @file{eword-decode.el} $B$H(B 
-@file{eword-encode.el} $B$N@hAD$KEv$?$j$^$9!#(B@refill
-
-$B8e$K!"<i2,(B $BCNI'(B $B$i$K$h$C$F(B tm $B$NA4LL=q$-49$(:n6H$,9T$o$l!"$3$N2aDx$G!"(Btm 
-$B$O(B APEL, MEL, SEMI, EMH, RMAIL-MIME, Gnus-MIME $B$J$I$KJ,$1$i$l$^$7$?!#$3(B
-$B$N$&$A$N(B MEL $B$,(B FLIM $B$ND>@\$N@hAD$KEv$?$j$^$9!#(B@refill
-
-$B8e$K!"(BAPEL $B$+$i(B @file{std11.el} $B$,0\$5$l!"$^$?!"(B@file{mailcap.el},
-@file{eword-decode.el} $B$*$h$S(B @file{eword-encode.el} $B$,(B SEMI $B$+$i0\$5$l!"(B
-package $B$NL>A0$,(B FLIM$B$H$J$j$^$9!#(B@refill
-
-$B$3$ND>A0$+$iEDCf(B $BE/(B $B;a$,$h$j(B RFC $B$KCi<B$J<BAu$r=q$-;O$a!"$3$l$O!"8=:_!"(B
-FLIM $B$N;^$G$"$k(B ``FLIM-FLAM'' $B$H$J$C$F$$$^$9!#(B
-
-
-@node Concept Index, Function Index, Appendix, Top
-@chapter Concept Index
-
-@printindex cp
-
-@node Function Index, Variable Index, Concept Index, Top
-@chapter Function Index
-
-@printindex fn
-
-@node Variable Index,  , Function Index, Top
-@chapter Variable Index
-
-@printindex vr
-@bye
diff --git a/mime-ja.sgml b/mime-ja.sgml
deleted file mode 100644
index c3cfb08..0000000
--- a/mime-ja.sgml
+++ /dev/null
@@ -1,1278 +0,0 @@
-<!doctype sinfo system>
-<head>
-<title>FLIM 1.9 MIME $B5!G=@bL@=q(B
-<author>$B<i2,(B $BCNI'(B <mail>morioka@jaist.ac.jp</mail>
-<date>1998/07/01
-
-<toc>
-</head>
-
-<body>
-
-<abstract>
-<p>
-This file documents MIME features of FLIM, a Internet message
-parsing/encoding library for GNU Emacs.
-<p>
-GNU Emacs $BMQ$N(B Internet Message $B$N2r@O$dId9f2=$K4X$9$k(B library $B$G$"$k(B 
-FLIM $B$N(B MIME $B5!G=$K4X$7$F@bL@$7$^$9!#(B
-</abstract>
-
-
-<h1> FLIM $B$C$F2?!)(B
-<node> Introduction
-<p>
-FLIM $B$O(B Internet Message $B$NI=8=$dId9f2=$K4X$9$k4pACE*$J5!G=$rDs6!$9$k(B
-$B$?$a$N(B library $B$G$9!#(B
-
-
-<h1> FLIM $B$N(B MIME $B5!G=$N;H$$J}(B
-<node> How to use
-<p>
-FLIM $B$NDs6!$9$k(B MIME $B5!G=$r;H$&$?$a$K$O(B
-
-<lisp>
-(require 'mime)
-</lisp>
-
-<noindent>$B$rI>2A$7$F$/$@$5$$!#(B
-
-
-<h1> Message $B$H(B Entity
-<node> Entity
-<p>
-<dref>RFC 2045</dref> $B$K$h$l$P!"!V(BEntity $B$H$$$&8l$O!"(Bmessage, $B$b$7$/$O!"(B
-multipart entity $B$N(B body $BCf$N#1$D$NItJ,$N!"(BMIME $B$GDj5A$5$l$?(B header
-field $B$HFbMF$r;X$9!W$H$J$C$F$$$^$9!#$3$3$G$O!"(BMIME $B$GDj5A$5$l$?(B header
-field $B0J30$NA4$F$N(B header $B$H(B body $B$r;X$98l$H$7$F(B 
-<concept>entity</concept>$B$rMQ$$$k$3$H$K$7$^$9!#(B
-<p>
-RFC 2045 $B$NDj5A$O!"(BMIME message $B$,(B entity $B$rC10L$H$9$kLZ9=B$$G$"$k$3$H$r(B
-$B<($7$F$$$^$9!#(Bmessage $B$O2<?^$G<($9$h$&$JLZ$H$J$j!"(Bentity $B$O$3$NLZ$K$*$1(B
-$B$k@a$H$J$j$^$9!#$D$^$j!"(BMIME $B$O(B message $B$rLZ9=B$$K3HD%$7$?Lu$G$9!#(B
-<p>
-FLIM $B$O(B entity $B$N>pJs$rI=8=$9$k$?$a$K(B<concept>mime-entity</concept> $B9=(B
-$BB$BN$rMQ$$$^$9!#0J2<$G$OC1$K(B mime-entity $B$H8F$V$3$H$K$7$^$9!#(B
-<p>
-$BA0=R$N$h$&$K!"(Bmessage $BCf$N3F(B entity $B$OLZ$N@a$KEv$?$j$^$9$,!"$3$NLZ$K$O(B
-$B?<$5$HF1$8?<$5$NCf$N=gHV$K=>$C$FHV9f$,IU$1$k$3$H$,$G$-$^$9!#B($A!"(B
-<verb>
-
-                              $B(#(!(!(!($(B
-                              $B("(B  nil $B("(B
-                              $B(&(!(((!(%(B
-              $B(#(!(!(!(!(!(!(!(!(!(+(!(!(!(!(!(!(!(!(!($(B
-            $B(#(*($(B              $B(#(*($(B              $B(#(*($(B
-            $B("#0("(B              $B("#1("(B              $B("#2("(B
-            $B(&(((%(B              $B(&(((%(B              $B(&(((%(B
-              $B("(B        $B(#(!(!(!(!(+(!(!(!(!($(B        $B("(B
-          $B(#(!(*(!($(#(!(*(!($(#(!(*(!($(#(!(*(!($(#(!(*(!($(B
-          $B("(B $B#0(B.$B#0("("(B $B#1(B.$B#0("("(B $B#1(B.$B#1("("(B $B#1(B.$B#2("("(B $B#2(B.$B#0("(B
-          $B(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(B
-
-</verb>
-<p>
-<noindent>$B$N$h$&$K?<$5(B n $B$N@a$K$OD9$5(B n $B$N@0?tNs$N@aHV9f$,?6$l$^$9!#$3$l(B
-$B$r(B <concept>entity-number</concept> $B$H8F$S$^$9!#(Bentity-number $B$O(B S $B<0$H(B
-$B$7$F$O(B <code>(1 2 3)</code> $B$N$h$&$J@0?t$N%j%9%H$H$7$FI=8=$5$l$^$9!#(B
-<p>
-mime-entity $B$G$O!"$3$l$HF1MM$N(B <concept>node-id</concept> $B$rMQ$$$^$9!#(B
-node-id $B$O$A$g$&$I(B entity-number $B$r5U$K$7$?%j%9%H$G!"(Bentity-number
-1.2.3 $B$KBP1~$9$k(B node-id $B$O(B <code>(3 2 1)</code> $B$G$9!#(B
-<p>
-$BA0=R$N$h$&$K!"(BMIME message $B$O(B entity $B$rC10L$H$7$?LZ9=B$$K$J$C$F$$$k$N$G!"(B
-$B$3$N:,$G$"$k(B message $BA4BN$b(B mime-entity $B$GI=8=$9$k$3$H$,$G$-!"(Bbuffer
-local $BJQ?t(B <code>mime-message-structure</code> $B$K3JG<$9$k$3$H$K$7$^$9!#(B
-$B$=$7$F!"(Bentity-number $B$d(B node-id $B$rMQ$$$k$3$H$G(B 
-<code>mime-message-structure</code> $B$K$*$1$k(B entity $B$NAjBPE*$J0LCV4X78$r(B
-$B07$&$3$H$,$G$-$^$9!#(B
-
-
-<h2> Entity $B$N@8@.(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. <cf node="mm-backend">
-<p>
-<var>location</var> is location of entity.  Specification of it is
-depended on representation-type.
-</defun>
-
-<defun name="mime-parse-buffer">
-	  <opts> buffer type
-<p>
-<var>buffer</var> $B$r(B message $B$H$7$F9=J82r@O$7!"$=$N7k2L$N(B mime-entity 
-$B$r(B <var>buffer</var> $B$N(B<code>mime-message-structure</code> $B$K3JG<$9$k!#(B
-<p>
-<var>buffer</var> $B$,>JN,$5$l$?>l9g!"8=:_$N(B buffer $B$r9=J82r@O$9$k!#(B
-<p>
-<var>type</var> $B$,;XDj$5$l$?>l9g!"$=$NCM$r@8@.$5$l$k(B mime-entity $B$NI=(B
-$B>]7?$H$7$FMQ$$$k!#>JN,$5$l$?>l9g$O(B <var>buffer</var> $B$H$J$k!#(B<cf
-node="mm-backend">
-</defun>
-
-
-<h2> Entity $B3,AX(B
-<node> Entity hierarchy
-<p>
-<defvar name="mime-message-structure">
-<p>
-$B8=:_$N(B buffer $B$K$*$1$k(B message $BA4BN$N(B mime-entity $B9=B$BN$r3JG<$9$k(B
-buffer local $BJQ?t!#(B
-</defvar>
-
-<defun name="mime-entity-children">
-	  <args> entity
-<p>
-<var>entity</var> $B$K4^$^$l$k(B entity $B$N(B list $B$rJV$9!#(B
-</defun>
-
-<defun name="mime-entity-parent">
-	  <args> entity <opts> message
-<p>
-<var>entity</var> $B$N?F$N(B entity $B$rJV$9!#(B
-<p>
-<var>message</var> $B$,;XDj$5$l$?>l9g!"$3$l$r:,$H8+Jo$9!#(B
-</defun>
-
-<defun name="mime-root-entity-p">
-	  <args> entity
-<p>
-<var>entity</var> $B$,:,!JB($A!"(Bmessage $BA4BN!K$G$"$k>l9g$K!"(B
-$BHs(B-<code>nil</code> $B$rJV$9!#(B
-</defun>
-
-<defun name="mime-entity-node-id">
-	  <args> entity
-<p>
-<var>entity</var> $B$N(B node-id $B$rJV$9!#(B
-</defun>
-
-<defun name="mime-entity-number">
-	  <args> entity
-<p>
-<var>entity</var> $B$N(B entity-number $B$rJV$9!#(B
-</defun>
-
-<defun name="mime-find-entity-from-number">
-	    <args> entity-number <opts> message
-<p>
-Return entity from <var>entity-number</var> in <var>message</var>.
-<p>
-If <var>message</var> is not specified,
-<code>mime-message-structure</code> is used.
-</defun>
-
-<defun name="mime-find-entity-from-node-id">
-	    <args> entity-node-id <opts> message
-<p>
-Return entity from <var>entity-node-id</var> in <var>message</var>.
-<p>
-If <var>message</var> is not specified,
-<code>mime-message-structure</code> is used.
-</defun>
-
-
-<h2> Entity $B$NB0@-(B
-<node> Entity Attributes
-<p>
-<defun name="mime-entity-content-type">
-	    <args> entity
-<p>
-<var>entity</var> $B$N(B content-type $B$rJV$9!#(B<cf
-node="mime-content-type">
-</defun>
-
-<defun name="mime-entity-content-disposition">
-	    <args> entity
-<p>
-<var>entity</var> $B$N(B content-disposition $B$rJV$9!#(B<cf
-node="mime-content-disposition">
-</defun>
-
-<defun name="mime-entity-filename">
-	    <args> entity
-<p>
-<var>entity</var> $B$N(B file $BL>$rJV$9!#(B
-</defun>
-
-<defun name="mime-entity-encoding">
-	    <args> entity <opts> default-encoding
-<p>
-<var>entity</var> $B$N(B content-transfer-encoding $B$rJV$9!#(B<cf
-node="Content-Transfer-Encoding">
-<p>
-$B$b$7!"(B<var>entity</var> $B$K(B Content-Transfer-Encoding $BMs$,B8:_$7$J$$>l(B
-$B9g$O!"(B<var>default-encoding</var> $B$rJV$9!#$3$l$,;XDj$5$l$J$$>l9g$O!"(B
-<code>"7bit"</code> $B$rMQ$$$k!#(B
-</defun>
-
-<defun name="mime-entity-cooked-p">
-	    <args> entity
-<p>
-Return non-nil if contents of <var>entity</var> has been already
-code-converted.
-</defun>
-
-
-<h2> Entity header $B$N>pJs(B
-<node> Entity-header
-<p>
-<defun name="mime-fetch-field">
-	    <args> field-name <opts> entity
-<p>
-<var>entity</var> $B$N(B header $BCf$N(B <var>field-name</var> $BMs$N(B body $B$rJV$9!#(B
-<p>
-$B7k2L$NJ8;zNs$O(B network $BI=8=$N$^$^$G$"$k!#(B
-<p>
-<var>entity</var> $B$,>JN,$5$l$?>l9g$O!"(B
-<code>mime-message-structure</code> $B$NCM$rMQ$$$k!#(B
-<p>
-<var>field-name</var> $BMs$,B8:_$7$J$$>l9g$O(B <code>nil</code> $B$rJV$9!#(B
-</defun>
-
-<defun name="mime-read-field">
-	    <args> field-name <opts> entity
-<p>
-<var>entity</var> $B$N(B header $BCf$N(B <var>field-name</var> $BMs$r9=J82r@O$7$?(B
-$B7k2L$rJV$9!#(B
-<p>
-$B7k2L$N7A<0$OMsKh$K0[$J$k!#Hs9=B$2=Ms$N>l9g$OJ8;zNs$rJV$7!"9=B$2=Ms$N>l9g(B
-$B$O$=$N7A<0$K=>$C$?(B list $B$rJV$9!#(B
-<p>
-$B7k2LCf$NJ8;zNs$O(B Emacs $B$NFbItI=8=$KJQ49$5$l$k!#(B
-<p>
-<var>entity</var> $B$,>JN,$5$l$?>l9g$O!"(B
-<code>mime-message-structure</code> $B$NCM$rMQ$$$k!#(B
-<p>
-<var>field-name</var> $BMs$,B8:_$7$J$$>l9g$O(B nil $B$rJV$9!#(B
-</defun>
-
-<defun name="mime-insert-decoded-header">
-	    <args> entity <opts> invisible-fields visible-fields
-<p>
-$B8=:_0LCV$K(B <var>entity</var> $B$NI|9f$7$?(B header $B$rA^F~$9$k!#(B
-<p>
-<var>invisible-fields</var> $B$H(B <var>visible-fields</var> $B$O@55,I=8=$N(B
-list $B$G!"$=$l$>$l!"I=<($7$?$/$J$$(B field $BL>$HI=<($7$?$$MsL>$rI=8=$7$?$b$N(B
-$B$G$"$k!#(B
-<p>
-<var>invisible-fields</var> $B$NMWAG$N$I$l$+$K(B match $B$7!"$+$D!"(B
-<var>visible-fields</var> $B$NMWAG$N$I$l$K$b(B match $B$7$J$$Ms$OI=<($5$l$J$$!#(B
-</defun>
-
-
-<h2> Entity $B$NFbMF(B
-<node> Entity-content
-<p>
-<defun name="mime-entity-content">
-	    <args> entity
-<p>
-<var>entity</var> $B$NFbMF$N(B byte $BNs$rJV$9!#(B
-</defun>
-
-<defun name="mime-write-entity-content">
-	    <args> entity filename
-<p>
-Write content of <var>entity</var> into <var>filename</var>.
-</defun>
-
-<defun name="mime-write-entity">
-	    <args> entity filename
-<p>
-Write representation of <var>entity</var> into <var>filename</var>.
-</defun>
-
-<defun name="mime-write-entity-body">
-	    <args> entity filename
-<p>
-Write body of <var>entity</var> into <var>filename</var>.
-</defun>
-
-
-<h2> Entity $B$N(B buffer $B$K$h$kI=8=(B
-<node> Entity buffer
-<p>
-<defun name="mime-entity-buffer">
-	    <args> entity
-<p>
-<var>entity</var> $B$,B8:_$9$k(B buffer $B$rJV$9!#(B
-</defun>
-
-<defun name="mime-entity-point-min">
-	    <args> entity
-<p>
-<var>entity</var> $B$,B8:_$9$k(B buffer $B$K$*$1$k!"(B<var>entity</var> $B$,@j$a$k(B
-$BNN0h$N@hF,0LCV$rJV$9!#(B
-</defun>
-
-<defun name="mime-entity-point-max">
-	    <args> entity
-<p>
-<var>entity</var> $B$,B8:_$9$k(B buffer $B$K$*$1$k!"(B<var>entity</var> $B$,@j$a$k(B
-$BNN0h$NKvHx0LCV$rJV$9!#(B
-</defun>
-
-<defun name="mime-entity-header-start">
-	    <args> entity
-<p>
-<var>entity</var> $B$,B8:_$9$k(B buffer $B$K$*$1$k!"(Bheader $B$,@j$a$kNN0h$N@hF,(B
-$B0LCV$rJV$9!#(B
-</defun>
-
-<defun name="mime-entity-header-end">
-	    <args> entity
-<p>
-<var>entity</var> $B$,B8:_$9$k(B buffer $B$K$*$1$k!"(Bheader $B$,@j$a$kNN0h$NKvHx(B
-$B0LCV$rJV$9!#(B
-</defun>
-
-<defun name="mime-entity-body-start">
-	    <args> entity
-<p>
-<var>entity</var> $B$,B8:_$9$k(B buffer $B$K$*$1$k!"(Bbody $B$,@j$a$kNN0h$N@hF,0L(B
-$BCV$rJV$9!#(B
-</defun>
-
-<defun name="mime-entity-body-end">
-	    <args> entity
-<p>
-<var>entity</var> $B$,B8:_$9$k(B buffer $B$K$*$1$k!"(Bbody $B$,@j$a$kNN0h$NKvHx0L(B
-$BCV$rJV$9!#(B
-</defun>
-
-
-<h2> Entity $B$NI=8=$H<B8=(B
-<node> mm-backend
-<p>
-Entity $B$OCj>]2=$5$l$?%G!<%?I=8=$G!"<B:]$N%G!<%?I=8=$H$7$F$OMQES$K1~$8$F(B
-$B$5$^$6$^$J$b$N$,MxMQ$G$-$k$h$&$K@_7W$5$l$F$$$^$9!#(B
-<p>
-$B$3$3$G!"(Bentity $B$,$I$&$$$&<oN`$NI=8=$r9T$C$F$$$k$+$r<($9$N$,(B
-<concept>representation-type</concept> $B$G!"(Bentity $B$r@8@.$9$k;~$K$O$3$l$r(B
-$B;XDj$7$^$9!#(B<cf node="Entity Creation">
-<p>
-$BA0@a$^$G$K=R$Y$FMh$?(B entity $B$KBP$9$k=hM}$O!"(Bentity $B$KBP$7$F$=$N=hM}$r0M(B
-$BMj$9$k$3$H$K$h$C$F<B8=$5$l$F$$$^$9!#(BEntity $B$O<+J,$N(B 
-representation-type $B$rCN$C$F$*$j!"$=$N(B representation-type $B$K1~$8$F<B:](B
-$B$N=hM}$r9T$&4X?t$r8F$S=P$7$^$9!#$3$N$h$&$J4X?t$r(B <concept>entity $B=hM}(B
-method</concept> $B$H8F$S$^$9!#$^$?!"(Brepresentation-type $BKh$K$3$N$h$&$J4X(B
-$B?t$r$^$H$a$?$b$N$r(B <concept>mm-backend</concept> $B$H8F$S$^$9!#(B
-<p>
-mm-backend $B$O(B representation-type $B$NL>A0$N@hF,$K(B <code>mm</code> $B$H$$$&(B
-$B@\F,<-$rIU$1$?4X?tL>$+$i$J$k(B module $B$G!"$=$N(B module $BL>$OF1MM$K(B
-representation-type $B$NL>A0$N@hF,$K(B <code>mm</code> $B$rIU$1$?$b$N$K$J$C$F(B
-$B$$$^$9!#$3$N(B module $B$O(B representation-type $B$N(B entity $B$,:G=i$K@8@.$5$l$k(B
-$B;~$K<+F0E*$K(B require $B$5$l$^$9!#(B
-
-
-<h3> Entity $B$X$NJX$j(B
-<node> Request for entity
-<p>
-<defun name="mime-entity-send">
-	      <args> entity message <rest> args
-<p>
-<var>entity</var> $B$K(B <var>message</var> $B$rAw$k!#(B
-<p>
-<var>args</var> $B$O(B <var>message</var> $B$N0z?t$G$"$k!#(B
-</defun>
-
-
-<h3> mm-backend $B$N:n$jJ}(B
-<node> mm-backend module
-<p>
-$B!J$9$_$^$;$s!#$=$N$&$A=q$-$^$9(B (^_^;$B!K(B
-<p>
-$B!J$H$j$"$($:!"(Bmm*.el $B$r;29M$K$7$F$/$@$5$$!K(B
-
-
-<h1> Content-Type $BMs$N>pJs(B
-<node> Content-Type
-<p>
-<concept>Content-Type $BMs(B</concept> $B$O(B <dref>media-type</dref> $B$d(B MIME
-charset $B$H$$$C$?(B <dref>entity</dref> $B$NFbMF$N<oN`$dI=8=7A<0$J$I$r5-=R(B
-$B$9$k$?$a$N$b$N$G!"(B<dref>RFC 2045</dref> $B$GDj5A$5$l$F$$$^$9!#(B
-
-<memo>
-<p>
-$BNr;KE*$K$O(B RFC 1049 $B$G(B Content-Type $BMs$,Ds0F$5$l$F$$$k!#C"$7!"(BMIME $B$N(B
-media-type $B$N$h$&$J(B type $B$H(B subtype $B$N6hJL$O$J$/!"(BMIME charset $B$N$h$&(B
-$B$JJ8;zId9f$N<oN`$rI=8=$9$k$3$H$b$G$-$J$$!#(B
-</memo>
-
-<p>
-FLIM $B$O(B Content-Type $BMs$r9=J82r@O$9$k4X?t$H(B Content-Type $BMs$N2r@O7k2L$r(B
-$B3JG<$9$k9=B$BN(B <concept>mime-content-type</concept> $B$rDs6!$7$^$9!#(B
-
-
-<h2> Content-Type $BMs$N7A<0(B
-<node> Content-Type field
-<p>
-Content-Type $BMs$N7A<0$O0J2<$N$h$&$KDj5A$5$l$F$$$^$9!'(B
-
-<quote>
-``Content-Type'' ``:'' <concept>type</concept> ``/''
-<concept>subtype</concept> *( ``;'' <concept>parameter</concept> )
-</quote>
-<p>
-$BNc$($P!"(B
-
-<quote>
-<verb>
-Content-Type: image/jpeg
-</verb>
-</quote>
-
-<noindent>
-$B$d(B
-
-<quote>
-<verb>
-Content-Type: text/plain; charset=iso-2022-jp
-</verb>
-</quote>
-
-<noindent>
-$B$J$I$N$h$&$KMQ$$$i$l$^$9!#(B
-<p>
-$B$3$3$G!"(B`type' $B$H(B `subtype' $B$O(B entity $B$N7A<0$r<($9$b$N$G!"N><T$rAm>N$7(B
-$B$F!"(B`media-type' $B$H8F$V$3$H$K$7$^$9!#>e5-$NNc$K$*$1$k(B `image/jpeg' $B$d(B
-`text/plain' $B$O(B media-type $B$N#1$D$G$9!#(B
-
-<memo>
-<p>
-Content-Type $BMs$N$J$$(B entity $B$O(B
-
-<quote>
-<verb>
-Content-Type: text/plain; charset=us-ascii
-</verb>
-</quote>
-
-<noindent>
-$B$H$7$F2r<a$5$l$k!#(B<cf node="us-ascii">
-</memo>
-
-
-<h2> mime-content-type $B9=B$BN(B
-<node> mime-content-type
-<p>
-<define type="Structure" name="mime-content-type">
-<p>
-Content-Type $BMs$N>pJs$r3JG<$9$k$?$a$N9=B$BN!#(B
-<p>
-$B$3$N9=B$BN$r;2>H$9$k$K$O(B <code>mime-content-type-$BMWAGL>(B</code> $B$H$$$&L>(B
-$BA0$N;2>H4X?t$rMQ$$$k!#(B
-<p>
-$B$3$N9=B$BN$NMWAG$O0J2<$NDL$j$G$"$k!'(B
-
-<vl>
-<dt>primary-type<dd>media-type $B$N<g7?(B (symbol).
-</dd>
-<dt>subtype<dd>media-type $B$NI{7?(B (symbol).
-</dd>
-<dt>parameters<dd>Content-Type $BMs$N(B parameter ($BO"A[(B list).
-</dd>
-</vl>
-</define>
-
-<defun name="make-mime-content-type">
-	  <args> type subtype
-	  <opts> parameters
-<p>content-type $B$N@8@.;R!#(B
-</defun>
-
-<defun name="mime-content-type-parameter">
-<args> content-type parameter
-<p>
-<var>content-type</var> $B$N(B <var>parameter</var> $B$NCM$rJV$9!#(B
-</defun>
-
-
-<h2> Content-Type $BMs$N2r@O4o(B
-<node> Content-Type parser
-<p>
-<defun name="mime-parse-Content-Type">
-	  <args> string
-<p>
-<var>string</var> $B$r(B content-type $B$H$7$F2r@O$7$?7k2L$rJV$9!#(B
-</defun>
-
-<defun name="mime-read-Content-Type">
-<p>
-$B8=:_$N(B buffer $B$N(B Content-Type $BMs$rFI$_<h$j!"2r@O$7$?7k2L$rJV$9!#(B
-<p>
-Content-Type $BMs$,B8:_$7$J$$>l9g$O(B nil $B$rJV$9!#(B
-</defun>
-
-
-<h2> Content-Type $B$K4X$9$kM-MQ$J4X?t(B
-<node> Content-Type utility
-<p>
-<defun name="mime-type/subtype-string">
-	  <args> type <opts> subtype
-<p>
-<var>type</var> $B$H(B <var>subtype</var> $B$+$i(B type/subtype $B7A<0$NJ8;zNs$rJV(B
-$B$9!#(B
-</defun>
-
-
-<h1> Content-Disposition $BMs$N>pJs(B
-<node> Content-Disposition
-<p>
-<concept>Content-Disposition $BMs(B</concept> $B$O(B entity $B$NI=<($d(B file $BL>$J$I(B
-$B$NB0@-$K$J$I$K4X$9$k>pJs$r5-=R$9$k$?$a$N$b$N$G$9!#(B
-
-<rfc number="2183" type="Standards Track"
-	      author="S. Dorner, K. Moore and R. Troost"
-	      title="Communicating Presentation Information in
-	      Internet Messages: The Content-Disposition Header"
-	      date="August 1997">
-<p>
-FLIM $B$O(B Content-Disposition $BMs$r9=J82r@O$9$k4X?t$H(B Content-Disposition 
-$BMs$N2r@O7k2L$r3JG<$9$k9=B$BN(B 
-<concept>mime-content-disposition</concept> $B$rDs6!$7$^$9!#(B
-
-
-<h2> mime-content-disposition $B9=B$BN(B
-<node> mime-content-disposition
-<p>
-<define type="Structure" name="mime-content-disposition">
-<p>
-Content-Disposition $BMs$N2r@O7k2L$r<}$a$k$?$a$N9=B$BN!#(B
-<p>
-$B$3$N9=B$BN$r;2>H$9$k$K$O(B <code>mime-content-disposition-$BMWAGL>(B</code> $B$H(B
-$B$$$&L>A0$N;2>H4X?t$rMQ$$$k!#(B
-<p>
-$B$3$N9=B$BN$NMWAG$O0J2<$NDL$j$G$"$k!'(B
-
-<vl>
-<dt>disposition-type<dd>disposition-type (symbol).
-</dd>
-<dt>parameters<dd>Content-Disposition $BMs$N(B parameter ($BO"A[(B list).
-</dd>
-</vl>
-</define>
-
-<defun name="mime-content-disposition-parameter">
-<args> content-disposition parameter
-<p>
-<var>content-disposition</var> $B$N(B <var>parameter</var> $B$NCM$rJV$9!#(B
-</defun>
-
-<defun name="mime-content-disposition-filename">
-<args> content-disposition
-<p>
-<var>content-disposition</var> $B$N(B filename $B$NCM$rJV$9!#(B
-</defun>
-
-
-<h2> Content-Disposition $BMs$N2r@O4o(B
-<node> Content-Disposition parser
-<p>
-<defun name="mime-parse-Content-Disposition">
-	    <args> string
-<p>
-<var>string</var> $B$r(B content-disposition $B$H$7$F2r@O$7$?7k2L$rJV$9!#(B
-</defun>
-
-<defun name="mime-read-Content-Disposition">
-<p>
-$B8=:_$N(B buffer $B$N(B Content-Disposition $BMs$rFI$_<h$j!"2r@O$7$?7k2L$rJV$9!#(B
-<p>
-Content-Disposition $BMs$,B8:_$7$J$$>l9g$O(B nil $B$rJV$9!#(B
-</defun>
-
-
-<h1> $BId9f2=K!(B
-<node> Content-Transfer-Encoding
-<p>
-<concept>Content-Transfer-Encoding $BMs(B</concept> $B$O(B entity $B$NId9f2=K!$r5-(B
-$B=R$9$k$?$a$N$b$N$G$9!#(B
-<p>
-FLIM $B$G$O(B Content-Transfer-Encoding $BMs$r9=J82r@O$9$k4X?t$rDs6!$7$^$9!#$3(B
-$B$l$i$N4X?t$O(B Content-Transfer-Encoding $BMs$N>pJs$OJ8;zNs$GI=8=$7$^$9!#(B
-<p>
-$B$^$?!"(BContent-Transfer-Encoding $B$K4p$E$$$FId9f2=!&I|9f2=$r9T$&4X?t$bDs(B
-$B6!$5$l$^$9!#(B
-
-
-<h2> Content-Transfer-Encoding $BMs$N2r@O4o(B
-<node> Content-Transfer-Encoding parser
-<p>
-<defun name="mime-parse-Content-Transfer-Encoding">
-	  <args> string
-<p>
-<var>string</var> $B$r(B content-transfer-encoding $B$H$7$F2r@O$7$?7k2L$rJV$9!#(B
-</defun>
-
-<defun name="mime-read-Content-Transfer-Encoding">
-	  <opts>default-encoding
-<p>
-$B8=:_$N(B buffer $B$N(B Content-Transfer-Encoding $BMs$rFI$_<h$j!"2r@O$7$?7k2L$r(B
-$BJV$9!#(B
-<p>
-Content-Transfer-Encoding $BMs$,B8:_$7$J$$>l9g$O(B
-<var>default-encoding</var> $B$rJV$9!#(B
-</defun>
-
-
-<h2> $BNN0h$NId9f2=!&I|9f2=(B
-<node> Region encoder/decoder
-<p>
-<defun name="mime-encode-region">
-	    <args> start end encoding
-<p>
-Encode region <var>start</var> to <var>end</var> of current buffer
-using <var>encoding</var>.
-</defun>
-
-<defun name="mime-decode-region">
-	    <args> start end encoding
-<p>
-Decode region <var>start</var> to <var>end</var> of current buffer
-using <var>encoding</var>.
-</defun>
-
-<defvar name="mime-encoding-method-alist">
-<p>
-Alist of encoding vs. corresponding method to encode region.
-<p>
-Each element looks like <code>(STRING . FUNCTION)</code> or
-<code>(STRING . nil)</code>.  <var>string</var> is
-content-transfer-encoding.  <code>function</code> is region encoder
-and <code>nil</code> means not to encode.
-</defvar>
-
-<defvar name="mime-decoding-method-alist">
-<p>
-Alist of encoding vs. corresponding method to decode region.
-<p>
-Each element looks like <code>(STRING . FUNCTION)</code> or
-<code>(STRING . nil)</code>.  <var>string</var> is
-content-transfer-encoding.  <code>function</code> is region decoder
-and <code>nil</code> means not to decode.
-</defvar>
-
-
-<h2> $BJ8;zNs$NId9f2=!&I|9f2=(B
-<node> String encoder/decoder
-<p>
-<defun name="mime-decode-string">
-	      <args> string encoding
-<p>
-<var>string</var> $B$r(B <var>encoding</var> $B$H$7$FI|9f$7$?7k2L$rJV$7$^$9!#(B
-</defun>
-
-<defvar name="mime-string-decoding-method-alist">
-<p>
-Alist of encoding vs. corresponding method to decode string.
-<p>
-Each element looks like <code>(STRING . FUNCTION)</code>.
-STRING is content-transfer-encoding.
-FUNCTION is string decoder.
-</defvar>
-
-
-<h2> File $B$NId9f2=!&I|9f2=(B
-<node> File encoder/decoder
-<p>
-<defun name="mime-insert-encoded-file">
-	    <args> filename encoding
-<p>
-Insert file <var>FILENAME</var> encoded by <var>ENCODING</var> format.
-</defun>
-
-<defun name="mime-write-decoded-region">
-	      <args> start end filename encoding
-<p>
-Decode and write current region encoded by <var>encoding</var> into
-<var>filename</var>.
-<p>
-<var>start</var> and <var>end</var> are buffer positions.
-</defun>
-
-<defvar name="mime-file-encoding-method-alist">
-<p>
-Alist of encoding vs. corresponding method to insert encoded file.
-<p>
-Each element looks like <code>(STRING . FUNCTION)</code>.  STRING is
-content-transfer-encoding.  FUNCTION is function to insert encoded
-file.
-</defvar>
-
-<defvar name="mime-file-decoding-method-alist">
-<p>
-Alist of encoding vs. corresponding method to write decoded region to
-file.
-<p>
-Each element looks like <code>(STRING . FUNCTION)</code>.  STRING is
-content-transfer-encoding.  FUNCTION is function to write decoded
-region to file.
-</defvar>
-
-
-<h1> Header $B$N(B network $BI=8=(B
-<node> encoded-word
-<p>
-encoded-word $B$O(B header $B$GHs(B <dref>ASCII</dref> $BJ8;z$rI=8=$9$k$?$a$N7A(B
-$B<0$G!"(B<concept>RFC 2047</concept> $B$GDj5A$5$l$F$$$^$9!#(B
-<p>
-<rfc number="2047" type="Standards Track" author="K. Moore"
-	      title="MIME (Multipurpose Internet Mail Extensions) Part
-	      Three: Message Header Extensions for Non-ASCII Text"
-	      date="November 1996" obsolete="1521,1522,1590">
-<p>
-$B$^$?!"9T57$N0-$$$3$H$@$H8@$($^$9$,!"(Bencoded-word $B$rMQ$$$:$KHs(B 
-<dref>ASCII</dref> $BJ8;z$r(B header $B$KF~$l$?5-;v$bB8:_$7$^$9!#(B
-<p>
-FLIM $B$O$3$l$i$rId9f2=!&I|9f2=$9$k5!G=$rDs6!$7$^$9!#(B
-
-
-<h2> Header $B$NId9f2=!&I|9f2=(B
-<node> Header encoder/decoder
-<p>
-<defun name="eword-encode-header">
-	      <opts> code-conversion separator
-<p>
-Decode MIME encoded-words in header fields.
-<p>
-If <var>code-conversion</var> is <code>nil</code>, it decodes only
-encoded-words.  If it is mime-charset, it decodes non-ASCII bit
-patterns as the mime-charset.  Otherwise it decodes non-ASCII bit
-patterns as the default-mime-charset.
-<p>
-If <var>separator</var> is not nil, it is used as header separator.
-</defun>
-
-<defun name="eword-encode-header">
-	      <opts> code-conversion
-<p>
-Encode header fields to network representation, such as MIME
-encoded-word.
-<p>
-It refer variable <code>eword-field-encoding-method-alist</code>.
-</defun>
-
-
-<h1> $B0lHL@_Dj(B
-<node> custom
-<p>
-<define type="group" name="mime">
-<p>
-MIME $B4XO"5!G=$K4X$9$k(B group.
-<p>
-<code>mail</code> $B$H(B <code>news</code> $B$KB0$9$k!#(B
-</define>
-
-<defvar name="default-mime-charset">
-<p>
-$BE,@Z$J(B <dref>MIME charset</dref> $B$,8+$D$+$i$J$+$C$?>l9g$KMQ$$$i$l$k(B
-MIME charset.
-<p>
-$BK\Mh$O(B APEL $B$NJQ?t$G$"$k!#(B
-</defvar>
-
-<defvar name="mime-temp-directory">
-<p>
-MIME $B5!G=$K4X$9$k<BAu$,0l;~E*$K;HMQ$9$k(B file $B$r:n@.$9$k(B directory.
-<p>
-$B4D6-JQ?t(B <code>MIME_TMP_DIR</code>, <code>TM_TMP_DIR</code>,
-<code>TMPDIR</code>, <code>TMP</code> $B$b$7$/$O(B <code>TEMP</code> $B$,@_Dj(B
-$B$5$l$F$$$?>l9g!"$=$l$r=i4|CM$H$7$FMQ$$$k!#2?$b@_Dj$5$l$F$$$J$$>l9g!"(B
-<code>"/tmp/"</code> $B$rMQ$$$k!#(B
-</defvar>
-
-
-<h1> $BIUO?(B
-<node> Appendix
-
-<h2> $BMQ8l(B
-<node> Glossary
-
-<h3> 7bit
-<node> 7bit
-<p>
-$B$3$3$G$O(B 0 $B$+$i(B 127 $B$N@0?t$r;X$9!#(B
-<p>
-0 $B$+$i(B 127 $B$N@0?t$NNs$GI=8=$G$-$k$h$&$J(B data $B$r(B ``7bit $B$N(B data'' $B$H8F(B
-$B$V!#(B
-<p>
-$B$^$?!"(B0 $B$+$i(B 31 $B$*$h$S(B 127 $B$GI=8=$5$l$k@)8fJ8;z$H(B 32 $B$GI=8=$5$l$k6uGr(B
-$B$H(B 33 $B$+$i(B 126 $B$GI=8=$5$l$k?^7AJ8;z$+$i$J$kJ8;zNs$N$3$H$r(B ``7bit $B$NJ8(B
-$B;zNs(B'' $B$H8F$V!J$3$l$O(B <dref>ISO 2022</dref> $B$N!V(B7 $BC10L7O!W$HF1MM!K!#(B
-<p>
-$BEAE}E*$J(B Internet $B$N(B <dref>MTA</dref> $B$O(B 7bit $B$N(B data $B$rE>Aw$G$-$k$N$G!"(B
-7bit $B$N(B data $B$O(B <dref>Quoted-Printable</dref> $B$d(B <dref>Base64</dref> 
-$B$H$$$C$?JQ49$r9T$o$J$/$F$b$=$N$^$^E>Aw$G$-$k!#(B
-<p>
-$B$7$+$7!"(B7bit $B$G$"$l$P$I$s$J(B data $B$G$bNI$$$H$O$$$($J$$!#$J$<$J$i!"#19T(B
-$B$ND9$5$,$"$^$j$KD9$$$H!"(BMTA $B$O$=$N(B message $B$rE>Aw$9$k$3$H$,$G$-$J$$$+(B
-$B$i$G$"$k!#$A$J$_$K!"(B<dref>RFC 821</dref> $B$O#19T$O2~9TJ8;z$r=|$$$F(B 998
-byte $B0JFb$G$"$k$3$H$r5a$a$F$$$k!#$h$C$F!"$3$l0J>e$N9T$,4^$^$l$k2DG=@-(B
-$B$N$"$k(B data, $BNc$($P!"(BPostscript $B$N(B data $B$J$I$O(B Quoted-Printable $BEy$G(B 
-encode$B$9$kI,MQ$,$"$k!#(B
-
-
-<h3> 8bit
-<node> 8bit
-<p>
-$B$3$3$G$O(B 0 $B$+$i(B 255 $B$N@0?t$r;X$9!#(B
-<p>
-0 $B$+$i(B 255 $B$N@0?t$NNs$GI=8=$G$-$k$h$&$J(B data $B$r(B ``8bit $B$N(B data'' $B$H8F(B
-$B$V!#(B
-<p>
-$B$^$?!"(B0 $B$+$i(B 31, 127 $B$*$h$S(B 128 $B$+$i(B 159 $B$GI=8=$5$l$k@)8fJ8;z$H(B 32 $B$G(B
-$BI=8=$5$l$k6uGr$H(B 33 $B$+$i(B 126 $B$H(B 160 $B$+$i(B 255 $B$GI=8=$5$l$k?^7AJ8;z$+$i(B
-$B$J$kJ8;zNs$N$3$H$r(B ``8bit $B$NJ8;zNs(B'' $B$H8F$V!J$3$l$O(B <dref>ISO
-2022</dref> $B$N!V(B8 $BC10L7O!W$HF1MM!K!#(B
-<p>
-<dref>iso-8859-1</dref> $B$d(B <dref>euc-kr</dref> $B$H$$$C$?Id9f2=J8;z=89g(B
-$B$O(B 8bit $B$NJ8;zNs$G$"$k!#(B
-<p>
-$BEAE}E*$J(B Internet $B$N(B <dref>MTA</dref> $B$O(B <dref>7bit</dref> $B$N(B data $B$7(B
-$B$+E>Aw$G$-$J$$$N$G!"$=$&$7$?(B MTA $B$r7PM3$9$k>l9g!"(B
-<dref>Quoted-Printable</dref> $B$d(B <dref>Base64</dref> $B$H$$$C$?JQ49$r9T(B
-$B$o$J$/$F$O$J$i$J$$!#(B
-<p>
-$B$7$+$7!":G6a$G$O(B 8bit $B$NJ8;zNs$r$=$N$^$^DL$9$3$H$,$G$-$k(B MTA $B$bEP>l$7(B
-$B$F$-$?$N$G!"$=$N$^$^Aw$k$3$H$,$G$-$k>l9g$bA}$($F$-$?!#(B
-<p>
-$B$7$+$7!"(B8bit $B$G$"$l$P$I$s$J(B data $B$G$bNI$$$H$O$$$($J$$!#$J$<$J$i!"#19T(B
-$B$ND9$5$,$"$^$j$KD9$$$H!"(BMTA $B$O$=$N(B message $B$rE>Aw$9$k$3$H$,$G$-$J$$$+(B
-$B$i$G$"$k!#$A$J$_$K!"(B<dref>RFC 821</dref> $B$O#19T$O2~9TJ8;z$r=|$$$F(B 998
-byte $B0JFb$G$"$k$3$H$r5a$a$F$$$k!#$h$C$F!"$3$l0J>e$N9T$,4^$^$l$k2DG=@-(B
-$B$N$"$k(B data, $BNc$($P!"(BPostscript $B$N(B data $B$J$I$O(B Quoted-Printable $BEy$G(B 
-encode$B$9$kI,MQ$,$"$k!#(B
-<p>
-$B$^$?!"$3$&$7$?M}M3$+$i!"#19T$,(B 999 byte $B0J>e$N9T$,B8:_$9$k2DG=@-$N$"$k(B
-data $B$O(B <a node="binary"><concept>binary</concept></a> $B$H8F$V$3$H$K$9(B
-$B$k!#(B
-<p>
-$B$A$J$_$K!"(B7bit $B$GI=8=$G$-$k(B data $B$O(B 8bit $B$G$bI=8=$G$-$k!#$h$C$F!"(B
-``8bit'' $B$H8@$C$?>l9g!"#19T$,(B 998 byte $B0J2<$NG$0U$N(B data $B$r;X$9$3$H$,(B
-$B$"$k!#(B
-
-
-<h3> ASCII
-<node> ASCII
-<p>
-$B%"%a%j%+O"K.$G;H$o$l$kJ8;z$rId9f2=$7$?(B<dref>$BId9f2=J8;z=89g(B</dref>$B!#(B
-A-Z, a-z $B$N(B Latin $BJ8;z$H?t;z!"4v$D$+$N5-9f$+$i$J$k!#(BISO 646 $B$N0l$D$G!"(B
-$B8=:_$O9q:]4p=`HG(B (IRV) $B$K$J$C$F$$$k!#(B
-
-<standard abbrev="ASCII" title-en="Coded Character Set -- 7-Bit
-	      American Standard Code for Information Interchange"
-	      number="ANSI X3.4" year="1986">
-
-
-<h3> Base64
-<node> Base64
-<p>
-<dref>RFC 2045</dref> $B$GDj5A$5$l$F$$$k(B <dref>MIME</dref> $B$K$*$1$k(B <a
-node="binary">binary data</a> $B$N(B network $B$G$NJQ49K!$N#1$D!#(B
-<p>
-$B!X(B64 $B?J?t!Y$H$$$&0UL#$G!"(B3 byte $B$N(B data $B$r(B 0 $B$+$i(B 63 $B$N?t$rI=$9(B 
-<dref>ASCII</dref> 4 $BJ8;z$KJQ49$9$kJ}K!!#!J$b$7!"(B4 $BJ8;z$K$J$i$J$1$l$P(B 
-<concept>pad</concept> $B$H8F$P$l$k5M$aJ*$r$7$FD9$5$rD4@0$9$k!K(B
-<p>
-$B$3$N(B 65 $B<oN`$NJ8;z$O(B ASCII $B$H(B EBCDIC $B$N6&DLItJ,$+$iA*$P$l$F$*$j!"(B
-Internet $B0J30$N(B network $B$r7PM3$9$k>l9g$G$b0BA4$KE>Aw$G$-$k$h$&$K@_7W$5(B
-$B$l$F$$$k!#(B
-
-
-<h3> binary
-<node> binary
-<p>
-$BG$0U$N(B byte $BNs$r(B <concept>binary</concept> $B$H8F$V!#(B
-<p>
-<dref>8bit</dref> $B$H0[$J$k$N$O(B data $B$K9T$N9=B$$r2>Dj$7$J$$$3$H$G$"$k!#(B
-<p>
-$B$^$?!"9T$N9=B$$,$"$C$F$b!"(B999 byte $B0J>e$+$i$J$k9T$,$"$k>l9g$b(B binary 
-$B$H8F$V$3$H$K$9$k!#(B
-<p>
-$B$A$J$_$K!"(B<dref>7bit</dref> $B$d(B 8bit $B$GI=8=$G$-$k(B data $B$O(B binary $B$G$bI=(B
-$B8=$G$-$k!#$h$C$F!"(B<concept>binary data</concept> $B$H8@$C$?>l9g!"G$0U$N(B 
-data $B$r;X$9$3$H$,$"$k!#(B
-
-
-<h3> Coded character set$B!JId9f2=J8;z=89g!K(B, Character code$B!JJ8;zId9f!K(B
-<node> Coded character set
-<p>
-$BJ8;z$H(B byte $BNs$H#1BP#1$KBP1~IU$1$k[#Kf$G$J$$5,B'$N=89g!#(B
-
-
-<h3> media-type
-<node> media-type
-<p>
-<dref>MIME</dref> $B$K$*$1$k(B <dref>entity</dref> $B$N<oN`!#(B
-<concept>primary-type</concept> $B$H(B <concept>subtype</concept> $B$+$i$J$k!#(B
-<dref>RFC 2046</dref> $B$GDj5A$5$l$F$$$k!#(B
-<p>
-primary-type $B$OI8=`$G$O(B
-
-<ul>
-<li><concept>text</concept>
-</li>
-<li><concept>image</concept>
-</li>
-<li><concept>audio</concept>
-</li>
-<li><concept>video</concept>
-</li>
-<li><concept>application</concept>
-</li>
-<li><a node="multipart"><concept>multipart</concept></a>
-</li>
-<li><concept>message</concept>
-</ul>
-
-<noindent>
-$B$,Dj5A$5$l!"$=$l$>$l$K$O(B application/octet-stream, audio/basic,
-image/jpeg, <dref>multipart/mixed</dref>, <dref>text/plain</dref>,
-video/mpeg $B$J$I$N$5$^$6$^$J(B subtype $B$,Dj5A$5$l$F$$$k!#(B
-
-<memo title="$BCm0U(B">
-<p>
-$B$3$3$G$O!"(Btext/plain $B$J$I$N(B type/subtype $B$NAH$r$7$P$7$P(B 
-<concept>primary-type/subtype</concept> $B$H=q$/!#(B
-</memo>
-
-<p>
-media-type $B$O!"(BRFC 2046 $B$GDj5A$5$l$F$$$k$b$N$K2C$($F!"EPO?$9$k$3$H$b$G(B
-$B$-$k!#8=:_!"EPO?$5$l$F$$$k$b$N$O(B <a
-href="ftp://ftp.isi.edu/in-notes/iana/assignments/media-types">MEDIA
-TYPES</a> $B$G;2>H$G$-$k!#(B
-<p>
-$B$^$?!"(Btype $B$b$7$/$O(B subtype $B$K!"A0$K(B `x-' $B$rIU$1$?(B 
-<concept>x-token</concept> $B$rMQ$$$k$3$H$K$h$j!"EPO?$5$l$F$$$J$$$b$N$r(B
-$B;dE*$KMQ$$$k$3$H$b$G$-$k!#$7$+$7!"EvA3$N$3$H$J$,$i!"$3$&$7$?;dE*$J(B 
-media-type $B$ONJ2r$rF@$?<T$N4V$G$7$+2r<a$G$-$J$$$N$GMxMQ$K$OCm0U$9$k$3(B
-$B$H!#(B
-<p>
-<cf node="Content-Type">
-
-
-<h3> message
-<node> message
-<p>
-$B$3$3$G$O(B mail $B$H(B news $B5-;v$NAm>N$H$7$FMQ$$$k!#(B
-
-
-<h3> MIME
-<node> MIME
-<p>
-<concept>Multipurpose Internet Mail Extensions</concept> $B$NN,$G!"(B
-Internet $B$N(B mail $B$d(B news $B$G(B <a node="us-ascii">us-ascii plain text</a> 
-$B0J30$NJ8;z$r;H$&$?$a$N(B <dref>RFC 822</dref> $B$KBP$9$k3HD%!#(B
-<p>
-RFC 2045 $B$OKAF,$G<!$N$h$&$K=R$Y$F$$$k!'(B
-<p>
-STD 11, RFC 822 $B$O!"(BUS-ASCII message header $B$K4X$7$FHs>o$K>\:Y$K5,Dj$7(B
-$B$?(B message $BI=8=(B protocol $B$rDj5A$7$F$$$k!#$7$+$7!"$=$l$OC1$K(B flat $B$J(B 
-US-ASCII text $B$N$_$KN1$^$j!"(Bmessage $B$NFbMF$d(B message body $B$K4X$9$k5,Dj(B
-$B$O$J$5$l$F$$$J$$!#(BMultipurpose Internet Mail Extensions, $B$"$k$$$O(B MIME 
-$B$HAm>N$5$l$k!"$3$N0lO"$NJ8=q$O!"0J2<$N;v$r2DG=$H$9$k$?$a$K(B message $B$N(B
-$B7A<0$r:FDj5A$7$?!'(B
-
-<ol>
-<li>$BJ8=q(B message body $B$K$*$1$k(B US-ASCII $B0J30$NJ8;z=89g(B
-</li>
-<li>$BHsJ8=q(B message body
-</li>
-<li>$BJ#?t$NItJ,$+$i$J$k(B message body
-</li>
-<li>US-ASCII $B0J30$NJ8;z=89g$+$i$J$kJ8=q(B header $B>pJs(B
-</ol>
-
-<p>
-<dref>RFC 2045</dref>, <dref>RFC 2046</dref>, <a
-node="encoded-word">RFC 2047</a>, <dref>RFC 2048</dref>, <dref>RFC
-2049</dref> $B$GDj5A$5$l$F$$$k!#(B
-
-
-<h3> MIME charset
-<node> MIME charset
-<p>
-<dref>Content-Type</dref> $BMs$d(B <dref>encoded-word</dref> $B$N(B charset
-parameter $B$GMQ$$$i$l$kEPO?$5$l$?(B<a node="Coded character set">$BId9f2=J8(B
-$B;z=89g(B</a>$B!#(B
-<p>
-<dref>RFC 2045</dref> $B$GDj5A$5$l$F$$$k!#(B
-<p>
-iso-2022-jp $B$d(B euc-kr $B$O$=$N#1$D!#(B
-
-
-<h3> MTA
-<node> MTA
-<p>
-<concept>Message Transfer Agent</concept> $B$NN,$G!"(Bqmail $B$d(B sendmail $B$J(B
-$B$I$N(B mail $BG[Aw(B program $B$H(B inn $B$J$I$N(B news server $B$NAm>N!#(B
-<p>
-<cf node="MUA">
-
-
-<h3> MUA
-<node> MUA
-<p>
-<concept>Message User Agent</concept> $B$NN,$G!"(Bmail reader $B$H(B news
-reader $B$NAm>N!#(B
-<p>
-<cf node="MTA">
-
-
-<h3> Quoted-Printable
-<node> Quoted-Printable
-<p>
-<dref>RFC 2045</dref> $B$GDj5A$5$l$F$$$k(B <dref>MIME</dref> $B$K$*$1$k(B 
-<dref>binary data</dref> $B$N(B network $B$G$NJQ49K!$N#1$D!#(B
-<p>
-`=' $B$d@)8fJ8;z$d(B 128 $B0J>e$NJ8;z$J$I$O(B `=AF' $B$N$h$&$K(B `=' $B$N8e$KB3$/(B 16 
-$B?J?t$GI=8=$9$k!#$3$N$?$a!"(B<dref>ASCII</dref> $BJ8;zCf?4$N(B data $B$G$O(B 
-<dref>Base64</dref> $B$KHf$Y$k$H2DFI@-$,9b$/$J$k2DG=@-$,$"$k!#(B
-<p>
-$B$7$+$7$J$,$i!"(BEBCDIC $B$K$OB8:_$7$J$$J8;z$rMxMQ$9$k>l9g!"(BEBCDIC $B$rMxMQ$7(B
-$B$F$$$k(B network $B$G$O0BA4$KE>Aw$9$k$3$H$,$G$-$:!"(BBase64 $B$KHf$Y$F0BA4@-$O(B
-$BDc$$!#(B
-
-
-<h3> RFC 822
-<node> RFC 822
-<p>
-Internet mail $B$N<g$K(B <concept>message header</concept> $B$K4X$9$k7A<0$K(B
-$B4X$9$kI8=`$rDj$a$F$$$k(B RFC.
-
-<memo>
-<p>
-news message $B$b$3$l$K=`$8$F$$$k$N$G!"(B<concept>Internet mail</concept> 
-$B$H=q$/$h$j$b!"(B<concept>Internet message</concept> $B$H=q$$$?J}$,NI$$$+$b(B
-$B$7$l$J$$!#(B
-</memo>
-
-<rfc number="822" type="STD 11" author="D. Crocker" title="Standard
-	      for the Format of ARPA Internet Text Messages"
-	      date="August 1982">
-
-
-<h3> RFC 1036
-<node> RFC 1036
-<p>
-USENET $B$G$N(B message $B$N7A<0$rDj$a$?(B RFC.  <dref>RFC 822</dref> $B$N(B 
-subset $B$K$J$C$F$$$k!#(BInternet $B$NI8=`$G$O$J$$$,!"(BUSENET $B0J30$N(B netnews 
-$B$G$b$3$l$K=`$8$F$$$k$b$N$,B?$$!#(B
-
-<rfc name="USENET" number="1036" author="M. Horton and R. Adams"
-	      title="Standard for Interchange of USENET Messages"
-	      date="December 1987" obsolete="850">
-
-
-<h3> RFC 2045
-<node> RFC 2045
-<p>
-<rfc number="2045" type="Standards Track" author="N. Freed and
-	      N. Borenstein" title="Multipurpose Internet Mail
-	      Extensions (MIME) Part One: Format of Internet Message
-	      Bodies" date="November 1996" obsolete="1521, 1522,
-	      1590">
-
-
-<h3> RFC 2046
-<node> RFC 2046
-<p>
-<rfc number="2046" type="Standards Track" author="N. Freed and
-	      N. Borenstein" title="Multipurpose Internet Mail
-                 Extensions (MIME) Part Two: Media Types"
-                 date="November 1996" obsolete="1521, 1522, 1590">
-
-
-<h3> RFC 2048
-<node> RFC 2048
-<p>
-<rfc number="2048" type="Standards Track" author="N. Freed, J. Klensin
-	      and J. Postel" title="Multipurpose Internet Mail
-	      Extensions (MIME) Part Four: Registration Procedures"
-	      date="November 1996" obsolete="1521, 1522, 1590">
-
-
-<h3> RFC 2049
-<node> RFC 2049
-<p>
-<rfc number="2049" type="Standards Track" author="N. Freed and
-	      N. Borenstein" title="Multipurpose Internet Mail
-	      Extensions (MIME) Part Five: Conformance Criteria and
-	      Examples" date="November 1996" obsolete="1521, 1522,
-	      1590">
-
-
-<h3> plain text
-<node> plain text
-<p>
-$B=qBN$dAHHG$K4X$9$k>pJs$r;}$?$J$$(B<a node="Coded character set">$BJ8;zId9f(B
-</a>$B$N$_$GI=8=$5$l$k(B text $B>pJs!#(B<cf node="text/plain">
-
-
-<h3> us-ascii
-<node> us-ascii
-<p>
-$B%"%a%j%+O"K.$J$I$G;H$o$l$k1Q8l$J$I$rI=8=$9$k$?$a$N(B <dref>MIME
-charset</dref> $B$N#1$D!#(B
-<p>
-<dref>ASCII</dref> $B$N$_$+$i$J$j(B ISO 2022 $B$K$h$kId9f3HD%$O5v$5$l$J$$!#(B
-<p>
-Internet message $B$K$*$1$kI8=`$N(B<a node="Coded character set">$BId9f2=J8(B
-$B;z=89g(B</a>$B$G$"$j!"L@<(E*$K(B MIME charset $B$,<($5$l$J$$>l9g$O86B'$H$7$F(B 
-<concept>us-ascii</concept> $B$,;H$o$l$k!#(B
-<p>
-$B$^$?!"(B<dref>RFC 822</dref> $B$K$*$1$k(B <concept>ASCII</concept> 
-$B$O(B us-ascii $B$G$"$k!#(B
-
-
-<h2> bug $BJs9p$N;EJ}(B
-<node> Bug report
-<p>
-FLIM $B$N%P%0$r8+$D$1$?$i!"0J2<$N(B address $B$K(B mail $B$rAw$C$F$/$@$5$$!'(B
-
-<ul>
-<li> $BF|K\8l(B <mail>bug-tm-ja@chamonix.jaist.ac.jp</mail>
-<li> $B1Q8l(B <mail>bug-tm-en@chamonix.jaist.ac.jp</mail>
-</ul>
-
-<p>
-$BC"$7!"$"$^$j$K$b8E$$HG$K4X$9$kJs9p$O4?7^$5$l$^$;$s!#8E$$HG$N(B bug $B$O!"(B
-$B?7$7$$HG$G$O<#$C$F$$$k$+$b$7$l$^$;$s!#$^$:!":G?7HG$G3NG'$7$F$_$^$7$g$&!#(B
-<p>
-$B$=$l$+$i!"E,@Z$JJs9p$r$7$^$7$g$&!#C1$K!V$&$^$/F0$+$J$$!W$H8@$o$l$F$b$I(B
-$B$&$$$&>u67$J$N$+$O$5$C$Q$jH=$j$^$;$s!#:GDc8B!"(BOS, emacs, APEL, FLIM,
-SEMI, $B;H$C$F$$$k(B MUA $B$N<oN`$*$h$SHG!"@_Dj$r=q$/I,MW$,$"$j$^$9!#$^$?!"(B
-error $B$,5/$C$F$$$k>l9g$O(B backtrace $B$rAw$k$3$H$b=EMW$G$9!#(B<cf
-file="emacs" node="Bugs">
-<p>
-$B$^$?!"(Bbug $B$OBgDqJ#?t$N?M$,Ax6x$9$k$b$N$G$9!J$=$&$G$J$1$l$P!"(Bbug $B$G$O$J(B
-$B$$2DG=@-$,$"$j$^$9!K!#$@$+$i!":n<T$KD>@\(B mail $B$rAw$k$H:n<T$OF1$8(B mail
-$B$r2?DL$b=q$/1)L\$K$J$j$^$9!#$@$+$i!"I,$:(B bug $BJs9p$O>e5-$N(B address $B$KAw$C(B
-$B$F$/$@$5$$!#(B
-
-<p>
-tm ML $B$G$O(B FLIM $B$N%P%0>pJs$N8r49$d:G?7HG$NG[I[!"(BFLIM $B$N2~NI$K4X$9$k5D(B
-$BO@$r9T$J$C$F$$$^$9!#(Btm ML $B$K;22C$7$?$$J}$O(B
-
-<ul>
-<li> $BF|K\8l(B <mail>tm-ja-help@chamonix.jaist.ac.jp</mail>
-<li> $B1Q8l(B <mail>tm-en-help@chamonix.jaist.ac.jp</mail>
-</ul>
-
-<noindent>
-$B$K6u$N(B mail $B$rAw$C$F2<$5$$!#(B
-
-
-<h2> CVS $B$K$h$k3+H/(B
-<node> CVS
-<p>
-FLIM $B$N(B file $B$O(B CVS $B$r;H$C$F4IM}$5$l$F$$$^$9!#$3$N$?$a!"0J2<$NJ}K!$G:G(B
-$B?7$N(B FLIM $B$rF~<j$9$k$3$H$,$G$-$^$9!'(B
-
-<verb>
-(0) cvs login
-
-    % cvs -d :pserver:anonymous@chamonix.jaist.ac.jp:/hare/cvs/root \
-	login
-
-    CVS password: [CR] # NULL string
-
-(1) checkout
-
-    % cvs -d :pserver:anonymous@chamonix.jaist.ac.jp:/hare/cvs/root \
-	checkout [-r TAG] flim
-</verb>
-
-<p>
-CVS $B$rMQ$$$?3+H/$K;22C$7$?$$J}$O(B
-
-<ul>
-<li> <mail>cvs@chamonix.jaist.ac.jp</mail>
-</ul>
-
-<noindent>
-$B$^$G!"(Baccount $BL>$H(B UNIX $B$N(B passwd $B$HF1$87A<0$N(B crypt $B2=$5$l$?(B password
-$B$r1h$($F8fO"Mm$/$@$5$$!#(B
-
-
-<h2> $BNr;K(B
-<node> History
-<p>
-FLIM $B$N(B code $B$N:G8E$NItJ,$O(B $B1]JB(B $B;LCR(B $B;a$,=q$$$?(B <file>mime.el</file>
-$B$K5/8;$7$^$9!#$3$N>.$5$J(B program $B$O(B Nemacs $B$GF0:n$9$k(B iso-2022-jp $B$N(B 
-B-encoding $B@lMQ$N(B encoded-word $B$NI|9f2=%W%m%0%i%`$G$7$?!#(B
-<p>
-$B$=$N8e!"<i2,(B $BCNI'(B $B$O(B <file>mime.el</file> $B$r85$K(B
-<file>tiny-mime.el</file> $B$H$$$&%W%m%0%i%`$r=q$-$^$9!#$3$l$O!"(BNemacs 
-$B$H(B Mule $B$GF0:n$9$k(B encoded-word $B$NId9f2=!&I|9f2=%W%m%0%i%`$G$7$?!#(B
-<file>tiny-mime.el</file> $B$O(B B-encoding $B$@$1$G$J$/(B Q-encoding $B$b(B
-support $B$7!"$^$?!"(BMULE $B$G07$&$3$H$,$G$-$k$5$^$6$^$J(B <dref>MIME
-charset</dref> $B$rF1;~$K;H$&$3$H$,$G$-$^$7$?!#$3$N;~!"(BNemacs $B$H(B Mule $B$N(B
-$BAPJ}$r(B support $B$9$k$?$a$KMQ$$$i$l$?%F%/%K%C%/$O8e$K(B emu package $B$K$^$H(B
-$B$a$i$l$^$9!#(B
-<p>
-$B$3$N:"!"<i2,(B $BCNI'(B $B$O(B <file>tiny-mime.el</file> $B$r$5$^$6$^$J(B MUA $B$G;H$&(B
-$B$?$a$N@_Dj=8$bG[I[$7$F$$$^$7$?$,!"$=$l$i$O8e$K(B
-<file>tiny-mime.el</file> $B$H$H$b$K#1$D$N(B package $B$K$^$H$a$i$l!"(Btm $B$H$$(B
-$B$&L>A0$GG[I[$5$l$^$9!#(B
-<p>
-$B<i2,(B $BCNI'(B $B$O$d$,$F!"(BMIME message $B$r1\Mw$9$k$?$a$N%W%m%0%i%`$G$"$k(B
-<file>tm-body.el</file> $B$r=q$-$^$9!#$3$l$O!"$9$0$K(B
-<file>tm-view.el</file> $B$H$$$&L>A0$KJQ$o$j$^$7$?$,!"$d$,$F!"$3$l$,(B
-<file>tiny-mime.el</file> $B$KBe$o$C$F!"(Btm $B$NCf3K$H$J$j$^$9!#(B
-<p>
-<file>tm-view.el</file> $B$OEvA3!"(BContent-Transfer-Encoding $B$r07$&I,MW$,(B
-$B$"$j$^$9!#$3$NL\E*$N$?$a$K!"(BMEL $B$,@0Hw$5$l$O$8$a$^$7$?!#(BBase64 $B$K4X$7(B
-$B$F$O(B <file>tiny-mime.el</file> $B$N(B code $B$,0\$5$l!"$^$?!"?7$?$K(B
-Quoted-Printable $B$N(B code $B$,DI2C$5$l$^$7$?!#$3$l$i$,(B
-<file>mel-b.el</file> $B$H(B <file>mel-q.el</file> $B$K$J$j$^$7$?!#(B
-<p>
-$B$^$?!"8e$K!"<i2,(B $BCNI'(B $B$K$h$C$F(B uuencode $BMQ$N(B <file>mel-u.el</file> $B$,(B
-$BDI2C$5$l!"$=$N8e$K!">.NS(B $B=$J?(B $B;a$K$h$C$F(B x-gzip64 $BMQ$N(B
-<file>mel-g.el</file> $B$,DI2C$5$l$^$7$?!#(B
-<p>
-tm $B$G$O8e$K!"<i2,(B $BCNI'(B $B$K$h$C$F(B <file>tiny-mime.el</file> $B$N:F<BAu$,9T(B
-$B$o$l!"$3$N2aDx$G!"(BSTD 11 $B$N(B parser $B$,=q$+$l$^$7$?!#$3$l$O!"8=:_$N(B 
-<file>std11.el</file> $B$KEv$?$j$^$9!#$^$?!"$3$N2aDx$G(B 
-<file>tiny-mime.el</file> $B$OI|9f2=$r9T$&(B <file>tm-ew-d.el</file> $B$HId(B
-$B9f2=$r9T$&(B <file>tm-ew-e.el</file> $B$KJ,$1$i$l$^$7$?!#$3$NN><T$,8=:_$N(B 
-<file>eword-decode.el</file> $B$H(B <file>eword-encode.el</file> $B$N@hAD$K(B
-$BEv$?$j$^$9!#(B
-<p>
-$B8e$K!"<i2,(B $BCNI'(B $B$i$K$h$C$F(B tm $B$NA4LL=q$-49$(:n6H$,9T$o$l!"$3$N2aDx$G!"(B
-tm $B$O(B APEL, MEL, SEMI, EMH, RMAIL-MIME, Gnus-MIME $B$J$I$KJ,$1$i$l$^$7$?!#(B
-$B$3$N$&$A$N(B MEL $B$,(B FLIM $B$ND>@\$N@hAD$KEv$?$j$^$9!#(B
-<p>
-$B8e$K!"(BAPEL $B$+$i(B <file>std11.el</file> $B$,0\$5$l!"$^$?!"(B
-<file>mailcap.el</file>, <file>eword-decode.el</file> $B$*$h$S(B 
-<file>eword-encode.el</file> $B$,(B SEMI $B$+$i0\$5$l!"(Bpackage $B$NL>A0$,(B FLIM
-$B$H$J$j$^$9!#(B
-<p>
-$B$3$ND>A0$+$iEDCf(B $BE/(B $B;a$,$h$j(B RFC $B$KCi<B$J<BAu$r=q$-;O$a!"$3$l$O!"8=:_!"(B
-FLIM $B$N;^$G$"$k(B ``FLIM-FLAM'' $B$H$J$C$F$$$^$9!#(B
-
-
-<h1> $B35G0:w0z(B
-<node> Concept Index
-
-<cindex>
-
-
-<h1> $B4X?t:w0z(B
-<node> Function Index
-
-<findex>
-
-
-<h1> $BJQ?t:w0z(B
-<node> Variable Index
-
-<vindex>
-
-</body>
diff --git a/mime-ja.texi b/mime-ja.texi
deleted file mode 100644
index 7474bc2..0000000
--- a/mime-ja.texi
+++ /dev/null
@@ -1,1480 +0,0 @@
-\input texinfo.tex
-@setfilename mime-ja.info
-@settitle{FLIM 1.9 MIME $B5!G=@bL@=q(B}
-@titlepage
-@title FLIM 1.9 MIME $B5!G=@bL@=q(B
-@author $B<i2,(B $BCNI'(B <morioka@@jaist.ac.jp>
-@subtitle 1998/07/01
-@end titlepage
-@node Top, Introduction, (dir), (dir)
-@top FLIM 1.9 MIME $B5!G=@bL@=q(B
-
-@ifinfo
-
-This file documents MIME features of FLIM, a Internet message
-parsing/encoding library for GNU Emacs.@refill
-
-GNU Emacs $BMQ$N(B Internet Message $B$N2r@O$dId9f2=$K4X$9$k(B library $B$G$"$k(B 
-FLIM $B$N(B MIME $B5!G=$K4X$7$F@bL@$7$^$9!#(B
-@end ifinfo
-
-@menu
-* Introduction::                FLIM $B$C$F2?!)(B
-* How to use::                  FLIM $B$N(B MIME $B5!G=$N;H$$J}(B
-* Entity::                      Message $B$H(B Entity
-* Content-Type::                Content-Type $BMs$N>pJs(B
-* Content-Disposition::         Content-Disposition $BMs$N>pJs(B
-* Content-Transfer-Encoding::   $BId9f2=K!(B
-* encoded-word::                Header $B$N(B network $BI=8=(B
-* custom::                      $B0lHL@_Dj(B
-* Appendix::                    $BIUO?(B
-* Concept Index::               $B35G0:w0z(B
-* Function Index::              $B4X?t:w0z(B
-* Variable Index::              $BJQ?t:w0z(B
-@end menu
-
-@node Introduction, How to use, Top, Top
-@chapter FLIM $B$C$F2?!)(B
-
-FLIM $B$O(B Internet Message $B$NI=8=$dId9f2=$K4X$9$k4pACE*$J5!G=$rDs6!$9$k(B
-$B$?$a$N(B library $B$G$9!#(B
-
-
-@node How to use, Entity, Introduction, Top
-@chapter FLIM $B$N(B MIME $B5!G=$N;H$$J}(B
-
-FLIM $B$NDs6!$9$k(B MIME $B5!G=$r;H$&$?$a$K$O(B
-
-@lisp
-(require 'mime)
-@end lisp
-
-@noindent
-$B$rI>2A$7$F$/$@$5$$!#(B
-
-
-@node Entity, Content-Type, How to use, Top
-@chapter Message $B$H(B Entity
-@cindex node-id
-@cindex entity-number
-@cindex mime-entity
-@cindex entity
-
-RFC 2045 (@ref{RFC 2045}) $B$K$h$l$P!"!V(BEntity $B$H$$$&8l$O!"(Bmessage, $B$b$7$/(B
-$B$O!"(Bmultipart entity $B$N(B body $BCf$N#1$D$NItJ,$N!"(BMIME $B$GDj5A$5$l$?(B header
-field $B$HFbMF$r;X$9!W$H$J$C$F$$$^$9!#$3$3$G$O!"(BMIME $B$GDj5A$5$l$?(B header
-field $B0J30$NA4$F$N(B header $B$H(B body $B$r;X$98l$H$7$F(B @strong{entity}$B$rMQ$$$k(B
-$B$3$H$K$7$^$9!#(B@refill
-
-RFC 2045 $B$NDj5A$O!"(BMIME message $B$,(B entity $B$rC10L$H$9$kLZ9=B$$G$"$k$3$H$r(B
-$B<($7$F$$$^$9!#(Bmessage $B$O2<?^$G<($9$h$&$JLZ$H$J$j!"(Bentity $B$O$3$NLZ$K$*$1(B
-$B$k@a$H$J$j$^$9!#$D$^$j!"(BMIME $B$O(B message $B$rLZ9=B$$K3HD%$7$?Lu$G$9!#(B
-@refill
-
-FLIM $B$O(B entity $B$N>pJs$rI=8=$9$k$?$a$K(B@strong{mime-entity} $B9=B$BN$rMQ$$$^(B
-$B$9!#0J2<$G$OC1$K(B mime-entity $B$H8F$V$3$H$K$7$^$9!#(B@refill
-
-$BA0=R$N$h$&$K!"(Bmessage $BCf$N3F(B entity $B$OLZ$N@a$KEv$?$j$^$9$,!"$3$NLZ$K$O(B
-$B?<$5$HF1$8?<$5$NCf$N=gHV$K=>$C$FHV9f$,IU$1$k$3$H$,$G$-$^$9!#B($A!"(B
-@example
-
-                              $B(#(!(!(!($(B
-                              $B("(B  nil $B("(B
-                              $B(&(!(((!(%(B
-              $B(#(!(!(!(!(!(!(!(!(!(+(!(!(!(!(!(!(!(!(!($(B
-            $B(#(*($(B              $B(#(*($(B              $B(#(*($(B
-            $B("#0("(B              $B("#1("(B              $B("#2("(B
-            $B(&(((%(B              $B(&(((%(B              $B(&(((%(B
-              $B("(B        $B(#(!(!(!(!(+(!(!(!(!($(B        $B("(B
-          $B(#(!(*(!($(#(!(*(!($(#(!(*(!($(#(!(*(!($(#(!(*(!($(B
-          $B("(B $B#0(B.$B#0("("(B $B#1(B.$B#0("("(B $B#1(B.$B#1("("(B $B#1(B.$B#2("("(B $B#2(B.$B#0("(B
-          $B(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(B
-@end example
-
-@noindent
-$B$N$h$&$K?<$5(B n $B$N@a$K$OD9$5(B n $B$N@0?tNs$N@aHV9f$,?6$l$^$9!#$3$l(B
-$B$r(B @strong{entity-number} $B$H8F$S$^$9!#(Bentity-number $B$O(B S $B<0$H(B
-$B$7$F$O(B @code{(1 2 3)} $B$N$h$&$J@0?t$N%j%9%H$H$7$FI=8=$5$l$^$9!#(B
-
-mime-entity $B$G$O!"$3$l$HF1MM$N(B @strong{node-id} $B$rMQ$$$^$9!#(Bnode-id $B$O$A$g(B
-$B$&$I(B entity-number $B$r5U$K$7$?%j%9%H$G!"(Bentity-number 1.2.3 $B$KBP1~$9$k(B 
-node-id $B$O(B @code{(3 2 1)} $B$G$9!#(B@refill
-
-$BA0=R$N$h$&$K!"(BMIME message $B$O(B entity $B$rC10L$H$7$?LZ9=B$$K$J$C$F$$$k$N$G!"(B
-$B$3$N:,$G$"$k(B message $BA4BN$b(B mime-entity $B$GI=8=$9$k$3$H$,$G$-!"(Bbuffer
-local $BJQ?t(B @code{mime-message-structure} $B$K3JG<$9$k$3$H$K$7$^$9!#(B
-$B$=$7$F!"(Bentity-number $B$d(B node-id $B$rMQ$$$k$3$H$G(B 
-@code{mime-message-structure} $B$K$*$1$k(B entity $B$NAjBPE*$J0LCV4X78$r(B
-$B07$&$3$H$,$G$-$^$9!#(B
-
-
-@menu
-* Entity creation::             Entity $B$N@8@.(B
-* Entity hierarchy::            Entity $B3,AX(B
-* Entity Attributes::           Entity $B$NB0@-(B
-* Entity-header::               Entity header $B$N>pJs(B
-* Entity-content::              Entity $B$NFbMF(B
-* Entity buffer::               Entity $B$N(B buffer $B$K$h$kI=8=(B
-* mm-backend::                  Entity $B$NI=8=$H<B8=(B
-@end menu
-
-@node Entity creation, Entity hierarchy, Entity, Entity
-@section Entity $B$N@8@.(B
-
-@defun mime-open-entity &optional  type location
-
-Open an entity and return it.@refill
-
-@var{type} is representation-type. (cf. @ref{mm-backend}) @refill
-
-@var{location} is location of entity.  Specification of it is depended
-on representation-type.
-@end defun
-
-
-@defun mime-parse-buffer &optional  buffer type
-
-@var{buffer} $B$r(B message $B$H$7$F9=J82r@O$7!"$=$N7k2L$N(B mime-entity $B$r(B 
-@var{buffer} $B$N(B@code{mime-message-structure} $B$K3JG<$9$k!#(B@refill
-
-@var{buffer} $B$,>JN,$5$l$?>l9g!"8=:_$N(B buffer $B$r9=J82r@O$9$k!#(B@refill
-
-@var{type} $B$,;XDj$5$l$?>l9g!"$=$NCM$r@8@.$5$l$k(B mime-entity $B$NI=>]7?$H$7(B
-$B$FMQ$$$k!#>JN,$5$l$?>l9g$O(B @var{buffer} $B$H$J$k!#(B(cf. @ref{mm-backend})
-@end defun
-
-
-
-@node Entity hierarchy, Entity Attributes, Entity creation, Entity
-@section Entity $B3,AX(B
-
-@defvar mime-message-structure
-
-$B8=:_$N(B buffer $B$K$*$1$k(B message $BA4BN$N(B mime-entity $B9=B$BN$r3JG<$9$k(Bbuffer
-local $BJQ?t!#(B
-@end defvar
-
-
-@defun mime-entity-children entity
-
-@var{entity} $B$K4^$^$l$k(B entity $B$N(B list $B$rJV$9!#(B
-@end defun
-
-
-@defun mime-entity-parent entity  &optional  message
-
-@var{entity} $B$N?F$N(B entity $B$rJV$9!#(B@refill
-
-@var{message} $B$,;XDj$5$l$?>l9g!"$3$l$r:,$H8+Jo$9!#(B
-@end defun
-
-
-@defun mime-root-entity-p entity
-
-@var{entity} $B$,:,!JB($A!"(Bmessage $BA4BN!K$G$"$k>l9g$K!"Hs(B-@code{nil} $B$rJV(B
-$B$9!#(B
-@end defun
-
-
-@defun mime-entity-node-id entity
-
-@var{entity} $B$N(B node-id $B$rJV$9!#(B
-@end defun
-
-
-@defun mime-entity-number entity
-
-@var{entity} $B$N(B entity-number $B$rJV$9!#(B
-@end defun
-
-
-@defun mime-find-entity-from-number entity-number  &optional  message
-
-Return entity from @var{entity-number} in @var{message}.@refill
-
-If @var{message} is not specified, @code{mime-message-structure} is
-used.
-@end defun
-
-
-@defun mime-find-entity-from-node-id entity-node-id  &optional  message
-
-Return entity from @var{entity-node-id} in @var{message}.@refill
-
-If @var{message} is not specified, @code{mime-message-structure} is
-used.
-@end defun
-
-
-
-@node Entity Attributes, Entity-header, Entity hierarchy, Entity
-@section Entity $B$NB0@-(B
-
-@defun mime-entity-content-type entity
-
-@var{entity} $B$N(B content-type $B$rJV$9!#(B(cf. @ref{mime-content-type})
-@end defun
-
-
-@defun mime-entity-content-disposition entity
-
-@var{entity} $B$N(B content-disposition $B$rJV$9!#(B
-(cf. @ref{mime-content-disposition})
-@end defun
-
-
-@defun mime-entity-filename entity
-
-@var{entity} $B$N(B file $BL>$rJV$9!#(B
-@end defun
-
-
-@defun mime-entity-encoding entity  &optional  default-encoding
-
-@var{entity} $B$N(B content-transfer-encoding $B$rJV$9!#(B
-(cf. @ref{Content-Transfer-Encoding}) @refill
-
-$B$b$7!"(B@var{entity} $B$K(B Content-Transfer-Encoding $BMs$,B8:_$7$J$$>l9g$O!"(B
-@var{default-encoding} $B$rJV$9!#$3$l$,;XDj$5$l$J$$>l9g$O!"(B@code{"7bit"} 
-$B$rMQ$$$k!#(B
-@end defun
-
-
-@defun mime-entity-cooked-p entity
-
-Return non-nil if contents of @var{entity} has been already
-code-converted.
-@end defun
-
-
-
-@node Entity-header, Entity-content, Entity Attributes, Entity
-@section Entity header $B$N>pJs(B
-
-@defun mime-fetch-field field-name  &optional  entity
-
-@var{entity} $B$N(B header $BCf$N(B @var{field-name} $BMs$N(B body $B$rJV$9!#(B@refill
-
-$B7k2L$NJ8;zNs$O(B network $BI=8=$N$^$^$G$"$k!#(B@refill
-
-@var{entity} $B$,>JN,$5$l$?>l9g$O!"(B@code{mime-message-structure} $B$NCM$rMQ(B
-$B$$$k!#(B@refill
-
-@var{field-name} $BMs$,B8:_$7$J$$>l9g$O(B @code{nil} $B$rJV$9!#(B
-@end defun
-
-
-@defun mime-read-field field-name  &optional  entity
-
-@var{entity} $B$N(B header $BCf$N(B @var{field-name} $BMs$r9=J82r@O$7$?7k2L$rJV$9!#(B
-@refill
-
-$B7k2L$N7A<0$OMsKh$K0[$J$k!#Hs9=B$2=Ms$N>l9g$OJ8;zNs$rJV$7!"9=B$2=Ms$N>l9g(B
-$B$O$=$N7A<0$K=>$C$?(B list $B$rJV$9!#(B@refill
-
-$B7k2LCf$NJ8;zNs$O(B Emacs $B$NFbItI=8=$KJQ49$5$l$k!#(B@refill
-
-@var{entity} $B$,>JN,$5$l$?>l9g$O!"(B@code{mime-message-structure} $B$NCM$rMQ(B
-$B$$$k!#(B@refill
-
-@var{field-name} $BMs$,B8:_$7$J$$>l9g$O(B nil $B$rJV$9!#(B
-@end defun
-
-
-@defun mime-insert-decoded-header entity  &optional  invisible-fields visible-fields
-
-$B8=:_0LCV$K(B @var{entity} $B$NI|9f$7$?(B header $B$rA^F~$9$k!#(B@refill
-
-@var{invisible-fields} $B$H(B @var{visible-fields} $B$O@55,I=8=$N(Blist $B$G!"$=$l(B
-$B$>$l!"I=<($7$?$/$J$$(B field $BL>$HI=<($7$?$$MsL>$rI=8=$7$?$b$N$G$"$k!#(B
-@refill
-
-@var{invisible-fields} $B$NMWAG$N$I$l$+$K(B match $B$7!"$+$D!"(B
-@var{visible-fields} $B$NMWAG$N$I$l$K$b(B match $B$7$J$$Ms$OI=<($5$l$J$$!#(B
-@end defun
-
-
-
-@node Entity-content, Entity buffer, Entity-header, Entity
-@section Entity $B$NFbMF(B
-
-@defun mime-entity-content entity
-
-@var{entity} $B$NFbMF$N(B byte $BNs$rJV$9!#(B
-@end defun
-
-
-@defun mime-write-entity-content entity filename
-
-Write content of @var{entity} into @var{filename}.
-@end defun
-
-
-@defun mime-write-entity entity filename
-
-Write representation of @var{entity} into @var{filename}.
-@end defun
-
-
-@defun mime-write-entity-body entity filename
-
-Write body of @var{entity} into @var{filename}.
-@end defun
-
-
-
-@node Entity buffer, mm-backend, Entity-content, Entity
-@section Entity $B$N(B buffer $B$K$h$kI=8=(B
-
-@defun mime-entity-buffer entity
-
-@var{entity} $B$,B8:_$9$k(B buffer $B$rJV$9!#(B
-@end defun
-
-
-@defun mime-entity-point-min entity
-
-@var{entity} $B$,B8:_$9$k(B buffer $B$K$*$1$k!"(B@var{entity} $B$,@j$a$kNN0h$N@hF,(B
-$B0LCV$rJV$9!#(B
-@end defun
-
-
-@defun mime-entity-point-max entity
-
-@var{entity} $B$,B8:_$9$k(B buffer $B$K$*$1$k!"(B@var{entity} $B$,@j$a$kNN0h$NKvHx(B
-$B0LCV$rJV$9!#(B
-@end defun
-
-
-@defun mime-entity-header-start entity
-
-@var{entity} $B$,B8:_$9$k(B buffer $B$K$*$1$k!"(Bheader $B$,@j$a$kNN0h$N@hF,0LCV$r(B
-$BJV$9!#(B
-@end defun
-
-
-@defun mime-entity-header-end entity
-
-@var{entity} $B$,B8:_$9$k(B buffer $B$K$*$1$k!"(Bheader $B$,@j$a$kNN0h$NKvHx0LCV$r(B
-$BJV$9!#(B
-@end defun
-
-
-@defun mime-entity-body-start entity
-
-@var{entity} $B$,B8:_$9$k(B buffer $B$K$*$1$k!"(Bbody $B$,@j$a$kNN0h$N@hF,0LCV$rJV(B
-$B$9!#(B
-@end defun
-
-
-@defun mime-entity-body-end entity
-
-@var{entity} $B$,B8:_$9$k(B buffer $B$K$*$1$k!"(Bbody $B$,@j$a$kNN0h$NKvHx0LCV$rJV(B
-$B$9!#(B
-@end defun
-
-
-
-@node mm-backend,  , Entity buffer, Entity
-@section Entity $B$NI=8=$H<B8=(B
-@cindex mm-backend
-@cindex entity $B=hM}(B method
-@cindex representation-type
-
-Entity $B$OCj>]2=$5$l$?%G!<%?I=8=$G!"<B:]$N%G!<%?I=8=$H$7$F$OMQES$K1~$8$F(B
-$B$5$^$6$^$J$b$N$,MxMQ$G$-$k$h$&$K@_7W$5$l$F$$$^$9!#(B@refill
-
-$B$3$3$G!"(Bentity $B$,$I$&$$$&<oN`$NI=8=$r9T$C$F$$$k$+$r<($9$N$,(B
-@strong{representation-type} $B$G!"(Bentity $B$r@8@.$9$k;~$K$O$3$l$r;XDj$7$^$9!#(B
-(cf. @ref{Entity Creation}) @refill
-
-$BA0@a$^$G$K=R$Y$FMh$?(B entity $B$KBP$9$k=hM}$O!"(Bentity $B$KBP$7$F$=$N=hM}$r0M(B
-$BMj$9$k$3$H$K$h$C$F<B8=$5$l$F$$$^$9!#(BEntity $B$O<+J,$N(B representation-type 
-$B$rCN$C$F$*$j!"$=$N(B representation-type $B$K1~$8$F<B:]$N=hM}$r9T$&4X?t$r8F(B
-$B$S=P$7$^$9!#$3$N$h$&$J4X?t$r(B @strong{entity $B=hM}(Bmethod} $B$H8F$S$^$9!#$^$?!"(B
-representation-type $BKh$K$3$N$h$&$J4X?t$r$^$H$a$?$b$N$r(B 
-@strong{mm-backend} $B$H8F$S$^$9!#(B@refill
-
-mm-backend $B$O(B representation-type $B$NL>A0$N@hF,$K(B @code{mm} $B$H$$$&(B
-$B@\F,<-$rIU$1$?4X?tL>$+$i$J$k(B module $B$G!"$=$N(B module $BL>$OF1MM$K(B
-representation-type $B$NL>A0$N@hF,$K(B @code{mm} $B$rIU$1$?$b$N$K$J$C$F(B
-$B$$$^$9!#$3$N(B module $B$O(B representation-type $B$N(B entity $B$,:G=i$K@8@.$5$l$k(B
-$B;~$K<+F0E*$K(B require $B$5$l$^$9!#(B
-
-
-@menu
-* Request for entity::          Entity $B$X$NJX$j(B
-* mm-backend module::           mm-backend $B$N:n$jJ}(B
-@end menu
-
-@node Request for entity, mm-backend module, mm-backend, mm-backend
-@subsection Entity $B$X$NJX$j(B
-
-@defun mime-entity-send entity message  &rest  args
-
-@var{entity} $B$K(B @var{message} $B$rAw$k!#(B@refill
-
-@var{args} $B$O(B @var{message} $B$N0z?t$G$"$k!#(B
-@end defun
-
-
-
-@node mm-backend module,  , Request for entity, mm-backend
-@subsection mm-backend $B$N:n$jJ}(B
-
-$B!J$9$_$^$;$s!#$=$N$&$A=q$-$^$9(B (^_^;$B!K(B@refill
-
-$B!J$H$j$"$($:!"(Bmm*.el $B$r;29M$K$7$F$/$@$5$$!K(B
-
-
-@node Content-Type, Content-Disposition, Entity, Top
-@chapter Content-Type $BMs$N>pJs(B
-@cindex mime-content-type
-@cindex Content-Type $BMs(B
-
-@strong{Content-Type $BMs(B} $B$O(B media-type (@ref{media-type}) $B$d(B MIME
-charset $B$H$$$C$?(B entity (@ref{entity}) $B$NFbMF$N<oN`$dI=8=7A<0$J$I$r5-=R(B
-$B$9$k$?$a$N$b$N$G!"(BRFC 2045 (@ref{RFC 2045}) $B$GDj5A$5$l$F$$$^$9!#(B
-
-@noindent
-@strong{[Memo]}
-@quotation
-
-$BNr;KE*$K$O(B RFC 1049 $B$G(B Content-Type $BMs$,Ds0F$5$l$F$$$k!#C"$7!"(BMIME $B$N(B
-media-type $B$N$h$&$J(B type $B$H(B subtype $B$N6hJL$O$J$/!"(BMIME charset $B$N$h$&$J(B
-$BJ8;zId9f$N<oN`$rI=8=$9$k$3$H$b$G$-$J$$!#(B
-@end quotation
-
-
-FLIM $B$O(B Content-Type $BMs$r9=J82r@O$9$k4X?t$H(B Content-Type $BMs$N2r@O7k2L$r(B
-$B3JG<$9$k9=B$BN(B @strong{mime-content-type} $B$rDs6!$7$^$9!#(B
-
-
-@menu
-* Content-Type field::          Content-Type $BMs$N7A<0(B
-* mime-content-type::           mime-content-type $B9=B$BN(B
-* Content-Type parser::         Content-Type $BMs$N2r@O4o(B
-* Content-Type utility::        Content-Type $B$K4X$9$kM-MQ$J4X?t(B
-@end menu
-
-@node Content-Type field, mime-content-type, Content-Type, Content-Type
-@section Content-Type $BMs$N7A<0(B
-@cindex parameter
-@cindex subtype
-@cindex type
-
-Content-Type $BMs$N7A<0$O0J2<$N$h$&$KDj5A$5$l$F$$$^$9!'(B
-
-@quotation
-``Content-Type'' ``:'' @strong{type} ``/''
-@strong{subtype} *( ``;'' @strong{parameter} )
-@end quotation
-
-$BNc$($P!"(B
-
-@quotation
-@example
-Content-Type: image/jpeg
-@end example
-@end quotation
-
-@noindent
-$B$d(B
-
-@quotation
-@example
-Content-Type: text/plain; charset=iso-2022-jp
-@end example
-@end quotation
-
-@noindent
-$B$J$I$N$h$&$KMQ$$$i$l$^$9!#(B
-
-$B$3$3$G!"(B`type' $B$H(B `subtype' $B$O(B entity $B$N7A<0$r<($9$b$N$G!"N><T$rAm>N$7(B
-$B$F!"(B`media-type' $B$H8F$V$3$H$K$7$^$9!#>e5-$NNc$K$*$1$k(B `image/jpeg' $B$d(B
-`text/plain' $B$O(B media-type $B$N#1$D$G$9!#(B
-
-@noindent
-@strong{[Memo]}
-@quotation
-
-Content-Type $BMs$N$J$$(B entity $B$O(B
-
-@quotation
-@example
-Content-Type: text/plain; charset=us-ascii
-@end example
-@end quotation
-
-@noindent
-$B$H$7$F2r<a$5$l$k!#(B(cf. @ref{us-ascii})
-@end quotation
-
-
-
-@node mime-content-type, Content-Type parser, Content-Type field, Content-Type
-@section mime-content-type $B9=B$BN(B
-
-@deffn{Structure} mime-content-type
-
-Content-Type $BMs$N>pJs$r3JG<$9$k$?$a$N9=B$BN!#(B@refill
-
-$B$3$N9=B$BN$r;2>H$9$k$K$O(B @code{mime-content-type-$BMWAGL>(B} $B$H$$$&L>A0$N;2(B
-$B>H4X?t$rMQ$$$k!#(B@refill
-
-$B$3$N9=B$BN$NMWAG$O0J2<$NDL$j$G$"$k!'(B
-
-@table @var
-@item primary-type
-media-type $B$N<g7?(B (symbol).
-
-@item subtype
-media-type $B$NI{7?(B (symbol).
-
-@item parameters
-Content-Type $BMs$N(B parameter ($BO"A[(B list).
-
-@end table
-@end deffn
-
-
-@defun make-mime-content-type type subtype
-	   &optional  parameters
-
-content-type $B$N@8@.;R!#(B
-@end defun
-
-
-@defun mime-content-type-parameter content-type parameter
-
-@var{content-type} $B$N(B @var{parameter} $B$NCM$rJV$9!#(B
-@end defun
-
-
-
-@node Content-Type parser, Content-Type utility, mime-content-type, Content-Type
-@section Content-Type $BMs$N2r@O4o(B
-
-@defun mime-parse-Content-Type string
-
-@var{string} $B$r(B content-type $B$H$7$F2r@O$7$?7k2L$rJV$9!#(B
-@end defun
-
-
-@defun mime-read-Content-Type
-
-$B8=:_$N(B buffer $B$N(B Content-Type $BMs$rFI$_<h$j!"2r@O$7$?7k2L$rJV$9!#(B@refill
-
-Content-Type $BMs$,B8:_$7$J$$>l9g$O(B nil $B$rJV$9!#(B
-@end defun
-
-
-
-@node Content-Type utility,  , Content-Type parser, Content-Type
-@section Content-Type $B$K4X$9$kM-MQ$J4X?t(B
-
-@defun mime-type/subtype-string type  &optional  subtype
-
-@var{type} $B$H(B @var{subtype} $B$+$i(B type/subtype $B7A<0$NJ8;zNs$rJV$9!#(B
-@end defun
-
-
-
-@node Content-Disposition, Content-Transfer-Encoding, Content-Type, Top
-@chapter Content-Disposition $BMs$N>pJs(B
-@cindex mime-content-disposition
-@cindex RFC 2183
-@cindex Standards Track
-@cindex Content-Disposition $BMs(B
-
-@strong{Content-Disposition $BMs(B} $B$O(B entity $B$NI=<($d(B file $BL>$J$I(B
-$B$NB0@-$K$J$I$K4X$9$k>pJs$r5-=R$9$k$?$a$N$b$N$G$9!#(B
-
-
-@noindent
-[RFC 2183]
-@quotation
-S. Dorner, K. Moore and R. Troost, ``Communicating Presentation
-Information in Internet Messages: The Content-Disposition Header'',
-August 1997, Standards Track.
-@end quotation
-
-FLIM $B$O(B Content-Disposition $BMs$r9=J82r@O$9$k4X?t$H(B Content-Disposition 
-$BMs$N2r@O7k2L$r3JG<$9$k9=B$BN(B 
-@strong{mime-content-disposition} $B$rDs6!$7$^$9!#(B
-
-
-@menu
-* mime-content-disposition::    mime-content-disposition $B9=B$BN(B
-* Content-Disposition parser::  Content-Disposition $BMs$N2r@O4o(B
-@end menu
-
-@node mime-content-disposition, Content-Disposition parser, Content-Disposition, Content-Disposition
-@section mime-content-disposition $B9=B$BN(B
-
-@deffn{Structure} mime-content-disposition
-
-Content-Disposition $BMs$N2r@O7k2L$r<}$a$k$?$a$N9=B$BN!#(B@refill
-
-$B$3$N9=B$BN$r;2>H$9$k$K$O(B @code{mime-content-disposition-$BMWAGL>(B} $B$H$$$&L>(B
-$BA0$N;2>H4X?t$rMQ$$$k!#(B@refill
-
-$B$3$N9=B$BN$NMWAG$O0J2<$NDL$j$G$"$k!'(B
-
-@table @var
-@item disposition-type
-disposition-type (symbol).
-
-@item parameters
-Content-Disposition $BMs$N(B parameter ($BO"A[(B list).
-
-@end table
-@end deffn
-
-
-@defun mime-content-disposition-parameter content-disposition parameter
-
-@var{content-disposition} $B$N(B @var{parameter} $B$NCM$rJV$9!#(B
-@end defun
-
-
-@defun mime-content-disposition-filename content-disposition
-
-@var{content-disposition} $B$N(B filename $B$NCM$rJV$9!#(B
-@end defun
-
-
-
-@node Content-Disposition parser,  , mime-content-disposition, Content-Disposition
-@section Content-Disposition $BMs$N2r@O4o(B
-
-@defun mime-parse-Content-Disposition string
-
-@var{string} $B$r(B content-disposition $B$H$7$F2r@O$7$?7k2L$rJV$9!#(B
-@end defun
-
-
-@defun mime-read-Content-Disposition
-
-$B8=:_$N(B buffer $B$N(B Content-Disposition $BMs$rFI$_<h$j!"2r@O$7$?7k2L$rJV$9!#(B
-@refill
-
-Content-Disposition $BMs$,B8:_$7$J$$>l9g$O(B nil $B$rJV$9!#(B
-@end defun
-
-
-
-@node Content-Transfer-Encoding, encoded-word, Content-Disposition, Top
-@chapter $BId9f2=K!(B
-@cindex Content-Transfer-Encoding $BMs(B
-
-@strong{Content-Transfer-Encoding $BMs(B} $B$O(B entity $B$NId9f2=K!$r5-=R$9$k$?$a(B
-$B$N$b$N$G$9!#(B@refill
-
-FLIM $B$G$O(B Content-Transfer-Encoding $BMs$r9=J82r@O$9$k4X?t$rDs6!$7$^$9!#$3(B
-$B$l$i$N4X?t$O(B Content-Transfer-Encoding $BMs$N>pJs$OJ8;zNs$GI=8=$7$^$9!#(B
-@refill
-
-$B$^$?!"(BContent-Transfer-Encoding $B$K4p$E$$$FId9f2=!&I|9f2=$r9T$&4X?t$bDs(B
-$B6!$5$l$^$9!#(B
-
-
-@menu
-* Content-Transfer-Encoding parser::  Content-Transfer-Encoding $BMs$N2r@O4o(B
-* Region encoder/decoder::      $BNN0h$NId9f2=!&I|9f2=(B
-* String encoder/decoder::      $BJ8;zNs$NId9f2=!&I|9f2=(B
-* File encoder/decoder::        File $B$NId9f2=!&I|9f2=(B
-@end menu
-
-@node Content-Transfer-Encoding parser, Region encoder/decoder, Content-Transfer-Encoding, Content-Transfer-Encoding
-@section Content-Transfer-Encoding $BMs$N2r@O4o(B
-
-@defun mime-parse-Content-Transfer-Encoding string
-
-@var{string} $B$r(B content-transfer-encoding $B$H$7$F2r@O$7$?7k2L$rJV$9!#(B
-@end defun
-
-
-@defun mime-read-Content-Transfer-Encoding &optional default-encoding
-
-$B8=:_$N(B buffer $B$N(B Content-Transfer-Encoding $BMs$rFI$_<h$j!"2r@O$7$?7k2L$r(B
-$BJV$9!#(B@refill
-
-Content-Transfer-Encoding $BMs$,B8:_$7$J$$>l9g$O(B@var{default-encoding} $B$r(B
-$BJV$9!#(B
-@end defun
-
-
-
-@node Region encoder/decoder, String encoder/decoder, Content-Transfer-Encoding parser, Content-Transfer-Encoding
-@section $BNN0h$NId9f2=!&I|9f2=(B
-
-@defun mime-encode-region start end encoding
-
-Encode region @var{start} to @var{end} of current buffer using
-@var{encoding}.
-@end defun
-
-
-@defun mime-decode-region start end encoding
-
-Decode region @var{start} to @var{end} of current buffer using
-@var{encoding}.
-@end defun
-
-
-@defvar mime-encoding-method-alist
-
-Alist of encoding vs. corresponding method to encode region.@refill
-
-Each element looks like @code{(STRING . FUNCTION)} or @code{(STRING
-. nil)}.  @var{string} is content-transfer-encoding.  @code{function} is
-region encoder and @code{nil} means not to encode.
-@end defvar
-
-
-@defvar mime-decoding-method-alist
-
-Alist of encoding vs. corresponding method to decode region.@refill
-
-Each element looks like @code{(STRING . FUNCTION)} or @code{(STRING
-. nil)}.  @var{string} is content-transfer-encoding.  @code{function} is
-region decoder and @code{nil} means not to decode.
-@end defvar
-
-
-
-@node String encoder/decoder, File encoder/decoder, Region encoder/decoder, Content-Transfer-Encoding
-@section $BJ8;zNs$NId9f2=!&I|9f2=(B
-
-@defun mime-decode-string string encoding
-
-@var{string} $B$r(B @var{encoding} $B$H$7$FI|9f$7$?7k2L$rJV$7$^$9!#(B
-@end defun
-
-
-@defvar mime-string-decoding-method-alist
-
-Alist of encoding vs. corresponding method to decode string.@refill
-
-Each element looks like @code{(STRING . FUNCTION)}.  STRING is
-content-transfer-encoding.  FUNCTION is string decoder.
-@end defvar
-
-
-
-@node File encoder/decoder,  , String encoder/decoder, Content-Transfer-Encoding
-@section File $B$NId9f2=!&I|9f2=(B
-
-@defun mime-insert-encoded-file filename encoding
-
-Insert file @var{FILENAME} encoded by @var{ENCODING} format.
-@end defun
-
-
-@defun mime-write-decoded-region start end filename encoding
-
-Decode and write current region encoded by @var{encoding} into
-@var{filename}.@refill
-
-@var{start} and @var{end} are buffer positions.
-@end defun
-
-
-@defvar mime-file-encoding-method-alist
-
-Alist of encoding vs. corresponding method to insert encoded
-file.@refill
-
-Each element looks like @code{(STRING . FUNCTION)}.  STRING is
-content-transfer-encoding.  FUNCTION is function to insert encoded file.
-@end defvar
-
-
-@defvar mime-file-decoding-method-alist
-
-Alist of encoding vs. corresponding method to write decoded region to
-file.@refill
-
-Each element looks like @code{(STRING . FUNCTION)}.  STRING is
-content-transfer-encoding.  FUNCTION is function to write decoded region
-to file.
-@end defvar
-
-
-
-@node encoded-word, custom, Content-Transfer-Encoding, Top
-@chapter Header $B$N(B network $BI=8=(B
-@cindex RFC 2047
-@cindex Standards Track
-@cindex RFC 2047
-
-encoded-word $B$O(B header $B$GHs(B ASCII (@ref{ASCII}) $BJ8;z$rI=8=$9$k$?$a$N7A<0(B
-$B$G!"(B@strong{RFC 2047} $B$GDj5A$5$l$F$$$^$9!#(B@refill
-
-
-@noindent
-[RFC 2047]
-@quotation
-K. Moore, ``MIME (Multipurpose Internet Mail Extensions) Part Three:
-Message Header Extensions for Non-ASCII Text'', November 1996, Standards
-Track (obsolete RFC 1521,1522,1590).
-@end quotation
-
-$B$^$?!"9T57$N0-$$$3$H$@$H8@$($^$9$,!"(Bencoded-word $B$rMQ$$$:$KHs(B ASCII
-(@ref{ASCII}) $BJ8;z$r(B header $B$KF~$l$?5-;v$bB8:_$7$^$9!#(B@refill
-
-FLIM $B$O$3$l$i$rId9f2=!&I|9f2=$9$k5!G=$rDs6!$7$^$9!#(B
-
-
-@menu
-* Header encoder/decoder::      Header $B$NId9f2=!&I|9f2=(B
-@end menu
-
-@node Header encoder/decoder,  , encoded-word, encoded-word
-@section Header $B$NId9f2=!&I|9f2=(B
-
-@defun eword-encode-header &optional  code-conversion separator
-
-Decode MIME encoded-words in header fields.@refill
-
-If @var{code-conversion} is @code{nil}, it decodes only encoded-words.
-If it is mime-charset, it decodes non-ASCII bit patterns as the
-mime-charset.  Otherwise it decodes non-ASCII bit patterns as the
-default-mime-charset.@refill
-
-If @var{separator} is not nil, it is used as header separator.
-@end defun
-
-
-@defun eword-encode-header &optional  code-conversion
-
-Encode header fields to network representation, such as MIME
-encoded-word.@refill
-
-It refer variable @code{eword-field-encoding-method-alist}.
-@end defun
-
-
-
-@node custom, Appendix, encoded-word, Top
-@chapter $B0lHL@_Dj(B
-
-@deffn{group} mime
-
-MIME $B4XO"5!G=$K4X$9$k(B group.@refill
-
-@code{mail} $B$H(B @code{news} $B$KB0$9$k!#(B
-@end deffn
-
-
-@defvar default-mime-charset
-
-$BE,@Z$J(B MIME charset (@ref{MIME charset}) $B$,8+$D$+$i$J$+$C$?>l9g$KMQ$$$i(B
-$B$l$k(BMIME charset.@refill
-
-$BK\Mh$O(B APEL $B$NJQ?t$G$"$k!#(B
-@end defvar
-
-
-@defvar mime-temp-directory
-
-MIME $B5!G=$K4X$9$k<BAu$,0l;~E*$K;HMQ$9$k(B file $B$r:n@.$9$k(B 
-directory.@refill
-
-$B4D6-JQ?t(B @code{MIME_TMP_DIR}, @code{TM_TMP_DIR}, @code{TMPDIR},
-@code{TMP} $B$b$7$/$O(B @code{TEMP} $B$,@_Dj$5$l$F$$$?>l9g!"$=$l$r=i4|CM$H$7$F(B
-$BMQ$$$k!#2?$b@_Dj$5$l$F$$$J$$>l9g!"(B@code{"/tmp/"} $B$rMQ$$$k!#(B
-@end defvar
-
-
-
-@node Appendix, Concept Index, custom, Top
-@chapter $BIUO?(B
-
-
-@menu
-* Glossary::                    $BMQ8l(B
-* Bug report::                  bug $BJs9p$N;EJ}(B
-* CVS::                         CVS $B$K$h$k3+H/(B
-* History::                     $BNr;K(B
-@end menu
-
-@node Glossary, Bug report, Appendix, Appendix
-@section $BMQ8l(B
-
-
-@menu
-* 7bit::                        
-* 8bit::                        
-* ASCII::                       
-* Base64::                      
-* binary::                      
-* Coded character set::         Coded character set$B!JId9f2=J8;z=89g!K(B, Character code$B!JJ8;zId9f!K(B
-* media-type::                  
-* message::                     
-* MIME::                        
-* MIME charset::                
-* MTA::                         
-* MUA::                         
-* Quoted-Printable::            
-* RFC 822::                     
-* RFC 1036::                    
-* RFC 2045::                    
-* RFC 2046::                    
-* RFC 2048::                    
-* RFC 2049::                    
-* plain text::                  
-* us-ascii::                    
-@end menu
-
-@node 7bit, 8bit, Glossary, Glossary
-@subsection 7bit
-
-$B$3$3$G$O(B 0 $B$+$i(B 127 $B$N@0?t$r;X$9!#(B@refill
-
-0 $B$+$i(B 127 $B$N@0?t$NNs$GI=8=$G$-$k$h$&$J(B data $B$r(B ``7bit $B$N(B data'' $B$H8F$V!#(B
-@refill
-
-$B$^$?!"(B0 $B$+$i(B 31 $B$*$h$S(B 127 $B$GI=8=$5$l$k@)8fJ8;z$H(B 32 $B$GI=8=$5$l$k6uGr$H(B 
-33 $B$+$i(B 126 $B$GI=8=$5$l$k?^7AJ8;z$+$i$J$kJ8;zNs$N$3$H$r(B ``7bit $B$NJ8;zNs(B'' 
-$B$H8F$V!J$3$l$O(B ISO 2022 (@ref{ISO 2022}) $B$N!V(B7 $BC10L7O!W$HF1MM!K!#(B
-
-$BEAE}E*$J(B Internet $B$N(B MTA (@ref{MTA}) $B$O(B 7bit $B$N(B data $B$rE>Aw$G$-$k$N$G!"(B
-7bit $B$N(B data $B$O(B Quoted-Printable (@ref{Quoted-Printable}) $B$d(B Base64
-(@ref{Base64}) $B$H$$$C$?JQ49$r9T$o$J$/$F$b$=$N$^$^E>Aw$G$-$k!#(B@refill
-
-$B$7$+$7!"(B7bit $B$G$"$l$P$I$s$J(B data $B$G$bNI$$$H$O$$$($J$$!#$J$<$J$i!"#19T$N(B
-$BD9$5$,$"$^$j$KD9$$$H!"(BMTA $B$O$=$N(B message $B$rE>Aw$9$k$3$H$,$G$-$J$$$+$i$G(B
-$B$"$k!#$A$J$_$K!"(BRFC 821 (@ref{RFC 821}) $B$O#19T$O2~9TJ8;z$r=|$$$F(B 998
-byte $B0JFb$G$"$k$3$H$r5a$a$F$$$k!#$h$C$F!"$3$l0J>e$N9T$,4^$^$l$k2DG=@-$N(B
-$B$"$k(B data, $BNc$($P!"(BPostscript $B$N(B data $B$J$I$O(B Quoted-Printable $BEy$G(B 
-encode$B$9$kI,MQ$,$"$k!#(B
-
-
-@node 8bit, ASCII, 7bit, Glossary
-@subsection 8bit
-@cindex binary
-
-$B$3$3$G$O(B 0 $B$+$i(B 255 $B$N@0?t$r;X$9!#(B@refill
-
-0 $B$+$i(B 255 $B$N@0?t$NNs$GI=8=$G$-$k$h$&$J(B data $B$r(B ``8bit $B$N(B data'' $B$H8F$V!#(B
-@refill
-
-$B$^$?!"(B0 $B$+$i(B 31, 127 $B$*$h$S(B 128 $B$+$i(B 159 $B$GI=8=$5$l$k@)8fJ8;z$H(B 32 $B$GI=(B
-$B8=$5$l$k6uGr$H(B 33 $B$+$i(B 126 $B$H(B 160 $B$+$i(B 255 $B$GI=8=$5$l$k?^7AJ8;z$+$i$J$k(B
-$BJ8;zNs$N$3$H$r(B ``8bit $B$NJ8;zNs(B'' $B$H8F$V!J$3$l$O(B ISO 2022 (@ref{ISO 2022}) $B$N!V(B8 $BC10L7O!W$HF1MM!K!#(B@refill
-
-iso-8859-1 (@ref{iso-8859-1}) $B$d(B euc-kr (@ref{euc-kr}) $B$H$$$C$?Id9f2=J8(B
-$B;z=89g$O(B 8bit $B$NJ8;zNs$G$"$k!#(B@refill
-
-$BEAE}E*$J(B Internet $B$N(B MTA (@ref{MTA}) $B$O(B 7bit (@ref{7bit}) $B$N(B data $B$7$+E>(B
-$BAw$G$-$J$$$N$G!"$=$&$7$?(B MTA $B$r7PM3$9$k>l9g!"(BQuoted-Printable
-(@ref{Quoted-Printable}) $B$d(B Base64 (@ref{Base64}) $B$H$$$C$?JQ49$r9T$o$J$/(B
-$B$F$O$J$i$J$$!#(B@refill
-
-$B$7$+$7!":G6a$G$O(B 8bit $B$NJ8;zNs$r$=$N$^$^DL$9$3$H$,$G$-$k(B MTA $B$bEP>l$7$F(B
-$B$-$?$N$G!"$=$N$^$^Aw$k$3$H$,$G$-$k>l9g$bA}$($F$-$?!#(B@refill
-
-$B$7$+$7!"(B8bit $B$G$"$l$P$I$s$J(B data $B$G$bNI$$$H$O$$$($J$$!#$J$<$J$i!"#19T$N(B
-$BD9$5$,$"$^$j$KD9$$$H!"(BMTA $B$O$=$N(B message $B$rE>Aw$9$k$3$H$,$G$-$J$$$+$i$G(B
-$B$"$k!#$A$J$_$K!"(BRFC 821 (@ref{RFC 821}) $B$O#19T$O2~9TJ8;z$r=|$$$F(B 998
-byte $B0JFb$G$"$k$3$H$r5a$a$F$$$k!#$h$C$F!"$3$l0J>e$N9T$,4^$^$l$k2DG=@-$N(B
-$B$"$k(B data, $BNc$($P!"(BPostscript $B$N(B data $B$J$I$O(B Quoted-Printable $BEy$G(B 
-encode$B$9$kI,MQ$,$"$k!#(B@refill
-
-$B$^$?!"$3$&$7$?M}M3$+$i!"#19T$,(B 999 byte $B0J>e$N9T$,B8:_$9$k2DG=@-$N$"$k(B
-data $B$O(B @strong{binary} (@ref{binary}) $B$H8F$V$3$H$K$9$k!#(B@refill
-
-$B$A$J$_$K!"(B7bit $B$GI=8=$G$-$k(B data $B$O(B 8bit $B$G$bI=8=$G$-$k!#$h$C$F!"(B
-``8bit'' $B$H8@$C$?>l9g!"#19T$,(B 998 byte $B0J2<$NG$0U$N(B data $B$r;X$9$3$H$,(B
-$B$"$k!#(B
-
-
-@node ASCII, Base64, 8bit, Glossary
-@subsection ASCII
-@cindex ANSI X3.4:1986
-@cindex ASCII
-
-$B%"%a%j%+O"K.$G;H$o$l$kJ8;z$rId9f2=$7$?Id9f2=J8;z=89g(B (@ref{$BId9f2=J8;z=8(B $B9g(B})$B!#(BA-Z, a-z $B$N(B Latin $BJ8;z$H?t;z!"4v$D$+$N5-9f$+$i$J$k!#(BISO 646 $B$N0l$D(B
-$B$G!"8=:_$O9q:]4p=`HG(B (IRV) $B$K$J$C$F$$$k!#(B
-
-
-@noindent
-[ASCII]
-@quotation
-``Coded Character Set -- 7-Bit American Standard Code for Information
-Interchange'', ANSI X3.4:1986.
-@end quotation
-
-
-
-@node Base64, binary, ASCII, Glossary
-@subsection Base64
-@cindex pad
-
-RFC 2045 (@ref{RFC 2045}) $B$GDj5A$5$l$F$$$k(B MIME (@ref{MIME}) $B$K$*$1$k(B 
-binary data (@ref{binary}) $B$N(B network $B$G$NJQ49K!$N#1$D!#(B@refill
-
-$B!X(B64 $B?J?t!Y$H$$$&0UL#$G!"(B3 byte $B$N(B data $B$r(B 0 $B$+$i(B 63 $B$N?t$rI=$9(B ASCII
-(@ref{ASCII}) 4 $BJ8;z$KJQ49$9$kJ}K!!#!J$b$7!"(B4 $BJ8;z$K$J$i$J$1$l$P(B 
-@strong{pad} $B$H8F$P$l$k5M$aJ*$r$7$FD9$5$rD4@0$9$k!K(B@refill
-
-$B$3$N(B 65 $B<oN`$NJ8;z$O(B ASCII $B$H(B EBCDIC $B$N6&DLItJ,$+$iA*$P$l$F$*$j!"(B
-Internet $B0J30$N(B network $B$r7PM3$9$k>l9g$G$b0BA4$KE>Aw$G$-$k$h$&$K@_7W$5(B
-$B$l$F$$$k!#(B
-
-
-@node binary, Coded character set, Base64, Glossary
-@subsection binary
-@cindex binary data
-@cindex binary
-
-$BG$0U$N(B byte $BNs$r(B @strong{binary} $B$H8F$V!#(B@refill
-
-8bit (@ref{8bit}) $B$H0[$J$k$N$O(B data $B$K9T$N9=B$$r2>Dj$7$J$$$3$H$G$"$k!#(B
-
-$B$^$?!"9T$N9=B$$,$"$C$F$b!"(B999 byte $B0J>e$+$i$J$k9T$,$"$k>l9g$b(B binary $B$H(B
-$B8F$V$3$H$K$9$k!#(B@refill
-
-$B$A$J$_$K!"(B7bit (@ref{7bit}) $B$d(B 8bit $B$GI=8=$G$-$k(B data $B$O(B binary $B$G$bI=8=(B
-$B$G$-$k!#$h$C$F!"(B@strong{binary data} $B$H8@$C$?>l9g!"G$0U$N(B data $B$r;X$9$3(B
-$B$H$,$"$k!#(B
-
-
-@node Coded character set, media-type, binary, Glossary
-@subsection Coded character set$B!JId9f2=J8;z=89g!K(B, Character code$B!JJ8;zId9f!K(B
-
-$BJ8;z$H(B byte $BNs$H#1BP#1$KBP1~IU$1$k[#Kf$G$J$$5,B'$N=89g!#(B
-
-
-@node media-type, message, Coded character set, Glossary
-@subsection media-type
-@cindex x-token
-@cindex primary-type/subtype
-@cindex message
-@cindex multipart
-@cindex application
-@cindex video
-@cindex audio
-@cindex image
-@cindex text
-@cindex subtype
-@cindex primary-type
-
-MIME (@ref{MIME}) $B$K$*$1$k(B entity (@ref{entity}) $B$N<oN`!#(B
-@strong{primary-type} $B$H(B @strong{subtype} $B$+$i$J$k!#(BRFC 2046 (@ref{RFC 2046}) $B$GDj5A$5$l$F$$$k!#(B@refill
-
-primary-type $B$OI8=`$G$O(B
-
-@itemize @bullet
-@item
-@strong{text}
-@item
-@strong{image}
-@item
-@strong{audio}
-@item
-@strong{video}
-@item
-@strong{application}
-@item
-@strong{multipart} (@ref{multipart})
-@item
-@strong{message}
-@end itemize
-
-@noindent
-$B$,Dj5A$5$l!"$=$l$>$l$K$O(B application/octet-stream, audio/basic,
-image/jpeg, multipart/mixed (@ref{multipart/mixed}), text/plain
-(@ref{text/plain}), video/mpeg $B$J$I$N$5$^$6$^$J(B subtype $B$,Dj5A$5$l$F$$$k!#(B
-
-@noindent
-@strong{[$BCm0U(B]}
-@quotation
-
-$B$3$3$G$O!"(Btext/plain $B$J$I$N(B type/subtype $B$NAH$r$7$P$7$P(B 
-@strong{primary-type/subtype} $B$H=q$/!#(B
-@end quotation
-
-
-media-type $B$O!"(BRFC 2046 $B$GDj5A$5$l$F$$$k$b$N$K2C$($F!"EPO?$9$k$3$H$b$G$-(B
-$B$k!#8=:_!"EPO?$5$l$F$$$k$b$N$O(B MEDIA TYPES
-(ftp://ftp.isi.edu/in-notes/iana/assignments/media-types) $B$G;2>H$G$-$k!#(B
-
-$B$^$?!"(Btype $B$b$7$/$O(B subtype $B$K!"A0$K(B `x-' $B$rIU$1$?(B @strong{x-token} $B$rMQ(B
-$B$$$k$3$H$K$h$j!"EPO?$5$l$F$$$J$$$b$N$r;dE*$KMQ$$$k$3$H$b$G$-$k!#$7$+$7!"(B
-$BEvA3$N$3$H$J$,$i!"$3$&$7$?;dE*$J(B media-type $B$ONJ2r$rF@$?<T$N4V$G$7$+2r<a(B
-$B$G$-$J$$$N$GMxMQ$K$OCm0U$9$k$3$H!#(B@refill
-
-(cf. @ref{Content-Type})
-
-
-
-@node message, MIME, media-type, Glossary
-@subsection message
-
-$B$3$3$G$O(B mail $B$H(B news $B5-;v$NAm>N$H$7$FMQ$$$k!#(B
-
-
-@node MIME, MIME charset, message, Glossary
-@subsection MIME
-@cindex Multipurpose Internet Mail Extensions
-
-@strong{Multipurpose Internet Mail Extensions} $B$NN,$G!"(BInternet $B$N(B mail 
-$B$d(B news $B$G(B us-ascii plain text (@ref{us-ascii}) $B0J30$NJ8;z$r;H$&$?$a$N(B 
-RFC 822 (@ref{RFC 822}) $B$KBP$9$k3HD%!#(B@refill
-
-RFC 2045 $B$OKAF,$G<!$N$h$&$K=R$Y$F$$$k!'(B@refill
-
-STD 11, RFC 822 $B$O!"(BUS-ASCII message header $B$K4X$7$FHs>o$K>\:Y$K5,Dj$7(B
-$B$?(B message $BI=8=(B protocol $B$rDj5A$7$F$$$k!#$7$+$7!"$=$l$OC1$K(B flat $B$J(B 
-US-ASCII text $B$N$_$KN1$^$j!"(Bmessage $B$NFbMF$d(B message body $B$K4X$9$k5,Dj(B
-$B$O$J$5$l$F$$$J$$!#(BMultipurpose Internet Mail Extensions, $B$"$k$$$O(B MIME 
-$B$HAm>N$5$l$k!"$3$N0lO"$NJ8=q$O!"0J2<$N;v$r2DG=$H$9$k$?$a$K(B message $B$N(B
-$B7A<0$r:FDj5A$7$?!'(B
-
-@enumerate
-@item
-$BJ8=q(B message body $B$K$*$1$k(B US-ASCII $B0J30$NJ8;z=89g(B
-@item
-$BHsJ8=q(B message body
-@item
-$BJ#?t$NItJ,$+$i$J$k(B message body
-@item
-US-ASCII $B0J30$NJ8;z=89g$+$i$J$kJ8=q(B header $B>pJs(B
-@end enumerate
-
-
-RFC 2045 (@ref{RFC 2045}), RFC 2046 (@ref{RFC 2046}), RFC 2047
-(@ref{encoded-word}), RFC 2048 (@ref{RFC 2048}), RFC 2049 (@ref{RFC 2049}) $B$GDj5A$5$l$F$$$k!#(B
-
-
-@node MIME charset, MTA, MIME, Glossary
-@subsection MIME charset
-
-Content-Type (@ref{Content-Type}) $BMs$d(B encoded-word (@ref{encoded-word}) 
-$B$N(B charset parameter $B$GMQ$$$i$l$kEPO?$5$l$?Id9f2=J8;z=89g(B(@ref{Coded character set})$B!#(B@refill
-
-RFC 2045 (@ref{RFC 2045}) $B$GDj5A$5$l$F$$$k!#(B@refill
-
-iso-2022-jp $B$d(B euc-kr $B$O$=$N#1$D!#(B
-
-
-@node MTA, MUA, MIME charset, Glossary
-@subsection MTA
-@cindex Message Transfer Agent
-
-@strong{Message Transfer Agent} $B$NN,$G!"(Bqmail $B$d(B sendmail $B$J$I$N(B mail $BG[(B
-$BAw(B program $B$H(B inn $B$J$I$N(B news server $B$NAm>N!#(B@refill
-
-(cf. @ref{MUA})
-
-
-
-@node MUA, Quoted-Printable, MTA, Glossary
-@subsection MUA
-@cindex Message User Agent
-
-@strong{Message User Agent} $B$NN,$G!"(Bmail reader $B$H(B news reader $B$NAm>N!#(B
-@refill
-
-(cf. @ref{MTA})
-
-
-
-@node Quoted-Printable, RFC 822, MUA, Glossary
-@subsection Quoted-Printable
-
-RFC 2045 (@ref{RFC 2045}) $B$GDj5A$5$l$F$$$k(B MIME (@ref{MIME}) $B$K$*$1$k(B 
-binary data (@ref{binary data}) $B$N(B network $B$G$NJQ49K!$N#1$D!#(B@refill
-
-`=' $B$d@)8fJ8;z$d(B 128 $B0J>e$NJ8;z$J$I$O(B `=AF' $B$N$h$&$K(B `=' $B$N8e$KB3$/(B 16 
-$B?J?t$GI=8=$9$k!#$3$N$?$a!"(BASCII (@ref{ASCII}) $BJ8;zCf?4$N(B data $B$G$O(B 
-Base64 (@ref{Base64}) $B$KHf$Y$k$H2DFI@-$,9b$/$J$k2DG=@-$,$"$k!#(B@refill
-
-$B$7$+$7$J$,$i!"(BEBCDIC $B$K$OB8:_$7$J$$J8;z$rMxMQ$9$k>l9g!"(BEBCDIC $B$rMxMQ$7(B
-$B$F$$$k(B network $B$G$O0BA4$KE>Aw$9$k$3$H$,$G$-$:!"(BBase64 $B$KHf$Y$F0BA4@-$O(B
-$BDc$$!#(B
-
-
-@node RFC 822, RFC 1036, Quoted-Printable, Glossary
-@subsection RFC 822
-@cindex RFC 822
-@cindex STD 11
-@cindex Internet message
-@cindex Internet mail
-@cindex message header
-
-Internet mail $B$N<g$K(B @strong{message header} $B$K4X$9$k7A<0$K(B
-$B4X$9$kI8=`$rDj$a$F$$$k(B RFC.
-
-@noindent
-@strong{[Memo]}
-@quotation
-
-news message $B$b$3$l$K=`$8$F$$$k$N$G!"(B@strong{Internet mail} $B$H=q$/$h$j$b!"(B
-@strong{Internet message} $B$H=q$$$?J}$,NI$$$+$b$7$l$J$$!#(B
-@end quotation
-
-
-
-@noindent
-[RFC 822]
-@quotation
-D. Crocker, ``Standard for the Format of ARPA Internet Text Messages'',
-August 1982, STD 11.
-@end quotation
-
-
-
-@node RFC 1036, RFC 2045, RFC 822, Glossary
-@subsection RFC 1036
-@cindex RFC 1036
-@cindex USENET
-
-USENET $B$G$N(B message $B$N7A<0$rDj$a$?(B RFC.  RFC 822 (@ref{RFC 822}) $B$N(B 
-subset $B$K$J$C$F$$$k!#(BInternet $B$NI8=`$G$O$J$$$,!"(BUSENET $B0J30$N(B netnews $B$G(B
-$B$b$3$l$K=`$8$F$$$k$b$N$,B?$$!#(B
-
-
-@noindent
-[USENET: RFC 1036]
-@quotation
-M. Horton and R. Adams, ``Standard for Interchange of USENET Messages'',
-December 1987, (obsolete RFC 850).
-@end quotation
-
-
-
-@node RFC 2045, RFC 2046, RFC 1036, Glossary
-@subsection RFC 2045
-@cindex RFC 2045
-@cindex Standards Track
-
-
-@noindent
-[RFC 2045]
-@quotation
-N. Freed and N. Borenstein, ``Multipurpose Internet Mail Extensions
-(MIME) Part One: Format of Internet Message Bodies'', November 1996,
-Standards Track (obsolete RFC 1521, 1522, 1590).
-@end quotation
-
-
-
-@node RFC 2046, RFC 2048, RFC 2045, Glossary
-@subsection RFC 2046
-@cindex RFC 2046
-@cindex Standards Track
-
-
-@noindent
-[RFC 2046]
-@quotation
-N. Freed and N. Borenstein, ``Multipurpose Internet Mail Extensions
-(MIME) Part Two: Media Types'', November 1996, Standards Track (obsolete
-RFC 1521, 1522, 1590).
-@end quotation
-
-
-
-@node RFC 2048, RFC 2049, RFC 2046, Glossary
-@subsection RFC 2048
-@cindex RFC 2048
-@cindex Standards Track
-
-
-@noindent
-[RFC 2048]
-@quotation
-N. Freed, J. Klensin and J. Postel, ``Multipurpose Internet Mail
-Extensions (MIME) Part Four: Registration Procedures'', November 1996,
-Standards Track (obsolete RFC 1521, 1522, 1590).
-@end quotation
-
-
-
-@node RFC 2049, plain text, RFC 2048, Glossary
-@subsection RFC 2049
-@cindex RFC 2049
-@cindex Standards Track
-
-
-@noindent
-[RFC 2049]
-@quotation
-N. Freed and N. Borenstein, ``Multipurpose Internet Mail Extensions
-(MIME) Part Five: Conformance Criteria and Examples'', November 1996,
-Standards Track (obsolete RFC 1521, 1522, 1590).
-@end quotation
-
-
-
-@node plain text, us-ascii, RFC 2049, Glossary
-@subsection plain text
-
-$B=qBN$dAHHG$K4X$9$k>pJs$r;}$?$J$$J8;zId9f(B(@ref{Coded character set})$B$N$_(B
-$B$GI=8=$5$l$k(B text $B>pJs!#(B(cf. @ref{text/plain})
-
-
-
-@node us-ascii,  , plain text, Glossary
-@subsection us-ascii
-@cindex ASCII
-@cindex us-ascii
-
-$B%"%a%j%+O"K.$J$I$G;H$o$l$k1Q8l$J$I$rI=8=$9$k$?$a$N(B MIME charset
-(@ref{MIME charset}) $B$N#1$D!#(B@refill
-
-ASCII (@ref{ASCII}) $B$N$_$+$i$J$j(B ISO 2022 $B$K$h$kId9f3HD%$O5v$5$l$J$$!#(B
-
-Internet message $B$K$*$1$kI8=`$NId9f2=J8;z=89g(B(@ref{Coded character set})
-$B$G$"$j!"L@<(E*$K(B MIME charset $B$,<($5$l$J$$>l9g$O86B'$H$7$F(B 
-@strong{us-ascii} $B$,;H$o$l$k!#(B@refill
-
-$B$^$?!"(BRFC 822 (@ref{RFC 822}) $B$K$*$1$k(B @strong{ASCII} $B$O(B us-ascii $B$G$"$k!#(B
-
-
-@node Bug report, CVS, Glossary, Appendix
-@section bug $BJs9p$N;EJ}(B
-
-FLIM $B$N%P%0$r8+$D$1$?$i!"0J2<$N(B address $B$K(B mail $B$rAw$C$F$/$@$5$$!'(B
-
-@itemize @bullet
-@item
- $BF|K\8l(B <bug-tm-ja@@chamonix.jaist.ac.jp>
-@item
- $B1Q8l(B <bug-tm-en@@chamonix.jaist.ac.jp>
-@end itemize
-
-
-$BC"$7!"$"$^$j$K$b8E$$HG$K4X$9$kJs9p$O4?7^$5$l$^$;$s!#8E$$HG$N(B bug $B$O!"?7(B
-$B$7$$HG$G$O<#$C$F$$$k$+$b$7$l$^$;$s!#$^$:!":G?7HG$G3NG'$7$F$_$^$7$g$&!#(B
-@refill
-
-$B$=$l$+$i!"E,@Z$JJs9p$r$7$^$7$g$&!#C1$K!V$&$^$/F0$+$J$$!W$H8@$o$l$F$b$I$&(B
-$B$$$&>u67$J$N$+$O$5$C$Q$jH=$j$^$;$s!#:GDc8B!"(BOS, emacs, APEL, FLIM, SEMI, 
-$B;H$C$F$$$k(B MUA $B$N<oN`$*$h$SHG!"@_Dj$r=q$/I,MW$,$"$j$^$9!#$^$?!"(Berror $B$,(B
-$B5/$C$F$$$k>l9g$O(B backtrace $B$rAw$k$3$H$b=EMW$G$9!#(B(cf. @ref{(emacs)Bugs})
-
-$B$^$?!"(Bbug $B$OBgDqJ#?t$N?M$,Ax6x$9$k$b$N$G$9!J$=$&$G$J$1$l$P!"(Bbug $B$G$O$J(B
-$B$$2DG=@-$,$"$j$^$9!K!#$@$+$i!":n<T$KD>@\(B mail $B$rAw$k$H:n<T$OF1$8(B mail
-$B$r2?DL$b=q$/1)L\$K$J$j$^$9!#$@$+$i!"I,$:(B bug $BJs9p$O>e5-$N(B address $B$KAw$C(B
-$B$F$/$@$5$$!#(B
-
-tm ML $B$G$O(B FLIM $B$N%P%0>pJs$N8r49$d:G?7HG$NG[I[!"(BFLIM $B$N2~NI$K4X$9$k5D(B
-$BO@$r9T$J$C$F$$$^$9!#(Btm ML $B$K;22C$7$?$$J}$O(B
-
-@itemize @bullet
-@item
- $BF|K\8l(B <tm-ja-help@@chamonix.jaist.ac.jp>
-@item
- $B1Q8l(B <tm-en-help@@chamonix.jaist.ac.jp>
-@end itemize
-
-@noindent
-$B$K6u$N(B mail $B$rAw$C$F2<$5$$!#(B
-
-
-@node CVS, History, Bug report, Appendix
-@section CVS $B$K$h$k3+H/(B
-
-FLIM $B$N(B file $B$O(B CVS $B$r;H$C$F4IM}$5$l$F$$$^$9!#$3$N$?$a!"0J2<$NJ}K!$G:G(B
-$B?7$N(B FLIM $B$rF~<j$9$k$3$H$,$G$-$^$9!'(B
-
-@example
-(0) cvs login
-
-    % cvs -d :pserver:anonymous@@chamonix.jaist.ac.jp:/hare/cvs/root \
-	login
-
-    CVS password: [CR] # NULL string
-
-(1) checkout
-
-    % cvs -d :pserver:anonymous@@chamonix.jaist.ac.jp:/hare/cvs/root \
-	checkout [-r TAG] flim
-@end example
-
-
-CVS $B$rMQ$$$?3+H/$K;22C$7$?$$J}$O(B
-
-@itemize @bullet
-@item
- <cvs@@chamonix.jaist.ac.jp>
-@end itemize
-
-@noindent
-$B$^$G!"(Baccount $BL>$H(B UNIX $B$N(B passwd $B$HF1$87A<0$N(B crypt $B2=$5$l$?(B password
-$B$r1h$($F8fO"Mm$/$@$5$$!#(B
-
-
-@node History,  , CVS, Appendix
-@section $BNr;K(B
-
-FLIM $B$N(B code $B$N:G8E$NItJ,$O(B $B1]JB(B $B;LCR(B $B;a$,=q$$$?(B @file{mime.el}$B$K5/8;$7(B
-$B$^$9!#$3$N>.$5$J(B program $B$O(B Nemacs $B$GF0:n$9$k(B iso-2022-jp $B$N(B B-encoding 
-$B@lMQ$N(B encoded-word $B$NI|9f2=%W%m%0%i%`$G$7$?!#(B@refill
-
-$B$=$N8e!"<i2,(B $BCNI'(B $B$O(B @file{mime.el} $B$r85$K(B@file{tiny-mime.el} $B$H$$$&%W%m(B
-$B%0%i%`$r=q$-$^$9!#$3$l$O!"(BNemacs $B$H(B Mule $B$GF0:n$9$k(B encoded-word $B$NId9f(B
-$B2=!&I|9f2=%W%m%0%i%`$G$7$?!#(B@file{tiny-mime.el} $B$O(B B-encoding $B$@$1$G$J$/(B 
-Q-encoding $B$b(Bsupport $B$7!"$^$?!"(BMULE $B$G07$&$3$H$,$G$-$k$5$^$6$^$J(B MIME
-charset (@ref{MIME charset}) $B$rF1;~$K;H$&$3$H$,$G$-$^$7$?!#$3$N;~!"(B
-Nemacs $B$H(B Mule $B$NAPJ}$r(B support $B$9$k$?$a$KMQ$$$i$l$?%F%/%K%C%/$O8e$K(B emu
-package $B$K$^$H$a$i$l$^$9!#(B@refill
-
-$B$3$N:"!"<i2,(B $BCNI'(B $B$O(B @file{tiny-mime.el} $B$r$5$^$6$^$J(B MUA $B$G;H$&$?$a$N@_(B
-$BDj=8$bG[I[$7$F$$$^$7$?$,!"$=$l$i$O8e$K(B@file{tiny-mime.el} $B$H$H$b$K#1$D$N(B 
-package $B$K$^$H$a$i$l!"(Btm $B$H$$$&L>A0$GG[I[$5$l$^$9!#(B@refill
-
-$B<i2,(B $BCNI'(B $B$O$d$,$F!"(BMIME message $B$r1\Mw$9$k$?$a$N%W%m%0%i%`$G$"$k(B
-@file{tm-body.el} $B$r=q$-$^$9!#$3$l$O!"$9$0$K(B@file{tm-view.el} $B$H$$$&L>A0(B
-$B$KJQ$o$j$^$7$?$,!"$d$,$F!"$3$l$,(B@file{tiny-mime.el} $B$KBe$o$C$F!"(Btm $B$NCf(B
-$B3K$H$J$j$^$9!#(B@refill
-
-@file{tm-view.el} $B$OEvA3!"(BContent-Transfer-Encoding $B$r07$&I,MW$,$"$j$^$9!#(B
-$B$3$NL\E*$N$?$a$K!"(BMEL $B$,@0Hw$5$l$O$8$a$^$7$?!#(BBase64 $B$K4X$7$F$O(B 
-@file{tiny-mime.el} $B$N(B code $B$,0\$5$l!"$^$?!"?7$?$K(BQuoted-Printable $B$N(B 
-code $B$,DI2C$5$l$^$7$?!#$3$l$i$,(B@file{mel-b.el} $B$H(B @file{mel-q.el} $B$K$J$j(B
-$B$^$7$?!#(B@refill
-
-$B$^$?!"8e$K!"<i2,(B $BCNI'(B $B$K$h$C$F(B uuencode $BMQ$N(B @file{mel-u.el} $B$,DI2C$5$l!"(B
-$B$=$N8e$K!">.NS(B $B=$J?(B $B;a$K$h$C$F(B x-gzip64 $BMQ$N(B@file{mel-g.el} $B$,DI2C$5$l$^(B
-$B$7$?!#(B@refill
-
-tm $B$G$O8e$K!"<i2,(B $BCNI'(B $B$K$h$C$F(B @file{tiny-mime.el} $B$N:F<BAu$,9T$o$l!"$3(B
-$B$N2aDx$G!"(BSTD 11 $B$N(B parser $B$,=q$+$l$^$7$?!#$3$l$O!"8=:_$N(B 
-@file{std11.el} $B$KEv$?$j$^$9!#$^$?!"$3$N2aDx$G(B @file{tiny-mime.el} $B$OI|(B
-$B9f2=$r9T$&(B @file{tm-ew-d.el} $B$HId9f2=$r9T$&(B @file{tm-ew-e.el} $B$KJ,$1$i$l(B
-$B$^$7$?!#$3$NN><T$,8=:_$N(B @file{eword-decode.el} $B$H(B 
-@file{eword-encode.el} $B$N@hAD$KEv$?$j$^$9!#(B@refill
-
-$B8e$K!"<i2,(B $BCNI'(B $B$i$K$h$C$F(B tm $B$NA4LL=q$-49$(:n6H$,9T$o$l!"$3$N2aDx$G!"(Btm 
-$B$O(B APEL, MEL, SEMI, EMH, RMAIL-MIME, Gnus-MIME $B$J$I$KJ,$1$i$l$^$7$?!#$3(B
-$B$N$&$A$N(B MEL $B$,(B FLIM $B$ND>@\$N@hAD$KEv$?$j$^$9!#(B@refill
-
-$B8e$K!"(BAPEL $B$+$i(B @file{std11.el} $B$,0\$5$l!"$^$?!"(B@file{mailcap.el},
-@file{eword-decode.el} $B$*$h$S(B @file{eword-encode.el} $B$,(B SEMI $B$+$i0\$5$l!"(B
-package $B$NL>A0$,(B FLIM$B$H$J$j$^$9!#(B@refill
-
-$B$3$ND>A0$+$iEDCf(B $BE/(B $B;a$,$h$j(B RFC $B$KCi<B$J<BAu$r=q$-;O$a!"$3$l$O!"8=:_!"(B
-FLIM $B$N;^$G$"$k(B ``FLIM-FLAM'' $B$H$J$C$F$$$^$9!#(B
-
-
-@node Concept Index, Function Index, Appendix, Top
-@chapter $B35G0:w0z(B
-
-@printindex cp
-
-@node Function Index, Variable Index, Concept Index, Top
-@chapter $B4X?t:w0z(B
-
-@printindex fn
-
-@node Variable Index,  , Function Index, Top
-@chapter $BJQ?t:w0z(B
-
-@printindex vr
-@bye
diff --git a/mime-lib.el b/mime-lib.el
deleted file mode 100644
index bdee3ec..0000000
--- a/mime-lib.el
+++ /dev/null
@@ -1,31 +0,0 @@
-;;; mime-lib.el --- MIME library module
-
-;; Copyright (C) 1998 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Keywords: MIME, multimedia, mail, news
-
-;; This file is part of FLIM (Faithful Library about Internet Message).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'mime)
-
-(provide 'mime-lib)
-
-;;; mime-lib.el ends here
diff --git a/mime-parse.el b/mime-parse.el
deleted file mode 100644
index fa20a85..0000000
--- a/mime-parse.el
+++ /dev/null
@@ -1,270 +0,0 @@
-;;; mime-parse.el --- MIME message parser
-
-;; Copyright (C) 1994,1995,1996,1997,1998 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Keywords: parse, MIME, multimedia, mail, news
-
-;; This file is part of SEMI (Spadework for Emacs MIME Interfaces).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'emu)
-(require 'std11)
-(require 'mime-def)
-
-(eval-when-compile (require 'cl))
-
-
-;;; @ field parser
-;;;
-
-(defconst mime/content-parameter-value-regexp
-  (concat "\\("
-	  std11-quoted-string-regexp
-	  "\\|[^; \t\n]*\\)"))
-
-(defconst mime::parameter-regexp
-  (concat "^[ \t]*\;[ \t]*\\(" mime-token-regexp "\\)"
-	  "[ \t]*=[ \t]*\\(" mime/content-parameter-value-regexp "\\)"))
-
-(defun mime-parse-parameter (str)
-  (if (string-match mime::parameter-regexp str)
-      (let ((e (match-end 2)))
-	(cons
-	 (cons (downcase (substring str (match-beginning 1) (match-end 1)))
-	       (std11-strip-quoted-string
-		(substring str (match-beginning 2) e))
-	       )
-	 (substring str e)
-	 ))))
-
-
-;;; @ Content-Type
-;;;
-
-;;;###autoload
-(defun mime-parse-Content-Type (string)
-  "Parse STRING as field-body of Content-Type field.
-Return value is
-    (PRIMARY-TYPE SUBTYPE (NAME1 . VALUE1)(NAME2 . VALUE2) ...)
-or nil.  PRIMARY-TYPE and SUBTYPE are symbol and NAME_n and VALUE_n
-are string."
-  (setq string (std11-unfold-string string))
-  (if (string-match `,(concat "^\\(" mime-token-regexp
-			      "\\)/\\(" mime-token-regexp "\\)") string)
-      (let* ((type (downcase
-		    (substring string (match-beginning 1) (match-end 1))))
-	     (subtype (downcase
-		       (substring string (match-beginning 2) (match-end 2))))
-	     ret dest)
-	(setq string (substring string (match-end 0)))
-	(while (setq ret (mime-parse-parameter string))
-	  (setq dest (cons (car ret) dest)
-		string (cdr ret))
-	  )
-	(make-mime-content-type (intern type)(intern subtype)
-				(nreverse dest))
-	)))
-
-;;;###autoload
-(defun mime-read-Content-Type ()
-  "Read field-body of Content-Type field from current-buffer,
-and return parsed it.  Format of return value is as same as
-`mime-parse-Content-Type'."
-  (let ((str (std11-field-body "Content-Type")))
-    (if str
-	(mime-parse-Content-Type str)
-      )))
-
-
-;;; @ Content-Disposition
-;;;
-
-(defconst mime-disposition-type-regexp mime-token-regexp)
-
-;;;###autoload
-(defun mime-parse-Content-Disposition (string)
-  "Parse STRING as field-body of Content-Disposition field."
-  (setq string (std11-unfold-string string))
-  (if (string-match `,(concat "^" mime-disposition-type-regexp) string)
-      (let* ((e (match-end 0))
-	     (type (downcase (substring string 0 e)))
-	     ret dest)
-	(setq string (substring string e))
-	(while (setq ret (mime-parse-parameter string))
-	  (setq dest (cons (car ret) dest)
-		string (cdr ret))
-	  )
-	(cons (cons 'type (intern type))
-	      (nreverse dest))
-	)))
-
-;;;###autoload
-(defun mime-read-Content-Disposition ()
-  "Read field-body of Content-Disposition field from current-buffer,
-and return parsed it."
-  (let ((str (std11-field-body "Content-Disposition")))
-    (if str
-	(mime-parse-Content-Disposition str)
-      )))
-
-
-;;; @ Content-Transfer-Encoding
-;;;
-
-;;;###autoload
-(defun mime-parse-Content-Transfer-Encoding (string)
-  "Parse STRING as field-body of Content-Transfer-Encoding field."
-  (if (string-match "[ \t\n\r]+$" string)
-      (setq string (match-string 0 string))
-    )
-  (downcase string))
-
-;;;###autoload
-(defun mime-read-Content-Transfer-Encoding (&optional default-encoding)
-  "Read field-body of Content-Transfer-Encoding field from
-current-buffer, and return it.
-If is is not found, return DEFAULT-ENCODING."
-  (let ((str (std11-field-body "Content-Transfer-Encoding")))
-    (if str
-	(mime-parse-Content-Transfer-Encoding str)
-      default-encoding)))
-
-
-;;; @ message parser
-;;;
-
-(defun mime-parse-multipart (entity)
-  (goto-char (point-min))
-  (let* ((representation-type
-	  (mime-entity-representation-type-internal entity))
-	 (content-type (mime-entity-content-type-internal entity))
-	 (dash-boundary
-	  (concat "--" (mime-content-type-parameter content-type "boundary")))
-	 (delimiter       (concat "\n" (regexp-quote dash-boundary)))
-	 (close-delimiter (concat delimiter "--[ \t]*$"))
-	 (rsep (concat delimiter "[ \t]*\n"))
-	 (dc-ctl
-	  (if (eq (mime-content-type-subtype content-type) 'digest)
-	      (make-mime-content-type 'message 'rfc822)
-	    (make-mime-content-type 'text 'plain)
-	    ))
-	 (header-end (mime-entity-header-end-internal entity))
-	 (body-end (mime-entity-body-end-internal entity)))
-    (save-restriction
-      (goto-char body-end)
-      (narrow-to-region header-end
-			(if (re-search-backward close-delimiter nil t)
-			    (match-beginning 0)
-			  body-end))
-      (goto-char header-end)
-      (if (re-search-forward rsep nil t)
-	  (let ((cb (match-end 0))
-		ce ncb ret children
-		(node-id (mime-entity-node-id-internal entity))
-		(i 0))
-	    (while (re-search-forward rsep nil t)
-	      (setq ce (match-beginning 0))
-	      (setq ncb (match-end 0))
-	      (save-restriction
-		(narrow-to-region cb ce)
-		(setq ret (mime-parse-message representation-type dc-ctl
-					      entity (cons i node-id)))
-		)
-	      (setq children (cons ret children))
-	      (goto-char (setq cb ncb))
-	      (setq i (1+ i))
-	      )
-	    (setq ce (point-max))
-	    (save-restriction
-	      (narrow-to-region cb ce)
-	      (setq ret (mime-parse-message representation-type dc-ctl
-					    entity (cons i node-id)))
-	      )
-	    (setq children (cons ret children))
-	    (mime-entity-set-children-internal entity (nreverse children))
-	    )
-	(mime-entity-set-content-type-internal
-	 entity (make-mime-content-type 'message 'x-broken))
-	nil)
-      )))
-
-(defun mime-parse-encapsulated (entity)
-  (mime-entity-set-children-internal
-   entity
-   (save-restriction
-     (narrow-to-region (mime-entity-body-start-internal entity)
-		       (mime-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)
-  (let ((header-start (point-min))
-	header-end
-	body-start
-	(body-end (point-max))
-	content-type)
-    (goto-char header-start)
-    (if (re-search-forward "^$" nil t)
-	(setq header-end (match-end 0)
-	      body-start (if (= header-end body-end)
-			     body-end
-			   (1+ header-end)))
-      (setq header-end (point-min)
-	    body-start (point-min)))
-    (save-restriction
-      (narrow-to-region header-start header-end)
-      (setq content-type (or (let ((str (std11-fetch-field "Content-Type")))
-			       (if str
-				   (mime-parse-Content-Type str)
-				 ))
-			     default-ctl))
-      )
-    (make-mime-entity-internal representation-type
-			       (current-buffer)
-			       content-type nil parent node-id
-			       (current-buffer)
-			       header-start header-end
-			       body-start body-end)
-    ))
-
-
-;;; @ for buffer
-;;;
-
-;;;###autoload
-(defun mime-parse-buffer (&optional buffer representation-type)
-  "Parse BUFFER as a MIME message.
-If buffer is omitted, it parses current-buffer."
-  (save-excursion
-    (if buffer (set-buffer buffer))
-    (setq mime-message-structure
-	  (mime-parse-message (or representation-type 'buffer) nil))
-    ))
-
-
-;;; @ end
-;;;
-
-(provide 'mime-parse)
-
-;;; mime-parse.el ends here
diff --git a/mime.el b/mime.el
deleted file mode 100644
index 9200173..0000000
--- a/mime.el
+++ /dev/null
@@ -1,344 +0,0 @@
-;;; mime.el --- MIME library module
-
-;; Copyright (C) 1998 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Keywords: MIME, multimedia, mail, news
-
-;; This file is part of FLIM (Faithful Library about Internet Message).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'alist)
-(require 'std11)
-(require 'mime-def)
-(require 'eword-decode)
-
-(autoload 'eword-encode-field "eword-encode"
-  "Encode header field STRING, and return the result.")
-(autoload 'eword-encode-header "eword-encode"
-  "Encode header fields to network representation, such as MIME encoded-word.")
-
-
-(autoload 'mime-parse-Content-Type "mime-parse"
-  "Parse STRING as field-body of Content-Type field.")
-(autoload 'mime-read-Content-Type "mime-parse"
-  "Read field-body of Content-Type field from current-buffer,
-and return parsed it.")
-
-(autoload 'mime-parse-Content-Disposition "mime-parse"
-  "Parse STRING as field-body of Content-Disposition field.")
-(autoload 'mime-read-Content-Disposition "mime-parse"
-  "Read field-body of Content-Disposition field from current-buffer,
-and return parsed it.")
-
-(autoload 'mime-parse-Content-Transfer-Encoding "mime-parse"
-  "Parse STRING as field-body of Content-Transfer-Encoding field.")
-(autoload 'mime-read-Content-Transfer-Encoding "mime-parse"
-  "Read field-body of Content-Transfer-Encoding field from
-current-buffer, and return it.")
-
-(autoload 'mime-parse-buffer "mime-parse"
-  "Parse BUFFER as a MIME message.")
-
-
-;;; @ Entity Representation and Implementation
-;;;
-
-(defsubst mime-find-function (service type)
-  (let ((imps (cdr (assq type mime-entity-implementation-alist))))
-    (if imps
-	(cdr (assq service imps))
-      (require (intern (format "mm%s" type)))
-      (cdr (assq service
-		 (cdr (assq type mime-entity-implementation-alist))))
-      )))
-
-(defsubst mime-entity-function (entity service)
-  (mime-find-function service
-		      (mime-entity-representation-type-internal entity)))
-
-(defsubst mime-entity-send (entity service &rest args)
-  (apply (mime-find-function
-	  service (mime-entity-representation-type-internal entity))
-	 entity
-	 args))
-
-(defsubst mm-arglist-to-arguments (arglist)
-  (let (dest)
-    (while arglist
-      (let ((arg (car arglist)))
-	(or (memq arg '(&optional &rest))
-	    (setq dest (cons arg dest)))
-	)
-      (setq arglist (cdr arglist)))
-    (nreverse dest)))
-
-(defmacro mm-define-generic (name args &optional doc)
-  (if doc
-      `(defun ,(intern (format "mime-%s" name)) ,args
-	 ,doc
-	 (mime-entity-send ,(car args) ',name
-			   ,@(mm-arglist-to-arguments (cdr args)))
-	 )
-    `(defun ,(intern (format "mime-%s" name)) ,args
-       (mime-entity-send ,(car args) ',name
-			 ,@(mm-arglist-to-arguments (cdr args)))
-       )))
-
-(put 'mm-define-generic 'lisp-indent-function 'defun)
-
-(defun mime-open-entity (type location)
-  "Open an entity and return it.
-TYPE is representation-type.
-LOCATION is location of entity.  Specification of it is depended on
-representation-type."
-  (let ((entity (make-mime-entity-internal type location)))
-    (mime-entity-send entity 'initialize-instance)
-    entity))
-
-(mm-define-generic entity-cooked-p (entity)
-  "Return non-nil if contents of ENTITY has been already code-converted.")
-
-
-;;; @ Entity as node of message
-;;;
-
-(defun mime-entity-children (entity)
-  (or (mime-entity-children-internal entity)
-      (mime-entity-send entity 'entity-children)))
-
-(defalias 'mime-entity-node-id 'mime-entity-node-id-internal)
-
-(defun mime-entity-number (entity)
-  "Return entity-number of ENTITY."
-  (reverse (mime-entity-node-id-internal entity)))
-
-(defun mime-find-entity-from-number (entity-number &optional message)
-  "Return entity from ENTITY-NUMBER in MESSAGE.
-If MESSAGE is not specified, `mime-message-structure' is used."
-  (or message
-      (setq message mime-message-structure))
-  (let ((sn (car entity-number)))
-    (if (null sn)
-	message
-      (let ((rc (nth sn (mime-entity-children message))))
-	(if rc
-	    (mime-find-entity-from-number (cdr entity-number) rc)
-	  ))
-      )))
-
-(defun mime-find-entity-from-node-id (entity-node-id &optional message)
-  "Return entity from ENTITY-NODE-ID in MESSAGE.
-If MESSAGE is not specified, `mime-message-structure' is used."
-  (mime-find-entity-from-number (reverse entity-node-id) message))
-
-(defun mime-entity-parent (entity &optional message)
-  "Return mother entity of ENTITY.
-If MESSAGE is specified, it is regarded as root entity."
-  (if (equal entity message)
-      nil
-    (mime-entity-parent-internal entity)))
-
-(defun mime-root-entity-p (entity &optional message)
-  "Return t if ENTITY is root-entity (message).
-If MESSAGE is specified, it is regarded as root entity."
-  (null (mime-entity-parent entity message)))
-
-
-;;; @ Entity Buffer
-;;;
-
-(defun mime-entity-buffer (entity)
-  (or (mime-entity-buffer-internal entity)
-      (mime-entity-send entity 'entity-buffer)))
-
-(mm-define-generic entity-point-min (entity)
-  "Return the start point of ENTITY in the buffer which contains ENTITY.")
-
-(mm-define-generic entity-point-max (entity)
-  "Return the end point of ENTITY in the buffer which contains ENTITY.")
-
-(defun mime-entity-header-start (entity)
-  (or (mime-entity-header-start-internal entity)
-      (mime-entity-send entity 'entity-header-start)))
-
-(defun mime-entity-header-end (entity)
-  (or (mime-entity-header-end-internal entity)
-      (mime-entity-send entity 'entity-header-end)))
-
-(defun mime-entity-body-start (entity)
-  (or (mime-entity-body-start-internal entity)
-      (mime-entity-send entity 'entity-body-start)))
-
-(defun mime-entity-body-end (entity)
-  (or (mime-entity-body-end-internal entity)
-      (mime-entity-send entity 'entity-body-end)))
-
-
-;;; @ Entity Header
-;;;
-
-(defun mime-fetch-field (field-name &optional entity)
-  (or (symbolp field-name)
-      (setq field-name (intern (capitalize (capitalize field-name)))))
-  (or entity
-      (setq entity mime-message-structure))
-  (let* ((header (mime-entity-original-header-internal entity))
-	 (field-body (cdr (assq field-name header))))
-    (or field-body
-	(progn
-	  (if (setq field-body
-		    (mime-entity-send entity 'fetch-field
-				      (symbol-name field-name)))
-	      (mime-entity-set-original-header-internal
-	       entity (put-alist field-name field-body header))
-	    )
-	  field-body))))
-
-(defalias 'mime-entity-content-type 'mime-entity-content-type-internal)
-
-(defun mime-entity-content-disposition (entity)
-  (or (mime-entity-content-disposition-internal entity)
-      (let ((ret (mime-fetch-field 'Content-Disposition entity)))
-	(if ret
-	    (let ((disposition (mime-parse-Content-Disposition ret)))
-	      (when disposition
-		(mime-entity-set-content-disposition-internal
-		 entity disposition)
-		disposition))))))
-
-(defun mime-entity-encoding (entity &optional default-encoding)
-  (or (mime-entity-encoding-internal entity)
-      (let ((encoding
-	     (or (let ((ret (mime-fetch-field
-			     'Content-Transfer-Encoding entity)))
-		   (and ret (mime-parse-Content-Transfer-Encoding ret)))
-		 default-encoding "7bit")))
-	(mime-entity-set-encoding-internal entity encoding)
-	encoding)))
-
-(defun mime-read-field (field-name &optional entity)
-  (or (symbolp field-name)
-      (setq field-name (capitalize (capitalize field-name))))
-  (or entity
-      (setq entity mime-message-structure))
-  (cond ((eq field-name 'Content-Type)
-	 (mime-entity-content-type entity)
-	 )
-	((eq field-name 'Content-Disposition)
-	 (mime-entity-content-disposition entity)
-	 )
-	((eq field-name 'Content-Transfer-Encoding)
-	 (mime-entity-encoding entity)
-	 )
-	(t
-	 (let* ((header (mime-entity-parsed-header-internal entity))
-		(field (cdr (assq field-name header))))
-	   (or field
-	       (let ((field-body (mime-fetch-field field-name entity)))
-		 (when field-body
-		   (cond ((memq field-name '(From Resent-From
-					     To Resent-To
-					     Cc Resent-Cc
-					     Bcc Resent-Bcc
-					     Reply-To Resent-Reply-To))
-			  (setq field (std11-parse-addresses
-				       (eword-lexical-analyze field-body)))
-			  )
-			 ((memq field-name '(Sender Resent-Sender))
-			  (setq field (std11-parse-address
-				       (eword-lexical-analyze field-body)))
-			  )
-			 ((memq field-name eword-decode-ignored-field-list)
-			  (setq field field-body))
-			 ((memq field-name eword-decode-structured-field-list)
-			  (setq field (eword-decode-structured-field-body
-				       field-body)))
-			 (t
-			  (setq field (ew-decode-field (symbol-name field-name)
-						       field-body))
-			  ))
-		   (mime-entity-set-parsed-header-internal
-		    entity (put-alist field-name field header))
-		   field)))))))
-
-(mm-define-generic insert-decoded-header (entity &optional invisible-fields
-					  visible-fields)
-  "Insert before point a decoded header of ENTITY.")
-
-
-;;; @ Entity Attributes
-;;;
-
-(defun mime-entity-uu-filename (entity)
-  (if (member (mime-entity-encoding entity) mime-uuencode-encoding-name-list)
-      (save-excursion
-	(set-buffer (mime-entity-buffer entity))
-	(goto-char (mime-entity-body-start entity))
-	(if (re-search-forward "^begin [0-9]+ "
-			       (mime-entity-body-end entity) t)
-	    (if (looking-at ".+$")
-		(buffer-substring (match-beginning 0)(match-end 0))
-	      )))))
-
-(defun mime-entity-filename (entity)
-  "Return filename of ENTITY."
-  (or (mime-entity-uu-filename entity)
-      (mime-content-disposition-filename
-       (mime-entity-content-disposition entity))
-      (cdr (let ((param (mime-content-type-parameters
-			 (mime-entity-content-type entity))))
-	     (or (assoc "name" param)
-		 (assoc "x-name" param))
-	     ))))
-
-
-(defsubst mime-entity-media-type (entity)
-  (mime-content-type-primary-type (mime-entity-content-type entity)))
-(defsubst mime-entity-media-subtype (entity)
-  (mime-content-type-subtype (mime-entity-content-type entity)))
-(defsubst mime-entity-parameters (entity)
-  (mime-content-type-parameters (mime-entity-content-type entity)))
-(defsubst mime-entity-type/subtype (entity-info)
-  (mime-type/subtype-string (mime-entity-media-type entity-info)
-			    (mime-entity-media-subtype entity-info)))
-
-
-;;; @ Entity Content
-;;;
-
-(mm-define-generic entity-content (entity)
-  "Return content of ENTITY as byte sequence (string).")
-
-(mm-define-generic write-entity-content (entity filename)
-  "Write content of ENTITY into FILENAME.")
-
-(mm-define-generic write-entity (entity filename)
-  "Write header and body of ENTITY into FILENAME.")
-
-(mm-define-generic write-entity-body (entity filename)
-  "Write body of ENTITY into FILENAME.")
-
-
-;;; @ end
-;;;
-
-(provide 'mime)
-
-;;; mime.el ends here
diff --git a/mmbuffer.el b/mmbuffer.el
deleted file mode 100644
index 5913265..0000000
--- a/mmbuffer.el
+++ /dev/null
@@ -1,194 +0,0 @@
-;;; mmbuffer.el --- MIME entity module for binary buffer
-
-;; Copyright (C) 1998 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Keywords: MIME, multimedia, mail, news
-
-;; This file is part of FLIM (Faithful Library about Internet Message).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'mime)
-(require 'mime-parse)
-
-(mm-define-backend buffer)
-
-(mm-define-method initialize-instance ((entity buffer))
-  (mime-entity-set-buffer-internal
-   entity (mime-entity-location-internal entity))
-  (save-excursion
-    (set-buffer (mime-entity-buffer-internal entity))
-    (setq mime-message-structure entity)
-    (let ((header-start (point-min))
-	  header-end
-	  body-start
-	  (body-end (point-max)))
-      (goto-char header-start)
-      (if (re-search-forward "^$" nil t)
-	  (setq header-end (match-end 0)
-		body-start (if (= header-end body-end)
-			       body-end
-			     (1+ header-end)))
-	(setq header-end (point-min)
-	      body-start (point-min)))
-      (save-restriction
-	(narrow-to-region header-start header-end)
-	(mime-entity-set-content-type-internal
-	 entity
-	 (let ((str (std11-fetch-field "Content-Type")))
-	   (if str
-	       (mime-parse-Content-Type str)
-	     )))
-	)
-      (mime-entity-set-header-start-internal entity header-start)
-      (mime-entity-set-header-end-internal entity header-end)
-      (mime-entity-set-body-start-internal entity body-start)
-      (mime-entity-set-body-end-internal entity body-end)
-      )))
-
-(mm-define-method entity-point-min ((entity buffer))
-  (mime-entity-header-start-internal entity))
-
-(mm-define-method entity-point-max ((entity buffer))
-  (mime-entity-body-end-internal entity))
-
-(mm-define-method fetch-field ((entity buffer) field-name)
-  (save-excursion
-    (set-buffer (mime-entity-buffer-internal entity))
-    (save-restriction
-      (narrow-to-region (mime-entity-header-start-internal entity)
-			(mime-entity-header-end-internal entity))
-      (std11-fetch-field field-name)
-      )))
-
-(mm-define-method entity-cooked-p ((entity buffer)) nil)
-
-(mm-define-method entity-children ((entity buffer))
-  (let* ((content-type (mime-entity-content-type entity))
-	 (primary-type (mime-content-type-primary-type content-type)))
-    (cond ((eq primary-type 'multipart)
-	   (mime-parse-multipart entity)
-	   )
-	  ((and (eq primary-type 'message)
-		(memq (mime-content-type-subtype content-type)
-		      '(rfc822 news external-body)
-		      ))
-	   (mime-parse-encapsulated entity)
-	   ))
-    ))
-
-(mm-define-method entity-content ((entity buffer))
-  (save-excursion
-    (set-buffer (mime-entity-buffer-internal entity))
-    (mime-decode-string
-     (buffer-substring (mime-entity-body-start-internal entity)
-		       (mime-entity-body-end-internal entity))
-     (mime-entity-encoding entity))))
-
-(mm-define-method write-entity-content ((entity buffer) filename)
-  (save-excursion
-    (set-buffer (mime-entity-buffer-internal entity))
-    (mime-write-decoded-region (mime-entity-body-start-internal entity)
-			       (mime-entity-body-end-internal entity)
-			       filename
-			       (or (mime-entity-encoding entity) "7bit"))
-    ))
-
-(mm-define-method write-entity ((entity buffer) filename)
-  (save-excursion
-    (set-buffer (mime-entity-buffer-internal entity))
-    (write-region-as-binary (mime-entity-header-start-internal entity)
-			    (mime-entity-body-end-internal entity)
-			    filename)
-    ))
-
-(mm-define-method write-entity-body ((entity buffer) filename)
-  (save-excursion
-    (set-buffer (mime-entity-buffer-internal entity))
-    (write-region-as-binary (mime-entity-body-start-internal entity)
-			    (mime-entity-body-end-internal entity)
-			    filename)
-    ))
-
-(defun mime-visible-field-p (field-name visible-fields invisible-fields)
-  (or (catch 'found
-	(while visible-fields
-	  (let ((regexp (car visible-fields)))
-	    (if (string-match regexp field-name)
-		(throw 'found t)
-	      ))
-	  (setq visible-fields (cdr visible-fields))
-	  ))
-      (catch 'found
-	(while invisible-fields
-	  (let ((regexp (car invisible-fields)))
-	    (if (string-match regexp field-name)
-		(throw 'found nil)
-	      ))
-	  (setq invisible-fields (cdr invisible-fields))
-	  )
-	t)))
-
-(mm-define-method insert-decoded-header ((entity buffer)
-					 &optional invisible-fields
-					 visible-fields)
-  (save-restriction
-    (narrow-to-region (point)(point))
-    (let ((the-buf (current-buffer))
-	  (src-buf (mime-entity-buffer-internal entity))
-	  (h-end (mime-entity-header-end-internal entity))
-	  beg p end field-name len field-body decoded)
-      (save-excursion
-	(set-buffer src-buf)
-	(goto-char (mime-entity-header-start-internal entity))
-	(save-restriction
-	  (narrow-to-region (point) h-end)
-	  (while (re-search-forward std11-field-head-regexp nil t)
-	    (setq beg (match-beginning 0)
-		  p (match-end 0)
-		  field-name (buffer-substring beg (1- p))
-		  len (string-width field-name)
-		  end (std11-field-end))
-	    (when (mime-visible-field-p field-name
-					visible-fields invisible-fields)
-	      (save-excursion
-		(set-buffer the-buf)
-		(setq field-body (ew-lf-crlf-to-crlf
-				  (save-excursion
-				    (set-buffer src-buf)
-				    (buffer-substring p end))))
-		(setq decoded (ew-decode-field field-name field-body))
-		(unless (equal field-body decoded)
-		  (setq decoded (ew-crlf-refold
-				 decoded
-				 (1+ (string-width field-name))
-				 fill-column)))
-		(insert field-name)
-		(insert ":")
-		(insert (ew-crlf-to-lf decoded))
-		(insert "\n")
-		))))))))
-
-
-;;; @ end
-;;;
-
-(provide 'mmbuffer)
-
-;;; mmbuffer.el ends here
diff --git a/mmcooked.el b/mmcooked.el
deleted file mode 100644
index cd261f4..0000000
--- a/mmcooked.el
+++ /dev/null
@@ -1,75 +0,0 @@
-;;; mmcooked.el --- MIME entity implementation for binary buffer
-
-;; Copyright (C) 1998 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Keywords: MIME, multimedia, mail, news
-
-;; This file is part of FLIM (Faithful Library about Internet Message).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'mmbuffer)
-
-(mm-define-backend cooked (buffer))
-
-(mm-define-method entity-cooked-p ((entity cooked)) t)
-
-(mm-define-method write-entity-content ((entity cooked) filename)
-  (save-excursion
-    (set-buffer (mime-entity-buffer-internal entity))
-    (let ((encoding (or (mime-entity-encoding entity) "7bit")))
-      (if (member encoding '("7bit" "8bit" "binary"))
-	  (write-region (mime-entity-body-start-internal entity)
-			(mime-entity-body-end-internal entity) filename)
-	(mime-write-decoded-region (mime-entity-body-start-internal entity)
-				   (mime-entity-body-end-internal entity)
-				   filename encoding)
-	))))
-
-(mm-define-method write-entity ((entity cooked) filename)
-  (save-excursion
-    (set-buffer (mime-entity-buffer-internal entity))
-    (write-region (mime-entity-header-start-internal entity)
-		  (mime-entity-body-end-internal entity)
-		  filename)
-    ))
-
-(mm-define-method write-entity-body ((entity cooked) filename)
-  (save-excursion
-    (set-buffer (mime-entity-buffer-internal entity))
-    (write-region (mime-entity-body-start-internal entity)
-		  (mime-entity-body-end-internal entity)
-		  filename)
-    ))
-
-(mm-define-method insert-decoded-header ((entity cooked)
-					 &optional invisible-fields
-					 visible-fields)
-  (let (default-mime-charset)
-    (funcall (mime-find-function 'insert-decoded-header 'buffer)
-	     entity invisible-fields visible-fields)
-    ))
-
-
-;;; @ end
-;;;
-
-(provide 'mmcooked)
-
-;;; mmcooked.el ends here
diff --git a/natset.el b/natset.el
deleted file mode 100644
index 2a09041..0000000
--- a/natset.el
+++ /dev/null
@@ -1,296 +0,0 @@
-(provide 'natset)
-
-;;; pacage for set of natural number.
-;; (natural number includes zero.)
-
-;;; predicates
-
-(defun natset-empty-p (ns)
-  "Returns t if NS is empty."
-  (equal ns ()))
-
-(defun natset-full-p (ns)
-  "Returns t if NS is full."
-  (equal ns '(0)))
-
-(defun natset-closed-p (ns)
-  "Returns t if NS is closed."
-  (= (logand (length ns) 1) 0))
-
-(defun natset-open-p (ns)
-  "Returns t if NS is open."
-  (= (logand (length ns) 1) 1))
-
-(defun natset-has-p (ns i)
-  "Returns t if I is in NS."
-  (not (natset-empty-p (natset-intersection (natset-single i) ns))))
-
-(defun natset-has-intersection-p (ns1 ns2)
-  "Returns t if the intersection of NS1 and NS2 is not empty."
-  (not (natset-empty-p (natset-intersection ns1 ns2))))
-
-(defun natset-include-p (ns1 ns2)
-  "Returns t if NS1 includes NS2."
-  (equal ns1 (natset-union ns1 ns2)))
-
-;;; accessor
-
-(defun natset-start (ns)
-  "Returns start element in NS."
-  (if (natset-empty-p ns)
-      (error "natset empty" ns))
-  (car ns))
-
-;;; primitive constructor
-
-(defun natset-empty ()
-  "Returns a empty set.
-{}"
-  ())
-
-(defun natset-full ()
-  "Returns a full set.
-{i | 0 <= i}"
-  '(0))
-
-(defun natset-single (&rest elts)
-  "Returns a set contains singleton elements.
-{i | i in ELTS}"
-  (let ((ns (natset-empty)))
-    (while elts
-      (setq ns (natset-union ns (natset-seg (car elts) (car elts)))
-	    elts (cdr elts)))
-    ns))
-
-(defun natset-seg (start &optional end)
-  "Returns a set contains one segment.
-{i | START <= i and i <= END}
-
-If END is nil, Return the set {i | START <= i}"
-  (if end
-      (list start (1+ end))
-    (list start)))
-
-;;; complex constructor
-
-(defun natset-start-set (ns)
-  "Returns a set contains start boundaries for NS.
-{i | NS does not contains i-1 and NS contains i}"
-  (let ((res ()))
-    (while ns
-      (setq res (cons (1+ (car ns)) (cons (car ns) res))
-	    ns (cddr ns)))
-    (nreverse res)))
-
-(defun natset-end-set (ns)
-  "Returns a set contains end boundaries for NS.
-{i | NS contains i-1 and NS does not contains i}"
-  (let ((res ()))
-    (setq ns (cdr ns))
-    (while ns
-      (setq res (cons (1+ (car ns)) (cons (car ns) res))
-	    ns (cddr ns)))
-    (nreverse res)))
-
-(defun natset-boundary-set (ns)
-  "Returns a set contains start and end boundaries for NS.
-{i | NS contains i-1 xor NS does not contains i}"
-  (natset-union (natset-start-set ns) (natset-end-set ns)))
-
-(defun natset-minmax (ns)
-  "Returns a set contains a range from minimum to maximam of NS.
-{i | There exists j, k in NS, j <= i <= k}"
-  (cond
-   ((null ns) ())
-   ((natset-open-p ns) (list (car ns)))
-   (t
-    (list (car ns) (nth (1- (length ns)) ns)))))
-
-;;; set operation
-
-(defun natset-negate (ns)
-  "Returns negated set.
-{i | 0 <= i and NS does not contains i}"
-  (if (and (consp ns) (= (car ns) 0))
-      (cdr ns)
-    (cons 0 ns)))
-
-(defun natset-union (&rest nss)
-  "Returns unioned set.
-{i | There exists ns in NSS s.t ns contains i}"
-  (let ((ns (natset-empty)))
-    (while nss
-      (setq ns (natset-union2 ns (car nss))
-	    nss (cdr nss)))
-    ns))
-
-(defun natset-intersection (&rest nss)
-  "Returns intersectioned set.
-{i | For all ns in NSS, ns contains i}"
-  (natset-negate (apply 'natset-union (mapcar 'natset-negate nss))))
-
-(defun natset-sub (ns &rest nss)
-  "Returns subtracted set.
-{i | NS contains i and for all ns in NSS, ns does not contains i}"
-  (setq ns (natset-intersection ns (natset-negate (apply 'natset-union nss)))))
-
-;;; enumeration
-
-(defun natset-enum (ns)
-  (if (natset-open-p ns)
-      (error "natset open" ns))
-  (let ((res ()) i j)
-    (while ns
-      (setq i (car ns)
-	    j (cadr ns)
-	    ns (cddr ns))
-      (while (< i j)
-	(setq res (cons i res)
-	      i (1+ i))))
-    (nreverse res)))
-
-;;; code generation
-
-(defun natset-take-seg (ns)
-  (cond
-   ((null ns) (error "NS empty" ns))
-   ((null (cdr ns)) (cons ns ()))
-   (t (cons (list (car ns) (cadr ns)) (cddr ns)))))
-
-(defun natset-valid-filter (ns valid)
-  "Returns a filtered set R.
-R includes intersection between VALID and NS.
-R does not include intersecton between VALID and negated NS.
-Element does not contained in VALID is unspecified."
-  (let* ((res (natset-intersection valid ns))
-	 (len (length res))
-	 (u-set (natset-negate valid))
-	 tmp1 tmp2 tmpl)
-    (while u-set
-      (setq tmp1 (natset-take-seg u-set))
-      (setq tmp2 (natset-union (car tmp1) res)
-	    tmpl (length tmp2))
-      (if (or (< tmpl len) (and (= tmpl len) (equal 0 (car tmp2))))
-	  (setq res tmp2
-		len (length tmp2)))
-      (setq u-set (cdr tmp1)))
-    res))
-
-(defun natset-gen-pred-exp (ns var &optional valid)
-  "Returns a expression to test value of variable VAR is in NS or not.
-
-If VALID is not nil, the condition value of VAR is in VALID is assumed.
-It is impossible to set VALID to empty set because empty set is represented as nil."
-  (if valid (setq ns (natset-valid-filter ns valid)))
-  (cond
-   ((null ns) nil)
-   ((= (car ns) 0) (natset-gen-pred-exp-internal (cdr ns) var nil 0))
-   (t (natset-gen-pred-exp-internal ns var t 0))))
-
-(defun natset-gen-ccl-branch (reg fail &rest clauses)
-  (let* ((natsets (mapcar 'car clauses)))
-    (let ((range (apply 'natset-union natsets)) tmp)
-      (unless (natset-empty-p range)
-	(setq natsets (cons (natset-negate range)
-			    natsets)
-	      clauses (cons (cons (car natsets)
-				  fail)
-			    clauses)))
-      (setq range (natset-full)
-	    tmp natsets)
-      (while tmp
-	(setcar tmp
-		(natset-intersection
-		 (car tmp)
-		 range))
-	(setq range (natset-sub range (car tmp))
-	      tmp (cdr tmp))))
-    (let ((b (natset-enum
-	      (natset-sub
-	       (apply
-		'natset-union
-		(mapcar
-		 'natset-boundary-set
-		 natsets))
-	       (natset-single 0)))))
-      (natset-gen-ccl-branch-internal reg 0 b clauses))))
-
-(defun natset-gen-ccl-branch-internal (reg s b clauses)
-  (cond
-   ((null b)
-    (cdr (natset-assoc s clauses)))
-   ((null (cdr b))
-    `(if (,reg < ,(car b))
-	 ,(cdr (natset-assoc s clauses))
-       ,(cdr (natset-assoc (car b) clauses))))
-   (t
-    (let* ((div (natset-divide (length b)))
-	   (l (append b ()))
-	   (g (nthcdr (1- div) l))
-	   (m (cadr g)))
-      (setq g (prog1 (cddr g) (setcdr g ())))
-      `(if (,reg < ,m)
-	   ,(natset-gen-ccl-branch-internal reg s l clauses)
-	 ,(natset-gen-ccl-branch-internal reg m g clauses))))))
-
-(defun natset-assoc (key alist)
-  (catch 'return
-    (while alist
-      (when (natset-has-p (caar alist) key)
-	(throw 'return (car alist)))
-      (setq alist (cdr alist)))
-    nil))
-
-;;; internal primitive
-
-(defun natset-union2 (ns1 ns2)
-  (let (res start (end t))
-    (while (and end (or (consp ns1) (consp ns2)))
-      (if (and (consp ns1) (or (null ns2) (<= (car ns1) (car ns2))))
-          (setq start (car ns1)
-                end (cadr ns1)
-                ns1 (cddr ns1))
-        (setq start (car ns2)
-              end (cadr ns2)
-              ns2 (cddr ns2)))
-      (while (and end
-                  (or (and (consp ns1) (<= (car ns1) end))
-                      (and (consp ns2) (<= (car ns2) end))))
-        (if (and (consp ns1) (<= (car ns1) end))
-	    (progn
-	      (if (or (null (cadr ns1)) (< end (cadr ns1))) (setq end (cadr ns1)))
-	      (setq ns1 (cddr ns1)))
-	  (progn
-	    (if (or (null (cadr ns2)) (< end (cadr ns2))) (setq end (cadr ns2)))
-	    (setq ns2 (cddr ns2)))))
-      (setq res (cons start res))
-      (if end (setq res (cons end res))))
-    (nreverse res)))
-
-; n is greater or equal 2.
-; returns one of 1 .. n-1
-; (In reality, returns greatest 2^i - 1)
-(defun natset-divide (n)
-  (let ((l 2) tmp)
-    (while (< (setq tmp (lsh l 1)) n)
-      (setq l tmp))
-    (1- l)))
-
-(defun natset-gen-pred-exp-internal (ns var bool base)
-  (cond
-   ((null ns) (not bool))
-   ((null (cdr ns))
-    (if (<= (car ns) base)
-	bool
-      (if bool `(<= ,(car ns) ,var) `(< ,var ,(car ns)))))
-   (t
-    (let* ((div (natset-divide (length ns)))
-	   (l (append ns ()))
-	   (g (nthcdr (1- div) l))
-	   (m (cadr g))
-	   )
-      (setq g (prog1 (cddr g) (setcdr g ())))
-      `(if (< ,var ,m)
-	   ,(natset-gen-pred-exp-internal l var bool base)
-	 ,(natset-gen-pred-exp-internal
-	   g var (if (= (logand div 1) 1) bool (not bool)) m))))))
diff --git a/rx.el b/rx.el
deleted file mode 100644
index 08c60d0..0000000
--- a/rx.el
+++ /dev/null
@@ -1,394 +0,0 @@
-;;; regular expression
-
-;;; core
-;; rx ::= []                  {}
-;;      | ()                  {""}
-;;      | (* . rx)            closure
-;;      | (| . rxs)           alternative
-;;      | (rx . rx)           concatination
-;;      | (cc c1 c2 c3 ...)   character class (natset)
-;;; sugar
-;;      | (+ . rx)            positive closure
-;;      | "..."               string
-;;      | c                   character
-;;      | (non-ascii)         (cc 128)
-;;      | [ range ... ]
-;;      | [ ^ range ... ]
-;;; internal
-;;      | pc                  primitive character class
-;;      | (act . int)         action
-
-;; range ::= c
-;;        | "..."
-;;        | (c1 c2)           [c1 c2]
-;;        | (c1 . c2)         [c1 c2)
-;;        | (c)               [c1 inf)
-;;        | non-ascii
-
-(require 'natset)
-(require 'automata)
-(provide 'rx)
-
-(defun rx-empty-p (rx) (equal rx []))
-(defun rx-null-p (rx) (equal rx ()))
-(defun rx-act-p (rx) (and (consp rx) (eq (car rx) 'act)))
-(defun rx-cc-p (rx) (and (consp rx) (eq (car rx) 'cc)))
-(defalias 'rx-pc-p 'integerp)
-
-(defun rx-clo-p (rx) (and (consp rx) (eq (car rx) '*)))
-(defun rx-alt-p (rx) (and (consp rx) (eq (car rx) '|)))
-(defun rx-con-p (rx) (and (consp rx) (or (null (car rx)) (not (symbolp (car rx))))))
-
-(defun rx-clo (rx)
-  (cond
-   ((rx-empty-p rx) ())
-   ((rx-null-p rx) rx)
-   ((rx-act-p rx) rx)
-   ((rx-clo-p rx) rx)
-   (t (cons '* rx))))
-(defun rx-alt (rxs)
-  (cond
-   ((null rxs) [])
-   ((null (cdr rxs)) (car rxs))
-   (t (cons '| rxs))))
-(defun rx-alt2 (r1 r2)
-  (cond
-   ((rx-empty-p r1) r2)
-   ((rx-empty-p r2) r1)
-   ((equal r1 r2) r1)
-   (t (list '| r1 r2))))
-(defun rx-con (r1 r2)
-  (cond
-   ((rx-empty-p r1) [])
-   ((rx-empty-p r2) [])
-   ((rx-null-p r1) r2)
-   ((rx-null-p r2) r1)
-   ((and (rx-act-p r1) (rx-act-p r2)) r2)
-   (t (cons r1 r2))))
-(defun rx-act (obj) (cons 'act obj))
-(defun rx-cc (cs) (cons 'cc cs))
-
-;;; regular expression preprocessing
-
-(defun rx-range-to-ns (range)
-  (cond
-   ((char-or-char-int-p range)
-    (natset-single (char-int range)))
-   ((stringp range)
-    (let ((ns (natset-empty)) (chars (string-to-int-list range)))
-      (while chars
-	(setq ns (natset-union ns (natset-single (car chars)))
-	      chars (cdr chars)))
-      ns))
-   ((eq range 'non-ascii)
-    (natset-seg 128))
-   ((and (consp range)
-	 (null (cdr range))
-	 (char-or-char-int-p (car range)))
-    (natset-seg (car range)))
-   ((and (consp range)
-	 (consp (cdr range))
-	 (null (cddr range))
-	 (char-or-char-int-p (car range))
-	 (char-or-char-int-p (cadr range)))
-    (natset-seg (char-int (car range)) (char-int (cadr range))))
-   ((and (consp range)
-	 (char-or-char-int-p (car range))
-	 (char-or-char-int-p (cdr range)))
-    (natset-seg (char-int (car range)) (1- (char-int (cdr range)))))
-   (t (error "not range %s" range))))
-
-(defun rx-vcc-to-rx (vcc)
-  (let ((l (append vcc ())) neg ns)
-    (if (eq (car l) '^)
-	(setq l (cdr l)
-	      neg t))
-    (setq l (mapcar 'rx-range-to-ns l))
-    (setq ns (natset-empty))
-    (while l
-      (setq ns (natset-union ns (car l))
-	    l (cdr l)))
-    (if neg (setq ns (natset-negate ns)))
-    (if (natset-empty-p ns)
-	[]
-      (rx-cc ns))))
-
-(defun rx-desugar (rx)
-  (cond
-   ((stringp rx) (rx-desugar (string-to-int-list rx)))
-   ((vectorp rx) (rx-vcc-to-rx rx))
-   ((char-or-char-int-p rx) (rx-cc (natset-single (char-int rx))))
-   ((and (consp rx) (eq (car rx) '+)) (let ((r (rx-desugar (cdr rx)))) (rx-con r (rx-clo r))))
-   ((and (consp rx) (eq (car rx) 'non-ascii)) (rx-cc (natset-seg 128)))
-   ((and (consp rx) (eq (car rx) 'any)) (rx-cc (natset-full)))
-   ((rx-empty-p rx) rx)
-   ((rx-null-p rx) rx)
-   ((rx-act-p rx) rx)
-   ((rx-cc-p rx) rx)
-   ((rx-clo-p rx) (rx-clo (rx-desugar (cdr rx))))
-   ((rx-alt-p rx) (rx-alt (mapcar 'rx-desugar (cdr rx))))
-   ((rx-con-p rx) (rx-con (rx-desugar (car rx)) (rx-desugar (cdr rx))))
-   (t (error "not rx %s" rx))))
-
-(defun rx-collect-cc (rx &optional cs)
-  (cond
-   ((rx-empty-p rx) cs)
-   ((rx-null-p rx) cs)
-   ((rx-act-p rx) cs)
-   ((rx-cc-p rx) (append (cdr rx) cs))
-   ((rx-clo-p rx) (rx-collect-cc (cdr rx) cs))
-   ((rx-alt-p rx)
-    (setq rx (cdr rx))
-    (while (consp rx)
-      (setq cs (rx-collect-cc (car rx) cs)
-	    rx (cdr rx)))
-    cs)
-   ((rx-con-p rx) (rx-collect-cc (car rx) (rx-collect-cc (cdr rx) cs)))
-   (t (error "not rx %s" rx))))
-
-(defun rx-cc-to-pc (rx cs)
-  (cond
-   ((rx-empty-p rx) rx)
-   ((rx-null-p rx) rx)
-   ((rx-act-p rx) rx)
-   ((rx-cc-p rx)
-    (setq rx (cdr rx))
-    (let (res)
-      (while (and (consp rx) (consp (cdr rx)))
-	(let ((start (car rx)) (end (cadr rx)))
-	  (setq res (rx-filter (lambda (c) (and (<= start c) (< c end))) cs res)
-		rx (cddr rx))))
-      (if (consp rx)
-	  (let ((start (car rx)))
-	    (setq res (rx-filter (lambda (c) (<= start c)) cs res))))
-      (rx-alt (rx-sort-int res))))
-   ((rx-clo-p rx) (rx-clo (rx-cc-to-pc (cdr rx) cs)))
-   ((rx-alt-p rx) (rx-alt (mapcar (lambda (r) (rx-cc-to-pc r cs)) (cdr rx))))
-   ((rx-con-p rx) (rx-con (rx-cc-to-pc (car rx) cs) (rx-cc-to-pc (cdr rx) cs)))
-   (t (error "not rx %s" rx))))
-
-(defun rx-categolize-char (rx)
-  (let ((cs (rx-sort-int (rx-collect-cc rx))))
-    (cons
-     (rx-cc-to-pc rx cs)
-     cs)))
-
-;;; simplification
-
-(defun rx-nullable-p (rx)
-  (cond
-   ((rx-empty-p rx) nil)
-   ((rx-null-p rx) t)
-   ((rx-act-p rx) t)
-   ((rx-pc-p rx) nil)
-   ((rx-clo-p rx) t)
-   ((rx-alt-p rx)
-    (setq rx (cdr rx))
-    (while (and (consp rx) (not (rx-nullable-p (car rx))))
-      (setq rx (cdr rx)))
-    (consp rx))
-   ((rx-con-p rx)
-    (and (rx-nullable-p (car rx)) (rx-nullable-p (cdr rx))))
-   (t (error "not rx %s" rx))))
-
-(defun rx-simplify (rx)
-  (cond
-   ((rx-empty-p rx) rx)
-   ((rx-null-p rx) rx)
-   ((rx-act-p rx) rx)
-   ((rx-pc-p rx) rx)
-   ((rx-clo-p rx)
-    (rx-clo (rx-simplify (cdr rx))))
-   ((rx-alt-p rx)
-    (let ((in (cdr rx)) (out ())
-	  already-simplified-list already-simplified)
-      (while (consp in)
-	(setq rx (car in)
-	      in (cdr in)
-	      already-simplified (car already-simplified-list)
-	      already-simplified-list (cdr already-simplified-list))
-	(if (rx-alt-p rx)
-	    (setq in (append (cdr rx) in))
-	  (progn
-	    (setq rx (if already-simplified rx (rx-simplify rx)))
-	    (cond
-	     ((rx-empty-p rx)) ; [] is identity element for alternation.
-	     ((rx-alt-p rx)
-	      (setq in (append (cdr rx) in)
-		    already-simplified-list (append (make-list (length (cdr rx)) nil) already-simplified-list)))
-	     ((not (member rx out))
-	      (setq out (cons rx out)))))))
-      (rx-alt (rx-sort-rx (reverse out)))))
-   ((rx-con-p rx)
-    (catch 'return
-      (let ((in (list (car rx) (cdr rx))) (out ())
-	    already-simplified-list already-simplified)
-	(while (consp in)
-	  (setq rx (car in)
-		in (cdr in)
-		already-simplified (car already-simplified-list)
-		already-simplified-list (cdr already-simplified-list))
-	  (if (rx-con-p rx)
-	      (setq in (rx-cons* (car rx) (cdr rx) in))
-	    (progn
-	      (setq rx (if already-simplified rx (rx-simplify rx)))
-	      (cond
-	       ((rx-empty-p rx) ; [] is zero element for concatination.
-		(throw 'return []))
-	       ((rx-null-p rx)) ; () is identity element for concatination.
-	       ((rx-con-p rx)
-		(setq in (rx-cons* (car rx) (cdr rx) in))
-		      already-simplified-list (rx-cons* t t already-simplified-list))
-	       (t
-		(setq out (cons rx out)))))))
-	(if (= (length out) 1)
-	    (car out)
-	  (nreverse out)))))
-   (t (error "not rx %s" rx))))
-
-;;; head property
-
-(defun rx-head-pcs (rx &optional res)
-  (cond
-   ((rx-empty-p rx) res)
-   ((rx-null-p rx) res)
-   ((rx-act-p rx) res)
-   ((rx-pc-p rx) (if (member rx res) res (cons rx res)))
-   ((rx-clo-p rx) (rx-head-pcs (cdr rx) res))
-   ((rx-alt-p rx)
-    (setq rx (cdr rx))
-    (while (consp rx)
-      (setq res (rx-head-pcs (car rx) res)
-	    rx (cdr rx)))
-    res)
-   ((rx-con-p rx)
-    (setq res (rx-head-pcs (car rx) res))
-    (if (rx-nullable-p (car rx))
-	(setq res (rx-head-pcs (cdr rx) res)))
-    res)
-   (t (error "not rx %s" rx))))
-
-(defun rx-head-act (rx &optional res)
-  (cond
-   ((rx-empty-p rx) res)
-   ((rx-null-p rx) res)
-   ((rx-act-p rx) (rx-better-act rx res))
-   ((rx-pc-p rx) res)
-   ((rx-clo-p rx) (rx-head-act (cdr rx) res))
-   ((rx-alt-p rx)
-    (setq rx (cdr rx))
-    (while (consp rx)
-      (setq res (rx-head-act (car rx) res)
-	    rx (cdr rx)))
-    res)
-   ((rx-con-p rx)
-    (setq res (rx-head-act (car rx) res))
-    (if (rx-nullable-p (car rx))
-	(setq res (rx-head-act (cdr rx) res)))
-    res)
-   (t (error "not rx %s" rx))))
-
-;;; stepping
-
-(defun rx-step-internal (rx pc)
-  (cond
-   ((rx-empty-p rx) [])
-   ((rx-null-p rx) [])
-   ((rx-act-p rx) [])
-   ((rx-pc-p rx) (if (= rx pc) () []))
-   ((rx-clo-p rx) (rx-con (rx-step-internal (cdr rx) pc) rx))
-   ((rx-alt-p rx) (rx-alt (mapcar (lambda (r) (rx-step-internal r pc)) (cdr rx))))
-   ((rx-con-p rx)
-    (if (rx-nullable-p (car rx))
-	(rx-alt2
-	 (rx-con (rx-step-internal (car rx) pc) (cdr rx))
-	 (rx-step-internal (cdr rx) pc))
-      (rx-con (rx-step-internal (car rx) pc) (cdr rx))))
-   (t (error "not rx %s" rx))))
-
-(defun rx-step (rx &rest pcs)
-  (while (consp pcs)
-    (setq rx (rx-simplify (rx-step-internal rx (car pcs)))
-	  pcs (cdr pcs)))
-  rx)
-
-;;; utilities    
-
-(defun rx-better-act (a1 a2)
-  (cond
-   ((null a2) a1)
-   ((< (cdr a1) (cdr a2)) a1)
-   (t a2)))
-
-(defun rx-cons* (elt &rest lst)
-  (if (null lst)
-      elt
-    (cons elt (apply 'rx-cons* (car lst) (cdr lst)))))
-
-(defun rx-filter (fun lst &optional rest)
-  (if (null lst)
-      rest
-    (if (funcall fun (car lst))
-	(cons (car lst) (rx-filter fun (cdr lst) rest))
-      (rx-filter fun (cdr lst) rest))))
-
-(defun rx-cmp-index (rx)
-  (cond
-   ((rx-null-p rx) (list 0))
-   ((rx-act-p rx) (list 1 (cdr rx)))
-   ((rx-empty-p rx) (list 2))
-   ((rx-clo-p rx) (list 3 (cdr rx)))
-   ((rx-alt-p rx) (cons 4 (cdr rx)))
-   ((rx-con-p rx) (list 5 (car rx) (cdr rx)))
-   ((rx-pc-p rx) (list 6 rx))
-   (t (error "not rx %s" rx))))
-
-(defun rx-cmp-int (i1 i2)
-  (cond
-   ((< i1 i2) -1)
-   ((> i1 i2) 1)
-   (t 0)))
-
-(defun rx-cmp-rx (r1 r2)
-  (let ((i1 (rx-cmp-index r1)) (i2 (rx-cmp-index r2)))
-     (cond
-      ((< (car i1) (car i2)) -1)
-      ((> (car i1) (car i2)) 1)
-      (t (setq i1 (cdr i1)
-	       i2 (cdr i2))
-	 (catch 'result
-	   (while (and (consp i1) (consp i2))
-	     (let ((r (if (and (integerp (car i1)) (integerp (car i2)))
-			  (rx-cmp-int (car i1) (car i2))
-			(rx-cmp-rx (car i1) (car i2)))))
-	       (if (not (zerop r))
-		   (throw 'result r)
-		 (setq i1 (cdr i1)
-		       i2 (cdr i2)))))
-	   (if (null i1) (if (null i2) 0 -1) 1))))))
-
-(defun rx-sort-rx (l &optional res)
-  (if (null l)
-      res
-    (let ((e (car l)) lt gt cmp)
-      (setq l (cdr l))
-      (while (consp l)
-	(setq cmp (rx-cmp-rx (car l) e))
-	(cond
-	 ((< cmp 0) (setq lt (cons (car l) lt)))
-	 ((< 0 cmp) (setq gt (cons (car l) gt))))
-	(setq l (cdr l)))
-      (rx-sort-rx lt (cons e (rx-sort-rx gt res))))))
-
-(defun rx-sort-int (l &optional res)
-  (if (null l)
-      res
-    (let ((e (car l)) lt gt)
-      (setq l (cdr l))
-      (while (consp l)
-	(cond
-	 ((< (car l) e) (setq lt (cons (car l) lt)))
-	 ((< e (car l)) (setq gt (cons (car l) gt))))
-	(setq l (cdr l)))
-      (rx-sort-int lt (cons e (rx-sort-int gt res))))))
-
diff --git a/std11.el b/std11.el
deleted file mode 100644
index 080cae2..0000000
--- a/std11.el
+++ /dev/null
@@ -1,836 +0,0 @@
-;;; std11.el --- STD 11 functions for GNU Emacs
-
-;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
-
-;; Author:   MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Keywords: mail, news, RFC 822, STD 11
-
-;; This file is part of MU (Message Utilities).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(autoload 'buffer-substring-no-properties "emu")
-(autoload 'member "emu")
-
-
-;;; @ field
-;;;
-
-(defconst std11-field-name-regexp "[!-9;-~]+")
-(defconst std11-field-head-regexp
-  (concat "^" std11-field-name-regexp ":"))
-(defconst std11-next-field-head-regexp
-  (concat "\n" std11-field-name-regexp ":"))
-
-(defun std11-field-end ()
-  "Move to end of field and return this point. [std11.el]"
-  (if (re-search-forward std11-next-field-head-regexp nil t)
-      (goto-char (match-beginning 0))
-    (if (re-search-forward "^$" nil t)
-	(goto-char (1- (match-beginning 0)))
-      (end-of-line)
-      ))
-  (point)
-  )
-
-(defsubst std11-fetch-field (name)
-  "Return the value of the header field NAME.
-The buffer is expected to be narrowed to just the headers of the message."
-  (save-excursion
-    (goto-char (point-min))
-    (let ((case-fold-search t))
-      (if (re-search-forward (concat "^" name ":[ \t]*") nil t)
-	  (buffer-substring-no-properties (match-end 0) (std11-field-end))
-	))))
-
-(defun std11-field-body (name &optional boundary)
-  "Return the value of the header field NAME.
-If BOUNDARY is not nil, it is used as message header separator."
-  (save-excursion
-    (save-restriction
-      (std11-narrow-to-header boundary)
-      (std11-fetch-field name)
-      )))
-
-(defun std11-find-field-body (field-names &optional boundary)
-  "Return the first found field-body specified by FIELD-NAMES
-of the message header in current buffer. If BOUNDARY is not nil, it is
-used as message header separator. [std11.el]"
-  (save-excursion
-    (save-restriction
-      (std11-narrow-to-header boundary)
-      (let ((case-fold-search t)
-	    field-name)
-	(catch 'tag
-	  (while (setq field-name (car field-names))
-	    (goto-char (point-min))
-	    (if (re-search-forward (concat "^" field-name ":[ \t]*") nil t)
-		(throw 'tag
-		       (buffer-substring-no-properties
-			(match-end 0) (std11-field-end)))
-	      )
-	    (setq field-names (cdr field-names))
-	    ))))))
-
-(defun std11-field-bodies (field-names &optional default-value boundary)
-  "Return list of each field-bodies of FIELD-NAMES of the message header
-in current buffer. If BOUNDARY is not nil, it is used as message
-header separator. [std11.el]"
-  (save-excursion
-    (save-restriction
-      (std11-narrow-to-header boundary)
-      (let* ((case-fold-search t)
-	     (dest (make-list (length field-names) default-value))
-	     (s-rest field-names)
-	     (d-rest dest)
-	     field-name)
-	(while (setq field-name (car s-rest))
-	  (goto-char (point-min))
-	  (if (re-search-forward (concat "^" field-name ":[ \t]*") nil t)
-	      (setcar d-rest
-		      (buffer-substring-no-properties
-		       (match-end 0) (std11-field-end)))
-	    )
-	  (setq s-rest (cdr s-rest)
-		d-rest (cdr d-rest))
-	  )
-	dest))))
-
-
-;;; @ unfolding
-;;;
-
-(defun std11-unfold-string (string)
-  "Unfold STRING as message header field. [std11.el]"
-  (let ((dest ""))
-    (while (string-match "\n\\([ \t]\\)" string)
-      (setq dest (concat dest
-                         (substring string 0 (match-beginning 0))
-                         (match-string 1 string)
-                         ))
-      (setq string (substring string (match-end 0)))
-      )
-    (concat dest string)
-    ))
-
-
-;;; @ header
-;;;
-
-(defun std11-narrow-to-header (&optional boundary)
-  "Narrow to the message header.
-If BOUNDARY is not nil, it is used as message header separator.
-\[std11.el]"
-  (narrow-to-region
-   (goto-char (point-min))
-   (if (re-search-forward
-	(concat "^\\(" (regexp-quote (or boundary "")) "\\)?$")
-	nil t)
-       (match-beginning 0)
-     (point-max)
-     )))
-
-(defun std11-header-string (regexp &optional boundary)
-  "Return string of message header fields matched by REGEXP.
-If BOUNDARY is not nil, it is used as message header separator.
-\[std11.el]"
-  (let ((case-fold-search t))
-    (save-excursion
-      (save-restriction
-	(std11-narrow-to-header boundary)
-	(goto-char (point-min))
-	(let (field header)
-	  (while (re-search-forward std11-field-head-regexp nil t)
-	    (setq field
-		  (buffer-substring (match-beginning 0) (std11-field-end)))
-	    (if (string-match regexp field)
-		(setq header (concat header field "\n"))
-	      ))
-	  header)
-	))))
-
-(defun std11-header-string-except (regexp &optional boundary)
-  "Return string of message header fields not matched by REGEXP.
-If BOUNDARY is not nil, it is used as message header separator.
-\[std11.el]"
-  (let ((case-fold-search t))
-    (save-excursion
-      (save-restriction
-	(std11-narrow-to-header boundary)
-	(goto-char (point-min))
-	(let (field header)
-	  (while (re-search-forward std11-field-head-regexp nil t)
-	    (setq field
-		  (buffer-substring (match-beginning 0) (std11-field-end)))
-	    (if (not (string-match regexp field))
-		(setq header (concat header field "\n"))
-	      ))
-	  header)
-	))))
-
-(defun std11-collect-field-names (&optional boundary)
-  "Return list of all field-names of the message header in current buffer.
-If BOUNDARY is not nil, it is used as message header separator.
-\[std11.el]"
-  (save-excursion
-    (save-restriction
-      (std11-narrow-to-header boundary)
-      (goto-char (point-min))
-      (let (dest name)
-	(while (re-search-forward std11-field-head-regexp nil t)
-	  (setq name (buffer-substring-no-properties
-		      (match-beginning 0)(1- (match-end 0))))
-	  (or (member name dest)
-	      (setq dest (cons name dest))
-	      )
-	  )
-	dest))))
-
-
-;;; @ quoted-string
-;;;
-
-(defun std11-wrap-as-quoted-pairs (string specials)
-  (let (dest
-	(i 0)
-	(b 0)
-	(len (length string))
-	)
-    (while (< i len)
-      (let ((chr (aref string i)))
-	(if (memq chr specials)
-	    (setq dest (concat dest (substring string b i) "\\")
-		  b i)
-	  ))
-      (setq i (1+ i))
-      )
-    (concat dest (substring string b))
-    ))
-
-(defconst std11-non-qtext-char-list '(?\" ?\\ ?\r ?\n))
-
-(defun std11-wrap-as-quoted-string (string)
-  "Wrap STRING as RFC 822 quoted-string. [std11.el]"
-  (concat "\""
-	  (std11-wrap-as-quoted-pairs string std11-non-qtext-char-list)
-	  "\""))
-
-(defun std11-strip-quoted-pair (string)
-  "Strip quoted-pairs in STRING. [std11.el]"
-  (let (dest
-	(b 0)
-	(i 0)
-	(len (length string))
-	)
-    (while (< i len)
-      (let ((chr (aref string i)))
-	(if (eq chr ?\\)
-	    (setq dest (concat dest (substring string b i))
-		  b (1+ i)
-		  i (+ i 2))
-	  (setq i (1+ i))
-	  )))
-    (concat dest (substring string b))
-    ))
-
-(defun std11-strip-quoted-string (string)
-  "Strip quoted-string STRING. [std11.el]"
-  (let ((len (length string)))
-    (or (and (>= len 2)
-	     (let ((max (1- len)))
-	       (and (eq (aref string 0) ?\")
-		    (eq (aref string max) ?\")
-		    (std11-strip-quoted-pair (substring string 1 max))
-		    )))
-	string)))
-
-
-;;; @ lexical analyze
-;;;
-
-(defconst std11-space-chars " \t\n")
-(defconst std11-spaces-regexp (` (, (concat "[" std11-space-chars "]+"))))
-(defconst std11-special-char-list '(?\] ?\[
-					?\( ?\) ?< ?> ?@
-					?, ?\; ?: ?\\ ?\"
-					?.))
-(defconst std11-atom-regexp
-  (` (, (concat "^[^" std11-special-char-list std11-space-chars "]+"))))
-
-(defun std11-analyze-spaces (string)
-  (if (and (string-match std11-spaces-regexp string)
-	   (= (match-beginning 0) 0))
-      (let ((end (match-end 0)))
-	(cons (cons 'spaces (substring string 0 end))
-	      (substring string end)
-	      ))))
-
-(defun std11-analyze-special (str)
-  (if (and (> (length str) 0)
-	   (memq (aref str 0) std11-special-char-list))
-      (cons (cons 'specials (substring str 0 1))
-	    (substring str 1)
-	    )))
-
-(defun std11-analyze-atom (str)
-  (if (string-match std11-atom-regexp str)
-      (let ((end (match-end 0)))
-	(cons (cons 'atom (substring str 0 end))
-	      (substring str end)
-	      ))))
-
-(defun std11-check-enclosure (str open close &optional recursive from)
-  (let ((len (length str))
-	(i (or from 0))
-	)
-    (if (and (> len i)
-	     (eq (aref str i) open))
-	(let (p chr)
-	  (setq i (1+ i))
-	  (catch 'tag
-	    (while (< i len)
-	      (setq chr (aref str i))
-	      (cond ((eq chr ?\\)
-		     (setq i (1+ i))
-		     (if (>= i len)
-			 (throw 'tag nil)
-		       )
-		     (setq i (1+ i))
-		     )
-		    ((eq chr close)
-		     (throw 'tag (1+ i))
-		     )
-		    ((eq chr open)
-		     (if (and recursive
-			      (setq p (std11-check-enclosure
-				       str open close recursive i))
-			      )
-			 (setq i p)
-		       (throw 'tag nil)
-		       ))
-		    (t
-		     (setq i (1+ i))
-		     ))
-	      ))))))
-
-(defun std11-analyze-quoted-string (str)
-  (let ((p (std11-check-enclosure str ?\" ?\")))
-    (if p
-	(cons (cons 'quoted-string (substring str 1 (1- p)))
-	      (substring str p))
-      )))
-
-(defun std11-analyze-domain-literal (str)
-  (let ((p (std11-check-enclosure str ?\[ ?\])))
-    (if p
-	(cons (cons 'domain-literal (substring str 1 (1- p)))
-	      (substring str p))
-      )))
-
-(defun std11-analyze-comment (str)
-  (let ((p (std11-check-enclosure str ?\( ?\) t)))
-    (if p
-	(cons (cons 'comment (substring str 1 (1- p)))
-	      (substring str p))
-      )))
-
-(defun std11-lexical-analyze (str)
-  (let (dest ret)
-    (while (not (string-equal str ""))
-      (setq ret
-	    (or (std11-analyze-quoted-string str)
-		(std11-analyze-domain-literal str)
-		(std11-analyze-comment str)
-		(std11-analyze-spaces str)
-		(std11-analyze-special str)
-		(std11-analyze-atom str)
-		'((error) . "")
-		))
-      (setq dest (cons (car ret) dest))
-      (setq str (cdr ret))
-      )
-    (nreverse dest)
-    ))
-
-
-;;; @ parser
-;;;
-
-(defun std11-ignored-token-p (token)
-  (let ((type (car token)))
-    (or (eq type 'spaces)(eq type 'comment))
-    ))
-
-(defun std11-parse-token (lal)
-  (let (token itl)
-    (while (and lal
-		(progn
-		  (setq token (car lal))
-		  (std11-ignored-token-p token)
-		  ))
-      (setq lal (cdr lal))
-      (setq itl (cons token itl))
-      )
-    (cons (nreverse (cons token itl))
-	  (cdr lal))
-    ))
-
-(defun std11-parse-ascii-token (lal)
-  (let (token itl parsed token-value)
-    (while (and lal
-		(setq token (car lal))
-		(or (std11-ignored-token-p token)
-		    (if (and (setq token-value (cdr token))
-			     (find-non-ascii-charset-string token-value)
-			     )
-			(setq token nil)
-		      )))
-      (setq lal (cdr lal))
-      (setq itl (cons token itl))
-      )
-    (if (and token
-	     (setq parsed (nreverse (cons token itl)))
-	     )
-	(cons parsed (cdr lal))
-      )))
-
-(defun std11-parse-token-or-comment (lal)
-  (let (token itl)
-    (while (and lal
-		(progn
-		  (setq token (car lal))
-		  (eq (car token) 'spaces)
-		  ))
-      (setq lal (cdr lal))
-      (setq itl (cons token itl))
-      )
-    (cons (nreverse (cons token itl))
-	  (cdr lal))
-    ))
-
-(defun std11-parse-word (lal)
-  (let ((ret (std11-parse-ascii-token lal)))
-    (if ret
-	(let ((elt (car ret))
-	      (rest (cdr ret))
-	      )
-	  (if (or (assq 'atom elt)
-		  (assq 'quoted-string elt))
-	      (cons (cons 'word elt) rest)
-	    )))))
-
-(defun std11-parse-word-or-comment (lal)
-  (let ((ret (std11-parse-token-or-comment lal)))
-    (if ret
-	(let ((elt (car ret))
-	      (rest (cdr ret))
-	      )
-	  (cond ((or (assq 'atom elt)
-		     (assq 'quoted-string elt))
-		 (cons (cons 'word elt) rest)
-		 )
-		((assq 'comment elt)
-		 (cons (cons 'comment-word elt) rest)
-		 ))
-	  ))))
-
-(defun std11-parse-phrase (lal)
-  (let (ret phrase)
-    (while (setq ret (std11-parse-word-or-comment lal))
-      (setq phrase (append phrase (cdr (car ret))))
-      (setq lal (cdr ret))
-      )
-    (if phrase
-	(cons (cons 'phrase phrase) lal)
-      )))
-
-(defun std11-parse-local-part (lal)
-  (let ((ret (std11-parse-word lal)))
-    (if ret
-	(let ((local-part (cdr (car ret))) dot)
-	  (setq lal (cdr ret))
-	  (while (and (setq ret (std11-parse-ascii-token lal))
-		      (setq dot (car ret))
-		      (string-equal (cdr (assq 'specials dot)) ".")
-		      (setq ret (std11-parse-word (cdr ret)))
-		      (setq local-part
-			    (append local-part dot (cdr (car ret)))
-			    )
-		      (setq lal (cdr ret))
-		      ))
-	  (cons (cons 'local-part local-part) lal)
-	  ))))
-
-(defun std11-parse-sub-domain (lal)
-  (let ((ret (std11-parse-ascii-token lal)))
-    (if ret
-	(let ((sub-domain (car ret)))
-	  (if (or (assq 'atom sub-domain)
-		  (assq 'domain-literal sub-domain)
-		  )
-	      (cons (cons 'sub-domain sub-domain)
-		    (cdr ret)
-		    )
-	    )))))
-
-(defun std11-parse-domain (lal)
-  (let ((ret (std11-parse-sub-domain lal)))
-    (if ret
-	(let ((domain (cdr (car ret))) dot)
-	  (setq lal (cdr ret))
-	  (while (and (setq ret (std11-parse-ascii-token lal))
-		      (setq dot (car ret))
-		      (string-equal (cdr (assq 'specials dot)) ".")
-		      (setq ret (std11-parse-sub-domain (cdr ret)))
-		      (setq domain
-			    (append domain dot (cdr (car ret)))
-			    )
-		      (setq lal (cdr ret))
-		      ))
-	  (cons (cons 'domain domain) lal)
-	  ))))
-
-(defun std11-parse-at-domain (lal)
-  (let ((ret (std11-parse-ascii-token lal)) at-sign)
-    (if (and ret
-	     (setq at-sign (car ret))
-	     (string-equal (cdr (assq 'specials at-sign)) "@")
-	     (setq ret (std11-parse-domain (cdr ret)))
-	     )
-	(cons (cons 'at-domain (append at-sign (cdr (car ret))))
-	      (cdr ret))
-      )))
-
-(defun std11-parse-addr-spec (lal)
-  (let ((ret (std11-parse-local-part lal))
-	addr)
-    (if (and ret
-	     (prog1
-		 (setq addr (cdr (car ret)))
-	       (setq lal (cdr ret))
-	       (and (setq ret (std11-parse-at-domain lal))
-		    (setq addr (append addr (cdr (car ret))))
-		    (setq lal (cdr ret))
-		    )))
-	(cons (cons 'addr-spec addr) lal)
-      )))
-
-(defun std11-parse-route (lal)
-  (let ((ret (std11-parse-at-domain lal))
-	route comma colon)
-    (if (and ret
-	     (progn
-	       (setq route (cdr (car ret)))
-	       (setq lal (cdr ret))
-	       (while (and (setq ret (std11-parse-ascii-token lal))
-			   (setq comma (car ret))
-			   (string-equal (cdr (assq 'specials comma)) ",")
-			   (setq ret (std11-parse-at-domain (cdr ret)))
-			   )
-		 (setq route (append route comma (cdr (car ret))))
-		 (setq lal (cdr ret))
-		 )
-	       (and (setq ret (std11-parse-ascii-token lal))
-		    (setq colon (car ret))
-		    (string-equal (cdr (assq 'specials colon)) ":")
-		    (setq route (append route colon))
-		    )
-	       ))
-	(cons (cons 'route route)
-	      (cdr ret)
-	      )
-      )))
-
-(defun std11-parse-route-addr (lal)
-  (let ((ret (std11-parse-ascii-token lal))
-	< route addr-spec >)
-    (if (and ret
-	     (setq < (car ret))
-	     (string-equal (cdr (assq 'specials <)) "<")
-	     (setq lal (cdr ret))
-	     (progn (and (setq ret (std11-parse-route lal))
-			 (setq route (cdr (car ret)))
-			 (setq lal (cdr ret))
-			 )
-		    (setq ret (std11-parse-addr-spec lal))
-		    )
-	     (setq addr-spec (cdr (car ret)))
-	     (setq lal (cdr ret))
-	     (setq ret (std11-parse-ascii-token lal))
-	     (setq > (car ret))
-	     (string-equal (cdr (assq 'specials >)) ">")
-	     )
-	(cons (cons 'route-addr (append route addr-spec))
-	      (cdr ret)
-	      )
-      )))
-
-(defun std11-parse-phrase-route-addr (lal)
-  (let ((ret (std11-parse-phrase lal)) phrase)
-    (if ret
-	(progn
-	  (setq phrase (cdr (car ret)))
-	  (setq lal (cdr ret))
-	  ))
-    (if (setq ret (std11-parse-route-addr lal))
-	(cons (list 'phrase-route-addr
-		    phrase
-		    (cdr (car ret)))
-	      (cdr ret))
-      )))
-
-(defun std11-parse-mailbox (lal)
-  (let ((ret (or (std11-parse-phrase-route-addr lal)
-		 (std11-parse-addr-spec lal)))
-	mbox comment)
-    (if (and ret
-	     (prog1
-		 (setq mbox (car ret))
-	       (setq lal (cdr ret))
-	       (if (and (setq ret (std11-parse-token-or-comment lal))
-			(setq comment (cdr (assq 'comment (car ret))))
-			)
-		   (setq lal (cdr ret))
-		 )))
-	(cons (list 'mailbox mbox comment)
-	      lal)
-      )))
-
-(defun std11-parse-group (lal)
-  (let ((ret (std11-parse-phrase lal))
-	phrase colon comma mbox semicolon)
-    (if (and ret
-	     (setq phrase (cdr (car ret)))
-	     (setq lal (cdr ret))
-	     (setq ret (std11-parse-ascii-token lal))
-	     (setq colon (car ret))
-	     (string-equal (cdr (assq 'specials colon)) ":")
-	     (setq lal (cdr ret))
-	     (progn
-	       (and (setq ret (std11-parse-mailbox lal))
-		    (setq mbox (list (car ret)))
-		    (setq lal (cdr ret))
-		    (progn
-		      (while (and (setq ret (std11-parse-ascii-token lal))
-				  (setq comma (car ret))
-				  (string-equal
-				   (cdr (assq 'specials comma)) ",")
-				  (setq lal (cdr ret))
-				  (setq ret (std11-parse-mailbox lal))
-				  (setq mbox (cons (car ret) mbox))
-				  (setq lal (cdr ret))
-				  )
-			)))
-	       (and (setq ret (std11-parse-ascii-token lal))
-		    (setq semicolon (car ret))
-		    (string-equal (cdr (assq 'specials semicolon)) ";")
-		    )))
-	(cons (list 'group phrase (nreverse mbox))
-	      (cdr ret)
-	      )
-      )))
-
-(defun std11-parse-address (lal)
-  (or (std11-parse-group lal)
-      (std11-parse-mailbox lal)
-      ))
-
-(defun std11-parse-addresses (lal)
-  (let ((ret (std11-parse-address lal)))
-    (if ret
-	(let ((dest (list (car ret))))
-	  (setq lal (cdr ret))
-	  (while (and (setq ret (std11-parse-ascii-token lal))
-		      (string-equal (cdr (assq 'specials (car ret))) ",")
-		      (setq ret (std11-parse-address (cdr ret)))
-		      )
-	    (setq dest (cons (car ret) dest))
-	    (setq lal (cdr ret))
-	    )
-	  (nreverse dest)
-	  ))))
-
-(defun std11-parse-msg-id (lal)
-  (let ((ret (std11-parse-ascii-token lal))
-	< addr-spec >)
-    (if (and ret
-	     (setq < (car ret))
-	     (string-equal (cdr (assq 'specials <)) "<")
-	     (setq lal (cdr ret))
-	     (setq ret (std11-parse-addr-spec lal))
-	     (setq addr-spec (car ret))
-	     (setq lal (cdr ret))
-	     (setq ret (std11-parse-ascii-token lal))
-	     (setq > (car ret))
-	     (string-equal (cdr (assq 'specials >)) ">")
-	     )
-	(cons (cons 'msg-id (cdr addr-spec))
-	      (cdr ret))
-      )))
-
-
-;;; @ composer
-;;;
-
-(defun std11-addr-to-string (seq)
-  "Return string from lexical analyzed list SEQ
-represents addr-spec of RFC 822. [std11.el]"
-  (mapconcat (function
-	      (lambda (token)
-		(let ((name (car token)))
-                  (cond
-                   ((eq name 'spaces) "")
-                   ((eq name 'comment) "")
-                   ((eq name 'quoted-string)
-                    (concat "\"" (cdr token) "\""))
-                   (t (cdr token)))
-                  )))
-	     seq "")
-  )
-
-(defun std11-address-string (address)
-  "Return string of address part from parsed ADDRESS of RFC 822.
-\[std11.el]"
-  (cond ((eq (car address) 'group)
-	 (mapconcat (function std11-address-string)
-		    (car (cdr address))
-		    ", ")
-	 )
-	((eq (car address) 'mailbox)
-	 (let ((addr (nth 1 address)))
-	   (std11-addr-to-string
-	    (if (eq (car addr) 'phrase-route-addr)
-		(nth 2 addr)
-	      (cdr addr)
-	      )
-	    )))))
-
-(defun std11-full-name-string (address)
-  "Return string of full-name part from parsed ADDRESS of RFC 822.
-\[std11.el]"
-  (cond ((eq (car address) 'group)
-	 (mapconcat (function
-		     (lambda (token)
-		       (cdr token)
-		       ))
-		    (nth 1 address) "")
-	 )
-	((eq (car address) 'mailbox)
-	 (let ((addr (nth 1 address))
-	       (comment (nth 2 address))
-	       phrase)
-	   (if (eq (car addr) 'phrase-route-addr)
-	       (setq phrase
-		     (mapconcat
-		      (function
-		       (lambda (token)
-			 (let ((type (car token)))
-			   (cond ((eq type 'quoted-string)
-				  (std11-strip-quoted-pair (cdr token))
-				  )
-				 ((eq type 'comment)
-				  (concat
-				   "("
-				   (std11-strip-quoted-pair (cdr token))
-				   ")")
-				  )
-				 (t
-				  (cdr token)
-				  )))))
-		      (nth 1 addr) ""))
-	     )
-	   (cond ((> (length phrase) 0) phrase)
-		 (comment (std11-strip-quoted-pair comment))
-		 )
-	   ))))
-
-(defun std11-msg-id-string (msg-id)
-  "Return string from parsed MSG-ID of RFC 822."
-  (concat "<" (std11-addr-to-string (cdr msg-id)) ">")
-  )
-
-(defun std11-fill-msg-id-list-string (string &optional column)
-  "Fill list of msg-id in STRING, and return the result."
-  (or column
-      (setq column 12))
-  (let ((lal (std11-lexical-analyze string))
-	dest)
-    (let ((ret (std11-parse-msg-id lal)))
-      (if ret
-	  (let* ((str (std11-msg-id-string (car ret)))
-		 (len (length str)))
-	    (setq lal (cdr ret))
-	    (if (> (+ len column) 76)
-		(setq dest (concat dest "\n " str)
-		      column (1+ len))
-	      (setq dest str
-		    column (+ column len))
-	      ))
-	(setq dest (concat dest (cdr (car lal)))
-	      lal (cdr lal))
-	))
-    (while lal
-      (let ((ret (std11-parse-msg-id lal)))
-	(if ret
-	    (let* ((str (std11-msg-id-string (car ret)))
-		   (len (1+ (length str))))
-	      (setq lal (cdr ret))
-	      (if (> (+ len column) 76)
-		  (setq dest (concat dest "\n " str)
-			column len)
-		(setq dest (concat dest " " str)
-		      column (+ column len))
-		))
-	  (setq dest (concat dest (cdr (car lal)))
-		lal (cdr lal))
-	  )))
-    dest))
-
-
-;;; @ parser with lexical analyzer
-;;;
-
-(defun std11-parse-address-string (string)
-  "Parse STRING as mail address. [std11.el]"
-  (std11-parse-address (std11-lexical-analyze string))
-  )
-
-(defun std11-parse-addresses-string (string)
-  "Parse STRING as mail address list. [std11.el]"
-  (std11-parse-addresses (std11-lexical-analyze string))
-  )
-
-(defun std11-extract-address-components (string)
-  "Extract full name and canonical address from STRING.
-Returns a list of the form (FULL-NAME CANONICAL-ADDRESS).
-If no name can be extracted, FULL-NAME will be nil. [std11.el]"
-  (let* ((structure (car (std11-parse-address-string
-			  (std11-unfold-string string))))
-         (phrase  (std11-full-name-string structure))
-         (address (std11-address-string structure))
-         )
-    (list phrase address)
-    ))
-
-
-;;; @ end
-;;;
-
-(provide 'std11)
-
-;;; std11.el ends here