--- /dev/null
+tm-view.el
+----------------------------
+revision 6.54
+date: 1995/06/13 22:31:38; author: morioka; state: Exp; lines: +19 -8
+application/octet-stream \e$B$N\e(B Content-Transfer-Encoding \e$B$,B8:_$7$J$$$+\e(B
+7bit \e$B$+\e(B 8bit \e$B$N;~0J30$G$OI=<($7$J$$$h$&$K4X?t\e(B
+mime-viewer/body-visible-p \e$B$r=$@5$7$?!#\e(B
+----------------------------
+revision 6.53
+date: 1995/06/13 21:14:30; author: morioka; state: Exp; lines: +2 -4
+\e$BJQ?t\e(B mime-viewer/code-converter-alist \e$B$N4{DjCM$N\e(B mh-e \e$BMQ$N@_Dj$r:o=|$7\e(B
+\e$B$?!#\e(B
+----------------------------
+revision 6.52
+date: 1995/06/13 21:10:33; author: morioka; state: Exp; lines: +49 -30
+\e$B$A$g$C$HJB$YJQ$($F@0M}$7$?!#\e(B
+----------------------------
+revision 6.51
+date: 1995/06/13 20:58:46; author: morioka; state: Exp; lines: +22 -12
+uuencode \e$B$N;~!"\e(Buuencode \e$B$H$7$F$N\e(B file \e$BL>$rM%@h$7$F;2>H$9$k$h$&$K4X?t\e(B
+mime-viewer/get-subject \e$B$r=$@5$7$?!#\e(B
+----------------------------
+
+tm-mh-e.el
+----------------------------
+revision 6.18
+date: 1995/06/20 21:07:39; author: morioka; state: Exp; lines: +34 -32
+article buffer \e$B$*$h$S\e(B preview buffer \e$B$,\e(B read-only \e$B$K$J$C$F$$$J$+$C$?IT\e(B
+\e$B6q9g$r=$@5$7$?!#\e(B
+----------------------------
+revision 6.17
+date: 1995/06/19 18:57:08; author: morioka; state: Exp; lines: +5 -1
+\e$B4X?t\e(B tm-mh-e/display-msg \e$B$G!"\e(B*noconv* \e$B$GFI$_9~$`>l9g!"2~9T5-9f$,\e(B CR LF
+\e$B$N>l9g\e(B CR \e$B$r=|5n$9$k$h$&$K=$@5$7$?!#\e(B
+----------------------------
+revision 6.16
+date: 1995/06/15 22:06:31; author: morioka; state: Exp; lines: +19 -13
+page-msg \e$B$H\e(B previous-page \e$B$K$*$$$F!"\e(Btm-mh-e/decode-all \e$B$,\e(B nil \e$B$N>l9g!"\e(B
+original \e$B$N4X?t$r8F$V$h$&$K$7$?!#\e(B
+----------------------------
+revision 6.15
+date: 1995/06/15 20:07:53; author: morioka; state: Exp; lines: +9 -6
+\e$B4X?t\e(B tm-mh-e/toggle-decoding-mode \e$B$G!"\e(Btm-mh-e/decode-all \e$B$r\e(B nil \e$B$K$7$?\e(B
+\e$B;~$K\e(B preview buffer \e$B$,$&$^$/\e(B kill \e$B$5$l$J$$IT6q9g$r=$@5$7$?!#\e(B
+----------------------------
+revision 6.14
+date: 1995/06/15 13:33:45; author: morioka; state: Exp; lines: +6 -2
+\e$B4X?t\e(B tm-mh-e/toggle-decoding-mode \e$B$G\e(B tm-mh-e/decode-all \e$B$r\e(B nil \e$B$K$9$k\e(B
+\e$B;~!"\e(Bpreview buffer \e$B$r\e(B kill \e$B$9$k$h$&$K$7$?!#\e(B
+----------------------------
+revision 6.13
+date: 1995/06/15 13:28:02; author: morioka; state: Exp; lines: +6 -4
+\e$B;32,\e(B \e$B9nH~\e(B <yamaoka@ga.sony.co.jp> \e$B$5$s[)$/!'\e(B
+======================================================================
+ \e$B#1!%%a!<%k$rFI$s$G$$$k$H$-$K=i$a$F\e(B "\et" (tm-mh-e/toggle-decoding-mode)
+ \e$B$r%?%$%W$9$k$H!"\e(Bview-mode \e$B$N%P%C%U%!$,L5$$$N$G$*$+$7$J$3$H$K$J$j\e(B
+ \e$B$^$9!#\e(B
+
+ \e$B#2!%>e5-$H4XO"$7$^$9$,!"\e(Bshow-buffer \e$B$,\e(B mh-show-mode \e$B$K$J$C$F$$$k$H$-\e(B
+ \e$B$K\e(B "\et" \e$B$r%?%$%W$9$k$H!"0JA0$K\e(B "v" (tm-mh-e/view-message) \e$B$r<B\e(B
+ \e$B9T$7$?$H$-$NFbMF$,I=<($5$l$^$9!#\e(B
+======================================================================
+\e$B$3$l$r2~A1$9$k;32,$5$s$N\e(B patch \e$B$rEv$F$?!#\e(B
+----------------------------
+revision 6.12
+date: 1995/06/13 22:10:33; author: morioka; state: Exp; lines: +7 -4
+\e$B4X?t\e(B tm-mh-e/code-convert-region-to-emacs \e$B$rDj5A$7$?!#\e(B
+----------------------------
+revision 6.11
+date: 1995/06/13 21:15:01; author: morioka; state: Exp; lines: +5 -1
+\e$BJQ?t\e(B mime-viewer/code-converter-alist \e$B$X$N@_Dj$rDI2C$7$?!#\e(B
+----------------------------
+
+tm-mh-e3.el
+----------------------------
+revision 4.0
+date: 1995/06/18 16:26:37; author: morioka; state: Exp; lines: +11 -3
+\e$B4X?t\e(B mh-start-of-uncleaned-message \e$B$rDI2C$7$?!#\e(B
+----------------------------
+
+
+tm-dgnus.el
+----------------------------
+revision 6.4
+date: 1995/06/18 16:12:05; author: morioka; state: Exp; lines: +153 -8
+\e$BI8=`$G\e(B article buffer \e$B$K\e(B mime/viewer-mode \e$B$r<B9T$9$k$h$&$K=$@5$7$?!#\e(B
+----------------------------
+
+tm-gnus4.el
+----------------------------
+revision 6.0
+date: 1995/06/19 21:33:39; author: morioka; state: Exp; lines: +4 -2
+(require 'tm-ognus) \e$B$rK:$l$F$$$?$N$r=$@5$7$?!#\e(B
+----------------------------
+
+tm-mule.el
+----------------------------
+revision 6.2
+date: 1995/06/19 18:54:53; author: morioka; state: Exp; lines: +2 -1
+\e$BJQ?t\e(B mime/charset-coding-system-alist \e$B$K\e(B ISO-2022-INT-1 \e$B$rDI2C$7$?!#\e(B
+----------------------------
--- /dev/null
+tm-view.el
+----------------------------
+revision 6.58
+date: 1995/06/22 04:11:58; author: morioka; state: Exp; lines: +14 -19
+\e$B4X?t\e(B mime-viewer/make-preview-buffer \e$B$GITMW$J\e(B switch-to-buffer \e$B$r=|5n\e(B
+\e$B$7$?!#\e(B
+----------------------------
+revision 6.57
+date: 1995/06/22 04:04:09; author: morioka; state: Exp; lines: +52 -53
+\e$BIT6q9g$r8+$D$1$?$N$G4X?t\e(B mime-viewer/make-preview-buffer \e$B$G4X?t\e(B
+save-window-excursion \e$B$r;H$&$N$O$d$a$?!#\e(B
+----------------------------
+revision 6.56
+date: 1995/06/22 03:27:02; author: morioka; state: Exp; lines: +25 -12
+\e$B4X?t\e(B mime-viewer/default-content-subject-function \e$B$N\e(B
+message/external-body \e$B$KBP$9$kI=<(\e(B design \e$B$rJQ99$7$?!#\e(B
+----------------------------
+revision 6.55
+date: 1995/06/21 07:09:31; author: morioka; state: Exp; lines: +4 -4
+\e$B4X?t\e(B mime-viewer/get-subject \e$B$NIT6q9g$r=$@5$7$?!#\e(B
+----------------------------
+
+tm-mh-e.el
+----------------------------
+revision 6.20
+date: 1995/06/22 04:58:44; author: morioka; state: Exp; lines: +2 -13
+\e$B4X?t\e(B tm-mh-e/cite \e$B$G4X?t\e(B mh-insert-prefix-string \e$B$r8F$V$h$&$K=$@5$7$?!#\e(B
+----------------------------
+revision 6.19
+date: 1995/06/22 03:35:29; author: morioka; state: Exp; lines: +14 -2
+mh-e 3.* \e$B$N$3$H$r9MN8$7$F!"4X?t\e(B tm-mh-e/cite \e$B$r=$@5$7$?!#\e(B
+----------------------------
+
+tm-mh-e3.el
+----------------------------
+revision 5.0
+date: 1995/06/22 03:36:07; author: morioka; state: Exp; lines: +9 -1
+\e$BJQ?t\e(B mail-citation-hook \e$B$r@k8@$7$?!#\e(B
+----------------------------
+
+tm-dgnus.el
+----------------------------
+revision 6.5
+date: 1995/06/22 05:34:56; author: morioka; state: Exp; lines: +13 -1
+\e$B=$N;8e\e(B tm-gnus/preview-buffer \e$B$r\e(B kill \e$B$9$k$h$&$K\e(B gnus-exit-gnus-hook
+\e$B$K@_Dj$7$?!#\e(B
+----------------------------
--- /dev/null
+tl: \e$B9=@.$,!"0lIt!"JQ$o$C$?!#\e(B
+
+mel (MIME encoding library) \e$B$rMxMQ$9$k$h$&$K$7$?!#\e(B
+
+tm-view.el
+----------------------------
+revision 6.63
+date: 1995/06/25 21:33:51; author: morioka; state: Exp; lines: +2 -1
+tl-atype \e$B$r\e(B require \e$B$9$k$h$&$K$7$?!#\e(B
+----------------------------
+revision 6.62
+date: 1995/06/25 16:34:22; author: morioka; state: Exp; lines: +2 -36
+\e$BFbIt\e(B decoder \e$B$r:o=|$7$?!#\e(B
+----------------------------
+revision 6.61
+date: 1995/06/24 19:40:05; author: morioka; state: Exp; lines: +22 -18
+(1) base64 \e$B$N\e(B decode \e$B$K\e(B mel \e$B$rMxMQ$9$k$h$&$K$7$?!#\e(B
+(2) (provide 'tm-view) \e$B$r\e(B (run-hooks 'tm-view-load-hook) \e$B$NA0$KCV$$$?!#\e(B
+----------------------------
+revision 6.60
+date: 1995/06/24 17:28:09; author: morioka; state: Exp; lines: +1 -8
+RMAIL \e$BMQ$N\e(B quitting-method \e$B$N@_Dj$r\e(B tm-rmail.el \e$B$K0\$7$?!#\e(B
+----------------------------
+revision 6.59
+date: 1995/06/24 07:15:03; author: morioka; state: Exp; lines: +9 -2
+\e$B4X?t\e(B mime-viewer/make-preview-buffer \e$B$G!"\e(Bencoding \e$B$r\e(B let \e$B$7$F$$$J$+$C\e(B
+\e$B$?IT6q9g$r=$@5$7$?!#\e(B
+----------------------------
+
+tm-rich.el
+----------------------------
+revision 6.2
+date: 1995/06/24 05:04:05; author: morioka; state: Exp; lines: +2 -2
+typo \e$B$r=$@5!#\e(B(^_^;
+----------------------------
+revision 6.1
+date: 1995/06/24 04:58:49; author: morioka; state: Exp; lines: +10 -14
+hilit19 \e$B$r;H$&$N$r$d$a$?!#\e(B
+----------------------------
+
+tm-rmail.el
+----------------------------
+revision 6.5
+date: 1995/06/26 06:58:11; author: morioka; state: Exp; lines: +26 -8
+\e$B4X?t\e(B tm-rmail/view-message \e$B$K$*$$$F!"4X?t\e(B rmail-toggle-header \e$B$rMxMQ$;\e(B
+\e$B$:$K!"\e(BContent-Type, Content-Transfer-Encoding field \e$B$r\e(B fetch \e$B$7$F!"4X\e(B
+\e$B?t\e(B mime/viewer-mode \e$B$K0z?t$H$7$FEO$9$h$&$K$7$?!#\e(B
+----------------------------
+revision 6.4
+date: 1995/06/24 19:45:36; author: morioka; state: Exp; lines: +3 -3
+(provide 'tm-rmail) \e$B$r\e(B (run-hooks 'tm-rmail-load-hook) \e$B$NA0$KCV$/$h$&\e(B
+\e$B$K$7$?!#\e(B
+----------------------------
+revision 6.3
+date: 1995/06/24 17:28:53; author: morioka; state: Exp; lines: +16 -1
+quitting-method \e$B$N@_Dj$r$3$3$G9T$J$&$h$&$K$7$?!#\e(B
+----------------------------
+revision 6.2
+date: 1995/06/24 17:07:08; author: morioka; state: Exp; lines: +3 -1
+tm-rmail-load-hook \e$B$rDI2C$7$?!#\e(B
+----------------------------
+revision 6.1
+date: 1995/06/24 17:01:57; author: morioka; state: Exp; lines: +2 -1
+tl-list \e$B$r\e(B require \e$B$9$k$h$&$K$7$?!#\e(B
+----------------------------
+revision 6.0
+date: 1995/06/24 16:50:07; author: morioka; state: Exp; lines: +14 -7
+Richard Stanton <stanton@haas.berkeley.edu> \e$B$5$s$N;XE&$K=>$$!"\e(B
+mime/viewer-mode \e$B$r<B9T$9$kA0$K\e(B Content-Type field \e$B$,8+$($J$$;~$O\e(B
+(rmail-toggle-header) \e$B$r<B9T$9$k$h$&$K$7$?!#\e(B
+----------------------------
+
+tm-gnus: installer \e$B$NIT6q9g$r=$@5$7$?!#\e(B
--- /dev/null
+tm-view.el
+----------------------------
+revision 6.67
+date: 1995/07/03 07:41:02; author: morioka; state: Exp; lines: +2 -2
+Fixed problem of function `mime-viewer/default-code-convert-region'.
+----------------------------
+revision 6.66
+date: 1995/07/03 07:07:55; author: morioka; state: Exp; lines: +2 -2
+Replace function `char-before' by function `char-after' because
+function `char-before' is not exists in original Emacs.
+----------------------------
+revision 6.65
+date: 1995/07/03 06:59:29; author: morioka; state: Exp; lines: +5 -1
+
+Fixed in function `mime-viewer/filter-text/plain', to insert
+line-break when end of text/plain part does not have line-break.
+----------------------------
+revision 6.64
+date: 1995/07/02 12:26:11; author: morioka; state: Exp; lines: +4 -1
+Fixed for empty body.
+----------------------------
+
+tm-rich.el
+----------------------------
+revision 6.7
+date: 1995/07/15 16:45:29; author: morioka; state: Exp; lines: +3 -54
+Separated tm independent part to richtext.el.
+----------------------------
+revision 6.6
+date: 1995/07/06 19:53:10; author: morioka; state: Exp; lines: +2 -6
+Fixed problem of function `richtext-to-enriched-region'.
+----------------------------
+revision 6.5
+date: 1995/07/05 16:22:20; author: morioka; state: Exp; lines: +10 -97
+Separated text/enriched decoder to tinyrich.el.
+----------------------------
+revision 6.4
+date: 1995/07/05 15:41:30; author: morioka; state: Exp; lines: +26 -23
+Modified some compositions.
+----------------------------
+revision 6.3
+date: 1995/07/05 14:37:22; author: morioka; state: Exp; lines: +73 -67
+(1) Modified for Emacs 19.29.
+(2) Fixed problem of function `enriched-decode'. (It may be enbuged)
+(3) Created function `richtext-to-enriched-region'. Function
+ `mime-viewer/filter-text/richtext' uses it.
+----------------------------
+
+richtext.el
+ This is created as a tm independent module to process
+ text/richtext. After Emacs 19.29, it supports WYSIWYG editing
+ for text/richtext file.
+
+tinyrich.el
+ This module is a substitute of enriched.el for emacs before
+ 19.28. It supports only decoding of text/richtext and
+ text/enriched.
+
+tiny-mime.el
+----------------------------
+revision 5.15
+date: 1995/07/17 05:26:06; author: morioka; state: Exp; lines: +2 -1
+Fixed problem of function `mime/unfolding'.
+----------------------------
+revision 5.14
+date: 1995/07/17 05:22:14; author: morioka; state: Exp; lines: +12 -14
+Fixed problem of function `mime/unfolding'.
+----------------------------
+revision 5.13
+date: 1995/07/17 05:05:55; author: morioka; state: Exp; lines: +7 -3
+Adopted a improvement plan by Mr.SHIONO <jun@case.nm.fujitsu.co.jp>.
+----------------------------
+
+mh-e/tm-mh-e.el
+----------------------------
+revision 6.23
+date: 1995/07/17 16:37:20; author: morioka; state: Exp; lines: +2 -2
+Fixed function `tm-mh-e/cite' about folded fields.
+----------------------------
+revision 6.22
+date: 1995/07/06 18:35:17; author: morioka; state: Exp; lines: +12 -6
+Fixed function `tm-mh-e/summary-before-quit'.
+----------------------------
+revision 6.21
+date: 1995/06/22 12:02:13; author: morioka; state: Exp; lines: +13 -1
+Set to variable `mh-before-quit-hook' a function to kill preview-buffer.
+----------------------------
+
+gnus/tm-dgnus.el
+----------------------------
+revision 6.9
+date: 1995/07/03 07:50:58; author: morioka; state: Exp; lines: +6 -1
+Fixed function `tm-gnus/view-message' for Emacs 19.29.
+----------------------------
+revision 6.8
+date: 1995/06/28 17:38:41; author: morioka; state: Exp; lines: +41 -39
+Defined macro `gnus-get-article-buffer'.
+----------------------------
+revision 6.7
+date: 1995/06/27 06:25:04; author: morioka; state: Exp; lines: +2 -1
+Added (require 'tl-list).
+----------------------------
--- /dev/null
+tm-view.el
+----------------------------
+revision 6.67
+date: 1995/07/03 07:41:02; author: morioka; state: Exp; lines: +2 -2
+\e$B4X?t\e(B mime-viewer/default-code-convert-region \e$B$NIT6q9g$r=$@5!#\e(B
+----------------------------
+revision 6.66
+date: 1995/07/03 07:07:55; author: morioka; state: Exp; lines: +2 -2
+original Emacs \e$B$K4X?t\e(B char-before \e$B$,L5$+$C$?$N$G!"4X?t\e(B char-after \e$B$G=q\e(B
+\e$B$-D>$7$?!#\e(B
+----------------------------
+revision 6.65
+date: 1995/07/03 06:59:29; author: morioka; state: Exp; lines: +5 -1
+\e$B4X?t\e(B mime-viewer/filter-text/plain \e$B$G!"\e(Btext/plain part \e$B$N:G8e$,2~9T$G\e(B
+\e$B$J$$>l9g!"\e(Bpreview buffer \e$B$N:G8e$K2~9T$rA^F~$9$k$h$&$K=$@5$7$?!#\e(B
+----------------------------
+revision 6.64
+date: 1995/07/02 12:26:11; author: morioka; state: Exp; lines: +4 -1
+body \e$B$,$J$$5-;v$N>l9g$NIT6q9g$r=$@5$7$?!#\e(B
+----------------------------
+
+tm-rich.el
+----------------------------
+revision 6.7
+date: 1995/07/15 16:45:29; author: morioka; state: Exp; lines: +3 -54
+tm \e$B$K0MB8$7$J$$ItJ,$r\e(B richtext.el \e$B$KJ,N%$7$?!#\e(B
+----------------------------
+revision 6.6
+date: 1995/07/06 19:53:10; author: morioka; state: Exp; lines: +2 -6
+\e$B4X?t\e(B richtext-to-enriched-region \e$B$NIT6q9g$r=$@5$7$?!#\e(B
+----------------------------
+revision 6.5
+date: 1995/07/05 16:22:20; author: morioka; state: Exp; lines: +10 -97
+text/enriched decoder \e$B$r\e(B tinyrich.el \e$B$K0\$7$?!#\e(B
+----------------------------
+revision 6.4
+date: 1995/07/05 15:41:30; author: morioka; state: Exp; lines: +26 -23
+\e$B9=@.$rJQ99$7$?!#\e(B
+----------------------------
+revision 6.3
+date: 1995/07/05 14:37:22; author: morioka; state: Exp; lines: +73 -67
+(1) Emacs 19.29 \e$B$K9g$o$;$F!"4X?t\e(B mime/decode-text/enriched-region \e$B$r\e(B
+ enriched-decode \e$B$K2~L>$7$?!#$^$?!"4X?t\e(B enriched-decode \e$B$,B8:_$7$J\e(B
+ \e$B$$>l9g$N$_\e(B defun \e$B$9$k$h$&$K$7$?!#\e(B
+(2) \e$B4X?t\e(B enriched-decode \e$B$NIT6q9g$r=$@5$7$?!#!J$$$D$N:"$+$i$+\e(B enbug \e$B$7\e(B
+ \e$B$F$$$?$i$7$$!K\e(B
+(3) \e$B4X?t\e(B richtext-to-enriched-region \e$B$r:n@.$7!"4X?t\e(B
+ mime-viewer/filter-text/richtext \e$B$G$O$3$l$r;H$C$F\e(B text/enriched \e$B7A\e(B
+ \e$B<0$K$7$?$b$N$r4X?t\e(B enriched-decode \e$B$G\e(B decode \e$B$9$k$h$&$K$7$?!#\e(B
+----------------------------
+
+richtext.el
+ text/richtext \e$B7A<0$K4X$9$k=hM}$r9T$&\e(B tm \e$B$K0MB8$7$J$$\e(B module \e$B$H\e(B
+ \e$B$7$F?7$?$KAO@_$7$?!#!J$G$b!"\e(BRMS \e$B$K\e(B reject \e$B$5$l$?$+$i@h9T$-$OIT\e(B
+ \e$BL@!#\e(B(^_^; \e$B$b$7$+$9$k$H!"\e(Benriched.el \e$B$KE}9g$5$l$k$+$b$7$l$J$$!K\e(B
+ text/richtext \e$B7A<0$N\e(B decode \e$B$NB>!"\e(BEmacs 19.29 \e$B0J9_$G$O\e(B
+ text/richtext \e$B7A<0$N\e(B file \e$B$N\e(B enriched-mode \e$B$rMxMQ$7$?\e(B WYSIWYG
+ \e$BJT=8$r\e(B support \e$B$9$k!#\e(B
+
+tinyrich.el
+ Emacs 19.28 \e$B0JA0$N\e(B emacs \e$B$G$N\e(B enriched.el \e$B$NBeMQIJ!#\e(B
+ text/richtext \e$B$H\e(B text/enriched \e$B$N\e(B decode \e$B$N$_$r\e(B support \e$B$9$k!#\e(B
+ \e$B!J<c43\e(B bug \e$B$"$j\e(B(^_^;\e$B!K\e(B
+
+tiny-mime.el
+----------------------------
+revision 5.15
+date: 1995/07/17 05:26:06; author: morioka; state: Exp; lines: +2 -1
+\e$B4X?t\e(B mime/unfolding \e$B$NIT6q9g$r=$@5$7$?!#\e(B
+----------------------------
+revision 5.14
+date: 1995/07/17 05:22:14; author: morioka; state: Exp; lines: +12 -14
+\e$B4X?t\e(B mime/unfolding \e$B$NIT6q9g$r=$@5$7$?!#\e(B
+----------------------------
+revision 5.13
+date: 1995/07/17 05:05:55; author: morioka; state: Exp; lines: +7 -3
+\e$B1vLn\e(B <jun@case.nm.fujitsu.co.jp> \e$B$5$s$N2~NI0F$r=$@5$7$F:NMQ$7$?!#\e(B
+----------------------------
+
+mh-e/tm-mh-e.el
+----------------------------
+revision 6.23
+date: 1995/07/17 16:37:20; author: morioka; state: Exp; lines: +2 -2
+Subject \e$B$,\e(B folding \e$B$7$F$$$k>l9g$N$3$H$r9MN8$7$F!"4X?t\e(B tm-mh-e/cite \e$B$r\e(B
+\e$B=$@5$7$?!#\e(B
+----------------------------
+revision 6.22
+date: 1995/07/06 18:35:17; author: morioka; state: Exp; lines: +12 -6
+\e$B4X?t\e(B tm-mh-e/summary-before-quit \e$B$r=$@5$7$?!#\e(B
+----------------------------
+revision 6.21
+date: 1995/06/22 12:02:13; author: morioka; state: Exp; lines: +13 -1
+\e$BJQ?t\e(B mh-before-quit-hook \e$B$K\e(B preview-buffer \e$B$r\e(B kill \e$B$9$k$?$a$N4X?t$r@_\e(B
+\e$BDj$7$?!#\e(B
+----------------------------
+
+gnus/tm-dgnus.el
+----------------------------
+revision 6.9
+date: 1995/07/03 07:50:58; author: morioka; state: Exp; lines: +6 -1
+\e$B4X?t\e(B tm-gnus/view-message \e$B$N\e(B Emacs 19.29 \e$B$N>l9g$NIT6q9g$r=$@5$7$?!#\e(B
+----------------------------
+revision 6.8
+date: 1995/06/28 17:38:41; author: morioka; state: Exp; lines: +41 -39
+macro `gnus-get-article-buffer' \e$B$rDj5A$7$?!#\e(B
+----------------------------
+revision 6.7
+date: 1995/06/27 06:25:04; author: morioka; state: Exp; lines: +2 -1
+\e$BEDCf!wIY;NDL\e(B <tanaka3@ifos.se.fujitsu.co.jp> \e$B$5$s[)$/!'\e(B
+======================================================================
+\e$B$3$s$I$O\e(B
+
+ Symbol's function definition is void: set-alist
+
+\e$B$H$J$j$^$7$?!#\e(B
+======================================================================
+\e$B$h$C$F!"\e(B(require 'tl-list) \e$B$rDI2C$7$?!#\e(B
+----------------------------
+revision 6.6
+date: 1995/06/27 04:49:58; author: morioka; state: Exp; lines: +5 -1
+\e$BEDCf!wIY;NDL\e(B <tanaka3@ifos.se.fujitsu.co.jp> \e$B$5$s[)$/!'\e(B
+======================================================================
+(ding)GNUS \e$B$r5/F0$9$k$H\e(B
+
+Symbol's function definition is void: get-version-string
+
+\e$B$H$$$&%a%C%;!<%8$,$G$F\e(B(ding)GNUS \e$B$,5/F0$7$^$;$s!#\e(B
+======================================================================
+\e$B$3$N$?$a!"\e(B(require 'tl-str) \e$B$rDI2C$7$?!#$D$$$G$K!"\e(B(require 'gnus) \e$B$bF~\e(B
+\e$B$l$?!#\e(B
+----------------------------
#
-# $Id: Makefile,v 6.14 1995/06/26 08:13:11 morioka Exp morioka $
+# $Id: Makefile,v 6.17 1995/07/17 17:10:21 morioka Exp morioka $
#
# Please specify emacs executables:
UTILS = ol2 decode-b
GOMI = $(UTILS) *.elc loadpath
-FILES = tm/README.eng tm/rel-*.ol \
- tm/Makefile tm/Makefile.bc tm/make-lpath tm/inst-el tm/inst-elc \
- tm/*.el tm/*.c tm/methods \
- tm/doc/Makefile tm/doc/*.pln tm/doc/*.ol tm/doc/*.tex tm/doc/*.texi \
- tm/gnus/Makefile tm/gnus/*-path tm/gnus/mk-tgnus tm/gnus/*.el \
- tm/mh-e/Makefile tm/mh-e/Makefile.bc tm/mh-e/code-jp.ol tm/mh-e/*.el \
- mel/*.el mel/Makefile* mel/inst* mel/make-lpath \
- tl/README.eng \
- tl/Makefile tl/Makefile.bc tl/loadpath \
- tl/*.el tl/doc/*.texi
-
-TARFILE = tm6.63.tar
+
+TM_FILES = tm/README.eng tm/rel-*.ol tm/Changes* \
+ tm/Makefile tm/Makefile.bc \
+ tm/make-lpath tm/inst-el tm/inst-elc \
+ tm/tm-view.el tm/tiny-mime.el \
+ tm/tm-mule.el tm/tm-nemacs.el tm/tm-orig.el tm/tm-misc.el \
+ tm/tm-ftp.el tm/tm-latex.el tm/tm-partial.el \
+ tm/tm-rich.el tm/richtext.el tm/tinyrich.el \
+ tm/tm-comp.el \
+ tm/tm-setup.el tm/mime-setup.el \
+ tm/signature.el tm/sc-setup.el tm/gnushook.el \
+ tm/*.c tm/methods \
+ tm/doc/Makefile tm/doc/*.pln tm/doc/*.ol tm/doc/*.tex \
+ tm/doc/*.texi
+
+TM_MUA_FILES = tm/tm-rmail.el tm/tm-vm.el \
+ tm/gnus/Makefile tm/gnus/*-path tm/gnus/mk-tgnus \
+ tm/gnus/*.el \
+ tm/mh-e/Makefile tm/mh-e/Makefile.bc tm/mh-e/code-jp.ol \
+ tm/mh-e/*.el
+
+MEL_FILES = mel/*.el mel/Makefile* mel/inst* mel/make-lpath
+
+TL_FILES = tl/README.eng \
+ tl/Makefile tl/Makefile.bc tl/loadpath \
+ tl/*.el tl/doc/*.texi
+
+FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
+
+TARFILE = tm6.67.tar
lpath-nemacs:
#
-# $Id: Makefile.bc,v 6.5 1995/06/26 08:08:51 morioka Exp $
+# $Id: Makefile.bc,v 6.5 1995/06/26 08:08:51 morioka Exp morioka $
#
TM_EL = signature.el \
tiny-mime.el tm-misc.el tm-$(EMACS_TYPE).el \
- tm-view.el tm-rich.el tm-ftp.el tm-latex.el tm-partial.el \
+ tm-view.el \
+ tm-rich.el richtext.el tinyrich.el \
+ tm-ftp.el tm-latex.el tm-partial.el \
tm-rmail.el \
- tm-comp.el # tm-evs.el
+ tm-comp.el # tm-evs.el
TM_ELC = ${TM_EL:el=elc}
ALL_EL = $(TM_EL) tm-setup.el mime-setup.el
-OLFILES = tiny-mime-jp.ol signature-jp.ol tiny-mime-eng.ol
-TEXFILES= tiny-mime-jp.tex signature-jp.tex tiny-mime-eng.tex
-DVIFILES= tm-jp.dvi tm-eng.dvi \
- tiny-mime-jp.dvi signature-jp.dvi tiny-mime-eng.dvi
-PSFILES = tm-jp.ps \
- tiny-mime-jp.ps signature-jp.ps tiny-mime-eng.ps
-GOMI = *.aux *.toc *.log $(DVIFILES) *.ps *~
+#
+# $Id: Makefile,v 1.1 1995/07/17 16:41:30 morioka Exp morioka $
+#
+OLFILES = tiny-mime-eng.ol
+TEXFILES= signature-jp.tex tiny-mime-eng.tex
+DVIFILES= tm-eng.dvi signature-jp.dvi tiny-mime-eng.dvi
+PSFILES = signature-jp.ps tiny-mime-eng.ps
+GOMI = *.aux *.toc *.log *.cp *.fn *.ky *.pg *.tp *.vr \
+ $(DVIFILES) *.ps *~
.SUFFIXES: .ol .tex .dvi .ps
--- /dev/null
+\input texinfo.tex
+@c{-*-tiny-mime manual-*-}
+@setfilename tm-eword_ja.info
+@settitle{tiny-mime manual}
+
+@titlepage
+@sp{5}
+@center{@titlefont{tiny-mime}}
+@sp{15}
+@center{@titlefont{\e$B<i2,\e(B \e$BCNI'\e(B}}
+@sp{1}
+@center{$Id: tm-eword_ja.texi,v 2.2 1995/06/27 06:45:27 morioka Exp $}
+
+@end titlepage
+
+
+@node Top, Abstract, (tm_ja.info)Abstract, (tm_ja.info)Abstract
+@comment node-name, next, previous, up
+
+@ifinfo
+tm \e$B$K$*$1$k\e(B MIME header \e$B$N\e(B encoder/decoder \e$B$G$"$k\e(B tiny-mime \e$B$K$D$$$F@b\e(B
+\e$BL@$7$^$9!#\e(B
+@end ifinfo
+
+@menu
+* Abstract:: tiny-mime \e$B$H$O\e(B
+* Charsets:: tiny-mime \e$B$N%5%]!<%H$9$k\e(B charset
+* How-to-use:: tiny-mime \e$B$N4JC1$J;H$$J}\e(B
+* Functions:: tiny-mime \e$B$N4X?t\e(B
+* Variables:: tiny-mime \e$B$NJQ?t\e(B
+* Customize:: charset \e$B$NDI2C\e(B
+* Integrate-into-MUA:: tiny-mime \e$B$N\e(B MUA \e$B$X$NAH$_9~$_\e(B
+* Concept Index::
+* Command Index::
+* Variable Index::
+@end menu
+
+
+@node Abstract, Charsets, Top, Top
+@comment node-name, next, previous, up
+@chapter{tiny-mime \e$B$H$O\e(B}
+@cindex{tiny-mime \e$B$H$O\e(B}
+
+tiny-mime \e$B$O\e(B tm \e$B$K$*$1$k\e(B MIME header (RFC 1522) \e$B$N\e(B encoder/decoder \e$B$G$9!#\e(B
+
+\e$B%*%j%8%J%k$O!"@N!"$($J$_\e(B \e$B$D$0$H$b\e(B \e$B$5$s$,\e(B fj.editor.emacs \e$B$KEj9F$5$l$?\e(B
+MIME message header \e$B$N\e(B decoder \e$B$G$9!#\e(B
+
+\e$B8=:_$G$O!"Ev;~$N$b$N$KHf$Y!"\e(Bunfolding \e$B5!G=$d!"\e(BMule \e$B$K$*$1$kB?8@8lJ8;z\e(B
+\e$BNs$N%5%]!<%H!"\e(BB-encoding \e$B$K2C$(\e(B Q-encoding \e$B$N%5%]!<%H$J$I$N3HD%$,$J$5\e(B
+\e$B$l$F$$$^$9!#\e(B
+
+
+@node Charsets, How-to-use, Abstract, Top
+@comment node-name, next, previous, up
+@chapter{tiny-mime \e$B$N%5%]!<%H$9$k\e(B charset}
+@cindex{tiny-mime \e$B$N%5%]!<%H$9$k\e(B charset}
+
+@section{original GNU Emacs 18}
+
+\e$BF0:n$OJ]>Z$7$^$;$s!#$7$+$7$J$,$i!"\e(BUS-ASCII \e$B$NHO0O$G$OF0:n$9$k$H;W$o$l\e(B
+\e$B$^$9!#!J$"$^$j0UL#$,$J$$$+$bCN$l$^$;$s$,!K\e(B
+
+@section{NEmacs, NEpoch}
+
+ISO-2022-JP, US-ASCII \e$B$N\e(B encoding/decoding \e$B$r%5%]!<%H$7$^$9!#\e(B
+
+\e$B$^$?!"\e(BISO-8859-*\e$B$G$"$C$F$b!"\e(Bencoded-text \e$B$K4^$^$l$kJ8;zNs$,<B:]$K$O\e(B
+ASCII \e$B$GI=$;$kHO0O$J$iI=<($7$^$9!#\e(B
+
+@section{original GNU Emacs 19}
+
+US-ASCII \e$B$*$h$S\e(B ISO-8859-1 \e$B$N\e(B encoding/decoding \e$B$r%5%]!<%H$7$^$9!#\e(B
+
+@section{Mule}
+
+ISO-2022-JP, US-ASCII, ISO-8859-1..9, ISO-2022-CN, ISO-2022-KR, EUC-KR
+\e$B$J$I$N\e(B encoding/decoding \e$B$r%5%]!<%H$7$^$9!#$^$?!"4X?t\e(B
+mime/set-charset-and-encoding \e$B$GDI2C!&JQ99$,$G$-$^$9!#\e(B
+(@xref{Customize})
+
+
+@node How-to-use, Functions, Charsets, Top
+@comment node-name, next, previous, up
+@chapter{tiny-mime \e$B$N4JC1$J;H$$J}\e(B}
+@cindex{tiny-mime \e$B$N4JC1$J;H$$J}\e(B}
+
+@section{decode}
+
+tiny-mime.el \e$B$r\e(B load \e$B$7$F!"\e(Bdecode \e$B$7$?$$\e(B buffer \e$B>e$G!"\e(B
+
+@example
+ M-x mime/decode-message-header
+@end example
+
+\e$B$r<B9T$7$^$9!#\e(B
+
+\e$B$^$?!"\e(Bdecode \e$B$7$?$$\e(B region \e$B$r\e(B
+
+@example
+ M-x mime/decode-region
+@end example
+
+\e$B$G\e(B decode \e$B$9$k$3$H$,$G$-$^$9!#0zMQ$J$I$G\e(B body-part \e$B$K;D$C$?\e(B
+encoded-word \e$B$r\e(B decode \e$B$9$k$N$KJXMx$G$7$g$&!#\e(B
+
+
+@section{encode}
+
+tiny-mime.el \e$B$r\e(B load \e$B$7$F!"\e(Bencode \e$B$7$?$$\e(B buffer \e$B>e$G!"\e(B
+
+@example
+ M-x mime/encode-message-header
+@end example
+
+\e$B$r<B9T$7$^$9!#\e(B
+
+
+@node Functions, Variables, How-to-use, Top
+@comment node-name, next, previous, up
+@chapter{tiny-mime \e$B$N4X?t\e(B}
+@cindex{tiny-mime \e$B$N4X?t\e(B}
+
+@deffn{Command} mime/decode-message-header
+
+current buffer \e$B$N\e(B message header \e$BCf$N\e(B encoded-word \e$B$r\e(B decode \e$B$7$^$9!#\e(B
+@end deffn
+
+
+@deffn{Command} mime/encode-message-header
+
+current buffer \e$B$N\e(B message header \e$BCf$N\e(B comment, phrase, *text \e$B$r\e(B
+encoded-word \e$B$KJQ49$7$^$9!#$3$N:]!"JQ?t\e(B
+@code{mime/no-encoding-header-fields} \e$B$G;XDj$5$l$?\e(B field \e$B$O\e(B encode \e$B$7\e(B
+\e$B$^$;$s!#$^$?!"\e(Bheader \e$B$H\e(B body \e$B$N6h@Z$j$OJQ?t\e(B
+@code{mail-header-separator} \e$B$G;XDj$7$^$9!#\e(B
+@end deffn
+
+
+@deffn{Command} mime/decode-region beg end
+
+@var{beg} \e$B$H\e(B @var{end} \e$B$G0O$^$l$?NN0hCf$N\e(B encoded-word \e$B$r\e(B decode \e$B$7$^\e(B
+\e$B$9!#\e(B
+@end deffn
+
+
+@node Variables, Customize, Functions, Top
+@comment node-name, next, previous, up
+@chapter{tiny-mime \e$B$NJQ?t\e(B}
+@cindex{tiny-mime \e$B$NJQ?t\e(B}
+
+@defvr{Variable} mime/no-encoding-header-fields
+
+tiny-mime.el \e$B$G\e(B encode \e$B$7$J$$\e(B message header \e$B$N\e(B field \e$B$r;XDj$7$^$9!#\e(B
+
+default \e$B$G$O\e(B X-Nsubject \e$B$,;XDj$5$l$F$$$^$9!#\e(B
+
+\e$BNc!'\e(B X-Nsubject \e$B$H\e(B Subject \e$B$r\e(B encode \e$B$7$J$$$h$&$K$9$k!#\e(B
+
+@lisp
+(setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
+@end lisp
+
+\e$B!NCm0U!O\e(B mime.el \e$B$HJ;MQ$9$k>l9g!"\e(Btiny-mime.el \e$B$,\e(B encode \e$B$7$J$/$F$b!"\e(B
+mime.el \e$B$,\e(B encode \e$B$9$k$N$G!"\e(Bmime.el \e$B$N\e(B message header encoder \e$B$,F/$+$J\e(B
+\e$B$$$h$&$K$K@_Dj$7$^$9!#\e(B
+@end defvr
+
+@defvr{Variable} mime/use-X-Nsubject
+
+\e$B$3$NJQ?t$NCM$,\e(B t \e$B$N>l9g!"\e(Bmessage header \e$B$r\e(B encode \e$B$9$k;~!"\e(Bencode \e$B$7$?\e(B
+\e$B7k2L!"\e(BSubject \e$B$K\e(B encoded-word \e$B$,4^$^$l$k>l9g!"\e(BSubject \e$B$r\e(B decode \e$B$7$?$b\e(B
+\e$B$N$rF~$l$?\e(B X-Nsubject \e$B$r:n@.$7$^$9!#\e(B
+
+default \e$B$G$O\e(B nil \e$B$,;XDj$5$l$F$$$^$9!#\e(B
+
+\e$B!NCm0U!O\e(BMule \e$B$G\e(B ISO-2022-JP \e$B$K4^$^$l$k$b$N0J30$NJ8;z=89g$r;H$&>l9g$O!"\e(B
+\e$B$3$l$r;XDj$7$J$$J}$,8-L@$G$9!#\e(B
+@end defvr
+
+
+@node Customize, Integrate-into-MUA, Variable, Top
+@comment node-name, next, previous, up
+@section{charset \e$B$NDI2C!&JQ99\e(B}
+@cindex{charset \e$B$NDI2C!&JQ99\e(B}
+
+Mule \e$B$G$O!"4X?t\e(B @code{mime/set-charset-and-encoding} \e$B$G!"\e(Bcharset \e$B$NDI\e(B
+\e$B2C!&JQ99$,$G$-$^$9!#\e(B
+
+
+@deffn{Function} mime/set-charset-and-encoding LC CS CHARSET ENCODING
+
+@table @var
+@item LC
+charset \e$B$KBP1~$9$k\e(B leading-char \e$B$r;XDj$9$k!#\e(B
+
+@item CS
+charset \e$B$KBP1~$9$k\e(B coding-system \e$B$r;XDj$9$k!#\e(B1 octet \e$BJ8;z=89g$G\e(B
+coding-system \e$B$r:n$i$J$$>l9g$O!"\e(Bnil \e$B$r;XDj$9$k!#\e(B
+
+@item CHARSET
+MIME \e$B$N\e(B charset.
+
+@item ENCODING
+encode \e$B$9$k:]$N\e(B encoding.
+@end table
+
+@end deffn
+
+
+@node Integrate-into-MUA, Top, Customize, Top
+@comment node-name, next, previous, up
+@chapter{MUA \e$B$X$NAH$_9~$_\e(B}
+@cindex{MUA \e$B$X$NAH$_9~$_\e(B}
+
+\e$BF|>oE*$K!"L50U<1$K\e(B MIME header \e$B$rK\Mh$N8@8l$G8+$?$$$H$$$&$N$OEvA3$N\e(B
+\e$BM_5a$G$9!#$=$3$G!"\e(Btiny-mime.el \e$B$r\e(B mailer \e$B$d\e(B news reader \e$B$KAH$_9~$`$H<+\e(B
+\e$BF0E*$K\e(B MIME header \e$B$N\e(B encode/decode \e$B$,$G$-$^$9!#\e(B
+
+\e$B$3$NL\E*$r<B8=$9$k$K$O!"\e(Bmailer \e$B$d\e(B news reader \e$B$NE,@Z$J\e(B hook \e$B$K\e(B
+mime/decode-message-header \e$B$rF~$l$l$PNI$$$G$7$g$&!#\e(B
+
+\e$B$^$?!"\e(Btm-MUA \e$B$H8F$P$l$k0lO"$N\e(B module \e$B$r;H$($P4JC1$K\e(B MUA \e$B$G\e(B tiny-mime
+\e$B$rMxMQ$G$-$^$9!#\e(B
+
+@menu
+* tm-mh-e :(tm-mh-e_ja.info).
+* tm-gnus :(tm-gnus_ja.info).
+* tm-rmail:(tm-rmail_ja.info).
+* tm-vm :(tm-vm_ja.info).
+@end menu
+
+
+@section{\e$BM-MQ$J4X?t\e(B}
+@cindex{\e$BM-MQ$J4X?t\e(B}
+
+@deffn{Function} mime/decode-string STRING
+
+STRING \e$BCf$N\e(B encoded-word \e$B$r\e(B decode \e$B$9$k!#\e(B
+
+@end deffn
+
+
+@node Concept Index, Command Index, Integrate-into-MUA, Top
+@unnumbered \e$B35G0:w0z\e(B
+
+@printindex cp
+
+
+@node Command Index, Variable Index, Concept Index, Top
+@unnumbered \e$B4X?t!&%3%^%s%I:w0z\e(B
+
+@printindex fn
+
+
+@node Variable Index, Top, Command Index, Top
+@unnumbered \e$BJQ?t:w0z\e(B
+
+@printindex vr
+
+@bye
--- /dev/null
+\input texinfo.tex
+@c{-*-tm manual-*-}
+@setfilename tm-view_ja.info
+@settitle{tm-view manual}
+
+@titlepage
+@sp{5}
+@center{@titlefont{tm-view}}
+@sp{15}
+@center{@titlefont{¼é²¬ ÃÎɧ}}
+@sp{1}
+@center
+ @code{$Id: tm-view_ja.texi,v 6.1 1995/06/29 14:12:00 morioka Exp $}
+
+@end titlepage
+
+
+@node Top, Abstract, (tm_ja.info), (tm_ja.info)
+@comment node-name, next, previous, up
+
+@ifinfo
+GNU Emacs ¤ÇÆ°ºî¤¹¤ëÈÆÍÑŪ¤Ê MIME viewer kernel ¤Î `tm-view' ¤Ë¤Ä¤¤¤Æ
+ÀâÌÀ¤·¤Þ¤¹¡£
+@end ifinfo
+
+@menu
+* Abstract:: tm-view ³µÀâ
+* how-to-run:: mime/viewer-mode ¤Îµ¯Æ°¤Î»ÅÊý
+* how-to-use:: mime/viewer-mode ¤Î command
+* Preview Buffer:: preview buffer ¤Î²èÌ̹½À®
+* Decoding:: content ¤ËÂФ¹¤ëºÆÀ¸¡¢file Ãê½Ð¡¢°õºþÁàºî¤Î»ÅÁȤß
+
+Preview buffer
+* Preview Buffer:: preview buffer ¤Î²èÌ̹½À®
+* content-subject::
+* content-header::
+* content-body::
+* content-separator::
+
+Decoding
+* Decoding:: content ¤ËÂФ¹¤ëºÆÀ¸¡¢file Ãê½Ð¡¢°õºþÁàºî¤Î»ÅÁȤß
+* decoding-condition:: content ¤Î decode ¾ò·ï¤ÎÀßÄê
+* Format of method value:: method ¤ÎÃÍÉô¤Î½ñ¼°
+* Example of decoding-condition:: ÀßÄêÎã
+
+Indexes
+* Concept Index::
+* Command Index::
+* Variable Index::
+@end menu
+
+
+@node Abstract, how-to-run, Top, Top
+@comment node-name, next, previous, up
+@chapter{tm-view ¤È¤Ï}
+@cindex{tm-view ¤È¤Ï}
+
+tm-view ¤Ï GNU Emacs ¤ÇÆ°ºî¤¹¤ëÈÆÍÑŪ¤Ê MIME viewer ¤Ç¤¹¡£
+
+tm-view ¤Ï @code{mime/viewer-mode} ¤È¤¤¤¦ MIME message ¤ò¸«¤ë¤¿¤á¤Î
+major-mode ¤ò MUA ¤ËÂФ·¤ÆÄ󶡤·¤Þ¤¹¡£MUA ¤ÎÀ߷׼ԤϤ³¤Î mode ¤òÍøÍѤ¹
+¤ë¤³¤È¤Ç¤½¤Î MUA ¤Ë MIME µ¡Ç½¤òÉղ乤뤳¤È¤¬¤Ç¤¤Þ¤¹¡£
+
+tm-view ¤Ï¡¢MIME ½èÍý¤ò¹Ô¤Ê¤¦Á°¤ÎÀ¸¤Î message ¤¬Æþ¤Ã¤Æ¤¤¤ë³Æ MUA ¤Î
+@strong{article buffer} ¤È¤½¤ÎÆâÍƤò user ¤Ë´Ê·é¤Ëɽ¼¨¤¹¤ë¤¿¤á¤Î
+@strong{preview buffer} ¤È¤¤¤¦£²¤Ä¤Î buffer ¤ò´ÉÍý¤·¤Þ¤¹¡£
+
+@code{mime/viewer-mode} ¤ò¼Â¹Ô¤¹¤ë¤È¡¢tm-view ¤Ï¤Þ¤º article buffer ¤Î
+ÆâÍƤò²òÀϤ·¡¢¤½¤Î message ¤Î¹½Â¤¤ò article buffer ¤Î buffer local ÊÑ
+¿ô @code{mime::article/content-info} ¤ËµÏ¿¤·¤Þ¤¹¡£
+
+¼¡¤Ë¡¢¤³¤Î·ë²Ì¤ò¸µ¤Ë article buffer ¤ËÂбþ¤¹¤ë preview buffer ¤òºî¤ê¤Þ
+¤¹¡£¤³¤ÎºÝ¡¢Content-Type ¤Ë±þ¤¸¤Æ¡¢content ñ°Ì¤Ç header ¤ä body ¤ò²Ã
+¹©¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
+
+@code{mime/viewer-mode} ¤ò¼Â¹Ô¤·¤¿·ë²Ì¤Ç¤¤ë preview buffer ¾å¤Ç user
+¤Ï¡¢³°Éô vewer ¤Îµ¯Æ°¡¦file Ãê½Ð¡¦°õºþ¤È¤¤¤Ã¤¿ decode Áàºî¤ò¹Ô¤Ê¤¦¤³¤È
+¤¬¤Ç¤¤Þ¤¹¡£
+
+
+@section{¡ÎÃí°Õ¡Ï}
+
+¤³¤ÎÀâÌÀ½ñ¤Ç¤Ï¡¢Content-Type field ¤Î content-type/subtype ¤Î¤³¤È¤ò¾Î
+¤·¤Æ @strong{content-type} ¤È¸Æ¤Ó¤Þ¤¹¡£
+
+
+@node how-to-run, how-to-use, Abstract, Top
+@comment node-name, next, previous, up
+@chapter{mime/viewer-mode ¤Îµ¯Æ°¤Î»ÅÊý}
+@cindex{mime/viewer-mode ¤Îµ¯Æ°¤Î»ÅÊý}
+
+@deffn{Command} mime/viewer-mode &optional mother ctl encoding
+
+current-buffer ¤ò MIME message ¤È¤·¤Æ²òÀϤ·¤Æ¡¢¤½¤ÎÆâÍƤò±ÜÍ÷¤¹¤ë¤¿¤á
+¤Î preview buffer ¤òºîÀ®¤·¡¢@code{mime/viewer-mode} ¤ËÆþ¤ê¤Þ¤¹¡£
+
+@var{mother} ¤Ï¡¢²òÀϤÎÂоݤȤ¹¤ë article buffer ¤¬ message/partial ·Á
+¼°¤Îʬ³ä¤µ¤ì¤¿ message ¤ò·ë¹ç¤·¤ÆºîÀ®¤·¤¿¾ì¹ç¤Ê¤É¤Ë¤ª¤±¤ë¸µ¤Î buffer
+¤ò»ØÄꤹ¤ë¤¿¤á¤Ë»È¤¤¤Þ¤¹¡£
+
+@var{ctl} ¤Ï Content-Type field ¤Î field-body ¤ò
+@code{mime/Content-Type} ¤Î½ÐÎÏÀµ¼°¤Ë¤·¤¿¤â¤Î¤òÆþ¤ì¤Þ¤¹¡£¤³¤Î°ú¿ô¤¬¤¢
+¤ë¾ì¹ç¡¢article buffer ¤Î Content-Type field ¤è¤ê¤â¤³¤Î°ú¿ô¤òÍ¥À褷¤Þ
+¤¹¡£
+
+@var{encoding} ¤Ï Content-Transfer-Encoding field ¤Î field-body ¤òÆþ¤ì
+¤Þ¤¹¡£¤³¤Î°ú¿ô¤¬¤¢¤ë¾ì¹ç¡¢article buffer ¤Î Content-Transfer-Encoding
+field ¤è¤ê¤â¤³¤Î°ú¿ô¤òÍ¥À褷¤Þ¤¹¡£
+@end deffn
+
+
+@node how-to-use, Preview Buffer, how-to-run, Top
+@comment node-name, next, previous, up
+@chapter{mime/viewer-mode ¤Î command}
+@cindex{mime/viewer-mode ¤Î command}
+
+mime/viewer-mode ¤Ë¤Ï°Ê²¼¤Îµ¡Ç½¤¬¤¢¤ê¤Þ¤¹¡£
+
+@table @kbd
+@item u
+ ¾å¤Î content ¤ËÌá¤ë¡Êmessage ¤Î°ìÈÖ¾å¤Î content ¤Ç¤³¤ì¤ò¹Ô¤Ê¤¦
+ ¤È Summary mode ¤ËÌá¤ë (*1)¡Ë
+@item p
+ Á°¤Î content ¤Ë°ÜÆ°¤¹¤ë
+@item n
+ ¼¡¤Î content ¤Ë°ÜÆ°¤¹¤ë
+@item @key{SPC}
+ scroll up ¤¹¤ë
+@item @key{M-SPC}
+ scroll down ¤¹¤ë
+@item @key{DEL}
+ scroll down ¤¹¤ë
+@item @key{RET}
+ ¼¡¤Î¹Ô¤Ë°ÜÆ°¤¹¤ë
+@item @key{M-RET}
+ Á°¤Î¹Ô¤Ë°ÜÆ°¤¹¤ë
+@item v
+ content ¤òºÆÀ¸¤¹¤ë (*2)
+@item e
+ content ¤«¤é file ¤ò¼è¤ê½Ð¤¹ (*2)
+@item C-c C-p
+ content ¤ò°õºþ¤¹¤ë (*2)
+@end table
+
+@noindent @b{¡ÎÃí°Õ¡Ï}
+@enumerate
+@item
+tm-MUA ¤Ç tm-view ¤ÎÀßÄê¤ò¤·¤Æ¤¤¤Ê¤¤¾ì¹ç¡¢Summary mode ¤Ë¤ÏÌá¤ê¤Þ¤»¤ó¡£
+
+@item
+¼ÂºÝ¤ÎÆ°ºî¤ÏÂбþ¤¹¤ë method ¤Ë°Í¤ê¤Þ¤¹¡£
+@end enumerate
+
+
+@node Preview Buffer, content-subject, how-to-use, Top
+@comment node-name, next, previous, up
+@chapter{preview buffer ¤Î²èÌ̹½À®}
+@cindex{preview buffer ¤Î²èÌ̹½À®}
+
+preview buffer ¤Ç¤Ï³Æ content ¤ËÂФ·¤Æ
+
+@example
+ [content-subject]
+ (content-header)
+
+ (content-body)
+ (content-separator)
+@end example
+
+¤È¤¤¤¦¾ðÊó¤òɽ¼¨¤·¤Þ¤¹¡£¤³¤ì¤é¤Ï content-type Ëè¤Ë design ¤òÊѹ¹¤·¤¿¤ê¡¢
+ɽ¼¨¤òÍÞÀ©¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
+
+°Ê²¼¤Ë¡¢preview buffer ¤Îɽ¼¨Îã¤ò¼¨¤·¤Þ¤¹¡£
+
+
+@example
+[0 tm6.63.tar.gz (multipart/mixed)]
+From: ¼é²¬ ÃÎɧ (MORIOKA Tomohiko) <morioka@@jaist.ac.jp>
+Newsgroups: zxr.comp.emacs.tm-english
+Subject: tm6.63.tar.gz
+Date: Mon, 26 Jun 1995 17:39:50 JST
+Organization: Chamonix, JAIST, Tatsunokuchi, Ishikawa, Japan
+Reply-To: tm-eng@@chamonix.jaist.ac.jp
+To: tm-eng@@chamonix.jaist.ac.jp
+In-Reply-To: Your message of "Sun, 25 Jun 1995 23:20:49 MST"
+X-Mua: mh-e 4.1 + tm 6.63 / Mule 2.2 ( ¼ã»ç ) PL02
+X-Mime-Composer: mime.el + tiny-mime 5.12
+X-Ml-Count: 32
+
+[1 (text/plain)]
+ I put tm6.63.tar.gz in ftp.jaist.ac.jp.
+
+ In this version, tm-view uses new MIME encoding/decoding engine
+``mel (MIME encoding library''. This library has internal/external
+encoding/decoding engine. If data is smaller than a limit, tm-view
+uses internal decoder, otherwise external decoder.
+
+[2 tm6.63.tar.gz ([anon-ftp] ftp.jaist.ac.jp:/pub/GNU/elisp/mime/alpha)]
+
+[3 (text/plain)]
+----
+MORIOKA, Tomohiko <morioka@@jaist.ac.jp>
+@end example
+
+
+@menu
+* content-subject::
+* content-header::
+* content-body::
+* content-separator::
+@end menu
+
+
+@node content-subject, content-header, Preview Buffer, Preview Buffer
+@comment node-name, next, previous, up
+@section{content-subject}
+@cindex{content-subject}
+
+content-subject ¤Ï content ¤ÎÀèƬ¤Ë¤¢¤Ã¤Æ¡¢¤½¤Î content ¤Ë´Ø¤¹¤ëÂç¤Þ¤«
+¤Ê¾ðÊó¤òɽ¼¨¤¹¤ëÉôʬ¤Ç¤¹¡£
+
+ɸ½à¤Ç¤Ï
+
+@example
+ [1.3 test (text/plain)]
+@end example
+
+¤Î¤è¤¦¤Ê´¶¤¸¤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£
+
+ºÇ½é¤Î¿ô»ú¤Ï message Ãæ¤Î¤³¤Î content ¤Î°ÌÃÖ¤òÀáÈÖ¹æ¤Î¤è¤¦¤Ëɽ¤·¤¿¤â¤Î
+¤Ç¡¢content-number ¤È¸Æ¤Ó¤Þ¤¹¡£
+
+£²ÈÖÌܤÎʸ»úÎó¤ÏɽÂê¤òɽ¤·¤Þ¤¹¡£¤³¤Î¾ðÊó¤Ï¡¢
+
+@itemize
+@item{Content-Type field ¤Î name paramater ¤â¤·¤¯¤Ï x-name parameter ¤Ë½ñ
+ ¤«¤ì¤¿ file ̾}
+@item{Content-Description field ¤â¤·¤¯¤Ï Subject field ¤Ë½ñ¤«¤ì¤¿É½Âê}
+@item{uuencode ¤Î¾ì¹ç¤Î file ̾}
+@end itemize
+
+¤«¤éºî¤ê¤Þ¤¹¡£¤É¤ì¤â¸ºß¤·¤Ê¤¤¾ì¹ç¤Ï¶õÇò¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£
+
+£³ÈÖÌܤγç¸Ì¤ÎÃæ¤Î¾ðÊó¤Ï¤½¤Î content ¤Î content-type/subtype ¤òɽ¤·¤Þ
+¤¹¡£Èó MIME part ¤Î¾ì¹ç¡¢@code{nil} ¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£
+
+¤³¤Î content-subject ¤Ï content-header, content-body ¤òɽ¼¨¤·¤Ê¤¤¾ì¹ç¡¢
+icon ¤Î¤è¤¦¤ÊÌò³ä¤ò²Ì¤¿¤·¤Þ¤¹¡£Î㤨¤Ð¡¢
+
+@example
+ [2 (image/gif)]
+@end example
+
+¤Î¾å¤Ç `v' ¤ò²¡¤»¤Ð¤³¤³¤ËÆþ¤Ã¤Æ¤¤¤ë³¨¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£
+
+
+@defvr{Variable} mime-viewer/content-subject-omitting-Content-Type-list
+
+ɽ¼¨¤·¤Ê¤¤ Content-Type ¤òÍ×ÁǤȤ¹¤ë list. ´Ø¿ô
+@code{mime-viewer/default-content-subject-function} ¤Ë¤è¤Ã¤Æ»²¾È¤µ¤ì¤ë¡£
+@end defvr
+
+
+@deffn{Function} mime-viewer/default-content-subject-function cnum cinfo ctype params subj
+
+ɸ½à¤Î content-subject ɽ¼¨´Ø¿ô¡£ÊÑ¿ô
+@code{mime-viewer/content-subject-omitting-Content-Type-list} ¤ò»²¾È¤·
+¤Æ¤¤¤ë¡£
+@end deffn
+
+
+@defvar mime-viewer/content-subject-function cnum cinfo ctype params subj
+
+content-subject ɽ¼¨´Ø¿ô¤òÀßÄꤹ¤ë¤¿¤á¤ÎÊÑ¿ô¡£´ûÄêÃͤϴؿô
+@code{mime-viewer/default-content-subject-function} ¤Ç¤¢¤ë¡£
+
+¤³¤ÎÊÑ¿ô¤Ë¡¢´Ø¿ô @code{mime-viewer/default-content-subject-function}
+°Ê³°¤Î´Ø¿ô¤òÀßÄꤷ¤¿¾ì¹ç¡¢ÊÑ¿ô
+@code{mime-viewer/content-subject-omitting-Content-Type-list} ¤Î͸úÀ
+¤ÏÊݾڤµ¤ì¤Ê¤¤¤Î¤ÇÃí°Õ¤¹¤ë¤³¤È¡£
+@end defvar
+
+
+@node content-header, content-body, content-subject, Preview Buffer
+@comment node-name, next, previous, up
+@section{content-header}
+@cindex{content-header}
+
+¤¢¤ë content ¤Î content-number ¤ò´Ø¿ô
+@code{mime-viewer/header-visible-p} ¤ËÆþÎϤ·¤Æ¤½¤ÎÊÖ¤êÃͤ¬ @code{t} ¤Ë
+¤Ê¤ë¾ì¹ç¡¢¤½¤Î content ¤Î content-header ¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£¤³¤ÎȽÄê´Ø¿ô
+¤Ï¡¢°ìÈÖ¾å¤Î content ¤Ç¤¢¤ë¤«¡¢¤½¤Î content ¤Î¿Æ¤Î content-type ¤¬ÊÑ¿ô
+@code{mime-viewer/childrens-header-showing-Content-Type-list} ¤Ç»ØÄꤵ
+¤ì¤Æ¤¤¤ë¾ì¹ç¤Ë @code{t} ¤òÊÖ¤·¤Þ¤¹¡£
+
+¤³¤Î¾ò·ï¤òÊѤ¨¤¿¤¤¾ì¹ç¤Ï¡¢¤³¤Î´Ø¿ô¤òºÆÄêµÁ¤·¤Æ²¼¤µ¤¤¡£Ã¢¤·¡¢É¸½à¤Ç¤Ï¡¢
+ÊÑ¿ô @code{mime-viewer/childrens-header-showing-Content-Type-list} ¤ò
+»²¾È¤·¤Þ¤¹¤¬¡¢ºÆÄêµÁ¤·¤¿¾ì¹ç¡¢¤³¤ÎÊÑ¿ô¤Î͸úÀ¤ÏÊݾڤµ¤ì¤Ê¤¤¤Î¤ÇÃí°Õ¤·
+¤Æ²¼¤µ¤¤¡£
+
+content-header ¤¬É½¼¨¤µ¤ì¤ë¾ì¹ç¡¢content-header ¤Ï
+content-header-filter ¤Ë¤è¤Ã¤ÆÀ°·Á¤µ¤ì¤Þ¤¹¡£¸Æ¤Ð¤ì¤ë
+content-header-filter ¤Ï article buffer ¤Î major-mode ¤ò key ¤È¤·¤ÆÊÑ
+¿ô @code{mime-viewer/content-header-filter-alist} ¤«¤éõ¤µ¤ì¤Þ¤¹¡£¤â¤·¡¢
+content-header-filter ¤¬¸«¤Ä¤«¤é¤Ê¤«¤Ã¤¿¾ì¹ç¡¢´Ø¿ô
+@code{mime-viewer/default-content-header-filter} ¤¬¸Æ¤Ð¤ì¤Þ¤¹¡£
+
+
+@defvar mime-viewer/childrens-header-showing-Content-Type-list
+
+¤¢¤ë content ¤Î»Ò¤ËÅö¤¿¤ë content ¤Î content-header ¤òɽ¼¨¤¹¤Ù¤
+Content-Type ¤ò¼ý¤á¤¿ list. ´ûÄêÃÍ¤Ï "message/rfc822" ¤Ç¤¢¤ë¡£
+
+¤³¤ÎÊÑ¿ô¤Ï´Ø¿ô @code{mime-viewer/header-visible-p} ¤Ë¤è¤Ã¤Æ»²¾È¤µ¤ì¤ë¡£
+@end defvar
+
+
+@deffn{Function} mime-viewer/header-visible-p cnum cinfo &optional ctype
+
+content-info @var{cinfo} Ãæ¤Î content-number ¤¬ @var{cnum} ¤Ç¤¢¤ë
+content ¤Î header ¤¬É½¼¨¤µ¤ì¤ë¾ì¹ç¡¢t ¤òÊÖ¤¹¡£¤½¤Î content ¤Î
+content-type ¤¬¤¢¤é¤«¤¸¤á¤ï¤«¤Ã¤Æ¤¤¤ë¾ì¹ç¡¢@var{ctype} ¤Ë°ú¿ô¤È¤·¤ÆÅÏ
+¤¹¤³¤È¤¬¤Ç¤¤ë¡£
+@end deffn
+
+
+@defvar mime-viewer/content-header-filter-alist
+
+article buffer ¤Î major-mode ¤ò key ¤È¤·¤¿Ï¢Áۥꥹ¥È¤Ç¡¢ÃÍÉô¤Ë¤Ï
+content-header-filter ¤¬Æþ¤Ã¤Æ¤¤¤ë¡£
+@end defvar
+
+
+@deffn{Function} mime-viewer/default-content-header-filter
+
+¤¢¤ë content ¤Î content-header ¤òɽ¼¨¤¹¤Ù¤»þ¡¢ÊÑ¿ô
+@code{mime-viewer/content-header-filter-alist} ¤ÎÃæ¤Ë
+content-header-filter ¤¬¸«¤Ä¤«¤é¤Ê¤«¤Ã¤¿¾ì¹ç¤Ë¸Æ¤Ó½Ð¤µ¤ì¤ë¡£
+@end deffn
+
+
+@node content-body, content-separator, content-header, Preview Buffer
+@comment node-name, next, previous, up
+@section{content-body}
+@cindex{content-body}
+
+¤¢¤ë content ¤Î content-body ¤òɽ¼¨¤¹¤ë¤«¤É¤¦¤«¤Ï¡¢´Ø¿ô
+@code{mime-viewer/body-visible-p} ¤¬ @code{t} ¤Ë¤Ê¤ë¤«¤É¤¦¤«¤Ç·è¤Þ¤ê¤Þ
+¤¹¡£É¸½à¤Ç¤Ï¡¢¤¢¤ë content ¤Î content-type ¤¬ÊÑ¿ô
+@code{mime-viewer/default-showing-Content-Type-list} ¤ËÀßÄꤵ¤ì¤Æ¤¤¤ë
+»þ¤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£
+
+¤¢¤ë content ¤Î content-body ¤¬É½¼¨¤µ¤ì¤ë»þ¡¢preview buffer ¤Ë¤Ï
+content-body ¤ò content-filter ¤Ë¤è¤Ã¤ÆÀ°·Á¤µ¤ì¤¿¤â¤Î¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£
+¸Æ¤Ð¤ì¤ë content-filter ¤Ï article buffer ¤Î major-mode ¤ò key ¤È¤·¤Æ
+ÊÑ¿ô @code{mime-viewer/content-filter-alist} ¤«¤éõ¤µ¤ì¤Þ¤¹¡£¤â¤·¡¢¤³
+¤ÎÊÑ¿ô¤ËÅÐÏ¿¤µ¤ì¤Æ¤¤¤Ê¤«¤Ã¤¿¾ì¹ç¡¢´Ø¿ô
+@code{mime-viewer/default-content-filter} ¤¬¸Æ¤Ð¤ì¤Þ¤¹¡£
+
+
+@defvar mime-viewer/default-showing-Content-Type-list
+
+ɽ¼¨¤¹¤Ù¤ content-type ¤òÍ×ÁǤȤ¹¤ë list.
+@end defvar
+
+
+@deffn{Function} mime-viewer/body-visible-p cnum cinfo &optional ctype
+
+content-number ¤¬ @var{cnum} ¤Ç¤¢¤ë content ¤¬É½¼¨¤µ¤ì¤ë¾ì¹ç¡¢@code{t}
+¤òÊÖ¤¹¡£¤½¤Î content ¤Î content-type ¤¬¤¢¤é¤«¤¸¤á¤ï¤«¤Ã¤Æ¤¤¤ë¾ì¹ç¡¢
+@var{ctype} ¤Ë°ú¿ô¤È¤·¤ÆÅϤ¹¤³¤È¤¬¤Ç¤¤ë¡£
+@end deffn
+
+
+@defvar mime-viewer/content-filter-alist
+
+article buffer ¤Î major-mode ¤ò key ¤È¤·¤¿Ï¢Áۥꥹ¥È¤Ç¡¢ÃÍÉô¤Ë¤Ï
+content-filter ¤¬Æþ¤Ã¤Æ¤¤¤ë¡£
+@end defvar
+
+
+@deffn{Function} mime-viewer/default-content-filter cnum cinfo ctype params subj
+
+¤¢¤ë content ¤Î content-body ¤òɽ¼¨¤¹¤Ù¤»þ¡¢ÊÑ¿ô
+@code{mime-viewer/content-filter-alist} ¤ÎÃæ¤Ë content-filter ¤¬¸«¤Ä¤«
+¤é¤Ê¤«¤Ã¤¿¾ì¹ç¤Ë¸Æ¤Ó½Ð¤µ¤ì¤ë¡£
+
+ɸ½à¤Ç¤Ï²¿¤â¤·¤Ê¤¤¡£
+@end deffn
+
+
+@node content-separator, Decoding, content-body, Preview Buffer
+@comment node-name, next, previous, up
+@section{content-separator}
+@cindex{content-separator}
+
+content-separator ¤Ï content ¤Î°ìÈֺǸå¤Ë content ´Ö¤Î¶ÌܤòÌÀ¤é¤«¤Ë¤¹
+¤ë¤¿¤á¤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£
+
+content-separator ¤Ï´Ø¿ô @code{mime-viewer/default-content-separator}
+¤Ë¤è¤Ã¤Æɽ¼¨¤µ¤ì¤Þ¤¹¡£É¸½à¤Ç¤Ï¡¢content-header ¤â content-body ¤âɽ¼¨
+¤µ¤ì¤Ê¤¤¾ì¹ç¤Î¤ß¡¢²þ¹Ô¤òɽ¼¨¤·¤Þ¤¹¡£
+
+content-separator ¤ÎÀßÄê¤òÊѹ¹¤·¤¿¤¤¾ì¹ç¤Ï¡¢¤³¤Î´Ø¿ô¤òºÆÄêµÁ¤·¤Æ²¼¤µ¤¤¡£
+
+
+@deffn{Function} mime-viewer/default-content-separator cnum cinfo ctype params subj
+
+content-number ¤¬ @var{cnum} ¤Ç¤¢¤ë content ¤Î content-separator ¤òɽ
+¼¨¤¹¤ë¡£É¸½à¤Ç¤Ï¡¢content-header ¤â content-body ¤âɽ¼¨¤µ¤ì¤Ê¤¤¾ì¹ç¤Î
+¤ß¡¢²þ¹Ô¤òɽ¼¨¤¹¤ë¡£
+@end deffn
+
+
+@node Decoding, decoding-condition, Preview Buffer, Top
+@comment node-name, next, previous, up
+@chapter{Decoding}
+@cindex{Decoding}
+
+@code{mime/viewer-mode} ¤Ç¤Ï user ¤Ï³Æ content ¤ËÂФ·¤Æ¡¢play
+(@key{v}), extract (@key{e}), print (@key{C-c C-p}) ¤È¤¤¤¦Áàºî¤ò¹Ô¤Ê¤¦
+¤³¤È¤¬¤Ç¤¤Þ¤¹¡£¤³¤¦¤·¤¿Áàºî¤Î¤³¤È¤ò¡Ø¡Êcontent ¤ËÂФ¹¤ë¡Ëdecode Áàºî¡Ù
+¤È¸Æ¤Ö¤³¤È¤Ë¤·¤Þ¤¹¡£¤Þ¤¿¡¢@strong{play}, @strong{extract},
+@strong{print} ¤È¤¤¤¦ decode Áàºî¤Î¼ïÎà¤Î¤³¤È¤ò @strong{decoding-mode}
+¤È¸Æ¤Ö¤³¤È¤Ë¤·¤Þ¤¹¡£
+
+decode Áàºî¤¬¹Ô¤Ê¤ï¤ì¤¿»þ¡¢¤½¤Î content ¤Î content-type ¤Ê¤É¤Î¾ò·ï¤ä¤½
+¤Î¾ì¤Î´Ä¶¤Ë±þ¤¸¤Æ¼ÂºÝ¤Ë¤½¤ÎÁàºî¤ò¼Â¹Ô¤¹¤ë¼ê³¤¤¬¸Æ¤Ð¤ì¤Þ¤¹¡£¤³¤Î¼ê³
+¤¤Î¤³¤È¤ò @strong{method} ¤È¸Æ¤Ó¤Þ¤¹¡£
+
+method ¤Ë¤Ï¡¢Emacs Lisp ¤Ç½ñ¤«¤ì¤¿ @strong{ÆâÉô method} ¤È¡¢³°Éô
+program ¤Ç¼Â¸½¤µ¤ì¤¿ @strong{³°Éô method} ¤¬¤¢¤ê¤Þ¤¹¡£ÆâÉô method ¤Ï
+Emacs ¤Îµ¡Ç½¤ò»È¤Ã¤Æ¤¤áºÙ¤«¤¤½èÍý¤ò¹Ô¤Ê¤¦¤³¤È¤¬¤Ç¤¤Þ¤¹¡£³°Éô method
+¤ÏÈóƱ´ü¥×¥í¥»¥¹¸Æ¤Ó½Ð¤·¤ò»È¤Ã¤Æ¼Â¸½¤µ¤ì¤Æ¤¤¤ë¤Î¤Ç¡¢¼Â¹ÔÃæÂÔ¤¿¤µ¤ì¤º¤Ë
+¤¹¤ß¤Þ¤¹¡£¤³¤Î¤¿¤á¡¢ÀŻ߲è¤äÆ°²è¤Ê¤É¤ÎµðÂç¤Ê data ¤òºÆÀ¸¤¹¤ë¤Î¤ËÎɤ¤¤Ç
+¤·¤ç¤¦¡£
+
+@menu
+* decoding-condition:: content ¤Î decode ¾ò·ï¤ÎÀßÄê
+* Format of method value:: method ¤ÎÃÍÉô¤Î½ñ¼°
+* Example of decoding-condition:: ÀßÄêÎã
+@end menu
+
+
+@node decoding-condition, Format of method value, Decoding, Decoding
+@comment node-name, next, previous, up
+@section{content ¤Î decode ¾ò·ï¤ÎÀßÄê}
+@cindex{content ¤Î decode ¾ò·ï¤ÎÀßÄê}
+
+tm-view ¤Ï decode Áàºî¤¬¹Ô¤Ê¤ï¤ì¤ë¤È¡¢ÊÑ¿ô
+@code{mime/content-decoding-condition} ¤«¤é¤½¤Î»þ¤Î¾ò·ï¤Ë¹çÃפ·¤¿
+method ¤òÁܤ·½Ð¤·¤Æ¡¢¤½¤ì¤ò¸Æ¤Ó½Ð¤·¤Þ¤¹¡£
+
+ÊÑ¿ô @code{mime/content-decoding-condition} ¤Ï
+
+@lisp
+ (¾ò·ï1 ¾ò·ï2 ...)
+@end lisp
+
+¤È¤¤¤¦·Á¤ò¤·¤¿ list ¤Ç¡¢³Æ¾ò·ï¤Ï
+
+@lisp
+ ((field-type_1 . value_1)
+ (field-type_2 . value_2)
+ ...)
+@end lisp
+
+¤È¤¤¤¦·Á¤ÎÏ¢ÁÛ list ¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£
+
+Î㤨¤Ð¡¢text/plain ¤Î»þ¡¢tm-plain ¤òµ¯Æ°¤¹¤ë»þ¡¢
+
+@lisp
+ ((type . "text/plain")
+ (method "tm-plain" nil 'file 'type 'encoding 'mode 'name))
+@end lisp
+
+¤È¤¤¤¦¾ò·ï¤ò½ñ¤¤Þ¤¹¡£¤³¤Î method ¤Î value Éô¤Î½ñ¼°¤Ë¤Ä¤¤¤Æ¤Ï¸å¤Ç¾Ü¤·
+¤¯½Ò¤Ù¤Þ¤¹¡£
+
+¤³¤Î¾ò·ï¤Ï content-type ¤¬ text/plain ¤Ç¤¢¤ë content ¤Ê¤éÁ´¤Æ¤Î
+decoding-mode ¤Ç͸ú¤Ç¤¹¡£¤·¤«¤·¡¢
+
+@lisp
+ ((type . "text/plain")
+ (method "tm-plain" nil 'file 'type 'encoding 'mode 'name)
+ (mode . "play"))
+@end lisp
+
+¤Ê¤é¡¢play mode ¤Î»þ¤·¤«Í¸ú¤Ë¤Ê¤ê¤Þ¤»¤ó¡£
+
+µÕ¤Ë¡¢
+
+@lisp
+ ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file)
+ (mode . "play"))
+@end lisp
+
+¤Ê¤é¡¢Á´¤Æ¤Î content-type ¤Î play mode ¤Ç͸ú¤Ë¤Ê¤ê¤Þ¤¹¡£
+
+¤³¤¦¤·¤Æ³Æ¾ò·ï¤òÁ°¤«¤é¸«¤Æ¹Ô¤¡¢ºÇ½é¤Ë͸ú¤Ë¤Ê¤Ã¤¿¾ò·ï¤¬¼Â¹Ô¤µ¤ì¤Þ¤¹¡£
+
+
+@node Format of method value, Example of decoding-condition, decoding-condition, Decoding
+@comment node-name, next, previous, up
+@section{method ¤Î ÃÍÉô¤Î½ñ¼°}
+@cindex{method ¤Î ÃÍÉô¤Î½ñ¼°}
+
+decode-condition ¤Î method field ¤Ï
+
+@lisp
+ (method . SYMBOL)
+@end lisp
+
+¤«
+
+@lisp
+ (method ʸ»úÎó FLAG °ú¿ô1 °ú¿ô2 ...)
+@end lisp
+
+¤È¤¤¤¦·Á¤ò¤·¤Æ¤¤¤Þ¤¹¡£
+
+Á°¼Ô¤ÏÆâÉô method ¤ò»ØÄꤹ¤ë¤¿¤á¤Î·Á¼°¤Ç¡¢decode Áàºî¤¬¹Ô¤Ê¤ï¤ì¤¿»þ¡¢
+SYMBOL ¤È¤¤¤¦´Ø¿ô¤¬´Ø¿ô¸Æ¤Ó½Ð¤·¤Ë¤è¤Ã¤ÆÆâÉô method ¤È¤·¤Æ¸Æ¤Ó½Ð¤µ¤ì¤Þ
+¤¹¡£
+
+¸å¼Ô¤Ï³°Éô method ¤ò»ØÄꤹ¤ë¤¿¤á¤Î·Á¼°¤Ç¡¢decode Áàºî¤¬¹Ô¤Ê¤ï¤ì¤¿»þ¡¢
+ʸ»úÎó¤Ç»ØÄꤵ¤ì¤¿³°Éô program ¤¬ÈóƱ´ü¥×¥í¥»¥¹¸Æ¤Ó½Ð¤·¤Ë¤è¤Ã¤Æ³°Éô
+method ¤È¤·¤Æ¸Æ¤Ó½Ð¤µ¤ì¤Þ¤¹¡£
+
+
+³°Éô method ¤ò»ØÄꤹ¤ë¾ì¹ç¤Î method field ¤Î½ñ¼°¤Ï°Ê²¼¤ÎÄ̤ê¤Ç¤¹¡£
+
+@table @samp
+@item ʸ»úÎó
+ ³°Éô method ¤Î̾Á°
+@item FLAG
+ @code{t} ¤Ê¤é content-header ¤â³°Éô method ¤ËÅϤ¹¡£@code{nil}
+ ¤Ê¤é content-body ¤Î¤ß¤òÅϤ¹¡£
+@item °ú¿ôÎó
+ ³°Éô method ¤Î°ú¿ô
+@end table
+
+¤Þ¤¿¡¢³°Éô method ¤Î°ú¿ô¤Ï¼¡¤Î¤è¤¦¤Ê·Á¼°¤Ç½ñ¤¤Þ¤¹¡£
+
+@table @samp
+@item ʸ»úÎó
+ ¤½¤Îʸ»úÎó¤òÅϤ¹
+@item 'SYMBOL
+ SYMBOL ¤ò key ¤È¤·¤¿ decoding-condition ¤ÎÃͤòÅϤ¹
+@item 'ʸ»úÎó
+ ʸ»úÎó¤ò key ¤È¤·¤¿ decoding-condition ¤ÎÃͤòÅϤ¹
+@end table
+
+'SYMBOL ¤Ç»ØÄê¤Ç¤¤ë¤â¤Î¤Ë¤Ï¡¢
+
+@table @samp
+@item 'file
+ content ¤òÅϤ¹¤¿¤á¤Î file ̾
+@item 'type
+ Content-Type field ¤Î content-type/subtype
+@item 'encoding
+ Content-Transfer-Encoding field ¤Î field body
+@item 'mode
+ decoding-mode
+@item 'name
+ file ¤ËÍ¾ì¹ç¤Î file ̾
+@end table
+
+¤Ê¤É¤¬¤¢¤ê¡¢'ʸ»úÎó ¤Ç¤Ï Content-Type field ¤Î parameter ¤ÎÃͤ¬»ØÄê¤Ç
+¤¤Þ¤¹¡£
+
+
+@node Example of decoding-condition, Concept Index, Format of method value, Decoding
+@comment node-name, next, previous, up
+@section{decoding-condition ¤ÎÎã}
+@cindex{decoding-condition ¤ÎÎã}
+
+°Ê²¼¤Ë decoding-condition ¤ÎÀßÄêÎã¤ò¼¨¤·¤Þ¤¹¡£
+
+@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
+
+Î㤨¤Ð¡¢¡ÖÁ´Éô metamail »È¤¦¤ó¤ä¡×¤È¤¤¤¦¾ì¹ç¡¢
+
+@lisp
+(setq mime/content-decoding-condition
+ '(
+ ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file))
+ ))
+@end lisp
+
+¤È¤¹¤ì¤Ð OK ¤Ç¤¹¡£
+
+¹©Éפ¹¤ì¤Ð¡¢¤«¤Ê¤êÊ£»¨¤Ê¾ò·ï¤¬½ñ¤±¤ë¤Ç¤·¤ç¤¦¡£
+
+
+°Ê²¼¤Ë¡¢decoding-condition ¤òÀßÄꤹ¤ë¤¿¤á¤ÎÍÍѤʴؿô¤ò¾Ò²ð¤·¤Þ¤¹¡£
+
+
+@deffn{Function} set-atype symbol alist
+
+@var{symbol} ¤Ë¾ò·ï @var{alist} ¤òÄɲä·¤Þ¤¹¡£
+
+Î㡧
+
+@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 Concept Index, Command Index, Decoding, Top
+@unnumbered ³µÇ°º÷°ú
+
+@printindex cp
+
+
+@node Command Index, Variable Index, Concept Index, Top
+@unnumbered ´Ø¿ô¡¦¥³¥Þ¥ó¥Éº÷°ú
+
+@printindex fn
+
+
+@node Variable Index, , Command Index, Top
+@unnumbered ÊÑ¿ôº÷°ú
+
+@printindex vr
+
+@bye
--- /dev/null
+\input texinfo.tex
+@c{-*-tm manual-*-}
+@setfilename tm_ja.info
+@settitle{tm manual}
+
+@titlepage
+@sp{5}
+@center @titlefont{tm}
+@sp{15}
+@center @titlefont{\e$B<i2,\e(B \e$BCNI'\e(B}
+@sp{1}
+@center @code{$Id: tm_ja.texi,v 2.0 1995/06/27 06:47:07 morioka Exp $}
+@end titlepage
+
+
+@node Top, Abstract, (dir), (dir)
+@comment node-name, next, previous, up
+
+@ifinfo
+GNU Emacs \e$B$G\e(B MIME \e$B$r3Z$7$`$?$a$N\e(B package \e$B$G$"$k\e(B `tm' \e$B$K$D$$$F@bL@$7$^\e(B
+\e$B$9!#\e(B
+@end ifinfo
+
+@menu
+* Abstract:: \e$B35MW\e(B
+* Emacs-Versions::
+* Install::
+* Setting::
+* tm-MUA::
+* tm-view: (tm-view_ja.info).
+* Concept Index::
+* Command Index::
+* Variable Index::
+@end menu
+
+
+@node Abstract, Emacs-Versions, Top, Top
+@comment node-name, next, previous, up
+@chapter{tm \e$B$H$O\e(B}
+@cindex{tm \e$B$H$O\e(B}
+
+tm \e$B$O\e(B GNU Emacs \e$B$G\e(B MIME \e$B$r3Z$7$`$?$a$N\e(B package \e$B$G$9!#\e(Btm \e$B$r;H$&$H!"\e(B
+@itemize
+@item tm-view \e$B$K$h$k\e(B MIME message \e$B$N1\Mw!&:F@8\e(B
+@item tiny-mime \e$B$K$h$kB?8@8l\e(B header \e$B$N\e(B encode/decode
+@item mh-e, GNUS, RMAIL, VM \e$B$G$N\e(B MIME \e$B5!G=$N6/2=\e(B
+@end itemize
+\e$B$H$$$&$h$&$J$3$H$,9T$J$($^$9!#\e(B
+
+
+@section{Module \e$B0lMw\e(B}
+
+tm \e$B$O0J2<$N\e(B module \e$B$+$i$J$j$^$9!#\e(B
+
+@itemize
+@item @strong{tiny-mime:} MIME header encoder/decoder
+@item @strong{tm-view:} MIME viewer
+@item @strong{tm-misc:} tm-MUA \e$B$N6&DL\e(B module
+ @item @strong{tm-mh-e:} mh-e \e$BMQ$N\e(B tm-MUA
+ @item @strong{tm-gnus:} GNUS \e$BMQ$N\e(B tm-MUA
+ @item @strong{tm-rmail:} RMAIL \e$BMQ$N\e(B tm-MUA
+ @item @strong{tm-vm:} VM \e$BMQ$N\e(B tm-MUA
+@item @strong{tm-setup:} tm-MUA \e$BA4HL$N@_Dj\e(B module
+@item @strong{mime-setup:} MIME \e$B4X78A4HL$N@_Dj\e(B module
+@end itemize
+
+@menu
+* tiny-mime:(tm-eword_ja.info).
+* tm-view:(tm-view_ja.info).
+* tm-mh-e:(tm-mh-e_ja.info).
+* tm-gnus:(tm-gnus_ja.info).
+* tm-rmail:(tm-rmail_ja.info).
+* tm-vm:(tm-vm_ja.info).
+* chain-mail:(tm-cmail_ja.info).
+@end menu
+
+
+@node Emacs-Versions, Install, Abstract, Top
+@comment node-name, next, previous, up
+@chapter{Emacs version \e$BJL$N5!G=$*$h$S@)8B\e(B}
+@cindex{Emacs version \e$BJL$N5!G=$*$h$S@)8B\e(B}
+
+@section{original GNU Emacs 18}
+
+\e$BF0:n$OJ]>Z$7$^$;$s!#$7$+$7$J$,$i!"\e(BUS-ASCII \e$B$NHO0O$G$OF0:n$9$k$H;W$o$l\e(B
+\e$B$^$9!#\e(B
+
+@section{NEmacs, NEpoch}
+
+ISO-2022-JP, US-ASCII \e$B$,;H$($^$9!#\e(B
+
+@section{original GNU Emacs 19}
+
+US-ASCII \e$B$*$h$S\e(B ISO-8859-1 \e$B$r%5%]!<%H$7$^$9!#\e(B
+
+\e$B$^$?!"\e(BX window \e$B>e$NFHN)$7$?\e(B window \e$B$H$7$FF0:n$5$;$k>l9g!"\e(Btm-rich \e$B$K$h\e(B
+\e$B$k\e(B multi face \e$BI=<($,9T$J$($^$9!#\e(B
+
+@section{Mule}
+
+ISO-2022-JP, US-ASCII, ISO-8859-1..9, ISO-2022-CN, ISO-2022-KR, EUC-KR
+\e$B$J$I$NB?$/$N\e(B charset \e$B$r%5%]!<%H$7$^$9!#$^$?!"4X?t\e(B
+mime/set-charset-and-encoding \e$B$GDI2C!&JQ99$,$G$-$^$9!#\e(B
+
+\e$B$^$?!"\e(BMule 2.* \e$B$r\e(B X window \e$B>e$NFHN)$7$?\e(B window \e$B$H$7$FF0:n$5$;$k>l9g!"\e(B
+tm-rich \e$B$K$h$k\e(B multi face \e$BI=<($,9T$J$($^$9!#\e(B
+
+@section{XEmacs}
+
+US-ASCII \e$B$*$h$S\e(B ISO-8859-1 \e$B$r%5%]!<%H$7$^$9!#\e(B
+
+\e$B:#$N$H$3$m!"\e(Btm-rich \e$B$K$h$k\e(B multi face \e$BI=<($O%5%]!<%H$5$l$F$$$^$;$s$,!"\e(B
+\e$B>-MhE*$K$O!"\e(Bmulti face \e$BI=<($H\e(B inline image \e$B$NI=<($,%5%]!<%H$5$l$kM=Dj\e(B
+\e$B$G$9!#\e(B
+
+
+@node Install, How-to-use, Emacs-Versions, Top
+@comment node-name, next, previous, up
+@chapter{Install}
+@cindex{Install}
+
+Install \e$B$O<!$N<j=g$G9T$J$$$^$9!#\e(B
+
+@section{tl \e$B$N\e(B install}
+
+tm \e$B$O\e(B Emacs Lisp library ``tl'' \e$B$rMxMQ$7$F$$$^$9!#$h$C$F!"$^$::G=i$K!"\e(B
+\e$B$3$l$r\e(B install \e$B$7$F2<$5$$!#\e(B
+
+tl \e$B$N\e(B install \e$B$N;EJ}$O\e(B tl/README.eng \e$B$K=q$$$F$"$j$^$9$N$G!"$3$l$rFI$s\e(B
+\e$B$GE,@Z$K\e(B install \e$B$7$F2<$5$$!#\e(B
+
+
+@section{Makefile}
+
+Makefile \e$B$r<+J,$N4D6-$K9g$o$;$F=q$-49$($F2<$5$$!#\e(B
+
+@subsection{Emacs \e$B$N<B9T\e(B file \e$BL>$N;XDj\e(B}
+
+Emacs \e$B$N<B9T\e(B file \e$BL>$r;XDj$7$F2<$5$$!#\e(B
+
+@itemize
+@item NEMACS = for NEMACS (or NEpoch)
+@item MULE1 = for Mule 1.* (based on Emacs 18.*)
+@item ORIG19 = for Emacs 19.* (FSF original or XEmacs)
+@item MULE2 = for MULE 2.* (based on Emacs 19.*)
+@end itemize
+
+@subsection{load-path \e$B$N;XDj\e(B}
+
+Emacs Lisp program \e$B$r\e(B install \e$B$9$k\e(B directory \e$B$r;XDj$7$F2<$5$$!#\e(B
+
+@itemize
+@item TLDIR18 = for Emacs 18.* (NEMACS, NEpoch or MULE 1)
+@item TLDIR19 = for Emacs 19.* (FSF original, XEmacs or MULE 2)
+@end itemize
+
+
+@section{\e$B30It\e(B method}
+
+methods/ \e$B0J2<$K$"$k\e(B method script \e$B$r\e(B sec:method \e$B@a$r;2>H$7$F!"<+J,$N4D\e(B
+\e$B6-$K9g$&$h$&$K=q$-49$($F2<$5$$!#\e(B
+
+
+@section{make}
+
+`make all' \e$B$7$F2<$5$$!#\e(B
+
+
+@section{install}
+
+`make install' \e$B$7$F2<$5$$!#\e(B
+
+
+@section{Emacs Lisp program \e$B$N\e(B install}
+
+NEmacs \e$B$b$7$/$O\e(B NEpoch \e$B$r;H$C$F$$$k>l9g!"\e(B`make install-nemacs' \e$B$r<B9T\e(B
+\e$B$7$F2<$5$$!#\e(B
+
+Mule 1.* \e$B$r;H$C$F$$$k>l9g!"\e(B`install-mule1' \e$B$r<B9T$7$F2<$5$$!#\e(B
+
+Original Emacs 19.* \e$B$b$7$/$O\e(B XEmacs \e$B$r;H$C$F$$$k>l9g!"\e(B`make
+install-orig19' \e$B$r<B9T$7$F2<$5$$!#\e(B
+
+Mule 2.* \e$B$r;H$C$F$$$k>l9g!"\e(B`make install-mule2' \e$B$r<B9T$7$F2<$5$$!#\e(B
+
+\e$B$"$k$$$O!"$3$l$i$,$&$^$/$$$+$J$+$C$?>l9g$G$b!"\e(B*.el \e$B$r\e(B load-path \e$B$G;XDj\e(B
+\e$B$5$l$?\e(B directory \e$B$K\e(B copy \e$B$9$l$P\e(B OK \e$B$G$9!#\e(B
+
+
+@node Setting, tm-MUA, Install, Top
+@comment node-name, next, previous, up
+@chapter{\e$B@_Dj\e(B}
+@cindex{\e$B@_Dj\e(B}
+
+\e$B$3$N\e(B package \e$B$K$O\e(B mime-setup.el \e$B$H\e(B tm-setup.el \e$B$H$$$&4J0W@_Dj\e(B file \e$B$,\e(B
+\e$BImB0$7$F$$$^$9!#\e(Bmime-setup.el \e$B$G$O\e(B encoding \e$B$b4^$a$?\e(B MIME \e$BA4HL$N@_Dj$r\e(B
+\e$B9T$J$$!"\e(Btm-setup \e$B$G$O\e(B tm-MUA \e$B$K4X$9$k@_Dj$N$_$r9T$J$$$^$9!#\e(B
+
+@section{mime-setup}
+
+@example
+(load "mime-setup")
+@end example
+\e$B$H$9$k$H\e(B MIME \e$B$K4X$9$k3F<o@_Dj$r9T$J$$$^$9!#\e(Bmime-setup \e$B$O\e(B tm-setup \e$B$r\e(B
+\e$BFI$s$G$$$k$N$G!"\e(Bmime-setup \e$B$r;H$&>l9g!"\e(Btm-setup \e$B$r\e(B load \e$B$9$kI,MW$O$"$j\e(B
+\e$B$^$;$s!#\e(B
+
+mime-setup \e$B$G$O\e(B signature \e$B$N<+F0@ZBX$(\e(B tool \e$B$bImB0$7$F$$$^$9!#\e(B
+message header \e$B$N\e(B field \e$B$K9g$o$;$F\e(B signature \e$B$N<+F0@ZBX$r9T$J$$$?$$>l\e(B
+\e$B9g$O\e(B .emacs \e$B$K0J2<$N$h$&$J$b$N$rF~$l$F2<$5$$!#!J>\$7$/$O\e(B signature.el
+\e$B$N@bL@=q$r;2>H$7$F2<$5$$!K\e(B
+
+@example
+(setq signature-file-alist
+ '((("Newsgroups" . "jokes") . "~/.signature-jokes")
+ (("Newsgroups" . ("zxr" "nzr")) . "~/.signature-sun")
+ (("To" . ("ishimaru" "z-suzuki")) . "~/.signature-sun")
+ (("To" . "tea") . "~/.signature-jokes")
+ (("To" . ("sim" "oku" "takuo")) . "~/.signature-formal")
+ ))
+@end example
+
+mime-setup \e$B$r;H$&>l9g$O!"\e(Bmime.el \e$B$,I,MW$G$9!#$^$?!"\e(BSuperCite \e$B$r;H$&>l\e(B
+\e$B9g$O!"\e(BSuperCite \e$B$bI,MW$G$9!#\e(B
+
+
+@section{tm-setup}
+
+tm-setup \e$B$O\e(B tm-MUA \e$B$N@_Dj$N$_$r9T$J$&\e(B module \e$B$G$9!#\e(Bmime-setup \e$B$r\e(B load
+\e$B$7$F$$$k>l9g!"$3$l$rM[$K\e(B load \e$B$9$kI,MW$O$"$j$^$;$s$,!"\e(Bmime-setup \e$B$r;H\e(B
+\e$B$$$?$/$J$$>l9g!"0J2<$N$h$&$K$3$l$r\e(B load \e$B$7$F2<$5$$!#\e(B
+
+@example
+(load "tm-setup")
+@end example
+
+
+@section{vm}
+
+vm \e$B$r;H$&>l9g$O\e(B .vm \e$B$+\e(B .emacs \e$B$K\e(B
+@example
+(load "tm-vm")
+@end example
+\e$B$rF~$l$F2<$5$$!#\e(B
+
+
+@section{\e$B@_Dj\e(B file \e$B$r;H$o$J$$>l9g\e(B}
+
+tm-setup.el \e$B$r;29M$K$7$F2<$5$$!#\e(B
+
+
+@node tm-MUA, Concept Index, Setting, Top
+@comment node-name, next, previous, up
+@chapter{tm-MUA}
+@cindex{tm-MUA}
+
+``tm-MUA'' \e$B$H$$$&$N$O!"\e(Bmh-e, GNUS, RMAIL \e$B$J$I$N\e(B MUA \e$B$N$?$a$N\e(B MIME \e$B5!G=\e(B
+\e$B6/2=\e(B module \e$B$NAm>N$G$9!#\e(B
+
+\e$B8=:_!"\e(Btm-MUA \e$B$K$O!"\e(B
+@itemize
+@item @strong{tm-mh-e:} mh-e \e$BMQ$N\e(B tm-MUA
+@item @strong{tm-gnus:} GNUS \e$BMQ$N\e(B tm-MUA
+@item @strong{tm-rmail:} RMAIL \e$BMQ$N\e(B tm-MUA
+@item @strong{tm-vm:} VM \e$BMQ$N\e(B tm-MUA
+@end itemize
+\e$B$,$"$j$^$9!#$3$N>O$G$O$3$l$i$N\e(B module \e$B$K4X$7$F@bL@$7$^$9!#\e(B
+
+@section{Summary mode}
+
+tm-MUA \e$B$r;H$&$H!"85$N\e(B MUA \e$B$N\e(B Summary mode \e$B$KBP$7$F0J2<$N5!G=$,DI2C$5$l\e(B
+\e$B$^$9!#\e(B
+
+@table @kbd
+@item @key{M-t}
+ RFC 1522 MIME encoded-word \e$B$N\e(B decode \e$B$K4X$9$k\e(B toggle
+@item @key{v}
+ @code{mime/viewer-mode} \e$B$KF~$j!"\e(Bmessage \e$B$r1\Mw$9$k\e(B
+@end table
+
+\e$BC"$7!"\e(Btm-vm \e$B$G$O\e(B @key{v} \e$B$G$O$J$/\e(B @key{Z} \e$B$G\e(B @code{mime/viewer-mode}
+\e$B$KF~$j$^$9!#$^$?!"\e(Btm-mh-e \e$B$H\e(B tm-gnus for (ding) GNUS \e$B$G$OI8=`$G$O>o$K\e(B
+@code{mime/viewer-mode} \e$B$N\e(B preview buffer \e$B$,I=<($5$l$^$9!#\e(B
+
+@menu
+* tm-mh-e: (tm-mh-e_ja.info).
+* tm-gnus: (tm-gnus_ja.info).
+* tm-rmail: (tm-rmail_ja.info).
+* tm-vm: (tm-vm_ja.info).
+* tm-cmail: (tm-cmail_ja.info).
+* mime/viewer-mode: (tm-view_ja.info)how-to-use.
+@end menu
+
+
+@node Concept Index, Command Index, tm-MUA, Top
+@unnumbered \e$B35G0:w0z\e(B
+
+@printindex cp
+
+
+@node Command Index, Variable Index, Concept Index, Top
+@unnumbered \e$B4X?t!&%3%^%s%I:w0z\e(B
+
+@printindex fn
+
+
+@node Variable Index, Top, Command Index, Top
+@unnumbered \e$BJQ?t:w0z\e(B
+
+@printindex vr
+
+@bye
# TMDIR19 = for Emacs 19.* (FSF original, XEmacs or MULE 2)
# TMDIR18 = /usr/local/lib/emacs/local.lisp/tm
-TMDIR19 = /usr/local/lib/mule/site-lisp
+# TMDIR19 = /usr/local/lib/mule/site-lisp
TMDIR18 = $(HOME)/lib/emacs18/lisp
-# TMDIR19 = $(HOME)/lib/emacs19/lisp
+TMDIR19 = $(HOME)/lib/emacs19/lisp
FILES = tm/gnus/*.el
;;; tm-dgnus.el --- tm-gnus module for (ding) GNUS
;;;
+(require 'tl-str)
+(require 'tl-list)
+(require 'gnus)
+
+
;;; @ version
;;;
(defconst tm-gnus/RCS-ID
- "$Id: tm-dgnus.el,v 6.5 1995/06/22 05:34:56 morioka Exp $")
+ "$Id: tm-dgnus.el,v 6.9 1995/07/03 07:50:58 morioka Exp $")
(defconst tm-gnus/version
(concat (get-version-string tm-gnus/RCS-ID) " (ding)"))
(gnus-summary-select-article t t)
)
(pop-to-buffer gnus-article-buffer t)
+ (let (buffer-read-only)
+ (if (text-property-any (point-min) (point-max) 'invisible t)
+ (remove-text-properties (point-min) (point-max)
+ gnus-hidden-properties)
+ ))
(mime/viewer-mode)
)
"\e\r" (function tm-gnus/summary-scroll-down))
(define-key gnus-summary-mode-map "\et" (function tm-gnus/toggle-mime))
+(defmacro gnus-get-article-buffer ()
+ (` (cdr (assq 'article gnus-window-to-buffer))))
+
+;; Set article window start at LINE, where LINE is the number of lines
+;; from the head of the article.
+(defun gnus-article-set-window-start (&optional line)
+ (let ((article-buffer (gnus-get-article-buffer)))
+ (set-window-start
+ (get-buffer-window article-buffer)
+ (save-excursion
+ (set-buffer article-buffer)
+ (goto-char (point-min))
+ (if (not line)
+ (point-min)
+ (gnus-message 6 "Moved to bookmark")
+ (search-forward "\n\n" nil t)
+ (forward-line line)
+ (point))))))
(defun gnus-summary-next-page (lines)
"Show next page of selected article.
(gnus-summary-display-article article)
(gnus-configure-windows 'article)
(pop-to-buffer gnus-summary-buffer)
- (gnus-eval-in-buffer-window (cdr (assq 'article gnus-window-to-buffer))
- (setq endp (gnus-article-next-page lines)))
+ (gnus-eval-in-buffer-window
+ (gnus-get-article-buffer)
+ (setq endp (gnus-article-next-page lines)))
(cond ((and endp lines)
(message "End of message"))
((and endp (null lines))
(gnus-summary-next-unread-article)))
)))
-(defun gnus-summary-scroll-up (lines)
- "Scroll up (or down) one line current article.
-Argument LINES specifies lines to be scrolled up (or down if negative)."
- (interactive "p")
- (gnus-set-global-variables)
- (gnus-configure-windows 'article)
- (or (gnus-summary-select-article nil nil 'pseudo)
- (gnus-eval-in-buffer-window
- (cdr (assq 'article gnus-window-to-buffer))
- (cond ((> lines 0)
- (if (gnus-article-next-page lines)
- (gnus-message 3 "End of message")))
- ((< lines 0)
- (gnus-article-prev-page (- lines))))))
- (gnus-summary-recenter)
- (gnus-summary-position-cursor))
-
(defun gnus-summary-prev-page (lines)
"Show previous page of selected article.
Argument LINES specifies lines to be scrolled down."
(gnus-summary-display-article article)
(gnus-summary-recenter)
(gnus-eval-in-buffer-window
- (cdr (assq 'article gnus-window-to-buffer))
+ (gnus-get-article-buffer)
(gnus-article-prev-page lines))))
(gnus-summary-position-cursor))
+(defun gnus-summary-scroll-up (lines)
+ "Scroll up (or down) one line current article.
+Argument LINES specifies lines to be scrolled up (or down if negative)."
+ (interactive "p")
+ (gnus-set-global-variables)
+ (gnus-configure-windows 'article)
+ (or (gnus-summary-select-article nil nil 'pseudo)
+ (gnus-eval-in-buffer-window
+ (gnus-get-article-buffer)
+ (cond ((> lines 0)
+ (if (gnus-article-next-page lines)
+ (gnus-message 3 "End of message")))
+ ((< lines 0)
+ (gnus-article-prev-page (- lines))))))
+ (gnus-summary-recenter)
+ (gnus-summary-position-cursor))
+
(defun gnus-summary-toggle-header (arg)
"Show the headers if they are hidden, or hide them if they are shown.
If ARG is a positive number, show the entire header.
(interactive "P")
(gnus-set-global-variables)
(save-excursion
- (set-buffer (cdr (assq 'article gnus-window-to-buffer)))
+ (set-buffer (gnus-get-article-buffer))
(let ((buffer-read-only nil))
(if (numberp arg)
(if (> arg 0) (remove-text-properties (point-min) (point-max)
(set-window-point (get-buffer-window (current-buffer)) (point-min)))))
-;; Set article window start at LINE, where LINE is the number of lines
-;; from the head of the article.
-(defun gnus-article-set-window-start (&optional line)
- (let ((article-buffer (cdr (assq 'article gnus-window-to-buffer))))
- (set-window-start
- (get-buffer-window article-buffer)
- (save-excursion
- (set-buffer article-buffer)
- (goto-char (point-min))
- (if (not line)
- (point-min)
- (gnus-message 6 "Moved to bookmark")
- (search-forward "\n\n" nil t)
- (forward-line line)
- (point))))))
-
-
;;; @ summary filter
;;;
mmencode -q -u $2 > $3
breaksw
case "x-uue":
+case "x-uuencode":
pushd $TM_TMP_DIR
uudecode $2
popd
;;; @ version
;;;
(defconst tm-mh-e/RCS-ID
- "$Id: tm-mh-e.el,v 6.21 1995/06/22 12:02:13 morioka Exp $")
+ "$Id: tm-mh-e.el,v 6.23 1995/07/17 16:37:20 morioka Exp $")
(defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
(save-window-excursion
(switch-to-buffer (concat "show-" mh-sent-from-folder))
mime::article/preview-buffer))
- (if (looking-at "^\\[.+\\]\n")
+ (if (looking-at "^\\[.+\\(\n[ \t].+\\)*\\]\n")
(replace-match ""))
(narrow-to-region (point)(point-max))
(mh-insert-prefix-string mh-ins-buf-prefix)
(defun tm-mh-e/summary-before-quit ()
(let ((buf (get-buffer mh-show-buffer)))
(if buf
- (save-window-excursion
+ (let ((the-buf (current-buffer)))
(switch-to-buffer buf)
- (if mime::article/preview-buffer
- (if (setq buf (get-buffer mime::article/preview-buffer))
- (kill-buffer buf)
- ))))))
+ (if (and mime::article/preview-buffer
+ (setq buf (get-buffer mime::article/preview-buffer))
+ )
+ (progn
+ (switch-to-buffer the-buf)
+ (kill-buffer buf)
+ )
+ (switch-to-buffer the-buf)
+ )
+ ))))
(add-hook 'mh-before-quit-hook (function tm-mh-e/summary-before-quit))
/*
- * This program `out2' is a converter
+ * This program `ol2' is a converter
* from a text for outline-mode of GNU Emacs to normal text.
* This is a filter. So, input is `stdin', output is `stdout'.
*
--- /dev/null
+;;;
+;;; richtext.el -- read and save files in text/richtext format
+;;;
+;;; $Id: richtext.el,v 1.4 1995/07/15 17:58:36 morioka Exp $
+;;;
+
+(require 'tl-misc)
+
+(if (or (< emacs-major-version 19)
+ (and (= emacs-major-version 19)
+ (< emacs-minor-version 29))
+ )
+ (require 'tinyrich)
+ (require 'enriched)
+ )
+
+
+;;; @ text/richtext <-> text/enriched converter
+;;;
+
+(defun richtext-to-enriched-region (beg end)
+ "Convert the region of text/richtext style to text/enriched style."
+ (save-excursion
+ (save-restriction
+ (narrow-to-region beg end)
+ (goto-char (point-min))
+ (let (b e i)
+ (while (re-search-forward "[ \t]*<comment>" nil t)
+ (setq b (match-beginning 0))
+ (delete-region b
+ (if (re-search-forward "</comment>[ \t]*" nil t)
+ (match-end 0)
+ (point-max)
+ ))
+ )
+ (goto-char (point-min))
+ (while (re-search-forward "\n\n+" nil t)
+ (replace-match "\n")
+ )
+ (goto-char (point-min))
+ (while (re-search-forward "[ \t\n]*<nl>[ \t\n]*" nil t)
+ (setq b (match-beginning 0))
+ (setq e (match-end 0))
+ (setq i 1)
+ (while (looking-at "[ \t\n]*<nl>[ \t\n]*")
+ (setq e (match-end 0))
+ (setq i (1+ i))
+ (goto-char e)
+ )
+ (delete-region b e)
+ (while (>= i 0)
+ (insert "\n")
+ (setq i (1- i))
+ ))
+ (goto-char (point-min))
+ (while (search-forward "<lt>" nil t)
+ (replace-match "<<")
+ )
+ ))))
+
+(defun enriched-to-richtext-region (beg end)
+ "Convert the region of text/enriched style to text/richtext style."
+ (save-excursion
+ (save-restriction
+ (goto-char beg)
+ (and (search-forward "text/enriched")
+ (replace-match "text/richtext"))
+ (search-forward "\n\n")
+ (narrow-to-region (match-end 0) end)
+ (let (str n)
+ (goto-char (point-min))
+ (while (re-search-forward "\n\n+" nil t)
+ (setq str (buffer-substring (match-beginning 0)
+ (match-end 0)))
+ (setq n (1- (length str)))
+ (setq str "")
+ (while (> n 0)
+ (setq str (concat str "<nl>\n"))
+ (setq n (1- n))
+ )
+ (replace-match str)
+ )
+ (goto-char (point-min))
+ (while (search-forward "<<" nil t)
+ (replace-match "<lt>")
+ )
+ ))))
+
+
+;;; @ encoder and decoder
+;;;
+
+(defun richtext-decode (beg end)
+ (save-restriction
+ (narrow-to-region beg end)
+ (richtext-to-enriched-region beg (point-max))
+ (enriched-decode beg (point-max))
+ ))
+
+(defun richtext-encode (beg end)
+ (save-restriction
+ (narrow-to-region beg end)
+ (enriched-encode beg (point-max))
+ (enriched-to-richtext-region beg (point-max))
+ ))
+
+
+;;; @ setup
+;;;
+
+(set-alist 'format-alist
+ 'text/richtext
+ '("Extended MIME text/richtext format."
+ "Content-[Tt]ype:[ \t]*text/richtext"
+ richtext-decode richtext-encode t enriched-mode))
+
+
+;;; @ end
+;;;
+
+(provide 'richtext)
;;; @ version
;;;
(defconst mime/RCS-ID
- "$Id: tiny-mime.el,v 5.12 1995/05/21 16:06:27 morioka Exp $")
+ "$Id: tiny-mime.el,v 5.15 1995/07/17 05:26:06 morioka Exp $")
(defconst mime/tiny-mime-version (get-version-string mime/RCS-ID))
(defun mime/unfolding ()
(goto-char (point-min))
(let (field beg end)
- (while (re-search-forward message/field-regexp nil t)
+ (while (re-search-forward message/field-name-regexp nil t)
(setq beg (match-beginning 0))
- (setq end (match-end 0))
+ (setq end (progn
+ (if (re-search-forward "\n[!-9;-~]+:" nil t)
+ (goto-char (match-beginning 0))
+ (end-of-line)
+ )
+ (point)
+ ))
(setq field (buffer-substring beg end))
(if (string-match mime/encoded-word-regexp field)
- (progn
- (save-excursion
- (save-restriction
- (narrow-to-region (goto-char beg) end)
- (while (re-search-forward "\n[ \t]+" nil t)
- (replace-match " ")
- )
- ))
+ (save-restriction
+ (narrow-to-region (goto-char beg) end)
+ (while (re-search-forward "\n[ \t]+" nil t)
+ (replace-match " ")
+ )
+ (goto-char (point-max))
))
- ))
- )
+ )))
(defun mime/prepare-decode-message-header ()
(mime/unfolding)
--- /dev/null
+;;;
+;;; $Id: tinyrich.el,v 1.1 1995/07/05 16:21:36 morioka Exp $
+;;;
+;;; by MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; modified by YAMATE Keiichirou <ics9118@sem1.info.osaka-cu.ac.jp>
+;;;
+
+(defvar mime/text/enriched-face-list
+ '("bold" "italic" "fixed" "underline"))
+
+(cond ((and (>= emacs-major-version 19) window-system)
+ (defun mime/set-face-region (b e face)
+ (let ((sym (intern face)))
+ (if (member sym (face-list))
+ (let ((overlay (make-overlay b e)))
+ (overlay-put overlay 'face 'bold)
+ ))))
+ )
+ ((and (boundp 'NEMACS) NEMACS)
+ (setq mime/available-face-list
+ '("bold" "italic" "underline"))
+ (setq mime/available-face-attribute-alist
+ '(("bold" . inversed-region)
+ ("italic" . underlined-region)
+ ("underline" . underlined-region)
+ ))
+ (defun mime/set-face-region (beg end sym)
+ (attribute-add-narrow-attribute
+ (cdr (assoc sym mime/available-face-attribute-alist))
+ beg end))
+ )
+ (t
+ (setq mime/text/richtext-face-list nil)
+ (defun mime/set-face-region (beg end sym)
+ )
+ ))
+
+(defun enriched-decode (beg end)
+ (interactive "*r")
+ (save-excursion
+ (save-restriction
+ (narrow-to-region beg end)
+ (goto-char beg)
+ (while (re-search-forward "[ \t]*\\(\n+\\)[ \t]*" nil t)
+ (let ((str (buffer-substring (match-beginning 1)
+ (match-end 1))))
+ (if (string= str "\n")
+ (replace-match " ")
+ (replace-match (substring str 1))
+ )))
+ (goto-char beg)
+ (let (cmd str (fb (point)) fe b e)
+ (while (re-search-forward "<\\(<\\|[^<>\n\r \t]+>\\)" nil t)
+ (setq b (match-beginning 0))
+ (setq cmd (buffer-substring b (match-end 0)))
+ (if (string= cmd "<<")
+ (replace-match "<")
+ (replace-match "")
+ (setq cmd (downcase (substring cmd 1 (- (length cmd) 1))))
+ )
+ (cond ((string= cmd "param")
+ (setq b (point))
+ (save-excursion
+ (save-restriction
+ (if (search-forward "</param>" nil t)
+ (progn
+ (replace-match "")
+ (setq e (point))
+ )
+ (setq e end)
+ )))
+ (delete-region b e)
+ )
+ ((member cmd mime/text/enriched-face-list)
+ (setq b (point))
+ (save-excursion
+ (save-restriction
+ (if (re-search-forward (concat "</" cmd ">") nil t)
+ (progn
+ (replace-match "")
+ (setq e (point))
+ )
+ (setq e end)
+ )))
+ (mime/set-face-region b e cmd)
+ )))
+ (goto-char (point-max))
+ (if (not (eq (preceding-char) ?\n))
+ (insert "\n")
+ )
+ ))))
+
+(provide 'tinyrich)
;;;
-;;; $Id: tm-rich.el,v 6.2 1995/06/24 05:04:05 morioka Exp $
+;;; $Id: tm-rich.el,v 6.7 1995/07/15 16:45:29 morioka Exp $
;;;
-;;; by MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; modified by YAMATE Keiichirou <ics9118@sem1.info.osaka-cu.ac.jp>
+;;; by MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;;
(require 'tm-view)
+(require 'richtext)
-(defvar mime/text/richtext-face-list
- '("bold" "italic" "fixed" "underline"))
-(defvar mime/text/enriched-face-list
- '("bold" "italic" "fixed" "underline"))
-
-
-(cond ((and (>= emacs-major-version 19) window-system)
- (defun mime/set-face-region (b e face)
- (let ((sym (intern face)))
- (if (member sym (face-list))
- (let ((overlay (make-overlay b e)))
- (overlay-put overlay 'face 'bold)
- ))))
- )
- ((and (boundp 'NEMACS) NEMACS)
- (setq mime/available-face-list
- '("bold" "italic" "underline"))
- (setq mime/available-face-attribute-alist
- '(("bold" . inversed-region)
- ("italic" . underlined-region)
- ("underline" . underlined-region)
- ))
- (defun mime/set-face-region (beg end sym)
- (attribute-add-narrow-attribute
- (cdr (assoc sym mime/available-face-attribute-alist))
- beg end))
- )
- (t
- (setq mime/text/richtext-face-list nil)
- (defun mime/set-face-region (beg end sym)
- )
- ))
-
-
-;;; @ text/richtext
+;;; @ content filters for tm-view
;;;
-(defun mime/decode-text/richtext-region (beg end)
- (interactive "*r")
- (save-excursion
- (save-restriction
- (narrow-to-region beg end)
- (while (search-forward "\n" nil t)
- (replace-match "")
- )
- (goto-char beg)
- (let (cmd str (fb (point)) fe b e)
- (while (re-search-forward "<[^<>\n\r \t]+>" nil t)
- (setq b (match-beginning 0))
- (setq cmd (buffer-substring (+ b 1)
- (- (match-end 0) 1)))
- (replace-match "")
- (cond ((string= cmd "nl")
- (if (= fb b)
- (insert "\n")
- (fill-region fb b t)
- )
- (setq fb (point))
- )
- ((member (downcase cmd) mime/text/richtext-face-list)
- (setq b (point))
- (save-excursion
- (save-restriction
- (if (re-search-forward (concat "</" cmd ">") nil t)
- (progn
- (replace-match "")
- (setq e (point))
- )
- (setq e end)
- )))
- (mime/set-face-region b e cmd)
- )))
- (fill-region fb (point-max) t)
- (goto-char (point-max))
- (if (not (eq (preceding-char) ?\n))
- (insert "\n")
- )
- ))))
-
(defun mime-viewer/filter-text/richtext (ctype params encoding)
(let* ((mode mime::preview/original-major-mode)
(m (assq mode mime-viewer/code-converter-alist))
(mime-viewer/default-code-convert-region beg (point-max)
charset encoding)
)
- (mime/decode-text/richtext-region beg (point-max))
+ (richtext-to-enriched-region beg (point-max))
+ (enriched-decode beg (point-max))
))
-
-;;; @ text/enriched
-;;;
-
-(defun mime/decode-text/enriched-region (beg end)
- (interactive "*r")
- (save-excursion
- (save-restriction
- (narrow-to-region beg end)
- (while (re-search-forward "[\n]+" nil t)
- (let ((str (buffer-substring (match-beginning 0)
- (match-end 0))))
- (if (string= str "\n")
- (replace-match " ")
- (replace-match (substring str 1))
- )))
- (goto-char beg)
- (let (cmd str (fb (point)) fe b e)
- (while (re-search-forward "<\\(<\\|[^<>\n\r \t]+>\\)" nil t)
- (setq b (match-beginning 0))
- (setq cmd (buffer-substring b (match-end 0)))
- (if (string= cmd "<<")
- (replace-match "<")
- (replace-match "")
- (setq cmd (downcase (substring cmd 1 (- (length cmd) 1))))
- )
- (cond ((string= cmd "param")
- (setq b (point))
- (save-excursion
- (save-restriction
- (if (search-forward "</param>" nil t)
- (progn
- (replace-match "")
- (setq e (point))
- )
- (setq e end)
- )))
- (delete-region b e)
- )
- ((member cmd mime/text/enriched-face-list)
- (setq b (point))
- (save-excursion
- (save-restriction
- (if (re-search-forward (concat "</" cmd ">") nil t)
- (progn
- (replace-match "")
- (setq e (point))
- )
- (setq e end)
- )))
- (mime/set-face-region b e cmd)
- )))
- (goto-char (point-max))
- (if (not (eq (preceding-char) ?\n))
- (insert "\n")
- )
- ))))
-
(defun mime-viewer/filter-text/enriched (ctype params encoding)
(let* ((mode mime::preview/original-major-mode)
(m (assq mode mime-viewer/code-converter-alist))
(mime/code-convert-region-to-emacs beg (point-max)
charset encoding)
)
- (mime/decode-text/enriched-region beg (point-max))
+ (enriched-decode beg (point-max))
))
(run-hooks 'tm-rich-load-hook)
-(provide 'tm-rich)
+(provide 'richtext)
;;;
-;;; $Id: tm-rmail.el,v 6.5 1995/06/26 06:58:11 morioka Exp $
+;;; $Id: tm-rmail.el,v 6.6 1995/06/26 22:52:13 morioka Exp $
;;;
(require 'tl-header)
(require 'tl-misc)
(autoload 'mime/viewer-mode "tm-view" "View MIME message." t)
+(autoload 'mime/Content-Type "tm-view" "parse Content-Type field.")
(autoload 'mime/decode-message-header "tiny-mime" "Decode MIME header." t)
(defun tm-rmail/show-all-header-p ()
(let ((ret (rmail-widen-to-current-msgbeg
(function
(lambda ()
- (cons (mime/Content-Type (mail-fetch-field "Content-Type"))
+ (cons (mime/Content-Type)
(mail-fetch-field "Content-Transfer-Encoding"))
)))))
(mime/viewer-mode nil (car ret)(cdr ret))
;;;
(defconst mime-viewer/RCS-ID
- "$Id: tm-view.el,v 6.63 1995/06/25 21:33:51 morioka Exp $")
+ "$Id: tm-view.el,v 6.67 1995/07/03 07:41:02 morioka Exp $")
(defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
(defconst mime/viewer-version mime-viewer/version)
(re-search-forward "^$" nil t)
(+ (match-end 0) 1)
))
+ (if (> he (point-max))
+ (setq he (point-max))
+ )
(switch-to-buffer obuf)
(setq nb (point))
(narrow-to-region nb nb)
(defun mime-viewer/default-code-convert-region
(beg end charset &optional encoding)
- (if (member charset '("quoted-printable" "base64"))
+ (if (member encoding '("quoted-printable" "base64"))
(mime/code-convert-region-to-emacs beg (point-max) charset)
))
(mime-viewer/default-code-convert-region beg (point-max)
charset encoding)
)))
+ (goto-char (point-max))
+ (if (not (eq (char-after (1- (point))) ?\n))
+ (insert "\n")
+ )
;;(hide-sublevels 1)
(run-hooks 'mime-viewer/plain-text-preview-hook)
)
projects / elisp / tm.git / commitdiff