From: morioka Date: Sun, 7 Jun 1998 16:50:53 +0000 (+0000) Subject: Modify for SEMI 1.5. X-Git-Tag: semi-1_5_2~9 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=504823c9682bf307e75a13617a89321b52d68cd4;p=elisp%2Fsemi.git Modify for SEMI 1.5. --- diff --git a/MIME-View-API-ja.ol b/MIME-View-API-ja.ol index 1ebe7e9..43c3afa 100644 --- a/MIME-View-API-ja.ol +++ b/MIME-View-API-ja.ol @@ -1,8 +1,90 @@ -$B!X(BSEMI MIME-View 1.1.* API $B$Ne5-$NMWAG$O;2>H4X?t(B `mime-content-type-$BMWAGL>(B' $B$G;2>H$9$k!#(B + + +[$B4X?t(B] make-mime-content-type (type subtype &optional parameters) + + content-type $B$N@8@.;R!#(B + + +[$B4X?t(B] mime-content-type-parameter (content-type parameter) + + CONTENT-TYPE $B$N(B PARAMETER $B$NCM$rJV$9!#(B + + +[$B4X?t(B] mime-parse-Content-Type (string) + + STRING $B$r(B content-type $B$H$7$F2r@O$7$?7k2L$rJV$9!#(B + + +[$B4X?t(B] mime-read-Content-Type () + + $B8=:_$N(B buffer $B$N(B Content-Type $BMs$rFI$_l9g$O(B nil $B$rJV$9!#(B + + +[$B4X?t(B] mime-type/subtype-string (type &optional subtype) + + type $B$H(B subtype $B$+$i(B type/subtype $B7A<0$NJ8;zNs$rJV$9!#(B + + +** content-disposition + +[$B9=B$BN(B] mime-content-disposition + + Content-Type $BMs$N2r@O7k2L$r<}$a$k$?$a$N9=B$BN!#(B + + [$BMWAG(B] + + disposition-type disposition-type (symbol). + + parameters Content-Disposition $BMs$N(B parameter + ($BO"A[(B list). + + $B>e5-$NMWAG$O;2>H4X?t(B `mime-content-disposition-$BMWAGL>(B' $B$G;2>H(B + $B$9$k!#(B + + +[$B4X?t(B] mime-content-disposition-parameter (content-disposition parameter) + + CONTENT-DISPOSITION $B$N(B PARAMETER $B$NCM$rJV$9!#(B + + +[$B4X?t(B] mime-content-disposition-filename (content-disposition) + + CONTENT-DISPOSITION $B$N(B filename $B$NCM$rJV$9!#(B + + + +* Message $B$NI=8=$HI=<($K4X$9$k35@b(B + Internet $B$NEE;R=q4J!&%M%C%H%K%e!<%9$J$I$N=qLL(B (message) $B$NI=8=7A<0$O(B STD 11 $B$K4p$E$$$F$$$^$9!#(BSTD 11 $B$N=qLLK\BN(B (message body) $B$O9T$rM#0l$N(B $B9=B$$H$9$k4J0WJ8LL(B (plain text) $B$G$"$j!"J8;zId9f$b(B us-ascii $B$HDj$a$i$l(B @@ -76,122 +158,7 @@ MTA stream $B(-("(B $B('(+()(B $B("(B $B(-(B $B(&(!(!(!(!(!(!(% $B$3$N$?$a!"(BSEMI MIME-View $B$O#1$D$N=qLL$KBP$7$F!">pJs8r49MQI=8=$r3JG<$9(B $B$k(B mime-raw-buffer $B$HI=<(MQI=8=$r3JG<$9$k(B mime-preview-buffer $B$N#2$D$N(B -buffer $B$rMQ$$$^$9!#$^$?!"MxMQpJs8r49MQI=8=$+$iI=<((B -$BMQI=8=$r:n$k(B entity-filter $B$H!"pJs$r3JG<$9$k9=B$BN$G!"0J2<$G$OC1$K(B entity $B$H8F$V$3$H$K$7$^(B -$B$9!#(B - - SEMI MIME-View $B$O=qLL$r>pJs8r49MQI=8=$r3JG<$9$k(B mime-raw-buffer $B$HI=(B -$B<(MQI=8=$r3JG<$9$k(B mime-preview-buffer $B$N#2$D$N(B buffer $B$GI=8=$7$^$9!#(B -$B$3$N$?$a!"(Bentity $B$O$3$N#2$D$N(B buffer $B$K$^$?$,$C$FI=8=$5$l$^$9!#(B - - mime-raw-buffer $B$G$O(B entity $B$O(B message $B$N9=B$$rI=8=$9$k$N$KMQ$$$i$l!"(B -entity $B3,AX$N:,!"B($A!"(Bmessage $B$N(B entity $B9=B$BN$NCf$NLZ9=B$$H$7$F4IM}(B -$B$5$l$^$9!#0J2<$G$O!"(Bmessage $B$N(B entity $B9=B$BN$N$3$H$r(B message-info $B$H8F(B -$B$V$3$H$K$7$^$9!#(B - - message-info $BCf$N3F(B entity $B$OLZ$N@a$KEv$?$j$^$9$,!"$3$NLZ$K$O?<$5$H(B -$BF1$8?<$5$NCf$N=gHV$K=>$C$FHV9f$,IU$1$i$l$^$9!#B($A!"(B - - - $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 - $B?^(B: entity $B$N3,AX$H@aHV9f(B - - -$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$r(B -entity-number $B$H8F$S$^$9!#(Bentity-number $B$O(B S $B<0$H$7$F$O(B (1 2 3) $B$N$h$&(B -$B$J@0?t$N%j%9%H$H$7$FI=8=$5$l$^$9!#(B - - $B0lJ}!"(BMIME-View $B$G$O(B entity $B$N4IM}$K!"$3$l$HF1MM$N(B node-id $B$rMQ$$$^(B -$B$9!#(Bnode-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 (3 2 1) $B$G$9!#(B - - entity-number $B$d(B node-id $B$rMQ$$$k$3$H$G!"(Bmime-raw-message $B$K$*$1$kLZ(B -$B9=B$Cf$G$N(B entity $B$NAjBPE*$J0LCV4X78$r07$&$3$H$,$G$-$^$9!#(B - - $B0J>e$N$h$&$K(B entity $B$O(B mime-raw-buffer $B$G$OLZ9=B$$H$7$F4IM}$5$l$^$9(B -$B$,!"(Bmime-preview-buffer $B$G$O(B entity $B$OI=<(2hLL$KBP1~$9$kNN0h$H$7$F4IM}(B -$B$5$l!"A4BN$H$7$F$ONs9=B$$K$J$j$^$9!#pJs$NI=8=$K;H$o$l$k0lJ}!"$3$N(B -$B#2$D$N(B buffer $B$r$D$J$0>pJs$H$7$F$bMQ$$$i$l$^$9!#(B - - -** API - -[$B9=B$BN(B] mime-entity - - entity $B$K4X$9$k>pJs$r<}$a$k9=B$BN!#(B - - [$BMWAG(B] - - node-id message $BA4BN$rI=$9(B entity $B$N3,AX$K$*$1$k!"$3$N(B - entity $B$N@a$H$7$F$N0LCV$rI=$9(B id ($B@0?t$N(B list). - - point-min entity $B$N@hF,0LCV(B (point). - - point-max entity $B$NKvHx0LCV(B (point). - - media-type entity $B$N(B media-primary-type (symbol). - - media-subtype entity $B$N(B media-subtype (symbol). - - parameters entity $B$N(B Content-Type field $B$N(B parameter - ($BO"A[(B list). - - encoding entity $B$N(B Content-Transfer-Encoding ($BJ8;zNs(B) - - children entity $B$K4^$^$l$k(B entity $B$N(B list - (entity $B9=B$BN(B $B$N(B list). - - $B>e5-$NMWAG$O;2>H4X?t(B `mime-entity-$BMWAGL>(B' $B$G;2>H$9$k!#(B - - -[$B4X?t(B] make-mime-entity (node-id point-min point-max - media-type media-subtype parameters encoding - children) - - entity $B$N@8@.;R!#(B - - -[$B4X?t(B] mime-entity-type/subtype (ENTITY) - - ENTITY $B$N(B type/subtype $B7A<0$N(B media-type $B$rI=$9J8;zNs$rJV$9!#(B - - -[$B4X?t(B] mime-type/subtype-string (type &optional subtype) - - type $B$H(B subtype $B$+$i(B type/subtype $B7A<0$NJ8;zNs$rJV$9!#(B - - -[$B4X?t(B] mime-root-entity-p (ENTITY) - - ENTITY $B$,(B root-entity$B!JB($A!"(Bmessage $BA4BN!K$G$"$k>l9g$K!"Hs(B - nil $B$rJV$9!#(B +buffer $B$rMQ$$$^$9!#(B * mime-raw-buffer @@ -218,6 +185,27 @@ buffer $B$G$9!#(BMIME $B=qLL$O(B entity $B$rC10L$H$9$kLZ9=B$$G$9$,!"$3$N(B $BBP1~$9$k(B mime-preview-buffer $B$r<($9!#(B +[buffer $B6I=jJQ?t(B] mime-raw-representation-type + + mime-raw-buffer $B$N(B representation-type $B$rI=$9!#(B + + representation-type $B$H$O(B mime-raw-buffer $B$,$I$&$$$&7A<0$GI=8=(B + $B$5$l$F$$$k$+$r<($9$b$N$G!"(B`binary' $B$O(B network $BI=8=$N$^$^$G$"$k(B + $B$3$H$r<($7!"(B`cooked' $B$O(B message $BA4BN$,4{$K(B code $BJQ49$5$l$F$$$k(B + $B$3$H$r<($9!#(B + + nil $B$N>l9g!"(Bmime-raw-representation-type-alist $B$+$iF@$i$l$?CM(B + $B$,MQ$$$i$l$k!#(B + + +[buffer $B6I=jJQ?t(B] mime-raw-representation-type-alist + + major-mode $B$H(B representation-type $B$NO"A[(B list. + + $B$3$NJQ?t$+$iF@$i$l$kCM$h$j$b(B mime-raw-representation-type $B$NCM(B + $B$NJ}$,M%@h$5$l$k!#(B + + [$B4X?t(B] mime-raw-find-entity-from-node-id (ENTITY-NODE-ID &optional MESSAGE-INFO) @@ -304,7 +292,7 @@ buffer $B$G$9!#(BMIME $B=qLL$O(B entity $B$rC10L$H$9$kLZ9=B$$G$9$,!"$3$N(B $BBP1~$9$k?F(B buffer $B$r<($9!#(B - $B?F(B buffer $B$H$O$3$N(Bmime-preview-buffer $B$H(B mime-raw-buffer $B$NAH(B + $B?F(B buffer $B$H$O$3$N(B mime-preview-buffer $B$H(B mime-raw-buffer $B$NAH(B $B$r:n$k85$H$J$C$?(B mime-preview-buffer $B$N$3$H$G$"$k!#(B $BNc$($P!"(Bmessage/partial $B7A<0$N=qLL$NI=<($KBP$7$FA`:n$r9T$&$3$H(B @@ -317,6 +305,10 @@ buffer $B$G$9!#(BMIME $B=qLL$O(B entity $B$rC10L$H$9$kLZ9=B$$G$9$,!"$3$N(B $BBP1~$9$k(B mime-raw-buffer $B$r<($9!#(B + [$BCm0U(B] $B$3$NJQ?t$O;H$o$J$$J}$,NI$$!#$J$<$J$i!"(B + mime-preview-buffer $B$OJ#?t$N(B mime-raw-buffer $B$KBP1~$9$k(B + $B2DG=@-$,$"$k$+$i$G$"$k!#(B + [buffer $B6I=jJQ?t(B] mime-preview-original-major-mode @@ -338,6 +330,128 @@ buffer $B$G$9!#(BMIME $B=qLL$O(B entity $B$rC10L$H$9$kLZ9=B$$G$9$,!"$3$N(B $B$3$N0LCV$KBP1~$9$k(B entity $B9=B$BN$r<($9!#(B +* entity + + MIME $B=qLL$O(B entity $B$rC10L$H$9$kLZ9=B$$G$9!#(Bentity $B9=B$BN$O(B entity $B$d(B +$B=qLLA4BN$N>pJs$r3JG<$9$k9=B$BN$G!"0J2<$G$OC1$K(B entity $B$H8F$V$3$H$K$7$^(B +$B$9!#(B + + SEMI MIME-View $B$O=qLL$r>pJs8r49MQI=8=$r3JG<$9$k(B mime-raw-buffer $B$HI=(B +$B<(MQI=8=$r3JG<$9$k(B mime-preview-buffer $B$N#2$D$N(B buffer $B$GI=8=$7$^$9!#(B +$B$3$N$?$a!"(Bentity $B$O$3$N#2$D$N(B buffer $B$K$^$?$,$C$FI=8=$5$l$^$9!#(B + + mime-raw-buffer $B$G$O(B entity $B$O(B message $B$N9=B$$rI=8=$9$k$N$KMQ$$$i$l!"(B +entity $B3,AX$N:,!"B($A!"(Bmessage $B$N(B entity $B9=B$BN$NCf$NLZ9=B$$H$7$F4IM}(B +$B$5$l$^$9!#0J2<$G$O!"(Bmessage $B$N(B entity $B9=B$BN$N$3$H$r(B message-info $B$H8F(B +$B$V$3$H$K$7$^$9!#(B + + message-info $BCf$N3F(B entity $B$OLZ$N@a$KEv$?$j$^$9$,!"$3$NLZ$K$O?<$5$H(B +$BF1$8?<$5$NCf$N=gHV$K=>$C$FHV9f$,IU$1$i$l$^$9!#B($A!"(B + + + $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 + $B?^(B: entity $B$N3,AX$H@aHV9f(B + + +$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$r(B +entity-number $B$H8F$S$^$9!#(Bentity-number $B$O(B S $B<0$H$7$F$O(B (1 2 3) $B$N$h$&(B +$B$J@0?t$N%j%9%H$H$7$FI=8=$5$l$^$9!#(B + + $B0lJ}!"(BMIME-View $B$G$O(B entity $B$N4IM}$K!"$3$l$HF1MM$N(B node-id $B$rMQ$$$^(B +$B$9!#(Bnode-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 (3 2 1) $B$G$9!#(B + + entity-number $B$d(B node-id $B$rMQ$$$k$3$H$G!"(Bmime-raw-message $B$K$*$1$kLZ(B +$B9=B$Cf$G$N(B entity $B$NAjBPE*$J0LCV4X78$r07$&$3$H$,$G$-$^$9!#(B + + $B0J>e$N$h$&$K(B entity $B$O(B mime-raw-buffer $B$G$OLZ9=B$$H$7$F4IM}$5$l$^$9(B +$B$,!"(Bmime-preview-buffer $B$G$O(B entity $B$OI=<(2hLL$KBP1~$9$kNN0h$H$7$F4IM}(B +$B$5$l!"A4BN$H$7$F$ONs9=B$$K$J$j$^$9!#pJs$NI=8=$K;H$o$l$k0lJ}!"$3$N(B +$B#2$D$N(B buffer $B$r$D$J$0>pJs$H$7$F$bMQ$$$i$l$^$9!#(B + + +** API + +[$B9=B$BN(B] mime-entity + + entity $B$K4X$9$k>pJs$r<}$a$k9=B$BN!#(B + + [$BMWAG(B] + + buffer entity $B$,B8:_$9$k(B buffer (buffer). + + node-id message $BA4BN$rI=$9(B entity $B$N3,AX$K$*$1$k!"(B + $B$3$N(B entity $B$N@a$H$7$F$N0LCV$rI=$9(B id + ($B@0?t$N(B list). + + header-start header $B$N@hF,0LCV(B (point). + + header-end header $B$NKvHx0LCV(B (point). + + body-start body $B$N@hF,0LCV(B (point). + + body-end body $B$NKvHx0LCV(B (point). + + content-type content-type $BMs$N>pJs(B (content-type). + + content-disposition content-disposition $BMs$N>pJs(B + (content-type). + + encoding entity $B$N(B Content-Transfer-Encoding + ($BJ8;zNs(B) + + children entity $B$K4^$^$l$k(B entity $B$N(B list + (entity $B9=B$BN(B $B$N(B list). + + $B>e5-$NMWAG$O;2>H4X?t(B `mime-entity-$BMWAGL>(B' $B$G;2>H$9$k!#(B + + + [$B5?;wMWAG(B] + + $B$^$?!"2a5n$H$N8_49@-$N$?$a!"0J2<$NMWAGL>$N;2>H4X?t$bMxMQ2DG=$G$"(B + $B$k!#(B + + point-min entity $B$N@hF,0LCV(B (point). + + point-max entity $B$NKvHx0LCV(B (point). + + type/subtype entity $B$N(B type/subtype ($BJ8;zNs(B). + + media-type entity $B$N(B media-primary-type (symbol). + + media-subtype entity $B$N(B media-subtype (symbol). + + parameters entity $B$N(B Content-Type field $B$N(B parameter + ($BO"A[(B list). + + +[$B4X?t(B] make-mime-entity (node-id point-min point-max + media-type media-subtype parameters encoding + children) + + entity $B$N@8@.;R!#(B + + +[$B4X?t(B] mime-root-entity-p (ENTITY) + + ENTITY $B$,(B root-entity$B!JB($A!"(Bmessage $BA4BN!K$G$"$k>l9g$K!"Hs(B + nil $B$rJV$9!#(B + + + * entity $B$N2r]$H$J$k(B data $B$,(B buffer $B$KA^F~$5$l(B -$B$F$*$j!"$^$?!"$=$NNN0h$O(B narrow $B$5$l$F$$$^$9!#(B +$B$G$"$j!"$3$N4X?t$,8F$P$l$k;~!"=hM}BP>]$H$J$k(B entity $B$NFbMFM=$a(B buffer +$B$KA^F~$5$l$F$*$j!"$^$?!"$=$NNN0h$O(B narrow $B$5$l$F$$$^$9!#(B * Entity $B$N:F@8!&=hM}(B +MIME-View $B$OMxMQr7oLZ!#(B