+++ /dev/null
-\e$B!X\e(BSEMI 1.5 MIME-View API \e$B$N<j0z!Y\e(B
-by \e$B<i2,\e(B \e$BCNI'\e(B
-
-* \e$B$O$8$a$K\e(B
-
-\e$B$3$NJ8=q$OMxMQ<T3&LL$H\e(B SEMI MIME-View \e$B$N3&LL$r:n$k?M$d\e(B SEMI MIME-View
-\e$B$N\e(B method \e$B$r=q$/%O%C%+!<$N$?$a$K!"\e(BSEMI MIME View \e$B$N;EAH$_$r2r@b$7!"\e(BAPI
-\e$B$N;EMM$rL@<($7$^$9!#\e(B
-
-
-* MIME message
-
-
-** content-type
-
-[\e$B9=B$BN\e(B] mime-content-type
-
- Content-Type \e$BMs$N2r@O7k2L$r<}$a$k$?$a$N9=B$BN!#\e(B
-
- [\e$BMWAG\e(B]
-
- primary-type media-type \e$B$N<g7?\e(B (symbol).
-
- subtype media-type \e$B$NI{7?\e(B (symbol).
-
- parameters Content-Type \e$BMs$N\e(B parameter (\e$BO"A[\e(B list).
-
- \e$B>e5-$NMWAG$O;2>H4X?t\e(B `mime-content-type-\e$BMWAGL>\e(B' \e$B$G;2>H$9$k!#\e(B
-
-
-[\e$B4X?t\e(B] make-mime-content-type (type subtype &optional parameters)
-
- content-type \e$B$N@8@.;R!#\e(B
-
-
-[\e$B4X?t\e(B] mime-content-type-parameter (content-type parameter)
-
- CONTENT-TYPE \e$B$N\e(B PARAMETER \e$B$NCM$rJV$9!#\e(B
-
-
-[\e$B4X?t\e(B] mime-parse-Content-Type (string)
-
- STRING \e$B$r\e(B content-type \e$B$H$7$F2r@O$7$?7k2L$rJV$9!#\e(B
-
-
-[\e$B4X?t\e(B] mime-read-Content-Type ()
-
- \e$B8=:_$N\e(B buffer \e$B$N\e(B Content-Type \e$BMs$rFI$_<h$j!"2r@O$7$?7k2L$rJV$9!#\e(B
-
- Content-Type \e$BMs$,B8:_$7$J$$>l9g$O\e(B nil \e$B$rJV$9!#\e(B
-
-
-[\e$B4X?t\e(B] mime-type/subtype-string (type &optional subtype)
-
- type \e$B$H\e(B subtype \e$B$+$i\e(B type/subtype \e$B7A<0$NJ8;zNs$rJV$9!#\e(B
-
-
-** content-disposition
-
-[\e$B9=B$BN\e(B] mime-content-disposition
-
- Content-Type \e$BMs$N2r@O7k2L$r<}$a$k$?$a$N9=B$BN!#\e(B
-
- [\e$BMWAG\e(B]
-
- disposition-type disposition-type (symbol).
-
- parameters Content-Disposition \e$BMs$N\e(B parameter
- (\e$BO"A[\e(B list).
-
- \e$B>e5-$NMWAG$O;2>H4X?t\e(B `mime-content-disposition-\e$BMWAGL>\e(B' \e$B$G;2>H\e(B
- \e$B$9$k!#\e(B
-
-
-[\e$B4X?t\e(B] mime-content-disposition-parameter (content-disposition parameter)
-
- CONTENT-DISPOSITION \e$B$N\e(B PARAMETER \e$B$NCM$rJV$9!#\e(B
-
-
-[\e$B4X?t\e(B] mime-content-disposition-filename (content-disposition)
-
- CONTENT-DISPOSITION \e$B$N\e(B filename \e$B$NCM$rJV$9!#\e(B
-
-
-
-* Message \e$B$NI=8=$HI=<($K4X$9$k35@b\e(B
-
-Internet \e$B$NEE;R=q4J!&%M%C%H%K%e!<%9$J$I$N=qLL\e(B (message) \e$B$NI=8=7A<0$O\e(B
-STD 11 \e$B$K4p$E$$$F$$$^$9!#\e(BSTD 11 \e$B$N=qLLK\BN\e(B (message body) \e$B$O9T$rM#0l$N\e(B
-\e$B9=B$$H$9$k4J0WJ8LL\e(B (plain text) \e$B$G$"$j!"J8;zId9f$b\e(B us-ascii \e$B$HDj$a$i$l\e(B
-\e$B$F$$$^$9!#<B:]$K$O!"J8;zId9f$r\e(B us-ascii \e$B$NBe$o$j$K$=$N8@8l7w$GMQ$$$i$l\e(B
-\e$B$kJ8;zId9f$H$7$?!XCO0h2=$5$l$?\e(B STD 11\e$B!Y=qLL$bMQ$$$i$l$F$-$^$7$?$,!"$3\e(B
-\e$B$N>l9g$b=qLL$NJ8;zId9f$O#1$D$G$9!#$3$N$?$a!"MxMQ<T3&LL\e(B (Message User
-Agent) \e$B$O!"$7$P$7$P!"\e(Bbyte \e$BNs\e(B = us-ascii \e$BJ8;zNs!"$J$$$7$O!"\e(Bbyte \e$BNs\e(B = \e$B$=\e(B
-\e$B$N8@8l7w$GMQ$$$kJ8;zId9f$NJ8;zNs$N$h$&$K8+Jo$7$F$-$^$7$?!#\e(B
-
-
- \e$B(.(,(,(,(,(,(,(,(,(,(,(,(,(,(,(/\e(B
- \e$B(-\e(B message \e$B(-\e(B
- \e$B(-\e(B \e$B(-\e(B
- \e$B(!(!(!(!(!"*(9\e(B \e$B(-\e(B
- data \e$B(-\e(B \e$B(-\e(B display
-MTA stream \e$B(-\e(B \e$B(7(!(!(!(!(!"*\e(B user
- of \e$B(-\e(B \e$B(-\e(B
- message \e$B(-\e(B \e$B(-\e(B
- \e$B"+(!(!(!(!(!(9\e(B \e$B(-\e(B
- \e$B(-\e(B \e$B(-\e(B
- \e$B(-\e(B \e$B(-\e(B
- \e$B(1(,(,(,(,(,(,(,(,(,(,(,(,(,(,(0\e(B
- \e$B?^\e(B: \e$BHs\e(B MIME MUA \e$B$N>l9g\e(B
-
-
-\e$B$7$+$7$J$,$i!"\e(BMIME \e$B$G$O=qLL$O\e(B entity \e$B$rC10L$H$9$kLZ9=B$$K$J$j!"$^$?!"\e(B
-\e$B#1$D$N=qLL$GJ#?t$NJ8;zId9f$rMQ$$$k$3$H$,$G$-$^$9!#$^$?!"\e(Bentity \e$B$NFbMF\e(B
-\e$B$OJ8LL$d3($N$h$&$JC1=c$KI=<(2DG=$J$b$N$@$1$G$J$/!"2;@<$dF02h$J$I$N0lDj\e(B
-\e$B;~4V:F@8$5$l$k$h$&$J$b$N$dFCDj$N%"%W%j%1!<%7%g%s$N%G!<%?$d%W%m%0%i%`$N\e(B
-\e$B%=!<%9!"$"$k$$$O!"\e(Bftp \e$B$d\e(B mail service \e$B$NMxMQK!$d\e(B URL \e$B$H$$$C$?7A$GI=$5\e(B
-\e$B$l$?30It;2>H$J$I$N$5$^$6$^$J$b$N$,9M$($i$^$9!#$3$N$?$a!"I=<($@$1$r9M$(\e(B
-\e$B$F$$$?\e(B STD 11 \e$B$K$*$1$kMxMQ<T3&LL$NC1=c$J1dD9$G$O\e(B MIME \e$B$NA4$F$N5!G=$r07\e(B
-\e$B$&$3$H$O$G$-$^$;$s!#$D$^$j!"\e(BMIME \e$B$N7A<0$K9g$o$;$FI|9f$9$k$@$1$G$OIT==\e(B
-\e$BJ,$G$"$j!"MxMQ<T$H$NBPOCE*$J:F@8=hM}$r9MN8$9$kI,MW$,$"$j$^$9!#\e(BMIME \e$B=q\e(B
-\e$BLL$N7A<0$O<+F0=hM}$,$7$d$9$/@_7W$5$l$F$$$^$9$,!"\e(BMIME \e$B=qLL$K4^$^$l$kFb\e(B
-\e$BMF$NCf$K$O%;%-%e%j%F%#!<>e$NLdBj$+$i<+F0=hM}$r$9$k$Y$-$G$J$$$b$N$,$"$j!"\e(B
-\e$B$3$&$$$C$?$b$N$N:F@8$K4X$7$F$OMxMQ<T$NH=CG$r6D$0$h$&$K@_7W$5$l$k$Y$-$G\e(B
-\e$B$7$g$&!#7k6I!"\e(BMIME \e$B=qLL$r07$&$?$a$K$O\e(B STD 11 \e$B$*$h$S\e(B MIME \e$B$N9=J8$G5-=R\e(B
-
\e$B$5$l$?%a%C%;!<%8$N>pJs8r49MQI=8=$H$=$N2r<a7k2L$G$"$kI=<(2hLL$d:F@8Ey$N
\e(B
-\e$B=hM}$r6hJL$7$F9M$($kI,MW$,$"$j$^$9!#$^$?!"MxMQ<T$H$NBPOCE*$J:F@8=hM}$,\e(B
-\e$BI,MW$G$9!#\e(B
-
-
- \e$B(.(,(,(,(,(,(,(,(,(,(,(/\e(B
- \e$B(-\e(B preview \e$B(-\e(Bdisplay
- \e$B(-\e(B layer \e$B(-\e(B or
- \e$B(-\e(B \e$B(#(!(!(!(!(!(!($\e(B \e$B(-\e(Bplayback
- \e$B(#!D!D!D!D!D!D(@!D(+!D!D!D\e(B \e$B(!(+(!(@(!(!(!(!"*\e(B
- \e$B!'\e(B \e$B(-\e(B \e$B("\e(B \e$B"+(+(!(@(!(!(!(!(!\e(B
- \e$B(.(,(;(,(,(,(,(,(,(4\e(B \e$B(&(!(!(!(!(!(!(%\e(B \e$B(-\e(B
- \e$B(-\e(B \e$B!'\e(B \e$B(#(!($\e(B \e$B(-\e(B \e$B(#(!(!(!(!(!(!($\e(B \e$B(-\e(B
- \e$B(-\e(B \e$B!'\e(B \e$B("!D(+!D(@!D(+!D!D!D\e(B \e$B(!(+(!(@(!(!(!(!"*\e(B
- \e$B(-\e(B \e$B!'\e(B \e$B(#()\e(B \e$B("\e(B \e$B(-\e(B \e$B("\e(B \e$B"+(+(!(@(!(!(!(!(!\e(B
- \e$B(-\e(B \e$B!'\e(B \e$B("("\e(B \e$B("\e(B \e$B(-\e(B \e$B(&(!(!(!(!(!(!(%\e(B \e$B(-\e(B user
- \e$B(-\e(B \e$B!'\e(B \e$B("(&(!(%\e(B \e$B(-\e(B \e$B(#(!(!(!(!(!(!($\e(B \e$B(-\e(B
- \e$B(!(!(!"*(9(#(+($("(#(!($\e(B \e$B(-\e(B \e$B("\e(B \e$B(!(+(!(@(!(!(!(!"*\e(B
- data \e$B(-("!'("("("!D(+!D(@!D(+!D!D!D\e(B \e$B"+(+(!(@(!(!(!(!(!\e(B
-MTA stream \e$B(-("\e(B \e$B('(+()\e(B \e$B("\e(B \e$B(-\e(B \e$B(&(!(!(!(!(!(!(%\e(B \e$B(-\e(B
- of \e$B(-("\e(B \e$B("("("\e(B \e$B("\e(B \e$B(-\e(B \e$B(#(!(!(!(!(!(!($\e(B \e$B(-\e(B
- message\e$B(-(&(!(%("(&(!(%\e(B \e$B(-\e(B \e$B("\e(B \e$B(!(+(!(@(!(!(!(!"*\e(B
- \e$B"+(!(!(!(9\e(B \e$B("(#(!($\e(B \e$B(-\e(B \e$B("\e(B \e$B!'\e(B \e$B"+(+(!(@(!(!(!(!(!\e(B
- \e$B(-\e(B \e$B("("\e(B \e$B("\e(B \e$B(-\e(B \e$B(&(!(!(+(!(!(!(%\e(B \e$B(-\e(Bnavigation
- \e$B(-\e(B \e$B(&()\e(B \e$B("\e(B \e$B(-\e(B \e$B!'\e(B \e$B(-\e(B
- \e$B(-\e(B \e$B("!D(+!D(@!D!D!D!D(%\e(B \e$B(-\e(B
- \e$B(-\e(B \e$B(&(!(%\e(B \e$B(1(3(,(,(,(,(,(,(,(,(,(0\e(B
- \e$B(-\e(B raw \e$B(-\e(B
- \e$B(-\e(B layer \e$B(-\e(B
- \e$B(1(,(,(,(,(,(,(,(,(,(0\e(B
- \e$B?^\e(B: MIME MUA \e$B$N>l9g\e(B
-
-
-\e$B$3$N$?$a!"\e(BSEMI MIME-View \e$B$O#1$D$N=qLL$KBP$7$F!">pJs8r49MQI=8=$r3JG<$9\e(B
-\e$B$k\e(B mime-raw-buffer \e$B$HI=<(MQI=8=$r3JG<$9$k\e(B mime-preview-buffer \e$B$N#2$D$N\e(B
-buffer \e$B$rMQ$$$^$9!#\e(B
-
-
-* mime-raw-buffer
-
- `mime-raw-buffer' \e$B$O>pJs8r49MQ7A<0$N$^$^$N=q4J$NFbMF$,<}$a$i$l$k\e(B
-buffer \e$B$G$9!#\e(BMIME \e$B=qLL$O\e(B entity \e$B$rC10L$H$9$kLZ9=B$$G$9$,!"$3$N\e(B buffer
-\e$B$NCf$G$O=qLL$r9=@.$9$k\e(B entity \e$B$O$3$N9=B$$K$7$?$,$C$F4IM}$5$l$^$9!#B($A!"\e(B
-\e$B=qLLA4BN$rI=$9\e(B root entity \e$B$r;X$9\e(B buffer \e$B6I=jJQ?t\e(B
-`mime-raw-message-info' \e$B$GA0>O$G2r@b$7$?\e(B entity \e$B9=B$BN$r;X$9$3$H$K$h$j!"\e(B
-\e$BLZ9=B$$r4IM}$7$^$9!#\e(B
-
-
-** API
-
-[buffer \e$B6I=jJQ?t\e(B] mime-raw-message-info
-
- \e$B=qLL$N9=B$$K4X$9$k>pJs$r<}$a$k!#\e(B
-
- \e$B!N7A<0!O\e(Bmime-entity \e$B9=B$BN\e(B
-
-
-[buffer \e$B6I=jJQ?t\e(B] mime-preview-buffer
-
- \e$BBP1~$9$k\e(B mime-preview-buffer \e$B$r<($9!#\e(B
-
-
-[buffer \e$B6I=jJQ?t\e(B] mime-raw-representation-type
-
- mime-raw-buffer \e$B$N\e(B representation-type \e$B$rI=$9!#\e(B
-
- representation-type \e$B$H$O\e(B mime-raw-buffer \e$B$,$I$&$$$&7A<0$GI=8=\e(B
- \e$B$5$l$F$$$k$+$r<($9$b$N$G!"\e(B`binary' \e$B$O\e(B network \e$BI=8=$N$^$^$G$"$k\e(B
- \e$B$3$H$r<($7!"\e(B`cooked' \e$B$O\e(B message \e$BA4BN$,4{$K\e(B code \e$BJQ49$5$l$F$$$k\e(B
- \e$B$3$H$r<($9!#\e(B
-
- nil \e$B$N>l9g!"\e(Bmime-raw-representation-type-alist \e$B$+$iF@$i$l$?CM\e(B
- \e$B$,MQ$$$i$l$k!#\e(B
-
-
-[buffer \e$B6I=jJQ?t\e(B] mime-raw-representation-type-alist
-
- major-mode \e$B$H\e(B representation-type \e$B$NO"A[\e(B list.
-
- \e$B$3$NJQ?t$+$iF@$i$l$kCM$h$j$b\e(B mime-raw-representation-type \e$B$NCM\e(B
- \e$B$NJ}$,M%@h$5$l$k!#\e(B
-
-
-[\e$B4X?t\e(B] mime-raw-find-entity-from-node-id (ENTITY-NODE-ID
- &optional MESSAGE-INFO)
-
- \e$B=qLL9=B$\e(B MESSAGE-INFO \e$B$K$*$$$F\e(B ENTITY-NODE-ID \e$B$KBP1~$9$k\e(B
- entity \e$B$rJV$9!#\e(B
-
- MESSAGE-INFO \e$B$,>JN,$5$l$?>l9g$O\e(B `mime-raw-message-info' \e$B$NCM$r\e(B
- \e$BMQ$$$k!#\e(B
-
-
-[\e$B4X?t\e(B] mime-raw-find-entity-from-number (ENTITY-NUMBER
- &optional MESSAGE-INFO)
-
- \e$B=qLL9=B$\e(B MESSAGE-INFO \e$B$K$*$$$F\e(B ENTITY-NUMBER \e$B$KBP1~$9$k\e(B entity
- \e$B$rJV$9!#\e(B
-
- MESSAGE-INFO \e$B$,>JN,$5$l$?>l9g$O\e(B `mime-raw-message-info' \e$B$NCM$r\e(B
- \e$BMQ$$$k!#\e(B
-
-
-[\e$B4X?t\e(B] mime-raw-find-entity-from-point (POINT &optional MESSAGE-INFO)
-
- \e$B=qLL9=B$\e(B MESSAGE-INFO \e$B$K$*$$$F\e(B POINT \e$B$KBP1~$9$k\e(B entity \e$B$rJV$9!#\e(B
-
- MESSAGE-INFO \e$B$,>JN,$5$l$?>l9g$O\e(B `mime-raw-message-info' \e$B$NCM$r\e(B
- \e$BMQ$$$k!#\e(B
-
-[\e$B4X?t\e(B] mime-raw-point-to-entity-node-id (POINT &optional MESSAGE-INFO)
-
- \e$B=qLL9=B$\e(B MESSAGE-INFO \e$B$K$*$$$F\e(B POINT \e$B$KBP1~$9$k\e(B node-id \e$B$rJV$9!#\e(B
-
- MESSAGE-INFO \e$B$,>JN,$5$l$?>l9g$O\e(B `mime-raw-message-info' \e$B$NCM$r\e(B
- \e$BMQ$$$k!#\e(B
-
-
-[\e$B4X?t\e(B] mime-raw-point-to-entity-number (POINT &optional MESSAGE-INFO)
-
- \e$B=qLL9=B$\e(B MESSAGE-INFO \e$B$K$*$$$F\e(B POINT \e$B$KBP1~$9$k\e(B entity-number
- \e$B$rJV$9!#\e(B
-
- MESSAGE-INFO \e$B$,>JN,$5$l$?>l9g$O\e(B `mime-raw-message-info' \e$B$NCM$r\e(B
- \e$BMQ$$$k!#\e(B
-
-
-[\e$B4X?t\e(B] mime-raw-flatten-message-info (&optional message-info)
-
- \e$B=qLL9=B$\e(B MESSAGE-INFO \e$B$K4^$^$l$kA4$F$N\e(B entity \e$B$N\e(B list \e$B$rJV$9!#\e(B
-
- MESSAGE-INFO \e$B$,>JN,$5$l$?>l9g$O\e(B `mime-raw-message-info' \e$B$NCM$r\e(B
- \e$BMQ$$$k!#\e(B
-
-
-* mime-preview-buffer
-
- `mime-raw-buffer' \e$B$O=q4J$N>pJs8r49MQI=8=$r2C9)$7$F:n@.$7$?I=<(MQI=8=\e(B
-\e$B$r<}$a$k$?$a$N\e(B buffer \e$B$G$9!#2hLLI=<($G$b\e(B entity \e$B$O0UL#$N$"$kC10L$G!"#1\e(B
-\e$B$D$N=qLL$OJ#?t$N\e(B entity \e$B$rC10L$K9=@.$5$l$^$9$,!"\e(BMIME \e$B=qLL$N\e(B entity \e$B$r\e(B
-\e$BC10L$H$9$kLZ9=B$$OI,$:$7$b=EMW$G$O$J$/!"$=$l0J>e$K2hLLI=<(>e$G$N0LCV$,\e(B
-\e$B=EMW$G$9!#$^$?!"\e(Bentity \e$B$O:G>.C10L$G$O$J$/!"I=<(>e$N9=@.MWAG$,B8:_$7$^\e(B
-\e$B$9!#$^$?!"I=<(>e$NMW@A$+$i!"\e(Bentity \e$B$K4X78$NL5$$MWAG$bB8:_$9$k$+$bCN$l\e(B
-\e$B$^$;$s!#\e(B
-
- SEMI \e$B$G$O\e(B entity \e$B$O\e(B buffer \e$B>e$NNN0h$KD%$jIU$1$i$l$?\e(B text \e$BB0@-\e(B
-`mime-view-entity' \e$B$GI=8=$5$l!"\e(Bmime-raw-buffer \e$BCf$NBP1~$9$k\e(B entity \e$B$r\e(B
-\e$B;X$7$^$9!#$^$?!"\e(Bentity \e$B0J30$N9=@.MWAG$b\e(B text \e$BB0@-$rMQ$$$FI=8=$5$l$^$9!#\e(B
-\e$B$3$l$i$N9=@.MWAG$O>l9g$K$h$C$F$OMxMQ<T$NA`:n$KBP$7$F$J$K$,$7$+$NH?1~$r\e(B
-\e$B<($9$?$a$K\e(B method \e$B$r8F$S=P$9$3$H$,$G$-$^$9!#$3$N>\:Y$K4X$7$F$O8e=R$7$^\e(B
-\e$B$9!#\e(B
-
-
-** API
-
-[buffer \e$B6I=jJQ?t\e(B] mime-mother-buffer
-
- \e$BBP1~$9$k?F\e(B buffer \e$B$r<($9!#\e(B
-
- \e$B?F\e(B buffer \e$B$H$O$3$N\e(B mime-preview-buffer \e$B$H\e(B mime-raw-buffer \e$B$NAH\e(B
- \e$B$r:n$k85$H$J$C$?\e(B mime-preview-buffer \e$B$N$3$H$G$"$k!#\e(B
-
- \e$BNc$($P!"\e(Bmessage/partial \e$B7A<0$N=qLL$NI=<($KBP$7$FA`:n$r9T$&$3$H\e(B
- \e$B$K$h$C$F!"7k9g$5$l$?=qLL$KBP$9$k\e(B mime-preview-buffer \e$B$,$G$-$?\e(B
- \e$B;~!"7k9g$5$l$?$b$N$K$H$C$F!"A`:n$r9T$C$?\e(B message/partial \e$B7A<0\e(B
- \e$B$N=qLL$,?F\e(B buffer \e$B$KAjEv$9$k!#\e(B
-
-
-[buffer \e$B6I=jJQ?t\e(B] mime-raw-buffer
-
- \e$BBP1~$9$k\e(B mime-raw-buffer \e$B$r<($9!#\e(B
-
- [\e$BCm0U\e(B] \e$B$3$NJQ?t$O;H$o$J$$J}$,NI$$!#$J$<$J$i!"\e(B
- mime-preview-buffer \e$B$OJ#?t$N\e(B mime-raw-buffer \e$B$KBP1~$9$k\e(B
- \e$B2DG=@-$,$"$k$+$i$G$"$k!#\e(B
-
-
-[buffer \e$B6I=jJQ?t\e(B] mime-preview-original-window-configuration
-
- mime-preview-buffer \e$B$r:n$kA0$N\e(B window-configuration \e$B$r<}$a$k!#\e(B
-
-
-[text-property] mime-view-entity
-
- \e$B8=:_0LCV$KBP1~$9$k\e(B entity \e$B9=B$BN$r<($9!#\e(B
-
-
-[\e$B4X?t\e(B] mime-preview-original-major-mode (&optional recursive)
-
- \e$B8=:_0LCV$KBP1~$9$k\e(B entity \e$B$NI=>]$,B8:_$9$k\e(B buffer \e$B$N\e(B
- major-mode \e$B$rJV$9!#\e(B
-
- RECURSIVE \e$B$K\e(B non-nil \e$B$,;XDj$5$l$?>l9g!";OAD$N\e(B major-mode \e$B$rJV\e(B
- \e$B$9!#\e(B
-
-
-* entity
-
- MIME \e$B=qLL$O\e(B entity \e$B$rC10L$H$9$kLZ9=B$$G$9!#\e(Bentity \e$B9=B$BN$O\e(B entity \e$B$d\e(B
-\e$B=qLLA4BN$N>pJs$r3JG<$9$k9=B$BN$G!"0J2<$G$OC1$K\e(B entity \e$B$H8F$V$3$H$K$7$^\e(B
-\e$B$9!#\e(B
-
- SEMI MIME-View \e$B$O=qLL$r>pJs8r49MQI=8=$r3JG<$9$k\e(B mime-raw-buffer \e$B$HI=\e(B
-\e$B<(MQI=8=$r3JG<$9$k\e(B mime-preview-buffer \e$B$N#2$D$N\e(B buffer \e$B$GI=8=$7$^$9!#\e(B
-\e$B$3$N$?$a!"\e(Bentity \e$B$O$3$N#2$D$N\e(B buffer \e$B$K$^$?$,$C$FI=8=$5$l$^$9!#\e(B
-
- mime-raw-buffer \e$B$G$O\e(B entity \e$B$O\e(B message \e$B$N9=B$$rI=8=$9$k$N$KMQ$$$i$l!"\e(B
-entity \e$B3,AX$N:,!"B($A!"\e(Bmessage \e$B$N\e(B entity \e$B9=B$BN$NCf$NLZ9=B$$H$7$F4IM}\e(B
-\e$B$5$l$^$9!#0J2<$G$O!"\e(Bmessage \e$B$N\e(B entity \e$B9=B$BN$N$3$H$r\e(B message-info \e$B$H8F\e(B
-\e$B$V$3$H$K$7$^$9!#\e(B
-
- message-info \e$BCf$N3F\e(B entity \e$B$OLZ$N@a$KEv$?$j$^$9$,!"$3$NLZ$K$O?<$5$H\e(B
-\e$BF1$8?<$5$NCf$N=gHV$K=>$C$FHV9f$,IU$1$i$l$^$9!#B($A!"\e(B
-
-
- \e$B(#(!(!(!($\e(B
- \e$B("\e(B nil \e$B("\e(B
- \e$B(&(!(((!(%\e(B
- \e$B(#(!(!(!(!(!(!(!(!(!(+(!(!(!(!(!(!(!(!(!($\e(B
- \e$B(#(*($\e(B \e$B(#(*($\e(B \e$B(#(*($\e(B
- \e$B("#0("\e(B \e$B("#1("\e(B \e$B("#2("\e(B
- \e$B(&(((%\e(B \e$B(&(((%\e(B \e$B(&(((%\e(B
- \e$B("\e(B \e$B(#(!(!(!(!(+(!(!(!(!($\e(B \e$B("\e(B
- \e$B(#(!(*(!($(#(!(*(!($(#(!(*(!($(#(!(*(!($(#(!(*(!($\e(B
- \e$B("\e(B \e$B#0\e(B.\e$B#0("("\e(B \e$B#1\e(B.\e$B#0("("\e(B \e$B#1\e(B.\e$B#1("("\e(B \e$B#1\e(B.\e$B#2("("\e(B \e$B#2\e(B.\e$B#0("\e(B
- \e$B(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%(&(!(!(!(%\e(B
- \e$B?^\e(B: entity \e$B$N3,AX$H@aHV9f\e(B
-
-
-\e$B$N$h$&$K?<$5\e(B n \e$B$N@a$K$OD9$5\e(B n \e$B$N@0?tNs$N@aHV9f$,?6$l$^$9!#$3$l$r\e(B
-entity-number \e$B$H8F$S$^$9!#\e(Bentity-number \e$B$O\e(B S \e$B<0$H$7$F$O\e(B (1 2 3) \e$B$N$h$&\e(B
-\e$B$J@0?t$N%j%9%H$H$7$FI=8=$5$l$^$9!#\e(B
-
- \e$B0lJ}!"\e(BMIME-View \e$B$G$O\e(B entity \e$B$N4IM}$K!"$3$l$HF1MM$N\e(B node-id \e$B$rMQ$$$^\e(B
-\e$B$9!#\e(Bnode-id \e$B$O$A$g$&$I\e(B entity-number \e$B$r5U$K$7$?%j%9%H$G!"\e(Bentity-number
-1.2.3 \e$B$KBP1~$9$k\e(B node-id \e$B$O\e(B (3 2 1) \e$B$G$9!#\e(B
-
- entity-number \e$B$d\e(B node-id \e$B$rMQ$$$k$3$H$G!"\e(Bmime-raw-message \e$B$K$*$1$kLZ\e(B
-\e$B9=B$Cf$G$N\e(B entity \e$B$NAjBPE*$J0LCV4X78$r07$&$3$H$,$G$-$^$9!#\e(B
-
- \e$B0J>e$N$h$&$K\e(B entity \e$B$O\e(B mime-raw-buffer \e$B$G$OLZ9=B$$H$7$F4IM}$5$l$^$9\e(B
-\e$B$,!"\e(Bmime-preview-buffer \e$B$G$O\e(B entity \e$B$OI=<(2hLL$KBP1~$9$kNN0h$H$7$F4IM}\e(B
-\e$B$5$l!"A4BN$H$7$F$ONs9=B$$K$J$j$^$9!#<B:]$K$OJQ?t$,$"$kLu$G$O$J$/!"\e(B
-`mime-view-entity' \e$B$H$$$&\e(B text-property \e$B$GI=8=$5$l$^$9!#\e(B
-
- entity \e$B$OC10l$N\e(B buffer \e$B$K$*$1$k4IM}$d>pJs$NI=8=$K;H$o$l$k0lJ}!"$3$N\e(B
-\e$B#2$D$N\e(B buffer \e$B$r$D$J$0>pJs$H$7$F$bMQ$$$i$l$^$9!#\e(B
-
-
-** API
-
-[\e$B9=B$BN\e(B] mime-entity
-
- entity \e$B$K4X$9$k>pJs$r<}$a$k9=B$BN!#\e(B
-
- [\e$BMWAG\e(B]
-
- buffer entity \e$B$,B8:_$9$k\e(B buffer (buffer).
-
- node-id message \e$BA4BN$rI=$9\e(B entity \e$B$N3,AX$K$*$1$k!"\e(B
- \e$B$3$N\e(B entity \e$B$N@a$H$7$F$N0LCV$rI=$9\e(B id
- (\e$B@0?t$N\e(B list).
-
- header-start header \e$B$N@hF,0LCV\e(B (point).
-
- header-end header \e$B$NKvHx0LCV\e(B (point).
-
- body-start body \e$B$N@hF,0LCV\e(B (point).
-
- body-end body \e$B$NKvHx0LCV\e(B (point).
-
- content-type content-type \e$BMs$N>pJs\e(B (content-type).
-
- content-disposition content-disposition \e$BMs$N>pJs\e(B
- (content-type).
-
- encoding entity \e$B$N\e(B Content-Transfer-Encoding
- (\e$BJ8;zNs\e(B)
-
- children entity \e$B$K4^$^$l$k\e(B entity \e$B$N\e(B list
- (entity \e$B9=B$BN\e(B \e$B$N\e(B list).
-
- \e$B>e5-$NMWAG$O;2>H4X?t\e(B `mime-entity-\e$BMWAGL>\e(B' \e$B$G;2>H$9$k!#\e(B
-
-
- [\e$B5?;wMWAG\e(B]
-
- \e$B$^$?!"2a5n$H$N8_49@-$N$?$a!"0J2<$NMWAGL>$N;2>H4X?t$bMxMQ2DG=$G$"\e(B
- \e$B$k!#\e(B
-
- point-min entity \e$B$N@hF,0LCV\e(B (point).
-
- point-max entity \e$B$NKvHx0LCV\e(B (point).
-
- type/subtype entity \e$B$N\e(B type/subtype (\e$BJ8;zNs\e(B).
-
- media-type entity \e$B$N\e(B media-primary-type (symbol).
-
- media-subtype entity \e$B$N\e(B media-subtype (symbol).
-
- parameters entity \e$B$N\e(B Content-Type field \e$B$N\e(B parameter
- (\e$BO"A[\e(B list).
-
-
-[\e$B4X?t\e(B] make-mime-entity (node-id point-min point-max
- media-type media-subtype parameters encoding
- children)
-
- entity \e$B$N@8@.;R!#\e(B
-
-
-[\e$B4X?t\e(B] mime-entity-number (ENTITY)
-
- ENTITY \e$B$N\e(B entity-number \e$B$rJV$9!#\e(B
-
-
-[\e$B4X?t\e(B] mime-entity-parent (ENTITY &optional MESSAGE-INFO)
-
- ENTITY \e$B$N?F$N\e(B entity \e$B$rJV$9!#\e(B
-
- MESSAGE-INFO \e$B$,>JN,$5$l$?>l9g$O\e(B ENTITY \e$B$,B8:_$9$k\e(B buffer \e$B$K$*\e(B
- \e$B$1$k\e(B `mime-raw-message-info' \e$B$NCM$rMQ$$$k!#\e(B
-
- MESSAGE-INFO \e$B$,;XDj$5$l$?>l9g!"$3$l$r:,$H8+Jo$9!#\e(B
-
-
-[\e$B4X?t\e(B] mime-root-entity-p (ENTITY)
-
- ENTITY \e$B$,\e(B root-entity\e$B!JB($A!"\e(Bmessage \e$BA4BN!K$G$"$k>l9g$K!"Hs\e(B
- nil \e$B$rJV$9!#\e(B
-
-
-
-* entity
\e$B$N2r<a$H:F@8$N;EAH$_
\e(B
-
-STD 11 \e$B$d\e(B MIME \e$B$O4pK\E*$K=qLL$N9=J8$rDj$a$k$N$_$G$"$j!"=qLL$r$I$N$h$&\e(B
-\e$B$KI=<($9$Y$-$G$"$k$H$+\e(B entity \e$B$r$I$N$h$&$K:F@8$7$?$j=hM}$7$?$j$9$Y$-$+\e(B
-
\e$B$H$$$C$?$3$H$rDj$a$^$;$s!#$3$N$?$a!"MxMQ<T3&LL$O=qLL$N9=J8$r2r<a$7!"$3
\e(B
-\e$B$&$7$?$3$H$r7h$a$kI,MW$,$"$j$^$9!#\e(B
-
-\e$B9=B$>pJs$+$i$=$NI=<($d:F@8!&=hM}$K4X$9$k?6Iq$rDj5A$9$k0lHV4JC1$JJ}K!$O\e(B
-\e$B9=B$>pJs$KBP$7$F#1BP#1$G$3$&$7$?$3$H$r7h$a$F$7$^$&$3$H$G$9!#B($A!"9=B$\e(B
-\e$B$KBP$7$FI=<($d:F@8!&=hM}$rM=$aDj5A$7$F$*$/$3$H$G$9!#$7$+$7!"$3$l$G$OI=\e(B
-\e$B<($d:F@8!&=hM}$K4X$7$F0[$J$k%b%G%k$N<BAu$r:n$k$3$H$,$G$-$J$$!"$"$k$$$O!"\e(B
-\e$B0[$J$k<BAu4V$G>pJs8r49$r9T$&$3$H$,:$Fq$K$J$j$^$9!#\e(BInternet \e$B$G$O0[$J$k\e(B
-\e$B<BAu4V$G@5$7$/>pJs$,8r49$G$-$k$3$H$,5a$a$i$l$^$9$+$i!"$3$&$7$?$3$H$O$G\e(B
-\e$B$-$^$;$s!#$^$?!"FCDj$N<BAu$,$3$&$7$?2>Dj$K4p$E$$$?7A<0$r@8@.$9$k$3$H$O\e(B
-\e$B:.Mp$N85$H$J$j$^$9!#$h$C$F!"\e(BSTD 11 \e$B$d\e(B MIME \e$B$O0[$J$kI=<(!&=hM}%b%G%k!&\e(B
-\e$B8+$+$1$r;}$C$?J#?t$N<BAu$KBP$7$FCfN)E*$J7A<0$rDj$a$k$h$&$K@_7W$5$l$F$$\e(B
-\e$B$kLu$G$9!#\e(B
-
-\e$B9=B$>pJs$KBP$7$F!"8+$+$1$rDs6!$9$kOHAH$H$7$F$O\e(B SGML, XML, HTML \e$BEy$GMQ\e(B
-\e$B$$$k%9%?%$%k%7!<%H$H$$$&J}K!$,$"$j$^$9!#$3$l$O9=B$$KBP$9$k=hM}$r7A<0E*\e(B
-\e$B$KDj5A$9$k$?$a$NOHAH$N>e$G!"8+$+$1$rDj5A$9$k%9%?%$%k%7!<%H$rDj5A$7!"MQ\e(B
-\e$B$$$k%9%?%$%k%7!<%H$r;XDj$9$k$3$H$G!"9=B$$KBP$7$F8+$+$1$rM?$($^$9!#\e(B
-
-MIME \e$B$N:F@8=hM}$K4X$7$F$O\e(B mailcap \e$B$H$$$&7A<0$,$"$j$^$9!#$3$l$O\e(B
-media-type/subtype \e$BEy$N\e(B entity \e$B$N9=B$!&7A<0$K4X$9$k>pJs$KBP$7$F!"I=<(\e(B
-\e$B$d0u:~Ey$N:F@8!&=hM}$N;EJ}$rDj5A$7$^$9!#\e(B
-
-\e$B$3$l$i$O9=B$>pJs$KBP$7$F7A<0E*$K$=$N0UL#$rM?$($kOHAH$G!"9=B$>pJs$KBP$9\e(B
-\e$B$k0UL#$rJQ$($k$3$H$r2DG=$K$7$^$9!#$7$+$7$J$,$i!"9=B$$H0UL#$O#1BP#1BP1~\e(B
-
\e$B$G$"$j!"2r<a$N>u670MB8@-$,B8:_$7$^$;$s!#
\e(BInternet
\e$B$N=qLL$K$O>o$K7A<0$d
\e(B
-\e$B0UL#$NMI$l$,@8$8$F$$$^$9!#$3$l$O@d$($:?7$7$$%W%m%H%3%k$,Ds0F$5$l$k0lJ}!"\e(B
-\e$B8E$$<BAu$b;D$j!"$^$?!"!XCO0h2=$5$l$?\e(B RFC 822\e$B!Y$N$h$&$J47=,E*$J$b$N$bB8\e(B
-\e$B:_$9$k$+$i$G$9!#$^$?!"0lHLE*$G>\:Y$J5,Dj$rDj$a$?>l9g$b4JJX$J<BAu$,B8:_\e(B
-\e$B$7!"5,Dj$r40A4$K%5%]!<%H$9$k<BAu$h$j$b4JJX$J<BAu$NJ}$,B??t$r@j$a$k$3$H\e(B
-\e$B$,$7$P$7$P$G$9!#0lJ}!"5,Dj$rMQ$$$F>\:Y$K;XDj$5$l$?>pJs$OM-8z$KMxMQ$7$?\e(B
-\e$B$$$N$,?M>p$G$9!#\e(B
-
-\e$B0lJ}!"\e(B
-
-
-* Preview \e$B$N@8@.\e(B
-
-** \e$BI=<(>r7o\e(B
-
-[\e$BJQ?t\e(B] mime-preview-condition
-
- entity \e$B$NI=<($K4X$9$k>r7oLZ!#\e(B
-
-
-** entity-button
-
-[\e$B4X?t\e(B] mime-view-entity-button-visible-p (ENTITY)
-
- \e$BHs\e(B nil \e$B$N>l9g!"\e(Bentity-button \e$B$rI=<($9$k$3$H$rI=$9!#\e(B
-
-
-[\e$B4X?t\e(B] mime-view-insert-entity-button (ENTITY SUBJECT)
-
- ENTITY \e$B$N\e(B entity-button \e$B$rA^F~$9$k!#\e(B
-
-
-** entity-header
-
- preview-situation \e$B$N\e(B 'header field \e$B$NCM$,\e(B 'visible \e$B$G$"$k;~!"$=$N\e(B
-entity\e$B$N\e(B header \e$B$,I=<($5$l$^$9!#\e(B
-
-
-*** header-filter
-
-*** cutter
-
-
-** entity-body
-
- preview-situation \e$B$N\e(B 'body-presentation-method field \e$B$NCM$,\e(B
-'with-filter \e$B$G$"$k$+4X?t$G$"$k;~!"$=$N\e(B entity \e$B$N\e(B body \e$B$,I=<($5$l$^$9!#\e(B
-
-
-*** body-presentation-method
-
- body-presentation-method \e$B$O\e(B body \e$B$N8+$+$1$r@8@.$9$k4X?t$G!"\e(B
-
- (entity preview-situation)
-
-\e$B$H$$$&3&LL$r;}$C$F$$$^$9!#\e(B
-
-
-*** body-filter
-
- preview-situation \e$B$N\e(B 'body-presentation-method field \e$B$NCM$,\e(B
-'with-filter \e$B$N;~$O!"\e(Bfilter \e$B$rMQ$$$k\e(B body-presentation-method \e$B$rMQ$$$k\e(B
-\e$B$3$H$r<($7$F$$$^$9!#$3$N;~!"\e(Bpreview-situation \e$B$N\e(B 'body-filter field \e$B$N\e(B
-\e$BCM$G<($5$l$k\e(B filter \e$B4X?t$G=hM}$5$l$?7k2L$,I=<($5$l$^$9!#\e(B
-
- \e$B$3$N\e(B filter \e$B4X?t$N3&LL$O\e(B
-
- (preview-situation)
-
-\e$B$G$"$j!"$3$N4X?t$,8F$P$l$k;~!"=hM}BP>]$H$J$k\e(B entity \e$B$NFbMFM=$a\e(B buffer
-\e$B$KA^F~$5$l$F$*$j!"$^$?!"$=$NNN0h$O\e(B narrow \e$B$5$l$F$$$^$9!#\e(B
-
-
-* Entity \e$B$N:F@8!&=hM}\e(B
-
-MIME-View
\e$B$OMxMQ<T$,:F@8A`:n$r9T$C$?;~$K!"<B9T4D6-$K1~$8$FE,@Z$J2r<a$r
\e(B
-\e$B9T$$!":F@8=hM}$r9T$&$?$a$N5!9=$rDs6!$7$^$9!#\e(B
-
-
- \e$B(.(,(,(,(,(,(,(,(,(,(/\e(B
- mime-raw-buffer \e$B(-\e(B \e$B(-\e(B
- \e$B(.(,(,(,(,(,(,(,(,(,(,(5(/\e(B \e$B(-\e(B
- \e$B(-\e(Binformation of message\e$B(-\e(B \e$B(-\e(B
- \e$B(-\e(B \e$B(-\e(B \e$B(-\e(B
- \e$B(-\e(B \e$B(#(!(!(!($\e(B operation\e$B(-\e(Btype\e$B(#(!(!(!($\e(B \e$B(-\e(B user's
- \e$B(-\e(B \e$B("\e(Bentity\e$B('"+(!(!(!(!(@(!(!()\e(Bentity\e$B('"+(@(!(!(!\e(B operation
- \e$B(-\e(B \e$B(&(!(((!(%(#(!(!($\e(B \e$B(-\e(B \e$B(&(!(!(!(%\e(B \e$B(-\e(B
- \e$B(-\e(B \e$B("\e(B \e$B("\e(BMUA \e$B("\e(B \e$B(-\e(B \e$B(-\e(B
- \e$B(-\e(B \e$B("\e(B \e$B("\e(Btype\e$B("\e(B \e$B(-\e(B \e$B(-\e(B
- \e$B(-\e(B \e$B("\e(B \e$B(&(((!(%\e(B \e$B(2(,(,(,(,(,(,(,(,(0\e(B
- \e$B(1(,(,(,(;(,(,(,(;(,(,(,(0\e(Bmime-preview-buffer
- \e$B("\e(B \e$B("\e(B
-Information\e$B("\e(B \e$B("\e(B
- of \e$B("\e(B \e$B("\e(B
- entity \e$B("\e(B \e$B("\e(B
- \e$B!\\e(B \e$B("\e(B \e$B("\e(B
- operation \e$B("\e(B \e$B("\e(B
- type \e$B("\e(B \e$B("\e(B
- \e$B"-\e(B \e$B"-\e(B
- \e$B!?(:(,(,(,(:!@\e(B
- \e$B(-\e(B draft \e$B(-\e(B
- \e$B(-\e(B of \e$B(-\e(B
- \e$B(-\e(B acting \e$B(-\e(B
- \e$B(-\e(B situation\e$B(-\e(B
- \e$B!@(,(,(,(,(,!?\e(B
- \e$B("\e(B
- \e$B("\e(Bsearch
- \e$B"-\e(B
- \e$B!?(,(,(,(,(,(,(,(,(,(,(,!@\e(B \e$B!?(,(,(,(,(,!@\e(B
- \e$B(-\e(Bmime-acting-condition \e$B(-(!(!(!"*(-\e(B acting \e$B(-\e(B
- \e$B!@(,(,(,(,(,(,(,(,(,(,(,!?\e(B \e$B(-\e(Bsituation \e$B(-\e(B
- \e$B!@(,(,(8(,(,!?\e(B
- \e$B("\e(B
- \e$B("\e(Bcall
- \e$B"-\e(B
- \e$B(.(,(,(:(,(,(/\e(B playback
- \e$B(-\e(Bprocessing\e$B(7(!(!(!"*\e(B for
- \e$B(-\e(B method \e$B(-\e(B user
- \e$B(1(,(,(,(,(,(0\e(B
- \e$B?^\e(B: \e$B:F@8$N;EAH$_\e(B
-
-
-[\e$BJQ?t\e(B] mime-acting-condition
-
- entity \e$B$N:F@8!&=hM}$K4X$9$k>r7oLZ!#\e(B
`mime-raw-representation-type' if it is not nil.")
-(defsubst mime-raw-find-entity-from-node-id (entity-node-id
- &optional message-info)
- "Return entity from ENTITY-NODE-ID in mime-raw-buffer.
-If optional argument MESSAGE-INFO is not specified,
-`mime-message-structure' is used."
- (mime-raw-find-entity-from-number (reverse entity-node-id) message-info))
-
-(defun mime-raw-find-entity-from-number (entity-number &optional message-info)
- "Return entity from ENTITY-NUMBER in mime-raw-buffer.
-If optional argument MESSAGE-INFO is not specified,
-`mime-message-structure' is used."
- (or message-info
- (setq message-info mime-message-structure))
- (if (eq entity-number t)
- message-info
- (let ((sn (car entity-number)))
- (if (null sn)
- message-info
- (let ((rc (nth sn (mime-entity-children message-info))))
- (if rc
- (mime-raw-find-entity-from-number (cdr entity-number) rc)
- ))
- ))))
-
(defun mime-raw-find-entity-from-point (point &optional message-info)
"Return entity from POINT in mime-raw-buffer.
If optional argument MESSAGE-INFO is not specified,
(defsubst mime-entity-cooked-p (entity)
(eq (mime-entity-representation-type entity) 'cooked))
-(defsubst mime-entity-parent (entity &optional message-info)
- "Return mother entity of ENTITY.
-If optional argument MESSAGE-INFO is not specified,
-`mime-message-structure' in buffer of ENTITY is used."
- (mime-raw-find-entity-from-node-id
- (cdr (mime-entity-node-id entity))
- (or message-info
- (save-excursion
- (set-buffer (mime-entity-buffer entity))
- mime-message-structure))))
-
(defun mime-entity-situation (entity)
"Return situation of ENTITY."
(append (or (mime-entity-content-type entity)
))
-(defvar mime-view-uuencode-encoding-name-list '("x-uue" "x-uuencode"))
-
-(defun mime-entity-uu-filename (entity)
- (if (member (mime-entity-encoding entity)
- mime-view-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)
- (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))
- ))))
-
(defun mime-view-entity-title (entity)
- (or (mime-entity-read-field entity 'Content-Description)
- (mime-entity-read-field entity 'Subject)
+ (or (mime-read-field 'Content-Description entity)
+ (mime-read-field 'Subject entity)
(mime-entity-filename entity)
""))
'("From"))
-;;; @ X-Face
-;;;
-
-;; hack from Gnus 5.0.4.
-
-(defvar mime-view-x-face-to-pbm-command
- "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm")
-
-(defvar mime-view-x-face-command
- (concat mime-view-x-face-to-pbm-command
- " | xv -quit -")
- "String to be executed to display an X-Face field.
-The command will be executed in a sub-shell asynchronously.
-The compressed face will be piped to this command.")
-
-(defun mime-view-x-face-function ()
- "Function to display X-Face field. You can redefine to customize."
- ;; 1995/10/12 (c.f. tm-eng:130)
- ;; fixed by Eric Ding <ericding@San-Jose.ate.slb.com>
- (save-restriction
- (narrow-to-region (point-min) (re-search-forward "^$" nil t))
- ;; end
- (goto-char (point-min))
- (if (re-search-forward "^X-Face:[ \t]*" nil t)
- (let ((beg (match-end 0))
- (end (std11-field-end))
- )
- (call-process-region beg end "sh" nil 0 nil
- "-c" mime-view-x-face-command)
- ))))
-
-
;;; @ buffer setup
;;;
(play "Play current entity" mime-preview-play-current-entity)
(extract "Extract current entity" mime-preview-extract-current-entity)
(print "Print current entity" mime-preview-print-current-entity)
- (x-face "Show X Face" mime-preview-display-x-face)
)
"Menu for MIME Viewer")
(setq preview-buffer
(concat "*Preview-" (buffer-name raw-buffer) "*")))
(set-buffer raw-buffer)
- (mime-parse-buffer)
(setq mime-preview-buffer preview-buffer)
(let ((inhibit-read-only t))
- (switch-to-buffer preview-buffer)
+ (set-buffer (get-buffer-create preview-buffer))
(widen)
(erase-buffer)
(setq mime-raw-buffer raw-buffer)
(search-forward "\n\n" nil t)
))
(run-hooks 'mime-view-mode-hook)
- ))
- (set-buffer-modified-p nil)
- (setq buffer-read-only t)
- )
+ (set-buffer-modified-p nil)
+ (setq buffer-read-only t)
+ (or (get-buffer-window preview-buffer)
+ (let ((r-win (get-buffer-window raw-buffer)))
+ (if r-win
+ (set-window-buffer r-win preview-buffer)
+ (switch-to-buffer preview-buffer)
+ )))
+ )))
(defun mime-view-buffer (&optional raw-buffer preview-buffer mother
default-keymap-or-function)
(interactive)
(mime-display-message
- (save-excursion
- (if raw-buffer (set-buffer raw-buffer))
- (mime-parse-message)
- )
+ (mime-parse-buffer raw-buffer)
preview-buffer mother default-keymap-or-function))
(defun mime-view-mode (&optional mother ctl encoding
(save-excursion
(if raw-buffer (set-buffer raw-buffer))
(or mime-view-redisplay
- (mime-parse-message ctl encoding))
+ (setq mime-message-structure (mime-parse-message ctl encoding)))
)
preview-buffer mother default-keymap-or-function))
str
(save-excursion
(set-buffer a-buf)
- (setq
- ci
- (mime-raw-find-entity-from-node-id entity-node-id))
+ (setq ci
+ (mime-find-entity-from-node-id entity-node-id))
(save-restriction
(narrow-to-region
(mime-entity-point-min ci)
))))
-;;; @@ X-Face
-;;;
-
-(defun mime-preview-display-x-face ()
- (interactive)
- (save-window-excursion
- (set-buffer mime-raw-buffer)
- (mime-view-x-face-function)
- ))
-
-
;;; @@ moving
;;;
(get-text-property (point) 'mime-view-entity)))
(backward-char)
)
- (let ((r (mime-raw-find-entity-from-node-id
- (cdr (mime-entity-node-id cinfo))
- (get-text-property 1 'mime-view-entity)))
+ (let ((r (mime-entity-parent cinfo))
point)
(catch 'tag
(while (setq point (previous-single-property-change
projects / elisp / semi.git / commitdiff