+++ /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
-----------------------------
+++ /dev/null
-tm-view.el
-----------------------------
-revision 6.70
-date: 1995/07/30 23:18:01; author: morioka; state: Exp; lines: +5 -6
-replaced function `mail-fetch-field' by function
-`message/get-field-body' because of trouble.
-----------------------------
-revision 6.69
-date: 1995/07/30 23:11:42; author: morioka; state: Exp; lines: +6 -4
-redefine function `mime-viewer/default-content-subject-function' not
-to display content-subject for root content.
-----------------------------
-revision 6.68
-date: 1995/07/30 20:51:16; author: morioka; state: Exp; lines: +6 -5
-replaced function `message/get-field-body' by function
-`mail-fetch-field'.
-----------------------------
-
-
-tm-rich.el
-----------------------------
-revision 6.8
-date: 1995/07/17 22:30:36; author: morioka; state: Exp; lines: +9 -4
-modified for changes of text/richtext supporting system.
-----------------------------
-
-richtext.el
-----------------------------
-revision 2.1
-date: 1995/07/17 22:59:10; author: morioka; state: Exp; lines: +9 -8
-added (require 'enriched).
-----------------------------
-revision 2.0
-date: 1995/07/17 22:29:49; author: morioka; state: Exp; lines: +136 -97
-rewrite to encode/decode directly. Converters are moved to tinyrich.el.
-----------------------------
-
-tinyrich.el
-----------------------------
-revision 2.0
-date: 1995/07/17 22:31:32; author: morioka; state: Exp; lines: +95 -1
-text/richtext <-> text/enriched converter are moved from richtext.el.
-----------------------------
-
-
-tiny-mime.el
-----------------------------
-revision 5.16
-date: 1995/07/26 05:54:16; author: morioka; state: Exp; lines: +5 -3
-fixed a problem of function `mime/unfolding'.
-----------------------------
-
-
-gnus/tm-dgnus.el
-----------------------------
-revision 6.14
-date: 1995/08/01 17:19:15; author: morioka; state: Exp; lines: +7 -2
-In function `tm-gnus/summary-toggle-header', header mode detecting way
-for automatic MIME preview mode is changed.
-----------------------------
-revision 6.13
-date: 1995/08/01 17:09:13; author: morioka; state: Exp; lines: +10 -27
-Rewrote function `tm-gnus/summary-toggle-header' to use function
-`gnus-summary-toggle-header'.
-----------------------------
-revision 6.12
-date: 1995/07/30 20:09:41; author: morioka; state: Exp; lines: +68 -214
-Don't support automatic MIME preview for original (ding) GNUS.
-----------------------------
-revision 6.11
-date: 1995/07/27 19:35:42; author: morioka; state: Exp; lines: +3 -4
-(1) fixed a problem of function `tm-gnus/set-mime-method'.
-(2) added cheap support for page break in automatic preview mode.
-----------------------------
-revision 6.10
-date: 1995/07/27 18:54:30; author: morioka; state: Exp; lines: +171 -79
-Changed the way to save original article-buffer to the variable
-`gnus-clean-article-buffer'.
-----------------------------
+++ /dev/null
-tm-view.el
-----------------------------
-revision 6.70
-date: 1995/07/30 23:18:01; author: morioka; state: Exp; lines: +5 -6
-\e$BIT6q9g$,8+$D$+$C$?$N$G!"4X?t\e(B mail-fetch-field \e$B$r;H$&$N$r$d$a!"$d$C$Q$j!"\e(B
-\e$B4X?t\e(B message/get-field-body \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-revision 6.69
-date: 1995/07/30 23:11:42; author: morioka; state: Exp; lines: +6 -4
-top content \e$B$N\e(B content-subject \e$B$rI=<($7$J$$$h$&$K$7$?!#\e(B
-----------------------------
-revision 6.68
-date: 1995/07/30 20:51:16; author: morioka; state: Exp; lines: +6 -5
-\e$B4X?t\e(B message/get-field-body \e$B$r;H$&$N$r$d$a$F!"4X?t\e(B mail-fetch-field \e$B$r\e(B
-\e$B;H$&$h$&$K$7$?!#\e(B
-----------------------------
-
-
-tm-rich.el
-----------------------------
-revision 6.8
-date: 1995/07/17 22:30:36; author: morioka; state: Exp; lines: +9 -4
-text/richtext \e$B4X78$N9=@.$NJQ99$KH<$&=$@5$r9T$C$?!#\e(B
-----------------------------
-
-richtext.el
-----------------------------
-revision 2.1
-date: 1995/07/17 22:59:10; author: morioka; state: Exp; lines: +9 -8
-(require 'enriched) \e$B$rDI2C$7$?!#\e(B
-----------------------------
-revision 2.0
-date: 1995/07/17 22:29:49; author: morioka; state: Exp; lines: +136 -97
-\e$BD>@\\e(B encode/decode \e$B$9$k$h$&$K$7!"\e(Bconverter \e$B$O\e(B tinyrich.el \e$B$K0\$7$?!#\e(B
-----------------------------
-
-tinyrich.el
-----------------------------
-revision 2.0
-date: 1995/07/17 22:31:32; author: morioka; state: Exp; lines: +95 -1
-text/richtext <-> text/enriched converter \e$B$r\e(B richtext.el \e$B$+$i0\$7$?!#\e(B
-----------------------------
-
-
-tiny-mime.el
-----------------------------
-revision 5.16
-date: 1995/07/26 05:54:16; author: morioka; state: Exp; lines: +5 -3
-\e$B4X?t\e(B mime/unfolding \e$B$NIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
-
-
-gnus/tm-dgnus.el
-----------------------------
-revision 6.14
-date: 1995/08/01 17:19:15; author: morioka; state: Exp; lines: +7 -2
-\e$B4X?t\e(B tm-gnus/summary-toggle-header \e$B$K$*$$$F!"\e(Bautomatic MIME preview
-mode \e$B$N;~$N\e(B header \e$B$NI=<(\e(B mode \e$B$NH=DjK!$rJQ99$7$?!#\e(B
-----------------------------
-revision 6.13
-date: 1995/08/01 17:09:13; author: morioka; state: Exp; lines: +10 -27
-\e$B4X?t\e(B gnus-summary-toggle-header \e$B$rMxMQ$9$k$h$&$K!"4X?t\e(B
-tm-gnus/summary-toggle-header \e$B$r=q$-49$($?!#\e(B
-----------------------------
-revision 6.12
-date: 1995/07/30 20:09:41; author: morioka; state: Exp; lines: +68 -214
-original \e$B$N\e(B (ding) GNUS \e$B$KBP$7$F$O\e(B automatic MIME preview support \e$B$O9T\e(B
-\e$B$J$o$J$$$h$&$K$7$?!#\e(B
-----------------------------
-revision 6.11
-date: 1995/07/27 19:35:42; author: morioka; state: Exp; lines: +3 -4
-(1) \e$B4X?t\e(B tm-gnus/set-mime-method \e$B$K$*$1$kIT6q9g$r=$@5$7$?!#\e(B
-(2) \e$B2~JG$K4J0WBP1~$7$?!#\e(B
-----------------------------
-revision 6.10
-date: 1995/07/27 18:54:30; author: morioka; state: Exp; lines: +171 -79
-\e$B85$N\e(B article-buffer \e$B$rJQ?t\e(B gnus-clean-article-buffer \e$B$KJ]B8$9$kJ}<0$K\e(B
-\e$B2~$a$?!#\e(B
-----------------------------
+++ /dev/null
-tm-view.el
-----------------------------
-revision 6.71
-date: 1995/08/03 21:21:16; author: morioka; state: Exp; lines: +20 -3
-Modified to display a message in preview buffer when message/partial
-is previewed.
-----------------------------
-
-tm-rich.el
-----------------------------
-revision 6.10
-date: 1995/08/05 00:55:37; author: morioka; state: Exp; lines: +10 -8
-Added a variable `tm-rich/richtext-module' to select module to decode
-richtext.
-----------------------------
-revision 6.9
-date: 1995/08/03 13:28:35; author: morioka; state: Exp; lines: +2 -2
-Richard Stanton <stanton@haas.berkeley.edu> wrote:
-======================================================================
-My version of tm-os2 requires tm-rich. Unfortunately, this causes an
-error. I think it may be something to do with the fact that at the
-end of tm-rich.el is the line
-
-(provide 'richtext)
-
-Shouldn't that be
-
-(provide 'tm-rich)?
-======================================================================
-According to the report, I fixed a mistake of provide declaration.
-----------------------------
-
-mel/mel-b.el
-----------------------------
-revision 1.6
-date: 1995/08/05 00:30:53; author: morioka; state: Exp; lines: +25 -4
-Added function `pack-sequence' to independent of tl.
-----------------------------
-
-methods/*
- Replaced method scripts by /bin/sh version scripts by YAMAGAMI
- <yamagami@hb.nmcc.co.jp>.
+++ /dev/null
-tm-view.el
-----------------------------
-revision 6.71
-date: 1995/08/03 21:21:16; author: morioka; state: Exp; lines: +20 -3
-message/partial \e$B$N;~$K\e(B preview buffer \e$B$K$=$l$rCN$i$;$kJ8$rI=<($9$k$h$&\e(B
-\e$B$K$7$?!#\e(B
-----------------------------
-
-tm-rich.el
-----------------------------
-revision 6.10
-date: 1995/08/05 00:55:37; author: morioka; state: Exp; lines: +10 -8
-\e$BJQ?t\e(B tm-rich/richtext-module \e$B$r@_$1!"\e(Brichtext \e$B$N\e(B decode \e$B$K;HMQ$9$k$?$a\e(B
-\e$B$N\e(B module \e$B$rA*Br$G$-$k$h$&$K$7$?!#\e(B
-----------------------------
-revision 6.9
-date: 1995/08/03 13:28:35; author: morioka; state: Exp; lines: +2 -2
-Richard Stanton <stanton@haas.berkeley.edu> \e$B;a[)$/!'\e(B
-======================================================================
-My version of tm-os2 requires tm-rich. Unfortunately, this causes an
-error. I think it may be something to do with the fact that at the
-end of tm-rich.el is the line
-
-(provide 'richtext)
-
-Shouldn't that be
-
-(provide 'tm-rich)?
-======================================================================
-\e$B$3$N;XE&$K=>$$!":G8e$N\e(B provide \e$B$N@k8@$r4V0c$C$F$$$?$N$rD>$7$?!#\e(B
-----------------------------
-
-mel/mel-b.el
-----------------------------
-revision 1.6
-date: 1995/08/05 00:30:53; author: morioka; state: Exp; lines: +25 -4
-\e$B4X?t\e(B pack-sequence \e$B$r<+A0$G;}$D$h$&$K$7$?!#\e(B
-----------------------------
-
-methods/*
- \e$B$d$^$,$_\e(B <yamagami@hb.nmcc.co.jp> \e$B$5$s:n$N\e(B /bin/sh \e$BHG$N\e(B method
- script \e$B$r:NMQ$7$?!#\e(B
+++ /dev/null
-tm-view.el
-----------------------------
-revision 6.72
-date: 1995/08/12 18:58:45; author: morioka; state: Exp; lines: +2 -4
-Added `mime-viewer/content-header-filter-hook'.
-----------------------------
-
-installer
- tm-mh-e is byte-compiled and installed by mk-tmh written by
- Emacs Lisp. So make-lpath, inst-el and inst-elc are removed.
+++ /dev/null
-tm-view.el
-----------------------------
-revision 6.72
-date: 1995/08/12 18:58:45; author: morioka; state: Exp; lines: +2 -4
-mime-viewer/content-header-filter-hook \e$B$r@_$1$?!#\e(B
-----------------------------
-
-installer
- tm-mh-e \e$B$N\e(B byte-compile, install \e$B$r\e(B Emacs Lisp \e$B$G=q$$$?\e(B mk-tmh
- \e$B$G9T$J$&$h$&$K$7$?!#$3$N$3$H$KH<$$!"\e(Bmake-lpath, inst-el,
- inst-elc \e$B$rGQ;_$7$?!#\e(B
+++ /dev/null
-tl
-----------------------------
-(1) Replaced tl-18, tl-nemacs, tl-mule and tl-orig by emu.
-(2) Fixed problem on Emacs 19.29.
-----------------------------
-
-mime-setup.el
-----------------------------
-revision 6.1
-date: 1995/08/26 20:21:12; author: morioka; state: Exp; lines: +2 -1
-Fixed a problem about setting for (ding) GNUS.
-----------------------------
-
-sc-setup.el
-----------------------------
-revision 3.0
-date: 1995/08/26 18:37:34; author: morioka; state: Exp; lines: +9 -4
-Use emacs-major-version to judge.
-----------------------------
-revision 2.0
-date: 1995/08/26 18:35:29; author: morioka; state: Exp; lines: +8 -9
-Replaced tl-18 by emu.
-----------------------------
-
-tiny-mime.el
-----------------------------
-revision 5.18
-date: 1995/08/26 18:38:37; author: morioka; state: Exp; lines: +2 -4
-Replaced tl-18 by emu.
-----------------------------
-revision 5.17
-date: 1995/08/24 17:07:15; author: morioka; state: Exp; lines: +2 -2
-Added "Newsgroups" to default value of variable
-`mime/no-encoding-header-fields'.
-----------------------------
-
-tm-misc.el
-----------------------------
-revision 5.2
-date: 1995/08/26 18:41:39; author: morioka; state: Exp; lines: +18 -7
-Replaced tl-18 by emu.
-----------------------------
-
-tm-mule.el
-----------------------------
-revision 6.3
-date: 1995/08/26 18:42:32; author: morioka; state: Exp; lines: +2 -5
-Replaced tl-18 and tl-mule by emu.
-----------------------------
-
-tm-nemacs.el
-----------------------------
-revision 6.1
-date: 1995/08/26 18:44:31; author: morioka; state: Exp; lines: +2 -3
-Replaced tl-18 and tl-nemacs by emu.
-----------------------------
-
-tm-orig.el
-----------------------------
-revision 6.1
-date: 1995/08/26 18:46:27; author: morioka; state: Exp; lines: +8 -4
-Replaced tl-orig by emu.
-----------------------------
-
-tm-view.el
-----------------------------
-revision 6.73
-date: 1995/08/26 19:53:34; author: morioka; state: Exp; lines: +3 -3
-Renamed function `mime::viewer/quitting-method-for-gnus4' to
-`mime-viewer/quitting-method-for-gnus4'.
-----------------------------
+++ /dev/null
-tl
-----------------------------
-(1) tl-18, tl-nemacs, tl-mule, tl-orig \e$B$r\e(B emu \e$B$KCV$-49$($?!#\e(B
-(2) Emacs 19.29 \e$B$K$*$1$kIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
-
-mime-setup.el
-----------------------------
-revision 6.1
-date: 1995/08/26 20:21:12; author: morioka; state: Exp; lines: +2 -1
-(ding) GNUS \e$B$K$*$1$k@_Dj$NIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
-
-sc-setup.el
-----------------------------
-revision 3.0
-date: 1995/08/26 18:37:34; author: morioka; state: Exp; lines: +9 -4
-\e$BH=Dj$K\e(B emacs-major-version \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-revision 2.0
-date: 1995/08/26 18:35:29; author: morioka; state: Exp; lines: +8 -9
-tl-18 \e$B$r;H$&$N$r$d$a$F\e(B emu \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-
-tiny-mime.el
-----------------------------
-revision 5.18
-date: 1995/08/26 18:38:37; author: morioka; state: Exp; lines: +2 -4
-tl-18 \e$B$r;H$&$N$r$d$a$F\e(B emu \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-revision 5.17
-date: 1995/08/24 17:07:15; author: morioka; state: Exp; lines: +2 -2
-\e$BJQ?t\e(B mime/no-encoding-header-fields \e$B$N=i4|CM$K\e(B "Newsgroups" \e$B$rDI2C$7$?!#\e(B
-----------------------------
-
-tm-misc.el
-----------------------------
-revision 5.2
-date: 1995/08/26 18:41:39; author: morioka; state: Exp; lines: +18 -7
-tl-18 \e$B$r;H$&$N$r$d$a$F\e(B emu \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-
-tm-mule.el
-----------------------------
-revision 6.3
-date: 1995/08/26 18:42:32; author: morioka; state: Exp; lines: +2 -5
-tl-18, tl-mule \e$B$r;H$&$N$r$d$a$F\e(B emu \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-
-tm-nemacs.el
-----------------------------
-revision 6.1
-date: 1995/08/26 18:44:31; author: morioka; state: Exp; lines: +2 -3
-tl-18, tl-nemacs \e$B$r;H$&$N$r$d$a$F\e(B emu \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-
-tm-orig.el
-----------------------------
-revision 6.1
-date: 1995/08/26 18:46:27; author: morioka; state: Exp; lines: +8 -4
-tl-orig \e$B$r;H$&$N$r$d$a$F\e(B emu \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-
-tm-view.el
-----------------------------
-revision 6.73
-date: 1995/08/26 19:53:34; author: morioka; state: Exp; lines: +3 -3
-\e$B4X?t\e(B mime::viewer/quitting-method-for-gnus4 \e$B$r\e(B
-mime-viewer/quitting-method-for-gnus4 \e$B$K2~L>$7$?!#\e(B
-----------------------------
+++ /dev/null
-* mel
-
- Attached version 1.8.
-
-** mel/mel-q.el
-----------------------------
-revision 1.8
-date: 1995/08/27 19:29:17; author: morioka; state: Exp; lines: +3 -2
-Fixed problem of function `quoted-printable-internal-decode-region' in
-Mule.
-----------------------------
-revision 1.7
-date: 1995/08/27 17:45:52; author: morioka; state: Exp; lines: +2 -2
-Fixed (provide 'qprint) to (provide 'mel-q).
-----------------------------
-revision 1.6
-date: 1995/08/27 17:06:53; author: morioka; state: Exp; lines: +5 -6
-(1) Fixed function `q-encoding-encode-string-for-phrase' to encode
- space to `_'.
-(2) Fixed function `q-encoding-encode-string' to call function
- `q-encoding-encode-string-for-phrase' in default mode.
-----------------------------
-
-* tm
-
-** tm/tiny-mime.el
-----------------------------
-revision 6.2
-date: 1995/08/27 19:05:07; author: morioka; state: Exp; lines: +3 -2
-Defined constant `mime/tspecials', constant `mime/token-regexp' is
-defined by it.
-----------------------------
-revision 6.1
-date: 1995/08/27 17:42:42; author: morioka; state: Exp; lines: +1 -2
-Eliminated (require 'tl-num).
-----------------------------
-revision 6.0
-date: 1995/08/27 17:22:36; author: morioka; state: Exp; lines: +10 -10
-Eliminated unnecessary condition in function `mime/encode-string'.
-----------------------------
-revision 5.22
-date: 1995/08/27 17:17:38; author: morioka; state: Exp; lines: +15 -175
-Use mel to encode.
-----------------------------
-revision 5.21
-date: 1995/08/27 14:22:54; author: morioka; state: Exp; lines: +4 -3
-Fixed problem of constant `mime/charset-regexp'.
-----------------------------
-revision 5.20
-date: 1995/08/27 13:35:27; author: morioka; state: Exp; lines: +25 -8
-(1) Function `mime/decode-encoded-text' was moved from
- tm-{nemacs,orig,mule}.el.
-(2) Use mel in function `mime/decode-encoded-text'.
-----------------------------
-revision 5.19
-date: 1995/08/26 23:11:06; author: morioka; state: Exp; lines: +2 -2
-In function `mime/decode-encoded-word', encoding is regulated to upper
-case.
-----------------------------
-
-** tm/tm-comp.el
-----------------------------
-revision 6.8
-date: 1995/08/30 00:40:26; author: morioka; state: Exp; lines: +8 -80
-(1) Moved GNUS 4.* setting to tm-gnus4.el.
-(2) Value part of variable `mime/message-after-send-hook-alist' does not
- quote.
-----------------------------
-
-** tm/tm-mule.el
-----------------------------
-revision 6.4
-date: 1995/08/27 13:33:13; author: morioka; state: Exp; lines: +6 -13
-Moved function `mime/decode-encoded-text' to tiny-mime.el.
-----------------------------
-
-** tm/tm-nemacs.el
-----------------------------
-revision 6.3
-date: 1995/08/27 14:24:22; author: morioka; state: Exp; lines: +12 -18
-(1) Use string= if possible.
-(2) Use constants if possible.
-----------------------------
-revision 6.2
-date: 1995/08/27 13:31:02; author: morioka; state: Exp; lines: +11 -20
-Moved function `mime/decode-encoded-text' to tiny-mime.el.
-----------------------------
-
-** tm/tm-orig.el
-----------------------------
-revision 6.3
-date: 1995/08/27 14:26:18; author: morioka; state: Exp; lines: +13 -17
-Use string= if possible.
-----------------------------
-revision 6.2
-date: 1995/08/27 13:32:02; author: morioka; state: Exp; lines: +1 -14
-Moved function `mime/decode-encoded-text' to tiny-mime.el.
-----------------------------
-
-** tm/tm-view.el
-----------------------------
-revision 6.74
-date: 1995/08/27 19:05:58; author: morioka; state: Exp; lines: +1 -4
-Use definition of constant `mime/token-regexp' in tiny-mime.el.
-----------------------------
-
-
-* tm/gnus
-
- Attached version 6.16.
-
-** tm/gnus/tm-gnus4.el
-----------------------------
-revision 6.1
-date: 1995/08/30 00:41:17; author: morioka; state: Exp; lines: +98 -1
-Added setting for tm-comp.
-----------------------------
-
-** tm/gnus/tm-dgnus.el
-----------------------------
-revision 6.16
-date: 1995/08/30 02:44:11; author: morioka; state: Exp; lines: +14 -1
-Added setting for tm-comp.
-----------------------------
+++ /dev/null
-* mel
-
- Version 1.8 \e$B$rE:IU$7$?!#\e(B
-
-** mel/mel-q.el
-----------------------------
-revision 1.8
-date: 1995/08/27 19:29:17; author: morioka; state: Exp; lines: +3 -2
-\e$B4X?t\e(B quoted-printable-internal-decode-region \e$B$N\e(B Mule \e$B$K$*$1$kIT6q9g$r\e(B
-\e$B=$@5$7$?!#\e(B
-----------------------------
-revision 1.7
-date: 1995/08/27 17:45:52; author: morioka; state: Exp; lines: +2 -2
-(provide 'qprint) \e$B$r\e(B (provide 'mel-q) \e$B$KD>$7$?!#\e(B
-----------------------------
-revision 1.6
-date: 1995/08/27 17:06:53; author: morioka; state: Exp; lines: +5 -6
-(1) \e$B6uGr$r\e(B `_' \e$B$K\e(B encode \e$B$9$k$h$&$K4X?t\e(B
- q-encoding-encode-string-for-phrase \e$B$r=$@5$7$?!#\e(B
-(2) default \e$B$N>l9g!"4X?t\e(B q-encoding-encode-string-for-phrase \e$B$r8F$V$h\e(B
- \e$B$&$K!"4X?t\e(B q-encoding-encode-string \e$B$r=$@5$7$?!#\e(B
-----------------------------
-
-
-* tm
-
-** tm/tiny-mime.el
-----------------------------
-revision 6.2
-date: 1995/08/27 19:05:07; author: morioka; state: Exp; lines: +3 -2
-\e$BDj?t\e(B mime/tspecials \e$B$rDj5A$7!"$3$l$rMQ$$$FDj?t\e(B mime/token-regexp \e$B$rDj\e(B
-\e$B5A$9$k$h$&$K$7$?!#\e(B
-----------------------------
-revision 6.1
-date: 1995/08/27 17:42:42; author: morioka; state: Exp; lines: +1 -2
-(require 'tl-num) \e$B$r=|5n$7$?!#\e(B
-----------------------------
-revision 6.0
-date: 1995/08/27 17:22:36; author: morioka; state: Exp; lines: +10 -10
-\e$B4X?t\e(B mime/encode-string \e$B$K$*$$$FITMW$J>r7o$r=|5n$7$?!#\e(B
-----------------------------
-revision 5.22
-date: 1995/08/27 17:17:38; author: morioka; state: Exp; lines: +15 -175
-encode \e$B$K$b\e(B mel \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-revision 5.21
-date: 1995/08/27 14:22:54; author: morioka; state: Exp; lines: +4 -3
-\e$BDj?t\e(B mime/charset-regexp \e$B$NIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
-revision 5.20
-date: 1995/08/27 13:35:27; author: morioka; state: Exp; lines: +25 -8
-(1) \e$B4X?t\e(B mime/decode-encoded-text \e$B$r\e(B tm-{nemacs,orig,mule}.el \e$B$+$i0\$7\e(B
- \e$B$?!#\e(B
-(2) \e$B4X?t\e(B mime/decode-encoded-text \e$B$G\e(B mel \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-revision 5.19
-date: 1995/08/26 23:11:06; author: morioka; state: Exp; lines: +2 -2
-\e$B4X?t\e(B mime/decode-encoded-word \e$B$K$*$$$F!"\e(Bencoding \e$B$rBgJ8;z$K@55,2=$9$k\e(B
-\e$B$h$&$K$7$?!#\e(B
-----------------------------
-
-** tm/tm-comp.el
-----------------------------
-revision 6.8
-date: 1995/08/30 00:40:26; author: morioka; state: Exp; lines: +8 -80
-(1) GNUS 4.* \e$BMQ$N@_Dj$r\e(B tm-gnus4.el \e$B$K0\$7$?!#\e(B
-(2) \e$BJQ?t\e(B mime/message-after-send-hook-alist \e$B$NCMIt$r\e(B quote \e$B$7$J$$$h$&\e(B
- \e$B$K$7$?!#\e(B
-----------------------------
-
-** tm/tm-mule.el
-----------------------------
-revision 6.4
-date: 1995/08/27 13:33:13; author: morioka; state: Exp; lines: +6 -13
-\e$B4X?t\e(B mime/decode-encoded-text \e$B$r\e(B tiny-mime.el \e$B$K0\$7$?!#\e(B
-----------------------------
-
-** tm/tm-nemacs.el
-----------------------------
-revision 6.3
-date: 1995/08/27 14:24:22; author: morioka; state: Exp; lines: +12 -18
-(1) \e$B$G$-$k$@$1\e(B string= \e$B$r;H$&$h$&$K$7$?!#\e(B
-(2) \e$B$G$-$k$@$1Dj?t$rMQ$$$k$h$&$K$7$?!#\e(B
-----------------------------
-revision 6.2
-date: 1995/08/27 13:31:02; author: morioka; state: Exp; lines: +11 -20
-\e$B4X?t\e(B mime/decode-encoded-text \e$B$r\e(B tiny-mime.el \e$B$K0\$7$?!#\e(B
-----------------------------
-
-** tm/tm-orig.el
-----------------------------
-revision 6.3
-date: 1995/08/27 14:26:18; author: morioka; state: Exp; lines: +13 -17
-\e$B$G$-$k$@$1\e(B string= \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-revision 6.2
-date: 1995/08/27 13:32:02; author: morioka; state: Exp; lines: +1 -14
-\e$B4X?t\e(B mime/decode-encoded-text \e$B$r\e(B tiny-mime.el \e$B$K0\$7$?!#\e(B
-----------------------------
-
-** tm/tm-view.el
-----------------------------
-revision 6.74
-date: 1995/08/27 19:05:58; author: morioka; state: Exp; lines: +1 -4
-\e$BDj?t\e(B mime/token-regexp \e$B$O\e(B tiny-mime.el \e$B$NDj5A$rMQ$$$k$h$&$K$7$?!#\e(B
-----------------------------
-
-
-* tm/gnus
-
- Version 6.16 \e$B$rE:IU$7$?!#\e(B
-
-** tm/gnus/tm-gnus4.el
-----------------------------
-revision 6.1
-date: 1995/08/30 00:41:17; author: morioka; state: Exp; lines: +98 -1
-tm-comp \e$BMQ$N@_Dj$rDI2C$7$?!#\e(B
-----------------------------
-
-** tm/gnus/tm-dgnus.el
-----------------------------
-revision 6.16
-date: 1995/08/30 02:44:11; author: morioka; state: Exp; lines: +14 -1
-tm-comp \e$BMQ$N@_Dj$rDI2C$7$?!#\e(B
-----------------------------
+++ /dev/null
-* tm
-
- Fixed mk-tm.
-
-tm/tm-view.el
-----------------------------
-revision 6.76
-date: 1995/08/31 15:05:50; author: morioka; state: Exp; lines: +6 -2
-Fixed function `mime-viewer/make-preview-buffer' about using of function
-`mime-viewer/get-subject'.
-----------------------------
-revision 6.75
-date: 1995/08/31 14:10:04; author: morioka; state: Exp; lines: +81 -61
-Show content-subject in body part of preview-buffer for single part
-hidden body message. So separated content-subject inserter from
-function `mime-viewer/default-content-subject-function' to function
-`mime-viewer/insert-content-subject'.
-----------------------------
-
-tm/tm-comp.el
-----------------------------
-revision 6.10
-date: 1995/08/30 05:37:50; author: morioka; state: Exp; lines: +5 -6
-Rewrote regexps of constant `mime/message-nuke-headers' and constant
-`mime/message-blind-headers'.
-----------------------------
-revision 6.9
-date: 1995/08/30 05:01:46; author: morioka; state: Exp; lines: +46 -1
-Defined function `tm-comp::mime-insert-file' to expand parameter
-expression of variable `mime-file-types'.
-----------------------------
-
-
-* tm/gnus
-
- Attached version 6.17.
-
- Fixed mk-tgnus.
-
-tm/gnus/tm-dgnus.el
-----------------------------
-revision 6.17
-date: 1995/08/31 05:55:52; author: morioka; state: Exp; lines: +13 -5
-According to Mr.Nishijima <racsho@cpdc.canon.co.jp>'s report,
-measured to (ding) GNUS 0.99.28 changes.
-----------------------------
+++ /dev/null
-* tm
-
- mk-tm \e$B$r=$@5$7$?!#\e(B
-
-tm/tm-view.el
-----------------------------
-revision 6.76
-date: 1995/08/31 15:05:50; author: morioka; state: Exp; lines: +6 -2
-\e$B4X?t\e(B mime-viewer/make-preview-buffer \e$B$K$*$1$k!"4X?t\e(B
-mime-viewer/get-subject \e$B$N;H$$J}$K4X$9$kIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
-revision 6.75
-date: 1995/08/31 14:10:04; author: morioka; state: Exp; lines: +81 -61
-single part \e$B$G\e(B body \e$B$,I=<($5$l$J$$\e(B message \e$B$N\e(B body \e$BIt$K\e(B
-content-subject \e$B$rI=<($9$k$h$&$K$7$?!#$3$N$?$a!"4X?t\e(B
-mime-viewer/default-content-subject-function \e$B$N\e(B content-subject \e$BI=<(It\e(B
-\e$B$r4X?t\e(B mime-viewer/insert-content-subject \e$B$KJ,N%$7$?!#\e(B
-----------------------------
-
-tm/tm-comp.el
-----------------------------
-revision 6.10
-date: 1995/08/30 05:37:50; author: morioka; state: Exp; lines: +5 -6
-\e$BDj?t\e(B mime/message-nuke-headers \e$B$HDj?t\e(B mime/message-blind-headers \e$B$N@5\e(B
-\e$B5,I=8=$r=q$-D>$7$?!#\e(B
-----------------------------
-revision 6.9
-date: 1995/08/30 05:01:46; author: morioka; state: Exp; lines: +46 -1
-\e$B4X?t\e(B tm-comp::mime-insert-file \e$B$rDj5A$7!"JQ?t\e(B mime-file-types \e$B$N\e(B
-parameters \e$B$r3HD%$7$?!#\e(B
-----------------------------
-
-
-* tm/gnus
-
- Version 6.17 \e$B$rE:IU$7$?!#\e(B
-
- mk-tgnus \e$B$r=$@5$7$?!#\e(B
-
-tm/gnus/tm-dgnus.el
-----------------------------
-revision 6.17
-date: 1995/08/31 05:55:52; author: morioka; state: Exp; lines: +13 -5
-\e$B@>Eg\e(B \e$B9'FA\e(B <racsho@cpdc.canon.co.jp> \e$B$5$s$N;XE&$K=>$$!"\e(B(ding) GNUS
-0.99.28 \e$B$KBP1~$7$?!#\e(B
-----------------------------
+++ /dev/null
-* tl
-
- Attached version 6.6.
-
-tl/tl-str.el
-----------------------------
-revision 6.6
-date: 1995/08/31 20:11:08; author: morioka; state: Exp; lines: +5 -2
-Fixed a problem of function `get-version-string'.
-----------------------------
-
-
-* tm/gnus
-
- Attached version 6.18.
-
- - Fixed mk-tgnus.
- - Created load-path setting file for GNUS 5.*, `g5-path'.
-
-tm/gnus/tm-gnus3.el
-----------------------------
-revision 6.1
-date: 1995/08/31 20:12:49; author: morioka; state: Exp; lines: +32 -4
-Defined constant `tm-gnus/RCS-ID' and constant `tm-gnus/version' in
-this module.
-----------------------------
-
-tm/gnus/tm-gnus4.el
-----------------------------
-revision 6.2
-date: 1995/08/31 20:14:33; author: morioka; state: Exp; lines: +28 -1
-Defined constant `tm-gnus/RCS-ID' and constant `tm-gnus/version' in
-this module.
-----------------------------
-
-tm/gnus/tm-ognus.el
-----------------------------
-revision 6.1
-date: 1995/08/31 20:13:47; author: morioka; state: Exp; lines: +8 -13
-Moved definition of version constants to tm-gnus3.el and tm-gnus4.el.
-----------------------------
-
-tm/gnus/tm-dgnus.el
-----------------------------
-revision 6.18
-date: 1995/08/31 20:15:50; author: morioka; state: Exp; lines: +3 -185
-Moved major definition to tm-gnus5.el, and added (require 'tm-gnus5).
-----------------------------
-
-tm/gnus/tm-gnus5.el
-----------------------------
-revision 6.18
-date: 1995/08/31 20:19:42; author: morioka; state: Exp;
-Created as module for GNUS 5.*. Major definition is equal to
-tm-dgnus.el.
-----------------------------
-
-tm/gnus/tm-gnus.el
-----------------------------
-revision 6.2
-date: 1995/08/31 20:21:22; author: morioka; state: Exp; lines: +12 -2
-Separated setting for tm-gnus5 from setting for tm-dgnus.
-----------------------------
+++ /dev/null
-* tl
-
- Version 6.6 \e$B$rE:IU$7$?!#\e(B
-
-tl/tl-str.el
-----------------------------
-revision 6.6
-date: 1995/08/31 20:11:08; author: morioka; state: Exp; lines: +5 -2
-\e$B4X?t\e(B get-version-string \e$B$NIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
-
-
-* tm/gnus
-
- Version 6.18 \e$B$rE:IU$7$?!#\e(B
-
- - mk-tgnus \e$B$r=$@5$7$?!#\e(B
- - GNUS 5.* \e$BMQ$N\e(B loadpath \e$B@_Dj\e(B file `g5-path' \e$B$r?7@_$7$?!#\e(B
-
-tm/gnus/tm-gnus3.el
-----------------------------
-revision 6.1
-date: 1995/08/31 20:12:49; author: morioka; state: Exp; lines: +32 -4
-\e$BDj?t\e(B tm-gnus/RCS-ID \e$B$*$h$S!"Dj?t\e(B tm-gnus/version \e$B$r$3$NCf$GDj5A$9$k$h\e(B
-\e$B$&$K$7$?!#\e(B
-----------------------------
-
-tm/gnus/tm-gnus4.el
-----------------------------
-revision 6.2
-date: 1995/08/31 20:14:33; author: morioka; state: Exp; lines: +28 -1
-\e$BDj?t\e(B tm-gnus/RCS-ID \e$B$*$h$S!"Dj?t\e(B tm-gnus/version \e$B$r$3$NCf$GDj5A$9$k$h\e(B
-\e$B$&$K$7$?!#\e(B
-----------------------------
-
-tm/gnus/tm-ognus.el
-----------------------------
-revision 6.1
-date: 1995/08/31 20:13:47; author: morioka; state: Exp; lines: +8 -13
-version \e$BDj?t$NDj5A$O\e(B tm-gnus3.el \e$B$*$h$S\e(B tm-gnus4.el \e$B$NCf$G9T$J$&$h$&$K\e(B
-\e$B$7$?!#\e(B
-----------------------------
-
-tm/gnus/tm-dgnus.el
-----------------------------
-revision 6.18
-date: 1995/08/31 20:15:50; author: morioka; state: Exp; lines: +3 -185
-\e$BDj5A$NBgItJ,$r\e(B tm-gnus5.el \e$B$K0\$7!"\e(Btm-gnus5 \e$B$r\e(B require \e$B$9$k$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/gnus/tm-gnus5.el
-----------------------------
-revision 6.18
-date: 1995/08/31 20:19:42; author: morioka; state: Exp;
-GNUS 5.* \e$BMQ$N\e(B module \e$B$H$7$F?7@_$7$?!#@_Dj$NBgItJ,$O\e(B tm-dgnus.el \e$B$HF1$8\e(B
-\e$B$G$"$k!#\e(B
-----------------------------
-
-tm/gnus/tm-gnus.el
-----------------------------
-revision 6.2
-date: 1995/08/31 20:21:22; author: morioka; state: Exp; lines: +12 -2
-tm-gnus5 \e$BMQ$N@_Dj$r\e(B tm-dgnus \e$BMQ$N@_Dj$+$iJ,$1$?!#\e(B
-----------------------------
+++ /dev/null
-* tm
-
- - Modified tm-view manual, a little.
- - Wrote tm-gnus manual.
- - Added a comment for gnus5 to tm/Makefile.
+++ /dev/null
-* tm
-
- - tm-view \e$B$N@bL@=q$r>/$7=$@5$7$?!#\e(B
- - tm-gnus \e$B$N@bL@=q$r=q$$$?!#\e(B
- - Makefile \e$B$K\e(B gnus5 \e$BMQ$N\e(B comment \e$B$r2C$($?!#\e(B
+++ /dev/null
-* tm
-
- - Abolished tm-misc.el and created tm-def.el.
- - So fixed tm/Makefile, tm/mk-tm, tm/README.eng,
- tm/doc/tm_ja.texi and tm/doc/tm_en.texi.
-
-tm/tiny-mime.el
-----------------------------
-revision 6.4
-date: 1995/09/04 01:16:45; author: morioka; state: Exp; lines: +2 -6
-Definition of constant `mime/tspecials', `mime/token-regexp' and
-`mime/charset-regexp' were moved to tm-def.el.
-----------------------------
-revision 6.3
-date: 1995/09/04 01:09:59; author: morioka; state: Exp; lines: +2 -10
-Requiring part of tm-nemacs, tm-orig and tm-mule were moved to tm-def,
-and required tm-def.
-----------------------------
-
-tm/tm-comp.el
-----------------------------
-revision 6.11
-date: 1995/09/04 00:47:37; author: morioka; state: Exp; lines: +1 -2
-Deleted (require 'tm-misc).
-----------------------------
-
-tm/tm-def.el
-----------------------------
-revision 3.0
-date: 1995/09/04 01:17:27; author: morioka; state: Exp; lines: +9 -1
-Definition of constant `mime/tspecials', `mime/token-regexp' and
-`mime/charset-regexp' were moved from tiny-mime.el.
-----------------------------
-revision 2.0
-date: 1995/09/04 01:11:03; author: morioka; state: Exp; lines: +10 -1
-Requiring part of tm-nemacs, tm-orig and tm-mule were moved from
-tiny-mime.el.
-----------------------------
-revision 1.1
-date: 1995/09/04 00:48:04; author: morioka; state: Exp;
-Created tm-def.el.
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 6.77
-date: 1995/09/04 00:48:30; author: morioka; state: Exp; lines: +2 -2
-Abolished tm-misc, and required tm-def.
-----------------------------
-
-
-* tm/mh-e
-
- Attached version 6.24.
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 6.24
-date: 1995/09/02 06:02:20; author: morioka; state: Exp; lines: +10 -3
-Deleted (require 'tm-misc)
-----------------------------
-
-
-* tm/gnus
-
- Attached version 6.19.
-
-tm/gnus/tm-ognus.el
-----------------------------
-revision 6.8
-date: 1995/09/02 07:40:13; author: morioka; state: Exp; lines: +3 -2
-Required emu and tiny-mime instead of tm-misc.
-----------------------------
-revision 6.7
-date: 1995/09/02 07:26:27; author: morioka; state: Exp; lines: +4 -4
-Function `tm-gnus/toggle-mime-header-decoding-mode' was renamed to
-`tm-gnus/toggle-decoding-mode'.
-----------------------------
-revision 6.6
-date: 1995/09/02 07:24:30; author: morioka; state: Exp; lines: +6 -6
-Function `tm-gnus/set-mime-header-decoding-mode' was renamed to
-`tm-gnus/set-decoding-mode'.
-----------------------------
-revision 6.5
-date: 1995/09/02 07:20:29; author: morioka; state: Exp; lines: +7 -7
-Variable `mime/header-decoding-mode' was renamed to
-`tm-gnus/decoding-mode'.
-----------------------------
-revision 6.4
-date: 1995/09/02 07:04:22; author: morioka; state: Exp; lines: +2 -2
-Function `mime/add-header-decoding-mode-to-mode-line' was renamed to
-`tm-gnus/add-decoding-mode-to-mode-line'.
-----------------------------
-revision 6.3
-date: 1995/09/02 06:58:20; author: morioka; state: Exp; lines: +3 -1
-Definition of variable `mime/header-decoding-mode' was moved from
-tm-misc.el.
-----------------------------
-revision 6.2
-date: 1995/09/02 06:56:32; author: morioka; state: Exp; lines: +9 -1
-Function `mime/add-header-decoding-mode-to-mode-line' was moved from
-tm-misc.el.
-----------------------------
-
-tm/gnus/tm-gnus3.el
-----------------------------
-revision 6.8
-date: 1995/09/04 02:43:18; author: morioka; state: Exp; lines: +3 -3
-Fixed a problem of function `tm-gnus/decode-encoded-word-if-you-need'.
-----------------------------
-revision 6.7
-date: 1995/09/04 02:34:10; author: morioka; state: Exp; lines: +5 -2
-When dynamic bound variable `all-headers' is exist, funxtion
-`tm-gnus/decode-encoded-word-if-you-need' decodes encoded-word if it
-is nil.
-----------------------------
-revision 6.6
-date: 1995/09/02 07:27:19; author: morioka; state: Exp; lines: +2 -3
-Function `tm-gnus/toggle-mime-header-decoding-mode' was renamed to
-`tm-gnus/toggle-decoding-mode'.
-----------------------------
-revision 6.5
-date: 1995/09/02 07:20:53; author: morioka; state: Exp; lines: +2 -2
-Variable `mime/header-decoding-mode' was renamed to
-`tm-gnus/decoding-mode'.
-----------------------------
-revision 6.4
-date: 1995/09/02 07:04:51; author: morioka; state: Exp; lines: +3 -3
-Function `mime/add-header-decoding-mode-to-mode-line' was renamed to
-`tm-gnus/add-decoding-mode-to-mode-line'.
-----------------------------
-revision 6.3
-date: 1995/09/02 06:52:00; author: morioka; state: Exp; lines: +4 -3
-Function `mime/decode-message-header-if-you-need' was renamed to
-`tm-gnus/decode-encoded-word-if-you-need'.
-----------------------------
-revision 6.2
-date: 1995/09/02 06:47:53; author: morioka; state: Exp; lines: +6 -1
-Function `mime/decode-message-header-if-you-need' was moved from
-tm-misc.el.
-----------------------------
-
-tm/gnus/tm-gnus4.el
-----------------------------
-revision 6.7
-date: 1995/09/02 07:28:38; author: morioka; state: Exp; lines: +2 -2
-Function `tm-gnus/toggle-mime-header-decoding-mode' was renamed to
-`tm-gnus/toggle-decoding-mode'.
-----------------------------
-revision 6.6
-date: 1995/09/02 07:21:01; author: morioka; state: Exp; lines: +2 -2
-Function `mime/header-decoding-mode' was renamed to
-`tm-gnus/decoding-mode'.
-----------------------------
-revision 6.5
-date: 1995/09/02 07:04:38; author: morioka; state: Exp; lines: +2 -2
-Function `mime/add-header-decoding-mode-to-mode-line' was renamed to
-`tm-gnus/add-decoding-mode-to-mode-line'.
-----------------------------
-revision 6.4
-date: 1995/09/02 06:35:10; author: morioka; state: Exp; lines: +4 -1
-Fixed forgot
-(add-hook 'gnus-article-prepare-hook
- (function tm-gnus/decode-encoded-word-if-you-need) t)
-(^_^;
-----------------------------
-revision 6.3
-date: 1995/09/02 06:21:41; author: morioka; state: Exp; lines: +5 -3
-When variable `gnus-have-all-headers' is t, does not decode
-encoded-word.
-----------------------------
-
-tm/gnus/tm-gnus5.el
-----------------------------
-revision 6.19
-date: 1995/09/02 05:18:08; author: morioka; state: Exp; lines: +8 -7
-Fixed a problem of function `tm-gnus/summary-toggle-header'.
-----------------------------
+++ /dev/null
-* tm
-
- - tm-misc.el \e$B$rGQ;_$7!"\e(Btm-def.el \e$B$r?7@_$7$?!#\e(B
- - \e$B$3$N$3$H$KH<$$!"\e(Btm/Makefile, tm/mk-tm, tm/README.eng,
- tm/doc/tm_ja.texi, tm/doc/tm_en.texi \e$B$r=$@5$7$?!#\e(B
-
-tm/tiny-mime.el
-----------------------------
-revision 6.4
-date: 1995/09/04 01:16:45; author: morioka; state: Exp; lines: +2 -6
-\e$BDj?t\e(B mime/tspecials, mime/token-regexp, mime/charset-regexp \e$B$NDj5A$r\e(B
-tm-def.el \e$B$K0\$7$?!#\e(B
-----------------------------
-revision 6.3
-date: 1995/09/04 01:09:59; author: morioka; state: Exp; lines: +2 -10
-tm-nemacs, tm-orig, tm-mule \e$B$r\e(B require \e$B$9$kItJ,$r\e(B tm-def \e$B$K0\$7!"\e(B
-tm-def \e$B$r\e(B require \e$B$9$k$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/tm-comp.el
-----------------------------
-revision 6.11
-date: 1995/09/04 00:47:37; author: morioka; state: Exp; lines: +1 -2
-tm-misc \e$B$r\e(B require \e$B$7$J$$$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/tm-def.el
-----------------------------
-revision 3.0
-date: 1995/09/04 01:17:27; author: morioka; state: Exp; lines: +9 -1
-\e$BDj?t\e(B mime/tspecials, mime/token-regexp, mime/charset-regexp \e$B$NDj5A$r\e(B
-tiny-mime.el \e$B$+$i0\$7$?!#\e(B
-----------------------------
-revision 2.0
-date: 1995/09/04 01:11:03; author: morioka; state: Exp; lines: +10 -1
-tm-nemacs, tm-orig, tm-mule \e$B$r\e(B require \e$B$9$kItJ,$r\e(B tiny-mime.el \e$B$+$i0\\e(B
-\e$B$7$?!#\e(B
-----------------------------
-revision 1.1
-date: 1995/09/04 00:48:04; author: morioka; state: Exp;
-tm-def.el \e$B$r?7@_$7$?!#\e(B
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 6.77
-date: 1995/09/04 00:48:30; author: morioka; state: Exp; lines: +2 -2
-tm-misc \e$B$rGQ;_$7!"\e(Btm-def \e$B$r\e(B require \e$B$9$k$h$&$K$7$?!#\e(B
-----------------------------
-
-
-* tm/mh-e
-
- Version 6.24 \e$B$rE:IU$7$?!#\e(B
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 6.24
-date: 1995/09/02 06:02:20; author: morioka; state: Exp; lines: +10 -3
-tm-misc \e$B$r\e(B require \e$B$9$k$N$r$d$a$?!#\e(B
-----------------------------
-
-
-* tm/gnus
-
- Version 6.19 \e$B$rE:IU$7$?!#\e(B
-
-tm/gnus/tm-ognus.el
-----------------------------
-revision 6.8
-date: 1995/09/02 07:40:13; author: morioka; state: Exp; lines: +3 -2
-tm-misc \e$B$r\e(B require \e$B$9$k$N$r$d$a!"Be$o$j$K!"\e(Bemu \e$B$H\e(B tiny-mime \e$B$r\e(B require
-\e$B$9$k$h$&$K$7$?!#\e(B
-----------------------------
-revision 6.7
-date: 1995/09/02 07:26:27; author: morioka; state: Exp; lines: +4 -4
-\e$B4X?t\e(B tm-gnus/toggle-mime-header-decoding-mode \e$B$r\e(B
-tm-gnus/toggle-decoding-mode \e$B$K2~L>$7$?!#\e(B
-----------------------------
-revision 6.6
-date: 1995/09/02 07:24:30; author: morioka; state: Exp; lines: +6 -6
-\e$B4X?t\e(B tm-gnus/set-mime-header-decoding-mode \e$B$r\e(B
-tm-gnus/set-decoding-mode \e$B$K2~L>$7$?!#\e(B
-----------------------------
-revision 6.5
-date: 1995/09/02 07:20:29; author: morioka; state: Exp; lines: +7 -7
-\e$BJQ?t\e(B mime/header-decoding-mode \e$B$r\e(B tm-gnus/decoding-mode \e$B$K2~L>$7$?!#\e(B
-----------------------------
-revision 6.4
-date: 1995/09/02 07:04:22; author: morioka; state: Exp; lines: +2 -2
-\e$B4X?t\e(B mime/add-header-decoding-mode-to-mode-line \e$B$r\e(B
-tm-gnus/add-decoding-mode-to-mode-line \e$B$K2~L>$7$?!#\e(B
-----------------------------
-revision 6.3
-date: 1995/09/02 06:58:20; author: morioka; state: Exp; lines: +3 -1
-\e$BJQ?t\e(B mime/header-decoding-mode \e$B$NDj5A$r\e(B tm-misc.el \e$B$+$i0\$7$?!#\e(B
-----------------------------
-revision 6.2
-date: 1995/09/02 06:56:32; author: morioka; state: Exp; lines: +9 -1
-\e$B4X?t\e(B mime/add-header-decoding-mode-to-mode-line \e$B$r\e(B tm-misc.el \e$B$+$i0\$7\e(B
-\e$B$?!#\e(B
-----------------------------
-
-tm/gnus/tm-gnus3.el
-----------------------------
-revision 6.8
-date: 1995/09/04 02:43:18; author: morioka; state: Exp; lines: +3 -3
-\e$B4X?t\e(B tm-gnus/decode-encoded-word-if-you-need \e$B$NIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
-revision 6.7
-date: 1995/09/04 02:34:10; author: morioka; state: Exp; lines: +5 -2
-\e$B4X?t\e(B tm-gnus/decode-encoded-word-if-you-need \e$B$K$*$$$F!"F0E*JQ?t\e(B
-all-headers \e$B$,B8:_$9$k;~$O$3$l$,\e(B nil \e$B$N;~$N$_!"\e(Bencoded-word \e$B$r\e(B decode
-\e$B$9$k$h$&$K$7$?!#\e(B
-----------------------------
-revision 6.6
-date: 1995/09/02 07:27:19; author: morioka; state: Exp; lines: +2 -3
-\e$B4X?t\e(B tm-gnus/toggle-mime-header-decoding-mode \e$B$r\e(B
-tm-gnus/toggle-decoding-mode \e$B$K2~L>$7$?!#\e(B
-----------------------------
-revision 6.5
-date: 1995/09/02 07:20:53; author: morioka; state: Exp; lines: +2 -2
-\e$BJQ?t\e(B mime/header-decoding-mode \e$B$r\e(B tm-gnus/decoding-mode \e$B$K2~L>$7$?!#\e(B
-----------------------------
-revision 6.4
-date: 1995/09/02 07:04:51; author: morioka; state: Exp; lines: +3 -3
-\e$B4X?t\e(B mime/add-header-decoding-mode-to-mode-line \e$B$r\e(B
-tm-gnus/add-decoding-mode-to-mode-line \e$B$K2~L>$7$?!#\e(B
-----------------------------
-revision 6.3
-date: 1995/09/02 06:52:00; author: morioka; state: Exp; lines: +4 -3
-\e$B4X?t\e(B mime/decode-message-header-if-you-need \e$B$r\e(B
-tm-gnus/decode-encoded-word-if-you-need \e$B$K2~L>$7$?!#\e(B
-----------------------------
-revision 6.2
-date: 1995/09/02 06:47:53; author: morioka; state: Exp; lines: +6 -1
-\e$B4X?t\e(B mime/decode-message-header-if-you-need \e$B$r\e(B tm-misc.el \e$B$+$i0\$7$?!#\e(B
-----------------------------
-
-tm/gnus/tm-gnus4.el
-----------------------------
-revision 6.7
-date: 1995/09/02 07:28:38; author: morioka; state: Exp; lines: +2 -2
-\e$B4X?t\e(B tm-gnus/toggle-mime-header-decoding-mode \e$B$r\e(B
-tm-gnus/toggle-decoding-mode \e$B$K2~L>$7$?!#\e(B
-----------------------------
-revision 6.6
-date: 1995/09/02 07:21:01; author: morioka; state: Exp; lines: +2 -2
-\e$BJQ?t\e(B mime/header-decoding-mode \e$B$r\e(B tm-gnus/decoding-mode \e$B$K2~L>$7$?!#\e(B
-----------------------------
-revision 6.5
-date: 1995/09/02 07:04:38; author: morioka; state: Exp; lines: +2 -2
-\e$B4X?t\e(B mime/add-header-decoding-mode-to-mode-line \e$B$r\e(B
-tm-gnus/add-decoding-mode-to-mode-line \e$B$K2~L>$7$?!#\e(B
-----------------------------
-revision 6.4
-date: 1995/09/02 06:35:10; author: morioka; state: Exp; lines: +4 -1
-\e$BJQ?t\e(B gnus-article-prepare-hook \e$B$K4X?t\e(B
-tm-gnus/decode-encoded-word-if-you-need \e$B$r\e(B add-hook \e$B$9$k$N$rK:$l$F$$$?\e(B
-\e$B$N$r=$@5!#\e(B(^_^;
-----------------------------
-revision 6.3
-date: 1995/09/02 06:21:41; author: morioka; state: Exp; lines: +5 -3
-\e$BJQ?t\e(B gnus-have-all-headers \e$B$,\e(B t \e$B$N;~$O\e(B encoded-word \e$B$r\e(B decode \e$B$7$J$$$h\e(B
-\e$B$&$K$7$?!#\e(B
-----------------------------
-
-tm/gnus/tm-gnus5.el
-----------------------------
-revision 6.19
-date: 1995/09/02 05:18:08; author: morioka; state: Exp; lines: +8 -7
-\e$B4X?t\e(B tm-gnus/summary-toggle-header \e$B$NIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
+++ /dev/null
-* tl
-
- Attached version 6.6.1.
-
-tl/emu-18.el
-----------------------------
-revision 4.0
-date: 1995/09/05 16:44:57; author: morioka; state: Exp; lines: +40 -1
-Created function `make-directory-internal' and function
-`make-directory'.
-----------------------------
-
-
-* mel
-
- Attached version 1.8.1.
-
- - Fixed mk-mel.
-
-
-* tm
-
- - Installer was changed.
- - Fixed TeXinfo files.
-
-tm/mime-setup.el
-----------------------------
-revision 6.2
-date: 1995/09/06 10:07:26; author: morioka; state: Exp; lines: +105 -72
-(1) Defined variable `mime-setup-use-signature'. If it is nil,
- mime-setup.el does not set up for signature.el.
-(2) Defined variable `mime-setup-signature-key' to set key to bind
- insert-signature.
-(3) Stopped every header encoding by mime.el.
-(4) Set up for extended mime-mode features by tm-comp.
-----------------------------
-
-
-* tm/gnus
-
- Attached version 6.20.1.
-
- - Fixed mk-tgnus.
-
-
-* tm/mh-e
-
- Attached version 6.24.1.
-
- - Fixed mk-tmh.
+++ /dev/null
-* tl
-
- Version 6.6.1 \e$B$rE:IU$7$?!#\e(B
-
-tl/emu-18.el
-----------------------------
-revision 4.0
-date: 1995/09/05 16:44:57; author: morioka; state: Exp; lines: +40 -1
-\e$B4X?t\e(B make-directory-internal \e$B$H4X?t\e(B make-directory \e$B$rDI2C$7$?!#\e(B
-----------------------------
-
-
-* mel
-
- Version 1.8.1 \e$B$rE:IU$7$?!#\e(B
-
- - mk-mel \e$B$r=$@5$7$?!#\e(B
-
-
-* tm
-
- - installer \e$B$NJ}<0$rJQ99$7$?!#\e(B
- - TeXinfo \e$BHG@bL@=q$r=$@5$7$?!#\e(B
-
-tm/mime-setup.el
-----------------------------
-revision 6.2
-date: 1995/09/06 10:07:26; author: morioka; state: Exp; lines: +105 -72
-(1) \e$BJQ?t\e(B mime-setup-use-signature \e$B$rDj5A$7!"$3$l$,\e(B nil \e$B$N;~$O\e(B
- signature.el \e$B$N@_Dj$r9T$J$o$J$$$h$&$K$7$?!#\e(B
-(2) \e$BJQ?t\e(B mime-setup-signature-key \e$B$rDj5A$7!"\e(Binsert-signature \e$B$r\e(B bind
- \e$B$9$k\e(B key \e$B$r@_Dj$G$-$k$h$&$K$7$?!#\e(B
-(3) mime.el \e$B$G$O0l@Z\e(B header \e$B$N\e(B encode \e$B$r9T$J$o$J$$$h$&$K$7$?!#\e(B
-(4) tm-comp \e$B$r\e(B load \e$B$7$F$$$k;~$O!"\e(Btm-comp \e$B$G3HD%$5$l$?\e(B mime-mode \e$B$N5!\e(B
- \e$BG=$r;H$C$?@_Dj$r9T$J$&$h$&$K$7$?!#\e(B
-----------------------------
-
-
-* tm/gnus
-
- Version 6.20.1 \e$B$rE:IU$7$?!#\e(B
-
- - mk-tgnus \e$B$r=$@5$7$?!#\e(B
-
-
-* tm/mh-e
-
- Version 6.24.1 \e$B$rE:IU$7$?!#\e(B
-
- - mk-tmh \e$B$r=$@5$7$?!#\e(B
+++ /dev/null
-* tm
-
- - Fixed README.eng.
-
-
-* tm/gnus
-
- Attached version 6.21.
-
-tm/gnus/tm-gnus5.el
-----------------------------
-revision 6.21
-date: 1995/09/07 17:07:41; author: morioka; state: Exp; lines: +21 -1
-Defined quitting method for tm-view.
-----------------------------
+++ /dev/null
-* tm
-
- - README.eng \e$B$r=$@5$7$?!#\e(B
-
-
-* tm/gnus
-
- Version 6.21 \e$B$rE:IU$7$?!#\e(B
-
-tm/gnus/tm-gnus5.el
-----------------------------
-revision 6.21
-date: 1995/09/07 17:07:41; author: morioka; state: Exp; lines: +21 -1
-tm-view \e$B$N\e(B quitting method \e$B$r@_Dj$7$?!#\e(B
-----------------------------
+++ /dev/null
-* tm
-
-tm/tiny-mime.el
-----------------------------
-revision 6.6
-date: 1995/09/04 10:33:27; author: morioka; state: Exp; lines: +12 -15
-Created function `mime/exist-encoded-word-in-subject'. Function
-`mime/encode-message-header' was changed to use it.
-----------------------------
-revision 6.5
-date: 1995/09/04 10:14:13; author: morioka; state: Exp; lines: +1 -22
-Deleted unnecessary constants about Base64 and Quoted-Printable.
-----------------------------
-
-tm/tm-def.el
-----------------------------
-revision 4.1
-date: 1995/09/04 10:17:02; author: morioka; state: Exp; lines: +7 -7
-Changed names of constans about encoding-word.
-----------------------------
-revision 4.0
-date: 1995/09/04 10:15:01; author: morioka; state: Exp; lines: +31 -1
-Moved definitions of constants about Base64 and Quoted-Printable from
-tiny-mime.el, and modified a little.
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 6.78
-date: 1995/09/05 01:08:55; author: morioka; state: Exp; lines: +3 -12
-Moved quitting method for GNUS 4 to tm-gnus4.el.
-----------------------------
-
-
-* tm/gnus
-
- Attached version 6.20.
-
-tm/gnus/tm-gnus3.el
-----------------------------
-revision 6.9
-date: 1995/09/05 01:29:20; author: morioka; state: Exp; lines: +24 -17
-autoload tm-view instead of requiring.
-----------------------------
-
-tm/gnus/tm-gnus4.el
-----------------------------
-revision 6.8
-date: 1995/09/05 01:10:25; author: morioka; state: Exp; lines: +18 -1
-Defined quitting method for tm-view in this module.
-----------------------------
-
-tm/gnus/tm-gnus5.el
-----------------------------
-revision 6.20
-date: 1995/09/04 10:53:07; author: morioka; state: Exp; lines: +2 -7
-Changed value of variable `gnus-show-mime-method' to simply (function
-mime/decode-message-header).
-----------------------------
+++ /dev/null
-* tm
-
-tm/tiny-mime.el
-----------------------------
-revision 6.6
-date: 1995/09/04 10:33:27; author: morioka; state: Exp; lines: +12 -15
-\e$B4X?t\e(B mime/exist-encoded-word-in-subject \e$B$rDI2C$7!"4X?t\e(B
-mime/encode-message-header \e$B$NCf$G$3$l$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-revision 6.5
-date: 1995/09/04 10:14:13; author: morioka; state: Exp; lines: +1 -22
-Base64 \e$B$H\e(B Quoted-Printable \e$B$K4X$9$kITMW$JDj?t$r:o=|$7$?!#\e(B
-----------------------------
-
-tm/tm-def.el
-----------------------------
-revision 4.1
-date: 1995/09/04 10:17:02; author: morioka; state: Exp; lines: +7 -7
-encoding-word \e$B$K4X$9$kDj?t$NL>A0$rJQ99$7$?!#\e(B
-----------------------------
-revision 4.0
-date: 1995/09/04 10:15:01; author: morioka; state: Exp; lines: +31 -1
-Base64 \e$B$H\e(B Quoted-Printable \e$B$K4X$9$kDj?t$r\e(B tiny-mime.el \e$B$+$i0\$7!">/$7\e(B
-\e$B=$@5$7$?!#\e(B
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 6.78
-date: 1995/09/05 01:08:55; author: morioka; state: Exp; lines: +3 -12
-GNUS 4 \e$BMQ$N\e(B quitting method \e$B$r\e(B tm-gnus4.el \e$B$K0\$7$?!#\e(B
-----------------------------
-
-
-* tm/gnus
-
- Version 6.20 \e$B$rE:IU$7$?!#\e(B
-
-tm/gnus/tm-gnus3.el
-----------------------------
-revision 6.9
-date: 1995/09/05 01:29:20; author: morioka; state: Exp; lines: +24 -17
-tm-view \e$B$r\e(B autoload \e$B$9$k$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/gnus/tm-gnus4.el
-----------------------------
-revision 6.8
-date: 1995/09/05 01:10:25; author: morioka; state: Exp; lines: +18 -1
-tm-view \e$B$N\e(B quitting method \e$B$3$NCf$GDj5A$9$k$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/gnus/tm-gnus5.el
-----------------------------
-revision 6.20
-date: 1995/09/04 10:53:07; author: morioka; state: Exp; lines: +2 -7
-\e$BJQ?t\e(B gnus-show-mime-method \e$B$NCM$rC1$K\e(B (function
-mime/decode-message-header) \e$B$H$7$?!#\e(B
-----------------------------
+++ /dev/null
-* tl
-
- Attached version 6.6.2.
-
- - installer was changed.
- - README.eng was rewrote.
-
-tl/emu-xemacs.el
-----------------------------
-revision 2.0
-date: 1995/09/08 17:47:54; author: morioka; state: Exp;
-Created to emulate Emacs 19 text-property features.
-(I referred gnus-ems.el of Gnus 5.0)
-----------------------------
-
-tl/emu.el
-----------------------------
-revision 2.0
-date: 1995/09/08 17:47:33; author: morioka; state: Exp; lines: +5 -1
-(require 'emu-xemacs) when it is XEmacs.
-----------------------------
-
-
-* mel
-
- Version 1.9 \e$B$rE:IU$7$?!#\e(B
-
-mel/mel-q.el
-----------------------------
-revision 1.9
-date: 1995/09/09 05:14:23; author: morioka; state: Exp; lines: +17 -25
-According to Yves Forkl <ysforkl@linguistik.uni-erlangen.de>'s bug
-report, I fixed a bug of function
-`quoted-printable-internal-encode-region'.
-----------------------------
-
-
-* tm
-
- - Modified Makefile because of tl installer was changed.
- - In README.eng, key bind description of mime/viewer-mode was
- changed.
-
-tm/tinyrich.el
-----------------------------
-revision 3.0
-date: 1995/09/08 17:29:38; author: morioka; state: Exp; lines: +2 -2
-Fixed a bug of function `mime/set-face-region' for Emacs 19.
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 6.79
-date: 1995/09/08 14:50:03; author: morioka; state: Exp; lines: +15 -1
-In Emacs 19 and XEmacs, mouse-button-2 is used to play the content
-under the mouse cursor.
-----------------------------
+++ /dev/null
-* tl
-
- Version 6.6.2 \e$B$rE:IU$7$?!#\e(B
-
- - installer \e$B$rJQ99$7$?!#\e(B
- - README.eng \e$B$r=q$-D>$7$?!#\e(B
-
-tl/emu-xemacs.el
-----------------------------
-revision 2.0
-date: 1995/09/08 17:47:54; author: morioka; state: Exp;
-Emacs 19 \e$B$N\e(B text-property \e$B4XO"$N\e(B emulation module \e$B$H$7$F:n@.$7$?!#\e(B
-\e$B!J\e(BGnus 5 \e$B$N\e(B gnus-ems.el \e$B$r;29M$K$7$?!K\e(B
-----------------------------
-
-tl/emu.el
-----------------------------
-revision 2.0
-date: 1995/09/08 17:47:33; author: morioka; state: Exp; lines: +5 -1
-XEmacs \e$B$N;~!"\e(Bemu-xemacs \e$B$r\e(B require \e$B$9$k$h$&$K$7$?!#\e(B
-----------------------------
-
-
-* mel
-
- Version 1.9 \e$B$rE:IU$7$?!#\e(B
-
-mel/mel-q.el
-----------------------------
-revision 1.9
-date: 1995/09/09 05:14:23; author: morioka; state: Exp; lines: +17 -25
-Yves Forkl <ysforkl@linguistik.uni-erlangen.de> \e$B$5$s$N;XE&$K=>$$!"4X?t\e(B
-quoted-printable-internal-encode-region \e$B$NIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
-
-
-* tm
-
- - tl \e$B$N\e(B installer \e$B$NJQ99$KH<$$!"\e(BMakefile \e$B$r=$@5$7$?!#\e(B
- - README.eng \e$B$N\e(B mime/viewer-mode \e$B$N\e(B key bind \e$B$N@bL@$r=$@5$7$?!#\e(B
-
-tm/tinyrich.el
-----------------------------
-revision 3.0
-date: 1995/09/08 17:29:38; author: morioka; state: Exp; lines: +2 -2
-Emacs 19 \e$BMQ$N4X?t\e(B mime/set-face-region \e$B$NIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 6.79
-date: 1995/09/08 14:50:03; author: morioka; state: Exp; lines: +15 -1
-Emacs 19 \e$B$H\e(B XEmacs \e$B$G$O\e(B mouse button 2 \e$B$G\e(B content \e$B$r\e(B play \e$B$G$-$k$h$&$K\e(B
-\e$B$7$?!#\e(B
-----------------------------
+++ /dev/null
-* mel
-
- Attached version 2.0.
-
-mel/me-q.el
-----------------------------
-revision 2.0
-date: 1995/09/11 11:33:47; author: morioka; state: Exp; lines: +20 -1
-I deleted function `quoted-printable-internal-decode-region' in
-mistake, so I revive it.
-----------------------------
-
-
-* tm
-
-tm/tm-mule.el
-----------------------------
-revision 6.5
-date: 1995/09/12 13:24:04; author: morioka; state: Exp; lines: +2 -2
-In function `mime/convert-string-to-emacs', fixed problem about
-undefined charset.
-----------------------------
-
-
-* tm/gnus
-
- Attached version 6.22.
-
-tm/gnus/tm-gnus3.el
-----------------------------
-revision 6.10
-date: 1995/09/11 07:20:29; author: morioka; state: Exp; lines: +2 -1
-Added (require 'tl-misc).
-----------------------------
-
-tm/gnus/tm-gnus4.el
-----------------------------
-revision 6.9
-date: 1995/09/11 07:20:46; author: morioka; state: Exp; lines: +2 -1
-According to MIYAZAKI Jun <miyazaki@jaist.ac.jp>'s suggestion, I added
-(require 'tl-misc).
-----------------------------
-
-tm/gnus/tm-gnus5.el
-----------------------------
-revision 6.22
-date: 1995/09/11 07:41:23; author: morioka; state: Exp; lines: +2 -1
-Added (require 'tl-misc).
-----------------------------
+++ /dev/null
-* mel
-
- Version 2.0 \e$B$rE:IU$7$?!#\e(B
-
-mel/me-q.el
-----------------------------
-revision 2.0
-date: 1995/09/11 11:33:47; author: morioka; state: Exp; lines: +20 -1
-\e$B4X?t\e(B quoted-printable-internal-decode-region \e$B$r4V0c$($F>C$7$F$$$?$N$r\e(B
-\e$BI|3h$5$;$?!#\e(B
-----------------------------
-
-
-* tm
-
-tm/tm-mule.el
-----------------------------
-revision 6.5
-date: 1995/09/12 13:24:04; author: morioka; state: Exp; lines: +2 -2
-\e$B4X?t\e(B mime/convert-string-to-emacs \e$B$NL$Dj5A\e(B charset \e$B$N<h$j07$$$K4X$9$k\e(B
-\e$BIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
-
-
-* tm/gnus
-
- Version 6.22 \e$B$rE:IU$7$?!#\e(B
-
-tm/gnus/tm-gnus3.el
-----------------------------
-revision 6.10
-date: 1995/09/11 07:20:29; author: morioka; state: Exp; lines: +2 -1
-(require 'tl-misc) \e$B$rDI2C$7$?!#\e(B
-----------------------------
-
-tm/gnus/tm-gnus4.el
-----------------------------
-revision 6.9
-date: 1995/09/11 07:20:46; author: morioka; state: Exp; lines: +2 -1
-\e$B5\:j\e(B \e$B=c\e(B <miyazaki@jaist.ac.jp> \e$B$5$s$N;XE&$K=>$$!"\e(B(require 'tl-misc) \e$B$r\e(B
-\e$BDI2C$7$?!#\e(B
-----------------------------
-
-tm/gnus/tm-gnus5.el
-----------------------------
-revision 6.22
-date: 1995/09/11 07:41:23; author: morioka; state: Exp; lines: +2 -1
-(require 'tl-misc) \e$B$rDI2C$7$?!#\e(B
-----------------------------
+++ /dev/null
-* tl
-
- Attached version 6.6.3.
-
-----------------------------
-revision 3.0
-date: 1995/09/10 13:31:51; author: morioka; state: Exp; lines: +20 -19
-Emacs 19 emulating functions were deleted.
-----------------------------
-
-* tm
-
-tm/tinyrich.el
-----------------------------
-revision 4.0
-date: 1995/09/10 13:35:41; author: morioka; state: Exp; lines: +10 -2
-Definition for XEmacs were added.
-----------------------------
-
-tm/tm-setup.el
-----------------------------
-revision 6.3
-date: 1995/09/10 15:45:42; author: morioka; state: Exp; lines: +23 -17
-Setting for tm-rich was added.
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 6.80
-date: 1995/09/09 08:54:54; author: morioka; state: Exp; lines: +26 -13
-Document string of function `mime/viewer-mode' was fixed.
-----------------------------
+++ /dev/null
-* tl
-
- Version 6.6.3 \e$B$rE:IU$7$?!#\e(B
-
-----------------------------
-revision 3.0
-date: 1995/09/10 13:31:51; author: morioka; state: Exp; lines: +20 -19
-Emacs 19 \e$B$HF1L>$N4X?t$rDj5A$9$k$N$O$d$a$?!#\e(B
-----------------------------
-
-* tm
-
-tm/tinyrich.el
-----------------------------
-revision 4.0
-date: 1995/09/10 13:35:41; author: morioka; state: Exp; lines: +10 -2
-XEmacs \e$BMQ$NDj5A$rDI2C$7$?!#\e(B
-----------------------------
-
-tm/tm-setup.el
-----------------------------
-revision 6.3
-date: 1995/09/10 15:45:42; author: morioka; state: Exp; lines: +23 -17
-tm-rich \e$B$N@_Dj$r9T$J$C$?!#\e(B
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 6.80
-date: 1995/09/09 08:54:54; author: morioka; state: Exp; lines: +26 -13
-\e$B4X?t\e(B mime/viewer-mode \e$B$N\e(B document string \e$B$r=$@5$7$?!#\e(B
-----------------------------
+++ /dev/null
-EMACS = nemacs
-NEMACS = nemacs
-MULE = mule
-
-TLEL = tl-18.el tl-header.el tl-list.el tl-str.el signature.el
-TLELC = ${TLEL:el=elc}
-TMEL = tm-misc.el
-TMELC = ${TMEL:el=elc}
-TMMEL = tm-view.el tm-rmail.el tm-comp.el
-TMMELC = ${TMMEL:el=elc}
-TMVEL = tm-rich.el tm-vm.el
-TMVELC = ${TMVEL:el=elc}
-
-#TLDIR = $(HOME)/lib/emacs18/lisp
-#TMDIR = $(HOME)/lib/emacs18/lisp/tm
-TLDIR = /usr/local/lib/emacs/local.lisp
-TMDIR = /usr/local/lib/emacs/local.lisp/tm
-
-
-.SUFFIXES: .el .elc
-
-.el.elc:
- $(EMACS) -batch -q . -f batch-byte-compile $<
-
-all: $(TLELC) tl-nemacs.elc tl-mule.elc \
- tiny-mime.elc $(TMELC) tm-nemacs.elc tm-mule.elc $(TMMELC) \
- tm-mh-e.elc tm-gnus.elc $(TMVELC)
-
-$(TLELC): $(TLEL)
-
-tl-nemacs.elc: tl-nemacs.el
-
-tl-mule.elc: tl-mule.el
-
-tiny-mime.elc: tiny-mime.el
-
-$(TMELC):
- $(EMACS) -batch -q . -l tiny-mime -f batch-byte-compile $<
-
-tm-nemacs.elc: tm-nemacs.el
- $(NEMACS) -batch -q . -l tiny-mime -f batch-byte-compile $<
-
-tm-mule.elc: tm-mule.el
- $(MULE) -batch -q . -f batch-byte-compile $<
-
-$(TMMELC):
- $(EMACS) -batch -q . -l tiny-mime -l tm-misc -f batch-byte-compile $<
-
-tm-gnus.elc: tm-gnus.el
- $(EMACS) -batch -q . -l tiny-mime -l tm-misc -l gnus \
- -f batch-byte-compile $<
-
-tm-mh-e.elc: tm-mh-e.el
- $(EMACS) -batch -q . -l tiny-mime -l tm-misc -l mh-e \
- -f batch-byte-compile $<
-
-$(TMVELC):
- $(EMACS) -batch -q . -l tiny-mime -l tm-misc -l tm-view \
- -f batch-byte-compile $<
-
-install: all tl-install tm-install
-
-tl-install:
- -chmod +w $(TLDIR)/*.el
- cp -p tl-*.el signature.el $(TLDIR)
- mv tl-*.elc signature.elc $(TLDIR)
-
-tm-install:
- -chmod +w $(TMDIR)/*.el
- cp -p tiny-mime.el tm-*.el mime-setup.el \
- gnushook.el sc-setup.el $(TMDIR)
- mv tiny-mime.elc tm-*.elc $(TMDIR)
-
-clean:
- -rm *.elc
+++ /dev/null
-#
-# $Id: Makefile.19,v 1.1 1994/12/27 02:32:05 morioka Exp $
-#
-
-# Please specify emacs executables:
-# EMACS = for all kind of Emacs 19 (FSF original, MULE or XEmacs)
-# ORIG = for FSF original Emacs 19 or XEmacs
-# MULE = for MULE 2
-#
-# If you have only one kind of Emacs 19, please dummy specify, like that:
-#
-# for Emacs 19 only: (If executable name = `emacs19')
-# EMACS = emacs19
-# ORIG = emacs19
-# MULE = emacs19
-#
-# for MULE 2 only: (If executable name = `mule2')
-# EMACS = mule2
-# ORIG = mule2
-# MULE = mule2
-#
-# for XEmacs only: (If executable name = `xemacs')
-# EMACS = xemacs
-# ORIG = xemacs
-# MULE = xemacs
-#
-# for every kind of Emacs:
- EMACS = mule2
- ORIG = emacs19
- MULE = mule2
-
-# Please specfy Emacs Lisp install directory:
-# TLDIR = for tl modules
-# TMDIR = for tm modules
-#
-# TLDIR = $(HOME)/lib/emacs19/lisp
-# TMDIR = $(HOME)/lib/emacs19/lisp/tm
-TLDIR = /usr/local/lib/mule/site-lisp
-TMDIR = /usr/local/lib/mule/site-lisp
-
-TLEL = tl-header.el tl-str.el
-TLELC = ${TLEL:el=elc}
-TMEL = tm-misc.el
-TMELC = ${TMEL:el=elc}
-TMMEL = tm-view.el tm-rmail.el tm-comp.el tm-gnus4.el
-TMMELC = ${TMMEL:el=elc}
-TMVEL = tm-rich.el
-TMVELC = ${TMVEL:el=elc}
-
-
-.SUFFIXES: .el .elc
-
-.el.elc:
- $(EMACS) -batch -q . -f batch-byte-compile $<
-
-all: $(TLELC) tl-orig.elc tl-mule.elc tl-list.elc signature.elc \
- tiny-mime.elc $(TMELC) tm-orig.elc tm-mule.elc $(TMMELC) \
- tm-mh-e.elc tm-gnus.elc $(TMVELC)
-
-$(TLELC): $(TLEL)
-
-tl-orig.elc: tl-orig.el
- $(ORIG) -batch -q . -f batch-byte-compile $<
-
-tl-mule.elc: tl-mule.el
- $(MULE) -batch -q . -f batch-byte-compile $<
-
-tl-list.elc: tl-list.el
- $(EMACS) -batch -q . -l tl-str.el -l tl-list.el -f batch-byte-compile $<
-
-signature.elc: signature.el
- $(EMACS) -batch -q . -l tl-header.el -f batch-byte-compile $<
-
-tiny-mime.elc: tiny-mime.el
- $(EMACS) -batch -q . -l tl-header.el -l tl-str.el -f batch-byte-compile $<
-
-$(TMELC):
- $(EMACS) -batch -q . -l tl-str.el -l tl-list.el -l tl-mule.el -l tm-mule.el -l tl-header.el -l tiny-mime.el -f batch-byte-compile $<
-
-tm-orig.elc: tm-orig.el
- $(ORIG) -batch -q . -l tl-orig.el -f batch-byte-compile $<
-
-tm-mule.elc: tm-mule.el
- $(MULE) -batch -q . -l tl-str.el -l tl-list.el -l tl-mule.el -f batch-byte-compile $<
-
-$(TMMELC):
- $(EMACS) -batch -q . -l tl-str.el -l tl-list.el -l tl-mule.el -l tl-header.el -l tm-mule.el -l tiny-mime.el -l tm-misc.el \
- -f batch-byte-compile $<
-
-tm-gnus.elc: tm-gnus.el
- $(EMACS) -batch -q . -l tl-str.el -l tl-list.el -l tl-header.el -l tl-mule.el -l tm-mule.el -l tiny-mime.el -l tm-misc.el -l gnus \
- -f batch-byte-compile $<
-
-tm-mh-e.elc: tm-mh-e.el
- $(EMACS) -batch -q . -l tl-str.el -l tl-list.el -l tl-header.el -l tl-mule.el -l tm-mule.el -l tiny-mime.el -l tm-misc.el -l mh-e \
- -f batch-byte-compile $<
-
-$(TMVELC):
- $(EMACS) -batch -q . -l tl-str.el -l tl-list.el -l tl-header.el -l tl-mule.el -l tm-mule.el -l tiny-mime.el -l tm-misc.el -l tm-view.el \
- -f batch-byte-compile $<
-
-install: all tl-install tm-install
-
-tl-install:
- -chmod +w $(TLDIR)/*.el
- cp -p tl-*.el signature.el $(TLDIR)
- mv tl-*.elc signature.elc $(TLDIR)
-
-tm-install:
- -chmod +w $(TMDIR)/*.el
- cp -p tiny-mime.el tm-*.el mime-setup.el \
- gnushook.el sc-setup.el $(TMDIR)
- mv tiny-mime.elc tm-*.elc $(TMDIR)
-
-clean:
- -rm *.elc
+++ /dev/null
-#
-# $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 richtext.el tinyrich.el \
- tm-ftp.el tm-latex.el tm-partial.el \
- tm-rmail.el \
- tm-comp.el # tm-evs.el
-TM_ELC = ${TM_EL:el=elc}
-ALL_EL = $(TM_EL) tm-setup.el mime-setup.el
-
-TM_VM_EL = tm-vm.el
-TM_VM_ELC = ${TM_VM_EL:el=elc}
-
-BATCH = $(EMACS) -batch loadpath -f eval-current-buffer
-
-RM = /bin/rm -f
-
-.SUFFIXES: .el .elc
-
-.el.elc:
- $(BATCH) -f batch-byte-compile $<
-
-
-all: $(TM_ELC)
-
-$(TM_ELC):
-
-install:
- ./inst-el $(TMDIR) $(ALL_EL)
- ./inst-elc $(TMDIR) $(TM_ELC)
-
-
-tm-vm: $(TM_VM_ELC)
-
-$(TM_VM_ELC):
-
-install-tm-vm:
- ./inst-el $(TMDIR) $(TM_VM_EL)
- ./inst-elc $(TMDIR) $(TM_VM_ELC)
-
-
-clean:
- -$(RM) *.elc
+++ /dev/null
-#
-# $Id$
-#
-# Makefile to byte-compile for FSF original Emacs 19 and XEmacs
-#
-
-# Please specify emacs executable:
-EMACS = emacs19
-
-# Please specfy Emacs Lisp install directory:
-# TLDIR = for tl modules
-# TMDIR = for tm modules
-#
-TLDIR = $(HOME)/lib/emacs19/lisp
-TMDIR = $(HOME)/lib/emacs19/lisp/tm
-
-TLEL = tl-header.el tl-str.el
-TLELC = ${TLEL:el=elc}
-TMEL = tm-misc.el
-TMELC = ${TMEL:el=elc}
-TMMEL = tm-view.el tm-rmail.el tm-comp.el tm-gnus4.el
-TMMELC = ${TMMEL:el=elc}
-TMVEL = tm-rich.el
-TMVELC = ${TMVEL:el=elc}
-
-
-.SUFFIXES: .el .elc
-
-.el.elc:
- $(EMACS) -batch -q . -f batch-byte-compile $<
-
-all: $(TLELC) tl-orig.elc tl-orig.elc tl-list.elc signature.elc \
- tiny-mime.elc $(TMELC) tm-orig.elc tm-orig.elc $(TMMELC) \
- tm-mh-e.elc tm-gnus.elc $(TMVELC)
-
-$(TLELC): $(TLEL)
-
-tl-orig.elc: tl-orig.el
- $(EMACS) -batch -q . -f batch-byte-compile $<
-
-tl-list.elc: tl-list.el
- $(EMACS) -batch -q . -l tl-str.el -l tl-list.el -f batch-byte-compile $<
-
-signature.elc: signature.el
- $(EMACS) -batch -q . -l tl-header.el -f batch-byte-compile $<
-
-tiny-mime.elc: tiny-mime.el
- $(EMACS) -batch -q . -l tl-header.el -l tl-str.el -f batch-byte-compile $<
-
-$(TMELC):
- $(EMACS) -batch -q . -l tl-str.el -l tl-list.el -l tl-orig.el -l tm-orig.el -l tl-header.el -l tiny-mime.el -f batch-byte-compile $<
-
-tm-orig.elc: tm-orig.el
- $(EMACS) -batch -q . -l tl-orig.el -f batch-byte-compile $<
-
-$(TMMELC):
- $(EMACS) -batch -q . -l tl-str.el -l tl-list.el -l tl-orig.el -l tl-header.el -l tm-orig.el -l tiny-mime.el -l tm-misc.el \
- -f batch-byte-compile $<
-
-tm-gnus.elc: tm-gnus.el
- $(EMACS) -batch -q . -l tl-str.el -l tl-list.el \
- -l tl-header.el -l tl-orig.el \
- -l tm-orig.el -l tiny-mime.el -l tm-misc.el -l gnus \
- -f batch-byte-compile $<
-
-tm-gnus4.elc: tm-gnus4.el
- $(EMACS) -batch -q . -l tl-str.el -l tl-list.el \
- -l tl-header.el -l tl-orig.el \
- -l tm-orig.el -l tiny-mime.el -l tm-misc.el
- -l gnus -l tm-gnus \
- -f batch-byte-compile $<
-
-tm-mh-e.elc: tm-mh-e.el
- $(EMACS) -batch -q . -l tl-str.el -l tl-list.el -l tl-header.el -l tl-orig.el -l tm-orig.el -l tiny-mime.el -l tm-misc.el -l mh-e \
- -f batch-byte-compile $<
-
-$(TMVELC):
- $(EMACS) -batch -q . -l tl-str.el -l tl-list.el -l tl-header.el -l tl-orig.el -l tm-orig.el -l tiny-mime.el -l tm-misc.el -l tm-view.el \
- -f batch-byte-compile $<
-
-install: all tl-install tm-install
-
-tl-install:
- -chmod +w $(TLDIR)/*.el
- cp -p tl-*.el signature.el $(TLDIR)
- mv tl-*.elc signature.elc $(TLDIR)
-
-tm-install:
- -chmod +w $(TMDIR)/*.el
- cp -p tiny-mime.el tm-*.el mime-setup.el \
- gnushook.el sc-setup.el $(TMDIR)
- mv tiny-mime.elc tm-*.elc $(TMDIR)
-
-clean:
- -rm *.elc
+++ /dev/null
-[[R
-\title{tm-$<$MUA$>$ Manual (English Version)}
-\author{Morioka Tomohiko}
-\date{1994/7/22}
-\maketitle
-]]R
-
- tm-<MUA> is a MIME tools for GNU Emacs.
-
-
-* Files
-
-README-jp.ol README (Japanese)
-README-eng.ol README (English)
-tiny-mime.ol tiny-mime.el manual (Japanese)
-tm-body.ol tm-body manual (Japanese)
-tm-gnus-jp.ol tm-gnus manual (Japanese)
-tm-gnus-eng.ol tm-gnus manual (English)
-tm-mh-e-jp.ol tm-mh-e manual (Japanese)
-tm-mh-e-eng.ol tm-mh-e manual (English)
-decode-b.c Base64 decoder
-methods/* methods
-
-tiny-mime.el Multilingual MIME header encoder/decoder
-tm-body.el MIME body decoder
-tm-gnus.el tm-<MUA> for GNUS
-tm-mh-e.el tm-<MUA> for mh-e
-tm-mh-e3.el tm-mh-e's module for mh-e 3.x.
-tm-misc.el tm-<MUA> library
-tl-*.el library modules
-
-mime-setup.el setup program
-signature.el signature selector
-ol2.c Emacs outline mode to plain text converter
-
-
-* How to install
-
-(1) Edit Makefile for your environment.
-
-(2) Edit methods in `methods/' directory for your environment.
-
-(3) Run `make all'.
-
-(4) Run `make install'.
-
-(5) Copy *.el to your emacs lisp directory.
-
-
-* How to use
-
- Please read tm-mh-e-eng.ol and tm-gnus-eng.ol.
+++ /dev/null
-\documentstyle[a4j]{jarticle}
-\setcounter{secnumdepth}{6}
-\setcounter{tocdepth}{6}
-\topsep=0.1cm
-\parsep=0.1cm
-\itemsep=0.0cm
-\begin{document}
-\title{tm-$<$MUA$>$ Manual (English Version)}
-\author{Morioka Tomohiko}
-\date{1994/7/22}
-\maketitle
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
- tm-<MUA> is a MIME tools for GNU Emacs.
-\end{verbatim}}
-\medskip
-\medskip
-
-\section{Files}
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-README-jp.ol README (Japanese)
-README-eng.ol README (English)
-tiny-mime.ol tiny-mime.el manual (Japanese)
-tm-body.ol tm-body manual (Japanese)
-tm-gnus-jp.ol tm-gnus manual (Japanese)
-tm-gnus-eng.ol tm-gnus manual (English)
-tm-mh-e-jp.ol tm-mh-e manual (Japanese)
-tm-mh-e-eng.ol tm-mh-e manual (English)
-decode-b.c Base64 decoder
-methods/* methods
-\end{verbatim}}
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-tiny-mime.el Multilingual MIME header encoder/decoder
-tm-body.el MIME body decoder
-tm-gnus.el tm-<MUA> for GNUS
-tm-mh-e.el tm-<MUA> for mh-e
-tm-mh-e3.el tm-mh-e's module for mh-e 3.x.
-tm-misc.el tm-<MUA> library
-tl-*.el library modules
-\end{verbatim}}
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-mime-setup.el setup program
-signature.el signature selector
-ol2.c Emacs outline mode to plain text converter
-\end{verbatim}}
-\medskip
-\medskip
-
-\section{How to install}
-\medskip
-{
-\renewcommand{\theenumi}{(\arabic{enumi})}
-\renewcommand{\labelenumi}{\theenumi}
-\begin{enumerate}
-\item Edit Makefile for your environment.
-\medskip
-\item Edit methods in `methods/' directory for your environment.
-\medskip
-\item Run `make all'.
-\medskip
-\item Run `make install'.
-\medskip
-\item Copy *.el to your emacs lisp directory.
-\medskip
-\medskip
-\end{enumerate}
-}
-
-\section{How to use}
-\medskip
-\par
-Please read tm-mh-e-eng.ol and tm-gnus-eng.ol.
-\end{document}
+++ /dev/null
-\e$B!X\e(Btm-<MUA> \e$B@bL@=q!Y\e(B
-
-* tm \e$B$H$O\e(B
-
- tm \e$B$O\e(B Emacs \e$B$K\e(B MIME \e$B5!G=$rIU2C!&6/2=$9$k$?$a$N\e(B package \e$B$G$9!#$3$N\e(B
-package \e$B$O0J2<$N$b$N$r4^$s$G$$$^$9!#\e(B
-
- - tiny-mime MIME header encoder/decoder
- - tm-body MIME body player
- - tm-gnus MIME extender for GNUS
- - tm-mh-e MIME extender for mh-e
-
-\e$B$G$9!#\e(B
-
-
-* install \e$B$N;EJ}\e(B
-
-(1) Makefile \e$B$N\e(B bindir \e$B$r<+J,$N4D6-$K9g$o$;$F=q$-49$($k!#\e(B
-
-(2) methods/ \e$B0J2<$N\e(B method \e$B$r!"\e(Btm-body \e$B$N@bL@=q$r8+$F!"<+J,$N4D6-$K9g\e(B
- \e$B$&$h$&$K=q$-49$($k!#\e(B
-
-(3) make all \e$B$9$k!#\e(B
-
-(4) make install \e$B$9$k!#\e(B
-
-(5) *.el \e$B$r\e(B Emacs \e$B$NJQ?t\e(B load-path \e$B$G;XDj$5$l$?\e(B directory \e$B$K\e(B copy \e$B$9$k!#\e(B
-
-
- tm-mh-e, tm-gnus \e$B$N@bL@$O!"\e(Btm-mh-e.ol, tm-gnus.ol \e$B$rFI$s$G2<$5$$!#\e(B
-plain2 \e$B$,\e(B install \e$B$5$l$F$$$k>l9g!"\e(Bmake dvi \e$B$r9T$J$&$3$H$G\e(B dvi \e$B$KJQ49$G\e(B
-\e$B$-$^$9!#\e(B
-
-
-* \e$B%P%0Js9p$N;EJ}\e(B
-
- tm \e$B$N%P%0$r8+$D$1$?$i\e(B fj.editor.emacs \e$B$K\e(B post \e$B$9$k$+!"\e(Btm ML
-<tm@chamonix.jaist.ac.jp> \e$B$K\e(B mail \e$B$rAw$C$F2<$5$$!#\e(B
-
- tm ML \e$B$G$O\e(B tm \e$B$N%P%0>pJs$N8r49$d:G?7HG$NG[I[!"\e(Btm \e$B$N2~NI$K4X$9$k5DO@\e(B
-\e$B$r9T$J$C$F$$$^$9!#\e(Btm ML \e$B$K;22C$7$?$$J}$O\e(B
-
- tm-admin@chamonix.jaist.ac.jp
-
-\e$B$^$G\e(B mail \e$B$rAw$C$F2<$5$$!#EPO?$O<jF0$G$9$N$G!"$G$-$l$P!"<+A38@8l$G=q$$\e(B
-\e$B$F2<$5$$!#\e(B(^_^)
-
-
-* \e$B$*$^$1\e(B
-
- mime-setup \e$B$H$$$&4J0W@_Dj\e(B tool \e$B$rIU$1$^$7$?!#\e(B.emacs \e$B$K0J2<$N$b$N$rF~\e(B
-\e$B$l$k$H\e(B tm-<MUA> \e$B$N@_Dj$H\e(B mime.el \e$B$r;H$C$?\e(B encode \e$B$N@_Dj$r9T$J$C$F$/$l\e(B
-\e$B$^$9!#\e(B
-
-[[E
-----------------------------------------------------------------------
-(load "mime-setup")
-----------------------------------------------------------------------
-]]E
-
- mime-setup.el \e$B$OI8=`$G$O\e(B SuperCite \e$B$N@_Dj$b9T$J$$$^$9!#$3$l$r$d$a$k\e(B
-\e$B>l9g\e(B .emacs \e$B$K0J2<$N$b$N$rF~$l$F2<$5$$!#\e(B
-
-[[E
-----------------------------------------------------------------------
-(setq mime-setup-use-sc nil)
-----------------------------------------------------------------------
-]]E
-
- 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$$!#\e(B
-
-[[E
-----------------------------------------------------------------------
-(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")
- ))
-----------------------------------------------------------------------
-]]E
-
- mime-setup \e$B$r;H$&>l9g$O!"\e(Bmime.el \e$B$,I,MW$G$9!#$^$?!"\e(BSuperCite \e$B$r;H$&\e(B
-\e$B>l9g$O!"\e(BSuperCite \e$B$bI,MW$G$9!#\e(B
+++ /dev/null
-\documentstyle[a4j]{jarticle}
-\setcounter{secnumdepth}{6}
-\setcounter{tocdepth}{6}
-\topsep=0.1cm
-\parsep=0.1cm
-\itemsep=0.0cm
-\begin{document}
-\title{
-tm-$<$MUA$>$ ÀâÌÀ½ñ}
-\author{
-\\
-}
-\date{
-}
-\maketitle
-\medskip
-
-\section{tm ¤È¤Ï}
-\medskip
-\par
-tm ¤Ï Emacs ¤Ë MIME µ¡Ç½¤òÉղᦶ¯²½¤¹¤ë¤¿¤á¤Î package ¤Ç¤¹¡£¤³¤Î
-package ¤Ï°Ê²¼¤Î¤â¤Î¤ò´Þ¤ó¤Ç¤¤¤Þ¤¹¡£
-\medskip
-{\list{}{\leftmargin=4ex}\item[]
-\begin{itemize}
-\item tiny-mime MIME header encoder/decoder
-\item tm-body MIME body player
-\item tm-gnus MIME extender for GNUS
-\item tm-mh-e MIME extender for mh-e
-\medskip
-\end{itemize}
-\endlist}
-\par
-¤Ç¤¹¡£
-\medskip
-\medskip
-
-\section{install ¤Î»ÅÊý}
-\medskip
-{
-\renewcommand{\theenumi}{(\arabic{enumi})}
-\renewcommand{\labelenumi}{\theenumi}
-\begin{enumerate}
-\item Makefile ¤Î bindir ¤ò¼«Ê¬¤Î´Ä¶¤Ë¹ç¤ï¤»¤Æ½ñ¤´¹¤¨¤ë¡£
-\medskip
-\item methods/ °Ê²¼¤Î method ¤ò¡¢tm-body ¤ÎÀâÌÀ½ñ¤ò¸«¤Æ¡¢¼«Ê¬¤Î´Ä¶¤Ë¹ç
-¤¦¤è¤¦¤Ë½ñ¤´¹¤¨¤ë¡£
-\medskip
-\item make all ¤¹¤ë¡£
-\medskip
-\item make install ¤¹¤ë¡£
-\medskip
-\item *.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ directory ¤Ë copy ¤¹¤ë¡£
-\medskip
-\medskip
-\end{enumerate}
-}
-\par
-tm-mh-e, tm-gnus ¤ÎÀâÌÀ¤Ï¡¢tm-mh-e.ol, tm-gnus.ol ¤òÆɤó¤Ç²¼¤µ¤¤¡£
-plain2 ¤¬ install ¤µ¤ì¤Æ¤¤¤ë¾ì¹ç¡¢make dvi ¤ò¹Ô¤Ê¤¦¤³¤È¤Ç dvi ¤ËÊÑ´¹¤Ç
-¤¤Þ¤¹¡£
-\medskip
-\medskip
-
-\section{¥Ð¥°Êó¹ð¤Î»ÅÊý}
-\medskip
-\par
-tm ¤Î¥Ð¥°¤ò¸«¤Ä¤±¤¿¤é fj.editor.emacs ¤Ë post ¤¹¤ë¤«¡¢tm ML
-$<$tm@chamonix.jaist.ac.jp$>$ ¤Ë mail ¤òÁ÷¤Ã¤Æ²¼¤µ¤¤¡£
-\medskip
-\par
-tm ML ¤Ç¤Ï tm ¤Î¥Ð¥°¾ðÊó¤Î¸ò´¹¤äºÇ¿·ÈǤÎÇÛÉÛ¡¢tm ¤Î²þÎɤ˴ؤ¹¤ëµÄÏÀ
-¤ò¹Ô¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£tm ML ¤Ë»²²Ã¤·¤¿¤¤Êý¤Ï
-\medskip
-{\list{}{\leftmargin=8ex}\item[]
-\par
-tm-admin@chamonix.jaist.ac.jp
-\endlist}
-\medskip
-\par
-¤Þ¤Ç mail ¤òÁ÷¤Ã¤Æ²¼¤µ¤¤¡£ÅÐÏ¿¤Ï¼êÆ°¤Ç¤¹¤Î¤Ç¡¢¤Ç¤¤ì¤Ð¡¢¼«Á³¸À¸ì¤Ç½ñ¤¤
-¤Æ²¼¤µ¤¤¡£(\verb+^+\_\verb+^+)
-\medskip
-\medskip
-
-\section{¤ª¤Þ¤±}
-\medskip
-\par
-mime-setup ¤È¤¤¤¦´Ê°×ÀßÄê tool ¤òÉÕ¤±¤Þ¤·¤¿¡£.emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ
-¤ì¤ë¤È tm-$<$MUA$>$ ¤ÎÀßÄê¤È mime.el ¤ò»È¤Ã¤¿ encode ¤ÎÀßÄê¤ò¹Ô¤Ê¤Ã¤Æ¤¯¤ì
-¤Þ¤¹¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(load "mime-setup")
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-mime-setup.el ¤Ïɸ½à¤Ç¤Ï SuperCite ¤ÎÀßÄê¤â¹Ô¤Ê¤¤¤Þ¤¹¡£¤³¤ì¤ò¤ä¤á¤ë
-¾ì¹ç .emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(setq mime-setup-use-sc nil)
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-mime-setup ¤Ç¤Ï signature ¤Î¼«Æ°ÀÚÂؤ¨ tool ¤âÉí°¤·¤Æ¤¤¤Þ¤¹¡£
-message header ¤Î field ¤Ë¹ç¤ï¤»¤Æ signature ¤Î¼«Æ°ÀÚÂؤò¹Ô¤Ê¤¤¤¿¤¤¾ì
-¹ç¤Ï .emacs ¤Ë°Ê²¼¤Î¤è¤¦¤Ê¤â¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(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{verbatim}}
-\medskip
-\par
-mime-setup ¤ò»È¤¦¾ì¹ç¤Ï¡¢mime.el ¤¬É¬ÍפǤ¹¡£¤Þ¤¿¡¢SuperCite ¤ò»È¤¦
-¾ì¹ç¤Ï¡¢SuperCite ¤âɬÍפǤ¹¡£
-\end{document}
+++ /dev/null
-;;;
-;;; $Id$
-;;;
-
-(require 'tl-seq)
-
-;;; @ internal base64 decoder/encoder
-;;; based on base64 decoder by Enami Tsugutomo
-
-;;; @@ convert from/to base64 char
-;;;
-
-(defun base64-num-to-char (n)
- (cond ((eq n nil) ?=)
- ((< n 26) (+ ?A n))
- ((< n 52) (+ ?a (- n 26)))
- ((< n 62) (+ ?0 (- n 52)))
- ((= n 62) ?+)
- ((= n 63) ?/)
- (t (error "not a base64 integer %d" n))))
-
-(defun base64-char-to-num (c)
- (cond ((and (<= ?A c) (<= c ?Z)) (- c ?A))
- ((and (<= ?a c) (<= c ?z)) (+ (- c ?a) 26))
- ((and (<= ?0 c) (<= c ?9)) (+ (- c ?0) 52))
- ((= c ?+) 62)
- ((= c ?/) 63)
- ((= c ?=) nil)
- (t (error "not a base64 character %c" c))))
-
-
-;;; @@ encode/decode one base64 unit
-;;;
-
-(defun base64-mask (i n) (logand i (1- (ash 1 n))))
-
-(defun base64-encode-1 (a &optional b &optional c)
- (cons (ash a -2)
- (cons (logior (ash (base64-mask a 2) (- 6 2))
- (if b (ash b -4) 0))
- (if b
- (cons (logior (ash (base64-mask b 4) (- 6 4))
- (if c (ash c -6) 0))
- (if c
- (cons (base64-mask c (- 6 0))
- nil)))))))
-
-(defun base64-decode-1 (a b &optional c &optional d)
- (cons (logior (ash a 2) (ash b (- 2 6)))
- (if c (cons (logior (ash (base64-mask b 4) 4)
- (base64-mask (ash c (- 4 6)) 4))
- (if d (cons (logior (ash (base64-mask c 2) 6) d)
- nil))))))
-
-(defun base64-encode-chars (a &optional b &optional c)
- (mapcar (function base64-num-to-char) (base64-encode-1 a b c)))
-
-(defun base64-decode-chars (&rest args)
- (apply (function base64-decode-1)
- (mapcar (function base64-char-to-num) args)
- ))
-
-
-;;; @@ encode/decode base64 string
-;;;
-
-(defun base64-encode-string (string)
- (let* ((es (mapconcat
- (function
- (lambda (pack)
- (mapconcat (function char-to-string)
- (apply (function base64-encode-chars) pack)
- "")
- ))
- (pack-sequence string 3)
- ""))
- (m (mod (length es) 4))
- )
- (concat es (cond ((= m 3) "=")
- ((= m 2) "==")
- ))
- ))
-
-(defun base64-decode-string (string)
- (mapconcat (function
- (lambda (pack)
- (mapconcat (function char-to-string)
- (apply (function base64-decode-chars) pack)
- "")
- ))
- (pack-sequence string 4)
- ""))
-
-
-;;; @ etc
-;;;
-
-(defun base64-encoded-length (string)
- (let ((len (length string)))
- (* (+ (/ len 3)
- (if (= (mod len 3) 0) 0 1)
- ) 4)
- ))
-
-(provide 'base64)
+++ /dev/null
-/*
- * $Id: decode-b.c,v 1.2 1995/02/04 02:51:53 morioka Exp $
- *
- * modified by Kenji Rikitake <kenji@reseau.toyonaka.osaka.jp>
- * based on Henry Spencer's un64 shell script
- *
- */
-
-#include <stdio.h>
-#include <stdlib.h>
-
-int get_base64_char_value(int chr)
-{
- if( ('A' <= chr) && (chr <= 'Z') ){
- return chr - 'A';
- }
- else if( ('a' <= chr) && (chr <= 'z') ){
- return chr - 'a' + 26;
- }
- else if( ('0' <= chr) && (chr <= '9') ){
- return chr - '0' + 52;
- }
- else if(chr == '+'){
- return 62;
- }
- else if(chr == '/'){
- return 63;
- }
- return -1;
-}
-
-main()
-{
- FILE* rfp = stdin;
- FILE* wfp = stdout;
- char str[128];
- char* sp;
- int ret;
- unsigned int v1, v2, v3, v4, o1, o2, o3;
-
- while (fgets(str, 128, rfp)) {
- for (sp = str; *sp; ) {
- if ((*sp == '\r') || (*sp == '\n')) break;
- v1 = get_base64_char_value(*sp++);
- v2 = get_base64_char_value(*sp++);
- if (0 <= (v3 = get_base64_char_value(*sp++))) {
- if (0 <= (v4 = get_base64_char_value(*sp++))) {
- o1 = (v1 << 2) + (v2 >> 4);
- o2 = ((v2 & 0x0f) << 4) + (v3 >> 2);
- o3 = ((v3 & 0x03) << 6) + v4;
- putc(o1, wfp);
- putc(o2, wfp);
- putc(o3, wfp);
- }
- else {
- o1 = (v1 << 2) + (v2 >> 4);
- o2 = ((v2 & 0x0f) << 4) + (v3 >> 2);
- putc(o1, wfp);
- putc(o2, wfp);
- return 0;
- }
- }
- else {
- o1 = (v1 << 2) + (v2 >> 4);
- putc(o1, wfp);
- return 0;
- }
- }
- }
- return 0;
-}
+++ /dev/null
-* tm/Makefile
-
- Not only do `make mule2' or `make orig19' compile normal tm modules
-but also tm-mh-e and tm-gnus.
-
- Similarly, not only do `make install-mule2' or `make install-orig19'
-install normal tm modules but also tm-mh-e and tm-gnus.
-
-
-* tm-comp
-
-** message/rfc822
-
- We add a message/rfc822 style message inserting command. Its
-function name is `tm-comp/insert-message', standard key bind is `C-c
-C-x m'.
-
- Function `tm-comp/insert-message' requires message-inserter function
-for your MUA. message-inserter functions are registerd at variable
-`tm-comp/message-inserter-alist' which is a assoc-list whose element
-is a pair that major-mode is key and message-inserter function is value.
-
- Now, tm-mh-e is a only implementation for this function.
-
-
-* changed points of tm-view
-
- Internal structure of tm-view 6.* is changed from tm-view 5.21, such
-as, data structures, symbol names. I write main differences between tm
-5.21.
-
-** internal structure
-
-*** content-info
-
- Buffer local variable of article buffer `mime/content-list', which
-memorizes content structres of message in article buffer, is renamed
-to `mime::article/content-info', and data structure is changed.
-
- Old data structure ``content-list'' used in buffer local variable
-`mime/content-list' was a following list:
-
- content-list = (Ba Ea children)
-
- Ba: point-min of this content in article buffer
- Ea: point-max of this content in article buffer
- children: content-list's list of contents included in
- this content. nil when this content is not
- multipart
-
-
- New data structure ``content-info'' used in buffer local variable
-`mime::article/content-info' is following vector:
-
- content-info
- = [point-min point-max type parameters encoding children]
-
- point-min: point-min of this content in article buffer
- point-max: point-max of this content in article buffer
- (This value is not equal Ea.
- point-max = Ea + 1)
- type: content-type/subtype of this content
- parameters: assoc-list which represents parameters of
- Content-Type field of this content
- encoding: Content-Transfer-Encoding of this content
- children: content-info's list of contents included
- in this content. nil when this content is
- not multipart
-
-
- In tm-view 5.21, this data structure was generated and referenced by
-list processing functions (basic lisp functions) dynamically. In
-tm-view 6.*, however, it is generated by generator function
-`mime::make-content-info', and it is referenced by reference functions
-mime::content-info/FOO (FOO = { point-min | point-max | type |
-parameters | encoding | children }).
-
-
-*** preview-content-info
-
- Buffer local variable of preview buffer
-`mime/preview-flat-content-list', which memorizes content structres of
-message in preview buffer, is renamed to `mime::preview/content-list,
-and data structure is changed.
-
- Old data structure used in buffer local variable
-`mime/preview-flat-content-list' was a list which elements are
-following list:
-
- (Bp Ep buf Ba Ea)
-
- Bp: point-min of this content in preview buffer
- Ep: point-max of this content in preview buffer
- buf: article buffer for this content
- Ba: point-min of this content in article buffer
- Ea: point-max of this content in article buffer
-
-
- New data structure ``preview-content-info'' used in buffer local
-variable `mime::preview/content-list'' is a list which elements are
-following vector:
-
- [Bp Ep buf cinfo]
-
- Bp: point-min of this content in preview buffer
- Ep: point-max of this content in preview buffer
- buf: article buffer for this content
- cinfo: content-info which represents this content
-
-
- In tm-view 5.21, this data structure was generated and referenced by
-list processing functions (basic lisp functions) dynamically. In
-tm-view 6.*, however, it is generated by generator function
-`mime::make-preview-content-info', and it is referenced by reference
-functions mime::preview-content-info/FOO (FOO = { Bp | Ep | buf |
-cinfo }).
-
-
-*** etc
-
-- parser is changed
-
-- naming rule is changed
-
-- buffer local variable in article buffer `mime/preview-buffer' is
- renamed to `mime::article/preview-buffer'
-
-- function `mime/exit-view-mode' is renamed to `mime-viewer/kill-buffer'
-
-- command functions of mime/viewer-mode are renamed from mime/FOO to
- mime-viewer/FOO. (ex. `mime/up-content' --> `mime-viewer/up-content')
-
-- command function `mime/quit-view-mode' is renamed to `mime-viewer/quit'
-
-- etc...
-
-
-** variables
-
-(1) variable `mime/content-filter-alist' is renamed to
- `mime-viewer/content-filter-alist'
-
-(2) variable `mime/make-content-subject-function' is renamed to
- `mime-viewer/content-subject-function' and arguments are changed
-
-(3) variable `mime/make-content-header-filter' is renamed to
- `mime-viewer/content-header-filter-function'
-
-(4) variable `mime/default-showing-Content-Type-list' is renamed to
- `mime-viewer/default-showing-Content-Type-list'
-
-(5) variable `mime/go-to-top-node-method-alist' is renamed to
- `mime-viewer/quitting-method-alist' and changed initial value
- because of changes between tm-view 5.21 and tm-view 6.*.
-
-
-** new variables
-
-*** mime-viewer/childrens-header-showing-Content-Type-list
-
- list of content-type/subtype whose children's header should be
-displayed.
-
- This variable is used in function
-`mime-viewer/default-content-header-filter-function' which defined as
-default value of variable
-`mime-viewer/content-header-filter-function'. Therefore if you set
-another function, it may not work this variable.
-
-
-*** mime-viewer/ignored-field-list
-
- list of field-name which is not displayed when header is displayed.
-
- This variable is used in function
-`mime-viewer/default-content-header-filter-function' which defined as
-default value of variable
-`mime-viewer/content-header-filter-function'. Therefore if you set
-another function, it may not work this variable.
+++ /dev/null
-* tm/Makefile
-
- Emacs 19.* (Mule 2.*) \e$B$G$O!"\e(Btm \e$B$N\e(B {byte-compile | install} \e$B$r9T$&:]\e(B
-\e$B$K!"\e(Btm-mh-e, tm-gnus \e$B$N\e(B {byte-compile | install} \e$B$b9T$$$^$9!#\e(B
-
-
-* tm-comp
-
-** message/rfc822
-
- MUA \e$B$,J]B8$7$F$$$k\e(B message \e$B$r\e(B message/rfc822 \e$B7A<0$G<h$j9~$`$b$N$rDI\e(B
-\e$B2C$7$^$7$?!#4X?tL>$O\e(B tm-comp/insert-message \e$B$G!"I8=`$N\e(B key bind \e$B$O\e(B C-c
-C-x m \e$B$G$9!#\e(B
-
- \e$B4X?t\e(B tm-comp/insert-message \e$B$O\e(B MUA \e$BKh$N\e(B message-inserter \e$B4X?t$rI,MW\e(B
-\e$B$H$7$^$9!#\e(Bmessage-inserter \e$B$OJQ?t\e(B tm-comp/message-inserter-alist \e$B$KEP\e(B
-\e$BO?$5$l$^$9!#$3$NJQ?t$O!"\e(Bmajor-mode \e$B$,\e(B key \e$B$G!"$=$l$KBP$9$kCM$,\e(B
-message-inserter \e$B4X?t$G$"$kO"A[%j%9%H9=B$$r$7$F$$$^$9!#\e(B
-
- \e$B8=:_$N$H$3$m!"\e(Btm-mh-e \e$B$N$_!"$3$N5!G=$r<BAu$7$F$$$^$9!#\e(B
-
-
-* tm-view \e$B$NJQ99E@$K$D$$$F\e(B
-
- tm-view 6.* \e$B$G$OFbIt9=B$$,JQ99$5$l!"%G!<%?9=B$$d\e(B symbol \e$BL>$J$I$,JQ99\e(B
-\e$B$5$l$F$$$^$9!#0J2<$G$O!"\e(Btm-view 5.21 \e$B$+$i$N<g$JJQ99E@$r5s$2$^$9!#\e(B
-
-** \e$BFbIt9=B$$NJQ99\e(B
-
-*** content-info
-
- article buffer \e$B$K$*$$$F!"\e(Bmessage \e$B$K4^$^$l$k\e(B content \e$B$N9=B$$r5-21$9$k\e(B
-buffer local \e$BJQ?t\e(B mime/content-list \e$B$r\e(B mime::article/content-info \e$B$K2~\e(B
-\e$BL>$7!"%G!<%?9=B$$rJQ99$7$?!#6qBNE*$K$O!"=>Mh!"\e(B
-
- content-list = (Ba Ea Children)
-
- \e$BC"$7!"\e(B
- Ba: article buffer \e$B$G$N$3$N\e(B content \e$B$N@hF,\e(B point
- Ea: article buffer \e$B$G$N$3$N\e(B content \e$B$NKvHx\e(B point
- Children: \e$B$3$N\e(B content \e$B$K4^$^$l$k\e(B content \e$B$N>pJs!#\e(B
- content-list \e$B$rMWAG$H$9$k\e(B list \e$B$GI=$7!"\e(B
- multipart \e$B$N\e(B content \e$B$G$J$$>l9g$O\e(B nil \e$B$,F~$k\e(B
-
-\e$B$H$$$&\e(B list \e$B$GI=8=$7$F$$$?$N$r!"\e(B
-
- content-info
- = [point-min point-max type parameters encoding children]
-
- \e$BC"$7!"\e(B
- point-min: article buffer \e$B$G$N$3$N\e(B content \e$B$N@hF,\e(B
- point
- point-max: article buffer \e$B$G$N$3$N\e(B content \e$B$NKvHx\e(B
- point\e$B!J\e(BEa \e$B$H$O0[$J$j!"\e(Bpoint-min \e$B$H\e(B
- point-max \e$B$G:n$i$l$k\e(B region \e$B$,$=$N\e(B content
- \e$B$K$J$k$h$&$K$J$C$F$$$k!#\e(Bpoint-max = Ea + 1
- \e$B$N4X78$,@.$jN)$D!K\e(B
- type: \e$B$3$N\e(B content \e$B$N\e(B content-type/subtype
- parameters: \e$B$3$N\e(B content \e$B$N\e(B Content-Type field \e$B$N\e(B
- paraeter \e$B$rI=$9O"A[%j%9%H\e(B
- encoding: \e$B$3$N\e(B content \e$B$N\e(B Content-Transfer-Encoding.
- children: \e$B$3$N\e(B content \e$B$K4^$^$l$k\e(B content \e$B$N>pJs!#\e(B
- content-info \e$B$rMWAG$H$9$k\e(B list \e$B$GI=$7!"\e(B
- multipart \e$B$N\e(B content \e$B$G$J$$>l9g$O\e(B nil \e$B$,F~$k\e(B
-
-\e$B$H$$$&\e(B vector \e$B$GI=8=$9$k$h$&$K$7$?!#\e(B
-
- \e$B$^$?!"=>Mh!"\e(Blist \e$B=hM}4X?t$r;H$C$FD>@\\e(B list \e$B$r@8@.!&;2>H$7$F$$$?$N$r!"\e(B
-\e$B@8@.4X?t\e(B mime::make-content-info, \e$B;2>H4X?t\e(B mime::content-info/FOO (FOO
-= {point-min|point-max|type|parameters|encoding|children}) \e$B$r;H$&$h$&\e(B
-\e$B$K$7$?!#\e(B
-
- \e$B$^$?!"=>Mh!"\e(BContent-Type, Content-Transfer-Encoding field \e$B$N>pJs$r$$\e(B
-\e$B$A$$$A\e(B buffer \e$B$r8!:w$7$F5a$a$F$$$?$N$r!"\e(Bcontent-info \e$B$r;2>H$9$k$h$&$K\e(B
-\e$B$7$?!#\e(B
-
-*** preview-content-info
-
- preview buffer \e$B$K$*$$$F!"\e(Bmessage \e$B$K4^$^$l$k\e(B content \e$B$N9=B$$r5-21$9$k\e(B
-buffer local \e$BJQ?t\e(B mime/preview-flat-content-list \e$B$r\e(B
-mime::preview/content-list \e$B$K2~L>$7!"%G!<%?9=B$$rJQ99$7$?!#6qBNE*$K$O!"\e(B
-\e$B=>Mh!"\e(B
-
- (Bp Ep buf Ba Ea)
-
- \e$BC"$7!"\e(B
- Bp: preview buffer \e$B$G$N$3$N\e(B content \e$B$N@hF,\e(B point
- Ep: preview buffer \e$B$G$N$3$N\e(B content \e$B$NKvHx\e(B point
- buf: \e$B$3$N\e(B content \e$B$KBP1~$9$k\e(B article buffer
- Ba: article buffer \e$B$G$N$3$N\e(B content \e$B$N@hF,\e(B point
- Ea: article buffer \e$B$G$N$3$N\e(B content \e$B$NKvHx\e(B point
-
-\e$B$H$$$&\e(B list \e$B$GI=8=$7$F$$$?$N$r!"\e(B
-
- [Bp Ep buf cinfo]
-
- \e$BC"$7!"\e(B
- Bp: preview buffer \e$B$G$N$3$N\e(B content \e$B$N@hF,\e(B point
- Ep: preview buffer \e$B$G$N$3$N\e(B content \e$B$NKvHx\e(B point
- buf: \e$B$3$N\e(B content \e$B$KBP1~$9$k\e(B article buffer
- cinfo: \e$B$3$N\e(B content \e$B$rI=$9\e(B content-info
-
-\e$B$H$$$&\e(B vector \e$B$GI=8=$9$k$h$&$K$7$?!#\e(B
-
- \e$B$^$?!"=>Mh!"\e(Blist \e$B=hM}4X?t$r;H$C$FD>@\\e(B list \e$B$r@8@.!&;2>H$7$F$$$?$N$r!"\e(B
-\e$B@8@.4X?t\e(B mime::make-preview-content-info, \e$B;2>H4X?t\e(B
-mime::preview-content-info/FOO (FOO = {Bp|Ep|buf|cinfo}) \e$B$r;H$&$h$&$K\e(B
-\e$B$7$?!#\e(B
-
-
-*** \e$B$=$NB>\e(B
-
-\e$B!&\e(Bparser \e$B$rJQ99$7$?\e(B
-
-\e$B!&L?L>5,B'$rJQ99$7$?\e(B
-
-\e$B!&\e(Barticle buffer \e$B$N\e(B buffer local \e$BJQ?t\e(B mime/preview-buffer \e$B$r\e(B
- mime::article/preview-buffer \e$B$K2~L>$7$?!#\e(B
-
-\e$B!&4X?t\e(B mime/exit-view-mode \e$B$r\e(B mime-viewer/kill-buffer \e$B$K2~L>$7$?!#\e(B
-
-\e$B!&\e(Bmime/viewer-mode \e$B$N3F4X?t$r\e(B mime/FOO \e$B$+$i\e(B mime-viewer/FOO \e$B$K2~L>$7$?!#\e(B
- \e$B!JNc!'\e(Bmime/up-content \e$B"*\e(B mime-viewer/up-content\e$B!K\e(B
-
-\e$B!&4X?t\e(B mime/quit-view-mode \e$B$r\e(B mime-viewer/quit \e$B$K2~L>$7$?!#\e(B
-
-\e$B!&$=$NB>\e(B
-
-
-** \e$B<g$JJQ?tL>$NJQ99\e(B
-
-(1) \e$BJQ?t\e(B mime/content-filter-alist \e$B$r\e(B mime-viewer/content-filter-alist
- \e$B$K2~L>$7$?!#\e(B
-
-(2) \e$BJQ?t\e(B mime/make-content-subject-function \e$B$r\e(B
- mime-viewer/content-subject-function \e$B$K2~L>$7!"0z?t$rJQ99$7$?!#\e(B
-
-(3) \e$BJQ?t\e(B mime/make-content-header-filter \e$B$r\e(B
- mime-viewer/content-header-filter-function \e$B$K2~L>$7!"0z?t$rJQ99$7\e(B
- \e$B$?!#\e(B
-
-(4) \e$BJQ?t\e(B mime/default-showing-Content-Type-list \e$B$r\e(B
- mime-viewer/default-showing-Content-Type-list \e$B$K2~L>$7$?!#\e(B
-
-(5) \e$BJQ?t\e(B mime/go-to-top-node-method-alist \e$B$r\e(B
- mime-viewer/quitting-method-alist \e$B$K2~L>$7$?!#$^$?!"\e(Bsymbol \e$BL>$d;E\e(B
- \e$BMM$NJQ99$K$H$b$J$$!"=i4|@_Dj$rJQ99$7$?!#\e(B
-
-
-** \e$B?7$7$$JQ?t\e(B
-
-*** \e$BJQ?t\e(B mime-viewer/childrens-header-showing-Content-Type-list
-
- \e$B;R6!$N\e(B header \e$B$rI=<($9$Y$-\e(B content-type/subtype \e$B$N\e(B list.
-
- \e$B$3$NJQ?t$O!"JQ?t\e(B mime-viewer/content-header-filter-function \e$B$N4{DjCM\e(B
-\e$B$H$7$FDj5A$5$l$F$$$k4X?t\e(B
-mime-viewer/default-content-header-filter-function \e$B$,;2>H$7$F$$$k$N$G!"\e(B
-\e$B$b$7!"JQ?t\e(B mime-viewer/content-header-filter-function \e$B$NCM$rJL$N4X?t$K\e(B
-\e$B$9$l$PL58z$K$J$k!#\e(B
-
-
-*** \e$BJQ?t\e(B mime-viewer/ignored-field-list
-
- header \e$B$rI=<($9$k>l9g$G$bI=<($7$J$$\e(B field \e$B$N\e(B field-name \e$B$N\e(B list.
-
- \e$B$3$NJQ?t$O!"JQ?t\e(B mime-viewer/content-header-filter-function \e$B$N4{DjCM\e(B
-\e$B$H$7$FDj5A$5$l$F$$$k4X?t\e(B
-mime-viewer/default-content-header-filter-function \e$B$,;2>H$7$F$$$k$N$G!"\e(B
-\e$B$b$7!"JQ?t\e(B mime-viewer/content-header-filter-function \e$B$NCM$rJL$N4X?t$K\e(B
-\e$B$9$l$PL58z$K$J$k!#\e(B
+++ /dev/null
-[[R
-\title{tiny-mime manual (English Version)}
-\author{Morioka Tomohiko}
-\date{1994/8/4}
-\maketitle
-]]R
-
-* Overview
-
- tiny-mime is a multilingual MIME style message header
-encoder/decoder based on RFC 1522 for Mule, NEmacs, and NEpoch. I
-modified Mr.Enami's ISO-2022-JP Base64 MIME header decoder and make
-it. Mr.Enami's program can decode only ISO-2022-JP Base64 header. But,
-current tiny-mime has following functions:
-
- - unfolding at decoding
- - encoding/decoding multilingual character sets, such as,
- ISO-2022-JP, ISO-2022-JP-2, ISO-2022-CN, ISO-2022-KR, ISO-8859-*,
- US-ASCII, EUC-KR
- - B and Q-encoding
-
-
-* character set and encoding
-
-** Mule
-
- Mule can use multilingual text, so in Mule, tiny-mime supports
-ISO-2022-JP, ISO-2022-JP-2, US-ASCII, ISO-8859-1..9, ISO-2022-CN,
-ISO-2022-KR, EUC-KR, et al.
-
- Additionally, you can add or change encoding/decoding for character
-sets by function mime/set-charset-and-encoding.
-
-** NEmacs and NEpoch
-
- NEmacs can use Japanese and English only, so in NEmacs, tiny-mime
-supports encoding/decoding only ISO-2022-JP and US-ASCII.
-
- And decoding ISO-8859-* encoded-words if they includes only ASCII.
-
-
-* How to use tiny-mime.el (simple way)
-
-** decoding
-
- Please load tiny-mime.el, and do following command on the buffer
-which you want to decode.
-
- M-x mime/decode-message-header
-
- And you can decode region by
-
- M-x mime/decode-region
-
-** encoding
-
- Please load tiny-mime.el, and do following command on the buffer
-which you want to encode.
-
- M-x mime/encode-message-header
-
-
-
-* variables
-
-** mime/no-encoding-header-fields
-
- You can specify list of fields which you don't want to
-encode. Default value is ("X-Nsubject").
-
-example: don't encode Subject and X-Nsubject fields
-
-[[E
-----------------------------------------------------------------------
-(setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
-----------------------------------------------------------------------
-]]E
-
-
-* How to add or change character sets
-
- In Mule, you can add or change character sets by function
-mime/set-charset-and-encoding.
-
- Function: mime/set-charset-and-encoding lc cs charset encoding
-
- lc: leading-char
- cs: coding-system. Please specify nil if you don't want to use
- coding-system for 1 octet character.
- charset: MIME character set
- encoding: encoding method for encoder
-
-
-example 1: encode EUC-KR B encoding for KS C5601-1987 characters
-
- (mime/set-charset-and-encoding lc-kr *euc-kr* "EUC-KR" "B")
-
-
-example 2: encode/decode koi8-r Q encoding
-
- (mime/set-charset-and-encoding lc-prv11 nil "KOI8-R" "Q")
-
-[WARNING] In this version, handling for private character is very ad
-hoc. (^_^; I want to improve.
+++ /dev/null
-\documentstyle{article}
-\setcounter{secnumdepth}{6}
-\setcounter{tocdepth}{6}
-\topsep=0.1cm
-\parsep=0.1cm
-\itemsep=0.0cm
-\begin{document}
-\title{tiny-mime manual (English Version)}
-\author{Morioka Tomohiko}
-\date{1994/8/4}
-\maketitle
-\medskip
-
-\section{Overview}
-\medskip
-\par
-tiny-mime is a multilingual MIME style message header
-encoder/decoder based on RFC 1522 for Mule, NEmacs, and NEpoch. I
-modified Mr.Enami's ISO-2022-JP Base64 MIME header decoder and make
-it. Mr.Enami's program can decode only ISO-2022-JP Base64 header. But,
-current tiny-mime has following functions:
-\medskip
-\begin{itemize}
-\item unfolding at decoding
-\item encoding/decoding multilingual character sets, such as,
-ISO-2022-JP, ISO-2022-JP-2, ISO-2022-CN, ISO-2022-KR, ISO-8859-*,
-US-ASCII, EUC-KR
-\item B and Q-encoding
-\medskip
-\medskip
-\end{itemize}
-
-\section{character set and encoding}
-\medskip
-
-\subsection{Mule}
-\medskip
-\par
-Mule can use multilingual text, so in Mule, tiny-mime supports
-ISO-2022-JP, ISO-2022-JP-2, US-ASCII, ISO-8859-1..9, ISO-2022-CN,
-ISO-2022-KR, EUC-KR, et al.
-\medskip
-\par
-Additionally, you can add or change encoding/decoding for character
-sets by function mime/set-charset-and-encoding.
-\medskip
-
-\subsection{NEmacs and NEpoch}
-\medskip
-\par
-NEmacs can use Japanese and English only, so in NEmacs, tiny-mime
-supports encoding/decoding only ISO-2022-JP and US-ASCII.
-\medskip
-\par
-And decoding ISO-8859-* encoded-words if they includes only ASCII.
-\medskip
-\medskip
-
-\section{How to use tiny-mime.el (simple way)}
-\medskip
-
-\subsection{decoding}
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
- Please load tiny-mime.el, and do following command on the buffer
-which you want to decode.
-\end{verbatim}}
-\medskip
-{\list{}{\leftmargin=8ex}\item[]
-\par
-M-x mime/decode-message-header
-\endlist}
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
- And you can decode region by
-\end{verbatim}}
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
- M-x mime/decode-region
-\end{verbatim}}
-\medskip
-
-\subsection{encoding}
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
- Please load tiny-mime.el, and do following command on the buffer
-which you want to encode.
-\end{verbatim}}
-\medskip
-{\list{}{\leftmargin=8ex}\item[]
-\par
-M-x mime/encode-message-header
-\endlist}
-\medskip
-\medskip
-\medskip
-
-\section{variables}
-\medskip
-
-\subsection{mime/no-encoding-header-fields}
-\medskip
-\par
-You can specify list of fields which you don't want to
-encode. Default value is ("X-Nsubject").
-\medskip
-\begin{description}
-\item[example:]don't encode Subject and X-Nsubject fields
-\medskip
-\end{description}
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\medskip
-
-\section{How to add or change character sets}
-\medskip
-\par
-In Mule, you can add or change character sets by function
-mime/set-charset-and-encoding.
-\medskip
-\begin{description}
-\item[Function:]mime/set-charset-and-encoding lc cs charset encoding
-\medskip
-\begin{description}
-\item[lc:]leading-char
-\item[cs:]coding-system. Please specify nil if you don't want to use
-coding-system for 1 octet character.
-\item[charset:]MIME character set
-\item[encoding:]encoding method for encoder
-\medskip
-\medskip
-\end{description}
-\end{description}
-\begin{description}
-\item[example 1:]encode EUC-KR B encoding for KS C5601-1987 characters
-\medskip
-\par
-(mime/set-charset-and-encoding lc-kr *euc-kr* "EUC-KR" "B")
-\medskip
-\medskip
-\item[example 2:]encode/decode koi8-r Q encoding
-\medskip
-\par
-(mime/set-charset-and-encoding lc-prv11 nil "KOI8-R" "Q")
-\medskip
-\item[{[}WARNING{]}]In this version, handling for private character is very ad
-hoc. (\verb+^+\_\verb+^+; I want to improve.
-\end{description}
-\end{document}
+++ /dev/null
-\e$B!X\e(Btiny-mime.el \e$B@bL@=q!Y\e(B
-by. \e$B<i2,\e(B \e$BCNI'\e(B
-1994\e$BG/\e(B7\e$B7n\e(B27\e$BF|\e(B
-
- \e$B$3$N@bL@=q$O\e(B ol2 \e$B$H\e(B plain2 \e$B$rMQ$$$k$3$H$K$h$C$F\e(B LaTeX \e$B7A<0$KJQ49$9$k\e(B
-\e$B$3$H$,$G$-$^$9!#\e(B
-
-
-* tiny-mime.el \e$B$H$O\e(B
-
- tiny-mime.el \e$B$O\e(B Mule, NEmacs, NEpoch \e$B>e$GF0:n$9$k\e(B MIME message
-header \e$B$N\e(B encoder/decoder \e$B$G$9!#%*%j%8%J%k$O!"@N!"$($J$_\e(B \e$B$D$0$H$b\e(B \e$B$5$s\e(B
-\e$B$,\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(B
-
- \e$B!&\e(Bdecoding \e$B;~$K$*$1$k\e(B unfolding \e$B5!G=\e(B
- \e$B!&\e(BISO-2022-JP \e$B$K2C$(!"\e(BISO-8859-*, US-ASCII \e$B$J$I$N\e(B encoding/decoding
- \e$B!&\e(BQ-encoding \e$B$N\e(B decoding
-
-\e$B$H$$$C$?5!G=$r;}$C$F$$$^$9!#\e(B
-
-
-* tiny-mime.el \e$B$N%5%]!<%H$9$k\e(B character set, encoding
-
- tiny-mime.el \e$B$O!"<!$N\e(B character set, encoding \e$B$r%5%]!<%H$7$^$9!#\e(B
-
-** 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
-
-** 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
-
-
-* tiny-mime.el \e$B$N4JC1$J;H$$J}\e(B
-
-** 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
-
- M-x mime/decode-message-header
-
-\e$B$r<B9T$7$^$9!#\e(B
-
- \e$B$^$?!"\e(Bdecode \e$B$7$?$$\e(B region \e$B$r\e(B
-
- M-x mime/decode-region
-
-\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
-
-** 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
-
- M-x mime/encode-message-header
-
-\e$B$r<B9T$7$^$9!#\e(B
-
-
-* tiny-mime.el \e$B$NJQ?t\e(B
-
-** 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
-
-[[E
-----------------------------------------------------------------------
-(setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
-----------------------------------------------------------------------
-]]E
-
-\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
-
-** 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$B$?7k2L!"\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$?\e(B
-\e$B$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
-
-** mail-header-separator
-
- \e$B4X?t\e(B mime/encode-message-header \e$B$K$*$1$k\e(B message header \e$B$H\e(B body part
-\e$B$N6h@Z$j$rI=$9JQ?t$G$9!#Nc$($P!"\e(BGNUS \e$B$G$O\e(B "--text follows this line--"
-\e$B$,;XDj$5$l$^$9!#\e(B
-
-\e$B!NCm0U!O$3$NJQ?t$NJ8;zNs$O!"\e(Bversion 2.6 \e$B$h$j@55,I=8=$G$O$J$/$J$j$^$7$?!#\e(B
-
-
-* mailer, news reader \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$^$?!"\e(Bmetamail \e$B$r;H$C$F$*$i$l$kJ}$G$b!"IaCJ$O\e(B message header \e$B$N\e(B
-decode \e$B$@$1$GNI$/$F!"3($d2;$J$I$r:F@8$9$k;~$@$1\e(B metamail \e$B$r;H$&$H$$$&\e(B
-\e$B$h$&$J;H$$J}$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$&!#$^$?!"J8;zNs$N\e(B
-decode \e$B$r$7$?$$>l9g$N$?$a$K!"\e(B
-
- (mime/decode-string \e$BJ8;zNs\e(B)
-
-\e$B$H$$$&4X?t$bMQ0U$7$F$$$^$9!#\e(B
-
- GNUS \e$B$H\e(B mh-e \e$B$K4X$7$F$O!"\e(Btm-gnus, tm-mh-e \e$B$H$$$&\e(B MIME \e$BBP1~2=%b%8%e!<\e(B
-\e$B%k$rMQ0U$7$F$$$^$9!#\e(B
-
- \e$B$3$l$i$N!"3F\e(B MUA \e$B$KBP1~$9$k%b%8%e!<%k$r\e(B load \e$B$9$k$H\e(B tiny-mime.el \e$B$K\e(B
-\e$B$h$k\e(B MIME header \e$B$NI|85$H\e(B tm-body \e$B$rMxMQ$7$?\e(B MIME body \e$B$N:F@8$,9T$J$(\e(B
-\e$B$^$9!#\e(B
-
- \e$B>\$7$/$O!"$=$l$>$l$N@bL@=q$r$*FI$_2<$5$$!#\e(B
-
-
-* mime.el \e$B$H$NJ;MQ\e(B
-
- mime.el \e$B$HJ;MQ$9$kNc$r<($7$^$9!#$3$NNc$N>l9g!"\e(BISO-2022-JP \e$BJ8;zNs$N\e(B
-encode \e$B$O\e(B tiny-mime.el \e$B$,9T$J$$!"$=$l0J30$NJ8;z=89g$KB0$9$kJ8;zNs$O\e(B
-mime.el \e$B$,\e(B encode \e$B$7$^$9!#\e(B
-
- \e$B$^$?!"\e(Btiny-mime.el \e$B$,\e(B encode \e$B$7$J$+$C$?J8;zNs$b\e(B mime.el \e$B$,\e(B encode \e$B$9\e(B
-\e$B$k$N$G!"7k2LE*$K!"I,$:A4$F$N\e(B field \e$B$,\e(B encode \e$B$5$l$k$3$H$KCm0U$7$F2<$5\e(B
-\e$B$$!#\e(B
-
-[[E
-----------------------------------------------------------------------
-;;;
-;;; for Edit MIME mode
-;;;
-(autoload 'mime-mode "mime" "Edit MIME message." t)
-(autoload 'mime-convert-buffer "mime" "convert to MIME." t)
-(autoload 'insert-signature "signature" "Insert signature" t)
-(add-hook 'mime-mode-hook
- (function
- (lambda ()
- (define-key (current-local-map)
- "\C-c\C-s" (function insert-signature))
- )))
-
-;; MIME header \e$B$N\e(B encoder \e$B$r\e(B tiny-mime \e$B$N$b$N$r;H$&!#\e(B
-(setq mime-translate-hook 'mime/encode-message-header)
-
-;;;
-;;; for GNUS
-;;;
-(add-hook 'news-reply-mode-hook (function mime-mode))
-(setq gnus-signature-file nil)
-
-;;;
-;;; for mh-e
-;;;
-(add-hook 'mh-letter-mode-hook
- (function
- (lambda ()
- (mime/decode-message-header)
- (mime-mode)
- (make-local-variable 'mail-header-separator)
- (setq mail-header-separator "--------"))
- ))
-----------------------------------------------------------------------
-]]E
-
-** \e$BFCDj$N\e(B field \e$B$r\e(B encode \e$B$7$?$/$J$$>l9g\e(B
-
- \e$BFCDj$N\e(B field \e$B$r\e(B encode \e$B$7$?$/$J$$>l9g!"\e(Btiny-mime.el \e$B$NJQ?t\e(B
-mime/no-encoding-header-fields \e$B$K$h$C$F!"\e(Btiny-mime.el \e$B$K$h$k\e(B encode \e$B$r\e(B
-\e$B$d$a$k$3$H$,$G$-$^$9$,!"\e(Bmime.el \e$B$,\e(B encode \e$B$9$k$N$G$O0UL#$,$"$j$^$;$s!#\e(B
-\e$B$=$3$G!"<!$N$h$&$K@_Dj$9$k$3$H$G!"\e(Bmime.el \e$B$G$b\e(B encode \e$B$7$J$$$h$&$K$G$-\e(B
-\e$B$^$9!#\e(B
-
-[[E
-----------------------------------------------------------------------
-(if (boundp 'MULE)
- (progn
- (defun mime-header-charset-chooser-for-mule-no-encode-ISO-2022-JP (begin end)
- (let ((lclist (find-charset-region begin end)))
- (cond ((null lclist) nil) ;US-ASCII requres no encoding.
- ((memq lc-ltn1 lclist)
- '("ISO-8859-1" . "Q"))
- ((memq lc-ltn2 lclist)
- '("ISO-8859-2" . "Q"))
- ((memq lc-ltn3 lclist)
- '("ISO-8859-3" . "Q"))
- ((memq lc-ltn4 lclist)
- '("ISO-8859-4" . "Q"))
- ((memq lc-crl lclist)
- '("ISO-8859-5" . "Q"))
- ;;((memq lc-arb lclist)
- ;; '("ISO-8859-6" . "Q"))
- ((memq lc-grk lclist)
- '("ISO-8859-7" . "Q"))
- ((memq lc-hbw lclist)
- '("ISO-8859-8" . "Q"))
- ((memq lc-ltn5 lclist)
- '("ISO-8859-9" . "Q"))
- ((memq lc-jp lclist) nil)
- (t ;Unknown charset. It must be Mule!
- '("ISO-2022-JP-2" . "B"))
- )))
- (setq mime-header-charset-chooser
- 'mime-header-charset-chooser-for-mule-no-encode-ISO-2022-JP)
- )
- (progn
- (defun mime-header-charset-chooser-for-nemacs-no-encode-ISO-2022-JP (begin end))
- (setq mime-header-charset-chooser
- 'mime-header-charset-chooser-for-nemacs-no-encode-ISO-2022-JP)
- ))
-----------------------------------------------------------------------
-]]E
-
- \e$BMW$9$k$K!"\e(BISO-2022-JP \e$BJ8;zNs$N\e(B encode \e$B$r\e(B mime.el \e$B$K$5$;$J$/$9$kLu$G\e(B
-\e$B$9!#\e(B
-
-
-* charset \e$B$NDI2C!&JQ99\e(B
-
- Mule \e$B$G$O!"4X?t\e(B mime/set-charset-and-encoding \e$B$G!"\e(Bcharset \e$B$NDI2C!&JQ\e(B
-\e$B99$,$G$-$^$9!#\e(B
-
- \e$B4X?t\e(B: mime/set-charset-and-encoding lc cs charset encoding
-
- lc: charset \e$B$KBP1~$9$k\e(B leading-char \e$B$r;XDj$9$k!#\e(B
- cs: charset \e$B$KBP1~$9$k\e(B coding-system \e$B$r;XDj$9$k!#\e(B1 octet \e$BJ8;z\e(B
- \e$B=89g$G\e(B coding-system \e$B$r:n$i$J$$>l9g$O!"\e(Bnil \e$B$r;XDj$9$k!#\e(B
- charset: MIME \e$B$N\e(B charset.
- encoding: encode \e$B$9$k:]$N\e(B encoding.
-
-
- \e$BNc!'\e(B KS C5601-1987 \e$B$r\e(B EUC-KR \e$B$N\e(B B encoding \e$B$9$k$h$&$K@_Dj$9$k\e(B
-
- (mime/set-charset-and-encoding lc-kr *euc-kr* "EUC-KR" "B")
-
-
- \e$BNc!'\e(B koi8-r \e$B$r\e(B Q encoding \e$B$9$k$h$&$K@_Dj$9$k!#\e(B
-
- (mime/set-charset-and-encoding lc-prv11 nil "KOI8-R" "Q")
-
-
-\e$B!NCm0U!O8=:_$N$H$3$m!"\e(Bprivate character \e$B$N@_Dj$OFq$"$j$G$9!#\e(B(^_^;
+++ /dev/null
-\documentstyle[a4j]{jarticle}
-\setcounter{secnumdepth}{6}
-\setcounter{tocdepth}{6}
-\topsep=0.1cm
-\parsep=0.1cm
-\itemsep=0.0cm
-\begin{document}
-\title{
-tiny-mime.el ÀâÌÀ½ñ}
-\author{
-¼é²¬ ÃÎɧ\\
-}
-\date{
-1994ǯ7·î27Æü}
-\maketitle
-\medskip
-\par
-¤³¤ÎÀâÌÀ½ñ¤Ï ol2 ¤È plain2 ¤òÍѤ¤¤ë¤³¤È¤Ë¤è¤Ã¤Æ LaTeX ·Á¼°¤ËÊÑ´¹¤¹¤ë
-¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
-\medskip
-\medskip
-
-\section{tiny-mime.el ¤È¤Ï}
-\medskip
-\par
-tiny-mime.el ¤Ï Mule, NEmacs, NEpoch ¾å¤ÇÆ°ºî¤¹¤ë MIME message
-header ¤Î encoder/decoder ¤Ç¤¹¡£¥ª¥ê¥¸¥Ê¥ë¤Ï¡¢ÀΡ¢¤¨¤Ê¤ß ¤Ä¤°¤È¤â ¤µ¤ó
-¤¬ fj.editor.emacs ¤ËÅê¹Æ¤µ¤ì¤¿ MIME message header ¤Î decoder ¤Ç¤¹¡£
-\medskip
-\par
-¸½ºß¤Ç¤Ï¡¢Åö»þ¤Î¤â¤Î¤ËÈæ¤Ù¡¢
-\medskip
-\begin{itemize}
-\item decoding »þ¤Ë¤ª¤±¤ë unfolding µ¡Ç½
-\item ISO-2022-JP ¤Ë²Ã¤¨¡¢ISO-8859-*, US-ASCII ¤Ê¤É¤Î encoding/decoding
-\item Q-encoding ¤Î decoding
-\medskip
-\end{itemize}
-\par
-¤È¤¤¤Ã¤¿µ¡Ç½¤ò»ý¤Ã¤Æ¤¤¤Þ¤¹¡£
-\medskip
-\medskip
-
-\section{tiny-mime.el ¤Î¥µ¥Ý¡¼¥È¤¹¤ë character set, encoding}
-\medskip
-\par
-tiny-mime.el ¤Ï¡¢¼¡¤Î character set, encoding ¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£
-\medskip
-
-\subsection{Mule}
-\medskip
-\par
-ISO-2022-JP, US-ASCII, ISO-8859-1..9, ISO-2022-CN, ISO-2022-KR,
-EUC-KR ¤Ê¤É¤Î encoding/decoding ¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£¤Þ¤¿¡¢´Ø¿ô
-mime/set-charset-and-encoding ¤ÇÄɲá¦Êѹ¹¤¬¤Ç¤¤Þ¤¹¡£
-\medskip
-
-\subsection{NEmacs, NEpoch}
-\medskip
-\par
-ISO-2022-JP, US-ASCII ¤Î encoding/decoding ¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£
-\medskip
-\par
-¤Þ¤¿¡¢ISO-8859-*¤Ç¤¢¤Ã¤Æ¤â¡¢encoded-text ¤Ë´Þ¤Þ¤ì¤ëʸ»úÎ󤬼ºݤˤÏ
-ASCII ¤Çɽ¤»¤ëÈϰϤʤéɽ¼¨¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\section{tiny-mime.el ¤Î´Êñ¤Ê»È¤¤Êý}
-\medskip
-
-\subsection{decode}
-\medskip
-\par
-tiny-mime.el ¤ò load ¤·¤Æ¡¢decode ¤·¤¿¤¤ buffer ¾å¤Ç¡¢
-\medskip
-{\list{}{\leftmargin=8ex}\item[]
-\par
-M-x mime/decode-message-header
-\endlist}
-\medskip
-\par
-¤ò¼Â¹Ô¤·¤Þ¤¹¡£
-\medskip
-\par
-¤Þ¤¿¡¢decode ¤·¤¿¤¤ region ¤ò
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
- M-x mime/decode-region
-\end{verbatim}}
-\medskip
-\par
-¤Ç decode ¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£°úÍÑ¤Ê¤É¤Ç body-part ¤Ë»Ä¤Ã¤¿
-encoded-word ¤ò decode ¤¹¤ë¤Î¤ËÊØÍø¤Ç¤·¤ç¤¦¡£
-\medskip
-
-\subsection{encode}
-\medskip
-\par
-tiny-mime.el ¤ò load ¤·¤Æ¡¢encode ¤·¤¿¤¤ buffer ¾å¤Ç¡¢
-\medskip
-{\list{}{\leftmargin=8ex}\item[]
-\par
-M-x mime/encode-message-header
-\endlist}
-\medskip
-\par
-¤ò¼Â¹Ô¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\section{tiny-mime.el ¤ÎÊÑ¿ô}
-\medskip
-
-\subsection{mime/no-encoding-header-fields}
-\medskip
-\par
-tiny-mime.el ¤Ç encode ¤·¤Ê¤¤ message header ¤Î field ¤ò»ØÄꤷ¤Þ¤¹¡£
-\medskip
-\par
-default ¤Ç¤Ï X-Nsubject ¤¬»ØÄꤵ¤ì¤Æ¤¤¤Þ¤¹¡£
-\medskip
-\par
-Î㡧 X-Nsubject ¤È Subject ¤ò encode ¤·¤Ê¤¤¤è¤¦¤Ë¤¹¤ë¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-¡ÎÃí°Õ¡Ï mime.el ¤ÈÊ»ÍѤ¹¤ë¾ì¹ç¡¢tiny-mime.el ¤¬ encode ¤·¤Ê¤¯¤Æ¤â¡¢
-mime.el ¤¬ encode ¤¹¤ë¤Î¤Ç¡¢mime.el ¤Î message header encoder ¤¬Æ¯¤«¤Ê
-¤¤¤è¤¦¤Ë¤ËÀßÄꤷ¤Þ¤¹¡£
-\medskip
-
-\subsection{mime/use-X-Nsubject}
-\medskip
-\par
-¤³¤ÎÊÑ¿ô¤ÎÃͤ¬ t ¤Î¾ì¹ç¡¢message header ¤ò encode ¤¹¤ë»þ¡¢encode ¤·
-¤¿·ë²Ì¡¢Subject ¤Ë encoded-word ¤¬´Þ¤Þ¤ì¤ë¾ì¹ç¡¢Subject ¤ò decode ¤·¤¿
-¤â¤Î¤òÆþ¤ì¤¿ X-Nsubject ¤òºîÀ®¤·¤Þ¤¹¡£
-\medskip
-\par
-default ¤Ç¤Ï nil ¤¬»ØÄꤵ¤ì¤Æ¤¤¤Þ¤¹¡£
-\medskip
-\par
-¡ÎÃí°Õ¡ÏMule ¤Ç ISO-2022-JP ¤Ë´Þ¤Þ¤ì¤ë¤â¤Î°Ê³°¤Îʸ»ú½¸¹ç¤ò»È¤¦¾ì¹ç¤Ï¡¢
-¤³¤ì¤ò»ØÄꤷ¤Ê¤¤Êý¤¬¸ÌÀ¤Ç¤¹¡£
-\medskip
-
-\subsection{mail-header-separator}
-\medskip
-\par
-´Ø¿ô mime/encode-message-header ¤Ë¤ª¤±¤ë message header ¤È body part
-¤Î¶èÀÚ¤ê¤òɽ¤¹ÊÑ¿ô¤Ç¤¹¡£Î㤨¤Ð¡¢GNUS ¤Ç¤Ï "--text follows this line--"
-¤¬»ØÄꤵ¤ì¤Þ¤¹¡£
-\medskip
-\par
-¡ÎÃí°Õ¡Ï¤³¤ÎÊÑ¿ô¤Îʸ»úÎó¤Ï¡¢version 2.6 ¤è¤êÀµµ¬É½¸½¤Ç¤Ï¤Ê¤¯¤Ê¤ê¤Þ¤·¤¿¡£
-\medskip
-\medskip
-
-\section{mailer, news reader ¤Ø¤ÎÁȤ߹þ¤ß}
-\medskip
-\par
-Æü¾ïŪ¤Ë¡¢Ìµ°Õ¼±¤Ë MIME header ¤òËÜÍè¤Î¸À¸ì¤Ç¸«¤¿¤¤¤È¤¤¤¦¤Î¤ÏÅöÁ³¤Î
-Íßµá¤Ç¤¹¡£¤½¤³¤Ç¡¢tiny-mime.el ¤ò mailer ¤ä news reader ¤ËÁȤ߹þ¤à¤È¼«
-ưŪ¤Ë MIME header ¤Î encode/decode ¤¬¤Ç¤¤Þ¤¹¡£
-\medskip
-\par
-¤Þ¤¿¡¢metamail ¤ò»È¤Ã¤Æ¤ª¤é¤ì¤ëÊý¤Ç¤â¡¢ÉáÃÊ¤Ï message header ¤Î
-decode ¤À¤±¤ÇÎɤ¯¤Æ¡¢³¨¤ä²»¤Ê¤É¤òºÆÀ¸¤¹¤ë»þ¤À¤± metamail ¤ò»È¤¦¤È¤¤¤¦
-¤è¤¦¤Ê»È¤¤Êý¤â¤Ç¤¤Þ¤¹¡£
-\medskip
-\par
-¤³¤ÎÌÜŪ¤ò¼Â¸½¤¹¤ë¤Ë¤Ï¡¢mailer ¤ä news reader ¤ÎŬÀÚ¤Ê hook ¤Ë
-mime/decode-message-header ¤òÆþ¤ì¤ì¤ÐÎɤ¤¤Ç¤·¤ç¤¦¡£¤Þ¤¿¡¢Ê¸»úÎó¤Î
-decode ¤ò¤·¤¿¤¤¾ì¹ç¤Î¤¿¤á¤Ë¡¢
-\medskip
-{\list{}{\leftmargin=8ex}\item[]
-\par
-(mime/decode-string ʸ»úÎó)
-\endlist}
-\medskip
-\par
-¤È¤¤¤¦´Ø¿ô¤âÍÑ°Õ¤·¤Æ¤¤¤Þ¤¹¡£
-\medskip
-\par
-GNUS ¤È mh-e ¤Ë´Ø¤·¤Æ¤Ï¡¢tm-gnus, tm-mh-e ¤È¤¤¤¦ MIME Âбþ²½¥â¥¸¥å¡¼
-¥ë¤òÍÑ°Õ¤·¤Æ¤¤¤Þ¤¹¡£
-\medskip
-\par
-¤³¤ì¤é¤Î¡¢³Æ MUA ¤ËÂбþ¤¹¤ë¥â¥¸¥å¡¼¥ë¤ò load ¤¹¤ë¤È tiny-mime.el ¤Ë
-¤è¤ë MIME header ¤ÎÉü¸µ¤È tm-body ¤òÍøÍѤ·¤¿ MIME body ¤ÎºÆÀ¸¤¬¹Ô¤Ê¤¨
-¤Þ¤¹¡£
-\medskip
-\par
-¾Ü¤·¤¯¤Ï¡¢¤½¤ì¤¾¤ì¤ÎÀâÌÀ½ñ¤ò¤ªÆɤ߲¼¤µ¤¤¡£
-\medskip
-\medskip
-
-\section{mime.el ¤È¤ÎÊ»ÍÑ}
-\medskip
-\par
-mime.el ¤ÈÊ»ÍѤ¹¤ëÎã¤ò¼¨¤·¤Þ¤¹¡£¤³¤ÎÎã¤Î¾ì¹ç¡¢ISO-2022-JP ʸ»úÎó¤Î
-encode ¤Ï tiny-mime.el ¤¬¹Ô¤Ê¤¤¡¢¤½¤ì°Ê³°¤Îʸ»ú½¸¹ç¤Ë°¤¹¤ëʸ»úÎó¤Ï
-mime.el ¤¬ encode ¤·¤Þ¤¹¡£
-\medskip
-\par
-¤Þ¤¿¡¢tiny-mime.el ¤¬ encode ¤·¤Ê¤«¤Ã¤¿Ê¸»úÎó¤â mime.el ¤¬ encode ¤¹
-¤ë¤Î¤Ç¡¢·ë²ÌŪ¤Ë¡¢É¬¤ºÁ´¤Æ¤Î field ¤¬ encode ¤µ¤ì¤ë¤³¤È¤ËÃí°Õ¤·¤Æ²¼¤µ
-¤¤¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-;;;
-;;; for Edit MIME mode
-;;;
-(autoload 'mime-mode "mime" "Edit MIME message." t)
-(autoload 'mime-convert-buffer "mime" "convert to MIME." t)
-(autoload 'insert-signature "signature" "Insert signature" t)
-(add-hook 'mime-mode-hook
- (function
- (lambda ()
- (define-key (current-local-map)
- "\C-c\C-s" (function insert-signature))
- )))
-
-;; MIME header ¤Î encoder ¤ò tiny-mime ¤Î¤â¤Î¤ò»È¤¦¡£
-(setq mime-translate-hook 'mime/encode-message-header)
-
-;;;
-;;; for GNUS
-;;;
-(add-hook 'news-reply-mode-hook (function mime-mode))
-(setq gnus-signature-file nil)
-
-;;;
-;;; for mh-e
-;;;
-(add-hook 'mh-letter-mode-hook
- (function
- (lambda ()
- (mime/decode-message-header)
- (mime-mode)
- (make-local-variable 'mail-header-separator)
- (setq mail-header-separator "--------"))
- ))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-
-\subsection{ÆÃÄê¤Î field ¤ò encode ¤·¤¿¤¯¤Ê¤¤¾ì¹ç}
-\medskip
-\par
-ÆÃÄê¤Î field ¤ò encode ¤·¤¿¤¯¤Ê¤¤¾ì¹ç¡¢tiny-mime.el ¤ÎÊÑ¿ô
-mime/no-encoding-header-fields ¤Ë¤è¤Ã¤Æ¡¢tiny-mime.el ¤Ë¤è¤ë encode ¤ò
-¤ä¤á¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¤¬¡¢mime.el ¤¬ encode ¤¹¤ë¤Î¤Ç¤Ï°ÕÌ£¤¬¤¢¤ê¤Þ¤»¤ó¡£
-¤½¤³¤Ç¡¢¼¡¤Î¤è¤¦¤ËÀßÄꤹ¤ë¤³¤È¤Ç¡¢mime.el ¤Ç¤â encode ¤·¤Ê¤¤¤è¤¦¤Ë¤Ç¤
-¤Þ¤¹¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(if (boundp 'MULE)
- (progn
- (defun mime-header-charset-chooser-for-mule-no-encode-ISO-2022-JP (begin end)
- (let ((lclist (find-charset-region begin end)))
- (cond ((null lclist) nil) ;US-ASCII requres no encoding.
- ((memq lc-ltn1 lclist)
- '("ISO-8859-1" . "Q"))
- ((memq lc-ltn2 lclist)
- '("ISO-8859-2" . "Q"))
- ((memq lc-ltn3 lclist)
- '("ISO-8859-3" . "Q"))
- ((memq lc-ltn4 lclist)
- '("ISO-8859-4" . "Q"))
- ((memq lc-crl lclist)
- '("ISO-8859-5" . "Q"))
- ;;((memq lc-arb lclist)
- ;; '("ISO-8859-6" . "Q"))
- ((memq lc-grk lclist)
- '("ISO-8859-7" . "Q"))
- ((memq lc-hbw lclist)
- '("ISO-8859-8" . "Q"))
- ((memq lc-ltn5 lclist)
- '("ISO-8859-9" . "Q"))
- ((memq lc-jp lclist) nil)
- (t ;Unknown charset. It must be Mule!
- '("ISO-2022-JP-2" . "B"))
- )))
- (setq mime-header-charset-chooser
- 'mime-header-charset-chooser-for-mule-no-encode-ISO-2022-JP)
- )
- (progn
- (defun mime-header-charset-chooser-for-nemacs-no-encode-ISO-2022-JP (begin end))
- (setq mime-header-charset-chooser
- 'mime-header-charset-chooser-for-nemacs-no-encode-ISO-2022-JP)
- ))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-Íפ¹¤ë¤Ë¡¢ISO-2022-JP ʸ»úÎó¤Î encode ¤ò mime.el ¤Ë¤µ¤»¤Ê¤¯¤¹¤ëÌõ¤Ç
-¤¹¡£
-\medskip
-\medskip
-
-\section{charset ¤ÎÄɲá¦Êѹ¹}
-\medskip
-\par
-Mule ¤Ç¤Ï¡¢´Ø¿ô mime/set-charset-and-encoding ¤Ç¡¢charset ¤ÎÄɲá¦ÊÑ
-¹¹¤¬¤Ç¤¤Þ¤¹¡£
-\medskip
-\begin{description}
-\item[´Ø¿ô:]mime/set-charset-and-encoding lc cs charset encoding
-\medskip
-\begin{description}
-\item[lc:]charset ¤ËÂбþ¤¹¤ë leading-char ¤ò»ØÄꤹ¤ë¡£
-\item[cs:]charset ¤ËÂбþ¤¹¤ë coding-system ¤ò»ØÄꤹ¤ë¡£1 octet ʸ»ú
-½¸¹ç¤Ç coding-system ¤òºî¤é¤Ê¤¤¾ì¹ç¤Ï¡¢nil ¤ò»ØÄꤹ¤ë¡£
-\item[charset:]MIME ¤Î charset.
-\item[encoding:]encode ¤¹¤ëºÝ¤Î encoding.
-\medskip
-\medskip
-\end{description}
-\end{description}
-\par
-Î㡧 KS C5601-1987 ¤ò EUC-KR ¤Î B encoding ¤¹¤ë¤è¤¦¤ËÀßÄꤹ¤ë
-\medskip
-{\list{}{\leftmargin=8ex}\item[]
-\par
-(mime/set-charset-and-encoding lc-kr *euc-kr* "EUC-KR" "B")
-\endlist}
-\medskip
-\medskip
-\par
-Î㡧 koi8-r ¤ò Q encoding ¤¹¤ë¤è¤¦¤ËÀßÄꤹ¤ë¡£
-\medskip
-{\list{}{\leftmargin=8ex}\item[]
-\par
-(mime/set-charset-and-encoding lc-prv11 nil "KOI8-R" "Q")
-\endlist}
-\medskip
-\medskip
-\par
-¡ÎÃí°Õ¡Ï¸½ºß¤Î¤È¤³¤í¡¢private character ¤ÎÀßÄê¤ÏÆñ¤¢¤ê¤Ç¤¹¡£(\verb+^+\_\verb+^+;
-\end{document}
+++ /dev/null
-\input texinfo.tex
-@c{-*-tiny-mime manual-*-}
-@setfilename tm-head-jp.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$}
-
-@end titlepage
-
-
-@menu
-@end menu
-
-@node Top, Abstract, (dir), (dir)
-@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::
-* Charset::
-* How-to-use::
-* Variable::
-* Customize::
-@end menu
-
-
-@node Abstract, Charset, 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 Charset, 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-for-charset})
-
-
-@node How-to-use, Variable, Charset, 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 Variable, Customize, How-to-use, 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
-
-@example
-(setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
-@end example
-
-\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, Top, Variable, Top
-@comment node-name, next, previous, up
-@chapter{\e$B%+%9%?%^%$%:\e(B}
-@cindex{\e$B%+%9%?%^%$%:\e(B}
-
-@menu
-* Customize-for-charset::
-@end menu
-
-@node Customize-for-charset, Customize, Customize, Customize
-@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 mime/set-charset-and-encoding \e$B$G!"\e(Bcharset \e$B$NDI2C!&JQ99\e(B
-\e$B$,$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
-
-@bye
+++ /dev/null
-\input texinfo.tex
-@c{-*-tl manual-*-}
-@setfilename tl-jp.info
-@settitle{tl manual}
-
-@titlepage
-@sp{5}
-@center{@titlefont{Emacs Lisp library `tl'}}
-@sp{15}
-@center{@titlefont{\e$B<i2,\e(B \e$BCNI'\e(B}}
-@sp{1}
-@center{$Id: tl-jp.texi,v 1.2 1994/11/08 19:07:28 morioka Exp $}
-
-@end titlepage
-
-@node Top, Abstract, (dir), (dir)
-@comment node-name, next, previous, up
-
-@ifinfo
-tm \e$B$J$I$G;H$o$l$k\e(B Emacs Lisp \e$B$N\e(B library, `tl' \e$B$K4X$7$F@bL@$7$^$9!#\e(B
-@end ifinfo
-
-@menu
-* Abstract::
-* Compatible::
-* tl-list::
-* tl-str::
-* tl-header::
-* Concept Index::
-* Command Index::
-* Variable Index::
-@end menu
-
-
-@node Abstract, Compatible, Top, Top
-@comment node-name, next, previous, up
-@chapter{\e$B35MW\e(B}
-@cindex{\e$B35MW\e(B}
-
-tl \e$B$O\e(B tm \e$B$J$I$N\e(B Emacs Lisp program \e$B$G6&DL$K;H$&$?$a$NHFMQE*$J\e(B module
-\e$B$r=8$a$?\e(B package \e$B$G$9!#\e(B
-
-tl \e$B$O0J2<$N$h$&$J\e(B module \e$B$+$i@.$j$^$9!#\e(B
-
-@itemize @bullet
-@item tl-18
-@item tl-nemacs
-@item tl-orig
-@item tl-mule
-@item tl-list
-@item tl-str
-@item tl-header
-@end itemize
-
-
-@node Compatible, tl-18, Abstract, Top
-@comment node-name, next, previous, up
-@chapter{\e$B8_49@-$r$H$k$?$a$N5!9=\e(B}
-@cindex{\e$B8_49@-$r$H$k$?$a$N5!9=\e(B}
-
-tl \e$B$G$O!"\e(BOriginal Emacs \e$B$G$N\e(B version \e$B$N:9$d!"$=$NF|K\8l2=$dB?8@8l2=$J\e(B
-\e$B$I$N3HD%$K$h$k:9$rKd$a!"$3$l$i$NB?MM$J\e(B Emacs \e$B$N>e$G8_49@-$r$H$k$?$a$N\e(B
-\e$B5!9=$rMQ0U$7$F$$$^$9!#\e(B
-
-\e$B$=$N0l$D$O!"\e(BEmacs 18 \e$B$G\e(B Emacs 19 \e$B$N4X?t$rMQ0U$7$F!"\e(BEmacs 19 \e$B$G3HD%$5$l\e(B
-\e$B$?5!G=$r\e(B Emacs 18 \e$B$GMxMQ$9$k$?$a$N\e(B module `tl-18' \e$B$G$9!#\e(B
-
-\e$B$b$&0l$D$O!"\e(BNEmacs, Original Emacs, Mule \e$B$J$I$G$NJ8;z!"J8;zNs$N<h07$$\e(B
-\e$B$N:90[$rKd$a!"$3$l$i$G6&DL$KF0$/\e(B program \e$B$r=q$/$?$a$N\e(B module \e$B$G$9!#\e(B
-
-
-@menu
-* tl-18::
-* tl-nemacs::
-* tl-orig::
-* tl-mule::
-@end menu
-
-
-@node tl-18, tl-nemacs, Compatible, Compatible
-@comment node-name, next, previous, up
-@section{tl-18}
-@cindex{tl-18}
-
-tl-18 \e$B$O\e(B Emacs 18 \e$B$G\e(B Emacs 19 \e$B$N4X?t$r;H$&$?$a$N\e(B module \e$B$G$9!#\e(B
-
-tl-18.el \e$B$G$O!"8=:_!"\e(BEmacs 19 \e$B$N4X?t$N$&$A!"\e(B@code{add-hook},
-@code{member} \e$B$r<B8=$7$F$$$^$9!#\e(B
-
-tl-18 \e$B$rMxMQ$9$k$K$O\e(B @code{(require 'tl-18)} \e$B$r=q$$$F2<$5$$!#\e(B
-
-
-@node tl-nemacs, tl-orig, tl-18, Compatible
-@comment node-name, next, previous, up
-@section{tl-nemacs}
-@cindex{tl-nemacs}
-
-tl-nemacs \e$B$O!"\e(BNEmacs \e$B$K$*$$$F!"<g$K!"F|K\8l=hM}$K4X$7$F!"\e(BMule \e$B$J$I$NB>\e(B
-\e$B$N\e(B Emacs \e$B$H$N8_49@-$r<h$k$?$a$N\e(B module \e$B$G$9!#\e(Btl-nemacs \e$B$r;H$&$3$H$K$h$C\e(B
-\e$B$F!"\e(BNEmacs, Original Emacs, Mule \e$B$NJL$K0M$i$J$$\e(B program \e$B$r=q$/$3$H$,$G\e(B
-\e$B$-$^$9!#\e(B
-
-tl-nemacs \e$B$rMxMQ$9$k$K$O\e(B @code{(require 'tl-nemacs)} \e$B$r=q$$$F2<$5$$!#\e(B
-
-
-@subsection{\e$BJ8;z\e(B code}
-
-@defvr{Constant} *junet*
-
-ISO-2022-JP (JIS) \e$B$rI=$9!#CM$O\e(B 2.\e$B!J\e(BMULE \e$B8_49Dj?t!K\e(B
-@end defvr
-
-@defvr{Constant} *internal*
-
-NEmacs \e$B$NFbIt\e(B code \e$B$rI=$9!#CM$O\e(B 3. \e$B<B:]$K$O!"\e(BEUC \e$B$HF1$8!#!J\e(BMULE \e$B8_49Dj\e(B
-\e$B?t!K\e(B
-@end defvr
-
-@defvr{Constant} *euc-japan*
-
-EUC-JP (EUC) \e$B$rI=$9!#CM$O\e(B 3.\e$B!J\e(BMULE \e$B8_49Dj?t!K\e(B
-@end defvr
-
-@deffn{Function} code-convert-string STR SOURCE TARGET
-
-\e$BJ8;zNs\e(B @var{STR} \e$B$r\e(B @var{SOURCE} code \e$B$+$i\e(B @var{TARGET} code \e$B$KJQ49$9\e(B
-\e$B$k!#!J\e(BMULE \e$B8_494X?t!K\e(B
-@end deffn
-
-
-@subsection{leading character}
-
-@defvr{Constant} lc-ascii
-
-ASCII \e$B$rI=$9\e(B leading character.\e$B!J\e(BMULE \e$B8_49Dj?t!K\e(B
-@end defvr
-
-@defvr{Constant} lc-jp
-
-JIS X0208 \e$B$rI=$9\e(B leading character.\e$B!J\e(BMULE \e$B8_49Dj?t!K\e(B
-@end defvr
-
-@deffn{Function} get-lc CHR
-
-\e$BJ8;z$N@hF,\e(B octet @var{CHR} \e$B$KBP$7$F!"$=$NJ8;z$N\e(B leading character \e$B$rJV\e(B
-\e$B$9!#\e(B
-@end deffn
-
-
-@subsection{\e$BJ8;z=hM}\e(B}
-
-@deffn{Function} char-bytes CHR
-
-\e$BJ8;z$N@hF,\e(B octet @var{CHR} \e$B$KBP$7$F!"$=$NJ8;z$N\e(B byte \e$B?t$rJV$9!#!J\e(BMULE
-\e$B8_494X?t!K\e(B
-@end deffn
-
-@deffn{Function} char-width CHR
-
-\e$BJ8;z$N@hF,\e(B octet @var{CHR} \e$B$KBP$7$F!"$=$NJ8;z$NI}$rJV$9!#!J\e(BMULE \e$B8_494X\e(B
-\e$B?t!K\e(B
-@end deffn
-
-
-@subsection{\e$BJ8;zNs=hM}\e(B}
-
-@deffn{Function} string-width STR
-
-\e$BJ8;zNs\e(B @var{STR} \e$B$NI}$rJV$9!#!J\e(BMULE \e$B8_494X?t!K\e(B
-@end deffn
-
-@deffn{Function} check-ASCII-string STR
-
-\e$BJ8;zNs\e(B @var{STR} \e$B$NCf$K\e(B ASCII \e$B0J30$NJ8;z$,4^$^$l$J$$$3$H$r3N$+$a$k!#$b\e(B
-\e$B$7!"\e(BASCII \e$B0J30$NJ8;z$,4^$^$l$F$$$l$P\e(B nil \e$B$rJV$9!#\e(B
-@end deffn
-
-
-@subsection{\e$B$=$NB>\e(B}
-
-@deffn{Function} attribute-add-narrow-attribute ATR FROM TO
-
-@var{FROM} \e$B$H\e(B @var{TO} \e$B$G0O$^$l$?\e(B region \e$B$K\e(B @var{ATR} \e$B$N\e(B attribute \e$B$r\e(B
-\e$BIU$1$k!#\e(B
-@end deffn
-
-
-@node tl-orig, tl-mule, tl-nemacs, Compatible
-@comment node-name, next, previous, up
-@section{tl-orig}
-@cindex{tl-orig}
-
-tl-orig \e$B$O!"\e(BOriginal Emacs 19 \e$B$K$*$$$F!"<g$K!"\e(BISO-8859-1 \e$B$N=hM}$K4X$7\e(B
-\e$B$F!"\e(BMule \e$B$J$I$NB>$N\e(B Emacs \e$B$H$N8_49@-$r<h$k$?$a$N\e(B module \e$B$G$9!#\e(Btl-orig
-\e$B$r;H$&$3$H$K$h$C$F!"\e(BNEmacs, Original Emacs, Mule \e$B$NJL$K0M$i$J$$\e(B
-program \e$B$r=q$/$3$H$,$G$-$^$9!#\e(B
-
-tl-orig \e$B$rMxMQ$9$k$K$O\e(B @code{(require 'tl-orig)} \e$B$r=q$$$F2<$5$$!#\e(B
-
-
-@subsection{leading character}
-
-@defvr{Constant} lc-ascii
-
-ASCII \e$B$rI=$9\e(B leading character.\e$B!J\e(BMULE \e$B8_49Dj?t!K\e(B
-@end defvr
-
-@defvr{Constant} lc-ltn1
-
-ISO 8859-1 \e$B$rI=$9\e(B leading character.\e$B!J\e(BMULE \e$B8_49Dj?t!K\e(B
-@end defvr
-
-@deffn{Function} get-lc CHR
-
-\e$BJ8;z$N@hF,\e(B octet @var{CHR} \e$B$KBP$7$F!"$=$NJ8;z$N\e(B leading character \e$B$rJV\e(B
-\e$B$9!#\e(B
-@end deffn
-
-
-@subsection{\e$BJ8;z=hM}\e(B}
-
-@deffn{Function} char-bytes CHR
-
-\e$BJ8;z$N@hF,\e(B octet @var{CHR} \e$B$KBP$7$F!"$=$NJ8;z$N\e(B byte \e$B?t$rJV$9!#!J\e(BMULE
-\e$B8_494X?t!K\e(B
-@end deffn
-
-@deffn{Function} char-width CHR
-
-\e$BJ8;z$N@hF,\e(B octet @var{CHR} \e$B$KBP$7$F!"$=$NJ8;z$NI}$rJV$9!#!J\e(BMULE \e$B8_494X\e(B
-\e$B?t!K\e(B
-@end deffn
-
-
-@subsection{\e$BJ8;zNs=hM}\e(B}
-
-@deffn{Function} string-width STR
-
-\e$BJ8;zNs\e(B @var{STR} \e$B$NI}$rJV$9!#!J\e(BMULE \e$B8_494X?t!K\e(B
-@end deffn
-
-
-@node tl-mule, tl-list, tl-orig, Compatible
-@comment node-name, next, previous, up
-@section{tl-mule}
-@cindex{tl-mule}
-
-tl-mule \e$B$O!"\e(BMule \e$B$K$*$$$F!"<g$K!"B?8@8lJ8;zNs$N=hM}$K4X$7$F!"\e(BNEmacs \e$B$d\e(B
-Original Emacs \e$B$J$I$NB>$N\e(B Emacs \e$B$H$N8_49@-$r<h$k$?$a$N\e(B module \e$B$G$9!#\e(B
-tl-mule \e$B$r;H$&$3$H$K$h$C$F!"\e(BNEmacs, Original Emacs, Mule \e$B$NJL$K0M$i$J\e(B
-\e$B$$\e(B program \e$B$r=q$/$3$H$,$G$-$^$9!#\e(B
-
-tl-mule \e$B$rMxMQ$9$k$K$O\e(B @code{(require 'tl-mule)} \e$B$r=q$$$F2<$5$$!#\e(B
-
-
-@subsection{leading character}
-
-@deffn{Function} get-lc CHR
-
-\e$BJ8;z$N@hF,\e(B octet @var{CHR} \e$B$KBP$7$F!"$=$NJ8;z$N\e(B leading character \e$B$rJV\e(B
-\e$B$9!#\e(B
-@end deffn
-
-
-@node tl-list, tl-str, Compatible, Top
-@comment node-name, next, previous, up
-@chapter{tl-list}
-@cindex{tl-list}
-
-tl-list \e$B$O\e(B list \e$B=hM}$K4X$9$kM-MQ$J4X?t$r=8$a$?\e(B module \e$B$G$9!#\e(B
-
-tl-list \e$B$rMxMQ$9$k$K$O\e(B @code{(require 'tl-list)} \e$B$r=q$$$F2<$5$$!#\e(B
-
-@section{list}
-
-@deffn{Function} last LIST
-
-@var{LIST} \e$B$N:G8e$NMWAG$rJV$9!#!J\e(BCommon Lisp \e$B8_494X?t!K\e(B
-@end deffn
-
-@deffn{Function} butlast LIST &optional n
-
-@var{LIST} \e$B$N:G8e$N\e(B @var{n} \e$BMWAG$r=|$$$?\e(B copy \e$B$rJV$9!#!J\e(BCommon Lisp \e$B8_\e(B
-\e$B494X?t!K\e(B
-@end deffn
-
-@deffn{Function} nbutlast LIST &optional n
-
-@var{LIST} \e$B$N:G8e$N\e(B @var{n} \e$BMWAG$r=|$$$?$b$N$rJV$9!#!JGK2uE*!K!J\e(BCommon
-Lisp \e$B8_494X?t!K\e(B
-@end deffn
-
-
-@section{\e$BO"A[%j%9%H\e(B}
-
-@deffn{Function} put-alist ITEM VALUE ALIST
-
-\e$BO"A[%j%9%H\e(B @var{ALIST} \e$B$N\e(B key @var{ITEM} \e$B$KBP1~$9$kCM$r\e(B @var{VALUE} \e$B$K\e(B
-\e$B$9$k!#!JGK2uE*!K!J\e(BELIS \e$B8_494X?t!K\e(B
-@end deffn
-
-@deffn{Function} del-alist ITEM ALIST
-
-\e$BO"A[%j%9%H\e(B @var{ALIST} \e$B$N\e(B key @var{ITEM} \e$B$KBP1~$9$kCM$r:o=|$9$k!#!JGK\e(B
-\e$B2uE*!K!J\e(BELIS \e$B8_494X?t!K\e(B
-@end deffn
-
-@deffn{Function} set-alist SYM ITEM VALUE
-
-\e$BO"A[%j%9%H$rF~$l$?\e(B symbol @var{SYM} \e$B$N\e(B key @var{ITEM} \e$B$NCM$r\e(B
-@var{VALUE} \e$B$K$9$k!#!JGK2uE*!K\e(B
-@end deffn
-
-
-@section{\e$BC10l2=;R\e(B}
-
-field \e$B$H$O\e(B @code{(field-type . field-value)} \e$B$H$$$&7A$r$7$?BP$G$"$k!#\e(B
-\e$B$3$N\e(B field \e$B$rMWAG$H$7$?\e(B @code{(field1 field2 ...)} \e$B$H$$$&7A$NO"A[%j%9\e(B
-\e$B%H$r!V7?!W$H$7$F<h$j07$&!#\e(B
-
-
-@deffn{Function} fetch-field KEY ALIST
-
-\e$BO"A[%j%9%H\e(B @var{ALIST} \e$B$N\e(B key @var{KEY} \e$B$KBP1~$9$kBP$rJV$9!#\e(Bassoc \e$B$HF1\e(B
-\e$B$8!#!J\e(Bjinn \e$B8_494X?t!K\e(B
-@end deffn
-
-@deffn{Function} put-field KEY VALUE ALIST
-
-\e$BO"A[%j%9%H\e(B @var{ALIST} \e$B$N\e(B key @var{KEY} \e$B$KBP1~$9$kCM$r\e(B @var{VALUE} \e$B$K\e(B
-\e$B$9$k!#\e(Bput-field \e$B$HF1$8!#!JGK2uE*!K!J\e(Bjinn \e$B8_494X?t!K\e(B
-@end deffn
-
-@deffn{Function} delete-field KEY VALUE
-
-\e$BO"A[%j%9%H\e(B @var{ALIST} \e$B$N\e(B key @var{KEY} \e$B$KBP1~$9$kCM$r:o=|$9$k!#!JGK2u\e(B
-\e$BE*!K!J\e(Bjinn \e$B8_494X?t!K\e(B
-@end deffn
-
-
-@deffn{Function} field-unifier-for-default CLASS INSTANCE
-
-\e$BB>$KE,Ev$J\e(B field-unifier \e$B$,8+$D$+$i$J$+$C$?>l9g$K5/F0$5$l$k\e(B
-field-unifier. field @var{CLASS} \e$B$H\e(B field @var{INSTANCE} \e$B$N\e(B
-field-unify \e$B$r9T$&!#!J\e(Bjinn \e$B8_494X?t!K\e(B
-@end deffn
-
-
-@deffn{Function} field-unify CLASS INSTANCE
-
-field @var{CLASS} \e$B$H\e(B field @var{INSTANCE} \e$B$N\e(B field-unify \e$B$r9T$&!#<B:]\e(B
-\e$B$K$O!"\e(B@var{CLASS} \e$B$N\e(B field-type \e$B$KBP1~$7$?\e(B field-unifier \e$B$,5/F0$5$l$k!#\e(B
-\e$B!J\e(Bjinn \e$B8_494X?t!K\e(B
-@end deffn
-
-
-@deffn{Function} assoc-unify CLASS INSTANCE
-
-\e$BO"A[%j%9%H\e(B @var{CLASS} \e$B$HO"A[%j%9%H\e(B @var{INSTANCE} \e$B$N\e(B type-unify \e$B$r9T\e(B
-\e$B$&!#!J\e(Bjinn \e$B8_494X?t!K\e(B
-@end deffn
-
-
-@node tl-str, tl-header, tl-list, Top
-@comment node-name, next, previous, up
-@chapter{tl-str}
-@cindex{tl-str}
-
-tl-str \e$B$OJ8;zNs=hM}$K4X$9$kM-MQ$J4X?t$r=8$a$?\e(B module \e$B$G$9!#\e(B
-
-tl-str \e$B$rMxMQ$9$k$K$O\e(B @code{(require 'tl-str)} \e$B$r=q$$$F2<$5$$!#\e(B
-
-
-@deffn{Function} rightful-boundary-short-string STR WIDTH
-
-\e$BJ8;zNs\e(B @var{str} \e$B$r@hF,$+$iI}\e(B @var{WIDTH} \e$B0JFb$G@Z$C$?J8;zNs$rJV$7$^$9!#\e(B
-multi octet \e$BJ8;zNs$N>l9g$G$b@5$7$/J8;zC10L$G@ZCG$7$^$9!#\e(B
-@end deffn
-
-
-@deffn{Function} get-version-string ID
-
-RCS \e$B$N\e(B version \e$BJ8;zNs\e(B @var{ID} \e$B$+$i?t;z$H\e(B `.' \e$B$+$i$N$_9=@.$5$l$k\e(B
-version number \e$BJ8;zNs$rJV$9!#\e(B
-@end deffn
-
-
-@deffn{Function} replace-as-filename STR
-
-\e$BJ8;zNs\e(B @var{STR} \e$B$N$+$i\e(B file name \e$B$H$7$FLdBj$N$"$kJ8;z$r<h$j=|$$$?\e(B
-file name \e$B$H$7$F;H$($kJ8;zNs$rJV$9!#\e(B
-@end deffn
-
-
-@defvr{Variable} cited-prefix-regexp
-
-\e$BL?Na\e(B @code{fill-cited-region} \e$B$GMQ$$$k!"0zMQJ8;zNs$N@hF,J8;zNs$rI=$9\e(B
-prefix. \e$B@55,I=8=$r;XDj$9$k!#\e(B
-@end defvr
-
-@deffn{Command} fill-cited-region BEGIN END
-
-\e$B@hF,0LCV\e(B @var{BEGIN} \e$B$H=*N;0LCV\e(B @var{END} \e$B$G0O$^$l$?\e(B region \e$B$r0zMQJ8;z\e(B
-\e$BNs$H$7$F\e(B fill \e$B$9$k!#\e(B
-@end deffn
-
-
-@deffn{Function} symbol-concat A B
-
-\e$BJ8;zNs$+\e(B symbol \e$B$G$"$k#2$D$N0z?t\e(B @var{A} \e$B$H\e(B @var{B} \e$B$rJ8;zNs$H$7$F$D$J\e(B
-\e$B$$$@L>A0$N\e(B symbol \e$B$rJV$9!#!J\e(Bjinn \e$B8_494X?t!K\e(B
-@end deffn
-
-@deffn{Function} top-string-match PAT STR
-
-\e$BJ8;zNs\e(B @var{PAT} \e$B$,J8;zNs\e(B @var{STR} \e$B$N@hF,$K4^$^$l$k>l9g!"\e(B@code{(PAT
-\e$B;D$j\e(B)} \e$B$H$$$&7A<0$N\e(B list \e$B$rJV$9!#!J\e(Bjinn \e$B8_494X?t!K\e(B
-@end deffn
-
-@deffn{Function} middle-string-match PAT STR
-
-\e$BJ8;zNs\e(B @var{PAT} \e$B$,J8;zNs\e(B @var{STR} \e$B$N$I$3$+$K4^$^$l$k>l9g!"\e(B@code{(\e$BA0\e(B
-PAT \e$B;D$j\e(B)} \e$B$H$$$&7A<0$N\e(B list \e$B$rJV$9!#!J\e(Bjinn \e$B8_494X?t!K\e(B
-@end deffn
-
-
-@node tl-header, Concept Index, tl-str, Top
-@comment node-name, next, previous, up
-@chapter{tl-header}
-@cindex{tl-header}
-
-tl-header \e$B$O\e(B mail \e$B$d\e(B News \e$B$J$I$N\e(B message header \e$B$N=hM}$K4X$9$kM-MQ$J4X\e(B
-\e$B?t$r=8$a$?\e(B module \e$B$G$9!#\e(B
-
-tl-header \e$B$rMxMQ$9$k$K$O\e(B @code{(require 'tl-header)} \e$B$r=q$$$F2<$5$$!#\e(B
-
-
-@defvr{Constant} message/quoted-string-regexp
-
-RFC 822 \e$B$K$*$1$k\e(B quoted-string \e$B$rI=$9@55,I=8=!#\e(B
-@end defvr
-
-@defvr{Constant} message/field-name-regexp
-
-RFC 822 \e$B$K$*$1$k\e(B field-name \e$B$rI=$9@55,I=8=!#\e(B
-@end defvr
-
-@defvr{Constant} message/field-body-regexp
-
-RFC 822 \e$B$K$*$1$k\e(B field-body \e$B$rI=$9@55,I=8=!#\e(B
-@end defvr
-
-@defvr{Constant} message/field-regexp
-
-RFC 822 \e$B$K$*$1$k\e(B field \e$B$rI=$9@55,I=8=!#\e(B
-@end defvr
-
-@defvr{Constant} message/word-regexp
-
-RFC 822 \e$B$K$*$1$k\e(B word \e$B$rI=$9@55,I=8=!#\e(B
-@end defvr
-
-@defvr{Constant} message/local-part-regexp
-
-RFC 822 \e$B$K$*$1$k\e(B local-part \e$B$rI=$9@55,I=8=!#\e(B
-@end defvr
-
-@defvr{Constant} message/domain-regexp
-
-RFC 822 \e$B$K$*$1$k\e(B domain \e$B$rI=$9@55,I=8=!#\e(B
-@end defvr
-
-@defvr{Constant} message/addr-spec-regexp
-
-RFC 822 \e$B$K$*$1$k\e(B addr-spec \e$B$rI=$9@55,I=8=!#\e(B
-@end defvr
-
-@deffn{Function} message/get-field-body NAME
-
-message header \e$B$K$*$$$F\e(B @var{NAME} field \e$B$N\e(B body \e$B$rJV$9!#\e(B
-@end deffn
-
-@deffn{Function} message/divide-field STR
-
-field \e$BJ8;zNs\e(B @var{STR} \e$B$r\e(B @code{(field-name field-body)} \e$B$H$$$&7A<0$N\e(B
-list \e$B$K$7$FJV$9!#\e(B
-@end deffn
-
-@deffn{Function} message/parse-addr-spec STR
-
-\e$BJ8;zNs\e(B @var{STR} \e$B$r\e(B addr-spec \e$B$H$7$F9=J82r@O$7!"\e(B@code{(addr-spec \e$B;D$j\e(B)}
-\e$B$H$$$&7A<0$N%j%9%H$K$7$FJV$9!#\e(B
-@end deffn
-
-@deffn{Function} message/parse-phrase-route-addr STR
-
-\e$BJ8;zNs\e(B @var{STR} \e$B$r\e(B phrase route-addr \e$B$H$7$F9=J82r@O$7!"\e(B@code{((phrase
-"<" addr-spec ">") \e$B;D$j\e(B)} \e$B$H$$$&7A<0$N%j%9%H$K$7$FJV$9!#!JCm!'@53N$K$O!"\e(B
-route \e$B$b8+$J$1$l$P$$$1$J$$$,!"\e(Broute \e$B$OL5$$$b$N$H$7$F2r@O$7$F$$$k!K\e(B
-@end deffn
-
-@deffn{Function} message/parse-comment STR
-
-\e$BJ8;zNs\e(B @var{STR} \e$B$r\e(B comment \e$B$H$7$F9=J82r@O$7!"\e(B@code{(("(" comment ")")
-\e$B;D$j\e(B)} \e$B$H$$$&7A<0$N%j%9%H$K$7$FJV$9!#\e(B
-@end deffn
-
-@deffn{Function} message/parse-address STR
-
-\e$BJ8;zNs\e(B @var{STR} \e$B$r\e(B address \e$B$H$7$F9=J82r@O$7!"\e(B@code{(address \e$B;D$j\e(B)} \e$B$H\e(B
-\e$B$$$&7A<0$N%j%9%H$K$7$FJV$9!#\e(B
-@end deffn
-
-@deffn{Function} message/parse-addresses STR
-
-\e$BJ8;zNs\e(B @var{STR} \e$B$r\e(B address list \e$B$H$7$F9=J82r@O$7!"\e(B@code{(address1
-address2 ...)} \e$B$H$$$&7A<0$N%j%9%H$K$7$FJV$9!#\e(B
-@end deffn
-
-@deffn{Function} message/unfolding-string STR
-
-\e$BJ8;zNs\e(B @var{STR} \e$B$r\e(B field \e$B$H$7$F\e(B unfolding \e$B$7$?J8;zNs$rJV$9!#\e(B
-@end deffn
-
-@deffn{Function} message/strip-quoted-string STR
-
-\e$BJ8;zNs\e(B @var{STR} \e$B$r\e(B quoted-string \e$B$H$7$F\e(B strip \e$B$7$?J8;zNs$rJV$9!#\e(B
-@end deffn
-
-
-@node Concept Index, Command Index, Command List, 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, Concept Index, Command Index, Top
-@unnumbered \e$BJQ?t:w0z\e(B
-
-@printindex vr
-
-@bye
+++ /dev/null
-\e$B2,It!w5~Bg$G$9!#\e(B
-
-In article <199408221831.DAA24174@melon.jaist.ac.jp>,
- \e$B<i2,\e(B \e$BCNI'\e(B (MORIOKA Tomohiko) <morioka@jaist.ac.jp> writes:
-
-\e$B<i2,\e(B> \e$B8=<BF(Hr$7$F!"Bg$-$J\e(B message \e$B$rH/Aw$9$k;~!"<+F0E*$K\e(B message/partial
-\e$B<i2,\e(B> \e$B7A<0$KJ,3d$7$F$/$l$k$b$N$r=q$-$^$7$?!#\e(B
-
-\e$BJXMx$J$N$G!"$9$3$72~NI\e(B(\e$B2~0-!)\e(B)\e$B$7$F$_$^$7$?!#\e(B
-
-1. mime-mode-exit \e$B$r>r7oIU$-$G8F$V$h$&$K$7!"\e(Bmime-mode \e$B0J30$G$b\e(B
- \e$B;H$($k$h$&$K$7$?!#\e(B
-
- \e$B:G6a\e(B mh-e 4.1 \e$B$N\e(B mh-edit-mhn \e$B$b;H$C$F$_$F$$$k$N$G!"\e(Bmime-mode \e$B0J30$G$b\e(B
- \e$B;H$($k$h$&$K$7$?$H$$$&$N$,F05!$G$9!#6KC<$K8@$($PIaCJ$O\e(B MIME \e$B$rA4A3;H$C$F\e(B
- \e$B$$$J$$?M$G$b!"<+F0J,3d$K$O;H$($k$H;W$$$^$9!#\e(B
-
-\e$B!t\e(B mh-edit-mhn \e$B$GJQ49$7$?8e\e(B mime/view-mode \e$B$KF~$C$F%W%l%S%e!<$7!"\e(B
- \e$B$&$^$/$$$C$F$J$+$C$?$i\e(B mh-revert-mhn-edit \e$B$G$d$jD>$9!"$H$$$&\e(B
- \e$B<j=g$O\e(B mime-mode \e$B$H\e(B metamail-* \e$B$h$j$O2wE,$G$9!#\e(B
-
-2. \e$B%X%C%@$H%\%G%#$N6h@Z$j$,6u9T$N>l9g$K$bBP1~$7$?!#\e(B
-
- mh-edit-mhn \e$B$N=PNO$O$3$N7A<0$J$N$G!"$d$`$rF@$:$=$&$7$^$7$?!#\e(B
-
-3. mime/draft-file-name \e$B$,\e(B nil \e$B$N$H$-$K;H$&%U%!%$%kL>$r0J2<$N$h$&$K$7$?!#\e(B
-
- (make-temp-name (expand-file-name "tm-draft" mime/tmp-dir))
-
-4. \e$BJ,3d$7$?%a%C%;!<%8$K$O!"$b$H$N\e(B Subject \e$B$N$&$7$m$K\e(B (1/3) \e$B$J$I$H$D$/\e(B
- \e$B$h$&$K$7$?!#\e(B
-
- \e$B6a$$>-Mh!"\e(Bsuper-pipe \e$B$d\e(B gnus-uu \e$B$N$h$&$K!"\e(Bmessage/partial \e$B$N$H$-$O$I\e(B
- \e$B$l$+$R$H$D$N5-;v$r$_$l$PB>$N$rC5$7$K9T$/5!G=$,\e(B tm-view.el \e$B$K<BAu$5$l$k\e(B
- \e$B$3$H$r4j$C$F$N$3$H$G$9\e(B ^_^
-
-
-
-\e$B$^$@5$$KF~$i$J$$E@$G$9$,!"\e(B
-
-1. \e$B$b$H$N\e(B(\e$B=q$-$+$1$N\e(B)\e$B%a%C%;!<%8$N%X%C%@$r$=$N$^$^Aw$C$F$7$^$&$N$G!"\e(B
- \e$BNc$($P\e(B MH \e$B$N>l9g!"\e(BBcc:, Dcc: Fcc: \e$B$J$IK\MhAw$C$?;~$K>C$($k\e(B
- \e$B$O$:$N$b$N$,FO$$$F$7$^$&\e(B(\e$B$H$/$K\e(B Bcc: \e$B$,8+$($k$N$OLdBj\e(B)\e$B!#\e(B
- \e$B1#$9%U%#!<%k%I$r;XDj$G$-$k$h$&$K$9$Y$-!#\e(B
-
-2. \e$B@8@.$5$l$k\e(B id \e$B$,D9$C$?$i$7$/$F$+$C$30-$$!#\e(B
- (\e$BNc$($P\e(B GNUS \e$B$N\e(B message-id \e$B@8@.%k!<%A%s$rE>MQ$7$F$O$I$&$+\e(B)
-
-\e$B$J$I$,$"$j$^$9!#\e(B
-
-\e$B<i2,\e(B> \e$B$^$?!"\e(Bmessage \e$B$N:GBg9T?t$rJQ?t\e(B mime/message-max-length \e$B$G;XDj$G$-$^\e(B
-\e$B<i2,\e(B> \e$B$9!#$H$j$"$($:!"\e(Bdefault \e$B$G$O\e(B 1000 \e$B9T$K$7$F$"$j$^$9$,!"$3$l$K4X$9$k0lHL\e(B
-\e$B<i2,\e(B> \e$BE*$JCM$O$"$k$s$G$7$g$&$+!)\e(B
-
-\e$B9T?t$h$j$O%P%$%H?t$,Bg;v$J$O$:$G!"$h$/8@$o$l$k$N$O\e(B1\e$BDL$"$?$j\e(B50KB\e$B$rD6$(\e(B
-\e$B$J$$$h$&$K$H$$$&@)Ls$G$9$M\e(B(\e$B$&$A$N%;%s%?!<$NMxMQ$N<j0z$K$b$=$&=q$$$F$"\e(B
-\e$B$j$^$7$?\e(B)\e$B!#5pBg$J%a!<%k$NB?$/$O%P%$%J%j%U%!%$%k$NE>Aw$G!"Cf?H$O\e(B base64
-\e$B$G0l9T\e(B80\e$B;z<e$K$J$C$F$$$k$H2>Dj$9$k$H!"\e(B600 \e$B9T6/$K$"$?$j$^$9!#$7$+$7\e(B50KB
-\e$B0J>e$N$b$N$ODL$i$J$$$h$&$K$J$C$F$$$k$H$$$&$o$1$G$O$J$/C1$K0BA4$d8zN($r\e(B
-\e$B9M$($F$NCM$G$7$g$&$+$i!"\e(Bsplit \e$B$NI8=`CM$G$b$"$k\e(B 1000 \e$B$GLdBj$J$$$H;W$$$^$9!#\e(B
------
-\e$B2,It<wCK!w5~ETBg3XBg7?7W;;5!%;%s%?!<8&5f3+H/It\e(B
+++ /dev/null
-\e$B2,It!w5~Bg$G$9!#\e(B
-
-message/partial \e$B$,4JC1$K\e(B decode \e$B$G$-$k$h$&$K$J$C$?$N$G!"\e(Btm-comp.el
-\e$B$r$$$D$b;H$&$h$&$K$7$h$&$H;W$C$?$N$G$9$,!";H$$$O$8$a$F$_$k$H$$$m$$$m\e(B
-\e$BITK~$,$G$F$-$^$7$?!#\e(B
-
-\e$B!&Aw?.$K<:GT$7$F$b!"$J$K$4$H$b$J$/=*$C$F$7$^$$!"$&$^$/Aw$l$?$+\e(B
- \e$B$I$&$+3NG'$G$-$J$$\e(B(\e$B%P%C%U%!$b$J$/$J$k\e(B)
-\e$B!&\e(Bmh-letter-mode \e$B$+$i$NAw?.$N>l9g!"\e(Bmh-send-letter \e$B$,K\Mh$b$D\e(B
- \e$B5!G=$G$"$k!"\e(Bprefix argument \e$B$K$h$k@ZBX$($d!"\e(Bannotate \e$B$N\e(B
- \e$B5!G=$,;H$($J$/$J$k!#\e(B
-\e$B!&\e(Bnews-reply-mode \e$B$N>l9g!"\e(Bnntp-server \e$B$,\e(B open \e$B$5$l$F$$$J$$$H\e(B
- \e$B$3$1$k!#$3$l$O\e(B gnus-post-news \e$B$rC1FH$K5/F0$7$?>l9g$d\e(B
- \e$B=q$$$F$$$k$&$A$K\e(B connection \e$B$,@Z$l$?>l9g$K:$$k!#\e(B
-\e$B!&\e(Bnews-inews-hook \e$B$d\e(B mh-before-send-letter-hook \e$B$b8z$+$J$$!#\e(B
-\e$B!&J,3d8e$N%a%C%;!<%8$N%\%G%#It$N@hF,$K!"J,3dA0$N%a%C%;!<%8$N\e(B
- \e$B%X%C%@It$,F~$k$,!"$=$3$K\e(B Fcc: \e$B$d\e(B Dcc: \e$B$,8+$($F$+$C$30-$$!#\e(B
-
-\e$B$J$I$NLdBjE@$,$"$j$^$7$?!#$=$3$G$3$l$i$rF'$^$($FBgI}$K2~NI$7$F\e(B
-\e$B$_$^$7$?!#2~NIE@$N$"$i$^$7$O!"\e(B
-
-1\e$B!"J,3d$5$l$J$$%a%C%;!<%8$N>l9g$K$O!"\e(Bmime/message-default-sender-alist
- \e$B$K=q$+$l$?K\Mh$N4X?t\e(B(mh-letter-mode \e$B$J$i\e(B mh-send-letter)\e$B$,8F$P$l$k$h\e(B
- \e$B$&$K$7$?\e(B(\e$B$3$l$G\e(B tm-comp \e$B$rI8=`@_Dj$K$$$l$F$7$^$C$F$b$[$\LdBj$J$$$H\e(B
- \e$B;W$$$^$9\e(B)\e$B!#\e(B
-
-2. \e$BJ,3d$7$?%a%C%;!<%8$r$=$l$>$lAw$kJ}K!\e(B mime/message-sender-alist \e$B$H$O\e(B
- \e$BJL$K!"J,3dAw?.A0$HJ,3dAw?.8e$K$=$l$>$l0l2s$E$D<B9T$5$l$k\e(B hook \e$B$r\e(B
- \e$B=q$1$k$h$&$K$7$?!#\e(B
-
-3. mime/message-sender-alist \e$B$KEPO?$9$k\e(B method \e$B$N=i4|CM$H$7$F!"\e(B
- mh-send-letter \e$B$*$h$S\e(B gnus-inews-news \e$B$G$N5!G=$r$[$\$H$j$3$`\e(B
- \e$B$h$&$K$7$?!#\e(B
-
-4. \e$B0l$D$N5-;v$N9T$N@)8B$r\e(B mime/message-default-max-length \e$B$H$7\e(B
- \e$B$5$i$K!"\e(Bmode \e$B$4$H$N@)8B$b\e(B mime/message-max-length-alist \e$B$K\e(B
- \e$B=q$1$k$h$&$K$7$?!#\e(B
-
-5. MIME \e$B$G=q$$$?5-;v$N\e(B preview \e$B$N$?$a$N4X?t$H$7$F!"\e(B
- mime/draft-preview \e$B$H$$$&$N$rMQ0U$7$?\e(B(\e$B$3$l$O$*$^$1\e(B)\e$B!#\e(B
-
-\e$B$J$I$G$9!#%Q%C%A$r$D$/$C$?$i$b$H$h$jBg$-$/$J$C$F$7$^$C$?$N$G!"\e(B
-\e$BA4BN$r$*FO$1$7$^$9!#\e(B
-
-\e$B!t\e(B alist \e$B$NCf?H$,D9$/$J$j$9$.$?$N$G$9$,!"JL$N4X?t$H$7$FFHN)$5$;$?\e(B
- \e$BJ}$,$$$$$G$7$g$&$+!)\e(B
+++ /dev/null
-\documentstyle{report}
-
-\title{tm Reference Manual (English Edition)}
-\author{{\Large Morioka Tomohiko} \\
- {\normalsize $<$morioka@jaist.ac.jp$>$}\\
- \\
- {\large translated by \Large Ueno Hiroshi} \\
- {\normalsize $<$jl07715@yamato.ibm.co.jp$>$}
- }
-\date{\verb$Id: tm-eng.tex,v 5.7 1995/06/26 06:03:21 morioka Exp $}
-
-\begin{document}
-
-\maketitle
-\tableofcontents
-
-\chapter{Overview}
-
-The tm package is a set of modules to enjoy MIME on GNU Emacs. Using tm,
-you can
-
-\begin{itemize}
-\item playback or view the MIME messages using new mime/viewer-mode
-\item encode and decode the multi-lingual headers
-\item use the enhanced MIME functions with mh-e, GNUS, and RMAIL
-\end{itemize}
-
-\noindent and more.
-
-
-\section{Module List}
-
-The tm package includes the modules listed below.
-
-\begin{itemize}
-\item {\bf tiny-mime} : MIME header encoder/decoder
-\item {\bf tm-view} : MIME message viewer
-\item {\bf tm-misc} : common part of tm-MUAs
-\item {\bf tm-MUAs} : MIME function enhancer for MUAs
- \begin{itemize}
- \item {\bf tm-mh-e} : tm-MUA for mh-e
- \item {\bf tm-gnus} : tm-MUA for GNUS
- \item {\bf tm-rmail} : tm-MUA for RMAIL
- \item {\bf tm-vm} : tm-MUA for vm
- \end{itemize}
-\item {\bf tm-setup} tm-MUA setup module
-\item {\bf mime-setup} MIME setup module
-\end{itemize}
-
-
-\chapter{Considerations for Each Version of Emacs}
-
-\section{Emacs (original)}
-
-US-ASCII and ISO-8859-1 can be used if you use the original Emacs.
-
-
-\section{NEmacs, NEpoch}
-
-ISO-2022-JP and US-ASCII can be used if you use NEmacs.
-
-
-\section{Mule}
-
-Mule can handle the multi-lingual text. With Mule, tiny-mime supports
-ISO-2022-JP, ISO-2022-JP-2, US-ASCII, ISO-8859-1..9, ISO-2022-CN,
-ISO-2022-KR, EUC-KR, etc. You can also add or change
-encoding/decoding for character sets by mime/set-charset-and-encoding
-function.
-
-
-\chapter{Installation and Setup}
-
-\section{Installation}
-
-You can install tm by following the procedures below.
-
-\begin{enumerate}
-\item modify bindir definition in Makefile according to your build
- environment.
-\item modify the method scripts in methods/ directory so that it
- can work in your environment. Refer to \ref{sec:method} section
- for how you can suit the method scripts to your environment.
-\item make all
-\item make install
-\item copy all files with .el suffix into the directory pointed by Emacs
- load-path variable.
-\end{enumerate}
-
-\noindent{\bf [Notes]}
-\begin{itemize}
-\item Make sure mh-e version 3.x has been loaded before byte-compiling
- tm-mh-e3.el.
-\item Make sure GNUS 3 has been loaded before byte-compiling tm-gnus3.el.
-\item Use Emacs 18 when you byte-compile tl-18.el.
-\item Use the original Emacs when you byte-compile tl-orig.el.
-\item Use NEmacs when you byte-compile tl-nemacs.el.
-\item Use Mule when you byte-compile tl-mule.el.
-\item Modules byte-compiled by Emacs 19 do not work with Emacs 18.
-\end{itemize}
-
-
-\section{Setup}
-
-In the tm package, two files, mime-setup.el and tm-setup.el, are provided
-to ease the setup. A mime-setup.el is used for the whole MIME related
-setup including MIME encoding, while tm-setup is used to set up tm-MUA
-only.
-
-
-\subsection{mime-setup}
-
-\begin{verbatim}
-(load "mime-setup")
-\end{verbatim}
-
-\noindent will perform various settings of MIME. As mime-setup loads
-tm-setup, you do not need to load tm-setup when you use mime-setup.
-
-You can also set up the "automatic signature selection tool" using
-mime-setup. If you want to automatically select the signature file
-depending on how the message headers show, add lines like shown below
-to your .emacs (Refer to the reference manual of signature.el for
-more details).
-
-\begin{verbatim}
-(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{verbatim}
-
-mime-setup requires mime.el. if you set up SuperCite via mime-setup,
-you need the SuperCite package also.
-
-
-\subsection{tm-setup}
-
-tm-setup only sets up tm-MUAs. You do not need to explicitly load
-tm-setup if you are using mime-setup for your setup. tm-setup is useful
-when you do not want to use mime-setup but want to set up tm-MUAs.
-
-\begin{verbatim}
-(load "tm-setup")
-\end{verbatim}
-
-
-\subsection{vm}
-
-If you want use vm, please insert following in .vm or .emacs:
-
-\begin{verbatim}
-(load "tm-vm")
-\end{verbatim}
-
-
-\subsection{setting up without loading provided setup files}
-
-You may find the valuable hints in tm-setup.el if you want to set up
-MIME environment without loading the tm-provided setup files.
-
-
-\subsection{setting up MH}
-
-If you are using MH-6.8JP2, add the following lines to your
-.mh\_profile.
-
-\begin{verbatim}
-scan: -form scan.mime
-inc: -form inc.mime
-repl: -form replcomps.mime
-showproc: mhl
-\end{verbatim}
-
-\noindent Emacs will handle the most part of MH processing. You
-should not specify further options in your MH profile to avoid any
-possible conflict between MH and Emacs.
-
-
-
-\chapter{tm-MUA}
-
-``tm-MUA'' is a generic name of the modules which enhance the MIME
-functions of MUA like mh-e, GNUS, and RMAIL etc.
-
-The current version of tm provides the following tm-MUA.
-
-\begin{itemize}
-\item {\bf tm-mh-e} : tm-MUA for mh-e
-\item {\bf tm-gnus} : tm-MUA for GNUS
-\item {\bf tm-rmail} : tm-MUA for RAMIL
-\end{itemize}
-
-\noindent You can find the detailed explanations of these modules in
-the following sections.
-
-
-\section{Summary Mode}
-
-If you are using tm-MUA, the following functions are added to the Summary
-mode of the MUA.
-
-\medskip
-\begin{center}
- \begin{tabular}{|l|l|}\hline
- key & function \\ \hline
- M-t & toggles decoding of MIME headers \\
- v & enters mime/view-mode \\ \hline
- \end{tabular}
-\end{center}
-\medskip
-
-
-\section{mime/viewer-mode}
-\label{sec:mime/viewer-mode}
-
-If you are using tm-MUA, mime/viewer-mode becomes active by pressing
-{\bf v} key in the Summary mode. In mime/viewer-mode, you can manipulate
-the MIME messages by the simple key operations. The following list shows
-the functions and their key bindings which can be used in mime/viewer-mode.
-
-\medskip
-\begin{center}
- \begin{tabular}{|l|l|}\hline
- key & function \\ \hline
- u & goes to the upper content \\
- & returns to the Summary mode if the cursor is sitting on
- the top content (*1) \\
- p & goes to the previous content \\
- n & goes to the next content \\
- SPC & scrolls up \\
- M-SPC & scrolls down \\
- DEL & scrolls down \\
- RET & goes to the next line \\
- M-RET & goes to the previous line \\
- v & playbacks a content (*2) \\
- e & extracts a file from a content (*2) \\
- C-c C-p & prints a content (*2) \\ \hline
- \end{tabular}
-\end{center}
-\medskip
-
-\bigskip
-
-\newcounter{asteriskcount}
-\noindent{\bf [Note]}
-\vspace{-1ex}
-{\list{(*\arabic{asteriskcount})}{\usecounter{asteriskcount}\leftmargin=8ex}
-\item Not return to the Summary mode unless tm-view has been setup using
-tm-mh-e, tm-gnus, tm-rmail etc.
-\item Actual playback/extract/print will be performed by a method.
-\endlist}
-
-
-\section{Customizing tm-gnus}
-
-\subsection{saving articles without decoding}
-
-By default, The articles will be saved as they appear in the buffer
-at that time.
-
-You can save the articles always without decoding by setting a
-tm-gnus/set-mime-header-decoding-mode variable to nil then call a
-function which saves the articles.
-
-The following example shows how you can save an article without
-decoding, preserving the current MIME header decoding mode.
-
-\begin{verbatim}
- (let ((mm mime/header-decoding-mode))
- (tm-gnus/set-mime-header-decoding-mode nil)
- (article save function)
- (tm-gnus/set-mime-header-decoding-mode mm)
- )
-\end{verbatim}
-
-The following is an example that saves the articles to a folder
-of mh-e.
-
-\begin{verbatim}
-(add-hook 'gnus-Startup-hook
- (function
- (lambda ()
- (setq gnus-default-article-saver
- (function
- (lambda ()
- (interactive)
- (let ((mm mime/header-decoding-mode))
- (tm-gnus/set-mime-header-decoding-mode nil)
- (gnus-Subject-save-in-folder)
- (tm-gnus/set-mime-header-decoding-mode mm)
- )))))))
-(add-hook 'gnus-startup-hook
- (function
- (lambda ()
- (setq gnus-default-article-saver
- (function
- (lambda ()
- (interactive)
- (let ((mm mime/header-decoding-mode))
- (tm-gnus/set-mime-header-decoding-mode nil)
- (gnus-summary-save-in-folder)
- (tm-gnus/set-mime-header-decoding-mode mm)
- )))))))
-\end{verbatim}
-
-\subsection{replying with encoded subject to an article with encoded subject}
-
-When you reply to an article, you may want to encode the Subject field only
-when the original article has an encoded Subject. It can be done by
-defining a hook as shown below.
-
-\begin{verbatim}
-(add-hook 'gnus-article-prepare-hook
- (function
- (lambda ()
- (if (mime/exist-encoded-word-in-subject)
- (setq mime/no-encoding-header-fields '("X-Nsubject"))
- (setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
- ))))
-\end{verbatim}
-
-
-\chapter{tm-view}
-
-tm-view is a module which is used to examine the MIME messages.
-It provides a mime/viewer-mode for that purpose.
-
-Regarding the functions of mime/viewer-mode, refer to
-\ref{sec:mime/viewer-mode} section.
-
-\section{Defining Conditions of Decoding}
-
-A mime/content-decoding-condition variable is used to define the methods
-which will be called at decoding. It replaces a
-mime/content-decoding-method-alist variable of tm-view version 4.x.
-
-A mime/content-decoding-method-alist only allowed you to define a
-method used for each content-type/subtype. Now a
-mime/content-decoding-condition variable allows you to write more
-complicated statements to describe the more detailed conditions to determine
-which method is to be use.
-
-A mime/content-decoding-condition variable is defined as a list with the
-following syntax.
-
-\begin{eqnarray*}
- (condition_1 \;\; condition_2 \;\; ...)
-\end{eqnarray*}
-
-\noindent Each condition is an association list with the following
-syntax.
-
-\begin{eqnarray*}
- ((field-type_1 \; . \; value_1) \;\;
- (field-type_2 \; . \; value_2) \;\; ...)
-\end{eqnarray*}
-
-\noindent
-
-For example, if you want to call the external method named tm-plain
-to decode every text/plain type content, you can define the condition like
-
-\begin{quote}
- ((type . "text/plain")
- (method "tm-plain" nil 'file 'type 'encoding 'mode 'name))
-\end{quote}
-
-\noindent As you notice, now you can define the arguments to pass to a
-external method. Refer to \ref{sec:method-arguments} section for more
-explanation.
-
-This condition definition will match all contents whose types are text/plain.
-Here is an another example.
-
-\begin{quote}
- ((type . "text/plain")
- (method "tm-plain" nil 'file 'type 'encoding 'mode 'name)
- (mode . "play"))
-\end{quote}
-
-\noindent This will match the content whose type is text/plain and
-the mode is play.
-
-
-\begin{quote}
- ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file)
- (mode . "play"))
-\end{quote}
-
-\noindent This will match all contents which have a mode of play.
-
-The conditions defined in a mime/content-decoding-condition variable
-are examined from top to bottom. The first matching condition
-becomes valid and the method specified in that condition definition
-will be executed.
-
-
-\subsection{arguments of method}
-\label{sec:method-arguments}
-
-You can specify the method field of the condition definition in two
-different ways.
-
-\begin{eqnarray*}
- (method \; . \; SYMBOL)
-\end{eqnarray*}
-
-\noindent or
-
-\begin{eqnarray*}
- (method \; STRING \; FLAG \; ARGUMENT_1 \; ARGUMENT_2 \; ...)
-\end{eqnarray*}
-
-\noindent can be accepted.
-
-When a symbol is specified in the method field, it will be called as
-an internal method.
-
-When a list is specified in the method field, it will be called as an
-external method. The list below shows the meaning of the parameters
-when the external method is specified in the method field.
-
-\begin{description}
-\item [STRING] name of an external method
-\item [FLAG] if t, both the content header and the content body are
- passed to an external method. if nil, only the content body is
- passed to an external method.
-\item [ARGUMENT$_x$] list of arguments passed to an external method
-\end{description}
-
-An argument passed to an external method can be in one of the following
-formats.
-
-\begin{quote}
- \begin{tabular}{lcl}
- STRING&:&string itself \\
- 'SYMBOL&:&value gotten using SYMBOL as a key (see below) \\
- 'STRING&:&value gotten using STRING as a key (see below)
- \end{tabular}
-\end{quote}
-
-'SYMBOL can be one of the following.
-
-\begin{quote}
- \begin{tabular}{lcl}
- 'file&:&name of a file holding the original content \\
- 'type&:&content-type/sub-type \\
- 'encoding&:&content-transfer-encoding \\
- 'mode&:&decoding mode \\
- 'name&:&name of a file created by decode operation
- \end{tabular}
-\end{quote}
-
-\noindent 'STRING is used to search a parameter of the Content-Type
-field whose name matches with it, and pass the value of that parameter
-to the external method.
-
-
-\subsection{examples}
-
-The default definition of a mime/content-decoding-condition variable is
-shown below.
-
-\begin{verbatim}
-(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{verbatim}
-
-For example, if you want to use metamail to decode any contents,
-
-\begin{verbatim}
-(setq mime/content-decoding-condition
- '(
- ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file))
- ))
-\end{verbatim}
-
-\noindent will work.
-
-A mime/content-decoding-condition variable provides you of very flexible
-way to define the conditions of decoding. It can be simple if you only
-need the a few decoding methods, while it can be very complicated if you
-want to use the separate decoding method for each type/mode combination.
-
-
-\section{Method Script}
-\label{sec:method}
-
-The methods are written in shell script. The arguments passed from tm-view.el
-to each method can be customized using mime/content-decoding-condition
-variable. If you use the tm-provided setting of
-mime/content-decoding-condition variable, the following arguments are
-passed to the method.
-
-\medskip
-\begin{center}
- \begin{tabular}{|c|l|} \hline
- argument & \multicolumn{1}{|c|}{ meaning }\\ \hline
- \$1 & file name before decoded \\
- \$2 & Content-Type (type/sub-type) \\
- \$3 & encoding
- \{7bit / quoted-printable / base64 / 8bit / binary / ...\}\\
- \$4 & decoding-mode \{play / extract / print\} \\
- \$5 & file name after decoded \\ \hline
- \end{tabular}
-\end{center}
-\medskip
-
-Exceptionally, no method is used to restore message/partial messages
-into one message. It is done by tm-view.el itself.
-
-
-\section{Changing Appearance}
-
-Each content in the preview buffer is shown in the following format.
-
-\begin{verbatim}
-[1 (text/plain)]
-
-body
-\end{verbatim}
-
-\noindent tm-view shows one content in three separate portions.
-
-\begin{itemize}
-\item content subject
-\item content header
-\item content body
-\end{itemize}
-
-\noindent
-
-
-\subsection{content subject}
-
-A content subject indicates the beginning of a content in the preview
-buffer. By default, it will be shown as below.
-
-\begin{quote}
- [cid title (type)]
-\end{quote}
-
-\noindent The cid field shows the position of a content in the message.
-It can be considered as the chapter number in the message. The title
-field is composed of the text string from the Subject and the
-Content-Description field. The type field is a copy of a
-text string specified in the type/subtype field of the content.
-
-You can customize how the content subject appears in the preview
-buffer by modifying a definition of mime/make-content-subject-function
-variable. The tm-view provides a following definition as a default.
-
-\begin{verbatim}
-(defvar mime/make-content-subject-function
- (function
- (lambda (cid subj ctype)
- (insert
- (format "[%s %s (%s)]\n"
- (if (listp cid)
- (mapconcat (function
- (lambda (num)
- (format "%s" (+ num 1))
- ))
- cid ".")
- "0")
- subj (car ctype)))
- )))
-\end{verbatim}
-
-\noindent The following is an example of the customization.
-
-\begin{verbatim}
-(setq mime/make-content-subject-function
- (function
- (lambda (cid subj ctype)
- (if (not (member (car ctype) mime/default-showing-Content-Type-list))
- (insert
- (format "[%s %s (%s)]\n"
- (if (listp cid)
- (mapconcat (function
- (lambda (num)
- (format "%s" (+ num 1))
- ))
- cid ".")
- "0")
- subj (car ctype))))
- )))
-\end{verbatim}
-
-\noindent This will show the content subjects only for the contents whose body
-portions are to be hidden.
-
-
-\subsection{content header}
-
-A content header shows the header portion of a content in the preview
-buffer. The default setup will show no content headers.
-
-You can customize how the content header appears in the preview
-buffer by modifying a definition of mime/make-content-header-filter
-variable. The tm-view provides a following default definition.
-
-
-\begin{verbatim}
-(defvar mime/make-content-header-filter
- (function
- (lambda (cid)
- (if (listp cid)
- (delete-region (goto-char (point-min))
- (or (and (re-search-forward "^$" nil t)
- (match-end 0))
- (point-max))
- )
- )
- )))
-\end{verbatim}
-
-\noindent The default setting removes all content headers
-until it detects a blank line delimiting the headers and the body.
-If you change a mime/make-content-header-filter variable like
-
-\begin{verbatim}
-(setq mime/make-content-header-filter
- (function
- (lambda (cid)
- )))
-\end{verbatim}
-
-\noindent you will see all headers in the content header portion.
-
-
-\subsection{content body}
-
-According to the type of content, the body portion of the content
-is managed by tm-view using
-
-\begin{enumerate}
-\item Hide
-\item Process
-\end{enumerate}
-
-\noindent techniques before it is put in the preview buffer.
-
-'Hide' is performed to prevent showing the non-text type content body
-in the preview buffer. A mime/default-showing-Content-Type-list
-variable defines which type of contents will NOT be hidden. It has
-the following default value.
-
-\begin{verbatim}
-(defvar mime/default-showing-Content-Type-list
- '("text/plain" "text/richtext" "text/enriched" "text/x-latex" nil))
-\end{verbatim}
-
-\noindent All contents are hidden except text/plain, text/richtext,
-text/enriched, text/x-latex, and non-MIME contents.
-
-A content body which was not "hidden" is then "processed". A list
-in a mime/content-filter-alist variable will be searched looking up
-an entry which matches with the content-type of a content. If a matching
-entry is found, the function defined in that entry will be called
-to "process" a content body.
-
-A mime/content-filter-alist variable has nil as a default value. It
-will have non-nil after loading tm-rich.el which contains the following
-lines.
-
-\begin{verbatim}
-(aput 'mime/content-filter-alist
- "text/enriched" (function mime/decode-text/enriched-body))
-\end{verbatim}
-
-\noindent This is defining a process to be done to the text/enriched
-type content body. A function mime/decode-text/enriched-body will
-be called if a text/enriched body need to be "processed".
-
-
-\section{Restrictions}
-
-A decode-b.c file in the tm package is the source of the BASE64
-decoder. As it was not thoroughly tested, it may not work for you.
-But at least you can see what it wants to do so that you can correct
-errors in the source code. (\verb+^+\_\verb+^+;
-
-Or you can use mmencode in the metamail package to decode the BASE64
-encoded messages.
-
-Use mmencode to decode the Quoted-Printable messages. The tm package
-does not include the decoder for Quoted-Printable.
-
-
-\chapter{tiny-mime}
-
-tiny-mime is a multi-lingual MIME style message header
-encoder/decoder based on RFC 1522 for Mule, NEmacs, and NEpoch. It
-is based on Mr. Enami's ISO-2022-JP Base64 MIME header decoder which
-could decode only ISO-2022-JP Base64-encoded headers. The following list
-shows some of the functional enhancemets I made in tiny-mime.
-
-\begin{itemize}
-\item unfolding at decoding
-\item encoding/decoding multilingual character sets, such as,
- ISO-2022-JP, ISO-2022-JP-2, ISO-2022-CN, ISO-2022-KR, ISO-8859-*,
- US-ASCII, EUC-KR
-\item Q-encoding
-\item compliance with RFC 1522
-\end{itemize}
-
-\noindent and more.
-
-tiny-mime is a MIME headers encoder/decoder in the tm package and used
-by tm-view and tm-MUAs.
-
-
-\section{mime/decode-message-header}
-
-{\tt mime/decode-message-header} is a command to decode the MIME headers.
-You need to load tiny-mime before you can use this command.
-
-{\list{}{\leftmargin=8ex}\item[]
-\par
-M-x {\tt mime/decode-message-header}
-\endlist}
-
-\noindent will decode the MIME headers in the current buffer.
-
-tm-MUAs and tm-view use this command to decode the MIME headers.
-Therefore, it may not be required to explicitly execute this command if
-you are using them.
-
-
-\section{mime/decode-region}
-
-You can decode the MIME messages within the specified region by executing
-
-{\list{}{\leftmargin=8ex}\item[]
-\par
-M-x {\tt mime/decode-region}
-\endlist}
-
-\noindent This is useful when you want to decode the MIME headers
-which are yanked from the referenced article.
-
-
-\chapter{Reporting Bugs}
-
-Please report tm bugs you find to fj.editor.emacs or send a mail to
-tm ML:
-\begin{center}
- \begin{tabular}{ll}
- tm@chamonix.jaist.ac.jp & (Japanese or English) \\
- tm-eng@chamonix.jaist.ac.jp & (English)
- \end{tabular}
-\end{center}
-
-Via tm ML, You can report bugs of tm, obtain the latest release of tm
-package, and discuss the future enhancements to tm. To join tm ML,
-send a mail to
-
-\begin{center}
- \begin{tabular}{ll}
- tm-admin@chamonix.jaist.ac.jp & (Japanese or English) \\
- tm-eng-admin@chamonix.jaist.ac.jp & (English)
- \end{tabular}
-\end{center}
-
-\noindent Since the user registration is manually done, please write
-the mail body in human-recognizable language (\verb+^+\_\verb+^+).
-
-\end{document}
+++ /dev/null
-head 5.4;
-access;
-symbols;
-locks; strict;
-comment @% @;
-
-
-5.4
-date 94.10.17.03.05.02; author morioka; state Exp;
-branches;
-next 5.2;
-
-5.2
-date 94.10.17.02.55.02; author morioka; state Exp;
-branches;
-next ;
-
-
-desc
-@@
-
-
-5.4
-log
-@I added description for vm.
-@
-text
-@\documentstyle{report}
-
-\title{tm Reference Manual (English Edition)}
-\author{{\Large Morioka Tomohiko} \\
- {\normalsize $<$morioka@@jaist.ac.jp$>$}\\
- \\
- {\large translated by \Large Ueno Hiroshi} \\
- {\normalsize $<$jl07715@@yamato.ibm.co.jp$>$}
- }
-\date{\verb$Id: tm-eng.tex,v 5.2 1994/10/17 02:55:02 morioka Exp morioka $}
-
-\begin{document}
-
-\maketitle
-\tableofcontents
-
-\chapter{Overview}
-
-The tm package is a set of modules to enjoy MIME on GNU Emacs. Using tm,
-you can
-
-\begin{itemize}
-\item playback or view the MIME messages using new mime/viewer-mode
-\item encode and decode the multi-lingual headers
-\item use the enhanced MIME functions with mh-e, GNUS, and RMAIL
-\end{itemize}
-
-\noindent and more.
-
-
-\section{Module List}
-
-The tm package includes the modules listed below.
-
-\begin{itemize}
-\item {\bf tiny-mime} : MIME header encoder/decoder
-\item {\bf tm-view} : MIME message viewer
-\item {\bf tm-misc} : common part of tm-MUAs
-\item {\bf tm-MUAs} : MIME function enhancer for MUAs
- \begin{itemize}
- \item {\bf tm-mh-e} : tm-MUA for mh-e
- \item {\bf tm-gnus} : tm-MUA for GNUS
- \item {\bf tm-rmail} : tm-MUA for RMAIL
- \item {\bf tm-vm} : tm-MUA for vm
- \end{itemize}
-\item {\bf tm-setup} tm-MUA setup module
-\item {\bf mime-setup} MIME setup module
-\end{itemize}
-
-
-\chapter{Considerations for Each Version of Emacs}
-
-\section{Emacs (original)}
-
-A single character set can be used if you use the original Emacs.
-
-\section{NEmacs, NEpoch}
-
-ISO-2022-JP and US-ASCII can be used if you use NEmacs.
-
-
-\section{Mule}
-
-Mule can handle the multi-lingual text. With Mule, tiny-mime supports
-ISO-2022-JP, ISO-2022-JP-2, US-ASCII, ISO-8859-1..9, ISO-2022-CN,
-ISO-2022-KR, EUC-KR, etc. You can also add or change
-encoding/decoding for character sets by mime/set-charset-and-encoding
-function.
-
-
-\chapter{Installation and Setup}
-
-\section{Installation}
-
-You can install tm by following the procedures below.
-
-\begin{enumerate}
-\item modify bindir definition in Makefile according to your build
- environment.
-\item modify the method scripts in methods/ directory so that it
- can work in your environment. Refer to \ref{sec:method} section
- for how you can suit the method scripts to your environment.
-\item make all
-\item make install
-\item copy all files with .el suffix into the directory pointed by Emacs
- load-path variable.
-\end{enumerate}
-
-\noindent{\bf [Notes]}
-\begin{itemize}
-\item Make sure mh-e version 3.x has been loaded before byte-compiling
- tm-mh-e3.el.
-\item Make sure GNUS 3 has been loaded before byte-compiling tm-gnus3.el.
-\item Use Emacs 18 when you byte-compile tl-18.el.
-\item Use the original Emacs when you byte-compile tl-orig.el.
-\item Use NEmacs when you byte-compile tl-nemacs.el.
-\item Use Mule when you byte-compile tl-mule.el.
-\item Modules byte-compiled by Emacs 19 do not work with Emacs 18.
-\end{itemize}
-
-
-\section{Setup}
-
-In the tm package, two files, mime-setup.el and tm-setup.el, are provided
-to ease the setup. A mime-setup.el is used for the whole MIME related
-setup including MIME encoding, while tm-setup is used to set up tm-MUA
-only.
-
-
-\subsection{mime-setup}
-
-\begin{verbatim}
-(load "mime-setup")
-\end{verbatim}
-
-\noindent will perform various settings of MIME. As mime-setup loads
-tm-setup, you do not need to load tm-setup when you use mime-setup.
-
-You can also set up the "automatic signature selection tool" using
-mime-setup. If you want to automatically select the signature file
-depending on how the message headers show, add lines like shown below
-to your .emacs (Refer to the reference manual of signature.el for
-more details).
-
-\begin{verbatim}
-(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{verbatim}
-
-mime-setup requires mime.el. if you set up SuperCite via mime-setup,
-you need the SuperCite package also.
-
-
-\subsection{tm-setup}
-
-tm-setup only sets up tm-MUAs. You do not need to explicitly load
-tm-setup if you are using mime-setup for your setup. tm-setup is useful
-when you do not want to use mime-setup but want to set up tm-MUAs.
-
-\begin{verbatim}
-(load "tm-setup")
-\end{verbatim}
-
-
-\subsection{vm}
-
-If you want use vm, please insert following in .vm or .emacs:
-
-\begin{verbatim}
-(load "tm-vm")
-\end{verbatim}
-
-
-\subsection{setting up without loading provided setup files}
-
-You may find the valuable hints in tm-setup.el if you want to set up
-MIME environment without loading the tm-provided setup files.
-
-
-\subsection{setting up MH}
-
-If you are using MH-6.8JP2, add the following lines to your
-.mh\_profile.
-
-\begin{verbatim}
-scan: -form scan.mime
-inc: -form inc.mime
-repl: -form replcomps.mime
-showproc: mhl
-\end{verbatim}
-
-\noindent Emacs will handle the most part of MH processing. You
-should not specify further options in your MH profile to avoid any
-possible conflict between MH and Emacs.
-
-
-
-\chapter{tm-MUA}
-
-``tm-MUA'' is a generic name of the modules which enhance the MIME
-functions of MUA like mh-e, GNUS, and RMAIL etc.
-
-The current version of tm provides the following tm-MUA.
-
-\begin{itemize}
-\item {\bf tm-mh-e} : tm-MUA for mh-e
-\item {\bf tm-gnus} : tm-MUA for GNUS
-\item {\bf tm-rmail} : tm-MUA for RAMIL
-\end{itemize}
-
-\noindent You can find the detailed explanations of these modules in
-the following sections.
-
-
-\section{Summary Mode}
-
-If you are using tm-MUA, the following functions are added to the Summary
-mode of the MUA.
-
-\medskip
-\begin{center}
- \begin{tabular}{|l|l|}\hline
- key & function \\ \hline
- M-t & toggles decoding of MIME headers \\
- v & enters mime/view-mode \\ \hline
- \end{tabular}
-\end{center}
-\medskip
-
-
-\section{mime/viewer-mode}
-\label{sec:mime/viewer-mode}
-
-If you are using tm-MUA, mime/viewer-mode becomes active by pressing
-{\bf v} key in the Summary mode. In mime/viewer-mode, you can manipulate
-the MIME messages by the simple key operations. The following list shows
-the functions and their key bindings which can be used in mime/viewer-mode.
-
-\medskip
-\begin{center}
- \begin{tabular}{|l|l|}\hline
- key & function \\ \hline
- u & goes to the upper content \\
- & returns to the Summary mode if the cursor is sitting on
- the top content (*1) \\
- p & goes to the previous content \\
- n & goes to the next content \\
- SPC & scrolls up \\
- M-SPC & scrolls down \\
- DEL & scrolls down \\
- RET & goes to the next line \\
- M-RET & goes to the previous line \\
- v & playbacks a content (*2) \\
- e & extracts a file from a content (*2) \\
- C-c C-p & prints a content (*2) \\ \hline
- \end{tabular}
-\end{center}
-\medskip
-
-\bigskip
-
-\newcounter{asteriskcount}
-\noindent{\bf \e$B!N\e(BNote\e$B!O\e(B}
-\vspace{-1ex}
-{\list{(*\arabic{asteriskcount})}{\usecounter{asteriskcount}\leftmargin=8ex}
-\item Not return to the Summary mode unless tm-view has been setup using
-tm-mh-e, tm-gnus, tm-rmail etc.
-\item Actual playback/extract/print will be performed by a method.
-\endlist}
-
-
-\section{Customizing tm-gnus}
-
-\subsection{saving articles without decoding}
-
-By default, The articles will be saved as they appear in the buffer
-at that time.
-
-You can save the articles always without decoding by setting a
-tm-gnus/set-mime-header-decoding-mode variable to nil then call a
-function which saves the articles.
-
-The following example shows how you can save an article without
-decoding, preserving the current MIME header decoding mode.
-
-\begin{verbatim}
- (let ((mm mime/header-decoding-mode))
- (tm-gnus/set-mime-header-decoding-mode nil)
- (article save function)
- (tm-gnus/set-mime-header-decoding-mode mm)
- )
-\end{verbatim}
-
-The following is an example that saves the articles to a folder
-of mh-e.
-
-\begin{verbatim}
-(add-hook 'gnus-Startup-hook
- (function
- (lambda ()
- (setq gnus-default-article-saver
- (function
- (lambda ()
- (interactive)
- (let ((mm mime/header-decoding-mode))
- (tm-gnus/set-mime-header-decoding-mode nil)
- (gnus-Subject-save-in-folder)
- (tm-gnus/set-mime-header-decoding-mode mm)
- )))))))
-(add-hook 'gnus-startup-hook
- (function
- (lambda ()
- (setq gnus-default-article-saver
- (function
- (lambda ()
- (interactive)
- (let ((mm mime/header-decoding-mode))
- (tm-gnus/set-mime-header-decoding-mode nil)
- (gnus-summary-save-in-folder)
- (tm-gnus/set-mime-header-decoding-mode mm)
- )))))))
-\end{verbatim}
-
-\subsection{replying with encoded subject to an article with encoded subject}
-
-When you reply to an article, you may want to encode the Subject field only
-when the original article has an encoded Subject. It can be done by
-defining a hook as shown below.
-
-\begin{verbatim}
-(add-hook 'gnus-article-prepare-hook
- (function
- (lambda ()
- (if (mime/exist-encoded-word-in-subject)
- (setq mime/no-encoding-header-fields '("X-Nsubject"))
- (setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
- ))))
-\end{verbatim}
-
-
-\chapter{tm-view}
-
-tm-view is a module which is used to examine the MIME messages.
-It provides a mime/viewer-mode for that purpose.
-
-Regarding the functions of mime/viewer-mode, refer to
-\ref{sec:mime/viewer-mode} section.
-
-\section{Defining Conditions of Decoding}
-
-A mime/content-decoding-condition variable is used to define the methods
-which will be called at decoding. It replaces a
-mime/content-decoding-method-alist variable of tm-view version 4.x.
-
-A mime/content-decoding-method-alist only allowed you to define a
-method used for each content-type/subtype. Now a
-mime/content-decoding-condition variable allows you to write more
-complicated statements to describe the more detailed conditions to determine
-which method is to be use.
-
-A mime/content-decoding-condition variable is defined as a list with the
-following syntax.
-
-\begin{eqnarray*}
- (condition_1 \;\; condition_2 \;\; ...)
-\end{eqnarray*}
-
-\noindent Each condition is an association list with the following
-syntax.
-
-\begin{eqnarray*}
- ((field-type_1 \; . \; value_1) \;\;
- (field-type_2 \; . \; value_2) \;\; ...)
-\end{eqnarray*}
-
-\noindent
-
-For example, if you want to call the external method named tm-plain
-to decode every text/plain type content, you can define the condition like
-
-\begin{quote}
- ((type . "text/plain")
- (method "tm-plain" nil 'file 'type 'encoding 'mode 'name))
-\end{quote}
-
-\noindent As you notice, now you can define the arguments to pass to a
-external method. Refer to \ref{sec:method-arguments} section for more
-explanation.
-
-This condition definition will match all contents whose types are text/plain.
-Here is an another example.
-
-\begin{quote}
- ((type . "text/plain")
- (method "tm-plain" nil 'file 'type 'encoding 'mode 'name)
- (mode . "play"))
-\end{quote}
-
-\noindent This will match the content whose type is text/plain and
-the mode is play.
-
-
-\begin{quote}
- ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file)
- (mode . "play"))
-\end{quote}
-
-\noindent This will match all contents which have a mode of play.
-
-The conditions defined in a mime/content-decoding-condition variable
-are examined from top to bottom. The first matching condition
-becomes valid and the method specified in that condition definition
-will be executed.
-
-
-\subsection{arguments of method}
-\label{sec:method-arguments}
-
-You can specify the method field of the condition definition in two
-different ways.
-
-\begin{eqnarray*}
- (method \; . \; SYMBOL)
-\end{eqnarray*}
-
-\noindent or
-
-\begin{eqnarray*}
- (method \; STRING \; FLAG \; ARGUMENT_1 \; ARGUMENT_2 \; ...)
-\end{eqnarray*}
-
-\noindent can be accepted.
-
-When a symbol is specified in the method field, it will be called as
-an internal method.
-
-When a list is specified in the method field, it will be called as an
-external method. The list below shows the meaning of the parameters
-when the external method is specified in the method field.
-
-\begin{description}
-\item [STRING] name of an external method
-\item [FLAG] if t, both the content header and the content body are
- passed to an external method. if nil, only the content body is
- passed to an external method.
-\item [ARGUMENT$_x$] list of arguments passed to an external method
-\end{description}
-
-An argument passed to an external method can be in one of the following
-formats.
-
-\begin{quote}
- \begin{tabular}{lcl}
- STRING&:&string itself \\
- 'SYMBOL&:&value gotten using SYMBOL as a key (see below) \\
- 'STRING&:&value gotten using STRING as a key (see below)
- \end{tabular}
-\end{quote}
-
-'SYMBOL can be one of the following.
-
-\begin{quote}
- \begin{tabular}{lcl}
- 'file&:&name of a file holding the original content \\
- 'type&:&content-type/sub-type \\
- 'encoding&:&content-transfer-encoding \\
- 'mode&:&decoding mode \\
- 'name&:&name of a file created by decode operation
- \end{tabular}
-\end{quote}
-
-\noindent 'STRING is used to search a parameter of the Content-Type
-field whose name matches with it, and pass the value of that parameter
-to the external method.
-
-
-\subsection{examples}
-
-The default definition of a mime/content-decoding-condition variable is
-shown below.
-
-\begin{verbatim}
-(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{verbatim}
-
-For example, if you want to use metamail to decode any contents,
-
-\begin{verbatim}
-(setq mime/content-decoding-condition
- '(
- ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file))
- ))
-\end{verbatim}
-
-\noindent will work.
-
-A mime/content-decoding-condition variable provides you of very flexible
-way to define the conditions of decoding. It can be simple if you only
-need the a few decoding methods, while it can be very complicated if you
-want to use the separate decoding method for each type/mode combination.
-
-
-\section{Method Script}
-\label{sec:method}
-
-The methods are written in shell script. The arguments passed from tm-view.el
-to each method can be customized using mime/content-decoding-condition
-variable. If you use the tm-provided setting of
-mime/content-decoding-condition variable, the following arguments are
-passed to the method.
-
-\medskip
-\begin{center}
- \begin{tabular}{|c|l|} \hline
- argument & \multicolumn{1}{|c|}{ meaning }\\ \hline
- \$1 & file name before decoded \\
- \$2 & Content-Type (type/sub-type) \\
- \$3 & encoding
- \{7bit / quoted-printable / base64 / 8bit / binary / ...\}\\
- \$4 & decoding-mode \{play / extract / print\} \\
- \$5 & file name after decoded \\ \hline
- \end{tabular}
-\end{center}
-\medskip
-
-Exceptionally, no method is used to restore message/partial messages
-into one message. It is done by tm-view.el itself.
-
-
-\section{Changing Appearance}
-
-Each content in the preview buffer is shown in the following format.
-
-\begin{verbatim}
-[1 (text/plain)]
-
-body
-\end{verbatim}
-
-\noindent tm-view shows one content in three separate portions.
-
-\begin{itemize}
-\item content subject
-\item content header
-\item content body
-\end{itemize}
-
-\noindent
-
-
-\subsection{content subject}
-
-A content subject indicates the beginning of a content in the preview
-buffer. By default, it will be shown as below.
-
-\begin{quote}
- [cid title (type)]
-\end{quote}
-
-\noindent The cid field shows the position of a content in the message.
-It can be considered as the chapter number in the message. The title
-field is composed of the text string from the Subject and the
-Content-Description field. The type field is a copy of a
-text string specified in the type/subtype field of the content.
-
-You can customize how the content subject appears in the preview
-buffer by modifying a definition of mime/make-content-subject-function
-variable. The tm-view provides a following definition as a default.
-
-\begin{verbatim}
-(defvar mime/make-content-subject-function
- (function
- (lambda (cid subj ctype)
- (insert
- (format "[%s %s (%s)]\n"
- (if (listp cid)
- (mapconcat (function
- (lambda (num)
- (format "%s" (+ num 1))
- ))
- cid ".")
- "0")
- subj (car ctype)))
- )))
-\end{verbatim}
-
-\noindent The following is an example of the customization.
-
-\begin{verbatim}
-(setq mime/make-content-subject-function
- (function
- (lambda (cid subj ctype)
- (if (not (member (car ctype) mime/default-showing-Content-Type-list))
- (insert
- (format "[%s %s (%s)]\n"
- (if (listp cid)
- (mapconcat (function
- (lambda (num)
- (format "%s" (+ num 1))
- ))
- cid ".")
- "0")
- subj (car ctype))))
- )))
-\end{verbatim}
-
-\noindent This will show the content subjects only for the contents whose body
-portions are to be hidden.
-
-
-\subsection{content header}
-
-A content header shows the header portion of a content in the preview
-buffer. The default setup will show no content headers.
-
-You can customize how the content header appears in the preview
-buffer by modifying a definition of mime/make-content-header-filter
-variable. The tm-view provides a following default definition.
-
-
-\begin{verbatim}
-(defvar mime/make-content-header-filter
- (function
- (lambda (cid)
- (if (listp cid)
- (delete-region (goto-char (point-min))
- (or (and (re-search-forward "^$" nil t)
- (match-end 0))
- (point-max))
- )
- )
- )))
-\end{verbatim}
-
-\noindent The default setting removes all content headers
-until it detects a blank line delimiting the headers and the body.
-If you change a mime/make-content-header-filter variable like
-
-\begin{verbatim}
-(setq mime/make-content-header-filter
- (function
- (lambda (cid)
- )))
-\end{verbatim}
-
-\noindent you will see all headers in the content header portion.
-
-
-\subsection{content body}
-
-According to the type of content, the body portion of the content
-is managed by tm-view using
-
-\begin{enumerate}
-\item Hide
-\item Process
-\end{enumerate}
-
-\noindent techniques before it is put in the preview buffer.
-
-'Hide' is performed to prevent showing the non-text type content body
-in the preview buffer. A mime/default-showing-Content-Type-list
-variable defines which type of contents will NOT be hidden. It has
-the following default value.
-
-\begin{verbatim}
-(defvar mime/default-showing-Content-Type-list
- '("text/plain" "text/richtext" "text/enriched" "text/x-latex" nil))
-\end{verbatim}
-
-\noindent All contents are hidden except text/plain, text/richtext,
-text/enriched, text/x-latex, and non-MIME contents.
-
-A content body which was not "hidden" is then "processed". A list
-in a mime/content-filter-alist variable will be searched looking up
-an entry which matches with the content-type of a content. If a matching
-entry is found, the function defined in that entry will be called
-to "process" a content body.
-
-A mime/content-filter-alist variable has nil as a default value. It
-will have non-nil after loading tm-rich.el which contains the following
-lines.
-
-\begin{verbatim}
-(aput 'mime/content-filter-alist
- "text/enriched" (function mime/decode-text/enriched-body))
-\end{verbatim}
-
-\noindent This is defining a process to be done to the text/enriched
-type content body. A function mime/decode-text/enriched-body will
-be called if a text/enriched body need to be "processed".
-
-
-\section{Restrictions}
-
-A decode-b.c file in the tm package is the source of the BASE64
-decoder. As it was not thoroughly tested, it may not work for you.
-But at least you can see what it wants to do so that you can correct
-errors in the source code. (\verb+^+\_\verb+^+;
-
-Or you can use mmencode in the metamail package to decode the BASE64
-encoded messages.
-
-Use mmencode to decode the Quoted-Printable messages. The tm package
-does not include the decoder for Quoted-Printable.
-
-
-\chapter{tiny-mime}
-
-tiny-mime is a multi-lingual MIME style message header
-encoder/decoder based on RFC 1522 for Mule, NEmacs, and NEpoch. It
-is based on Mr. Enami's ISO-2022-JP Base64 MIME header decoder which
-could decode only ISO-2022-JP Base64-encoded headers. The following list
-shows some of the functional enhancemets I made in tiny-mime.
-
-\begin{itemize}
-\item unfolding at decoding
-\item encoding/decoding multilingual character sets, such as,
- ISO-2022-JP, ISO-2022-JP-2, ISO-2022-CN, ISO-2022-KR, ISO-8859-*,
- US-ASCII, EUC-KR
-\item Q-encoding
-\item compliance with RFC 1522
-\end{itemize}
-
-\noindent and more.
-
-tiny-mime is a MIME headers encoder/decoder in the tm package and used
-by tm-view and tm-MUAs.
-
-
-\section{mime/decode-message-header}
-
-{\tt mime/decode-message-header} is a command to decode the MIME headers.
-You need to load tiny-mime before you can use this command.
-
-{\list{}{\leftmargin=8ex}\item[]
-\par
-M-x {\tt mime/decode-message-header}
-\endlist}
-
-\noindent will decode the MIME headers in the current buffer.
-
-tm-MUAs and tm-view use this command to decode the MIME headers.
-Therefore, it may not be required to explicitly execute this command if
-you are using them.
-
-
-\section{mime/decode-region}
-
-You can decode the MIME messages within the specified region by executing
-
-{\list{}{\leftmargin=8ex}\item[]
-\par
-M-x {\tt mime/decode-region}
-\endlist}
-
-\noindent This is useful when you want to decode the MIME headers
-which are yanked from the referenced article.
-
-
-\chapter{Reporting Bugs}
-
-Please report tm bugs you find to fj.editor.emacs or send a mail to
-tm ML, $<$tm@@chamonix.jaist.ac.jp$>$.
-
-Via tm ML, You can report bugs of tm, obtain the latest release of tm
-package, and discuss the future enhancements to tm. To join tm ML,
-send a mail to
-
-\begin{center}
- tm-admin@@chamonix.jaist.ac.jp
-\end{center}
-
-\noindent Since the user registration is manually done, please write
-the mail body in human-recognizable language (\verb+^+\_\verb+^+).
-
-\end{document}
-@
-
-
-5.2
-log
-@*** empty log message ***
-@
-text
-@d10 1
-a10 1
-\date{\verb$Id: tm-eng.tex,v 5.2 1994/10/11 17:17:05 morioka Exp $}
-d44 1
-d147 9
-@
+++ /dev/null
-\input texinfo.tex
-@c{-*-tm-eword manual-*-}
-@setfilename tm-eword_ja.info
-@settitle{tm-eword manual}
-
-@titlepage
-@title{tm-eword Manual¡ÊÆüËܸìÈÇ¡Ë}
-@author{¼é²¬ ÃÎɧ Ãø}
-@code{$Id: tm-eword_ja.texi,v 4.0 1995/09/05 17:50:57 morioka Exp morioka $}
-@end titlepage
-
-
-@node Top, Abstract, (tm_ja.info)Introduction, (tm_ja.info)Introduction
-@comment node-name, next, previous, up
-@ifinfo
-@top tiny-mime 6.6 Reference manual
-@end ifinfo
-
-@ifinfo
-tm ¤Ë¤ª¤±¤ë MIME header ¤Î encoder/decoder ¤Ç¤¢¤ë tiny-mime ¤Ë¤Ä¤¤¤ÆÀâ
-ÌÀ¤·¤Þ¤¹¡£
-@end ifinfo
-
-@menu
-* Abstract:: tiny-mime ¤È¤Ï
-* Charsets:: tiny-mime ¤Î¥µ¥Ý¡¼¥È¤¹¤ë charset
-* How to use:: tiny-mime ¤Î´Êñ¤Ê»È¤¤Êý
-* Functions:: tiny-mime ¤Î´Ø¿ô
-* Variables:: tiny-mime ¤ÎÊÑ¿ô
-* Customize:: charset ¤ÎÄɲÃ
-* Integrate-into-MUA:: tiny-mime ¤Î MUA ¤Ø¤ÎÁȤ߹þ¤ß
-* Concept Index::
-* Command Index::
-* Variable Index::
-@end menu
-
-
-@node Abstract, Charsets, Top, Top
-@comment node-name, next, previous, up
-@chapter tiny-mime ¤È¤Ï
-@cindex tiny-mime ¤È¤Ï
-
-tiny-mime ¤Ï tm ¤Ë¤ª¤±¤ë MIME header (RFC 1522) ¤Î encoder/decoder ¤Ç¤¹¡£
-
-¥ª¥ê¥¸¥Ê¥ë¤Ï¡¢ÀΡ¢¤¨¤Ê¤ß ¤Ä¤°¤È¤â ¤µ¤ó¤¬ fj.editor.emacs ¤ËÅê¹Æ¤µ¤ì¤¿
-MIME message header ¤Î decoder ¤Ç¤¹¡£
-
-¸½ºß¤Ç¤Ï¡¢Åö»þ¤Î¤â¤Î¤ËÈæ¤Ù¡¢unfolding µ¡Ç½¤ä¡¢Mule ¤Ë¤ª¤±¤ë¿¸À¸ìʸ»ú
-Îó¤Î¥µ¥Ý¡¼¥È¡¢B-encoding ¤Ë²Ã¤¨ Q-encoding ¤Î¥µ¥Ý¡¼¥È¤Ê¤É¤Î³ÈÄ¥¤¬¤Ê¤µ
-¤ì¤Æ¤¤¤Þ¤¹¡£
-
-
-@node Charsets, How to use, Abstract, Top
-@comment node-name, next, previous, up
-@chapter tiny-mime ¤Î¥µ¥Ý¡¼¥È¤¹¤ë charset
-@cindex charset
-
-@section original GNU Emacs 18
-
-Æ°ºî¤ÏÊݾڤ·¤Þ¤»¤ó¡£¤·¤«¤·¤Ê¤¬¤é¡¢US-ASCII ¤ÎÈϰϤǤÏÆ°ºî¤¹¤ë¤È»×¤ï¤ì
-¤Þ¤¹¡£¡Ê¤¢¤Þ¤ê°ÕÌ£¤¬¤Ê¤¤¤«¤âÃΤì¤Þ¤»¤ó¤¬¡Ë
-
-@section NEmacs, NEpoch
-
-ISO-2022-JP, US-ASCII ¤Î encoding/decoding ¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£
-
-¤Þ¤¿¡¢ISO-8859-*¤Ç¤¢¤Ã¤Æ¤â¡¢encoded-text ¤Ë´Þ¤Þ¤ì¤ëʸ»úÎ󤬼ºݤˤÏ
-ASCII ¤Çɽ¤»¤ëÈϰϤʤéɽ¼¨¤·¤Þ¤¹¡£
-
-@section original GNU Emacs 19
-
-US-ASCII ¤ª¤è¤Ó ISO-8859-1 ¤Î encoding/decoding ¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£
-
-@section Mule
-
-ISO-2022-JP, US-ASCII, ISO-8859-1..9, ISO-2022-CN, ISO-2022-KR, EUC-KR
-¤Ê¤É¤Î encoding/decoding ¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£¤Þ¤¿¡¢´Ø¿ô
-mime/set-charset-and-encoding ¤ÇÄɲá¦Êѹ¹¤¬¤Ç¤¤Þ¤¹¡£
-(@xref{Customize})
-
-
-@node How to use, Functions, Charsets, Top
-@comment node-name, next, previous, up
-@chapter tiny-mime ¤Î´Êñ¤Ê»È¤¤Êý
-@cindex encode
-@cindex decode
-
-@section decode
-
-tiny-mime.el ¤ò load ¤·¤Æ¡¢decode ¤·¤¿¤¤ buffer ¾å¤Ç¡¢
-
-@example
- M-x mime/decode-message-header
-@end example
-
-¤ò¼Â¹Ô¤·¤Þ¤¹¡£
-
-¤Þ¤¿¡¢decode ¤·¤¿¤¤ region ¤ò
-
-@example
- M-x mime/decode-region
-@end example
-
-¤Ç decode ¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£°úÍÑ¤Ê¤É¤Ç body-part ¤Ë»Ä¤Ã¤¿
-encoded-word ¤ò decode ¤¹¤ë¤Î¤ËÊØÍø¤Ç¤·¤ç¤¦¡£
-
-
-@section encode
-
-tiny-mime.el ¤ò load ¤·¤Æ¡¢encode ¤·¤¿¤¤ buffer ¾å¤Ç¡¢
-
-@example
- M-x mime/encode-message-header
-@end example
-
-¤ò¼Â¹Ô¤·¤Þ¤¹¡£
-
-
-@node Functions, Variables, How to use, Top
-@comment node-name, next, previous, up
-@chapter tiny-mime ¤Î´Ø¿ô
-@cindex tiny-mime ¤Î´Ø¿ô
-
-@deffn{Command} mime/decode-message-header
-
-current buffer ¤Î message header Ãæ¤Î encoded-word ¤ò decode ¤·¤Þ¤¹¡£
-@end deffn
-
-
-@deffn{Command} mime/encode-message-header
-
-current buffer ¤Î message header Ãæ¤Î comment, phrase, *text ¤ò
-encoded-word ¤ËÊÑ´¹¤·¤Þ¤¹¡£¤³¤ÎºÝ¡¢ÊÑ¿ô
-@code{mime/no-encoding-header-fields} ¤Ç»ØÄꤵ¤ì¤¿ field ¤Ï encode ¤·
-¤Þ¤»¤ó¡£¤Þ¤¿¡¢header ¤È body ¤Î¶èÀÚ¤ê¤ÏÊÑ¿ô
-@code{mail-header-separator} ¤Ç»ØÄꤷ¤Þ¤¹¡£
-@end deffn
-
-
-@deffn{Command} mime/decode-region beg end
-
-@var{beg} ¤È @var{end} ¤Ç°Ï¤Þ¤ì¤¿ÎΰèÃæ¤Î encoded-word ¤ò decode ¤·¤Þ
-¤¹¡£
-@end deffn
-
-
-@node Variables, Customize, Functions, Top
-@comment node-name, next, previous, up
-@chapter tiny-mime ¤ÎÊÑ¿ô
-@cindex tiny-mime ¤ÎÊÑ¿ô
-
-@defvr{Variable} mime/no-encoding-header-fields
-
-tiny-mime.el ¤Ç encode ¤·¤Ê¤¤ message header ¤Î field ¤ò»ØÄꤷ¤Þ¤¹¡£
-
-default ¤Ç¤Ï X-Nsubject ¤¬»ØÄꤵ¤ì¤Æ¤¤¤Þ¤¹¡£
-
-Î㡧 X-Nsubject ¤È Subject ¤ò encode ¤·¤Ê¤¤¤è¤¦¤Ë¤¹¤ë¡£
-
-@lisp
-(setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
-@end lisp
-
-¡ÎÃí°Õ¡Ï mime.el ¤ÈÊ»ÍѤ¹¤ë¾ì¹ç¡¢tiny-mime.el ¤¬ encode ¤·¤Ê¤¯¤Æ¤â¡¢
-mime.el ¤¬ encode ¤¹¤ë¤Î¤Ç¡¢mime.el ¤Î message header encoder ¤¬Æ¯¤«¤Ê
-¤¤¤è¤¦¤Ë¤ËÀßÄꤷ¤Þ¤¹¡£
-@end defvr
-
-@defvr{Variable} mime/use-X-Nsubject
-
-¤³¤ÎÊÑ¿ô¤ÎÃͤ¬ t ¤Î¾ì¹ç¡¢message header ¤ò encode ¤¹¤ë»þ¡¢encode ¤·¤¿
-·ë²Ì¡¢Subject ¤Ë encoded-word ¤¬´Þ¤Þ¤ì¤ë¾ì¹ç¡¢Subject ¤ò decode ¤·¤¿¤â
-¤Î¤òÆþ¤ì¤¿ X-Nsubject ¤òºîÀ®¤·¤Þ¤¹¡£
-
-default ¤Ç¤Ï nil ¤¬»ØÄꤵ¤ì¤Æ¤¤¤Þ¤¹¡£
-
-¡ÎÃí°Õ¡ÏMule ¤Ç ISO-2022-JP ¤Ë´Þ¤Þ¤ì¤ë¤â¤Î°Ê³°¤Îʸ»ú½¸¹ç¤ò»È¤¦¾ì¹ç¤Ï¡¢
-¤³¤ì¤ò»ØÄꤷ¤Ê¤¤Êý¤¬¸ÌÀ¤Ç¤¹¡£
-@end defvr
-
-
-@node Customize, Integrate-into-MUA, Variables, Top
-@comment node-name, next, previous, up
-@chapter charset ¤ÎÄɲá¦Êѹ¹
-@cindex charset ¤ÎÄɲá¦Êѹ¹
-
-Mule ¤Ç¤Ï¡¢´Ø¿ô @code{mime/set-charset-and-encoding} ¤Ç¡¢charset ¤ÎÄÉ
-²Ã¡¦Êѹ¹¤¬¤Ç¤¤Þ¤¹¡£
-
-
-@deffn{Function} mime/set-charset-and-encoding LC CS CHARSET ENCODING
-
-@table @var
-@item LC
-charset ¤ËÂбþ¤¹¤ë leading-char ¤ò»ØÄꤹ¤ë¡£
-
-@item CS
-charset ¤ËÂбþ¤¹¤ë coding-system ¤ò»ØÄꤹ¤ë¡£1 octet ʸ»ú½¸¹ç¤Ç
-coding-system ¤òºî¤é¤Ê¤¤¾ì¹ç¤Ï¡¢nil ¤ò»ØÄꤹ¤ë¡£
-
-@item CHARSET
-MIME ¤Î charset.
-
-@item ENCODING
-encode ¤¹¤ëºÝ¤Î encoding.
-@end table
-
-@end deffn
-
-
-@node Integrate-into-MUA, Concept Index, Customize, Top
-@comment node-name, next, previous, up
-@chapter MUA ¤Ø¤ÎÁȤ߹þ¤ß
-@cindex MUA ¤Ø¤ÎÁȤ߹þ¤ß
-
-Æü¾ïŪ¤Ë¡¢Ìµ°Õ¼±¤Ë MIME header ¤òËÜÍè¤Î¸À¸ì¤Ç¸«¤¿¤¤¤È¤¤¤¦¤Î¤ÏÅöÁ³¤Î
-Íßµá¤Ç¤¹¡£¤½¤³¤Ç¡¢tiny-mime.el ¤ò mailer ¤ä news reader ¤ËÁȤ߹þ¤à¤È¼«
-ưŪ¤Ë MIME header ¤Î encode/decode ¤¬¤Ç¤¤Þ¤¹¡£
-
-¤³¤ÎÌÜŪ¤ò¼Â¸½¤¹¤ë¤Ë¤Ï¡¢mailer ¤ä news reader ¤ÎŬÀÚ¤Ê hook ¤Ë
-mime/decode-message-header ¤òÆþ¤ì¤ì¤ÐÎɤ¤¤Ç¤·¤ç¤¦¡£
-
-¤Þ¤¿¡¢tm-MUA ¤È¸Æ¤Ð¤ì¤ë°ìÏ¢¤Î module ¤ò»È¤¨¤Ð´Êñ¤Ë MUA ¤Ç tiny-mime
-¤òÍøÍѤǤ¤Þ¤¹¡£
-
-@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 ÍÍѤʴؿô
-@cindex ÍÍѤʴؿô
-
-@deffn{Function} mime/decode-string STRING
-
-STRING Ãæ¤Î encoded-word ¤ò decode ¤¹¤ë¡£
-
-@end deffn
-
-
-@node Concept Index, Command Index, Integrate-into-MUA, 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{-*-tiny-mime manual-*-}
-@setfilename tm-head-jp.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-head-jp.texi,v 1.2 1995/01/30 18:04:24 morioka Exp $}
-
-@end titlepage
-
-
-@menu
-@end menu
-
-@node Top, Abstract, (dir), (dir)
-@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::
-* Charset::
-* How-to-use::
-* Variable::
-* Customize::
-* Integrate-into-MUA::
-@end menu
-
-
-@node Abstract, Charset, 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 Charset, 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-for-charset})
-
-
-@node How-to-use, Variable, Charset, 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 Variable, Customize, How-to-use, 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
-
-@example
-(setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
-@end example
-
-\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
-@chapter{\e$B%+%9%?%^%$%:\e(B}
-@cindex{\e$B%+%9%?%^%$%:\e(B}
-
-@menu
-* Customize-for-charset::
-@end menu
-
-@node Customize-for-charset, Customize, Customize, Customize
-@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 mime/set-charset-and-encoding \e$B$G!"\e(Bcharset \e$B$NDI2C!&JQ99\e(B
-\e$B$,$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, Integrate-into-MUA, 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
-
-
-@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
-
-@bye
+++ /dev/null
-\documentstyle[a4j]{jreport}
-
-\title{tm ÀâÌÀ½ñ}
-\author{¼é²¬ ÃÎɧ\\
- morioka@jaist.ac.jp}
-\date{\verb$Id: tm-jp.tex,v 5.5 1994/10/20 01:42:29 morioka Exp $}
-
-\begin{document}
-
-\maketitle
-\tableofcontents
-
-\chapter{¤Ï¤¸¤á¤Ë}
-
-tm ¤Ï GNU Emacs ¤Ç MIME ¤ò³Ú¤·¤à¤¿¤á¤Î package ¤Ç¤¹¡£tm ¤ò»È¤¦¤È¡¢
-
-\begin{itemize}
-\item mime/viewer-mode ¤ò»È¤Ã¤¿ MIME message ¤Î±ÜÍ÷¡¦ºÆÀ¸
-\item ¿¸À¸ì header ¤Î encode/decode
-\item mh-e, GNUS, RMAIL ¤Ç¤Î MIME µ¡Ç½¤Î¶¯²½
-\end{itemize}
-
-\noindent ¤¬¹Ô¤Ê¤¨¤Þ¤¹¡£
-
-
-\section{Module °ìÍ÷}
-
-tm ¤Ï°Ê²¼¤Î module ¤«¤é¤Ê¤ê¤Þ¤¹¡£
-
-\begin{itemize}
-\item {\bf tiny-mime} : MIME header encoder/decoder
-\item {\bf tm-view} : MIME viewer
-\item {\bf tm-misc} : tm-MUA ¤Î¶¦ÄÌ module
-\item {\bf tm-MUAs} : MUA ¤Î MIME µ¡Ç½¶¯²½ module
- \begin{itemize}
- \item {\bf tm-mh-e} : mh-e ÍѤΠtm-MUA
- \item {\bf tm-gnus} : GNUS ÍѤΠtm-MUA
- \item {\bf tm-rmail} : RMAIL ÍѤΠtm-MUA
- \item {\bf tm-vm} : vm ÍѤΠtm-MUA
- \end{itemize}
-\item {\bf tm-setup} tm-MUA ¤ÎÀßÄê module
-\item {\bf mime-setup} MIME ´Ø·¸¤ÎÀßÄê module
-\end{itemize}
-
-
-\chapter{Emacs version Ê̤ε¡Ç½¤ª¤è¤ÓÀ©¸Â}
-
-\section{Emacs (original)}
-
-Original ¤Î Emacs ¤Ç¤Ï¡¢US-ASCII ¤È ISO-8859-1 ¤¬»È¤¨¤Þ¤¹¡£
-
-
-\section{NEmacs, NEpoch}
-
-NEmacs ¤Ç¤Ï¡¢ISO-2022-JP ¤ª¤è¤Ó US-ASCII ¤¬»È¤¨¤Þ¤¹¡£
-
-
-\section{Mule}
-
-ISO-2022-JP, ISO-2022-JP-2, US-ASCII, ISO-8859-1..9, ISO-2022-CN,
-ISO-2022-KR, EUC-KR ¤Ê¤É¤Î¿¸À¸ì header ¤¬»È¤¨¤Þ¤¹¡£¤Þ¤¿¡¢´Ø¿ô
-mime/set-charset-and-encoding ¤ÇÄɲá¦Êѹ¹¤¬¤Ç¤¤Þ¤¹¡£
-
-
-\chapter{Install ¤ÈÀßÄê}
-
-\section{Install}
-
-Install ¤Ï¼¡¤Î¼ê½ç¤Ç¹Ô¤Ê¤¤¤Þ¤¹¡£
-
-\begin{enumerate}
-\item Makefile ¤Î bindir ¤ò¼«Ê¬¤Î´Ä¶¤Ë¹ç¤ï¤»¤Æ½ñ¤´¹¤¨¤ë¡£
-\item methods/ °Ê²¼¤Ë¤¢¤ë method script ¤ò \ref{sec:method} Àá¤ò»²¾È¤·
- ¤Æ¡¢¼«Ê¬¤Î´Ä¶¤Ë¹ç¤¦¤è¤¦¤Ë½ñ¤´¹¤¨¤ë¡£
-\item make all ¤¹¤ë¡£
-\item make install ¤¹¤ë¡£
-\item *.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ directory ¤Ë copy ¤¹¤ë¡£
-\end{enumerate}
-
-\noindent{\bf [Ãí°Õ]}
-\begin{itemize}
-\item tm-mh-e3.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢mh-e version 3.* ¤ò load
- ¤·¤¿¾õÂ֤ǹԤʤäƲ¼¤µ¤¤¡£
-\item tm-gnus3.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢GNUS 3 ¤¬ load ¤µ¤ì¤¿¾õ
- Â֤ǹԤʤäƲ¼¤µ¤¤¡£
-\item tl-18.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢Emacs 18 ¤Ç¹Ô¤Ê¤Ã¤Æ²¼¤µ¤¤¡£
-\item tl-orig.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢original Emacs ¤Ç¹Ô¤Ê¤Ã¤Æ
- ²¼¤µ¤¤¡£
-\item tl-nemacs.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢NEmacs ¤Ç¹Ô¤Ê¤Ã¤Æ²¼¤µ¤¤¡£
-\item tl-mule.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢Mule ¤Ç¹Ô¤Ê¤Ã¤Æ²¼¤µ¤¤¡£
-\item Emacs 19 ¤Ç byte-compile ¤·¤¿ module ¤Ï Emacs 18 ¤Ç¤ÏÆ°¤¤Þ¤»¤ó¡£
-\end{itemize}
-
-
-\section{ÀßÄê}
-
-¤³¤Î package ¤Ë¤Ï mime-setup.el ¤È tm-setup.el ¤È¤¤¤¦´Ê°×ÀßÄê file ¤¬
-Éí°¤·¤Æ¤¤¤Þ¤¹¡£mime-setup.el ¤Ç¤Ï encoding ¤â´Þ¤á¤¿ÀßÄê¤ò¹Ô¤Ê¤¤¡¢
-tm-setup ¤Ç¤Ï tm-MUA ¤Ë´Ø¤¹¤ëÀßÄê¤Î¤ß¤ò¹Ô¤Ê¤¤¤Þ¤¹¡£
-
-\subsection{mime-setup}
-
-\begin{verbatim}
-(load "mime-setup")
-\end{verbatim}
-
-\noindent ¤È¤¹¤ë¤È MIME ¤Ë´Ø¤¹¤ë³Æ¼ïÀßÄê¤ò¹Ô¤Ê¤¤¤Þ¤¹¡£mime-setup ¤Ï
-tm-setup ¤òÆɤó¤Ç¤¤¤ë¤Î¤Ç¡¢mime-setup ¤ò»È¤¦¾ì¹ç¡¢tm-setup ¤ò load ¤¹
-¤ëɬÍפϤ¢¤ê¤Þ¤»¤ó¡£
-
-mime-setup ¤Ç¤Ï signature ¤Î¼«Æ°ÀÚÂؤ¨ tool ¤âÉí°¤·¤Æ¤¤¤Þ¤¹¡£
-message header ¤Î field ¤Ë¹ç¤ï¤»¤Æ signature ¤Î¼«Æ°ÀÚÂؤò¹Ô¤Ê¤¤¤¿¤¤¾ì
-¹ç¤Ï .emacs ¤Ë°Ê²¼¤Î¤è¤¦¤Ê¤â¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£¡Ê¾Ü¤·¤¯¤Ï signature.el
-¤ÎÀâÌÀ½ñ¤ò»²¾È¤·¤Æ²¼¤µ¤¤¡Ë
-
-\begin{verbatim}
-(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{verbatim}
-
-mime-setup ¤ò»È¤¦¾ì¹ç¤Ï¡¢mime.el ¤¬É¬ÍפǤ¹¡£¤Þ¤¿¡¢SuperCite ¤ò»È¤¦¾ì
-¹ç¤Ï¡¢SuperCite ¤âɬÍפǤ¹¡£
-
-
-\subsection{tm-setup}
-
-tm-setup ¤Ï tm-MUA ¤ÎÀßÄê¤Î¤ß¤ò¹Ô¤Ê¤¦ module ¤Ç¤¹¡£mime-setup ¤ò load
-¤·¤Æ¤¤¤ë¾ì¹ç¡¢¤³¤ì¤òÍÛ¤Ë load ¤¹¤ëɬÍפϤ¢¤ê¤Þ¤»¤ó¤¬¡¢mime-setup ¤ò»È
-¤¤¤¿¤¯¤Ê¤¤¾ì¹ç¡¢°Ê²¼¤Î¤è¤¦¤Ë¤³¤ì¤ò load ¤·¤Æ²¼¤µ¤¤¡£
-
-\begin{verbatim}
-(load "tm-setup")
-\end{verbatim}
-
-
-\subsection{vm}
-
-vm ¤ò»È¤¦¾ì¹ç¤Ï .vm ¤« .emacs ¤Ë
-
-\begin{verbatim}
-(load "tm-vm")
-\end{verbatim}
-
-\noindent ¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£
-
-
-\subsection{ÀßÄê file ¤ò»È¤ï¤Ê¤¤¾ì¹ç}
-
-tm-setup.el ¤ò»²¹Í¤Ë¤·¤Æ²¼¤µ¤¤¡£
-
-
-\subsection{MH ¤ÎÀßÄê}
-
-¤Þ¤¿¡¢MH ¤¬ MH-6.8JP2 ¤Î¾ì¹ç¡¢.mh\_profile ¤Ë
-
-\begin{verbatim}
-scan: -form scan.mime
-inc: -form inc.mime
-repl: -form replcomps.mime
-showproc: mhl
-\end{verbatim}
-
-\noindent ¤òÄɲ䷤Ƥ¯¤À¤µ¤¤¡£¤Þ¤¿¡¢¤½¤ì°Ê³°¤Î MH ¤Î½èÍý¤Ï Emacs ¤Î¦
-¤Ç¼è¤ê»ÅÀÚ¤ë¤Î¤Ç¡¢MH ¤ÎÀßÄê¤Ï¤·¤Ê¤¤¤è¤¦¤Ë¤·¤Æ¤¯¤À¤µ¤¤¡£
-
-
-\chapter{tm-MUA}
-
-``tm-MUA'' ¤È¤¤¤¦¤Î¤Ï¡¢mh-e, GNUS, RMAIL ¤Ê¤É¤Î MUA ¤Î¤¿¤á¤Î MIME µ¡Ç½
-¶¯²½ module ¤ÎÁí¾Î¤Ç¤¹¡£
-
-¸½ºß¡¢tm-MUA ¤Ë¤Ï¡¢
-
-\begin{itemize}
-\item {\bf tm-mh-e} : mh-e ÍѤΠtm-MUA
-\item {\bf tm-gnus} : GNUS ÍѤΠtm-MUA
-\item {\bf tm-rmail} : RMAIL ÍѤΠtm-MUA
-\item {\bf tm-vm} : VM ÍѤΠtm-MUA
-\end{itemize}
-
-\noindent ¤¬¤¢¤ê¤Þ¤¹¡£¤³¤Î¾Ï¤Ç¤Ï¤³¤ì¤é¤Î module ¤Ë´Ø¤·¤ÆÀâÌÀ¤·¤Þ¤¹¡£
-
-
-\section{Summary mode}
-
-tm-MUA ¤ò»È¤¦¤È¡¢¸µ¤Î MUA ¤Î Summary mode ¤ËÂФ·¤Æ°Ê²¼¤Îµ¡Ç½¤¬Äɲ䵤ì
-¤Þ¤¹¡£
-
-\medskip
-\begin{center}
- \begin{tabular}{|l|l|}\hline
- key & µ¡Ç½ \\ \hline
- M-t & MIME header ¤Î decode ¤Ë´Ø¤¹¤ë toggle \\
- v & ËÜʸ¤ËÆþ¤ê¡¢mime/view-mode ¤Ë°Ü¤ë \\ \hline
- \end{tabular}
-\end{center}
-\medskip
-
-
-\section{mime/viewer-mode}
-\label{sec:mime/viewer-mode}
-
-tm-MUA ¤ò»È¤¦¤È¡¢Summary mode ¤Ç {\bf v} ¡Êvm ¤Ç¤Ï {\bf Z}¡Ë¤ò²¡¤¹¤³¤È
-¤Ë¤è¤Ã¤Æ¡¢mime/viewer-mode ¤È¤¤¤¦ MIME message ¤ò±ÜÍ÷¤¹¤ë¤¿¤á¤Î mode
-¤ËÆþ¤ê¤Þ¤¹¡£mime/viewer-mode ¤Ë¤Ï°Ê²¼¤Îµ¡Ç½¤¬¤¢¤ê¤Þ¤¹¡£
-
-\medskip
-\begin{center}
- \begin{tabular}{|l|l|}\hline
- key & µ¡Ç½ \\ \hline
- u & ¾å¤Î content ¤ËÌá¤ë \\
- & message ¤Î°ìÈÖ¾å¤Î content ¤Ç¤³¤ì¤ò¹Ô¤Ê¤¦¤È Summary mode
- ¤ËÌá¤ë (*1) \\
- p & Á°¤Î content ¤Ë°ÜÆ°¤¹¤ë \\
- n & ¼¡¤Î content ¤Ë°ÜÆ°¤¹¤ë \\
- SPC & scroll up ¤¹¤ë \\
- M-SPC & scroll down ¤¹¤ë \\
- DEL & scroll down ¤¹¤ë \\
- RET & ¼¡¤Î¹Ô¤Ë°ÜÆ°¤¹¤ë \\
- M-RET & Á°¤Î¹Ô¤Ë°ÜÆ°¤¹¤ë \\
- v & content ¤òºÆÀ¸¤¹¤ë (*2) \\
- e & content ¤«¤é file ¤ò¼è¤ê½Ð¤¹ (*2) \\
- C-c C-p & content ¤ò°õºþ¤¹¤ë (*2) \\ \hline
- \end{tabular}
-\end{center}
-\medskip
-
-\bigskip
-
-\newcounter{asteriskcount}
-\noindent{\bf ¡ÎÃí°Õ¡Ï}
-\vspace{-1ex}
-{\list{(*\arabic{asteriskcount})}{\usecounter{asteriskcount}\leftmargin=8ex}
-\item tm-mh-e, tm-gnus, tm-rmail ¤Ê¤É¤Ç tm-view ¤ÎÀßÄê¤ò¤·¤Æ¤¤¤Ê¤¤¾ì¹ç¡¢
- Summary mode ¤Ë¤ÏÌá¤ê¤Þ¤»¤ó¡£
-\item ¼ÂºÝ¤ÎÆ°ºî¤ÏÂбþ¤¹¤ë method ¤Ë°Í¤ê¤Þ¤¹¡£
-\endlist}
-
-
-\section{tm-gnus ¤Î customize}
-
-\subsection{article ¤ò save ¤¹¤ë»þ decoding ¤·¤Ê¤¤}
-
-article ¤ò save ¤¹¤ë»þ¡¢Êݸ¤µ¤ì¤ë message ¤Ï¤½¤Î»þɽ¼¨¤µ¤ì¤Æ¤¤¤ë¤è¤¦
-¤Ë¡¢¤½¤Î»þ¤Î MIME header decoding mode ¤Ë±þ¤¸¤Æ save ¤µ¤ì¤Þ¤¹¡£
-
-¤·¤«¤·¡¢article ¤ò save ¤¹¤ë»þ¡¢¾ï¤Ë¡¢MIME header decoding ¤ò¹Ô¤Ê¤ï¤Ê
-¤¤¡¢À¸¤Î message ¤ÇÊݸ¤·¤¿¤¤¾ì¹ç¤Ï¡¢ÊÑ¿ô
-tm-gnus/set-mime-header-decoding-mode ¤ÎÃͤò nil ¤Ë¤·¤Æ¡¢MIME header
-decoding ¤ò¹Ô¤Ê¤ï¤Ê¤¤ mode ¤Ë¤·¤Æ¡¢article save ´Ø¿ô¤ò¼Â¹Ô¤¹¤ë¤è¤¦¤ËÀß
-Äꤷ¤Æ²¼¤µ¤¤¡£
-
-Save ¤Î¼Â¹Ô¸å¡¢MIME header decoding mode ¤òÁ°¤Î¾õÂÖ¤ËÌᤷ¤¿¤¤¾ì¹ç¤Ï¡¢
-°Ê²¼¤Î¤è¤¦¤Ë¡¢°ì»þÊÑ¿ô¤Ë MIME header decoding mode ¤òÊݸ¤·¤Æ¤ª¤±¤Ð OK
-¤Ç¤¹¡£
-
-\begin{verbatim}
- (let ((mm mime/header-decoding-mode))
- (tm-gnus/set-mime-header-decoding-mode nil)
- (article save ´Ø¿ô)
- (tm-gnus/set-mime-header-decoding-mode mm)
- )
-\end{verbatim}
-
-°Ê²¼¤Ë¡¢mh-e ¤Î folder ¤Ë save ¤¹¤ë¾ì¹ç¤ÎÎã¤ò¼¨¤·¤Þ¤¹¡£
-
-\begin{verbatim}
-(add-hook 'gnus-Startup-hook
- (function
- (lambda ()
- (setq gnus-default-article-saver
- (function
- (lambda ()
- (interactive)
- (let ((mm mime/header-decoding-mode))
- (tm-gnus/set-mime-header-decoding-mode nil)
- (gnus-Subject-save-in-folder)
- (tm-gnus/set-mime-header-decoding-mode mm)
- )))))))
-(add-hook 'gnus-startup-hook
- (function
- (lambda ()
- (setq gnus-default-article-saver
- (function
- (lambda ()
- (interactive)
- (let ((mm mime/header-decoding-mode))
- (tm-gnus/set-mime-header-decoding-mode nil)
- (gnus-summary-save-in-folder)
- (tm-gnus/set-mime-header-decoding-mode mm)
- )))))))
-\end{verbatim}
-
-\subsection{reply ¤¹¤ë»þ Subject ¤Î encoding Ë¡¤ò reply ¸µ¤Ë¹ç¤ï¤»¤ë}
-
-Reply ¤¹¤ë»þ¡¢reply ¸µ¤Î Subject ¤Ë ASCII °Ê³°¤Îʸ»ú½¸¹ç¤ÎÆþ¤Ã¤Æ¤¤¤ë
-¾ì¹ç¡¢reply ¸µ¤¬ MIME encode ¤µ¤ì¤Æ¤¤¤¿¤é encode ¤·¡¢¤½¤¦¤Ç¤Ê¤«¤Ã¤¿¤é
-À¸¤ÇÆþ¤ì¤¿¤¤¾ì¹ç¤Ï¡¢¼¡¤Î¤è¤¦¤ËÀßÄꤷ¤Þ¤¹¡£
-
-\begin{verbatim}
-(add-hook 'gnus-article-prepare-hook
- (function
- (lambda ()
- (if (mime/exist-encoded-word-in-subject)
- (setq mime/no-encoding-header-fields '("X-Nsubject"))
- (setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
- ))))
-\end{verbatim}
-
-
-\chapter{tm-view}
-
-tm-view ¤Ï MIME message ¤ò±ÜÍ÷¤¹¤ë¤¿¤á¤Îµ¡Ç½¤òÄ󶡤¹¤ë module ¤Ç¤¹¡£
-tm-view ¤Ï mime/viewer-mode ¤È¤¤¤¦ mode ¤òÄ󶡤·¤Þ¤¹¡£
-
-mime/viewer-mode ¤Îµ¡Ç½¤Ë´Ø¤·¤Æ¤Ï¡¢\ref{sec:mime/viewer-mode} Àá¤ò»²¾È
-¤·¤Æ²¼¤µ¤¤¡£
-
-\section{content ¤Î decode ¾ò·ï¤ÎÀßÄê}
-
-ÊÑ¿ô mime/content-decoding-condition ¤Ï decode »þ¤Î method ¤ò»ØÄꤹ¤ë
-¤¿¤á¤ÎÊÑ¿ô¤Ç¡¢tm-view 4 ¤ÎÊÑ¿ô mime/content-decoding-method-alist ¤ËÁê
-Åö¤·¤Þ¤¹¡£
-
-ÊÑ¿ô mime/content-decoding-method-alist ¤Ç¤Ï¡¢Ã±¤Ë
-content-type/subtype ¤ËÂФ¹¤ë method ¤ò»ØÄꤹ¤ë¤³¤È¤·¤«¤Ç¤¤Þ¤»¤ó¤Ç¤·
-¤¿¤¬¡¢ÊÑ¿ô mime/content-decoding-condition ¤Ç¤Ï decode »þ¤ÎÀ©Ìó¾ò·ï¤ò
-½ñ¤¯¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
-
-ÊÑ¿ô mime/content-decoding-condition ¤Ï¡¢
-
-\begin{eqnarray*}
- (¾ò·ï_1 \;\; ¾ò·ï_2 \;\; ...)
-\end{eqnarray*}
-
-\noindent ¤È¤¤¤¦·Á¤ò¤·¤¿ list ¤Ç¡¢³Æ¾ò·ï¤Ï
-
-\begin{eqnarray*}
- ((field-type_1 \; . \; value_1) \;\;
- (field-type_2 \; . \; value_2) \;\; ...)
-\end{eqnarray*}
-
-\noindent ¤È¤¤¤¦·Á¤ÎÏ¢ÁÛ list ¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£
-
-Î㤨¤Ð¡¢text/plain ¤Î»þ¡¢tm-plain ¤òµ¯Æ°¤¹¤ë»þ¡¢
-
-\begin{quote}
- ((type . "text/plain")
- (method "tm-plain" nil 'file 'type 'encoding 'mode 'name))
-\end{quote}
-
-\noindent ¤È¤¤¤¦¾ò·ï¤ò½ñ¤¤Þ¤¹¡£¸«¤Æ¤ÎÄ̤ꡢ³°Éô method ¤Î°ú¿ô¤¬½ñ¤±¤ë
-¤è¤¦¤Ë¤Ê¤ê¤Þ¤·¤¿¡£¾Ü¤·¤¯¤Ï \ref{sec:method-arguments} Àá¤Ç½Ò¤Ù¤Þ¤¹¡£
-
-¤³¤Î¾ò·ï¤Ï text/plain ¤Ç¤¢¤ë content ¤Ê¤éÁ´¤Æ¤Î decoding-mode ¤Ç͸ú¤Ç
-¤¹¡£¤·¤«¤·¡¢
-
-\begin{quote}
- ((type . "text/plain")
- (method "tm-plain" nil 'file 'type 'encoding 'mode 'name)
- (mode . "play"))
-\end{quote}
-
-\noindent ¤Ê¤é¡¢play mode °Ê³°¤Ç¤Ï͸ú¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£
-
-µÕ¤Ë¡¢
-
-\begin{quote}
- ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file)
- (mode . "play"))
-\end{quote}
-
-\noindent ¤Ê¤é¡¢Á´¤Æ¤Î content-type ¤Î play mode ¤Ç͸ú¤Ë¤Ê¤ê¤Þ¤¹¡£
-
-¤³¤¦¤·¤Æ³Æ¾ò·ï¤òÁ°¤«¤é¸«¤Æ¹Ô¤¡¢ºÇ½é¤Ë͸ú¤Ë¤Ê¤Ã¤¿¾ò·ï¤¬¼Â¹Ô¤µ¤ì¤Þ¤¹¡£
-
-
-\subsection{method ¤Î°ú¿ô¤Î»ØÄê¤Î»ÅÊý}
-\label{sec:method-arguments}
-
-¾ò·ï¤Î method field ¤Ï
-
-\begin{eqnarray*}
- (method \; . \; SYMBOL)
-\end{eqnarray*}
-
-\noindent ¤«
-
-\begin{eqnarray*}
- (method \; ʸ»úÎó \; FLAG \; °ú¿ô_1 \; °ú¿ô_2 \; ...)
-\end{eqnarray*}
-
-\noindent ¤È¤¤¤¦·Á¤ò¤·¤Æ¤¤¤Þ¤¹¡£
-
-method field ¤ÎÃͤ¬ symbol ¤Ç¤¢¤ë¾ì¹ç¤Ï¡¢ÆâÉô method ¤È¤·¤Æµ¯Æ°¤µ¤ì¤Þ
-¤¹¡£
-
-method field ¤ÎÃͤ¬ list ¤Ç¤¢¤ë¾ì¹ç¡¢³°Éô method ¤È¤·¤Æµ¯Æ°¤µ¤ì¤Þ¤¹¡£
-¤³¤Î¾ì¹ç¡¢
-
-\begin{quote}
- \begin{tabular}{lcl}
- ʸ»úÎó&:&³°Éô method ¤Î̾Á° \\
- FLAG&:& t ¤Ê¤é content header ¤â³°Éô method ¤ËÅϤ¹¡£
- nil ¤Ê¤é content body ¤Î¤ß¤òÅϤ¹¡£\\
- °ú¿ôÎó&:&³°Éô method ¤Î°ú¿ô
- \end{tabular}
-\end{quote}
-
-\noindent ¤È²ò¼á¤µ¤ì¤Þ¤¹¡£
-
-¤Þ¤¿¡¢³°Éô method ¤Î°ú¿ô¤Ï¼¡¤Î¤è¤¦¤Ê·Á¼°¤Ç½ñ¤¤Þ¤¹¡£
-
-\begin{quote}
- \begin{tabular}{lcl}
- ʸ»úÎó&:&¤½¤Îʸ»úÎó¤òÅϤ¹ \\
- 'SYMBOL&:&SYMBOL ¤ò key ¤È¤·¤¿ÃͤòÅϤ¹\\
- 'ʸ»úÎó&:&ʸ»úÎó¤ò key ¤È¤·¤¿ÃͤòÅϤ¹
- \end{tabular}
-\end{quote}
-
-'SYMBOL ¤Ç»ØÄê¤Ç¤¤ë¤â¤Î¤Ë¤Ï¡¢
-
-\begin{quote}
- \begin{tabular}{lcl}
- 'file&:&content ¤òÅϤ¹¤¿¤á¤Î file ̾ \\
- 'type&:&content-type/sub-type ̾ \\
- 'encoding&:&content-transfer-encoding \\
- 'mode&:&decoding mode \\
- 'name&:&file ¤ËÍ¾ì¹ç¤Î file ̾
- \end{tabular}
-\end{quote}
-
-\noindent ¤Ê¤É¤¬¤¢¤ê¡¢'ʸ»úÎó ¤Ç¤Ï Content-Type field ¤Î parameter ¤Î
-Ãͤ¬»ØÄê¤Ç¤¤Þ¤¹¡£
-
-
-\subsection{Îã}
-
-½é´üÃͤϰʲ¼¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£
-
-\begin{verbatim}
-(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{verbatim}
-
-Î㤨¤Ð¡¢¡ÖÁ´Éô metamail »È¤¦¤ó¤ä¡×¤È¤¤¤¦¾ì¹ç¡¢
-
-\begin{verbatim}
-(setq mime/content-decoding-condition
- '(
- ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file))
- ))
-\end{verbatim}
-
-\noindent ¤È¤¹¤ì¤Ð OK ¤Ç¤¹¡£
-
-¹©Éפ¹¤ì¤Ð¡¢¤«¤Ê¤êÊ£»¨¤Ê¾ò·ï¤¬½ñ¤±¤ë¤Ç¤·¤ç¤¦¡£
-
-
-\section{method script}
-\label{sec:method}
-
-³Æ method ¤Ï shell script ¤Ç½ñ¤¤Þ¤¹¡£tm-verw.el ¤«¤éÅϤµ¤ì¤ë°ú¿ô¤Ï¡¢
-ÊÑ¿ô mime/content-decoding-condition ¤Ç»ØÄê¤Ç¤¤Þ¤¹¤¬¡¢É¸½àŪ¤Ê°ú¿ôÎó
-¤Ï°Ê²¼¤ÎÄ̤ê¤Ç¤¹¡£
-
-\medskip
-\begin{center}
- \begin{tabular}{|c|l|} \hline
- °ú¿ô & \multicolumn{1}{|c|}{ ÃÍ }\\ \hline
- \$1 & decode Á°¤Î file ̾ \\
- \$2 & Content-Type (type/sub-type) \\
- \$3 & encoding
- \{7bit / quoted-printable / base64 / 8bit / binary / ...\}\\
- \$4 & decoding-mode \{play / extract / print\} \\
- \$5 & file ̾ \\ \hline
- \end{tabular}
-\end{center}
-\medskip
-
-¤Þ¤¿¡¢message/partial ¤À¤±¤Ï tm-view.el ¼«¿È¤ÇÉü¸µ¤·¤Þ¤¹¡£
-
-
-\section{ɽ¼¨}
-
-mime/viewer-mode ¤ËÆþ¤ë¤È¡¢³Æ content ¤Ï preview buffer ¤Ë
-
-\begin{verbatim}
-[1 (text/plain)]
-
-ËÜʸ
-\end{verbatim}
-
-\noindent ¤Î¤è¤¦¤Ë²Ã¹©¤µ¤ì¤Æɽ¼¨¤µ¤ì¤Þ¤¹¡£tm-view ¤Ç¤Ï content ¤òɽ¼¨
-¤¹¤ëºÝ¡¢
-
-\begin{itemize}
-\item content subject
-\item content header
-\item content body
-\end{itemize}
-
-\noindent ¤È¤¤¤¦£³¤Ä¤ÎÉôʬ¤Ëʬ¤±¤Æ°·¤ï¤ì¤Þ¤¹¡£
-
-
-\subsection{content subject}
-
-content subject ¤Ï preview buffer ¤Ç content ¤ÎÀèƬ¤òɽ¤¹¤¿¤á¤ÎÉôʬ¤Ç¡¢
-ɸ½à¤Ç¤Ï¡¢
-
-\begin{quote}
- [cid Âê̾ (·¿)]
-\end{quote}
-
-\noindent ¤Î¤è¤¦¤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£cid ¤Ï message ¤ÎÃæ¤Ç¤Î content ¤Î°ÌÃÖ
-¤òɽ¤¹¤â¤Î¤Ç¡¢ÀáÈÖ¹æ¤Î¤è¤¦¤Ê¤â¤Î¤Ç¤¹¡£Âê̾¤Ï¡¢Subject ¤ä
-Content-Description ¤Ê¤É¤Ë½ñ¤«¤ì¤¿Ê¸»úÎ󤫤éºî¤é¤ì¤Þ¤¹¡£·¿¤Ï
-Content-Type ¤Ë½ñ¤«¤ì¤¿ type/subtype ¤Î¤³¤È¤Ç¤¹¡£
-
-¤³¤Î content subject ¤Îɽ¼¨¤ÏÊÑ¿ô mime/make-content-subject-function
-¤Ë¤è¤Ã¤ÆÀßÄê¤Ç¤¤Þ¤¹¡£´ûÄêÃͤϡ¢
-
-\begin{verbatim}
-(defvar mime/make-content-subject-function
- (function
- (lambda (cid subj ctype)
- (insert
- (format "[%s %s (%s)]\n"
- (if (listp cid)
- (mapconcat (function
- (lambda (num)
- (format "%s" (+ num 1))
- ))
- cid ".")
- "0")
- subj (car ctype)))
- )))
-\end{verbatim}
-
-\noindent ¤È¤Ê¤Ã¤Æ¤¤¤Þ¤¹¤¬¡¢Î㤨¤Ð¡¢
-
-\begin{verbatim}
-(setq mime/make-content-subject-function
- (function
- (lambda (cid subj ctype)
- (if (not (member (car ctype) mime/default-showing-Content-Type-list))
- (insert
- (format "[%s %s (%s)]\n"
- (if (listp cid)
- (mapconcat (function
- (lambda (num)
- (format "%s" (+ num 1))
- ))
- cid ".")
- "0")
- subj (car ctype))))
- )))
-\end{verbatim}
-
-\noindent ¤È¤¹¤ì¤Ð±£¤µ¤ì¤¿ content ¤À¤± content subject ¤òɽ¼¨¤¹¤ë¤è¤¦
-¤Ë¤Ç¤¤Þ¤¹¡£
-
-
-\subsection{content header}
-
-content header ¤Ï preview buffer ¤Ç content header ¤òɽ¼¨¤¹¤ë¤¿¤á¤ÎÉô
-ʬ¤Ç¤¹¡£É¸½à¤Ç¤Ï¶õ¹Ô¤Ë¤Ê¤ê¤Þ¤¹¡£
-
-¤³¤Î content header ¤Îɽ¼¨¤ÏÊÑ¿ô mime/make-content-header-filter ¤Ë¤è¤Ã
-¤ÆÀßÄê¤Ç¤¤Þ¤¹¡£´ûÄêÃͤϡ¢
-
-\begin{verbatim}
-(defvar mime/make-content-header-filter
- (function
- (lambda (cid)
- (if (listp cid)
- (delete-region (goto-char (point-min))
- (or (and (re-search-forward "^$" nil t)
- (match-end 0))
- (point-max))
- )
- )
- )))
-\end{verbatim}
-
-\noindent ¤È¤Ê¤Ã¤Æ¤ª¤ê¡¢content header ¤ò body ¤È¤Î¶¤Î¶õ¹Ô¤Þ¤Çºï½ü¤¹
-¤ë¤È¤¤¤¦É÷¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£Î㤨¤Ð¡¢
-
-\begin{verbatim}
-(setq mime/make-content-header-filter
- (function
- (lambda (cid)
- )))
-\end{verbatim}
-
-\noindent ¤È¤¹¤ì¤Ð¡¢Á´¤Æ¤Î content header field ¤òɽ¼¨¤Ç¤¤Þ¤¹¡£
-
-
-\subsection{content body}
-
-preview buffer ¤Ë content body ¤òɽ¼¨¤¹¤ëºÝ¡¢content-type Ëè¤Ë
-
-\begin{enumerate}
-\item ±£ÊÃ
-\item ²Ã¹©
-\end{enumerate}
-
-\noindent ¤È¤¤¤¦½èÍý¤¬¹Ô¤Ê¤ï¤ì¤Þ¤¹¡£
-
-±£ÊäÏÈó text part ¤ò±£¤¹¤¿¤á¤Î½èÍý¤Ç¡¢ÊÑ¿ô
-mime/default-showing-Content-Type-list ¤ËÀßÄꤵ¤ì¤¿ content-type °Ê³°
-¤Î content ¤¬±£Ê䵤ì¤Þ¤¹¡£¤³¤ÎÊÑ¿ô¤Î´ûÄêÃͤϡ¢
-
-\begin{verbatim}
-(defvar mime/default-showing-Content-Type-list
- '("text/plain" "text/richtext" "text/enriched" "text/x-latex" nil))
-\end{verbatim}
-
-\noindent ¤Ç¡¢text/plain, text/richtext, text/enriched, text/x-latex,
-µÚ¤Ó¡¢Èó MIME content ¤Î¤ß¤¬É½¼¨¤µ¤ì¡¢¤½¤ì°Ê³°¤Ï¡¢±£Ê䵤ì¤Þ¤¹¡£
-
-±£Ê䵤ì¤Ê¤«¤Ã¤¿ content ¤ËÂФ·¤Æ¡¢²Ã¹©½èÍý¤¬¹Ô¤Ê¤ï¤ì¤Þ¤¹¡£¤½¤Î
-content ¤Î content-type ¤ò key ¤Ë¤·¤ÆÊÑ¿ô mime/content-filter-alist ¤ò
-°ú¤¡¢¤½¤ÎÃÍÉô¤Ë½ñ¤«¤ì¤¿´Ø¿ô¤¬¼Â¹Ô¤µ¤ì¤Þ¤¹¡£
-
-ÊÑ¿ô mime/content-filter-alist ¤Î´ûÄêÃÍ¤Ï nil ¤Ç¤¹¤¬¡¢tm-rich.el ¤ò
-load ¤¹¤ë¤È¡¢
-
-\begin{verbatim}
-(aput 'mime/content-filter-alist
- "text/enriched" (function mime/decode-text/enriched-body))
-\end{verbatim}
-
-\noindent ¤Î¤è¤¦¤Ë text/enriched ¤ËÂФ¹¤ë²Ã¹©½èÍý¤¬ÀßÄꤵ¤ì¤Þ¤¹¡£
-
-
-\section{À©¸Â}
-
-Éí°¤Î BASE64 decoder ¤Ç¤¢¤ë decode-b.c ¤Ï¤¤¤¤²Ã¸º¤Êºî¤ê¤Ê¤Î¤Ç¡¢Æ°¤«¤Ê
-¤«¤Ã¤¿¤é¡¢Ã»¤¤¥×¥í¥°¥é¥à¤Ê¤Î¤Ç¡¢°Õ¤òµâ¤ó¤Ç½¤Àµ¤·¤Æ²¼¤µ¤¤¡£
-(\verb+^+\_\verb+^+;
-
-¤Þ¤¿¡¢metamail Éí°¤Î mmencode ¤ò»È¤Ã¤Æ decode ¤·¤Æ¤âÎɤ¤¤Ç¤·¤ç¤¦¡£
-
-¤Þ¤¿¡¢Quoted-Printable ¤Î decoder ¤ÏÉí°¤·¤Þ¤»¤ó¤Î¤Ç¡¢mmencode ¤ò»È¤Ã
-¤Æ²¼¤µ¤¤¡£
-
-
-\chapter{tiny-mime}
-
-tiny-mime ¤Ï Mule, NEmacs, NEpoch ¾å¤ÇÆ°ºî¤¹¤ë MIME header ¤Î
-encoder/decoder ¤Ç¤¹¡£tiny-mime ¤Ï¡¢ÀΡ¢¤¨¤Ê¤ß ¤Ä¤°¤È¤â ¤µ¤ó¤¬
-fj.editor.emacs ¤ËÅê¹Æ¤µ¤ì¤¿ ISO-2022-JP MIME header decoder ¤ò¸µ¤Ë¤·
-¤Æ¤¤¤Þ¤¹¡£
-
-¸½ºß¤Ç¤Ï¡¢Åö»þ¤Î¤â¤Î¤ËÈæ¤Ù¡¢
-
-\begin{itemize}
-\item decoding »þ¤Ë¤ª¤±¤ë unfolding µ¡Ç½¤ÎÄɲÃ
-\item ISO-2022-JP ¤Ë²Ã¤¨¡¢ISO-2022-KR, ISO-8859-*, US-ASCII ¤Ê¤É¤Î¿¸À
- ¸ì header ¤Î encode/decode µ¡Ç½¤ÎÄɲÃ
-\item Q-encoding ¤ÎÄɲÃ
-\item RFC 1522 ¤Ø¤ÎÂбþ
-\end{itemize}
-
-\noindent ¤È¤¤¤Ã¤¿µ¡Ç½¶¯²½¤¬¹Ô¤Ê¤ï¤ì¤Æ¤¤¤Þ¤¹¡£
-
-tiny-mime ¤Ï tm ¤Ë¤ª¤±¤ë MIME header encoder/decoder ¤Ç¤¢¤ê¡¢tm-view,
-tm-MUA ¤¬¤³¤ì¤òÍøÍѤ·¤Æ¤¤¤Þ¤¹¡£
-
-
-\section{mime/decode-message-header}
-
-{\tt mime/decode-message-header} ¤Ï MIME header ¤ò decode ¤¹¤ë¤¿¤á¤ÎÌ¿
-Îá¤Ç¤¹¡£tiny-mime ¤¬ load ¤µ¤ì¤Æ¤¤¤ë¾õÂ֤ǡ¢decode ¤·¤¿¤¤ buffer ¤Î¾å
-¤Ç¡¢
-
-{\list{}{\leftmargin=8ex}\item[]
-\par
-M-x {\tt mime/decode-message-header}
-\endlist}
-
-\noindent ¤ò¼Â¹Ô¤¹¤ë¤È¡¢¤½¤Î buffer ¾å¤Î MIME header ¤¬ decode ¤µ¤ì¤Þ
-¤¹¡£
-
-tm-MUA ¤ä tm-view ¤Ï¤³¤ÎÌ¿Îá¤ò¸Æ¤ó¤Ç¤¤¤ë¤Î¤Ç¡¢¤³¤ì¤é¤òÍøÍѤ·¤Æ¤¤¤ë¾ì¹ç¡¢
-Íۤˤ³¤ÎÌ¿Îá¤ò¼Â¹Ô¤¹¤ëɬÍפÏ̵¤¤¤Ç¤·¤ç¤¦¡£
-
-
-\section{mime/decode-region}
-
-region ¤ËÂФ·¤Æ¡¢
-
-{\list{}{\leftmargin=8ex}\item[]
-\par
-M-x {\tt mime/decode-region}
-\endlist}
-
-\noindent ¤ò¼Â¹Ô¤¹¤ë¤³¤È¤Ç¡¢°úÍÑ¤Ê¤É¤Ç buffer ¤Ë»Ä¤Ã¤¿ MIME header ¤ò
-decode ¤Ç¤¤Þ¤¹¡£
-
-
-\chapter{¥Ð¥°Êó¹ð¤Î»ÅÊý}
-
-tm ¤Î¥Ð¥°¤ò¸«¤Ä¤±¤¿¤é fj.editor.emacs ¤Ë post ¤¹¤ë¤«¡¢tm ML
-$<$tm@chamonix.jaist.ac.jp$>$ ¤Ë mail ¤òÁ÷¤Ã¤Æ²¼¤µ¤¤¡£
-
-tm ML ¤Ç¤Ï tm ¤Î¥Ð¥°¾ðÊó¤Î¸ò´¹¤äºÇ¿·ÈǤÎÇÛÉÛ¡¢tm ¤Î²þÎɤ˴ؤ¹¤ëµÄÏÀ¤ò
-¹Ô¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£tm ML ¤Ë»²²Ã¤·¤¿¤¤Êý¤Ï
-
-\begin{center}
- tm-admin@chamonix.jaist.ac.jp
-\end{center}
-
-\noindent ¤Þ¤Ç mail ¤òÁ÷¤Ã¤Æ²¼¤µ¤¤¡£ÅÐÏ¿¤Ï¼êÆ°¤Ç¤¹¤Î¤Ç¡¢¤Ç¤¤ì¤Ð¡¢¼«Á³
-¸À¸ì¤Ç½ñ¤¤¤Æ²¼¤µ¤¤¡£(\verb+^+\_\verb+^+)
-
-\end{document}
+++ /dev/null
-head 5.4;
-access;
-symbols;
-locks; strict;
-comment @% @;
-
-
-5.4
-date 94.10.17.02.58.20; author morioka; state Exp;
-branches;
-next 5.3;
-
-5.3
-date 94.10.17.02.54.15; author morioka; state Exp;
-branches;
-next 5.2;
-
-5.2
-date 94.10.11.17.17.05; author morioka; state Exp;
-branches;
-next 5.1;
-
-5.1
-date 94.09.26.14.52.00; author morioka; state Exp;
-branches;
-next 5.0;
-
-5.0
-date 94.09.26.14.46.30; author morioka; state Exp;
-branches;
-next 2.1;
-
-2.1
-date 94.09.02.09.41.08; author morioka; state Exp;
-branches;
-next 2.0;
-
-2.0
-date 94.09.02.07.42.01; author morioka; state Exp;
-branches;
-next 1.2;
-
-1.2
-date 94.09.01.02.11.05; author morioka; state Exp;
-branches;
-next 1.1;
-
-1.1
-date 94.08.31.11.18.40; author morioka; state Exp;
-branches;
-next ;
-
-
-desc
-@@
-
-
-5.4
-log
-@vm ¤Ë´Ø¤¹¤ëµ½Ò¤òÄɲä·¤¿¡£
-@
-text
-@\documentstyle[a4j]{jreport}
-
-\title{tm ÀâÌÀ½ñ}
-\author{¼é²¬ ÃÎɧ\\
- morioka@@jaist.ac.jp}
-\date{\verb$Id: tm-jp.tex,v 5.3 1994/10/17 02:54:15 morioka Exp morioka $}
-
-\begin{document}
-
-\maketitle
-\tableofcontents
-
-\chapter{¤Ï¤¸¤á¤Ë}
-
-tm ¤Ï GNU Emacs ¤Ç MIME ¤ò³Ú¤·¤à¤¿¤á¤Î package ¤Ç¤¹¡£tm ¤ò»È¤¦¤È¡¢
-
-\begin{itemize}
-\item mime/viewer-mode ¤ò»È¤Ã¤¿ MIME message ¤Î±ÜÍ÷¡¦ºÆÀ¸
-\item ¿¸À¸ì header ¤Î encode/decode
-\item mh-e, GNUS, RMAIL ¤Ç¤Î MIME µ¡Ç½¤Î¶¯²½
-\end{itemize}
-
-\noindent ¤¬¹Ô¤Ê¤¨¤Þ¤¹¡£
-
-
-\section{Module °ìÍ÷}
-
-tm ¤Ï°Ê²¼¤Î module ¤«¤é¤Ê¤ê¤Þ¤¹¡£
-
-\begin{itemize}
-\item {\bf tiny-mime} : MIME header encoder/decoder
-\item {\bf tm-view} : MIME viewer
-\item {\bf tm-misc} : tm-MUA ¤Î¶¦ÄÌ module
-\item {\bf tm-MUAs} : MUA ¤Î MIME µ¡Ç½¶¯²½ module
- \begin{itemize}
- \item {\bf tm-mh-e} : mh-e ÍѤΠtm-MUA
- \item {\bf tm-gnus} : GNUS ÍѤΠtm-MUA
- \item {\bf tm-rmail} : RMAIL ÍѤΠtm-MUA
- \item {\bf tm-vm} : vm ÍѤΠtm-MUA
- \end{itemize}
-\item {\bf tm-setup} tm-MUA ¤ÎÀßÄê module
-\item {\bf mime-setup} MIME ´Ø·¸¤ÎÀßÄê module
-\end{itemize}
-
-
-\chapter{Emacs version Ê̤ε¡Ç½¤ª¤è¤ÓÀ©¸Â}
-
-\section{Emacs (original)}
-
-Original ¤Î Emacs ¤Ç¤Ï¡¢ÅöÁ³¤Î¤³¤È¤Ê¤¬¤é¡¢Ã±°ìʸ»ú½¸¹ç¤·¤«»È¤¨¤Þ¤»¤ó¡£
-
-
-\section{NEmacs, NEpoch}
-
-NEmacs ¤Ç¤Ï¡¢ISO-2022-JP ¤ª¤è¤Ó US-ASCII ¤¬»È¤¨¤Þ¤¹¡£
-
-
-\section{Mule}
-
-ISO-2022-JP, ISO-2022-JP-2, US-ASCII, ISO-8859-1..9, ISO-2022-CN,
-ISO-2022-KR, EUC-KR ¤Ê¤É¤Î¿¸À¸ì header ¤¬»È¤¨¤Þ¤¹¡£¤Þ¤¿¡¢´Ø¿ô
-mime/set-charset-and-encoding ¤ÇÄɲá¦Êѹ¹¤¬¤Ç¤¤Þ¤¹¡£
-
-
-\chapter{Install ¤ÈÀßÄê}
-
-\section{Install}
-
-Install ¤Ï¼¡¤Î¼ê½ç¤Ç¹Ô¤Ê¤¤¤Þ¤¹¡£
-
-\begin{enumerate}
-\item Makefile ¤Î bindir ¤ò¼«Ê¬¤Î´Ä¶¤Ë¹ç¤ï¤»¤Æ½ñ¤´¹¤¨¤ë¡£
-\item methods/ °Ê²¼¤Ë¤¢¤ë method script ¤ò \ref{sec:method} Àá¤ò»²¾È¤·
- ¤Æ¡¢¼«Ê¬¤Î´Ä¶¤Ë¹ç¤¦¤è¤¦¤Ë½ñ¤´¹¤¨¤ë¡£
-\item make all ¤¹¤ë¡£
-\item make install ¤¹¤ë¡£
-\item *.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ directory ¤Ë copy ¤¹¤ë¡£
-\end{enumerate}
-
-\noindent{\bf [Ãí°Õ]}
-\begin{itemize}
-\item tm-mh-e3.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢mh-e version 3.* ¤ò load
- ¤·¤¿¾õÂ֤ǹԤʤäƲ¼¤µ¤¤¡£
-\item tm-gnus3.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢GNUS 3 ¤¬ load ¤µ¤ì¤¿¾õ
- Â֤ǹԤʤäƲ¼¤µ¤¤¡£
-\item tl-18.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢Emacs 18 ¤Ç¹Ô¤Ê¤Ã¤Æ²¼¤µ¤¤¡£
-\item tl-orig.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢original Emacs ¤Ç¹Ô¤Ê¤Ã¤Æ
- ²¼¤µ¤¤¡£
-\item tl-nemacs.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢NEmacs ¤Ç¹Ô¤Ê¤Ã¤Æ²¼¤µ¤¤¡£
-\item tl-mule.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢Mule ¤Ç¹Ô¤Ê¤Ã¤Æ²¼¤µ¤¤¡£
-\item Emacs 19 ¤Ç byte-compile ¤·¤¿ module ¤Ï Emacs 18 ¤Ç¤ÏÆ°¤¤Þ¤»¤ó¡£
-\end{itemize}
-
-
-\section{ÀßÄê}
-
-¤³¤Î package ¤Ë¤Ï mime-setup.el ¤È tm-setup.el ¤È¤¤¤¦´Ê°×ÀßÄê file ¤¬
-Éí°¤·¤Æ¤¤¤Þ¤¹¡£mime-setup.el ¤Ç¤Ï encoding ¤â´Þ¤á¤¿ÀßÄê¤ò¹Ô¤Ê¤¤¡¢
-tm-setup ¤Ç¤Ï tm-MUA ¤Ë´Ø¤¹¤ëÀßÄê¤Î¤ß¤ò¹Ô¤Ê¤¤¤Þ¤¹¡£
-
-\subsection{mime-setup}
-
-\begin{verbatim}
-(load "mime-setup")
-\end{verbatim}
-
-\noindent ¤È¤¹¤ë¤È MIME ¤Ë´Ø¤¹¤ë³Æ¼ïÀßÄê¤ò¹Ô¤Ê¤¤¤Þ¤¹¡£mime-setup ¤Ï
-tm-setup ¤òÆɤó¤Ç¤¤¤ë¤Î¤Ç¡¢mime-setup ¤ò»È¤¦¾ì¹ç¡¢tm-setup ¤ò load ¤¹
-¤ëɬÍפϤ¢¤ê¤Þ¤»¤ó¡£
-
-mime-setup ¤Ç¤Ï signature ¤Î¼«Æ°ÀÚÂؤ¨ tool ¤âÉí°¤·¤Æ¤¤¤Þ¤¹¡£
-message header ¤Î field ¤Ë¹ç¤ï¤»¤Æ signature ¤Î¼«Æ°ÀÚÂؤò¹Ô¤Ê¤¤¤¿¤¤¾ì
-¹ç¤Ï .emacs ¤Ë°Ê²¼¤Î¤è¤¦¤Ê¤â¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£¡Ê¾Ü¤·¤¯¤Ï signature.el
-¤ÎÀâÌÀ½ñ¤ò»²¾È¤·¤Æ²¼¤µ¤¤¡Ë
-
-\begin{verbatim}
-(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{verbatim}
-
-mime-setup ¤ò»È¤¦¾ì¹ç¤Ï¡¢mime.el ¤¬É¬ÍפǤ¹¡£¤Þ¤¿¡¢SuperCite ¤ò»È¤¦¾ì
-¹ç¤Ï¡¢SuperCite ¤âɬÍפǤ¹¡£
-
-
-\subsection{tm-setup}
-
-tm-setup ¤Ï tm-MUA ¤ÎÀßÄê¤Î¤ß¤ò¹Ô¤Ê¤¦ module ¤Ç¤¹¡£mime-setup ¤ò load
-¤·¤Æ¤¤¤ë¾ì¹ç¡¢¤³¤ì¤òÍÛ¤Ë load ¤¹¤ëɬÍפϤ¢¤ê¤Þ¤»¤ó¤¬¡¢mime-setup ¤ò»È
-¤¤¤¿¤¯¤Ê¤¤¾ì¹ç¡¢°Ê²¼¤Î¤è¤¦¤Ë¤³¤ì¤ò load ¤·¤Æ²¼¤µ¤¤¡£
-
-\begin{verbatim}
-(load "tm-setup")
-\end{verbatim}
-
-
-\subsection{vm}
-
-vm ¤ò»È¤¦¾ì¹ç¤Ï .vm ¤« .emacs ¤Ë
-
-\begin{verbatim}
-(load "tm-vm")
-\end{verbatim}
-
-\noindent ¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£
-
-
-\subsection{ÀßÄê file ¤ò»È¤ï¤Ê¤¤¾ì¹ç}
-
-tm-setup.el ¤ò»²¹Í¤Ë¤·¤Æ²¼¤µ¤¤¡£
-
-
-\subsection{MH ¤ÎÀßÄê}
-
-¤Þ¤¿¡¢MH ¤¬ MH-6.8JP2 ¤Î¾ì¹ç¡¢.mh\_profile ¤Ë
-
-\begin{verbatim}
-scan: -form scan.mime
-inc: -form inc.mime
-repl: -form replcomps.mime
-showproc: mhl
-\end{verbatim}
-
-\noindent ¤òÄɲ䷤Ƥ¯¤À¤µ¤¤¡£¤Þ¤¿¡¢¤½¤ì°Ê³°¤Î MH ¤Î½èÍý¤Ï Emacs ¤Î¦
-¤Ç¼è¤ê»ÅÀÚ¤ë¤Î¤Ç¡¢MH ¤ÎÀßÄê¤Ï¤·¤Ê¤¤¤è¤¦¤Ë¤·¤Æ¤¯¤À¤µ¤¤¡£
-
-
-\chapter{tm-MUA}
-
-``tm-MUA'' ¤È¤¤¤¦¤Î¤Ï¡¢mh-e, GNUS, RMAIL ¤Ê¤É¤Î MUA ¤Î¤¿¤á¤Î MIME µ¡Ç½
-¶¯²½ module ¤ÎÁí¾Î¤Ç¤¹¡£
-
-¸½ºß¡¢tm-MUA ¤Ë¤Ï¡¢
-
-\begin{itemize}
-\item {\bf tm-mh-e} : mh-e ÍѤΠtm-MUA
-\item {\bf tm-gnus} : GNUS ÍѤΠtm-MUA
-\item {\bf tm-rmail} : RMAIL ÍѤΠtm-MUA
-\item {\bf tm-vm} : VM ÍѤΠtm-MUA
-\end{itemize}
-
-\noindent ¤¬¤¢¤ê¤Þ¤¹¡£¤³¤Î¾Ï¤Ç¤Ï¤³¤ì¤é¤Î module ¤Ë´Ø¤·¤ÆÀâÌÀ¤·¤Þ¤¹¡£
-
-
-\section{Summary mode}
-
-tm-MUA ¤ò»È¤¦¤È¡¢¸µ¤Î MUA ¤Î Summary mode ¤ËÂФ·¤Æ°Ê²¼¤Îµ¡Ç½¤¬Äɲ䵤ì
-¤Þ¤¹¡£
-
-\medskip
-\begin{center}
- \begin{tabular}{|l|l|}\hline
- key & µ¡Ç½ \\ \hline
- M-t & MIME header ¤Î decode ¤Ë´Ø¤¹¤ë toggle \\
- v & ËÜʸ¤ËÆþ¤ê¡¢mime/view-mode ¤Ë°Ü¤ë \\ \hline
- \end{tabular}
-\end{center}
-\medskip
-
-
-\section{mime/viewer-mode}
-\label{sec:mime/viewer-mode}
-
-tm-MUA ¤ò»È¤¦¤È¡¢Summary mode ¤Ç {\bf v} ¡Êvm ¤Ç¤Ï {\bf Z}¡Ë¤ò²¡¤¹¤³¤È
-¤Ë¤è¤Ã¤Æ¡¢mime/viewer-mode ¤È¤¤¤¦ MIME message ¤ò±ÜÍ÷¤¹¤ë¤¿¤á¤Î mode
-¤ËÆþ¤ê¤Þ¤¹¡£mime/viewer-mode ¤Ë¤Ï°Ê²¼¤Îµ¡Ç½¤¬¤¢¤ê¤Þ¤¹¡£
-
-\medskip
-\begin{center}
- \begin{tabular}{|l|l|}\hline
- key & µ¡Ç½ \\ \hline
- u & ¾å¤Î content ¤ËÌá¤ë \\
- & message ¤Î°ìÈÖ¾å¤Î content ¤Ç¤³¤ì¤ò¹Ô¤Ê¤¦¤È Summary mode
- ¤ËÌá¤ë (*1) \\
- p & Á°¤Î content ¤Ë°ÜÆ°¤¹¤ë \\
- n & ¼¡¤Î content ¤Ë°ÜÆ°¤¹¤ë \\
- SPC & scroll up ¤¹¤ë \\
- M-SPC & scroll down ¤¹¤ë \\
- DEL & scroll down ¤¹¤ë \\
- RET & ¼¡¤Î¹Ô¤Ë°ÜÆ°¤¹¤ë \\
- M-RET & Á°¤Î¹Ô¤Ë°ÜÆ°¤¹¤ë \\
- v & content ¤òºÆÀ¸¤¹¤ë (*2) \\
- e & content ¤«¤é file ¤ò¼è¤ê½Ð¤¹ (*2) \\
- C-c C-p & content ¤ò°õºþ¤¹¤ë (*2) \\ \hline
- \end{tabular}
-\end{center}
-\medskip
-
-\bigskip
-
-\newcounter{asteriskcount}
-\noindent{\bf ¡ÎÃí°Õ¡Ï}
-\vspace{-1ex}
-{\list{(*\arabic{asteriskcount})}{\usecounter{asteriskcount}\leftmargin=8ex}
-\item tm-mh-e, tm-gnus, tm-rmail ¤Ê¤É¤Ç tm-view ¤ÎÀßÄê¤ò¤·¤Æ¤¤¤Ê¤¤¾ì¹ç¡¢
- Summary mode ¤Ë¤ÏÌá¤ê¤Þ¤»¤ó¡£
-\item ¼ÂºÝ¤ÎÆ°ºî¤ÏÂбþ¤¹¤ë method ¤Ë°Í¤ê¤Þ¤¹¡£
-\endlist}
-
-
-\section{tm-gnus ¤Î customize}
-
-\subsection{article ¤ò save ¤¹¤ë»þ decoding ¤·¤Ê¤¤}
-
-article ¤ò save ¤¹¤ë»þ¡¢Êݸ¤µ¤ì¤ë message ¤Ï¤½¤Î»þɽ¼¨¤µ¤ì¤Æ¤¤¤ë¤è¤¦
-¤Ë¡¢¤½¤Î»þ¤Î MIME header decoding mode ¤Ë±þ¤¸¤Æ save ¤µ¤ì¤Þ¤¹¡£
-
-¤·¤«¤·¡¢article ¤ò save ¤¹¤ë»þ¡¢¾ï¤Ë¡¢MIME header decoding ¤ò¹Ô¤Ê¤ï¤Ê
-¤¤¡¢À¸¤Î message ¤ÇÊݸ¤·¤¿¤¤¾ì¹ç¤Ï¡¢ÊÑ¿ô
-tm-gnus/set-mime-header-decoding-mode ¤ÎÃͤò nil ¤Ë¤·¤Æ¡¢MIME header
-decoding ¤ò¹Ô¤Ê¤ï¤Ê¤¤ mode ¤Ë¤·¤Æ¡¢article save ´Ø¿ô¤ò¼Â¹Ô¤¹¤ë¤è¤¦¤ËÀß
-Äꤷ¤Æ²¼¤µ¤¤¡£
-
-Save ¤Î¼Â¹Ô¸å¡¢MIME header decoding mode ¤òÁ°¤Î¾õÂÖ¤ËÌᤷ¤¿¤¤¾ì¹ç¤Ï¡¢
-°Ê²¼¤Î¤è¤¦¤Ë¡¢°ì»þÊÑ¿ô¤Ë MIME header decoding mode ¤òÊݸ¤·¤Æ¤ª¤±¤Ð OK
-¤Ç¤¹¡£
-
-\begin{verbatim}
- (let ((mm mime/header-decoding-mode))
- (tm-gnus/set-mime-header-decoding-mode nil)
- (article save ´Ø¿ô)
- (tm-gnus/set-mime-header-decoding-mode mm)
- )
-\end{verbatim}
-
-°Ê²¼¤Ë¡¢mh-e ¤Î folder ¤Ë save ¤¹¤ë¾ì¹ç¤ÎÎã¤ò¼¨¤·¤Þ¤¹¡£
-
-\begin{verbatim}
-(add-hook 'gnus-Startup-hook
- (function
- (lambda ()
- (setq gnus-default-article-saver
- (function
- (lambda ()
- (interactive)
- (let ((mm mime/header-decoding-mode))
- (tm-gnus/set-mime-header-decoding-mode nil)
- (gnus-Subject-save-in-folder)
- (tm-gnus/set-mime-header-decoding-mode mm)
- )))))))
-(add-hook 'gnus-startup-hook
- (function
- (lambda ()
- (setq gnus-default-article-saver
- (function
- (lambda ()
- (interactive)
- (let ((mm mime/header-decoding-mode))
- (tm-gnus/set-mime-header-decoding-mode nil)
- (gnus-summary-save-in-folder)
- (tm-gnus/set-mime-header-decoding-mode mm)
- )))))))
-\end{verbatim}
-
-\subsection{reply ¤¹¤ë»þ Subject ¤Î encoding Ë¡¤ò reply ¸µ¤Ë¹ç¤ï¤»¤ë}
-
-Reply ¤¹¤ë»þ¡¢reply ¸µ¤Î Subject ¤Ë ASCII °Ê³°¤Îʸ»ú½¸¹ç¤ÎÆþ¤Ã¤Æ¤¤¤ë
-¾ì¹ç¡¢reply ¸µ¤¬ MIME encode ¤µ¤ì¤Æ¤¤¤¿¤é encode ¤·¡¢¤½¤¦¤Ç¤Ê¤«¤Ã¤¿¤é
-À¸¤ÇÆþ¤ì¤¿¤¤¾ì¹ç¤Ï¡¢¼¡¤Î¤è¤¦¤ËÀßÄꤷ¤Þ¤¹¡£
-
-\begin{verbatim}
-(add-hook 'gnus-article-prepare-hook
- (function
- (lambda ()
- (if (mime/exist-encoded-word-in-subject)
- (setq mime/no-encoding-header-fields '("X-Nsubject"))
- (setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
- ))))
-\end{verbatim}
-
-
-\chapter{tm-view}
-
-tm-view ¤Ï MIME message ¤ò±ÜÍ÷¤¹¤ë¤¿¤á¤Îµ¡Ç½¤òÄ󶡤¹¤ë module ¤Ç¤¹¡£
-tm-view ¤Ï mime/viewer-mode ¤È¤¤¤¦ mode ¤òÄ󶡤·¤Þ¤¹¡£
-
-mime/viewer-mode ¤Îµ¡Ç½¤Ë´Ø¤·¤Æ¤Ï¡¢\ref{sec:mime/viewer-mode} Àá¤ò»²¾È
-¤·¤Æ²¼¤µ¤¤¡£
-
-\section{content ¤Î decode ¾ò·ï¤ÎÀßÄê}
-
-ÊÑ¿ô mime/content-decoding-condition ¤Ï decode »þ¤Î method ¤ò»ØÄꤹ¤ë
-¤¿¤á¤ÎÊÑ¿ô¤Ç¡¢tm-view 4 ¤ÎÊÑ¿ô mime/content-decoding-method-alist ¤ËÁê
-Åö¤·¤Þ¤¹¡£
-
-ÊÑ¿ô mime/content-decoding-method-alist ¤Ç¤Ï¡¢Ã±¤Ë
-content-type/subtype ¤ËÂФ¹¤ë method ¤ò»ØÄꤹ¤ë¤³¤È¤·¤«¤Ç¤¤Þ¤»¤ó¤Ç¤·
-¤¿¤¬¡¢ÊÑ¿ô mime/content-decoding-condition ¤Ç¤Ï decode »þ¤ÎÀ©Ìó¾ò·ï¤ò
-½ñ¤¯¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
-
-ÊÑ¿ô mime/content-decoding-condition ¤Ï¡¢
-
-\begin{eqnarray*}
- (¾ò·ï_1 \;\; ¾ò·ï_2 \;\; ...)
-\end{eqnarray*}
-
-\noindent ¤È¤¤¤¦·Á¤ò¤·¤¿ list ¤Ç¡¢³Æ¾ò·ï¤Ï
-
-\begin{eqnarray*}
- ((field-type_1 \; . \; value_1) \;\;
- (field-type_2 \; . \; value_2) \;\; ...)
-\end{eqnarray*}
-
-\noindent ¤È¤¤¤¦·Á¤ÎÏ¢ÁÛ list ¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£
-
-Î㤨¤Ð¡¢text/plain ¤Î»þ¡¢tm-plain ¤òµ¯Æ°¤¹¤ë»þ¡¢
-
-\begin{quote}
- ((type . "text/plain")
- (method "tm-plain" nil 'file 'type 'encoding 'mode 'name))
-\end{quote}
-
-\noindent ¤È¤¤¤¦¾ò·ï¤ò½ñ¤¤Þ¤¹¡£¸«¤Æ¤ÎÄ̤ꡢ³°Éô method ¤Î°ú¿ô¤¬½ñ¤±¤ë
-¤è¤¦¤Ë¤Ê¤ê¤Þ¤·¤¿¡£¾Ü¤·¤¯¤Ï \ref{sec:method-arguments} Àá¤Ç½Ò¤Ù¤Þ¤¹¡£
-
-¤³¤Î¾ò·ï¤Ï text/plain ¤Ç¤¢¤ë content ¤Ê¤éÁ´¤Æ¤Î decoding-mode ¤Ç͸ú¤Ç
-¤¹¡£¤·¤«¤·¡¢
-
-\begin{quote}
- ((type . "text/plain")
- (method "tm-plain" nil 'file 'type 'encoding 'mode 'name)
- (mode . "play"))
-\end{quote}
-
-\noindent ¤Ê¤é¡¢play mode °Ê³°¤Ç¤Ï͸ú¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£
-
-µÕ¤Ë¡¢
-
-\begin{quote}
- ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file)
- (mode . "play"))
-\end{quote}
-
-\noindent ¤Ê¤é¡¢Á´¤Æ¤Î content-type ¤Î play mode ¤Ç͸ú¤Ë¤Ê¤ê¤Þ¤¹¡£
-
-¤³¤¦¤·¤Æ³Æ¾ò·ï¤òÁ°¤«¤é¸«¤Æ¹Ô¤¡¢ºÇ½é¤Ë͸ú¤Ë¤Ê¤Ã¤¿¾ò·ï¤¬¼Â¹Ô¤µ¤ì¤Þ¤¹¡£
-
-
-\subsection{method ¤Î°ú¿ô¤Î»ØÄê¤Î»ÅÊý}
-\label{sec:method-arguments}
-
-¾ò·ï¤Î method field ¤Ï
-
-\begin{eqnarray*}
- (method \; . \; SYMBOL)
-\end{eqnarray*}
-
-\noindent ¤«
-
-\begin{eqnarray*}
- (method \; ʸ»úÎó \; FLAG \; °ú¿ô_1 \; °ú¿ô_2 \; ...)
-\end{eqnarray*}
-
-\noindent ¤È¤¤¤¦·Á¤ò¤·¤Æ¤¤¤Þ¤¹¡£
-
-method field ¤ÎÃͤ¬ symbol ¤Ç¤¢¤ë¾ì¹ç¤Ï¡¢ÆâÉô method ¤È¤·¤Æµ¯Æ°¤µ¤ì¤Þ
-¤¹¡£
-
-method field ¤ÎÃͤ¬ list ¤Ç¤¢¤ë¾ì¹ç¡¢³°Éô method ¤È¤·¤Æµ¯Æ°¤µ¤ì¤Þ¤¹¡£
-¤³¤Î¾ì¹ç¡¢
-
-\begin{quote}
- \begin{tabular}{lcl}
- ʸ»úÎó&:&³°Éô method ¤Î̾Á° \\
- FLAG&:& t ¤Ê¤é content header ¤â³°Éô method ¤ËÅϤ¹¡£
- nil ¤Ê¤é content body ¤Î¤ß¤òÅϤ¹¡£\\
- °ú¿ôÎó&:&³°Éô method ¤Î°ú¿ô
- \end{tabular}
-\end{quote}
-
-\noindent ¤È²ò¼á¤µ¤ì¤Þ¤¹¡£
-
-¤Þ¤¿¡¢³°Éô method ¤Î°ú¿ô¤Ï¼¡¤Î¤è¤¦¤Ê·Á¼°¤Ç½ñ¤¤Þ¤¹¡£
-
-\begin{quote}
- \begin{tabular}{lcl}
- ʸ»úÎó&:&¤½¤Îʸ»úÎó¤òÅϤ¹ \\
- 'SYMBOL&:&SYMBOL ¤ò key ¤È¤·¤¿ÃͤòÅϤ¹\\
- 'ʸ»úÎó&:&ʸ»úÎó¤ò key ¤È¤·¤¿ÃͤòÅϤ¹
- \end{tabular}
-\end{quote}
-
-'SYMBOL ¤Ç»ØÄê¤Ç¤¤ë¤â¤Î¤Ë¤Ï¡¢
-
-\begin{quote}
- \begin{tabular}{lcl}
- 'file&:&content ¤òÅϤ¹¤¿¤á¤Î file ̾ \\
- 'type&:&content-type/sub-type ̾ \\
- 'encoding&:&content-transfer-encoding \\
- 'mode&:&decoding mode \\
- 'name&:&file ¤ËÍ¾ì¹ç¤Î file ̾
- \end{tabular}
-\end{quote}
-
-\noindent ¤Ê¤É¤¬¤¢¤ê¡¢'ʸ»úÎó ¤Ç¤Ï Content-Type field ¤Î parameter ¤Î
-Ãͤ¬»ØÄê¤Ç¤¤Þ¤¹¡£
-
-
-\subsection{Îã}
-
-½é´üÃͤϰʲ¼¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£
-
-\begin{verbatim}
-(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{verbatim}
-
-Î㤨¤Ð¡¢¡ÖÁ´Éô metamail »È¤¦¤ó¤ä¡×¤È¤¤¤¦¾ì¹ç¡¢
-
-\begin{verbatim}
-(setq mime/content-decoding-condition
- '(
- ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file))
- ))
-\end{verbatim}
-
-\noindent ¤È¤¹¤ì¤Ð OK ¤Ç¤¹¡£
-
-¹©Éפ¹¤ì¤Ð¡¢¤«¤Ê¤êÊ£»¨¤Ê¾ò·ï¤¬½ñ¤±¤ë¤Ç¤·¤ç¤¦¡£
-
-
-\section{method script}
-\label{sec:method}
-
-³Æ method ¤Ï shell script ¤Ç½ñ¤¤Þ¤¹¡£tm-verw.el ¤«¤éÅϤµ¤ì¤ë°ú¿ô¤Ï¡¢
-ÊÑ¿ô mime/content-decoding-condition ¤Ç»ØÄê¤Ç¤¤Þ¤¹¤¬¡¢É¸½àŪ¤Ê°ú¿ôÎó
-¤Ï°Ê²¼¤ÎÄ̤ê¤Ç¤¹¡£
-
-\medskip
-\begin{center}
- \begin{tabular}{|c|l|} \hline
- °ú¿ô & \multicolumn{1}{|c|}{ ÃÍ }\\ \hline
- \$1 & decode Á°¤Î file ̾ \\
- \$2 & Content-Type (type/sub-type) \\
- \$3 & encoding
- \{7bit / quoted-printable / base64 / 8bit / binary / ...\}\\
- \$4 & decoding-mode \{play / extract / print\} \\
- \$5 & file ̾ \\ \hline
- \end{tabular}
-\end{center}
-\medskip
-
-¤Þ¤¿¡¢message/partial ¤À¤±¤Ï tm-view.el ¼«¿È¤ÇÉü¸µ¤·¤Þ¤¹¡£
-
-
-\section{ɽ¼¨}
-
-mime/viewer-mode ¤ËÆþ¤ë¤È¡¢³Æ content ¤Ï preview buffer ¤Ë
-
-\begin{verbatim}
-[1 (text/plain)]
-
-ËÜʸ
-\end{verbatim}
-
-\noindent ¤Î¤è¤¦¤Ë²Ã¹©¤µ¤ì¤Æɽ¼¨¤µ¤ì¤Þ¤¹¡£tm-view ¤Ç¤Ï content ¤òɽ¼¨
-¤¹¤ëºÝ¡¢
-
-\begin{itemize}
-\item content subject
-\item content header
-\item content body
-\end{itemize}
-
-\noindent ¤È¤¤¤¦£³¤Ä¤ÎÉôʬ¤Ëʬ¤±¤Æ°·¤ï¤ì¤Þ¤¹¡£
-
-
-\subsection{content subject}
-
-content subject ¤Ï preview buffer ¤Ç content ¤ÎÀèƬ¤òɽ¤¹¤¿¤á¤ÎÉôʬ¤Ç¡¢
-ɸ½à¤Ç¤Ï¡¢
-
-\begin{quote}
- [cid Âê̾ (·¿)]
-\end{quote}
-
-\noindent ¤Î¤è¤¦¤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£cid ¤Ï message ¤ÎÃæ¤Ç¤Î content ¤Î°ÌÃÖ
-¤òɽ¤¹¤â¤Î¤Ç¡¢ÀáÈÖ¹æ¤Î¤è¤¦¤Ê¤â¤Î¤Ç¤¹¡£Âê̾¤Ï¡¢Subject ¤ä
-Content-Description ¤Ê¤É¤Ë½ñ¤«¤ì¤¿Ê¸»úÎ󤫤éºî¤é¤ì¤Þ¤¹¡£·¿¤Ï
-Content-Type ¤Ë½ñ¤«¤ì¤¿ type/subtype ¤Î¤³¤È¤Ç¤¹¡£
-
-¤³¤Î content subject ¤Îɽ¼¨¤ÏÊÑ¿ô mime/make-content-subject-function
-¤Ë¤è¤Ã¤ÆÀßÄê¤Ç¤¤Þ¤¹¡£´ûÄêÃͤϡ¢
-
-\begin{verbatim}
-(defvar mime/make-content-subject-function
- (function
- (lambda (cid subj ctype)
- (insert
- (format "[%s %s (%s)]\n"
- (if (listp cid)
- (mapconcat (function
- (lambda (num)
- (format "%s" (+ num 1))
- ))
- cid ".")
- "0")
- subj (car ctype)))
- )))
-\end{verbatim}
-
-\noindent ¤È¤Ê¤Ã¤Æ¤¤¤Þ¤¹¤¬¡¢Î㤨¤Ð¡¢
-
-\begin{verbatim}
-(setq mime/make-content-subject-function
- (function
- (lambda (cid subj ctype)
- (if (not (member (car ctype) mime/default-showing-Content-Type-list))
- (insert
- (format "[%s %s (%s)]\n"
- (if (listp cid)
- (mapconcat (function
- (lambda (num)
- (format "%s" (+ num 1))
- ))
- cid ".")
- "0")
- subj (car ctype))))
- )))
-\end{verbatim}
-
-\noindent ¤È¤¹¤ì¤Ð±£¤µ¤ì¤¿ content ¤À¤± content subject ¤òɽ¼¨¤¹¤ë¤è¤¦
-¤Ë¤Ç¤¤Þ¤¹¡£
-
-
-\subsection{content header}
-
-content header ¤Ï preview buffer ¤Ç content header ¤òɽ¼¨¤¹¤ë¤¿¤á¤ÎÉô
-ʬ¤Ç¤¹¡£É¸½à¤Ç¤Ï¶õ¹Ô¤Ë¤Ê¤ê¤Þ¤¹¡£
-
-¤³¤Î content header ¤Îɽ¼¨¤ÏÊÑ¿ô mime/make-content-header-filter ¤Ë¤è¤Ã
-¤ÆÀßÄê¤Ç¤¤Þ¤¹¡£´ûÄêÃͤϡ¢
-
-\begin{verbatim}
-(defvar mime/make-content-header-filter
- (function
- (lambda (cid)
- (if (listp cid)
- (delete-region (goto-char (point-min))
- (or (and (re-search-forward "^$" nil t)
- (match-end 0))
- (point-max))
- )
- )
- )))
-\end{verbatim}
-
-\noindent ¤È¤Ê¤Ã¤Æ¤ª¤ê¡¢content header ¤ò body ¤È¤Î¶¤Î¶õ¹Ô¤Þ¤Çºï½ü¤¹
-¤ë¤È¤¤¤¦É÷¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£Î㤨¤Ð¡¢
-
-\begin{verbatim}
-(setq mime/make-content-header-filter
- (function
- (lambda (cid)
- )))
-\end{verbatim}
-
-\noindent ¤È¤¹¤ì¤Ð¡¢Á´¤Æ¤Î content header field ¤òɽ¼¨¤Ç¤¤Þ¤¹¡£
-
-
-\subsection{content body}
-
-preview buffer ¤Ë content body ¤òɽ¼¨¤¹¤ëºÝ¡¢content-type Ëè¤Ë
-
-\begin{enumerate}
-\item ±£ÊÃ
-\item ²Ã¹©
-\end{enumerate}
-
-\noindent ¤È¤¤¤¦½èÍý¤¬¹Ô¤Ê¤ï¤ì¤Þ¤¹¡£
-
-±£ÊäÏÈó text part ¤ò±£¤¹¤¿¤á¤Î½èÍý¤Ç¡¢ÊÑ¿ô
-mime/default-showing-Content-Type-list ¤ËÀßÄꤵ¤ì¤¿ content-type °Ê³°
-¤Î content ¤¬±£Ê䵤ì¤Þ¤¹¡£¤³¤ÎÊÑ¿ô¤Î´ûÄêÃͤϡ¢
-
-\begin{verbatim}
-(defvar mime/default-showing-Content-Type-list
- '("text/plain" "text/richtext" "text/enriched" "text/x-latex" nil))
-\end{verbatim}
-
-\noindent ¤Ç¡¢text/plain, text/richtext, text/enriched, text/x-latex,
-µÚ¤Ó¡¢Èó MIME content ¤Î¤ß¤¬É½¼¨¤µ¤ì¡¢¤½¤ì°Ê³°¤Ï¡¢±£Ê䵤ì¤Þ¤¹¡£
-
-±£Ê䵤ì¤Ê¤«¤Ã¤¿ content ¤ËÂФ·¤Æ¡¢²Ã¹©½èÍý¤¬¹Ô¤Ê¤ï¤ì¤Þ¤¹¡£¤½¤Î
-content ¤Î content-type ¤ò key ¤Ë¤·¤ÆÊÑ¿ô mime/content-filter-alist ¤ò
-°ú¤¡¢¤½¤ÎÃÍÉô¤Ë½ñ¤«¤ì¤¿´Ø¿ô¤¬¼Â¹Ô¤µ¤ì¤Þ¤¹¡£
-
-ÊÑ¿ô mime/content-filter-alist ¤Î´ûÄêÃÍ¤Ï nil ¤Ç¤¹¤¬¡¢tm-rich.el ¤ò
-load ¤¹¤ë¤È¡¢
-
-\begin{verbatim}
-(aput 'mime/content-filter-alist
- "text/enriched" (function mime/decode-text/enriched-body))
-\end{verbatim}
-
-\noindent ¤Î¤è¤¦¤Ë text/enriched ¤ËÂФ¹¤ë²Ã¹©½èÍý¤¬ÀßÄꤵ¤ì¤Þ¤¹¡£
-
-
-\section{À©¸Â}
-
-Éí°¤Î BASE64 decoder ¤Ç¤¢¤ë decode-b.c ¤Ï¤¤¤¤²Ã¸º¤Êºî¤ê¤Ê¤Î¤Ç¡¢Æ°¤«¤Ê
-¤«¤Ã¤¿¤é¡¢Ã»¤¤¥×¥í¥°¥é¥à¤Ê¤Î¤Ç¡¢°Õ¤òµâ¤ó¤Ç½¤Àµ¤·¤Æ²¼¤µ¤¤¡£
-(\verb+^+\_\verb+^+;
-
-¤Þ¤¿¡¢metamail Éí°¤Î mmencode ¤ò»È¤Ã¤Æ decode ¤·¤Æ¤âÎɤ¤¤Ç¤·¤ç¤¦¡£
-
-¤Þ¤¿¡¢Quoted-Printable ¤Î decoder ¤ÏÉí°¤·¤Þ¤»¤ó¤Î¤Ç¡¢mmencode ¤ò»È¤Ã
-¤Æ²¼¤µ¤¤¡£
-
-
-\chapter{tiny-mime}
-
-tiny-mime ¤Ï Mule, NEmacs, NEpoch ¾å¤ÇÆ°ºî¤¹¤ë MIME header ¤Î
-encoder/decoder ¤Ç¤¹¡£tiny-mime ¤Ï¡¢ÀΡ¢¤¨¤Ê¤ß ¤Ä¤°¤È¤â ¤µ¤ó¤¬
-fj.editor.emacs ¤ËÅê¹Æ¤µ¤ì¤¿ ISO-2022-JP MIME header decoder ¤ò¸µ¤Ë¤·
-¤Æ¤¤¤Þ¤¹¡£
-
-¸½ºß¤Ç¤Ï¡¢Åö»þ¤Î¤â¤Î¤ËÈæ¤Ù¡¢
-
-\begin{itemize}
-\item decoding »þ¤Ë¤ª¤±¤ë unfolding µ¡Ç½¤ÎÄɲÃ
-\item ISO-2022-JP ¤Ë²Ã¤¨¡¢ISO-2022-KR, ISO-8859-*, US-ASCII ¤Ê¤É¤Î¿¸À
- ¸ì header ¤Î encode/decode µ¡Ç½¤ÎÄɲÃ
-\item Q-encoding ¤ÎÄɲÃ
-\item RFC 1522 ¤Ø¤ÎÂбþ
-\end{itemize}
-
-\noindent ¤È¤¤¤Ã¤¿µ¡Ç½¶¯²½¤¬¹Ô¤Ê¤ï¤ì¤Æ¤¤¤Þ¤¹¡£
-
-tiny-mime ¤Ï tm ¤Ë¤ª¤±¤ë MIME header encoder/decoder ¤Ç¤¢¤ê¡¢tm-view,
-tm-MUA ¤¬¤³¤ì¤òÍøÍѤ·¤Æ¤¤¤Þ¤¹¡£
-
-
-\section{mime/decode-message-header}
-
-{\tt mime/decode-message-header} ¤Ï MIME header ¤ò decode ¤¹¤ë¤¿¤á¤ÎÌ¿
-Îá¤Ç¤¹¡£tiny-mime ¤¬ load ¤µ¤ì¤Æ¤¤¤ë¾õÂ֤ǡ¢decode ¤·¤¿¤¤ buffer ¤Î¾å
-¤Ç¡¢
-
-{\list{}{\leftmargin=8ex}\item[]
-\par
-M-x {\tt mime/decode-message-header}
-\endlist}
-
-\noindent ¤ò¼Â¹Ô¤¹¤ë¤È¡¢¤½¤Î buffer ¾å¤Î MIME header ¤¬ decode ¤µ¤ì¤Þ
-¤¹¡£
-
-tm-MUA ¤ä tm-view ¤Ï¤³¤ÎÌ¿Îá¤ò¸Æ¤ó¤Ç¤¤¤ë¤Î¤Ç¡¢¤³¤ì¤é¤òÍøÍѤ·¤Æ¤¤¤ë¾ì¹ç¡¢
-Íۤˤ³¤ÎÌ¿Îá¤ò¼Â¹Ô¤¹¤ëɬÍפÏ̵¤¤¤Ç¤·¤ç¤¦¡£
-
-
-\section{mime/decode-region}
-
-region ¤ËÂФ·¤Æ¡¢
-
-{\list{}{\leftmargin=8ex}\item[]
-\par
-M-x {\tt mime/decode-region}
-\endlist}
-
-\noindent ¤ò¼Â¹Ô¤¹¤ë¤³¤È¤Ç¡¢°úÍÑ¤Ê¤É¤Ç buffer ¤Ë»Ä¤Ã¤¿ MIME header ¤ò
-decode ¤Ç¤¤Þ¤¹¡£
-
-
-\chapter{¥Ð¥°Êó¹ð¤Î»ÅÊý}
-
-tm ¤Î¥Ð¥°¤ò¸«¤Ä¤±¤¿¤é fj.editor.emacs ¤Ë post ¤¹¤ë¤«¡¢tm ML
-$<$tm@@chamonix.jaist.ac.jp$>$ ¤Ë mail ¤òÁ÷¤Ã¤Æ²¼¤µ¤¤¡£
-
-tm ML ¤Ç¤Ï tm ¤Î¥Ð¥°¾ðÊó¤Î¸ò´¹¤äºÇ¿·ÈǤÎÇÛÉÛ¡¢tm ¤Î²þÎɤ˴ؤ¹¤ëµÄÏÀ¤ò
-¹Ô¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£tm ML ¤Ë»²²Ã¤·¤¿¤¤Êý¤Ï
-
-\begin{center}
- tm-admin@@chamonix.jaist.ac.jp
-\end{center}
-
-\noindent ¤Þ¤Ç mail ¤òÁ÷¤Ã¤Æ²¼¤µ¤¤¡£ÅÐÏ¿¤Ï¼êÆ°¤Ç¤¹¤Î¤Ç¡¢¤Ç¤¤ì¤Ð¡¢¼«Á³
-¸À¸ì¤Ç½ñ¤¤¤Æ²¼¤µ¤¤¡£(\verb+^+\_\verb+^+)
-
-\end{document}
-@
-
-
-5.3
-log
-@tm-vm ¤Ë´Ø¤¹¤ëµ½Ò¤òÄɲä·¤¿¡£
-@
-text
-@d6 1
-a6 1
-\date{\verb$Id: tm-jp.tex,v 1.1 1994/10/17 02:38:18 morioka Exp morioka $}
-d39 1
-@
-
-
-5.2
-log
-@content ¤Îɽ¼¨¤ÎºÝ¤Î filter ÊÑ¿ô¤Ë´Ø¤¹¤ëµ½Ò¤òÄɲä·¤¿¡£
-@
-text
-@d6 1
-a6 1
-\date{\verb$Id: tm-jp.tex,v 5.1 1994/09/26 14:52:00 morioka Exp morioka $}
-d140 11
-d182 1
-d207 3
-a209 4
-tm-MUA ¤ò»È¤¦¤È¡¢Summary mode ¤Ç {\bf v} ¤ò²¡¤¹¤³¤È¤Ë¤è¤Ã¤Æ¡¢
-mime/viewer-mode ¤È¤¤¤¦ MIME message ¤ò±ÜÍ÷¤¹¤ë¤¿¤á¤Î mode ¤ËÆþ¤ê¤Þ¤¹
-¡Ê⤷¡¢vm ¤Ç¤Ï°ã¤¦ key ¤Ë bind ¤·¤Æ¤¤¤ë¤½¤¦¤Ç¤¹¡Ë¡£mime/viewer-mode
-¤Ë¤Ï°Ê²¼¤Îµ¡Ç½¤¬¤¢¤ê¤Þ¤¹¡£
-@
-
-
-5.1
-log
-@mime/view-mode ¤È¤Ê¤Ã¤Æ¤¤¤ëÉôʬ¤ò mime/viewer-mode ¤Ë½¤Àµ¤·¤¿¡£
-@
-text
-@d6 1
-a6 1
-\date{\verb$Id: tm-jp.tex,v 5.0 1994/09/26 14:46:30 morioka Exp morioka $}
-d18 1
-a19 1
-\item mime/viewer-mode ¤ò»È¤Ã¤¿ MIME message ¤Î±ÜÍ÷¡¦ºÆÀ¸
-d51 1
-a55 13
-\begin{description}
-\item[¡ÎÃí°Õ¡Ï] outline.el ¤Ï NEmacs Éí°¤Î¤â¤Î¤Ç¤Ï¤Ê¤¯¡¢outln-18.el
- ¤ò»È¤¦¤³¤È¤ò¿ä¾©¤·¤Þ¤¹¡£outln-18.el ¤ò»È¤¦¾ì¹ç¤Ï¡¢¤³¤ì¤ò outline.el
- ¤Ë link ¤òÄ¥¤ë¤«¡¢rename ¤·¤Æ²¼¤µ¤¤¡£
-
- outln-18.el ¤ò»È¤ï¤Ê¤¤¾ì¹ç¤Ï¡¢outline.el ¤Ë
-
-\begin{verbatim}
-(provide 'outline)
-\end{verbatim}
-
- \noindent ¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£
-\end{description}
-a56 1
-
-a62 15
-\begin{description}
-\item[¡ÎÃí°Õ¡Ï] Emacs 18 base ¤Î Mule (Mule 1.1 ¤Ê¤É¡Ë¤Ç¤Ï¡¢Mule Éí°
- ¤Î outline.el ¤ÎÂå¤ï¤ê¤Ëoutln-18.el ¤ò»È¤¦¤³¤È¤ò¿ä¾©¤·¤Þ¤¹¡£
- outln-18.el ¤ò»È¤¦¾ì¹ç¤Ï¡¢¤³¤ì¤ò outline.el ¤Ë link ¤òÄ¥¤ë¤«¡¢rename
- ¤·¤Æ²¼¤µ¤¤¡£
-
- outln-18.el ¤ò»È¤ï¤Ê¤¤¾ì¹ç¤Ï¡¢outline.el ¤Ë
-
-\begin{verbatim}
-(provide 'outline)
-\end{verbatim}
-
- \noindent ¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£
-\end{description}
-
-a109 7
-mime-setup.el ¤Ïɸ½à¤Ç¤Ï SuperCite ¤ÎÀßÄê¤â¹Ô¤Ê¤¤¤Þ¤¹¡£¤³¤ì¤ò¤ä¤á¤ë¾ì
-¹ç .emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£
-
-\begin{verbatim}
-(setq mime-setup-use-sc nil)
-\end{verbatim}
-
-d211 3
-d502 153
-@
-
-
-5.0
-log
-@tm-view 5.1 ¤ËÂбþ¤·¤¿ÀâÌÀʸ¤ÎÊѹ¹¤ò¹Ô¤Ê¤Ã¤¿¡£
-@
-text
-@d6 1
-a6 1
-\date{\verb$Id: tm-jp.tex,v 2.1 1994/09/02 09:41:08 morioka Exp morioka $}
-d19 1
-a19 1
-\item mime/view-mode ¤ò»È¤Ã¤¿ MIME message ¤Î±ÜÍ÷¡¦ºÆÀ¸
-@
-
-
-2.1
-log
-@scroll-up, scroll-down ¤òÉÕ¤±²Ã¤¨¤¿¡£
-@
-text
-@d6 1
-a6 1
-\date{\verb$Id: tm-jp.tex,v 2.0 1994/09/02 07:42:01 morioka Exp morioka $}
-d227 2
-a228 2
-\section{mime/view-mode}
-\label{sec:mime/view-mode}
-d231 3
-a233 2
-mime/view-mode ¤È¤¤¤¦ MIME message ¤ò±ÜÍ÷¤¹¤ë¤¿¤á¤Î minor-mode ¤ËÆþ¤ê
-¤Þ¤¹¡£mime/view-mode ¤Ë¤Ï°Ê²¼¤Îµ¡Ç½¤¬¤¢¤ê¤Þ¤¹¡£
-a252 3
-mime/view-mode ¤Ï minor-mode ¤Ê¤Î¤Ç¡¢¸µ¤Î MUA ¤Î Article mode ¤Î
-mime/view-mode ¤È¤Ö¤Ä¤«¤Ã¤Æ¤¤¤Ê¤¤µ¡Ç½¤Ï¡¢¸µ¤Î MUA ¤Îµ¡Ç½¤¬»È¤¨¤Þ¤¹¡£
-
-d339 60
-a398 2
-tm-view ¤Ï minor-mode ¤Î mime/view-mode ¤È major-mode ¤Î
-mime/show-message-mode ¤òÄ󶡤·¤Þ¤¹¡£
-d400 1
-a400 3
-mime/view-mode ¤Îµ¡Ç½¤Ë´Ø¤·¤Æ¤Ï¡¢\ref{sec:mime/view-mode} Àá¤ò»²¾È¤·¤Æ
-²¼¤µ¤¤¡£mime/show-message-mode ¤Ï mime/view-mode ¤ò¸Æ¤ó¤Ç¤¤¤ë¤Î¤Ç¡¢¤½
-¤ì¤¬ major-mode ¤Ç¤¢¤ë¤³¤È¤ò½ü¤±¤Ð¡¢mime/view-mode ¤ÈƱ¤¸¤Ç¤¹¡£
-d403 2
-a404 1
-\section{tm-view ¤Î customize}
-d406 1
-a406 1
-\subsection{Emacs ¤ÎÀßÄê}
-d408 3
-a410 1
-\subsubsection{method ¤Î»ØÄê}
-d412 1
-a412 2
-.emacs ¤Ë°Ê²¼¤Î¤è¤¦¤Ê¤â¤Î¤òÆþ¤ì¤Æ¡¢³Æ Content-Type ¤ËÂбþ¤¹¤ë method¤ò
-»ØÄꤹ¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
-d414 32
-a445 11
-\begin{verbatim}
-(setq mime/content-decoding-method-alist
- '(("audio/basic" . "tm-au")
- ("image/gif" . "tm-image")
- ("image/jpeg" . "tm-image")
- ("image/x-pic" . "tm-image")
- ("video/mpeg" . "tm-mpeg")
- ("application/octet-stream" . "tm-file")
- ("text/x-latex" . "tm-latex")
- ))
-\end{verbatim}
-d447 1
-d449 9
-a457 1
-\subsubsection{content header ¤Îɽ¼¨}
-d459 2
-a460 4
-mime/view-minor-mode ¤Ç¤Ï¡¢MIME ·Á¼°¤Î content ¤ÎÆâ¡¢¤½¤Î content ¤Î
-content-type ¤¬ÊÑ¿ô
-mime/default-showing-Content-Type-list ¤Ç»ØÄꤵ¤ì¤¿¤â¤Î¤Ç¤Ê¤±¤ì¤Ð±£¤·
-¤Þ¤¹¡£
-a461 4
-¤³¤Î¤è¤¦¤Ë¡¢content ¤¬±£¤µ¤ì¤ë¾ì¹ç¤Ç¤â¡¢ÉáÄÌ¤Ï content header ¤È
-content body ¤Î£±¹ÔÌܤÏɽ¼¨¤µ¤ì¤Þ¤¹¤¬¡¢ÊÑ¿ô mime/hide-content-header
-¤ò t ¤Ë¤¹¤ë¤³¤È¤Ë¤è¤Ã¤Æ¡¢content header ¤Î£±¹ÔÌܤΤߤòɽ¼¨¤¹¤ë¤è¤¦¤Ë¤Ç
-¤¤Þ¤¹¡£
-d463 1
-d465 32
-a496 1
-\subsubsection{ÆâÉô decoder ¤Î»ÈÍÑ}
-d498 1
-a498 2
-°Ê²¼¤Î¤è¤¦¤ËÊÑ¿ô mime/use-internal-decoder ¤ò t ¤Ë¤¹¤ë¤È¡¢Base64 ¤Î
-decode ¤òÆâÉô decoder ¤ò»È¤Ã¤Æ¹Ô¤Ê¤¤¤Þ¤¹¡£
-d501 4
-a504 1
-(setq mime/use-internal-decoder t)
-d507 1
-a507 3
-¤·¤«¤·¤Ê¤¬¤é¡¢ÆâÉô decoder ¤Ï¤¹¤´¤¯ÃÙ¤¤¤Î¤Ç (\verb+^+\_\verb+^+;
-decode-b ¤¬Æ°¤«¤Ê¤¤¤« mmencode ¤¬¤Ê¤¤¾ì¹ç°Ê³°¤Ï»ØÄꤷ¤Ê¤¤Êý¤¬Îɤ¤¤Ç¤·¤ç
-¤¦¡£
-d509 1
-d511 2
-a512 1
-\subsection{method script}
-d515 3
-a517 2
-³Æ method ¤Ï shell script ¤Ç½ñ¤¤Þ¤¹¡£tm-body.el ¤«¤éÅϤµ¤ì¤ë°ú¿ô¤Ï°Ê
-²¼¤ÎÄ̤ê¤Ç¤¹¡£
-d533 1
-a533 1
-¤Þ¤¿¡¢message/partial ¤À¤±¤Ï tm-body.el ¼«¿È¤ÇÉü¸µ¤·¤Þ¤¹¡£
-a536 2
-
-message/external-body ¤Ë´Ø¤·¤Æ¤Ï¸½ºß¤Î¤È¤³¤í¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤Þ¤»¤ó¡£
-@
-
-
-2.0
-log
-@¹½À®¤òÊѤ¨¤¿¡£
-@
-text
-@d6 1
-a6 1
-\date{\verb$Id: tm-jp.tex,v 1.2 1994/09/01 02:11:05 morioka Exp morioka $}
-d243 2
-d255 1
-a255 4
-\noindent{\bf [Ãí°Õ]}
-
-(*1) tm-mh-e, tm-gnus, tm-rmail ¤Ê¤É¤Ç tm-view ¤ÎÀßÄê¤ò¤·¤Æ¤¤¤Ê¤¤¾ì¹ç¡¢
-Summary mode ¤Ë¤ÏÌá¤ê¤Þ¤»¤ó¡£
-d257 8
-a264 1
-(*2) ¼ÂºÝ¤ÎÆ°ºî¤ÏÂбþ¤¹¤ë method ¤Ë°Í¤ê¤Þ¤¹¡£
-@
-
-
-1.2
-log
-@̾Á°¤Î¤È¤³¤í¤Ë E-mail address ¤òÉÕ¤±²Ã¤¨¤¿¡£
-@
-text
-@d6 1
-a6 1
-\date{\verb$Id: tm-jp.tex,v 1.1 1994/08/31 11:18:40 morioka Exp morioka $}
-d55 15
-d76 15
-d195 6
-a200 1
-\chapter{»È¤¤Êý}
-d202 7
-a208 1
-\section{tm-MUA}
-a209 1
-tm-mh-e, tm-gnus, tm-rmail ¤Ê¤É¤Î tm-MUA ¤Î´ðËÜŪ¤Ê»È¤¤Êý¤òÀâÌÀ¤·¤Þ¤¹¡£
-d211 1
-a211 1
-\subsection{Summary mode}
-d213 2
-a214 2
-tm-MUA ¤ò»È¤¦¤È¸µ¤Î MUA ¤Î Summary mode ¤ËÂФ·¤Æ°Ê²¼¤Îµ¡Ç½¤¬Äɲ䵤ì¤Þ
-¤¹¡£
-d226 3
-a228 1
-\subsection{mime/view-mode}
-d230 3
-a232 2
-mime/view-mode ¤Ï¡¢MIME message ¤ò±ÜÍ÷¤¹¤ë¤¿¤á¤Î minor-mode ¤Ç¤¹¡£¸µ¤Î
-MUA ¤Î Article mode ¤ËÂФ·¤Æ°Ê²¼¤Îµ¡Ç½¤¬Äɲ䵤ì¤Þ¤¹¡£
-d250 3
-d261 72
-a332 1
-\section{tiny-mime}
-d334 3
-a336 3
-mime/decode-region ¤ò¼Â¹Ô¤¹¤ë¤³¤È¤Ç¡¢°úÍÑ¤Ê¤É¤Ç buffer ¤Ë»Ä¤Ã¤¿ MIME
-header ¤ò decode ¤Ç¤¤Þ¤¹¡£¡Ê¾Ü¤·¤¯¤Ï tiny-mime ¤ÎÀâÌÀ½ñ¤ò»²¾È¤·¤Æ²¼¤µ
-¤¤¡Ë
-d338 3
-a341 1
-\chapter{Customize}
-d343 1
-a343 1
-\section{tm-view}
-d347 2
-d364 16
-d381 1
-a381 3
-decode ¤òÆâÉô decoder ¤ò»È¤Ã¤Æ¹Ô¤Ê¤¤¤Þ¤¹¡£¡Ê¤¹¤´¤¯ÃÙ¤¤¤Ç¤¹
-(\verb+^+\_\verb+^+; decode-b ¤¬Æ°¤«¤Ê¤¤¤« mmencode ¤¬¤Ê¤¤¾ì¹ç°Ê³°¤Ï»Ø
-Äꤷ¤Ê¤¤Êý¤¬Îɤ¤¤Ç¤·¤ç¤¦¡Ë
-d387 4
-d392 1
-a392 1
-\subsection{method script ¤ÎÀßÄê}
-d415 1
-a415 1
-\subsection{À©¸Â}
-d429 21
-a449 1
-\section{tm-gnus}
-d451 2
-a452 1
-\subsection{article ¤ò save ¤¹¤ë»þ decoding ¤·¤Ê¤¤}
-d454 3
-a456 2
-article ¤ò save ¤¹¤ë»þ¡¢Êݸ¤µ¤ì¤ë message ¤Ï¤½¤Î»þɽ¼¨¤µ¤ì¤Æ¤¤¤ë¤è¤¦
-¤Ë¡¢¤½¤Î»þ¤Î MIME header decoding mode ¤Ë±þ¤¸¤Æ save ¤µ¤ì¤Þ¤¹¡£
-d458 4
-a461 5
-¤·¤«¤·¡¢article ¤ò save ¤¹¤ë»þ¡¢¾ï¤Ë¡¢MIME header decoding ¤ò¹Ô¤Ê¤ï¤Ê
-¤¤¡¢À¸¤Î message ¤ÇÊݸ¤·¤¿¤¤¾ì¹ç¤Ï¡¢ÊÑ¿ô
-tm-gnus/set-mime-header-decoding-mode ¤ÎÃͤò nil ¤Ë¤·¤Æ¡¢MIME header
-decoding ¤ò¹Ô¤Ê¤ï¤Ê¤¤ mode ¤Ë¤·¤Æ¡¢article save ´Ø¿ô¤ò¼Â¹Ô¤¹¤ë¤è¤¦¤ËÀß
-Äꤷ¤Æ²¼¤µ¤¤¡£
-d463 2
-a464 3
-Save ¤Î¼Â¹Ô¸å¡¢MIME header decoding mode ¤òÁ°¤Î¾õÂÖ¤ËÌᤷ¤¿¤¤¾ì¹ç¤Ï¡¢
-°Ê²¼¤Î¤è¤¦¤Ë¡¢°ì»þÊÑ¿ô¤Ë MIME header decoding mode ¤òÊݸ¤·¤Æ¤ª¤±¤Ð OK
-¤Ç¤¹¡£
-d466 2
-a467 7
-\begin{verbatim}
- (let ((mm mime/header-decoding-mode))
- (tm-gnus/set-mime-header-decoding-mode nil)
- (article save ´Ø¿ô)
- (tm-gnus/set-mime-header-decoding-mode mm)
- )
-\end{verbatim}
-a468 1
-°Ê²¼¤Ë¡¢mh-e ¤Î folder ¤Ë save ¤¹¤ë¾ì¹ç¤ÎÎã¤ò¼¨¤·¤Þ¤¹¡£
-d470 1
-a470 26
-\begin{verbatim}
-(add-hook 'gnus-Startup-hook
- (function
- (lambda ()
- (setq gnus-default-article-saver
- (function
- (lambda ()
- (interactive)
- (let ((mm mime/header-decoding-mode))
- (tm-gnus/set-mime-header-decoding-mode nil)
- (gnus-Subject-save-in-folder)
- (tm-gnus/set-mime-header-decoding-mode mm)
- )))))))
-(add-hook 'gnus-startup-hook
- (function
- (lambda ()
- (setq gnus-default-article-saver
- (function
- (lambda ()
- (interactive)
- (let ((mm mime/header-decoding-mode))
- (tm-gnus/set-mime-header-decoding-mode nil)
- (gnus-summary-save-in-folder)
- (tm-gnus/set-mime-header-decoding-mode mm)
- )))))))
-\end{verbatim}
-d472 1
-a472 1
-\subsection{reply ¤¹¤ë»þ Subject ¤Î encoding Ë¡¤ò reply ¸µ¤Ë¹ç¤ï¤»¤ë}
-d474 4
-a477 3
-Reply ¤¹¤ë»þ¡¢reply ¸µ¤Î Subject ¤Ë ASCII °Ê³°¤Îʸ»ú½¸¹ç¤ÎÆþ¤Ã¤Æ¤¤¤ë
-¾ì¹ç¡¢reply ¸µ¤¬ MIME encode ¤µ¤ì¤Æ¤¤¤¿¤é encode ¤·¡¢¤½¤¦¤Ç¤Ê¤«¤Ã¤¿¤é
-À¸¤ÇÆþ¤ì¤¿¤¤¾ì¹ç¤Ï¡¢¼¡¤Î¤è¤¦¤ËÀßÄꤷ¤Þ¤¹¡£
-d479 2
-a480 9
-\begin{verbatim}
-(add-hook 'gnus-article-prepare-hook
- (function
- (lambda ()
- (if (mime/exist-encoded-word-in-subject)
- (setq mime/no-encoding-header-fields '("X-Nsubject"))
- (setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
- ))))
-\end{verbatim}
-@
-
-
-1.1
-log
-@Initial revision
-@
-text
-@d4 3
-a6 2
-\author{¼é²¬ ÃÎɧ}
-\date{\verb$Id$}
-@
+++ /dev/null
-\input texinfo.tex
-@c{-*-tm manual-*-}
-@setfilename tm-jp.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{$Id$}
-
-@end titlepage
-
-
-@menu
-@end menu
-
-@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::
-* Emacs-Versions::
-* Install::
-* Setting::
-* tm-MUA::
-* 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 @emph{tiny-mime:} MIME header encoder/decoder
-@item @emph{tm-view:} MIME viewer
-@item @emph{tm-misc:} tm-MUA \e$B$N6&DL\e(B module
- @item @emph{tm-mh-e:} mh-e \e$BMQ$N\e(B tm-MUA
- @item @emph{tm-gnus:} GNUS \e$BMQ$N\e(B tm-MUA
- @item @emph{tm-rmail:} RMAIL \e$BMQ$N\e(B tm-MUA
- @item @emph{tm-vm:} VM \e$BMQ$N\e(B tm-MUA
-@item @emph{tm-setup:} tm-MUA \e$BA4HL$N@_Dj\e(B module
-@item @emph{mime-setup:} MIME \e$B4X78A4HL$N@_Dj\e(B module
-@end itemize
-
-
-@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 @emph{tm-mh-e:} mh-e \e$BMQ$N\e(B tm-MUA
-@item @emph{tm-gnus:} GNUS \e$BMQ$N\e(B tm-MUA
-@item @emph{tm-rmail:} RMAIL \e$BMQ$N\e(B tm-MUA
-@item @emph{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 v
- mime/viewer-mode \e$B$KF~$j!"\e(Bmessage \e$B$r1\Mw$9$k\e(B
-@end table
-
-
-@section{mime/viewer-mode}
-
-tm-MUA \e$B$r;H$&$H!"\e(BSummary mode \e$B$G\e(B @kbd{v}\e$B!J\e(Bvm \e$B$G$O\e(B @kbd{Z}\e$B!K$r2!$9$3$H\e(B
-\e$B$K$h$C$F!"\e(Bmime/viewer-mode \e$B$H$$$&\e(B MIME message \e$B$r1\Mw$9$k$?$a$N\e(B mode
-\e$B$KF~$j$^$9!#\e(Bmime/viewer-mode \e$B$K$O0J2<$N5!G=$,$"$j$^$9!#\e(B
-
-@table @kbd
-@item u
- \e$B>e$N\e(B content \e$B$KLa$k!J\e(Bmessage \e$B$N0lHV>e$N\e(B content \e$B$G$3$l$r9T$J$&\e(B
- \e$B$H\e(B Summary mode \e$B$KLa$k\e(B (*1)\e$B!K\e(B
-@item p
- \e$BA0$N\e(B content \e$B$K0\F0$9$k\e(B
-@item n
- \e$B<!$N\e(B content \e$B$K0\F0$9$k\e(B
-@item @key{SPC}
- scroll up \e$B$9$k\e(B
-@item @key{M-SPC}
- scroll down \e$B$9$k\e(B
-@item @key{DEL}
- scroll down \e$B$9$k\e(B
-@item @key{RET}
- \e$B<!$N9T$K0\F0$9$k\e(B
-@item @key{M-RET}
- \e$BA0$N9T$K0\F0$9$k\e(B
-@item v
- content \e$B$r:F@8$9$k\e(B (*2)
-@item e
- content \e$B$+$i\e(B file \e$B$r<h$j=P$9\e(B (*2)
-@item C-c C-p
- content \e$B$r0u:~$9$k\e(B (*2)
-@end table
-
-@noindent @b{\e$B!NCm0U!O\e(B}
-@enumerate
-@item
-tm-MUA \e$B$G\e(B tm-view \e$B$N@_Dj$r$7$F$$$J$$>l9g!"\e(BSummary mode \e$B$K$OLa$j$^$;$s!#\e(B
-
-@item
-\e$B<B:]$NF0:n$OBP1~$9$k\e(B method \e$B$K0M$j$^$9!#\e(B
-@end enumerate
-
-
-@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
+++ /dev/null
-#
-# $Id: Makefile.bc,v 6.3 1995/05/16 12:21:08 morioka Exp $
-#
-
-.SUFFIXES: .el .elc
-
-BATCH = $(EMACS) -batch ../loadpath -f eval-current-buffer .
-
-.el.elc:
- $(BATCH) -l $(NNTP) -l $(GNUS) -f batch-byte-compile $<
-
-all: tm-gnus.elc tm-$(GNUS_TYPE).elc
-
-tm-gnus.elc: tm-gnus.el
-
-tm-$(GNUS_TYPE).elc: tm-$(GNUS_TYPE).el
+++ /dev/null
-(require 'gnus)
-
-(setq load-path (append '("." ".." "../../tl") load-path))
-
-(defun compile-tm-gnus ()
- (if (string-match "(ding)" gnus-version)
- (byte-compile-file "tm-dgnus.el")
- (if (string-match "GNUS 3" gnus-version)
- (byte-compile-file "tm-gnus3.el")
- (byte-compile-file "tm-gnus4.el")
- ))
- (byte-compile-file "tm-gnus.el")
- )
-
-(defun install-tm-gnus ()
- (print command-line-args-left)
- )
+++ /dev/null
-;;;
-;;; tm-dgnus.el --- tm-gnus module for (ding) GNUS
-;;;
-
-(require 'tm-gnus5)
-
-
-;;; @ version
-;;;
-
-(defconst tm-gnus/RCS-ID
- "$Id: tm-dgnus.el,v 6.18 1995/08/31 20:15:50 morioka Exp $")
-
-(defconst tm-gnus/version
- (concat (get-version-string tm-gnus/RCS-ID) " (ding)"))
-
-(if (not (fboundp 'mail-header-from))
- (progn
- (defalias 'mail-header-from 'header-from)
- (defalias 'mail-header-set-from 'header-set-from)
- (defalias 'mail-header-subject 'header-subject)
- (defalias 'mail-header-set-subject 'header-set-subject)
- ))
-
-
-;;; @ end
-;;;
-
-(provide 'tm-dgnus)
+++ /dev/null
-;;;
-;;; tm-gnus5.el --- tm-gnus module for Gnus 5.*
-;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1995 MORIOKA Tomohiko
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
-;;;
-;;; This file is part of tm (Tools for MIME).
-;;;
-
-(require 'tl-str)
-(require 'tl-list)
-(require 'tl-misc)
-(require 'tl-822)
-(require 'gnus)
-(require 'tm-view)
-
-
-;;; @ version
-;;;
-
-(defconst tm-gnus/RCS-ID
- "$Id: tm-gnus5.el,v 7.9 1995/11/15 10:41:02 morioka Exp $")
-
-(defconst tm-gnus/version
- (concat (get-version-string tm-gnus/RCS-ID) " for GNUS 5.0.x"))
-
-
-;;; @ variables
-;;;
-
-(defvar tm-gnus/original-article-buffer " *Original Article*")
-
-(defvar tm-gnus/automatic-mime-preview t
- "*If non-nil, show MIME processed article.
-This variable is set to `gnus-show-mime'.")
-
-(setq gnus-show-mime tm-gnus/automatic-mime-preview)
-
-
-;;; @ command functions
-;;;
-
-(defun tm-gnus/view-message (arg)
- "MIME decode and play this message."
- (interactive "P")
- (if (save-excursion
- (set-buffer gnus-article-buffer)
- (eq major-mode 'mime/viewer-mode)
- )
- (pop-to-buffer gnus-article-buffer t)
- (let ((gnus-break-pages nil))
- (gnus-summary-select-article t t)
- )
- (pop-to-buffer gnus-article-buffer t)
- (let (buffer-read-only)
- (remove-text-properties (point-min) (point-max) '(face nil))
- (if (get-buffer tm-gnus/original-article-buffer)
- (kill-buffer tm-gnus/original-article-buffer)
- )
- (rename-buffer tm-gnus/original-article-buffer)
- (mime/viewer-mode nil nil nil
- tm-gnus/original-article-buffer
- gnus-article-buffer)
- ))
- )
-
-(defun tm-gnus/summary-scroll-down ()
- "Scroll down one line current article."
- (interactive)
- (gnus-summary-scroll-up -1)
- )
-
-(defun tm-gnus/summary-toggle-header (&optional arg)
- (interactive "P")
- (if (and gnus-show-mime
- (or (not gnus-strict-mime)
- (save-excursion
- (set-buffer gnus-article-buffer)
- (gnus-fetch-field "Mime-Version")
- )))
- (let ((mime-viewer/ignored-field-regexp
- (if (save-excursion
- (set-buffer gnus-article-buffer)
- (some-element
- (lambda (field)
- (rfc822/get-field-body field)
- )
- mime-viewer/ignored-field-list))
- mime-viewer/ignored-field-regexp
- "^:$")))
- (gnus-summary-select-article t t)
- )
- (gnus-summary-toggle-header arg)
- ))
-
-(define-key gnus-summary-mode-map "v" (function tm-gnus/view-message))
-(define-key gnus-summary-mode-map "t" (function tm-gnus/summary-toggle-header))
-(define-key gnus-summary-mode-map
- "\e\r" (function tm-gnus/summary-scroll-down))
-
-
-;;; @ for tm-view
-;;;
-
-(defun mime-viewer/quitting-method-for-gnus5 ()
- (mime-viewer/kill-buffer)
- (delete-other-windows)
- (gnus-article-show-summary)
- (gnus-summary-display-article (gnus-summary-article-number))
- )
-
-(call-after-loaded
- 'tm-view
- (lambda ()
- (set-alist 'mime-viewer/quitting-method-alist
- 'gnus-article-mode
- (function mime-viewer/quitting-method-for-gnus5))
- ))
-
-
-;;; @ for tm-partial
-;;;
-
-(call-after-loaded
- 'tm-partial
- (function
- (lambda ()
- (set-atype 'mime/content-decoding-condition
- '((type . "message/partial")
- (method . mime-article/grab-message/partials)
- (major-mode . gnus-article-mode)
- (summary-buffer-exp . gnus-summary-buffer)
- ))
-
- (set-alist 'tm-partial/preview-article-method-alist
- 'gnus-article-mode
- (function
- (lambda ()
- (tm-gnus/view-message (gnus-summary-article-number))
- )))
- )))
-
-
-;;; @ summary filter
-;;;
-
-(cond ((not (boundp 'nnheader-encoded-words-decoding))
- (defun tm-gnus/decode-summary-from-and-subjects ()
- (mapcar (lambda (header)
- (let ((from (mail-header-from header))
- (subj (mail-header-subject header))
- )
- (mail-header-set-from
- header
- (if from
- (mime-eword/decode-string from)
- ""))
- (mail-header-set-subject
- header
- (if subj
- (mime-eword/decode-string subj)
- ""))
- ))
- gnus-newsgroup-headers)
- )
- (add-hook 'gnus-select-group-hook
- (function tm-gnus/decode-summary-from-and-subjects))
- ))
-
-
-;;; @ article filter
-;;;
-
-(defun tm-gnus/preview-article ()
- (if (get-buffer tm-gnus/original-article-buffer)
- (kill-buffer tm-gnus/original-article-buffer)
- )
- (rename-buffer tm-gnus/original-article-buffer)
- (gnus-article-mode)
- (set-buffer (get-buffer-create gnus-article-buffer))
- (make-local-variable 'tm:mother-button-dispatcher)
- (setq tm:mother-button-dispatcher
- (function gnus-article-push-button))
- (mime/viewer-mode
- nil nil nil tm-gnus/original-article-buffer gnus-article-buffer)
- (run-hooks 'tm-gnus/article-prepare-hook)
- )
-
-(or (fboundp 'tm::gnus-article-setup-buffer)
- (fset 'tm::gnus-article-setup-buffer
- (symbol-function 'gnus-article-setup-buffer)
- ))
-
-(defun gnus-article-setup-buffer ()
- "Initialize article mode buffer."
- ;; Returns the article buffer.
- (if (get-buffer gnus-article-buffer)
- (save-excursion
- (set-buffer gnus-article-buffer)
- (buffer-disable-undo (current-buffer))
- (setq buffer-read-only t)
- (gnus-add-current-to-buffer-list)
- (or (eq major-mode 'gnus-article-mode)
- (eq major-mode 'mime/viewer-mode)
- (gnus-article-mode))
- (current-buffer))
- (save-excursion
- (set-buffer (get-buffer-create gnus-article-buffer))
- (gnus-add-current-to-buffer-list)
- (gnus-article-mode)
- (current-buffer)
- )))
-
-(setq gnus-show-mime-method (function tm-gnus/preview-article))
-
-(or (fboundp 'tm::gnus-article-hide-headers-if-wanted)
- (fset 'tm::gnus-article-hide-headers-if-wanted
- (symbol-function 'gnus-article-hide-headers-if-wanted))
- )
-
-(defun gnus-article-hide-headers-if-wanted ()
- (or (and gnus-show-mime
- (or (not gnus-strict-mime)
- (gnus-fetch-field "Mime-Version")
- ))
- (tm::gnus-article-hide-headers-if-wanted)
- ))
-
-
-;;; @ for mh-e
-;;;
-
-(call-after-loaded
- 'tm-mh-e
- (function
- (lambda ()
-
-;;; by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
-;;;
-;; Please use following setting:
-;;
-;; (autoload 'gnus-mail-forward-using-mhe-mime "tm-mh-e"
-;; "Forward using mh-e with tm-edit." t)
-;; (setq gnus-mail-forward-method
-;; (function gnus-mail-forward-using-mhe-mime))
-;;
-(defun gnus-mail-forward-using-mhe-mime (&optional buffer)
- "Forward the current message to another user using mh-e with mime-mode."
- ;; First of all, prepare mhe mail buffer.
- (require 'mh-comp)
- (require 'tm-edit)
- (let* ((to (read-string "To: "))
- (cc (read-string "Cc: "))
- (buffer (save-excursion
- (set-buffer gnus-article-buffer)
- (if (eq major-mode 'mime/viewer-mode)
- mime::preview/article-buffer
- (current-buffer)
- )))
- (config (current-window-configuration)) ; need to add this - erik
- (subject (gnus-forward-make-subject buffer)))
- (setq mh-show-buffer buffer)
- (mh-find-path)
- (mh-send-sub to (or cc "")
- (or subject "(None)") config) ; Erik Selberg 1/23/94
- (let ((draft (current-buffer))
- (gnus-mail-buffer (current-buffer))
- mail-buf)
- (gnus-configure-windows 'reply-yank)
- (setq mail-buf (eval (cdr (assq 'mail gnus-window-to-buffer))))
- (pop-to-buffer mail-buf) ; always in the display, so won't have window probs
- (switch-to-buffer draft)
- )
- (save-excursion
- (goto-char (point-max))
- (insert (concat (mime-make-tag "message" "rfc822" nil "7bit") "\n"))
- (insert-buffer buffer)
- (setq mh-sent-from-folder buffer)
- (setq mh-sent-from-msg 1)
- (setq mh-previous-window-config config)
- (run-hooks 'gnus-mail-hook)
- )))
-
-)))
-
-
-;;; @ for BBDB
-;;;
-
-(defun tm-gnus/bbdb-setup ()
- (if (memq 'bbdb/gnus-update-record gnus-article-prepare-hook)
- (progn
- (remove-hook 'gnus-article-prepare-hook 'bbdb/gnus-update-record)
- (add-hook 'tm-gnus/article-prepare-hook 'bbdb/gnus-update-record)
- )))
-
-(add-hook 'gnus-startup-hook 'tm-gnus/bbdb-setup t)
-
-(tm-gnus/bbdb-setup)
-
-
-;;; @ end
-;;;
-
-(provide 'tm-gnus5)
+++ /dev/null
-;;;
-;;; tm-ognus.el --- tm-gnus module for GNUS 3.* and 4.*
-;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1995 MORIOKA Tomohiko
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Version:
-;;; $Id: tm-ognus.el,v 7.1 1995/10/17 16:56:12 morioka Exp $
-;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
-;;;
-;;; This file is part of tm (Tools for MIME).
-;;;
-
-(require 'emu)
-(require 'gnus)
-
-(autoload 'mime/decode-message-header
- "tm-ew-d" "Decode MIME encoded-words in message header." t)
-(autoload 'mime-eword/decode-string
- "tm-ew-d" "Decode MIME encoded-words in string." t)
-
-
-(defvar tm-gnus/decoding-mode t "*Decode MIME header if non-nil.")
-
-(defun tm-gnus/add-decoding-mode-to-mode-line ()
- (or (assq 'tm-gnus/decoding-mode minor-mode-alist)
- (setq minor-mode-alist
- (cons (list 'tm-gnus/decoding-mode " MIME")
- minor-mode-alist))
- ))
-
-
-;;; @ change MIME encoded-word decoding mode, decoding or non decoding.
-;;;
-
-(defun tm-gnus/set-decoding-mode (arg)
- "Set MIME encoded-word processing.
-With arg, turn MIME encoded-word processing on iff arg is positive."
- (setq tm-gnus/decoding-mode arg)
- (setq gnus-have-all-headers (not gnus-have-all-headers))
- (gnus-summary-select-article (not gnus-have-all-headers) t)
- )
-
-(defun tm-gnus/toggle-decoding-mode ()
- "Toggle MIME encoded-word processing.
-With arg, turn MIME encoded-word processing on iff arg is positive."
- (interactive)
- (tm-gnus/set-decoding-mode (not tm-gnus/decoding-mode))
- )
-
-
-;;; @ to decode subjects in mode-line
-;;;
-;; This function imported from gnus.el.
-;;
-;; New implementation in gnus 3.14.3
-;;
-
-(defun tm-gnus/article-set-mode-line ()
- "Set Article mode line string.
-If you don't like it, define your own gnus-article-set-mode-line."
- (let ((maxlen 15) ;Maximum subject length
- (subject
- (if gnus-current-headers
- (mime-eword/decode-string
- (nntp-header-subject gnus-current-headers))
- "")
- ))
- ;; The value must be a string to escape %-constructs because of subject.
- (setq mode-line-buffer-identification
- (format "GNUS: %s%s %s%s%s"
- gnus-newsgroup-name
- (if gnus-current-article
- (format "/%d" gnus-current-article) "")
- (rightful-boundary-short-string subject
- (min (string-width subject)
- maxlen))
- (if (> (string-width subject) maxlen) "..." "")
- (make-string (max 0 (- 17 (string-width subject))) ? )
- )))
- (set-buffer-modified-p t))
-
-
-;;; @ to decode subjects in Summary buffer
-;;;
-
-(defun tm-gnus/decode-summary-subjects ()
- (mapcar (function
- (lambda (header)
- (let ((subj (or (gnus-header-subject header) "")))
- (nntp-set-header-subject
- header (mime-eword/decode-string subj))
- )))
- gnus-newsgroup-headers)
- )
-
-
-;;; @ end
-;;;
-
-(provide 'tm-ognus)
+++ /dev/null
-;;;
-;;; $Id: gnushook.el,v 1.1 1994/10/25 06:42:57 morioka Exp morioka $
-;;;
-
-(provide 'gnushook)
-
-(require 'gnus)
-
-(cond ((string-match "^GNUS 3" gnus-version)
- (if (and (null gnus-Startup-hook)
- (boundp 'gnus-startup-hook))
- (setq gnus-Startup-hook gnus-startup-hook)
- )
- (if (and (null gnus-Select-group-hook)
- (boundp 'gnus-select-group-hook))
- (setq gnus-Select-group-hook gnus-select-group-hook)
- )
- (if (and (null gnus-Subject-mode-hook)
- (boundp 'gnus-summary-mode-hook))
- (setq gnus-Subject-mode-hook gnus-summary-mode-hook)
- )
- (if (and (null gnus-Article-mode-hook)
- (boundp 'gnus-article-mode-hook))
- (setq gnus-Article-mode-hook gnus-article-mode-hook)
- )
- (if (and (null gnus-Article-prepare-hook)
- (boundp 'gnus-article-prepare-hook))
- (setq gnus-Article-prepare-hook gnus-article-prepare-hook)
- )
- )
- ((string-match "^GNUS 4" gnus-version)
- (if (and (null gnus-startup-hook)
- (boundp 'gnus-Startup-hook))
- (setq gnus-startup-hook gnus-Startup-hook)
- )
- (if (and (null gnus-select-group-hook)
- (boundp 'gnus-Select-group-hook))
- (setq gnus-select-group-hook gnus-Select-group-hook)
- )
- (if (and (null gnus-summary-mode-hook)
- (boundp 'gnus-Subject-mode-hook))
- (setq gnus-summary-mode-hook gnus-Subject-mode-hook)
- )
- (if (and (null gnus-article-mode-hook)
- (boundp 'gnus-Article-mode-hook))
- (setq gnus-article-mode-hook gnus-Article-mode-hook)
- )
- (if (and (null gnus-article-prepare-hook)
- (boundp 'gnus-Article-prepare-hook))
- (setq gnus-article-prepare-hook gnus-Article-prepare-hook)
- )
- ))
+++ /dev/null
-#!/bin/csh -f
-
-set MKDIR=mkdirhier # for X
-#set MKDIR="mkdir -p" # for SunOS 4.* or Solaris 2.*
-#set MKDIR=mkdir
-
-set dir = $1
-set files = ($argv[2-])
-
-if ( -d $dir ) then
- echo $dir has already existed.
-else
- echo $dir does not exist, so I make it.
- $MKDIR $dir
-endif
-
-(cd $dir; chmod -f +w $files)
-
-cp -p $files $dir
-
-exit 0
+++ /dev/null
-#!/bin/csh -f
-
-set MKDIR=mkdirhier # for X
-#set MKDIR="mkdir -p" # for SunOS 4.* or Solaris 2.*
-#set MKDIR=mkdir
-
-set dir = $1
-set files = ($argv[2-])
-
-if ( -d $dir ) then
- echo $dir has already existed.
-else
- echo $dir does not exist, so I make it.
- $MKDIR $dir
-endif
-
-mv -f $files $dir
-
-exit 0
+++ /dev/null
-#!/bin/csh -f
-
-echo "(setq load-path" > loadpath
-echo " (nconc '("'"."' >> loadpath
-echo ' "'`pwd`'"' >> loadpath
-echo ' "'`(cd ../tl; pwd)`'"' >> loadpath
-echo ' "'`(cd ../mel; pwd)`'"' >> loadpath
-foreach i ($argv)
-echo ' "'$i'"' >> loadpath
-end
-echo ' ) load-path))' >> loadpath
+++ /dev/null
-#!/bin/csh -f
-
-if (! $?TM_TMP_DIR) then
- setenv TM_TMP_DIR /tmp
-endif
-
-switch( $4 )
-case "play":
- set filename = /dev/audio
- breaksw
-case "extract":
- if( $5 == "" ) then
- set filename = "$TM_TMP_DIR/mime$$.au"
- else
- set filename = "$TM_TMP_DIR/$5"
- endif
- breaksw
-default:
- exit -1
-endsw
-
-echo "$2; $3 -> $filename"
-
-tmdecode $3 $1 $filename
+++ /dev/null
-#!/bin/csh -f
-
-if (! $?TM_TMP_DIR) then
- setenv TM_TMP_DIR /tmp
-endif
-
-if( $5 == "" ) then
- set filename="$TM_TMP_DIR/mime$$"
-else
- set filename = $TM_TMP_DIR/$5
-endif
-
-echo "$2; $3 -> $filename"
-
-tmdecode $3 $1 $filename
+++ /dev/null
-#!/bin/csh -f
-
-if (! $?TM_TMP_DIR) then
- setenv TM_TMP_DIR /tmp
-endif
-
-if( $5 == "" ) then
- switch ( $2 )
- case "image/gif":
- set filename="$TM_TMP_DIR/mime$$.gif"
- breaksw
- case "image/jpeg":
- set filename="$TM_TMP_DIR/mime$$.jpg"
- breaksw
- case "image/tiff":
- case "image/x-tiff":
- set filename="$TM_TMP_DIR/mime$$.tif"
- breaksw
- case "image/x-xwd":
- set filename="$TM_TMP_DIR/mime$$.xwd"
- breaksw
- case "image/x-xbm":
- set filename="$TM_TMP_DIR/mime$$.xbm"
- breaksw
- case "image/x-pic":
- set filename="$TM_TMP_DIR/mime$$.pic"
- breaksw
- default:
- set filename="$TM_TMP_DIR/mime$$.img"
- endsw
-else
- set filename = $TM_TMP_DIR/$5
-endif
-
-echo "$2; $3 -> $filename"
-
-tmdecode $3 $1 $filename
-
-switch( $4 )
-case "play":
- xv -geometry +1+1 $filename
- /bin/rm $filename
- breaksw
-case "extract":
- echo "extract to $filename"
- breaksw
-endsw
+++ /dev/null
-#!/bin/csh -f
-
-if (! $?TM_TMP_DIR) then
- setenv TM_TMP_DIR /tmp
-endif
-
-if( $5 == "" ) then
- set filename = $TM_TMP_DIR/mime$$.mpg
-else
- set filename = $TM_TMP_DIR/$5
-endif
-
-echo "$2; $3 -> $filename"
-
-tmdecode $3 $1 $filename
-
-switch( $4 )
-case "play":
- if (! $?VIDEO_DITHER) then
- setenv VIDEO_DITHER gray
- endif
-
- mpeg_play -dither $VIDEO_DITHER $filename >& /dev/null
- /bin/rm $filename
- breaksw
-case "extract":
- echo "extrtact to $filename"
- breaksw
-endsw
+++ /dev/null
-#!/bin/csh -f
-
-if (! $?TM_TMP_DIR) then
- setenv TM_TMP_DIR /tmp
-endif
-
-if( $5 == "" ) then
- set filename = "$TM_TMP_DIR/mime$$.pln"
-else
- set filename = $TM_TMP_DIR/$5
-endif
-
-echo "$2; $3 -> $filename"
-
-tmdecode $3 $1 $filename
-
-switch( $4 )
-case "play":
- cat $filename
- /bin/rm $filename
- breaksw
-case "extract":
- echo "extract to $filename"
- breaksw
-case "print":
- txt2ps -n $filename | lpr
- /bin/rm $filename
- breaksw
-endsw
+++ /dev/null
-#!/bin/csh -f
-
-switch ( $1 )
-case "7bit":
-case "8bit":
-case "binary":
- /bin/cp $2 $3
- breaksw
-case "base64":
- #decode-b < $2 > $3
- mmencode -u $2 > $3
- breaksw
-case "quoted-printable":
- mmencode -q -u $2 > $3
- breaksw
-case "x-uue":
-case "x-uuencode":
- pushd $TM_TMP_DIR
- uudecode $2
- popd
- breaksw
-default:
- echo "unknown encoding"
- exit -1
-endsw
-
-/bin/rm $2
-echo "$2 was removed."
+++ /dev/null
-#!/bin/csh -f
-#
-# tm-latex: method for LaTeX
-#
-
-set filename="/tmp/mime$$"
-
-switch ( $3 )
-case "7bit":
-case "8bit":
-case "binary":
- /bin/cp $1 $filename.tex
- breaksw
-case "base64":
- decode-b < $1 > $filename.tex
- breaksw
-case "quoted-printable":
- mmencode -q -u $1 > $filename
- breaksw
-default:
- echo "unknown encoding"
- exit -1
-endsw
-
-/bin/rm $1
-
-echo "$2; $3 -> $filename.tex"
-
-switch ( $4 )
-case "play":
- pushd /tmp
- jlatex $filename.tex
- jlatex $filename.tex
- xdvi $filename.dvi
- popd
- /bin/rm $filename.*
- breaksw
-case "extract":
- if($5 != "") then
- set name=/tmp/$5
- /bin/cp $filename.tex $name
- /bin/rm $filename.tex
- echo "extract to $name"
- else
- echo "extract to $filename.tex"
- endif
- breaksw
-case "print":
- pushd /tmp
- jlatex $filename.tex
- jlatex $filename.tex
- dvi2ps $filename.dvi|lpr
- popd
- /bin/rm $filename.*
- breaksw
-endsw
+++ /dev/null
-#
-# $Id: Makefile.bc,v 6.1 1995/05/16 12:20:36 morioka Exp $
-#
-
-.SUFFIXES: .el .elc
-
-BATCH = $(EMACS) -batch ../loadpath -f eval-current-buffer .
-
-.el.elc:
- $(BATCH) -l mh-e -f batch-byte-compile $<
-
-
-mh-e3: tm-mh-e.elc tm-mh-e3.elc
-
-mh-e4: tm-mh-e.elc
-
-
-tm-mh-e.elc: tm-mh-e.el
-
-tm-mh-e3.elc: tm-mh-e3.el
+++ /dev/null
-/*
- * 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'.
- *
- * Copyright 1992, Timtia Software.
- *
- * This program is Copyfree.
- */
-
-#include <stdio.h>
-
-main()
-{
- unsigned char depth=0, offset=1;
-
- for(;;){
- char str[256], *cp;
- unsigned short section[255];
- unsigned char d;
- unsigned short i;
- unsigned short code;
-
- if(gets(str)==NULL) break;
-
- for(d=0, cp=str; ;d++){
- if(*cp++!='*') break;
- }
- if(*--cp==' ') cp++;
- if(d==0){
- puts(str);
- }
- else if(d==1){
- if(d>depth){
- depth=d;
- section[0]=0;
- }
- else if(d==depth){
- section[0]++;
- }
- else{
- depth=d;
- section[0]++;
- }
- code=0xa3b0+section[0]+offset;
- printf("%c%c %s\n", code>>8,code&0xff, cp);
- }
- else if(d==depth){
- section[depth-1]++;
- for(i=0; i<depth-1; i++){
- printf("%d.", section[i]+offset);
- }
- printf("%d %s\n", section[i]+offset, cp);
- }
- else if(d>depth){
- for(i=0; i<depth; i++){
- printf("%d.", section[i]+offset);
- }
- for(; i<d-1; i++){
- section[i]=0;
- printf("%d.", section[i]+offset);
- }
- section[i]=0;
- printf("%d %s\n", section[i]+offset, cp);
- depth=d;
- }
- else{
- depth=d;
- section[depth-1]++;
- for(i=0; i<depth-1; i++){
- printf("%d.", section[i]+offset);
- }
- printf("%d %s\n", section[i]+offset, cp);
- }
- }
-}
+++ /dev/null
-;;;
-;;; $Id$
-;;;
-
-(require 'tl-num)
-
-;;; @ Quoted-Printable (Q-encode) encoder/decoder
-;;;
-
-(defun quoted-printable-quote-char (chr)
- (concat "="
- (char-to-string (number-to-hex-char (ash chr -4)))
- (char-to-string (number-to-hex-char (logand chr 15)))
- ))
-
-(defun quoted-printable-encode-string-for-body (str)
- (mapconcat (function
- (lambda (chr)
- (cond ((or (< chr 32) (< 126 chr) (eq chr ?=))
- (quoted-printable-quote-char chr)
- )
- (t (char-to-string chr))
- )))
- str ""))
-
-(defun quoted-printable-encode-string-for-text (str)
- (mapconcat (function
- (lambda (chr)
- (cond ((eq chr 32) "_")
- ((or (< chr 32) (< 126 chr) (eq chr ?=))
- (quoted-printable-quote-char chr)
- )
- (t (char-to-string chr))
- )))
- str ""))
-
-(defun quoted-printable-encode-string-for-comment (str)
- (mapconcat (function
- (lambda (chr)
- (cond ((eq chr 32) "_")
- ((or (< chr 32) (< 126 chr)
- (memq chr '(?= ?\( ?\) ?\\))
- )
- (quoted-printable-quote-char chr)
- )
- (t (char-to-string chr))
- )))
- str ""))
-
-(defun quoted-printable-encode-string-for-phrase (str)
- (mapconcat (function
- (lambda (chr)
- (cond ((or (and (<= ?A chr)(<= chr ?Z))
- (and (<= ?a chr)(<= chr ?z))
- (and (<= ?0 chr)(<= chr ?9))
- (memq chr '(?! ?* ?+ ?- ?/))
- )
- (char-to-string chr)
- )
- (t (quoted-printable-quote-char chr))
- )))
- str ""))
-
-(defun quoted-printable-encode-string (str &optional mode)
- (cond ((eq mode 'text)
- (quoted-printable-encode-string-for-text str)
- )
- ((eq mode 'comment)
- (quoted-printable-encode-string-for-comment str)
- )
- ((eq mode 'phrase)
- (quoted-printable-encode-string-for-phrase str)
- )
- (t (quoted-printable-encode-string-for-body str))
- ))
-
-(defun quoted-printable-decode-string-for-body (str)
- (let (q h l)
- (mapconcat (function
- (lambda (chr)
- (cond ((eq chr ?=)
- (setq q t)
- "")
- (q (setq h (hex-char-to-number chr))
- (setq q nil)
- "")
- (h (setq l (hex-char-to-number chr))
- (prog1
- (char-to-string (logior (ash h 4) l))
- (setq h nil)
- )
- )
- (t (char-to-string chr))
- )))
- str "")))
-
-(defun quoted-printable-decode-string-for-header (str)
- (let (q h l)
- (mapconcat (function
- (lambda (chr)
- (cond ((eq chr ?_) " ")
- ((eq chr ?=)
- (setq q t)
- "")
- (q (setq h (hex-char-to-number chr))
- (setq q nil)
- "")
- (h (setq l (hex-char-to-number chr))
- (prog1
- (char-to-string (logior (ash h 4) l))
- (setq h nil)
- )
- )
- (t (char-to-string chr))
- )))
- str "")))
-
-(defun quoted-printable-decode-string (str &optional mode)
- (if (eq mode 'header)
- (quoted-printable-decode-string-for-header str)
- (quoted-printable-decode-string-for-body str)
- ))
-
-
-;;; @ etc
-;;;
-
-(defun quoted-printable-encoded-length (string &optional mode)
- (let ((l 0)(i 0)(len (length string)) chr)
- (while (< i len)
- (setq chr (elt string i))
- (if (string-match "[A-Za-z0-9!*+/=_---]" (char-to-string chr))
- (setq l (+ l 1))
- (setq l (+ l 3))
- )
- (setq i (+ i 1)) )
- l))
-
-(provide 'qprint)
+++ /dev/null
-* tm/Makefile
-
- Not only do `make mule2' or `make orig19' compile normal tm modules
-but also tm-mh-e and tm-gnus.
-
- Similarly, not only do `make install-mule2' or `make install-orig19'
-install normal tm modules but also tm-mh-e and tm-gnus.
-
-
-* tm-comp
-
-** message/rfc822
-
- We add a message/rfc822 style message inserting command. Its
-function name is `tm-comp/insert-message', standard key bind is `C-c
-C-x m'.
-
- Function `tm-comp/insert-message' requires message-inserter function
-for your MUA. message-inserter functions are registerd at variable
-`tm-comp/message-inserter-alist' which is a assoc-list whose element
-is a pair that major-mode is key and message-inserter function is value.
-
- Now, tm-mh-e is a only implementation for this function.
-
-
-* changed points of tm-view
-
- Internal structure of tm-view 6.* is changed from tm-view 5.21, such
-as, data structures, symbol names. I write main differences between tm
-5.21.
-
-** internal structure
-
-*** content-info
-
- Buffer local variable of article buffer `mime/content-list', which
-memorizes content structres of message in article buffer, is renamed
-to `mime::article/content-info', and data structure is changed.
-
- Old data structure ``content-list'' used in buffer local variable
-`mime/content-list' was a following list:
-
- content-list = (Ba Ea children)
-
- Ba: point-min of this content in article buffer
- Ea: point-max of this content in article buffer
- children: content-list's list of contents included in
- this content. nil when this content is not
- multipart
-
-
- New data structure ``content-info'' used in buffer local variable
-`mime::article/content-info' is following vector:
-
- content-info
- = [point-min point-max type parameters encoding children]
-
- point-min: point-min of this content in article buffer
- point-max: point-max of this content in article buffer
- (This value is not equal Ea.
- point-max = Ea + 1)
- type: content-type/subtype of this content
- parameters: assoc-list which represents parameters of
- Content-Type field of this content
- encoding: Content-Transfer-Encoding of this content
- children: content-info's list of contents included
- in this content. nil when this content is
- not multipart
-
-
- In tm-view 5.21, this data structure was generated and referenced by
-list processing functions (basic lisp functions) dynamically. In
-tm-view 6.*, however, it is generated by generator function
-`mime::make-content-info', and it is referenced by reference functions
-mime::content-info/FOO (FOO = { point-min | point-max | type |
-parameters | encoding | children }).
-
-
-*** preview-content-info
-
- Buffer local variable of preview buffer
-`mime/preview-flat-content-list', which memorizes content structres of
-message in preview buffer, is renamed to `mime::preview/content-list,
-and data structure is changed.
-
- Old data structure used in buffer local variable
-`mime/preview-flat-content-list' was a list which elements are
-following list:
-
- (Bp Ep buf Ba Ea)
-
- Bp: point-min of this content in preview buffer
- Ep: point-max of this content in preview buffer
- buf: article buffer for this content
- Ba: point-min of this content in article buffer
- Ea: point-max of this content in article buffer
-
-
- New data structure ``preview-content-info'' used in buffer local
-variable `mime::preview/content-list'' is a list which elements are
-following vector:
-
- [Bp Ep buf cinfo]
-
- Bp: point-min of this content in preview buffer
- Ep: point-max of this content in preview buffer
- buf: article buffer for this content
- cinfo: content-info which represents this content
-
-
- In tm-view 5.21, this data structure was generated and referenced by
-list processing functions (basic lisp functions) dynamically. In
-tm-view 6.*, however, it is generated by generator function
-`mime::make-preview-content-info', and it is referenced by reference
-functions mime::preview-content-info/FOO (FOO = { Bp | Ep | buf |
-cinfo }).
-
-
-*** etc
-
-- parser is changed
-
-- naming rule is changed
-
-- buffer local variable in article buffer `mime/preview-buffer' is
- renamed to `mime::article/preview-buffer'
-
-- function `mime/exit-view-mode' is renamed to `mime-viewer/kill-buffer'
-
-- command functions of mime/viewer-mode are renamed from mime/FOO to
- mime-viewer/FOO. (ex. `mime/up-content' --> `mime-viewer/up-content')
-
-- command function `mime/quit-view-mode' is renamed to `mime-viewer/quit'
-
-- etc...
-
-
-** variables
-
-(1) variable `mime/content-filter-alist' is renamed to
- `mime-viewer/content-filter-alist'
-
-(2) variable `mime/make-content-subject-function' is renamed to
- `mime-viewer/content-subject-function' and arguments are changed
-
-(3) variable `mime/make-content-header-filter' is renamed to
- `mime-viewer/content-header-filter-function'
-
-(4) variable `mime/default-showing-Content-Type-list' is renamed to
- `mime-viewer/default-showing-Content-Type-list'
-
-(5) variable `mime/go-to-top-node-method-alist' is renamed to
- `mime-viewer/quitting-method-alist' and changed initial value
- because of changes between tm-view 5.21 and tm-view 6.*.
-
-
-** new variables
-
-*** mime-viewer/childrens-header-showing-Content-Type-list
-
- list of content-type/subtype whose children's header should be
-displayed.
-
- This variable is used in function
-`mime-viewer/default-content-header-filter-function' which defined as
-default value of variable
-`mime-viewer/content-header-filter-function'. Therefore if you set
-another function, it may not work this variable.
-
-
-*** mime-viewer/ignored-field-list
-
- list of field-name which is not displayed when header is displayed.
-
- This variable is used in function
-`mime-viewer/default-content-header-filter-function' which defined as
-default value of variable
-`mime-viewer/content-header-filter-function'. Therefore if you set
-another function, it may not work this variable.
+++ /dev/null
-* tm/Makefile
-
- Emacs 19.* (Mule 2.*) \e$B$G$O!"\e(Btm \e$B$N\e(B {byte-compile | install} \e$B$r9T$&:]\e(B
-\e$B$K!"\e(Btm-mh-e, tm-gnus \e$B$N\e(B {byte-compile | install} \e$B$b9T$$$^$9!#\e(B
-
-
-* tm-comp
-
-** message/rfc822
-
- MUA \e$B$,J]B8$7$F$$$k\e(B message \e$B$r\e(B message/rfc822 \e$B7A<0$G<h$j9~$`$b$N$rDI\e(B
-\e$B2C$7$^$7$?!#4X?tL>$O\e(B tm-comp/insert-message \e$B$G!"I8=`$N\e(B key bind \e$B$O\e(B C-c
-C-x m \e$B$G$9!#\e(B
-
- \e$B4X?t\e(B tm-comp/insert-message \e$B$O\e(B MUA \e$BKh$N\e(B message-inserter \e$B4X?t$rI,MW\e(B
-\e$B$H$7$^$9!#\e(Bmessage-inserter \e$B$OJQ?t\e(B tm-comp/message-inserter-alist \e$B$KEP\e(B
-\e$BO?$5$l$^$9!#$3$NJQ?t$O!"\e(Bmajor-mode \e$B$,\e(B key \e$B$G!"$=$l$KBP$9$kCM$,\e(B
-message-inserter \e$B4X?t$G$"$kO"A[%j%9%H9=B$$r$7$F$$$^$9!#\e(B
-
- \e$B8=:_$N$H$3$m!"\e(Btm-mh-e \e$B$N$_!"$3$N5!G=$r<BAu$7$F$$$^$9!#\e(B
-
-
-* tm-view \e$B$NJQ99E@$K$D$$$F\e(B
-
- tm-view 6.* \e$B$G$OFbIt9=B$$,JQ99$5$l!"%G!<%?9=B$$d\e(B symbol \e$BL>$J$I$,JQ99\e(B
-\e$B$5$l$F$$$^$9!#0J2<$G$O!"\e(Btm-view 5.21 \e$B$+$i$N<g$JJQ99E@$r5s$2$^$9!#\e(B
-
-** \e$BFbIt9=B$$NJQ99\e(B
-
-*** content-info
-
- article buffer \e$B$K$*$$$F!"\e(Bmessage \e$B$K4^$^$l$k\e(B content \e$B$N9=B$$r5-21$9$k\e(B
-buffer local \e$BJQ?t\e(B mime/content-list \e$B$r\e(B mime::article/content-info \e$B$K2~\e(B
-\e$BL>$7!"%G!<%?9=B$$rJQ99$7$?!#6qBNE*$K$O!"=>Mh!"\e(B
-
- content-list = (Ba Ea Children)
-
- \e$BC"$7!"\e(B
- Ba: article buffer \e$B$G$N$3$N\e(B content \e$B$N@hF,\e(B point
- Ea: article buffer \e$B$G$N$3$N\e(B content \e$B$NKvHx\e(B point
- Children: \e$B$3$N\e(B content \e$B$K4^$^$l$k\e(B content \e$B$N>pJs!#\e(B
- content-list \e$B$rMWAG$H$9$k\e(B list \e$B$GI=$7!"\e(B
- multipart \e$B$N\e(B content \e$B$G$J$$>l9g$O\e(B nil \e$B$,F~$k\e(B
-
-\e$B$H$$$&\e(B list \e$B$GI=8=$7$F$$$?$N$r!"\e(B
-
- content-info
- = [point-min point-max type parameters encoding children]
-
- \e$BC"$7!"\e(B
- point-min: article buffer \e$B$G$N$3$N\e(B content \e$B$N@hF,\e(B
- point
- point-max: article buffer \e$B$G$N$3$N\e(B content \e$B$NKvHx\e(B
- point\e$B!J\e(BEa \e$B$H$O0[$J$j!"\e(Bpoint-min \e$B$H\e(B
- point-max \e$B$G:n$i$l$k\e(B region \e$B$,$=$N\e(B content
- \e$B$K$J$k$h$&$K$J$C$F$$$k!#\e(Bpoint-max = Ea + 1
- \e$B$N4X78$,@.$jN)$D!K\e(B
- type: \e$B$3$N\e(B content \e$B$N\e(B content-type/subtype
- parameters: \e$B$3$N\e(B content \e$B$N\e(B Content-Type field \e$B$N\e(B
- paraeter \e$B$rI=$9O"A[%j%9%H\e(B
- encoding: \e$B$3$N\e(B content \e$B$N\e(B Content-Transfer-Encoding.
- children: \e$B$3$N\e(B content \e$B$K4^$^$l$k\e(B content \e$B$N>pJs!#\e(B
- content-info \e$B$rMWAG$H$9$k\e(B list \e$B$GI=$7!"\e(B
- multipart \e$B$N\e(B content \e$B$G$J$$>l9g$O\e(B nil \e$B$,F~$k\e(B
-
-\e$B$H$$$&\e(B vector \e$B$GI=8=$9$k$h$&$K$7$?!#\e(B
-
- \e$B$^$?!"=>Mh!"\e(Blist \e$B=hM}4X?t$r;H$C$FD>@\\e(B list \e$B$r@8@.!&;2>H$7$F$$$?$N$r!"\e(B
-\e$B@8@.4X?t\e(B mime::make-content-info, \e$B;2>H4X?t\e(B mime::content-info/FOO (FOO
-= {point-min|point-max|type|parameters|encoding|children}) \e$B$r;H$&$h$&\e(B
-\e$B$K$7$?!#\e(B
-
- \e$B$^$?!"=>Mh!"\e(BContent-Type, Content-Transfer-Encoding field \e$B$N>pJs$r$$\e(B
-\e$B$A$$$A\e(B buffer \e$B$r8!:w$7$F5a$a$F$$$?$N$r!"\e(Bcontent-info \e$B$r;2>H$9$k$h$&$K\e(B
-\e$B$7$?!#\e(B
-
-*** preview-content-info
-
- preview buffer \e$B$K$*$$$F!"\e(Bmessage \e$B$K4^$^$l$k\e(B content \e$B$N9=B$$r5-21$9$k\e(B
-buffer local \e$BJQ?t\e(B mime/preview-flat-content-list \e$B$r\e(B
-mime::preview/content-list \e$B$K2~L>$7!"%G!<%?9=B$$rJQ99$7$?!#6qBNE*$K$O!"\e(B
-\e$B=>Mh!"\e(B
-
- (Bp Ep buf Ba Ea)
-
- \e$BC"$7!"\e(B
- Bp: preview buffer \e$B$G$N$3$N\e(B content \e$B$N@hF,\e(B point
- Ep: preview buffer \e$B$G$N$3$N\e(B content \e$B$NKvHx\e(B point
- buf: \e$B$3$N\e(B content \e$B$KBP1~$9$k\e(B article buffer
- Ba: article buffer \e$B$G$N$3$N\e(B content \e$B$N@hF,\e(B point
- Ea: article buffer \e$B$G$N$3$N\e(B content \e$B$NKvHx\e(B point
-
-\e$B$H$$$&\e(B list \e$B$GI=8=$7$F$$$?$N$r!"\e(B
-
- [Bp Ep buf cinfo]
-
- \e$BC"$7!"\e(B
- Bp: preview buffer \e$B$G$N$3$N\e(B content \e$B$N@hF,\e(B point
- Ep: preview buffer \e$B$G$N$3$N\e(B content \e$B$NKvHx\e(B point
- buf: \e$B$3$N\e(B content \e$B$KBP1~$9$k\e(B article buffer
- cinfo: \e$B$3$N\e(B content \e$B$rI=$9\e(B content-info
-
-\e$B$H$$$&\e(B vector \e$B$GI=8=$9$k$h$&$K$7$?!#\e(B
-
- \e$B$^$?!"=>Mh!"\e(Blist \e$B=hM}4X?t$r;H$C$FD>@\\e(B list \e$B$r@8@.!&;2>H$7$F$$$?$N$r!"\e(B
-\e$B@8@.4X?t\e(B mime::make-preview-content-info, \e$B;2>H4X?t\e(B
-mime::preview-content-info/FOO (FOO = {Bp|Ep|buf|cinfo}) \e$B$r;H$&$h$&$K\e(B
-\e$B$7$?!#\e(B
-
-
-*** \e$B$=$NB>\e(B
-
-\e$B!&\e(Bparser \e$B$rJQ99$7$?\e(B
-
-\e$B!&L?L>5,B'$rJQ99$7$?\e(B
-
-\e$B!&\e(Barticle buffer \e$B$N\e(B buffer local \e$BJQ?t\e(B mime/preview-buffer \e$B$r\e(B
- mime::article/preview-buffer \e$B$K2~L>$7$?!#\e(B
-
-\e$B!&4X?t\e(B mime/exit-view-mode \e$B$r\e(B mime-viewer/kill-buffer \e$B$K2~L>$7$?!#\e(B
-
-\e$B!&\e(Bmime/viewer-mode \e$B$N3F4X?t$r\e(B mime/FOO \e$B$+$i\e(B mime-viewer/FOO \e$B$K2~L>$7$?!#\e(B
- \e$B!JNc!'\e(Bmime/up-content \e$B"*\e(B mime-viewer/up-content\e$B!K\e(B
-
-\e$B!&4X?t\e(B mime/quit-view-mode \e$B$r\e(B mime-viewer/quit \e$B$K2~L>$7$?!#\e(B
-
-\e$B!&$=$NB>\e(B
-
-
-** \e$B<g$JJQ?tL>$NJQ99\e(B
-
-(1) \e$BJQ?t\e(B mime/content-filter-alist \e$B$r\e(B mime-viewer/content-filter-alist
- \e$B$K2~L>$7$?!#\e(B
-
-(2) \e$BJQ?t\e(B mime/make-content-subject-function \e$B$r\e(B
- mime-viewer/content-subject-function \e$B$K2~L>$7!"0z?t$rJQ99$7$?!#\e(B
-
-(3) \e$BJQ?t\e(B mime/make-content-header-filter \e$B$r\e(B
- mime-viewer/content-header-filter-function \e$B$K2~L>$7!"0z?t$rJQ99$7\e(B
- \e$B$?!#\e(B
-
-(4) \e$BJQ?t\e(B mime/default-showing-Content-Type-list \e$B$r\e(B
- mime-viewer/default-showing-Content-Type-list \e$B$K2~L>$7$?!#\e(B
-
-(5) \e$BJQ?t\e(B mime/go-to-top-node-method-alist \e$B$r\e(B
- mime-viewer/quitting-method-alist \e$B$K2~L>$7$?!#$^$?!"\e(Bsymbol \e$BL>$d;E\e(B
- \e$BMM$NJQ99$K$H$b$J$$!"=i4|@_Dj$rJQ99$7$?!#\e(B
-
-
-** \e$B?7$7$$JQ?t\e(B
-
-*** \e$BJQ?t\e(B mime-viewer/childrens-header-showing-Content-Type-list
-
- \e$B;R6!$N\e(B header \e$B$rI=<($9$Y$-\e(B content-type/subtype \e$B$N\e(B list.
-
- \e$B$3$NJQ?t$O!"JQ?t\e(B mime-viewer/content-header-filter-function \e$B$N4{DjCM\e(B
-\e$B$H$7$FDj5A$5$l$F$$$k4X?t\e(B
-mime-viewer/default-content-header-filter-function \e$B$,;2>H$7$F$$$k$N$G!"\e(B
-\e$B$b$7!"JQ?t\e(B mime-viewer/content-header-filter-function \e$B$NCM$rJL$N4X?t$K\e(B
-\e$B$9$l$PL58z$K$J$k!#\e(B
-
-
-*** \e$BJQ?t\e(B mime-viewer/ignored-field-list
-
- header \e$B$rI=<($9$k>l9g$G$bI=<($7$J$$\e(B field \e$B$N\e(B field-name \e$B$N\e(B list.
-
- \e$B$3$NJQ?t$O!"JQ?t\e(B mime-viewer/content-header-filter-function \e$B$N4{DjCM\e(B
-\e$B$H$7$FDj5A$5$l$F$$$k4X?t\e(B
-mime-viewer/default-content-header-filter-function \e$B$,;2>H$7$F$$$k$N$G!"\e(B
-\e$B$b$7!"JQ?t\e(B mime-viewer/content-header-filter-function \e$B$NCM$rJL$N4X?t$K\e(B
-\e$B$9$l$PL58z$K$J$k!#\e(B
+++ /dev/null
-* tm-view
-
- tm-view \e$B$N\e(B preview buffer \e$B$KBP$9$kI=<($r@_Dj$9$k$?$a$N5!9=$,JQ99$5$l\e(B
-\e$B$?!#$^$?!"\e(Bcharset \e$B$K$h$k\e(B code \e$BJQ49$r9MN8$7$F\e(B major-mode \e$BKh$K\e(B filter \e$B$r\e(B
-\e$B@ZBX$($l$k$h$&$K$7$?!#\e(B
-
-** content subject
-
-*** \e$BJQ?t\e(B mime-viewer/content-subject-omitting-Content-Type-list
-
- \e$B$3$NJQ?t\e(B (list) \e$B$K@_Dj$5$l$?\e(B content-type \e$B$N\e(B content subject \e$B$OI=<(\e(B
-\e$B$5$l$J$$!#\e(B
-
-*** \e$B4X?t\e(B mime-viewer/default-content-subject-function
-
- \e$B0z?t$,JQ99$5$l$F$$$k$N$GCm0U!#\e(B
-
-*** \e$BJQ?t\e(B mime-viewer/content-subject-function
-
- \e$B$3$NJQ?t$K!"4X?t\e(B mime-viewer/default-content-subject-function \e$B0J30$N\e(B
-\e$B4X?t$r@_Dj$7$?>l9g!"JQ?t\e(B
-mime-viewer/content-subject-omitting-Content-Type-list \e$B$NM-8z@-$OJ]>Z\e(B
-\e$B$5$l$J$$$N$GCm0U$9$k$3$H!#\e(B
-
-
-** content header
-
- \e$B4X?t\e(B mime-viewer/header-visible-p \e$B$,\e(B t \e$B$K$J$k\e(B content \e$B$N\e(B content
-header \e$B$,I=<($5$l$k!#$3$N>r7o$rJQ$($?$$>l9g$O!"$3$N4X?t$r:FDj5A$9$k$3\e(B
-\e$B$H!#I8=`$G$O!"JQ?t\e(B
-mime-viewer/childrens-header-showing-Content-Type-list \e$B$r;2>H$9$k$,:F\e(B
-\e$BDj5A$7$?>l9g!"$3$NJQ?t$NM-8z@-$OJ]>Z$5$l$J$$$N$GCm0U$9$k$3$H!#\e(B
-
- content header \e$B$,I=<($5$l$k>l9g!"\e(Bcontent-header-filter \e$B$K$h$C$F@07A\e(B
-\e$B$5$l$k!#8F$P$l$k\e(B content-header-filter \e$B$O\e(B article buffer \e$B$N\e(B major-mode
-\e$B$r\e(B key \e$B$H$7$FJQ?t\e(B mime-viewer/content-header-filter-alist \e$B$+$iC5$5$l$k!#\e(B
-\e$B$b$7!"$3$NJQ?t$KEPO?$5$l$F$$$J$+$C$?>l9g!"4X?t\e(B
-mime-viewer/default-content-header-filter \e$B$,8F$P$l$k!#\e(B
-
-
-** content body
-
- \e$B$"$k\e(B content \e$B$N\e(B body \e$B$rI=<($9$k$+$I$&$+$O!"4X?t\e(B
-mime-viewer/body-visible-p \e$B$,\e(B t \e$B$K$J$k$+$I$&$+$G7h$^$k!#I8=`$G$O!"JQ?t\e(B
-mime-viewer/default-showing-Content-Type-list \e$B$KB8:_$7$F$$$k\e(B content
-type \e$B$N\e(B content \e$B$,I=<($5$l$k!#\e(B
-
- body \e$B$,I=<($5$l$k;~!"\e(Bcontent-filter \e$B$K$h$C$F@07A$5$l$k!#8F$P$l$k\e(B
-content-filter \e$B$O\e(B article buffer \e$B$N\e(B major-mode \e$B$r\e(B key \e$B$H$7$FJQ?t\e(B
-mime-viewer/content-filter-alist \e$B$+$iC5$5$l$k!#$b$7!"$3$NJQ?t$KEPO?$5\e(B
-\e$B$l$F$$$J$+$C$?>l9g!"4X?t\e(B mime-viewer/default-content-filter \e$B$,8F$P$l$k!#\e(B
-
- \e$B=>Mh!"\e(Bcontent filter \e$B$O\e(B header \e$B$b@07A$7$F$$$?$,!"\e(Bbody \e$B$N$_$N@07A$K2~\e(B
-\e$B$a$i$l$?$N$GCm0U$9$k$3$H!#\e(B
-
-
-** content separator
-
- content \e$B$N:G8e$K\e(B content separator \e$B$H$$$&$b$N$rI=<($G$-$k$h$&$K$7$?!#\e(B
-\e$B$3$l$O!"4X?t\e(B mime-viewer/default-content-separator \e$B$K$h$C$FI=<($5$l$k!#\e(B
-\e$BI8=`$G$O!"\e(Bheader \e$B$b\e(B body \e$B$bI=<($5$l$J$$>l9g$N$_!"2~9T$rF~$l$k$3$H$K$7\e(B
-\e$B$F$$$k!#JQ99$7$?$$>l9g$O!"$3$N4X?t$r:FDj5A$9$k$3$H!#\e(B
-
-
-* tm-mh-e
-
- charset \e$B$K$h$k\e(B code \e$BJQ49$r9T$J$&$h$&$K$7$?!#\e(B
+++ /dev/null
-\e$B!X\e(Bsignature.el \e$B@bL@=q!Y\e(B
-by. \e$B2,It\e(B \e$B<wCK\e(B
-1994\e$BG/\e(B8\e$B7n\e(B1\e$BF|\e(B
-
- signature.el \e$B$O\e(B signature \e$B$N<+F0@ZBX$(\e(B tool \e$B$G$9!#\e(B*insert-signature*
-\e$B$r9T$&$3$H$K$h$j!"\e(B`signature-insert-at-eof' \e$B$NCM$,\e(B non-nil \e$B$N$H$-%P%C\e(B
-\e$B%U%!$NKvHx$K!"\e(Bnil \e$B$N$H$-$O%+%l%s%H%]%$%s%H$K!"\e(Bsignature \e$B%U%!%$%k$,FI$_\e(B
-\e$B9~$^$l$^$9!#I8=`E*$J\e(Bsignature \e$B$O!"JQ?t\e(B `signature-file-name' \e$B$G;XDj$7\e(B
-\e$B$F2<$5$$\e(B(\e$B%G%U%)%k%HCM$O\e(B "~/.signature")\e$B!#\e(Bmessage header \e$B$N\e(B field \e$B$K9g\e(B
-\e$B$o$;$F\e(B signature \e$B$N<+F0@ZBX$r9T$J$$$?$$>l9g$O\e(B .emacs \e$B$K0J2<$N$h$&$J$b\e(B
-\e$B$N$rF~$l$F2<$5$$!#\e(B
-
-[[E
-----------------------------------------------------------------------
-(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")
- ))
-----------------------------------------------------------------------
-]]E
-
- \e$B$^$?!"\e(B*insert-signature* \e$B$K?t0z?t$rM?$($k$3$H$K$h$j!"BPOCE*$K\e(B
-`signature-file-name'-DISTRIBUTION \e$B$N7A$NL>A0$r;}$D%U%!%$%k$r;XDj\e(B
-\e$B$9$k$3$H$,$G$-$^$9!#Nc$($P\e(B `C-u C-c C-s'(*insert-signature*) \e$B$H\e(B
-\e$BF~NO$9$k$H!"%_%K%P%C%U%!$G\e(B
-
- Insert your signature: ~/.signature-
-
-\e$B$HJ9$$$F$-$^$9$N$G!"@ZBXMQ$KMQ0U$5$l$?%U%!%$%k$N$J$+$+$i!"5a$a$k$b$N$r\e(B
-\e$B%3%s%W%j!<%7%g%s$r;H$C$FMQ0U$KA*Br$9$k$3$H$,$G$-$^$9!#6uJ8;zNs$r\e(B
-\e$BF~NO$9$l$P!"\e(B`signature-file-name' \e$B$G;XDj$5$l$k%U%!%$%k$,FI$_9~$^$l$^$9!#\e(B
+++ /dev/null
-\documentstyle[a4j]{jarticle}
-\setcounter{secnumdepth}{6}
-\setcounter{tocdepth}{6}
-\topsep=0.1cm
-\parsep=0.1cm
-\itemsep=0.0cm
-\begin{document}
-\title{
-signature.el ÀâÌÀ½ñ}
-\author{
-²¬Éô ¼÷ÃË\\
-}
-\date{
-1994ǯ8·î1Æü}
-\maketitle
-\medskip
-\par
-signature.el ¤Ï signature ¤Î¼«Æ°ÀÚÂؤ¨ tool ¤Ç¤¹¡£*insert-signature*
-¤ò¹Ô¤¦¤³¤È¤Ë¤è¤ê¡¢`signature-insert-at-eof' ¤ÎÃͤ¬ non-nil ¤Î¤È¤¥Ð¥Ã
-¥Õ¥¡¤ÎËöÈø¤Ë¡¢nil ¤Î¤È¤¤Ï¥«¥ì¥ó¥È¥Ý¥¤¥ó¥È¤Ë¡¢signature ¥Õ¥¡¥¤¥ë¤¬Æɤß
-¹þ¤Þ¤ì¤Þ¤¹¡£É¸½àŪ¤Êsignature ¤Ï¡¢ÊÑ¿ô `signature-file-name' ¤Ç»ØÄꤷ
-¤Æ²¼¤µ¤¤(¥Ç¥Õ¥©¥ë¥ÈÃÍ¤Ï "\verb+~+/.signature")¡£message header ¤Î field ¤Ë¹ç
-¤ï¤»¤Æ signature ¤Î¼«Æ°ÀÚÂؤò¹Ô¤Ê¤¤¤¿¤¤¾ì¹ç¤Ï .emacs ¤Ë°Ê²¼¤Î¤è¤¦¤Ê¤â
-¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(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{verbatim}}
-\medskip
-\par
-¤Þ¤¿¡¢*insert-signature* ¤Ë¿ô°ú¿ô¤òÍ¿¤¨¤ë¤³¤È¤Ë¤è¤ê¡¢ÂÐÏÃŪ¤Ë
-`signature-file-name'-DISTRIBUTION ¤Î·Á¤Î̾Á°¤ò»ý¤Ä¥Õ¥¡¥¤¥ë¤ò»ØÄê
-¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£Î㤨¤Ð `C-u C-c C-s'(*insert-signature*) ¤È
-ÆþÎϤ¹¤ë¤È¡¢¥ß¥Ë¥Ð¥Ã¥Õ¥¡¤Ç
-\medskip
-{\list{}{\leftmargin=4ex}\item[]
-\begin{description}
-\item[Insert your signature:]\verb+~+/.signature-
-\medskip
-\end{description}
-\endlist}
-\par
-¤Èʹ¤¤¤Æ¤¤Þ¤¹¤Î¤Ç¡¢ÀÚÂØÍѤËÍÑ°Õ¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤Î¤Ê¤«¤«¤é¡¢µá¤á¤ë¤â¤Î¤ò
-¥³¥ó¥×¥ê¡¼¥·¥ç¥ó¤ò»È¤Ã¤ÆÍÑ°Õ¤ËÁªÂò¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£¶õʸ»úÎó¤ò
-ÆþÎϤ¹¤ì¤Ð¡¢`signature-file-name' ¤Ç»ØÄꤵ¤ì¤ë¥Õ¥¡¥¤¥ë¤¬Æɤ߹þ¤Þ¤ì¤Þ¤¹¡£
-\end{document}
+++ /dev/null
-[[R
-\title{tiny-mime manual (English Version)}
-\author{Morioka Tomohiko}
-\date{1994/8/4}
-\maketitle
-]]R
-
-* Overview
-
- tiny-mime is a multilingual MIME style message header
-encoder/decoder based on RFC 1522 for Mule, NEmacs, and NEpoch. I
-modified Mr.Enami's ISO-2022-JP Base64 MIME header decoder and make
-it. Mr.Enami's program can decode only ISO-2022-JP Base64 header. But,
-current tiny-mime has following functions:
-
- - unfolding at decoding
- - encoding/decoding multilingual character sets, such as,
- ISO-2022-JP, ISO-2022-JP-2, ISO-2022-CN, ISO-2022-KR, ISO-8859-*,
- US-ASCII, EUC-KR
- - B and Q-encoding
-
-
-* character set and encoding
-
-** Mule
-
- Mule can use multilingual text, so in Mule, tiny-mime supports
-ISO-2022-JP, ISO-2022-JP-2, US-ASCII, ISO-8859-1..9, ISO-2022-CN,
-ISO-2022-KR, EUC-KR, et al.
-
- Additionally, you can add or change encoding/decoding for character
-sets by function mime/set-charset-and-encoding.
-
-** NEmacs and NEpoch
-
- NEmacs can use Japanese and English only, so in NEmacs, tiny-mime
-supports encoding/decoding only ISO-2022-JP and US-ASCII.
-
- And decoding ISO-8859-* encoded-words if they includes only ASCII.
-
-
-* How to use tiny-mime.el (simple way)
-
-** decoding
-
- Please load tiny-mime.el, and do following command on the buffer
-which you want to decode.
-
- M-x mime/decode-message-header
-
- And you can decode region by
-
- M-x mime/decode-region
-
-** encoding
-
- Please load tiny-mime.el, and do following command on the buffer
-which you want to encode.
-
- M-x mime/encode-message-header
-
-
-
-* variables
-
-** mime/no-encoding-header-fields
-
- You can specify list of fields which you don't want to
-encode. Default value is ("X-Nsubject").
-
-example: don't encode Subject and X-Nsubject fields
-
-[[E
-----------------------------------------------------------------------
-(setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
-----------------------------------------------------------------------
-]]E
-
-
-* How to add or change character sets
-
- In Mule, you can add or change character sets by function
-mime/set-charset-and-encoding.
-
- Function: mime/set-charset-and-encoding lc cs charset encoding
-
- lc: leading-char
- cs: coding-system. Please specify nil if you don't want to use
- coding-system for 1 octet character.
- charset: MIME character set
- encoding: encoding method for encoder
-
-
-example 1: encode EUC-KR B encoding for KS C5601-1987 characters
-
- (mime/set-charset-and-encoding lc-kr *euc-kr* "EUC-KR" "B")
-
-
-example 2: encode/decode koi8-r Q encoding
-
- (mime/set-charset-and-encoding lc-prv11 nil "KOI8-R" "Q")
-
-[WARNING] In this version, handling for private character is very ad
-hoc. (^_^; I want to improve.
+++ /dev/null
-\documentstyle[a4j]{jarticle}
-\setcounter{secnumdepth}{6}
-\setcounter{tocdepth}{6}
-\topsep=0.1cm
-\parsep=0.1cm
-\itemsep=0.0cm
-\begin{document}
-\title{tiny-mime manual (English Version)}
-\author{Morioka Tomohiko}
-\date{1994/8/4}
-\maketitle
-\medskip
-
-\section{Overview}
-\medskip
-\par
-tiny-mime is a multilingual MIME style message header
-encoder/decoder based on RFC 1522 for Mule, NEmacs, and NEpoch. I
-modified Mr.Enami's ISO-2022-JP Base64 MIME header decoder and make
-it. Mr.Enami's program can decode only ISO-2022-JP Base64 header. But,
-current tiny-mime has following functions:
-\medskip
-\begin{itemize}
-\item unfolding at decoding
-\item encoding/decoding multilingual character sets, such as,
-ISO-2022-JP, ISO-2022-JP-2, ISO-2022-CN, ISO-2022-KR, ISO-8859-*,
-US-ASCII, EUC-KR
-\item B and Q-encoding
-\medskip
-\medskip
-\end{itemize}
-
-\section{character set and encoding}
-\medskip
-
-\subsection{Mule}
-\medskip
-\par
-Mule can use multilingual text, so in Mule, tiny-mime supports
-ISO-2022-JP, ISO-2022-JP-2, US-ASCII, ISO-8859-1..9, ISO-2022-CN,
-ISO-2022-KR, EUC-KR, et al.
-\medskip
-\par
-Additionally, you can add or change encoding/decoding for character
-sets by function mime/set-charset-and-encoding.
-\medskip
-
-\subsection{NEmacs and NEpoch}
-\medskip
-\par
-NEmacs can use Japanese and English only, so in NEmacs, tiny-mime
-supports encoding/decoding only ISO-2022-JP and US-ASCII.
-\medskip
-\par
-And decoding ISO-8859-* encoded-words if they includes only ASCII.
-\medskip
-\medskip
-
-\section{How to use tiny-mime.el (simple way)}
-\medskip
-
-\subsection{decoding}
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
- Please load tiny-mime.el, and do following command on the buffer
-which you want to decode.
-\end{verbatim}}
-\medskip
-{\list{}{\leftmargin=8ex}\item[]
-\par
-M-x mime/decode-message-header
-\endlist}
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
- And you can decode region by
-\end{verbatim}}
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
- M-x mime/decode-region
-\end{verbatim}}
-\medskip
-
-\subsection{encoding}
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
- Please load tiny-mime.el, and do following command on the buffer
-which you want to encode.
-\end{verbatim}}
-\medskip
-{\list{}{\leftmargin=8ex}\item[]
-\par
-M-x mime/encode-message-header
-\endlist}
-\medskip
-\medskip
-\medskip
-
-\section{variables}
-\medskip
-
-\subsection{mime/no-encoding-header-fields}
-\medskip
-\par
-You can specify list of fields which you don't want to
-encode. Default value is ("X-Nsubject").
-\medskip
-\begin{description}
-\item[example:]don't encode Subject and X-Nsubject fields
-\medskip
-\end{description}
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\medskip
-
-\section{How to add or change character sets}
-\medskip
-\par
-In Mule, you can add or change character sets by function
-mime/set-charset-and-encoding.
-\medskip
-\begin{description}
-\item[Function:]mime/set-charset-and-encoding lc cs charset encoding
-\medskip
-\begin{description}
-\item[lc:]leading-char
-\item[cs:]coding-system. Please specify nil if you don't want to use
-coding-system for 1 octet character.
-\item[charset:]MIME character set
-\item[encoding:]encoding method for encoder
-\medskip
-\medskip
-\end{description}
-\end{description}
-\begin{description}
-\item[example 1:]encode EUC-KR B encoding for KS C5601-1987 characters
-\medskip
-\par
-(mime/set-charset-and-encoding lc-kr *euc-kr* "EUC-KR" "B")
-\medskip
-\medskip
-\item[example 2:]encode/decode koi8-r Q encoding
-\medskip
-\par
-(mime/set-charset-and-encoding lc-prv11 nil "KOI8-R" "Q")
-\medskip
-\item[{[}WARNING{]}]In this version, handling for private character is very ad
-hoc. (\verb+^+\_\verb+^+; I want to improve.
-\end{description}
-\end{document}
+++ /dev/null
-\e$B!X\e(Btiny-mime.el \e$B@bL@=q!Y\e(B
-by. \e$B<i2,\e(B \e$BCNI'\e(B
-1994\e$BG/\e(B7\e$B7n\e(B27\e$BF|\e(B
-
- \e$B$3$N@bL@=q$O\e(B ol2 \e$B$H\e(B plain2 \e$B$rMQ$$$k$3$H$K$h$C$F\e(B LaTeX \e$B7A<0$KJQ49$9$k\e(B
-\e$B$3$H$,$G$-$^$9!#\e(B
-
-
-* tiny-mime.el \e$B$H$O\e(B
-
- tiny-mime.el \e$B$O\e(B Mule, NEmacs, NEpoch \e$B>e$GF0:n$9$k\e(B MIME message
-header \e$B$N\e(B encoder/decoder \e$B$G$9!#%*%j%8%J%k$O!"@N!"$($J$_\e(B \e$B$D$0$H$b\e(B \e$B$5$s\e(B
-\e$B$,\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(B
-
- \e$B!&\e(Bdecoding \e$B;~$K$*$1$k\e(B unfolding \e$B5!G=\e(B
- \e$B!&\e(BISO-2022-JP \e$B$K2C$(!"\e(BISO-8859-*, US-ASCII \e$B$J$I$N\e(B encoding/decoding
- \e$B!&\e(BQ-encoding \e$B$N\e(B decoding
-
-\e$B$H$$$C$?5!G=$r;}$C$F$$$^$9!#\e(B
-
-
-* tiny-mime.el \e$B$N%5%]!<%H$9$k\e(B character set, encoding
-
- tiny-mime.el \e$B$O!"<!$N\e(B character set, encoding \e$B$r%5%]!<%H$7$^$9!#\e(B
-
-** 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
-
-** 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
-
-
-* tiny-mime.el \e$B$N4JC1$J;H$$J}\e(B
-
-** 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
-
- M-x mime/decode-message-header
-
-\e$B$r<B9T$7$^$9!#\e(B
-
- \e$B$^$?!"\e(Bdecode \e$B$7$?$$\e(B region \e$B$r\e(B
-
- M-x mime/decode-region
-
-\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
-
-** 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
-
- M-x mime/encode-message-header
-
-\e$B$r<B9T$7$^$9!#\e(B
-
-
-* tiny-mime.el \e$B$NJQ?t\e(B
-
-** 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
-
-[[E
-----------------------------------------------------------------------
-(setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
-----------------------------------------------------------------------
-]]E
-
-\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
-
-** 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$B$?7k2L!"\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$?\e(B
-\e$B$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
-
-** mail-header-separator
-
- \e$B4X?t\e(B mime/encode-message-header \e$B$K$*$1$k\e(B message header \e$B$H\e(B body part
-\e$B$N6h@Z$j$rI=$9JQ?t$G$9!#Nc$($P!"\e(BGNUS \e$B$G$O\e(B "--text follows this line--"
-\e$B$,;XDj$5$l$^$9!#\e(B
-
-\e$B!NCm0U!O$3$NJQ?t$NJ8;zNs$O!"\e(Bversion 2.6 \e$B$h$j@55,I=8=$G$O$J$/$J$j$^$7$?!#\e(B
-
-
-* mailer, news reader \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$^$?!"\e(Bmetamail \e$B$r;H$C$F$*$i$l$kJ}$G$b!"IaCJ$O\e(B message header \e$B$N\e(B
-decode \e$B$@$1$GNI$/$F!"3($d2;$J$I$r:F@8$9$k;~$@$1\e(B metamail \e$B$r;H$&$H$$$&\e(B
-\e$B$h$&$J;H$$J}$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$&!#$^$?!"J8;zNs$N\e(B
-decode \e$B$r$7$?$$>l9g$N$?$a$K!"\e(B
-
- (mime/decode-string \e$BJ8;zNs\e(B)
-
-\e$B$H$$$&4X?t$bMQ0U$7$F$$$^$9!#\e(B
-
- GNUS \e$B$H\e(B mh-e \e$B$K4X$7$F$O!"\e(Btm-gnus, tm-mh-e \e$B$H$$$&\e(B MIME \e$BBP1~2=%b%8%e!<\e(B
-\e$B%k$rMQ0U$7$F$$$^$9!#\e(B
-
- \e$B$3$l$i$N!"3F\e(B MUA \e$B$KBP1~$9$k%b%8%e!<%k$r\e(B load \e$B$9$k$H\e(B tiny-mime.el \e$B$K\e(B
-\e$B$h$k\e(B MIME header \e$B$NI|85$H\e(B tm-body \e$B$rMxMQ$7$?\e(B MIME body \e$B$N:F@8$,9T$J$(\e(B
-\e$B$^$9!#\e(B
-
- \e$B>\$7$/$O!"$=$l$>$l$N@bL@=q$r$*FI$_2<$5$$!#\e(B
-
-
-* mime.el \e$B$H$NJ;MQ\e(B
-
- mime.el \e$B$HJ;MQ$9$kNc$r<($7$^$9!#$3$NNc$N>l9g!"\e(BISO-2022-JP \e$BJ8;zNs$N\e(B
-encode \e$B$O\e(B tiny-mime.el \e$B$,9T$J$$!"$=$l0J30$NJ8;z=89g$KB0$9$kJ8;zNs$O\e(B
-mime.el \e$B$,\e(B encode \e$B$7$^$9!#\e(B
-
- \e$B$^$?!"\e(Btiny-mime.el \e$B$,\e(B encode \e$B$7$J$+$C$?J8;zNs$b\e(B mime.el \e$B$,\e(B encode \e$B$9\e(B
-\e$B$k$N$G!"7k2LE*$K!"I,$:A4$F$N\e(B field \e$B$,\e(B encode \e$B$5$l$k$3$H$KCm0U$7$F2<$5\e(B
-\e$B$$!#\e(B
-
-[[E
-----------------------------------------------------------------------
-;;;
-;;; for Edit MIME mode
-;;;
-(autoload 'mime-mode "mime" "Edit MIME message." t)
-(autoload 'mime-convert-buffer "mime" "convert to MIME." t)
-(autoload 'insert-signature "signature" "Insert signature" t)
-(add-hook 'mime-mode-hook
- (function
- (lambda ()
- (define-key (current-local-map)
- "\C-c\C-s" (function insert-signature))
- )))
-
-;; MIME header \e$B$N\e(B encoder \e$B$r\e(B tiny-mime \e$B$N$b$N$r;H$&!#\e(B
-(setq mime-translate-hook 'mime/encode-message-header)
-
-;;;
-;;; for GNUS
-;;;
-(add-hook 'news-reply-mode-hook (function mime-mode))
-(setq gnus-signature-file nil)
-
-;;;
-;;; for mh-e
-;;;
-(add-hook 'mh-letter-mode-hook
- (function
- (lambda ()
- (mime/decode-message-header)
- (mime-mode)
- (make-local-variable 'mail-header-separator)
- (setq mail-header-separator "--------"))
- ))
-----------------------------------------------------------------------
-]]E
-
-** \e$BFCDj$N\e(B field \e$B$r\e(B encode \e$B$7$?$/$J$$>l9g\e(B
-
- \e$BFCDj$N\e(B field \e$B$r\e(B encode \e$B$7$?$/$J$$>l9g!"\e(Btiny-mime.el \e$B$NJQ?t\e(B
-mime/no-encoding-header-fields \e$B$K$h$C$F!"\e(Btiny-mime.el \e$B$K$h$k\e(B encode \e$B$r\e(B
-\e$B$d$a$k$3$H$,$G$-$^$9$,!"\e(Bmime.el \e$B$,\e(B encode \e$B$9$k$N$G$O0UL#$,$"$j$^$;$s!#\e(B
-\e$B$=$3$G!"<!$N$h$&$K@_Dj$9$k$3$H$G!"\e(Bmime.el \e$B$G$b\e(B encode \e$B$7$J$$$h$&$K$G$-\e(B
-\e$B$^$9!#\e(B
-
-[[E
-----------------------------------------------------------------------
-(if (boundp 'MULE)
- (progn
- (defun mime-header-charset-chooser-for-mule-no-encode-ISO-2022-JP (begin end)
- (let ((lclist (find-charset-region begin end)))
- (cond ((null lclist) nil) ;US-ASCII requres no encoding.
- ((memq lc-ltn1 lclist)
- '("ISO-8859-1" . "Q"))
- ((memq lc-ltn2 lclist)
- '("ISO-8859-2" . "Q"))
- ((memq lc-ltn3 lclist)
- '("ISO-8859-3" . "Q"))
- ((memq lc-ltn4 lclist)
- '("ISO-8859-4" . "Q"))
- ((memq lc-crl lclist)
- '("ISO-8859-5" . "Q"))
- ;;((memq lc-arb lclist)
- ;; '("ISO-8859-6" . "Q"))
- ((memq lc-grk lclist)
- '("ISO-8859-7" . "Q"))
- ((memq lc-hbw lclist)
- '("ISO-8859-8" . "Q"))
- ((memq lc-ltn5 lclist)
- '("ISO-8859-9" . "Q"))
- ((memq lc-jp lclist) nil)
- (t ;Unknown charset. It must be Mule!
- '("ISO-2022-JP-2" . "B"))
- )))
- (setq mime-header-charset-chooser
- 'mime-header-charset-chooser-for-mule-no-encode-ISO-2022-JP)
- )
- (progn
- (defun mime-header-charset-chooser-for-nemacs-no-encode-ISO-2022-JP (begin end))
- (setq mime-header-charset-chooser
- 'mime-header-charset-chooser-for-nemacs-no-encode-ISO-2022-JP)
- ))
-----------------------------------------------------------------------
-]]E
-
- \e$BMW$9$k$K!"\e(BISO-2022-JP \e$BJ8;zNs$N\e(B encode \e$B$r\e(B mime.el \e$B$K$5$;$J$/$9$kLu$G\e(B
-\e$B$9!#\e(B
-
-
-* charset \e$B$NDI2C!&JQ99\e(B
-
- Mule \e$B$G$O!"4X?t\e(B mime/set-charset-and-encoding \e$B$G!"\e(Bcharset \e$B$NDI2C!&JQ\e(B
-\e$B99$,$G$-$^$9!#\e(B
-
- \e$B4X?t\e(B: mime/set-charset-and-encoding lc cs charset encoding
-
- lc: charset \e$B$KBP1~$9$k\e(B leading-char \e$B$r;XDj$9$k!#\e(B
- cs: charset \e$B$KBP1~$9$k\e(B coding-system \e$B$r;XDj$9$k!#\e(B1 octet \e$BJ8;z\e(B
- \e$B=89g$G\e(B coding-system \e$B$r:n$i$J$$>l9g$O!"\e(Bnil \e$B$r;XDj$9$k!#\e(B
- charset: MIME \e$B$N\e(B charset.
- encoding: encode \e$B$9$k:]$N\e(B encoding.
-
-
- \e$BNc!'\e(B KS C5601-1987 \e$B$r\e(B EUC-KR \e$B$N\e(B B encoding \e$B$9$k$h$&$K@_Dj$9$k\e(B
-
- (mime/set-charset-and-encoding lc-kr *euc-kr* "EUC-KR" "B")
-
-
- \e$BNc!'\e(B koi8-r \e$B$r\e(B Q encoding \e$B$9$k$h$&$K@_Dj$9$k!#\e(B
-
- (mime/set-charset-and-encoding lc-prv11 nil "KOI8-R" "Q")
-
-
-\e$B!NCm0U!O8=:_$N$H$3$m!"\e(Bprivate character \e$B$N@_Dj$OFq$"$j$G$9!#\e(B(^_^;
+++ /dev/null
-\documentstyle[a4j]{jarticle}
-\setcounter{secnumdepth}{6}
-\setcounter{tocdepth}{6}
-\topsep=0.1cm
-\parsep=0.1cm
-\itemsep=0.0cm
-\begin{document}
-\title{
-tiny-mime.el ÀâÌÀ½ñ}
-\author{
-¼é²¬ ÃÎɧ\\
-}
-\date{
-1994ǯ7·î27Æü}
-\maketitle
-\medskip
-\par
-¤³¤ÎÀâÌÀ½ñ¤Ï ol2 ¤È plain2 ¤òÍѤ¤¤ë¤³¤È¤Ë¤è¤Ã¤Æ LaTeX ·Á¼°¤ËÊÑ´¹¤¹¤ë
-¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
-\medskip
-\medskip
-
-\section{tiny-mime.el ¤È¤Ï}
-\medskip
-\par
-tiny-mime.el ¤Ï Mule, NEmacs, NEpoch ¾å¤ÇÆ°ºî¤¹¤ë MIME message
-header ¤Î encoder/decoder ¤Ç¤¹¡£¥ª¥ê¥¸¥Ê¥ë¤Ï¡¢ÀΡ¢¤¨¤Ê¤ß ¤Ä¤°¤È¤â ¤µ¤ó
-¤¬ fj.editor.emacs ¤ËÅê¹Æ¤µ¤ì¤¿ MIME message header ¤Î decoder ¤Ç¤¹¡£
-\medskip
-\par
-¸½ºß¤Ç¤Ï¡¢Åö»þ¤Î¤â¤Î¤ËÈæ¤Ù¡¢
-\medskip
-\begin{itemize}
-\item decoding »þ¤Ë¤ª¤±¤ë unfolding µ¡Ç½
-\item ISO-2022-JP ¤Ë²Ã¤¨¡¢ISO-8859-*, US-ASCII ¤Ê¤É¤Î encoding/decoding
-\item Q-encoding ¤Î decoding
-\medskip
-\end{itemize}
-\par
-¤È¤¤¤Ã¤¿µ¡Ç½¤ò»ý¤Ã¤Æ¤¤¤Þ¤¹¡£
-\medskip
-\medskip
-
-\section{tiny-mime.el ¤Î¥µ¥Ý¡¼¥È¤¹¤ë character set, encoding}
-\medskip
-\par
-tiny-mime.el ¤Ï¡¢¼¡¤Î character set, encoding ¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£
-\medskip
-
-\subsection{Mule}
-\medskip
-\par
-ISO-2022-JP, US-ASCII, ISO-8859-1..9, ISO-2022-CN, ISO-2022-KR,
-EUC-KR ¤Ê¤É¤Î encoding/decoding ¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£¤Þ¤¿¡¢´Ø¿ô
-mime/set-charset-and-encoding ¤ÇÄɲá¦Êѹ¹¤¬¤Ç¤¤Þ¤¹¡£
-\medskip
-
-\subsection{NEmacs, NEpoch}
-\medskip
-\par
-ISO-2022-JP, US-ASCII ¤Î encoding/decoding ¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£
-\medskip
-\par
-¤Þ¤¿¡¢ISO-8859-*¤Ç¤¢¤Ã¤Æ¤â¡¢encoded-text ¤Ë´Þ¤Þ¤ì¤ëʸ»úÎ󤬼ºݤˤÏ
-ASCII ¤Çɽ¤»¤ëÈϰϤʤéɽ¼¨¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\section{tiny-mime.el ¤Î´Êñ¤Ê»È¤¤Êý}
-\medskip
-
-\subsection{decode}
-\medskip
-\par
-tiny-mime.el ¤ò load ¤·¤Æ¡¢decode ¤·¤¿¤¤ buffer ¾å¤Ç¡¢
-\medskip
-{\list{}{\leftmargin=8ex}\item[]
-\par
-M-x mime/decode-message-header
-\endlist}
-\medskip
-\par
-¤ò¼Â¹Ô¤·¤Þ¤¹¡£
-\medskip
-\par
-¤Þ¤¿¡¢decode ¤·¤¿¤¤ region ¤ò
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
- M-x mime/decode-region
-\end{verbatim}}
-\medskip
-\par
-¤Ç decode ¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£°úÍÑ¤Ê¤É¤Ç body-part ¤Ë»Ä¤Ã¤¿
-encoded-word ¤ò decode ¤¹¤ë¤Î¤ËÊØÍø¤Ç¤·¤ç¤¦¡£
-\medskip
-
-\subsection{encode}
-\medskip
-\par
-tiny-mime.el ¤ò load ¤·¤Æ¡¢encode ¤·¤¿¤¤ buffer ¾å¤Ç¡¢
-\medskip
-{\list{}{\leftmargin=8ex}\item[]
-\par
-M-x mime/encode-message-header
-\endlist}
-\medskip
-\par
-¤ò¼Â¹Ô¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\section{tiny-mime.el ¤ÎÊÑ¿ô}
-\medskip
-
-\subsection{mime/no-encoding-header-fields}
-\medskip
-\par
-tiny-mime.el ¤Ç encode ¤·¤Ê¤¤ message header ¤Î field ¤ò»ØÄꤷ¤Þ¤¹¡£
-\medskip
-\par
-default ¤Ç¤Ï X-Nsubject ¤¬»ØÄꤵ¤ì¤Æ¤¤¤Þ¤¹¡£
-\medskip
-\par
-Î㡧 X-Nsubject ¤È Subject ¤ò encode ¤·¤Ê¤¤¤è¤¦¤Ë¤¹¤ë¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-¡ÎÃí°Õ¡Ï mime.el ¤ÈÊ»ÍѤ¹¤ë¾ì¹ç¡¢tiny-mime.el ¤¬ encode ¤·¤Ê¤¯¤Æ¤â¡¢
-mime.el ¤¬ encode ¤¹¤ë¤Î¤Ç¡¢mime.el ¤Î message header encoder ¤¬Æ¯¤«¤Ê
-¤¤¤è¤¦¤Ë¤ËÀßÄꤷ¤Þ¤¹¡£
-\medskip
-
-\subsection{mime/use-X-Nsubject}
-\medskip
-\par
-¤³¤ÎÊÑ¿ô¤ÎÃͤ¬ t ¤Î¾ì¹ç¡¢message header ¤ò encode ¤¹¤ë»þ¡¢encode ¤·
-¤¿·ë²Ì¡¢Subject ¤Ë encoded-word ¤¬´Þ¤Þ¤ì¤ë¾ì¹ç¡¢Subject ¤ò decode ¤·¤¿
-¤â¤Î¤òÆþ¤ì¤¿ X-Nsubject ¤òºîÀ®¤·¤Þ¤¹¡£
-\medskip
-\par
-default ¤Ç¤Ï nil ¤¬»ØÄꤵ¤ì¤Æ¤¤¤Þ¤¹¡£
-\medskip
-\par
-¡ÎÃí°Õ¡ÏMule ¤Ç ISO-2022-JP ¤Ë´Þ¤Þ¤ì¤ë¤â¤Î°Ê³°¤Îʸ»ú½¸¹ç¤ò»È¤¦¾ì¹ç¤Ï¡¢
-¤³¤ì¤ò»ØÄꤷ¤Ê¤¤Êý¤¬¸ÌÀ¤Ç¤¹¡£
-\medskip
-
-\subsection{mail-header-separator}
-\medskip
-\par
-´Ø¿ô mime/encode-message-header ¤Ë¤ª¤±¤ë message header ¤È body part
-¤Î¶èÀÚ¤ê¤òɽ¤¹ÊÑ¿ô¤Ç¤¹¡£Î㤨¤Ð¡¢GNUS ¤Ç¤Ï "--text follows this line--"
-¤¬»ØÄꤵ¤ì¤Þ¤¹¡£
-\medskip
-\par
-¡ÎÃí°Õ¡Ï¤³¤ÎÊÑ¿ô¤Îʸ»úÎó¤Ï¡¢version 2.6 ¤è¤êÀµµ¬É½¸½¤Ç¤Ï¤Ê¤¯¤Ê¤ê¤Þ¤·¤¿¡£
-\medskip
-\medskip
-
-\section{mailer, news reader ¤Ø¤ÎÁȤ߹þ¤ß}
-\medskip
-\par
-Æü¾ïŪ¤Ë¡¢Ìµ°Õ¼±¤Ë MIME header ¤òËÜÍè¤Î¸À¸ì¤Ç¸«¤¿¤¤¤È¤¤¤¦¤Î¤ÏÅöÁ³¤Î
-Íßµá¤Ç¤¹¡£¤½¤³¤Ç¡¢tiny-mime.el ¤ò mailer ¤ä news reader ¤ËÁȤ߹þ¤à¤È¼«
-ưŪ¤Ë MIME header ¤Î encode/decode ¤¬¤Ç¤¤Þ¤¹¡£
-\medskip
-\par
-¤Þ¤¿¡¢metamail ¤ò»È¤Ã¤Æ¤ª¤é¤ì¤ëÊý¤Ç¤â¡¢ÉáÃÊ¤Ï message header ¤Î
-decode ¤À¤±¤ÇÎɤ¯¤Æ¡¢³¨¤ä²»¤Ê¤É¤òºÆÀ¸¤¹¤ë»þ¤À¤± metamail ¤ò»È¤¦¤È¤¤¤¦
-¤è¤¦¤Ê»È¤¤Êý¤â¤Ç¤¤Þ¤¹¡£
-\medskip
-\par
-¤³¤ÎÌÜŪ¤ò¼Â¸½¤¹¤ë¤Ë¤Ï¡¢mailer ¤ä news reader ¤ÎŬÀÚ¤Ê hook ¤Ë
-mime/decode-message-header ¤òÆþ¤ì¤ì¤ÐÎɤ¤¤Ç¤·¤ç¤¦¡£¤Þ¤¿¡¢Ê¸»úÎó¤Î
-decode ¤ò¤·¤¿¤¤¾ì¹ç¤Î¤¿¤á¤Ë¡¢
-\medskip
-{\list{}{\leftmargin=8ex}\item[]
-\par
-(mime/decode-string ʸ»úÎó)
-\endlist}
-\medskip
-\par
-¤È¤¤¤¦´Ø¿ô¤âÍÑ°Õ¤·¤Æ¤¤¤Þ¤¹¡£
-\medskip
-\par
-GNUS ¤È mh-e ¤Ë´Ø¤·¤Æ¤Ï¡¢tm-gnus, tm-mh-e ¤È¤¤¤¦ MIME Âбþ²½¥â¥¸¥å¡¼
-¥ë¤òÍÑ°Õ¤·¤Æ¤¤¤Þ¤¹¡£
-\medskip
-\par
-¤³¤ì¤é¤Î¡¢³Æ MUA ¤ËÂбþ¤¹¤ë¥â¥¸¥å¡¼¥ë¤ò load ¤¹¤ë¤È tiny-mime.el ¤Ë
-¤è¤ë MIME header ¤ÎÉü¸µ¤È tm-body ¤òÍøÍѤ·¤¿ MIME body ¤ÎºÆÀ¸¤¬¹Ô¤Ê¤¨
-¤Þ¤¹¡£
-\medskip
-\par
-¾Ü¤·¤¯¤Ï¡¢¤½¤ì¤¾¤ì¤ÎÀâÌÀ½ñ¤ò¤ªÆɤ߲¼¤µ¤¤¡£
-\medskip
-\medskip
-
-\section{mime.el ¤È¤ÎÊ»ÍÑ}
-\medskip
-\par
-mime.el ¤ÈÊ»ÍѤ¹¤ëÎã¤ò¼¨¤·¤Þ¤¹¡£¤³¤ÎÎã¤Î¾ì¹ç¡¢ISO-2022-JP ʸ»úÎó¤Î
-encode ¤Ï tiny-mime.el ¤¬¹Ô¤Ê¤¤¡¢¤½¤ì°Ê³°¤Îʸ»ú½¸¹ç¤Ë°¤¹¤ëʸ»úÎó¤Ï
-mime.el ¤¬ encode ¤·¤Þ¤¹¡£
-\medskip
-\par
-¤Þ¤¿¡¢tiny-mime.el ¤¬ encode ¤·¤Ê¤«¤Ã¤¿Ê¸»úÎó¤â mime.el ¤¬ encode ¤¹
-¤ë¤Î¤Ç¡¢·ë²ÌŪ¤Ë¡¢É¬¤ºÁ´¤Æ¤Î field ¤¬ encode ¤µ¤ì¤ë¤³¤È¤ËÃí°Õ¤·¤Æ²¼¤µ
-¤¤¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-;;;
-;;; for Edit MIME mode
-;;;
-(autoload 'mime-mode "mime" "Edit MIME message." t)
-(autoload 'mime-convert-buffer "mime" "convert to MIME." t)
-(autoload 'insert-signature "signature" "Insert signature" t)
-(add-hook 'mime-mode-hook
- (function
- (lambda ()
- (define-key (current-local-map)
- "\C-c\C-s" (function insert-signature))
- )))
-
-;; MIME header ¤Î encoder ¤ò tiny-mime ¤Î¤â¤Î¤ò»È¤¦¡£
-(setq mime-translate-hook 'mime/encode-message-header)
-
-;;;
-;;; for GNUS
-;;;
-(add-hook 'news-reply-mode-hook (function mime-mode))
-(setq gnus-signature-file nil)
-
-;;;
-;;; for mh-e
-;;;
-(add-hook 'mh-letter-mode-hook
- (function
- (lambda ()
- (mime/decode-message-header)
- (mime-mode)
- (make-local-variable 'mail-header-separator)
- (setq mail-header-separator "--------"))
- ))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-
-\subsection{ÆÃÄê¤Î field ¤ò encode ¤·¤¿¤¯¤Ê¤¤¾ì¹ç}
-\medskip
-\par
-ÆÃÄê¤Î field ¤ò encode ¤·¤¿¤¯¤Ê¤¤¾ì¹ç¡¢tiny-mime.el ¤ÎÊÑ¿ô
-mime/no-encoding-header-fields ¤Ë¤è¤Ã¤Æ¡¢tiny-mime.el ¤Ë¤è¤ë encode ¤ò
-¤ä¤á¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¤¬¡¢mime.el ¤¬ encode ¤¹¤ë¤Î¤Ç¤Ï°ÕÌ£¤¬¤¢¤ê¤Þ¤»¤ó¡£
-¤½¤³¤Ç¡¢¼¡¤Î¤è¤¦¤ËÀßÄꤹ¤ë¤³¤È¤Ç¡¢mime.el ¤Ç¤â encode ¤·¤Ê¤¤¤è¤¦¤Ë¤Ç¤
-¤Þ¤¹¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(if (boundp 'MULE)
- (progn
- (defun mime-header-charset-chooser-for-mule-no-encode-ISO-2022-JP (begin end)
- (let ((lclist (find-charset-region begin end)))
- (cond ((null lclist) nil) ;US-ASCII requres no encoding.
- ((memq lc-ltn1 lclist)
- '("ISO-8859-1" . "Q"))
- ((memq lc-ltn2 lclist)
- '("ISO-8859-2" . "Q"))
- ((memq lc-ltn3 lclist)
- '("ISO-8859-3" . "Q"))
- ((memq lc-ltn4 lclist)
- '("ISO-8859-4" . "Q"))
- ((memq lc-crl lclist)
- '("ISO-8859-5" . "Q"))
- ;;((memq lc-arb lclist)
- ;; '("ISO-8859-6" . "Q"))
- ((memq lc-grk lclist)
- '("ISO-8859-7" . "Q"))
- ((memq lc-hbw lclist)
- '("ISO-8859-8" . "Q"))
- ((memq lc-ltn5 lclist)
- '("ISO-8859-9" . "Q"))
- ((memq lc-jp lclist) nil)
- (t ;Unknown charset. It must be Mule!
- '("ISO-2022-JP-2" . "B"))
- )))
- (setq mime-header-charset-chooser
- 'mime-header-charset-chooser-for-mule-no-encode-ISO-2022-JP)
- )
- (progn
- (defun mime-header-charset-chooser-for-nemacs-no-encode-ISO-2022-JP (begin end))
- (setq mime-header-charset-chooser
- 'mime-header-charset-chooser-for-nemacs-no-encode-ISO-2022-JP)
- ))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-Íפ¹¤ë¤Ë¡¢ISO-2022-JP ʸ»úÎó¤Î encode ¤ò mime.el ¤Ë¤µ¤»¤Ê¤¯¤¹¤ëÌõ¤Ç
-¤¹¡£
-\medskip
-\medskip
-
-\section{charset ¤ÎÄɲá¦Êѹ¹}
-\medskip
-\par
-Mule ¤Ç¤Ï¡¢´Ø¿ô mime/set-charset-and-encoding ¤Ç¡¢charset ¤ÎÄɲá¦ÊÑ
-¹¹¤¬¤Ç¤¤Þ¤¹¡£
-\medskip
-\begin{description}
-\item[´Ø¿ô:]mime/set-charset-and-encoding lc cs charset encoding
-\medskip
-\begin{description}
-\item[lc:]charset ¤ËÂбþ¤¹¤ë leading-char ¤ò»ØÄꤹ¤ë¡£
-\item[cs:]charset ¤ËÂбþ¤¹¤ë coding-system ¤ò»ØÄꤹ¤ë¡£1 octet ʸ»ú
-½¸¹ç¤Ç coding-system ¤òºî¤é¤Ê¤¤¾ì¹ç¤Ï¡¢nil ¤ò»ØÄꤹ¤ë¡£
-\item[charset:]MIME ¤Î charset.
-\item[encoding:]encode ¤¹¤ëºÝ¤Î encoding.
-\medskip
-\medskip
-\end{description}
-\end{description}
-\par
-Î㡧 KS C5601-1987 ¤ò EUC-KR ¤Î B encoding ¤¹¤ë¤è¤¦¤ËÀßÄꤹ¤ë
-\medskip
-{\list{}{\leftmargin=8ex}\item[]
-\par
-(mime/set-charset-and-encoding lc-kr *euc-kr* "EUC-KR" "B")
-\endlist}
-\medskip
-\medskip
-\par
-Î㡧 koi8-r ¤ò Q encoding ¤¹¤ë¤è¤¦¤ËÀßÄꤹ¤ë¡£
-\medskip
-{\list{}{\leftmargin=8ex}\item[]
-\par
-(mime/set-charset-and-encoding lc-prv11 nil "KOI8-R" "Q")
-\endlist}
-\medskip
-\medskip
-\par
-¡ÎÃí°Õ¡Ï¸½ºß¤Î¤È¤³¤í¡¢private character ¤ÎÀßÄê¤ÏÆñ¤¢¤ê¤Ç¤¹¡£(\verb+^+\_\verb+^+;
-\end{document}
+++ /dev/null
-;;;
-;;; A multilingual MIME message header encoder/decoder.
-;;; by Morioka Tomohiko (morioka@jaist.ac.jp)
-;;;
-;;; original MIME decoder is
-;;; mime.el,v 1.5 1992/07/18 07:52:08 by Enami Tsugutomo
-;;;
-
-
-;;; @ require modules
-;;;
-
-(require 'emu)
-(require 'mel)
-(require 'tl-header)
-(require 'tl-str)
-(require 'tm-def)
-
-
-;;; @ version
-;;;
-
-(defconst mime/RCS-ID
- "$Id: tiny-mime.el,v 6.7 1995/09/20 12:17:28 morioka Exp $")
-
-(defconst mime/tiny-mime-version (get-version-string mime/RCS-ID))
-
-
-;;; @ MIME encoded-word definition
-;;;
-
-(defconst mime/encoded-text-regexp "[!->@-~]+")
-(defconst mime/encoded-word-regexp (concat (regexp-quote "=?")
- "\\("
- mime/charset-regexp
- "\\)"
- (regexp-quote "?")
- "\\(B\\|Q\\)"
- (regexp-quote "?")
- "\\("
- mime/encoded-text-regexp
- "\\)"
- (regexp-quote "?=")))
-
-(defun mime/nth-string (s n)
- (if (stringp s)
- (substring s (match-beginning n) (match-end n))
- (buffer-substring (match-beginning n) (match-end n))))
-
-(defun mime/encoded-word-charset (str)
- (mime/nth-string str 1))
-
-(defun mime/encoded-word-encoding (str)
- (mime/nth-string str 2))
-
-(defun mime/encoded-word-encoded-text (str)
- (mime/nth-string str 3))
-
-(defun mime/rest-of-string (str)
- (if (stringp str)
- (substring str (match-end 0))
- (buffer-substring (match-end 0)(point-max))
- ))
-
-
-;;; @ variables
-;;;
-
-(defvar mime/no-encoding-header-fields '("X-Nsubject" "Newsgroups"))
-
-(defvar mime/use-X-Nsubject nil)
-
-
-;;; @ Application Interface
-;;;
-
-;;; @@ MIME header decoders
-;;;
-
-(defun mime/decode-encoded-text (charset encoding str)
- (let ((dest
- (cond ((string= "B" encoding)
- (base64-decode-string str))
- ((string= "Q" encoding)
- (q-encoding-decode-string str))
- (t (message "unknown encoding %s" encoding)
- nil))))
- (if dest
- (mime/convert-string-to-emacs charset dest)
- )))
-
-(defun mime/decode-encoded-word (word)
- (or (if (string-match mime/encoded-word-regexp word)
- (let ((charset (upcase (mime/encoded-word-charset word)))
- (encoding (upcase (mime/encoded-word-encoding word)))
- (text (mime/encoded-word-encoded-text word)))
- (mime/decode-encoded-text charset encoding text)
- ))
- word))
-
-(defun mime/decode-region (beg end)
- (interactive "*r")
- (save-excursion
- (save-restriction
- (narrow-to-region beg end)
- (goto-char (point-min))
- (let (charset encoding text)
- (while (re-search-forward mime/encoded-word-regexp nil t)
- (insert (mime/decode-encoded-word
- (prog1
- (buffer-substring (match-beginning 0) (match-end 0))
- (delete-region (match-beginning 0) (match-end 0))
- )
- ))
- ))
- )))
-
-(defun mime/decode-message-header ()
- (interactive "*")
- (save-excursion
- (save-restriction
- (narrow-to-region (goto-char (point-min))
- (progn (re-search-forward "^$" nil t) (point)))
- (mime/prepare-decode-message-header)
- (mime/decode-region (point-min) (point-max))
- )))
-
-(defun mime/decode-string (str)
- (let ((dest "")(ew nil)
- beg end)
- (while (setq beg (string-match mime/encoded-word-regexp str))
- (if (> beg 0)
- (if (not (and (eq ew t) (string= (substring str 0 beg) " ")))
- (setq dest (concat dest (substring str 0 beg)
- ))
- )
- )
- (setq end (match-end 0))
- (setq dest (concat dest
- (mime/decode-encoded-word (substring str beg end))
- ))
- (setq str (substring str end))
- (setq ew t)
- )
- (concat dest str)
- ))
-
-;;; @@ MIME header encoders
-;;;
-
-(defun mime/encode-string (string encoding &optional mode)
- (cond ((string= encoding "B") (base64-encode-string string))
- ((string= encoding "Q") (q-encoding-encode-string string mode))
- ))
-
-(defun mime/encode-field (str)
- (setq str (message/unfolding-string str))
- (let ((ret (message/divide-field str))
- field-name field-body)
- (setq field-name (car ret))
- (setq field-body (nth 1 ret))
- (concat field-name " "
- (cond ((string= field-body "") "")
- ((or (string-match "^Reply-To:$" field-name)
- (string-match "^From:$" field-name)
- (string-match "^Sender:$" field-name)
- (string-match "^Resent-Reply-To:$" field-name)
- (string-match "^Resent-From:$" field-name)
- (string-match "^Resent-Sender:$" field-name)
- (string-match "^To:$" field-name)
- (string-match "^Resent-To:$" field-name)
- (string-match "^cc:$" field-name)
- (string-match "^Resent-cc:$" field-name)
- (string-match "^bcc:$" field-name)
- (string-match "^Resent-bcc:$" field-name)
- )
- (mime/encode-address-list
- (+ (length field-name) 1) field-body)
- )
- (t
- (catch 'tag
- (let ((r mime/no-encoding-header-fields) fn)
- (while r
- (setq fn (car r))
- (if (string-match (concat "^" fn ":$") field-name)
- (throw 'tag field-body)
- )
- (setq r (cdr r))
- ))
- (nth 1 (mime/encode-header-string
- (+ (length field-name) 1) field-body))
- ))
- ))
- ))
-
-(defun mime/exist-encoded-word-in-subject ()
- (let ((str (message/get-field-body "Subject")))
- (if (and str (string-match mime/encoded-word-regexp str))
- str)))
-
-(defun mime/encode-message-header ()
- (interactive "*")
- (save-excursion
- (save-restriction
- (narrow-to-region (goto-char (point-min))
- (progn
- (re-search-forward
- (concat
- "^" (regexp-quote mail-header-separator) "$")
- nil t)
- (match-beginning 0)
- ))
- (goto-char (point-min))
- (let (beg end field)
- (while (re-search-forward "^.+:.*\\(\n\\s +.*\\)*" nil t)
- (setq beg (match-beginning 0))
- (setq end (match-end 0))
- (setq field (buffer-substring beg end))
- (insert (mime/encode-field
- (prog1
- (buffer-substring beg end)
- (delete-region beg end)
- )))
- ))
- (if mime/use-X-Nsubject
- (let ((str (mime/exist-encoded-word-in-subject)))
- (if str
- (insert (concat
- "\nX-Nsubject: "
- (mime/decode-string (message/unfolding-string str))
- )))))
- )))
-
-
-;;; @ functions for message header encoding
-;;;
-
-(defun mime/encode-and-split-string (n string charset encoding)
- (let ((i 0) (j 0)
- (len (length string))
- (js (mime/convert-string-from-emacs string charset))
- (cesl (+ (length charset) (length encoding) 6 ))
- ewl m rest)
- (setq ewl (mime/encoded-word-length js encoding))
- (if (null ewl) nil
- (progn
- (setq m (+ n ewl cesl))
- (if (> m 76)
- (progn
- (while (and (< i len)
- (setq js (mime/convert-string-from-emacs
- (substring string 0 i) charset))
- (setq m (+ n
- (mime/encoded-word-length js encoding)
- cesl))
- (< m 76))
- (setq j i)
- (setq i (+ i (char-bytes (elt string i))))
- )
- (setq js (mime/convert-string-from-emacs
- (substring string 0 j) charset))
- (setq m (+ n (mime/encoded-word-length js encoding) cesl))
- (setq rest (substring string j))
- )
- (setq rest nil))
- (if (string= js "")
- (list 1 "" string)
- (list m (concat "=?" charset "?" encoding "?"
- (mime/encode-string js encoding)
- "?=") rest))
- ))
- ))
-
-(defun mime/encode-header-word (n string charset encoding)
- (let (dest str ret m)
- (if (null (setq ret
- (mime/encode-and-split-string n string charset encoding)))
- nil
- (progn
- (setq dest (nth 1 ret))
- (setq m (car ret))
- (setq str (nth 2 ret))
- (while (and (stringp str)
- (setq ret
- (mime/encode-and-split-string
- 1 str charset encoding))
- )
- (setq dest (concat dest "\n " (nth 1 ret)))
- (setq m (car ret))
- (setq str (nth 2 ret))
- )
- (list m dest)
- ))
- ))
-
-(defun mime/encode-header-string (n string &optional mode)
- (if (string= string "")
- (list n "")
- (let ((ssl (mime/separate-string-for-encoder string))
- i len cell et w ew (dest "") b l)
- (setq len (length ssl))
- (setq cell (nth 0 ssl))
- (setq et (car cell))
- ;; string-width crashes when the argument is nil,
- ;; so replace the argument
- ;; (original modification by Kenji Rikitake 9-JAN-1995)
- (setq w (or (cdr cell) ""))
- (if (eq et nil)
- (progn
- (if (> (+ n (string-width w)) 76)
- (progn
- (setq dest (concat dest "\n "))
- (setq b 1)
- )
- (setq b n))
- (setq dest (concat dest w))
- (setq b (+ b (string-width w)))
- )
- (progn
- (setq ew (mime/encode-header-word n (cdr cell) (car et) (cdr et)))
- (setq dest (nth 1 ew))
- (setq b (car ew))
- ))
- (setq i 1)
- (while (< i len)
- (setq cell (nth i ssl))
- (setq et (car cell))
- (setq w (cdr cell))
- (cond ((string-match "^[ \t]*$" w)
- (setq b (+ b (string-width (cdr cell))))
- (setq dest (concat dest (cdr cell)))
- )
- ((eq et nil)
- (if (> (+ b (string-width w)) 76)
- (progn
- (if (eq (elt dest (- (length dest) 1)) 32)
- (setq dest (substring dest 0 (- (length dest) 1)))
- )
- (setq dest (concat dest "\n " w))
- (setq b (+ (length w) 1))
- )
- (setq l (length dest))
- (if (and (>= l 2)
- (eq (elt dest (- l 2)) ?\?)
- (eq (elt dest (- l 1)) ?=)
- )
- (progn
- (setq dest (concat dest " "))
- (setq b (+ b 1))
- ))
- (setq dest (concat dest w))
- (setq b (+ b (string-width w)))
- ))
- (t
- (if (not (eq (elt dest (- (length dest) 1)) 32))
- (progn
- (setq dest (concat dest " "))
- (setq b (+ b 1))
- ))
- (setq ew
- (mime/encode-header-word b (cdr cell) (car et) (cdr et)))
- (setq b (car ew))
- (if (string-match "^\n" (nth 1 ew))
- (setq dest (concat (substring dest 0 (- (length dest) 1))
- (nth 1 ew)))
- (setq dest (concat dest (nth 1 ew)))
- )
- ))
- (setq i (+ i 1))
- )
- (list b dest)
- )))
-
-(defun mime/encode-address-list (n str)
- (let* ((ret (message/parse-addresses str))
- (r ret) cell en-ret j cl (dest "") s)
- (while r
- (setq cell (car r))
- (cond ((string= (nth 1 cell) "<")
- (setq en-ret (mime/encode-header-string n (nth 0 cell) 'phrase))
- (setq dest (concat dest (nth 1 en-ret)))
- (setq n (car en-ret))
- (if (> (length r) 1)
- (setq en-ret
- (mime/encode-header-string
- n (concat (nth 1 cell)(nth 2 cell)(nth 3 cell) ", ")))
- (setq en-ret (mime/encode-header-string
- n (concat (nth 1 cell)(nth 2 cell)(nth 3 cell))))
- )
- (if (and (eq (elt (nth 1 en-ret) 0) ?\n)
- (eq (elt dest (- (length dest) 1)) 32))
- (setq dest (substring dest 0 (- (length dest) 1)))
- )
- (setq dest (concat dest (nth 1 en-ret)))
- (setq n (car en-ret))
- )
- ((= (length cell) 4)
- (setq en-ret (mime/encode-header-string n (nth 0 cell)))
- (setq dest (concat dest (nth 1 en-ret)))
- (setq n (car en-ret))
-
- (setq en-ret (mime/encode-header-string (+ n 2) (nth 2 cell)
- 'comment))
- (if (eq (elt (nth 1 en-ret) 0) ?\n)
- (progn
- (setq dest (concat dest "\n ("))
- (setq en-ret (mime/encode-header-string 2 (nth 2 cell)
- 'comment))
- )
- (progn
- (setq dest (concat dest " ("))
- ))
- (setq dest (concat dest (nth 1 en-ret)))
- (setq n (car en-ret))
- (if (> (length r) 1)
- (setq en-ret
- (mime/encode-header-string n (concat (nth 3 cell) ", "))
- )
- (setq en-ret (mime/encode-header-string n (nth 3 cell)))
- )
- (setq dest (concat dest (nth 1 en-ret)))
- (setq n (car en-ret))
- )
- (t
- (if (> (length r) 1)
- (setq en-ret
- (mime/encode-header-string n (concat (nth 0 cell) ", "))
- )
- (setq en-ret (mime/encode-header-string n (nth 0 cell)))
- )
- (setq dest (concat dest (nth 1 en-ret)))
- (setq n (car en-ret))
- ))
- (setq r (cdr r))
- )
- dest))
-
-
-;;; @ utility for encoder
-;;;
-
-;;; @@ encoded-word length
-;;;
-
-(defun mime/encoded-word-length (string encoding)
- (cond ((equal encoding "B") (mime/base64-length string))
- ((equal encoding "Q") (mime/Quoted-Printable-length string))
- (t nil)
- ))
-
-(defun mime/base64-length (string)
- (let ((l (length string))
- )
- (* (+ (/ l 3)
- (if (= (mod l 3) 0) 0 1)
- ) 4)
- ))
-
-(defun mime/Quoted-Printable-length (string &optional mode)
- (let ((l 0)(i 0)(len (length string)) chr)
- (while (< i len)
- (setq chr (elt string i))
- (if (string-match "[A-Za-z0-9!*+/=_---]" (char-to-string chr))
- (setq l (+ l 1))
- (setq l (+ l 3))
- )
- (setq i (+ i 1)) )
- l))
-
-;;; @@ separate by character set
-;;;
-
-;; by mol. 1993/11/2
-(defconst LC-space 2)
-
-;; by mol. 1993/10/16
-(defun mime/char-type (chr)
- (if (or (= chr 32)(= chr ?\t))
- LC-space
- (get-lc chr)
- ))
-
-(defun mime/separate-string-by-chartype (string)
- (let ((len (length string))
- (dest nil) (ds "") s
- pcs i j cs chr)
- (if (= len 0) nil
- (progn
- (setq chr (elt string 0))
- (setq pcs (mime/char-type chr))
- (setq i (char-bytes chr))
- (setq ds (substring string 0 i))
- (while (< i len)
- (setq chr (elt string i))
- (setq cs (mime/char-type chr))
- (setq j (+ i (char-bytes chr)))
- (setq s (substring string i j))
- (setq i j)
- (if (= cs pcs)
- (setq ds (concat ds s))
- (progn (setq dest (append dest (list (cons pcs ds))))
- (setq pcs cs)
- (setq ds s)
- ))
- )
- (if (not (string= ds ""))
- (setq dest (append dest (list (cons pcs ds)))))
- dest)
- )))
-
-(defun mime/separate-string-by-charset (str)
- (let ((rl (mime/separate-string-by-chartype str))
- (i 1) len (pcell nil) cell ncell dpcell (dest nil) LC)
- (setq len (length rl))
- (setq dpcell (list (nth 0 rl)))
- (setq cell (nth 1 rl))
- (setq ncell (nth 2 rl))
- (while (< i len)
- (setq LC (car (car dpcell)))
- (cond ((and (not (eq LC lc-ascii))
- (eq (car cell) LC-space)
- (not (eq (car ncell) lc-ascii)))
- (setq dpcell (list (cons LC
- (concat (cdr (car dpcell)) (cdr cell))
- )))
- )
- ((and (not (eq LC lc-ascii))
- (eq LC (car cell)))
- (setq dpcell (list (cons LC
- (concat (cdr (car dpcell)) (cdr cell))
- )))
- )
- ((and (eq LC lc-ascii)
- (member (car cell) mime/latin-lc-list))
- (setq dpcell (list (cons (car cell)
- (concat (cdr (car dpcell)) (cdr cell))
- )))
- )
- ((and (member LC mime/latin-lc-list)
- (eq (car cell) lc-ascii))
- (setq dpcell (list (cons LC
- (concat (cdr (car dpcell)) (cdr cell))
- )))
- )
- (t
- (setq dest (append dest dpcell))
- (setq dpcell (list cell))
- ))
- (setq i (+ i 1))
- (setq cell ncell)
- (setq ncell (nth (+ i 1) rl))
- )
- (setq dest (append dest dpcell))
- ))
-
-(defun mime/separate-string-for-encoder (string)
- (let (lastspace)
- (if (string-match "[ \t]+$" string)
- (progn
- (setq lastspace (substring string
- (match-beginning 0)
- (match-end 0)))
- (setq string (substring string 0 (match-beginning 0)))
- ))
- (let ((rl (mime/separate-string-by-charset string))
- (i 0) len cell0 cell1 cell2 (dest nil))
- (setq len (length rl))
- (setq cell0 (nth 0 rl))
- (setq cell1 (nth 1 rl))
- (setq cell2 (nth 2 rl))
- (while (< i len)
- (cond ((and (not (eq (car cell0) lc-ascii))
- (eq (car cell1) LC-space)
- (not (eq (car cell2) lc-ascii))
- )
- (setq dest
- (append dest (list
- (cons
- (cdr (assoc (car cell0)
- mime/lc-charset-and-encoding-alist))
- (concat (cdr cell0) (cdr cell1))
- ))))
- (setq i (+ i 2))
- (setq cell0 (nth i rl))
- (setq cell1 (nth (+ i 1) rl))
- (setq cell2 (nth (+ i 2) rl))
- )
- (t
- (setq dest
- (append dest (list
- (cons
- (cdr (assoc (car cell0)
- mime/lc-charset-and-encoding-alist))
- (cdr cell0)))))
- (setq i (+ i 1))
- (setq cell0 cell1)
- (setq cell1 cell2)
- (setq cell2 (nth (+ i 2) rl))
- ))
- )
- (append dest
- (if lastspace
- (list (cons nil lastspace))))
- )))
-
-
-
-;;;
-;;; basic functions for MIME header decoder
-;;;
-
-;;; @ utility for decoder
-;;;
-
-(defun mime/unfolding ()
- (goto-char (point-min))
- (let (field beg end)
- (while (re-search-forward message/field-name-regexp nil t)
- (setq beg (match-beginning 0))
- (setq end (message/field-end))
- (setq field (buffer-substring beg end))
- (if (string-match mime/encoded-word-regexp field)
- (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)
- (goto-char (point-min))
- (while (re-search-forward
- (concat (regexp-quote "?=")
- "\\s +"
- (regexp-quote "=?"))
- nil t)
- (replace-match "?==?")
- )
- )
-
-(run-hooks 'mime/tiny-mime-load-hook)
-
-(provide 'tiny-mime)
-
-;;; @
-;;; Local Variables:
-;;; mode: emacs-lisp
-;;; mode: outline-minor
-;;; outline-regexp: ";;; @+\\|(......"
-;;; End:
+++ /dev/null
-;;;
-;;; $Id: tl-18.el,v 0.6 1994/08/01 05:07:03 morioka Exp $
-;;;
-
-(provide 'tl-18)
-
-(defun add-hook (hook function &optional append)
- "Add to the value of HOOK the function FUNCTION.
-FUNCTION is not added if already present.
-FUNCTION is added (if necessary) at the beginning of the hook list
-unless the optional argument APPEND is non-nil, in which case
-FUNCTION is added at the end.
-
-HOOK should be a symbol, and FUNCTION may be any valid function. If
-HOOK is void, it is first set to nil. If HOOK's value is a single
-function, it is changed to a list of functions."
- (or (boundp hook)
- (set hook nil)
- )
- ;; If the hook value is a single function, turn it into a list.
- (let ((old (symbol-value hook)))
- (if (or (not (listp old))
- (eq (car old) 'lambda))
- (set hook (list old))
- ))
- (or (if (consp function)
- ;; Clever way to tell whether a given lambda-expression
- ;; is equal to anything in the hook.
- (let ((tail (assoc (cdr function) (symbol-value hook))))
- (equal function tail)
- )
- (memq function (symbol-value hook))
- )
- (set hook
- (if append
- (nconc (symbol-value hook) (list function))
- (cons function (symbol-value hook))
- ))
- ))
-
-(defun member (elt list)
- "Return non-nil if ELT is an element of LIST. Comparison done with EQUAL.
-The value is actually the tail of LIST whose car is ELT."
- (while (and list (not (equal elt (car list))))
- (setq list (cdr list)))
- list)
+++ /dev/null
-;;;
-;;; $Id: tl-header.el,v 5.2 1994/12/07 07:29:33 morioka Exp $
-;;;
-
-(provide 'tl-header)
-
-(defconst message/quoted-string-regexp "\"[^\"]*\"")
-(defconst message/field-name-regexp "^[!-9;-~]+:")
-(defconst message/field-body-regexp ".*\\(\n[ \t].*\\)*")
-(defconst message/field-regexp
- (concat message/field-name-regexp
- message/field-body-regexp))
-(defconst message/word-regexp "[!#-'*+0-9=?A-Z^-~---]+")
-(defconst message/local-part-regexp
- (concat message/word-regexp "\\(\\." message/word-regexp "\\)*"))
-(defconst message/domain-regexp (concat "@" message/local-part-regexp))
-(defconst message/addr-spec-regexp
- (concat message/local-part-regexp "\\(" message/domain-regexp "\\)?"))
-
-(defun message/get-field-body (name)
- (save-excursion
- (save-restriction
- (goto-char (point-min))
- (if (re-search-forward (concat "^" name ":[ \t]*") nil t)
- (buffer-substring
- (match-end 0)
- (and (re-search-forward message/field-body-regexp nil t)
- (match-end 0))
- )))))
-
-(defun message/divide-field (str)
- (let (field-name field-body)
- (if (string-match message/field-name-regexp str)
- (progn
- (setq field-name (substring str 0 (match-end 0)))
- (setq field-body (substring str (match-end 0)))
- (if (string-match "^[ \t]+" field-body)
- (setq field-body (substring field-body (match-end 0)))
- )
- (list field-name field-body)
- ))))
-
-(defun message/parse-addr-spec (str)
- (if (string-match "^\\s +" str)
- (setq str (substring str (match-end 0)))
- )
- (if (eq (string-match message/addr-spec-regexp str) 0)
- (list (list (substring str 0 (match-end 0)))
- (substring str (match-end 0))
- )
- ))
-
-(defun message/parse-phrase-route-addr (str)
- (let ((p (and (string-match "^\\(\".*\"\\|[^,]\\)*<" str)
- (match-end 0)))
- phrase ad)
- (if (and p
- (setq ad (message/parse-addr-spec (substring str p)))
- (eq (elt (nth 1 ad) 0) ?>))
- (list (list (substring str 0 (- p 1))
- "<"
- (car (car ad))
- ">")
- (substring (nth 1 ad) 1)
- )
- nil)
- ))
-
-(defun message::match-ctexts (str)
- (if (string-match "^[^()\\\\]+" str)
- (let ((e (match-end 0)))
- (list (substring str 0 e)(substring str e))
- )))
-
-(defun message::match-comment (str)
- (catch 'tag
- (if (and (>= (length str) 2)
- (= (elt str 0) ?\()
- )
- (let ((dest "") ret)
- (setq str (substring str 1))
- (while (cond ((string= str "")
- (throw 'tag nil)
- )
- ((not (= (elt str 0) ?\)))
- (setq ret (or (message::match-ctexts str)
- (message::match-comment str)
- ))
- ))
- (setq dest (concat dest (car ret)))
- (setq str (nth 1 ret))
- )
- (if (= (elt str 0) ?\))
- (list (concat "(" dest ")") (substring str 1))
- )
- ))))
-
-(defun message/parse-comment (str)
- (if (string-match "^\\s +" str)
- (setq str (substring str (match-end 0)))
- )
- (let ((ret (message::match-comment str)))
- (if ret
- (list (list "(" (substring (car ret) 1 (- (length (car ret)) 1))
- ")")
- (nth 1 ret)
- )
- )))
-
-(defun message/parse-address (str)
- (let ((ret (or
- (message/parse-phrase-route-addr str)
- (message/parse-addr-spec str)
- ))
- n rest type cret)
- (if ret
- (progn
- (setq rest (cdr ret))
- (setq cret (message/parse-comment (car rest)))
- (if cret
- (list (append (car ret) (car cret))
- (cdr cret))
- (list (car ret) rest)
- )
- ))
- ))
-
-(defun message/parse-addresses (str)
- (let (dest
- (ret (message/parse-address str))
- rs)
- (if ret
- (progn
- (setq dest (list (car ret)))
- (setq rs (car (nth 1 ret)))
- (while (and (string-match "^\\s *,\\s *" rs)
- (setq ret (message/parse-address
- (substring rs (match-end 0))))
- )
- (setq dest (append dest (list (car ret))))
- (setq rs (car (nth 1 ret)))
- )
- (if (string-match "^\\s *$" rs)
- dest)
- ))
- ))
-
-(defun message/unfolding-string (str)
- (let ((dest ""))
- (while (string-match "\n\\s +" str)
- (setq dest (concat dest (substring str 0 (match-beginning 0)) " "))
- (setq str (substring str (match-end 0)))
- )
- (concat dest str)
- ))
-
-(defun message/strip-quoted-string (str)
- (let ((max (- (length str) 1))
- )
- (if (and (eq (elt str 0) ?\")
- (eq (elt str max) ?\")
- )
- (substring str 1 max)
- str)))
+++ /dev/null
-;;;
-;;; $Id: tl-list.el,v 2.5 1994/12/27 01:49:41 morioka Exp $
-;;;
-
-(provide 'tl-list)
-
-(require 'tl-str)
-
-
-;;; @ list
-;;;
-
-(defun last (list)
- "Returns the last element in the list <LIST>.
-[mol's Common Lisp emulating function]"
- (nthcdr (- (length list) 1) list)
- )
-
-(defun butlast (x &optional n)
- "Returns a copy of LIST with the last N elements removed.
-[tl-list.el: imported from cl.el]"
- (if (and n (<= n 0)) x
- (nbutlast (copy-sequence x) n)))
-
-(defun nbutlast (x &optional n)
- "Modifies LIST to remove the last N elements.
-[tl-list.el: imported from cl.el]"
- (let ((m (length x)))
- (or n (setq n 1))
- (and (< n m)
- (progn
- (if (> n 0) (setcdr (nthcdr (- (1- m) n) x) nil))
- x))))
-
-
-(defun nth-prev (n ls)
- "Return elements of LS until N - 1 th. [tl-list.el]"
- (butlast ls (- (length ls) n))
- )
-
-(defun except-nth (n ls)
- "Return elements of LS except N th. [tl-list.el]"
- (append (nth-prev n ls) (nthcdr (+ 1 n) ls))
- )
-
-(defun last-element (ls)
- "Return last element. [tl-list.el]"
- (car (last ls))
- )
-
-
-;;; @ set
-;;;
-(fset 'is-member 'member)
-
-
-;;; @ alist
-;;;
-
-(defun put-alist (item value alist)
- "If there is a pair whose car is <ITEM>, replace its cdr by <VALUE>.
-If there is not such pair, create new pair (<ITEM> . <VALUE>) and
-return new alist whose car is the new pair and cdr is <ALIST>.
-[mol's ELIS emulating function]"
- (if (assoc item alist)
- (progn
- (rplacd (assoc item alist) value)
- alist)
- (cons (cons item value) alist)
- ))
-
-(defun del-alist (item alist)
- "If there is a pair whose key is <ITEM>, delete it from <ALIST>.
-[mol's ELIS emulating function]"
- (if (equal item (car (car alist)))
- (cdr alist)
- (let ((pr alist)
- (r (cdr alist))
- )
- (catch 'tag
- (while (not (null r))
- (if (equal item (car (car r)))
- (progn
- (rplacd pr (cdr r))
- (throw 'tag alist)))
- (setq pr r)
- (setq r (cdr r))
- )
- alist))))
-
-(defun set-alist (sym item value)
- (if (not (boundp sym))
- (set sym nil)
- )
- (set sym (put-alist item value (eval sym)))
- )
-
-
-;;; @ field
-;;;
-
-(defun fetch-field (key alist)
- (assoc key alist)
- )
-
-(defun fetch-field-value (key alist)
- (cdr (assoc key alist))
- )
-
-(fset 'put-field 'put-alist)
-(fset 'delete-field 'del-alist)
-
-(defun put-fields (tp c)
- (catch 'tag
- (let ((r tp) f ret)
- (while r
- (setq f (car r))
- (if (not (if (setq ret (fetch-field (car f) c))
- (equal (cdr ret)(cdr f))
- (setq c (cons f c))
- ))
- (throw 'tag 'error))
- (setq r (cdr r))
- ))
- c))
-
-
-;;; @ field unifier
-;;;
-
-(defun field-unifier-for-default (a b)
- (let ((ret
- (cond ((equal a b) a)
- ((null (cdr b)) a)
- ((null (cdr a)) b)
- )))
- (if ret
- (list nil ret nil)
- )))
-
-(defun field-unify (a b)
- (let ((sym (symbol-concat "field-unifier-for-" (car a))))
- (if (not (fboundp sym))
- (setq sym (function field-unifier-for-default))
- )
- (funcall sym a b)
- ))
-
-
-;;; @ type unifier
-;;;
-
-(defun assoc-unify (class instance)
- (catch 'tag
- (let ((cla (copy-alist class))
- (ins (copy-alist instance))
- (r class)
- cell aret ret prev rest)
- (while r
- (setq cell (car r))
- (setq aret (fetch-field (car cell) ins))
- (if aret
- (if (setq ret (field-unify cell aret))
- (progn
- (if (car ret)
- (setq prev (put-field (car (car ret))
- (cdr (car ret))
- prev))
- )
- (if (nth 2 ret)
- (setq rest (put-field (car (nth 2 ret))
- (cdr (nth 2 ret))
- rest))
- )
- (setq cla (put-field (car cell)(cdr (nth 1 ret)) cla))
- (setq ins (delete-field (car cell) ins))
- )
- (throw 'tag nil)
- ))
- (setq r (cdr r))
- )
- (setq r (copy-alist ins))
- (while r
- (setq cell (car r))
- (setq aret (fetch-field (car cell) cla))
- (if aret
- (if (setq ret (field-unify cell aret))
- (progn
- (if (car ret)
- (setq prev (put-field (car (car ret))
- (cdr (car ret))
- prev))
- )
- (if (nth 2 ret)
- (setq rest (put-field (car (nth 2 ret))
- (cdr (nth 2 ret))
- rest))
- )
- (setq cla (delete-field (car cell) cla))
- (setq ins (put-field (car cell)(cdr (nth 1 ret)) ins))
- )
- (throw 'tag nil)
- ))
- (setq r (cdr r))
- )
- (list prev (append cla ins) rest)
- )))
-
-(defun get-unified-alist (db al)
- (let ((r db) ret)
- (catch 'tag
- (while r
- (if (setq ret (nth 1 (assoc-unify (car r) al)))
- (throw 'tag ret)
- )
- (setq r (cdr r))
- ))))
-
-(defun set-atype (sym al)
- (if (null (boundp sym))
- (set sym al)
- (let ((ret (get-unified-alist (eval sym) al)))
- (if (not (equal ret al))
- (set sym (cons al (eval sym)))
- ))))
+++ /dev/null
-;;;
-;;; $Id$
-;;;
-
-(provide 'tl-mule)
-
-(defun get-lc (chr)
- "Return leading character of CHAR or LEADING-CHARACTER."
- (if (< chr 128)
- lc-ascii
- chr))
+++ /dev/null
-;;;
-;;; $Id: tl-nemacs.el,v 2.0 1994/10/29 18:31:55 morioka Exp $
-;;;
-
-(provide 'tl-nemacs)
-
-
-;;; @ constants
-;;;
-
-(defconst *junet* 2)
-(defconst *internal* 3)
-(defconst *euc-japan* 3)
-
-(defconst lc-ascii 0)
-(defconst lc-jp 146)
-
-;; by mol. 1993/9/26
-(defun string-width (str)
- "Return number of columns STRING will occupy.
- [Mule compatible function in tm-nemacs]"
- (length str))
-
-(defun char-bytes (chr)
- "Return number of bytes CHAR will occupy in a buffer.
- [Mule compatible function in tm-nemacs]"
- (if (< chr 128) 1 2))
-
-(defun char-width (chr)
- "Return number of columns CHAR will occupy when displayed.
- [Mule compatible function in tm-nemacs]"
- (if (< chr 128) 1 2))
-
-(defun code-convert-string (str ic oc)
- "Convert code in STRING from SOURCE code to TARGET code,
-On successful converion, returns the result string,
-else returns nil. [Mule compatible function in tm-nemacs]"
- (if (not (eq ic oc))
- (convert-string-kanji-code str ic oc)
- str))
-
-(defun check-ASCII-string (str)
- (let ((i 0)
- len)
- (setq len (length str))
- (catch 'label
- (while (< i len)
- (if (>= (elt str i) 128)
- (throw 'label nil))
- (setq i (+ i 1))
- )
- str)))
-
-(defun get-lc (chr)
- "Return leading character of CHAR or LEADING-CHARACTER."
- (if (< chr 128)
- lc-ascii
- lc-jp))
-
-
-;; by YAMATE Keiichirou 1994/10/28
-(defun attribute-add-narrow-attribute (attr from to)
- (or (consp (symbol-value attr))
- (set attr (list 1)))
- (let* ((attr-value (symbol-value attr))
- (len (car attr-value))
- (posfrom 1)
- posto)
- (while (and (< posfrom len)
- (> from (nth posfrom attr-value)))
- (setq posfrom (1+ posfrom)))
- (setq posto posfrom)
- (while (and (< posto len)
- (> to (nth posto attr-value)))
- (setq posto (1+ posto)))
- (if (= posto posfrom)
- (if (= (% posto 2) 1)
- (if (and (< to len)
- (= to (nth posto attr-value)))
- (set-marker (nth posto attr-value) from)
- (setcdr (nthcdr (1- posfrom) attr-value)
- (cons (set-marker-type (set-marker (make-marker)
- from)
- 'point-type)
- (cons (set-marker-type (set-marker (make-marker)
- to)
- nil)
- (nthcdr posto attr-value))))
- (setcar attr-value (+ len 2))))
- (if (= (% posfrom 2) 0)
- (setq posfrom (1- posfrom))
- (set-marker (nth posfrom attr-value) from))
- (if (= (% posto 2) 0)
- nil
- (setq posto (1- posto))
- (set-marker (nth posto attr-value) to))
- (setcdr (nthcdr posfrom attr-value)
- (nthcdr posto attr-value)))))
+++ /dev/null
-;;;
-;;; $Id: tl-orig.el,v 1.2 1994/10/20 00:37:48 morioka Exp $
-;;;
-
-(provide 'tl-orig)
-
-
-;;; @ constants
-;;;
-(defconst lc-ascii 0)
-(defconst lc-ltn1 129)
-
-
-;;; @ functions
-;;;
-
-(defun get-lc (chr)
- "Return leading character of CHAR or LEADING-CHARACTER."
- (if (< chr 128)
- lc-ascii
- lc-ltn1))
-
-(defun string-width (str) (length str))
-(defun char-bytes (chr) 1)
-(defun char-width (chr) 1)
+++ /dev/null
-;;;
-;;; $Id: tl-str.el,v 3.2 1994/12/19 10:03:57 morioka Exp $
-;;;
-
-(provide 'tl-str)
-
-
-;;; @@ about rightful dividing for multi-octet string
-;;;
-;; by mol. 1993/9/26
-(defun rightful-boundary-short-string (str width)
- (substring str 0
- (let ((i 0) (w 0) chr (len (length str)))
- (catch 'label
- (while (< i len)
- (setq chr (elt str i))
- (setq w (+ w (char-width chr)))
- (if (> w width)
- (throw 'label i))
- (setq i (+ i (char-bytes chr)))
- )
- i))
- ))
-
-
-;;; @@ RCS version
-;;;
-
-(defun get-version-string (id)
- (and (string-match "[0-9][0-9.]*" id)
- (substring id (match-beginning 0)(match-end 0))
- ))
-
-
-;;; @@ file name
-;;;
-(defun replace-as-filename (str)
- (let ((dest "")
- (i 0)(len (length str))
- chr)
- (while (< i len)
- (setq chr (elt str i))
- (if (or (and (<= ?+ chr)(<= chr ?.))
- (and (<= ?0 chr)(<= chr ?:))
- (= chr ?=)
- (and (<= ?@ chr)(<= chr ?\[))
- (and (<= ?\] chr)(<= chr ?_))
- (and (<= ?a chr)(<= chr ?{))
- (and (<= ?} chr)(<= chr ?~))
- )
- (setq dest (concat dest
- (char-to-string chr)))
- )
- (setq i (+ i 1))
- )
- dest))
-
-
-;;; @@ message editing utilities
-;;;
-(defvar cited-prefix-regexp "^[^ \t>]*[>|]+[ \t#]*")
-
-(defun fill-cited-region (beg end)
- (interactive "*r")
- (save-excursion
- (save-restriction
- (goto-char end)
- (while (not (eolp))
- (backward-char)
- )
- (setq end (point))
- (narrow-to-region beg end)
- (goto-char (point-min))
- (let* ((fill-prefix
- (and (re-search-forward cited-prefix-regexp nil t)
- (or (re-search-forward cited-prefix-regexp nil t)
- t)
- (buffer-substring (match-beginning 0)
- (match-end 0)
- )))
- (pat (concat "\n" fill-prefix))
- )
- (goto-char (point-min))
- (while (search-forward pat nil t)
- (replace-match "")
- )
- (goto-char (point-min))
- (fill-region (point-min) (point-max))
- ))))
-
-(defun replace-top-string (&optional old new)
- (interactive)
- (if (null old)
- (setq old (read-string "old string is ? "))
- )
- (if (null new)
- (setq new (read-string "new string is ? "))
- )
- (while (re-search-forward (concat "^" (regexp-quote old)) nil t)
- (replace-match new)
- ))
-
-
-;;; @@ jinn compatible functions
-;;;
-
-(defun symbol-concat (&rest args)
- (intern (apply (function concat)
- (mapcar (function
- (lambda (s)
- (cond ((symbolp s) (symbol-name s))
- ((stringp s) s)
- )
- ))
- args)))
- )
-
-(defun top-string-match (pat str)
- (if (string-match
- (concat "^" (regexp-quote pat))
- str)
- (list pat (substring str (match-end 0)))
- ))
-
-(defun middle-string-match (pat str)
- (if (equal pat str)
- (list nil pat nil)
- (if (string-match (regexp-quote pat) str)
- (let ((b (match-beginning 0))
- (e (match-end 0)) )
- (list (if (not (= b 0))
- (substring str 0 b)
- )
- pat
- (if (> (length str) e)
- (substring str e)
- )
- )))))
+++ /dev/null
-[[R
-\title{tm-body manual (English Version)}
-\author{Morioka Tomohiko}
-\date{1994/7/22}
-\maketitle
-]]R
-
-* Install
-
- Installing method is written in README-eng.ol. Please read it and
-install.
-
-** tiny-mime.el
-
- Please copy tiny-mime.el to your Emacs lisp directory.
-
-
-** tm-body
-
-*** *.el
-
- Please copy tm-body.el, tl-list.el and tl-header.el to your Emacs
-lisp directory.
-
-*** methods
-
- Please edit methods for your environment, and copy to your
-executable directory.
-
-
-*** decode-b.c
-
- Please compile decode-b.c by gcc or another ANSI C.
-
-[[E
- % gcc -O decode-b.c -o decode-b
-]]E
-
- And please copy decode-b to your executable directory.
-
- However, if you have another decoder (e.g. mmencode in metamail),
-you can replace decode-b (e.g. You can replace `decode-b <' by
-`mmencode -b -u' in methods).
-
-
-* Customize
-
- You can designate methods of Content-Types if you set variable
-`mime/content-decoding-method-alist' in .emacs.
-
-[[E
-----------------------------------------------------------------------
-(setq mime/content-decoding-method-alist
- '(("audio/basic" . "tm-au")
- ("image/gif" . "tm-image")
- ("image/jpeg" . "tm-image")
- ("image/x-pic" . "tm-image")
- ("video/mpeg" . "tm-mpeg")
- ("application/octet-stream" . "tm-file")
- ("text/x-latex" . "tm-latex")
- ))
-----------------------------------------------------------------------
-]]E
-
- Each methods are shell scripts. Arguments of methods are written in
-following table.
-
-----------------------------------------------------------------------------
-|argument| value |
-============================================================================
-| $1 |temporary file name of encoded content |
-| $2 |Content-Type (type/sub-type) |
-| $3 |encoding {7bit / quoted-printable / base64 / 8bit / binary / ...}|
-| $4 |decoding-mode {play / extract / print} |
-| $5 |original file name of content |
-----------------------------------------------------------------------------
-
- Each Content-Types are decoded by methods. Exceptionally,
-message/partial is decoded by tm-body.el.
-
-
-* Limitation or bug
-
- In this version, message/external-body is not supported.
-
- Attached base64 decoder `decode-b.c' is not good program, so if it
-can run normally, please correct it. But It is easy because decode-b.c
-is too small, so please...(^_^;
-
- Or you can use mmencode attached in metamail as decoder.
-
- In this package, there is no Quoted-Printable decoder, so please use
-mmencode.
+++ /dev/null
-\documentstyle[a4j]{jarticle}
-\setcounter{secnumdepth}{6}
-\setcounter{tocdepth}{6}
-\topsep=0.1cm
-\parsep=0.1cm
-\itemsep=0.0cm
-\begin{document}
-\title{tm-body manual (English Version)}
-\author{Morioka Tomohiko}
-\date{1994/7/22}
-\maketitle
-\medskip
-
-\section{Install}
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
- Installing method is written in README-eng.ol. Please read it and
-install.
-\end{verbatim}}
-\medskip
-
-\subsection{tiny-mime.el}
-\medskip
-\par
-Please copy tiny-mime.el to your Emacs lisp directory.
-\medskip
-\medskip
-
-\subsection{tm-body}
-\medskip
-
-\subsubsection{$*$.el}
-\medskip
-\par
-Please copy tm-body.el, tl-list.el and tl-header.el to your Emacs
-lisp directory.
-\medskip
-
-\subsubsection{methods}
-\medskip
-\par
-Please edit methods for your environment, and copy to your
-executable directory.
-\medskip
-\medskip
-
-\subsubsection{decode-b.c}
-\medskip
-\par
-Please compile decode-b.c by gcc or another ANSI C.
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
- % gcc -O decode-b.c -o decode-b
-\end{verbatim}}
-\medskip
-\par
-And please copy decode-b to your executable directory.
-\medskip
-\par
-However, if you have another decoder (e.g. mmencode in metamail),
-you can replace decode-b (e.g. You can replace `decode-b $<$' by
-`mmencode -b -u' in methods).
-\medskip
-\medskip
-
-\section{Customize}
-\medskip
-\par
-You can designate methods of Content-Types if you set variable
-`mime/content-decoding-method-alist' in .emacs.
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(setq mime/content-decoding-method-alist
- '(("audio/basic" . "tm-au")
- ("image/gif" . "tm-image")
- ("image/jpeg" . "tm-image")
- ("image/x-pic" . "tm-image")
- ("video/mpeg" . "tm-mpeg")
- ("application/octet-stream" . "tm-file")
- ("text/x-latex" . "tm-latex")
- ))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-Each methods are shell scripts. Arguments of methods are written in
-following table.
-\medskip
-~\\
-\begin{center}
-\begin{tabular}{|c|l|}
-\hline
-argument & \multicolumn{1}{|c|}{ value }\\
-\hline\hline
- \$1 & temporary file name of encoded content \\
- \$2 & Content-Type (type/sub-type) \\
- \$3 & encoding \{7bit / quoted-printable / base64 / 8bit / binary / ...\}\\
- \$4 & decoding-mode \{play / extract / print\} \\
- \$5 & original file name of content \\
-\hline
-\end{tabular}\\
-\end{center}
-\medskip
-\par
-Each Content-Types are decoded by methods. Exceptionally,
-message/partial is decoded by tm-body.el.
-\medskip
-\medskip
-
-\section{Limitation or bug}
-\medskip
-\par
-In this version, message/external-body is not supported.
-\medskip
-\par
-Attached base64 decoder `decode-b.c' is not good program, so if it
-can run normally, please correct it. But It is easy because decode-b.c
-is too small, so please...(\verb+^+\_\verb+^+;
-\medskip
-\par
-Or you can use mmencode attached in metamail as decoder.
-\medskip
-\par
-In this package, there is no Quoted-Printable decoder, so please use
-mmencode.
-\end{document}
+++ /dev/null
-\e$B!X\e(Btm-body \e$B@bL@=q!Y\e(B
-by. \e$B<i2,\e(B \e$BCNI'\e(B
-1994\e$BG/\e(B7\e$B7n\e(B14\e$BF|\e(B
-
-* install
-
- README \e$B$K=>$C$F\e(B install \e$B$r9T$J$C$F2<$5$$!#\e(B
-
-** tiny-mime \e$B$N\e(B install
-
- tiny-mime.el \e$B$r\e(B Emacs \e$B$NJQ?t\e(B load-path \e$B$G;XDj$5$l$?\e(B directory \e$B$K\e(B
-copy \e$B$7$^$9!#\e(B
-
-
-** tm-body \e$B$N\e(B install
-
-*** *.el \e$B$r\e(B copy \e$B$9$k\e(B
-
- tm-body.el, tl-list.el, tl-header.el \e$B$r\e(B Emacs \e$B$NJQ?t\e(B load-path \e$B$G;X\e(B
-\e$BDj$5$l$?\e(B directory \e$B$K\e(B copy \e$B$7$^$9!#\e(B
-
-
-*** method \e$B$r\e(B copy \e$B$9$k\e(B
-
- methods/ \e$B$KF~$C$F$$$k!"3F\e(B Content-Type \e$B$KBP1~$9$k\e(B method \e$B$r!"<+J,$N\e(B
-\e$B4D6-$K9g$o$;$F=$@5$7!"\e(Bpath \e$B$NDL$C$?\e(B directory \e$B$K\e(B copy \e$B$7$^$9!#\e(B
-
-
-*** decode-b.c \e$B$r\e(B compile \e$B$9$k\e(B
-
- Base64 decoder \e$B$G$"$k\e(B decode-b.c \e$B$r\e(B gcc \e$B$G\e(B compile \e$B$7$^$9!#\e(B
-
-[[E
- % gcc -O decode-b.c -o decode-b
-]]E
-
- \e$B$=$7$F!"=PMh>e$,$C$?\e(B decode-b \e$B$r\e(B path \e$B$NDL$C$?\e(B directory \e$B$K\e(B copy \e$B$7\e(B
-\e$B$^$9!#\e(B
-
- \e$BC"$7!"B>$N\e(B decoder\e$B!JNc$($P!"\e(Bmetamail \e$BImB0$N\e(B mmencode \e$B$J$I!K$,$"$l$P!"\e(B
-method \e$BCf$N\e(B decode-b \e$B$r$=$N\e(B decoder \e$B$GCV$-49$($F$b9=$$$^$;$s!#Nc$($P!"\e(B
-decode-b < \e$B$r\e(B mmencode -b -u \e$B$GCV$-49$($F$_$F\e(B\e$B2<$5$$!#\e(B
-
-
-* \e$B%+%9%?%^%$%:\e(B
-
- .emacs \e$B$K0J2<$N$h$&$J$b$N$rF~$l$F!"3F\e(B Content-Type \e$B$KBP1~$9$k\e(B method
-\e$B$r;XDj$9$k$3$H$,$G$-$^$9!#\e(B
-
-[[E
-----------------------------------------------------------------------
-(setq mime/content-decoding-method-alist
- '(("audio/basic" . "tm-au")
- ("image/gif" . "tm-image")
- ("image/jpeg" . "tm-image")
- ("image/x-pic" . "tm-image")
- ("video/mpeg" . "tm-mpeg")
- ("application/octet-stream" . "tm-file")
- ("text/x-latex" . "tm-latex")
- ))
-----------------------------------------------------------------------
-]]E
-
- \e$B3F\e(B method \e$B$O\e(B shell script \e$B$G=q$-$^$9!#\e(Btm-body.el \e$B$+$iEO$5$l$k0z?t$O\e(B
-\e$B0J2<$NDL$j$G$9!#\e(B
-
-------------------------------------------------------------------------
-|\e$B0z?t\e(B| \e$BCM\e(B |
-========================================================================
-| $1 |decode \e$BA0$N\e(B file \e$BL>\e(B |
-| $2 |Content-Type (type/sub-type) |
-| $3 |encoding {7bit / quoted-printable / base64 / 8bit / binary / ...}|
-| $4 |decoding-mode {play / extract / print} |
-| $5 |file \e$BL>\e(B |
-------------------------------------------------------------------------
-
- \e$B$^$?!"\e(Bmessage/partial \e$B$@$1$O\e(B tm-body.el \e$B<+?H$GI|85$7$^$9!#\e(B
-
-
-* \e$B@)8B\e(B
-
- message/external-body \e$B$K4X$7$F$O8=:_$N$H$3$m%5%]!<%H$7$F$$$^$;$s!#\e(B
-
- \e$BImB0$N\e(B BASE64 decoder \e$B$G$"$k\e(B decode-b.c \e$B$O$$$$2C8:$J:n$j$J$N$G!"F0$+\e(B
-\e$B$J$+$C$?$i!"C;$$%W%m%0%i%`$J$N$G!"0U$r5b$s$G=$@5$7$F2<$5$$!#\e(B(^_^;
-
- \e$B$^$?!"\e(Bmetamail \e$BImB0$N\e(B mmencode \e$B$r;H$C$F\e(B decode \e$B$7$F$bNI$$$G$7$g$&!#\e(B
-
- \e$B$^$?!"\e(BQuoted-Printable \e$B$N\e(B decoder \e$B$OImB0$7$^$;$s$N$G!"\e(Bmmencode \e$B$r;H$C\e(B
-\e$B$F2<$5$$!#\e(B
+++ /dev/null
-\documentstyle[a4j]{jarticle}
-\setcounter{secnumdepth}{6}
-\setcounter{tocdepth}{6}
-\topsep=0.1cm
-\parsep=0.1cm
-\itemsep=0.0cm
-\begin{document}
-\title{
-tm-body ÀâÌÀ½ñ}
-\author{
-¼é²¬ ÃÎɧ\\
-}
-\date{
-1994ǯ7·î14Æü}
-\maketitle
-\medskip
-
-\section{install}
-\medskip
-\par
-README ¤Ë½¾¤Ã¤Æ install ¤ò¹Ô¤Ê¤Ã¤Æ²¼¤µ¤¤¡£
-\medskip
-
-\subsection{tiny-mime ¤Î install}
-\medskip
-\par
-tiny-mime.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ directory ¤Ë
-copy ¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\subsection{tm-body ¤Î install}
-\medskip
-
-\subsubsection{$*$.el ¤ò copy ¤¹¤ë}
-\medskip
-\par
-tm-body.el, tl-list.el, tl-header.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»Ø
-Äꤵ¤ì¤¿ directory ¤Ë copy ¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\subsubsection{method ¤ò copy ¤¹¤ë}
-\medskip
-\par
-methods/ ¤ËÆþ¤Ã¤Æ¤¤¤ë¡¢³Æ Content-Type ¤ËÂбþ¤¹¤ë method ¤ò¡¢¼«Ê¬¤Î
-´Ä¶¤Ë¹ç¤ï¤»¤Æ½¤Àµ¤·¡¢path ¤ÎÄ̤ä¿ directory ¤Ë copy ¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\subsubsection{decode-b.c ¤ò compile ¤¹¤ë}
-\medskip
-\par
-Base64 decoder ¤Ç¤¢¤ë decode-b.c ¤ò gcc ¤Ç compile ¤·¤Þ¤¹¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
- % gcc -O decode-b.c -o decode-b
-\end{verbatim}}
-\medskip
-\par
-¤½¤·¤Æ¡¢½ÐÍè¾å¤¬¤Ã¤¿ decode-b ¤ò path ¤ÎÄ̤ä¿ directory ¤Ë copy ¤·
-¤Þ¤¹¡£
-\medskip
-\par
-⤷¡¢Â¾¤Î decoder¡ÊÎ㤨¤Ð¡¢metamail Éí°¤Î mmencode ¤Ê¤É¡Ë¤¬¤¢¤ì¤Ð¡¢
-method Ãæ¤Î decode-b ¤ò¤½¤Î decoder ¤ÇÃÖ¤´¹¤¨¤Æ¤â¹½¤¤¤Þ¤»¤ó¡£Î㤨¤Ð¡¢
-decode-b $<$ ¤ò mmencode -b -u ¤ÇÃÖ¤´¹¤¨¤Æ¤ß¤Æ²¼¤µ¤¤¡£
-\medskip
-\medskip
-
-\section{¥«¥¹¥¿¥Þ¥¤¥º}
-\medskip
-\par
-.emacs ¤Ë°Ê²¼¤Î¤è¤¦¤Ê¤â¤Î¤òÆþ¤ì¤Æ¡¢³Æ Content-Type ¤ËÂбþ¤¹¤ë method
-¤ò»ØÄꤹ¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(setq mime/content-decoding-method-alist
- '(("audio/basic" . "tm-au")
- ("image/gif" . "tm-image")
- ("image/jpeg" . "tm-image")
- ("image/x-pic" . "tm-image")
- ("video/mpeg" . "tm-mpeg")
- ("application/octet-stream" . "tm-file")
- ("text/x-latex" . "tm-latex")
- ))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-³Æ method ¤Ï shell script ¤Ç½ñ¤¤Þ¤¹¡£tm-body.el ¤«¤éÅϤµ¤ì¤ë°ú¿ô¤Ï
-°Ê²¼¤ÎÄ̤ê¤Ç¤¹¡£
-\medskip
-~\\
-\begin{center}
-\begin{tabular}{|c|l|}
-\hline
-°ú¿ô & \multicolumn{1}{|c|}{ ÃÍ }\\
-\hline\hline
- \$1 & decode Á°¤Î file ̾ \\
- \$2 & Content-Type (type/sub-type) \\
- \$3 & encoding \{7bit / quoted-printable / base64 / 8bit / binary / ...\}\\
- \$4 & decoding-mode \{play / extract / print\} \\
- \$5 & file ̾ \\
-\hline
-\end{tabular}\\
-\end{center}
-\medskip
-\par
-¤Þ¤¿¡¢message/partial ¤À¤±¤Ï tm-body.el ¼«¿È¤ÇÉü¸µ¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\section{À©¸Â}
-\medskip
-\par
-message/external-body ¤Ë´Ø¤·¤Æ¤Ï¸½ºß¤Î¤È¤³¤í¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤Þ¤»¤ó¡£
-\medskip
-\par
-Éí°¤Î BASE64 decoder ¤Ç¤¢¤ë decode-b.c ¤Ï¤¤¤¤²Ã¸º¤Êºî¤ê¤Ê¤Î¤Ç¡¢Æ°¤«
-¤Ê¤«¤Ã¤¿¤é¡¢Ã»¤¤¥×¥í¥°¥é¥à¤Ê¤Î¤Ç¡¢°Õ¤òµâ¤ó¤Ç½¤Àµ¤·¤Æ²¼¤µ¤¤¡£(\verb+^+\_\verb+^+;
-\medskip
-\par
-¤Þ¤¿¡¢metamail Éí°¤Î mmencode ¤ò»È¤Ã¤Æ decode ¤·¤Æ¤âÎɤ¤¤Ç¤·¤ç¤¦¡£
-\medskip
-\par
-¤Þ¤¿¡¢Quoted-Printable ¤Î decoder ¤ÏÉí°¤·¤Þ¤»¤ó¤Î¤Ç¡¢mmencode ¤ò»È¤Ã
-¤Æ²¼¤µ¤¤¡£
-\end{document}
+++ /dev/null
-;;;
-;;; $Id: tm-body.el,v 0.16 1994/08/20 12:38:07 morioka Exp $
-;;;
-
-(provide 'tm-body)
-
-(require 'tl-list)
-(require 'tl-header)
-(require 'tiny-mime)
-
-(defun replace-as-filename (str)
- (let ((dest "")
- (i 0)(len (length str))
- chr)
- (while (< i len)
- (setq chr (elt str i))
- (if (or (and (<= ?+ chr)(<= chr ?.))
- (and (<= ?0 chr)(<= chr ?:))
- (= chr ?=)
- (and (<= ?@ chr)(<= chr ?\[))
- (and (<= ?\] chr)(<= chr ?_))
- (and (<= ?a chr)(<= chr ?{))
- (and (<= ?} chr)(<= chr ?~))
- )
- (setq dest (concat dest
- (char-to-string chr)))
- )
- (setq i (+ i 1))
- )
- dest))
-
-(defconst mime/tspecials "\000-\040()<>@,;:\\\"/[\093?.=")
-(defconst mime/token-regexp
- (concat "[^" mime/tspecials "]*"))
-(defconst mime/content-type-subtype-regexp
- (concat mime/token-regexp "/" mime/token-regexp))
-(defconst mime/content-parameter-value-regexp
- (concat "\\("
- message/quoted-string-regexp
- "\\|[^; \t\n]\\)*"))
-
-(defconst mime/output-buffer-name "*MIME-out*")
-(defconst mime/decoding-buffer-name "*MIME-decoding*")
-
-(defvar mime/content-decoding-method-alist
- '(("text/plain" . "tm-plain")
- ("text/x-latex" . "tm-latex")
- ("audio/basic" . "tm-au")
- ("image/gif" . "tm-image")
- ("image/jpeg" . "tm-image")
- ("image/tiff" . "tm-image")
- ("image/x-tiff" . "tm-image")
- ("image/x-xbm" . "tm-image")
- ("image/x-pic" . "tm-image")
- ("video/mpeg" . "tm-mpeg")
- ("application/octet-stream" . "tm-file")
- ))
-
-(defvar mime/use-internal-decoder nil)
-;;; (setq mime/use-internal-decoder t)
-
-(defun mime/decode-body ()
- (interactive)
- (if (get-buffer mime/output-buffer-name)
- (kill-buffer mime/output-buffer-name))
- (save-excursion
- (save-restriction
- (goto-char (point-min))
- (let ((ctype (mime/Content-Type "^$"))
- (encoding (mime/Content-Transfer-Encoding "^$" "7bit"))
- )
- (if ctype
- (cond ((equal (car ctype) "multipart/mixed")
- (mime/decode-multipart/mixed ctype encoding)
- )
- ((equal (car ctype) "message/partial")
- (mime/decode-message/partial ctype encoding)
- )
- (t
- (mime/decode-content nil (car ctype) encoding
- (mime/get-name ctype))
- ))
- )))))
-
-(defun mime/decode-multipart/mixed (ctype default-encoding)
- (let ((boundary (cdr (assoc "boundary" (cdr ctype))))
- encoding b)
- (if (eq (elt boundary 0) ?\")
- (setq boundary
- (substring boundary 1 (- (length boundary) 1))
- ))
- (setq boundary (concat "^--" (regexp-quote boundary) "\\(--\\)?$"))
- (while (re-search-forward boundary nil t)
- (goto-char (point-min))
- (setq b (+ (match-end 0) 1))
- (goto-char b)
- (and (setq ctype (mime/Content-Type))
- (setq encoding
- (mime/Content-Transfer-Encoding boundary
- default-encoding))
- (mime/decode-content boundary
- (car ctype) encoding
- (mime/get-name ctype boundary)
- )
- )
- )))
-
-(defun mime/decode-message/partial (ctype default-encoding)
- (let ((root-dir (concat "/tmp/m-prts-" (user-login-name)))
- (id (cdr (assoc "id" (cdr ctype))))
- (number (cdr (assoc "number" (cdr ctype))))
- (total (cdr (assoc "total" (cdr ctype))))
- file
- (the-buf (current-buffer))
- )
- (if (not (file-exists-p root-dir))
- (shell-command (concat "mkdir " root-dir))
- )
- (setq id (replace-as-filename id))
- (setq root-dir (concat root-dir "/" id))
- (if (not (file-exists-p root-dir))
- (shell-command (concat "mkdir " root-dir))
- )
- (setq file (concat root-dir "/FULL"))
- (if (not (file-exists-p file))
- (progn
- (setq file (concat root-dir "/CT"))
- (if (not (file-exists-p file))
- (progn
- (if (get-buffer "*MIME-temp*")
- (kill-buffer "*MIME-temp*")
- )
- (switch-to-buffer "*MIME-temp*")
- (insert (concat total "\n"))
- (write-file file)
- (switch-to-buffer the-buf)
- ))
- (re-search-forward "^$")
- (goto-char (+ (match-end 0) 1))
- (setq file (concat root-dir "/" number))
- (write-region (point)
- (point-max)
- file)
- (if (get-buffer "*MIME-temp*")
- (kill-buffer "*MIME-temp*")
- )
- (switch-to-buffer "*MIME-temp*")
- (let ((i 1)
- (max (string-to-int total))
- )
- (catch 'tag
- (while (<= i max)
- (setq file (concat root-dir "/"
- (int-to-string i)
- ))
- (if (not (file-exists-p file))
- (throw 'tag nil))
- (insert-file-contents file)
- (goto-char (point-max))
- (setq i (+ i 1))
- )
- (write-file (concat root-dir "/FULL"))
- (mime/decode-body)
- (kill-buffer "FULL")
- ))
- (switch-to-buffer the-buf)
- )
- (progn
- (find-file file)
- (mime/decode-body)
- (kill-buffer "FULL")
- ))
- ))
-
-(defun mime/narrow-to-content (boundary)
- (if boundary
- (progn
- (narrow-to-region (point)
- (progn
- (re-search-forward boundary nil t)
- (match-beginning 0)
- ))
- (goto-char (point-min))
- )))
-
-(defun mime/get-name (ctype &optional boundary)
- (save-excursion
- (save-restriction
- (mime/narrow-to-content boundary)
- (replace-as-filename
- (or (cdr (assoc "name" (cdr ctype)))
- (cdr (assoc "x-name" (cdr ctype)))
- (message/get-field-body "Content-Description")
- ""))
- )))
-
-(defun mime/Content-Type (&optional boundary)
- (save-excursion
- (save-restriction
- (mime/narrow-to-content boundary)
- (if (and (re-search-forward "^Content-Type:[ \t]*" nil t)
- (progn
- (narrow-to-region
- (point)
- (and (re-search-forward ".*\\(\n[ \t].*\\)*" nil t)
- (match-end 0))
- )
- (goto-char (point-min))
- (re-search-forward mime/content-type-subtype-regexp nil t)
- ))
- (let ((ctype
- (downcase
- (buffer-substring (match-beginning 0) (match-end 0))
- ))
- dest attribute value)
- (while (and (re-search-forward "[ \t\n]*;[ \t\n]*" nil t)
- (re-search-forward mime/token-regexp nil t)
- )
- (setq attribute
- (downcase
- (buffer-substring (match-beginning 0) (match-end 0))
- ))
- (if (and (re-search-forward "=[ \t\n]*" nil t)
- (re-search-forward mime/content-parameter-value-regexp
- nil t)
- )
- (setq dest
- (put-alist attribute
- (buffer-substring (match-beginning 0)
- (match-end 0))
- dest))
- )
- )
- (cons ctype dest)
- )))))
-
-(defun mime/Content-Transfer-Encoding (&optional boundary default-encoding)
- (save-excursion
- (save-restriction
- (mime/narrow-to-content boundary)
- (or
- (if (and (re-search-forward "^Content-Transfer-Encoding:[ \t]*" nil t)
- (re-search-forward mime/token-regexp nil t)
- )
- (downcase (buffer-substring (match-beginning 0) (match-end 0)))
- )
- default-encoding)
- )))
-
-(defun mime/base64-decode-region (beg end &optional buf filename)
- (let ((the-buf (current-buffer)) ret)
- (if (null buf)
- (setq buf (get-buffer-create mime/decoding-buffer-name))
- )
- (save-excursion
- (save-restriction
- (switch-to-buffer buf)
- (erase-buffer)
- (switch-to-buffer the-buf)
- (narrow-to-region beg end)
- (goto-char (point-min))
- (while (re-search-forward
- (concat "^"
- mime/Base64-encoded-text-regexp
- "$") nil t)
- (setq ret (mime/base64-decode-string
- (buffer-substring (match-beginning 0)
- (match-end 0)
- )))
- (switch-to-buffer buf)
- (insert ret)
- (switch-to-buffer the-buf)
- )))
- (if filename
- (progn
- (switch-to-buffer buf)
- (let ((kanji-flag nil)
- (mc-flag nil)
- (file-coding-system
- (if (featurep 'mule) *noconv*))
- )
- (write-file filename)
- (kill-buffer buf)
- (switch-to-buffer the-buf)
- )))
- ))
-
-(defun mime/decode-content (boundary ctype encoding name)
- (let ((method (cdr (assoc ctype mime/content-decoding-method-alist))))
- (if method
- (save-excursion
- (save-restriction
- (re-search-forward "^$")
- (goto-char (+ (match-end 0) 1))
- (let ((file (make-temp-name "/tmp/TM"))
- (b (point)) e
- )
- (setq e (if boundary
- (and (re-search-forward boundary nil t)
- (match-beginning 0))
- (point-max)
- ))
- (if (and (string= encoding "base64")
- mime/use-internal-decoder)
- (progn
- (mime/base64-decode-region b e nil file)
- (setq encoding "binary")
- )
- (write-region b e file)
- )
- (start-process method mime/output-buffer-name method file
- ctype (if encoding
- encoding
- "7bit")
- (if mime/body-decoding-mode
- mime/body-decoding-mode
- "decode")
- (replace-as-filename name))
- ))))))
-
-(defun mime/show-body-decoded-result ()
- (interactive)
- (if (get-buffer mime/output-buffer-name)
- (set-window-buffer (get-largest-window)
- mime/output-buffer-name)
- ))
+++ /dev/null
-\e$B2,It!w5~Bg$G$9!#\e(B
-
-In article <199408221831.DAA24174@melon.jaist.ac.jp>,
- \e$B<i2,\e(B \e$BCNI'\e(B (MORIOKA Tomohiko) <morioka@jaist.ac.jp> writes:
-
-\e$B<i2,\e(B> \e$B8=<BF(Hr$7$F!"Bg$-$J\e(B message \e$B$rH/Aw$9$k;~!"<+F0E*$K\e(B message/partial
-\e$B<i2,\e(B> \e$B7A<0$KJ,3d$7$F$/$l$k$b$N$r=q$-$^$7$?!#\e(B
-
-\e$BJXMx$J$N$G!"$9$3$72~NI\e(B(\e$B2~0-!)\e(B)\e$B$7$F$_$^$7$?!#\e(B
-
-1. mime-mode-exit \e$B$r>r7oIU$-$G8F$V$h$&$K$7!"\e(Bmime-mode \e$B0J30$G$b\e(B
- \e$B;H$($k$h$&$K$7$?!#\e(B
-
- \e$B:G6a\e(B mh-e 4.1 \e$B$N\e(B mh-edit-mhn \e$B$b;H$C$F$_$F$$$k$N$G!"\e(Bmime-mode \e$B0J30$G$b\e(B
- \e$B;H$($k$h$&$K$7$?$H$$$&$N$,F05!$G$9!#6KC<$K8@$($PIaCJ$O\e(B MIME \e$B$rA4A3;H$C$F\e(B
- \e$B$$$J$$?M$G$b!"<+F0J,3d$K$O;H$($k$H;W$$$^$9!#\e(B
-
-\e$B!t\e(B mh-edit-mhn \e$B$GJQ49$7$?8e\e(B mime/view-mode \e$B$KF~$C$F%W%l%S%e!<$7!"\e(B
- \e$B$&$^$/$$$C$F$J$+$C$?$i\e(B mh-revert-mhn-edit \e$B$G$d$jD>$9!"$H$$$&\e(B
- \e$B<j=g$O\e(B mime-mode \e$B$H\e(B metamail-* \e$B$h$j$O2wE,$G$9!#\e(B
-
-2. \e$B%X%C%@$H%\%G%#$N6h@Z$j$,6u9T$N>l9g$K$bBP1~$7$?!#\e(B
-
- mh-edit-mhn \e$B$N=PNO$O$3$N7A<0$J$N$G!"$d$`$rF@$:$=$&$7$^$7$?!#\e(B
-
-3. mime/draft-file-name \e$B$,\e(B nil \e$B$N$H$-$K;H$&%U%!%$%kL>$r0J2<$N$h$&$K$7$?!#\e(B
-
- (make-temp-name (expand-file-name "tm-draft" mime/tmp-dir))
-
-4. \e$BJ,3d$7$?%a%C%;!<%8$K$O!"$b$H$N\e(B Subject \e$B$N$&$7$m$K\e(B (1/3) \e$B$J$I$H$D$/\e(B
- \e$B$h$&$K$7$?!#\e(B
-
- \e$B6a$$>-Mh!"\e(Bsuper-pipe \e$B$d\e(B gnus-uu \e$B$N$h$&$K!"\e(Bmessage/partial \e$B$N$H$-$O$I\e(B
- \e$B$l$+$R$H$D$N5-;v$r$_$l$PB>$N$rC5$7$K9T$/5!G=$,\e(B tm-view.el \e$B$K<BAu$5$l$k\e(B
- \e$B$3$H$r4j$C$F$N$3$H$G$9\e(B ^_^
-
-
-
-\e$B$^$@5$$KF~$i$J$$E@$G$9$,!"\e(B
-
-1. \e$B$b$H$N\e(B(\e$B=q$-$+$1$N\e(B)\e$B%a%C%;!<%8$N%X%C%@$r$=$N$^$^Aw$C$F$7$^$&$N$G!"\e(B
- \e$BNc$($P\e(B MH \e$B$N>l9g!"\e(BBcc:, Dcc: Fcc: \e$B$J$IK\MhAw$C$?;~$K>C$($k\e(B
- \e$B$O$:$N$b$N$,FO$$$F$7$^$&\e(B(\e$B$H$/$K\e(B Bcc: \e$B$,8+$($k$N$OLdBj\e(B)\e$B!#\e(B
- \e$B1#$9%U%#!<%k%I$r;XDj$G$-$k$h$&$K$9$Y$-!#\e(B
-
-2. \e$B@8@.$5$l$k\e(B id \e$B$,D9$C$?$i$7$/$F$+$C$30-$$!#\e(B
- (\e$BNc$($P\e(B GNUS \e$B$N\e(B message-id \e$B@8@.%k!<%A%s$rE>MQ$7$F$O$I$&$+\e(B)
-
-\e$B$J$I$,$"$j$^$9!#\e(B
-
-\e$B<i2,\e(B> \e$B$^$?!"\e(Bmessage \e$B$N:GBg9T?t$rJQ?t\e(B mime/message-max-length \e$B$G;XDj$G$-$^\e(B
-\e$B<i2,\e(B> \e$B$9!#$H$j$"$($:!"\e(Bdefault \e$B$G$O\e(B 1000 \e$B9T$K$7$F$"$j$^$9$,!"$3$l$K4X$9$k0lHL\e(B
-\e$B<i2,\e(B> \e$BE*$JCM$O$"$k$s$G$7$g$&$+!)\e(B
-
-\e$B9T?t$h$j$O%P%$%H?t$,Bg;v$J$O$:$G!"$h$/8@$o$l$k$N$O\e(B1\e$BDL$"$?$j\e(B50KB\e$B$rD6$(\e(B
-\e$B$J$$$h$&$K$H$$$&@)Ls$G$9$M\e(B(\e$B$&$A$N%;%s%?!<$NMxMQ$N<j0z$K$b$=$&=q$$$F$"\e(B
-\e$B$j$^$7$?\e(B)\e$B!#5pBg$J%a!<%k$NB?$/$O%P%$%J%j%U%!%$%k$NE>Aw$G!"Cf?H$O\e(B base64
-\e$B$G0l9T\e(B80\e$B;z<e$K$J$C$F$$$k$H2>Dj$9$k$H!"\e(B600 \e$B9T6/$K$"$?$j$^$9!#$7$+$7\e(B50KB
-\e$B0J>e$N$b$N$ODL$i$J$$$h$&$K$J$C$F$$$k$H$$$&$o$1$G$O$J$/C1$K0BA4$d8zN($r\e(B
-\e$B9M$($F$NCM$G$7$g$&$+$i!"\e(Bsplit \e$B$NI8=`CM$G$b$"$k\e(B 1000 \e$B$GLdBj$J$$$H;W$$$^$9!#\e(B
------
-\e$B2,It<wCK!w5~ETBg3XBg7?7W;;5!%;%s%?!<8&5f3+H/It\e(B
+++ /dev/null
-;;;
-;;; tm-comp.el --- attachment for MIME composer
-;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1994,1995 MORIOKA Tomohiko
-;;; Copyright (C) 1994,1995 OKABE Yasuo
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>,
-;;; OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
-;;; modified by MORITA Masahiro <hiro@isl.ntt.JP>
-;;; Kazushi (Jam) MARUKAWA <kazusi-m@is.aist-nara.ac.jp>,
-;;; KOBAYASHI Shuhei <shuhei@cmpt01.phys.tohoku.ac.jp>,
-;;; YAMAOKA Katsumi <yamaoka@ga.sony.co.jp>,
-;;; and Richard Stanton <stanton@haas.berkeley.edu>
-;;; Keywords: mail, news, MIME, multimedia
-;;;
-;;; This file is part of tm (Tools for MIME).
-;;;
-
-(require 'tm-view)
-(require 'tl-822)
-(require 'tl-list)
-(require 'mail-utils)
-
-
-;;; @ version
-;;;
-
-(defconst mime/composer-RCS-ID
- "$Id: tm-comp.el,v 7.2 1995/10/08 09:31:05 morioka Exp $")
-
-(defconst mime/composer-version (get-version-string mime/composer-RCS-ID))
-
-
-;;; @ variables
-;;;
-
-(defvar mime/message-default-max-length 1000)
-
-(defvar mime/message-max-length-alist
- '((news-reply-mode . 500)))
-
-(defconst mime/message-nuke-headers
- "\\(^Content-\\|^Subject:\\|^MIME-Version:\\)")
-(defvar mime/message-blind-headers "\\(^[BDFbdf]cc:\\|^cc:[ \t]*$\\)")
-
-(defvar mime/message-default-sender-alist
- '((mail-mode . mail-send-and-exit)
- (mh-letter-mode . mh-send-letter)
- (news-reply-mode . gnus-inews-news)))
-
-(defvar mime/message-sender-alist
- '((mail-mode . (lambda ()
- (interactive)
- (sendmail-send-it)
- ))
- (mh-letter-mode . (lambda (&optional arg)
- (interactive "P")
- (write-region (point-min) (point-max)
- mime/draft-file-name)
- (message
- (format "Sending %d/%d..." (+ i 1) total))
- (cond (arg
- (pop-to-buffer "MH mail delivery")
- (erase-buffer)
- (mh-exec-cmd-output mh-send-prog t "-watch" "-nopush"
- "-nodraftfolder" mh-send-args mime/draft-file-name)
- (goto-char (point-max)) ; show the interesting part
- (recenter -1)
- (sit-for 1))
- (t
- (apply 'mh-exec-cmd-quiet t mh-send-prog
- (mh-list-to-string
- (list "-nopush" "-nodraftfolder" "-noverbose" "-nowatch" mh-send-args mime/draft-file-name)))))
- (message
- (format "Sending %d/%d... done" (+ i 1) total))
- ))
- ))
-
-
-(defvar mime/window-config-alist
- '((mail-mode . nil)
- (mh-letter-mode . mh-previous-window-config)
- (news-reply-mode . (cond ((boundp 'gnus-winconf-post-news)
- (prog1
- gnus-winconf-post-news
- (setq gnus-winconf-post-news nil)
- ))
- ((boundp 'gnus-prev-winconf)
- (prog1
- gnus-prev-winconf
- (setq gnus-prev-winconf nil)
- ))
- ))
- ))
-
-(defvar mime/news-reply-mode-server-running nil)
-
-
-(defvar mime/message-before-send-hook-alist
- '((mh-letter-mode . mh-before-send-letter-hook)))
-
-(defvar mime/message-after-send-hook-alist
- '((mh-letter-mode . (lambda ()
- (if mh-annotate-char
- (mh-annotate-msg mh-sent-from-msg
- mh-sent-from-folder
- mh-annotate-char
- "-component" mh-annotate-field
- "-text"
- (format "\"%s %s\""
- (mh-get-field "To:")
- (mh-get-field "Cc:"))))))
- ))
-
-(defvar tm-comp/message-inserter-alist nil)
-
-
-;;; @ edit
-;;;
-
-(defun tm-comp::mime-insert-file (file)
- "Insert a message from a file."
- (interactive "fInsert file as MIME message: ")
- (let* ((guess (mime-find-file-type file))
- (pritype (nth 0 guess))
- (subtype (nth 1 guess))
- (parameters (nth 2 guess))
- (default (nth 3 guess)) ;Guess encoding from its file name.
- (encoding
- (if (not (interactive-p))
- default
- (completing-read
- (concat "What transfer encoding"
- (if default
- (concat " (default "
- (if (string-equal default "") "\"\"" default)
- ")"
- ))
- ": ")
- mime-transfer-encoders nil t nil))))
- (if (string-equal encoding "")
- (setq encoding default))
- (if (consp parameters)
- (let ((rest parameters) cell attribute value)
- (setq parameters "")
- (while rest
- (setq cell (car rest))
- (setq attribute (car cell))
- (setq value (cdr cell))
- (if (eq value 'file)
- (setq value (file-name-nondirectory file))
- )
- (setq parameters (concat parameters "; " attribute "=" value))
- (setq rest (cdr rest))
- )))
- (mime-insert-tag pritype subtype parameters)
- (mime-insert-binary-file file encoding)
- ))
-
-;; Insert the binary content after MIME tag.
-;; modified by MORITA Masahiro <hiro@isl.ntt.JP>
-;; for x-uue
-(defun tm-comp::mime-insert-binary-file (file &optional encoding)
- "Insert binary FILE at point.
-Optional argument ENCODING specifies an encoding method such as base64."
- (let ((tmpbuf (get-buffer-create " *MIME insert*")))
- (save-excursion
- (set-buffer tmpbuf)
- (erase-buffer)
- (let ((mc-flag nil) ;Mule
- (file-coding-system-for-read
- (if (featurep 'mule) *noconv*))
- (kanji-flag nil) ;NEmacs
- (emx-binary-mode t) ;Stop CRLF to LF conversion in OS/2
- )
- (let (jka-compr-compression-info-list
- jam-zcat-filename-list)
- (insert-file-contents file))))
- (prog1
- (if (and (stringp encoding)
- (string-equal (downcase encoding) "x-uue"))
- (let ((mime-transfer-encoders
- (copy-alist (cons (list "x-uue" "uuencode"
- (file-name-nondirectory file))
- mime-transfer-encoders))))
- (mime-insert-binary-buffer tmpbuf encoding))
- (mime-insert-binary-buffer tmpbuf encoding))
- (kill-buffer tmpbuf))))
-
-;; Insert the binary content after MIME tag.
-;; modified by MORITA Masahiro <hiro@isl.ntt.JP>
-;; for x-uue
-(defun tm-comp::mime-insert-binary-buffer (buffer &optional encoding)
- "Insert binary BUFFER at point.
-Optional argument ENCODING specifies an encoding method such as base64."
- (let* ((tagend (1- (point))) ;End of the tag
- (hide-p (and mime-auto-hide-body
- (stringp encoding)
- (let ((en (downcase encoding)))
- (or (string-equal en "base64")
- (string-equal en "x-uue")
- ))))
- )
- (save-restriction
- (narrow-to-region (1- (point)) (point))
- (let ((start (point))
- (emx-binary-mode t)) ;Stop LF to CRLF conversion in OS/2
- (insert-buffer-substring buffer)
- ;; Encode binary message if necessary.
- (if encoding
- (mime-encode-region encoding start (point-max))))
- (if hide-p
- (progn
- (mime-flag-region (point-min) (1- (point-max)) ?\^M)
- (goto-char (point-max)))
- ))
- ;; Define encoding even if it is 7bit.
- (if (stringp encoding)
- (save-excursion
- (goto-char tagend) ;Make sure which line the tag is on.
- (mime-define-encoding encoding)))
- ))
-
-
-(defun tm-comp/insert-message (&optional message)
- (interactive)
- (let ((inserter (assoc-value major-mode tm-comp/message-inserter-alist)))
- (if (and inserter (fboundp inserter))
- (progn
- (mime-insert-tag "message" "rfc822")
- (funcall inserter message)
- )
- (message "Sorry, I don't have message inserter for your MUA.")
- )))
-
-
-;;; @ split
-;;;
-
-(defun mime/split-and-send (&optional cmd)
- (interactive)
- (let ((mime/message-max-length
- (or (cdr (assq major-mode mime/message-max-length-alist))
- mime/message-default-max-length))
- (lines (count-lines (point-min) (point-max)))
- )
- (if (<= lines mime/message-max-length)
- (call-interactively
- (or cmd (cdr (assq major-mode mime/message-default-sender-alist))))
- (let* ((mime/draft-file-name
- (or (buffer-file-name)
- (make-temp-name (expand-file-name "tm-draft" mime/tmp-dir))))
- (separator mail-header-separator)
- (config (eval (cdr (assq major-mode mime/window-config-alist))))
- (id (concat "\""
- (replace-space-with-underline (current-time-string))
- "@" (system-name) "\"")))
-
- (let ((hook (cdr (assq major-mode
- mime/message-before-send-hook-alist))))
- (run-hooks hook))
- (let* ((header (rfc822/get-header-string-except
- mime/message-nuke-headers separator))
- (orig-header (rfc822/get-header-string-except
- mime/message-blind-headers separator))
- (subject (mail-fetch-field "subject"))
- (total (+ (/ lines mime/message-max-length)
- (if (> (mod lines mime/message-max-length) 0)
- 1)))
- (i 0)
- (l mime/message-max-length)
- (the-buf (current-buffer))
- (buf (get-buffer "*tmp-send*"))
- (command
- (or cmd
- (cdr (assq major-mode mime/message-sender-alist))
- (cdr (assq major-mode mime/message-default-sender-alist))))
- data)
- (goto-char (point-min))
- (if (re-search-forward (concat "^" (regexp-quote separator) "$")
- nil t)
- (replace-match "")
- )
- (if buf
- (progn
- (switch-to-buffer buf)
- (erase-buffer)
- (switch-to-buffer the-buf)
- )
- (setq buf (get-buffer-create "*tmp-send*"))
- )
- (switch-to-buffer buf)
- (make-variable-buffer-local 'mail-header-separator)
- (setq mail-header-separator separator)
- (switch-to-buffer the-buf)
- (goto-char (point-min))
- (re-search-forward "^$" nil t)
- (while (< i total)
- (setq buf (get-buffer "*tmp-send*"))
- (setq data (buffer-substring
- (point)
- (progn
- (goto-line l)
- (point))
- ))
- (switch-to-buffer buf)
- (insert header)
- (insert
- (format "Subject: %s (%d/%d)\n" subject (+ i 1) total))
- (insert
- (format "Mime-Version: 1.0 (split by tm-comp %s)\n"
- mime/composer-version))
- (insert
- (format
- "Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
- id (+ i 1) total separator))
- (if (eq i 0)
- (insert orig-header))
- (insert data)
- (save-excursion
- (call-interactively command))
- (erase-buffer)
- (switch-to-buffer the-buf)
- (setq l (+ l mime/message-max-length))
- (setq i (+ i 1))
- )
- )
- (let ((hook
- (cdr (assq major-mode mime/message-after-send-hook-alist))))
- (run-hooks 'hook))
- (set-buffer-modified-p nil)
- (cond ((y-or-n-p "Kill draft buffer? ")
- (kill-buffer (current-buffer))
- (if config
- (set-window-configuration config))))
- (message "")
- ))))
-
-(defun tm-comp::mime-mode-exit-and-run ()
- (interactive)
- (mime-mode-exit)
- (call-interactively 'mime/split-and-send)
- )
-
-
-;;; @ set up
-;;;
-
-(add-hook 'mime-mode-hook
- (function
- (lambda ()
- (if (not (fboundp 'original::mime-insert-file))
- (progn
- (fset 'original::mime-insert-file
- (symbol-function 'mime-insert-file))
- (fset 'mime-insert-file 'tm-comp::mime-insert-file)
- ))
- (if (not (fboundp 'original::mime-insert-binary-file))
- (progn
- (fset 'original::mime-insert-binary-file
- (symbol-function 'mime-insert-binary-file))
- (fset 'mime-insert-binary-file
- 'tm-comp::mime-insert-binary-file)
- ))
- (if (not (fboundp 'original::mime-insert-binary-buffer))
- (progn
- (fset 'original::mime-insert-binary-buffer
- (symbol-function 'mime-insert-binary-buffer))
- (fset 'mime-insert-binary-buffer
- 'tm-comp::mime-insert-binary-buffer)
- ))
- (if (not (fboundp 'original::mime-mode-exit-and-run))
- (progn
- (fset 'original::mime-mode-exit-and-run
- (symbol-function 'mime-mode-exit-and-run))
- (fset 'mime-mode-exit-and-run
- 'tm-comp::mime-mode-exit-and-run)
- ))
- (define-key (lookup-key (current-local-map) mime-prefix)
- "m" 'tm-comp/insert-message)
- )))
-
-
-;;; @ draft preview
-;;;
-;; by "OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
-;; Mon, 10 Apr 1995 20:03:07 +0900
-
-(defvar mime/draft-header-separator-alist
- '((news-reply-mode . mail-header-separator)
- (mh-letter-mode . mail-header-separator)
- ))
-
-(defvar mime::article/draft-header-separator nil)
-
-(defun mime/draft-preview ()
- (interactive)
- (let ((sep (assoc-value major-mode mime/draft-header-separator-alist)))
- (or (stringp sep) (setq sep (eval sep)))
- (make-variable-buffer-local 'mime::article/draft-header-separator)
- (goto-char (point-min))
- (re-search-forward
- (concat "^\\(" (regexp-quote sep) "\\)?$"))
- (setq mime::article/draft-header-separator
- (buffer-substring (match-beginning 0) (match-end 0)))
- (replace-match "")
- (mime/viewer-mode (current-buffer))
- (pop-to-buffer (current-buffer))
- ))
-
-(defun mime-viewer::quitting-method/draft-preview ()
- (let ((mother mime/mother-buffer))
- (save-excursion
- (switch-to-buffer mother)
- (goto-char (point-min))
- (if (and
- (re-search-forward
- (concat "^\\("
- (regexp-quote mime::article/draft-header-separator)
- "\\)?$") nil t)
- (bolp))
- (progn
- (insert mime::article/draft-header-separator)
- (set-buffer-modified-p (buffer-modified-p))
- )))
- (mime-viewer/kill-buffer)
- (pop-to-buffer mother)
- ))
-
-(set-alist 'mime-viewer/quitting-method-alist
- 'mh-letter-mode
- (function mime-viewer::quitting-method/draft-preview)
- )
-
-(set-alist 'mime-viewer/quitting-method-alist
- 'news-reply-mode
- (function mime-viewer::quitting-method/draft-preview)
- )
-
-
-;;; @ etc
-;;;
-
-(defun rfc822/get-header-string-except (pat boundary)
- (let ((case-fold-search t))
- (save-excursion
- (save-restriction
- (narrow-to-region (goto-char (point-min))
- (progn
- (re-search-forward
- (concat "^\\(" (regexp-quote boundary) "\\)?$")
- nil t)
- (match-beginning 0)
- ))
- (goto-char (point-min))
- (let (field header)
- (while (re-search-forward rfc822/field-top-regexp nil t)
- (setq field (buffer-substring (match-beginning 0)
- (rfc822/field-end)
- ))
- (if (not (string-match pat field))
- (setq header (concat header field "\n"))
- ))
- header)
- ))))
-
-(defun replace-space-with-underline (str)
- (mapconcat (function
- (lambda (arg)
- (char-to-string
- (if (= arg 32)
- ?_
- arg)))) str "")
- )
-
-
-;;; @ end
-;;;
-
-(provide 'tm-comp)
-
-(run-hooks 'tm-comp-load-hook)
+++ /dev/null
-;;;
-;;; $Id: tm-rich.el,v 2.2 1994/10/31 07:44:51 morioka Exp $
-;;;
-;;; by MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; modified by YAMATE Keiichirou <ics9118@sem1.info.osaka-cu.ac.jp>
-;;;
-
-(provide 'tm-enriched)
-
-(require 'tm-view)
-
-(defvar mime/text/enriched-face-list
- '("bold" "italic" "fixed" "underline"))
-
-(cond ((and (>= (string-to-int emacs-version) 19) window-system)
- (require 'hilit19)
- (defun mime/set-face-region (b e face)
- (let ((sym (intern face)))
- (if (eq sym 'italic)
- (setq sym 'modeline)
- )
- (if (member sym (face-list))
- (progn
- (hilit-unhighlight-region b e)
- (hilit-region-set-face b e sym)
- ))))
- )
- ((and (boundp 'NEMACS) NEMACS)
- (setq mime/text/enriched-face-list
- '("bold" "italic" "underline"))
- (setq mime/text/enriched-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/text/enriched-face-attribute-alist))
- beg end))
- )
- (t
- (setq mime/text/enriched-face-list
- nil)
- (defun mime/set-face-region (beg end sym)
- )
- ))
-
-(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/decode-text/enriched (&optional ctl)
- (interactive)
- (save-excursion
- (save-restriction
- (let ((beg (point-min)) (end (point-max)))
- (goto-char (point-min))
- (if (search-forward "\n\n" nil t)
- (setq beg (match-end 0))
- )
- (mime/decode-text/enriched-region beg end)
- ))))
-
-
-(set-alist 'mime/content-filter-alist
- "text/enriched" (function mime/decode-text/enriched))
-
-(set-alist 'mime/content-filter-alist
- "text/richtext" (function mime/decode-text/enriched))
-
+++ /dev/null
-;;;
-;;; $Id: tm-evs.el,v 2.0 1995/06/10 19:33:26 morioka Exp $
-;;;
-;;; a tm-view internal method
-;;; for JAIST-Course-Evaluation questionnaire
-;;;
-
-(require 'tm-view)
-
-(defvar questionnaire-result-alist nil)
-
-(defun mime-viewer/filter-questionnaire (ctype params &optional encoding)
- (goto-char (point-min))
- (while (re-search-forward "^(" nil t)
- (replace-match " (")
- ))
-
-(set-alist 'mime-viewer/content-filter-alist
- "application/x-selection"
- (function mime-viewer/filter-questionnaire))
-
-(defun mime-preview/reset-mark (cnum)
- (let* ((cinfo (mime::preview-content-info/content-info
- (car mime::preview/content-list)))
- (ccinfo (mime-article/cnum-to-cinfo cnum cinfo))
- (pcinfo (mime-preview/cinfo-to-pcinfo ccinfo))
- (p (mime::preview-content-info/point-min pcinfo))
- )
- (save-excursion
- (let (buffer-read-only)
- (goto-char p)
- (delete-char 1)
- (insert " ")
- ))))
-
-(defun mime-preview/set-mark (cnum)
- (let* ((cinfo (mime::preview-content-info/content-info
- (car mime::preview/content-list)))
- (ccinfo (mime-article/cnum-to-cinfo cnum cinfo))
- (pcinfo (mime-preview/cinfo-to-pcinfo ccinfo))
- (p (mime::preview-content-info/point-min pcinfo))
- )
- (save-excursion
- (let (buffer-read-only)
- (goto-char p)
- (delete-char 1)
- (insert "*")
- ))))
-
-(defun mime-viewer/questionnaire-select (beg end cal)
- (let* ((cnum (mime::get-point-content-number beg))
- (rcinfo mime::article/content-info)
- (mother-cnum (butlast cnum))
- (mother-cinfo (mime-article/cnum-to-cinfo mother-cnum))
- (mother-params (mime::content-info/parameters mother-cinfo))
- (number (assoc-value "x-part-number" mother-params))
- )
- (if number
- (setq number (string-to-int number))
- )
- (save-window-excursion
- (switch-to-buffer mime::article/preview-buffer)
- (let ((pa (assoc number questionnaire-result-alist)))
- (if pa
- (progn
- (setq pa (nth 1 pa))
- (mime-preview/reset-mark (list (car cnum) pa))
- )))
- (mime-preview/set-mark cnum)
- )
- (set-alist 'questionnaire-result-alist
- number
- (list (nth 1 cnum)
- (save-restriction
- (narrow-to-region
- (mime::content-info/point-min mother-cinfo)
- (mime::content-info/point-max mother-cinfo))
- (message/get-field-body "Content-Description")
- )))
- (let ((nc (append (butlast mother-cnum)
- (list (1+ (last-element mother-cnum)) 0)))
- (the-buf (current-buffer))
- next-cinfo)
- (setq next-cinfo (mime-article/cnum-to-cinfo nc))
- (setq mime-preview/after-decoded-position
- (save-window-excursion
- (if next-cinfo
- (progn
- (switch-to-buffer mime::article/preview-buffer)
- (mime::preview-content-info/point-min
- (mime-preview/cinfo-to-pcinfo next-cinfo))
- )
- (point-max)
- )))
- )))
-
-(set-atype 'mime/content-decoding-condition
- '((type . "application/x-selection")
- (method . mime-viewer/questionnaire-select)
- ))
-
-(defvar evs-course-id nil)
-(defvar evs-teachers-name nil)
-(defvar evs-message-buffer nil)
-
-(defun jaist-evs-send-message ()
- (interactive)
- (if (not (equal (sort (mapcar (function car) questionnaire-result-alist)
- (function <))
- '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
- 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38)))
- (message "\e$BA4$F$NA*Br;h$KEz$($F2<$5$$\e(B")
- (mail nil "evs-answer@jaist.ac.jp")
- (goto-char (point-max))
- (let ((rest (sort questionnaire-result-alist
- (function
- (lambda (a b)
- (< (car a)(car b))
- ))))
- ret)
- (insert (format "%s %s \n" evs-course-id evs-teachers-name))
- (while rest
- (setq ret (car rest))
- (insert (format "[%d] %s\n %d\n"
- (car ret)
- (or (nth 2 ret) "")
- (or (nth 1 ret) 0)
- ))
- (setq rest (cdr rest))
- )
- (insert "[39] \e$B$3$N<x6H$NNI$$E@!"7g$1$?E@$r5s$2$F2<$5$$!#\e(B\n\n\n")
- (insert "[40] \e$B$3$N<x6H$NC4Ev6541$N65$(J}$NNI$$E@!"7g$1$?E@$r;XE&$7$F2<$5$$!#\e(B\n\n\n")
- (insert "[41] \e$B7/$O$3$N<x6H$r<u$1$F!"%W%i%9$H$J$C$?$b$N$O2?$G$7$g$&$+!)\e(B\n")
- (if evs-message-buffer
- (progn
- (switch-to-buffer evs-message-buffer)
- (if mime::article/preview-buffer
- (kill-buffer mime::article/preview-buffer)
- )
- (kill-buffer evs-message-buffer)
- ))
- )))
-
-(define-key mime/viewer-mode-map "\C-c\C-c" (function jaist-evs-send-message))
-
-(defun jaist-evs ()
- (interactive)
- (setq questionnaire-result-alist nil)
- (setq evs-course-id
- (read-string "Please input course id > "))
- (setq evs-teachers-name
- (read-string "Please input teacher's name > "))
- (setq evs-message-buffer
- (get-buffer "questionnaire.mime"))
- (if (null evs-message-buffer)
- (progn
- (setq evs-message-buffer
- (get-buffer-create "questionnaire.mime"))
- (switch-to-buffer evs-message-buffer)
- )
- (progn
- (switch-to-buffer evs-message-buffer)
- (erase-buffer)
- ))
- (insert-file "/usr/local/lecture/EVS/questionnaire.mime")
- (goto-char (point-min))
- (re-search-forward "^=+\n")
- (insert (format "%s %s\n" evs-course-id evs-teachers-name))
- (mime/viewer-mode)
- )
-
-(provide 'tm-evs)
+++ /dev/null
-[[R
-\title{tm-gnus manual (English Version)}
-\author{Morioka Tomohiko}
-\date{1994/7/25}
-\maketitle
-]]R
-
-* Install
-
-** tiny-mime
-
- Please copy tiny-mime.el to your emacs lisp directory.
-
-
-** tm-body
-
- Please copy tm-body.el, tl-list.el and tl-header.el to your emacs
-lisp directory.
-
-
-** tm-misc
-
- Please copy tm-misc.el and tl-hook.el to your emacs lisp directory.
-
-
-** tm-gnus
-
- Please copy tm-gnus.el to your emacs lisp directory.
-
-
-
-* .emacs
-
- Please insert following list to .emacs.
-
-[[E
-----------------------------------------------------------------------
-(if (not (fboundp 'add-hook))
- (require 'tl-hook)
- )
-
-(let ((le (function
- (lambda ()
- (require 'tm-gnus)
- )))
- )
- (if (boundp 'MULE)
- (progn
- (add-hook 'gnus-Group-mode-hook (function gnusutil-initialize))
- (add-hook 'gnus-group-mode-hook (function gnusutil-initialize))
- (autoload 'gnusutil-initialize "gnusutil")
- (autoload 'gnusutil-add-group "gnusutil")
- (add-hook 'gnusutil-initialize-hook le)
- )
- (progn
- (add-hook 'gnus-Startup-hook le)
- (add-hook 'gnus-startup-hook le)
- )))
-----------------------------------------------------------------------
-]]E
-
-
-* How to use
-
--------------------------------------------------------
-| key | function |
-=======================================================
-| M-t |toggle switch of message header decoding mode |
--------------------------------------------------------
-| v |MIME decode message body and play |
-| e |MIME decode message body and extract to file(s)|
-|C-c p|MIME decode message body and print |
--------------------------------------------------------
-
-
-* How to use metamail
-
- In normal definition, tm-mh-e use tm-body as MIME body decoder.
-However, you can use metamail. In this case, Of course, you need
-metamail and metamail.el.
-
- Please insert following list to .emacs if you want to use metamail.
-
-[[E
-----------------------------------------------------------------------
-(autoload 'metamail-buffer "metamail" nil t)
-(setq mime/body-decoding-method (function metamail-buffer))
-----------------------------------------------------------------------
-]]E
-
- If you use metamail, there are no decoding mode of MIME body
-decoding. Therefore, functions for `v', `e', `C-c p' are equally
-`metamail-buffer', and decoding is sequentially.
+++ /dev/null
-\documentstyle[a4j]{jarticle}
-\setcounter{secnumdepth}{6}
-\setcounter{tocdepth}{6}
-\topsep=0.1cm
-\parsep=0.1cm
-\itemsep=0.0cm
-\begin{document}
-\title{tm-gnus manual (English Version)}
-\author{Morioka Tomohiko}
-\date{1994/7/25}
-\maketitle
-\medskip
-
-\section{Install}
-\medskip
-
-\subsection{tiny-mime}
-\medskip
-\par
-Please copy tiny-mime.el to your emacs lisp directory.
-\medskip
-\medskip
-
-\subsection{tm-body}
-\medskip
-\par
-Please copy tm-body.el, tl-list.el and tl-header.el to your emacs
-lisp directory.
-\medskip
-\medskip
-
-\subsection{tm-misc}
-\medskip
-\par
-Please copy tm-misc.el and tl-hook.el to your emacs lisp directory.
-\medskip
-\medskip
-
-\subsection{tm-gnus}
-\medskip
-\par
-Please copy tm-gnus.el to your emacs lisp directory.
-\medskip
-\medskip
-\medskip
-
-\section{.emacs}
-\medskip
-\par
-Please insert following list to .emacs.
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(if (not (fboundp 'add-hook))
- (require 'tl-hook)
- )
-
-(let ((le (function
- (lambda ()
- (require 'tm-gnus)
- )))
- )
- (if (boundp 'MULE)
- (progn
- (add-hook 'gnus-Group-mode-hook (function gnusutil-initialize))
- (add-hook 'gnus-group-mode-hook (function gnusutil-initialize))
- (autoload 'gnusutil-initialize "gnusutil")
- (autoload 'gnusutil-add-group "gnusutil")
- (add-hook 'gnusutil-initialize-hook le)
- )
- (progn
- (add-hook 'gnus-Startup-hook le)
- (add-hook 'gnus-startup-hook le)
- )))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\medskip
-
-\section{How to use}
-\medskip
-~\\
-\begin{tabular}{|c|r|}
-\hline
- key & function \\
-\hline\hline
- M-t & toggle switch of message header decoding mode \\
-\hline
- v & MIME decode message body and play \\
- e & MIME decode message body and extract to file(s)\\
-C-c p & MIME decode message body and print \\
-\hline
-\end{tabular}\\
-\medskip
-\medskip
-
-\section{How to use metamail}
-\medskip
-\par
-In normal definition, tm-mh-e use tm-body as MIME body decoder.
-However, you can use metamail. In this case, Of course, you need
-metamail and metamail.el.
-\medskip
-\par
-Please insert following list to .emacs if you want to use metamail.
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(autoload 'metamail-buffer "metamail" nil t)
-(setq mime/body-decoding-method (function metamail-buffer))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-If you use metamail, there are no decoding mode of MIME body
-decoding. Therefore, functions for `v', `e', `C-c p' are equally
-`metamail-buffer', and decoding is sequentially.
-\end{document}
+++ /dev/null
-\e$B!X\e(Btm-gnus \e$B@bL@=q!Y\e(B
-by. \e$B<i2,\e(B \e$BCNI'\e(B
-1994\e$BG/\e(B7\e$B7n\e(B27\e$BF|\e(B
-
-* Install
-
- *.el \e$B$r\e(B Emacs \e$B$NJQ?t\e(B load-path \e$B$G;XDj$5$l$?\e(B directory \e$B$K\e(B copy \e$B$7$^$9!#\e(B
-tm-gnus \e$B$O!"\e(Btiny-mime (MIME header encoder/decoder), tm-body (MIME
-body player), tm-misc (tm-<MUA> \e$B6&DL\e(B module), tm-gnus \e$B$N3F\e(B module \e$B$+$i\e(B
-\e$B$J$j$^$9!#3F\e(B module \e$BKh$N\e(B install \e$BK!$O0J2<$NDL$j$G$9!#\e(B
-
-
-** tiny-mime \e$B$N\e(B install
-
- tiny-mime.el \e$B$r\e(B Emacs \e$B$NJQ?t\e(B load-path \e$B$G;XDj$5$l$?\e(B directory \e$B$K\e(B
-copy \e$B$7$^$9!#\e(B
-
-
-** tm-body \e$B$N\e(B install
-
- tm-body.el, tl-list.el, tl-header.el \e$B$r\e(B Emacs \e$B$NJQ?t\e(B load-path \e$B$G;X\e(B
-\e$BDj$5$l$?\e(B directory \e$B$K\e(B copy \e$B$7$^$9!#\e(B
-
-
-** tm-misc \e$B$N\e(B install
-
- tm-misc.el, tl-hook.el \e$B$r\e(B Emacs \e$B$NJQ?t\e(B load-path \e$B$G;XDj$5$l$?\e(B
-directory \e$B$K\e(B copy \e$B$7$^$9!#\e(B
-
-
-** tm-gnus \e$B$N\e(B install
-
- tm-gnus.el \e$B$H\e(B tm-gnus3.el \e$B$r\e(B Emacs \e$B$NJQ?t\e(B load-path \e$B$G;XDj$5$l$?\e(B
-directory \e$B$K\e(B copy \e$B$7$^$9!#\e(Btm-gnus3.el \e$B$r\e(B byte-compile \e$B$9$k>l9g$O!"\e(BGNUS
-3 \e$B$,\e(B load \e$B$5$l$?>uBV$G9T$J$C$F2<$5$$!#\e(B
-
-
-
-* \e$B@_Dj\e(B
-
- .emacs \e$B$K0J2<$N$b$N$rF~$l$^$9!#\e(B
-
-[[E
-----------------------------------------------------------------------
-(if (not (fboundp 'add-hook))
- (require 'tl-hook)
- )
-
-(let ((le (function
- (lambda ()
- (require 'tm-gnus)
- )))
- )
- (if (boundp 'MULE)
- (progn
- (add-hook 'gnus-Group-mode-hook (function gnusutil-initialize))
- (add-hook 'gnus-group-mode-hook (function gnusutil-initialize))
- (autoload 'gnusutil-initialize "gnusutil")
- (autoload 'gnusutil-add-group "gnusutil")
- (add-hook 'gnusutil-initialize-hook le)
- )
- (progn
- (add-hook 'gnus-Startup-hook le)
- (add-hook 'gnus-startup-hook le)
- )))
-----------------------------------------------------------------------
-]]E
-
- Mule \e$B$K$*$1$k>e5-$N@_Dj$O!"\e(Bgnusutil \e$B$rJ;MQ$9$k>l9g$N$b$N$G$9$,!"\e(B
-gnusutil \e$B$rJ;MQ$7$J$$>l9g$O\e(B (require 'tm-gnus) \e$B$@$1$G7k9=$G$9!#\e(B
-
-
-* \e$B;H$$J}\e(B
-
---------------------------------------------------------------------
-| key | \e$B5!G=\e(B |
-====================================================================
-| M-t |message header \e$B$r\e(B decode \e$B$K4X$9$k\e(B toggle switch |
---------------------------------------------------------------------
-| v |message body \e$B$r\e(B MIME decode \e$B$7$F!":F@8$9$k\e(B (play mode) |
-| e |message body \e$B$r\e(B MIME decode \e$B$7$F!"\e(Bfile \e$B$KMn$9\e(B (extract mode)|
-|C-c p|message body \e$B$r\e(B MIME decode \e$B$7$F!"0u:~$9$k\e(B (print mode) |
---------------------------------------------------------------------
-
- message body \e$B$N\e(B MIME decode \e$B$K$*$$$F!"<B:]$K3FF0:n$,9T$J$o$l$k$+$I$&\e(B
-\e$B$+$O!"3F\e(B Content-Type \e$B$KBP1~$9$k\e(B tm-body \e$B$N\e(B mthod \e$B$K0MB8$7$^$9!#\e(B
-
-
-* \e$B3F<o@_Dj\e(B
-
-** metamail \e$B$r;H$&J}K!\e(B
-
- tm-mh-e \e$B$O\e(B MIME body \e$B$N\e(B decode \e$B$K\e(B tm-body \e$B$r;H$$$^$9$,!"\e(Bmetamail \e$B$r\e(B
-\e$B;H$&$h$&$K@_Dj$9$k$3$H$b2DG=$G$9!#C"$7!"\e(Bmetamail \e$B$H\e(B metamail.el \e$B$,I,MW\e(B
-\e$B$G$9!#\e(B
-
- \e$B$3$N>l9g\e(B .emacs \e$B$K0J2<$N$b$N$rF~$l$F2<$5$$!#\e(B
-
-[[E
-----------------------------------------------------------------------
-(autoload 'metamail-buffer "metamail" nil t)
-(setq mime/body-decoding-method (function metamail-buffer))
-----------------------------------------------------------------------
-]]E
-
- metamail \e$B$r;H$&@_Dj$N>l9g!"\e(B`v', `e', `C-c p' \e$B$KBP1~$9$kF0:n$O\e(B
-metamail \e$B$K$+$1$k$@$1$K$J$j!"F10l$NF0:n$K$J$j$^$9!#$^$?!"F0:n$OC`<!E*\e(B
-\e$B$K$J$j$^$9!#\e(B
-
-
-** article \e$B$r\e(B save \e$B$9$k;~\e(B decoding \e$B$7$J$$\e(B
-
- article \e$B$r\e(B save \e$B$9$k;~!"J]B8$5$l$k\e(B message \e$B$O$=$N;~I=<($5$l$F$$$k$h\e(B
-\e$B$&$K!"$=$N;~$N\e(B MIME header decoding mode \e$B$K1~$8$F\e(B save \e$B$5$l$^$9!#\e(B
-
- \e$B$7$+$7!"\e(Barticle \e$B$r\e(B save \e$B$9$k;~!">o$K!"\e(BMIME header decoding \e$B$r9T$J$o\e(B
-\e$B$J$$!"@8$N\e(B message \e$B$GJ]B8$7$?$$>l9g$O\e(B
-(tm-gnus/set-mime-header-decoding-mode nil) \e$B$r9T$J$C$F!"\e(BMIME header
-decoding \e$B$r9T$J$o$J$$\e(B mode \e$B$K$7$F!"\e(Barticle save \e$B4X?t$r<B9T$9$k$h$&$K@_\e(B
-\e$BDj$7$F2<$5$$!#\e(B
-
- Save \e$B$N<B9T8e!"\e(BMIME header decoding mode \e$B$rA0$N>uBV$KLa$7$?$$>l9g$O!"\e(B
-\e$B0J2<$N$h$&$K!"0l;~JQ?t$K\e(B MIME header decoding mode \e$B$rJ]B8$7$F$*$1$P\e(B OK
-\e$B$G$9!#\e(B
-
-[[E
- (let ((mm mime/header-decoding-mode))
- (tm-gnus/set-mime-header-decoding-mode nil)
- (article save \e$B4X?t\e(B)
- (tm-gnus/set-mime-header-decoding-mode mm)
- )
-]]E
-
- \e$B0J2<$K!"\e(Bmh-e \e$B$N\e(B folder \e$B$K\e(B save \e$B$9$k>l9g$NNc$r<($7$^$9!#\e(B
-
-[[E
-----------------------------------------------------------------------
-(add-hook 'gnus-Startup-hook
- (function
- (lambda ()
- (setq gnus-default-article-saver
- (function
- (lambda ()
- (interactive)
- (let ((mm mime/header-decoding-mode))
- (tm-gnus/set-mime-header-decoding-mode nil)
- (gnus-Subject-save-in-folder)
- (tm-gnus/set-mime-header-decoding-mode mm)
- )))))))
-(add-hook 'gnus-startup-hook
- (function
- (lambda ()
- (setq gnus-default-article-saver
- (function
- (lambda ()
- (interactive)
- (let ((mm mime/header-decoding-mode))
- (tm-gnus/set-mime-header-decoding-mode nil)
- (gnus-summary-save-in-folder)
- (tm-gnus/set-mime-header-decoding-mode mm)
- )))))))
-----------------------------------------------------------------------
-]]E
-
-
-** reply \e$B$9$k;~\e(B Subject \e$B$N\e(B encoding \e$BK!$r\e(B reply \e$B85$K9g$o$;$k\e(B
-
- Reply \e$B$9$k;~!"\e(Breply \e$B85$N\e(B Subject \e$B$K\e(B ASCII \e$B0J30$NJ8;z=89g$NF~$C$F$$$k\e(B
-\e$B>l9g!"\e(Breply \e$B85$,\e(B MIME encode \e$B$5$l$F$$$?$i\e(B encode \e$B$7!"$=$&$G$J$+$C$?$i\e(B
-\e$B@8$GF~$l$?$$>l9g$O!"<!$N$h$&$K@_Dj$7$^$9!#\e(B
-
-[[E
-----------------------------------------------------------------------
-(add-hook 'gnus-article-prepare-hook
- (function
- (lambda ()
- (if (mime/exist-encoded-word-in-subject)
- (setq mime/no-encoding-header-fields '("X-Nsubject"))
- (setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
- ))))
-----------------------------------------------------------------------
-]]E
+++ /dev/null
-\documentstyle[a4j]{jarticle}
-\setcounter{secnumdepth}{6}
-\setcounter{tocdepth}{6}
-\topsep=0.1cm
-\parsep=0.1cm
-\itemsep=0.0cm
-\begin{document}
-\title{
-tm-gnus ÀâÌÀ½ñ}
-\author{
-¼é²¬ ÃÎɧ\\
-}
-\date{
-1994ǯ7·î27Æü}
-\maketitle
-\medskip
-
-\section{Install}
-\medskip
-\par
-*.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ directory ¤Ë copy ¤·¤Þ¤¹¡£
-tm-gnus ¤Ï¡¢tiny-mime (MIME header encoder/decoder), tm-body (MIME
-body player), tm-misc (tm-$<$MUA$>$ ¶¦ÄÌ module), tm-gnus ¤Î³Æ module ¤«¤é
-¤Ê¤ê¤Þ¤¹¡£³Æ module Ëè¤Î install Ë¡¤Ï°Ê²¼¤ÎÄ̤ê¤Ç¤¹¡£
-\medskip
-\medskip
-
-\subsection{tiny-mime ¤Î install}
-\medskip
-\par
-tiny-mime.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ directory ¤Ë
-copy ¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\subsection{tm-body ¤Î install}
-\medskip
-\par
-tm-body.el, tl-list.el, tl-header.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»Ø
-Äꤵ¤ì¤¿ directory ¤Ë copy ¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\subsection{tm-misc ¤Î install}
-\medskip
-\par
-tm-misc.el, tl-hook.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿
-directory ¤Ë copy ¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\subsection{tm-gnus ¤Î install}
-\medskip
-\par
-tm-gnus.el ¤È tm-gnus3.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿
-directory ¤Ë copy ¤·¤Þ¤¹¡£tm-gnus3.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢GNUS
-3 ¤¬ load ¤µ¤ì¤¿¾õÂ֤ǹԤʤäƲ¼¤µ¤¤¡£
-\medskip
-\medskip
-\medskip
-
-\section{ÀßÄê}
-\medskip
-\par
-.emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ¤ì¤Þ¤¹¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(if (not (fboundp 'add-hook))
- (require 'tl-hook)
- )
-
-(let ((le (function
- (lambda ()
- (require 'tm-gnus)
- )))
- )
- (if (boundp 'MULE)
- (progn
- (add-hook 'gnus-Group-mode-hook (function gnusutil-initialize))
- (add-hook 'gnus-group-mode-hook (function gnusutil-initialize))
- (autoload 'gnusutil-initialize "gnusutil")
- (autoload 'gnusutil-add-group "gnusutil")
- (add-hook 'gnusutil-initialize-hook le)
- )
- (progn
- (add-hook 'gnus-Startup-hook le)
- (add-hook 'gnus-startup-hook le)
- )))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-Mule ¤Ë¤ª¤±¤ë¾åµ¤ÎÀßÄê¤Ï¡¢gnusutil ¤òÊ»ÍѤ¹¤ë¾ì¹ç¤Î¤â¤Î¤Ç¤¹¤¬¡¢
-gnusutil ¤òÊ»ÍѤ·¤Ê¤¤¾ì¹ç¤Ï (require 'tm-gnus) ¤À¤±¤Ç·ë¹½¤Ç¤¹¡£
-\medskip
-\medskip
-
-\section{»È¤¤Êý}
-\medskip
-~\\
-\begin{tabular}{|c|c|}
-\hline
- key & µ¡Ç½ \\
-\hline\hline
- M-t & message header ¤ò decode ¤Ë´Ø¤¹¤ë toggle switch \\
-\hline
- v & message body ¤ò MIME decode ¤·¤Æ¡¢ºÆÀ¸¤¹¤ë (play mode) \\
- e & message body ¤ò MIME decode ¤·¤Æ¡¢file ¤ËÍ (extract mode)\\
-C-c p & message body ¤ò MIME decode ¤·¤Æ¡¢°õºþ¤¹¤ë (print mode) \\
-\hline
-\end{tabular}\\
-\medskip
-\par
-message body ¤Î MIME decode ¤Ë¤ª¤¤¤Æ¡¢¼ÂºÝ¤Ë³ÆÆ°ºî¤¬¹Ô¤Ê¤ï¤ì¤ë¤«¤É¤¦
-¤«¤Ï¡¢³Æ Content-Type ¤ËÂбþ¤¹¤ë tm-body ¤Î mthod ¤Ë°Í¸¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\section{³Æ¼ïÀßÄê}
-\medskip
-
-\subsection{metamail ¤ò»È¤¦ÊýË¡}
-\medskip
-\par
-tm-mh-e ¤Ï MIME body ¤Î decode ¤Ë tm-body ¤ò»È¤¤¤Þ¤¹¤¬¡¢metamail ¤ò
-»È¤¦¤è¤¦¤ËÀßÄꤹ¤ë¤³¤È¤â²Äǽ¤Ç¤¹¡£Ã¢¤·¡¢metamail ¤È metamail.el ¤¬É¬Í×
-¤Ç¤¹¡£
-\medskip
-\par
-¤³¤Î¾ì¹ç .emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(autoload 'metamail-buffer "metamail" nil t)
-(setq mime/body-decoding-method (function metamail-buffer))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-metamail ¤ò»È¤¦ÀßÄê¤Î¾ì¹ç¡¢`v', `e', `C-c p' ¤ËÂбþ¤¹¤ëÆ°ºî¤Ï
-metamail ¤Ë¤«¤±¤ë¤À¤±¤Ë¤Ê¤ê¡¢Æ±°ì¤ÎÆ°ºî¤Ë¤Ê¤ê¤Þ¤¹¡£¤Þ¤¿¡¢Æ°ºî¤ÏÃ༡Ū
-¤Ë¤Ê¤ê¤Þ¤¹¡£
-\medskip
-\medskip
-
-\subsection{article ¤ò save ¤¹¤ë»þ decoding ¤·¤Ê¤¤}
-\medskip
-\par
-article ¤ò save ¤¹¤ë»þ¡¢Êݸ¤µ¤ì¤ë message ¤Ï¤½¤Î»þɽ¼¨¤µ¤ì¤Æ¤¤¤ë¤è
-¤¦¤Ë¡¢¤½¤Î»þ¤Î MIME header decoding mode ¤Ë±þ¤¸¤Æ save ¤µ¤ì¤Þ¤¹¡£
-\medskip
-\par
-¤·¤«¤·¡¢article ¤ò save ¤¹¤ë»þ¡¢¾ï¤Ë¡¢MIME header decoding ¤ò¹Ô¤Ê¤ï
-¤Ê¤¤¡¢À¸¤Î message ¤ÇÊݸ¤·¤¿¤¤¾ì¹ç¤Ï
-(tm-gnus/set-mime-header-decoding-mode nil) ¤ò¹Ô¤Ê¤Ã¤Æ¡¢MIME header
-decoding ¤ò¹Ô¤Ê¤ï¤Ê¤¤ mode ¤Ë¤·¤Æ¡¢article save ´Ø¿ô¤ò¼Â¹Ô¤¹¤ë¤è¤¦¤ËÀß
-Äꤷ¤Æ²¼¤µ¤¤¡£
-\medskip
-\par
-Save ¤Î¼Â¹Ô¸å¡¢MIME header decoding mode ¤òÁ°¤Î¾õÂÖ¤ËÌᤷ¤¿¤¤¾ì¹ç¤Ï¡¢
-°Ê²¼¤Î¤è¤¦¤Ë¡¢°ì»þÊÑ¿ô¤Ë MIME header decoding mode ¤òÊݸ¤·¤Æ¤ª¤±¤Ð OK
-¤Ç¤¹¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
- (let ((mm mime/header-decoding-mode))
- (tm-gnus/set-mime-header-decoding-mode nil)
- (article save ´Ø¿ô)
- (tm-gnus/set-mime-header-decoding-mode mm)
- )
-\end{verbatim}}
-\medskip
-\par
-°Ê²¼¤Ë¡¢mh-e ¤Î folder ¤Ë save ¤¹¤ë¾ì¹ç¤ÎÎã¤ò¼¨¤·¤Þ¤¹¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(add-hook 'gnus-Startup-hook
- (function
- (lambda ()
- (setq gnus-default-article-saver
- (function
- (lambda ()
- (interactive)
- (let ((mm mime/header-decoding-mode))
- (tm-gnus/set-mime-header-decoding-mode nil)
- (gnus-Subject-save-in-folder)
- (tm-gnus/set-mime-header-decoding-mode mm)
- )))))))
-(add-hook 'gnus-startup-hook
- (function
- (lambda ()
- (setq gnus-default-article-saver
- (function
- (lambda ()
- (interactive)
- (let ((mm mime/header-decoding-mode))
- (tm-gnus/set-mime-header-decoding-mode nil)
- (gnus-summary-save-in-folder)
- (tm-gnus/set-mime-header-decoding-mode mm)
- )))))))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\medskip
-
-\subsection{reply ¤¹¤ë»þ Subject ¤Î encoding Ë¡¤ò reply ¸µ¤Ë¹ç¤ï¤»¤ë}
-\medskip
-\par
-Reply ¤¹¤ë»þ¡¢reply ¸µ¤Î Subject ¤Ë ASCII °Ê³°¤Îʸ»ú½¸¹ç¤ÎÆþ¤Ã¤Æ¤¤¤ë
-¾ì¹ç¡¢reply ¸µ¤¬ MIME encode ¤µ¤ì¤Æ¤¤¤¿¤é encode ¤·¡¢¤½¤¦¤Ç¤Ê¤«¤Ã¤¿¤é
-À¸¤ÇÆþ¤ì¤¿¤¤¾ì¹ç¤Ï¡¢¼¡¤Î¤è¤¦¤ËÀßÄꤷ¤Þ¤¹¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(add-hook 'gnus-article-prepare-hook
- (function
- (lambda ()
- (if (mime/exist-encoded-word-in-subject)
- (setq mime/no-encoding-header-fields '("X-Nsubject"))
- (setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
- ))))
-----------------------------------------------------------------------
-\end{verbatim}}
-\end{document}
+++ /dev/null
-;;;
-;;; A MIME extension for GNUS
-;;;
-;;; by Morioka Tomohiko, 1993/11/20
-;;;
-
-(provide 'tm-gnus)
-
-
-;;; @ require modules
-;;;
-(require 'tm-misc)
-(require 'tl-str)
-(require 'gnus)
-
-
-;;; @ version
-;;;
-(defconst tm-gnus/RCS-ID
- "$Id: tm-gnus.el,v 5.1 1994/10/25 07:17:51 morioka Exp $")
-
-(defconst tm-gnus/version (get-version-string tm-gnus/RCS-ID))
-
-
-;;; @ variables
-;;;
-(defvar tm-gnus/startup-hook nil)
-
-
-;;; @ to decode subjects in mode-line
-;;;
-;; This function imported from gnus.el.
-;;
-;; New implementation in gnus 3.14.3
-;;
-(defun tm-gnus/article-set-mode-line ()
- "Set Article mode line string.
-If you don't like it, define your own gnus-article-set-mode-line."
- (let ((maxlen 15) ;Maximum subject length
- (subject
- (if gnus-current-headers
- (mime/decode-string (nntp-header-subject gnus-current-headers))
- "")
- ))
- ;; The value must be a string to escape %-constructs because of subject.
- (setq mode-line-buffer-identification
- (format "GNUS: %s%s %s%s%s"
- gnus-newsgroup-name
- (if gnus-current-article
- (format "/%d" gnus-current-article) "")
- (rightful-boundary-short-string subject
- (min (string-width subject)
- maxlen))
- (if (> (string-width subject) maxlen) "..." "")
- (make-string (max 0 (- 17 (string-width subject))) ? )
- )))
- (set-buffer-modified-p t))
-
-
-;;; @ to decode subjects in Summary buffer
-;;;
-(defun tm-gnus/decode-summary-subjects ()
- (mapcar (function
- (lambda (header)
- (nntp-set-header-subject
- header
- (mime/decode-string (gnus-header-subject header))
- )))
- gnus-newsgroup-headers)
- )
-
-
-;;; @ change MIME header decoding mode, decoding or non decoding.
-;;;
-
-(defun tm-gnus/set-mime-header-decoding-mode (arg)
- "Set MIME header processing.
-With arg, turn MIME processing on iff arg is positive."
- (setq mime/header-decoding-mode arg)
- (setq gnus-have-all-headers (not gnus-have-all-headers))
- (gnus-summary-select-article (not gnus-have-all-headers) t)
- )
-
-(defun tm-gnus/toggle-mime-header-decoding-mode ()
- "Toggle MIME header processing.
-With arg, turn MIME processing on iff arg is positive."
- (interactive)
- (tm-gnus/set-mime-header-decoding-mode (not mime/header-decoding-mode))
- )
-
-;;; @ set up
-;;;
-(if (string-match "^GNUS [0-3]" gnus-version)
- (require 'tm-gnus3)
- (require 'tm-gnus4)
- )
-
-(run-hooks 'tm-gnus/startup-hook)
+++ /dev/null
-;;;
-;;; $Id: tm-gnus3.el,v 5.4 1994/10/25 08:29:17 morioka Exp $
-;;;
-
-(provide 'tm-gnus3)
-
-(require 'tm-gnus)
-(require 'tm-view)
-(require 'tl-list)
-
-(setq mime/go-to-top-node-method-alist
- (put-alist 'gnus-Article-mode
- (if (string-match (regexp-quote "3.14.4") gnus-version)
- (function
- (lambda ()
- (mime/exit-view-mode)
- (delete-other-windows)
- (gnus-Article-show-summary)
- ))
- (function
- (lambda ()
- (mime/exit-view-mode)
- (delete-other-windows)
- (gnus-Article-show-subjects)
- )))
- mime/go-to-top-node-method-alist))
-
-(defun tm-gnus/view-message (arg)
- "MIME decode and play this message."
- (interactive "P")
- (let ((gnus-break-pages nil))
- (gnus-Subject-select-article t t)
- )
- (pop-to-buffer gnus-Article-buffer t)
- (mime/viewer-mode)
- )
-
-(add-hook 'gnus-Select-group-hook (function tm-gnus/decode-summary-subjects))
-
-(define-key gnus-Subject-mode-map
- "\et" 'tm-gnus/toggle-mime-header-decoding-mode)
-(define-key gnus-Subject-mode-map "v" 'tm-gnus/view-message)
-
-(fset 'gnus-summary-select-article 'gnus-Subject-select-article)
-
-(fset 'gnus-Article-set-mode-line 'tm-gnus/article-set-mode-line)
-(add-hook 'gnus-Article-prepare-hook
- (function mime/decode-message-header-if-you-need) t)
-
-(if (not (string-match "^GNUS 3\.14\.4" gnus-version))
- (progn
- (add-hook 'gnus-Article-mode-hook
- (function
- (lambda ()
- (make-local-variable 'minor-mode-alist)
- (mime/add-header-decoding-mode-to-mode-line)
- )))
- )
- (progn
- (add-hook 'gnus-Article-mode-hook
- (function mime/add-header-decoding-mode-to-mode-line))
- ))
+++ /dev/null
-;;;
-;;; $Id: tm-gnus4.el,v 5.4 1994/10/25 08:50:08 morioka Exp $
-;;;
-
-(provide 'tm-gnus4)
-
-(require 'tm-gnus)
-(autoload 'mime/viewer-mode "tm-view" "View MIME message." t)
-
-(defun tm-gnus/view-message (arg)
- "MIME decode and play this message."
- (interactive "P")
- (let ((gnus-break-pages nil))
- (gnus-summary-select-article t t)
- )
- (pop-to-buffer gnus-article-buffer t)
- (mime/viewer-mode)
- )
-
-(defun tm-gnus/summary-scroll-down ()
- "Scroll down one line current article."
- (interactive)
- (gnus-summary-scroll-up -1)
- )
-
-(add-hook 'gnus-select-group-hook (function tm-gnus/decode-summary-subjects))
-
-(define-key gnus-summary-mode-map
- "\et" (function tm-gnus/toggle-mime-header-decoding-mode))
-(define-key gnus-summary-mode-map "v" (function tm-gnus/view-message))
-(define-key gnus-summary-mode-map
- "\e\r" (function tm-gnus/summary-scroll-down))
-
-(fset 'gnus-article-set-mode-line 'tm-gnus/article-set-mode-line)
-(add-hook 'gnus-article-mode-hook
- (function mime/add-header-decoding-mode-to-mode-line))
-
-(add-hook 'gnus-article-prepare-hook
- (function mime/decode-message-header-if-you-need) t)
+++ /dev/null
-\documentstyle[a4j]{jreport}
-
-\title{tm ÀâÌÀ½ñ}
-\author{¼é²¬ ÃÎɧ\\
- morioka@jaist.ac.jp}
-\date{\verb$Id: tm-jp.tex,v 5.1 1994/09/26 14:52:00 morioka Exp $}
-
-\begin{document}
-
-\maketitle
-\tableofcontents
-
-\chapter{¤Ï¤¸¤á¤Ë}
-
-tm ¤Ï GNU Emacs ¤Ç MIME ¤ò³Ú¤·¤à¤¿¤á¤Î package ¤Ç¤¹¡£tm ¤ò»È¤¦¤È¡¢
-
-\begin{itemize}
-\item ¿¸À¸ì header ¤Î encode/decode
-\item mime/viewer-mode ¤ò»È¤Ã¤¿ MIME message ¤Î±ÜÍ÷¡¦ºÆÀ¸
-\item mh-e, GNUS, RMAIL ¤Ç¤Î MIME µ¡Ç½¤Î¶¯²½
-\end{itemize}
-
-\noindent ¤¬¹Ô¤Ê¤¨¤Þ¤¹¡£
-
-
-\section{Module °ìÍ÷}
-
-tm ¤Ï°Ê²¼¤Î module ¤«¤é¤Ê¤ê¤Þ¤¹¡£
-
-\begin{itemize}
-\item {\bf tiny-mime} : MIME header encoder/decoder
-\item {\bf tm-view} : MIME viewer
-\item {\bf tm-misc} : tm-MUA ¤Î¶¦ÄÌ module
-\item {\bf tm-MUAs} : MUA ¤Î MIME µ¡Ç½¶¯²½ module
- \begin{itemize}
- \item {\bf tm-mh-e} : mh-e ÍѤΠtm-MUA
- \item {\bf tm-gnus} : GNUS ÍѤΠtm-MUA
- \item {\bf tm-rmail} : RMAIL ÍѤΠtm-MUA
- \end{itemize}
-\item {\bf tm-setup} tm-MUA ¤ÎÀßÄê module
-\item {\bf mime-setup} MIME ´Ø·¸¤ÎÀßÄê module
-\end{itemize}
-
-
-\chapter{Emacs version Ê̤ε¡Ç½¤ª¤è¤ÓÀ©¸Â}
-
-\section{Emacs (original)}
-
-Original ¤Î Emacs ¤Ç¤Ï¡¢ÅöÁ³¤Î¤³¤È¤Ê¤¬¤é¡¢Ã±°ìʸ»ú½¸¹ç¤·¤«»È¤¨¤Þ¤»¤ó¡£
-
-\section{NEmacs, NEpoch}
-
-NEmacs ¤Ç¤Ï¡¢ISO-2022-JP ¤ª¤è¤Ó US-ASCII ¤¬»È¤¨¤Þ¤¹¡£
-
-\begin{description}
-\item[¡ÎÃí°Õ¡Ï] outline.el ¤Ï NEmacs Éí°¤Î¤â¤Î¤Ç¤Ï¤Ê¤¯¡¢outln-18.el
- ¤ò»È¤¦¤³¤È¤ò¿ä¾©¤·¤Þ¤¹¡£outln-18.el ¤ò»È¤¦¾ì¹ç¤Ï¡¢¤³¤ì¤ò outline.el
- ¤Ë link ¤òÄ¥¤ë¤«¡¢rename ¤·¤Æ²¼¤µ¤¤¡£
-
- outln-18.el ¤ò»È¤ï¤Ê¤¤¾ì¹ç¤Ï¡¢outline.el ¤Ë
-
-\begin{verbatim}
-(provide 'outline)
-\end{verbatim}
-
- \noindent ¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£
-\end{description}
-
-
-\section{Mule}
-
-ISO-2022-JP, ISO-2022-JP-2, US-ASCII, ISO-8859-1..9, ISO-2022-CN,
-ISO-2022-KR, EUC-KR ¤Ê¤É¤Î¿¸À¸ì header ¤¬»È¤¨¤Þ¤¹¡£¤Þ¤¿¡¢´Ø¿ô
-mime/set-charset-and-encoding ¤ÇÄɲá¦Êѹ¹¤¬¤Ç¤¤Þ¤¹¡£
-
-\begin{description}
-\item[¡ÎÃí°Õ¡Ï] Emacs 18 base ¤Î Mule (Mule 1.1 ¤Ê¤É¡Ë¤Ç¤Ï¡¢Mule Éí°
- ¤Î outline.el ¤ÎÂå¤ï¤ê¤Ëoutln-18.el ¤ò»È¤¦¤³¤È¤ò¿ä¾©¤·¤Þ¤¹¡£
- outln-18.el ¤ò»È¤¦¾ì¹ç¤Ï¡¢¤³¤ì¤ò outline.el ¤Ë link ¤òÄ¥¤ë¤«¡¢rename
- ¤·¤Æ²¼¤µ¤¤¡£
-
- outln-18.el ¤ò»È¤ï¤Ê¤¤¾ì¹ç¤Ï¡¢outline.el ¤Ë
-
-\begin{verbatim}
-(provide 'outline)
-\end{verbatim}
-
- \noindent ¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£
-\end{description}
-
-
-\chapter{Install ¤ÈÀßÄê}
-
-\section{Install}
-
-Install ¤Ï¼¡¤Î¼ê½ç¤Ç¹Ô¤Ê¤¤¤Þ¤¹¡£
-
-\begin{enumerate}
-\item Makefile ¤Î bindir ¤ò¼«Ê¬¤Î´Ä¶¤Ë¹ç¤ï¤»¤Æ½ñ¤´¹¤¨¤ë¡£
-\item methods/ °Ê²¼¤Ë¤¢¤ë method script ¤ò \ref{sec:method} Àá¤ò»²¾È¤·
- ¤Æ¡¢¼«Ê¬¤Î´Ä¶¤Ë¹ç¤¦¤è¤¦¤Ë½ñ¤´¹¤¨¤ë¡£
-\item make all ¤¹¤ë¡£
-\item make install ¤¹¤ë¡£
-\item *.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ directory ¤Ë copy ¤¹¤ë¡£
-\end{enumerate}
-
-\noindent{\bf [Ãí°Õ]}
-\begin{itemize}
-\item tm-mh-e3.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢mh-e version 3.* ¤ò load
- ¤·¤¿¾õÂ֤ǹԤʤäƲ¼¤µ¤¤¡£
-\item tm-gnus3.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢GNUS 3 ¤¬ load ¤µ¤ì¤¿¾õ
- Â֤ǹԤʤäƲ¼¤µ¤¤¡£
-\item tl-18.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢Emacs 18 ¤Ç¹Ô¤Ê¤Ã¤Æ²¼¤µ¤¤¡£
-\item tl-orig.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢original Emacs ¤Ç¹Ô¤Ê¤Ã¤Æ
- ²¼¤µ¤¤¡£
-\item tl-nemacs.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢NEmacs ¤Ç¹Ô¤Ê¤Ã¤Æ²¼¤µ¤¤¡£
-\item tl-mule.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢Mule ¤Ç¹Ô¤Ê¤Ã¤Æ²¼¤µ¤¤¡£
-\item Emacs 19 ¤Ç byte-compile ¤·¤¿ module ¤Ï Emacs 18 ¤Ç¤ÏÆ°¤¤Þ¤»¤ó¡£
-\end{itemize}
-
-
-\section{ÀßÄê}
-
-¤³¤Î package ¤Ë¤Ï mime-setup.el ¤È tm-setup.el ¤È¤¤¤¦´Ê°×ÀßÄê file ¤¬
-Éí°¤·¤Æ¤¤¤Þ¤¹¡£mime-setup.el ¤Ç¤Ï encoding ¤â´Þ¤á¤¿ÀßÄê¤ò¹Ô¤Ê¤¤¡¢
-tm-setup ¤Ç¤Ï tm-MUA ¤Ë´Ø¤¹¤ëÀßÄê¤Î¤ß¤ò¹Ô¤Ê¤¤¤Þ¤¹¡£
-
-\subsection{mime-setup}
-
-\begin{verbatim}
-(load "mime-setup")
-\end{verbatim}
-
-\noindent ¤È¤¹¤ë¤È MIME ¤Ë´Ø¤¹¤ë³Æ¼ïÀßÄê¤ò¹Ô¤Ê¤¤¤Þ¤¹¡£mime-setup ¤Ï
-tm-setup ¤òÆɤó¤Ç¤¤¤ë¤Î¤Ç¡¢mime-setup ¤ò»È¤¦¾ì¹ç¡¢tm-setup ¤ò load ¤¹
-¤ëɬÍפϤ¢¤ê¤Þ¤»¤ó¡£
-
-mime-setup.el ¤Ïɸ½à¤Ç¤Ï SuperCite ¤ÎÀßÄê¤â¹Ô¤Ê¤¤¤Þ¤¹¡£¤³¤ì¤ò¤ä¤á¤ë¾ì
-¹ç .emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£
-
-\begin{verbatim}
-(setq mime-setup-use-sc nil)
-\end{verbatim}
-
-mime-setup ¤Ç¤Ï signature ¤Î¼«Æ°ÀÚÂؤ¨ tool ¤âÉí°¤·¤Æ¤¤¤Þ¤¹¡£
-message header ¤Î field ¤Ë¹ç¤ï¤»¤Æ signature ¤Î¼«Æ°ÀÚÂؤò¹Ô¤Ê¤¤¤¿¤¤¾ì
-¹ç¤Ï .emacs ¤Ë°Ê²¼¤Î¤è¤¦¤Ê¤â¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£¡Ê¾Ü¤·¤¯¤Ï signature.el
-¤ÎÀâÌÀ½ñ¤ò»²¾È¤·¤Æ²¼¤µ¤¤¡Ë
-
-\begin{verbatim}
-(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{verbatim}
-
-mime-setup ¤ò»È¤¦¾ì¹ç¤Ï¡¢mime.el ¤¬É¬ÍפǤ¹¡£¤Þ¤¿¡¢SuperCite ¤ò»È¤¦¾ì
-¹ç¤Ï¡¢SuperCite ¤âɬÍפǤ¹¡£
-
-
-\subsection{tm-setup}
-
-tm-setup ¤Ï tm-MUA ¤ÎÀßÄê¤Î¤ß¤ò¹Ô¤Ê¤¦ module ¤Ç¤¹¡£mime-setup ¤ò load
-¤·¤Æ¤¤¤ë¾ì¹ç¡¢¤³¤ì¤òÍÛ¤Ë load ¤¹¤ëɬÍפϤ¢¤ê¤Þ¤»¤ó¤¬¡¢mime-setup ¤ò»È
-¤¤¤¿¤¯¤Ê¤¤¾ì¹ç¡¢°Ê²¼¤Î¤è¤¦¤Ë¤³¤ì¤ò load ¤·¤Æ²¼¤µ¤¤¡£
-
-\begin{verbatim}
-(load "tm-setup")
-\end{verbatim}
-
-
-\subsection{ÀßÄê file ¤ò»È¤ï¤Ê¤¤¾ì¹ç}
-
-tm-setup.el ¤ò»²¹Í¤Ë¤·¤Æ²¼¤µ¤¤¡£
-
-
-\subsection{MH ¤ÎÀßÄê}
-
-¤Þ¤¿¡¢MH ¤¬ MH-6.8JP2 ¤Î¾ì¹ç¡¢.mh\_profile ¤Ë
-
-\begin{verbatim}
-scan: -form scan.mime
-inc: -form inc.mime
-repl: -form replcomps.mime
-showproc: mhl
-\end{verbatim}
-
-\noindent ¤òÄɲ䷤Ƥ¯¤À¤µ¤¤¡£¤Þ¤¿¡¢¤½¤ì°Ê³°¤Î MH ¤Î½èÍý¤Ï Emacs ¤Î¦
-¤Ç¼è¤ê»ÅÀÚ¤ë¤Î¤Ç¡¢MH ¤ÎÀßÄê¤Ï¤·¤Ê¤¤¤è¤¦¤Ë¤·¤Æ¤¯¤À¤µ¤¤¡£
-
-
-\chapter{tm-MUA}
-
-``tm-MUA'' ¤È¤¤¤¦¤Î¤Ï¡¢mh-e, GNUS, RMAIL ¤Ê¤É¤Î MUA ¤Î¤¿¤á¤Î MIME µ¡Ç½
-¶¯²½ module ¤ÎÁí¾Î¤Ç¤¹¡£
-
-¸½ºß¡¢tm-MUA ¤Ë¤Ï¡¢
-
-\begin{itemize}
-\item {\bf tm-mh-e} : mh-e ÍѤΠtm-MUA
-\item {\bf tm-gnus} : GNUS ÍѤΠtm-MUA
-\item {\bf tm-rmail} : RMAIL ÍѤΠtm-MUA
-\end{itemize}
-
-\noindent ¤¬¤¢¤ê¤Þ¤¹¡£¤³¤Î¾Ï¤Ç¤Ï¤³¤ì¤é¤Î module ¤Ë´Ø¤·¤ÆÀâÌÀ¤·¤Þ¤¹¡£
-
-
-\section{Summary mode}
-
-tm-MUA ¤ò»È¤¦¤È¡¢¸µ¤Î MUA ¤Î Summary mode ¤ËÂФ·¤Æ°Ê²¼¤Îµ¡Ç½¤¬Äɲ䵤ì
-¤Þ¤¹¡£
-
-\medskip
-\begin{center}
- \begin{tabular}{|l|l|}\hline
- key & µ¡Ç½ \\ \hline
- M-t & MIME header ¤Î decode ¤Ë´Ø¤¹¤ë toggle \\
- v & ËÜʸ¤ËÆþ¤ê¡¢mime/view-mode ¤Ë°Ü¤ë \\ \hline
- \end{tabular}
-\end{center}
-\medskip
-
-
-\section{mime/viewer-mode}
-\label{sec:mime/viewer-mode}
-
-tm-MUA ¤ò»È¤¦¤È¡¢Summary mode ¤Ç {\bf v} ¤ò²¡¤¹¤³¤È¤Ë¤è¤Ã¤Æ¡¢
-mime/viewer-mode ¤È¤¤¤¦ MIME message ¤ò±ÜÍ÷¤¹¤ë¤¿¤á¤Î mode ¤ËÆþ¤ê¤Þ¤¹
-¡Ê⤷¡¢vm ¤Ç¤Ï°ã¤¦ key ¤Ë bind ¤·¤Æ¤¤¤ë¤½¤¦¤Ç¤¹¡Ë¡£mime/viewer-mode
-¤Ë¤Ï°Ê²¼¤Îµ¡Ç½¤¬¤¢¤ê¤Þ¤¹¡£
-
-\medskip
-\begin{center}
- \begin{tabular}{|l|l|}\hline
- key & µ¡Ç½ \\ \hline
- u & ¾å¤Î content ¤ËÌá¤ë \\
- & message ¤Î°ìÈÖ¾å¤Î content ¤Ç¤³¤ì¤ò¹Ô¤Ê¤¦¤È Summary mode
- ¤ËÌá¤ë (*1) \\
- p & Á°¤Î content ¤Ë°ÜÆ°¤¹¤ë \\
- n & ¼¡¤Î content ¤Ë°ÜÆ°¤¹¤ë \\
- SPC & scroll up ¤¹¤ë \\
- M-SPC & scroll down ¤¹¤ë \\
- v & content ¤òºÆÀ¸¤¹¤ë (*2) \\
- e & content ¤«¤é file ¤ò¼è¤ê½Ð¤¹ (*2) \\
- C-c C-p & content ¤ò°õºþ¤¹¤ë (*2) \\ \hline
- \end{tabular}
-\end{center}
-\medskip
-
-\bigskip
-
-\newcounter{asteriskcount}
-\noindent{\bf ¡ÎÃí°Õ¡Ï}
-\vspace{-1ex}
-{\list{(*\arabic{asteriskcount})}{\usecounter{asteriskcount}\leftmargin=8ex}
-\item tm-mh-e, tm-gnus, tm-rmail ¤Ê¤É¤Ç tm-view ¤ÎÀßÄê¤ò¤·¤Æ¤¤¤Ê¤¤¾ì¹ç¡¢
- Summary mode ¤Ë¤ÏÌá¤ê¤Þ¤»¤ó¡£
-\item ¼ÂºÝ¤ÎÆ°ºî¤ÏÂбþ¤¹¤ë method ¤Ë°Í¤ê¤Þ¤¹¡£
-\endlist}
-
-
-\section{tm-gnus ¤Î customize}
-
-\subsection{article ¤ò save ¤¹¤ë»þ decoding ¤·¤Ê¤¤}
-
-article ¤ò save ¤¹¤ë»þ¡¢Êݸ¤µ¤ì¤ë message ¤Ï¤½¤Î»þɽ¼¨¤µ¤ì¤Æ¤¤¤ë¤è¤¦
-¤Ë¡¢¤½¤Î»þ¤Î MIME header decoding mode ¤Ë±þ¤¸¤Æ save ¤µ¤ì¤Þ¤¹¡£
-
-¤·¤«¤·¡¢article ¤ò save ¤¹¤ë»þ¡¢¾ï¤Ë¡¢MIME header decoding ¤ò¹Ô¤Ê¤ï¤Ê
-¤¤¡¢À¸¤Î message ¤ÇÊݸ¤·¤¿¤¤¾ì¹ç¤Ï¡¢ÊÑ¿ô
-tm-gnus/set-mime-header-decoding-mode ¤ÎÃͤò nil ¤Ë¤·¤Æ¡¢MIME header
-decoding ¤ò¹Ô¤Ê¤ï¤Ê¤¤ mode ¤Ë¤·¤Æ¡¢article save ´Ø¿ô¤ò¼Â¹Ô¤¹¤ë¤è¤¦¤ËÀß
-Äꤷ¤Æ²¼¤µ¤¤¡£
-
-Save ¤Î¼Â¹Ô¸å¡¢MIME header decoding mode ¤òÁ°¤Î¾õÂÖ¤ËÌᤷ¤¿¤¤¾ì¹ç¤Ï¡¢
-°Ê²¼¤Î¤è¤¦¤Ë¡¢°ì»þÊÑ¿ô¤Ë MIME header decoding mode ¤òÊݸ¤·¤Æ¤ª¤±¤Ð OK
-¤Ç¤¹¡£
-
-\begin{verbatim}
- (let ((mm mime/header-decoding-mode))
- (tm-gnus/set-mime-header-decoding-mode nil)
- (article save ´Ø¿ô)
- (tm-gnus/set-mime-header-decoding-mode mm)
- )
-\end{verbatim}
-
-°Ê²¼¤Ë¡¢mh-e ¤Î folder ¤Ë save ¤¹¤ë¾ì¹ç¤ÎÎã¤ò¼¨¤·¤Þ¤¹¡£
-
-\begin{verbatim}
-(add-hook 'gnus-Startup-hook
- (function
- (lambda ()
- (setq gnus-default-article-saver
- (function
- (lambda ()
- (interactive)
- (let ((mm mime/header-decoding-mode))
- (tm-gnus/set-mime-header-decoding-mode nil)
- (gnus-Subject-save-in-folder)
- (tm-gnus/set-mime-header-decoding-mode mm)
- )))))))
-(add-hook 'gnus-startup-hook
- (function
- (lambda ()
- (setq gnus-default-article-saver
- (function
- (lambda ()
- (interactive)
- (let ((mm mime/header-decoding-mode))
- (tm-gnus/set-mime-header-decoding-mode nil)
- (gnus-summary-save-in-folder)
- (tm-gnus/set-mime-header-decoding-mode mm)
- )))))))
-\end{verbatim}
-
-\subsection{reply ¤¹¤ë»þ Subject ¤Î encoding Ë¡¤ò reply ¸µ¤Ë¹ç¤ï¤»¤ë}
-
-Reply ¤¹¤ë»þ¡¢reply ¸µ¤Î Subject ¤Ë ASCII °Ê³°¤Îʸ»ú½¸¹ç¤ÎÆþ¤Ã¤Æ¤¤¤ë
-¾ì¹ç¡¢reply ¸µ¤¬ MIME encode ¤µ¤ì¤Æ¤¤¤¿¤é encode ¤·¡¢¤½¤¦¤Ç¤Ê¤«¤Ã¤¿¤é
-À¸¤ÇÆþ¤ì¤¿¤¤¾ì¹ç¤Ï¡¢¼¡¤Î¤è¤¦¤ËÀßÄꤷ¤Þ¤¹¡£
-
-\begin{verbatim}
-(add-hook 'gnus-article-prepare-hook
- (function
- (lambda ()
- (if (mime/exist-encoded-word-in-subject)
- (setq mime/no-encoding-header-fields '("X-Nsubject"))
- (setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
- ))))
-\end{verbatim}
-
-
-\chapter{tm-view}
-
-tm-view ¤Ï MIME message ¤ò±ÜÍ÷¤¹¤ë¤¿¤á¤Îµ¡Ç½¤òÄ󶡤¹¤ë module ¤Ç¤¹¡£
-tm-view ¤Ï mime/viewer-mode ¤È¤¤¤¦ mode ¤òÄ󶡤·¤Þ¤¹¡£
-
-mime/viewer-mode ¤Îµ¡Ç½¤Ë´Ø¤·¤Æ¤Ï¡¢\ref{sec:mime/viewer-mode} Àá¤ò»²¾È
-¤·¤Æ²¼¤µ¤¤¡£
-
-\section{content ¤Î decode ¾ò·ï¤ÎÀßÄê}
-
-ÊÑ¿ô mime/content-decoding-condition ¤Ï decode »þ¤Î method ¤ò»ØÄꤹ¤ë
-¤¿¤á¤ÎÊÑ¿ô¤Ç¡¢tm-view 4 ¤ÎÊÑ¿ô mime/content-decoding-method-alist ¤ËÁê
-Åö¤·¤Þ¤¹¡£
-
-ÊÑ¿ô mime/content-decoding-method-alist ¤Ç¤Ï¡¢Ã±¤Ë
-content-type/subtype ¤ËÂФ¹¤ë method ¤ò»ØÄꤹ¤ë¤³¤È¤·¤«¤Ç¤¤Þ¤»¤ó¤Ç¤·
-¤¿¤¬¡¢ÊÑ¿ô mime/content-decoding-condition ¤Ç¤Ï decode »þ¤ÎÀ©Ìó¾ò·ï¤ò
-½ñ¤¯¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
-
-ÊÑ¿ô mime/content-decoding-condition ¤Ï¡¢
-
-\begin{eqnarray*}
- (¾ò·ï_1 \;\; ¾ò·ï_2 \;\; ...)
-\end{eqnarray*}
-
-\noindent ¤È¤¤¤¦·Á¤ò¤·¤¿ list ¤Ç¡¢³Æ¾ò·ï¤Ï
-
-\begin{eqnarray*}
- ((field-type_1 \; . \; value_1) \;\;
- (field-type_2 \; . \; value_2) \;\; ...)
-\end{eqnarray*}
-
-\noindent ¤È¤¤¤¦·Á¤ÎÏ¢ÁÛ list ¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£
-
-Î㤨¤Ð¡¢text/plain ¤Î»þ¡¢tm-plain ¤òµ¯Æ°¤¹¤ë»þ¡¢
-
-\begin{quote}
- ((type . "text/plain")
- (method "tm-plain" nil 'file 'type 'encoding 'mode 'name))
-\end{quote}
-
-\noindent ¤È¤¤¤¦¾ò·ï¤ò½ñ¤¤Þ¤¹¡£¸«¤Æ¤ÎÄ̤ꡢ³°Éô method ¤Î°ú¿ô¤¬½ñ¤±¤ë
-¤è¤¦¤Ë¤Ê¤ê¤Þ¤·¤¿¡£¾Ü¤·¤¯¤Ï \ref{sec:method-arguments} Àá¤Ç½Ò¤Ù¤Þ¤¹¡£
-
-¤³¤Î¾ò·ï¤Ï text/plain ¤Ç¤¢¤ë content ¤Ê¤éÁ´¤Æ¤Î decoding-mode ¤Ç͸ú¤Ç
-¤¹¡£¤·¤«¤·¡¢
-
-\begin{quote}
- ((type . "text/plain")
- (method "tm-plain" nil 'file 'type 'encoding 'mode 'name)
- (mode . "play"))
-\end{quote}
-
-\noindent ¤Ê¤é¡¢play mode °Ê³°¤Ç¤Ï͸ú¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£
-
-µÕ¤Ë¡¢
-
-\begin{quote}
- ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file)
- (mode . "play"))
-\end{quote}
-
-\noindent ¤Ê¤é¡¢Á´¤Æ¤Î content-type ¤Î play mode ¤Ç͸ú¤Ë¤Ê¤ê¤Þ¤¹¡£
-
-¤³¤¦¤·¤Æ³Æ¾ò·ï¤òÁ°¤«¤é¸«¤Æ¹Ô¤¡¢ºÇ½é¤Ë͸ú¤Ë¤Ê¤Ã¤¿¾ò·ï¤¬¼Â¹Ô¤µ¤ì¤Þ¤¹¡£
-
-
-\subsection{method ¤Î°ú¿ô¤Î»ØÄê¤Î»ÅÊý}
-\label{sec:method-arguments}
-
-¾ò·ï¤Î method field ¤Ï
-
-\begin{eqnarray*}
- (method \; . \; SYMBOL)
-\end{eqnarray*}
-
-\noindent ¤«
-
-\begin{eqnarray*}
- (method \; ʸ»úÎó \; FLAG \; °ú¿ô_1 \; °ú¿ô_2 \; ...)
-\end{eqnarray*}
-
-\noindent ¤È¤¤¤¦·Á¤ò¤·¤Æ¤¤¤Þ¤¹¡£
-
-method field ¤ÎÃͤ¬ symbol ¤Ç¤¢¤ë¾ì¹ç¤Ï¡¢ÆâÉô method ¤È¤·¤Æµ¯Æ°¤µ¤ì¤Þ
-¤¹¡£
-
-method field ¤ÎÃͤ¬ list ¤Ç¤¢¤ë¾ì¹ç¡¢³°Éô method ¤È¤·¤Æµ¯Æ°¤µ¤ì¤Þ¤¹¡£
-¤³¤Î¾ì¹ç¡¢
-
-\begin{quote}
- \begin{tabular}{lcl}
- ʸ»úÎó&:&³°Éô method ¤Î̾Á° \\
- FLAG&:& t ¤Ê¤é content header ¤â³°Éô method ¤ËÅϤ¹¡£
- nil ¤Ê¤é content body ¤Î¤ß¤òÅϤ¹¡£\\
- °ú¿ôÎó&:&³°Éô method ¤Î°ú¿ô
- \end{tabular}
-\end{quote}
-
-\noindent ¤È²ò¼á¤µ¤ì¤Þ¤¹¡£
-
-¤Þ¤¿¡¢³°Éô method ¤Î°ú¿ô¤Ï¼¡¤Î¤è¤¦¤Ê·Á¼°¤Ç½ñ¤¤Þ¤¹¡£
-
-\begin{quote}
- \begin{tabular}{lcl}
- ʸ»úÎó&:&¤½¤Îʸ»úÎó¤òÅϤ¹ \\
- 'SYMBOL&:&SYMBOL ¤ò key ¤È¤·¤¿ÃͤòÅϤ¹\\
- 'ʸ»úÎó&:&ʸ»úÎó¤ò key ¤È¤·¤¿ÃͤòÅϤ¹
- \end{tabular}
-\end{quote}
-
-'SYMBOL ¤Ç»ØÄê¤Ç¤¤ë¤â¤Î¤Ë¤Ï¡¢
-
-\begin{quote}
- \begin{tabular}{lcl}
- 'file&:&content ¤òÅϤ¹¤¿¤á¤Î file ̾ \\
- 'type&:&content-type/sub-type ̾ \\
- 'encoding&:&content-transfer-encoding \\
- 'mode&:&decoding mode \\
- 'name&:&file ¤ËÍ¾ì¹ç¤Î file ̾
- \end{tabular}
-\end{quote}
-
-\noindent ¤Ê¤É¤¬¤¢¤ê¡¢'ʸ»úÎó ¤Ç¤Ï Content-Type field ¤Î parameter ¤Î
-Ãͤ¬»ØÄê¤Ç¤¤Þ¤¹¡£
-
-
-\subsection{Îã}
-
-½é´üÃͤϰʲ¼¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£
-
-\begin{verbatim}
-(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{verbatim}
-
-Î㤨¤Ð¡¢¡ÖÁ´Éô metamail »È¤¦¤ó¤ä¡×¤È¤¤¤¦¾ì¹ç¡¢
-
-\begin{verbatim}
-(setq mime/content-decoding-condition
- '(
- ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file))
- ))
-\end{verbatim}
-
-\noindent ¤È¤¹¤ì¤Ð OK ¤Ç¤¹¡£
-
-¹©Éפ¹¤ì¤Ð¡¢¤«¤Ê¤êÊ£»¨¤Ê¾ò·ï¤¬½ñ¤±¤ë¤Ç¤·¤ç¤¦¡£
-
-
-\section{method script}
-\label{sec:method}
-
-³Æ method ¤Ï shell script ¤Ç½ñ¤¤Þ¤¹¡£tm-verw.el ¤«¤éÅϤµ¤ì¤ë°ú¿ô¤Ï¡¢
-ÊÑ¿ô mime/content-decoding-condition ¤Ç»ØÄê¤Ç¤¤Þ¤¹¤¬¡¢É¸½àŪ¤Ê°ú¿ôÎó
-¤Ï°Ê²¼¤ÎÄ̤ê¤Ç¤¹¡£
-
-\medskip
-\begin{center}
- \begin{tabular}{|c|l|} \hline
- °ú¿ô & \multicolumn{1}{|c|}{ ÃÍ }\\ \hline
- \$1 & decode Á°¤Î file ̾ \\
- \$2 & Content-Type (type/sub-type) \\
- \$3 & encoding
- \{7bit / quoted-printable / base64 / 8bit / binary / ...\}\\
- \$4 & decoding-mode \{play / extract / print\} \\
- \$5 & file ̾ \\ \hline
- \end{tabular}
-\end{center}
-\medskip
-
-¤Þ¤¿¡¢message/partial ¤À¤±¤Ï tm-view.el ¼«¿È¤ÇÉü¸µ¤·¤Þ¤¹¡£
-
-
-\section{À©¸Â}
-
-Éí°¤Î BASE64 decoder ¤Ç¤¢¤ë decode-b.c ¤Ï¤¤¤¤²Ã¸º¤Êºî¤ê¤Ê¤Î¤Ç¡¢Æ°¤«¤Ê
-¤«¤Ã¤¿¤é¡¢Ã»¤¤¥×¥í¥°¥é¥à¤Ê¤Î¤Ç¡¢°Õ¤òµâ¤ó¤Ç½¤Àµ¤·¤Æ²¼¤µ¤¤¡£
-(\verb+^+\_\verb+^+;
-
-¤Þ¤¿¡¢metamail Éí°¤Î mmencode ¤ò»È¤Ã¤Æ decode ¤·¤Æ¤âÎɤ¤¤Ç¤·¤ç¤¦¡£
-
-¤Þ¤¿¡¢Quoted-Printable ¤Î decoder ¤ÏÉí°¤·¤Þ¤»¤ó¤Î¤Ç¡¢mmencode ¤ò»È¤Ã
-¤Æ²¼¤µ¤¤¡£
-
-
-\chapter{tiny-mime}
-
-tiny-mime ¤Ï Mule, NEmacs, NEpoch ¾å¤ÇÆ°ºî¤¹¤ë MIME header ¤Î
-encoder/decoder ¤Ç¤¹¡£tiny-mime ¤Ï¡¢ÀΡ¢¤¨¤Ê¤ß ¤Ä¤°¤È¤â ¤µ¤ó¤¬
-fj.editor.emacs ¤ËÅê¹Æ¤µ¤ì¤¿ ISO-2022-JP MIME header decoder ¤ò¸µ¤Ë¤·
-¤Æ¤¤¤Þ¤¹¡£
-
-¸½ºß¤Ç¤Ï¡¢Åö»þ¤Î¤â¤Î¤ËÈæ¤Ù¡¢
-
-\begin{itemize}
-\item decoding »þ¤Ë¤ª¤±¤ë unfolding µ¡Ç½¤ÎÄɲÃ
-\item ISO-2022-JP ¤Ë²Ã¤¨¡¢ISO-2022-KR, ISO-8859-*, US-ASCII ¤Ê¤É¤Î¿¸À
- ¸ì header ¤Î encode/decode µ¡Ç½¤ÎÄɲÃ
-\item Q-encoding ¤ÎÄɲÃ
-\item RFC 1522 ¤Ø¤ÎÂбþ
-\end{itemize}
-
-\noindent ¤È¤¤¤Ã¤¿µ¡Ç½¶¯²½¤¬¹Ô¤Ê¤ï¤ì¤Æ¤¤¤Þ¤¹¡£
-
-tiny-mime ¤Ï tm ¤Ë¤ª¤±¤ë MIME header encoder/decoder ¤Ç¤¢¤ê¡¢tm-view,
-tm-MUA ¤¬¤³¤ì¤òÍøÍѤ·¤Æ¤¤¤Þ¤¹¡£
-
-
-\section{mime/decode-message-header}
-
-{\tt mime/decode-message-header} ¤Ï MIME header ¤ò decode ¤¹¤ë¤¿¤á¤ÎÌ¿
-Îá¤Ç¤¹¡£tiny-mime ¤¬ load ¤µ¤ì¤Æ¤¤¤ë¾õÂ֤ǡ¢decode ¤·¤¿¤¤ buffer ¤Î¾å
-¤Ç¡¢
-
-{\list{}{\leftmargin=8ex}\item[]
-\par
-M-x {\tt mime/decode-message-header}
-\endlist}
-
-\noindent ¤ò¼Â¹Ô¤¹¤ë¤È¡¢¤½¤Î buffer ¾å¤Î MIME header ¤¬ decode ¤µ¤ì¤Þ
-¤¹¡£
-
-tm-MUA ¤ä tm-view ¤Ï¤³¤ÎÌ¿Îá¤ò¸Æ¤ó¤Ç¤¤¤ë¤Î¤Ç¡¢¤³¤ì¤é¤òÍøÍѤ·¤Æ¤¤¤ë¾ì¹ç¡¢
-Íۤˤ³¤ÎÌ¿Îá¤ò¼Â¹Ô¤¹¤ëɬÍפÏ̵¤¤¤Ç¤·¤ç¤¦¡£
-
-
-\section{mime/decode-region}
-
-region ¤ËÂФ·¤Æ¡¢
-
-{\list{}{\leftmargin=8ex}\item[]
-\par
-M-x {\tt mime/decode-region}
-\endlist}
-
-\noindent ¤ò¼Â¹Ô¤¹¤ë¤³¤È¤Ç¡¢°úÍÑ¤Ê¤É¤Ç buffer ¤Ë»Ä¤Ã¤¿ MIME header ¤ò
-decode ¤Ç¤¤Þ¤¹¡£
-
-
-\chapter{¥Ð¥°Êó¹ð¤Î»ÅÊý}
-
-tm ¤Î¥Ð¥°¤ò¸«¤Ä¤±¤¿¤é fj.editor.emacs ¤Ë post ¤¹¤ë¤«¡¢tm ML
-$<$tm@chamonix.jaist.ac.jp$>$ ¤Ë mail ¤òÁ÷¤Ã¤Æ²¼¤µ¤¤¡£
-
-tm ML ¤Ç¤Ï tm ¤Î¥Ð¥°¾ðÊó¤Î¸ò´¹¤äºÇ¿·ÈǤÎÇÛÉÛ¡¢tm ¤Î²þÎɤ˴ؤ¹¤ëµÄÏÀ¤ò
-¹Ô¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£tm ML ¤Ë»²²Ã¤·¤¿¤¤Êý¤Ï
-
-\begin{center}
- tm-admin@chamonix.jaist.ac.jp
-\end{center}
-
-\noindent ¤Þ¤Ç mail ¤òÁ÷¤Ã¤Æ²¼¤µ¤¤¡£ÅÐÏ¿¤Ï¼êÆ°¤Ç¤¹¤Î¤Ç¡¢¤Ç¤¤ì¤Ð¡¢¼«Á³
-¸À¸ì¤Ç½ñ¤¤¤Æ²¼¤µ¤¤¡£(\verb+^+\_\verb+^+)
-
-\end{document}
+++ /dev/null
-;;;
-;;; $Id: tm-mail.el,v 1.1 1995/11/04 08:22:24 morioka Exp $
-;;;
-
-(require 'tm-view)
-
-(autoload 'mime-editor/caesar-region "tm-edit" nil t)
-
-(defun mime-viewer/quitting-method-for-mime/show-message-mode ()
- (set-window-configuration mime/show-mode-old-window-configuration)
- (let ((mother mime::preview/mother-buffer))
- (kill-buffer
- (mime::preview-content-info/buffer (car mime::preview/content-list)))
- (mime-viewer/kill-buffer)
- (pop-to-buffer mother)
- ;;(goto-char (point-min))
- ;;(mime-viewer/up-content)
- ))
-
-(defun mime-article/view-message/rfc822 (beg end cal)
- (let* ((cnum (mime-article/point-content-number beg))
- (cur-buf (current-buffer))
- (new-name (format "%s-%s" (buffer-name) cnum))
- (mother mime::article/preview-buffer)
- str)
- (setq str (buffer-substring beg end))
- (switch-to-buffer new-name)
- (erase-buffer)
- (insert str)
- (goto-char (point-min))
- (if (re-search-forward "^\n" nil t)
- (delete-region (point-min) (match-end 0))
- )
- (setq major-mode 'mime/show-message-mode)
- (mime/viewer-mode mother)
- ))
-
-(defun mime-article/decode-caesar (beg end cal)
- (let* ((cnum (mime-article/point-content-number beg))
- (cur-buf (current-buffer))
- (new-name (format "%s-%s" (buffer-name) cnum))
- (mother mime::article/preview-buffer)
- (charset (cdr (assoc "charset" params)))
- (mode major-mode)
- str)
- (setq str (buffer-substring beg end))
- (switch-to-buffer new-name)
- (erase-buffer)
- (insert str)
- (goto-char (point-min))
- (if (re-search-forward "^\n" nil t)
- (delete-region (point-min) (match-end 0))
- )
- (let ((m (assq mode mime-viewer/code-converter-alist)))
- (if (and m (fboundp (setq m (cdr m))))
- (funcall m (point-min) (point-max) charset encoding)
- (mime-viewer/default-code-convert-region (point-min) (point-max)
- charset encoding)
- ))
- (save-excursion
- (set-mark (point-min))
- (goto-char (point-max))
- (mime-editor/caesar-region)
- )
- (view-mode)
- ))
-
-(set-atype 'mime/content-decoding-condition
- '((type . "message/rfc822")
- (method . mime-article/view-message/rfc822)
- ))
-
-(set-atype 'mime/content-decoding-condition
- '((type . "text/x-rot13-47")
- (method . mime-article/decode-caesar)
- ))
-
-(provide 'tm-mail)
+++ /dev/null
-[[R
-\title{tm-mh-e manual (English Version)}
-\author{Morioka Tomohiko}
-\date{1994/8/20}
-\maketitle
-]]R
-
-* Install
-
-** tiny-mime
-
- Please copy tiny-mime.el to your emacs lisp directory.
-
-
-** tm-body
-
- Please copy tm-body.el, tl-list.el and tl-header.el to your emacs
-lisp directory.
-
-
-** tm-misc
-
- Please copy tm-misc.el and tl-hook.el to your emacs lisp directory.
-
-
-** tm-mh-e
-
- Please copy tm-mh-e.el and tm-mh-e3.el to your emacs lisp directory.
-
- If you want to byte-compile tm-mh-e3.el, please do it after you did
-load mh-e version 3.x.
-
-
-* .emacs
-
- Please use mime-setup.
-
- If you do not want to use mime-setup, insert following list to .
-emacs.
-
-[[E
-----------------------------------------------------------------------
-(if (< (string-to-int emacs-version) 19)
- (progn
- (require 'tl-18)
- (defvar buffer-undo-list nil)
- ))
-
-(add-hook 'mh-folder-mode-hook
- (function
- (lambda ()
- (require 'tm-mh-e)
- )))
-----------------------------------------------------------------------
-]]E
-
-
-* How to use
-
--------------------------------------------------------
-| key | function |
-=======================================================
-| M-t |toggle switch of message header decoding mode |
--------------------------------------------------------
-| v |MIME decode message body and play |
-| e |MIME decode message body and extract to file(s)|
-|C-c p|MIME decode message body and print |
--------------------------------------------------------
-
-
-* How to use metamail
-
- In normal definition, tm-mh-e use tm-body as MIME body decoder.
-However, you can use metamail. In this case, Of course, you need
-metamail and metamail.el.
-
- Please insert following list to .emacs if you want to use metamail.
-
-[[E
-----------------------------------------------------------------------
-(autoload 'metamail-buffer "metamail" nil t)
-(setq mime/body-decoding-method (function metamail-buffer))
-----------------------------------------------------------------------
-]]E
-
- If you use metamail, there are no decoding mode of MIME body
-decoding. Therefore, functions for `v', `e', `C-c p' are equally
-`metamail-buffer', and decoding is sequentially.
+++ /dev/null
-\documentstyle[a4j]{jarticle}
-\setcounter{secnumdepth}{6}
-\setcounter{tocdepth}{6}
-\topsep=0.1cm
-\parsep=0.1cm
-\itemsep=0.0cm
-\begin{document}
-\title{tm-mh-e manual (English Version)}
-\author{Morioka Tomohiko}
-\date{1994/8/20}
-\maketitle
-\medskip
-
-\section{Install}
-\medskip
-
-\subsection{tiny-mime}
-\medskip
-\par
-Please copy tiny-mime.el to your emacs lisp directory.
-\medskip
-\medskip
-
-\subsection{tm-body}
-\medskip
-\par
-Please copy tm-body.el, tl-list.el and tl-header.el to your emacs
-lisp directory.
-\medskip
-\medskip
-
-\subsection{tm-misc}
-\medskip
-\par
-Please copy tm-misc.el and tl-hook.el to your emacs lisp directory.
-\medskip
-\medskip
-
-\subsection{tm-mh-e}
-\medskip
-\par
-Please copy tm-mh-e.el and tm-mh-e3.el to your emacs lisp directory.
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
- If you want to byte-compile tm-mh-e3.el, please do it after you did
-load mh-e version 3.x.
-\end{verbatim}}
-\medskip
-\medskip
-
-\section{.emacs}
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
- Please use mime-setup.
-\end{verbatim}}
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
- If you do not want to use mime-setup, insert following list to .
-emacs.
-\end{verbatim}}
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(if (< (string-to-int emacs-version) 19)
- (progn
- (require 'tl-18)
- (defvar buffer-undo-list nil)
- ))
-
-(add-hook 'mh-folder-mode-hook
- (function
- (lambda ()
- (require 'tm-mh-e)
- )))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\medskip
-
-\section{How to use}
-\medskip
-~\\
-\begin{tabular}{|c|r|}
-\hline
- key & function \\
-\hline\hline
- M-t & toggle switch of message header decoding mode \\
-\hline
- v & MIME decode message body and play \\
- e & MIME decode message body and extract to file(s)\\
-C-c p & MIME decode message body and print \\
-\hline
-\end{tabular}\\
-\medskip
-\medskip
-
-\section{How to use metamail}
-\medskip
-\par
-In normal definition, tm-mh-e use tm-body as MIME body decoder.
-However, you can use metamail. In this case, Of course, you need
-metamail and metamail.el.
-\medskip
-\par
-Please insert following list to .emacs if you want to use metamail.
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(autoload 'metamail-buffer "metamail" nil t)
-(setq mime/body-decoding-method (function metamail-buffer))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-If you use metamail, there are no decoding mode of MIME body
-decoding. Therefore, functions for `v', `e', `C-c p' are equally
-`metamail-buffer', and decoding is sequentially.
-\end{document}
+++ /dev/null
-\e$B!X\e(Btm-mh-e \e$B@bL@=q!Y\e(B
-by. \e$B<i2,\e(B \e$BCNI'\e(B
-1994\e$BG/\e(B8\e$B7n\e(B20\e$BF|\e(B
-
-* install
-
-** tiny-mime \e$B$N\e(B install
-
- tiny-mime.el \e$B$r\e(B Emacs \e$B$NJQ?t\e(B load-path \e$B$G;XDj$5$l$?\e(B directory \e$B$K\e(B
-copy \e$B$7$^$9!#\e(B
-
-
-** tm-body \e$B$N\e(B install
-
- tm-body.el, tl-list.el, tl-header.el \e$B$r\e(B Emacs \e$B$NJQ?t\e(B load-path \e$B$G;X\e(B
-\e$BDj$5$l$?\e(B directory \e$B$K\e(B copy \e$B$7$^$9!#\e(B
-
-
-** tm-misc \e$B$N\e(B install
-
- tm-misc.el, tl-hook.el \e$B$r\e(B Emacs \e$B$NJQ?t\e(B load-path \e$B$G;XDj$5$l$?\e(B
-directory \e$B$K\e(B copy \e$B$7$^$9!#\e(B
-
-
-** tm-mh-e \e$B$N\e(B install
-
- tm-mh-e.el, tm-mh-e3.el \e$B$r\e(B Emacs \e$B$NJQ?t\e(B load-path \e$B$G;XDj$7$?\e(B
-directory \e$B$K\e(B copy \e$B$7$^$9!#\e(B
-
- tm-mh-e3.el \e$B$r\e(B byte-compile \e$B$9$k>l9g$O!"\e(Bmh-e version 3.* \e$B$r\e(B load \e$B$7\e(B
-\e$B$?>uBV$G9T$J$C$F2<$5$$!#\e(B
-
-
-* \e$B@_Dj\e(B
-
- mime-setup \e$B$r;H$C$F2<$5$$!#\e(B
-
- mime-setup \e$B$r;H$o$J$$>l9g$O\e(B .emacs \e$B$K0J2<$N$b$N$rF~$l$^$9!#\e(B
-
-[[E
-----------------------------------------------------------------------
-(if (< (string-to-int emacs-version) 19)
- (progn
- (require 'tl-18)
- (defvar buffer-undo-list nil)
- ))
-
-(add-hook 'mh-folder-mode-hook
- (function
- (lambda ()
- (require 'tm-mh-e)
- )))
-----------------------------------------------------------------------
-]]E
-
- \e$B$^$?!"\e(BMH \e$B$,\e(B MH-6.8JP2 \e$B$N>l9g!"\e(B~/.mh_profile \e$B$K\e(B
-
-[[E
-----------------------------------------------------------------------
-scan: -form scan.mime
-inc: -form inc.mime
-repl: -form replcomps.mime
-showproc: mhl
-----------------------------------------------------------------------
-]]E
-
-\e$B$rDI2C$7$F$/$@$5$$!#$^$?!"$=$l0J30$N\e(B MH \e$B$N=hM}$O\e(B Emacs \e$B$NB&$G<h$j;E@Z\e(B
-\e$B$k$N$G!"\e(BMH \e$B$N@_Dj$O$7$J$$$h$&$K$7$F$/$@$5$$!#\e(B
-
-
-* \e$B;H$$J}\e(B
-
---------------------------------------------------------------------
-| key | \e$B5!G=\e(B |
-====================================================================
-| M-t |message header \e$B$r\e(B decode \e$B$K4X$9$k\e(B toggle switch |
---------------------------------------------------------------------
-| v |message body \e$B$r\e(B MIME decode \e$B$7$F!":F@8$9$k\e(B (play mode) |
-| e |message body \e$B$r\e(B MIME decode \e$B$7$F!"\e(Bfile \e$B$KMn$9\e(B (extract mode)|
-|C-c p|message body \e$B$r\e(B MIME decode \e$B$7$F!"0u:~$9$k\e(B (print mode) |
---------------------------------------------------------------------
-
- message body \e$B$N\e(B MIME decode \e$B$K$*$$$F!"<B:]$K3FF0:n$,9T$J$o$l$k$+$I$&\e(B
-\e$B$+$O!"3F\e(B Content-Type \e$B$KBP1~$9$k\e(B tm-body \e$B$N\e(B mthod \e$B$K0MB8$7$^$9!#\e(B
-
-
-* metamail \e$B$r;H$&J}K!\e(B
-
- tm-mh-e \e$B$O\e(B MIME body \e$B$N\e(B decode \e$B$K\e(B tm-body \e$B$r;H$$$^$9$,!"\e(Bmetamail \e$B$r\e(B
-\e$B;H$&$h$&$K@_Dj$9$k$3$H$b2DG=$G$9!#C"$7!"\e(Bmetamail \e$B$H\e(B metamail.el \e$B$,I,MW\e(B
-\e$B$G$9!#\e(B
-
- \e$B$3$N>l9g\e(B .emacs \e$B$K0J2<$N$b$N$rF~$l$F2<$5$$!#\e(B
-
-[[E
-----------------------------------------------------------------------
-(autoload 'metamail-buffer "metamail" nil t)
-(setq mime/body-decoding-method (function metamail-buffer))
-----------------------------------------------------------------------
-]]E
-
- metamail \e$B$r;H$&@_Dj$N>l9g!"\e(B`v', `e', `C-c p' \e$B$KBP1~$9$kF0:n$O\e(B
-metamail \e$B$K$+$1$k$@$1$K$J$j!"F10l$NF0:n$K$J$j$^$9!#$^$?!"F0:n$OC`<!E*\e(B
-\e$B$K$J$j$^$9!#\e(B
+++ /dev/null
-\documentstyle[a4j]{jarticle}
-\setcounter{secnumdepth}{6}
-\setcounter{tocdepth}{6}
-\topsep=0.1cm
-\parsep=0.1cm
-\itemsep=0.0cm
-\begin{document}
-\title{
-tm-mh-e ÀâÌÀ½ñ}
-\author{
-¼é²¬ ÃÎɧ\\
-}
-\date{
-1994ǯ8·î20Æü}
-\maketitle
-\medskip
-
-\section{install}
-\medskip
-
-\subsection{tiny-mime ¤Î install}
-\medskip
-\par
-tiny-mime.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ directory ¤Ë
-copy ¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\subsection{tm-body ¤Î install}
-\medskip
-\par
-tm-body.el, tl-list.el, tl-header.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»Ø
-Äꤵ¤ì¤¿ directory ¤Ë copy ¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\subsection{tm-misc ¤Î install}
-\medskip
-\par
-tm-misc.el, tl-hook.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿
-directory ¤Ë copy ¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\subsection{tm-mh-e ¤Î install}
-\medskip
-\par
-tm-mh-e.el, tm-mh-e3.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤷ¤¿
-directory ¤Ë copy ¤·¤Þ¤¹¡£
-\medskip
-\par
-tm-mh-e3.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢mh-e version 3.* ¤ò load ¤·
-¤¿¾õÂ֤ǹԤʤäƲ¼¤µ¤¤¡£
-\medskip
-\medskip
-
-\section{ÀßÄê}
-\medskip
-\par
-mime-setup ¤ò»È¤Ã¤Æ²¼¤µ¤¤¡£
-\medskip
-\par
-mime-setup ¤ò»È¤ï¤Ê¤¤¾ì¹ç¤Ï .emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ¤ì¤Þ¤¹¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(if (< (string-to-int emacs-version) 19)
- (progn
- (require 'tl-18)
- (defvar buffer-undo-list nil)
- ))
-
-(add-hook 'mh-folder-mode-hook
- (function
- (lambda ()
- (require 'tm-mh-e)
- )))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-¤Þ¤¿¡¢MH ¤¬ MH-6.8JP2 ¤Î¾ì¹ç¡¢\verb+~+/.mh\_profile ¤Ë
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-scan: -form scan.mime
-inc: -form inc.mime
-repl: -form replcomps.mime
-showproc: mhl
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-¤òÄɲ䷤Ƥ¯¤À¤µ¤¤¡£¤Þ¤¿¡¢¤½¤ì°Ê³°¤Î MH ¤Î½èÍý¤Ï Emacs ¤Î¦¤Ç¼è¤ê»ÅÀÚ
-¤ë¤Î¤Ç¡¢MH ¤ÎÀßÄê¤Ï¤·¤Ê¤¤¤è¤¦¤Ë¤·¤Æ¤¯¤À¤µ¤¤¡£
-\medskip
-\medskip
-
-\section{»È¤¤Êý}
-\medskip
-~\\
-\begin{tabular}{|c|c|}
-\hline
- key & µ¡Ç½ \\
-\hline\hline
- M-t & message header ¤ò decode ¤Ë´Ø¤¹¤ë toggle switch \\
-\hline
- v & message body ¤ò MIME decode ¤·¤Æ¡¢ºÆÀ¸¤¹¤ë (play mode) \\
- e & message body ¤ò MIME decode ¤·¤Æ¡¢file ¤ËÍ (extract mode)\\
-C-c p & message body ¤ò MIME decode ¤·¤Æ¡¢°õºþ¤¹¤ë (print mode) \\
-\hline
-\end{tabular}\\
-\medskip
-\par
-message body ¤Î MIME decode ¤Ë¤ª¤¤¤Æ¡¢¼ÂºÝ¤Ë³ÆÆ°ºî¤¬¹Ô¤Ê¤ï¤ì¤ë¤«¤É¤¦
-¤«¤Ï¡¢³Æ Content-Type ¤ËÂбþ¤¹¤ë tm-body ¤Î mthod ¤Ë°Í¸¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\section{metamail ¤ò»È¤¦ÊýË¡}
-\medskip
-\par
-tm-mh-e ¤Ï MIME body ¤Î decode ¤Ë tm-body ¤ò»È¤¤¤Þ¤¹¤¬¡¢metamail ¤ò
-»È¤¦¤è¤¦¤ËÀßÄꤹ¤ë¤³¤È¤â²Äǽ¤Ç¤¹¡£Ã¢¤·¡¢metamail ¤È metamail.el ¤¬É¬Í×
-¤Ç¤¹¡£
-\medskip
-\par
-¤³¤Î¾ì¹ç .emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(autoload 'metamail-buffer "metamail" nil t)
-(setq mime/body-decoding-method (function metamail-buffer))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-metamail ¤ò»È¤¦ÀßÄê¤Î¾ì¹ç¡¢`v', `e', `C-c p' ¤ËÂбþ¤¹¤ëÆ°ºî¤Ï
-metamail ¤Ë¤«¤±¤ë¤À¤±¤Ë¤Ê¤ê¡¢Æ±°ì¤ÎÆ°ºî¤Ë¤Ê¤ê¤Þ¤¹¡£¤Þ¤¿¡¢Æ°ºî¤ÏÃ༡Ū
-¤Ë¤Ê¤ê¤Þ¤¹¡£
-\end{document}
+++ /dev/null
-;;;
-;;; A MIME extender for mh-e
-;;;
-;;; by Morioka Tomohiko, 1993/11/21
-;;;
-
-(provide 'tm-mh-e)
-
-
-;;; @ require modules
-;;;
-(require 'tl-str)
-(require 'tm-misc)
-(require 'mh-e)
-(if (not (boundp 'mh-e-version))
- (require 'tm-mh-e3)
- )
-(autoload 'mime/viewer-mode "tm-view" "View MIME message." t)
-
-
-;;; @ version
-;;;
-(defconst tm-mh-e/RCS-ID
- "$Id: tm-mh-e.el,v 5.3 1994/10/25 09:06:36 morioka Exp $")
-
-(defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
-
-
-;;; @ MIME header decoding mode
-;;;
-(defun tm-mh-e/toggle-header-decoding-mode (arg)
- "Toggle MIME header processing.
-With arg, turn MIME processing on if arg is positive."
- (interactive "P")
- (setq mime/header-decoding-mode
- (if (null arg)
- (not mime/header-decoding-mode)
- arg))
- (mh-invalidate-show-buffer)
- (mh-show-msg (mh-get-msg-num t))
- )
-
-
-;;; @ MIME body players
-;;;
-(defun tm-mh-e/view-message (arg)
- "MIME decode and play this message."
- (interactive "P")
- (mh-invalidate-show-buffer)
- (mh-show-msg (mh-get-msg-num t))
- (pop-to-buffer mh-show-buffer t)
- (mime/viewer-mode)
- )
-
-
-;;; @ set up
-;;;
-
-(defun tm-mh-e/decode-message-header ()
- (make-local-variable 'minor-mode-alist)
- (mime/add-header-decoding-mode-to-mode-line)
- (let ((buffer-read-only nil))
- (mime/decode-message-header-if-you-need)
- (set-buffer-modified-p nil)
- ))
-(add-hook 'mh-show-mode-hook
- (function tm-mh-e/decode-message-header))
-
-(define-key mh-folder-mode-map "\et" 'tm-mh-e/toggle-header-decoding-mode)
-(define-key mh-folder-mode-map "v" 'tm-mh-e/view-message)
-(define-key mh-folder-mode-map "\r"
- (function (lambda ()
- (interactive)
- (scroll-other-window 1)
- )))
-(define-key mh-folder-mode-map "\e\r"
- (function (lambda ()
- (interactive)
- (scroll-other-window -1)
- )))
+++ /dev/null
-;;;
-;;; $Id: tm-mh-e3.el,v 1.2 1994/11/01 18:06:16 morioka Exp $
-;;;
-;;; This is a part of tm-mh-e.el which is a module for old mh-e
-;;; to emulate mh-e 4.0.
-;;;
-;;; This module imports from mh-e 3.8 and 4.0.
-;;;
-
-(provide 'tm-mh-e3)
-
-;;; Ensure new buffers won't get this mode if default-major-mode is nil.
-(put 'mh-show-mode 'mode-class 'special)
-
-(defun mh-show-mode ()
- "Major mode for showing messages in mh-e.
-The value of mh-show-mode-hook is called when a new message is displayed."
- (kill-all-local-variables)
- (setq major-mode 'mh-show-mode)
- (mh-set-mode-name "MH-Show")
- (run-hooks 'mh-show-mode-hook))
-
-(defun mh-display-msg (msg-num folder &optional show-buffer)
- ;; Display message NUMBER of FOLDER.
- ;; Sets the current buffer to the show buffer.
- (set-buffer folder)
- (or show-buffer
- (setq show-buffer mh-show-buffer))
- ;; Bind variables in folder buffer in case they are local
- (let ((formfile mhl-formfile)
- (clean-message-header mh-clean-message-header)
- (invisible-headers mh-invisible-headers)
- (visible-headers mh-visible-headers)
- (msg-filename (mh-msg-filename msg-num))
- (folder mh-current-folder))
- (if (not (file-exists-p msg-filename))
- (error "Message %d does not exist" msg-num))
- (switch-to-buffer show-buffer)
- (if mh-bury-show-buffer (bury-buffer (current-buffer)))
- (mh-when (or (not (equal msg-filename buffer-file-name)))
- ;; Buffer does not yet contain message.
- (clear-visited-file-modtime)
- (unlock-buffer)
- (setq buffer-file-name nil) ; no locking during setup
- (erase-buffer)
- (if formfile
- (if (stringp formfile)
- (mh-exec-lib-cmd-output "mhl" "-nobell" "-noclear"
- "-form" formfile msg-filename)
- (mh-exec-lib-cmd-output "mhl" "-nobell" "-noclear"
- msg-filename))
- (insert-file-contents msg-filename))
- (goto-char (point-min))
- (cond (clean-message-header
- (mh-clean-msg-header (point-min)
- invisible-headers
- visible-headers)
- (goto-char (point-min)))
- (t
- (let ((case-fold-search t))
- (re-search-forward
- "^To:\\|^From:\\|^Subject:\\|^Date:" nil t)
- (beginning-of-line)
- (mh-recenter 0))))
- (set-buffer-modified-p nil)
- (setq buffer-file-name msg-filename)
- (set-mark nil)
- (mh-show-mode)
- (setq mode-line-buffer-identification
- (list (format mh-show-buffer-mode-line-buffer-id
- folder msg-num))))))
-
-(fset 'mh-show-msg 'mh-show)
+++ /dev/null
-;;;
-;;; $Id: tm-misc.el,v 5.2 1995/08/26 18:41:39 morioka Exp $
-;;;
-;;; MIME utility for tm-*.el MIME user agent packages
-;;;
-;;; by Morioka Tomohiko, 1993/11/21
-;;;
-
-(require 'emu)
-(require 'tiny-mime)
-
-
-;;; @ variables
-;;;
-
-(defvar mime/tmp-dir (or (getenv "TM_TMPDIR") "/tmp/"))
-
-(defvar mime/header-decoding-mode t "*Decode MIME header if non-nil.")
-
-
-;;; @ functions
-;;;
-
-(defun mime/decode-message-header-if-you-need ()
- (if mime/header-decoding-mode
- (mime/decode-message-header)
- ))
-
-(defun mime/add-header-decoding-mode-to-mode-line ()
- (or (assq 'mime/header-decoding-mode minor-mode-alist)
- (setq minor-mode-alist
- (cons (list 'mime/header-decoding-mode " MIME")
- minor-mode-alist))
- ))
-
-
-;;; @@ functions to check field
-;;;
-(defun mime/exist-encoded-word-in-subject ()
- (string-match
- mime/encoded-word-regexp
- (save-excursion
- (save-restriction
- (goto-char (point-min))
- (if (re-search-forward "^Subject:.*\\(\n\\( \\|\t\\)+.*\\)*" nil t)
- (buffer-substring (match-beginning 0) (match-end 0))
- )
- ))))
-
-
-;;; @ end
-;;;
-
-(provide 'tm-misc)
+++ /dev/null
-;;;
-;;; tm-w3.el: a tm-view internal decoder for HTML
-;;;
-;;; by MORIOKA Tomohiko <morioka@jaist.ac.jp> (1995/09/14)
-;;;
-;;; based on tm-latex.el by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
-;;;
-;;; $Id: tm-w3.el,v 3.0 1995/10/20 10:42:41 morioka Exp $
-;;;
-
-(require 'tm-view)
-
-(autoload 'w3-mode "w3" "HTML viewer" t)
-
-(defvar mime-viewer/html-default-mode (function w3-mode))
-
-(defun mime-viewer/decode-html (beg end cal)
- (let* ((cur-buf (current-buffer))
- new-buf
- (name (or (cdr (assoc "name" cal))
- (cdr (assoc "x-name" cal))
- (concat (make-temp-name "tm") ".html"))))
- (switch-to-buffer mime::article/preview-buffer)
- (funcall mime/find-file-function (expand-file-name name mime/tmp-dir))
- (if (or (<= (buffer-size) 0)
- (y-or-n-p "Replace the existing buffer?"))
- (progn
- (erase-buffer)
- (setq new-buf (current-buffer))
- (save-excursion
- (set-buffer cur-buf)
- (goto-char beg)
- (re-search-forward "^$")
- (append-to-buffer new-buf (+ (match-end 0) 1) end)
- )))
- (mime/decode-region encoding (point-min)(point-max))
- (call-interactively mime-viewer/html-default-mode)
- ))
-
-(set-atype 'mime/content-decoding-condition
- '((type . "text/html")
- (method . mime-viewer/decode-html)
- ))
-
-(provide 'tm-w3)
projects / elisp / tm.git / commitdiff