doc/tm-view-m_ja.texi

   1 @c $Id: tm-view-m_ja.texi,v 1.1 1995/12/11 08:40:51 morioka Exp $
   2
   3 @node method,  , preview-buffer, Mechanism of tm-view
   4 @comment  node-name,  next,  previous,  up
   5 @subsection method
   6 @cindex method
   7
   8 @code{mime/viewer-mode} \e$B$G$O\e(B user \e$B$O3F\e(B content \e$B$KBP$7$F!"\e(Bplay
   9 (@key{v}), extract (@key{e}), print (@key{C-c C-p}) \e$B$H$$$&A`:n$r9T$J$&\e(B
  10 \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
  11 \e$B$H8F$V$3$H$K$7$^$9!#$^$?!"\e(B@strong{play}, @strong{extract},
  12 @strong{print} \e$B$H$$$&\e(B decode \e$BA`:n$N<oN`$N$3$H$r\e(B @strong{decoding-mode}
  13 \e$B$H8F$V$3$H$K$7$^$9!#\e(B
  14
  15 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
  16 \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
  17 \e$B$-$N$3$H$r\e(B @strong{method} \e$B$H8F$S$^$9!#\e(B
  18
  19 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
  20 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
  21 Emacs \e$B$N5!G=$r;H$C$F$-$a:Y$+$$=hM}$r9T$J$&$3$H$,$G$-$^$9!#30It\e(B method
  22 \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
  23 \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
  24 \e$B$7$g$&!#\e(B
  25
  26 @menu
  27 * decoding-condition::            content \e$B$N\e(B decode \e$B>r7o$N@_Dj\e(B
  28 * Format of method value::        method \e$B$NCMIt$N=q<0\e(B
  29 * Example of decoding-condition:: \e$B@_DjNc\e(B
  30 @end menu
  31
  32
  33 @node decoding-condition, Format of method value, method, method
  34 @comment  node-name,  next,  previous,  up
  35 @subsubsection content \e$B$N\e(B decode \e$B>r7o$N@_Dj\e(B
  36 @cindex content decoding condition
  37
  38 tm-view \e$B$O\e(B decode \e$BA`:n$,9T$J$o$l$k$H!"JQ?t\e(B
  39 @code{mime/content-decoding-condition} \e$B$+$i$=$N;~$N>r7o$K9gCW$7$?\e(B
  40 method \e$B$rA\$7=P$7$F!"$=$l$r8F$S=P$7$^$9!#\e(B
  41
  42 \e$BJQ?t\e(B @code{mime/content-decoding-condition} \e$B$O\e(B
  43
  44 @lisp
  45         (\e$B>r7o\e(B1 \e$B>r7o\e(B2 ...)
  46 @end lisp
  47
  48 \e$B$H$$$&7A$r$7$?\e(B list \e$B$G!"3F>r7o$O\e(B
  49
  50 @lisp
  51         ((field-type_1 . value_1)
  52          (field-type_2 . value_2)
  53          ...)
  54 @end lisp
  55
  56 \e$B$H$$$&7A$NO"A[\e(B list \e$B$K$J$C$F$$$^$9!#\e(B
  57
  58 \e$BNc$($P!"\e(Btext/plain \e$B$N;~!"\e(Btm-plain \e$B$r5/F0$9$k;~!"\e(B
  59
  60 @lisp
  61         ((type . "text/plain")
  62          (method "tm-plain" nil 'file 'type 'encoding 'mode 'name))
  63 @end lisp
  64
  65 \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
  66 \e$B$/=R$Y$^$9!#\e(B
  67
  68 \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
  69 decoding-mode \e$B$GM-8z$G$9!#$7$+$7!"\e(B
  70
  71 @lisp
  72         ((type . "text/plain")
  73          (method "tm-plain" nil 'file 'type 'encoding 'mode 'name)
  74          (mode . "play"))
  75 @end lisp
  76
  77 \e$B$J$i!"\e(Bplay mode \e$B$N;~$7$+M-8z$K$J$j$^$;$s!#\e(B
  78
  79 \e$B5U$K!"\e(B
  80
  81 @lisp
  82         ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file)
  83          (mode . "play"))
  84 @end lisp
  85
  86 \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
  87
  88 \e$B$3$&$7$F3F>r7o$rA0$+$i8+$F9T$-!":G=i$KM-8z$K$J$C$?>r7o$,<B9T$5$l$^$9!#\e(B
  89
  90
  91 @node Format of method value, Example of decoding-condition, decoding-condition, method
  92 @comment  node-name,  next,  previous,  up
  93 @subsubsection method \e$B$NCMIt$N=q<0\e(B
  94 @cindex method \e$B$NCMIt$N=q<0\e(B
  95
  96 decode-condition \e$B$N\e(B method field \e$B$O\e(B
  97
  98 @lisp
  99         (method . SYMBOL)
 100 @end lisp
 101
 102 \e$B$+\e(B
 103
 104 @lisp
 105         (method  \e$BJ8;zNs\e(B  FLAG  \e$B0z?t\e(B1  \e$B0z?t\e(B2  ...)
 106 @end lisp
 107
 108 \e$B$H$$$&7A$r$7$F$$$^$9!#\e(B
 109
 110 \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
 111 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
 112 \e$B$9!#\e(B
 113
 114 \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
 115 \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
 116 method \e$B$H$7$F8F$S=P$5$l$^$9!#\e(B
 117
 118
 119 \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
 120
 121 @table @samp
 122 @item \e$BJ8;zNs\e(B
 123         \e$B30It\e(B method \e$B$NL>A0\e(B
 124 @item FLAG
 125         @code{t} \e$B$J$i\e(B content-header \e$B$b30It\e(B method \e$B$KEO$9!#\e(B@code{nil}
 126         \e$B$J$i\e(B content-body \e$B$N$_$rEO$9!#\e(B
 127 @item \e$B0z?tNs\e(B
 128         \e$B30It\e(B method \e$B$N0z?t\e(B
 129 @end table
 130
 131 \e$B$^$?!"30It\e(B method \e$B$N0z?t$O<!$N$h$&$J7A<0$G=q$-$^$9!#\e(B
 132
 133 @table @samp
 134 @item \e$BJ8;zNs\e(B
 135         \e$B$=$NJ8;zNs$rEO$9\e(B
 136 @item 'SYMBOL
 137         SYMBOL \e$B$r\e(B key \e$B$H$7$?\e(B decoding-condition \e$B$NCM$rEO$9\e(B
 138 @item '\e$BJ8;zNs\e(B
 139         \e$BJ8;zNs$r\e(B key \e$B$H$7$?\e(B decoding-condition \e$B$NCM$rEO$9\e(B
 140 @end table
 141
 142 'SYMBOL \e$B$G;XDj$G$-$k$b$N$K$O!"\e(B
 143
 144 @table @samp
 145 @item 'file
 146         content \e$B$rEO$9$?$a$N\e(B file \e$BL>\e(B
 147 @item 'type
 148         Content-Type field \e$B$N\e(B content-type/subtype
 149 @item 'encoding
 150         Content-Transfer-Encoding field \e$B$N\e(B field body
 151 @item 'mode
 152         decoding-mode
 153 @item 'name
 154         file \e$B$KMn$9>l9g$N\e(B file \e$BL>\e(B
 155 @end table
 156
 157 \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
 158 \e$B$-$^$9!#\e(B
 159
 160
 161 @node Example of decoding-condition,  , Format of method value, method
 162 @comment  node-name,  next,  previous,  up
 163 @subsubsection decoding-condition \e$B$NNc\e(B
 164 @cindex decoding-condition \e$B$NNc\e(B
 165
 166 \e$B0J2<$K\e(B decoding-condition \e$B$N@_DjNc$r<($7$^$9!#\e(B
 167
 168 @lisp
 169 (defvar mime/content-decoding-condition
 170   '(((type . "text/plain")
 171      (method "tm-plain" nil 'file 'type 'encoding 'mode 'name))
 172     ((type . "text/x-latex")
 173      (method "tm-latex" nil 'file 'type 'encoding 'mode 'name))
 174     ((type . "audio/basic")
 175      (method "tm-au"    nil 'file 'type 'encoding 'mode 'name))
 176     ((type . "image/gif")
 177      (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
 178     ((type . "image/jpeg")
 179      (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
 180     ((type . "image/tiff")
 181      (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
 182     ((type . "image/x-tiff")
 183      (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
 184     ((type . "image/x-xbm")
 185      (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
 186     ((type . "image/x-pic")
 187      (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
 188     ((type . "video/mpeg")`
 189      (method "tm-mpeg"  nil 'file 'type 'encoding 'mode 'name))
 190     ((type . "application/octet-stream")
 191      (method "tm-file"  nil 'file 'type 'encoding 'mode 'name))
 192     ((type . "message/partial")
 193      (method . mime/decode-message/partial-region))
 194     ((method "metamail" t
 195              "-m" "tm" "-x" "-d" "-z" "-e" 'file)(mode . "play"))
 196     ))
 197 @end lisp
 198
 199 \e$BNc$($P!"!VA4It\e(B metamail \e$B;H$&$s$d!W$H$$$&>l9g!"\e(B
 200
 201 @lisp
 202 (setq mime/content-decoding-condition
 203       '(
 204         ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file))
 205        ))
 206 @end lisp
 207
 208 \e$B$H$9$l$P\e(B OK \e$B$G$9!#\e(B
 209
 210 \e$B9)IW$9$l$P!"$+$J$jJ#;($J>r7o$,=q$1$k$G$7$g$&!#\e(B
 211
 212
 213 \e$B0J2<$K!"\e(Bdecoding-condition \e$B$r@_Dj$9$k$?$a$NM-MQ$J4X?t$r>R2p$7$^$9!#\e(B
 214
 215
 216 @deffn{Function} set-atype symbol alist
 217
 218 @var{symbol} \e$B$K>r7o\e(B @var{alist} \e$B$rDI2C$7$^$9!#\e(B
 219
 220 \e$BNc!'\e(B
 221
 222 @lisp
 223 (set-atype 'mime/content-decoding-condition
 224            '((type . "message/external-body")
 225              ("access-type" . "anon-ftp")
 226              (method . mime/decode-message/external-ftp)
 227              ))
 228 @end lisp
 229 @end deffn
 230
 231
 232 @node environment variables,  , mime/viewer-mode, tm-view
 233 @comment  node-name,  next,  previous,  up
 234 @section \e$B4D6-JQ?t\e(B
 235 @cindex environment variables
 236
 237 \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
 238
 239 @table @var
 240 @item TM_TMP_DIR
 241 \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
 242 \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
 243
 244 @item VIDEO_DITHER
 245 mpeg_play \e$B$G$N\e(B dither \e$B$N$+$1J}$r;XDj$9$k!#4{DjCM$O\e(B `gray'.
 246
 247 @item TM_WWW_BROWSER
 248 WWW browser \e$B$r;XDj$9$k!#4{DjCM$O\e(B `netscape'.
 249 @end table