+++ /dev/null
-@c $Id: tm-view-m_ja.texi,v 1.1 1995/12/11 08:40:51 morioka Exp $
-
-@node method, , preview-buffer, Mechanism of tm-view
-@comment node-name, next, previous, up
-@subsection method
-@cindex method
-
-@code{mime/viewer-mode} \e$B$G$O\e(B user \e$B$O3F\e(B content \e$B$KBP$7$F!"\e(Bplay
-(@key{v}), extract (@key{e}), print (@key{C-c C-p}) \e$B$H$$$&A`:n$r9T$J$&\e(B
-\e$B$3$H$,$G$-$^$9!#$3$&$7$?A`:n$N$3$H$r!X!J\e(Bcontent \e$B$KBP$9$k!K\e(Bdecode \e$BA`:n!Y\e(B
-\e$B$H8F$V$3$H$K$7$^$9!#$^$?!"\e(B@strong{play}, @strong{extract},
-@strong{print} \e$B$H$$$&\e(B decode \e$BA`:n$N<oN`$N$3$H$r\e(B @strong{decoding-mode}
-\e$B$H8F$V$3$H$K$7$^$9!#\e(B
-
-decode \e$BA`:n$,9T$J$o$l$?;~!"$=$N\e(B content \e$B$N\e(B content-type \e$B$J$I$N>r7o$d$=\e(B
-\e$B$N>l$N4D6-$K1~$8$F<B:]$K$=$NA`:n$r<B9T$9$k<jB3$-$,8F$P$l$^$9!#$3$N<jB3\e(B
-\e$B$-$N$3$H$r\e(B @strong{method} \e$B$H8F$S$^$9!#\e(B
-
-method \e$B$K$O!"\e(BEmacs Lisp \e$B$G=q$+$l$?\e(B @strong{\e$BFbIt\e(B method} \e$B$H!"30It\e(B
-program \e$B$G<B8=$5$l$?\e(B @strong{\e$B30It\e(B method} \e$B$,$"$j$^$9!#FbIt\e(B method \e$B$O\e(B
-Emacs \e$B$N5!G=$r;H$C$F$-$a:Y$+$$=hM}$r9T$J$&$3$H$,$G$-$^$9!#30It\e(B method
-\e$B$OHsF14|%W%m%;%98F$S=P$7$r;H$C$F<B8=$5$l$F$$$k$N$G!"<B9TCfBT$?$5$l$:$K\e(B
-\e$B$9$_$^$9!#$3$N$?$a!"@E;_2h$dF02h$J$I$N5pBg$J\e(B data \e$B$r:F@8$9$k$N$KNI$$$G\e(B
-\e$B$7$g$&!#\e(B
-
-@menu
-* decoding-condition:: content \e$B$N\e(B decode \e$B>r7o$N@_Dj\e(B
-* Format of method value:: method \e$B$NCMIt$N=q<0\e(B
-* Example of decoding-condition:: \e$B@_DjNc\e(B
-@end menu
-
-
-@node decoding-condition, Format of method value, method, method
-@comment node-name, next, previous, up
-@subsubsection content \e$B$N\e(B decode \e$B>r7o$N@_Dj\e(B
-@cindex content decoding condition
-
-tm-view \e$B$O\e(B decode \e$BA`:n$,9T$J$o$l$k$H!"JQ?t\e(B
-@code{mime/content-decoding-condition} \e$B$+$i$=$N;~$N>r7o$K9gCW$7$?\e(B
-method \e$B$rA\$7=P$7$F!"$=$l$r8F$S=P$7$^$9!#\e(B
-
-\e$BJQ?t\e(B @code{mime/content-decoding-condition} \e$B$O\e(B
-
-@lisp
- (\e$B>r7o\e(B1 \e$B>r7o\e(B2 ...)
-@end lisp
-
-\e$B$H$$$&7A$r$7$?\e(B list \e$B$G!"3F>r7o$O\e(B
-
-@lisp
- ((field-type_1 . value_1)
- (field-type_2 . value_2)
- ...)
-@end lisp
-
-\e$B$H$$$&7A$NO"A[\e(B list \e$B$K$J$C$F$$$^$9!#\e(B
-
-\e$BNc$($P!"\e(Btext/plain \e$B$N;~!"\e(Btm-plain \e$B$r5/F0$9$k;~!"\e(B
-
-@lisp
- ((type . "text/plain")
- (method "tm-plain" nil 'file 'type 'encoding 'mode 'name))
-@end lisp
-
-\e$B$H$$$&>r7o$r=q$-$^$9!#$3$N\e(B method \e$B$N\e(B value \e$BIt$N=q<0$K$D$$$F$O8e$G>\$7\e(B
-\e$B$/=R$Y$^$9!#\e(B
-
-\e$B$3$N>r7o$O\e(B content-type \e$B$,\e(B text/plain \e$B$G$"$k\e(B content \e$B$J$iA4$F$N\e(B
-decoding-mode \e$B$GM-8z$G$9!#$7$+$7!"\e(B
-
-@lisp
- ((type . "text/plain")
- (method "tm-plain" nil 'file 'type 'encoding 'mode 'name)
- (mode . "play"))
-@end lisp
-
-\e$B$J$i!"\e(Bplay mode \e$B$N;~$7$+M-8z$K$J$j$^$;$s!#\e(B
-
-\e$B5U$K!"\e(B
-
-@lisp
- ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file)
- (mode . "play"))
-@end lisp
-
-\e$B$J$i!"A4$F$N\e(B content-type \e$B$N\e(B play mode \e$B$GM-8z$K$J$j$^$9!#\e(B
-
-\e$B$3$&$7$F3F>r7o$rA0$+$i8+$F9T$-!":G=i$KM-8z$K$J$C$?>r7o$,<B9T$5$l$^$9!#\e(B
-
-
-@node Format of method value, Example of decoding-condition, decoding-condition, method
-@comment node-name, next, previous, up
-@subsubsection method \e$B$NCMIt$N=q<0\e(B
-@cindex method \e$B$NCMIt$N=q<0\e(B
-
-decode-condition \e$B$N\e(B method field \e$B$O\e(B
-
-@lisp
- (method . SYMBOL)
-@end lisp
-
-\e$B$+\e(B
-
-@lisp
- (method \e$BJ8;zNs\e(B FLAG \e$B0z?t\e(B1 \e$B0z?t\e(B2 ...)
-@end lisp
-
-\e$B$H$$$&7A$r$7$F$$$^$9!#\e(B
-
-\e$BA0<T$OFbIt\e(B method \e$B$r;XDj$9$k$?$a$N7A<0$G!"\e(Bdecode \e$BA`:n$,9T$J$o$l$?;~!"\e(B
-SYMBOL \e$B$H$$$&4X?t$,4X?t8F$S=P$7$K$h$C$FFbIt\e(B method \e$B$H$7$F8F$S=P$5$l$^\e(B
-\e$B$9!#\e(B
-
-\e$B8e<T$O30It\e(B method \e$B$r;XDj$9$k$?$a$N7A<0$G!"\e(Bdecode \e$BA`:n$,9T$J$o$l$?;~!"\e(B
-\e$BJ8;zNs$G;XDj$5$l$?30It\e(B program \e$B$,HsF14|%W%m%;%98F$S=P$7$K$h$C$F30It\e(B
-method \e$B$H$7$F8F$S=P$5$l$^$9!#\e(B
-
-
-\e$B30It\e(B method \e$B$r;XDj$9$k>l9g$N\e(B method field \e$B$N=q<0$O0J2<$NDL$j$G$9!#\e(B
-
-@table @samp
-@item \e$BJ8;zNs\e(B
- \e$B30It\e(B method \e$B$NL>A0\e(B
-@item FLAG
- @code{t} \e$B$J$i\e(B content-header \e$B$b30It\e(B method \e$B$KEO$9!#\e(B@code{nil}
- \e$B$J$i\e(B content-body \e$B$N$_$rEO$9!#\e(B
-@item \e$B0z?tNs\e(B
- \e$B30It\e(B method \e$B$N0z?t\e(B
-@end table
-
-\e$B$^$?!"30It\e(B method \e$B$N0z?t$O<!$N$h$&$J7A<0$G=q$-$^$9!#\e(B
-
-@table @samp
-@item \e$BJ8;zNs\e(B
- \e$B$=$NJ8;zNs$rEO$9\e(B
-@item 'SYMBOL
- SYMBOL \e$B$r\e(B key \e$B$H$7$?\e(B decoding-condition \e$B$NCM$rEO$9\e(B
-@item '\e$BJ8;zNs\e(B
- \e$BJ8;zNs$r\e(B key \e$B$H$7$?\e(B decoding-condition \e$B$NCM$rEO$9\e(B
-@end table
-
-'SYMBOL \e$B$G;XDj$G$-$k$b$N$K$O!"\e(B
-
-@table @samp
-@item 'file
- content \e$B$rEO$9$?$a$N\e(B file \e$BL>\e(B
-@item 'type
- Content-Type field \e$B$N\e(B content-type/subtype
-@item 'encoding
- Content-Transfer-Encoding field \e$B$N\e(B field body
-@item 'mode
- decoding-mode
-@item 'name
- file \e$B$KMn$9>l9g$N\e(B file \e$BL>\e(B
-@end table
-
-\e$B$J$I$,$"$j!"\e(B'\e$BJ8;zNs\e(B \e$B$G$O\e(B Content-Type field \e$B$N\e(B parameter \e$B$NCM$,;XDj$G\e(B
-\e$B$-$^$9!#\e(B
-
-
-@node Example of decoding-condition, , Format of method value, method
-@comment node-name, next, previous, up
-@subsubsection decoding-condition \e$B$NNc\e(B
-@cindex decoding-condition \e$B$NNc\e(B
-
-\e$B0J2<$K\e(B decoding-condition \e$B$N@_DjNc$r<($7$^$9!#\e(B
-
-@lisp
-(defvar mime/content-decoding-condition
- '(((type . "text/plain")
- (method "tm-plain" nil 'file 'type 'encoding 'mode 'name))
- ((type . "text/x-latex")
- (method "tm-latex" nil 'file 'type 'encoding 'mode 'name))
- ((type . "audio/basic")
- (method "tm-au" nil 'file 'type 'encoding 'mode 'name))
- ((type . "image/gif")
- (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
- ((type . "image/jpeg")
- (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
- ((type . "image/tiff")
- (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
- ((type . "image/x-tiff")
- (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
- ((type . "image/x-xbm")
- (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
- ((type . "image/x-pic")
- (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
- ((type . "video/mpeg")`
- (method "tm-mpeg" nil 'file 'type 'encoding 'mode 'name))
- ((type . "application/octet-stream")
- (method "tm-file" nil 'file 'type 'encoding 'mode 'name))
- ((type . "message/partial")
- (method . mime/decode-message/partial-region))
- ((method "metamail" t
- "-m" "tm" "-x" "-d" "-z" "-e" 'file)(mode . "play"))
- ))
-@end lisp
-
-\e$BNc$($P!"!VA4It\e(B metamail \e$B;H$&$s$d!W$H$$$&>l9g!"\e(B
-
-@lisp
-(setq mime/content-decoding-condition
- '(
- ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file))
- ))
-@end lisp
-
-\e$B$H$9$l$P\e(B OK \e$B$G$9!#\e(B
-
-\e$B9)IW$9$l$P!"$+$J$jJ#;($J>r7o$,=q$1$k$G$7$g$&!#\e(B
-
-
-\e$B0J2<$K!"\e(Bdecoding-condition \e$B$r@_Dj$9$k$?$a$NM-MQ$J4X?t$r>R2p$7$^$9!#\e(B
-
-
-@deffn{Function} set-atype symbol alist
-
-@var{symbol} \e$B$K>r7o\e(B @var{alist} \e$B$rDI2C$7$^$9!#\e(B
-
-\e$BNc!'\e(B
-
-@lisp
-(set-atype 'mime/content-decoding-condition
- '((type . "message/external-body")
- ("access-type" . "anon-ftp")
- (method . mime/decode-message/external-ftp)
- ))
-@end lisp
-@end deffn
-
-
-@node environment variables, , mime/viewer-mode, tm-view
-@comment node-name, next, previous, up
-@section \e$B4D6-JQ?t\e(B
-@cindex environment variables
-
-\e$B0J2<$K\e(B tm-view \e$B$NI8=`\e(B method \e$B$,;2>H$9$k4D6-JQ?t$r<($7$^$9!#\e(B
-
-@table @var
-@item TM_TMP_DIR
-\e$B0l;~E*$K:n@.$5$l$k\e(B file \e$B$d\e(B file \e$B=PNO$9$k>l9g$N\e(B default \e$B$N=PNO@h$H$7$F\e(B
-\e$BMQ$$$i$l$k\e(B directory \e$B$r;XDj$9$k!#>JN,$5$l$?>l9g!"\e(B/tmp/ \e$B$,MQ$$$i$l$k!#\e(B
-
-@item VIDEO_DITHER
-mpeg_play \e$B$G$N\e(B dither \e$B$N$+$1J}$r;XDj$9$k!#4{DjCM$O\e(B `gray'.
-
-@item TM_WWW_BROWSER
-WWW browser \e$B$r;XDj$9$k!#4{DjCM$O\e(B `netscape'.
-@end table
projects / elisp / tm.git / blobdiff