This commit was manufactured by cvs2svn to create tag 'tm7_87'. tm7_87
authortomo <tomo>
Tue, 10 Mar 1998 05:12:33 +0000 (05:12 +0000)
committertomo <tomo>
Tue, 10 Mar 1998 05:12:33 +0000 (05:12 +0000)
280 files changed:
Changes-6.50-6.54.ja [deleted file]
Changes-6.54-6.58.ja [deleted file]
Changes-6.59-6.63.ja [deleted file]
Changes-6.64-6.67.en [deleted file]
Changes-6.64-6.67.ja [deleted file]
Changes-6.68-6.70.en [deleted file]
Changes-6.68-6.70.ja [deleted file]
Changes-6.71.en [deleted file]
Changes-6.71.ja [deleted file]
Changes-6.72.en [deleted file]
Changes-6.72.ja [deleted file]
Changes-6.73.en [deleted file]
Changes-6.73.ja [deleted file]
Changes-6.74.en [deleted file]
Changes-6.74.ja [deleted file]
Changes-6.75-6.76.en [deleted file]
Changes-6.75-6.76.ja [deleted file]
Changes-6.76.1.en [deleted file]
Changes-6.76.1.ja [deleted file]
Changes-6.76.2.en [deleted file]
Changes-6.76.2.ja [deleted file]
Changes-6.77.en [deleted file]
Changes-6.77.ja [deleted file]
Changes-6.78.1.en [deleted file]
Changes-6.78.1.ja [deleted file]
Changes-6.78.2.en [deleted file]
Changes-6.78.2.ja [deleted file]
Changes-6.78.en [deleted file]
Changes-6.78.ja [deleted file]
Changes-6.79.en [deleted file]
Changes-6.79.ja [deleted file]
Changes-6.80.1.en [deleted file]
Changes-6.80.1.ja [deleted file]
Changes-6.80.en [deleted file]
Changes-6.80.ja [deleted file]
Changes-6.81-6.83.en [deleted file]
Changes-6.81-6.83.ja [deleted file]
Changes-6.84-6.88.en [deleted file]
Changes-6.84-6.88.ja [deleted file]
Changes-6.89-6.92.en [deleted file]
Changes-6.89-6.92.ja [deleted file]
Changes-6.92-7.06.en [deleted file]
Changes-6.92-7.06.ja [deleted file]
Changes-7.07-7.09.en [deleted file]
Changes-7.07-7.09.ja [deleted file]
Changes-7.09-7.10.en [deleted file]
Changes-7.09-7.10.ja [deleted file]
Changes-7.11.en [deleted file]
Changes-7.11.ja [deleted file]
Changes-7.12.en [deleted file]
Changes-7.12.ja [deleted file]
Changes-7.13.en [deleted file]
Changes-7.13.ja [deleted file]
Changes-7.14-7.15.en [deleted file]
Changes-7.14-7.15.ja [deleted file]
Changes-7.16.en [deleted file]
Changes-7.16.ja [deleted file]
Changes-7.17.en [deleted file]
Changes-7.17.ja [deleted file]
Changes-7.18.en [deleted file]
Changes-7.18.ja [deleted file]
Changes-7.19.en [deleted file]
Changes-7.19.ja [deleted file]
Changes-7.20.en [deleted file]
Changes-7.20.ja [deleted file]
Changes-7.21.en [deleted file]
Changes-7.21.ja [deleted file]
Changes-7.22.en [deleted file]
Changes-7.22.ja [deleted file]
Changes-7.23.en [deleted file]
Changes-7.23.ja [deleted file]
Changes-7.24.en [deleted file]
Changes-7.24.ja [deleted file]
Changes-7.25.en [deleted file]
Changes-7.25.ja [deleted file]
Changes-7.26.en [deleted file]
Changes-7.26.ja [deleted file]
Changes-7.27.1.en [deleted file]
Changes-7.27.1.ja [deleted file]
Changes-7.27.en [deleted file]
Changes-7.27.ja [deleted file]
Changes-7.28.en [deleted file]
Changes-7.29.en [deleted file]
Changes-7.29.ja [deleted file]
Changes-7.30.en [deleted file]
Changes-7.30.ja [deleted file]
Changes-7.31.en [deleted file]
Changes-7.32.en [deleted file]
Changes-7.33.en [deleted file]
Changes-7.33.ja [deleted file]
Changes-7.34.en [deleted file]
Changes-7.35.en [deleted file]
Changes-7.36.en [deleted file]
Changes-7.37.en [deleted file]
Changes-7.38.en [deleted file]
Changes-7.39.en [deleted file]
Changes-7.40.en [deleted file]
Makefile.18 [deleted file]
Makefile.19 [deleted file]
Makefile.bc [deleted file]
Makefile.o19 [deleted file]
README-eng.ol [deleted file]
README-eng.tex [deleted file]
README-jp.ol [deleted file]
README-jp.tex [deleted file]
README.eng [deleted file]
base64.el [deleted file]
config.tm [deleted file]
decode-b.c [deleted file]
doc/rel-6eng.ol [deleted file]
doc/rel-6jp.ol [deleted file]
doc/tiny-mime-eng.ol [deleted file]
doc/tiny-mime-eng.tex [deleted file]
doc/tiny-mime-jp.ol [deleted file]
doc/tiny-mime-jp.tex [deleted file]
doc/tiny-mime-jp.texi [deleted file]
doc/tl-jp.texi [deleted file]
doc/tm-comp-2.0-jp.pln [deleted file]
doc/tm-comp-jp.pln [deleted file]
doc/tm-edit=en.texi [deleted file]
doc/tm-eng.tex [deleted file]
doc/tm-eng.tex,v [deleted file]
doc/tm-ew-d_en.texi [deleted file]
doc/tm-ew-d_ja.texi [deleted file]
doc/tm-ew_en.texi [deleted file]
doc/tm-ew_ja.texi [deleted file]
doc/tm-eword_ja.texi [deleted file]
doc/tm-head-jp.texi [deleted file]
doc/tm-jp.tex [deleted file]
doc/tm-jp.tex,v [deleted file]
doc/tm-jp.texi [deleted file]
doc/tm-util_en.texi [deleted file]
doc/tm-util_ja.texi [deleted file]
doc/tm-view-a_en.texi [deleted file]
doc/tm-view-a_ja.texi [deleted file]
doc/tm-view-cb_en.texi [deleted file]
doc/tm-view-cb_ja.texi [deleted file]
doc/tm-view-ch_en.texi [deleted file]
doc/tm-view-ch_ja.texi [deleted file]
doc/tm-view-cs_en.texi [deleted file]
doc/tm-view-cs_ja.texi [deleted file]
doc/tm-view-m_en.texi [deleted file]
doc/tm-view-m_ja.texi [deleted file]
doc/tm-view-p_en.texi [deleted file]
doc/tm-view-p_ja.texi [deleted file]
doc/tm-view_en.texi [deleted file]
doc/tm-view_ja.texi [deleted file]
gnus/ChangeLog [deleted file]
gnus/ChangeLog-7.18.en [deleted file]
gnus/ChangeLog-7.18.ja [deleted file]
gnus/ChangeLog-7.19.en [deleted file]
gnus/ChangeLog-7.19.ja [deleted file]
gnus/ChangeLog-7.20.1.en [deleted file]
gnus/ChangeLog-7.20.1.ja [deleted file]
gnus/ChangeLog-7.20.en [deleted file]
gnus/ChangeLog-7.21.1.en [deleted file]
gnus/ChangeLog-7.21.2.en [deleted file]
gnus/ChangeLog-7.21.en [deleted file]
gnus/ChangeLog-7.22.en [deleted file]
gnus/ChangeLog-7.23-7.24.en [deleted file]
gnus/ChangeLog-7.25.en [deleted file]
gnus/ChangeLog-7.26.en [deleted file]
gnus/ChangeLog-7.27-7.28.en [deleted file]
gnus/ChangeLog-7.29-7.30.en [deleted file]
gnus/Makefile [deleted file]
gnus/Makefile.bc [deleted file]
gnus/d-path [deleted file]
gnus/g3-path [deleted file]
gnus/g4-path [deleted file]
gnus/g5-path [deleted file]
gnus/gnus-art-mime.el [deleted file]
gnus/gnus-charset.el [deleted file]
gnus/gnus-mime.el [deleted file]
gnus/gnus-msg-mime.el [deleted file]
gnus/gnus-sum-mime.el [deleted file]
gnus/gnushook.el [deleted file]
gnus/message-mime.el [deleted file]
gnus/mk-tgnus [deleted file]
gnus/s-path [deleted file]
gnus/tgnus-bc.el [deleted file]
gnus/tm-dgnus.el [deleted file]
gnus/tm-gd3.el [deleted file]
gnus/tm-gd5.el [deleted file]
gnus/tm-gnus.el [deleted file]
gnus/tm-gnus3.el [deleted file]
gnus/tm-gnus4.el [deleted file]
gnus/tm-gnus5.el [deleted file]
gnus/tm-ognus.el [deleted file]
gnus/tm-sgnus.el [deleted file]
gnushook.el [deleted file]
inst-el [deleted file]
inst-elc [deleted file]
make-lpath [deleted file]
methods/csh/tm-au [deleted file]
methods/csh/tm-file [deleted file]
methods/csh/tm-image [deleted file]
methods/csh/tm-mpeg [deleted file]
methods/csh/tm-plain [deleted file]
methods/csh/tmdecode [deleted file]
methods/tm-latex [deleted file]
methods/tm-www [deleted file]
mh-e/ChangeLog [deleted file]
mh-e/ChangeLog-7.25.en [deleted file]
mh-e/ChangeLog-7.25.ja [deleted file]
mh-e/ChangeLog-7.26.en [deleted file]
mh-e/ChangeLog-7.26.ja [deleted file]
mh-e/ChangeLog-7.27-7.30.en [deleted file]
mh-e/ChangeLog-7.27-7.30.ja [deleted file]
mh-e/ChangeLog-7.40.en [deleted file]
mh-e/ChangeLog-7.40.ja [deleted file]
mh-e/ChangeLog-7.41.en [deleted file]
mh-e/ChangeLog-7.43.en [deleted file]
mh-e/ChangeLog-7.44.en [deleted file]
mh-e/Makefile [deleted file]
mh-e/Makefile.bc [deleted file]
mh-e/TMH-ELS [deleted file]
mh-e/code-jp.ol [deleted file]
mh-e/mk-tmh [deleted file]
mh-e/tm-mh-e.el [deleted file]
mh-e/tm-mh-e3.el [deleted file]
mh-e/tmh-comp.el [deleted file]
mh-e/tmh-els [deleted file]
mime-setup.el [deleted file]
mk-tm [deleted file]
ol2.c [deleted file]
qprint.el [deleted file]
rel-6eng.ol [deleted file]
rel-6jp.ol [deleted file]
rel-7jp.ol [deleted file]
richtext.el [deleted file]
signature-jp.ol [deleted file]
signature-jp.tex [deleted file]
src/tmpgp [deleted file]
tiny-mime-eng.ol [deleted file]
tiny-mime-eng.tex [deleted file]
tiny-mime-jp.ol [deleted file]
tiny-mime-jp.tex [deleted file]
tiny-mime.el [deleted file]
tinyrich.el [deleted file]
tl-18.el [deleted file]
tl-header.el [deleted file]
tl-list.el [deleted file]
tl-mule.el [deleted file]
tl-nemacs.el [deleted file]
tl-orig.el [deleted file]
tl-str.el [deleted file]
tm-body-eng.ol [deleted file]
tm-body-eng.tex [deleted file]
tm-body-jp.ol [deleted file]
tm-body-jp.tex [deleted file]
tm-body.el [deleted file]
tm-cfg [deleted file]
tm-comp-jp.pln [deleted file]
tm-comp.el [deleted file]
tm-els [deleted file]
tm-enriched.el [deleted file]
tm-evs.el [deleted file]
tm-gnus-eng.ol [deleted file]
tm-gnus-eng.tex [deleted file]
tm-gnus-jp.ol [deleted file]
tm-gnus-jp.tex [deleted file]
tm-gnus.el [deleted file]
tm-gnus3.el [deleted file]
tm-gnus4.el [deleted file]
tm-jp.tex [deleted file]
tm-mail.el [deleted file]
tm-mh-e-eng.ol [deleted file]
tm-mh-e-eng.tex [deleted file]
tm-mh-e-jp.ol [deleted file]
tm-mh-e-jp.tex [deleted file]
tm-mh-e.el [deleted file]
tm-mh-e3.el [deleted file]
tm-misc.el [deleted file]
tm-mule.el [deleted file]
tm-nemacs.el [deleted file]
tm-orig.el [deleted file]
tm-rich.el [deleted file]
tm-rmail.el [deleted file]
tm-vm.el [deleted file]
tm-w3.el [deleted file]

diff --git a/Changes-6.50-6.54.ja b/Changes-6.50-6.54.ja
deleted file mode 100644 (file)
index d53b825..0000000
+++ /dev/null
@@ -1,101 +0,0 @@
-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
-----------------------------
diff --git a/Changes-6.54-6.58.ja b/Changes-6.54-6.58.ja
deleted file mode 100644 (file)
index 6a47e60..0000000
+++ /dev/null
@@ -1,47 +0,0 @@
-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
-----------------------------
diff --git a/Changes-6.59-6.63.ja b/Changes-6.59-6.63.ja
deleted file mode 100644 (file)
index e569930..0000000
+++ /dev/null
@@ -1,73 +0,0 @@
-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
diff --git a/Changes-6.64-6.67.en b/Changes-6.64-6.67.en
deleted file mode 100644 (file)
index 03c0737..0000000
+++ /dev/null
@@ -1,102 +0,0 @@
-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).
-----------------------------
diff --git a/Changes-6.64-6.67.ja b/Changes-6.64-6.67.ja
deleted file mode 100644 (file)
index 06dee58..0000000
+++ /dev/null
@@ -1,131 +0,0 @@
-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
-----------------------------
diff --git a/Changes-6.68-6.70.en b/Changes-6.68-6.70.en
deleted file mode 100644 (file)
index 3d6397e..0000000
+++ /dev/null
@@ -1,79 +0,0 @@
-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'.
-----------------------------
diff --git a/Changes-6.68-6.70.ja b/Changes-6.68-6.70.ja
deleted file mode 100644 (file)
index defd06b..0000000
+++ /dev/null
@@ -1,79 +0,0 @@
-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
-----------------------------
diff --git a/Changes-6.71.en b/Changes-6.71.en
deleted file mode 100644 (file)
index b401151..0000000
+++ /dev/null
@@ -1,42 +0,0 @@
-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>.
diff --git a/Changes-6.71.ja b/Changes-6.71.ja
deleted file mode 100644 (file)
index 7b9eb33..0000000
+++ /dev/null
@@ -1,42 +0,0 @@
-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
diff --git a/Changes-6.72.en b/Changes-6.72.en
deleted file mode 100644 (file)
index 7ba4424..0000000
+++ /dev/null
@@ -1,10 +0,0 @@
-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.
diff --git a/Changes-6.72.ja b/Changes-6.72.ja
deleted file mode 100644 (file)
index 336e06b..0000000
+++ /dev/null
@@ -1,11 +0,0 @@
-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
diff --git a/Changes-6.73.en b/Changes-6.73.en
deleted file mode 100644 (file)
index a54b1f7..0000000
+++ /dev/null
@@ -1,71 +0,0 @@
-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'.
-----------------------------
diff --git a/Changes-6.73.ja b/Changes-6.73.ja
deleted file mode 100644 (file)
index a78a4dd..0000000
+++ /dev/null
@@ -1,70 +0,0 @@
-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
-----------------------------
diff --git a/Changes-6.74.en b/Changes-6.74.en
deleted file mode 100644 (file)
index 87b28b4..0000000
+++ /dev/null
@@ -1,124 +0,0 @@
-* 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.
-----------------------------
diff --git a/Changes-6.74.ja b/Changes-6.74.ja
deleted file mode 100644 (file)
index d00dc7c..0000000
+++ /dev/null
@@ -1,125 +0,0 @@
-* 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
-----------------------------
diff --git a/Changes-6.75-6.76.en b/Changes-6.75-6.76.en
deleted file mode 100644 (file)
index 5a907b3..0000000
+++ /dev/null
@@ -1,46 +0,0 @@
-* 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.
-----------------------------
diff --git a/Changes-6.75-6.76.ja b/Changes-6.75-6.76.ja
deleted file mode 100644 (file)
index f1b6558..0000000
+++ /dev/null
@@ -1,46 +0,0 @@
-* 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
-----------------------------
diff --git a/Changes-6.76.1.en b/Changes-6.76.1.en
deleted file mode 100644 (file)
index 5a64d4a..0000000
+++ /dev/null
@@ -1,63 +0,0 @@
-* 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.
-----------------------------
diff --git a/Changes-6.76.1.ja b/Changes-6.76.1.ja
deleted file mode 100644 (file)
index 6589b63..0000000
+++ /dev/null
@@ -1,64 +0,0 @@
-* 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
-----------------------------
diff --git a/Changes-6.76.2.en b/Changes-6.76.2.en
deleted file mode 100644 (file)
index 5491c11..0000000
+++ /dev/null
@@ -1,5 +0,0 @@
-* tm
-
-       - Modified tm-view manual, a little.
-       - Wrote tm-gnus manual.
-       - Added a comment for gnus5 to tm/Makefile.
diff --git a/Changes-6.76.2.ja b/Changes-6.76.2.ja
deleted file mode 100644 (file)
index 0e709b5..0000000
+++ /dev/null
@@ -1,5 +0,0 @@
-* 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  
diff --git a/Changes-6.77.en b/Changes-6.77.en
deleted file mode 100644 (file)
index df4985d..0000000
+++ /dev/null
@@ -1,178 +0,0 @@
-* 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'.
-----------------------------
diff --git a/Changes-6.77.ja b/Changes-6.77.ja
deleted file mode 100644 (file)
index 5a992d2..0000000
+++ /dev/null
@@ -1,173 +0,0 @@
-* 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
-----------------------------
diff --git a/Changes-6.78.1.en b/Changes-6.78.1.en
deleted file mode 100644 (file)
index c4390c5..0000000
+++ /dev/null
@@ -1,50 +0,0 @@
-* 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.
diff --git a/Changes-6.78.1.ja b/Changes-6.78.1.ja
deleted file mode 100644 (file)
index d51e1f2..0000000
+++ /dev/null
@@ -1,50 +0,0 @@
-* 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
diff --git a/Changes-6.78.2.en b/Changes-6.78.2.en
deleted file mode 100644 (file)
index a705802..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-* 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.
-----------------------------
diff --git a/Changes-6.78.2.ja b/Changes-6.78.2.ja
deleted file mode 100644 (file)
index be9ffc3..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-* 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
-----------------------------
diff --git a/Changes-6.78.en b/Changes-6.78.en
deleted file mode 100644 (file)
index 403f8e3..0000000
+++ /dev/null
@@ -1,59 +0,0 @@
-* 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).
-----------------------------
diff --git a/Changes-6.78.ja b/Changes-6.78.ja
deleted file mode 100644 (file)
index 8e559b5..0000000
+++ /dev/null
@@ -1,59 +0,0 @@
-* 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
-----------------------------
diff --git a/Changes-6.79.en b/Changes-6.79.en
deleted file mode 100644 (file)
index 0ad9d3c..0000000
+++ /dev/null
@@ -1,57 +0,0 @@
-* 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.
-----------------------------
diff --git a/Changes-6.79.ja b/Changes-6.79.ja
deleted file mode 100644 (file)
index 2b24937..0000000
+++ /dev/null
@@ -1,55 +0,0 @@
-* 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
-----------------------------
diff --git a/Changes-6.80.1.en b/Changes-6.80.1.en
deleted file mode 100644 (file)
index a8506c1..0000000
+++ /dev/null
@@ -1,49 +0,0 @@
-* 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).
-----------------------------
diff --git a/Changes-6.80.1.ja b/Changes-6.80.1.ja
deleted file mode 100644 (file)
index 851666a..0000000
+++ /dev/null
@@ -1,49 +0,0 @@
-* 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
-----------------------------
diff --git a/Changes-6.80.en b/Changes-6.80.en
deleted file mode 100644 (file)
index aa9c902..0000000
+++ /dev/null
@@ -1,32 +0,0 @@
-* 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.
-----------------------------
diff --git a/Changes-6.80.ja b/Changes-6.80.ja
deleted file mode 100644 (file)
index 964b2c1..0000000
+++ /dev/null
@@ -1,32 +0,0 @@
-* 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
-----------------------------
diff --git a/Changes-6.81-6.83.en b/Changes-6.81-6.83.en
deleted file mode 100644 (file)
index 080d519..0000000
+++ /dev/null
@@ -1,138 +0,0 @@
-* tl
-
-       Attached version 6.6.5.
-
-
-tl/tl-header.el
-----------------------------
-revision 5.9
-date: 1995/09/20 12:11:33;  author: morioka;  state: Exp;  lines: +12 -3
-(1) Function `message/field-end' was created.
-(2) Function `message/get-field-body' was modified to use function
-    `message/field-end'.
-----------------------------
-
-
-* tm
-
-tm/tiny-mime.el
-----------------------------
-revision 6.7
-date: 1995/09/20 12:17:28;  author: morioka;  state: Exp;  lines: +2 -10
-Function `mime/unfolding' was modified to use function
-`message/field-end'.
-----------------------------
-
-tm/tinyrich.el
-----------------------------
-revision 5.0
-date: 1995/09/20 14:45:56;  author: morioka;  state: Exp;  lines: +12 -41
-It was modified to use function `tm:set-face-region'.
-----------------------------
-
-tm/tm-def.el
-----------------------------
-revision 6.1
-date: 1995/09/20 14:44:49;  author: morioka;  state: Exp;  lines: +30 -2
-function `tm:set-face-region' was defined for each emacs variants.
-----------------------------
-revision 6.0
-date: 1995/09/19 16:09:04;  author: morioka;  state: Exp;  lines: +2 -2
-UENO Hiroshi <zodiac@ibm.net> said:
-======================================================================
-tm-def gets `mime/tmp-dir' from environment variable `TM_TMPDIR', on
-the other hand external methods get from `TM_TMP_DIR'. External
-methods for OS/2 is using `TM_TMP_DIR', because csh version external
-methods, which are model of OS/2 methods, were using `TM_TMP_DIR'. So
-I think TM_TMP_DIR may be correct. Anyway, I think they should be
-unified.
-======================================================================
-So I fixed to use `TM_TMP_DIR'.
-----------------------------
-revision 5.0
-date: 1995/09/14 15:48:25;  author: morioka;  state: Exp;  lines: +13 -1
-Variable `mime/use-multi-frame' and variable `mime/find-file-function' 
-are defined.
-----------------------------
-
-tm/tm-ftp.el
-----------------------------
-revision 6.1
-date: 1995/09/14 15:49:43;  author: morioka;  state: Exp;  lines: +11 -4
-When variable `mime/use-multi-frame' is non-nil, dired is displayed as
-another frame.
-----------------------------
-
-tm/tm-latex.el
-----------------------------
-revision 3.0
-date: 1995/09/14 15:51:35;  author: morioka;  state: Exp;  lines: +6 -4
-Variable `mime/find-file-function' was defined as a function to find
-file.
-----------------------------
-
-tm/tm-partial.el
-----------------------------
-revision 6.0
-date: 1995/09/20 14:39:23;  author: morioka;  state: Exp;  lines: +12 -7
-Fixed a problem of function `mime/decode-message/grab-partials'.
-----------------------------
-
-tm/tm-tar.el
-----------------------------
-By UENO Hiroshi <zodiac@ibm.net>.
-It is a internal method of tm-view to view files included in tar or
-tar.gz content.
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 6.83
-date: 1995/09/20 14:19:42;  author: morioka;  state: Exp;  lines: +5 -1
-Function `mime-viewer/make-preview-buffer' was fixed about
-message/partial announcement. If body is empty, empty line is inserted.
-----------------------------
-revision 6.82
-date: 1995/09/20 12:16:14;  author: morioka;  state: Exp;  lines: +26 -3
-(1) Display X-Face.
-(2) X-Face field does not display in default.
-----------------------------
-revision 6.81
-date: 1995/09/14 15:46:45;  author: morioka;  state: Exp;  lines: +10 -3
-2 announcements of message/partial, mouse is available or not, was
-defined.
-----------------------------
-
-tm/tm-w3.el
-----------------------------
-revision 1.1
-date: 1995/09/14 15:51:57;  author: morioka;  state: Exp;
-Internal method to view HTML content.
-----------------------------
-
-
-* tm/mh-e
-
-       Attached version 6.27.
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 6.27
-date: 1995/09/20 12:34:39;  author: morioka;  state: Exp;  lines: +4 -2
-
-  (if (featurep 'hilit19)
-      (hilit-rehighlight-buffer-quietly)
-    )
-
-was inserted in function `tm-mh-e/content-header-filter'.
-----------------------------
-revision 6.26
-date: 1995/09/20 12:19:28;  author: morioka;  state: Exp;  lines: +2 -1
-Function `tm-mh-e/content-header-filter' was modified to call function
-`mime-viewer/x-face-function'.
-----------------------------
-revision 6.25
-date: 1995/09/15 06:58:00;  author: morioka;  state: Exp;  lines: +24 -1
-Function `tm-mh-e/toggle-showing' was defined to fix a problem of `t'
-key in summary mode.
-----------------------------
diff --git a/Changes-6.81-6.83.ja b/Changes-6.81-6.83.ja
deleted file mode 100644 (file)
index 3ce7ca6..0000000
+++ /dev/null
@@ -1,136 +0,0 @@
-* tl
-
-       Version 6.6.5 \e$B$rE:IU$7$?!#\e(B
-
-
-tl/tl-header.el
-----------------------------
-revision 5.9
-date: 1995/09/20 12:11:33;  author: morioka;  state: Exp;  lines: +12 -3
-(1) \e$B4X?t\e(B message/field-end \e$B$rDI2C$7$?!#\e(B
-(2) \e$B4X?t\e(B message/field-end \e$B$r;H$&$h$&$K4X?t\e(B message/get-field-body \e$B$r\e(B
-    \e$B=$@5$7$?!#\e(B
-----------------------------
-
-
-* tm
-
-tm/tiny-mime.el
-----------------------------
-revision 6.7
-date: 1995/09/20 12:17:28;  author: morioka;  state: Exp;  lines: +2 -10
-\e$B4X?t\e(B mime/unfolding \e$B$G4X?t\e(B message/field-end \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/tinyrich.el
-----------------------------
-revision 5.0
-date: 1995/09/20 14:45:56;  author: morioka;  state: Exp;  lines: +12 -41
-\e$B4X?t\e(B tm:set-face-region \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/tm-def.el
-----------------------------
-revision 6.1
-date: 1995/09/20 14:44:49;  author: morioka;  state: Exp;  lines: +30 -2
-\e$B3F\e(B Emacs \e$B$N\e(B variant \e$B$KBP$7$F!"4X?t\e(B tm:set-face-region \e$B$rDj5A$7$?!#\e(B
-----------------------------
-revision 6.0
-date: 1995/09/19 16:09:04;  author: morioka;  state: Exp;  lines: +2 -2
-\e$B>eLn\e(B \e$BGn\e(B <zodiac@ibm.net> \e$B$5$s[)$/!'\e(B
-======================================================================
-\e$B$^$:\e(B tm-def \e$B$G\e(B mime/tmp-dir \e$B$r4D6-JQ?t\e(B TM_TMPDIR \e$B$+$i<h$k$h$&$K$J$C$F\e(B
-\e$B$$$k$N$G$9$,!"30It\e(B method \e$B$NJ}$O\e(B TM_TMP_DIR \e$B$K$J$C$F$$$^$9!#\e(B OS/2 \e$BMQ$N\e(B
-\e$B30It\e(B method \e$B$b\e(B TM_TMP_DIR \e$B$r;H$C$F$$$k$N$G$9$,!"3N$+$3$l$O\e(B csh \e$BMQ$K=q\e(B
-\e$B$+$l$F$$$?\e(B method \e$B$r$^$M$F=q$$$?$N$G\e(B TM_TMP_DIR \e$B$,@5$7$$$h$&$J5$$,$7$^\e(B
-\e$B$9!#$^$!$I$C$A$,@5$7$$$H$$$&$3$H$b$J$$$N$G!"$I$A$i$+$KE}0l$9$l$P$h$$$N\e(B
-\e$B$G$7$g$&!#\e(B
-======================================================================
-\e$B$H$$$&Lu$G!"\e(BTM_TMP_DIR \e$B$K=$@5$7$?!#\e(B
-----------------------------
-revision 5.0
-date: 1995/09/14 15:48:25;  author: morioka;  state: Exp;  lines: +13 -1
-\e$BJQ?t\e(B mime/use-multi-frame \e$B$HJQ?t\e(B mime/find-file-function \e$B$rDj5A$7$?!#\e(B
-----------------------------
-
-tm/tm-ftp.el
-----------------------------
-revision 6.1
-date: 1995/09/14 15:49:43;  author: morioka;  state: Exp;  lines: +11 -4
-\e$BJQ?t\e(B mime/dired-function \e$B$,\e(B non-nil \e$B$N;~!"\e(Bdired \e$B$rJL\e(B frame \e$B$KI=<($9$k\e(B
-\e$B$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/tm-latex.el
-----------------------------
-revision 3.0
-date: 1995/09/14 15:51:35;  author: morioka;  state: Exp;  lines: +6 -4
-file \e$B$N;2>H$KMQ$$$k4X?t$H$7$F!"JQ?t\e(B mime/find-file-function \e$B$NCM$rMQ$$\e(B
-\e$B$k$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/tm-partial.el
-----------------------------
-revision 6.0
-date: 1995/09/20 14:39:23;  author: morioka;  state: Exp;  lines: +12 -7
-\e$B4X?t\e(B mime/decode-message/grab-partials \e$B$NIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
-
-tm/tm-tar.el
-----------------------------
-\e$B>eLn\e(B \e$BGn\e(B <zodiac@ibm.net> \e$B$5$s:n!#\e(B
-tar \e$B$d\e(B tar.gz file \e$B$r1\Mw$9$k$?$a$NFbIt\e(B method.
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 6.83
-date: 1995/09/20 14:19:42;  author: morioka;  state: Exp;  lines: +5 -1
-\e$B4X?t\e(B mime-viewer/make-preview-buffer \e$B$r!"\e(Bmessage/partial \e$B$N;~$K\e(B
-preview buffer \e$B$KI=<($9$k\e(B message \e$B$NA0$KI,$:6u9T$,F~$k$h$&$K=$@5$7$?!#\e(B
-----------------------------
-revision 6.82
-date: 1995/09/20 12:16:14;  author: morioka;  state: Exp;  lines: +26 -3
-(1) X-Face \e$B$rI=<($9$k$h$&$K$7$?!#\e(B
-(2) X-Face field \e$B$rI=<($7$J$$$h$&$K$7$?!#\e(B
-----------------------------
-revision 6.81
-date: 1995/09/14 15:46:45;  author: morioka;  state: Exp;  lines: +10 -3
-message/partial \e$BMQ$N\e(B message \e$B$r\e(B mouse \e$B$,;H$($k>l9g$H;H$($J$$>l9g$N#2DL\e(B
-\e$B$jMQ0U$7$?!#\e(B
-----------------------------
-
-tm/tm-w3.el
-----------------------------
-revision 1.1
-date: 1995/09/14 15:51:57;  author: morioka;  state: Exp;
-HTML \e$B$r1\Mw$9$k$?$a$NFbIt\e(B method.
-----------------------------
-
-
-* tm/mh-e
-
-       Version 6.27 \e$B$rE:IU$7$?!#\e(B
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 6.27
-date: 1995/09/20 12:34:39;  author: morioka;  state: Exp;  lines: +4 -2
-\e$B4X?t\e(B tm-mh-e/content-header-filter \e$B$K\e(B
-
-  (if (featurep 'hilit19)
-      (hilit-rehighlight-buffer-quietly)
-    )
-
-\e$B$rF~$l$?!#\e(B
-----------------------------
-revision 6.26
-date: 1995/09/20 12:19:28;  author: morioka;  state: Exp;  lines: +2 -1
-\e$B4X?t\e(B tm-mh-e/content-header-filter \e$B$r4X?t\e(B mime-viewer/x-face-function
-\e$B$r8F$V$h$&$K=$@5$7$?!#\e(B
-----------------------------
-revision 6.25
-date: 1995/09/15 06:58:00;  author: morioka;  state: Exp;  lines: +24 -1
-\e$B4X?t\e(B tm-mh-e/toggle-showing \e$B$rDj5A$7!"\e(Bsummary mode \e$B$G\e(B `t' key \e$B$,$&$^$/\e(B
-\e$BF/$/$h$&$K=$@5$7$?!#\e(B
-----------------------------
diff --git a/Changes-6.84-6.88.en b/Changes-6.84-6.88.en
deleted file mode 100644 (file)
index dc82163..0000000
+++ /dev/null
@@ -1,217 +0,0 @@
-* tl
-
-  Attached version 6.6.6.
-
-       - emu is changed.
-
-tl/emu-18.el
-----------------------------
-revision 6.0
-date: 1995/09/21 00:06:48;  author: morioka;  state: Exp;  lines: +3 -1
-comment was modified.
-----------------------------
-revision 5.0
-date: 1995/09/20 23:29:11;  author: morioka;  state: Exp;  lines: +10 -2
-Variable `mouse-button-2' was created.
-----------------------------
-
-tl/emu-19.el
-----------------------------
-revision 2.0
-date: 1995/09/21 00:10:55;  author: morioka;  state: Exp;  lines: +3 -1
-comment was modified.
-----------------------------
-revision 1.1
-date: 1995/09/20 23:31:30;  author: morioka;  state: Exp;
-It was created as emu module for Emacs 19.*.
-----------------------------
-
-tl/emu-mule.el
-----------------------------
-revision 6.3
-date: 1995/09/21 00:08:02;  author: morioka;  state: Exp;  lines: +3 -1
-comment was modified.
-----------------------------
-revision 6.2
-date: 1995/09/20 23:42:12;  author: morioka;  state: Exp;  lines: +16 -3
-Function `tl:make-overlay', `tl:overlay-put', `tl:add-text-properties' 
-were defined.
-----------------------------
-
-tl/emu-nemacs.el
-----------------------------
-revision 6.1
-date: 1995/09/21 00:07:24;  author: morioka;  state: Exp;  lines: +3 -1
-comment was modified.
-----------------------------
-revision 6.0
-date: 1995/09/20 23:38:29;  author: morioka;  state: Exp;  lines: +30 -2
-Function       `tl:make-overlay',
-               `tl:overlay-put',
-               `tl:add-text-properties',
-and variable `mouse-button-2' and `tl:available-face-attribute-alist'
-were defined.
-----------------------------
-
-tl/emu-orig.el
-----------------------------
-revision 4.0
-date: 1995/09/21 00:09:37;  author: morioka;  state: Exp;  lines: +3 -1
-comment was modified.
-----------------------------
-revision 3.0
-date: 1995/09/20 23:45:23;  author: morioka;  state: Exp;  lines: +18 -2
-(require 'emu-xemacs) for XEmacs, (require 'emu-19) for FSF original
-Emacs 19.
-----------------------------
-
-tl/emu-xemacs.el
-----------------------------
-revision 5.0
-date: 1995/09/21 00:08:50;  author: morioka;  state: Exp;  lines: +4 -2
-comment was modified.
-----------------------------
-revision 4.0
-date: 1995/09/20 23:35:02;  author: morioka;  state: Exp;  lines: +35 -21
-Function       `tl:set-text-properties',
-               `tl:add-text-properties',
-               `tl:make-overlay',
-               `tl:overlay-put',
-               `tl:overlay-buffer',
-               `tl:move-overlay',
-and variable `mouse-button-2' were defined.
-----------------------------
-
-tl/emu.el
-----------------------------
-revision 4.0
-date: 1995/09/21 00:05:57;  author: morioka;  state: Exp;  lines: +10 -2
-comment was modified.
-----------------------------
-revision 3.0
-date: 1995/09/20 23:46:38;  author: morioka;  state: Exp;  lines: +1 -5
-(require 'emu-xemacs) was moved to emu-orig.el.
-----------------------------
-
-
-* tm
-
-tm/tm-def.el
-----------------------------
-revision 6.3
-date: 1995/09/21 00:12:52;  author: morioka;  state: Exp;  lines: +2 -2
-comment was modified.
-----------------------------
-revision 6.2
-date: 1995/09/20 23:53:54;  author: morioka;  state: Exp;  lines: +39 -28
-Function       `tm:set-face-region',
-               `tm:add-button',
-               `tm:button-dispatcher',
-and variable `tm:button-face', `tm:mouse-face' were defined.
-----------------------------
-
-tm/tm-rich.el
-----------------------------
-revision 6.14
-date: 1995/09/21 00:18:32;  author: morioka;  state: Exp;  lines: +3 -3
-Function `mime-viewer/filter-text/enriched' was fixed to use function
-`mime-viewer/default-code-convert-region'.
-----------------------------
-revision 6.13
-date: 1995/09/21 00:14:07;  author: morioka;  state: Exp;  lines: +2 -2
-comment was modified.
-----------------------------
-revision 6.12
-date: 1995/09/20 19:48:26;  author: morioka;  state: Exp;  lines: +19 -2
-comment was modified.
-----------------------------
-revision 6.11
-date: 1995/09/20 19:34:15;  author: morioka;  state: Exp;  lines: +15 -3
-Eric Ding <ericding@San-Jose.ate.slb.com> said\e$B!'\e(B
-======================================================================
-if text/enriched mail is encoded with quoted-printable, tm-view
-doesn't seem to be decoding it properly.
-======================================================================
-I applied this patch.
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 6.88
-date: 1995/09/21 02:33:28;  author: morioka;  state: Exp;  lines: +2 -2
-In function `mime-viewer/insert-content-subject', button does not
-include new line.
-----------------------------
-revision 6.87
-date: 1995/09/21 02:12:25;  author: morioka;  state: Exp;  lines: +3 -1
-tm:add-button was set for announcement of message/partial.
-----------------------------
-revision 6.86
-date: 1995/09/21 00:13:26;  author: morioka;  state: Exp;  lines: +2 -2
-comment was modified.
-----------------------------
-revision 6.85
-date: 1995/09/21 00:00:42;  author: morioka;  state: Exp;  lines: +35 -34
-(1) In function `mime-viewer/insert-content-subject', button setting
-    was added.
-(2) Setting of mouse-button-2 is modified to use variable
-    `mouse-button-2' and function `tm:button-dispatcher'.
-----------------------------
-revision 6.84
-date: 1995/09/20 20:01:21;  author: morioka;  state: Exp;  lines: +13 -7
-Setting for message/news was added.
-----------------------------
-
-
-* tm/gnus
-
-  Attached version 6.22.1.
-
-tm/gnus/tm-gnus.el
-----------------------------
-revision 6.3
-date: 1995/09/21 02:59:55;  author: morioka;  state: Exp;  lines: +10 -4
-September Gnus was supported.
-----------------------------
-
-
-* tm/mh-e
-
-  Attached version 6.32.
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 6.32
-date: 1995/09/21 00:20:10;  author: morioka;  state: Exp;  lines: +3 -3
-comment was modified.
-----------------------------
-revision 6.31
-date: 1995/09/20 20:17:13;  author: morioka;  state: Exp;  lines: +13 -4
-comment was modified.
-----------------------------
-revision 6.30
-date: 1995/09/20 20:11:48;  author: morioka;  state: Exp;  lines: +7 -2
-ARIURA <ariura@tuat.ac.jp>'s mhl supporting patch was applied.
-----------------------------
-revision 6.29
-date: 1995/09/20 19:25:17;  author: morioka;  state: Exp;  lines: +7 -4
-In function `tm-mh-e/cite',
-
-       (if (not (eq nil mime::article/preview-buffer))
-                mime::article/preview-buffer
-              (current-buffer))
-
-was rewrote to
-
-       (or mime::article/preview-buffer (current-buffer))
-----------------------------
-revision 6.28
-date: 1995/09/20 19:14:48;  author: morioka;  state: Exp;  lines: +6 -3
-Eric Ding <ericding@San-Jose.ate.slb.com> said:
-======================================================================
-in tm-mh-e/cite 6.25, there is an assumption that mh-reply is being
-called from within mh-e, which is not always true (for instance, if
-it's being used from within gnus).  Here's the patch.
-======================================================================
-I applied this patch.
-----------------------------
diff --git a/Changes-6.84-6.88.ja b/Changes-6.84-6.88.ja
deleted file mode 100644 (file)
index d50e745..0000000
+++ /dev/null
@@ -1,217 +0,0 @@
-* tl
-
-  Version 6.6.6 \e$B$rE:IU$7$?!#\e(B
-
-       - emu \e$B$N9=@.$rJQ99$7$?!#\e(B
-
-tl/emu-18.el
-----------------------------
-revision 6.0
-date: 1995/09/21 00:06:48;  author: morioka;  state: Exp;  lines: +3 -1
-comment \e$B$r=$@5$7$?!#\e(B
-----------------------------
-revision 5.0
-date: 1995/09/20 23:29:11;  author: morioka;  state: Exp;  lines: +10 -2
-\e$BJQ?t\e(B mouse-button-2 \e$B$rDI2C$7$?!#\e(B
-----------------------------
-
-tl/emu-19.el
-----------------------------
-revision 2.0
-date: 1995/09/21 00:10:55;  author: morioka;  state: Exp;  lines: +3 -1
-comment \e$B$r=$@5$7$?!#\e(B
-----------------------------
-revision 1.1
-date: 1995/09/20 23:31:30;  author: morioka;  state: Exp;
-Emacs 19 \e$B7OMQ$N\e(B module \e$B$H$7$F?7@_$7$?!#\e(B
-----------------------------
-
-tl/emu-mule.el
-----------------------------
-revision 6.3
-date: 1995/09/21 00:08:02;  author: morioka;  state: Exp;  lines: +3 -1
-comment \e$B$r=$@5$7$?!#\e(B
-----------------------------
-revision 6.2
-date: 1995/09/20 23:42:12;  author: morioka;  state: Exp;  lines: +16 -3
-\e$B4X?t\e(B tl:make-overlay, tl:overlay-put, tl:add-text-properties \e$B$rDj5A$7\e(B
-\e$B$?!#\e(B
-----------------------------
-
-tl/emu-nemacs.el
-----------------------------
-revision 6.1
-date: 1995/09/21 00:07:24;  author: morioka;  state: Exp;  lines: +3 -1
-comment \e$B$r=$@5$7$?!#\e(B
-----------------------------
-revision 6.0
-date: 1995/09/20 23:38:29;  author: morioka;  state: Exp;  lines: +30 -2
-\e$B4X?t\e(B     tl:make-overlay,
-       tl:overlay-put,
-       tl:add-text-properties,
-\e$B$*$h$S!"JQ?t\e(B mouse-button-2, tl:available-face-attribute-alist \e$B$rDj5A\e(B
-\e$B$7$?!#\e(B
-----------------------------
-
-tl/emu-orig.el
-----------------------------
-revision 4.0
-date: 1995/09/21 00:09:37;  author: morioka;  state: Exp;  lines: +3 -1
-comment \e$B$r=$@5$7$?!#\e(B
-----------------------------
-revision 3.0
-date: 1995/09/20 23:45:23;  author: morioka;  state: Exp;  lines: +18 -2
-XEmacs \e$B$N>l9g$O\e(B emu-xemacs, FSF original Emacs 19 \e$B$N>l9g$O\e(B emu-19 \e$B$r\e(B
-require \e$B$9$k$h$&$K$7$?!#\e(B
-----------------------------
-
-tl/emu-xemacs.el
-----------------------------
-revision 5.0
-date: 1995/09/21 00:08:50;  author: morioka;  state: Exp;  lines: +4 -2
-comment \e$B$r=$@5$7$?!#\e(B
-----------------------------
-revision 4.0
-date: 1995/09/20 23:35:02;  author: morioka;  state: Exp;  lines: +35 -21
-\e$B4X?t\e(B     tl:set-text-properties,
-       tl:add-text-properties,
-       tl:make-overlay,
-       tl:overlay-put,
-       tl:overlay-buffer,
-       tl:move-overlay,
-\e$B$*$h$S!"JQ?t\e(B mouse-button-2 \e$B$rDj5A$7$?!#\e(B
-----------------------------
-
-tl/emu.el
-----------------------------
-revision 4.0
-date: 1995/09/21 00:05:57;  author: morioka;  state: Exp;  lines: +10 -2
-comment \e$B$r=$@5$7$?!#\e(B
-----------------------------
-revision 3.0
-date: 1995/09/20 23:46:38;  author: morioka;  state: Exp;  lines: +1 -5
-emu-xemacs \e$B$r\e(B require \e$B$9$kItJ,$r\e(B emu-orig.el \e$B$K0\$7$?!#\e(B
-----------------------------
-
-
-* tm
-
-tm/tm-def.el
-----------------------------
-revision 6.3
-date: 1995/09/21 00:12:52;  author: morioka;  state: Exp;  lines: +2 -2
-comment \e$B$r=$@5$7$?!#\e(B
-----------------------------
-revision 6.2
-date: 1995/09/20 23:53:54;  author: morioka;  state: Exp;  lines: +39 -28
-\e$B4X?t\e(B tm:set-face-region, tm:add-button, tm:button-dispatcher,
-\e$B$*$h$S!"JQ?t\e(B tm:button-face, tm:mouse-face \e$B$rDI2C$7$?!#\e(B
-----------------------------
-
-tm/tm-rich.el
-----------------------------
-revision 6.14
-date: 1995/09/21 00:18:32;  author: morioka;  state: Exp;  lines: +3 -3
-\e$B4X?t\e(B mime-viewer/default-code-convert-region \e$B$r;H$&$h$&$K!"4X?t\e(B
-mime-viewer/filter-text/enriched \e$B$r=$@5$7$?!#\e(B
-----------------------------
-revision 6.13
-date: 1995/09/21 00:14:07;  author: morioka;  state: Exp;  lines: +2 -2
-comment \e$B$r=$@5$7$?!#\e(B
-----------------------------
-revision 6.12
-date: 1995/09/20 19:48:26;  author: morioka;  state: Exp;  lines: +19 -2
-comment \e$B$r=$@5$7$?!#\e(B
-----------------------------
-revision 6.11
-date: 1995/09/20 19:34:15;  author: morioka;  state: Exp;  lines: +15 -3
-Eric Ding <ericding@San-Jose.ate.slb.com> \e$B$5$s[)$/!'\e(B
-======================================================================
-if text/enriched mail is encoded with quoted-printable, tm-view
-doesn't seem to be decoding it properly.
-======================================================================
-\e$B$3$N\e(B patch \e$B$rEv$F$?!#\e(B
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 6.88
-date: 1995/09/21 02:33:28;  author: morioka;  state: Exp;  lines: +2 -2
-\e$B4X?t\e(B mime-viewer/insert-content-subject \e$B$K$*$1$k\e(B button \e$B$NHO0O$K2~9T$,\e(B
-\e$B4^$^$l$J$$$h$&$K$7$?!#\e(B
-----------------------------
-revision 6.87
-date: 1995/09/21 02:12:25;  author: morioka;  state: Exp;  lines: +3 -1
-message/partial \e$B$N\e(B announcement \e$B$KBP$7$F\e(B tm:add-button \e$B$N@_Dj$r9T$J$C\e(B
-\e$B$?!#\e(B
-----------------------------
-revision 6.86
-date: 1995/09/21 00:13:26;  author: morioka;  state: Exp;  lines: +2 -2
-comment \e$B$r=$@5$7$?!#\e(B
-----------------------------
-revision 6.85
-date: 1995/09/21 00:00:42;  author: morioka;  state: Exp;  lines: +35 -34
-(1) \e$B4X?t\e(B mime-viewer/insert-content-subject \e$B$G\e(B button \e$B$N@_Dj$r9T$J$C$?!#\e(B
-(2) mouse-button-2 \e$B$N@_Dj$rJQ?t\e(B mouse-button-2 \e$B$H4X?t\e(B
-    tm:button-dispatcher \e$B$r;H$&$h$&$K=$@5$7$?!#\e(B
-----------------------------
-revision 6.84
-date: 1995/09/20 20:01:21;  author: morioka;  state: Exp;  lines: +13 -7
-message/news \e$BMQ$N@_Dj$r9T$J$C$?!#\e(B
-----------------------------
-
-
-* tm/gnus
-
-  Version 6.22.1 \e$B$rE:IU$7$?!#\e(B
-
-tm/gnus/tm-gnus.el
-----------------------------
-revision 6.3
-date: 1995/09/21 02:59:55;  author: morioka;  state: Exp;  lines: +10 -4
-September Gnus \e$B$KBP1~$7$?!#\e(B
-----------------------------
-
-
-* tm/mh-e
-
-  Version 6.32 \e$B$rE:IU$7$?!#\e(B
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 6.32
-date: 1995/09/21 00:20:10;  author: morioka;  state: Exp;  lines: +3 -3
-comment \e$B$r=$@5$7$?!#\e(B
-----------------------------
-revision 6.31
-date: 1995/09/20 20:17:13;  author: morioka;  state: Exp;  lines: +13 -4
-comment \e$B$r=$@5$7$?!#\e(B
-----------------------------
-revision 6.30
-date: 1995/09/20 20:11:48;  author: morioka;  state: Exp;  lines: +7 -2
-\e$BM-1:\e(B \e$B=S0lO:\e(B <ariura@tuat.ac.jp> \e$B$5$s$N\e(B mhl \e$BBP1~\e(B patch \e$B$rEv$F$?!#\e(B
-----------------------------
-revision 6.29
-date: 1995/09/20 19:25:17;  author: morioka;  state: Exp;  lines: +7 -4
-\e$B4X?t\e(B tm-mh-e/cite \e$B$K$*$$$F!"\e(B
-
-       (if (not (eq nil mime::article/preview-buffer))
-                mime::article/preview-buffer
-              (current-buffer))
-
-\e$B$r\e(B
-
-       (or mime::article/preview-buffer (current-buffer))
-
-\e$B$K=q$-49$($?!#\e(B
-----------------------------
-revision 6.28
-date: 1995/09/20 19:14:48;  author: morioka;  state: Exp;  lines: +6 -3
-Eric Ding <ericding@San-Jose.ate.slb.com> \e$B$5$s[)$/!'\e(B
-======================================================================
-in tm-mh-e/cite 6.25, there is an assumption that mh-reply is being
-called from within mh-e, which is not always true (for instance, if
-it's being used from within gnus).  Here's the patch.
-======================================================================
-\e$B$3$N\e(B patch \e$B$rEv$F$?!#\e(B
-----------------------------
diff --git a/Changes-6.89-6.92.en b/Changes-6.89-6.92.en
deleted file mode 100644 (file)
index 18b4e7a..0000000
+++ /dev/null
@@ -1,65 +0,0 @@
-* tm
-
-tm/tm-def.el
-----------------------------
-revision 6.6
-date: 1995/09/24 22:24:17;  author: morioka;  state: Exp;  lines: +9 -4
-Function `tm:browse-url' was defined.
-----------------------------
-revision 6.5
-date: 1995/09/24 20:19:02;  author: morioka;  state: Exp;  lines: +14 -4
-Function `tm:button-dispatcher' was modified to call variable
-`tm:mother-button-dispatcher' when tm-callback is not found.
-----------------------------
-revision 6.4
-date: 1995/09/22 00:08:37;  author: morioka;  state: Exp;  lines: +14 -1
-Variable `tm:URL-regexp' and variable `browse-url-browser-function'
-are defined.
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 6.92
-date: 1995/09/24 22:25:24;  author: morioka;  state: Exp;  lines: +2 -2
-Function `tm:browse-url' was called instead of variable
-`browse-url-browser-function'.
-----------------------------
-revision 6.91
-date: 1995/09/24 20:16:11;  author: morioka;  state: Exp;  lines: +16 -10
-Some functions were added optional arguments to specify article-buffer 
-and preview-buffer. It is to support preview buffer support feature of
-September Gnus.
-----------------------------
-revision 6.90
-date: 1995/09/22 00:02:55;  author: morioka;  state: Exp;  lines: +41 -25
-(1) Does not decode X-Face automatically. New command
-    `mime-viewer/display-x-face' to decode X-Face was bound to `f' key
-    of mime/viewer-mode.
-(2) If variable `browse-url-browser-function' is set, button to call
-    it is set for URL regions of text/plain contents.
-----------------------------
-revision 6.89
-date: 1995/09/21 23:20:55;  author: morioka;  state: Exp;  lines: +4 -6
-Format of variable `mime-viewer/ignored-field-regexp' was changed. Its 
-head is `^', bottom is `:'.
-----------------------------
-
-
-* tm/gnus
-
-  Attached version 6.23.
-
-tm/gnus/tm-gnus.el
-----------------------------
-revision 6.4
-date: 1995/09/24 20:22:40;  author: morioka;  state: Exp;  lines: +5 -2
-(require 'tm-sgnus) when September Gnus.
-----------------------------
-
-tm/gnus/tm-sgnus.el
-----------------------------
-revision 6.23
-date: 1995/09/24 20:20:32;  author: morioka;  state: Exp;
-It was created for September Gnus.
-Notice that it needs September Gnus v0.02 or later.
-----------------------------
diff --git a/Changes-6.89-6.92.ja b/Changes-6.89-6.92.ja
deleted file mode 100644 (file)
index b576f83..0000000
+++ /dev/null
@@ -1,64 +0,0 @@
-* tm
-
-tm/tm-def.el
-----------------------------
-revision 6.6
-date: 1995/09/24 22:24:17;  author: morioka;  state: Exp;  lines: +9 -4
-\e$B4X?t\e(B tm:browse-url \e$B$rDj5A$7$?!#\e(B
-----------------------------
-revision 6.5
-date: 1995/09/24 20:19:02;  author: morioka;  state: Exp;  lines: +14 -4
-\e$BJQ?t\e(B tm:mother-button-dispatcher \e$B$rDI2C$7!"\e(Btm-callback \e$B$,8+$D$+$i$J$$\e(B
-\e$B;~$3$l$r8F$V$h$&$K!"4X?t\e(B tm:button-dispatcher \e$B$r=$@5$7$?!#\e(B
-----------------------------
-revision 6.4
-date: 1995/09/22 00:08:37;  author: morioka;  state: Exp;  lines: +14 -1
-\e$BJQ?t\e(B tm:URL-regexp \e$B$HJQ?t\e(B browse-url-browser-function \e$B$rDj5A$7$?!#\e(B
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 6.92
-date: 1995/09/24 22:25:24;  author: morioka;  state: Exp;  lines: +2 -2
-\e$BJQ?t\e(B browse-url-browser-function \e$B$rD>@\8F$VBe$o$j$K!"4X?t\e(B
-tm:browse-url \e$B$r8F$V$h$&$K$7$?!#\e(B
-----------------------------
-revision 6.91
-date: 1995/09/24 20:16:11;  author: morioka;  state: Exp;  lines: +16 -10
-September Gnus \e$B$KBP1~$9$k$?$a!"\e(Boptional \e$BJQ?t$H$7$F\e(B article-buffer \e$B$H\e(B
-preview-buffer \e$B$r;XDj$G$-$k$h$&$K$7$?!#\e(B
-----------------------------
-revision 6.90
-date: 1995/09/22 00:02:55;  author: morioka;  state: Exp;  lines: +41 -25
-(1) \e$B<+F0E*$K\e(B X-Face \e$B$r\e(B decode \e$B$9$k$N$O$d$a!"\e(Bmime/viewer-mode \e$B$N\e(B `f'
-    key \e$B$K\e(B decode \e$B$9$k$?$a$N\e(B command `mime-viewer/display-x-face' \e$B$r\e(B
-    bind \e$B$7$?!#\e(B
-(2) \e$B$b$7!"JQ?t\e(B browse-url-browser-function \e$B$,@_Dj$5$l$F$$$l$P!"\e(B
-    text/plain content \e$B$N\e(B URL \e$B$KBP$7$F!"$3$l$r8F$V\e(B button \e$B$r@_Dj$9$k$h\e(B
-    \e$B$&$K$7$?!#\e(B
-----------------------------
-revision 6.89
-date: 1995/09/21 23:20:55;  author: morioka;  state: Exp;  lines: +4 -6
-\e$BJQ?t\e(B mime-viewer/ignored-field-regexp \e$B$N@hF,$K\e(B `^', \e$BKvHx$K\e(B `:' \e$B$rIU$1\e(B
-\e$B$k$h$&$K$7$?!#\e(B
-----------------------------
-
-
-* tm/gnus
-
-  Version 6.23 \e$B$rE:IU$7$?!#\e(B
-
-tm/gnus/tm-gnus.el
-----------------------------
-revision 6.4
-date: 1995/09/24 20:22:40;  author: morioka;  state: Exp;  lines: +5 -2
-September Gnus \e$B$N;~\e(B tm-sgnus \e$B$r\e(B require \e$B$9$k$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/gnus/tm-sgnus.el
-----------------------------
-revision 6.23
-date: 1995/09/24 20:20:32;  author: morioka;  state: Exp;
-September Gnus \e$BMQ$N\e(B module \e$B$H$7$F?7@_$7$?!#\e(B
-September Gnus v0.02 \e$B0J9_$,I,MW$J$N$GCm0U$9$k$3$H!#\e(B
-----------------------------
diff --git a/Changes-6.92-7.06.en b/Changes-6.92-7.06.en
deleted file mode 100644 (file)
index 11d95a0..0000000
+++ /dev/null
@@ -1,128 +0,0 @@
-* tl
-
-  Attached version 6.6.7.
-
-tl/tl-header.el
-----------------------------
-revision 5.10
-date: 1995/09/26 00:23:15;  author: morioka;  state: Exp;  lines: +1 -18
-Parsed data structure was deleted.
-----------------------------
-
-
-* tm
-
-tm/tm-def.el
-----------------------------
-revision 6.7
-date: 1995/09/25 22:21:48;  author: morioka;  state: Exp;  lines: +15 -1
-Definitions of constants were moved from tm-view.el.
-----------------------------
-
-tm/tm-parse.el
-----------------------------
-revision 2.4
-date: 1995/09/26 13:19:32;  author: morioka;  state: Exp;  lines: +3 -2
-Quoted-string is strip in function `mime/parse-parameter'.
-----------------------------
-revision 2.3
-date: 1995/09/26 04:25:13;  author: morioka;  state: Exp;  lines: +4 -4
-Parser of tm-view.el was separated into tm-parse.el.
-Parser was rewrote to speedup.
-----------------------------
-
-tm/tm-play.el
-----------------------------
-revision 1.2
-date: 1995/09/26 11:54:38;  author: morioka;  state: Exp;  lines: +25 -11
-Decoder of tm-view.el was separated into tm-play.el.
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.6
-date: 1995/09/26 11:53:46;  author: morioka;  state: Exp;  lines: +41 -242
-Codes of decoder were moved to tm-play.el.
-----------------------------
-revision 7.5
-date: 1995/09/26 10:22:34;  author: morioka;  state: Exp;  lines: +107 -116
-Content displayer in function `mime-viewer/make-preview-buffer' was
-separated into function `mime-viewer/display-content'.
-----------------------------
-revision 7.4
-date: 1995/09/26 07:34:14;  author: morioka;  state: Exp;  lines: +5 -8
-Argument `cinfo' of function `mime-viewer/make-preview-buffer' was deleted.
-----------------------------
-revision 7.3
-date: 1995/09/26 07:15:29;  author: morioka;  state: Exp;  lines: +16 -18
-Function `mime-viewer/make-preview-buffer' was modified.
-----------------------------
-revision 7.2
-date: 1995/09/26 05:54:35;  author: morioka;  state: Exp;  lines: +46 -51
-Function `mime-viewer/parse-message' was renamed to
-`mime-viewer/setup-buffer'.
-----------------------------
-revision 7.1
-date: 1995/09/26 05:28:56;  author: morioka;  state: Exp;  lines: +4 -4
-Function `mime::make-flat-content-list' was renamed to
-`mime/flatten-content-info'.
-----------------------------
-revision 7.0
-date: 1995/09/26 03:21:54;  author: morioka;  state: Exp;  lines: +2 -6
-Definition of structure `mime::content-info' was moved to tm-parse.el.
-----------------------------
-revision 6.99
-date: 1995/09/26 02:59:41;  author: morioka;  state: Exp;  lines: +2 -2
-tm-1521.el was renamed to tm-parse.el.
-----------------------------
-revision 6.98
-date: 1995/09/26 02:32:27;  author: morioka;  state: Exp;  lines: +2 -2
-Function `mime-viewer/parse' was renamed to `mime/parse-message'.
-----------------------------
-revision 6.97
-date: 1995/09/26 02:22:17;  author: morioka;  state: Exp;  lines: +1 -37
-Function `mime-viewer/parse' was moved to tm-1521.el.
-----------------------------
-revision 6.96
-date: 1995/09/26 02:20:45;  author: morioka;  state: Exp;  lines: +35 -39
-Unnecessary (save-excursion (save-restriction ...)) was deleted.
-----------------------------
-revision 6.95
-date: 1995/09/26 01:15:00;  author: morioka;  state: Exp;  lines: +4 -17
-Function `mime-viewer/parse' and function `mime/parse-multipart' were
-modified.
-----------------------------
-revision 6.94
-date: 1995/09/26 00:55:34;  author: morioka;  state: Exp;  lines: +3 -111
-Parser for multipart was moved to tm-1521.el and renamed to
-`mime/parse-multipart'.
-----------------------------
-revision 6.93
-date: 1995/09/25 22:21:05;  author: morioka;  state: Exp;  lines: +4 -16
-Definitions of constants were moved to tm-def.el.
-----------------------------
-
-tm/tm-vm.el
-----------------------------
-revision 6.3
-date: 1995/09/26 00:15:07;  author: morioka;  state: Exp;  lines: +4 -4
-Does not unfold because function `mime/parse-Content-Type' unfolds.
-----------------------------
-revision 6.2
-date: 1995/09/25 23:41:10;  author: morioka;  state: Exp;  lines: +2 -2
-Function `mime::parse-field-body/Content-Type' was renamed to
-`mime/parse-Content-Type'.
-----------------------------
-
-
-tm/gnus
-
-  Attached version 6.24.
-
-tm/tm-sgnus.el
-----------------------------
-revision 6.24
-date: 1995/09/26 12:08:35;  author: morioka;  state: Exp;  lines: +2 -6
-Quitting-method was set for gnus-original-article-mode.
-(Notice that it needs September Gnus v0.3 or later.)
-----------------------------
diff --git a/Changes-6.92-7.06.ja b/Changes-6.92-7.06.ja
deleted file mode 100644 (file)
index 80bc660..0000000
+++ /dev/null
@@ -1,128 +0,0 @@
-* tl
-
-  Version 6.6.7 \e$B$rE:IU$7$?!#\e(B
-
-tl/tl-header.el
-----------------------------
-revision 5.10
-date: 1995/09/26 00:23:15;  author: morioka;  state: Exp;  lines: +1 -18
-parsed data structure \e$B$r:o=|$7$?!#\e(B
-----------------------------
-
-
-* tm
-
-tm/tm-def.el
-----------------------------
-revision 6.7
-date: 1995/09/25 22:21:48;  author: morioka;  state: Exp;  lines: +15 -1
-tm-view.el \e$B$K$"$C$?Dj?t$NDj5A$r0\$7$?!#\e(B
-----------------------------
-
-tm/tm-parse.el
-----------------------------
-revision 2.4
-date: 1995/09/26 13:19:32;  author: morioka;  state: Exp;  lines: +3 -2
-\e$B4X?t\e(B mime/parse-parameter \e$B$G\e(B value \e$B$r\e(B strip \e$B$9$k$h$&$K$7$?!#\e(B
-----------------------------
-revision 2.3
-date: 1995/09/26 04:25:13;  author: morioka;  state: Exp;  lines: +4 -4
-tm-view.el \e$B$N\e(B parser \e$B4X78$N\e(B code \e$B$r\e(B tm-parse.el \e$B$H$7$FFHN)$5$;$?!#\e(B
-parser \e$B$rBgI}$K=q$-D>$7!"L5BL$J\e(B code \e$B$r:o8:$5$;$?!#\e(B
-----------------------------
-
-tm/tm-play.el
-----------------------------
-revision 1.2
-date: 1995/09/26 11:54:38;  author: morioka;  state: Exp;  lines: +25 -11
-tm-view.el \e$B$N\e(B decoder \e$B4X78$N\e(B code \e$B$r\e(B tm-play.el \e$B$H$7$FFHN)$5$;$?!#\e(B
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.6
-date: 1995/09/26 11:53:46;  author: morioka;  state: Exp;  lines: +41 -242
-decoder \e$B4X78$N\e(B code \e$B$r\e(B tm-play.el \e$B$K0\$7$?!#\e(B
-----------------------------
-revision 7.5
-date: 1995/09/26 10:22:34;  author: morioka;  state: Exp;  lines: +107 -116
-\e$B4X?t\e(B mime-viewer/make-preview-buffer \e$BCf$N3F\e(B content \e$B$rI=<($9$kItJ,$r4X\e(B
-\e$B?t\e(B mime-viewer/display-content \e$B$KJ,$1$?!#\e(B
-----------------------------
-revision 7.4
-date: 1995/09/26 07:34:14;  author: morioka;  state: Exp;  lines: +5 -8
-\e$B4X?t\e(B mime-viewer/make-preview-buffer \e$B$N0z?t\e(B cinfo \e$B$rGQ;_$7$?!#\e(B
-----------------------------
-revision 7.3
-date: 1995/09/26 07:15:29;  author: morioka;  state: Exp;  lines: +16 -18
-\e$B4X?t\e(B mime-viewer/make-preview-buffer \e$B$r$$$8$C$?!#\e(B
-----------------------------
-revision 7.2
-date: 1995/09/26 05:54:35;  author: morioka;  state: Exp;  lines: +46 -51
-\e$B4X?t\e(B mime-viewer/parse-message \e$B$r\e(B `mime-viewer/setup-buffer' \e$B$K2~L>$7\e(B
-\e$B$?!#\e(B
-----------------------------
-revision 7.1
-date: 1995/09/26 05:28:56;  author: morioka;  state: Exp;  lines: +4 -4
-\e$B4X?t\e(B mime::make-flat-content-list \e$B$r\e(B `mime/flatten-content-info' \e$B$K2~\e(B
-\e$BL>$7$?!#\e(B
-----------------------------
-revision 7.0
-date: 1995/09/26 03:21:54;  author: morioka;  state: Exp;  lines: +2 -6
-\e$B9=B$BN\e(B mime::content-info \e$B$NDj5A$r\e(B tm-parse.el \e$B$K0\$7$?!#\e(B
-----------------------------
-revision 6.99
-date: 1995/09/26 02:59:41;  author: morioka;  state: Exp;  lines: +2 -2
-tm-1521.el \e$B$r\e(B tm-parse.el \e$B$K2~L>$7$?!#\e(B
-----------------------------
-revision 6.98
-date: 1995/09/26 02:32:27;  author: morioka;  state: Exp;  lines: +2 -2
-\e$B4X?t\e(B mime-viewer/parse \e$B$r\e(B `mime/parse-message' \e$B$K2~L>$7$?!#\e(B
-----------------------------
-revision 6.97
-date: 1995/09/26 02:22:17;  author: morioka;  state: Exp;  lines: +1 -37
-\e$B4X?t\e(B mime-viewer/parse \e$B$r\e(B tm-1521.el \e$B$K0\$7$?!#\e(B
-----------------------------
-revision 6.96
-date: 1995/09/26 02:20:45;  author: morioka;  state: Exp;  lines: +35 -39
-\e$BITMW$J\e(B (save-excursion (save-restriction ...)) \e$B$r:o=|$7$?!#\e(B
-----------------------------
-revision 6.95
-date: 1995/09/26 01:15:00;  author: morioka;  state: Exp;  lines: +4 -17
-\e$B4X?t\e(B mime-viewer/parse \e$B$H4X?t\e(B mime/parse-multipart \e$B$r=$@5$7$?!#\e(B
-----------------------------
-revision 6.94
-date: 1995/09/26 00:55:34;  author: morioka;  state: Exp;  lines: +3 -111
-multipart \e$B$r\e(B parse \e$B$9$k4X?t$r\e(B `mime/parse-multipart' \e$B$H$7$F!"\e(B
-tm-1521.el \e$B$K0\$7$?!#\e(B
-----------------------------
-revision 6.93
-date: 1995/09/25 22:21:05;  author: morioka;  state: Exp;  lines: +4 -16
-\e$BDj?t$NDj5A$r\e(B tm-def.el \e$B$K0\$7$?!#\e(B
-----------------------------
-
-tm/tm-vm.el
-----------------------------
-revision 6.3
-date: 1995/09/26 00:15:07;  author: morioka;  state: Exp;  lines: +4 -4
-\e$B4X?t\e(B mime/parse-Content-Type \e$B$,\e(B unfolding \e$B$r9T$J$&$h$&$K$J$C$?$N$G!"0z\e(B
-\e$B?t$r\e(B unfolding \e$B$9$k$N$O$d$a$?!#\e(B
-----------------------------
-revision 6.2
-date: 1995/09/25 23:41:10;  author: morioka;  state: Exp;  lines: +2 -2
-tm-view 6.94 \e$B$K9g$o$;$F!"4X?t\e(B mime::parse-field-body/Content-Type \e$B$r\e(B
-`mime/parse-Content-Type' \e$B$K=q$-D>$7$?!#\e(B
-----------------------------
-
-
-tm/gnus
-
-  Version 6.24 \e$B$rE:IU$7$?!#\e(B
-
-tm/tm-sgnus.el
-----------------------------
-revision 6.24
-date: 1995/09/26 12:08:35;  author: morioka;  state: Exp;  lines: +2 -6
-gnus-original-article-mode \e$B$KBP$7$F\e(B quitting-method \e$B$r@_Dj$9$k$h$&$K$7\e(B
-\e$B$?!#!J\e(BSeptember Gnus v0.3 \e$B0J9_$,I,MW!K\e(B
-----------------------------
diff --git a/Changes-7.07-7.09.en b/Changes-7.07-7.09.en
deleted file mode 100644 (file)
index 24fa739..0000000
+++ /dev/null
@@ -1,146 +0,0 @@
-* tl
-
-       Attached version 6.6.8.
-
-       - tl-822.el was created as new RFC 822 parser.
-       - tl-cite.el was created as a citation utility.
-
-
-* tm
-
-tm/mime-setup.el
-----------------------------
-revision 7.0
-date: 1995/10/03 04:27:39;  author: morioka;  state: Exp;  lines: +12 -4
-tm-eword.el was used instead of tiny-mime.el.
-----------------------------
-
-tm/tm-def.el
-----------------------------
-revision 6.9
-date: 1995/10/03 04:30:57;  author: morioka;  state: Exp;  lines: +2 -2
-Function `tm:browse-url' was modified to call variable
-`tm:mother-button-dispatcher' interactively.
-----------------------------
-
-tm/tm-ew-d.el
-----------------------------
-revision 7.1
-date: 1995/10/03 04:34:26;  author: morioka;  state: Exp;  lines: +24 -33
-It was separated from tiny-mime.el as MIME encoded-word decoder. A lot 
-of parts were changed.
-----------------------------
-
-tm/tm-ew-e.el
-----------------------------
-revision 7.0
-date: 1995/10/03 04:35:11;  author: morioka;  state: Exp;
-It was created as MIME encoded-word encoder. It was wrote from scratch.
-----------------------------
-
-tm/tm-eword.el
-----------------------------
-revision 7.0
-date: 1995/10/03 04:40:06;  author: morioka;  state: Exp;  lines: +28 -549
-(1) tiny-mime.el was renamed to tm-eword.el.
-(2) decoder was moved to tm-ew-d.el.
-(3) major parts of encoder were erased, tm-ew-e.el was used.
-----------------------------
-
-tm/tm-mule.el
-----------------------------
-revision 7.1
-date: 1995/10/03 04:49:53;  author: morioka;  state: Exp;  lines: +11 -1
-comment was modified.
-----------------------------
-revision 7.0
-date: 1995/10/03 04:44:11;  author: morioka;  state: Exp;  lines: +59 -24
-Definitions for tm-ew-e.el were added.
-----------------------------
-
-tm/tm-nemacs.el
-----------------------------
-revision 7.1
-date: 1995/10/03 04:51:07;  author: morioka;  state: Exp;  lines: +11 -1
-comment was modified.
-----------------------------
-revision 7.0
-date: 1995/10/03 04:44:50;  author: morioka;  state: Exp;  lines: +11 -1
-Definitions for tm-ew-e.el were added.
-----------------------------
-
-tm/tm-orig.el
-----------------------------
-revision 7.1
-date: 1995/10/03 04:52:16;  author: morioka;  state: Exp;  lines: +11 -1
-comment was modified.
-----------------------------
-revision 7.0
-date: 1995/10/03 04:45:50;  author: morioka;  state: Exp;  lines: +13 -3
-Definitions for tm-ew-e.el were added.
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.9
-date: 1995/10/03 04:56:10;  author: morioka;  state: Exp;  lines: +2 -5
-tm-eword.el was used instead of tiny-mime.el.
-----------------------------
-revision 7.8
-date: 1995/09/26 16:04:39;  author: morioka;  state: Exp;  lines: +5 -2
-In function `mime-viewer/display-content', problems of getting subject
-was fixed.
-----------------------------
-revision 7.7
-date: 1995/09/26 14:49:23;  author: morioka;  state: Exp;  lines: +2 -1
-In function `mime-viewer/display-content', problem of single-part
-message which has hidden body was fixed.
-----------------------------
-
-tm/tm-rmail.el
-----------------------------
-revision 6.7
-date: 1995/09/28 06:05:20;  author: morioka;  state: Exp;  lines: +18 -10
-encoded-word decoder was set to variable `rmail-message-filter' again.
-----------------------------
-
-tm/tm-vm.el
-----------------------------
-revision 7.0
-date: 1995/10/03 05:04:35;  author: morioka;  state: Exp;  lines: +22 -9
-Comment was modified because tm-eword.el was used instead of
-tiny-mime.el.
-----------------------------
-
-
-* tm/gnus
-
-  Version 7.0 \e$B$rE:IU$7$?!#\e(B
-
-tm/gnus/tm-gnus.el
-----------------------------
-revision 6.5
-date: 1995/09/28 02:20:46;  author: morioka;  state: Exp;  lines: +9 -9
-modified to support ``Gnus 5.* with September patch''.
-----------------------------
-
-tm/gnus/tm-gnus5.el
-----------------------------
-revision 7.0
-date: 1995/10/03 05:07:54;  author: morioka;  state: Exp;  lines: +31 -22
-tm-eword.el was used instead of tiny-mime.el.
-----------------------------
-
-tm/gnus/tm-ognus.el
-----------------------------
-revision 7.0
-date: 1995/10/03 05:08:59;  author: morioka;  state: Exp;  lines: +20 -5
-tm-eword.el was used instead of tiny-mime.el.
-----------------------------
-
-tm/gnus/tm-sgnus.el
-----------------------------
-revision 7.0
-date: 1995/10/03 05:09:53;  author: morioka;  state: Exp;  lines: +27 -14
-tm-eword.el was used instead of tiny-mime.el.
-----------------------------
diff --git a/Changes-7.07-7.09.ja b/Changes-7.07-7.09.ja
deleted file mode 100644 (file)
index 204fc88..0000000
+++ /dev/null
@@ -1,148 +0,0 @@
-* tl
-
-       Version 6.6.8 \e$B$rE:IU$7$?!#\e(B
-
-       - \e$B?7$7$$\e(B tl-822.el \e$B$r:n@.$7$?!#\e(B
-       - citation \e$BMQ$N\e(B utility \e$B$H$7$F\e(B tl-cite.el \e$B$r:n@.$7$?!#\e(B
-
-
-* tm
-
-tm/mime-setup.el
-----------------------------
-revision 7.0
-date: 1995/10/03 04:27:39;  author: morioka;  state: Exp;  lines: +12 -4
-tiny-mime.el \e$B$r;H$&$N$r$d$a$F!"\e(Btm-eword.el \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/tm-def.el
-----------------------------
-revision 6.9
-date: 1995/10/03 04:30:57;  author: morioka;  state: Exp;  lines: +2 -2
-\e$BJQ?t\e(B tm:mother-button-dispatcher \e$B$r\e(B interactive \e$B$K8F$V$h$&$K4X?t\e(B
-tm:browse-url \e$B$r=$@5$7$?!#\e(B
-----------------------------
-
-tm/tm-ew-d.el
-----------------------------
-revision 7.1
-date: 1995/10/03 04:34:26;  author: morioka;  state: Exp;  lines: +24 -33
-MIME encoded-word decoder \e$B$H$7$F\e(B tiny-mime.el \e$B$+$iJ,N%$7!"BgI}$K=q$-D>\e(B
-\e$B$7$?!#\e(B
-----------------------------
-
-tm/tm-ew-e.el
-----------------------------
-revision 7.0
-date: 1995/10/03 04:35:11;  author: morioka;  state: Exp;
-MIME encoded-word encoder \e$B$H$7$F?7@_$7$?!#\e(Bencoder \e$B$OA4LLE*$K=q$-D>$5$l\e(B
-\e$B$F$$$k!#\e(B
-----------------------------
-
-tm/tm-eword.el
-----------------------------
-revision 7.0
-date: 1995/10/03 04:40:06;  author: morioka;  state: Exp;  lines: +28 -549
-(1) tiny-mime.el \e$B$r\e(B tm-eword.el \e$B$K2~L>$7$?!#\e(B
-(2) decoder \e$B$r\e(B tm-ew-d.el \e$B$K0\$7$?!#\e(B
-(3) encoder \e$B$NBgItJ,$r:o=|$7!"\e(Btm-ew-e.el \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/tm-mule.el
-----------------------------
-revision 7.1
-date: 1995/10/03 04:49:53;  author: morioka;  state: Exp;  lines: +11 -1
-comment \e$B$r=$@5$7$?!#\e(B
-----------------------------
-revision 7.0
-date: 1995/10/03 04:44:11;  author: morioka;  state: Exp;  lines: +59 -24
-tm-ew-e.el \e$BMQ$NDj5A$rDI2C$7$?!#\e(B
-----------------------------
-
-tm/tm-nemacs.el
-----------------------------
-revision 7.1
-date: 1995/10/03 04:51:07;  author: morioka;  state: Exp;  lines: +11 -1
-comment \e$B$r=$@5$7$?!#\e(B
-----------------------------
-revision 7.0
-date: 1995/10/03 04:44:50;  author: morioka;  state: Exp;  lines: +11 -1
-tm-ew-e.el \e$BMQ$NDj5A$rDI2C$7$?!#\e(B
-----------------------------
-
-tm/tm-orig.el
-----------------------------
-revision 7.1
-date: 1995/10/03 04:52:16;  author: morioka;  state: Exp;  lines: +11 -1
-comment \e$B$r=$@5$7$?!#\e(B
-----------------------------
-revision 7.0
-date: 1995/10/03 04:45:50;  author: morioka;  state: Exp;  lines: +13 -3
-tm-ew-e.el \e$BMQ$NDj5A$rDI2C$7$?!#\e(B
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.9
-date: 1995/10/03 04:56:10;  author: morioka;  state: Exp;  lines: +2 -5
-tiny-mime.el \e$B$r;H$&$N$r$d$a$F!"\e(Btm-ew-d.el \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-revision 7.8
-date: 1995/09/26 16:04:39;  author: morioka;  state: Exp;  lines: +5 -2
-\e$B4X?t\e(B mime-viewer/display-content \e$B$K$*$$$F!"\e(Bsubject \e$B$r<h$kItJ,$NIT6q9g\e(B
-\e$B$r=$@5$7$?!#\e(B
-----------------------------
-revision 7.7
-date: 1995/09/26 14:49:23;  author: morioka;  state: Exp;  lines: +2 -1
-body \e$B$,1#$5$l$?\e(B single-part \e$B$N\e(B message \e$B$N>l9g$N4X?t\e(B
-mime-viewer/display-content \e$B$NIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
-
-tm/tm-rmail.el
-----------------------------
-revision 6.7
-date: 1995/09/28 06:05:20;  author: morioka;  state: Exp;  lines: +18 -10
-encoded-word \e$B$N\e(B decode \e$B$O$d$C$Q$jJQ?t\e(B rmail-message-filter \e$B$K@_Dj$9$k\e(B
-\e$B$3$H$K$7$?!#\e(B
-----------------------------
-
-tm/tm-vm.el
-----------------------------
-revision 7.0
-date: 1995/10/03 05:04:35;  author: morioka;  state: Exp;  lines: +22 -9
-tiny-mime.el \e$B$r;H$&$N$r$d$a$F\e(B tm-ew-e.el \e$B$r;H$&$3$H$K$J$C$?$N$KH<$$!"\e(B
-comment \e$B$r=$@5$7$?!#\e(B
-----------------------------
-
-
-* tm/gnus
-
-  Version 7.0 \e$B$rE:IU$7$?!#\e(B
-
-tm/gnus/tm-gnus.el
-----------------------------
-revision 6.5
-date: 1995/09/28 02:20:46;  author: morioka;  state: Exp;  lines: +9 -9
-``Gnus 5.* with September patch'' \e$B$KBP1~$7$?!#\e(B
-----------------------------
-
-tm/gnus/tm-gnus5.el
-----------------------------
-revision 7.0
-date: 1995/10/03 05:07:54;  author: morioka;  state: Exp;  lines: +31 -22
-tiny-mime.el \e$B$r;H$&$N$r$d$a$F\e(B tm-ew-d.el \e$B$r;H$&$3$H$K$7$?!#\e(B
-----------------------------
-
-tm/gnus/tm-ognus.el
-----------------------------
-revision 7.0
-date: 1995/10/03 05:08:59;  author: morioka;  state: Exp;  lines: +20 -5
-tiny-mime.el \e$B$r;H$&$N$r$d$a$F\e(B tm-ew-d.el \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/gnus/tm-sgnus.el
-----------------------------
-revision 7.0
-date: 1995/10/03 05:09:53;  author: morioka;  state: Exp;  lines: +27 -14
-tiny-mime.el \e$B$r;H$&$N$r$d$a$F\e(B tm-ew-d.el \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
diff --git a/Changes-7.09-7.10.en b/Changes-7.09-7.10.en
deleted file mode 100644 (file)
index 122e8f4..0000000
+++ /dev/null
@@ -1,135 +0,0 @@
-* tl
-
-  Attached version 7.00.
-
-tl/tl-822.el
-----------------------------
-revision 4.0
-date: 1995/10/05 13:22:22;  author: morioka;  state: Exp;  lines: +21 -4
-Constant `rfc822/linear-white-space-regexp',
-`rfc822/quoted-pair-regexp', `rfc822/qtext-regexp',
-`rfc822/quoted-string-regexp' was added.
-----------------------------
-revision 3.0
-date: 1995/10/05 12:09:52;  author: morioka;  state: Exp;  lines: +5 -3
-Constant `rfc822/field-top-regexp' was added.
-----------------------------
-revision 2.0
-date: 1995/10/05 11:26:43;  author: morioka;  state: Exp;  lines: +83 -1
-Constant `rfc822/field-name-regexp',
-function `rfc822/field-end', `rfc822/get-field-body',
-function `rfc822/strip-quoted-pair', `rfc822/strip-quoted-string',
-function `rfc822/unfolding-string' was added.
-----------------------------
-
-tl/tl-str.el
-----------------------------
-revision 7.0
-date: 1995/10/05 13:21:07;  author: morioka;  state: Exp;  lines: +11 -10
-Fixed problem of function `get-version-string'.
-----------------------------
-
-* tm
-
-tm/mime-setup.el
-----------------------------
-revision 7.2
-date: 1995/10/05 10:34:43;  author: morioka;  state: Exp;  lines: +11 -3
-In setting to variable `mh-letter-mode-hook', mail-header-separator is 
-regularized.
-----------------------------
-revision 7.1
-date: 1995/10/04 13:41:01;  author: morioka;  state: Exp;  lines: +12 -6
-Variable `mime-setup-default-signature-key' and
-`mime-setup-signature-key-alist' is added. Variable
-`mime-setup-signature-key' was deleted.
-----------------------------
-
-tm/signature.el
-----------------------------
-revision 2.0
-date: 1995/10/05 11:24:45;  author: morioka;  state: Exp;  lines: +24 -8
-Use tl-822 instead of tl-header.
-----------------------------
-
-tm/tm-def.el
-----------------------------
-revision 7.0
-date: 1995/10/05 13:27:34;  author: morioka;  state: Exp;  lines: +3 -3
-Use tl-822 instead of tl-header.
-----------------------------
-
-tm/tm-ew-d.el
-----------------------------
-revision 7.2
-date: 1995/10/05 12:20:36;  author: morioka;  state: Exp;  lines: +4 -3
-Use tl-822 instead of tl-header.
-----------------------------
-
-tm/tm-eword.el
-----------------------------
-revision 7.2
-date: 1995/10/05 12:22:42;  author: morioka;  state: Exp;  lines: +2 -4
-Function `mime/encode-field' was modified to use constant
-`rfc822/field-top-regexp'.
-----------------------------
-revision 7.1
-date: 1995/10/05 11:27:38;  author: morioka;  state: Exp;  lines: +46 -48
-Use tl-822 instead of tl-header.
-----------------------------
-
-tm/tm-parse.el
-----------------------------
-revision 3.0
-date: 1995/10/05 11:28:40;  author: morioka;  state: Exp;  lines: +7 -7
-Use tl-822 instead of tl-header.
-----------------------------
-
-tm/tm-rich.el
-----------------------------
-revision 7.0
-date: 1995/10/04 05:27:50;  author: morioka;  state: Exp;  lines: +8 -6
-comment was modified.
-----------------------------
-revision 6.15
-date: 1995/10/04 05:23:29;  author: morioka;  state: Exp;  lines: +3 -1
-Eric Ding <ericding@San-Jose.ate.slb.com>'s patch was applied.
-----------------------------
-
-tm/tm-rmail.el
-----------------------------
-revision 7.1
-date: 1995/10/05 13:04:10;  author: morioka;  state: Exp;  lines: +5 -2
-(require 'tl-header) was deleted.
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.10
-date: 1995/10/05 10:35:19;  author: morioka;  state: Exp;  lines: +7 -7
-Use tl-822 instead of tl-header.
-----------------------------
-
-
-* tm/gnus
-
-  Attached version 7.02.
-
-tm/gnus/tm-gnus5.el
-----------------------------
-revision 7.2
-date: 1995/10/05 12:57:53;  author: morioka;  state: Exp;  lines: +5 -5
-Use tl-822 instead of tl-header.
-----------------------------
-revision 7.1
-date: 1995/10/03 15:02:14;  author: morioka;  state: Exp;  lines: +50 -13
-Function `gnus-mail-forward-using-mhe-mime' by OKABE Yasuo
-<okabe@kudpc.kyoto-u.ac.jp> was added.
-----------------------------
-
-tm/gnus/tm-sgnus.el
-----------------------------
-revision 7.1
-date: 1995/10/05 13:01:17;  author: morioka;  state: Exp;  lines: +12 -17
-modified a little.
-----------------------------
diff --git a/Changes-7.09-7.10.ja b/Changes-7.09-7.10.ja
deleted file mode 100644 (file)
index 8308109..0000000
+++ /dev/null
@@ -1,133 +0,0 @@
-* tl
-
-  Version 7.00 \e$B$rE:IU$7$?!#\e(B
-
-tl/tl-822.el
-----------------------------
-revision 4.0
-date: 1995/10/05 13:22:22;  author: morioka;  state: Exp;  lines: +21 -4
-\e$BDj?t\e(B rfc822/linear-white-space-regexp, rfc822/quoted-pair-regexp,
-rfc822/qtext-regexp, rfc822/quoted-string-regexp \e$B$rDI2C$7$?!#\e(B
-----------------------------
-revision 3.0
-date: 1995/10/05 12:09:52;  author: morioka;  state: Exp;  lines: +5 -3
-\e$BDj?t\e(B rfc822/field-top-regexp \e$B$rDI2C$7$?!#\e(B
-----------------------------
-revision 2.0
-date: 1995/10/05 11:26:43;  author: morioka;  state: Exp;  lines: +83 -1
-\e$BDj?t\e(B rfc822/field-name-regexp,
-\e$B4X?t\e(B rfc822/field-end, rfc822/get-field-body,
-\e$B4X?t\e(B rfc822/strip-quoted-pair, rfc822/strip-quoted-string,
-\e$B4X?t\e(B rfc822/unfolding-string \e$B$rDI2C$7$?!#\e(B
-----------------------------
-
-tl/tl-str.el
-----------------------------
-revision 7.0
-date: 1995/10/05 13:21:07;  author: morioka;  state: Exp;  lines: +11 -10
-\e$B4X?t\e(B get-version-string \e$B$NIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
-
-* tm
-
-tm/mime-setup.el
-----------------------------
-revision 7.2
-date: 1995/10/05 10:34:43;  author: morioka;  state: Exp;  lines: +11 -3
-\e$BJQ?t\e(B mh-letter-mode-hook \e$B$K$*$$$F!"\e(Bmail-header-separator \e$B$r@55,2=$9$k\e(B
-\e$B$h$&$K$7$?!#\e(B
-----------------------------
-revision 7.1
-date: 1995/10/04 13:41:01;  author: morioka;  state: Exp;  lines: +12 -6
-\e$BJQ?t\e(B mime-setup-default-signature-key \e$B$HJQ?t\e(B
-mime-setup-signature-key-alist \e$B$r@_$1$?!#JQ?t\e(B mime-setup-signature-key
-\e$B$OGQ;_$7$?!#\e(B
-----------------------------
-
-tm/signature.el
-----------------------------
-revision 2.0
-date: 1995/10/05 11:24:45;  author: morioka;  state: Exp;  lines: +24 -8
-tl-header \e$B$r;H$&$N$r$d$a$F\e(B tl-822 \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/tm-def.el
-----------------------------
-revision 7.0
-date: 1995/10/05 13:27:34;  author: morioka;  state: Exp;  lines: +3 -3
-tl-header \e$B$r;H$&$N$r$d$a$F\e(B tl-822 \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/tm-ew-d.el
-----------------------------
-revision 7.2
-date: 1995/10/05 12:20:36;  author: morioka;  state: Exp;  lines: +4 -3
-tl-header \e$B$r;H$&$N$r$d$a!"\e(Btl-822 \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/tm-eword.el
-----------------------------
-revision 7.2
-date: 1995/10/05 12:22:42;  author: morioka;  state: Exp;  lines: +2 -4
-\e$B4X?t\e(B mime/encode-field \e$B$GDj?t\e(B rfc822/field-top-regexp \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-revision 7.1
-date: 1995/10/05 11:27:38;  author: morioka;  state: Exp;  lines: +46 -48
-tl-header \e$B$r;H$&$N$r$d$a$F\e(B tl-822 \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/tm-parse.el
-----------------------------
-revision 3.0
-date: 1995/10/05 11:28:40;  author: morioka;  state: Exp;  lines: +7 -7
-tl-header \e$B$r;H$&$N$r$d$a$F\e(B tl-822 \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/tm-rich.el
-----------------------------
-revision 7.0
-date: 1995/10/04 05:27:50;  author: morioka;  state: Exp;  lines: +8 -6
-comment \e$B$r=$@5$7$?!#\e(B
-----------------------------
-revision 6.15
-date: 1995/10/04 05:23:29;  author: morioka;  state: Exp;  lines: +3 -1
-Eric Ding <ericding@San-Jose.ate.slb.com> \e$B$5$s$N\e(B patch \e$B$rEv$F$?!#\e(B
-----------------------------
-
-tm/tm-rmail.el
-----------------------------
-revision 7.1
-date: 1995/10/05 13:04:10;  author: morioka;  state: Exp;  lines: +5 -2
-(require 'tl-header) \e$B$r=|5n$7$?!#\e(B
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.10
-date: 1995/10/05 10:35:19;  author: morioka;  state: Exp;  lines: +7 -7
-tl-header \e$B$r;H$&$N$r$d$a$F\e(B tl-822 \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-
-
-* tm/gnus
-
-  Version 7.02 \e$B$rE:IU$7$?!#\e(B
-
-tm/gnus/tm-gnus5.el
-----------------------------
-revision 7.2
-date: 1995/10/05 12:57:53;  author: morioka;  state: Exp;  lines: +5 -5
-tl-header \e$B$r;H$&$N$r$d$a$F\e(B tl-822 \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-revision 7.1
-date: 1995/10/03 15:02:14;  author: morioka;  state: Exp;  lines: +50 -13
-\e$B2,It\e(B \e$B<wCK\e(B <okabe@kudpc.kyoto-u.ac.jp> \e$B$5$s$,:n$C$?4X?t\e(B
-gnus-mail-forward-using-mhe-mime \e$B$rF~$l$?!#\e(B
-----------------------------
-
-tm/gnus/tm-sgnus.el
-----------------------------
-revision 7.1
-date: 1995/10/05 13:01:17;  author: morioka;  state: Exp;  lines: +12 -17
-\e$B$A$g$C$H=q$-49$($?$@$1!#\e(B
-----------------------------
diff --git a/Changes-7.11.en b/Changes-7.11.en
deleted file mode 100644 (file)
index 6dc4f0d..0000000
+++ /dev/null
@@ -1,67 +0,0 @@
-* tl
-
-  Attached version 7.01.
-
-       - tl-cite.el was renamed to mu-cite.el.
-
-
-* tm
-
-tm/mime-setup.el
-----------------------------
-revision 7.3
-date: 1995/10/06 07:17:22;  author: morioka;  state: Exp;  lines: +16 -1
-Code for Gnus 5.*, September Gnus was added.
-----------------------------
-
-tm/tm-comp.el
-----------------------------
-revision 7.2
-date: 1995/10/08 09:31:05;  author: morioka;  state: Exp;  lines: +2 -2
-Fixed a mistake about renaming.
-----------------------------
-revision 7.1
-date: 1995/10/08 09:07:37;  author: morioka;  state: Exp;  lines: +7 -7
-tl-822 was used instead of tl-header.
-----------------------------
-revision 7.0
-date: 1995/10/07 05:44:49;  author: morioka;  state: Exp;  lines: +20 -13
-comment was modified.
-----------------------------
-revision 6.13
-date: 1995/10/07 05:37:40;  author: morioka;  state: Exp;  lines: +5 -3
-Richard Stanton <stanton@haas.berkeley.edu> fixed for OS/2 Emacs.
-----------------------------
-
-tm/tm-eword.el
-----------------------------
-revision 7.3
-date: 1995/10/06 05:44:48;  author: morioka;  state: Exp;  lines: +3 -2
-Function `mime/encode-message-header' was modified to use function
-`buffer-substring-no-properties'.
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.11
-date: 1995/10/06 07:00:00;  author: morioka;  state: Exp;  lines: +1 -7
-Unnecessary function was deleted.
-----------------------------
-
-
-* tm/mh-e
-
-  Attached version 7.01.
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 7.1
-date: 1995/10/07 08:26:47;  author: morioka;  state: Exp;  lines: +2 -2
-Function `tm-mh-e/cite' was modified to use `save-excursion' instead
-of `save-window-excursion'.
-----------------------------
-revision 7.0
-date: 1995/10/07 08:24:48;  author: morioka;  state: Exp;  lines: +25 -18
-Function `tm-mh-e/cite' was modified to support variable
-`mh-delete-yanked-msg-window' when it is automatic MIME preview mode.
-----------------------------
diff --git a/Changes-7.11.ja b/Changes-7.11.ja
deleted file mode 100644 (file)
index 32daa7b..0000000
+++ /dev/null
@@ -1,68 +0,0 @@
-* tl
-
-  Version 7.01 \e$B$rE:IU$7$?!#\e(B
-
-       - tl-cite.el \e$B$r\e(B mu-cite.el \e$B$K2~L>$7$?!#\e(B
-
-
-* tm
-
-tm/mime-setup.el
-----------------------------
-revision 7.3
-date: 1995/10/06 07:17:22;  author: morioka;  state: Exp;  lines: +16 -1
-Gnus 5.*, September Gnus \e$BBP:vMQ$N\e(B code \e$B$rF~$l$?!#\e(B
-----------------------------
-
-tm/tm-comp.el
-----------------------------
-revision 7.2
-date: 1995/10/08 09:31:05;  author: morioka;  state: Exp;  lines: +2 -2
-\e$BL>A0$NJQ99$7K:$l$r=$@5$7$?!#\e(B
-----------------------------
-revision 7.1
-date: 1995/10/08 09:07:37;  author: morioka;  state: Exp;  lines: +7 -7
-tl-header \e$B$r;H$&$N$r$d$a$F\e(B tl-822 \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-revision 7.0
-date: 1995/10/07 05:44:49;  author: morioka;  state: Exp;  lines: +20 -13
-comment \e$B$r=$@5$7$?!#\e(B
-----------------------------
-revision 6.13
-date: 1995/10/07 05:37:40;  author: morioka;  state: Exp;  lines: +5 -3
-Richard Stanton <stanton@haas.berkeley.edu> \e$B$5$s$N\e(B OS/2 \e$BMQ$N\e(B patch \e$B$r\e(B
-\e$BEv$F$?!#\e(B
-----------------------------
-
-tm/tm-eword.el
-----------------------------
-revision 7.3
-date: 1995/10/06 05:44:48;  author: morioka;  state: Exp;  lines: +3 -2
-\e$B4X?t\e(B mime/encode-message-header \e$B$K$*$$$F!"4X?t\e(B
-buffer-substring-no-properties \e$B$r;H$&$h$&$K=$@5$7$?!#\e(B
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.11
-date: 1995/10/06 07:00:00;  author: morioka;  state: Exp;  lines: +1 -7
-\e$BITMW$J4X?t$r>C5n$7$?!#\e(B
-----------------------------
-
-
-* tm/mh-e
-
-  Version 7.01 \e$B$rE:IU$7$?!#\e(B
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 7.1
-date: 1995/10/07 08:26:47;  author: morioka;  state: Exp;  lines: +2 -2
-\e$B4X?t\e(B tm-mh-e/cite \e$B$K$*$$$F!"\e(Bsave-window-excursion \e$B$r;H$C$F$$$?$H$3$m$r\e(B
-save-excursion \e$B$KJQ$($?!#\e(B
-----------------------------
-revision 7.0
-date: 1995/10/07 08:24:48;  author: morioka;  state: Exp;  lines: +25 -18
-\e$B4X?t\e(B tm-mh-e/cite \e$B$K$*$$$F!"\e(Bautomatic MIME preview mode \e$B$N;~$bJQ?t\e(B
-mh-delete-yanked-msg-window \e$B$,M-8z$K$J$k$h$&$K=$@5$7$?!#\e(B
-----------------------------
diff --git a/Changes-7.12.en b/Changes-7.12.en
deleted file mode 100644 (file)
index 5364d78..0000000
+++ /dev/null
@@ -1,61 +0,0 @@
-* tl
-
-  Attached version 7.01.
-
-tl/emu-nemacs.el
-----------------------------
-revision 7.1
-date: 1995/10/11 11:49:55;  author: morioka;  state: Exp;  lines: +16 -1
-Function `find-charset-string' and function `find-charset-region' were 
-created.
-----------------------------
-
-tl/emu-orig.el
-----------------------------
-revision 6.0
-date: 1995/10/11 11:50:24;  author: morioka;  state: Exp;  lines: +16 -1
-Function `find-charset-string' and function `find-charset-region' were 
-created.
-----------------------------
-
-
-* tm
-
-tm/tm-ew-e.el
-----------------------------
-revision 7.1
-date: 1995/10/11 11:56:46;  author: morioka;  state: Exp;  lines: +10 -8
-(1) function `tm-eword::phrase-route-addr-to-rwl' was modified to
-    delete top linear-white-space.
-(2) In function `tm-eword::phrase-to-rwl', treatment of quoted-string
-    was changed.
-----------------------------
-
-tm/tm-eword.el
-----------------------------
-revision 7.4
-date: 1995/10/11 11:53:17;  author: morioka;  state: Exp;  lines: +9 -5
-(1) In function `mime/encode-message-header', field extraction was
-    changed.
-(2) If a field has only US-ASCII, it is not touched.
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.12
-date: 1995/10/11 12:12:06;  author: morioka;  state: Exp;  lines: +6 -6
-Function `mime::get-point-content-number' was renamed to
-`mime-article/point-content-number'.
-----------------------------
-
-
-tm/gnus
-
-  Attached version 7.02.1.
-
-tm/gnus/tm-sgnus.el
-----------------------------
-revision 7.2
-date: 1995/10/11 10:20:29;  author: morioka;  state: Exp;  lines: +24 -22
-nnheader patch support.
-----------------------------
diff --git a/Changes-7.12.ja b/Changes-7.12.ja
deleted file mode 100644 (file)
index 084cf00..0000000
+++ /dev/null
@@ -1,57 +0,0 @@
-* tl
-
-  Version 7.01 \e$B$rE:IU$7$?!#\e(B
-
-tl/emu-nemacs.el
-----------------------------
-revision 7.1
-date: 1995/10/11 11:49:55;  author: morioka;  state: Exp;  lines: +16 -1
-\e$B4X?t\e(B find-charset-string \e$B$H4X?t\e(B find-charset-region \e$B$rDI2C$7$?!#\e(B
-----------------------------
-
-tl/emu-orig.el
-----------------------------
-revision 6.0
-date: 1995/10/11 11:50:24;  author: morioka;  state: Exp;  lines: +16 -1
-\e$B4X?t\e(B find-charset-string \e$B$H4X?t\e(B find-charset-region \e$B$rDI2C$7$?!#\e(B
-----------------------------
-
-
-* tm
-
-tm/tm-ew-e.el
-----------------------------
-revision 7.1
-date: 1995/10/11 11:56:46;  author: morioka;  state: Exp;  lines: +10 -8
-(1) \e$B4X?t\e(B tm-eword::phrase-route-addr-to-rwl \e$B$G@hF,$N\e(B
-    linear-white-space \e$B$r<h$j=|$/$h$&$K$7$?!#\e(B
-(2) \e$B4X?t\e(B tm-eword::phrase-to-rwl \e$B$G$N\e(B quoted-string \e$B$N<h$j07$$$rJQ$($?!#\e(B
-----------------------------
-
-tm/tm-eword.el
-----------------------------
-revision 7.4
-date: 1995/10/11 11:53:17;  author: morioka;  state: Exp;  lines: +9 -5
-(1) \e$B4X?t\e(B mime/encode-message-header \e$B$G$N\e(B field \e$B$N<h$jJ}$rJQ$($?!#\e(B
-(2) field \e$B$K\e(B US-ASCII \e$B$7$+4^$^$l$F$$$J$$>l9g$O\e(B encode \e$B$7$J$$$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.12
-date: 1995/10/11 12:12:06;  author: morioka;  state: Exp;  lines: +6 -6
-\e$B4X?t\e(B mime::get-point-content-number \e$B$r\e(B
-`mime-article/point-content-number' \e$B$K2~L>$7$?!#\e(B
-----------------------------
-
-
-tm/gnus
-
-  Version 7.02.1 \e$B$rE:IU$7$?!#\e(B
-
-tm/gnus/tm-sgnus.el
-----------------------------
-revision 7.2
-date: 1995/10/11 10:20:29;  author: morioka;  state: Exp;  lines: +24 -22
-nnheader patch \e$B$KBP1~$7$?!#\e(B
-----------------------------
diff --git a/Changes-7.13.en b/Changes-7.13.en
deleted file mode 100644 (file)
index 75f2fea..0000000
+++ /dev/null
@@ -1,31 +0,0 @@
-* tm
-
-tm/tm-parse.el
-----------------------------
-revision 4.0
-date: 1995/10/12 06:08:12;  author: morioka;  state: Exp;  lines: +12 -11
-rcnum (reversed content number) slot was added to `mime::content-info'
-structure.
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.13
-date: 1995/10/12 06:10:04;  author: morioka;  state: Exp;  lines: +6 -2
-In function `mime-viewer/display-content', `cnum' was made from
-`rcnum' slot value of argument `content'.
-----------------------------
-
-
-* tm/mh-e
-
-  Attached version 7.02.
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 7.2
-date: 1995/10/12 05:43:34;  author: morioka;  state: Exp;  lines: +33 -106
-When it is automatic MIME preview mode, buffer name of preview buffer is
-``show-+FOLDER'' and it is indicated from mh-show-buffer. Then article
-buffer is created as ``article-+FOLDER''.
-----------------------------
diff --git a/Changes-7.13.ja b/Changes-7.13.ja
deleted file mode 100644 (file)
index 788aaaf..0000000
+++ /dev/null
@@ -1,31 +0,0 @@
-* tm
-
-tm/tm-parse.el
-----------------------------
-revision 4.0
-date: 1995/10/12 06:08:12;  author: morioka;  state: Exp;  lines: +12 -11
-mime::content-info \e$B9=B$BN$K\e(B rcnum (reversed content number) slot \e$B$r@_\e(B
-\e$B$1$?!#\e(B
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.13
-date: 1995/10/12 06:10:04;  author: morioka;  state: Exp;  lines: +6 -2
-\e$B4X?t\e(B mime-viewer/display-content \e$B$K$*$$$F!"\e(Bcnum \e$B$r0z?t\e(B content \e$B$N\e(B
-rcnum slot \e$B$N>pJs$+$i:n$k$h$&$K$7$?!#\e(B
-----------------------------
-
-
-* tm/mh-e
-
-  Version 7.02 \e$B$rE:IU$7$?!#\e(B
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 7.2
-date: 1995/10/12 05:43:34;  author: morioka;  state: Exp;  lines: +33 -106
-automatic MIME preview mode \e$B$N;~!"\e(Bpreview buffer \e$B$N\e(B buffer \e$BL>$r\e(B
-show-+FOLDER \e$B$H$7!"\e(Bmh-show-buffer \e$B$+$i;X$5$l$k$h$&$K$7$?!#$^$?!"$3$N;~!"\e(B
-article-+FOLDER \e$B$H$$$&L>A0$N\e(B article buffer \e$B$r:n$k$h$&$K$7$?!#\e(B
-----------------------------
diff --git a/Changes-7.14-7.15.en b/Changes-7.14-7.15.en
deleted file mode 100644 (file)
index b5db47c..0000000
+++ /dev/null
@@ -1,34 +0,0 @@
-* tm
-
-tm/tm-parse.el
-----------------------------
-revision 5.0
-date: 1995/10/12 14:29:30;  author: morioka;  state: Exp;  lines: +5 -3
-In function `mime/parse-message', a bug about message/rfc822 was
-fixed.
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.15
-date: 1995/10/13 08:43:49;  author: morioka;  state: Exp;  lines: +14 -9
-Eric Ding <ericding@San-Jose.ate.slb.com> fixed function
-`mime-viewer/x-face-function'.
-----------------------------
-revision 7.14
-date: 1995/10/13 07:19:52;  author: morioka;  state: Exp;  lines: +4 -2
-In function `mime-viewer/display-content', I fixed to decode subject.
-----------------------------
-
-
-* tm/mh-e
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 7.3
-date: 1995/10/13 08:15:17;  author: morioka;  state: Exp;  lines: +20 -4
-According to Eric Ding <ericding@San-Jose.ate.slb.com>'s report, `,'
-problem was fixed.
-
-But it may have problems.
-----------------------------
diff --git a/Changes-7.14-7.15.ja b/Changes-7.14-7.15.ja
deleted file mode 100644 (file)
index ef0fbe7..0000000
+++ /dev/null
@@ -1,35 +0,0 @@
-* tm
-
-tm/tm-parse.el
-----------------------------
-revision 5.0
-date: 1995/10/12 14:29:30;  author: morioka;  state: Exp;  lines: +5 -3
-\e$B4X?t\e(B mime/parse-message \e$B$K$*$1$k\e(B message/rfc822 \e$B$N>l9g$NIT6q9g$r=$@5$7\e(B
-\e$B$?!#\e(B
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.15
-date: 1995/10/13 08:43:49;  author: morioka;  state: Exp;  lines: +14 -9
-\e$B4X?t\e(B mime-viewer/x-face-function \e$B$K\e(B Eric Ding
-<ericding@San-Jose.ate.slb.com> \e$B$5$s$N=$@5$r9T$C$?!#\e(B
-----------------------------
-revision 7.14
-date: 1995/10/13 07:19:52;  author: morioka;  state: Exp;  lines: +4 -2
-\e$B4X?t\e(B mime-viewer/display-content \e$B$K$*$$$F!"\e(Bsubject \e$BCf$N\e(B encoded-word
-\e$B$r\e(B decode \e$B$9$k$N$rK:$l$F$$$?$N$r=$@5!#\e(B
-----------------------------
-
-
-* tm/mh-e
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 7.3
-date: 1995/10/13 08:15:17;  author: morioka;  state: Exp;  lines: +20 -4
-Eric Ding <ericding@San-Jose.ate.slb.com> \e$B$5$s$N;XE&$K=>$$!"\e(B`,' \e$B$,8z$+\e(B
-\e$B$J$/$J$C$?LdBj$r=$@5$7$?!#\e(B
-
-\e$BC"$7!"$^$@LdBj$"$j!#\e(B
-----------------------------
diff --git a/Changes-7.16.en b/Changes-7.16.en
deleted file mode 100644 (file)
index 2b630e0..0000000
+++ /dev/null
@@ -1,153 +0,0 @@
-* tm
-
-tm/mime-setup.el
-----------------------------
-revision 7.4
-date: 1995/10/17 16:20:39;  author: morioka;  state: Exp;  lines: +4 -1
-In variable `mime-file-types', setting for *.diff.
-----------------------------
-
-tm/tm-ew-d.el
-----------------------------
-revision 7.5
-date: 1995/10/18 11:18:03;  author: morioka;  state: Exp;  lines: +2 -1
-Function `mime-eword/decode-string' unfolds string.
-----------------------------
-revision 7.4
-date: 1995/10/17 16:45:27;  author: morioka;  state: Exp;  lines: +4 -4
-Function `mime/decode-encoded-words-string' was renamed to
-`mime-eword/decode-string', function
-`mime/decode-encoded-words-region' was renamed to
-`mime-eword/decode-region'.
-----------------------------
-revision 7.3
-date: 1995/10/17 16:39:47;  author: morioka;  state: Exp;  lines: +8 -2
-Version constant `mime/eword-decoder-version' was defined.
-----------------------------
-
-tm/tm-ew-e.el
-----------------------------
-revision 7.4
-date: 1995/10/18 08:54:59;  author: morioka;  state: Exp;  lines: +6 -1
-Function `mime-eword/encode-string' was created.
-----------------------------
-revision 7.3
-date: 1995/10/17 16:37:25;  author: morioka;  state: Exp;  lines: +9 -3
-Version constant `mime/eword-encoder-version' was defined.
-----------------------------
-revision 7.2
-date: 1995/10/17 16:32:15;  author: morioka;  state: Exp;  lines: +94 -1
-Public functions about encoded-word encoder were moved from
-tm-eword.el.
-----------------------------
-
-tm/tm-eword.el
-----------------------------
-revision 7.9
-date: 1995/10/18 08:55:37;  author: morioka;  state: Exp;  lines: +8 -6
-Function `mime-eword/encode-string' was defined.
-----------------------------
-revision 7.8
-date: 1995/10/17 16:46:33;  author: morioka;  state: Exp;  lines: +3 -3
-Function `mime/decode-encoded-words-string' was renamed to
-`mime-eword/decode-string', function
-`mime/decode-encoded-words-region' was renamed to
-`mime-eword/decode-region'.
-----------------------------
-revision 7.7
-date: 1995/10/17 16:33:57;  author: morioka;  state: Exp;  lines: +1 -3
-tm-eword-load-hook was deleted.
-----------------------------
-revision 7.6
-date: 1995/10/17 16:33:26;  author: morioka;  state: Exp;  lines: +2 -10
-version constant was deleted.
-----------------------------
-revision 7.5
-date: 1995/10/17 16:31:20;  author: morioka;  state: Exp;  lines: +4 -97
-Functions about encoded-word encoder were moved to tm-ew-e.el.
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.16
-date: 1995/10/17 16:48:06;  author: morioka;  state: Exp;  lines: +2 -2
-Function `mime/decode-encoded-words-string' was renamed to
-`mime-eword/decode-string'.
-----------------------------
-
-tm/tm-partial.el
-----------------------------
-revision 7.0
-date: 1995/10/18 08:19:27;  author: morioka;  state: Exp;  lines: +10 -2
-Support for September Gnus and Gnus 5.0.* with September patch. (It is 
-not beautiful).
-----------------------------
-
-tm/tm-vm.el
-----------------------------
-revision 7.1
-date: 1995/10/17 16:49:51;  author: morioka;  state: Exp;  lines: +2 -2
-Comment was modified because function
-`mime/decode-encoded-words-string' was renamed to
-`mime-eword/decode-string'.
-----------------------------
-
-
-tm/mh-e
-
-  Attached version 7.05.
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 7.5
-date: 1995/10/18 09:57:56;  author: morioka;  state: Exp;  lines: +14 -14
-(1) When `,' key is pressed, encoded-words are not decoded.
-(2) When `,' key is pressed in automatic MIME preview mode, article
-    buffer is displayed.
-----------------------------
-revision 7.4
-date: 1995/10/18 09:43:43;  author: morioka;  state: Exp;  lines: +18 -6
-(1) New implementation about `.' and `,'.
-(2) When `,' key is pressed in automatic MIME preview mode, it displays
-    preview buffer which has all headers.
-----------------------------
-
-
-tm/gnus
-
-  Attached version 7.04.
-
-tm/gnus/tm-gnus5.el
-----------------------------
-revision 7.3
-date: 1995/10/17 16:52:54;  author: morioka;  state: Exp;  lines: +6 -6
-Function `mime/decode-encoded-words-string' was renamed to
-`mime-eword/decode-string'.
-----------------------------
-
-tm/gnus/tm-ognus.el
-----------------------------
-revision 7.1
-date: 1995/10/17 16:56:12;  author: morioka;  state: Exp;  lines: +6 -7
-Function `mime/decode-encoded-words-string' was renamed to
-`mime-eword/decode-string'.
-----------------------------
-
-tm/gnus/tm-sgnus.el
-----------------------------
-revision 7.4
-date: 1995/10/18 08:32:36;  author: morioka;  state: Exp;  lines: +39 -8
-(1) alias `mime/decode-encoded-words-string' was defined to indicate
-    `mime-eword/decode-string'. It is for old nnheader patch.
-
-(2) Function `tm-gnus/article-hide-headers-if-wanted' is added to
-    `gnus-article-display-hook' instead of
-    `gnus-article-hide-headers-if-wanted'. It does not call function
-    `gnus-article-hide-headers-if-wanted' when automatic MIME preview
-    mode.
-----------------------------
-revision 7.3
-date: 1995/10/17 16:58:05;  author: morioka;  state: Exp;  lines: +4 -4
-Function `mime/decode-encoded-words-string' was renamed to
-`mime-eword/decode-string'.
-----------------------------
diff --git a/Changes-7.16.ja b/Changes-7.16.ja
deleted file mode 100644 (file)
index e5aba52..0000000
+++ /dev/null
@@ -1,151 +0,0 @@
-* tm
-
-tm/mime-setup.el
-----------------------------
-revision 7.4
-date: 1995/10/17 16:20:39;  author: morioka;  state: Exp;  lines: +4 -1
-\e$BJQ?t\e(B mime-file-types \e$B$K\e(B *.diff \e$B$r@_Dj$7$?!#\e(B
-----------------------------
-
-tm/tm-ew-d.el
-----------------------------
-revision 7.5
-date: 1995/10/18 11:18:03;  author: morioka;  state: Exp;  lines: +2 -1
-\e$B4X?t\e(B mime-eword/decode-string \e$B$G\e(B unfolding \e$B$9$k$h$&$K$7$?!#\e(B
-----------------------------
-revision 7.4
-date: 1995/10/17 16:45:27;  author: morioka;  state: Exp;  lines: +4 -4
-\e$B4X?t\e(B mime/decode-encoded-words-string \e$B$r\e(B `mime-eword/decode-string' \e$B$K!"\e(B
-\e$B4X?t\e(B mime/decode-encoded-words-region \e$B$r\e(B `mime-eword/decode-region' \e$B$K\e(B
-\e$B2~L>$7$?!#\e(B
-----------------------------
-revision 7.3
-date: 1995/10/17 16:39:47;  author: morioka;  state: Exp;  lines: +8 -2
-version \e$BDj?t\e(B `mime/eword-decoder-version' \e$B$rDj5A$7$?!#\e(B
-----------------------------
-
-tm/tm-ew-e.el
-----------------------------
-revision 7.4
-date: 1995/10/18 08:54:59;  author: morioka;  state: Exp;  lines: +6 -1
-\e$B4X?t\e(B mime-eword/encode-string \e$B$rDI2C$7$?!#\e(B
-----------------------------
-revision 7.3
-date: 1995/10/17 16:37:25;  author: morioka;  state: Exp;  lines: +9 -3
-version \e$BDj?t\e(B `mime/eword-encoder-version' \e$B$r?7@_$7$?!#\e(B
-----------------------------
-revision 7.2
-date: 1995/10/17 16:32:15;  author: morioka;  state: Exp;  lines: +94 -1
-encoded-word \e$B$N\e(B encode \e$B$K4X$9$k8x3+MQ$N4X?t$r\e(B tm-eword.el \e$B$+$i0\$7$?!#\e(B
-----------------------------
-
-tm/tm-eword.el
-----------------------------
-revision 7.9
-date: 1995/10/18 08:55:37;  author: morioka;  state: Exp;  lines: +8 -6
-\e$B4X?t\e(B mime-eword/encode-string \e$B$rDI2C$7$?!#\e(B
-----------------------------
-revision 7.8
-date: 1995/10/17 16:46:33;  author: morioka;  state: Exp;  lines: +3 -3
-\e$B4X?t\e(B mime/decode-encoded-words-string \e$B$r\e(B `mime-eword/decode-string' \e$B$K!"\e(B
-\e$B4X?t\e(B mime/decode-encoded-words-region \e$B$r\e(B `mime-eword/decode-region' \e$B$K\e(B
-\e$B2~L>$7$?!#\e(B
-----------------------------
-revision 7.7
-date: 1995/10/17 16:33:57;  author: morioka;  state: Exp;  lines: +1 -3
-tm-eword-load-hook \e$B$rGQ;_$7$?!#\e(B
-----------------------------
-revision 7.6
-date: 1995/10/17 16:33:26;  author: morioka;  state: Exp;  lines: +2 -10
-version \e$BDj?t$rGQ;_$7$?!#\e(B
-----------------------------
-revision 7.5
-date: 1995/10/17 16:31:20;  author: morioka;  state: Exp;  lines: +4 -97
-encode \e$B4X78$N4X?t$rA4$F\e(B tm-ew-e.el \e$B$K0\$7$?!#\e(B
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.16
-date: 1995/10/17 16:48:06;  author: morioka;  state: Exp;  lines: +2 -2
-\e$B4X?t\e(B mime/decode-encoded-words-string \e$B$r\e(B `mime-eword/decode-string' \e$B$K\e(B
-\e$B2~L>$7$?!#\e(B
-----------------------------
-
-tm/tm-partial.el
-----------------------------
-revision 7.0
-date: 1995/10/18 08:19:27;  author: morioka;  state: Exp;  lines: +10 -2
-September Gnus \e$B$*$h$S\e(B Gnus 5.0.* with September patch \e$B$K$H$j$"$($:BP1~\e(B
-\e$B$7$?!#\e(B
-----------------------------
-
-tm/tm-vm.el
-----------------------------
-revision 7.1
-date: 1995/10/17 16:49:51;  author: morioka;  state: Exp;  lines: +2 -2
-\e$B4X?t\e(B mime/decode-encoded-words-string \e$B$r\e(B `mime-eword/decode-string' \e$B$K\e(B
-\e$B2~L>$7$?$3$H$KH<$$!"\e(Bcomment \e$B$r=$@5$7$?!#\e(B
-----------------------------
-
-
-tm/mh-e
-
-  Version 7.05 \e$B$rE:IU$7$?!#\e(B
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 7.5
-date: 1995/10/18 09:57:56;  author: morioka;  state: Exp;  lines: +14 -14
-(1) `,' \e$B$r2!$7$?;~!"\e(Bencoded-word \e$B$O\e(B decode \e$B$7$J$$$h$&$K$7$?!#\e(B
-(2) automatic MIME preview mode \e$B$N;~$K\e(B `,' \e$B$r2!$7$?>l9g!"\e(Barticle
-    buffer \e$B$rI=<($9$k$h$&$K$7$?!#\e(B
-----------------------------
-revision 7.4
-date: 1995/10/18 09:43:43;  author: morioka;  state: Exp;  lines: +18 -6
-(1) `.' \e$B$H\e(B `,' \e$B$r<B8=$9$k4X?t$r:n$jD>$7$?!#\e(B
-(2) automatic MIME preview mode \e$B$K$*$$$F\e(B `,' \e$B$r2!$7$?;~!"\e(Bheader \e$B$rA4It\e(B
-    \e$BI=<($7$?\e(B preview buffer \e$B$rI=<($9$k$h$&$K$7$?!#\e(B
-----------------------------
-
-
-tm/gnus
-
-  Version 7.04 \e$B$rE:IU$7$?!#\e(B
-
-tm/gnus/tm-gnus5.el
-----------------------------
-revision 7.3
-date: 1995/10/17 16:52:54;  author: morioka;  state: Exp;  lines: +6 -6
-\e$B4X?t\e(B mime/decode-encoded-words-string \e$B$r\e(B `mime-eword/decode-string' \e$B$K\e(B
-\e$B2~L>$7$?!#\e(B
-----------------------------
-
-tm/gnus/tm-ognus.el
-----------------------------
-revision 7.1
-date: 1995/10/17 16:56:12;  author: morioka;  state: Exp;  lines: +6 -7
-\e$B4X?t\e(B mime/decode-encoded-words-string \e$B$r\e(B `mime-eword/decode-string' \e$B$K\e(B
-\e$B2~L>$7$?!#\e(B
-----------------------------
-
-tm/gnus/tm-sgnus.el
-----------------------------
-revision 7.4
-date: 1995/10/18 08:32:36;  author: morioka;  state: Exp;  lines: +39 -8
-(1) \e$B4X?t\e(B mime/decode-encoded-words-string \e$B$,\e(B
-    `mime-eword/decode-string' \e$B$K2~L>$5$l$?;v$KH<$$!"8E$$\e(B Gnus 5.0.*
-    nnheader patch \e$B$r9MN8$7$F!"4X?t\e(B mime-eword/decode-string \e$B$r\e(B
-    `mime/decode-encoded-words-string' \e$B$K\e(B alias \e$B$7$?!#\e(B
-
-(2) gnus-article-display-hook \e$B$+$i4X?t\e(B
-    gnus-article-hide-headers-if-wanted \e$B$r<h$j=|$-!"Be$o$j$K!"\e(B
-    automatic MIME preview mode \e$B$N;~0J30$K$N$_\e(B
-    gnus-article-hide-headers-if-wanted \e$B$r\e(B \e$BF0$+$94X?t\e(B
-    tm-gnus/article-hide-headers-if-wanted \e$B$r@_Dj$7$?!#\e(B
-----------------------------
-revision 7.3
-date: 1995/10/17 16:58:05;  author: morioka;  state: Exp;  lines: +4 -4
-\e$B4X?t\e(B mime/decode-encoded-words-string \e$B$r\e(B `mime-eword/decode-string' \e$B$K\e(B
-\e$B2~L>$7$?!#\e(B
-----------------------------
diff --git a/Changes-7.17.en b/Changes-7.17.en
deleted file mode 100644 (file)
index 0fb2115..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
-* tm
-
-       - Manual was modified.
-
-tm/tm-view.el
-----------------------------
-revision 7.17
-date: 1995/10/19 07:55:54;  author: morioka;  state: Exp;  lines: +43 -36
-Use rcnum instead of cnum.
-----------------------------
-
-tm/tm-w3.el
-----------------------------
-revision 2.0
-date: 1995/10/19 07:57:57;  author: morioka;  state: Exp;  lines: +7 -1
-Decode base64 or quoted-printable content.
-----------------------------
-
-
-* tm/mh-e
-
-  Attached version 7.06.
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 7.6
-date: 1995/10/19 07:51:52;  author: morioka;  state: Exp;  lines: +5 -9
-Fixed problem of `.' and `,'.
-----------------------------
diff --git a/Changes-7.17.ja b/Changes-7.17.ja
deleted file mode 100644 (file)
index 1a56b1e..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
-* tm
-
-       - manual \e$B$r>/$7=q$-D>$7$?!#\e(B
-
-tm/tm-view.el
-----------------------------
-revision 7.17
-date: 1995/10/19 07:55:54;  author: morioka;  state: Exp;  lines: +43 -36
-cnum \e$B$r;H$C$F$$$?$H$3$m$r\e(B rcnum \e$B$r;H$&$h$&$K=$@5$7$?!#\e(B
-----------------------------
-
-tm/tm-w3.el
-----------------------------
-revision 2.0
-date: 1995/10/19 07:57:57;  author: morioka;  state: Exp;  lines: +7 -1
-base64 \e$B$d\e(B quoted-printable \e$B$N>l9g!"\e(Bdecode \e$B$9$k$h$&$K$7$?!#\e(B
-----------------------------
-
-
-* tm/mh-e
-
-  Version 7.06 \e$B$rE:IU$7$?!#\e(B
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 7.6
-date: 1995/10/19 07:51:52;  author: morioka;  state: Exp;  lines: +5 -9
-`.' \e$B$H\e(B `,' \e$B$NIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
diff --git a/Changes-7.18.en b/Changes-7.18.en
deleted file mode 100644 (file)
index 01f8644..0000000
+++ /dev/null
@@ -1,83 +0,0 @@
-* tl
-
-  Attached version 7.01.1.
-
-tl/mu-cite.el
-----------------------------
-revision 3.3
-date: 1995/10/20 10:43:28;  author: morioka;  state: Exp;  lines: +4 -2
-Fixed function `mu-cite/cite-original'.
-----------------------------
-
-
-* mel
-
-  Attached Version 2.1.
-
-mel/mel.el
-----------------------------
-revision 2.1
-date: 1995/10/20 10:51:39;  author: morioka;  state: Exp;  lines: +18 -1
-Function `mime/encode-region' was created.
-----------------------------
-revision 2.0
-date: 1995/10/20 10:38:08;  author: morioka;  state: Exp;  lines: +27 -1
-Function `mime/decode-region' was created.
-----------------------------
-
-
-* tm
-
-tm/tm-rich.el
-----------------------------
-revision 7.1
-date: 1995/10/20 10:40:06;  author: morioka;  state: Exp;  lines: +3 -15
-Use function `mime/decode-region'.
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.18
-date: 1995/10/20 10:41:59;  author: morioka;  state: Exp;  lines: +3 -9
-Function `mime-viewer/filter-text/plain' was modified\e$B!'\e(B
-(1) Use function `mime/decode-region'.
-(2) Unnecessary goto-char was deleted.
-(3) Unnecessary save-excursion was deleted.
-----------------------------
-
-tm/tm-w3.el
-----------------------------
-revision 3.0
-date: 1995/10/20 10:42:41;  author: morioka;  state: Exp;  lines: +2 -7
-Use function `mime/decode-region'.
-----------------------------
-revision 2.0
-date: 1995/10/19 07:57:57;  author: morioka;  state: Exp;  lines: +7 -1
-Decode base64 or quoted-printable.
-----------------------------
-
-
-* tm/gnus
-
-  Attached Version 7.5.
-
-tm/tm-sgnus.el
-----------------------------
-revision 7.5
-date: 1995/10/19 14:22:47;  author: morioka;  state: Exp;  lines: +1 -5
-Not support gnus-5.0.6-nnheader.diff. (^_^;
-----------------------------
-
-
-* tm/mh-e
-
-  Attached Version 7.7.
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 7.7
-date: 1995/10/20 10:54:27;  author: morioka;  state: Exp;  lines: +10 -2
-(1) In automatic MIME preview mode, if `,' key is pressed, it displays 
-    preview buffer which has all fields of message header.
-(2) Raw message displaying function is bound to `ESC ,'.
-----------------------------
diff --git a/Changes-7.18.ja b/Changes-7.18.ja
deleted file mode 100644 (file)
index 2ff3ef2..0000000
+++ /dev/null
@@ -1,83 +0,0 @@
-* tl
-
-  Version 7.01.1 \e$B$rE:IU$7$?!#\e(B
-
-tl/mu-cite.el
-----------------------------
-revision 3.3
-date: 1995/10/20 10:43:28;  author: morioka;  state: Exp;  lines: +4 -2
-\e$B4X?t\e(B mu-cite/cite-original \e$B$r=$@5$7$?!#\e(B
-----------------------------
-
-
-* mel
-
-  Version 2.1 \e$B$rE:IU$7$?!#\e(B
-
-mel/mel.el
-----------------------------
-revision 2.1
-date: 1995/10/20 10:51:39;  author: morioka;  state: Exp;  lines: +18 -1
-\e$B4X?t\e(B mime/encode-region \e$B$rDI2C$7$?!#\e(B
-----------------------------
-revision 2.0
-date: 1995/10/20 10:38:08;  author: morioka;  state: Exp;  lines: +27 -1
-\e$B4X?t\e(B mime/decode-region \e$B$rDI2C$7$?!#\e(B
-----------------------------
-
-
-* tm
-
-tm/tm-rich.el
-----------------------------
-revision 7.1
-date: 1995/10/20 10:40:06;  author: morioka;  state: Exp;  lines: +3 -15
-\e$B4X?t\e(B mime/decode-region \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.18
-date: 1995/10/20 10:41:59;  author: morioka;  state: Exp;  lines: +3 -9
-\e$B4X?t\e(B mime-viewer/filter-text/plain \e$B$r=$@5$7$?!'\e(B
-(1) \e$B4X?t\e(B mime/decode-region \e$B$r;H$&$h$&$K$7$?!#\e(B
-(2) \e$BL5BL$J\e(B goto-char \e$B$r:o=|$7$?!#\e(B
-(3) \e$BL5BL$J\e(B save-excursion \e$B$r:o=|$7$?!#\e(B
-----------------------------
-
-tm/tm-w3.el
-----------------------------
-revision 3.0
-date: 1995/10/20 10:42:41;  author: morioka;  state: Exp;  lines: +2 -7
-\e$B4X?t\e(B mime/decode-region \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-revision 2.0
-date: 1995/10/19 07:57:57;  author: morioka;  state: Exp;  lines: +7 -1
-base64 \e$B$d\e(B quoted-printable \e$B$N>l9g!"\e(Bdecode \e$B$9$k$h$&$K$7$?!#\e(B
-----------------------------
-
-
-* tm/gnus
-
-  Version 7.5 \e$B$rE:IU$7$?!#\e(B
-
-tm/tm-sgnus.el
-----------------------------
-revision 7.5
-date: 1995/10/19 14:22:47;  author: morioka;  state: Exp;  lines: +1 -5
-gnus-5.0.6-nnheader.diff \e$B$r8+<N$F$?!#\e(B(^_^;
-----------------------------
-
-
-* tm/mh-e
-
-  Version 7.7 \e$B$rE:IU$7$?!#\e(B
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 7.7
-date: 1995/10/20 10:54:27;  author: morioka;  state: Exp;  lines: +10 -2
-(1) automatic MIME preview mode \e$B$N;~$K\e(B `,' \e$B$r2!$7$?>l9g!"\e(Bheader \e$B$rA4It\e(B
-    \e$BI=<($7$?\e(B preview buffer \e$B$rI=<($9$k$h$&$K$7$?!#\e(B
-(2) \e$B>o$K@8$N2hLL$rI=<($9$k4X?t$r\e(B `ESC ,' \e$B$K3d$jEv$F$?!#\e(B
-----------------------------
diff --git a/Changes-7.19.en b/Changes-7.19.en
deleted file mode 100644 (file)
index 5b86e6f..0000000
+++ /dev/null
@@ -1,139 +0,0 @@
-* tm
-
-tm/tm-partial.el
-----------------------------
-revision 7.9
-date: 1995/10/23 09:27:29;  author: morioka;  state: Exp;  lines: +6 -5
-Function `mime/decode-message/partial-region' was renamed to
-`mime-article/decode-message/partial'.
-----------------------------
-revision 7.8
-date: 1995/10/22 14:28:50;  author: morioka;  state: Exp;  lines: +12 -71
-Stop checking about number, etc.
-----------------------------
-revision 7.7
-date: 1995/10/22 13:13:39;  author: morioka;  state: Exp;  lines: +1 -19
-Setting for VM was moved to tm-vm.el.
-----------------------------
-revision 7.6
-date: 1995/10/22 12:51:23;  author: morioka;  state: Exp;  lines: +1 -22
-Setting for mh-e was moved to tm-mh-e.el.
-----------------------------
-revision 7.5
-date: 1995/10/22 12:37:34;  author: morioka;  state: Exp;  lines: +3 -19
-Setting for September Gnus and Gnus 5.0.* with September patch was
-moved to tm-sgnus.el.
-----------------------------
-revision 7.4
-date: 1995/10/22 12:08:45;  author: morioka;  state: Exp;  lines: +1 -16
-Setting for GNUS 4 was moved to tm-gnus4.el.
-----------------------------
-revision 7.3
-date: 1995/10/22 12:01:35;  author: morioka;  state: Exp;  lines: +1 -16
-Setting for GNUS 3.* was moved to tm-gnus3.el.
-----------------------------
-revision 7.2
-date: 1995/10/22 11:56:28;  author: morioka;  state: Exp;  lines: +17 -11
-Variable `tm-partial/display-article-method-alist' was renamed to
-`tm-partial/preview-article-method-alist', function
-`tm-partial/display-article' was renamed to
-`tm-partial/preview-article'.
-----------------------------
-revision 7.1
-date: 1995/10/22 10:22:30;  author: morioka;  state: Exp;  lines: +117 -99
-Implementation was changed:
-(1) Some check for Subject searching in Summary was cut.
-(2) Use message/partial method of tm-view.
-(3) Separate setting for each MUA from the function.
-----------------------------
-
-tm/tm-play.el
-----------------------------
-revision 2.0
-date: 1995/10/23 09:26:41;  author: morioka;  state: Exp;  lines: +2 -2
-Function `mime/decode-message/partial-region' was renamed to
-`mime-article/decode-message/partial'.
-----------------------------
-
-tm/tm-rmail.el
-----------------------------
-revision 7.3
-date: 1995/10/23 08:53:47;  author: morioka;  state: Exp;  lines: +29 -1
-Setting for tm-partial was added.
-----------------------------
-revision 7.2
-date: 1995/10/22 15:42:46;  author: morioka;  state: Exp;  lines: +2 -2
-Fixed a problem about quitting method setting.
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.19
-date: 1995/10/23 09:27:13;  author: morioka;  state: Exp;  lines: +2 -2
-Function `mime/decode-message/partial-region' was renamed to
-`mime-article/decode-message/partial'.
-----------------------------
-
-tm/tm-vm.el
-----------------------------
-revision 7.2
-date: 1995/10/22 13:17:12;  author: morioka;  state: Exp;  lines: +25 -2
-Setting for tm-partial was added.
-----------------------------
-
-
-* tm/mh-e
-
-  Attached version 7.08.
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 7.8
-date: 1995/10/22 14:40:59;  author: morioka;  state: Exp;  lines: +29 -1
-Setting for tm-partial was added.
-----------------------------
-
-
-* tm/gnus
-
-  Attached version 7.09.
-
-tm/gnus/tm-gnus3.el
-----------------------------
-revision 7.0
-date: 1995/10/22 12:02:04;  author: morioka;  state: Exp;  lines: +24 -1
-Setting for tm-partial was added.
-----------------------------
-
-tm/gnus/tm-gnus4.el
-----------------------------
-revision 7.0
-date: 1995/10/22 12:12:56;  author: morioka;  state: Exp;  lines: +24 -1
-Setting for tm-partial was added.
-----------------------------
-
-tm/gnus/tm-gnus5.el
-----------------------------
-revision 7.4
-date: 1995/10/22 12:13:50;  author: morioka;  state: Exp;  lines: +24 -1
-Setting for tm-partial was added.
-----------------------------
-
-tm/gnus/tm-sgnus.el
-----------------------------
-revision 7.9
-date: 1995/10/23 10:18:13;  author: morioka;  state: Exp;  lines: +13 -7
-`tm-gnus/article-prepare-hook' was created.
-----------------------------
-revision 7.8
-date: 1995/10/23 08:55:03;  author: morioka;  state: Exp;  lines: +11 -1
-measure for BBDB.
-----------------------------
-revision 7.7
-date: 1995/10/22 14:38:08;  author: morioka;  state: Exp;  lines: +5 -6
-Fixed a problem for tm-partial.
-----------------------------
-revision 7.6
-date: 1995/10/22 12:37:59;  author: morioka;  state: Exp;  lines: +23 -1
-Setting for tm-partial was added.
-----------------------------
diff --git a/Changes-7.19.ja b/Changes-7.19.ja
deleted file mode 100644 (file)
index 2928e36..0000000
+++ /dev/null
@@ -1,138 +0,0 @@
-* tm
-
-tm/tm-partial.el
-----------------------------
-revision 7.9
-date: 1995/10/23 09:27:29;  author: morioka;  state: Exp;  lines: +6 -5
-\e$B4X?t\e(B mime/decode-message/partial-region \e$B$r\e(B
-`mime-article/decode-message/partial' \e$B$K2~L>$7$?!#\e(B
-----------------------------
-revision 7.8
-date: 1995/10/22 14:28:50;  author: morioka;  state: Exp;  lines: +12 -71
-\e$BHV9fEy$N\e(B check \e$B$r9T$&$N$r;_$a$?!#\e(B
-----------------------------
-revision 7.7
-date: 1995/10/22 13:13:39;  author: morioka;  state: Exp;  lines: +1 -19
-VM \e$BMQ$N@_Dj$r\e(B tm-vm.el \e$B$K0\$7$?!#\e(B
-----------------------------
-revision 7.6
-date: 1995/10/22 12:51:23;  author: morioka;  state: Exp;  lines: +1 -22
-mh-e \e$BMQ$N@_Dj$r\e(B tm-mh-e.el \e$B$K0\$7$?!#\e(B
-----------------------------
-revision 7.5
-date: 1995/10/22 12:37:34;  author: morioka;  state: Exp;  lines: +3 -19
-September Gnus \e$B$*$h$S\e(B Gnus 5.0.* with September patch \e$BMQ$N@_Dj$r\e(B
-tm-sgnus.el \e$B$K0\$7$?!#\e(B
-----------------------------
-revision 7.4
-date: 1995/10/22 12:08:45;  author: morioka;  state: Exp;  lines: +1 -16
-GNUS 4 \e$BMQ$N@_Dj$r\e(B tm-gnus4.el \e$B$K0\$7$?!#\e(B
-----------------------------
-revision 7.3
-date: 1995/10/22 12:01:35;  author: morioka;  state: Exp;  lines: +1 -16
-GNUS 3.* \e$BMQ$N@_Dj$r\e(B tm-gnus3.el \e$B$K0\$7$?!#\e(B
-----------------------------
-revision 7.2
-date: 1995/10/22 11:56:28;  author: morioka;  state: Exp;  lines: +17 -11
-\e$BJQ?t\e(B tm-partial/display-article-method-alist \e$B$r\e(B
-`tm-partial/preview-article-method-alist' \e$B$K!"4X?t\e(B
-tm-partial/display-article \e$B$r\e(B `tm-partial/preview-article' \e$B$K2~L>$7$?!#\e(B
-----------------------------
-revision 7.1
-date: 1995/10/22 10:22:30;  author: morioka;  state: Exp;  lines: +117 -99
-\e$B<BAu$rBgI}$K=$@5$7$?!#\e(B
-(1) Summary \e$B$K$*$1$k\e(B Subject \e$B8!:w$N>r7o$r4K$a$?!#\e(B
-(2) tm-view \e$B$N\e(B message/partial \e$BMQ$N\e(B method \e$B$rMxMQ$9$k$h$&$K$7$?!#\e(B
-(3) \e$B3F\e(B MUA \e$BMQ$N@_Dj$r4X?tK\BN$+$iJ,N%$7$?!#\e(B
-----------------------------
-
-tm/tm-play.el
-----------------------------
-revision 2.0
-date: 1995/10/23 09:26:41;  author: morioka;  state: Exp;  lines: +2 -2
-\e$B4X?t\e(B mime/decode-message/partial-region \e$B$r\e(B
-`mime-article/decode-message/partial' \e$B$K2~L>$7$?!#\e(B
-----------------------------
-
-tm/tm-rmail.el
-----------------------------
-revision 7.3
-date: 1995/10/23 08:53:47;  author: morioka;  state: Exp;  lines: +29 -1
-tm-partial \e$BMQ$N@_Dj$rDI2C$7$?!#\e(B
-----------------------------
-revision 7.2
-date: 1995/10/22 15:42:46;  author: morioka;  state: Exp;  lines: +2 -2
-quitting method \e$B$N@_Dj$K$*$1$kIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.19
-date: 1995/10/23 09:27:13;  author: morioka;  state: Exp;  lines: +2 -2
-\e$B4X?t\e(B mime/decode-message/partial-region \e$B$r\e(B
-`mime-article/decode-message/partial' \e$B$K2~L>$7$?!#\e(B
-----------------------------
-
-tm/tm-vm.el
-----------------------------
-revision 7.2
-date: 1995/10/22 13:17:12;  author: morioka;  state: Exp;  lines: +25 -2
-tm-partial \e$BMQ$N@_Dj$r9T$C$?!#\e(B
-----------------------------
-
-
-* tm/mh-e
-
-  Version 7.08 \e$B$rE:IU$7$?!#\e(B
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 7.8
-date: 1995/10/22 14:40:59;  author: morioka;  state: Exp;  lines: +29 -1
-tm-partial \e$BMQ$N@_Dj$rDI2C$7$?!#\e(B
-----------------------------
-
-
-* tm/gnus
-
-  Version 7.09 \e$B$rE:IU$7$?!#\e(B
-
-tm/gnus/tm-gnus3.el
-----------------------------
-revision 7.0
-date: 1995/10/22 12:02:04;  author: morioka;  state: Exp;  lines: +24 -1
-tm-partial \e$BMQ$N@_Dj$r9T$C$?!#\e(B
-----------------------------
-
-tm/gnus/tm-gnus4.el
-----------------------------
-revision 7.0
-date: 1995/10/22 12:12:56;  author: morioka;  state: Exp;  lines: +24 -1
-tm-partial \e$BMQ$N@_Dj$r9T$C$?!#\e(B
-----------------------------
-
-tm/gnus/tm-gnus5.el
-----------------------------
-revision 7.4
-date: 1995/10/22 12:13:50;  author: morioka;  state: Exp;  lines: +24 -1
-tm-partial \e$BMQ$N@_Dj$r9T$C$?!#\e(B
-----------------------------
-
-tm/gnus/tm-sgnus.el
-----------------------------
-revision 7.9
-date: 1995/10/23 10:18:13;  author: morioka;  state: Exp;  lines: +13 -7
-tm-gnus/article-prepare-hook \e$B$r@_$1$?!#\e(B
-----------------------------
-revision 7.8
-date: 1995/10/23 08:55:03;  author: morioka;  state: Exp;  lines: +11 -1
-BBDB \e$BBP:vMQ$N\e(B code \e$B$rF~$l$?!#\e(B
-----------------------------
-revision 7.7
-date: 1995/10/22 14:38:08;  author: morioka;  state: Exp;  lines: +5 -6
-tm-partial \e$B$G$NIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
-revision 7.6
-date: 1995/10/22 12:37:59;  author: morioka;  state: Exp;  lines: +23 -1
-tm-partial \e$BMQ$N@_Dj$r9T$C$?!#\e(B
-----------------------------
diff --git a/Changes-7.20.en b/Changes-7.20.en
deleted file mode 100644 (file)
index e94e834..0000000
+++ /dev/null
@@ -1,122 +0,0 @@
-* mel
-
-  Attached version 3.0.
-
-mel/mel.el
-----------------------------
-revision 3.0
-date: 1995/10/25 05:03:11;  author: morioka;  state: Exp;  lines: +13 -8
-(1) setting for mel-u.el.
-(2) New variable `mime-encoding-method-alist': it is used to choose
-    encoder in function `mime/encode-region'.
-----------------------------
-
-mel/mel-b.el
-----------------------------
-revision 2.0
-date: 1995/10/25 02:40:49;  author: morioka;  state: Exp;  lines: +15 -9
-Fixed a problem in Mule.
-----------------------------
-
-mel/mel-q.el
-----------------------------
-revision 2.1
-date: 1995/10/25 05:00:54;  author: morioka;  state: Exp;  lines: +15 -9
-Fixed a problem in Mule.
-----------------------------
-
-mel/mel-u.el
-----------------------------
-revision 1.1
-date: 1995/10/25 05:01:17;  author: morioka;  state: Exp;
-New module: it is for uuencode.
-----------------------------
-
-
-* tm
-
-tm/mime-setup.el
-----------------------------
-revision 7.7
-date: 1995/10/26 11:12:49;  author: morioka;  state: Exp;  lines: +3 -112
-Setting for tm-edit.el instead of setting for mime.el and tm-comp.el.
-----------------------------
-revision 7.6
-date: 1995/10/26 00:17:08;  author: morioka;  state: Exp;  lines: +1 -39
-Setting for variable `mime-file-types' was deleted.
-----------------------------
-revision 7.5
-date: 1995/10/24 00:23:57;  author: morioka;  state: Exp;  lines: +11 -11
-According to KOBAYASHI Shuuhei <shuhei@cmpt01.phys.tohoku.ac.jp> in
-[tm ML (Japanese):1031], setting for VM variables was deleted.
-----------------------------
-
-tm/signature.el
-----------------------------
-revision 4.0
-date: 1995/10/26 09:25:23;  author: morioka;  state: Exp;  lines: +5 -3
-Function `signature/insert-signature-at-point' and function
-`signature/insert-signature-at-eof' were modified to return file name
-of inserted signature.
-----------------------------
-revision 3.0
-date: 1995/10/25 04:58:18;  author: morioka;  state: Exp;  lines: +33 -21
-Fixed a problem of function `signature/get-signature-file-name'.
-----------------------------
-
-tm/tm-edit.el
-----------------------------
-revision 7.11
-date: 1995/10/26 11:12:05;  author: morioka;  state: Exp;  lines: +51 -67
-New module: it was created based on mime.el and tm-comp.el.
-----------------------------
-
-tm/tm-ew-e.el
-----------------------------
-revision 7.5
-date: 1995/10/24 00:18:39;  author: morioka;  state: Exp;  lines: +2 -3
-According to KOBAYASHI Shuuhei <shuhei@cmpt01.phys.tohoku.ac.jp> in
-[tm ML (Japanese):1031], forgot part, which should be renamed, was
-renamed.
-----------------------------
-
-tm/tm-partial.el
-----------------------------
-revision 7.10
-date: 1995/10/25 05:25:28;  author: morioka;  state: Exp;  lines: +10 -9
-Fixed for cut off Subject: field.
-----------------------------
-
-tm/tm-rmail.el
-----------------------------
-revision 7.4
-date: 1995/10/24 00:19:52;  author: morioka;  state: Exp;  lines: +3 -6
-(require 'rmail) was added.
-----------------------------
-
-tm/tm-setup.el
-----------------------------
-revision 6.4
-date: 1995/10/24 00:24:48;  author: morioka;  state: Exp;  lines: +7 -2
-(require 'tm-rmail) is setting for rmail-mode-hook.
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.20
-date: 1995/10/24 00:21:02;  author: morioka;  state: Exp;  lines: +4 -1
-According to KOBAYASHI Shuuhei <shuhei@cmpt01.phys.tohoku.ac.jp> in
-[tm ML (Japanese):1031], buffer local variables were defined.
-----------------------------
-
-
-* tm/mh-e
-
-  Attached version 7.9.
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 7.9
-date: 1995/10/26 09:26:23;  author: morioka;  state: Exp;  lines: +20 -13
-Setting for tm-edit.el instead of tm-comp.el.
-----------------------------
diff --git a/Changes-7.20.ja b/Changes-7.20.ja
deleted file mode 100644 (file)
index a0639fc..0000000
+++ /dev/null
@@ -1,125 +0,0 @@
-* mel
-
-  Version 3.0 \e$B$rE:IU$7$?!#\e(B
-
-mel/mel.el
-----------------------------
-revision 3.0
-date: 1995/10/25 05:03:11;  author: morioka;  state: Exp;  lines: +13 -8
-(1) mel-u.el \e$B$KBP$9$k@_Dj$r9T$C$?!#\e(B
-(2) \e$BJQ?t\e(B mime-encoding-method-alist \e$B$r@_$1$F!"4X?t\e(B mime/encode-region
-    \e$B$G$N\e(B encoder \e$B$NA*Br$K$3$l$rMQ$$$k$h$&$K$7$?!#\e(B
-----------------------------
-
-mel/mel-b.el
-----------------------------
-revision 2.0
-date: 1995/10/25 02:40:49;  author: morioka;  state: Exp;  lines: +15 -9
-Mule \e$B$G$NIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
-
-mel/mel-q.el
-----------------------------
-revision 2.1
-date: 1995/10/25 05:00:54;  author: morioka;  state: Exp;  lines: +15 -9
-Mule \e$B$G$NIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
-
-mel/mel-u.el
-----------------------------
-revision 1.1
-date: 1995/10/25 05:01:17;  author: morioka;  state: Exp;
-uuencode \e$BMQ$N\e(B module \e$B$H$7$F:n@.$7$?!#\e(B
-----------------------------
-
-
-* tm
-
-tm/mime-setup.el
-----------------------------
-revision 7.7
-date: 1995/10/26 11:12:49;  author: morioka;  state: Exp;  lines: +3 -112
-mime.el, tm-comp.el \e$BMQ$N@_Dj$r:o=|$7!"\e(Btm-edit.el \e$BMQ$N@_Dj$r9T$C$?!#\e(B
-----------------------------
-revision 7.6
-date: 1995/10/26 00:17:08;  author: morioka;  state: Exp;  lines: +1 -39
-\e$BJQ?t\e(B mime-file-types \e$B$r@_Dj$9$k$N$r$d$a$?!#\e(B
-----------------------------
-revision 7.5
-date: 1995/10/24 00:23:57;  author: morioka;  state: Exp;  lines: +11 -11
-[tm ML\e$B!JF|K\8lHG!K\e(B:1031] \e$B$G$N!">.NS\e(B \e$B=$J?\e(B
-<shuhei@cmpt01.phys.tohoku.ac.jp> \e$B$5$s$N;XE&$K=>$$!"\e(BVM \e$B$NJQ?t$KBP$9$k\e(B
-\e$B@_Dj$r9T$&$N$r;_$a$?!#\e(B
-----------------------------
-
-tm/signature.el
-----------------------------
-revision 4.0
-date: 1995/10/26 09:25:23;  author: morioka;  state: Exp;  lines: +5 -3
-\e$B4X?t\e(B signature/insert-signature-at-point \e$B$*$h$S4X?t\e(B
-signature/insert-signature-at-eof \e$B$GA^F~$7$?\e(B signature \e$B$N\e(B file \e$BL>$rJV\e(B
-\e$B$9$h$&$K$7$?!#\e(B
-----------------------------
-revision 3.0
-date: 1995/10/25 04:58:18;  author: morioka;  state: Exp;  lines: +33 -21
-\e$B4X?t\e(B signature/get-signature-file-name \e$B$NIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
-
-tm/tm-edit.el
-----------------------------
-revision 7.11
-date: 1995/10/26 11:12:05;  author: morioka;  state: Exp;  lines: +51 -67
-mime.el \e$B$H\e(B tm-comp.el \e$B$r4p$K:n@.$7$?!#\e(B
-----------------------------
-
-tm/tm-ew-e.el
-----------------------------
-revision 7.5
-date: 1995/10/24 00:18:39;  author: morioka;  state: Exp;  lines: +2 -3
-[tm ML\e$B!JF|K\8lHG!K\e(B:1031] \e$B$G$N!">.NS\e(B \e$B=$J?\e(B
-<shuhei@cmpt01.phys.tohoku.ac.jp> \e$B$5$s$N;XE&$K=>$$!"\e(Brename\e$B$7K:$l$F$$$?\e(B
-\e$BItJ,$r=$@5$7$?!#\e(B
-----------------------------
-
-tm/tm-partial.el
-----------------------------
-revision 7.10
-date: 1995/10/25 05:25:28;  author: morioka;  state: Exp;  lines: +10 -9
-Subject: field \e$B$,ESCf$G@Z$l$F$$$k>l9g$N;v$r9MN8$7$?!#\e(B
-----------------------------
-
-tm/tm-rmail.el
-----------------------------
-revision 7.4
-date: 1995/10/24 00:19:52;  author: morioka;  state: Exp;  lines: +3 -6
-(require 'rmail) \e$B$9$k$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/tm-setup.el
-----------------------------
-revision 6.4
-date: 1995/10/24 00:24:48;  author: morioka;  state: Exp;  lines: +7 -2
-(require 'tm-rmail) \e$B$r\e(B rmail-mode-hook \e$B$KBP$7$F@_Dj$9$k$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.20
-date: 1995/10/24 00:21:02;  author: morioka;  state: Exp;  lines: +4 -1
-[tm ML\e$B!JF|K\8lHG!K\e(B:1031] \e$B$G$N!">.NS\e(B \e$B=$J?\e(B
-<shuhei@cmpt01.phys.tohoku.ac.jp> \e$B$5$s$N;XE&$K=>$$!"\e(Bbuffer local \e$BJQ?t\e(B
-\e$B$rA4$F\e(B defvar \e$B$9$k$h$&$K$7$?!#\e(B
-----------------------------
-
-
-* tm/mh-e
-
-  Version 7.9 \e$B$rE:IU$7$?!#\e(B
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 7.9
-date: 1995/10/26 09:26:23;  author: morioka;  state: Exp;  lines: +20 -13
-tm-comp \e$BMQ$N@_Dj$r$9$k$N$r$d$a$F!"Be$o$j$K\e(B tm-edit \e$BMQ$N@_Dj$r$9$k$h$&\e(B
-\e$B$K$7$?!#\e(B
-----------------------------
diff --git a/Changes-7.21.en b/Changes-7.21.en
deleted file mode 100644 (file)
index 5a55202..0000000
+++ /dev/null
@@ -1,119 +0,0 @@
-* mel
-
-  Attached version 3.1.
-
-mel/mel.el
-----------------------------
-revision 3.1
-date: 1995/10/30 06:03:37;  author: morioka;  state: Exp;  lines: +18 -14
-(1) setting for function `uuencode-decode-region' of mel-u.el.
-(2) Variable `mime-decoding-method-alist' was created to chose decoder 
-    in function `mime/decode-region'.
-----------------------------
-
-mel/mel-u.el
-----------------------------
-revision 2.0
-date: 1995/10/30 06:01:29;  author: morioka;  state: Exp;  lines: +51 -1
-Function `uuencode-decode-region' was created.
-----------------------------
-
-
-* tm
-
-tm/mime-setup.el
-----------------------------
-revision 7.9
-date: 1995/10/28 06:02:53;  author: morioka;  state: Exp;  lines: +38 -39
-(1) all of VM settings were deleted.
-(2) `mime-setup-load-hook' was created.
-(3) Setting to decode encoded-words was inserted to variable
-    `mime/editor-mode-hook'. Other similar settings were deleted.
-----------------------------
-revision 7.8
-date: 1995/10/27 08:36:13;  author: morioka;  state: Exp;  lines: +2 -16
-For `mh-letter-mode-hook', do add-hook as append mode.
-----------------------------
-
-tm/tm-edit.el
-----------------------------
-revision 7.14
-date: 1995/10/29 06:15:49;  author: morioka;  state: Exp;  lines: +6 -120
-Unnecessary comments were deleted.
-----------------------------
-revision 7.13
-date: 1995/10/28 05:48:36;  author: morioka;  state: Exp;  lines: +501 -463
-(1) prefix was renamed from ``tm-edit/'' to ``mime-editor/''.
-(2) `mime-mode' was renamed to `mime/editor-mode'.
-(3) Does not set sending key.
-    It sets function `mime-editor/maybe-translate' to before sending
-    hooks of each MUAs'.
-(4) Some problems were fixed.
-----------------------------
-revision 7.12
-date: 1995/10/27 11:18:22;  author: morioka;  state: Exp;  lines: +13 -43
-Forgot part to rename `mime-menu' to `tm-edit/menu' was renamed.
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.21
-date: 1995/10/30 05:57:27;  author: morioka;  state: Exp;  lines: +31 -17
-Variable `mime-viewer/over-to-previous-method-alist' and variable
-`mime-viewer/over-to-next-method-alist' were created.
-----------------------------
-
-tm/tm-rmail.el
-----------------------------
-revision 7.8
-date: 1995/10/30 05:52:36;  author: morioka;  state: Exp;  lines: +80 -23
-automatic MIME preview support.
-----------------------------
-
-tm/tm-vm.el
-----------------------------
-revision 7.3
-date: 1995/10/28 06:00:09;  author: morioka;  state: Exp;  lines: +13 -1
-Code for mime-setup.
-----------------------------
-
-
-* tm/mh-e
-
-  Attached version 7.10.
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 7.10
-date: 1995/10/30 03:19:18;  author: morioka;  state: Exp;  lines: +2 -2
-Setting for tm-edit was modified because variable
-`tm-edit/message-inserter-alist' was renamed to
-`mime-editor/message-inserter-alist'.
-----------------------------
-
-
-* tm/gnus
-
-  Attached version 7.12.
-
-tm/gnus/tm-gnus4.el
-----------------------------
-revision 7.1
-date: 1995/10/28 05:44:44;  author: morioka;  state: Exp;  lines: +1 -98
-Setting for tm-comp was deleted.
-----------------------------
-
-tm/gnus/tm-sgnus.el
-----------------------------
-revision 7.12
-date: 1995/10/29 14:13:08;  author: morioka;  state: Exp;  lines: +16 -29
-(1) encoded-words decoding mode (tm-gnus/decode-all = nil) was
-    abolished. So variable `tm-gnus/decode-all' was deleted.
-(2) Redefine function `gnus-article-hide-headers-if-wanted'.
-(3) Variable `tm-gnus/automatic-mime-preview' was created. It is set
-    to variable `gnus-show-mime'.
-----------------------------
-revision 7.11
-date: 1995/10/27 10:19:38;  author: morioka;  state: Exp;  lines: +3 -1
-measure for BBDB again.
-----------------------------
diff --git a/Changes-7.21.ja b/Changes-7.21.ja
deleted file mode 100644 (file)
index 175ef66..0000000
+++ /dev/null
@@ -1,125 +0,0 @@
-* mel
-
-  Version 3.1 \e$B$rE:IU$7$?!#\e(B
-
-mel/mel.el
-----------------------------
-revision 3.1
-date: 1995/10/30 06:03:37;  author: morioka;  state: Exp;  lines: +18 -14
-(1) mel-u.el \e$B$N\e(B uuencode-decode-region \e$B$N@_Dj$r9T$C$?!#\e(B
-(2) \e$BJQ?t\e(B mime-decoding-method-alist \e$B$r@_$1$F!"4X?t\e(B mime/decode-region
-    \e$B$G$N\e(B decoder \e$B$NA*Br$K$3$l$rMQ$$$k$h$&$K$7$?!#\e(B
-----------------------------
-
-mel/mel-u.el
-----------------------------
-revision 2.0
-date: 1995/10/30 06:01:29;  author: morioka;  state: Exp;  lines: +51 -1
-\e$B4X?t\e(B uuencode-decode-region \e$B$rDI2C$7$?!#\e(B
-----------------------------
-
-
-* tm
-
-tm/mime-setup.el
-----------------------------
-revision 7.9
-date: 1995/10/28 06:02:53;  author: morioka;  state: Exp;  lines: +38 -39
-(1) VM \e$BMQ$N@_Dj$rA4$F:o=|$7$?!#\e(B
-(2) mime-setup-load-hook \e$B$r@_$1$?!#\e(B
-(3) \e$BJQ?t\e(B mime/editor-mode-hook \e$B$K\e(B encoded-word \e$B$N\e(B decode \e$BMQ$N\e(B code \e$B$r\e(B
-    \e$BF~$l!"$=$l0J30$NItJ,$K$"$C$?\e(B mime/decode-message-header \e$B$r8F$V@_Dj\e(B
-    \e$B$r:o=|$7$?!#\e(B
-----------------------------
-revision 7.8
-date: 1995/10/27 08:36:13;  author: morioka;  state: Exp;  lines: +2 -16
-mh-letter-mode-hook \e$B$KBP$7$F\e(B append mode \e$B$G\e(B add-hook \e$B$9$k$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/tm-edit.el
-----------------------------
-revision 7.14
-date: 1995/10/29 06:15:49;  author: morioka;  state: Exp;  lines: +6 -120
-\e$BITMW$J\e(B comment \e$B$r:o=|$7$?!#\e(B
-----------------------------
-revision 7.13
-date: 1995/10/28 05:48:36;  author: morioka;  state: Exp;  lines: +501 -463
-(1) prefix \e$B$r\e(B ``tm-edit/'' \e$B$+$i\e(B ``mime-editor/'' \e$B$KJQ$($?!#\e(B
-(2) mime-mode \e$B$r\e(B mime/editor-mode \e$B$KJQ$($?!#\e(B
-(3) \e$BH/?.MQ$N\e(B key \e$B$r@_Dj$9$k$N$r$d$a!"3F\e(B MUA \e$B$NH/?.D>A0$K8F$P$l$k\e(B hook
-    \e$B$K4X?t\e(B mime-editor/maybe-translate \e$B$r@_Dj$9$k$h$&$K$7$?!#\e(B
-(4) \e$B$$$m$$$m$JIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
-revision 7.12
-date: 1995/10/27 11:18:22;  author: morioka;  state: Exp;  lines: +13 -43
-\e$BDj?t\e(B mime-menu \e$B$r\e(B tm-edit/menu \e$B$K\e(B rename \e$B$9$k$N$rK:$l$F$$$?ItJ,$r=$@5\e(B
-\e$B$7$?!#\e(B
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.21
-date: 1995/10/30 05:57:27;  author: morioka;  state: Exp;  lines: +31 -17
-message \e$B$N@hF,\e(B content \e$B$+$iA0$K9T$3$&$H$9$k;~$K8F$P$l$k\e(B
-`mime-viewer/over-to-previous-method-alist' \e$B$H\e(B message \e$B$NKvHx$N\e(B
-content \e$B$+$i<!$N\e(B content \e$B$K9T$3$&$H$9$k;~$K8F$P$l$k\e(B
-`mime-viewer/over-to-next-method-alist' \e$B$r@_$1$?!#\e(B
-----------------------------
-
-tm/tm-rmail.el
-----------------------------
-revision 7.8
-date: 1995/10/30 05:52:36;  author: morioka;  state: Exp;  lines: +80 -23
-automatic MIME preview support \e$B$r9T$C$?!#\e(B
-----------------------------
-
-tm/tm-vm.el
-----------------------------
-revision 7.3
-date: 1995/10/28 06:00:09;  author: morioka;  state: Exp;  lines: +13 -1
-mime-setup \e$BBP:vMQ$N\e(B code \e$B$rF~$l$?!#\e(B
-----------------------------
-
-
-* tm/mh-e
-
-  Version 7.10 \e$B$rE:IU$7$?!#\e(B
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 7.10
-date: 1995/10/30 03:19:18;  author: morioka;  state: Exp;  lines: +2 -2
-\e$BJQ?t\e(B tm-edit/message-inserter-alist \e$B$,\e(B
-`mime-editor/message-inserter-alist' \e$B$K2~L>$5$l$?$N$KH<$$!"\e(Btm-edit \e$B$N\e(B
-\e$B@_Dj$r=$@5$7$?!#\e(B
-----------------------------
-
-
-* tm/gnus
-
-  Version 7.12 \e$B$rE:IU$7$?!#\e(B
-
-tm/gnus/tm-gnus4.el
-----------------------------
-revision 7.1
-date: 1995/10/28 05:44:44;  author: morioka;  state: Exp;  lines: +1 -98
-tm-comp \e$BMQ$N@_Dj$r:o=|$7$?!#\e(B
-----------------------------
-
-tm/gnus/tm-sgnus.el
-----------------------------
-revision 7.12
-date: 1995/10/29 14:13:08;  author: morioka;  state: Exp;  lines: +16 -29
-(1) encoded-word \e$B$N\e(B decode \e$B$@$1$r9T$&\e(B mode\e$B!J\e(Btm-gnus/decode-all \e$B$,\e(B nil
-    \e$B$G$"$k>uBV!K$rGQ;_$7$?!#$3$l$KH<$$!"JQ?t\e(B tm-gnus/decode-all \e$B$rGQ;_\e(B
-    \e$B$7$?!#\e(B
-(2) \e$B4X?t\e(B gnus-article-hide-headers-if-wanted \e$B$r:FDj5A$9$k$h$&$K$7$?!#\e(B
-(3) \e$BJQ?t\e(B tm-gnus/automatic-mime-preview \e$B$r@_$1$?!#$3$l$OJQ?t\e(B
-    gnus-show-mime \e$B$KBeF~$5$l$k!#!J\e(Bdefault \e$B$N>uBV$G\e(B automatic MIME
-    preview mode \e$B$K$7!"$J$*$+$D!"\e(Buser \e$B$,=i4|>uBV$r@_Dj$G$-$k$h$&$K$9$k\e(B
-    \e$B$?$a!K\e(B
-----------------------------
-revision 7.11
-date: 1995/10/27 10:19:38;  author: morioka;  state: Exp;  lines: +3 -1
-BBDB \e$BBP:vMQ$N@_Dj$r$^$?$^$?=$@5!#\e(B
-----------------------------
diff --git a/Changes-7.22.en b/Changes-7.22.en
deleted file mode 100644 (file)
index d3d1499..0000000
+++ /dev/null
@@ -1,136 +0,0 @@
-* tl
-
-  Attached version 7.01.3.
-
-
-* mel
-
-  Attached version 3.2.
-
-
-* tm
-
-tm/tm-edit.el
-----------------------------
-revision 7.15
-date: 1995/11/03 08:32:03;  author: morioka;  state: Exp;  lines: +77 -9
-Addition for image/tiff and text/x-rot13-47.
-----------------------------
-
-tm/tm-file.el
-----------------------------
-revision 2.0
-date: 1995/11/06 16:05:29;  author: morioka;  state: Exp;  lines: +17 -5
-(1) Function `mime/extract-file' was renamed to
-    `mime-article/extract-file'.
-(2) took measure for jam-zcat and jka-compr.
-----------------------------
-revision 1.1
-date: 1995/11/03 08:32:58;  author: morioka;  state: Exp;
-It was created as a tm-view internal method module for file
-extraction.
-----------------------------
-
-tm/tm-mail.el
-----------------------------
-revision 1.1
-date: 1995/11/04 08:22:24;  author: morioka;  state: Exp;
-It was created as a tm-view internal method module for message/rfc822
-and text/x-rot13-47.
-----------------------------
-
-tm/tm-play.el
-----------------------------
-revision 4.0
-date: 1995/11/04 07:51:22;  author: morioka;  state: Exp;  lines: +4 -2
-Don't code convert when reading partial part files.
-----------------------------
-revision 3.0
-date: 1995/11/03 08:53:58;  author: morioka;  state: Exp;  lines: +6 -2
-Function `mime-article/decode-message/partial' was modified not to
-code convert when reading FULL file.
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.22
-date: 1995/11/03 09:05:23;  author: morioka;  state: Exp;  lines: +21 -15
-(1) New function `mime-preview/decode-text-region'.
-(2) use function `mime/code-convert-region-to-emacs' as code converter 
-    for mime/show-message-mode.
-(3) Buffer local variable `mime/mother-buffer' was renamed to
-    `mime::preview/mother-buffer'.
-----------------------------
-
-tm/tm-rmail.el
-----------------------------
-revision 7.12
-date: 1995/11/02 12:20:51;  author: morioka;  state: Exp;  lines: +2 -2
-In function `tm-rmail/view-message', fixed renaming mistake of
-`tm-rmail/preview-message'.
-----------------------------
-revision 7.11
-date: 1995/11/02 07:03:01;  author: morioka;  state: Exp;  lines: +3 -2
-Function `tm-rmail/preview-message' was modified to use function
-`rfc822/get-field-body' instead of function
-`mail-fetch-field'. (because of text property problem in Emacs 19.29)
-----------------------------
-revision 7.10
-date: 1995/11/02 06:04:48;  author: morioka;  state: Exp;  lines: +2 -2
-In function `tm-rmail/forward', fixed renaming mistake of
-`tm-edit/insert-tag' -> `mime-editor/insert-tag'.
-----------------------------
-revision 7.9
-date: 1995/10/31 14:20:25;  author: morioka;  state: Exp;  lines: +2 -2
-Function `tm-rmail/forward-from-gnus' was renamed to
-`gnus-mail-forward-using-mail-mime'.
-----------------------------
-
-tm/mh-e
-
-  Attached version 7.12.
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 7.12
-date: 1995/10/31 15:27:51;  author: morioka;  state: Exp;  lines: +1 -46
-Function `gnus-mail-forward-using-mhe-mime' was moved to tm-gnus5.el
-again.
-----------------------------
-revision 7.11
-date: 1995/10/31 14:17:09;  author: morioka;  state: Exp;  lines: +47 -1
-Insert (require 'mh-comp) in function
-`gnus-mail-forward-using-mhe-mime'.
-----------------------------
-
-tm/mh-e/tm-mh-e3.el
-----------------------------
-revision 6.0
-date: 1995/10/31 14:24:41;  author: morioka;  state: Exp;  lines: +5 -1
-Insert (provide 'mh-comp).
-----------------------------
-
-
-tm/gnus
-
-  Attached version 7.13.
-
-tm/gnus/tm-gnus5.el
-----------------------------
-revision 7.7
-date: 1995/10/31 15:24:49;  author: morioka;  state: Exp;  lines: +58 -1
-Function `gnus-mail-forward-using-mhe-mime' was defined in this module 
-again.
-----------------------------
-revision 7.6
-date: 1995/10/31 13:52:48;  author: morioka;  state: Exp;  lines: +1 -47
-Function `gnus-mail-forward-using-mhe-mime' was moved to tm-mh-e.el.
-----------------------------
-revision 7.5
-date: 1995/10/31 13:45:21;  author: morioka;  state: Exp;  lines: +108 -136
-(1) automatic MIME preview support for original Gnus 5.0.x.
-    (``with tm patch'' is regarded as original Gnus 5.0.x)
-(2) tm-gnus/decode-all was abolished and changed like tm-sgnus way.
-(3) setting for BBDB.
-(4) Function `gnus-mail-forward-using-mhe-mime' was modified.
-----------------------------
diff --git a/Changes-7.22.ja b/Changes-7.22.ja
deleted file mode 100644 (file)
index da2428a..0000000
+++ /dev/null
@@ -1,134 +0,0 @@
-* tl
-
-  Version 7.01.3 \e$B$rE:IU$7$?!#\e(B
-
-
-* mel
-
-  Version 3.2 \e$B$rE:IU$7$?!#\e(B
-
-
-* tm
-
-tm/tm-edit.el
-----------------------------
-revision 7.15
-date: 1995/11/03 08:32:03;  author: morioka;  state: Exp;  lines: +77 -9
-image/tiff \e$B$H\e(B text/x-rot13-47 \e$B$rDI2C$7$?!#\e(B
-----------------------------
-
-tm/tm-file.el
-----------------------------
-revision 2.0
-date: 1995/11/06 16:05:29;  author: morioka;  state: Exp;  lines: +17 -5
-(1) \e$B4X?t\e(B mime/extract-file \e$B$r\e(B mime-article/extract-file \e$B$K2~L>$7$?!#\e(B
-(2) jam-zcat \e$B$H\e(B jka-compr \e$B$KBP$9$kBP:v$r9T$C$?!#\e(B
-----------------------------
-revision 1.1
-date: 1995/11/03 08:32:58;  author: morioka;  state: Exp;
-file extraction \e$BMQ$N\e(B internal method module \e$B$H$7$F?7@_$7$?!#\e(B
-----------------------------
-
-tm/tm-mail.el
-----------------------------
-revision 1.1
-date: 1995/11/04 08:22:24;  author: morioka;  state: Exp;
-message/rfc822 \e$B$H\e(B text/x-rot13-47 \e$BMQ$N\e(B internal method module \e$B$H$7$F?7\e(B
-\e$B@_$7$?!#\e(B
-----------------------------
-
-tm/tm-play.el
-----------------------------
-revision 4.0
-date: 1995/11/04 07:51:22;  author: morioka;  state: Exp;  lines: +4 -2
-\e$B=q$-=P$7$?3F\e(B part \e$B$rFI$_9~$`;~$K\e(B code \e$BJQ49$r9T$o$J$$$h$&$K$7$?!#\e(B
-----------------------------
-revision 3.0
-date: 1995/11/03 08:53:58;  author: morioka;  state: Exp;  lines: +6 -2
-\e$B4X?t\e(B mime-article/decode-message/partial \e$B$G\e(B FULL file \e$B$r\e(B code \e$BJQ49$;$:\e(B
-\e$B$KFI$_9~$`$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.22
-date: 1995/11/03 09:05:23;  author: morioka;  state: Exp;  lines: +21 -15
-(1) \e$B4X?t\e(B mime-preview/decode-text-region \e$B$r@_$1$?!#\e(B
-(2) mime/show-message-mode \e$BMQ$N\e(B code converter \e$B$H$7$F!"4X?t\e(B
-    mime/code-convert-region-to-emacs \e$B$rMQ$$$k$h$&$K$7$?!#\e(B
-(3) buffer local \e$BJQ?t\e(B `mime/mother-buffer' \e$B$r\e(B
-    `mime::preview/mother-buffer' \e$B$K2~L>$7$?!#\e(B
-----------------------------
-
-tm/tm-rmail.el
-----------------------------
-revision 7.12
-date: 1995/11/02 12:20:51;  author: morioka;  state: Exp;  lines: +2 -2
-\e$B4X?t\e(B tm-rmail/view-message \e$B$r\e(B `tm-rmail/preview-message' \e$B$K\e(B rename \e$B$9\e(B
-\e$B$k$N$rK:$l$F$$$?$N$r=$@5$7$?!#\e(B
-----------------------------
-revision 7.11
-date: 1995/11/02 07:03:01;  author: morioka;  state: Exp;  lines: +3 -2
-\e$B4X?t\e(B tm-rmail/preview-message \e$B$G!"4X?t\e(B mail-fetch-field \e$B$r;H$&$N$r$d$a\e(B
-\e$B$F!"4X?t\e(B rfc822/get-field-body \e$B$r;H$&$h$&$K$7$?!#\e(B
-----------------------------
-revision 7.10
-date: 1995/11/02 06:04:48;  author: morioka;  state: Exp;  lines: +2 -2
-\e$B4X?t\e(B tm-rmail/forward \e$B$G\e(B `tm-edit/insert-tag' \e$B$r\e(B
-`mime-editor/insert-tag' \e$B$K\e(B rename \e$B$7K:$l$F$$$?ItJ,$r=$@5$7$?!#\e(B
-----------------------------
-revision 7.9
-date: 1995/10/31 14:20:25;  author: morioka;  state: Exp;  lines: +2 -2
-\e$B4X?t\e(B tm-rmail/forward-from-gnus \e$B$r\e(B `gnus-mail-forward-using-mail-mime'
-\e$B$K2~L>$7$?!#\e(B
-----------------------------
-
-tm/mh-e
-
-  Version 7.12 \e$B$rE:IU$7$?!#\e(B
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 7.12
-date: 1995/10/31 15:27:51;  author: morioka;  state: Exp;  lines: +1 -46
-\e$B$d$C$Q$j!"4X?t\e(B gnus-mail-forward-using-mhe-mime \e$B$O\e(B tm-gnus5.el \e$B$NCf$G\e(B
-\e$BDj5A$9$k$3$H$K$7$?!#\e(B
-----------------------------
-revision 7.11
-date: 1995/10/31 14:17:09;  author: morioka;  state: Exp;  lines: +47 -1
-\e$B4X?t\e(B gnus-mail-forward-using-mhe-mime \e$B$NCf$K\e(B (require 'mh-comp) \e$B$rF~$l\e(B
-\e$B$?!#\e(B
-----------------------------
-
-tm/mh-e/tm-mh-e3.el
-----------------------------
-revision 6.0
-date: 1995/10/31 14:24:41;  author: morioka;  state: Exp;  lines: +5 -1
-(provide 'mh-comp) \e$B$rF~$l$?!#\e(B
-----------------------------
-
-
-tm/gnus
-
-  Version 7.13 \e$B$rE:IU$7$?!#\e(B
-
-tm/gnus/tm-gnus5.el
-----------------------------
-revision 7.7
-date: 1995/10/31 15:24:49;  author: morioka;  state: Exp;  lines: +58 -1
-\e$B$d$C$Q$j!"4X?t\e(B gnus-mail-forward-using-mhe-mime \e$B$O$3$NCf$GDj5A$9$k$3$H\e(B
-\e$B$K$7$?!#\e(B
-----------------------------
-revision 7.6
-date: 1995/10/31 13:52:48;  author: morioka;  state: Exp;  lines: +1 -47
-\e$B4X?t\e(B gnus-mail-forward-using-mhe-mime \e$B$r\e(B tm-mh-e.el \e$B$K0\$7$?!#\e(B
-----------------------------
-revision 7.5
-date: 1995/10/31 13:45:21;  author: morioka;  state: Exp;  lines: +108 -136
-(1) original \e$B$N\e(B Gnus 5.0.x \e$B$N>l9g$G$b\e(B automatic MIME preview support
-    \e$B$,9T$($k$h$&$K$7$?!#!J\e(B``with tm patch'' \e$B$N>l9g$b\e(B original \e$B$H$7$F07\e(B
-    \e$B$o$l$k!K\e(B
-(2) tm-gnus/decode-all \e$B$rGQ;_$7$F!"\e(Btm-sgnus \e$B$HF1MM$NJ}<0$KJQ$($?!#\e(B
-(3) BBDB \e$BMQ$N@_Dj$r9T$C$?!#\e(B
-(4) \e$B4X?t\e(B gnus-mail-forward-using-mhe-mime \e$B$r=$@5$7$?!#\e(B
-----------------------------
diff --git a/Changes-7.23.en b/Changes-7.23.en
deleted file mode 100644 (file)
index 2c02cd8..0000000
+++ /dev/null
@@ -1,182 +0,0 @@
-* tl
-
-  Attached version 7.01.4.
-
-
-* tm
-
-tm/tm-def.el
-----------------------------
-revision 7.1
-date: 1995/11/10 10:43:15;  author: morioka;  state: Exp;  lines: +56 -1
-Function `mime-editor/caesar-region' was moved from tm-edit.el, and
-defined as `tm:caesar-region'.
-----------------------------
-
-tm/tm-edit.el
-----------------------------
-revision 7.23
-date: 1995/11/11 12:48:30;  author: morioka;  state: Exp;  lines: +2 -25
-Function `rfc822/get-header-string-except' was moved to tl-822.el.
-----------------------------
-revision 7.22
-date: 1995/11/11 11:53:08;  author: morioka;  state: Exp;  lines: +10 -24
-(1) Variable `mime-editor/message-sender-alist' was renamed to
-    `mime-editor/split-message-sender-alist'.
-(2) Variable `mime-editor/message-before-send-hook-alist' and variable 
-    `mime-editor/message-after-send-hook-alist' were abolished. (They
-    have not already been used.)
-----------------------------
-revision 7.21
-date: 1995/11/11 11:31:31;  author: morioka;  state: Exp;  lines: +34 -13
-Variable `mime-editor/blind-fields-regexp' was renamed to
-`mime-editor/split-blind-fields-regexp'.
-----------------------------
-revision 7.20
-date: 1995/11/11 11:16:47;  author: morioka;  state: Exp;  lines: +18 -17
-Constant `mime-editor/message-nuke-headers' was renamed to
-`mime-editor/split-ignored-fields-regexp'.
-----------------------------
-revision 7.19
-date: 1995/11/11 10:50:07;  author: morioka;  state: Exp;  lines: +4 -4
-Variable `mime-editor/ignored-fields-regexp' was renamed to
-`mime-editor/yank-ignored-fields-regexp'.
-----------------------------
-revision 7.18
-date: 1995/11/10 12:43:39;  author: morioka;  state: Exp;  lines: +19 -4
-(1) Variable `mime-editor/mail-inserter-alist' and function
-    `mime-editor/insert-mail' were added.
-(2) Key of function `mime-editor/insert-tag' was changed to `C-c C-x
-    t', and function `mime-editor/mail-inserter-alist was bound to
-    `C-c C-x C-m'.
-----------------------------
-revision 7.17
-date: 1995/11/10 11:51:23;  author: morioka;  state: Exp;  lines: +24 -2
-Variable `mime-editor/ignored-fields-regexp' and function
-`mime-editor/inserted-message-filter' were added.
-----------------------------
-revision 7.16
-date: 1995/11/10 10:43:50;  author: morioka;  state: Exp;  lines: +6 -57
-Function `mime-editor/caesar-region' was moved to tm-def.el.
-----------------------------
-
-tm/tm-play.el
-----------------------------
-revision 7.1
-date: 1995/11/10 11:13:32;  author: morioka;  state: Exp;  lines: +20 -2
-Function `mime-article/view-message/rfc822' was moved from
-tm-mail.el. tm-mail.el was abolished.
-----------------------------
-revision 7.0
-date: 1995/11/10 10:54:46;  author: morioka;  state: Exp;  lines: +16 -1
-Function `mime-viewer/quitting-method-for-mime/show-message-mode' was
-moved from tm-view.el.
-----------------------------
-revision 6.0
-date: 1995/11/10 10:44:54;  author: morioka;  state: Exp;  lines: +35 -1
-function `mime-article/decode-caesar' was moved from tm-mail.el.
-----------------------------
-revision 5.0
-date: 1995/11/08 07:32:41;  author: morioka;  state: Exp;  lines: +26 -2
-Variable `mime-article/coding-system-alist' and variable
-`mime-article/kanji-code-alist' were added. In function
-`mime-article/decode-message/partial', they were used as character
-coding system when partial part was wrote.
-----------------------------
-
-tm/tm-rmail.el
-----------------------------
-revision 7.15
-date: 1995/11/12 15:15:15;  author: morioka;  state: Exp;  lines: +3 -2
-Function `tm-rmail/preview-message' was fixed problem of judgement of
-unnecessary null line.
-----------------------------
-revision 7.14
-date: 1995/11/10 10:04:18;  author: morioka;  state: Exp;  lines: +8 -1
-Function `tm-rmail/preview-message' was modified to narrow to remove
-unnecessary null line added by RMAIL.
-----------------------------
-revision 7.13
-date: 1995/11/09 17:58:49;  author: morioka;  state: Exp;  lines: +2 -2
-Function `tm-rmail/preview-message' was modified to use function
-`mime/Content-Transfer-Encoding'. (measure for Emacs 19.29 text
-property)
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.23
-date: 1995/11/10 11:15:31;  author: morioka;  state: Exp;  lines: +11 -12
-(1) Function `mime-viewer/quitting-method-for-mime/show-message-mode'
-    was moved to tm-play.el.
-(2) setting for function `mime-article/decode-caesar' and function
-    `mime-article/view-message/rfc822'.
-----------------------------
-
-
-* tm/gnus
-
-  Attached version 7.15.
-
-tm/gnus/tm-gnus.el
-----------------------------
-revision 7.4
-date: 1995/11/13 09:28:17;  author: morioka;  state: Exp;  lines: +2 -2
-Variable `mime-editor/ignored-fields-regexp' was renamed to
-`mime-editor/yank-ignored-fields-regexp'.
-----------------------------
-revision 7.3
-date: 1995/11/11 10:48:11;  author: morioka;  state: Exp;  lines: +3 -3
-Function `tm-gnus/yank-message' was renamed to `tm-gnus/insert-article'.
-----------------------------
-revision 7.2
-date: 1995/11/11 10:45:21;  author: morioka;  state: Exp;  lines: +21 -21
-Function `tm-gnus/yank-message' was modified to change `let*' to `let'.
-----------------------------
-revision 7.1
-date: 1995/11/11 10:33:08;  author: morioka;  state: Exp;  lines: +42 -2
-New function `tm-gnus/yank-message'. setting for tm-edit.el.
-----------------------------
-
-tm/gnus/tm-gnus5.el
-----------------------------
-revision 7.8
-date: 1995/11/10 10:07:15;  author: morioka;  state: Exp;  lines: +38 -4
-(1) fixed problem of judgement of automatic MIME preview mode.
-(2) redefine function `gnus-article-setup-buffer'.
-----------------------------
-
-tm/gnus/tm-sgnus.el
-----------------------------
-revision 7.14
-date: 1995/11/10 10:09:52;  author: morioka;  state: Exp;  lines: +12 -4
-fixed problem of judgement of automatic MIME preview mode.
-----------------------------
-
-
-* tm/mh-e
-
-  Attached version 7.16.
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 7.16
-date: 1995/11/11 13:02:40;  author: morioka;  state: Exp;  lines: +7 -2
-In function `tm-mh-e/view-message', judgement which preview
-buffer was exist or not was fixed.
-----------------------------
-revision 7.15
-date: 1995/11/11 10:42:32;  author: morioka;  state: Exp;  lines: +2 -2
-Function `tm-mh-e/prompt-for-message' was fixed to check buffer local
-variable `mh-sent-from-msg' is bound.
-----------------------------
-revision 7.14
-date: 1995/11/10 12:47:01;  author: morioka;  state: Exp;  lines: +7 -2
-setting to use function `tm-mh-e/insert-message' as mail-inserter for
-mh-letter-mode and news-reply-mode.
-----------------------------
-revision 7.13
-date: 1995/11/10 12:00:58;  author: morioka;  state: Exp;  lines: +2 -1
-Function `tm-mh-e/insert-message' was modified to call function
-`mime-editor/inserted-message-filter'.
-----------------------------
diff --git a/Changes-7.23.ja b/Changes-7.23.ja
deleted file mode 100644 (file)
index 349c73d..0000000
+++ /dev/null
@@ -1,185 +0,0 @@
-* tl
-
-  Version 7.01.4 \e$B$rE:IU$7$?!#\e(B
-
-
-* tm
-
-tm/tm-def.el
-----------------------------
-revision 7.1
-date: 1995/11/10 10:43:15;  author: morioka;  state: Exp;  lines: +56 -1
-\e$B4X?t\e(B mime-editor/caesar-region \e$B$r\e(B tm-edit.el \e$B$+$i0\$7!"\e(B
-`tm:caesar-region' \e$B$H$7$FDj5A$7$?!#\e(B
-----------------------------
-
-tm/tm-edit.el
-----------------------------
-revision 7.23
-date: 1995/11/11 12:48:30;  author: morioka;  state: Exp;  lines: +2 -25
-\e$B4X?t\e(B rfc822/get-header-string-except \e$B$r\e(B tl-822.el \e$B$K0\$7$?!#\e(B
-----------------------------
-revision 7.22
-date: 1995/11/11 11:53:08;  author: morioka;  state: Exp;  lines: +10 -24
-(1) \e$BJQ?t\e(B mime-editor/message-sender-alist \e$B$r\e(B
-    `mime-editor/split-message-sender-alist' \e$B$K2~L>$7$?!#\e(B
-(2) \e$BJQ?t\e(B mime-editor/message-before-send-hook-alist \e$B$HJQ?t\e(B
-    mime-editor/message-after-send-hook-alist \e$B$rGQ;_$7$?!#!J4{$K;H$C$F\e(B
-    \e$B$$$J$+$C$?$?$a!K\e(B
-----------------------------
-revision 7.21
-date: 1995/11/11 11:31:31;  author: morioka;  state: Exp;  lines: +34 -13
-\e$BJQ?t\e(B mime-editor/blind-fields-regexp \e$B$r\e(B
-`mime-editor/split-blind-fields-regexp' \e$B$K2~L>$7$?!#\e(B
-----------------------------
-revision 7.20
-date: 1995/11/11 11:16:47;  author: morioka;  state: Exp;  lines: +18 -17
-\e$BDj?t\e(B mime-editor/message-nuke-headers \e$B$r\e(B
-`mime-editor/split-ignored-fields-regexp' \e$B$K2~L>$7$?!#\e(B
-----------------------------
-revision 7.19
-date: 1995/11/11 10:50:07;  author: morioka;  state: Exp;  lines: +4 -4
-\e$BJQ?t\e(B mime-editor/ignored-fields-regexp \e$B$r\e(B
-`mime-editor/yank-ignored-fields-regexp' \e$B$K2~L>$7$?!#\e(B
-----------------------------
-revision 7.18
-date: 1995/11/10 12:43:39;  author: morioka;  state: Exp;  lines: +19 -4
-(1) \e$BJQ?t\e(B mime-editor/mail-inserter-alist \e$B$H4X?t\e(B
-    mime-editor/insert-mail \e$B$rDI2C$7$?!#\e(B
-(2) \e$B4X?t\e(B mime-editor/insert-tag \e$B$N\e(B key \e$B$r\e(B C-c C-x t \e$B$KJQ99$7!"\e(BC-c C-x
-    C-m \e$B$K4X?t\e(B mime-editor/mail-inserter-alist \e$B$r3d$jEv$F$?!#\e(B
-----------------------------
-revision 7.17
-date: 1995/11/10 11:51:23;  author: morioka;  state: Exp;  lines: +24 -2
-\e$BJQ?t\e(B mime-editor/ignored-fields-regexp \e$B$H4X?t\e(B
-mime-editor/inserted-message-filter \e$B$rDI2C$7$?!#\e(B
-----------------------------
-revision 7.16
-date: 1995/11/10 10:43:50;  author: morioka;  state: Exp;  lines: +6 -57
-\e$B4X?t\e(B mime-editor/caesar-region \e$B$r\e(B tm-def.el \e$B$K0\$7$?!#\e(B
-----------------------------
-
-tm/tm-play.el
-----------------------------
-revision 7.1
-date: 1995/11/10 11:13:32;  author: morioka;  state: Exp;  lines: +20 -2
-\e$B4X?t\e(B mime-article/view-message/rfc822 \e$B$r\e(B tm-mail.el \e$B$+$i0\$7!"\e(B
-tm-mail.el \e$B$rGQ;_$7$?!#\e(B
-----------------------------
-revision 7.0
-date: 1995/11/10 10:54:46;  author: morioka;  state: Exp;  lines: +16 -1
-\e$B4X?t\e(B mime-viewer/quitting-method-for-mime/show-message-mode \e$B$r\e(B
-tm-view.el \e$B$+$i0\$7$?!#\e(B
-----------------------------
-revision 6.0
-date: 1995/11/10 10:44:54;  author: morioka;  state: Exp;  lines: +35 -1
-\e$B4X?t\e(B mime-article/decode-caesar \e$B$r\e(B tm-mail.el \e$B$+$i0\$7$?!#\e(B
-----------------------------
-revision 5.0
-date: 1995/11/08 07:32:41;  author: morioka;  state: Exp;  lines: +26 -2
-\e$BJQ?t\e(B mime-article/coding-system-alist \e$B$HJQ?t\e(B
-mime-article/kanji-code-alist \e$B$r@_$1!"4X?t\e(B
-mime-article/decode-message/partial \e$B$G\e(B partial part \e$B$r=q$-=P$9;~$NJ8;z\e(B
-code \e$B$H$7$F$3$l$rMQ$$$k$3$H$K$7$?!#\e(B
-----------------------------
-
-tm/tm-rmail.el
-----------------------------
-revision 7.15
-date: 1995/11/12 15:15:15;  author: morioka;  state: Exp;  lines: +3 -2
-\e$B4X?t\e(B tm-rmail/preview-message \e$B$K$*$$$F!"M>J,$J6u9T$NH=Dj$K4X$9$kIT6q9g\e(B
-\e$B$r=$@5$7$?!#\e(B
-----------------------------
-revision 7.14
-date: 1995/11/10 10:04:18;  author: morioka;  state: Exp;  lines: +8 -1
-\e$B4X?t\e(B tm-rmail/preview-message \e$B$G!"\e(BRMAIL \e$B$,M>J,$K$D$1$k6u9T$r=|$$$?NN0h\e(B
-\e$B$K\e(B mime/viewer-mode \e$B$r<B9T$9$k$h$&$K$7$?!#\e(B
-----------------------------
-revision 7.13
-date: 1995/11/09 17:58:49;  author: morioka;  state: Exp;  lines: +2 -2
-\e$B4X?t\e(B tm-rmail/preview-message \e$B$G4X?t\e(B mime/Content-Transfer-Encoding \e$B$r\e(B
-\e$B;H$&$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.23
-date: 1995/11/10 11:15:31;  author: morioka;  state: Exp;  lines: +11 -12
-(1) \e$B4X?t\e(B mime-viewer/quitting-method-for-mime/show-message-mode \e$B$r\e(B
-    tm-play.el \e$B$K0\$7$?!#\e(B
-(2) \e$B4X?t\e(B mime-article/decode-caesar \e$B$H4X?t\e(B
-    mime-article/view-message/rfc822 \e$B$N@_Dj$r9T$C$?!#\e(B
-----------------------------
-
-
-* tm/gnus
-
-  Version 7.15 \e$B$rE:IU$7$?!#\e(B
-
-tm/gnus/tm-gnus.el
-----------------------------
-revision 7.4
-date: 1995/11/13 09:28:17;  author: morioka;  state: Exp;  lines: +2 -2
-\e$BJQ?t\e(B mime-editor/ignored-fields-regexp \e$B$r\e(B
-`mime-editor/yank-ignored-fields-regexp' \e$B$K2~L>$7$?!#\e(B
-----------------------------
-revision 7.3
-date: 1995/11/11 10:48:11;  author: morioka;  state: Exp;  lines: +3 -3
-\e$B4X?t\e(B tm-gnus/yank-message \e$B$r\e(B `tm-gnus/insert-article' \e$B$K2~L>$7$?!#\e(B
-----------------------------
-revision 7.2
-date: 1995/11/11 10:45:21;  author: morioka;  state: Exp;  lines: +21 -21
-\e$B4X?t\e(B tm-gnus/yank-message \e$B$G\e(B `let*' \e$B$r\e(B `let' \e$B$KJQ$($?!#\e(B
-----------------------------
-revision 7.1
-date: 1995/11/11 10:33:08;  author: morioka;  state: Exp;  lines: +42 -2
-\e$B4X?t\e(B tm-gnus/yank-message \e$B$rDI2C$7!"\e(Btm-edit.el \e$BMQ$N@_Dj$r9T$C$?!#\e(B
-----------------------------
-
-tm/gnus/tm-gnus5.el
-----------------------------
-revision 7.8
-date: 1995/11/10 10:07:15;  author: morioka;  state: Exp;  lines: +38 -4
-(1) automatic MIME preview mode \e$B$NH=Dj$K4X$9$kIT6q9g$r=$@5$7$?!#\e(B
-(2) \e$B4X?t\e(B gnus-article-setup-buffer \e$B$r:FDj5A$9$k$h$&$K$7$?!#\e(B
-----------------------------
-
-tm/gnus/tm-sgnus.el
-----------------------------
-revision 7.15
-date: 1995/11/13 09:29:19;  author: morioka;  state: Exp;  lines: +9 -5
-automatic MIME preview mode \e$B$NH=Dj7k2L$rJQ?t\e(B
-tm-gnus/automatic-mime-preview \e$B$KJ]B8$9$k$h$&$K$7$?!#\e(B
-----------------------------
-revision 7.14
-date: 1995/11/10 10:09:52;  author: morioka;  state: Exp;  lines: +12 -4
-automatic MIME preview mode \e$B$NH=Dj$K4X$9$kIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
-
-
-* tm/mh-e
-
-  Version 7.16 \e$B$rE:IU$7$?!#\e(B
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 7.16
-date: 1995/11/11 13:02:40;  author: morioka;  state: Exp;  lines: +7 -2
-\e$B4X?t\e(B tm-mh-e/view-message \e$B$G$N\e(B preview buffer \e$B$,B8:_$7$F$$$k$+$I$&$+$N\e(B
-\e$BH=Dj$NIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
-revision 7.15
-date: 1995/11/11 10:42:32;  author: morioka;  state: Exp;  lines: +2 -2
-\e$B4X?t\e(B tm-mh-e/prompt-for-message \e$B$G\e(B buffer local \e$BJQ?t\e(B mh-sent-from-msg
-\e$B$,B+G{$5$l$F$$$k$+$I$&$+$N\e(B check \e$B$r9T$&$h$&$K$7$?!#\e(B
-----------------------------
-revision 7.14
-date: 1995/11/10 12:47:01;  author: morioka;  state: Exp;  lines: +7 -2
-mh-letter-mode \e$B$H\e(B news-reply-mode \e$B$KBP$9$k\e(B mail-inserter \e$B$H$7$F!"4X?t\e(B
-tm-mh-e/insert-message \e$B$r;H$&$h$&$K@_Dj$7$?!#\e(B
-----------------------------
-revision 7.13
-date: 1995/11/10 12:00:58;  author: morioka;  state: Exp;  lines: +2 -1
-\e$B4X?t\e(B tm-mh-e/insert-message \e$B$G4X?t\e(B mime-editor/inserted-message-filter
-\e$B$r8F$V$3$H$K$7$?!#\e(B
-----------------------------
diff --git a/Changes-7.24.en b/Changes-7.24.en
deleted file mode 100644 (file)
index 777d200..0000000
+++ /dev/null
@@ -1,69 +0,0 @@
-* tl
-
-  Attached version 7.01.5.
-
-
-* tm
-
-tm/tm-def.el
-----------------------------
-revision 7.2
-date: 1995/11/14 04:56:15;  author: morioka;  state: Exp;  lines: +50 -1
-New function `tm:add-fields' and `tm:delete-fields' to modify
-*-field-list and *-field-regexp variables.
-----------------------------
-
-tm/tm-edit.el
-----------------------------
-revision 7.24
-date: 1995/11/14 05:04:22;  author: morioka;  state: Exp;  lines: +21 -11
-(1) fixed mode of message/external-body; access-type = ftp or anon-ftp.
-(2) New variable `mime-editor/yank-ignored-field-list'.
-(3) Variable `mime-editor/yank-ignored-fields-regexp' was renamed to
-    `mime-editor/yank-ignored-field-regexp'.
-(4) Constant `mime-editor/split-ignored-fields-regexp' was renamed to
-    `mime-editor/split-ignored-field-regexp'.
-(5) Variable `mime-editor/split-blind-fields-regexp' was renamed to
-    `mime-editor/split-blind-field-regexp'.
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.24
-date: 1995/11/14 06:14:37;  author: morioka;  state: Exp;  lines: +7 -8
-(1) Elements of variable `mime-viewer/ignored-field-list' were changes 
-    to regexp.
-(2) Function `mime/viewer-mode' was modified not to reset variable
-    `mime-viewer/ignored-field-regexp' from variable
-    `mime-viewer/ignored-field-list'. (Please use function
-    `tm:add-fields' and `tm:delete-fields' to modify them)
-----------------------------
-
-tm/tm-vm.el
-----------------------------
-revision 7.4
-date: 1995/11/14 04:52:30;  author: morioka;  state: Exp;  lines: +324 -53
-(1) New variable `tm-vm/use-tm-patch'. If it is nil, tm-vm.el sets to
-    decode encoded-word by itself.
-(2) New variable `tm-vm/automatic-mime-preview'. If it is t, tm-vm.el
-    does automatic MIME preview. New function
-    `tm-vm/toggle-preview-mode' is bound to `M-t' key.
-(3) New function `tm-vm/forward-message' and
-    `tm-vm/send-digest'. Function `vm-forward-message' and
-    `vm-send-digest' were replace by them. If mime-setup.el is loaded, 
-    variable `vm-forwarding-digest-type' and variable
-    `vm-digest-send-type' are set to "rfc1522".
-----------------------------
-
-
-* tm/mh-e
-
-  Attached version 7.17.
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 7.17
-date: 1995/11/14 06:29:27;  author: morioka;  state: Exp;  lines: +14 -13
-Variable `tm-mh-e/decode-all' is renamed to
-`tm-mh-e/automatic-mime-preview'.
-----------------------------
diff --git a/Changes-7.24.ja b/Changes-7.24.ja
deleted file mode 100644 (file)
index ccd336d..0000000
+++ /dev/null
@@ -1,70 +0,0 @@
-* tl
-
-  Version 7.01.5 \e$B$rE:IU$7$?!#\e(B
-
-
-* tm
-
-tm/tm-def.el
-----------------------------
-revision 7.2
-date: 1995/11/14 04:56:15;  author: morioka;  state: Exp;  lines: +50 -1
-*-field-list \e$B$H\e(B *-field-regexp \e$B$rA`:n$9$k$?$a$N4X?t\e(B tm:add-fields \e$B$H4X\e(B
-\e$B?t\e(B tm:delete-fields \e$B$rDI2C$7$?!#\e(B
-----------------------------
-
-tm/tm-edit.el
-----------------------------
-revision 7.24
-date: 1995/11/14 05:04:22;  author: morioka;  state: Exp;  lines: +21 -11
-(1) message/external-body \e$B$N\e(B access-type = ftp, anon-ftp \e$B$N;~$N\e(B mode
-    \e$B$r=$@5$7$?!#\e(B
-(2) \e$BJQ?t\e(B mime-editor/yank-ignored-field-list \e$B$r@_$1$?!#\e(B
-(3) \e$BJQ?t\e(B mime-editor/yank-ignored-fields-regexp \e$B$r\e(B
-    `mime-editor/yank-ignored-field-regexp' \e$B$K2~L>$7$?!#$J$*!"$3$NJQ?t\e(B
-    \e$B$OD>@\A`:n$;$:$K!"\e(Btm:add-fields \e$B$+\e(B tm:delete-fields \e$B$r;H$C$FA`:n$9\e(B
-    \e$B$k$3$H$K$9$k!#\e(B
-(4) \e$BDj?t\e(B mime-editor/split-ignored-fields-regexp \e$B$r\e(B
-    `mime-editor/split-ignored-field-regexp' \e$B$K2~L>$7$?!#\e(B
-(5) \e$BJQ?t\e(B mime-editor/split-blind-fields-regexp \e$B$r\e(B
-    `mime-editor/split-blind-field-regexp' \e$B$K2~L>$7$?!#\e(B
-----------------------------
-
-tm/tm-view.el
-----------------------------
-revision 7.24
-date: 1995/11/14 06:14:37;  author: morioka;  state: Exp;  lines: +7 -8
-(1) \e$BJQ?t\e(B mime-viewer/ignored-field-list \e$B$NMWAG$r@55,I=8=$H$7$?!#\e(B
-(2) \e$B4X?t\e(B mime/viewer-mode \e$B$GJQ?t\e(B mime-viewer/ignored-field-regexp \e$B$r@_\e(B
-    \e$BDj$7D>$9$N$O$d$a$?!#!JJQ?t\e(B mime-viewer/ignored-field-list \e$B$HJQ?t\e(B
-    mime-viewer/ignored-field-regexp \e$B$OD>@\@_Dj$;$:!"4X?t\e(B
-    tm:add-fields \e$B$H4X?t\e(B tm:delete-fields \e$B$r;H$&$3$H!K\e(B
-----------------------------
-
-tm/tm-vm.el
-----------------------------
-revision 7.4
-date: 1995/11/14 04:52:30;  author: morioka;  state: Exp;  lines: +324 -53
-(1) \e$BJQ?t\e(B tm-vm/use-tm-patch \e$B$r@_$1!"$3$l$,\e(B nil \e$B$N>l9g$O<+NO$G\e(B
-    encoded-word \e$B$r\e(B decode \e$B$9$k@_Dj$r9T$&$h$&$K$7$?!#\e(B
-(2) \e$BJQ?t\e(B tm-vm/automatic-mime-preview \e$B$r@_$1!"$3$l$,\e(B t \e$B$N;~\e(B automatic
-    MIME preview \e$B$r9T$&$h$&$K$7$?!#$^$?!"\e(BM-t \e$B$K4X?t\e(B
-    tm-vm/toggle-preview-mode \e$B$r3d$jEv$F$?!#\e(B
-(3) \e$B4X?t\e(B tm-vm/forward-message, \e$B4X?t\e(B tm-vm/send-digest \e$B$r@_$1!"\e(B
-    \e$B4X?t\e(B vm-forward-message, \e$B4X?t\e(B vm-send-digest \e$B$HCV$-49$($?!#$^$?!"\e(B
-    mime-setup.el \e$B$,\e(B load \e$B$5$l$?>l9g$O!"JQ?t\e(B
-    vm-forwarding-digest-type, \e$BJQ?t\e(B vm-digest-send-type \e$B$NCM$r\e(B
-    "rfc1522" \e$B$K$9$k$h$&$K$7$?!#\e(B
-----------------------------
-
-
-* tm/mh-e
-
-  Version 7.17 \e$B$rE:IU$7$?!#\e(B
-
-tm/mh-e/tm-mh-e.el
-----------------------------
-revision 7.17
-date: 1995/11/14 06:29:27;  author: morioka;  state: Exp;  lines: +14 -13
-\e$BJQ?t\e(B tm-mh-e/decode-all \e$B$r\e(B `tm-mh-e/automatic-mime-preview' \e$B$K2~L>$7$?!#\e(B
-----------------------------
diff --git a/Changes-7.25.en b/Changes-7.25.en
deleted file mode 100644 (file)
index 5dd7fa1..0000000
+++ /dev/null
@@ -1,102 +0,0 @@
-* tl
-
-  Attached version 7.01.6.
-
-
-* tm
-
-tm-def.el
-----------------------------
-revision 7.3
-date: 1995/11/15 14:21:50;  author: morioka;  state: Exp;  lines: +5 -3
-fixed problem of function `tm:add-fields' and `tm:delete-fields'.
-----------------------------
-
-tm-edit.el
-----------------------------
-revision 7.25
-date: 1995/11/15 14:17:09;  author: morioka;  state: Exp;  lines: +6 -4
-(1) fixed problem of initialize of variable
-    `mime-editor/yank-ignored-field-regexp'.
-(2) In function `mime-viewer::quitting-method/draft-preview', it was
-    fixed problem of renaming mistake `mime/mother-buffer' ->
-    `mime::preview/mother-buffer'.
-----------------------------
-
-tm-parse.el
-----------------------------
-revision 6.0
-date: 1995/11/15 11:56:10;  author: morioka;  state: Exp;  lines: +15 -12
-According to KOBAYASHI Shuuhei <shuhei@cmpt01.phys.tohoku.ac.jp>, I
-fixed error of function `mime/parse-multipart'.
-----------------------------
-
-tm-view.el
-----------------------------
-revision 7.25
-date: 1995/11/15 13:57:33;  author: morioka;  state: Exp;  lines: +4 -2
-fixed problem of initialize of variable
-`mime-viewer/ignored-field-regexp'.
-----------------------------
-
-tm-vm.el
-----------------------------
-revision 7.7
-date: 1995/11/15 15:35:54;  author: morioka;  state: Exp;  lines: +101 -61
-Function `tm-vm/preview-current-message' was modified based of Simon
-Rowe <smr@robots.oxford.ac.uk>'s code. (c.f. [tm-eng:163])
-----------------------------
-revision 7.6
-date: 1995/11/15 10:20:05;  author: morioka;  state: Exp;  lines: +28 -5
-applied KOBAYASHI Shuuhei <shuhei@cmpt01.phys.tohoku.ac.jp>'s patch.
-(c.f. [tm ML:1102])
-----------------------------
-revision 7.5
-date: 1995/11/15 09:06:19;  author: morioka;  state: Exp;  lines: +38 -31
-applied Oscar Figueiredo <figueire@lspsun2.epfl.ch>'s modification.
-----------------------------
-
-
-* tm/mh-e
-
-  Attached version 7.20.
-
-tm-mh-e.el
-----------------------------
-revision 7.20
-date: 1995/11/15 12:45:44;  author: morioka;  state: Exp;  lines: +3 -3
-Function `tm-mh-e/mh-forward' was renamed to `tm-mh-e/forward'.
-----------------------------
-revision 7.19
-date: 1995/11/15 12:37:25;  author: morioka;  state: Exp;  lines: +82 -1
-New function `tm-mh-e/mh-forward' by OKABE Yasuo
-<okabe@kudpc.kyoto-u.ac.jp>. (c.f. [tm ML:1099])
-----------------------------
-revision 7.18
-date: 1995/11/15 12:25:25;  author: morioka;  state: Exp;  lines: +28 -14
-applied OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>'s modification.
-(c.f. [tm ML:1096])
-----------------------------
-
-
-* tm/gnus
-
-  Attached version 7.16.
-
-tm-gnus5.el
-----------------------------
-revision 7.9
-date: 1995/11/15 10:41:02;  author: morioka;  state: Exp;  lines: +4 -3
-According to Masahiro MURATA <murata@sol.cs.ritsumei.ac.jp>, I fixed
-problem of function `tm-gnus/summary-toggle-header'.
-(c.f. [tm ML:1104])
-----------------------------
-
-tm-sgnus.el
-----------------------------
-revision 7.16
-date: 1995/11/15 10:36:09;  author: morioka;  state: Exp;  lines: +4 -3
-According to Masahiro MURATA <murata@sol.cs.ritsumei.ac.jp>, I fixed
-problem of function `tm-gnus/summary-toggle-header'.
-(c.f. [tm ML:1104])
-----------------------------
diff --git a/Changes-7.25.ja b/Changes-7.25.ja
deleted file mode 100644 (file)
index 3d4bbee..0000000
+++ /dev/null
@@ -1,101 +0,0 @@
-* tl
-
-  Version 7.01.6 \e$B$rE:IU$7$?!#\e(B
-
-
-* tm
-
-tm-def.el
-----------------------------
-revision 7.3
-date: 1995/11/15 14:21:50;  author: morioka;  state: Exp;  lines: +5 -3
-\e$B4X?t\e(B tm:add-fields \e$B$H4X?t\e(B tm:delete-fields \e$B$NIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
-
-tm-edit.el
-----------------------------
-revision 7.25
-date: 1995/11/15 14:17:09;  author: morioka;  state: Exp;  lines: +6 -4
-(1) \e$BJQ?t\e(B mime-editor/yank-ignored-field-regexp \e$B$N=i4|2=$K$*$1$kIT6q9g\e(B
-    \e$B$r=$@5$7$?!#\e(B
-(2) \e$B4X?t\e(B mime-viewer::quitting-method/draft-preview \e$B$K$*$$$F!"JQ?t\e(B
-    mime/mother-buffer \e$B$r\e(B `mime::preview/mother-buffer' \e$B$K2~L>$7K:$l$F\e(B
-    \e$B$$$?$N$r=$@5$7$?!#\e(B
-----------------------------
-
-tm-parse.el
-----------------------------
-revision 6.0
-date: 1995/11/15 11:56:10;  author: morioka;  state: Exp;  lines: +15 -12
-\e$B>.NS\e(B \e$B=$J?\e(B <shuhei@cmpt01.phys.tohoku.ac.jp> \e$B$5$s$N;XE&$K=>$$!"4X?t\e(B
-mime/parse-multipart \e$B$N8m$j$r=$@5$7$?!#\e(B
-----------------------------
-
-tm-view.el
-----------------------------
-revision 7.25
-date: 1995/11/15 13:57:33;  author: morioka;  state: Exp;  lines: +4 -2
-\e$BJQ?t\e(B mime-viewer/ignored-field-regexp \e$B$N=i4|2=$K$*$1$k8m$j$r=$@5$7$?!#\e(B
-----------------------------
-
-tm-vm.el
-----------------------------
-revision 7.7
-date: 1995/11/15 15:35:54;  author: morioka;  state: Exp;  lines: +101 -61
-[tm-eng:163] \e$B$K$*$1$k\e(B Simon Rowe <smr@robots.oxford.ac.uk> \e$B$5$s$N\e(B code
-\e$B$r$b$H$K4X?t\e(B tm-vm/preview-current-message \e$B$r=$@5$7$?!#\e(B
-----------------------------
-revision 7.6
-date: 1995/11/15 10:20:05;  author: morioka;  state: Exp;  lines: +28 -5
-\e$B>.NS\e(B \e$B=$J?\e(B <shuhei@cmpt01.phys.tohoku.ac.jp> \e$B$5$s$N\e(B patch \e$B$rEv$F$?!#\e(B
-(c.f. [tm ML:1102])
-----------------------------
-revision 7.5
-date: 1995/11/15 09:06:19;  author: morioka;  state: Exp;  lines: +38 -31
-Oscar Figueiredo <figueire@lspsun2.epfl.ch> \e$B$5$s$N=$@5$r2C$($?!#\e(B
-----------------------------
-
-
-* tm/mh-e
-
-  Version 7.20 \e$B$rE:IU$7$?!#\e(B
-
-tm-mh-e.el
-----------------------------
-revision 7.20
-date: 1995/11/15 12:45:44;  author: morioka;  state: Exp;  lines: +3 -3
-\e$B4X?t\e(B tm-mh-e/mh-forward \e$B$r\e(B `tm-mh-e/forward' \e$B$K2~L>$7$?!#\e(B
-----------------------------
-revision 7.19
-date: 1995/11/15 12:37:25;  author: morioka;  state: Exp;  lines: +82 -1
-\e$B2,It\e(B \e$B<wCK\e(B <okabe@kudpc.kyoto-u.ac.jp> \e$B$5$s$N:n$N4X?t\e(B 
-tm-mh-e/mh-forward \e$B$rDI2C$7$?!#\e(B(c.f. [tm ML:1099])
-----------------------------
-revision 7.18
-date: 1995/11/15 12:25:25;  author: morioka;  state: Exp;  lines: +28 -14
-[tm ML:1096] \e$B$G$N!"2,It!!<wCK\e(B <okabe@kudpc.kyoto-u.ac.jp> \e$B$5$s$N=$@5$r\e(B
-\e$B:N$jF~$l$k!#\e(B
-----------------------------
-
-
-* tm/gnus
-
-  Version 7.16 \e$B$rE:IU$7$?!#\e(B
-
-tm-gnus5.el
-----------------------------
-revision 7.9
-date: 1995/11/15 10:41:02;  author: morioka;  state: Exp;  lines: +4 -3
-[tm ML:1104] \e$B$K$*$1$k!"B<EDA442\e(B (Masahiro MURATA)
-<murata@sol.cs.ritsumei.ac.jp> \e$B$5$s$N;XE&$K=>$$!"4X?t\e(B
-tm-gnus/summary-toggle-header \e$B$NIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
-
-tm-sgnus.el
-----------------------------
-revision 7.16
-date: 1995/11/15 10:36:09;  author: morioka;  state: Exp;  lines: +4 -3
-[tm ML:1104] \e$B$K$*$1$k!"B<EDA442\e(B (Masahiro MURATA)
-<murata@sol.cs.ritsumei.ac.jp> \e$B$5$s$N;XE&$K=>$$!"4X?t\e(B
-tm-gnus/summary-toggle-header \e$B$NIT6q9g$r=$@5$7$?!#\e(B
-----------------------------
diff --git a/Changes-7.26.en b/Changes-7.26.en
deleted file mode 100644 (file)
index d181a86..0000000
+++ /dev/null
@@ -1,102 +0,0 @@
-* tl
-
-  Attached version 7.01.7.
-
-
-* tm
-
-signature.el
-----------------------------
-revision 7.0
-date: 1995/11/16 16:28:53;  author: morioka;  state: Exp;  lines: +2 -2
-Default value of variable `signature-insert-at-eof' was recovered to
-nil.
-----------------------------
-revision 6.0
-date: 1995/11/16 16:28:17;  author: morioka;  state: Exp;  lines: +10 -11
-Function `signature/insert-signature-at-eof' was modified not to do
-save-excursion.
-----------------------------
-revision 5.0
-date: 1995/11/16 15:05:53;  author: morioka;  state: Exp;  lines: +2 -2
-Default value of variable `signature-insert-at-eof' was changed to t.
-----------------------------
-
-tm-edit.el
-----------------------------
-revision 7.26
-date: 1995/11/16 16:32:36;  author: morioka;  state: Exp;  lines: +140 -107
-fixed mistake about multipart boundary in RFC 1521 interpretation.
-----------------------------
-
-tm-html.el
-----------------------------
-revision 7.1
-date: 1995/11/16 15:43:34;  author: morioka;  state: Exp;  lines: +2 -1
-call `mime-article/decode-html-hook'.
-----------------------------
-revision 7.0
-date: 1995/11/16 15:42:08;  author: morioka;  state: Exp;  lines: +1 -6
-Variable `mime-viewer/html-default-mode' was abolished.
-----------------------------
-revision 6.0
-date: 1995/11/16 15:40:04;  author: morioka;  state: Exp;  lines: +3 -3
-Function `mime-viewer/decode-html' was renamed to
-`mime-article/decode-html'.
-----------------------------
-revision 5.0
-date: 1995/11/16 15:38:16;  author: morioka;  state: Exp;  lines: +3 -3
-renamed to tm-html.el.
-----------------------------
-revision 4.0
-date: 1995/11/16 15:35:57;  author: morioka;  state: Exp;  lines: +8 -2
-Function `mime-viewer/decode-html' was fixed to bind local variable
-`encoding'.
-----------------------------
-
-tm-partial.el
-----------------------------
-revision 7.11
-date: 1995/11/16 15:51:10;  author: morioka;  state: Exp;  lines: +2 -1
-insert (require 'tm-play).
-----------------------------
-
-tm-play.el
-----------------------------
-revision 7.2
-date: 1995/11/16 15:12:43;  author: morioka;  state: Exp;  lines: +3 -2
-Function `mime-article/decode-caesar' was fixed mistake of local
-variable `charset' and `encoding'.
-----------------------------
-
-tm-vm.el
-----------------------------
-revision 7.10
-date: 1995/11/16 17:07:02;  author: morioka;  state: Exp;  lines: +3 -2
-Function `tm-vm/quit' was fixed to check
-`mime::article/preview-buffer' is exist or not.
-----------------------------
-revision 7.9
-date: 1995/11/16 17:04:03;  author: morioka;  state: Exp;  lines: +29 -1
-New function `tm-vm/expunge-folder' by Oscar Figueiredo
-<figueire@lspsun2.epfl.ch>.
-----------------------------
-revision 7.8
-date: 1995/11/16 11:20:57;  author: morioka;  state: Exp;  lines: +2 -2
-SHIONO Jun'ichi <jun@case.nm.fujitsu.co.jp>'s patch was applied.
-(c.f. [tm ML:1112])
-----------------------------
-
-
-* tm/gnus
-
-  Attached Version 7.16.1.
-
-tm-gnus.el
-----------------------------
-revision 7.5
-date: 1995/11/16 15:28:58;  author: morioka;  state: Exp;  lines: +2 -2
-Function `tm-gnus/insert-article was fixed to change
-`mime-editor/yank-ignored-fields-regexp' to
-`mime-editor/yank-ignored-field-regexp'.
-----------------------------
diff --git a/Changes-7.26.ja b/Changes-7.26.ja
deleted file mode 100644 (file)
index f5c7e6f..0000000
+++ /dev/null
@@ -1,101 +0,0 @@
-* tl
-
-  Version 7.01.7 \e$B$rE:IU$7$?!#\e(B
-
-
-* tm
-
-signature.el
-----------------------------
-revision 7.0
-date: 1995/11/16 16:28:53;  author: morioka;  state: Exp;  lines: +2 -2
-\e$B$d$C$Q$j!"\e(Bsignature-insert-at-eof \e$B$N=i4|CM$r\e(B nil \e$B$KLa$7$?!#\e(B
-----------------------------
-revision 6.0
-date: 1995/11/16 16:28:17;  author: morioka;  state: Exp;  lines: +10 -11
-\e$B4X?t\e(B signature/insert-signature-at-eof \e$B$G\e(B save-excursion \e$B$7$J$$$3$H$K\e(B
-\e$B$7$?!#\e(B
-----------------------------
-revision 5.0
-date: 1995/11/16 15:05:53;  author: morioka;  state: Exp;  lines: +2 -2
-\e$BJQ?t\e(B signature-insert-at-eof \e$B$N=i4|CM$r\e(B t \e$B$KJQ$($?!#\e(B
-----------------------------
-
-tm-edit.el
-----------------------------
-revision 7.26
-date: 1995/11/16 16:32:36;  author: morioka;  state: Exp;  lines: +140 -107
-multipart \e$B$N>l9g$N5,3J2r<a>e$N8m$j$r=$@5$7$?!#\e(B
-----------------------------
-
-tm-html.el
-----------------------------
-revision 7.1
-date: 1995/11/16 15:43:34;  author: morioka;  state: Exp;  lines: +2 -1
-`mime-article/decode-html-hook' \e$B$r8F$V$h$&$K$7$?!#\e(B
-----------------------------
-revision 7.0
-date: 1995/11/16 15:42:08;  author: morioka;  state: Exp;  lines: +1 -6
-\e$BJQ?t\e(B mime-viewer/html-default-mode \e$B$rGQ;_$7$?!#\e(B
-----------------------------
-revision 6.0
-date: 1995/11/16 15:40:04;  author: morioka;  state: Exp;  lines: +3 -3
-\e$B4X?t\e(B mime-viewer/decode-html \e$B$r\e(B `mime-article/decode-html' \e$B$K2~L>$7$?!#\e(B
-----------------------------
-revision 5.0
-date: 1995/11/16 15:38:16;  author: morioka;  state: Exp;  lines: +3 -3
-tm-html.el \e$B$K2~L>$7$?!#\e(B
-----------------------------
-revision 4.0
-date: 1995/11/16 15:35:57;  author: morioka;  state: Exp;  lines: +8 -2
-\e$B4X?t\e(B mime-viewer/decode-html \e$B$N6I=jJQ?t\e(B `encoding' \e$B$rB+G{$9$k$N$rK:$l\e(B
-\e$B$F$$$?$N$r=$@5$7$?!#\e(B
-----------------------------
-
-tm-partial.el
-----------------------------
-revision 7.11
-date: 1995/11/16 15:51:10;  author: morioka;  state: Exp;  lines: +2 -1
-(require 'tm-play) \e$B$rF~$l$?!#\e(B
-----------------------------
-
-tm-play.el
-----------------------------
-revision 7.2
-date: 1995/11/16 15:12:43;  author: morioka;  state: Exp;  lines: +3 -2
-\e$B4X?t\e(B mime-article/decode-caesar \e$B$N6I=jJQ?t\e(B `charset', `encoding' \e$B$NDj\e(B
-\e$B5A$K4X$9$k%_%9$r=$@5$7$?!#\e(B
-----------------------------
-
-tm-vm.el
-----------------------------
-revision 7.10
-date: 1995/11/16 17:07:02;  author: morioka;  state: Exp;  lines: +3 -2
-\e$B4X?t\e(B tm-vm/quit \e$B$G!"\e(Bmime::article/preview-buffer \e$B$,B8:_$9$k$+$I$&$+$N\e(B
-check \e$B$r9T$&$h$&$K$7$?!#\e(B
-----------------------------
-revision 7.9
-date: 1995/11/16 17:04:03;  author: morioka;  state: Exp;  lines: +29 -1
-Oscar Figueiredo <figueire@lspsun2.epfl.ch> \e$B:n$N4X?t\e(B
-tm-vm/expunge-folder \e$B$rDI2C$7$?!#\e(B
-----------------------------
-revision 7.8
-date: 1995/11/16 11:20:57;  author: morioka;  state: Exp;  lines: +2 -2
-\e$B1vLn!wM7$S?M\e(B <jun@case.nm.fujitsu.co.jp> \e$B$5$s$N\e(B patch \e$B$rEv$F$?!#\e(B
-(c.f. [tm ML:1112])
-----------------------------
-
-
-* tm/gnus
-
-  Version 7.16.1 \e$B$rE:IU$7$?!#\e(B
-
-tm-gnus.el
-----------------------------
-revision 7.5
-date: 1995/11/16 15:28:58;  author: morioka;  state: Exp;  lines: +2 -2
-\e$B4X?t\e(B tm-gnus/insert-article \e$B$K$*$$$F!"\e(B
-`mime-editor/yank-ignored-fields-regexp' \e$B$r\e(B
-`mime-editor/yank-ignored-field-regexp' \e$B$KJQ$($k$N$rK:$l$F$$$?$N$r=$@5\e(B
-\e$B$7$?!#\e(B
-----------------------------
diff --git a/Changes-7.27.1.en b/Changes-7.27.1.en
deleted file mode 100644 (file)
index bff3975..0000000
+++ /dev/null
@@ -1,19 +0,0 @@
-Thu Nov 23 10:21:05 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm 7.27.1 was released.
-
-       * tm-view.el:
-       ".*Received" was inserted into default value of variable
-       `mime-viewer/ignored-field-list'.
-
-       * mime-setup.el:
-       autoload setting for function `mime/decode-message-header'.
-
-Tue Nov 21 09:43:00 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-vm.el: fixed problem of function `tm-vm/quit'.
-
-Mon Nov 20 23:54:54 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-vm.el: Function `tm-vm/preview-current-message' was
-       modified.
diff --git a/Changes-7.27.1.ja b/Changes-7.27.1.ja
deleted file mode 100644 (file)
index 5673f8c..0000000
+++ /dev/null
@@ -1,19 +0,0 @@
-Thu Nov 23 10:21:05 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm 7.27.1 \e$B$r\e(B release \e$B$7$?!#\e(B
-
-       * tm-view.el:
-       \e$BJQ?t\e(B mime-viewer/ignored-field-list \e$B$N=i4|CM$K\e(B ".*Received" \e$B$r2C$(\e(B
-       \e$B$?!#\e(B
-
-       * mime-setup.el:
-       \e$B4X?t\e(B mime/decode-message-header \e$B$KBP$9$k\e(B autoload \e$B$N@_Dj$rDI2C$7$?!#\e(B 
-
-Tue Nov 21 09:43:00 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-vm.el: \e$B4X?t\e(B tm-vm/quit \e$B$NIT6q9g$r=$@5$7$?!#\e(B
-
-Mon Nov 20 23:54:54 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-vm.el: Function `tm-vm/preview-current-message' was
-       modified.
diff --git a/Changes-7.27.en b/Changes-7.27.en
deleted file mode 100644 (file)
index 167b00d..0000000
+++ /dev/null
@@ -1,64 +0,0 @@
-Mon Nov 20 02:48:34 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm 7.27 is released.
-       * tm/mh-e: Attached version 7.25.
-       * tm/gnus: Attached version 7.18.
-
-       * tm-vm.el:
-       (1) Function `tm-vm/preview-current-message' was fixed.
-       (2) setting for BBDB was modified.
-
-       * tm-edit.el:
-       In function `mime-editor/enclose-region, interpretation
-       mistake of RFC 1521 was fixed.
-
-Sun Nov 19 18:06:34 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-vm.el:
-       fixed problem of function `tm-vm/scroll-forward' and
-       `tm-vm/scroll-backward'.
-
-       * tm-vm.el:
-       (1) insert (run-hooks 'tm-vm/vm-select-message-hook) into
-           function `tm-vm/preview-current-message'.
-       (2) setting for BBDB.
-           (Please insert (load "tm-vm") after (bbdb-insinuate-vm))
-
-       * mime-setup.el:
-       (add-hook 'mail-setup-hook 'mime/editor-mode 'append) instead
-       of (add-hook 'mail-mode-hook 'mime/editor-mode).
-
-       * tm-vm.el:
-       (1) fixed problem of function `mime::article/preview-buffer'.
-       (2) Don't reset of hooks when mime-setup is loaded.
-
-Fri Nov 17 14:34:52 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-vm.el:
-       Oscar Figueiredo <figueire@lspsun2.epfl.ch>'s modification was 
-       applied.
-
-       * tm-html.el:
-       KOBAYASHI Shuuhei <shuhei@cmpt01.phys.tohoku.ac.jp>'s patch
-       was applied. (cf. [tm-ja:1117])
-
-       * tm-vm.el:
-       changed Subject field decoding way when does not use tiny-mime
-       patch.
-
-       * tm-vm.el:
-       SHIONO Jun'ichi <jun@case.nm.fujitsu.co.jp>'s patch was
-       applied. (cf. [tm-ja:1120])
-
-       * tm-vm.el:
-       SHIONO Jun'ichi <jun@case.nm.fujitsu.co.jp>'s patch was
-       applied. (cf. [tm-ja:1119])
-
-       * mh-e/tm-mh-e.el:
-       In function `tm-mh-e/forward', use forwcomps specified by
-       variable `tm-mh-e/forwcomps' when variable
-       `tm-mh-e/use-forwcomps' was non-nil.
-
-       * mh-e/tm-mh-e.el:
-       YAMAOKA Katsumi <yamaoka@ga.sony.co.jp>'s patch was applied.
-       (cf. [tm-ja:1116])
diff --git a/Changes-7.27.ja b/Changes-7.27.ja
deleted file mode 100644 (file)
index ec5955a..0000000
+++ /dev/null
@@ -1,62 +0,0 @@
-Mon Nov 20 02:48:34 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm 7.27 \e$B$r\e(B release.
-       * tm/mh-e: Version 7.25 \e$B$rE:IU\e(B
-       * tm/gnus: Version 7.18 \e$B$rE:IU\e(B
-
-       * tm-vm.el:
-       (1) \e$B4X?t\e(B tm-vm/preview-current-message \e$B$r=$@5$7$?!#\e(B
-       (2) BBDB \e$BMQ$N\e(B code \e$B$r=$@5$7$?!#\e(B
-
-       * tm-edit.el:
-       \e$B4X?t\e(B mime-editor/enclose-region \e$B$K$*$1$k5,3J2r<a>e$N8m$j$r=$@5$7$?!#\e(B
-
-Sun Nov 19 18:06:34 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-vm.el:
-       \e$B4X?t\e(B tm-vm/scroll-forward \e$B$H4X?t\e(B tm-vm/scroll-backward \e$B$NIT6q9g$r\e(B
-       \e$B=$@5$7$?!#\e(B
-
-       * tm-vm.el:
-       (1) \e$B4X?t\e(B tm-vm/preview-current-message \e$B$K\e(B
-           (run-hooks 'tm-vm/vm-select-message-hook) \e$B$rF~$l$?!#\e(B
-       (2) BBDB \e$B$N@_Dj$r9T$C$?!#\e(B
-           \e$B!J\e(B(bbdb-insinuate-vm) \e$B$N8e$K\e(B (load "tm-vm") \e$B$rF~$l$k$3$H!K\e(B
-
-       * mime-setup.el:
-       (add-hook 'mail-mode-hook  'mime/editor-mode) \e$B$r$d$a!"\e(B
-       (add-hook 'mail-setup-hook 'mime/editor-mode 'append) \e$B$H$7$?!#\e(B
-
-       * tm-vm.el:
-       (1) \e$B4X?t\e(B mime::article/preview-buffer \e$B$NIT6q9g$r=$@5$7$?!#\e(B
-       (2) mime-setup \e$B$r\e(B load \e$B$9$k;~$N\e(B hook \e$B$N:F@_Dj$r$d$a$?!#\e(B
-
-Fri Nov 17 14:34:52 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-vm.el:
-       Oscar Figueiredo <figueire@lspsun2.epfl.ch> \e$B$5$s$N=$@5$r2C$($?!#\e(B
-
-       * tm-html.el:
-       \e$B>.NS\e(B \e$B=$J?\e(B <shuhei@cmpt01.phys.tohoku.ac.jp> \e$B$5$s$N\e(B patch \e$B$rEv$F$?!#\e(B
-       (cf. [tm-ja:1117])
-
-       * tm-vm.el:
-       tiny-mime patch \e$B$r;H$o$J$$>l9g$N\e(B Subject field \e$B$N\e(B decode \e$B$N;EJ}$r\e(B
-       \e$BJQ$($?!#\e(B
-
-       * tm-vm.el:
-       \e$B1vLn!wM7$S?M\e(B <jun@case.nm.fujitsu.co.jp> \e$B$5$s$N\e(B patch \e$B$rEv$F$?!#\e(B
-       (cf. [tm-ja:1120])
-
-       * tm-vm.el:
-       \e$B1vLn!wM7$S?M\e(B <jun@case.nm.fujitsu.co.jp> \e$B$5$s$N\e(B patch \e$B$rEv$F$?!#\e(B
-       (c.f. [tm-ja:1119])
-
-       * mh-e/tm-mh-e.el:
-       \e$B4X?t\e(B tm-mh-e/forward \e$B$K$*$$$F!"JQ?t\e(B tm-mh-e/use-forwcomps \e$B$,\e(B 
-       non-nil \e$B$N;~!"JQ?t\e(B tm-mh-e/forwcomps \e$B$G;XDj$5$l$?\e(B forwcomps \e$B$rMQ$$\e(B
-       \e$B$k$h$&$K$7$?!#\e(B
-
-       * mh-e/tm-mh-e.el:
-       \e$B;32,\e(B \e$B9nH~\e(B <yamaoka@ga.sony.co.jp> \e$B$5$s$N\e(B patch \e$B$rEv$F$?!#\e(B
-       (cf. [tm-ja:1116])
diff --git a/Changes-7.28.en b/Changes-7.28.en
deleted file mode 100644 (file)
index d65cb06..0000000
+++ /dev/null
@@ -1,52 +0,0 @@
-Mon Dec  4 00:24:19 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm: Version 7.28 was released.
-       * tm/mh-e: Version 7.40 was released.
-       * tm/gnus: Version 7.20 was released.
-
-       * tm-view.el: setting for external method ``tm-html''.
-
-       * tm-html.el: setting for "extract" mode.
-
-       * README.eng: rewrote for tm 7.*.
-
-       * Makefile: tm/richtext.el and tm/tinyrich.el were moved to tl
-       package.
-
-       * mk-tm: richtext.el and tinyrich.el were moved to tl package.
-
-Sun Dec  3 14:09:18 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-vm.el: modified to use tm-mail.
-
-       * tm-rmail.el:
-       Setting for `mime-editor/message-inserter-alist' using tm-mail.el.
-
-       * tm-mail.el: New module: for mail-mode.
-
-Fri Dec  1 17:11:01 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-ew-e.el: fixed problem of exceptional case of encoding.
-
-Wed Nov 29 21:51:05 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * mime-setup.el: According to Steven L. Baur <steve@miranova.com>,
-       (setq mail-signature nil) when `mime-setup-use-signature' is t.
-       (cf. [tm-eng:176])
-
-       * tm-vm.el:
-       (1) fixed problem in function `tm-vm/preview-current-message'.
-       (2) New function `tm-vm/visit-folder-function'. It is set to
-           `vm-visit-folder-hook' instead of `tm-vm/preview-current-message'
-           directly. It is bug fix for getting new mail when visit to a
-           folder.
-
-       * tm-vm.el:
-       Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>'s patch was
-       applied. (cf. [tm-ja:1164])
-
-Sat Nov 25 02:14:25 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-edit.el:
-       Function `mime-editor/enclose-region' was fixed not to insert
-       "text/plain" tag when end of enclosure is end of buffer.
diff --git a/Changes-7.29.en b/Changes-7.29.en
deleted file mode 100644 (file)
index 857b1ab..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-Tue Dec  5 07:58:52 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm: Version 7.29 was released.
-       * tm/mh-e: Version 7.41 was released.
-       * tm/gnus: Version 7.20.1 was released.
-       * tl: Version 7.02 was released.
-
-       * tm-edit.el: Setting for ISO-2022-KR.
-
-Mon Dec  4 20:33:11 1995  Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
-
-       * tm-vm.el:
-       setting for mime-viewer/over-to-(previous|next)-method-alist.
-       (cf. [tm-ja:1195])
-
-       * tm-view.el: New keybind "<" and ">" (cf. [tm-ja:1195])
diff --git a/Changes-7.29.ja b/Changes-7.29.ja
deleted file mode 100644 (file)
index 066e29a..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-Tue Dec  5 07:58:52 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm: Version 7.29 was released.
-       * tm/mh-e: Version 7.41 was released.
-       * tm/gnus: Version 7.20.1 was released.
-       * tl: Version 7.02 was released.
-
-       * tm-edit.el: Setting for ISO-2022-KR.
-
-Mon Dec  4 20:33:11 1995  Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
-
-       * tm-vm.el:
-       VM \e$BMQ$N\e(B mime-viewer/over-to-(previous|next)-method-alist \e$B$r@_Dj\e(B
-       (cf. [tm-ja:1195])
-
-       * tm-view.el:
-       mime-viewer/mode \e$B$KBP$9$k\e(B keybind \e$B$NDI2C\e(B ("<", ">")
-       (cf. [tm-ja:1195])
diff --git a/Changes-7.30.en b/Changes-7.30.en
deleted file mode 100644 (file)
index 0b9e65f..0000000
+++ /dev/null
@@ -1,69 +0,0 @@
-Wed Dec  6 12:52:53 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm: Version 7.30 was released.
-       * tm/mh-e: Version 7.43 was released.
-       * tm/gnus: Version 7.21 was released.
-       * tl: Version 7.03 was released.
-
-       * tm-edit.el: In function `mime-editor/split-and-send', to
-       `(make-variable-buffer-local 'mail-header-separator)' was changed
-       to `(make-local-variable 'mail-header-separator)'.
-
-       * tm-play.el: In function `mime-article/decode-caesar',
-       `(setq buffer-read-only nil)' was inserted before
-       `(erase-buffer)'. (cf. [tm-ja:1214])
-
-Wed Dec  6 09:21:07 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * README.eng:
-       According to Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>,
-       added and rewrote about VM.
-
-Wed Dec  6 08:49:15 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-vm.el:
-       (1) Function `tm-vm/over-to-previous' was renamed to
-           `tm-vm/over-to-previous-method'.
-       (2) Function `tm-vm/over-to-next was renamed to
-           `tm-vm/over-to-next-method'.
-
-Wed Dec  6 06:55:07 1995  Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
-
-       * tm-vm.el:
-       - Variable `tm-vm/automatic-mime-preview' was changed to user
-         variable.
-
-       - Names of tm-vm hooks were unified to `tm-vm/xxx-hook' from
-         `vm-xxx-hook'.
-
-       - New function `tm-vm/over-to-previous' and
-         `tm-vm/over-to-next': they are over-to-previous-method and
-         over-to-next-method. They are not only set for vm-mode, but
-         also vm-virtual-mode.
-
-       - add-hook to `tm-vm/update-record' was fixed to
-         `tm-vm/bbdb-update-record'. It is typo.
-
-Wed Dec  6 08:20:02 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-eword.el, tm-ew-d.el: comment was modified.
-
-       * README.eng: New section `How to get new version'.
-
-       * tm-view.el, tm-play.el:
-       (1) buffer local variable `mime/show-mode-old-window-configuration'
-           was renamed to `mime::article/preview-buffer'.
-       (2) modified about window configuration.
-
-       * tm-vm.el:
-       (1) Function `tm-vm/preview-current-message' was modified.
-       (2) over-to-previous-method and over-to-next-method are modified.
-
-Wed Dec  6 04:18:23 1995  Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
-
-       * tm-nemacs.el: Function `mime/code-convert-region-to-emacs' was
-       modified to use function `code-convert-region'. (cf. [tm-ja:1204])
-
-Wed Dec  5 18:52:52 1995  steve@miranova.com (Steven L. Baur)
-
-       * config.tm: bindir declaration was fixed.
diff --git a/Changes-7.30.ja b/Changes-7.30.ja
deleted file mode 100644 (file)
index 0d6fce9..0000000
+++ /dev/null
@@ -1,75 +0,0 @@
-Wed Dec  6 12:52:53 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm: Version 7.30 was released.
-       * tm/mh-e: Version 7.43 was released.
-       * tm/gnus: Version 7.21 was released.
-       * tl: Version 7.03 was released.
-
-       * tm-edit.el: In function `mime-editor/split-and-send', to
-       `(make-variable-buffer-local 'mail-header-separator)' was changed
-       to `(make-local-variable 'mail-header-separator)'.
-
-       * tm-play.el: In function `mime-article/decode-caesar',
-       `(setq buffer-read-only nil)' was inserted before
-       `(erase-buffer)'. (cf. [tm-ja:1214])
-
-Wed Dec  6 09:21:07 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * README.eng:
-       According to Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>,
-       added and rewrote about VM.
-
-Wed Dec  6 08:49:15 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-vm.el:
-       (1) Function `tm-vm/over-to-previous' was renamed to
-           `tm-vm/over-to-previous-method'.
-       (2) Function `tm-vm/over-to-next was renamed to
-           `tm-vm/over-to-next-method'.
-
-Wed Dec  6 06:55:07 1995  Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
-
-       * tm-vm.el:
-       - tm-vm/automatic-mime-preview \e$B$r\e(B user variable \e$B$K!#;d$O\e(B 
-         tm-vm/automatic-mime-preview \e$B$O\e(B user variable \e$B$H;W$C$F$$$?$N$G$9\e(B
-         \e$B$,!"\e(B"*" \e$B$,$D$$$F$$$J$$$_$?$$$J$N$G$D$1$F$_$^$7$?!#\e(B
-         \e$B!t\e(BVM \e$B$N>l9g$O\e(B user variable \e$B$G$$$$$s$G$9$h$M!)\e(B
-
-       - VM \e$B$N\e(B hook \e$B$rBeMQ$9$k\e(B tm-vm \e$B$N\e(B hook \e$B$NL>A0$r\e(B
-         vm-xxx-hook -> tm-vm/xxx-hook \e$B$GE}0l!#\e(B
-         BBDB \e$B$,F0$$$F$$$J$+$C$?860x$=$N\e(B 1 \e$B$G$9!#\e(B
-
-       - mime-viewer/over-to-(previous|next)-method-alist \e$B$K\e(B 
-         vm-virtual-mode \e$BMQ$N\e(B method \e$B$bEPO?!#\e(B
-         vm-mode \e$BMQ$K=q$$$?$b$N$rFHN)$7$?4X?t$K$7$F\e(B vm-virtual-mode \e$BMQ$K\e(B
-         \e$B$bEPO?$7$^$7$?!#\e(B
-
-       - BBDB \e$BBP1~ItJ,$G\e(B tm-vm/bbdb-update-record \e$B$G$O$J$/\e(B 
-         tm-vm/update-record \e$B$,\e(B add-hook \e$B$5$l$F$$$?$N$r=$@5!#\e(B
-         BBDB \e$B$,F0$$$F$$$J$+$C$?860x$=$N\e(B 2 \e$B$G$9!#\e(B
-
-       \e$B!t$^$@\e(B BBDB \e$B$O\e(B ";" \e$B$d\e(B ":" \e$B$GF0:n$,$*$+$7$$5$$,$9$k\e(B...
-
-Wed Dec  6 08:20:02 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-eword.el, tm-ew-d.el: comment was modified.
-
-       * README.eng: New section `How to get new version'.
-
-       * tm-view.el, tm-play.el:
-       (1) buffer local variable `mime/show-mode-old-window-configuration'
-           was renamed to `mime::article/preview-buffer'.
-       (2) modified about window configuration.
-
-       * tm-vm.el:
-       (1) Function `tm-vm/preview-current-message' was modified.
-       (2) over-to-previous-method and over-to-next-method are modified.
-
-Wed Dec  6 04:18:23 1995  Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
-
-       * tm-nemacs.el: Function `mime/code-convert-region-to-emacs' was
-       modified to use function `code-convert-region'. (cf. [tm-ja:1204])
-
-Wed Dec  5 18:52:52 1995  steve@miranova.com (Steven L. Baur)
-
-       * config.tm: bindir declaration was fixed.
diff --git a/Changes-7.31.en b/Changes-7.31.en
deleted file mode 100644 (file)
index dd25e93..0000000
+++ /dev/null
@@ -1,74 +0,0 @@
-Thu Dec  7 12:07:47 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tl: Version 7.03.1 was released.
-       * tm: Version 7.31 was released.
-       * tm/gnus: Version 7.21.1 was released.
-
-       * Makefile: tl/README.eng was renamed to tl/README.en.
-
-Thu Dec  7 10:23:55 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-vm.el: vm-mail-mode pop up menu setting for XEmacs.
-
-       * tm-mail.el: pop up menu setting for XEmacs.
-
-       * tm-edit.el:
-       MUA depended codes about XEmacs pop up menu were moved to
-       tm-MUAs.
-
-       * tm-view.el: defvar `mime::article/preview-buffer' and
-       `mime::article/code-converter' for XEmacs.
-
-       * tm-edit.el: some comments are modified.
-
-Thu Dec  7 09:10:28 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * Makefile:
-       (1) drives `make gnus5' and `make sgnus' for xemacs and 19_29.
-       (2) README.eng was rename to README.en.
-
-Thu Dec  7 08:01:31 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-play.el:
-       Function `mime-article/view-message/rfc822' was modified to set
-       buffer local variable `mime::article/code-converter'.
-
-       * tm-view.el:
-       New buffer local variable `mime::article/code-converter': It
-       specifies code-converter. If it is nil,
-       `mime-viewer/code-converter-alist' is used.
-
-Thu Dec  7 06:18:21 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-view.el:
-       pop up menu support by mouse-button-3 for Emacs 19 and XEmacs.
-
-Thu Dec  7 06:10:32 1995  Steven L. Baur <steve@miranova.com>
-
-       * tm-edit.el: pop up menu for XEmacs. (cf. [tm-en:209])
-
-Thu Dec  7 04:55:49 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-rmail.el: version variables were added.
-
-       * tm-rmail.el:
-       Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>'s patch was applied
-       to fix problem of function `tm-rmail/forward' in *mail* buffer. (and
-       some extensions) (cf. [tm-ja:1225])
-
-Thu Dec  6 23:16:14 1995  Steven L. Baur <steve@miranova.com>
-
-       * tm-view.el: mouse-button-3 menu for XEmacs. (cf. [tm-en:206])
-
-Thu Dec  6 15:53:54 1995  Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
-
-       * README.eng: fixed typo about VM (cf. [tm-ja:1224])
-
-       * tm-file.el: fix and extend. (cf. [tm-ja:1224])
-
-Wed Dec  6 15:35:52 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-rmail.el:
-       `(substitute-key-definition
-               'rmail-forward 'tm-rmail/forward rmail-mode-map)'
-       should be enclosed by (call-after-loaded 'mime-setup ..).
diff --git a/Changes-7.32.en b/Changes-7.32.en
deleted file mode 100644 (file)
index 44f524b..0000000
+++ /dev/null
@@ -1,102 +0,0 @@
-Mon Dec 11 18:02:36 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tl: Version 7.03.2 was released.
-       * tm: Version 7.32 was released.
-       * tm/gnus: Version 7.21.2 was released.
-
-Sun Dec 10 20:33:48 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-view.el, tm-play.el: Function `mime::point-preview-content'
-       was renamed to `mime-preview/point-pcinfo'.
-
-       * tm-edit.el: does not exit from MIME editor mode if function
-       `mime-editor/pgp-processing' is fail.
-
-       * tm-edit.el:
-       (1) New variable `mime-editor/signing-type' and
-           `mime-editor/encrypting-type': their types are pgp-elkins,
-           pgp-kazu or nil. pgp-elkins is not supported yet.
-       (2) New function `mime-editor/enclose-signed-region' and
-           `mime-editor/enclose-encrypted-region' for new enclosure
-           `signed' and `encrypted'.
-       (3) New function `mime-editor/process-pgp-kazu': to process
-           `signed' and `encrypted' enclosure as application/pgp.
-       (4) New function `mime-editor/set-split'
-
-Sat Dec  9 08:37:21 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-pgp.el (mime-article/check-pgp-signature): Status does not
-       work.
-
-Sat Dec  9 08:32:56 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-edit.el (mime-editor/process-multipart-1):
-       Boundary is folded.
-
-       * tm-edit.el: rearrangement
-
-Sat Dec  9 04:58:16 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-play.el (mime-article/show-output-buffer):
-       `(get-buffer-create mime/output-buffer-name)' was inserted.
-
-Sat Dec  9 04:51:49 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-pgp.el: application/pgp-signature support.
-
-       * tm-play.el:
-       Function `mime-article/decode-message/partial' was modified not to
-       use `find-file'.
-
-Sat Dec  9 04:11:11 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-def.el:
-       Constant `mime/decoding-buffer-name' was deleted (because it seems
-       not be used).
-
-       * tm-edit.el: application/pgp support
-
-Sat Dec  9 03:42:47 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-file.el: setting for another variables to regard as binary.
-
-Sat Dec  9 02:04:41 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-view.el:
-       Function `mime-viewer/display-content' was fixed about judgement
-       of root content.
-
-Sat Dec  9 01:56:28 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-parse.el:
-       Function `mime/parse-multipart' was fixed about point-max slot of
-       content-info.
-
-Sat Dec  9 01:41:18 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-def.el: New constant `mime/temp-buffer-name'.
-
-       * tm-play.el:
-       Function `mime-article/decode-message/partial' was modified to use
-       `mime/temp-buffer-name'.
-
-Fri Dec  8 23:27:19 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-pgp.el: Initial revision
-
-Fri Dec  8 22:32:55 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-vm.el: According to Junya Watanabe
-       <junya@tippr.info.eng.niigata-u.ac.jp>, fixed problem about XEmacs
-       menu in Emacs and Mule.
-       (cf. [tm-ja:1249])
-
-Fri Dec  8 22:29:27 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-view.el: New variable
-       `mime-viewer/content-subject-showing-Content-Type-list'
-
-Sat Dec  8 18:29:51 1995  Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
-
-       * tm-file.el(mime-article/extract-file):
-       Variable `require-final-newline' should be nil.
diff --git a/Changes-7.33.en b/Changes-7.33.en
deleted file mode 100644 (file)
index adeed24..0000000
+++ /dev/null
@@ -1,21 +0,0 @@
-Wed Dec 13 05:46:06 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tl: Version 7.03.3 was released.
-       * tm: Version 7.33 was released.
-       * tm/mh-e: Version 7.44 was released.
-       * tm/gnus: Version 7.22 was released.
-       
-       * tm-view.el:
-       (1) New field variable `mime-viewer/visible-field-list'
-       (2) New function `mime-preview/cut-header'
-       
-       * tm-view.el: (mime-viewer/default-content-header-filter):
-       New implementation
-
-Tue Dec 11 15:31:29 1995  Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
-
-       * tm-file.el: comment was fixed.
-       
-       * methods/tm-html, methods/tm-image:
-       fixed to insert spaces previous and next of "="
-       (cf. [tm-ja:1262])
diff --git a/Changes-7.33.ja b/Changes-7.33.ja
deleted file mode 100644 (file)
index 4b8a516..0000000
+++ /dev/null
@@ -1,21 +0,0 @@
-Wed Dec 13 05:46:06 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tl: Version 7.03.3 was released.
-       * tm: Version 7.33 was released.
-       * tm/mh-e: Version 7.44 was released.
-       * tm/gnus: Version 7.22 was released.
-       
-       * tm-view.el:
-       (1) New field variable `mime-viewer/visible-field-list'
-       (2) New function `mime-preview/cut-header'
-       
-       * tm-view.el: (mime-viewer/default-content-header-filter):
-       New implementation
-
-Tue Dec 11 15:31:29 1995  Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
-
-       * tm-file.el: tm-file.el \e$B$N\e(B header \e$B$K%@%V$C$F$$$k9T$,$"$j$^$7$?!#\e(B
-       
-       * methods/tm-html, methods/tm-image:
-       "=" \e$B$NA08e$K\e(B space \e$B$NI,MW$J=j$,$"$j$^$7$?!#\e(B
-       (cf. [tm-ja:1262])
diff --git a/Changes-7.34.en b/Changes-7.34.en
deleted file mode 100644 (file)
index 8ebc9ba..0000000
+++ /dev/null
@@ -1,53 +0,0 @@
-Thu Dec 14 17:03:27 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm: Version 7.34 was released.
-
-       * Makefile:
-       New file tm/src/tmpgp: it is used to sign by pgp-elkins style.
-
-Thu Dec 14 15:49:00 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-edit.el:
-       (1) `pgp-elkins' style PGP signature was implemented.
-       (2) New function `mime-editor/insert-key': It is based on
-           draft-elkins-pem-pgp-01.txt.
-
-Thu Dec 14 15:41:18 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-pgp.el: New function `mime-article/add-pgp-keys'
-
-Thu Dec 14 15:37:13 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-play.el (mime-article/decode-caesar):
-       encoding field is symbol, not string.
-
-       * tm-html.el: encoding field is symbol, not string.
-
-Thu Dec 14 15:17:56 1995  Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
-
-       * tm-vm.el(tm-vm/scroll-forward, tm-vm/scroll-backward):
-       According to AKITO Ishihara <aki@bpel.tutics.tut.ac.jp>'s report,
-       `vm-scroll-(forward|backward)' was enclosed by
-       `(let ((vm-inhibit-startup-message t)) ...)'.
-       (cf. [tm-ja:1313], [tm-ja:1314])
-
-Thu Dec 14 06:22:20 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * signature.el (signature/insert-signature-at-eof):
-       `(delete-blank-lines)' was commented out.
-
-Thu Dec 13 15:37:16 1995  Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
-
-       * tm-vm.el (tm-vm/scroll-forward, tm-vm/scroll-backward):
-       It might be better to treat `vm-honor-page-delimiters' (and
-       `vm-auto-next-message' too) in tm-vm. (cf. [tm-ja:1292])
-
-Wed Dec 13 13:40:58 1995  AKITO Ishihara <aki@bpel.tutics.tut.ac.jp>
-
-       * tm-vm.el (tm-vm/scroll-backward): fixed to comment out
-       `(goto-char (point-max))'. (cf. [tm-ja:1289])
-
-Wed Dec 13 13:10:27 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-edit.el (mime-editor/process-pgp-kazu): fixed to insert dummy
-       mail-header-separator before calling mailcrypt function.
diff --git a/Changes-7.35.en b/Changes-7.35.en
deleted file mode 100644 (file)
index 036b5fc..0000000
+++ /dev/null
@@ -1,44 +0,0 @@
-Sat Dec 15 16:16:32 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm: Version 7.35 was released.
-       * tm/gnus: Version 7.24 was released.
-
-Fri Dec 15 15:40:10 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-pgp.el:
-       According to Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>,
-       `(autoload 'mc-snarf-keys "mc-toplev")' was added.
-       (cf. [tm-ja:1345])
-
-       * tm-view.el:
-       (1) Popup menu for Emacs 19.* was deleted.
-       (2) MIME-View menu was defined for Emacs 19.*. In Emacs 19.29 or
-           later, system popup menu is available.
-
-Fri Dec 15 15:02:14 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-edit.el (mime/editor-mode): DOC string was fixed.
-
-Fri Dec 15 13:58:51 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-vm.el:
-       (1) New variable `tm-vm/use-xemacs-popup-menu'.
-       (2) popup menu of MIME-Edit minor mode became sub menu.
-
-Fri Dec 15 13:56:51 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-rmail.el:
-       Setting was modified to load tm-mail after tm-edit is loaded.
-
-       * tm-mail.el:
-       (1) New variable `tm-mail/use-xemacs-popup-menu'.
-       (2) popup menu of MIME-Edit minor mode became sub menu.
-
-       * tm-def.el (tm:set-fields): New function
-
-Fri Dec 15 12:00:23 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-pgp.el (mime-article/check-pgp-signature): fixed problem of
-       binary declarations
-
-       * tm-file.el: delete unnecessary `(file-coding-system *noconv*)'
diff --git a/Changes-7.36.en b/Changes-7.36.en
deleted file mode 100644 (file)
index 7d06eb6..0000000
+++ /dev/null
@@ -1,41 +0,0 @@
-Mon Dec 18 11:16:18 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm: Version 7.36 was released.
-       * tm/gnus: Version 7.25 was released.
-
-       * methods/tm-au: new implementation
-
-Mon Dec 18 10:45:02 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-view.el (mime-viewer/quit): New implementation
-
-       * tm-view.el (mime-viewer/show-summary): New function:
-       it is bound with `h' key.
-
-       * tm-view.el (mime-viewer/show-summary-method): New variable
-
-Mon Dec 18 01:32:23 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * methods/tmdecode, methods/tm-plain:
-       replaced by NAGIRA Naoki <naoki-n@pdi.co.jp>'s code.
-
-Sun Dec 17 14:35:01 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-view.el: setting for "image/x-mag"
-
-Sun Dec 17 14:29:17 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-pgp.el: application/pgp-encrypted support
-
-       * tm-pgp.el (mime-article/check-pgp-signature): bug fix
-
-       * tm-pgp.el: setting for "text/x-pgp"
-
-       * tm-setup.el: setting for tm-image.el when XEmacs is running.
-
-       * tm-image.el:
-       Filters were merged to function `mime-preview/filter-for-image'.
-
-Sat Dec 16 14:59:29 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-image.el: Initial revision
diff --git a/Changes-7.37.en b/Changes-7.37.en
deleted file mode 100644 (file)
index 1607384..0000000
+++ /dev/null
@@ -1,38 +0,0 @@
-Wed Dec 20 13:05:06 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tl: Version 7.03.4 was released.
-       * tm: Version 7.37 was released.
-       * tm/gnus: Version 7.26 was released.
-
-Tue Dec 19 18:06:49 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-pgp.el: draft-elkins-pem-pgp-01.txt was renewed to
-       draft-elkins-pem-pgp-02.txt.
-
-Tue Dec 19 17:50:09 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * Makefile: tm/src/tmpgp was abolished.
-
-Tue Dec 19 17:47:16 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-edit.el:
-       pgp-elkins spec was renewed to draft-elkins-pem-pgp-02.txt.
-
-Tue Dec 19 17:13:19 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-pgp.el (mime-article/check-pgp-signature): treats encoding
-
-       * tm-edit.el: `(autoload 'mc-pgp-lookup-key "mc-pgp")' was added.
-
-Tue Dec 18 03:52:48 1995  Katsumi Yamaoka <yamaoka@ga.sony.co.jp>
-
-       * tm-view.el (mime-viewer/filter-text/plain): put URL into
-       text-property. (cf. [tm-ja:1367])
-
-Mon Dec 15 21:32:16 1995  Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
-
-       * tm-vm.el (tm-vm-load-hook): New hook
-       
-       * tm-vm.el (tm-vm/preview-current-message): fixed to end as
-       current-buffer is folder buffer. Some problem is still rest.
-       (cf. [tm-ja:1348])
diff --git a/Changes-7.38.en b/Changes-7.38.en
deleted file mode 100644 (file)
index 4acb113..0000000
+++ /dev/null
@@ -1,54 +0,0 @@
-Fri Dec 22 09:00:20 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm: Version 7.38 was released.
-       * tm/gnus: Version 7.28 was released.
-
-Thu Dec 21 18:27:09 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-edit.el (mime-file-types): format was changed.
-               (0) filename pattern
-               (1) primary type
-               (2) sub type
-               (3) parameters of Content-Type field
-               (4) Content-Transfer-Encoding
-               (5) disposition-type
-               (6) parameters of Content-Disposition field
-
-       * tm-edit.el (mime-editor/insert-file):
-       modified for new `mime-file-types' format.
-
-Thu Dec 21 18:17:03 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-def.el (mime/disposition-type-regexp): New constant
-
-       * tm-parse.el (mime/parse-Content-Disposition): New function
-
-       * tm-parse.el (mime/Content-Disposition): New function
-
-       * tm-view.el (mime-article/get-subject):
-       function `mime-viewer/get-subject' was renamed to it.
-
-       * tm-view.el (mime-article/get-uu-filename): New function:      
-       it was separated from function `mime-article/get-subject'.
-
-       * tm-play.el (mime-article/get-original-filename): New function
-
-       * tm-play.el (mime-article/get-filename):
-       Function `mime-article/get-name' was renamed to it.     
-       It was modified to use `mime-article/get-original-filename'
-       instead of `mime-article/get-subject'.
-
-       * tm-file.el (mime-article/extract-file):       
-       modified to use `mime-article/get-filename'
-
-Wed Dec 20 15:27:35 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-setup.el:
-       According to Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>,
-       `(require 'tm-gnus)' is add-hooked as append mode.      
-       (cf. [tm-ja:1391])
-
-Thu Dec 20 05:48:56 1995  UENO Hiroshi <jl07715@yamato.ibm.co.jp>
-
-       * tm-pgp.el: (mime-article/check-pgp-signature):
-       fixed to treat signed part as binary. (to fix problem in OS/2)
diff --git a/Changes-7.39.en b/Changes-7.39.en
deleted file mode 100644 (file)
index 5d6af59..0000000
+++ /dev/null
@@ -1,44 +0,0 @@
-Mon Dec 25 10:43:59 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm: Version 7.39 was released.
-       * tm/gnus: Version 7.30 was released.
-
-       * README.en: Sample of hilit19 was changed.
-
-Mon Dec 25 09:08:50 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-rmail.el: fixed to work in Emacs 18.*, but some problems are
-       rest.
-
-       * tm-view.el (mime-viewer/redisplay): New variable: for redisplay
-
-Mon Dec 25 05:43:05 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * Makefile (19_29): `make gnus5' was commented out.
-
-Mon Dec 25 05:40:42 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-rmail.el (tm-rmail/preview-message): New implementation
-
-       * tm-rmail.el (rmail-summary-rmail-update): redefined
-
-       * tm-rmail.el: `mime-viewer/show-summary-method' was set.
-
-Mon Dec 25 05:31:33 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * mk-tm (compile-tm): `(load "rmailsum")' was added.
-
-Mon Dec 25 03:20:41 1995  OKABE Yasuo  <okabe@kudpc.kyoto-u.ac.jp>
-
-       * signature.el (signature-delete-blank-lines-at-eof): New variable
-
-Sat Dec 23 12:43:20 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-def.el (tm:browse-url): argument was fixed.
-
-       * README.en: fixed about PGP
-
-Sat Dec 23 09:32:27 1995  Tanaka Shinichiro  <tanaka3@ifos.se.fujitsu.co.jp>
-
-       * tm-pgp.el, README.en:
-       Typos were fixed. (cf. [tm-ja:1419], [tm-ja:1421])
diff --git a/Changes-7.40.en b/Changes-7.40.en
deleted file mode 100644 (file)
index a69d38f..0000000
+++ /dev/null
@@ -1,92 +0,0 @@
-Wed Jan 17 08:27:26 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tl: version 7.08 was released.
-       * tm: version 7.40 was released.
-
-Sun Jan 14 05:52:49 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-edit.el (mime-editor/choose-charset): New implementation: use
-       function `mime/find-charset-region' instead of
-       `mime-body-charset-chooser'.
-
-       * tm-edit.el: Variable `mime-body-charset-chooser' and its
-       implementations were deleted.
-
-       * tm-edit.el (mime-editor/normalize-body): use variable
-       `mime/charset-default-encoding-alist' instead of function
-       `mime-editor/choose-encoding'.
-
-       * tm-edit.el: Function `mime-editor/choose-encoding' was deleted.
-
-Fri Jan 12 13:59:13 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-def.el (mime/find-charset-region): New function
-
-       * tm-def.el (mime/charset-default-encoding-alist): New variable
-
-Thu Jan 11 18:31:43 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-ew-e.el: Variable `mime/default-charset-encoding-alist' was
-       renamed to `mime-eword/charset-encoding-alist'.
-
-       * tm-ew-e.el: Constant `mime/eword-encoder-version' was renamed to
-       `mime-eword/encoder-version'.
-
-       * tm-ew-e.el: Variable `mime/default-charset-encoding-alist' was
-       moved from tm-def.el.
-
-       * tm-def.el: Variable `mime/default-charset-encoding-alist' was
-       moved to tm-ew-e.el.
-
-       * tm-ew-e.el: Function `mime/find-charset-rule' was renamed to
-       `tm-eword::find-charset-rule'.
-
-       * tm-ew-e.el (mime/find-charset-rule): modified to use function
-       `mime/find-charset'
-
-       * tm-def.el (mime/find-charset): new function
-
-Thu Jan 11 05:33:53 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-ew-e.el (mime/find-charset-rule): new implementation
-
-       * tm-orig.el: Variable `mime/decoding-charset-list' was deleted.
-
-Thu Jan 11 05:12:50 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-nemacs.el, tm-orig.el:
-       Variable `mime/lc-charset-rule-list' was deleted.
-
-       * tm-mule.el:
-       Variable `mime/lc-charset-rule-list' and
-       `mime/unknown-charset-rule' were deleted.
-
-Thu Jan 11 05:09:28 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-def.el (mime/default-charset-encoding-alist): new variable
-
-Thu Jan 11 04:56:08 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-orig.el, tm-nemacs.el, tm-mule.el
-       (mime/lc-charset-alist, mime/unknown-charset): new variable
-
-Wed Jan 10 00:07:57 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-edit.el:
-       (mime-editor/translate-body, mime-editor/translate-region):
-       Spaces in boundary are replaced by underlines.
-       (cf. [tm-en:255,258])
-
-Tue Jan  9 19:08:21 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mule.el: Obsolete definitions were deleted.
-
-Tue Jan  9 18:43:12 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-orig.el, tm-nemacs.el, tm-mule.el:
-       Variable `mime/latin-lc-list' was deleted.
-
-Tue Jan  9 16:28:44 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-orig.el, tm-nemacs.el, tm-mule.el:
-       Variable `mime/lc-charset-and-encoding-alist' was deleted.
diff --git a/Makefile.18 b/Makefile.18
deleted file mode 100644 (file)
index 4ff7261..0000000
+++ /dev/null
@@ -1,75 +0,0 @@
-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
diff --git a/Makefile.19 b/Makefile.19
deleted file mode 100644 (file)
index 60ae728..0000000
+++ /dev/null
@@ -1,116 +0,0 @@
-#
-# $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
diff --git a/Makefile.bc b/Makefile.bc
deleted file mode 100644 (file)
index 4cbc7ac..0000000
+++ /dev/null
@@ -1,47 +0,0 @@
-#
-# $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
diff --git a/Makefile.o19 b/Makefile.o19
deleted file mode 100644 (file)
index 5d88eab..0000000
+++ /dev/null
@@ -1,95 +0,0 @@
-#
-# $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
diff --git a/README-eng.ol b/README-eng.ol
deleted file mode 100644 (file)
index 4694143..0000000
+++ /dev/null
@@ -1,52 +0,0 @@
-[[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.
diff --git a/README-eng.tex b/README-eng.tex
deleted file mode 100644 (file)
index 996ebd7..0000000
+++ /dev/null
@@ -1,80 +0,0 @@
-\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}
diff --git a/README-jp.ol b/README-jp.ol
deleted file mode 100644 (file)
index 037ab83..0000000
+++ /dev/null
@@ -1,88 +0,0 @@
-\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
diff --git a/README-jp.tex b/README-jp.tex
deleted file mode 100644 (file)
index 257d669..0000000
+++ /dev/null
@@ -1,133 +0,0 @@
-\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}
diff --git a/README.eng b/README.eng
deleted file mode 100644 (file)
index a168c7f..0000000
+++ /dev/null
@@ -1,328 +0,0 @@
-[README for tm (English Version)]
-by MORIOKA Tomohiko <morioka@jaist.ac.jp>
-and KOBAYASHI Shuhei <shuhei@cmpt01.phys.tohoku.ac.jp>
-$Id: README.eng,v 7.4 1995/12/06 09:21:07 morioka Exp $
-
-1 What's tm?
-
-  tm is a MIME package for GNU Emacs. tm has following functions:
-
-       - MIME style multilingual header
-       - MIME message viewer (mime/viewer-mode)
-       - MIME message composer (mime/editor-mode)
-       - MIME extenders for mh-e, GNUS, RMAIL and VM
-
-
-2 Documents
-
-  This package includes following documents.
-
-(1) English edition
-
-- tm/doc/tm_en.texi    : tm Reference Manual (TeXinfo)
-- tm/doc/tm-view_en.texi: tm-view Reference Manual (TeXinfo)
-- tm/doc/tm-gnus_en.texi: tm-gnus Reference Manual (TeXinfo)
-
-(2) Japanese edition
-
-- tm/doc/tm_ja.tex      : tm Reference Manual (TeXinfo)
-- tm/doc/tm-view_ja.texi : tm-view Reference Manual (TeXinfo)
-- tm/doc/tm-gnus_ja.texi : tm-gnus Reference Manual (TeXinfo)
-- tm/doc/signature-jp.ol : signature.el Reference Manual (Emacs Outline)
-- tm/doc/signature-jp.tex: signature.el Reference Manual (LaTeX)
-
-
-3 Modules
-
-  tm has following modules:
-
-       - tm-view : MIME viewer
-               - tm-parse.el : MIME message parser
-               - tm-play.el  : MIME content player
-               - tm-ew-d.el : MIME encoded-word decoder
-       - preview filter for tm-view
-               - tm-rich    : for text/enriched and text/richtext
-       - internal methods for tm-view
-               - tm-partial : automatic assembler for message/partial
-               - tm-ftp     : for anonymous ftp
-               - tm-file    : for file extraction
-               - tm-tar     : for tar content
-               - tm-latex   : for LaTeX
-               - tm-html    : for text/html
-       - tm-edit : MIME composer (mime.el and tm-comp.el were merged)
-               - tm-ew-e.el : MIME encoded-word encoder
-       - tm-def  : definition module for tm
-               - tm-nemacs.el : NEmacs depended part of tm
-               - tm-orig.el   : FSF original Emacs and XEmacs
-                                 depended part of tm
-               - tm-mule.el   : Mule depended part of tm
-       - tm-MUAs : MIME extender for MUAs
-               - tm-mh-e  : tm-MUA for mh-e
-               - tm-gnus  : tm-MUA for GNUS
-               - tm-rmail : tm-MUA for RMAIL
-               - tm-vm    : tm-MUA for vm
-               - tm-mail  : tm-MUA library module for mail-mode
-       - mime-setup: set up module for MIME
-               - tm-setup: set up only reading
-
-
-4 Install
-
-4.1 tm/config.tm
-
-  Please edit tm/config.tm file.
-
-
-4.2 External methods
-
-  Please edit external methods in `tm/methods/' directory for your
-environment.
-
-       tm/methods/tm-au        for audio
-       tm/methods/tm-file      for file extraction
-       tm/methods/tm-image     for image
-       tm/methods/tm-mpeg      for MPEG
-       tm/methods/tm-plain     for plain text
-       tm/methods/tm-html      for HTML
-       tm/methods/tmdecode     decoder
-
-
-4.3 make
-
-  Run `make all'.
-
-
-4.4 install
-
-  Run `make install'.
-
-
-4.5 Emacs Lisp modules
-
-  Run `make install-18', if you use Emacs 18 (NEmacs, Mule 1.*).
-
-  Run `make install-xemacs', if you use Emacs .. 19.28 (Mule 2.* based
-on), or XEmacs.
-
-  Run `make install-19_29', if you use Emacs 19.29 or later (Mule 2.*
-based on).
-
-  Or copy *.el to your emacs lisp directory.
-
-
-5 tm-MUA
-
-5.1 tm-gnus
-
-  If you use optional GNUS or Gnus, you must edit and make manually.
-
-(1) Please edit tm/gnus/Makefile.
-
-    If you use Emacs 18.* and GNUS 3.*, please edit tm/gnus/g3-path.
-
-    If you use Emacs 18.* and GNUS 4.*, please edit tm/gnus/g4-path.
-
-    If you use Gnus 5.0.*, please edit tm/gnus/g5-path.
-
-    If you use September Gnus, please edit tm/gnus/s-path.
-
-(2) make
-
-  Run `make gnus3', if you use GNUS 3.*.
-
-  Run `make gnus4', if you use GNUS 4.*.
-
-  Run `make gnus5', if you use Gnus 5.0.*.
-
-  Run `make sgnus', if you use September Gnus.
-
-(3) install
-
-  Run `make install-18', if you use Emacs 18.*.
-
-  Run `make install-19', if you use Emacs .. 19.28 or XEmacs.
-
-  Run `make install-19_29', if you use Emacs 19.29 or later.
-
-
-5.1.1 automatic MIME preview support
-
-  tm-gnus provides automatic MIME preview feature for GNUS 3.15 or
-later, Gnus 5.0.*, Gnus 5.1, and September Gnus.
-
-  If you don't want to use automatic MIME preview feature, please
-insert following to ~/.emacs.
-
-       (setq tm-gnus/automatic-mime-preview nil)
-
-  In addition, September Gnus has automatic MIME preview supporting
-feature. Of course, tm-gnus provide this feature for other GNUS and
-Gnus, but it is unnatural.
-
-  When automatic MIME preview mode, GNUS and Gnus do MIME processing
-if a message has a Mime-Version field. If it does not have, GNUS and
-Gnus does not do MIME processing, in default.
-
-  Gnus 5.0.*, 5.1 and September Gnus have a variable
-`gnus-strict-mime'. If you insert
-
-       (setq gnus-strict-mime nil)
-
-Gnus do MIME processing even if a message does not have Mime-Version
-field.
-
-  In September Gnus, if `gnus-strict-mime' is not nil, variable
-`gnus-decode-encoded-word-method' is called. tm-gnus uses it to decode 
-RFC 1522 encoded-word. So it is not necessary to reset
-`gnus-strict-mime'.
-
-
-5.2 tm-mh-e
-
-  If you use optional mh-e, you must edit and make manually.
-
-(1) Please edit mh-e/Makefile
-
-(2) make
-
-  Run `make elc'.
-
-(3) install
-
-  Run `make install-18', if you use Emacs 18.*.
-
-  Run `make install-19', if you use Emacs 19.*.
-
-* 5.3 VM
-
-  If you use VM, please edit `mk-tm'.
-
-
-6 .emacs
-
-  Please insert (load "mime-setup") in ~/.emacs.
-
-6.1 VM
-
-  If you use vm, please insert (require 'tm-vm) in ~/.vm.
-
-  tm works well with BBDB: If you use VM, please insert
-(require 'tm-vm) *after* (bbdb-insinuate-vm).
-
-
-6.2 setting sample for hilit19
-
-======================================================================
-(cond (window-system
-       (let* ((header-patterns '(("^Subject:.*$" nil msg-subject)
-                                ("^From:.*$" nil msg-from)
-                                ("^--text follows this line--$"
-                                 nil msg-separator)
-                                ("^[A-Za-z][A-Za-z0-9-]+:" nil msg-header)
-                                ))
-             (body-patterns '(("^\\(In article\\|[ \t]*\\w*[]<>}|]\\).*$"
-                               nil msg-quote)))
-             (message-patterns (append header-patterns body-patterns))
-             )
-        (hilit-set-mode-patterns 'msg-header header-patterns)
-        (hilit-set-mode-patterns 'msg-body body-patterns)
-        (hilit-set-mode-patterns 'mime/viewer-mode
-                                 message-patterns
-                                 'hilit-rehighlight-message)
-        )
-       (add-hook 'mime-viewer/content-header-filter-hook
-                (function hilit-rehighlight-buffer-quietly))
-       (add-hook 'mime-viewer/plain-text-preview-hook
-                (function hilit-rehighlight-buffer-quietly))
-       ))
-======================================================================
-
-6.3 setting sample for browse
-
-  If you have browse-url.el (included in Gnus 5.*, September Gnus and
-Emacs 19.30 or later), you can use URL button in
-mime/viewer-mode. Following is setting sample:
-
-======================================================================
-(setq browse-url-browser-function
-      (if (eq window-system 'x)
-         'browse-url-netscape
-       'browse-url-w3))
-(autoload browse-url-browser-function "browse-url"
-  "Ask a WWW browser to show a URL." t)
-======================================================================
-
-
-7 How to use mime/viewer-mode
-
-In tm-MUAs, you can use mime/viewer-mode if you press `v' key (in VM,
-`Z' key) in Summary mode. Or automatic MIME previewed buffer's
-major-mode is mime/viewer-mode. mime/viewer-mode has following
-functions:
-
-       q         quit from mime/viewer-mode
-       u         move to upper content
-       p         move to previous content
-       n         move to next content
-       SPC       scroll up or move to next content
-       M-SPC     scroll down or move to previous content
-       DEL       scroll down or move to previous content
-       RET       move to next line
-       M-RET     move to previous line
-       v         play current content
-       e         extract as file current content
-       C-c C-p   print current content
-       button-2  move to point under the mouse cursor and play
-                 current content or browse URL
-
-
-8 Bug report
-
-If you write bug-reports and/or propositions for improvement, please
-post them to following news groups:
-
-       fj.editor.emacs         (Japanese or English)
-       fj.editor.mule          (Japanese or English; if you use Mule)
-       gnu.emacs.help          (English)
-
-       fj.news.reader.gnus     (Japanese or English; about GNUS and Gnus)
-       gnu.emacs.gnus          (English; about GNUS and Gnus)
-
-       gnu.emacs.vm.info       (English; about tm-vm)
-
-or send to tm ML:
-
-       bug-tm-en@chamonix.jaist.ac.jp  (English)
-       bug-tm-ja@chamonix.jaist.ac.jp  (Japanese)
-
-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
-
-       tm-admin@chamonix.jaist.ac.jp           (Japanese or English)
-       tm-eng-admin@chamonix.jaist.ac.jp       (English)
-
-Since the user registration is manually done, please write the mail
-body in human-recognizable language (^_^).
-
-
-9 How to get new version
-
-tm is available from following anonymous ftp site:
-
-       ftp://ftp.jaist.ac.jp/pub/GNU/elisp/mime/       (Japan)
-
-and its mirrors:
-
-       ftp://ftp.nis.co.jp/pub/gnu/emacs-lisp/tm/      (Japan)
-       ftp://ftp.nisiq.net/pub/gnu/emacs-lisp/tm/      (US)
-
-
-10 TODO
-
-- automatic MIME preview support for another MUA
-- better XEmacs support (e.g. inline image)
-- development of internal method for message/external-body based on
-  tm-ftp
-- development good MIME composer
-- etc.
diff --git a/base64.el b/base64.el
deleted file mode 100644 (file)
index 52a1765..0000000
--- a/base64.el
+++ /dev/null
@@ -1,105 +0,0 @@
-;;;
-;;; $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)
diff --git a/config.tm b/config.tm
deleted file mode 100644 (file)
index 0b0d925..0000000
--- a/config.tm
+++ /dev/null
@@ -1,107 +0,0 @@
-#
-# tm/config.tm: configuration file for tm
-#
-
-MAKE = make
-
-
-# Please specify emacs executables:
-#      EMACS18    = for EMACS 18.* (NEmacs, NEpoch and Mule 1.*)
-#      XEMACS     = for Emacs .. 19.28 (Mule 2.0 .. 2.3) or XEmacs
-#      EMACS19_29 = for Emacs 19.29 ..
-
-EMACS18           = nemacs
-
-XEMACS    = xemacs
-#XEMACS           = mule
-#XEMACS           = emacs-19_28
-
-#EMACS19_29 = emacs-19_29
-#EMACS19_29 = emacs-19_30
-#EMACS19_29 = mule-19_29
-EMACS19_29 = mule-19_30
-
-
-# PREFIX = /usr/local
-PREFIX = $(HOME)
-
-
-EMACS_PREFIX = emacs
-# EMACS_PREFIX = mule
-# EMACS_PREFIX = xemacs
-
-
-DATADIR18    = $(PREFIX)/lib
-DATADIR19    = $(PREFIX)/lib
-DATADIR19_29 = $(PREFIX)/share
-
-
-# Please specify location to install for Emacs 18.
-LOCAL_LISP_DIR18 = $(DATADIR18)/$(EMACS_PREFIX)/local.lisp
-
-# Please specify location to install for Emacs .. 19.28 and XEmacs
-LOCAL_LISP_DIR19 = $(DATADIR19)/$(EMACS_PREFIX)/site-lisp
-
-# Please specify location to install for Emacs 19.29 ..
-LOCAL_LISP_DIR19_29 = $(DATADIR19_29)/$(EMACS_PREFIX)/site-lisp
-
-
-# tl install directory for Emacs 18
-TLDIR18 = $(LOCAL_LISP_DIR18)
-
-# tl install directory for Emacs .. 19.28 and XEmacs
-TLDIR19 = $(LOCAL_LISP_DIR19)
-
-# tl install directory for Emacs 19.29 ..
-TLDIR19_29 = $(LOCAL_LISP_DIR19_29)
-
-
-# MEL install directory for Emacs 18
-MELDIR18 = $(LOCAL_LISP_DIR18)/tm
-
-# MEL install directory for Emacs .. 19.28 and XEmacs
-MELDIR19 = $(LOCAL_LISP_DIR19)
-
-# MEL install directory for Emacs 19.29
-MELDIR19_29 = $(LOCAL_LISP_DIR19_29)
-
-
-# tm install directory for Emacs 18
-TMDIR18 = $(LOCAL_LISP_DIR18)/tm
-
-# tm install directory for Emacs .. 19.28 and XEmacs
-TMDIR19 = $(LOCAL_LISP_DIR19)
-
-# tm install directory for Emacs 19.29 ..
-TMDIR19_29 = $(LOCAL_LISP_DIR19_29)
-
-
-# tm-mh-e install directory for Emacs 18
-TMH_DIR18 = $(TMDIR18)
-
-# tm-mh-e install directory for Emacs .. 19.28 and XEmacs
-TMH_DIR19 = $(TMDIR19)
-
-# tm-mh-e install directory for Emacs 19.29
-TMH_DIR19_29 = $(TMDIR19_29)
-
-
-# tm-gnus install directory for Emacs 18
-TM_GNUS_DIR18 = $(TMDIR18)
-
-# tm-gnus install directory for Emacs .. 19.28 and XEmacs
-TM_GNUS_DIR19 = $(TMDIR19)
-
-# tm-gnus install directory for Emacs 19.29 ..
-TM_GNUS_DIR19_29 = $(TMDIR19_29)
-
-
-bindir = $(PREFIX)/bin
-
-
-CC     = gcc
-CFLAGS = -O
-
-
-RM     = /bin/rm -f
-CP     = /bin/cp -p
diff --git a/decode-b.c b/decode-b.c
deleted file mode 100644 (file)
index 8eece33..0000000
+++ /dev/null
@@ -1,71 +0,0 @@
-/*
- * $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;
-}
diff --git a/doc/rel-6eng.ol b/doc/rel-6eng.ol
deleted file mode 100644 (file)
index f0a07db..0000000
+++ /dev/null
@@ -1,179 +0,0 @@
-* 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.
diff --git a/doc/rel-6jp.ol b/doc/rel-6jp.ol
deleted file mode 100644 (file)
index dca39f1..0000000
+++ /dev/null
@@ -1,171 +0,0 @@
-* 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
diff --git a/doc/tiny-mime-eng.ol b/doc/tiny-mime-eng.ol
deleted file mode 100644 (file)
index 47421ab..0000000
+++ /dev/null
@@ -1,104 +0,0 @@
-[[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.
diff --git a/doc/tiny-mime-eng.tex b/doc/tiny-mime-eng.tex
deleted file mode 100644 (file)
index 475c4d0..0000000
+++ /dev/null
@@ -1,158 +0,0 @@
-\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}
diff --git a/doc/tiny-mime-jp.ol b/doc/tiny-mime-jp.ol
deleted file mode 100644 (file)
index 2b5368d..0000000
+++ /dev/null
@@ -1,260 +0,0 @@
-\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(^_^;
diff --git a/doc/tiny-mime-jp.tex b/doc/tiny-mime-jp.tex
deleted file mode 100644 (file)
index 3beb18b..0000000
+++ /dev/null
@@ -1,353 +0,0 @@
-\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}
diff --git a/doc/tiny-mime-jp.texi b/doc/tiny-mime-jp.texi
deleted file mode 100644 (file)
index 815fa2e..0000000
+++ /dev/null
@@ -1,188 +0,0 @@
-\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
diff --git a/doc/tl-jp.texi b/doc/tl-jp.texi
deleted file mode 100644 (file)
index 576191b..0000000
+++ /dev/null
@@ -1,548 +0,0 @@
-\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
diff --git a/doc/tm-comp-2.0-jp.pln b/doc/tm-comp-2.0-jp.pln
deleted file mode 100644 (file)
index e5d1457..0000000
+++ /dev/null
@@ -1,62 +0,0 @@
-\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
diff --git a/doc/tm-comp-jp.pln b/doc/tm-comp-jp.pln
deleted file mode 100644 (file)
index 9547318..0000000
+++ /dev/null
@@ -1,46 +0,0 @@
-\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
diff --git a/doc/tm-edit=en.texi b/doc/tm-edit=en.texi
deleted file mode 100644 (file)
index 416fcf3..0000000
+++ /dev/null
@@ -1,201 +0,0 @@
-@c $Id: tm-edit=en.texi,v 2.0 1996/04/11 17:24:11 morioka Exp $
-
-@node tm-edit, encoded-word, tm-view, Top
-@comment  node-name,  next,  previous,  up
-@chapter tm-edit
-@cindex tm-edit
-
-tm-edit is a general MIME viewer for GNU Emacs.
-
-tm-edit is based on mime.el by UMEDA Masanobu
-<umerin@@mse.kyutech.ac.jp>, who is famous as the author of GNUS.
-tm-edit expands following points from mime.el:
-
-@itemize
-@item based on RFC 1521/1522
-@item Content-Disposition field (RFC 1806) supports
-@item multi-part in multi-part
-@item PGP
-@item strength automatic specification for parameter of file type
-@end itemize
-
-
-@menu
-* mime/editor-mode::
-* single-part operations::
-* enclosure operation::
-* other operations of mime/editor-mode::
-@end menu
-
-
-@node mime/editor-mode, single-part operations, tm-edit, tm-edit
-@comment  node-name,  next,  previous,  up
-@section mime/editor-mode
-@cindex mime/editor-mode
-
-@emph{mime/editor-mode} is a minor mode to compose MIME message.
-In this mode, @emph{tag} represents various kinds of data, you can
-edit multi-part message.
-
-There are 2 kinds of @emph{tag}s:
-
-@itemize
-@item single-part tag
-@item multi-part tag
-@end itemize
-
-single-part tag represents single part, this form is following:
-
-@example
-        --[[TYPE/SUBTYPE;PARAMETERS][ENCODING]
-        OPTIONAL-FIELDS]
-@end example
-
-TYPE/SUBTYPE and PARAMETERS indicates type/subtype and parameters of
-Content-Type field. TYPE/SUBTYPE is required, PARAMETERS is optional.
-
-ENCODING indicates Content-Transfer-Encoding field. It is optional too.
-
-OPTIONAL-FIELDS is to represent another fields except Content-Type
-field and Content-Transfer-Encoding field.
-
-multi-part tags represent multi part. They consist of a pair of 
-@emph{multi-part beginning tag} and @emph{multi-part ending tag}.
-
-@emph{multi-part beginning tag}'s form is following:
-
-@example
-        --<<TYPE>>-@{
-@end example
-
-@emph{multi-part ending tag}'s form is following:
-
-@example
-        --@}-<<TYPE>>
-@end example
-
-A region from multi-part beginning tag to multi-part ending tag is
-called as @emph{enclosure}.
-
-
-@node single-part operations, enclosure operation, mime/editor-mode, tm-edit
-@comment  node-name,  next,  previous,  up
-@section single-part operations
-@cindex single-part
-
-Operations to make single-part are following:
-
-@table @kbd
-@item @key{C-c C-x C-t}
-Insert single-part tag indicates text part.
-
-@item @key{C-c C-x C-i}
-Insert file as a MIME attachment.
-
-@item @key{C-c C-x C-e}
-Insert external part.
-
-@item @key{C-c C-x C-v}
-Record audio input until @key{C-g} is pressed, and insert as a audio
-part. (It requires /dev/audio in default.)
-
-@item @key{C-c C-x C-y}
-Insert current (mail or news) message. (It is MUA depended.)
-
-@item @key{C-c C-x C-m}
-Insert mail message. (It is MUA depended.)
-
-@item @key{C-c C-x C-w, C-c C-x C-s}
-Insert signature.
-
-@item @key{C-c C-x C-k}
-Insert PGP public key. (It requires Mailcrypt package.)
-
-@item @key{C-c C-x t}
-Insert any  single-part tag.
-@end table
-
-
-@node enclosure operation, other operations of mime/editor-mode, single-part operations, tm-edit
-@comment  node-name,  next,  previous,  up
-@section enclosure operations
-@cindex multi-part
-@cindex enclosure
-
-Operations to make enclosure are following:
-
-@table @kbd
-@item @key{C-c C-x a}
-Enclose specified region as multipart/alternative.
-
-@item @key{C-c C-x p}
-Enclose specified region as multipart/parallel.
-
-@item @key{C-c C-x m}
-Enclose specified region as multipart/mixed.
-
-@item @key{C-c C-x d}
-Enclose specified region as multipart/digest.
-
-@item @key{C-c C-x s}
-Digital-sign to specified region. (*1)
-
-@item @key{C-c C-x e}
-Encrypt to specified region. (*1)
-@end table
-
-@b{[Notice]}
-@enumerate
-@item
-It requires Mailcrypt package and pgp package. In addition, please set
-symbol @code{pgp-elkins} or @code{pgp-kazu} to
-variable @code{mime-editor/signing-type} and
-@code{mime-editor/encrypting-type}.
-
-@code{pgp-elkins} indicates draft-elkins-pem-pgp-02.txt,
-@code{pgp-kazu} indicates draft-kazu-pgp-mime-00.txt.
-@end enumerate
-
-
-@node other operations of mime/editor-mode,  , enclosure operation, tm-edit
-@comment  node-name,  next,  previous,  up
-@section Another operation in mime/editor-mode.
-
-There are another operations in mime/editor-mode.
-
-@table @kbd
-@item @key{C-c C-c}
-Send current editing message.
-
-@item @key{C-c C-x C-p}
-Preview current editing message.
-
-@item @key{C-c C-x C-z}
-Exit mime/editor-mode. (@key{M-x mime/edit-again} is available to
-reedit.)
-
-@item @key{C-c C-x ?}
-Display help message.
-
-@item @key{M-x mime-editor/set-split}
-Set current editing message to enable automatic splitting or not.
-Form of automatic split messages is message/partial.
-
-@item @key{M-x mime-editor/set-sign}
-Set current editing message to digital-sign or not. (*1)
-
-@item @key{M-x mime-editor/set-encrypt}
-Set current editing message to encrypt or not. (*1)
-@end table
-
-@b{[Notice]}
-@enumerate
-@item
-It requires Mailcrypt package and pgp package. In addition, please set
-symbol @code{pgp-elkins} or @code{pgp-kazu} to
-variable @code{mime-editor/signing-type} and
-@code{mime-editor/encrypting-type}.
-
-@code{pgp-elkins} indicates draft-elkins-pem-pgp-02.txt,
-@code{pgp-kazu} indicates draft-kazu-pgp-mime-00.txt.
-@end enumerate
diff --git a/doc/tm-eng.tex b/doc/tm-eng.tex
deleted file mode 100644 (file)
index 527b4cd..0000000
+++ /dev/null
@@ -1,799 +0,0 @@
-\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}
diff --git a/doc/tm-eng.tex,v b/doc/tm-eng.tex,v
deleted file mode 100644 (file)
index 50244a9..0000000
+++ /dev/null
@@ -1,830 +0,0 @@
-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
-@
diff --git a/doc/tm-ew-d_en.texi b/doc/tm-ew-d_en.texi
deleted file mode 100644 (file)
index 2faad70..0000000
+++ /dev/null
@@ -1,32 +0,0 @@
-@c $Id: tm-ew-d_en.texi,v 1.1 1995/12/13 09:27:22 morioka Exp $
-
-@node encoded-word decoding, , function to preview, Functions of tm-view
-@comment  node-name,  next,  previous,  up
-@subsection encoded-word decoding
-@cindex encoded-word
-@cindex non-ASCII field
-@cindex message header
-
-tm-view can decode encoded-word defined in RFC 1522.
-
-
-@deffn{Command} mime/decode-message-header
-
-It decodes encoded-words in message header of current buffer.
-@end deffn
-
-
-@deffn{Command} mime-eword/decode-region beg end &optional unfolding
-
-It decodes encoded-words in region @var{beg} to @var{end}.
-
-If @var{unfolding} is non-nil, folded fields are unfolded.
-@end deffn
-
-
-@deffn{Function} mime-eword/decode-string str
-
-It decodes encoded-words in @var{str}.
-
-Folded string is unfolded.
-@end deffn
diff --git a/doc/tm-ew-d_ja.texi b/doc/tm-ew-d_ja.texi
deleted file mode 100644 (file)
index c146c2e..0000000
+++ /dev/null
@@ -1,35 +0,0 @@
-@c $Id: tm-ew-d_ja.texi,v 1.1 1995/12/11 08:32:16 morioka Exp $
-
-@node encoded-word decoding, , function to preview, Functions of tm-view
-@comment  node-name,  next,  previous,  up
-@subsection encoded-word decoding
-@cindex encoded-word
-@cindex non-ASCII field
-@cindex message header
-
-tm-view \e$B$O\e(B RFC 1522 \e$B$G5,Dj$5$l$?\e(B encoded-word \e$B$r\e(B decode \e$B$9$k$3$H$,$G$-\e(B
-\e$B$^$9!#\e(B
-
-
-@deffn{Command} mime/decode-message-header
-
-current buffer \e$B$N\e(B message header \e$BCf$N\e(B encoded-word \e$B$r\e(B decode \e$B$7$^$9!#\e(B
-@end deffn
-
-
-@deffn{Command} mime-eword/decode-region beg end &optional unfolding
-
-@var{beg} \e$B$H\e(B @var{end} \e$B$G0O$^$l$?NN0hCf$N\e(B encoded-word \e$B$r\e(B decode \e$B$7$^\e(B
-\e$B$9!#\e(B
-
-@var{unfolding} \e$B$,\e(B non-nil \e$B$N>l9g!"\e(Bfold \e$B$5$l$?\e(B field \e$B$r\e(B unfolding \e$B$7$^\e(B
-\e$B$9!#\e(B
-@end deffn
-
-
-@deffn{Function} mime-eword/decode-string str
-
-@var{str} \e$B$N\e(B encoded-word \e$B$r\e(B decode \e$B$7$^$9!#\e(B
-
-fold \e$B$5$l$?J8;zNs$O\e(B unfolding \e$B$5$l$^$9!#\e(B
-@end deffn
diff --git a/doc/tm-ew_en.texi b/doc/tm-ew_en.texi
deleted file mode 100644 (file)
index d3b5646..0000000
+++ /dev/null
@@ -1,55 +0,0 @@
-@c $Id: tm-ew_en.texi,v 1.1 1995/12/13 09:27:39 morioka Exp $
-
-@node encoded-word, customize, tm-view, Top
-@comment  node-name,  next,  previous,  up
-@chapter encoded-word
-@cindex encoded-word
-@cindex non-ASCII field
-@cindex message header
-
-tm has some functions about encoded-word defined in RFC 1522.
-
-@menu
-* encoded-word decoding:: decode
-* encoded-word encoding:: encode
-* encoded-word utility::
-@end menu
-
-
-@node encoded-word encoding, encoded-word utility, encoded-word, encoded-word
-@comment  node-name,  next,  previous,  up
-@section encoded-word encoding
-
-@deffn{Command} mime/encode-message-header
-
-It encodes non-ASCII characters in message header of current buffer.
-@end deffn
-
-
-@deffn{Function} mime/encode-field str
-
-It encodes @var{str} as a field.
-@end deffn
-
-
-@deffn{Function} mime-eword/encode-string str &optional column mode
-
-It encodes @var{str}.
-
-@var{column} specifies start column. Default value is 0.
-
-@var{mode} specifies where @var{str} is in. Available values are
-@code{text}, @code{comment}, @code{phrase}. Default value is
-@code{phrase}.
-@end deffn
-
-
-@node encoded-word utility,  , encoded-word encoding, encoded-word
-@comment  node-name,  next,  previous,  up
-@section encoded-word utility
-
-@deffn{Function} mime/exist-encoded-word-in-subject
-
-If there are encoded-words in Subject: field in current buffer,
-it returns field-body of the Subject: field.
-@end deffn
diff --git a/doc/tm-ew_ja.texi b/doc/tm-ew_ja.texi
deleted file mode 100644 (file)
index 35078bf..0000000
+++ /dev/null
@@ -1,58 +0,0 @@
-@c $Id: tm-ew_ja.texi,v 3.0 1995/12/13 09:19:12 morioka Exp $
-
-@node encoded-word, customize, tm-view, Top
-@comment  node-name,  next,  previous,  up
-@chapter encoded-word
-@cindex encoded-word
-@cindex non-ASCII field
-@cindex message header
-
-tm \e$B$O\e(B RFC 1522 \e$B$G5,Dj$5$l$?\e(B encoded-word \e$B$r07$&$?$a$N4X?t$r;}$C$F$$$^\e(B
-\e$B$9!#\e(B
-
-@menu
-* encoded-word decoding:: decode
-* encoded-word encoding:: encode
-* encoded-word utility::
-@end menu
-
-
-@node encoded-word encoding, encoded-word utility, encoded-word, encoded-word
-@comment  node-name,  next,  previous,  up
-@section encoded-word encoding
-
-@deffn{Command} mime/encode-message-header
-
-current buffer \e$B$N\e(B message header \e$BCf$NHs\e(B ASCII \e$BJ8;zNs$r\e(B encoded-word \e$B$H\e(B
-\e$B$7$F\e(B encode \e$B$7$^$9!#\e(B
-@end deffn
-
-
-@deffn{Function} mime/encode-field str
-
-@var{str} \e$B$r\e(B field \e$B$H$7$F\e(B encode \e$B$7$^$9!#\e(B
-@end deffn
-
-
-@deffn{Function} mime-eword/encode-string str &optional column mode
-
-@var{str} \e$B$r\e(B encoded-word \e$B$H$7$F\e(B encode \e$B$7$^$9!#\e(B
-
-@var{column} \e$B$O$3$NJ8;zNs$,2?7eL\$+$i;O$^$C$F$$$k$+$r;XDj$7$^$9!#4{Dj\e(B
-\e$BCM$O\e(B 0 \e$B$G$9!#\e(B
-
-@var{mode} \e$B$O$3$NJ8;zNs$,$I$&$$$&ItJ,$G;H$o$l$F$$$k$+$r<($7$^$9!#;XDj\e(B
-\e$B$G$-$kCM$H$7$F$O\e(B @code{text}, @code{comment}, @code{phrase} \e$B$,$"$j$^$9!#\e(B
-\e$B4{DjCM$O\e(B @code{phrase} \e$B$G$9!#\e(B
-@end deffn
-
-
-@node encoded-word utility,  , encoded-word encoding, encoded-word
-@comment  node-name,  next,  previous,  up
-@section encoded-word utility
-
-@deffn{Function} mime/exist-encoded-word-in-subject
-
-current buffer \e$B$N\e(B Subject: field \e$B$K\e(B encoded-word \e$B$,B8:_$9$k>l9g!"\e(B
-Subject: field \e$B$N\e(B field-body \e$B$rJV$7$^$9!#\e(B
-@end deffn
diff --git a/doc/tm-eword_ja.texi b/doc/tm-eword_ja.texi
deleted file mode 100644 (file)
index a25a9df..0000000
+++ /dev/null
@@ -1,261 +0,0 @@
-\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
diff --git a/doc/tm-head-jp.texi b/doc/tm-head-jp.texi
deleted file mode 100644 (file)
index 7b0c6a7..0000000
+++ /dev/null
@@ -1,212 +0,0 @@
-\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
diff --git a/doc/tm-jp.tex b/doc/tm-jp.tex
deleted file mode 100644 (file)
index aef5afe..0000000
+++ /dev/null
@@ -1,750 +0,0 @@
-\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}
diff --git a/doc/tm-jp.tex,v b/doc/tm-jp.tex,v
deleted file mode 100644 (file)
index fd7bd89..0000000
+++ /dev/null
@@ -1,1195 +0,0 @@
-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$}
-@
diff --git a/doc/tm-jp.texi b/doc/tm-jp.texi
deleted file mode 100644 (file)
index e2be40f..0000000
+++ /dev/null
@@ -1,334 +0,0 @@
-\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
diff --git a/doc/tm-util_en.texi b/doc/tm-util_en.texi
deleted file mode 100644 (file)
index c033309..0000000
+++ /dev/null
@@ -1,141 +0,0 @@
-@c $Id: tm-util_en.texi,v 1.1 1995/12/13 09:27:55 morioka Exp $
-
-@node customize, Bug report, encoded-word, Top
-@comment  node-name,  next,  previous,  up
-@chapter customize
-
-@menu
-* fields::
-* available functions::
-* example::
-@end menu
-
-@node fields, available functions, customize, customize
-@comment  node-name,  next,  previous,  up
-@section fields
-@cindex field-list
-@cindex field-regexp
-
-tm-view.el and tm-edit.el uses pair of @strong{field-list} and
-@strong{field-regexp} to display or choose fields of message header.
-
-tm has functions to set such pair.
-
-
-@defun tm:add-fields sym field-list &optional regexp-sym
-
-It adds @var{field-list} to field-list indicated by symbol @var{sym}.
-@end defun
-
-
-@defun tm:delete-fields sym field-list &optional regexp-sym
-
-It removes @var{field-list} from field-list indicated by symbol
-@var{sym}.
-@end defun
-
-
-@node available functions, example, fields, customize
-@comment  node-name,  next,  previous,  up
-@section available functions
-
-
-@defun add-path path &rest options
-
-It adds @var{path} to @code{load-path}.
-
-In default, it adds expanded path to top of @code{load-path} if there
-is @var{path} under @code{default-load-path}.
-
-If @code{'all-paths} is specified in @var{options}, it searches
-@var{path} from all of @code{load-path} instead of
-only @code{default-load-path}.
-
-If @code{'append} is specifies in @var{options}, it adds to end of
-@code{load-path}.
-@end defun
-
-
-@defun call-after-loaded module func &optional hook-name
-
-It calls function @var{func} if @var{module} is already provided.
-
-Otherwise, it add-hooks to @var{hook-name}.
-
-Default value of @var{hook-name} is @code{MODULE-load-hook}.
-@end defun
-
-
-@node example,  , available functions, customize
-@comment  node-name,  next,  previous,  up
-@section example
-
-@subsection message header display (1)
-
-If you want not to display "Mail-From", "Expires", "Xref", "Approved",
-"Sender" and "X-.*", please specify:
-
-@lisp
-(call-after-loaded
- 'tm-view
- (lambda ()
-   (tm:add-fields
-    'mime-viewer/ignored-field-list
-    '("Mail-From" "Expires" "Xref" "Approved" "Sender" "X-.*")
-     )))
-@end lisp
-
-@subsection message header display (2)
-
-If you want to display only "From", ".*To", "Subject", ".*Date" and
-"Newsgroups" , please specify:
-
-@lisp
-(setq mime-viewer/ignored-field-list '(".+"))
-(setq mime-viewer/visible-field-list
-      '("From" ".*To" "Subject" ".*Date" "Newsgroups"))
-@end lisp
-
-
-@subsection hilit19
-
-example to add faces using hilit19.
-
-@lisp
-(cond (window-system
-       (let* ((header-patterns '(("^Subject:.*$" nil msg-subject)
-                                ("^From:.*$" nil msg-from)
-                                ("^--text follows this line--$"
-                                 nil msg-separator)
-                                ("^[A-Za-z][A-Za-z0-9-]+:" nil msg-header)
-                                ))
-             (body-patterns '(("^\\(In article\\|[ \t]*\\w*[]<>@}|]\\).*$"
-                               nil msg-quote)))
-             (message-patterns (append header-patterns body-patterns))
-             )
-        (hilit-set-mode-patterns 'msg-header header-patterns)
-        (hilit-set-mode-patterns 'msg-body body-patterns)
-        (hilit-set-mode-patterns 'mime/viewer-mode
-                                 message-patterns
-                                 'hilit-rehighlight-message)
-        )
-       (add-hook 'mime-viewer/content-header-filter-hook
-                (function hilit-rehighlight-buffer-quietly))
-       (add-hook 'mime-viewer/plain-text-preview-hook
-                (function hilit-rehighlight-buffer-quietly))
-       ))
-@end lisp
-
-
-@subsection browse-url
-
-setting example for browse-url.el included in Gnus.
-
-@lisp
-(setq browse-url-browser-function
-      (if (eq window-system 'x)
-         'browse-url-netscape
-       'browse-url-w3))
-(autoload browse-url-browser-function "browse-url"
-  "Ask a WWW browser to show a URL." t)
-@end lisp
diff --git a/doc/tm-util_ja.texi b/doc/tm-util_ja.texi
deleted file mode 100644 (file)
index b8a38f4..0000000
+++ /dev/null
@@ -1,138 +0,0 @@
-@c $Id: tm-util_ja.texi,v 1.2 1995/12/13 06:45:14 morioka Exp $
-
-@node customize, Bug report, encoded-word, Top
-@comment  node-name,  next,  previous,  up
-@chapter tm \e$B$N\e(B customize
-
-tm \e$B$N\e(B customize \e$B$K$D$$$F@bL@$7$^$9!#\e(B
-
-@menu
-* fields::
-* available functions::
-* example::
-@end menu
-
-@node fields, available functions, customize, customize
-@comment  node-name,  next,  previous,  up
-@section fields
-@cindex field-list
-@cindex field-regexp
-
-tm-view.el \e$B$d\e(B tm-edit.el \e$B$G$O\e(B message header field \e$B$NI=<(!&A*Br$K\e(B 
-@strong{field-list} \e$B$H\e(B @strong{field-regexp} \e$B$H$$$&BP$rMQ$$$^$9!#\e(B
-
-\e$B$3$3$G$O$3$NBP$rA`:n$9$k$?$a$N4X?t$r>R2p$7$^$9!#\e(B
-
-
-@defun tm:add-fields sym field-list &optional regexp-sym
-
-symbol @var{sym} \e$B$G;X$5$l$?\e(B field-list \e$B$K\e(B @var{field-list} \e$B$rDI2C$7$^\e(B
-\e$B$9!#\e(B
-@end defun
-
-
-@defun tm:delete-fields sym field-list &optional regexp-sym
-
-symbol @var{sym} \e$B$G;X$5$l$?\e(B field-list \e$B$+$i\e(B @var{field-list} \e$B$r:o=|$7\e(B
-\e$B$^$9!#\e(B
-@end defun
-
-
-@node available functions, example, fields, customize
-@comment  node-name,  next,  previous,  up
-@section \e$BM-MQ$J4X?t\e(B
-
-tm \e$B$N@_Dj$KM-MQ$J4X?t$r>R2p$7$^$9!#\e(B
-
-
-@defun add-path path &rest options
-
-@code{load-path} \e$B$K\e(B @var{path} \e$B$rDI2C$7$^$9!#\e(B
-
-\e$BI8=`$G$O\e(B @code{default-load-path} \e$B$ND>2<$N$I$3$+$K\e(B @var{path} \e$B$,B8:_$7\e(B
-\e$B$F$$$k;~$N$_!"\e(B@code{load-path} \e$B$N@hF,$KE83+$7$?7A$GDI2C$7$^$9!#\e(B
-
-@var{options} \e$B$K\e(B @code{'all-paths} \e$B$,B8:_$9$k>l9g!"\e(B@code{load-path} \e$BA4\e(B
-\e$BBN$+$i\e(B @var{path} \e$B$rC5:w$7$^$9!#\e(B
-
-@var{options} \e$B$K\e(B @code{'append} \e$B$,B8:_$9$k>l9g!"\e(B@code{load-path} \e$B$NKv\e(B
-\e$BHx$KDI2C$7$^$9!#\e(B
-@end defun
-
-
-@defun call-after-loaded module func &optional hook-name
-
-@var{module} \e$B$,\e(B provide \e$B$5$l$F$$$l$P\e(B @var{func} \e$B$r$9$0$K8F$S!"$=$&$G$J\e(B
-\e$B$1$l$P!"\e(B@var{module} \e$B$,\e(B load \e$B$5$l$?;~$K\e(B @var{func} \e$B$,8F$P$l$k$h$&$K!"\e(B
-@var{hook-name} \e$B$K\e(B add-hook \e$B$7$^$9!#\e(B
-
-@var{hook-name} \e$B$,>JN,$5$l$?>l9g!"\e(B@code{MODULE-load-hook} \e$B$,MQ$$$i$l$^\e(B
-\e$B$9!#\e(B
-@end defun
-
-
-@node example,  , available functions, customize
-@comment  node-name,  next,  previous,  up
-@section example
-
-tm \e$B$N\e(B customize \e$B$NNc$r<($7$^$9!#\e(B
-
-
-@subsection preview-buffer \e$B$GI=<($5$l$k\e(B field \e$B$NJQ99\e(B
-
-\e$BI8=`@_Dj$K2C$(!"\e(B"Mail-From", "Expires", "Xref", "Approved", "Sender",
-"X-.*" \e$B$bI=<($7$J$$$h$&$K$7$^$9!#\e(B
-
-@lisp
-(call-after-loaded
- 'tm-view
- (lambda ()
-   (tm:add-fields
-    'mime-viewer/ignored-field-list
-    '("Mail-From" "Expires" "Xref" "Approved" "Sender" "X-.*")
-     )))
-@end lisp
-
-
-@subsection hilit19
-
-hilit19 \e$B$r;H$C$?\e(B face \e$B$N@_DjNc\e(B
-
-@lisp
-(cond (window-system
-       (let* ((header-patterns '(("^Subject:.*$" nil msg-subject)
-                                ("^From:.*$" nil msg-from)
-                                ("^--text follows this line--$"
-                                 nil msg-separator)
-                                ("^[A-Za-z][A-Za-z0-9-]+:" nil msg-header)
-                                ))
-             (body-patterns '(("^\\(In article\\|[ \t]*\\w*[]<>}|]\\).*$"
-                               nil msg-quote)))
-             (message-patterns (append header-patterns body-patterns))
-             )
-        (hilit-set-mode-patterns 'msg-header header-patterns)
-        (hilit-set-mode-patterns 'msg-body body-patterns)
-        (hilit-set-mode-patterns 'mime/viewer-mode
-                                 message-patterns
-                                 'hilit-rehighlight-message)
-        )
-       (add-hook 'mime-viewer/content-header-filter-hook
-                (function hilit-rehighlight-buffer-quietly))
-       (add-hook 'mime-viewer/plain-text-preview-hook
-                (function hilit-rehighlight-buffer-quietly))
-       ))
-@end lisp
-
-
-@subsection browse-url
-
-Gnus \e$BIUB0$N\e(B browse-url.el \e$B$N@_DjNc\e(B
-
-@lisp
-(setq browse-url-browser-function
-      (if (eq window-system 'x)
-         'browse-url-netscape
-       'browse-url-w3))
-(autoload browse-url-browser-function "browse-url"
-  "Ask a WWW browser to show a URL." t)
-@end lisp
diff --git a/doc/tm-view-a_en.texi b/doc/tm-view-a_en.texi
deleted file mode 100644 (file)
index 80335fb..0000000
+++ /dev/null
@@ -1,86 +0,0 @@
-@c $Id: tm-view-a_en.texi,v 1.1 1995/12/13 09:28:10 morioka Exp $
-
-@node article-buffer, preview-buffer, Functions of tm-view, Mechanism of tm-view
-@comment  node-name,  next,  previous,  up
-@subsection article-buffer
-
-@defvr{Structure} mime::content-info rcnum point-min point-max type parameters encoding children
-
-structure to represent MIME content in article-buffer. It is called by
-@strong{content-info}.
-
-@table @var
-@item rcnum
-@strong{reversed content-number} (list)
-
-@item point-min
-region beginning point in article-buffer
-
-@item point-max
-region end point in article-buffer
-
-@item type
-content-type/sub-type (string or nil)
-
-@item parameters
-parameter of Content-Type field (association list)
-
-@item encoding
-Content-Transfer-Encoding (string or nil)
-
-@item children
-list of content-info included in this content
-@end table
-
-Please use reference function `@code{mime::content-info/SLOT-NAME}' to 
-reference slot of content-info. Their argument is only content-info.
-
-@end defvr
-
-
-@defvar mime::article/content-info
-
-result of MIME parsing of article-buffer (content-info)
-@end defvar
-
-
-@defvar mime::article/preview-buffer
-
-preview-buffer corresponded by this buffer
-@end defvar
-
-
-@defun mime-article/point-content-number point &optional cinfo
-
-In a region managed by content-info @var{cinfo}, it returns
-content-number corresponded by @var{point}.
-
-Default value of @var{cinfo} is @code{mime::article/content-info}.
-@end defun
-
-
-@defun mime-article/rcnum-to-cinfo rcnum &optional cinfo
-
-In a region managed by content-info @var{cinfo}, it returns
-content-info corresponded by reversed-content-number @var{rcnum}.
-
-Default value of @var{cinfo} is @code{mime::article/content-info}.
-@end defun
-
-
-@defun mime-article/cnum-to-cinfo rcnum &optional cinfo
-
-In a region managed by content-info @var{cinfo}, it returns
-content-info corresponded by content-number @var{cnum}.
-
-Default value of @var{cinfo} is @code{mime::article/content-info}.
-@end defun
-
-
-@defun mime/flatten-content-info &optional cinfo
-
-It returns flatten list of content-info from content-info @var{cinfo}
-tree.
-
-Default value of @var{cinfo} is @code{mime::article/content-info}.
-@end defun
diff --git a/doc/tm-view-a_ja.texi b/doc/tm-view-a_ja.texi
deleted file mode 100644 (file)
index e314332..0000000
+++ /dev/null
@@ -1,94 +0,0 @@
-@c $Id: tm-view-a_ja.texi,v 1.1 1995/12/11 08:37:52 morioka Exp $
-
-@node article-buffer, preview-buffer, Functions of tm-view, Mechanism of tm-view
-@comment  node-name,  next,  previous,  up
-@subsection article-buffer
-
-@defvr{Structure} mime::content-info rcnum point-min point-max type parameters encoding children
-
-article-buffer \e$B$G\e(B MIME content \e$B$K4X$9$k>pJs$r3JG<$9$k$?$a$N9=B$BN!#C1\e(B
-\e$B$K\e(B @strong{content-info} \e$B$H$b8F$V!#\e(B
-
-@table @var
-@item rcnum
-@strong{reversed content-number} (list)
-
-@item point-min
-article-buffer \e$B$K$*$1$k@hF,\e(B point
-
-@item point-max
-article-buffer \e$B$K$*$1$kKvHx\e(B point
-
-@item type
-content-type/sub-type\e$B!JJ8;zNs!"$^$?$O!"\e(Bnil\e$B!K\e(B
-
-@item parameters
-Content-Type field \e$B$N\e(B parameter \e$B!JO"A[\e(B list\e$B!K\e(B
-
-@item encoding
-Content-Transfer-Encoding\e$B!JJ8;zNs!"$^$?$O!"\e(Bnil\e$B!K\e(B
-
-@item children
-\e$B$3$N\e(B content \e$B$K4^$^$l$k\e(B contents\e$B!J\e(Bcontent-info \e$B$N\e(B list\e$B!K\e(B
-@end table
-
-\e$B$"$k\e(B content \e$B$,\e(B multipart \e$B$b$7$/$O\e(B message/rfc822 \e$B$J$I$NJL$N\e(B content 
-\e$B$r4^$`$h$&$J\e(B content \e$B$G$"$C$?>l9g!"\e(B@var{children} \e$B$KJL$N\e(B content \e$B$N\e(B 
-content-info \e$B$,4^$^$l$k;v$K$h$C$F!"\e(Bcontent-info \e$B$OLZ9=B$$K$J$k!#\e(B
-
-\e$B$3$N9=B$BN$r;2>H$9$k$K$O!"\e(B@code{mime::content-info/\e$B%9%m%C%HL>\e(B} \e$B$H$$$&\e(B
-content-info \e$B$r0z?t$K$H$k4X?t$rMQ$$$k!#\e(B
-
-@end defvr
-
-
-@defvar mime::article/content-info
-
-article-buffer \e$B$r\e(B MIME message \e$B$H$7$F2r@O$7$?7k2L\e(B (content-info)
-@end defvar
-
-
-@defvar mime::article/preview-buffer
-
-article-buffer \e$B$KBP1~$9$k\e(B preview-buffer.
-@end defvar
-
-
-@defun mime-article/point-content-number point &optional cinfo
-
-content-info @var{cinfo} \e$B$G4IM}$5$l$kNN0h$K$*$$$F!"\e(B@var{point} \e$B$KBP1~\e(B
-\e$B$9$k\e(B content-number \e$B$rJV$9!#\e(B
-
-@var{cinfo} \e$B$,>JN,$5$l$?>l9g$O!"\e(B@code{mime::article/content-info} \e$B$,MQ\e(B
-\e$B$$$i$l$k!#\e(B
-@end defun
-
-
-@defun mime-article/rcnum-to-cinfo rcnum &optional cinfo
-
-content-info @var{cinfo} \e$B$G4IM}$5$l$kNN0h$K$*$$$F!"\e(B
-reversed-content-number @var{rcnum} \e$B$KBP1~$9$k\e(B content-info \e$B$rJV$9!#\e(B
-
-@var{cinfo} \e$B$,>JN,$5$l$?>l9g$O!"\e(B@code{mime::article/content-info} \e$B$,MQ\e(B
-\e$B$$$i$l$k!#\e(B
-@end defun
-
-
-@defun mime-article/cnum-to-cinfo rcnum &optional cinfo
-
-content-info @var{cinfo} \e$B$G4IM}$5$l$kNN0h$K$*$$$F!"\e(Bcontent-number
-@var{rcnum} \e$B$KBP1~$9$k\e(B content-info \e$B$rJV$9!#\e(B
-
-@var{cinfo} \e$B$,>JN,$5$l$?>l9g$O!"\e(B@code{mime::article/content-info} \e$B$,MQ\e(B
-\e$B$$$i$l$k!#\e(B
-@end defun
-
-
-@defun mime/flatten-content-info &optional cinfo
-
-content-info @var{cinfo} \e$BCf$KG<$a$i$l$?A4\e(B contents \e$B$N\e(B content-info \e$B$N\e(B 
-list \e$B$rJV$9!#\e(B
-
-@var{cinfo} \e$B$,>JN,$5$l$?>l9g$O!"\e(B@code{mime::article/content-info} \e$B$,MQ\e(B
-\e$B$$$i$l$k!#\e(B
-@end defun
diff --git a/doc/tm-view-cb_en.texi b/doc/tm-view-cb_en.texi
deleted file mode 100644 (file)
index 5fda349..0000000
+++ /dev/null
@@ -1,57 +0,0 @@
-@c $Id: tm-view-cb_en.texi,v 1.1 1995/12/13 09:28:29 morioka Exp $
-
-@node content-body, content-separator, content-header, MIME display
-@comment  node-name,  next,  previous,  up
-@subsubsection content-body
-@cindex content-body
-
-Content-body represents content of the message. tm-view does not
-display raw content body. For example, if a content has binary, it is
-hidden. If a content has richtext, it is formated. Namely content body
-is hidden or formated.
-
-Function @code{mime-viewer/body-visible-p} is a judge function whether
-content-body of a content is displayed. If it returns @code{nil},
-content-body is hidden. In default, it returns non-@code{nil} when
-content-type of a content is a member of variable
-@code{mime-viewer/default-showing-Content-Type-list}.
-
-When content-body of a content is displayed, content-body is formated
-by content-filter. Content-filter is searched from variable
-@code{mime-viewer/content-filter-alist}. At this time, major-mode of
-the article buffer is used as the key.
-
-If it is not found, function @code{mime-viewer/default-content-filter}
-is called.
-
-
-@defvar mime-viewer/default-showing-Content-Type-list
-
-List of content-type. If content-type of a content is a member of this
-variable, its body is displayed.
-@end defvar
-
-
-@deffn{Function} mime-viewer/body-visible-p rcnum cinfo &optional ctype
-
-Return non-@code{nil}, if content-type of a content is displayed.
-@var{rcnum} is reversed-content-number of a content. @var{cinfo} is
-content-info of the message. If you know content-type of a content,
-you can specify it as argument @var{ctype}.
-@end deffn
-
-
-@defvar mime-viewer/content-filter-alist
-
-Association-list whose key is major-mode of a article buffer, value is
-content-filter.
-@end defvar
-
-
-@deffn{Function} mime-viewer/default-content-filter rcnum cinfo ctype params subj
-
-It is called when content-body of a content should be displayed and
-content-filter is not found in @code{mime-viewer/content-filter-alist}.
-
-In default, it does nothing.
-@end deffn
diff --git a/doc/tm-view-cb_ja.texi b/doc/tm-view-cb_ja.texi
deleted file mode 100644 (file)
index 7300b03..0000000
+++ /dev/null
@@ -1,50 +0,0 @@
-@c $Id: tm-view-cb_ja.texi,v 1.1 1995/12/11 08:37:18 morioka Exp $
-
-@node content-body, content-separator, content-header, MIME display
-@comment  node-name,  next,  previous,  up
-@subsubsection content-body
-@cindex content-body
-
-\e$B$"$k\e(B content \e$B$N\e(B content-body \e$B$rI=<($9$k$+$I$&$+$O!"4X?t\e(B 
-@code{mime-viewer/body-visible-p} \e$B$,\e(B @code{t} \e$B$K$J$k$+$I$&$+$G7h$^$j$^\e(B
-\e$B$9!#I8=`$G$O!"$"$k\e(B content \e$B$N\e(B content-type \e$B$,JQ?t\e(B 
-@code{mime-viewer/default-showing-Content-Type-list} \e$B$K@_Dj$5$l$F$$$k\e(B
-\e$B;~$KI=<($5$l$^$9!#\e(B
-
-\e$B$"$k\e(B content \e$B$N\e(B content-body \e$B$,I=<($5$l$k;~!"\e(Bpreview buffer \e$B$K$O\e(B 
-content-body \e$B$r\e(B content-filter \e$B$K$h$C$F@07A$5$l$?$b$N$,I=<($5$l$^$9!#\e(B
-\e$B8F$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$F\e(B
-\e$BJQ?t\e(B @code{mime-viewer/content-filter-alist} \e$B$+$iC5$5$l$^$9!#$b$7!"$3\e(B
-\e$B$NJQ?t$KEPO?$5$l$F$$$J$+$C$?>l9g!"4X?t\e(B 
-@code{mime-viewer/default-content-filter} \e$B$,8F$P$l$^$9!#\e(B
-
-
-@defvar mime-viewer/default-showing-Content-Type-list
-
-\e$BI=<($9$Y$-\e(B content-type \e$B$rMWAG$H$9$k\e(B list.
-@end defvar
-
-
-@deffn{Function} mime-viewer/body-visible-p rcnum cinfo &optional ctype
-
-reversed-content-number \e$B$,\e(B @var{rcnum} \e$B$G$"$k\e(B content \e$B$,I=<($5$l$k>l9g!"\e(B
-@code{t} \e$B$rJV$9!#$=$N\e(B content \e$B$N\e(B content-type \e$B$,$"$i$+$8$a$o$+$C$F$$$k\e(B
-\e$B>l9g!"\e(B@var{ctype} \e$B$K0z?t$H$7$FEO$9$3$H$,$G$-$k!#\e(B
-@end deffn
-
-
-@defvar mime-viewer/content-filter-alist
-
-article buffer \e$B$N\e(B major-mode \e$B$r\e(B key \e$B$H$7$?O"A[%j%9%H$G!"CMIt$K$O\e(B 
-content-filter \e$B$,F~$C$F$$$k!#\e(B
-@end defvar
-
-
-@deffn{Function} mime-viewer/default-content-filter rcnum cinfo ctype params subj
-
-\e$B$"$k\e(B content \e$B$N\e(B content-body \e$B$rI=<($9$Y$-;~!"JQ?t\e(B 
-@code{mime-viewer/content-filter-alist} \e$B$NCf$K\e(B content-filter \e$B$,8+$D$+\e(B
-\e$B$i$J$+$C$?>l9g$K8F$S=P$5$l$k!#\e(B
-
-\e$BI8=`$G$O2?$b$7$J$$!#\e(B
-@end deffn
diff --git a/doc/tm-view-ch_en.texi b/doc/tm-view-ch_en.texi
deleted file mode 100644 (file)
index 87e6a0a..0000000
+++ /dev/null
@@ -1,68 +0,0 @@
-@c $Id: tm-view-ch_en.texi,v 1.1 1995/12/13 09:28:43 morioka Exp $
-
-@node content-header, content-body, content-subject, MIME display
-@comment  node-name,  next,  previous,  up
-@subsubsection content-header
-@cindex content-header
-
-A content header shows the header portion of a content in the preview
-buffer.
-
-When the function @code{mime-viewer/header-visible-p} returns @code{t}
-for content-number of a content, content-header is displayed. This
-judge function returns @code{t} when a content is root or content-type
-of its parent is a member of the variable
-@code{mime-viewer/childrens-header-showing-Content-Type-list}.
-
-If you want to change this condition, please redefine it.
-
-When content-header is displayed, content-header are formated by
-content-header-filter. Content-header-filter is searched from variable
-@code{mime-viewer/content-header-filter-alist}. Its key is major-mode
-of the article buffer. If not found, function
-@code{mime-viewer/default-content-header-filter} is called.
-
-
-@defvar mime-viewer/childrens-header-showing-Content-Type-list
-
-List of content-type. If content-type of parent of a content is a
-member of this variable, its content-header is displayed. Default
-value is "message/rfc822".
-
-This variable is referred by the function
-@code{mime-viewer/header-visible-p}.
-@end defvar
-
-
-@deffn{Function} mime-viewer/header-visible-p rcnum cinfo &optional ctype
-
-Returns @code{t} if a content is displayed.
-
-@var{cnum} is content-number. @var{cinfo} is content-info. If you know 
-content-type, you can specify by @var{ctype}.
-@end deffn
-
-
-@defvar mime-viewer/content-header-filter-alist
-
-Association-list whose key is major-mode of a article buffer, value is
-content-header-filter.
-@end defvar
-
-
-@deffn{Function} mime-viewer/default-content-header-filter
-
-It is called when content-header-filter is not found in variable
-@code{mime-viewer/content-header-filter-alist}.
-@end deffn
-
-
-@defvar mime-viewer/ignored-field-list
-
-List of regular expression to represent invisible fields.
-
-Variable @code{mime-viewer/ignored-field-regexp} is created from it.
-
-Please use function @code{tm:add-fields} or @code{tm:delete-fields} to 
-set it.
-@end defvar
diff --git a/doc/tm-view-ch_ja.texi b/doc/tm-view-ch_ja.texi
deleted file mode 100644 (file)
index 757e100..0000000
+++ /dev/null
@@ -1,72 +0,0 @@
-@c $Id: tm-view-ch_ja.texi,v 1.1 1995/12/11 08:36:37 morioka Exp $
-
-@node content-header, content-body, content-subject, MIME display
-@comment  node-name,  next,  previous,  up
-@subsubsection content-header
-@cindex content-header
-
-\e$B$"$k\e(B content \e$B$N\e(B reversed-content-number \e$B$r4X?t\e(B 
-@code{mime-viewer/header-visible-p} \e$B$KF~NO$7$F$=$NJV$jCM$,\e(B @code{t} \e$B$K\e(B
-\e$B$J$k>l9g!"$=$N\e(B content \e$B$N\e(B content-header \e$B$,I=<($5$l$^$9!#$3$NH=Dj4X?t\e(B
-\e$B$O!"0lHV>e$N\e(B content \e$B$G$J$/!"$=$N\e(B content \e$B$N?F$N\e(B content-type \e$B$,JQ?t\e(B 
-@code{mime-viewer/childrens-header-showing-Content-Type-list} \e$B$G;XDj$5\e(B
-\e$B$l$F$$$k>l9g$K\e(B @code{t} \e$B$rJV$7$^$9!#\e(B
-
-\e$B$3$N>r7o$rJQ$($?$$>l9g$O!"$3$N4X?t$r:FDj5A$7$F2<$5$$!#C"$7!"I8=`$G$O!"\e(B
-\e$BJQ?t\e(B @code{mime-viewer/childrens-header-showing-Content-Type-list} \e$B$r\e(B
-\e$B;2>H$7$^$9$,!":FDj5A$7$?>l9g!"$3$NJQ?t$NM-8z@-$OJ]>Z$5$l$J$$$N$GCm0U$7\e(B
-\e$B$F2<$5$$!#\e(B
-
-content-header \e$B$,I=<($5$l$k>l9g!"\e(Bcontent-header \e$B$O\e(B 
-content-header-filter \e$B$K$h$C$F@07A$5$l$^$9!#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\e(B
-\e$B?t\e(B @code{mime-viewer/content-header-filter-alist} \e$B$+$iC5$5$l$^$9!#$b$7!"\e(B
-content-header-filter \e$B$,8+$D$+$i$J$+$C$?>l9g!"4X?t\e(B 
-@code{mime-viewer/default-content-header-filter} \e$B$,8F$P$l$^$9!#\e(B
-
-
-@defvar mime-viewer/childrens-header-showing-Content-Type-list
-
-\e$B$"$k\e(B content \e$B$N;R$KEv$?$k\e(B content \e$B$N\e(B content-header \e$B$rI=<($9$Y$-\e(B 
-Content-Type \e$B$r<}$a$?\e(B list. \e$B4{DjCM$O\e(B "message/rfc822" \e$B$G$"$k!#\e(B
-
-\e$B$3$NJQ?t$O4X?t\e(B @code{mime-viewer/header-visible-p} \e$B$K$h$C$F;2>H$5$l$k!#\e(B
-@end defvar
-
-
-@deffn{Function} mime-viewer/header-visible-p rcnum cinfo &optional ctype
-
-content-info @var{cinfo} \e$BCf$N\e(B reversed-content-number \e$B$,\e(B @var{rcnum} 
-\e$B$G$"$k\e(B content \e$B$N\e(B header \e$B$,I=<($5$l$k>l9g!"\e(Bt \e$B$rJV$9!#$=$N\e(B content \e$B$N\e(B 
-content-type \e$B$,$"$i$+$8$a$o$+$C$F$$$k>l9g!"\e(B@var{ctype} \e$B$K0z?t$H$7$FEO\e(B
-\e$B$9$3$H$,$G$-$k!#\e(B
-@end deffn
-
-
-@defvar mime-viewer/content-header-filter-alist
-
-article-buffer \e$B$N\e(B major-mode \e$B$r\e(B key \e$B$H$7$?O"A[%j%9%H$G!"CMIt$K$O\e(B 
-content-header-filter \e$B$,F~$C$F$$$k!#\e(B
-@end defvar
-
-
-@deffn{Function} mime-viewer/default-content-header-filter
-
-\e$B$"$k\e(B content \e$B$N\e(B content-header \e$B$rI=<($9$Y$-;~!"JQ?t\e(B 
-@code{mime-viewer/content-header-filter-alist} \e$B$NCf$K\e(B 
-content-header-filter \e$B$,8+$D$+$i$J$+$C$?>l9g$K8F$S=P$5$l$k!#\e(B
-
-\e$BJQ?t\e(B @code{mime-viewer/ignored-field-regexp} \e$B$r;2>H$9$k!#\e(B
-@end deffn
-
-
-@defvar mime-viewer/ignored-field-list
-
-content-header \e$B$rI=<($9$k;~$K!"I=<($7$J$$\e(B field \e$B$r;XDj$9$k!#\e(B
-
-\e$B@55,I=8=$N\e(B list \e$B$K$J$C$F$*$j!"$3$NCM$r85$KJQ?t\e(B 
-@code{mime-viewer/ignored-field-regexp} \e$B$,:n$i$l$k!#\e(B
-
-\e$B$3$NJQ?t$OD>@\A`:n$;$:!"4X?t\e(B @code{tm:add-fields} \e$B$d\e(B 
-@code{tm:delete-fields} \e$B$r;H$C$FA`:n$9$k!#\e(B
-@end defvar
diff --git a/doc/tm-view-cs_en.texi b/doc/tm-view-cs_en.texi
deleted file mode 100644 (file)
index 7918e2f..0000000
+++ /dev/null
@@ -1,66 +0,0 @@
-@c $Id: tm-view-cs_en.texi,v 1.1 1995/12/13 09:29:00 morioka Exp $
-
-@node content-subject, content-header, MIME display, MIME display
-@comment  node-name,  next,  previous,  up
-@subsubsection content-subject
-@cindex content-subject
-
-content-subject is a part to display abstract for the content. It is
-placed in top of content.
-
-In default, it is displayed following design:
-
-@example
-        [1.3 test (text/plain)]
-@end example
-
-First number field represents position of a content in the message. It
-is called `content-number'. It can be considered as the chapter number
-in the message.
-
-Second string part represents title. It is created by following:
-
-@itemize @bullet
-@item name paramater or x-name parameter in Content-Type field
-@item Content-Description field or Subject field
-@item filename of uuencode
-@end itemize
-
-If they are not exists, space is displayed.
-
-Third parenthesis part represents content-type/subtype of the content. 
-If it is non-MIME part, @code{nil} is displayed.
-
-Content-subject is used like icon when content-header and content-body
-are hidden. For example,
-
-@example
-        [2  (image/gif)]
-@end example
-
-if you press `v' key, GIF image is displayed.
-
-
-@defvr{Variable} mime-viewer/content-subject-omitting-Content-Type-list
-
-List of content-type. If content-type of a content is a member of this
-list, its content-subject is not displayed.
-
-This variable is referenced by function
-@code{mime-viewer/default-content-subject-function}.
-@end defvr
-
-
-@deffn{Function} mime-viewer/default-content-subject-function rcnum cinfo ctype params subj
-
-Default value of the variable
-@code{mime-viewer/content-subject-function}.  It refers variable
-@code{mime-viewer/content-subject-omitting-Content-Type-list}.
-@end deffn
-
-
-@defvar mime-viewer/content-subject-function rcnum cinfo ctype params subj
-
-Variable to specify content-subject display function. Default value is
-the function @code{mime-viewer/default-content-subject-function}.
-@end defvar
diff --git a/doc/tm-view-cs_ja.texi b/doc/tm-view-cs_ja.texi
deleted file mode 100644 (file)
index 8aa39e9..0000000
+++ /dev/null
@@ -1,70 +0,0 @@
-@c $Id: tm-view-cs_ja.texi,v 1.1 1995/12/11 08:35:59 morioka Exp $
-
-@node content-subject, content-header, MIME display, MIME display
-@comment  node-name,  next,  previous,  up
-@subsubsection content-subject
-@cindex content-subject
-
-content-subject \e$B$O\e(B content \e$B$N@hF,$K$"$C$F!"$=$N\e(B content \e$B$K4X$9$kBg$^$+\e(B
-\e$B$J>pJs$rI=<($9$kItJ,$G$9!#\e(B
-
-\e$BI8=`$G$O\e(B
-
-@example
-        [1.3 test (text/plain)]
-@end example
-
-\e$B$N$h$&$J46$8$KI=<($5$l$^$9!#\e(B
-
-\e$B:G=i$N?t;z$O\e(B message \e$BCf$N$3$N\e(B content \e$B$N0LCV$r@aHV9f$N$h$&$KI=$7$?$b$N\e(B
-\e$B$G!"\e(Bcontent-number \e$B$H8F$S$^$9!#\e(B
-
-\e$B#2HVL\$NJ8;zNs$OI=Bj$rI=$7$^$9!#$3$N>pJs$O!"\e(B
-
-@itemize @bullet
-@item Content-Type field \e$B$N\e(B name paramater \e$B$b$7$/$O\e(B x-name parameter 
-\e$B$K=q$+$l$?\e(B file \e$BL>\e(B
-@item Content-Description field \e$B$b$7$/$O\e(B Subject field \e$B$K=q$+$l$?I=Bj\e(B
-@item uuencode \e$B$N>l9g$N\e(B file \e$BL>\e(B
-@end itemize
-
-\e$B$+$i:n$j$^$9!#$I$l$bB8:_$7$J$$>l9g$O6uGr$,I=<($5$l$^$9!#\e(B
-
-\e$B#3HVL\$N3g8L$NCf$N>pJs$O$=$N\e(B content \e$B$N\e(B content-type/subtype \e$B$rI=$7$^\e(B
-\e$B$9!#Hs\e(B MIME part \e$B$N>l9g!"\e(B@code{nil} \e$B$,I=<($5$l$^$9!#\e(B
-
-\e$B$3$N\e(B content-subject \e$B$O\e(B content-header, content-body \e$B$rI=<($7$J$$>l9g!"\e(B
-icon \e$B$N$h$&$JLr3d$r2L$?$7$^$9!#Nc$($P!"\e(B
-
-@example
-        [2  (image/gif)]
-@end example
-
-\e$B$N>e$G\e(B `v' \e$B$r2!$;$P$3$3$KF~$C$F$$$k3($,I=<($5$l$^$9!#\e(B
-
-
-@defvr{Variable} mime-viewer/content-subject-omitting-Content-Type-list
-
-\e$BI=<($7$J$$\e(B Content-Type \e$B$rMWAG$H$9$k\e(B list. \e$B4X?t\e(B 
-@code{mime-viewer/default-content-subject-function} \e$B$K$h$C$F;2>H$5$l$k!#\e(B
-@end defvr
-
-
-@deffn{Function} mime-viewer/default-content-subject-function rcnum cinfo ctype params subj
-
-\e$BI8=`$N\e(B content-subject \e$BI=<(4X?t!#JQ?t\e(B 
-@code{mime-viewer/content-subject-omitting-Content-Type-list} \e$B$r;2>H$7\e(B
-\e$B$F$$$k!#\e(B
-@end deffn
-
-
-@defvar mime-viewer/content-subject-function rcnum cinfo ctype params subj
-
-content-subject \e$BI=<(4X?t$r@_Dj$9$k$?$a$NJQ?t!#4{DjCM$O4X?t\e(B 
-@code{mime-viewer/default-content-subject-function} \e$B$G$"$k!#\e(B
-
-\e$B$3$NJQ?t$K!"4X?t\e(B @code{mime-viewer/default-content-subject-function} 
-\e$B0J30$N4X?t$r@_Dj$7$?>l9g!"JQ?t\e(B 
-@code{mime-viewer/content-subject-omitting-Content-Type-list} \e$B$NM-8z@-\e(B
-\e$B$OJ]>Z$5$l$J$$$N$GCm0U$9$k$3$H!#\e(B
-@end defvar
diff --git a/doc/tm-view-m_en.texi b/doc/tm-view-m_en.texi
deleted file mode 100644 (file)
index 3311659..0000000
+++ /dev/null
@@ -1,261 +0,0 @@
-@c $Id: tm-view-m_en.texi,v 1.1 1995/12/13 09:29:24 morioka Exp $
-
-@node method,  , preview-buffer, Mechanism of tm-view
-@comment  node-name,  next,  previous,  up
-@subsection method
-@cindex method
-
-In @code{mime/viewer-mode}, you can do play (@key{v}), extract
-(@key{e}), or print (@key{C-c C-p}) for each content. These operations
-are called ``decoding operation(s) (for a content)''. And kind of
-decoding operations are called @strong{decoding-mode}.
-
-When decoding operation is driven, tm-view calls a procedure matched
-for the condition, such as content-type. This procedure is called
-@strong{method}.
-
-There are two kinds of method. One is Emacs Lisp function, called
-@strong{internal method}. Another one is external program, called
-@strong{external method}.
-
-Internal method operates in Emacs, so it can do carefully.
-
-External method is called as asynchronous process, so Emacs does not
-wait while method is running. So it is good for big data, such as
-audio, image or video.
-
-@menu
-* decoding-condition:: Setting of content decoding condition.
-* Format of method value:: Format of method value part.
-* Example of decoding-condition:: Examples of decoding-condition.
-@end menu
-
-
-@node decoding-condition, Format of method value, method, method
-@comment  node-name,  next,  previous,  up
-@section Setting of content decoding condition
-@cindex content decoding condition
-
-When decoding operation is driven, tm-view calls a method matched for
-the condition searched from the variable
-@code{mime/content-decoding-condition}.
-
-Variable @code{mime/content-decoding-condition} is defined as a list
-with the following syntax:
-
-@lisp
-        (condition1 condition2 ...)
-@end lisp
-
-Each condition are association-list with the following syntax:
-
-@lisp
-        ((field-type_1 . value_1)
-         (field-type_2 . value_2)
-         ...)
-@end lisp
-
-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
-
-@lisp
-        ((type . "text/plain")
-         (method "tm-plain" nil 'file 'type 'encoding 'mode 'name))
-@end lisp
-
-As you notice, now you can define the arguments to pass to a external
-method.  Refer to @xref{Format of method value} section for more
-explanation.
-
-This condition definition will match all contents whose types are
-text/plain. Here is an another example:
-
-@lisp
-        ((type . "text/plain")
-         (method "tm-plain" nil 'file 'type 'encoding 'mode 'name)
-         (mode . "play"))
-@end lisp
-
-This will match the content whose type is text/plain and the mode is
-play.
-
-@lisp
-        ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file)
-         (mode . "play"))
-@end lisp
-
-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.
-
-
-@node Format of method value, Example of decoding-condition, decoding-condition, method
-@comment  node-name,  next,  previous,  up
-@section Format of method value part
-@cindex Format of method value part
-
-You can specify the method field of the decoding-condition definition
-in two different ways,
-
-@lisp
-        (method . SYMBOL)
-@end lisp
-
-or
-
-@lisp
-        (method  STRING  FLAG  ARGUMENT1  ARGUMENT2  ...)
-@end lisp
-
-can be accepted.
-
-When a symbol is specified in the method field, a function whose name
-is SYMBOL 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.
-
-@table @samp
-@item STRING
-        name of an external method
-@item FLAG
-        If @code{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 ARGUMENTs
-        list of arguments passed to an external method
-@end table
-
-An argument passed to an external method can be in one of the
-following formats:
-
-@table @samp
-@item STRING
-        string itself
-@item 'SYMBOL
-        value gotten using SYMBOL as a key (see below)
-@item 'STRING
-        value gotten using STRING as a key (see below)
-@end table
-
-'SYMBOL can be one of the following:
-
-@table @samp
-@item 'file
-        name of a file holding the original content
-@item 'type
-        content-type/sub-type of Content-Type field
-@item 'encoding
-        field body of Content-Transfer-Encoding field
-@item 'mode
-        decoding-mode
-@item 'name
-        name of a file created by decode operation
-@end table
-
-'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.
-
-
-@node Example of decoding-condition,  , Format of method value, method
-@comment  node-name,  next,  previous,  up
-@section Examples of decoding-condition
-@cindex Examples of decoding-condition
-
-The default definition of a mime/content-decoding-condition variable
-is shown below.
-
-@lisp
-(defvar mime/content-decoding-condition
-  '(((type . "text/plain")
-     (method "tm-plain" nil 'file 'type 'encoding 'mode 'name))
-    ((type . "text/x-latex")
-     (method "tm-latex" nil 'file 'type 'encoding 'mode 'name))
-    ((type . "audio/basic")
-     (method "tm-au"    nil 'file 'type 'encoding 'mode 'name))
-    ((type . "image/gif")
-     (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
-    ((type . "image/jpeg")
-     (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
-    ((type . "image/tiff")
-     (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
-    ((type . "image/x-tiff")
-     (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
-    ((type . "image/x-xbm")
-     (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
-    ((type . "image/x-pic")
-     (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
-    ((type . "video/mpeg")`
-     (method "tm-mpeg"  nil 'file 'type 'encoding 'mode 'name))
-    ((type . "application/octet-stream")
-     (method "tm-file"  nil 'file 'type 'encoding 'mode 'name))
-    ((type . "message/partial")
-     (method . mime/decode-message/partial-region))
-    ((method "metamail" t
-             "-m" "tm" "-x" "-d" "-z" "-e" 'file)(mode . "play"))
-    ))
-@end lisp
-
-For example, if you want to use metamail to decode any contents,
-
-@lisp
-(setq mime/content-decoding-condition
-      '(
-        ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file))
-       ))
-@end lisp
-
-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.
-
-Following function may be useful to set decoding-condition. It is a
-function of tl-atype.el.
-
-
-@deffn{Function} set-atype symbol alist
-
-Add condition @var{alist} to symbol @var{symbol}.
-
-Example:
-
-@lisp
-(set-atype 'mime/content-decoding-condition
-          '((type . "message/external-body")
-            ("access-type" . "anon-ftp")
-            (method . mime/decode-message/external-ftp)
-            ))
-@end lisp
-@end deffn
-
-
-@node environment variables,  , mime/viewer-mode, tm-view
-@comment  node-name,  next,  previous,  up
-@chapter environment variables
-@cindex environment variables
-
-Standard methods of tm-view reference some environment variables. You
-can specify them to customize.
-
-@table @var
-@item TM_TMP_DIR
-Directory for temporary files or extracted files. Default value is
-`/tmp/'.
-
-@item VIDEO_DITHER
-Dither for mpeg_play. Default value is `gray'.
-
-@item TM_WWW_BROWSER
-WWW browser name. Default value is `netscape'.
-@end table
diff --git a/doc/tm-view-m_ja.texi b/doc/tm-view-m_ja.texi
deleted file mode 100644 (file)
index cff90dd..0000000
+++ /dev/null
@@ -1,249 +0,0 @@
-@c $Id: tm-view-m_ja.texi,v 1.1 1995/12/11 08:40:51 morioka Exp $
-
-@node method,  , preview-buffer, Mechanism of tm-view
-@comment  node-name,  next,  previous,  up
-@subsection method
-@cindex method
-
-@code{mime/viewer-mode} \e$B$G$O\e(B user \e$B$O3F\e(B content \e$B$KBP$7$F!"\e(Bplay
-(@key{v}), extract (@key{e}), print (@key{C-c C-p}) \e$B$H$$$&A`:n$r9T$J$&\e(B
-\e$B$3$H$,$G$-$^$9!#$3$&$7$?A`:n$N$3$H$r!X!J\e(Bcontent \e$B$KBP$9$k!K\e(Bdecode \e$BA`:n!Y\e(B
-\e$B$H8F$V$3$H$K$7$^$9!#$^$?!"\e(B@strong{play}, @strong{extract},
-@strong{print} \e$B$H$$$&\e(B decode \e$BA`:n$N<oN`$N$3$H$r\e(B @strong{decoding-mode} 
-\e$B$H8F$V$3$H$K$7$^$9!#\e(B
-
-decode \e$BA`:n$,9T$J$o$l$?;~!"$=$N\e(B content \e$B$N\e(B content-type \e$B$J$I$N>r7o$d$=\e(B
-\e$B$N>l$N4D6-$K1~$8$F<B:]$K$=$NA`:n$r<B9T$9$k<jB3$-$,8F$P$l$^$9!#$3$N<jB3\e(B
-\e$B$-$N$3$H$r\e(B @strong{method} \e$B$H8F$S$^$9!#\e(B
-
-method \e$B$K$O!"\e(BEmacs Lisp \e$B$G=q$+$l$?\e(B @strong{\e$BFbIt\e(B method} \e$B$H!"30It\e(B 
-program \e$B$G<B8=$5$l$?\e(B @strong{\e$B30It\e(B method} \e$B$,$"$j$^$9!#FbIt\e(B method \e$B$O\e(B 
-Emacs \e$B$N5!G=$r;H$C$F$-$a:Y$+$$=hM}$r9T$J$&$3$H$,$G$-$^$9!#30It\e(B method 
-\e$B$OHsF14|%W%m%;%98F$S=P$7$r;H$C$F<B8=$5$l$F$$$k$N$G!"<B9TCfBT$?$5$l$:$K\e(B
-\e$B$9$_$^$9!#$3$N$?$a!"@E;_2h$dF02h$J$I$N5pBg$J\e(B data \e$B$r:F@8$9$k$N$KNI$$$G\e(B
-\e$B$7$g$&!#\e(B
-
-@menu
-* decoding-condition::            content \e$B$N\e(B decode \e$B>r7o$N@_Dj\e(B
-* Format of method value::        method \e$B$NCMIt$N=q<0\e(B
-* Example of decoding-condition:: \e$B@_DjNc\e(B
-@end menu
-
-
-@node decoding-condition, Format of method value, method, method
-@comment  node-name,  next,  previous,  up
-@subsubsection content \e$B$N\e(B decode \e$B>r7o$N@_Dj\e(B
-@cindex content decoding condition
-
-tm-view \e$B$O\e(B decode \e$BA`:n$,9T$J$o$l$k$H!"JQ?t\e(B 
-@code{mime/content-decoding-condition} \e$B$+$i$=$N;~$N>r7o$K9gCW$7$?\e(B 
-method \e$B$rA\$7=P$7$F!"$=$l$r8F$S=P$7$^$9!#\e(B
-
-\e$BJQ?t\e(B @code{mime/content-decoding-condition} \e$B$O\e(B
-
-@lisp
-        (\e$B>r7o\e(B1 \e$B>r7o\e(B2 ...)
-@end lisp
-
-\e$B$H$$$&7A$r$7$?\e(B list \e$B$G!"3F>r7o$O\e(B
-
-@lisp
-        ((field-type_1 . value_1)
-         (field-type_2 . value_2)
-         ...)
-@end lisp
-
-\e$B$H$$$&7A$NO"A[\e(B list \e$B$K$J$C$F$$$^$9!#\e(B
-
-\e$BNc$($P!"\e(Btext/plain \e$B$N;~!"\e(Btm-plain \e$B$r5/F0$9$k;~!"\e(B
-
-@lisp
-        ((type . "text/plain")
-         (method "tm-plain" nil 'file 'type 'encoding 'mode 'name))
-@end lisp
-
-\e$B$H$$$&>r7o$r=q$-$^$9!#$3$N\e(B method \e$B$N\e(B value \e$BIt$N=q<0$K$D$$$F$O8e$G>\$7\e(B
-\e$B$/=R$Y$^$9!#\e(B
-
-\e$B$3$N>r7o$O\e(B content-type \e$B$,\e(B text/plain \e$B$G$"$k\e(B content \e$B$J$iA4$F$N\e(B 
-decoding-mode \e$B$GM-8z$G$9!#$7$+$7!"\e(B
-
-@lisp
-        ((type . "text/plain")
-         (method "tm-plain" nil 'file 'type 'encoding 'mode 'name)
-         (mode . "play"))
-@end lisp
-
-\e$B$J$i!"\e(Bplay mode \e$B$N;~$7$+M-8z$K$J$j$^$;$s!#\e(B
-
-\e$B5U$K!"\e(B
-
-@lisp
-        ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file)
-         (mode . "play"))
-@end lisp
-
-\e$B$J$i!"A4$F$N\e(B content-type \e$B$N\e(B play mode \e$B$GM-8z$K$J$j$^$9!#\e(B
-
-\e$B$3$&$7$F3F>r7o$rA0$+$i8+$F9T$-!":G=i$KM-8z$K$J$C$?>r7o$,<B9T$5$l$^$9!#\e(B
-
-
-@node Format of method value, Example of decoding-condition, decoding-condition, method
-@comment  node-name,  next,  previous,  up
-@subsubsection method \e$B$NCMIt$N=q<0\e(B
-@cindex method \e$B$NCMIt$N=q<0\e(B
-
-decode-condition \e$B$N\e(B method field \e$B$O\e(B
-
-@lisp
-        (method . SYMBOL)
-@end lisp
-
-\e$B$+\e(B
-
-@lisp
-        (method  \e$BJ8;zNs\e(B  FLAG  \e$B0z?t\e(B1  \e$B0z?t\e(B2  ...)
-@end lisp
-
-\e$B$H$$$&7A$r$7$F$$$^$9!#\e(B
-
-\e$BA0<T$OFbIt\e(B method \e$B$r;XDj$9$k$?$a$N7A<0$G!"\e(Bdecode \e$BA`:n$,9T$J$o$l$?;~!"\e(B
-SYMBOL \e$B$H$$$&4X?t$,4X?t8F$S=P$7$K$h$C$FFbIt\e(B method \e$B$H$7$F8F$S=P$5$l$^\e(B
-\e$B$9!#\e(B
-
-\e$B8e<T$O30It\e(B method \e$B$r;XDj$9$k$?$a$N7A<0$G!"\e(Bdecode \e$BA`:n$,9T$J$o$l$?;~!"\e(B
-\e$BJ8;zNs$G;XDj$5$l$?30It\e(B program \e$B$,HsF14|%W%m%;%98F$S=P$7$K$h$C$F30It\e(B 
-method \e$B$H$7$F8F$S=P$5$l$^$9!#\e(B
-
-
-\e$B30It\e(B method \e$B$r;XDj$9$k>l9g$N\e(B method field \e$B$N=q<0$O0J2<$NDL$j$G$9!#\e(B
-
-@table @samp
-@item \e$BJ8;zNs\e(B
-        \e$B30It\e(B method \e$B$NL>A0\e(B
-@item FLAG
-        @code{t} \e$B$J$i\e(B content-header \e$B$b30It\e(B method \e$B$KEO$9!#\e(B@code{nil} 
-        \e$B$J$i\e(B content-body \e$B$N$_$rEO$9!#\e(B
-@item \e$B0z?tNs\e(B
-        \e$B30It\e(B method \e$B$N0z?t\e(B
-@end table
-
-\e$B$^$?!"30It\e(B method \e$B$N0z?t$O<!$N$h$&$J7A<0$G=q$-$^$9!#\e(B
-
-@table @samp
-@item \e$BJ8;zNs\e(B
-        \e$B$=$NJ8;zNs$rEO$9\e(B
-@item 'SYMBOL
-        SYMBOL \e$B$r\e(B key \e$B$H$7$?\e(B decoding-condition \e$B$NCM$rEO$9\e(B
-@item '\e$BJ8;zNs\e(B
-        \e$BJ8;zNs$r\e(B key \e$B$H$7$?\e(B decoding-condition \e$B$NCM$rEO$9\e(B
-@end table
-
-'SYMBOL \e$B$G;XDj$G$-$k$b$N$K$O!"\e(B
-
-@table @samp
-@item 'file
-        content \e$B$rEO$9$?$a$N\e(B file \e$BL>\e(B
-@item 'type
-        Content-Type field \e$B$N\e(B content-type/subtype
-@item 'encoding
-        Content-Transfer-Encoding field \e$B$N\e(B field body
-@item 'mode
-        decoding-mode
-@item 'name
-        file \e$B$KMn$9>l9g$N\e(B file \e$BL>\e(B
-@end table
-
-\e$B$J$I$,$"$j!"\e(B'\e$BJ8;zNs\e(B \e$B$G$O\e(B Content-Type field \e$B$N\e(B parameter \e$B$NCM$,;XDj$G\e(B
-\e$B$-$^$9!#\e(B
-
-
-@node Example of decoding-condition,  , Format of method value, method
-@comment  node-name,  next,  previous,  up
-@subsubsection decoding-condition \e$B$NNc\e(B
-@cindex decoding-condition \e$B$NNc\e(B
-
-\e$B0J2<$K\e(B decoding-condition \e$B$N@_DjNc$r<($7$^$9!#\e(B
-
-@lisp
-(defvar mime/content-decoding-condition
-  '(((type . "text/plain")
-     (method "tm-plain" nil 'file 'type 'encoding 'mode 'name))
-    ((type . "text/x-latex")
-     (method "tm-latex" nil 'file 'type 'encoding 'mode 'name))
-    ((type . "audio/basic")
-     (method "tm-au"    nil 'file 'type 'encoding 'mode 'name))
-    ((type . "image/gif")
-     (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
-    ((type . "image/jpeg")
-     (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
-    ((type . "image/tiff")
-     (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
-    ((type . "image/x-tiff")
-     (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
-    ((type . "image/x-xbm")
-     (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
-    ((type . "image/x-pic")
-     (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
-    ((type . "video/mpeg")`
-     (method "tm-mpeg"  nil 'file 'type 'encoding 'mode 'name))
-    ((type . "application/octet-stream")
-     (method "tm-file"  nil 'file 'type 'encoding 'mode 'name))
-    ((type . "message/partial")
-     (method . mime/decode-message/partial-region))
-    ((method "metamail" t
-             "-m" "tm" "-x" "-d" "-z" "-e" 'file)(mode . "play"))
-    ))
-@end lisp
-
-\e$BNc$($P!"!VA4It\e(B metamail \e$B;H$&$s$d!W$H$$$&>l9g!"\e(B
-
-@lisp
-(setq mime/content-decoding-condition
-      '(
-        ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file))
-       ))
-@end lisp
-
-\e$B$H$9$l$P\e(B OK \e$B$G$9!#\e(B
-
-\e$B9)IW$9$l$P!"$+$J$jJ#;($J>r7o$,=q$1$k$G$7$g$&!#\e(B
-
-
-\e$B0J2<$K!"\e(Bdecoding-condition \e$B$r@_Dj$9$k$?$a$NM-MQ$J4X?t$r>R2p$7$^$9!#\e(B
-
-
-@deffn{Function} set-atype symbol alist
-
-@var{symbol} \e$B$K>r7o\e(B @var{alist} \e$B$rDI2C$7$^$9!#\e(B
-
-\e$BNc!'\e(B
-
-@lisp
-(set-atype 'mime/content-decoding-condition
-          '((type . "message/external-body")
-            ("access-type" . "anon-ftp")
-            (method . mime/decode-message/external-ftp)
-            ))
-@end lisp
-@end deffn
-
-
-@node environment variables,  , mime/viewer-mode, tm-view
-@comment  node-name,  next,  previous,  up
-@section \e$B4D6-JQ?t\e(B
-@cindex environment variables
-
-\e$B0J2<$K\e(B tm-view \e$B$NI8=`\e(B method \e$B$,;2>H$9$k4D6-JQ?t$r<($7$^$9!#\e(B
-
-@table @var
-@item TM_TMP_DIR
-\e$B0l;~E*$K:n@.$5$l$k\e(B file \e$B$d\e(B file \e$B=PNO$9$k>l9g$N\e(B default \e$B$N=PNO@h$H$7$F\e(B
-\e$BMQ$$$i$l$k\e(B directory \e$B$r;XDj$9$k!#>JN,$5$l$?>l9g!"\e(B/tmp/ \e$B$,MQ$$$i$l$k!#\e(B
-
-@item VIDEO_DITHER
-mpeg_play \e$B$G$N\e(B dither \e$B$N$+$1J}$r;XDj$9$k!#4{DjCM$O\e(B `gray'.
-
-@item TM_WWW_BROWSER
-WWW browser \e$B$r;XDj$9$k!#4{DjCM$O\e(B `netscape'.
-@end table
diff --git a/doc/tm-view-p_en.texi b/doc/tm-view-p_en.texi
deleted file mode 100644 (file)
index adf9e63..0000000
+++ /dev/null
@@ -1,45 +0,0 @@
-@c $Id: tm-view-p_en.texi,v 1.1 1995/12/13 09:29:38 morioka Exp $
-
-@node preview-buffer,  method, article-buffer, Mechanism of tm-view
-@comment  node-name,  next,  previous,  up
-@subsection preview-buffer
-
-@defvar mime::preview/mother-buffer
-
-Mother buffer of this preview-buffer.
-@end defvar
-
-
-@defvar mime::preview/content-list
-
-List of preview-content-info to represent structure of this
-preview-buffer.
-@end defvar
-
-
-@defvar mime::preview/article-buffer
-
-article-buffer corresponded by this preview-buffer.
-@end defvar
-
-
-@defvar mime::preview/original-major-mode
-
-major-mode of original buffer.
-@end defvar
-
-
-@defvar mime::preview/original-window-configuration
-
-window-configuration just before made this preview-buffer.
-@end defvar
-
-
-@defun mime-preview/point-pcinfo point &optional pcl
-
-In a region of preview-buffer managed by preview-content-info
-@var{pcl}, it returns preview-content-info corresponded by
-@var{point}.
-
-Default value of @var{cinfo} is @code{mime::preview/content-list}.
-@end defun
diff --git a/doc/tm-view-p_ja.texi b/doc/tm-view-p_ja.texi
deleted file mode 100644 (file)
index 5cffc69..0000000
+++ /dev/null
@@ -1,45 +0,0 @@
-@c $Id: tm-view-p_ja.texi,v 1.1 1995/12/11 08:41:27 morioka Exp $
-
-@node preview-buffer,  method, article-buffer, Mechanism of tm-view
-@comment  node-name,  next,  previous,  up
-@subsection preview-buffer
-
-@defvar mime::preview/mother-buffer
-
-\e$B$3$N\e(B preview-buffer \e$B$N?F$KAjEv$9$k\e(B buffer.
-@end defvar
-
-
-@defvar mime::preview/content-list
-
-\e$B$3$N\e(B preview-buffer \e$B$N9=B$$r$"$i$o$9\e(B preview-content-info \e$B$N\e(B list.
-@end defvar
-
-
-@defvar mime::preview/article-buffer
-
-\e$B$3$N\e(B preview-buffer \e$B$KBP1~$9$k\e(B article-buffer.
-@end defvar
-
-
-@defvar mime::preview/original-major-mode
-
-\e$B$3$N\e(B preview-buffer \e$B$N$b$H$K$J$C$?\e(B buffer \e$B$N\e(B major-mode.
-@end defvar
-
-
-@defvar mime::preview/original-window-configuration
-
-@code{mime/viewer-mode} \e$B$r<B9T$7$F!"$3$N\e(B preview-buffer \e$B:n$kD>A0$N\e(B 
-window-configuration.
-@end defvar
-
-
-@defun mime-preview/point-pcinfo point &optional pcl
-
-preview-content-info @var{pcl} \e$B$G4IM}$5$l$k\e(B preview-buffer \e$BCf$NNN0h$K\e(B
-\e$B$*$$$F!"\e(B@var{point} \e$B$KBP1~$9$k\e(B content \e$B$N\e(B preview-content-info \e$B$rJV$9!#\e(B
-
-@var{cinfo} \e$B$,>JN,$5$l$?>l9g$O!"\e(B@code{mime::preview/content-list} \e$B$,MQ\e(B
-\e$B$$$i$l$k!#\e(B
-@end defun
diff --git a/doc/tm-view_en.texi b/doc/tm-view_en.texi
deleted file mode 100644 (file)
index 203aa42..0000000
+++ /dev/null
@@ -1,282 +0,0 @@
-@c{$Id: tm-view_en.texi,v 7.3 1995/12/13 09:30:34 morioka Exp $}
-
-@node tm-view, encoded-word, tm-MUA, Top
-@comment  node-name,  next,  previous,  up
-@chapter tm-view
-@cindex tm-view
-
-The tm-view is a general MIME viewer running on GNU Emacs.
-
-tm-view provides the major-mode called @code{mime/viewer-mode} to read
-MIME message for MUA. MUA implementer can use it to add MIME function.
-
-tm-view is a user interface kernel to view and navigate MIME message.
-tm-view drives some programs to navigate each content-type/sub-types,
-they are called @strong{method}. tm-view calls some programs to
-display each content-type/sub-types in preview buffer, they are called 
-@strong{filter}. @strong{method} and @strong{filter} are tm-view
-application program. They expand tm-view to treat various kinds of
-MIME types.
-
-@menu
-* Mechanism of tm-view::
-* mime/viewer-mode::
-@end menu
-
-
-@node Mechanism of tm-view, Functions of tm-view, tm-view, tm-view
-@comment  node-name,  next,  previous,  up
-@chapter Mechanism of tm-view
-@cindex mechanism of tm-view
-
-tm-view managements two buffers, one is for raw message called
-@strong{article buffer}, another one is to preview for user called
-@strong{preview buffer}.
-
-When called @code{mime/viewer-mode}, tm-view analyzes article buffer,
-and sets its result to the variable @code{mime::article/content-info}.
-
-After that, tm-view create a preview buffer corresponded to the
-article buffer. As this time, tm-view modifies header and body of each
-contents of the message. It is done by definition for Content-Types.
-
-On the preview buffer created by tm-view, user can manipulate a
-message to decode, such as run external vewer, extract files, or
-print.
-
-Notice: In this document, I call @strong{content-type} as
-content-type/subtype of Content-Type field.
-
-
-@menu
-* Functions of tm-view::
-* article-buffer::
-* preview-buffer::
-* method::
-@end menu
-
-
-@node Functions of tm-view, function to preview, Mechanism of tm-view, Mechanism of tm-view
-@comment  node-name,  next,  previous,  up
-@subsection Functions of tm-view
-
-tm-view provides some available functions to decode and navigate MIME
-message to each MUAs.
-
-There are 2 kinds of functions, one is for MIME preview, another one
-is to decode RFC 1522 encoded-word.
-
-Memo: Old tiny-mime.el was abolished. Functions to decode RFC 1522
-encoded-word are took over to tm-view.
-
-
-@menu
-* function to preview::
-* encoded-word decoding::
-@end menu
-
-
-@node function to preview, encoded-word decoding, Functions of tm-view, Functions of tm-view
-@comment  node-name,  next,  previous,  up
-@subsubsection function to preview MIME message
-@cindex mime/viewer-mode
-
-@deffn{Command} mime/viewer-mode &optional mother ctl encoding
-
-Parse current-buffer as a MIME message, and create preview buffer to
-display to user, then enter @code{mime/viewer-mode}.
-
-@var{mother} is used to specify original article buffer. It may be
-useful when an article buffer is assembled from message/partial.
-
-@var{ctl} is used to specify Content-Type field information. Its
-format is output format of @code{mime/Content-Type}. When @var{ctl} is 
-specified, tm-view uses it instead of Content-Type field of the
-article buffer.
-
-@var{encoding} is used to specify field-body of
-Content-Transfer-Encoding field. When is is specified, tm-view uses it
-instead of Content-Type field of the article buffer.
-@end deffn
-
-
-@include{tm-ew-d_en.texi}
-
-
-@include{tm-view-a_en.texi}
-
-@include{tm-view-p_en.texi}
-
-@include{tm-view-m_en.texi}
-
-
-
-@node mime/viewer-mode, environment variables, Functions of tm-view, tm-view
-@comment  node-name,  next,  previous,  up
-@section mime/viewer-mode
-@cindex mime/viewer-mode
-
-@code{mime/viewer-mode} is a major-mode to preview MIME message. In
-MIME viewer mode, you can navigate MIME message interactively.
-
-@menu
-* MIME display::
-* MIME navigation::
-@end menu
-
-@node MIME display, content-body, mime/viewer-mode, mime/viewer-mode
-@comment  node-name,  next,  previous,  up
-@chapter Screen design of preview buffer
-@cindex Screen design of preview buffer
-
-In preview buffer, following are displayed for each content:
-
-@example
-       [content-subject]
-       (content-header)
-       
-       (content-body)
-       (content-separator)
-@end example
-
-You can change design or stop to display if you specify for each
-content-types.
-
-Example:
-
-@example
-From: MORIOKA Tomohiko <morioka@@jaist.ac.jp>
-Newsgroups: zxr.comp.emacs.tm-english
-Subject: tm6.63.tar.gz
-Date: Mon, 26 Jun 1995 17:39:50 JST
-Organization: Chamonix, JAIST, Tatsunokuchi, Ishikawa, Japan
-Reply-To: tm-eng@@chamonix.jaist.ac.jp
-To: tm-eng@@chamonix.jaist.ac.jp
-In-Reply-To: Your message of "Sun, 25 Jun 1995 23:20:49 MST"
-X-Mua: mh-e 4.1 + tm 6.63 / Mule 2.2 (WAKAMURASAKI) PL02
-X-Mime-Composer: mime.el + tiny-mime 5.12
-X-Ml-Count: 32
-
-[1  (text/plain)]
-  I put tm6.63.tar.gz in ftp.jaist.ac.jp.
-
-  In this version, tm-view uses new MIME encoding/decoding engine
-``mel (MIME encoding library''. This library has internal/external
-encoding/decoding engine. If data is smaller than a limit, tm-view
-uses internal decoder, otherwise external decoder.
-
-[2 tm6.63.tar.gz ([anon-ftp] ftp.jaist.ac.jp:/pub/GNU/elisp/mime/alpha)]
-
-[3  (text/plain)]
-----
-MORIOKA, Tomohiko <morioka@@jaist.ac.jp>
-@end example
-
-
-@menu
-* content-subject::
-* content-header::
-* content-body::
-* content-separator::
-@end menu
-
-@include{tm-view-cs_en.texi}
-@include{tm-view-ch_en.texi}
-@include{tm-view-cb_en.texi}
-
-
-@node content-separator, , content-body, Preview Buffer
-@comment  node-name,  next,  previous,  up
-@section content-separator
-@cindex content-separator
-
-Content-separator is displayed to represent boundary of contents.
-
-Content-separator is displayed by function
-@code{mime-viewer/default-content-separator}. In default, it displays
-line-break when content-header and content-body are not displayed.
-
-If you want to change this condition, please redefine this function.
-
-
-@deffn{Function} mime-viewer/default-content-separator cnum cinfo ctype params subj
-
-Display content-separator. @var{cnum} is content-number of a
-content. @var{cinfo} is content-info of the message. @var{ctype} is
-content-type of a content. @var{params} is Content-Type field
-parameters of a content. @var{subj} is subject.
-
-In default, it displays line-break when content-header and
-content-body are not displayed.
-@end deffn
-
-
-@node MIME navigation, method, content-body, mime/viewer-mode
-@comment  node-name,  next,  previous,  up
-@chapter Commands of mime/viewer-mode
-@cindex Commands of mime/viewer-mode
-
-@code{mime/viewer-mode} has following functions:
-
-@table @kbd 
-@item @key{u}
-goes to the upper content (returns to the Summary mode if the cursor
-is sitting on the top content (*1))
-
-@item @key{p}
-goes to the previous content
-
-@item @key{n}
-goes to the next content
-
-@item @key{SPC}
-scrolls up
-
-@item @key{M-SPC}
-scrolls down
-
-@item @key{DEL}
-scrolls down
-
-@item @key{RET}
-goes to the next line
-
-@item @key{M-RET}
-goes to the previous line
-
-@item @key{<}
-goes to the beginning of message
-
-@item @key{>}
-goes to the end of message
-
-@item @key{v}
-playbacks a content            (*2)
-
-@item @key{e}
-extracts a file from a content (*2)
-
-@item @key{C-c C-p}
-prints a content               (*2)
-
-@item @key{f}
-displays X-Face in the message
-
-@item @key{mouse-button-2}
-drives mouse button.
-
-If you press content-subject, it playbacks the content. (*2)
-
-If you press URL-button, it runs WWW browser.
-@end table
-
-
-@b{[Notice]}
-@enumerate
-@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.
-@end enumerate
diff --git a/doc/tm-view_ja.texi b/doc/tm-view_ja.texi
deleted file mode 100644 (file)
index 451460e..0000000
+++ /dev/null
@@ -1,293 +0,0 @@
-@c $Id: tm-view_ja.texi,v 7.6 1995/12/13 09:47:14 morioka Exp $
-
-@node tm-view, encoded-word, tm-MUA, Top
-@comment  node-name,  next,  previous,  up
-@chapter tm-view
-@cindex tm-view
-
-tm-view ¤Ï GNU Emacs ¤ÇÆ°ºî¤¹¤ëÈÆÍÑŪ¤Ê MIME viewer ¤Ç¤¹¡£
-
-tm-view ¤Ï @code{mime/viewer-mode} ¤È¤¤¤¦ MIME message ¤ò¸«¤ë¤¿¤á¤Î 
-major-mode ¤ò MUA ¤ËÂФ·¤ÆÄ󶡤·¤Þ¤¹¡£MUA ¤ÎÀ߷׼ԤϤ³¤Î mode ¤òÍøÍѤ¹
-¤ë¤³¤È¤Ç¤½¤Î MUA ¤Ë MIME µ¡Ç½¤òÉղ乤뤳¤È¤¬¤Ç¤­¤Þ¤¹¡£
-
-tm-view ¤Ï MIME message ¤ò±ÜÍ÷¤¹¤ë¤¿¤á¤Î user interface ¤Î³Ë¤Ç¤¢¤ê¡¢¤½
-¤Î¾å¤Ç³Æ content-type/sub-type ¤ò°·¤¦¤¿¤á¤Î @strong{method} ¤È¸Æ¤Ð¤ì¤ë
-¥×¥í¥°¥é¥à¤òÆ°ºî¤µ¤»¤Þ¤¹¡£¤Þ¤¿¡¢MIME message ¤Îɽ¼¨¤Î»ÅÊý¤ò·è¤á¤ë 
-@strong{filter} ¤È¸Æ¤Ð¤ì¤ë¥×¥í¥°¥é¥à¤òµ¯Æ°»þ¤Ë¸Æ¤Ó½Ð¤·¤Þ¤¹¡£
-@strong{method} ¤È @strong{filter} ¤ò tm-view ¤ËÁȤ߹þ¤à»ö¤Ë¤è¤Ã¤Æ¡¢
-@code{mime/viewer-mode} ¤Ç¤µ¤Þ¤¶¤Þ¤Ê MIME type ¤ò°·¤¦»ö¤¬¤Ç¤­¤Þ¤¹¡£
-
-@menu
-* Mechanism of tm-view:: tm-view ¤Î»ÅÁȤß
-* mime/viewer-mode::     mime/viewer-mode
-@end menu
-
-
-@node Mechanism of tm-view, Functions of tm-view, tm-view, tm-view
-@comment  node-name,  next,  previous,  up
-@section tm-view ¤Î»ÅÁȤß
-
-tm-view ¤Ï¡¢MIME ½èÍý¤ò¹Ô¤Ê¤¦Á°¤ÎÀ¸¤Î message ¤¬Æþ¤Ã¤Æ¤¤¤ë 
-@strong{article-buffer} ¤È¤½¤ÎÆâÍƤò user ¤Ë´Ê·é¤Ëɽ¼¨¤·¡¢user ¤¬Áàºî
-¤¹¤ë¤¿¤á¤Î @strong{preview-buffer} ¤È¤¤¤¦£²¤Ä¤Î buffer ¤ò´ÉÍý¤·¤Þ¤¹¡£
-article-buffer ¤Î major-mode ¤Ï¤â¤È¤â¤È¤Î MUA ¤Î article É½¼¨ÍѤΠ
-major-mode ¤Ç¤¢¤ê¡¢preview-buffer ¤Î major-mode ¤Ï mime/viewer-mode ¤È
-¤Ê¤ê¤Þ¤¹¡£
-
-@code{mime/viewer-mode} ¤ò¼Â¹Ô¤¹¤ë¤È¡¢tm-view ¤Ï¤Þ¤º article-buffer ¤Î
-ÆâÍƤò²òÀϤ·¡¢¤½¤Î message ¤Î¹½Â¤¤ò article-buffer ¤Î buffer local ÊÑ
-¿ô @code{mime::article/content-info} ¤Ëµ­Ï¿¤·¤Þ¤¹¡£
-
-¼¡¤Ë¡¢¤³¤Î·ë²Ì¤ò¸µ¤Ë article-buffer ¤ËÂбþ¤¹¤ë preview-buffer ¤òºî¤ê¤Þ
-¤¹¡£¤³¤ÎºÝ¡¢content-type ¤Ë±þ¤¸¤Æ¡¢content Ã±°Ì¤Ç header ¤ä body ¤ò²Ã
-¹©¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤³¤Î header ¤ò²Ã¹©¤¹¤ë¥×¥í¥°¥é¥à¤ò 
-@strong{header-filter}, body ¤ò²Ã¹©¤¹¤ë¥×¥í¥°¥é¥à¤ò 
-@strong{content-filter} ¤È¸Æ¤Ó¡¢¤³¤ì¤é¤òÁí¾Î¤·¤Æ @strong{filter} ¤È¸Æ
-¤Ó¤Þ¤¹¡£
-
-preview-buffer ¤òºîÀ®¤¹¤ë»þ¤Ë¡¢message ¤Îɽ¼¨¾å¤Î¹½Â¤¤òµ­Ï¿¤·¤¿ 
-preview-buffer ¤Î buffer local ÊÑ¿ô @code{mime::preview/content-list} 
-¤¬ºî¤é¤ì¤Þ¤¹¡£tm-view ¤Ï article-buffer ¾å¤Î 
-@code{mime::article/content-info} ¤È preview-buffer ¾å¤Î 
-@code{mime::preview/content-list} ¤òÍѤ¤¤Æ message ¤ò´ÉÍý¤·¤Þ¤¹¡£
-
-
-Ãí°Õ¡§ ¤³¤ÎÀâÌÀ½ñ¤Ç¤Ï¡¢Content-Type field ¤Î content-type/subtype ¤Î¤³
-¤È¤ò¾Î¤·¤Æ @strong{content-type} ¤È¸Æ¤Ó¤Þ¤¹¡£
-
-
-@menu
-* Functions of tm-view:: tm-view ¤Î´Ø¿ô
-* article-buffer::       article-buffer
-* preview-buffer::       preview-buffer
-* method::               decoding Áàºî¤Î¼Â¸½
-@end menu
-
-
-@node Functions of tm-view, function to preview, Mechanism of tm-view, Mechanism of tm-view
-@comment  node-name,  next,  previous,  up
-@subsection MIME message ¤Î decode ¤Ë´Ø¤¹¤ë´Ø¿ô
-
-tm-view ¤ÎÄ󶡤¹¤ë´Ø¿ô¤ò³Æ MUA ¤ËÁȤ߹þ¤à»ö¤Ë¤è¤Ã¤Æ¡¢³Æ MUA ¤Ë MIME ºÆ
-À¸µ¡Ç½¤òÉղ乤ë»ö¤¬¤Ç¤­¤Þ¤¹¡£
-
-tm-view ¤¬³Æ MUA ¤ËÄ󶡤¹¤ë´Ø¿ô¤Ï¡¢MIME preview ¤ò¹Ô¤¦¤¿¤á¤Î´Ø¿ô 
-@code{mime/viewer-mode} ¤È RFC 1522 encoded-word ¤ò decode ¤¹¤ë¤¿¤á¤Î
-´Ø¿ô·²¤Ç¤¹¡£
-
-Memo: µì tiny-mime.el ¤Ë¤¢¤Ã¤¿ RFC 1522 encoded-word ¤ò decode ¤¹¤ë¤¿
-¤á¤Î´Ø¿ô·²¤Ï tm-view ¤Ë°ú¤­·Ñ¤¬¤ì¤Þ¤·¤¿¡£
-
-
-@menu
-* function to preview:: MIME message ¤ò preview ¤¹¤ë¤¿¤á¤Î´Ø¿ô
-* encoded-word decoding:: encoded-word ¤ò decode ¤¹¤ë¤¿¤á¤Î´Ø¿ô
-@end menu
-
-
-@node function to preview, encoded-word decoding, Functions of tm-view, Functions of tm-view
-@comment  node-name,  next,  previous,  up
-@subsubsection MIME message ¤ò±ÜÍ÷¤¹¤ë¤¿¤á¤Î´Ø¿ô
-@cindex mime/viewer-mode
-
-@deffn{Command} mime/viewer-mode &optional mother ctl encoding
-
-current-buffer ¤ò MIME message ¤È¤·¤Æ²òÀϤ·¤Æ¡¢¤½¤ÎÆâÍƤò±ÜÍ÷¤¹¤ë¤¿¤á
-¤Î preview-buffer ¤òºîÀ®¤·¡¢@code{mime/viewer-mode} ¤ËÆþ¤ê¤Þ¤¹¡£
-
-@var{mother} ¤Ï¡¢²òÀϤÎÂоݤȤ¹¤ë article-buffer ¤¬ message/partial ·Á
-¼°¤Îʬ³ä¤µ¤ì¤¿ message ¤ò·ë¹ç¤·¤ÆºîÀ®¤·¤¿¾ì¹ç¤Ê¤É¤Ë¤ª¤±¤ë¸µ¤Î buffer 
-¤ò»ØÄꤹ¤ë¤¿¤á¤Ë»È¤¤¤Þ¤¹¡£
-
-@var{ctl} ¤Ï Content-Type field ¤Î field-body ¤ò 
-@code{mime/Content-Type} ¤Î½ÐÎÏÀµ¼°¤Ë¤·¤¿¤â¤Î¤òÆþ¤ì¤Þ¤¹¡£¤³¤Î°ú¿ô¤¬¤¢
-¤ë¾ì¹ç¡¢article-buffer ¤Î Content-Type field ¤è¤ê¤â¤³¤Î°ú¿ô¤òÍ¥À褷¤Þ
-¤¹¡£
-
-@var{encoding} ¤Ï Content-Transfer-Encoding field ¤Î field-body ¤òÆþ¤ì
-¤Þ¤¹¡£¤³¤Î°ú¿ô¤¬¤¢¤ë¾ì¹ç¡¢article-buffer ¤Î Content-Transfer-Encoding
-field ¤è¤ê¤â¤³¤Î°ú¿ô¤òÍ¥À褷¤Þ¤¹¡£
-@end deffn
-
-
-@include{tm-ew-d_ja.texi}
-
-
-@include{tm-view-a_ja.texi}
-
-@include{tm-view-p_ja.texi}
-
-@include{tm-view-m_ja.texi}
-
-
-
-@node mime/viewer-mode, environment variables, Functions of tm-view, tm-view
-@comment  node-name,  next,  previous,  up
-@section mime/viewer-mode
-@cindex mime/viewer-mode
-
-@code{mime/viewer-mode} ¤Ï MIME message ¤ò±ÜÍ÷¤¹¤ë¤¿¤á¤Î major-mode ¤Ç
-¤¹¡£MIME viewer mode ¤Ç¤ÏÂÐÏÃŪ¤Ë MIME message ¤òÁàºî¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ
-¤¹¡£
-
-@menu
-* MIME display::    mime/viewer-mode ¤Î²èÌ̹½À®
-* MIME navigation:: mime/viewer-mode ¤Ç¤ÎÁàºî
-@end menu
-
-
-@node MIME display, content-body, mime/viewer-mode, mime/viewer-mode
-@comment  node-name,  next,  previous,  up
-@subsection mime/viewer-mode ¤Î²èÌ̹½À®
-
-mime/viewer-mode ¤Ç¤Ï³Æ content ¤ËÂФ·¤Æ
-
-@example
-       [content-subject]
-       (content-header)
-       
-       (content-body)
-       (content-separator)
-@end example
-
-¤È¤¤¤¦¾ðÊó¤òɽ¼¨¤·¤Þ¤¹¡£¤³¤ì¤é¤Ï content-type Ëè¤Ë design ¤òÊѹ¹¤·¤¿¤ê¡¢
-ɽ¼¨¤òÍÞÀ©¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£
-
-°Ê²¼¤Ë¡¢É½¼¨Îã¤ò¼¨¤·¤Þ¤¹¡£
-
-
-@example
-From: ¼é²¬ ÃÎɧ (MORIOKA Tomohiko) <morioka@@jaist.ac.jp>
-Newsgroups: zxr.comp.emacs.tm-english
-Subject: tm6.63.tar.gz
-Date: Mon, 26 Jun 1995 17:39:50 JST
-Organization: Chamonix, JAIST, Tatsunokuchi, Ishikawa, Japan
-Reply-To: tm-eng@@chamonix.jaist.ac.jp
-To: tm-eng@@chamonix.jaist.ac.jp
-In-Reply-To: Your message of "Sun, 25 Jun 1995 23:20:49 MST"
-X-Mua: mh-e 4.1 + tm 6.63 / Mule 2.2 ( ¼ã»ç ) PL02
-X-Mime-Composer: mime.el + tiny-mime 5.12
-X-Ml-Count: 32
-
-[1  (text/plain)]
-  I put tm6.63.tar.gz in ftp.jaist.ac.jp.
-
-  In this version, tm-view uses new MIME encoding/decoding engine
-``mel (MIME encoding library''. This library has internal/external
-encoding/decoding engine. If data is smaller than a limit, tm-view
-uses internal decoder, otherwise external decoder.
-
-[2 tm6.63.tar.gz ([anon-ftp] ftp.jaist.ac.jp:/pub/GNU/elisp/mime/alpha)]
-
-[3  (text/plain)]
-----
-MORIOKA, Tomohiko <morioka@@jaist.ac.jp>
-@end example
-
-
-@menu
-* content-subject::
-* content-header::
-* content-body::
-* content-separator::
-@end menu
-
-@include{tm-view-cs_ja.texi}
-@include{tm-view-ch_ja.texi}
-@include{tm-view-cb_ja.texi}
-
-
-@node content-separator,  , content-body, MIME display
-@comment  node-name,  next,  previous,  up
-@subsubsection content-separator
-@cindex content-separator
-
-content-separator ¤Ï content ¤Î°ìÈֺǸå¤Ë content ´Ö¤Î¶­ÌܤòÌÀ¤é¤«¤Ë¤¹
-¤ë¤¿¤á¤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£
-
-content-separator ¤Ï´Ø¿ô @code{mime-viewer/default-content-separator} 
-¤Ë¤è¤Ã¤Æɽ¼¨¤µ¤ì¤Þ¤¹¡£É¸½à¤Ç¤Ï¡¢content-header ¤â content-body ¤âɽ¼¨
-¤µ¤ì¤Ê¤¤¾ì¹ç¤Î¤ß¡¢²þ¹Ô¤òɽ¼¨¤·¤Þ¤¹¡£
-
-content-separator ¤ÎÀßÄê¤òÊѹ¹¤·¤¿¤¤¾ì¹ç¤Ï¡¢¤³¤Î´Ø¿ô¤òºÆÄêµÁ¤·¤Æ²¼¤µ¤¤¡£
-
-
-@deffn{Function} mime-viewer/default-content-separator rcnum cinfo ctype params subj
-
-content-number ¤¬ @var{cnum} ¤Ç¤¢¤ë content ¤Î content-separator ¤òɽ
-¼¨¤¹¤ë¡£É¸½à¤Ç¤Ï¡¢content-header ¤â content-body ¤âɽ¼¨¤µ¤ì¤Ê¤¤¾ì¹ç¤Î
-¤ß¡¢²þ¹Ô¤òɽ¼¨¤¹¤ë¡£
-@end deffn
-
-
-@node MIME navigation, method, content-body, mime/viewer-mode
-@comment  node-name,  next,  previous,  up
-@subsection mime/viewer-mode ¤Ç¤ÎÁàºî
-
-mime/viewer-mode ¤Ë¤Ï°Ê²¼¤Îµ¡Ç½¤¬¤¢¤ê¤Þ¤¹¡£
-
-@table @kbd 
-@item @key{u}
-¾å¤Î content ¤ËÌá¤ë¡Êmessage ¤Î°ìÈÖ¾å¤Î content ¤Ç¤³¤ì¤ò¹Ô¤Ê¤¦¤È 
-Summary mode ¤ËÌá¤ë (*1)¡Ë
-
-@item @key{p}
-Á°¤Î content ¤Ë°ÜÆ°¤¹¤ë
-
-@item @key{n}
-¼¡¤Î content ¤Ë°ÜÆ°¤¹¤ë
-
-@item @key{SPC}
-scroll up ¤¹¤ë
-
-@item @key{M-SPC}
-scroll down ¤¹¤ë
-
-@item @key{DEL}
-scroll down ¤¹¤ë
-
-@item @key{RET}
-¼¡¤Î¹Ô¤Ë°ÜÆ°¤¹¤ë
-
-@item @key{M-RET}
-Á°¤Î¹Ô¤Ë°ÜÆ°¤¹¤ë
-
-@item @key{M-RET}
-Á°¤Î¹Ô¤Ë°ÜÆ°¤¹¤ë
-
-@item @key{<}
-message ¤ÎÀèƬ¤Ë°ÜÆ°¤¹¤ë
-
-@item @key{>}
-message ¤ÎËöÈø¤Ë°ÜÆ°¤¹¤ë
-
-@item @key{v}
-content ¤òºÆÀ¸¤¹¤ë           (*2)
-
-@item @key{e}
-content ¤«¤é file ¤ò¼è¤ê½Ð¤¹ (*2)
-
-@item @key{C-c C-p}
-content ¤ò°õºþ¤¹¤ë           (*2)
-
-@item @key{f}
-message Ãæ¤Î X-Face ¤òɽ¼¨¤¹¤ë
-
-@item @key{mouse-button-2}
-preview-buffer Ãæ¤Î mouse button ¤òµ¯Æ°¤¹¤ë
-
-content-subject ¤ò²¡¤»¤Ð¡¢¤½¤Î content ¤¬ºÆÀ¸¤µ¤ì¤ë(*2)
-
-URL-button ¤ò²¡¤»¤Ð¡¢¤½¤Î WWW browser ¤¬µ¯Æ°¤µ¤ì¤ë
-@end table
-
-
-@b{¡ÎÃí°Õ¡Ï}
-@enumerate
-@item
-tm-MUA ¤Ç tm-view ¤ÎÀßÄê¤ò¤·¤Æ¤¤¤Ê¤¤¾ì¹ç¡¢Summary mode ¤Ë¤ÏÌá¤ê¤Þ¤»¤ó¡£ 
-
-@item
-¼ÂºÝ¤ÎÆ°ºî¤ÏÂбþ¤¹¤ë method ¤Ë°Í¤ê¤Þ¤¹¡£
-@end enumerate
diff --git a/gnus/ChangeLog b/gnus/ChangeLog
deleted file mode 100644 (file)
index b274a60..0000000
+++ /dev/null
@@ -1,806 +0,0 @@
-Tue Sep  3 15:30:22 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: gnus-mime Version 0.6.1 was released.
-
-       * mk-tgnus: gnus-msg-mime.el was abolished.
-
-Mon Sep  2 13:42:18 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * mk-tgnus: add "../../mu/" to load-path.
-
-       * mk-tgnus: Constant `el-file-mode' was abolished.  Function
-       `install-el', `install-el-files', `install-elc' and
-       `install-elc-files' were abolished.
-
-       * mk-tgnus (install-tm-gnus): Use function `install-files'.
-
-       * gnus-sum-mime.el (gnus-set-summary-default-charset): check
-       `gnus-summary-buffer' is active or not. (cf. [tm-en:735])
-
-\f
-Fri Aug 23 07:32:40 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: gnus-mime Version 0.6 was released.
-
-Thu Aug 22 17:55:17 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * gnus-mime.el: Use tl-misc.
-
-       * gnus-charset.el (nnmail-find-file): DOC-string was modified.
-
-       * gnus-charset.el (nntp-open-binary-connection-function): New
-       variable.
-       (nntp-open-network-stream-with-no-code-conversion): New function.
-
-Sun Aug 18 11:17:13 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * gnus-charset.el (gnus-set-newsgroup-default-charset): New
-       implementation; Function `put-alist' and `set-alist' were
-       abolished.
-
-       * gnus-charset.el (put-alist): imported from tl-list.el.
-       (set-alist): imported from tl-list.el.
-
-Sat Aug 17 02:55:36 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * gnus-mime.el: Don't setup news-reply-menu of XEmacs for Red
-       Gnus.
-
-Sat Aug 17 02:45:14 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * gnus-art-mime.el: autoload tm-ew-d.el and tm-view.el instead of
-       require.
-
-\f
-Mon Aug 12 09:11:34 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: gnus-mime Version 0.4 was released.
-
-       * message-mime.el (message-included-forward-headers): Add
-       `Mime-Version' field and `Content-*' field if they are not existed
-       in.
-
-Sat Aug 10 12:05:14 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * message-mime.el: setting for variable
-       `message-forward-start-separator' and
-       `message-forward-end-separator' was moved from mime-setup.el.in.
-
-       * message-mime.el: add (require 'tm-edit).
-
-\f
-Fri Aug  9 12:29:10 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: gnus-mime Version 0.3 was released.
-
-       * gnus-sum-mime.el (gnus-set-summary-default-charset):
-       code-conversion should do by line because of robustness.
-
-Thu Aug  8 15:51:57 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * mk-tgnus: gnus-msg-mime.el was added.
-
-       * gnus-msg-mime.el: New module.
-
-       * gnus-art-mime.el (gnus-article-preview-mime-message): prevent
-       side effect of `mime/viewer-mode' (cf. [bug-tm-en:666])
-
-Wed Aug  7 16:37:57 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * mk-tgnus: message-mime.el was added.
-
-       * message-mime.el: Function `tm-gnus/insert-article' was renamed
-       to `message-mime-insert-article'.
-
-       * message-mime.el: New module.
-
-       * gnus-mime.el: setting for tm-edit were split into
-       message-mime.el.
-
-       * gnus-art-mime.el (gnus-decode-rfc1522):
-       decoded encoded-word in XOVER must be unfolded.
-
-\f
-Tue Aug  6 12:10:47 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: gnus-mime Version 0.2 was released.
-
-       * mk-tgnus: setting for gnus-mime.
-
-Tue Aug  6 12:09:13 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus.el: Setting for Gnus were cut off.
-
-Tue Aug  6 12:05:37 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * gnus-mime.el (gnus-mime-RCS-ID, gnus-mime-version): New
-       constant.
-
-       * gnus-mime.el, gnus-charset.el, gnus-sum-mime.el,
-       gnus-art-mime.el: New module; split from tm-gnus5.el; tm-gnus5.el
-       was abolished.
-
-Thu Aug  1 11:44:22 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus.el: check (featurep 'gnus-load) for Red Gnus.
-
-\f
-Wed Jul 24 10:04:54 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.79 was released.
-
-Thu Jul 18 12:17:11 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus5.el (tm-gnus/content-header-filter): Use function
-       `decode-mime-charset-region' instead of
-       `tm-gnus/content-header-filter'.
-
-       (mime-viewer/code-converter-alist): set
-       `mime-charset/decode-buffer' instead of
-       `mime-charset-decode-region'.
-
-\f
-Wed Jul 17 05:39:11 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.78 was released.
-
-Sun Jul 14 16:37:27 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus5.el: Set newsgroup default charset for alt.chinese
-       instead of alt.chinese.text.
-
-       Add newsgroup default charset for hk and hkstar.
-
-Sun Jul 14 16:05:42 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus5.el (tm-gnus/decode-summary-from-and-subjects): fixed to
-       use variable `gnus-newsgroup-default-charset-alist' instead of
-       `gnus-newsgroup-default-coding-system-alist'.
-
-Sun Jul 14 15:49:03 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus5.el (gnus-newsgroup-default-charset-alist): New
-       variable; renamed from
-       `gnus-newsgroup-default-coding-system-alist'.
-
-       (gnus-set-newsgroup-default-charset): New function; renamed from
-       `gnus-set-newsgroup-default-coding-system'.
-
-Sun Jul 14 15:19:54 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus5.el (tm-gnus/content-header-filter): Use variable
-       `default-mime-charset' instead of `mime/default-coding-system'.
-
-       (tm-gnus/preview-article): Use variable `default-mime-charset'
-       instead of `mime/default-coding-system'.
-
-       (tm-gnus/article-decode-encoded-word): Use function
-       `decode-mime-charset-region' instead of `character-decode-region';
-       Use variable `default-mime-charset' instead of
-       `mime/default-coding-system'.
-
-       (tm-gnus/decode-summary-from-and-subjects): Use variable
-       `default-mime-charset' instead of `mime/default-coding-system';
-       Use function `decode-mime-charset-string' instead of
-       `character-decode-string'.
-
-\f
-Tue Jul  9 13:30:32 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.73 was released.
-
-       * tm-gnus5.el (tm-gnus/preview-article): specify
-       `gnus-article-mode-map' as mother keymap.
-
-\f
-Thu Jun 27 15:19:48 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.72 was released.
-
-Thu Jun 27 15:09:12 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * Makefile: gnus5o was abolished,
-
-Thu Jun 27 15:01:37 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * mk-tgnus (install-tm-gnus): New condition.
-
-       * mk-tgnus: tm-sgnus.el was renamed to tm-gnus5.el.
-
-Thu Jun 27 14:51:12 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * Makefile: gnus5 was renamed to gnus5o.
-       sgnus was renamed to gnus5.
-       g5-path was renamed to g5o-path.
-       s-path was renamed to g5-path.
-
-Thu Jun 27 14:43:48 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus.el, tm-gnus5.el: tm-sgnus.el was renamed to tm-gnus5.el.
-
-       * tm-sgnus.el (tm-gnus/version): modified.
-
-Thu Jun 27 13:46:21 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el: Set *big5* as default-coding-system for tw.
-
-\f
-Mon Jun 10 01:56:02 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.69 was released.
-
-Sun Jun  9 06:57:33 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el: Set implementation for `message-mode' to
-       `mime-editor/split-message-sender-alist'.
-
-Sun Jun  9 06:53:41 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus4.el: Set `gnus-inews-news' to `news-reply-mode' of
-       alist `mime-editor/split-message-sender-alist'.
-
-Sun Jun  9 06:51:09 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus3.el: Set `gnus-inews-news' to `news-reply-mode' of
-       alist `mime-editor/split-message-sender-alist'.
-
-\f
-Sun Jun  9 04:12:44 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.68 was released.
-
-Fri Jun  7 13:48:05 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el: Use `(call-after-loaded 'nnmail ...)' to redefine
-       function `nnmail-find-file', so you must use Gnus 5.2.10 or later
-       if you use Mule.
-
-Thu Jun  6 16:44:17 1996  Shuhei KOBAYASHI  <shuhei-k@jaist.ac.jp>
-
-       * tm-gnus3.el (tm-gnus/insert-article): Moved from tm-gnus.el
-
-       * tm-gnus4.el (tm-gnus/insert-article),
-       (mime-editor/attach-to-news-reply-menu): Moved from tm-gnus.el
-
-       * tm-gnus.el: `tm-gnus/insert-article' and
-       `mime-editor/attach-to-news-reply-menu' were moved to
-       version-dependent modules.
-
-       * tm-sgnus.el (tm-gnus/insert-article): New function;
-       message/rfc822 inserter for message-mode.
-       (mime-editor/attach-to-news-reply-menu): Moved from tm-gnus.el
-
-Wed Jun  5 23:02:22 1996  Shuhei KOBAYASHI  <shuhei-k@jaist.ac.jp>
-
-       * tm-sgnus.el (nnmail-find-file): Leave
-       `jam-code-guess-after-insert-file-function' in
-       `after-insert-file-functions'.
-
-Wed Jun  5 02:49:33 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el: Compatibility code for September Gnus 0.80 .. 0.94
-       was deleted.
-
-\f
-Mon May 27 03:48:56 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.63 was released.
-
-       * tm-sgnus.el (nnmail-find-file): New function.
-
-Sun May 26 04:36:12 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el (nnheader-insert-file-contents-literally):
-       New function for Mule.
-       (nnheader-insert-raw-file-contents): New alias.
-
-\f
-Mon May 20 15:29:30 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.61 was released.
-
-       * tm-sgnus.el: Unnecessary `(call-after-loaded 'tm-view ...)' 
-       about setting to variable `mime-viewer/quitting-method-alist' and
-       `mime-viewer/show-summary-method' was deleted.
-
-\f
-Thu May  9 18:52:46 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.60 was released.
-
-       * tm-sgnus.el: Function `tm-gnus/code-convert-region-to-emacs' was
-       abolished.
-       (tm-gnus/content-header-filter): Use function
-       `mime-charset-decode-region' instead of
-       `tm-gnus/code-convert-region-to-emacs'.
-
-Thu May  9 13:55:15 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el (tm-gnus/decode-summary-from-and-subjects): Use
-       function `character-decode-string' instead of
-       `decode-coding-string'.
-
-       * tm-sgnus.el (tm-gnus/article-decode-encoded-word): Use function
-       `character-decode-region' instead of `decode-coding-region'.
-
-\f
-Wed May  8 15:27:00 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.57 was released.
-
-       * tm-sgnus.el: fixed problem in XEmacs 20.0 with Mule.
-
-       * tm-sgnus.el: check `(boundp '*koi8*)'. (cf. [tm-ja:1832])
-
-\f
-Wed May  8 12:47:38 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.55 was released.
-
-Tue May  7 18:19:39 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el: Mule support part was divided between Mule and
-       XEmacs 20.0 with Mule.
-
-       * mk-tgnus (install-tm-gnus): version condition was modified.
-
-\f
-Mon Apr 29 01:55:32 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.54 was released.
-
-       * tm-sgnus.el (tm-gnus/article-decode-encoded-word): Use function
-       `decode-coding-region' instead of `code-convert-region'.
-       (tm-gnus/decode-summary-from-and-subjects): Use function
-       `decode-coding-string' instead of `code-convert-string'.
-
-\f
-Thu Apr 25 12:07:08 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.53 was released.
-
-       * tm-sgnus.el: don't use `nnheader-raw-write-region'.
-
-Wed Apr 24 15:21:45 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el: Use and redefine function
-       `nnheader-find-file-noselect', `nnheader-insert-raw-file-contents'
-       and `nnheader-raw-write-region'.
-       Use `nnmail-prepare-save-mail-hook'.
-
-\f
-Tue Apr 23 00:17:59 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.51 was released.
-
-       * tm-sgnus.el (gnus-newsgroup-default-coding-system-alist):
-       New variable.
-       (gnus-set-newsgroup-default-coding-system): New function.
-       Define default coding-system for alt.chinese.text,
-       alt.chinese.text.big5, han and relcom.
-
-\f
-Mon Apr 15 09:08:57 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.49.2 was released.
-
-Thu Apr 11 16:10:56 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el: Function `tm-gnus/forward-insert-buffer' was
-       deleted.
-
-Mon Apr  8 12:26:21 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus3.el (tm-gnus/article-set-mode-line): Function
-       `rightful-boundary-short-string' was obsoleted; use function
-       `truncate-string'. (cf. [tm-ja:1693])
-
-\f
-Thu Mar 28 08:44:31 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.49.1 was released.
-
-Wed Mar 27 19:27:04 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gd3.el (tm-gnus/article-set-mode-line):
-       Function `rightful-boundary-short-string' was obsoleted;
-       use function `truncate-string'.
-
-Mon Mar  4 09:29:33 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * Makefile: makefile variables `FILES' was modified.
-
-\f
-Mon Mar  4 08:20:48 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.49 was released.
-
-       * tm-gnus3.el: fixed problem about BBDB.
-
-Mon Mar  4 08:18:09 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus.el: BBDB setting codes were deleted.
-
-       * tm-sgnus.el, tm-gnus4.el, tm-gnus3.el:
-       BBDB setting codes moved from tm-gnus.el.
-
-Mon Mar  4 07:38:30 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus.el: fixed problem in Emacs 18.
-
-\f
-Wed Feb 28 13:32:29 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.48 was released.
-
-Tue Feb 27 19:06:50 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus3.el, tm-gnus4.el: BBDB setting codes were deleted.
-
-Tue Feb 27 19:05:14 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el: BBDB setting codes were moved to tm-gnus.el.
-
-Tue Feb 27 19:04:37 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus.el: BBDB setting codes were moved from tm-sgnus.el.
-
-Tue Feb 27 18:59:47 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el:
-       `(add-hook 'gnus-article-display-hook 'tm-bbdb/update-record)'
-       instead of
-       `(add-hook 'tm-gnus/article-prepare-hook
-                  'bbdb/gnus-update-record)'.
-
-Tue Feb 27 18:25:26 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el (tm-gnus/decode-summary-from-and-subjects):
-       New implementation.
-
-\f
-Wed Feb 14 13:01:34 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.45 was released.
-
-Fri Feb  9 10:30:48 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el: Function `tm-gnus/prepare-save-mail-function' is
-       inserted to `nnbabyl-prepare-save-mail-hook',
-       `nnml-prepare-save-mail-hook' and `nnmh-prepare-save-mail-hook' if
-       Mule is running.
-
-Fri Feb  9 10:20:19 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el (tm-gnus/nnmail-get-new-mail): new function.
-       `nnmail-get-new-mail' is redefine if Mule is running.
-
-\f
-Fri Feb  9 08:47:07 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.43 was released.
-
-Fri Feb  9 07:48:32 1996  Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
-
-       * tm-sgnus.el (tm-gnus/decode-summary-from-and-subjects):
-       convert character code of ``from'' (cf. [tm-ja:1568])
-
-Fri Feb  9 06:19:26 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el: Function `tm-gnus/prepare-save-mail-function' is
-       inserted to `nnmbox-prepare-save-mail-hook' if Mule is running.
-
-\f
-Thu Feb  8 06:17:16 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.41 was released.
-
-       * tm-sgnus.el (tm-gnus/nnheader-find-file-noselect): new function.
-       `nnheader-find-file-noselect' is redefine if Mule is running.
-
-Thu Feb  8 03:35:26 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el (tm-gnus/prepare-save-mail-function): new function;
-       It is inserted into `nnfolder-prepare-save-mail-hook' if Mule is
-       running.
-
-Thu Feb  8 01:30:10 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * mk-tgnus, tm-sgnus.el, tm-gnus.el: tm-gd5.el was deleted.
-       Self code conversion feature for Gnus 5.[01] was deleted.
-
-Tue Feb  6 08:53:27 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el: use `substitute-key-definition' to define
-       `tm-gnus/summary-toggle-header' key.
-
-\f
-Thu Jan 25 03:21:50 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.37 was released.
-
-Thu Jan 25 02:41:11 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * Self code conversion for MULE was supported for Gnus 5.[01] and
-       September Gnus.
-
-       * tm-gnus.el (tm-gnus/maybe-code-convert): new function to convert
-       character code for Gnus 5.[01]
-
-       * tm-sgnus.el: Code conversion parts were moved from tm-gd5.el.
-
-       * tm-gd5.el: Code conversion parts were moved from tm-sgnus.el.
-
-       * tm-gd5.el: (tm-gnus/decode-summary-from-and-subjects): convert
-       code in Subject field
-
-Wed Jan 24 14:22:36 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el: self code conversion for MULE
-
-Tue Jan 23 14:08:38 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus.el: redefine function `gnus-article-delete-headers' for
-       GNUS 3.15 .. 4.1.*
-
-\f
-Tue Jan 23 04:57:53 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.34 was released.
-
-       * tm-sgnus.el, tm-gnus4.el, tm-gnus3.el:
-       (require 'tm-bbdb) if bbdb is provided.
-
-\f
-Sat Jan 20 02:23:40 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.33.1 was released.
-
-       * tm-gnus.el: redefine function `gnus-news-reply' for GNUS 3.15 .. 
-       4.1.* to fix problem about following. (cf. [tm-ja:1456],
-       [tm-ja:1473])
-
-Thu Jan 18 01:55:25 1996  Yoshiyuki Yamagami <yamagami@hb.nmcc.co.jp>
-
-       * Makefile: specify `-no-site-file' option (cf. [tm-ja:1474])
-
-\f
-Tue Jan  9 12:06:29 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-       
-       * tm/gnus: version 7.33 was released.
-
-       * tm-sgnus.el: `gnus-forward-insert-buffer' redefining was changed 
-       because `eval-after-load' is not exist in XEmacs.
-       (cf. [tm-en:249])
-
-Tue Dec 26 07:03:36 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el: setting for message/rfc822 style forward if
-       mime-setup is used.
-
-Tue Dec 26 00:11:39 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el (tm-gnus/summary-toggle-header):
-       `mime-viewer/ignored-field-regexp' was not set.
-
-       * tm-sgnus.el (tm-gnus/preview-article): does not cut fields in
-       `mime/viewer-mode'.
-
-\f
-Mon Dec 25 08:15:56 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.30 was released.
-
-       * tm-sgnus.el (tm-gnus/summary-toggle-header):
-       use `mime-viewer/redisplay'
-
-       * mk-tgnus: (install-tm-gnus):
-       `(setq command-line-args-left (cdr command-line-args-left))'
-       was added.
-
-Sat Dec 23 12:57:25 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el (tm-gnus/summary-toggle-header): New implement
-
-       * tm-sgnus.el: uses original `gnus-article-hide-headers-if-wanted'
-
-\f
-Fri Dec 22 08:57:48 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.28 was released.
-
-Fri Dec 22 07:08:15 1995  MURATA Masahiro <murata@sol.cs.ritsumei.ac.jp>
-
-       * tm-sgnus.el:
-       `(eval-when-compile (require 'cl))' was inserted.
-       (cf. [tm-ja:1414])
-
-       * tm-sgnus.el (tm-gnus/preview-cut-header): 'gnus-type and
-       'headers are added to text property. (cf. [tm-ja:1414])
-
-\f
-Wed Dec 20 12:00:19 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.26 was released.
-
-       * tm-gnus4.el: (tm-gnus/preview-article-if-you-need):
-       `(setq buffer-read-only nil)' for GNUS.
-
-Wed Dec 20 07:04:55 1995  MURATA Masahiro <murata@sol.cs.ritsumei.ac.jp>
-
-       * tm-sgnus.el: use text property to hide fields.
-       (cf. [tm-ja:1384])
-
-Mon Dec 18 11:08:33 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus4.el, tm-sgnus.el:
-       setting for `mime-viewer/show-summary-method'
-
-\f
-Mon Dec 18 12:06:27 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.25 was released.
-
-Sat Dec 16 14:54:31 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus4.el:
-       (tm-gnus/view-message, tm-gnus/preview-article-if-you-need):
-       enclose `(run-hooks 'tm-gnus/article-prepare-hook)' by
-       `(let (buffer-read-only) ...)'. (cf. [tm-ja:1350])
-
-\f
-Sat Dec 15 15:03:15 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.24 was released.
-
-Fri Dec 15 13:47:36 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el (tm-gnus/summary-toggle-header):
-       new implementation
-
-\f
-Wed Dec 13 19:12:47 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.22 was released.
-
-Mon Dec 11 12:50:58 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el (tm-gnus/summary-toggle-header):
-       use `tm-gnus/automatic-mime-preview' to judge automatic MIME
-       preview or not.
-
-\f
-Mon Dec 11 18:05:06 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.21.2 was released.
-
-Fri Dec  8 22:35:14 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus.el: modified about XEmacs menu setting in Emacs and
-       Mule.
-
-\f
-Thu Dec  7 10:21:22 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.21.1 was released.
-
-       * tm-gnus.el: news-reply-mode pop up menu setting for XEmacs.
-
-Thu Dec  7 08:44:12 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus4.el:
-       Function `tm-gnus/article-reset-variable' was modified to reset
-       `gnus-original-article-buffer' to nil instead of
-       `gnus-article-buffer'.
-
-\f
-Wed Dec  6 07:39:37 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.21 was released.
-
-       * tm-sgnus.el: New function `tm-gnus/partial-preview-function'.
-
-       * Makefile: install-* were modified.
-
-\f
-Tue Dec  5 07:51:04 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.20.1 was released.
-
-       * Makefile: fixed typo of `install-18'.
-
-Tue Dec  5 07:36:32 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus4.el: Function `tm-gnus/preview-article-if-you-need' was
-       fixed to set variable `tm-gnus/automatic-mime-preview' and
-       variable `gnus-original-article-buffer'.
-
-Mon Dec  4 23:55:05 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus.el:
-       call-after-loaded definitions for tm-edit are merged.
-
-Mon Dec  4 20:33:11 1995  Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
-
-       * tm-gnus.el:
-       mime-editor/message-inserter-alist setting for mail-mode
-       (cf. [tm-ja:1195])
-
-Tue Dec  4 14:30:44 1995  Dave Goldberg <dsg@linus.mitre.org>
-
-       * Makefile:
-       There's a problem with tm/gnus/Makefile.  In particular, the order
-       of the -l arguments is wrong because of the
-       (require 'tl-misc) in the g*-path files.  Since load-path gets set
-       to find ../../tl in mk-tgnus.el, that has to be loaded first.
-
-Mon Dec  4 06:32:43 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus4.el:
-       OKABE, Yasuo <okabe@kudpc.kyoto-u.ac.jp>'s patch was applied to fix
-       problem of function `tm-gnus/view-message' in automatic MIME preview
-       mode. (cf. [tm-ja:1191])
-
-\f
-Mon Dec  4 00:25:21 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.20 was released.
-
-       * tm-sgnus.el: quitting method was fixed.
-
-       * tm-gnus4.el: fixed problem of quitting method.
-
-       * tm-gnus4.el:
-       Function `tm-gnus/view-message' was fixed for automatic MIME preview
-       mode.
-
-Fri Dec  1 23:12:36 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus4.el: (1) New variable `gnus-original-article-buffer'.
-       (2) New function `tm-gnus/article-reset-variable'.
-       (3) `(setq buffer-read-only nil)' was deleted in function
-           `tm-gnus/preview-article-if-you-need'.
-
-Fri Dec  1 19:23:51 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus4.el:
-       applied OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>'s patch to fix
-       problem of quitting method.
-
-\f
-Thu Nov 23 19:31:40 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.19 was released.
-
-Tue Nov 21 03:02:27 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus.el: Version judgement was changed.
-
-\f
-Mon Nov 20 12:01:58 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.18 was released.
-
-Sun Nov 19 08:30:08 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus.el: module composition was changed.
-               (ding) Gnus support was stopped.
-
-       * tm-sgnus.el: insert (require 'tm-gd5).
-
-       * tm-gd5.el: Initial revision
-       tm-gnus library module for Gnus 5.*.
-
-       * tm-gnus4.el: tm-gnus5.el was merged into tm-gnus4.el.
-                      (tm-gnus5.el was abolished.)
-
-       * tm-gnus3.el:
-       (1) `tm-ognus.el' was renamed to `tm-gd3.el'.
-       (2) setting for BBDB.
-
-       * tm-gd3.el: some codes for tm-gnus3.el was moved to
-                    tm-gnus3.el.
-
-       * tm-sgnus.el: setting for variable
-       `gnus-decode-encoded-word-method'. (It will be proposed as a
-       variable of September Gnus)
diff --git a/gnus/ChangeLog-7.18.en b/gnus/ChangeLog-7.18.en
deleted file mode 100644 (file)
index 7b01e8f..0000000
+++ /dev/null
@@ -1,27 +0,0 @@
-Mon Nov 20 12:01:58 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.18 was released.
-
-Sun Nov 19 08:30:08 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus.el: module composition was changed.
-               (ding) Gnus support was stopped.
-
-       * tm-sgnus.el: insert (require 'tm-gd5).
-
-       * tm-gd5.el: Initial revision
-       tm-gnus library module for Gnus 5.*.
-
-       * tm-gnus4.el: tm-gnus5.el was merged into tm-gnus4.el.
-                      (tm-gnus5.el was abolished.)
-
-       * tm-gnus3.el:
-       (1) `tm-ognus.el' was renamed to `tm-gd3.el'.
-       (2) setting for BBDB.
-
-       * tm-gd3.el: some codes for tm-gnus3.el was moved to
-                    tm-gnus3.el.
-
-       * tm-sgnus.el: setting for variable
-       `gnus-decode-encoded-word-method'. (It will be proposed as a
-       variable of September Gnus)
diff --git a/gnus/ChangeLog-7.18.ja b/gnus/ChangeLog-7.18.ja
deleted file mode 100644 (file)
index 8a285d2..0000000
+++ /dev/null
@@ -1,27 +0,0 @@
-Mon Nov 20 12:01:58 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.18 \e$B$r\e(B release.
-
-Sun Nov 19 08:30:08 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus.el: \e$B9=@.$rJQ$($?!#\e(B
-               (ding) Gnus \e$B$N\e(B support \e$B$r$d$a$?!#\e(B
-
-       * tm-sgnus.el: (require 'tm-gd5) \e$B$rF~$l$?!#\e(B
-
-       * tm-gd5.el: Initial revision
-
-       * tm-gnus4.el: tm-gnus5.el \e$B$HE}9g$7$?!#\e(B
-
-       * tm-gnus3.el:
-       (1) tm-gd3 \e$B$KBP1~$7$?!#\e(B
-       (2) BBDB \e$B$KBP1~$7$?!#\e(B
-
-       * tm-gd3.el: Comment \e$B$NIT6q9g$r=$@5$7$?!#\e(B
-
-       * tm-gd3.el: \e$BIT6q9g$r=$@5$7$?!#\e(B
-
-       * tm-gd3.el: tm-gnus3 \e$B@lMQ$NItJ,$r\e(B tm-gnus3.el \e$B$K0\$7$?!#\e(B
-
-       * tm-sgnus.el: September Gnus \e$B$K$G$C$A$"$2$?JQ?t\e(B 
-       gnus-decode-encoded-word-method \e$B$KBP1~$7$?!#\e(B
diff --git a/gnus/ChangeLog-7.19.en b/gnus/ChangeLog-7.19.en
deleted file mode 100644 (file)
index e3bce95..0000000
+++ /dev/null
@@ -1,7 +0,0 @@
-Thu Nov 23 19:31:40 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.19 was released.
-
-Tue Nov 21 03:02:27 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus.el: Version judgement was changed.
diff --git a/gnus/ChangeLog-7.19.ja b/gnus/ChangeLog-7.19.ja
deleted file mode 100644 (file)
index fcb76de..0000000
+++ /dev/null
@@ -1,7 +0,0 @@
-Thu Nov 23 19:31:40 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.19 \e$B$r\e(B release \e$B$7$?!#\e(B
-
-Tue Nov 21 03:02:27 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus.el: version \e$B$NH=Dj$N;EJ}$rJQ$($?!#\e(B
diff --git a/gnus/ChangeLog-7.20.1.en b/gnus/ChangeLog-7.20.1.en
deleted file mode 100644 (file)
index b543e3f..0000000
+++ /dev/null
@@ -1,37 +0,0 @@
-Tue Dec  5 07:51:04 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.20.1 was released.
-
-       * Makefile: fixed typo of `install-18'.
-
-Tue Dec  5 07:36:32 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus4.el: Function `tm-gnus/preview-article-if-you-need' was
-       fixed to set variable `tm-gnus/automatic-mime-preview' and
-       variable `gnus-original-article-buffer'.
-
-Mon Dec  4 23:55:05 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus.el:
-       call-after-loaded definitions for tm-edit are merged.
-
-Mon Dec  4 20:33:11 1995  Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
-
-       * tm-gnus.el:
-       mime-editor/message-inserter-alist setting for mail-mode
-       (cf. [tm-ja:1195])
-
-Tue Dec  4 14:30:44 1995  Dave Goldberg <dsg@linus.mitre.org>
-
-       * Makefile:
-       There's a problem with tm/gnus/Makefile.  In particular, the order
-       of the -l arguments is wrong because of the
-       (require 'tl-misc) in the g*-path files.  Since load-path gets set
-       to find ../../tl in mk-tgnus.el, that has to be loaded first.
-
-Mon Dec  4 06:32:43 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus4.el:
-       OKABE, Yasuo <okabe@kudpc.kyoto-u.ac.jp>'s patch was applied to fix
-       problem of function `tm-gnus/view-message' in automatic MIME preview
-       mode. (cf. [tm-ja:1191])
diff --git a/gnus/ChangeLog-7.20.1.ja b/gnus/ChangeLog-7.20.1.ja
deleted file mode 100644 (file)
index b0d5314..0000000
+++ /dev/null
@@ -1,36 +0,0 @@
-Tue Dec  5 07:51:04 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.20.1 was released.
-
-       * Makefile: fixed typo of `install-18'.
-
-Tue Dec  5 07:36:32 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus4.el: Function `tm-gnus/preview-article-if-you-need' was
-       fixed to set variable `tm-gnus/automatic-mime-preview' and
-       variable `gnus-original-article-buffer'.
-
-Mon Dec  4 23:55:05 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus.el: tm-edit \e$BMQ$N\e(B call-after-loaded \e$B@k8@$r$/$C$D$1$?!#\e(B
-
-Mon Dec  4 20:33:11 1995  Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
-
-       * tm-gnus.el:
-       Gnus \e$B$G$b\e(B mail-mode \e$BMQ$N\e(B mime-editor/message-inserter-alist \e$B$r@_Dj\e(B
-       (cf. [tm-ja:1195])
-
-Tue Dec  4 14:30:44 1995  Dave Goldberg <dsg@linus.mitre.org>
-
-       * Makefile:
-       There's a problem with tm/gnus/Makefile.  In particular, the order
-       of the -l arguments is wrong because of the
-       (require 'tl-misc) in the g*-path files.  Since load-path gets set
-       to find ../../tl in mk-tgnus.el, that has to be loaded first.
-
-Mon Dec  4 06:32:43 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus4.el:
-       OKABE, Yasuo <okabe@kudpc.kyoto-u.ac.jp>'s patch was applied to fix
-       problem of function `tm-gnus/view-message' in automatic MIME preview
-       mode. (cf. [tm-ja:1191])
diff --git a/gnus/ChangeLog-7.20.en b/gnus/ChangeLog-7.20.en
deleted file mode 100644 (file)
index fc85e5a..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-Mon Dec  4 00:25:21 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.20 was released.
-
-       * tm-sgnus.el: quitting method was fixed.
-
-       * tm-gnus4.el: fixed problem of quitting method.
-
-       * tm-gnus4.el:
-       Function `tm-gnus/view-message' was fixed for automatic MIME preview
-       mode.
-
-Fri Dec  1 23:12:36 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus4.el: (1) New variable `gnus-original-article-buffer'.
-       (2) New function `tm-gnus/article-reset-variable'.
-       (3) `(setq buffer-read-only nil)' was deleted in function
-           `tm-gnus/preview-article-if-you-need'.
-
-Fri Dec  1 19:23:51 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus4.el:
-       applied OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>'s patch to fix
-       problem of quitting method.
diff --git a/gnus/ChangeLog-7.21.1.en b/gnus/ChangeLog-7.21.1.en
deleted file mode 100644 (file)
index f5b5fff..0000000
+++ /dev/null
@@ -1,12 +0,0 @@
-Thu Dec  7 10:21:22 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.21.1 was released.
-
-       * tm-gnus.el: news-reply-mode pop up menu setting for XEmacs.
-
-Thu Dec  7 08:44:12 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus4.el:
-       Function `tm-gnus/article-reset-variable' was modified to reset
-       `gnus-original-article-buffer' to nil instead of
-       `gnus-article-buffer'.
diff --git a/gnus/ChangeLog-7.21.2.en b/gnus/ChangeLog-7.21.2.en
deleted file mode 100644 (file)
index c214260..0000000
+++ /dev/null
@@ -1,8 +0,0 @@
-Mon Dec 11 18:05:06 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.21.2 was released.
-
-Fri Dec  8 22:35:14 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus.el: modified about XEmacs menu setting in Emacs and
-       Mule.
diff --git a/gnus/ChangeLog-7.21.en b/gnus/ChangeLog-7.21.en
deleted file mode 100644 (file)
index 68e6001..0000000
+++ /dev/null
@@ -1,7 +0,0 @@
-Wed Dec  6 07:39:37 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.21 was released.
-
-       * tm-sgnus.el: New function `tm-gnus/partial-preview-function'.
-
-       * Makefile: install-* were modified.
diff --git a/gnus/ChangeLog-7.22.en b/gnus/ChangeLog-7.22.en
deleted file mode 100644 (file)
index 30587d3..0000000
+++ /dev/null
@@ -1,9 +0,0 @@
-Wed Dec 13 19:12:47 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.22 was released.
-
-Mon Dec 11 12:50:58 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el (tm-gnus/summary-toggle-header):
-       use `tm-gnus/automatic-mime-preview' to judge automatic MIME
-       preview or not.
diff --git a/gnus/ChangeLog-7.23-7.24.en b/gnus/ChangeLog-7.23-7.24.en
deleted file mode 100644 (file)
index 825e1c5..0000000
+++ /dev/null
@@ -1,8 +0,0 @@
-Sat Dec 15 15:03:15 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.24 was released.
-
-Fri Dec 15 13:47:36 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el (tm-gnus/summary-toggle-header):
-       new implementation
diff --git a/gnus/ChangeLog-7.25.en b/gnus/ChangeLog-7.25.en
deleted file mode 100644 (file)
index f60d89a..0000000
+++ /dev/null
@@ -1,10 +0,0 @@
-Mon Dec 18 12:06:27 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.25 was released.
-
-Sat Dec 16 14:54:31 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus4.el:
-       (tm-gnus/view-message, tm-gnus/preview-article-if-you-need):
-       enclose `(run-hooks 'tm-gnus/article-prepare-hook)' by
-       `(let (buffer-read-only) ...)'. (cf. [tm-ja:1350])
diff --git a/gnus/ChangeLog-7.26.en b/gnus/ChangeLog-7.26.en
deleted file mode 100644 (file)
index 94d4e49..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-Wed Dec 20 12:00:19 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.26 was released.
-
-       * tm-gnus4.el: (tm-gnus/preview-article-if-you-need):
-       `(setq buffer-read-only nil)' for GNUS.
-
-Wed Dec 20 07:04:55 1995  MURATA Masahiro <murata@sol.cs.ritsumei.ac.jp>
-
-       * tm-sgnus.el: use text property to hide fields.
-       (cf. [tm-ja:1384])
-
-Mon Dec 18 11:08:33 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-gnus4.el, tm-sgnus.el:
-       setting for `mime-viewer/show-summary-method'
diff --git a/gnus/ChangeLog-7.27-7.28.en b/gnus/ChangeLog-7.27-7.28.en
deleted file mode 100644 (file)
index 7fa0063..0000000
+++ /dev/null
@@ -1,12 +0,0 @@
-Fri Dec 22 08:57:48 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.28 was released.
-
-Fri Dec 22 07:08:15 1995  MURATA Masahiro <murata@sol.cs.ritsumei.ac.jp>
-
-       * tm-sgnus.el:
-       `(eval-when-compile (require 'cl))' was inserted.
-       (cf. [tm-ja:1414])
-
-       * tm-sgnus.el (tm-gnus/preview-cut-header): 'gnus-type and
-       'headers are added to text property. (cf. [tm-ja:1414])
diff --git a/gnus/ChangeLog-7.29-7.30.en b/gnus/ChangeLog-7.29-7.30.en
deleted file mode 100644 (file)
index d87e6fc..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-Mon Dec 25 08:15:56 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/gnus: Version 7.30 was released.
-
-       * tm-sgnus.el (tm-gnus/summary-toggle-header):
-       use `mime-viewer/redisplay'
-
-       * mk-tgnus: (install-tm-gnus):
-       `(setq command-line-args-left (cdr command-line-args-left))'
-       was added.
-
-Sat Dec 23 12:57:25 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-sgnus.el (tm-gnus/summary-toggle-header): New implement
-
-       * tm-sgnus.el: uses original `gnus-article-hide-headers-if-wanted'
diff --git a/gnus/Makefile b/gnus/Makefile
deleted file mode 100644 (file)
index 0a18c07..0000000
+++ /dev/null
@@ -1,62 +0,0 @@
-#
-# $Id: Makefile,v 7.8 1996/06/27 15:19:48 morioka Exp morioka $
-#
-
-# Please specify emacs executables:
-EMACS  = mule
-FLAGS   = -batch -q -no-site-file -l mk-tgnus
-
-
-# Please specfy Emacs Lisp install directory:
-#      TMDIR18 = for Emacs 18.* (NEMACS, NEpoch or MULE 1)
-#      TMDIR19 = for Emacs 19.* (FSF original, XEmacs or MULE 2)
-
-# PREFIX = /usr/local
-PREFIX = $(HOME)
-
-EMACS_PREFIX = emacs
-# EMACS_PREFIX = mule
-
-DATADIR18    = $(PREFIX)/lib
-DATADIR19    = $(PREFIX)/lib
-DATADIR19_29 = $(PREFIX)/share
-
-TMDIR18    = $(DATADIR18)/$(EMACS_PREFIX)/local.lisp/tm
-TMDIR19    = $(DATADIR19)/$(EMACS_PREFIX)/site-lisp
-TMDIR19_29 = $(DATADIR19_29)/$(EMACS_PREFIX)/site-lisp
-
-
-FILES  = tm/gnus/Makefile tm/gnus/*-path tm/gnus/mk-tgnus \
-               tm/gnus/*.el tm/gnus/ChangeLog tm/doc/tm-gnus*.texi 
-
-
-TARFILE = tm-gnus7.72.tar
-
-
-gnus:
-       $(EMACS) $(FLAGS) -f compile-tm-gnus
-
-gnus3:
-       $(EMACS) $(FLAGS) -l g3-path -f compile-tm-gnus
-
-gnus4:
-       $(EMACS) $(FLAGS) -l g4-path -f compile-tm-gnus
-
-gnus5:
-       $(EMACS) $(FLAGS) -l g5-path -f compile-tm-gnus
-
-install-18:
-       $(EMACS) $(FLAGS) -f install-tm-gnus $(TMDIR18)
-
-install-19:
-       $(EMACS) $(FLAGS) -f install-tm-gnus $(TMDIR19)
-
-install-19_29:
-       $(EMACS) $(FLAGS) -f install-tm-gnus $(TMDIR19_29)
-
-clean:
-       -rm *.elc
-
-
-tar:
-       cd ../..; tar cvf $(TARFILE) $(FILES); gzip -9 $(TARFILE)
diff --git a/gnus/Makefile.bc b/gnus/Makefile.bc
deleted file mode 100644 (file)
index c291860..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-#
-# $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
diff --git a/gnus/d-path b/gnus/d-path
deleted file mode 100644 (file)
index 2b993de..0000000
+++ /dev/null
@@ -1,17 +0,0 @@
-;;; -*-Emacs-Lisp-*-
-
-(setq load-path
-      (append
-       (mapcar (function
-               (lambda (path)
-                 (expand-file-name path (getenv "PWD"))
-                 ))
-              '("." ".." "../../tl/" "../../mel/"))
-       ;;
-       ;; (ding) GNUS path
-       ;;
-       ;; please edit this
-       ;;
-       '("/usr/local/lib/emacs/site-lisp/dgnus/lisp")
-       ;;
-       load-path))
diff --git a/gnus/g3-path b/gnus/g3-path
deleted file mode 100644 (file)
index 8ba54fe..0000000
+++ /dev/null
@@ -1,10 +0,0 @@
-;;; -*-Emacs-Lisp-*-
-
-;;;
-;;; loadpath for GNUS 3.*
-;;;
-
-(require 'tl-misc)
-
-;; please edit
-(add-path "gnus-3.14.4" 'all-paths)
diff --git a/gnus/g4-path b/gnus/g4-path
deleted file mode 100644 (file)
index 165165c..0000000
+++ /dev/null
@@ -1,14 +0,0 @@
-;;; -*-Emacs-Lisp-*-
-
-;;;
-;;; loadpath for GNUS 4.*
-;;;
-
-(require 'tl-misc)
-
-;;;
-;;; loadpath for GNUS 4.*
-;;;
-
-;; please edit
-(add-path "gnus-4.1/lisp" 'all-paths)
diff --git a/gnus/g5-path b/gnus/g5-path
deleted file mode 100644 (file)
index b3bdd29..0000000
+++ /dev/null
@@ -1,21 +0,0 @@
-;;; -*-Emacs-Lisp-*-
-
-(require 'tl-misc)
-
-;;;
-;;; loadpath for Gnus 5.*
-;;;
-
-;; please edit
-
-;; It is for latest Gnus.
-(let ((path (get-latest-path "gnus-5")))
-  (if path
-      (add-path (expand-file-name "lisp/" path))
-    ))
-
-;; It is relative style. Added path is searched from load-path.
-;; (add-path "gnus-5.2.10/lisp/" 'all-paths)
-
-;; It is absolute style.
-;; (add-path "/usr/local/share/emacs/site-lisp/gnus-5.2.10/lisp/")
diff --git a/gnus/gnus-art-mime.el b/gnus/gnus-art-mime.el
deleted file mode 100644 (file)
index 15d91c6..0000000
+++ /dev/null
@@ -1,119 +0,0 @@
-;;; gnus-art-mime.el --- MIME extension for article mode of Gnus
-
-;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Created: 1996/8/6
-;; Version:
-;;     $Id: gnus-art-mime.el,v 0.5 1996/08/17 02:45:14 morioka Exp $
-;; Keywords: news, MIME, multimedia, multilingual, encoded-word
-
-;; This file is not part of GNU Emacs yet.
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program; see the file COPYING.  If not, write to
-;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'emu)
-(require 'gnus-art)
-
-(autoload 'mime-eword/decode-region "tm-ew-d"
-  "Decode MIME encoded-words in region." t)
-(autoload 'mime/decode-message-header "tm-ew-d"
-  "Decode MIME encoded-words in message header." t)
-(autoload 'mime/viewer-mode "tm-view"
-  "Major mode for viewing MIME message." t)
-
-
-(defun gnus-decode-rfc1522 ()
-  (goto-char (point-min))
-  (if (re-search-forward "^[0-9]+\t" nil t)
-      (progn
-       (goto-char (point-min))
-       ;; for XOVER
-       (while (re-search-forward "^[0-9]+\t\\([^\t]+\\)\t" nil t)
-         (mime-eword/decode-region (match-beginning 1) (match-end 1)
-                                   'unfolding 'must-unfold)
-         (if (re-search-forward "[^\t]+" nil t)
-             (mime-eword/decode-region (match-beginning 0)(match-end 0)
-                                       'unfolding 'must-unfold)
-           )
-         ))
-    (mime-eword/decode-region (point-min)(point-max) t)
-    ))
-
-
-;;; @ article filter
-;;;
-
-(defun gnus-article-preview-mime-message ()
-  (make-local-variable 'tm:mother-button-dispatcher)
-  (setq tm:mother-button-dispatcher
-       (function gnus-article-push-button))
-  (let ((mime-viewer/ignored-field-regexp "^:$")
-       (default-mime-charset
-         (save-excursion
-           (set-buffer gnus-summary-buffer)
-           default-mime-charset))
-       )
-    (save-window-excursion
-      (mime/viewer-mode nil nil nil gnus-original-article-buffer
-                       gnus-article-buffer
-                       gnus-article-mode-map)
-      ))
-  (run-hooks 'tm-gnus/article-prepare-hook)
-  )
-
-(defun gnus-article-decode-encoded-word ()
-  (decode-mime-charset-region (point-min)(point-max)
-                             (save-excursion
-                               (set-buffer gnus-summary-buffer)
-                               default-mime-charset))
-  (mime/decode-message-header)
-  (run-hooks 'tm-gnus/article-prepare-hook)
-  )
-
-
-;;; @ for BBDB
-;;;
-
-(call-after-loaded
- 'bbdb
- (function
-  (lambda ()
-    (require 'tm-bbdb)
-    )))
-
-(autoload 'tm-bbdb/update-record "tm-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 'gnus-article-display-hook 'tm-bbdb/update-record)
-       )))
-
-(add-hook 'gnus-startup-hook 'tm-gnus/bbdb-setup t)
-
-(tm-gnus/bbdb-setup)
-
-
-;;; @ end
-;;;
-
-(provide 'gnus-art-mime)
-
-;;; gnus-art-mime.el ends here
diff --git a/gnus/gnus-charset.el b/gnus/gnus-charset.el
deleted file mode 100644 (file)
index 0d008af..0000000
+++ /dev/null
@@ -1,129 +0,0 @@
-;;; gnus-charset.el --- MIME charset extension for Gnus
-
-;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Created: 1996/8/6
-;; Version:
-;;     $Id: gnus-charset.el,v 0.6 1996/08/22 17:51:22 morioka Exp $
-;; Keywords: news, MIME, multimedia, multilingual, encoded-word
-
-;; This file is not part of GNU Emacs yet.
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program; see the file COPYING.  If not, write to
-;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'gnus)
-
-
-;;; @ newsgroup default charset
-;;;
-
-(defvar gnus-newsgroup-default-charset-alist nil)
-
-(defun gnus-set-newsgroup-default-charset (newsgroup charset)
-  "Set CHARSET for the NEWSGROUP as default MIME charset."
-  (let* ((ng-regexp (concat "^" (regexp-quote newsgroup) "\\($\\|\\.\\)"))
-        (pair (assoc ng-regexp gnus-newsgroup-default-charset-alist))
-        )
-    (if pair
-       (setcdr pair charset)
-      (setq gnus-newsgroup-default-charset-alist
-           (cons (cons ng-regexp charset)
-                 gnus-newsgroup-default-charset-alist))
-      )))
-
-
-;;; @ for mule (Multilingual support)
-;;;
-
-(cond
- ((featurep 'mule)
-  (require 'emu)
-  (defvar nntp-open-binary-connection-function
-    (if (featurep 'gnus-load)
-       ;; maybe Red Gnus
-       (if (boundp 'nntp-open-connection-function)
-           nntp-open-connection-function
-         'nntp-open-network-stream)
-      ;; maybe Gnus 5.[01] or Gnus 5.[23]
-      (if (boundp 'nntp-open-server-function)
-         nntp-open-server-function
-       'nntp-open-network-stream)
-      ))
-  (defun nntp-open-network-stream-with-no-code-conversion (&rest args)
-    (let ((proc (apply nntp-open-binary-connection-function args)))
-      (set-process-input-coding-system proc *noconv*)
-      proc))
-  (if (featurep 'gnus-load)
-      (setq nntp-open-connection-function
-           'nntp-open-network-stream-with-no-code-conversion)
-    (setq nntp-open-server-function
-         'nntp-open-network-stream-with-no-code-conversion)
-    )
-  (call-after-loaded
-   'nnheader
-   (lambda ()
-     (defun nnheader-find-file-noselect (filename &optional nowarn rawfile)
-       (let ((file-coding-system-for-read *noconv*))
-        (find-file-noselect filename nowarn rawfile)
-        ))
-     (defun nnheader-insert-file-contents-literally
-       (filename &optional visit beg end replace)
-       (let ((file-coding-system-for-read *noconv*))
-        (insert-file-contents-literally filename visit beg end replace)
-        ))
-     ))
-  (call-after-loaded
-   'nnmail
-   (lambda ()
-     (defun nnmail-find-file (file)
-       "Insert FILE in server buffer safely. [gnus-charset.el]"
-       (set-buffer nntp-server-buffer)
-       (erase-buffer)
-       (let ((format-alist nil)
-             (after-insert-file-functions   ; for jam-code-guess
-              (if (memq 'jam-code-guess-after-insert-file-function
-                        after-insert-file-functions)
-                  '(jam-code-guess-after-insert-file-function)))
-            (file-coding-system-for-read *noconv*))
-        (condition-case ()
-            (progn (insert-file-contents file) t)
-          (file-error nil))))
-     ))
-  (defun gnus-prepare-save-mail-function ()
-    (setq file-coding-system *noconv*)
-    )
-  (add-hook 'nnmail-prepare-save-mail-hook
-           'gnus-prepare-save-mail-function)
-  
-  (gnus-set-newsgroup-default-charset "alt.chinese"            'hz)
-  (gnus-set-newsgroup-default-charset "alt.chinese.text.big5"  'big5)
-  (gnus-set-newsgroup-default-charset "tw"                     'big5)
-  (gnus-set-newsgroup-default-charset "hk"                     'big5)
-  (gnus-set-newsgroup-default-charset "hkstar"                 'big5)
-  (gnus-set-newsgroup-default-charset "han"                            'euc-kr)
-  (gnus-set-newsgroup-default-charset "relcom"                 'koi8-r)
-  ))
-
-
-;;; @ end
-;;;
-
-(provide 'gnus-charset)
-
-;;; gnus-charset.el ends here
diff --git a/gnus/gnus-mime.el b/gnus/gnus-mime.el
deleted file mode 100644 (file)
index 7829b51..0000000
+++ /dev/null
@@ -1,192 +0,0 @@
-;;; gnus-mime.el --- MIME extensions for Gnus
-
-;; Copyright (C) 1996 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Created: 1996/8/6
-;; Version: $Revision: 0.6 $
-;; Keywords: news, MIME, multimedia, multilingual, encoded-word
-
-;; This file is not part of GNU Emacs yet.
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program; see the file COPYING.  If not, write to
-;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'tl-misc)
-
-
-;;; @ version
-;;;
-
-(defconst gnus-mime-RCS-ID
-  "$Id: gnus-mime.el,v 0.6 1996/08/22 17:55:17 morioka Exp $")
-
-(defconst gnus-mime-version
-  (get-version-string gnus-mime-RCS-ID))
-
-
-;;; @ variables
-;;;
-
-(defvar gnus-show-mime t
-  "*If non-nil, do mime processing of articles.
-The articles will simply be fed to the function given by
-`gnus-show-mime-method'.")
-
-(defvar gnus-show-mime-method 'gnus-article-preview-mime-message
-  "*Function to process a MIME message.
-The function is called from the article buffer.")
-
-(defvar gnus-decode-encoded-word-method 'gnus-article-decode-encoded-word
-  "*Function to decode a MIME encoded-words.
-The function is called from the article buffer.")
-
-(defvar gnus-parse-headers-hook
-  '(gnus-set-summary-default-charset gnus-decode-rfc1522)
-  "*A hook called before parsing the headers.")
-
-
-;;; @ load
-;;;
-
-(require 'gnus)
-(autoload 'gnus-decode-rfc1522               "gnus-art-mime")
-(autoload 'gnus-article-preview-mime-message "gnus-art-mime")
-(autoload 'gnus-article-decode-encoded-word  "gnus-art-mime")
-(autoload 'gnus-set-summary-default-charset  "gnus-sum-mime")
-(require 'gnus-charset)
-
-
-;;; @ for tm-view
-;;;
-
-(defun gnus-content-header-filter ()
-  (goto-char (point-min))
-  (mime-preview/cut-header)
-  (decode-mime-charset-region (point-min)(point-max) default-mime-charset)
-  (mime/decode-message-header)
-  )
-
-(set-alist 'mime-viewer/content-header-filter-alist
-          'gnus-original-article-mode
-          (function gnus-content-header-filter))
-
-
-(set-alist 'mime-viewer/code-converter-alist
-          'gnus-original-article-mode
-          (function mime-charset/decode-buffer))
-
-
-(defun mime-viewer/quitting-method-for-gnus ()
-  (if (not gnus-show-mime)
-      (mime-viewer/kill-buffer))
-  (delete-other-windows)
-  (gnus-article-show-summary)
-  (if (or (not gnus-show-mime)
-         (null gnus-have-all-headers))
-      (gnus-summary-select-article nil t)
-    ))
-
-(set-alist 'mime-viewer/quitting-method-alist
-          'gnus-original-article-mode
-          (function mime-viewer/quitting-method-for-gnus))
-(set-alist 'mime-viewer/show-summary-method
-          'gnus-original-article-mode
-          (function mime-viewer/quitting-method-for-gnus))
-
-
-;;; @ for tm-partial
-;;;
-
-(defun gnus-mime-partial-preview-function ()
-  (gnus-summary-preview-mime-message (gnus-summary-article-number))
-  )
-
-(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-original-article-mode)
-                (summary-buffer-exp . gnus-summary-buffer)
-                ))
-    (set-alist 'tm-partial/preview-article-method-alist
-              'gnus-original-article-mode
-              'gnus-mime-partial-preview-function)
-    )))
-
-
-;;; @ end
-;;;
-
-(provide 'gnus-mime)
-
-(or (featurep 'gnus-load)
-    (progn
-      ;; for Gnus 5.0 .. 5.3
-      (provide 'gnus-sum)
-      (provide 'gnus-art)
-      
-      (or (boundp 'gnus-original-article-buffer)
-         (progn
-           ;; for Gnus 5.0.* and 5.1
-           (defvar gnus-original-article-buffer " *Original Article*")
-           
-           (defun gnus-article-setup-original-article-buffer ()
-             (save-excursion
-               (set-buffer (get-buffer-create gnus-original-article-buffer))
-               (erase-buffer)
-               (insert-buffer gnus-article-buffer)
-               (setq major-mode 'gnus-original-article-mode)
-               ))
-           
-           (add-hook 'gnus-article-prepare-hook
-                     'gnus-article-setup-original-article-buffer)
-           
-           (setq gnus-strict-mime nil)
-           ))
-      
-      (if running-xemacs
-         (progn
-           ;; modified by Steven L. Baur <steve@miranova.com>
-           ;;  1995/12/6 (c.f. [tm-en:209])
-           (defun mime-editor/attach-to-news-reply-menu ()
-             "Arrange to attach MIME editor's popup menu to VM's"
-             (if (boundp 'news-reply-menu)
-                 (progn
-                   (setq news-reply-menu
-                         (append news-reply-menu
-                                 '("---")
-                                 mime-editor/popup-menu-for-xemacs))
-                   (remove-hook 'news-setup-hook
-                                'mime-editor/attach-to-news-reply-menu)
-                   )))
-           (call-after-loaded
-            'tm-edit
-            (function
-             (lambda ()
-               (add-hook 'news-setup-hook
-                         'mime-editor/attach-to-news-reply-menu)
-               )))
-           ))
-      ))
-
-(run-hooks 'gnus-mime-load-hook)
-
-;;; gnus-mime.el ends here
diff --git a/gnus/gnus-msg-mime.el b/gnus/gnus-msg-mime.el
deleted file mode 100644 (file)
index 9818805..0000000
+++ /dev/null
@@ -1,57 +0,0 @@
-;;; gnus-msg-mime.el --- MIME extension for mail and post interface of Gnus
-
-;; Copyright (C) 1996 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Created: 1996/8/8
-;; Version:
-;;     $Id: gnus-msg-mime.el,v 0.2 1996/08/12 09:02:41 morioka Exp $
-;; Keywords: news, MIME, multimedia, multilingual, encoded-word
-
-;; This file is not part of GNU Emacs yet.
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with This program.  If not, write to the Free Software
-;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-
-;;; Code:
-
-(require 'gnus-msg)
-
-(defun gnus-copy-article-buffer-with-no-filter ()
-  ;; make a copy of the article buffer with all text properties removed
-  ;; this copy is in the buffer gnus-article-copy.
-  ;; if ARTICLE-BUFFER is nil, gnus-article-buffer is used
-  ;; this buffer should be passed to all mail/news reply/post routines.
-  (setq gnus-article-copy (get-buffer-create " *gnus article copy*"))
-  (buffer-disable-undo gnus-article-copy)
-  (or (memq gnus-article-copy gnus-buffer-list)
-      (setq gnus-buffer-list (cons gnus-article-copy gnus-buffer-list)))
-  (let (mime-viewer/plain-text-preview-hook
-       (mime-viewer/ignored-field-regexp "^:$"))
-    (save-window-excursion
-      (mime/viewer-mode nil nil nil
-                       gnus-original-article-buffer gnus-article-copy)
-      )
-    gnus-article-copy))
-
-
-;;(fset 'gnus-copy-article-buffer 'gnus-copy-article-buffer-with-no-filter)
-
-
-;;; @ end
-;;;
-
-(provide 'gnus-msg-mime)
-
-;;; gnus-msg-mime.el ends here
diff --git a/gnus/gnus-sum-mime.el b/gnus/gnus-sum-mime.el
deleted file mode 100644 (file)
index 8e01a29..0000000
+++ /dev/null
@@ -1,103 +0,0 @@
-;;; gnus-sum-mime.el --- MIME extension for summary mode of Gnus
-
-;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Created: 1996/8/6
-;; Version:
-;;     $Id: gnus-sum-mime.el,v 0.4 1996/09/02 10:03:58 morioka Exp $
-;; Keywords: news, MIME, multimedia, multilingual, encoded-word
-
-;; This file is not part of GNU Emacs yet.
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program; see the file COPYING.  If not, write to
-;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'gnus-mime)
-(require 'gnus-art-mime)
-
-
-;;; @ summary filter
-;;;
-
-(defun gnus-set-summary-default-charset ()
-  (let ((charset
-        (if (buffer-live-p gnus-summary-buffer)
-            (save-excursion
-              (set-buffer gnus-summary-buffer)
-              (let ((rest gnus-newsgroup-default-charset-alist)
-                    cell)
-                (catch 'tag
-                  (while (setq cell (car rest))
-                    (if (string-match (car cell) gnus-newsgroup-name)
-                        (throw 'tag
-                               (progn
-                                 (make-local-variable 'default-mime-charset)
-                                 (setq default-mime-charset (cdr cell))
-                                 )))
-                    (setq rest (cdr rest))
-                    )))
-              default-mime-charset)
-          default-mime-charset)))
-    (goto-char (point-min))
-    (while (< (point)(point-max))
-      (decode-mime-charset-region (point)
-                                 (progn
-                                   (end-of-line)
-                                   (point))
-                                 charset)
-      (forward-char)
-      )))
-
-
-;;; @ command functions
-;;;
-
-(defun gnus-summary-preview-mime-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-original-article-buffer t)
-  (let (buffer-read-only)
-    (if (text-property-any (point-min) (point-max) 'invisible t)
-       (remove-text-properties (point-min) (point-max)
-                               gnus-hidden-properties)
-      ))
-  (mime/viewer-mode nil nil nil gnus-original-article-buffer
-                   gnus-article-buffer)
-  )
-
-(defun gnus-summary-scroll-down ()
-  "Scroll down one line current article."
-  (interactive)
-  (gnus-summary-scroll-up -1)
-  )
-
-(define-key gnus-summary-mode-map "v"
-  (function gnus-summary-preview-mime-message))
-(define-key gnus-summary-mode-map "\e\r"
-  (function gnus-summary-scroll-down))
-
-
-;;; @ end
-;;;
-
-(provide 'gnus-sum-mime)
-
-;;; gnus-sum-mime.el ends here
diff --git a/gnus/gnushook.el b/gnus/gnushook.el
deleted file mode 100644 (file)
index c455f72..0000000
+++ /dev/null
@@ -1,52 +0,0 @@
-;;;
-;;; $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)
-        )
-       ))
diff --git a/gnus/message-mime.el b/gnus/message-mime.el
deleted file mode 100644 (file)
index 4ca3f42..0000000
+++ /dev/null
@@ -1,77 +0,0 @@
-;;; message-mime.el --- MIME extensions for message.el
-
-;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Created: 1996/8/6
-;; Version:
-;;     $Id: message-mime.el,v 0.5 1996/08/12 09:11:34 morioka Exp $
-;; Keywords: news, MIME, multimedia, multilingual, encoded-word
-
-;; This file is not part of GNU Emacs yet.
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with This program.  If not, write to the Free Software
-;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-
-;;; Code:
-
-(require 'tm-edit)
-
-(setq message-forward-start-separator
-      (concat (mime-make-tag "message" "rfc822") "\n"))
-
-(setq message-forward-end-separator "")
-
-(or (string-match message-included-forward-headers "Mime-Version:")
-    (setq message-included-forward-headers
-         (concat message-included-forward-headers "\\|^Mime-Version:"))
-    )
-
-(or (string-match message-included-forward-headers "Content-Type:")
-    (setq message-included-forward-headers
-         (concat message-included-forward-headers "\\|^Content-Type:"))
-    )
-
-
-;;; @ for tm-edit
-;;;
-
-;; suggested by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
-;;     1995/11/08 (c.f. [tm ML:1067])
-(defun message-mime-insert-article (&optional message)
-  (interactive)
-  (let ((message-cite-function 'mime-editor/inserted-message-filter)
-        (message-reply-buffer gnus-original-article-buffer)
-       )
-    (message-yank-original nil)
-    ))
-
-(set-alist 'mime-editor/message-inserter-alist
-          'message-mode (function message-mime-insert-article))
-(set-alist 'mime-editor/split-message-sender-alist
-          'message-mode
-          (lambda ()
-            (interactive)
-            (let (message-send-hook
-                  message-sent-message-via)
-              (message-send)
-              )))
-
-
-;;; @ end
-;;;
-
-(provide 'message-mime)
-
-;;; message-mime.el ends here
diff --git a/gnus/mk-tgnus b/gnus/mk-tgnus
deleted file mode 100644 (file)
index c243ce3..0000000
+++ /dev/null
@@ -1,88 +0,0 @@
-;;; -*-Emacs-Lisp-*-
-;;;
-;;; $Id: mk-tgnus,v 7.5 1996/09/03 15:30:22 morioka Exp $
-;;;
-
-(setq load-path
-      (append
-       (mapcar (function
-               (lambda (path)
-                 (expand-file-name path (getenv "PWD"))
-                 ))
-              '("." ".." "../../tl/" "../../mu/" "../../mel/"))
-       load-path))
-
-(require 'emu)
-(require 'install)
-
-(defun compile-tm-gnus ()
-  (load "gnus.el")
-  (require 'nntp)
-  (require 'tm-view)
-  (require 'tm-partial)
-  (require 'tm-edit)
-  (princ (format "%s\n" gnus-version))
-  (cond ((boundp 'gnus-load-hook)
-        (byte-compile-file "gnus-mime.el")
-        (byte-compile-file "gnus-charset.el")
-        (byte-compile-file "gnus-sum-mime.el")
-        (byte-compile-file "gnus-art-mime.el")
-        (byte-compile-file "message-mime.el")
-        ;;(byte-compile-file "gnus-msg-mime.el")
-        )
-       ((string-match "GNUS 4" gnus-version)
-        (require 'tm-gnus)
-        (byte-compile-file "tm-gnus4.el")
-        )
-       ((string-match "GNUS 3" gnus-version)
-        (require 'tm-gnus)
-        (byte-compile-file "tm-gnus3.el")
-        ))
-  ;;(byte-compile-file "tm-gnus.el")
-  )
-
-(defun install-tm-gnus ()
-  (let ((path (car command-line-args-left)))
-    (princ (format "%s\n" emacs-version))
-    (if (not (file-exists-p path))
-       (make-directory path t)
-      )
-    (cond (running-emacs-18
-          (install-files '("tm-gnus.el"
-                           "tm-gnus3.el" "tm-gnus4.el"
-                           "tm-gd3.el")
-                         "./" path nil 'overwrite)
-          (install-files '(;;"tm-gnus.elc"
-                           "tm-gnus3.elc" "tm-gnus4.elc")
-                         "./" path 'move)
-          )
-         ((or (and running-emacs-19 (<= emacs-minor-version 29))
-              (and running-xemacs-19 (<= emacs-minor-version 13)))
-          (install-files '("tm-gnus.el" "tm-gnus4.el" "tm-gd3.el"
-                           "gnus-mime.el" "gnus-charset.el"
-                           "gnus-sum-mime.el" "gnus-art-mime.el")
-                         "./" path nil 'overwrite)
-          (install-files '(;;"tm-gnus.elc"
-                           "tm-gnus4.elc"
-                           "gnus-mime.elc" "gnus-charset.elc"
-                           "gnus-sum-mime.elc" "gnus-art-mime.elc")
-                         "./" path 'move)
-          )
-         (t
-          (install-files '("gnus-mime.el" "gnus-charset.el"
-                           "gnus-sum-mime.el" "gnus-art-mime.el"
-                           "message-mime.el"
-                           ;;"gnus-msg-mime.el"
-                           )
-                         "./" path nil 'overwrite)
-          (install-files '("gnus-mime.elc" "gnus-charset.elc"
-                           "gnus-sum-mime.elc" "gnus-art-mime.elc"
-                           "message-mime.elc"
-                           ;;"gnus-msg-mime.elc"
-                           )
-                         "./" path 'move)
-          ))
-    (setq command-line-args-left (cdr command-line-args-left))
-    ))
-
-;;; mk-tgnus ends here
diff --git a/gnus/s-path b/gnus/s-path
deleted file mode 100644 (file)
index 1fcce1c..0000000
+++ /dev/null
@@ -1,21 +0,0 @@
-;;; -*-Emacs-Lisp-*-
-
-(require 'tl-misc)
-
-;;;
-;;; loadpath for Gnus 5.2
-;;;
-
-;; please edit
-
-;; It is for latest September Gnus.
-(let ((path (get-latest-path "gnus-5.2")))
-  (if path
-      (add-path (expand-file-name "lisp/" path))
-    ))
-
-;; It is relative style. Added path is searched from load-path.
-;; (add-path "gnus-5.2.10/lisp/" 'all-paths)
-
-;; It is absolute style.
-;; (add-path "/usr/local/share/emacs/site-lisp/gnus-5.2.10/lisp/")
diff --git a/gnus/tgnus-bc.el b/gnus/tgnus-bc.el
deleted file mode 100644 (file)
index 72b410b..0000000
+++ /dev/null
@@ -1,17 +0,0 @@
-(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)
-  )
diff --git a/gnus/tm-dgnus.el b/gnus/tm-dgnus.el
deleted file mode 100644 (file)
index 690a39c..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
-;;;
-;;; 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)
diff --git a/gnus/tm-gd3.el b/gnus/tm-gd3.el
deleted file mode 100644 (file)
index 9ed7ff0..0000000
+++ /dev/null
@@ -1,85 +0,0 @@
-;;;
-;;; tm-gd3.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>
-;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Created: 1995/05/23 (obsolete tm-ognus.el)
-;;; Version:
-;;;    $Id: tm-gd3.el,v 7.6 1996/03/27 19:27:04 morioka Exp $
-;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
-;;;
-;;; This file is part of tm (Tools for MIME).
-;;;
-;;; This program is free software; you can redistribute it and/or
-;;; modify it under the terms of the GNU General Public License as
-;;; published by the Free Software Foundation; either version 2, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;; General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with This program.  If not, write to the Free Software
-;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-;;;
-;;; Code:
-
-(require 'tm-ew-d)
-
-
-;;; @ 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) "")
-                 (truncate-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-gd3)
-
-;;; tm-gd3.el ends here
diff --git a/gnus/tm-gd5.el b/gnus/tm-gd5.el
deleted file mode 100644 (file)
index 773b23b..0000000
+++ /dev/null
@@ -1,97 +0,0 @@
-;;;
-;;; tm-gd5.el --- tm-gnus shared module for Gnus 5.*.
-;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1995,1996 MORIOKA Tomohiko
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Created: 1995/11/19
-;;; Version:
-;;;    $Id: tm-gd5.el,v 4.0 1996/01/25 02:37:43 morioka Exp $
-;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
-;;;
-;;; This file is part of tm (Tools for MIME).
-;;;
-;;; This program is free software; you can redistribute it and/or
-;;; modify it under the terms of the GNU General Public License as
-;;; published by the Free Software Foundation; either version 2, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;; General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with This program.  If not, write to the Free Software
-;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-;;;
-;;; Code:
-
-(cond ((not (boundp 'nnheader-encoded-words-decoding))
-       (require 'tm-ew-d)
-       
-       (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
-                          (code-convert-string
-                           subj mime/default-coding-system *internal*))
-                       ""))
-                    ))
-                gnus-newsgroup-headers))
-       
-       (add-hook 'gnus-select-group-hook
-                (function tm-gnus/decode-summary-from-and-subjects))
-       ))
-
-
-(if (boundp 'MULE)
-    (progn
-      (define-service-coding-system gnus-nntp-service nil *noconv*)
-      (if (and (boundp 'nntp-server-process)
-              (processp nntp-server-process)
-              )
-         (set-process-coding-system nntp-server-process *noconv* *noconv*)
-       )
-      
-      (or (fboundp 'tm-gnus/original-request-article)
-         (fset 'tm-gnus/original-request-article
-               (symbol-function 'gnus-request-article))
-         )
-      
-      (defun gnus-request-article (article group &optional buffer)
-       (let ((file-coding-system-for-read *noconv*))
-         (tm-gnus/original-request-article article group buffer)
-         ))
-      ))
-
-(fset 'tm-gnus/code-convert-region-to-emacs
-      (symbol-function 'mime/code-convert-region-to-emacs))
-
-(defun tm-gnus/content-header-filter ()
-  (goto-char (point-min))
-  (mime-preview/cut-header)
-  (tm-gnus/code-convert-region-to-emacs (point-min)(point-max)
-                                       mime/default-coding-system)
-  (mime/decode-message-header)
-  )
-
-
-;;; @ end
-;;;
-
-(provide 'tm-gd5)
-
-;;; tm-gd5.el ends here
diff --git a/gnus/tm-gnus.el b/gnus/tm-gnus.el
deleted file mode 100644 (file)
index 9a7c9df..0000000
+++ /dev/null
@@ -1,92 +0,0 @@
-;;;
-;;; tm-gnus.el --- MIME extension for GNUS
-;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1993 .. 1996 MORIOKA Tomohiko
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; modified by Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
-;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;;         and Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
-;;; Created: 1993/11/20 (obsolete mol's gnus-mime.el)
-;;; Version:
-;;;    $Id: tm-gnus.el,v 7.24 1996/08/06 12:09:13 morioka Exp $
-;;; Keywords: news, MIME, multimedia, encoded-word, multilingual
-;;;
-;;; This file is part of tm (Tools for MIME).
-;;;
-;;; This program is free software; you can redistribute it and/or
-;;; modify it under the terms of the GNU General Public License as
-;;; published by the Free Software Foundation; either version 2, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;; General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with This program.  If not, write to the Free Software
-;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-;;;
-;;; Commentary: Notice that this module is only for GNUS, not for Gnus.
-;;;
-;;; Code:
-
-(require 'gnus)
-
-
-;;; @ variables
-;;;
-
-(defvar tm-gnus/startup-hook nil)
-
-
-;;; @ set up
-;;;
-
-(cond ((fboundp 'gnus-article-prepare)
-       ;; for GNUS 3.15 .. 4.*
-       (require 'tm-gd3)
-       (require 'tm-gnus4)
-       (add-hook 'gnus-select-group-hook 'tm-gnus/decode-summary-subjects)
-       (fset 'gnus-article-set-mode-line
-            (function tm-gnus/article-set-mode-line))
-       
-       (or (fboundp 'tm:gnus-article-delete-headers)
-          (fset 'tm:gnus-article-delete-headers
-                (symbol-function 'gnus-article-delete-headers))
-          )
-       (defun gnus-article-delete-headers ()
-        (or tm-gnus/automatic-mime-preview
-            (tm:gnus-article-delete-headers)
-            ))
-       
-       (require 'gnuspost)
-       (or (fboundp 'tm-gnus/original-news-reply)
-          (fset 'tm-gnus/original-news-reply
-                (symbol-function 'gnus-news-reply))
-          )
-       (defun gnus-news-reply (&optional yank)
-        (if (eq major-mode 'mime/viewer-mode)
-            (let ((major-mode 'gnus-article-mode))
-              (tm-gnus/original-news-reply yank)
-              )
-          (tm-gnus/original-news-reply yank)
-          ))
-       )
-      ((string-match "^GNUS 3" gnus-version)
-       ;; for GNUS 3.14.*
-       (require 'tm-gnus3)
-       (defvar gnus-article-buffer gnus-Article-buffer)
-       ))
-
-
-;;; @ end
-;;;
-
-(provide 'tm-gnus)
-
-(run-hooks 'tm-gnus-load-hook)
-
-;;; tm-gnus.el ends here
diff --git a/gnus/tm-gnus3.el b/gnus/tm-gnus3.el
deleted file mode 100644 (file)
index 366b0bc..0000000
+++ /dev/null
@@ -1,297 +0,0 @@
-;;;
-;;; tm-gnus3.el --- tm-gnus module for GNUS 3.*
-;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1993 .. 1996 MORIOKA Tomohiko
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;;         and KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
-;;; Created: 1993/11/20
-;;; Version: $Revision: 7.10 $
-;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
-;;;
-;;; This file is part of tm (Tools for MIME).
-;;;
-;;; This program is free software; you can redistribute it and/or
-;;; modify it under the terms of the GNU General Public License as
-;;; published by the Free Software Foundation; either version 2, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;; General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with This program.  If not, write to the Free Software
-;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-;;;
-;;; Code:
-
-(require 'tl-list)
-(require 'tl-str)
-(require 'tl-misc)
-(require 'gnus)
-(require 'tm-gd3)
-
-(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)
-
-(fset 'gnus-summary-select-article 'gnus-Subject-select-article)
-
-
-;;; @ version
-;;;
-
-(defconst tm-gnus/RCS-ID
-  "$Id: tm-gnus3.el,v 7.10 1996/06/09 06:51:09 morioka Exp $")
-
-(defconst tm-gnus/version
-  (concat (get-version-string tm-gnus/RCS-ID) " for GNUS 3"))
-
-
-;;; @ variable
-;;;
-
-(defvar tm-gnus/decoding-mode t "*Decode MIME header if non-nil.")
-
-
-;;; @ mode-line
-;;;
-
-(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))
-      ))
-
-(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)
-                  (tm-gnus/add-decoding-mode-to-mode-line)
-                  )))
-      )
-  (progn
-    (add-hook 'gnus-Article-mode-hook
-             (function tm-gnus/add-decoding-mode-to-mode-line))
-    ))
-
-;;; @@ 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) "")
-                 (truncate-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))
-
-(fset 'gnus-Article-set-mode-line 'tm-gnus/article-set-mode-line)
-
-
-;;; @ 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))
-  )
-
-
-;;; @ for tm-view
-;;;
-
-(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-Subject-select-article t t)
-    )
-  (pop-to-buffer gnus-Article-buffer t)
-  (mime/viewer-mode)
-  )
-
-(call-after-loaded
- 'tm-view
- (function
-  (lambda ()
-    (set-alist 'mime-viewer/quitting-method-alist
-              'gnus-Article-mode
-              (if (string-match (regexp-quote "3.14.4") gnus-version)
-                  (function
-                   (lambda ()
-                     (mime-viewer/kill-buffer)
-                     (delete-other-windows)
-                     (gnus-Article-show-summary)
-                     ))
-                (function
-                 (lambda ()
-                   (mime-viewer/kill-buffer)
-                   (delete-other-windows)
-                   (gnus-Article-show-subjects)
-                   ))
-                ))
-    )))
-
-
-;;; @ for tm-edit
-;;;
-
-;; suggested by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
-;;     1995/11/08 (c.f. [tm ML:1067])
-(defun tm-gnus/insert-article (&optional message)
-  (interactive)
-  (let (;; for Emacs 18
-       (mail-yank-ignored-headers mime-editor/yank-ignored-field-regexp)
-       (news-make-reply-yank-header (function
-                                     (lambda (message-id from) "")
-                                     ))
-       (news-yank-original-quoting-indicator "")
-       
-       ;; select raw article buffer
-       (mail-reply-buffer
-        (save-excursion
-          (set-buffer gnus-article-buffer)
-          (if (eq major-mode 'mime/viewer-mode)
-              mime::preview/article-buffer
-            gnus-article-buffer)))
-       )
-    (news-reply-yank-original 0)
-    ))
-
-(call-after-loaded
- 'tm-edit
- (function
-  (lambda ()
-    (set-alist
-     'mime-editor/message-inserter-alist
-     'news-reply-mode (function tm-gnus/insert-article))
-    
-    (autoload 'tm-mail/insert-message "tm-mail")
-    (set-alist 'mime-editor/message-inserter-alist
-              'mail-mode (function tm-mail/insert-message))
-
-    (set-alist 'mime-editor/split-message-sender-alist
-              'news-reply-mode
-              'gnus-inews-news)
-    )))
-
-
-;;; @ 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-Subject-buffer)
-                ))
-    
-    (set-alist 'tm-partial/preview-article-method-alist
-              'gnus-Article-mode
-              (function
-               (lambda ()
-                 (tm-gnus/view-message (gnus-Subject-article-number))
-                 )))
-    )))
-
-
-;;; @ Summary decoding
-;;;
-
-(add-hook 'gnus-Select-group-hook (function tm-gnus/decode-summary-subjects))
-
-
-;;; @ set up
-;;;
-
-(define-key gnus-Subject-mode-map "\et" 'tm-gnus/toggle-decoding-mode)
-(define-key gnus-Subject-mode-map "v" 'tm-gnus/view-message)
-
-(defun tm-gnus/decode-encoded-word-if-you-need ()
-  (if (and tm-gnus/decoding-mode
-          (cond ((boundp 'all-headers) (not all-headers))
-                (t                     t))
-          )
-      (mime/decode-message-header)
-    )
-  (run-hooks 'tm-gnus/article-prepare-hook)
-  )
-
-(add-hook 'gnus-Article-prepare-hook
-         (function tm-gnus/decode-encoded-word-if-you-need) t)
-
-
-;;; @ for BBDB
-;;;
-
-(call-after-loaded
- 'bbdb
- (function
-  (lambda ()
-    (require 'tm-bbdb)
-    )))
-
-(autoload 'tm-bbdb/update-record "tm-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 'gnus-Article-prepare-hook 'tm-bbdb/update-record)
-       )))
-
-(add-hook 'gnus-startup-hook 'tm-gnus/bbdb-setup t)
-
-(tm-gnus/bbdb-setup)
-
-
-;;; @ end
-;;;
-
-(provide 'tm-gnus3)
-
-;;; tm-gnus3.el ends here
diff --git a/gnus/tm-gnus4.el b/gnus/tm-gnus4.el
deleted file mode 100644 (file)
index 3578ac3..0000000
+++ /dev/null
@@ -1,310 +0,0 @@
-;;;
-;;; tm-gnus4.el --- tm-gnus module for GNUS 4, 5.0.* and 5.1.*.
-;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1995,1996 MORIOKA Tomohiko
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; modified by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
-;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;;         and KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
-;;; Created: 1993/11/20 (merged tm-gnus5.el)
-;;; Version: $Revision: 7.20 $
-;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
-;;;
-;;; This file is part of tm (Tools for MIME).
-;;;
-;;; This program is free software; you can redistribute it and/or
-;;; modify it under the terms of the GNU General Public License as
-;;; published by the Free Software Foundation; either version 2, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;; General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with This program.  If not, write to the Free Software
-;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-;;;
-;;; Code:
-
-(require 'tl-str)
-(require 'tl-misc)
-
-
-;;; @ version
-;;;
-
-(defconst tm-gnus/RCS-ID
-  "$Id: tm-gnus4.el,v 7.20 1996/06/09 06:53:41 morioka Exp $")
-
-(defconst tm-gnus/version
-  (concat (get-version-string tm-gnus/RCS-ID) " for 3.15 .. 5.1.*"))
-
-
-;;; @ variable
-;;;
-
-(defvar tm-gnus/automatic-mime-preview t
-  "*If non-nil, show MIME processed article.
-This variable is set to `gnus-show-mime'.")
-
-(defvar tm-gnus/original-article-buffer " *Original Article*")
-(defvar gnus-original-article-buffer nil)
-
-
-;;; @ for tm-view
-;;;
-
-(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-show-mime nil))
-    (gnus-summary-select-article t t)
-    )
-  (pop-to-buffer gnus-article-buffer t)
-  (let ((str (buffer-string))
-       (obuf (get-buffer tm-gnus/original-article-buffer))
-       (pbuf (current-buffer))
-       )
-    (if obuf
-       (progn
-         (set-buffer obuf)
-         (setq buffer-read-only nil)
-         (erase-buffer)
-         )
-      (setq obuf (get-buffer-create tm-gnus/original-article-buffer))
-      (set-buffer obuf)
-      )
-    (insert str)
-    (gnus-article-mode)
-    (set-buffer pbuf)
-    (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)
-    (let (buffer-read-only)
-      (run-hooks 'tm-gnus/article-prepare-hook)
-      )
-    ))
-
-(defun tm-gnus/summary-scroll-down ()
-  "Scroll down one line current article."
-  (interactive)
-  (gnus-summary-scroll-up -1)
-  )
-
-(defun mime-viewer/quitting-method-for-gnus4 ()
-  (if (not gnus-show-mime)
-      (mime-viewer/kill-buffer)
-    )
-  (delete-other-windows)
-  (gnus-article-show-summary)
-  (if (or (not gnus-show-mime)
-         (null gnus-have-all-headers))
-      (gnus-summary-select-article nil t)
-    ))
-
-(call-after-loaded
- 'tm-view
- (function
-  (lambda ()
-    (set-alist 'mime-viewer/quitting-method-alist
-              'gnus-article-mode
-              (function mime-viewer/quitting-method-for-gnus4))
-    (set-alist 'mime-viewer/show-summary-method
-              'gnus-article-mode
-              (function mime-viewer/quitting-method-for-gnus4))
-    )))
-
-
-;;; @ for tm-edit
-;;;
-
-;; suggested by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
-;;     1995/11/08 (c.f. [tm ML:1067])
-(defun tm-gnus/insert-article (&optional message)
-  (interactive)
-  (let (;; for Emacs 19
-       (mail-citation-hook '(mime-editor/inserted-message-filter))
-       news-reply-header-hook
-       mail-yank-hooks
-       
-       ;; for Emacs 18
-       (mail-yank-ignored-headers mime-editor/yank-ignored-field-regexp)
-       (news-make-reply-yank-header (function
-                                     (lambda (message-id from) "")
-                                     ))
-       (news-yank-original-quoting-indicator "")
-       
-       ;; select raw article buffer
-       (mail-reply-buffer
-        (save-excursion
-          (set-buffer gnus-article-buffer)
-          (if (eq major-mode 'mime/viewer-mode)
-              mime::preview/article-buffer
-            gnus-article-buffer)))
-       )
-    (news-reply-yank-original 0)
-    ))
-
-;;; modified by Steven L. Baur <steve@miranova.com>
-;;;    1995/12/6 (c.f. [tm-en:209])
-(defun mime-editor/attach-to-news-reply-menu ()
-  "Arrange to attach MIME editor's popup menu to VM's"
-  (if (boundp 'news-reply-menu)
-      (progn
-       (setq news-reply-menu (append news-reply-menu
-                                     '("---")
-                                     mime-editor/popup-menu-for-xemacs))
-       (remove-hook 'news-setup-hook
-                    'mime-editor/attach-to-news-reply-menu)
-       )))
-
-(call-after-loaded
- 'tm-edit
- (function
-  (lambda ()
-    (set-alist 'mime-editor/message-inserter-alist
-              'news-reply-mode (function tm-gnus/insert-article))
-    
-    (autoload 'tm-mail/insert-message "tm-mail")
-    (set-alist 'mime-editor/message-inserter-alist
-              'mail-mode (function tm-mail/insert-message))
-    (if (string-match "XEmacs\\|Lucid" emacs-version)
-       (add-hook 'news-setup-hook 'mime-editor/attach-to-news-reply-menu)
-      )
-    
-    (set-alist 'mime-editor/split-message-sender-alist
-              'news-reply-mode
-              (function gnus-inews-news))
-    )))
-
-
-;;; @ 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))
-                 )))
-    )))
-
-
-;;; @ set up
-;;;
-
-(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))
-
-(defun tm-gnus/article-reset-variable ()
-  (setq gnus-original-article-buffer nil)
-  (setq tm-gnus/automatic-mime-preview nil)
-  (gnus-article-mode)
-  (setq buffer-read-only nil)
-  )
-
-(add-hook 'gnus-article-prepare-hook 'tm-gnus/article-reset-variable)
-
-(defun tm-gnus/decode-encoded-word-if-you-need ()
-  (if (not gnus-have-all-headers)
-      (progn
-       (mime/decode-message-header)
-       (run-hooks 'tm-gnus/article-prepare-hook)
-       )))
-
-(defun tm-gnus/preview-article-if-you-need ()
-  (if (not gnus-have-all-headers)
-      (let ((str (buffer-string))
-           (obuf (get-buffer tm-gnus/original-article-buffer))
-           (pbuf (current-buffer))
-           )
-       (if obuf
-           (progn
-             (set-buffer obuf)
-             (setq buffer-read-only nil)
-             (erase-buffer)
-             )
-         (setq obuf (get-buffer-create tm-gnus/original-article-buffer))
-         (set-buffer obuf)
-         )
-       (insert str)
-       (gnus-article-mode)
-       (set-buffer pbuf)
-       (make-local-variable 'tm:mother-button-dispatcher)
-       (setq tm:mother-button-dispatcher
-             (function gnus-article-push-button))
-       (save-window-excursion
-         (mime/viewer-mode
-          nil nil nil tm-gnus/original-article-buffer gnus-article-buffer)
-         )
-       (setq tm-gnus/automatic-mime-preview t)
-       (setq gnus-original-article-buffer tm-gnus/original-article-buffer)
-       (let (buffer-read-only)
-         (run-hooks 'tm-gnus/article-prepare-hook)
-         )
-       (if (featurep 'tm-gd3)
-           (setq buffer-read-only nil)
-         )
-       )))
-
-(setq gnus-show-mime-method
-      (if tm-gnus/automatic-mime-preview
-         (function tm-gnus/preview-article-if-you-need)
-       (function tm-gnus/decode-encoded-word-if-you-need)
-       ))
-
-(setq gnus-show-mime t)
-
-
-;;; @ for BBDB
-;;;
-
-(call-after-loaded
- 'bbdb
- (function
-  (lambda ()
-    (require 'tm-bbdb)
-    )))
-
-(autoload 'tm-bbdb/update-record "tm-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-article-display-hook 'tm-bbdb/update-record)
-       )))
-
-(add-hook 'gnus-startup-hook 'tm-gnus/bbdb-setup t)
-
-(tm-gnus/bbdb-setup)
-
-
-;;; @ end
-;;;
-
-(provide 'tm-gnus4)
-
-;;; tm-gnus4.el ends here
diff --git a/gnus/tm-gnus5.el b/gnus/tm-gnus5.el
deleted file mode 100644 (file)
index b3b6bb7..0000000
+++ /dev/null
@@ -1,403 +0,0 @@
-;;;
-;;; tm-gnus5.el --- MIME extender for Gnus 5.2 or later
-;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1995,1996 MORIOKA Tomohiko
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;;         and KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
-;;; Created: 1995/09/24
-;;; Version: $Revision: 7.79 $
-;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
-;;;
-;;; This file is part of tm (Tools for MIME).
-;;;
-;;; This program is free software; you can redistribute it and/or
-;;; modify it under the terms of the GNU General Public License as
-;;; published by the Free Software Foundation; either version 2, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;; General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with This program.  If not, write to the Free Software
-;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-;;;
-;;; Code:
-
-(require 'tl-str)
-(require 'tl-list)
-(require 'tl-misc)
-(require 'tm-view)
-(require 'gnus)
-
-(eval-when-compile (require 'cl))
-
-
-;;; @ version
-;;;
-
-(defconst tm-gnus/RCS-ID
-  "$Id: tm-gnus5.el,v 7.79 1996/07/18 12:17:11 morioka Exp $")
-
-(defconst tm-gnus/version
-  (concat (get-version-string tm-gnus/RCS-ID) " for Gnus 5.2 or later"))
-
-
-;;; @ variables
-;;;
-
-(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")
-  (let ((gnus-break-pages nil))
-    (gnus-summary-select-article t t)
-    )
-  (pop-to-buffer gnus-original-article-buffer t)
-  (let (buffer-read-only)
-    (if (text-property-any (point-min) (point-max) 'invisible t)
-       (remove-text-properties (point-min) (point-max)
-                               gnus-hidden-properties)
-      ))
-  (mime/viewer-mode nil nil nil 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 tm-gnus/automatic-mime-preview
-      (let* ((hidden
-             (save-excursion
-               (set-buffer gnus-article-buffer)
-               (text-property-any 
-                (goto-char (point-min)) (search-forward "\n\n")
-                'invisible t)
-               ))
-            (mime-viewer/redisplay t)
-            )
-       (gnus-summary-select-article hidden t)
-       )
-    (gnus-summary-toggle-header arg))
-  )
-
-(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))
-(substitute-key-definition
- 'gnus-summary-toggle-header
- 'tm-gnus/summary-toggle-header gnus-summary-mode-map)
-
-
-;;; @ for tm-view
-;;;
-
-(defun tm-gnus/content-header-filter ()
-  (goto-char (point-min))
-  (mime-preview/cut-header)
-  (decode-mime-charset-region (point-min)(point-max) default-mime-charset)
-  (mime/decode-message-header)
-  )
-
-(set-alist 'mime-viewer/content-header-filter-alist
-          'gnus-original-article-mode
-          (function tm-gnus/content-header-filter))
-
-(set-alist 'mime-viewer/code-converter-alist
-          'gnus-original-article-mode
-          (function mime-charset/decode-buffer))
-
-(defun mime-viewer/quitting-method-for-gnus5 ()
-  (if (not gnus-show-mime)
-      (mime-viewer/kill-buffer))
-  (delete-other-windows)
-  (gnus-article-show-summary)
-  (if (or (not gnus-show-mime)
-         (null gnus-have-all-headers))
-      (gnus-summary-select-article nil t)
-    ))
-
-(set-alist 'mime-viewer/quitting-method-alist
-          'gnus-original-article-mode
-          (function mime-viewer/quitting-method-for-gnus5))
-(set-alist 'mime-viewer/show-summary-method
-          'gnus-original-article-mode
-          (function mime-viewer/quitting-method-for-gnus5))
-
-
-;;; @ for tm-edit
-;;;
-
-;; suggested by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
-;;     1995/11/08 (c.f. [tm ML:1067])
-(defun tm-gnus/insert-article (&optional message)
-  (interactive)
-  (let ((message-cite-function 'mime-editor/inserted-message-filter)
-        (message-reply-buffer gnus-original-article-buffer)
-       )
-    (message-yank-original nil)
-    ))
-
-;;; modified by Steven L. Baur <steve@miranova.com>
-;;;    1995/12/6 (c.f. [tm-en:209])
-(defun mime-editor/attach-to-news-reply-menu ()
-  "Arrange to attach MIME editor's popup menu to VM's"
-  (if (boundp 'news-reply-menu)
-      (progn
-       (setq news-reply-menu (append news-reply-menu
-                                     '("---")
-                                     mime-editor/popup-menu-for-xemacs))
-       (remove-hook 'news-setup-hook
-                    'mime-editor/attach-to-news-reply-menu)
-       )))
-
-(call-after-loaded
- 'tm-edit
- (function
-  (lambda ()
-    (set-alist 'mime-editor/message-inserter-alist
-              'message-mode (function tm-gnus/insert-article))
-    (if (string-match "XEmacs\\|Lucid" emacs-version)
-       (add-hook 'news-setup-hook 'mime-editor/attach-to-news-reply-menu)
-      )
-
-    (set-alist 'mime-editor/split-message-sender-alist
-              'message-mode
-              (lambda ()
-                (interactive)
-                (let (message-send-hook
-                      message-sent-message-via)
-                  (message-send)
-                  )))
-    )))
-
-
-;;; @ for tm-partial
-;;;
-
-(defun tm-gnus/partial-preview-function ()
-  (tm-gnus/view-message (gnus-summary-article-number))
-  )
-
-(call-after-loaded
- 'tm-partial
- (lambda ()
-   (set-atype 'mime/content-decoding-condition
-             '((type . "message/partial")
-               (method . mime-article/grab-message/partials)
-               (major-mode . gnus-original-article-mode)
-               (summary-buffer-exp . gnus-summary-buffer)
-               ))
-   (set-alist 'tm-partial/preview-article-method-alist
-             'gnus-original-article-mode
-             'tm-gnus/partial-preview-function)
-   ))
-
-
-;;; @ article filter
-;;;
-
-(defun tm-gnus/article-reset-variable ()
-  (setq tm-gnus/automatic-mime-preview nil)
-  )
-
-(add-hook 'gnus-article-prepare-hook 'tm-gnus/article-reset-variable)
-
-(defun tm-gnus/preview-article ()
-  (make-local-variable 'tm:mother-button-dispatcher)
-  (setq tm:mother-button-dispatcher
-       (function gnus-article-push-button))
-  (let ((mime-viewer/ignored-field-regexp "^:$")
-       (default-mime-charset
-         (save-excursion
-           (set-buffer gnus-summary-buffer)
-           default-mime-charset))
-       )
-    (mime/viewer-mode nil nil nil gnus-original-article-buffer
-                     gnus-article-buffer
-                     gnus-article-mode-map)
-    )
-  (setq tm-gnus/automatic-mime-preview t)
-  (run-hooks 'tm-gnus/article-prepare-hook)
-  )
-
-(setq gnus-show-mime-method (function tm-gnus/preview-article))
-
-(defun tm-gnus/article-decode-encoded-word ()
-  (decode-mime-charset-region (point-min)(point-max)
-                             (save-excursion
-                               (set-buffer gnus-summary-buffer)
-                               default-mime-charset))
-  (mime/decode-message-header)
-  (run-hooks 'tm-gnus/article-prepare-hook)
-  )
-
-(setq gnus-decode-encoded-word-method
-      (function tm-gnus/article-decode-encoded-word))
-
-
-;;; @ for mule (Multilingual support)
-;;;
-
-(defvar gnus-newsgroup-default-charset-alist nil)
-
-(defun gnus-set-newsgroup-default-charset (newsgroup charset)
-  "Set CHARSET for the NEWSGROUP as default MIME charset."
-  (set-alist 'gnus-newsgroup-default-charset-alist
-            (concat "^" (regexp-quote newsgroup) "\\($\\|\\.\\)")
-            charset))
-
-(cond
- ((featurep 'mule)
-  (cond ((boundp 'MULE) ; for MULE 1.* and 2.*.
-        (define-service-coding-system gnus-nntp-service nil *noconv*)
-        (if (and (boundp 'nntp-server-process)
-                 (processp nntp-server-process)
-                 )
-            (set-process-coding-system nntp-server-process *noconv* *noconv*)
-          )
-        )
-       (running-xemacs-20 ; for XEmacs/mule.
-        (if (and (boundp 'nntp-server-process)
-                 (processp nntp-server-process)
-                 )
-            (set-process-input-coding-system nntp-server-process 'noconv)
-          )
-        ))
-  (call-after-loaded
-   'nnheader
-   (lambda ()
-     (defun nnheader-find-file-noselect (filename &optional nowarn rawfile)
-       (let ((file-coding-system-for-read *noconv*))
-        (find-file-noselect filename nowarn rawfile)
-        ))
-     (defun nnheader-insert-file-contents-literally
-       (filename &optional visit beg end replace)
-       (let ((file-coding-system-for-read *noconv*))
-        (insert-file-contents-literally filename visit beg end replace)
-        ))
-     ))
-  ;; Please use Gnus 5.2.10 or later if you use Mule.
-  (call-after-loaded
-   'nnmail
-   (lambda ()
-     (defun nnmail-find-file (file)
-       "Insert FILE in server buffer safely. [tm-gnus5.el]"
-       (set-buffer nntp-server-buffer)
-       (erase-buffer)
-       (let ((format-alist nil)
-             (after-insert-file-functions   ; for jam-code-guess
-              (if (memq 'jam-code-guess-after-insert-file-function
-                        after-insert-file-functions)
-                  '(jam-code-guess-after-insert-file-function)))
-            (file-coding-system-for-read *noconv*))
-        (condition-case ()
-            (progn (insert-file-contents file) t)
-          (file-error nil))))
-     ))
-  (defun tm-gnus/prepare-save-mail-function ()
-    (setq file-coding-system *noconv*)
-    )
-  (add-hook 'nnmail-prepare-save-mail-hook
-           'tm-gnus/prepare-save-mail-function)
-  
-  (gnus-set-newsgroup-default-charset "alt.chinese"            'hz)
-  (gnus-set-newsgroup-default-charset "alt.chinese.text.big5"  'big5)
-  (gnus-set-newsgroup-default-charset "tw"                     'big5)
-  (gnus-set-newsgroup-default-charset "hk"                     'big5)
-  (gnus-set-newsgroup-default-charset "hkstar"                 'big5)
-  (gnus-set-newsgroup-default-charset "han"                            'euc-kr)
-  (gnus-set-newsgroup-default-charset "relcom"                 'koi8-r)
-  ))
-
-
-;;; @ summary filter
-;;;
-
-(defun tm-gnus/decode-summary-from-and-subjects ()
-  (let ((rest gnus-newsgroup-default-charset-alist)
-       cell)
-    (catch 'tag
-      (while (setq cell (car rest))
-       (if (string-match (car cell) gnus-newsgroup-name)
-           (throw 'tag
-                  (progn
-                    (make-local-variable 'default-mime-charset)
-                    (setq default-mime-charset (cdr cell))
-                    )))
-       (setq rest (cdr rest))
-       )))
-  (mapcar
-   (lambda (header)
-     (let ((from (or (mail-header-from header) ""))
-          (subj (or (mail-header-subject header) ""))
-          (method (car gnus-current-select-method))
-          )
-       (if (eq method 'nntp)
-          (progn
-            (setq from
-                  (decode-mime-charset-string from default-mime-charset))
-            (setq subj
-                  (decode-mime-charset-string subj default-mime-charset))
-            ))
-       (mail-header-set-from
-       header (mime-eword/decode-string from))
-       (mail-header-set-subject
-       header (mime-eword/decode-string subj))
-       ))
-   gnus-newsgroup-headers))
-
-(or (boundp 'nnheader-encoded-words-decoding)
-    (add-hook 'gnus-select-group-hook
-             'tm-gnus/decode-summary-from-and-subjects)
-    )
-
-
-;;; @ for BBDB
-;;;
-
-(call-after-loaded
- 'bbdb
- (lambda ()
-   (require 'tm-bbdb)
-   ))
-
-(autoload 'tm-bbdb/update-record "tm-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 'gnus-article-display-hook 'tm-bbdb/update-record)
-       )))
-
-(add-hook 'gnus-startup-hook 'tm-gnus/bbdb-setup t)
-
-(tm-gnus/bbdb-setup)
-
-
-;;; @ end
-;;;
-
-(provide 'tm-gnus5)
-
-;;; tm-gnus5.el ends here
diff --git a/gnus/tm-ognus.el b/gnus/tm-ognus.el
deleted file mode 100644 (file)
index 43d848e..0000000
+++ /dev/null
@@ -1,102 +0,0 @@
-;;;
-;;; 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)
diff --git a/gnus/tm-sgnus.el b/gnus/tm-sgnus.el
deleted file mode 100644 (file)
index 3c02ef7..0000000
+++ /dev/null
@@ -1,400 +0,0 @@
-;;;
-;;; tm-sgnus.el --- MIME extender for Gnus 5.2
-;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1995,1996 MORIOKA Tomohiko
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;;         and KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
-;;; Created: 1995/09/24
-;;; Version: $Revision: 7.69 $
-;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
-;;;
-;;; This file is part of tm (Tools for MIME).
-;;;
-;;; This program is free software; you can redistribute it and/or
-;;; modify it under the terms of the GNU General Public License as
-;;; published by the Free Software Foundation; either version 2, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;; General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with This program.  If not, write to the Free Software
-;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-;;;
-;;; Code:
-
-(require 'tl-str)
-(require 'tl-list)
-(require 'tl-misc)
-(require 'tm-view)
-(require 'gnus)
-
-(eval-when-compile (require 'cl))
-
-
-;;; @ version
-;;;
-
-(defconst tm-gnus/RCS-ID
-  "$Id: tm-sgnus.el,v 7.69 1996/06/09 06:57:33 morioka Exp $")
-
-(defconst tm-gnus/version
-  (concat (get-version-string tm-gnus/RCS-ID) " for September"))
-
-
-;;; @ variables
-;;;
-
-(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")
-  (let ((gnus-break-pages nil))
-    (gnus-summary-select-article t t)
-    )
-  (pop-to-buffer gnus-original-article-buffer t)
-  (let (buffer-read-only)
-    (if (text-property-any (point-min) (point-max) 'invisible t)
-       (remove-text-properties (point-min) (point-max)
-                               gnus-hidden-properties)
-      ))
-  (mime/viewer-mode nil nil nil 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 tm-gnus/automatic-mime-preview
-      (let* ((hidden
-             (save-excursion
-               (set-buffer gnus-article-buffer)
-               (text-property-any 
-                (goto-char (point-min)) (search-forward "\n\n")
-                'invisible t)
-               ))
-            (mime-viewer/redisplay t)
-            )
-       (gnus-summary-select-article hidden t)
-       )
-    (gnus-summary-toggle-header arg))
-  )
-
-(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))
-(substitute-key-definition
- 'gnus-summary-toggle-header
- 'tm-gnus/summary-toggle-header gnus-summary-mode-map)
-
-
-;;; @ for tm-view
-;;;
-
-(defun tm-gnus/content-header-filter ()
-  (goto-char (point-min))
-  (mime-preview/cut-header)
-  (mime-charset-decode-region (point-min)(point-max)
-                             mime/default-coding-system)
-  (mime/decode-message-header)
-  )
-
-(set-alist 'mime-viewer/content-header-filter-alist
-          'gnus-original-article-mode
-          (function tm-gnus/content-header-filter))
-
-(set-alist 'mime-viewer/code-converter-alist
-          'gnus-original-article-mode
-          (function mime-charset-decode-region))
-
-(defun mime-viewer/quitting-method-for-sgnus ()
-  (if (not gnus-show-mime)
-      (mime-viewer/kill-buffer))
-  (delete-other-windows)
-  (gnus-article-show-summary)
-  (if (or (not gnus-show-mime)
-         (null gnus-have-all-headers))
-      (gnus-summary-select-article nil t)
-    ))
-
-(set-alist 'mime-viewer/quitting-method-alist
-          'gnus-original-article-mode
-          (function mime-viewer/quitting-method-for-sgnus))
-(set-alist 'mime-viewer/show-summary-method
-          'gnus-original-article-mode
-          (function mime-viewer/quitting-method-for-sgnus))
-
-
-;;; @ for tm-edit
-;;;
-
-;; suggested by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
-;;     1995/11/08 (c.f. [tm ML:1067])
-(defun tm-gnus/insert-article (&optional message)
-  (interactive)
-  (let ((message-cite-function 'mime-editor/inserted-message-filter)
-        (message-reply-buffer gnus-original-article-buffer)
-       )
-    (message-yank-original nil)
-    ))
-
-;;; modified by Steven L. Baur <steve@miranova.com>
-;;;    1995/12/6 (c.f. [tm-en:209])
-(defun mime-editor/attach-to-news-reply-menu ()
-  "Arrange to attach MIME editor's popup menu to VM's"
-  (if (boundp 'news-reply-menu)
-      (progn
-       (setq news-reply-menu (append news-reply-menu
-                                     '("---")
-                                     mime-editor/popup-menu-for-xemacs))
-       (remove-hook 'news-setup-hook
-                    'mime-editor/attach-to-news-reply-menu)
-       )))
-
-(call-after-loaded
- 'tm-edit
- (function
-  (lambda ()
-    (set-alist 'mime-editor/message-inserter-alist
-              'message-mode (function tm-gnus/insert-article))
-    (if (string-match "XEmacs\\|Lucid" emacs-version)
-       (add-hook 'news-setup-hook 'mime-editor/attach-to-news-reply-menu)
-      )
-
-    (set-alist 'mime-editor/split-message-sender-alist
-              'message-mode
-              (lambda ()
-                (interactive)
-                (let (message-send-hook
-                      message-sent-message-via)
-                  (message-send)
-                  )))
-    )))
-
-
-;;; @ for tm-partial
-;;;
-
-(defun tm-gnus/partial-preview-function ()
-  (tm-gnus/view-message (gnus-summary-article-number))
-  )
-
-(call-after-loaded
- 'tm-partial
- (lambda ()
-   (set-atype 'mime/content-decoding-condition
-             '((type . "message/partial")
-               (method . mime-article/grab-message/partials)
-               (major-mode . gnus-original-article-mode)
-               (summary-buffer-exp . gnus-summary-buffer)
-               ))
-   (set-alist 'tm-partial/preview-article-method-alist
-             'gnus-original-article-mode
-             'tm-gnus/partial-preview-function)
-   ))
-
-
-;;; @ article filter
-;;;
-
-(defun tm-gnus/article-reset-variable ()
-  (setq tm-gnus/automatic-mime-preview nil)
-  )
-
-(add-hook 'gnus-article-prepare-hook 'tm-gnus/article-reset-variable)
-
-(defun tm-gnus/preview-article ()
-  (make-local-variable 'tm:mother-button-dispatcher)
-  (setq tm:mother-button-dispatcher
-       (function gnus-article-push-button))
-  (let ((mime-viewer/ignored-field-regexp "^:$")
-       (mime/default-coding-system
-        (save-excursion
-          (set-buffer gnus-summary-buffer)
-          mime/default-coding-system)))
-    (mime/viewer-mode nil nil nil gnus-original-article-buffer
-                     gnus-article-buffer)
-    )
-  (setq tm-gnus/automatic-mime-preview t)
-  (run-hooks 'tm-gnus/article-prepare-hook)
-  )
-
-(setq gnus-show-mime-method (function tm-gnus/preview-article))
-
-(defun tm-gnus/article-decode-encoded-word ()
-  (character-decode-region (point-min)(point-max)
-                          (save-excursion
-                            (set-buffer gnus-summary-buffer)
-                            mime/default-coding-system))
-  (mime/decode-message-header)
-  (run-hooks 'tm-gnus/article-prepare-hook)
-  )
-
-(setq gnus-decode-encoded-word-method
-      (function tm-gnus/article-decode-encoded-word))
-
-
-;;; @ for MULE
-;;;
-
-(defvar gnus-newsgroup-default-coding-system-alist nil)
-
-(defun gnus-set-newsgroup-default-coding-system (ng cs)
-  "Define CS as default coding system for newsgroup NG."
-  (set-alist 'gnus-newsgroup-default-coding-system-alist
-            (concat "^" (regexp-quote ng) "\\($\\|\\.\\)")
-            cs))
-
-(cond
- ((featurep 'mule)
-  (cond ((boundp 'MULE)
-        (define-service-coding-system gnus-nntp-service nil *noconv*)
-        (if (and (boundp 'nntp-server-process)
-                 (processp nntp-server-process)
-                 )
-            (set-process-coding-system nntp-server-process *noconv* *noconv*)
-          )
-        )
-       (running-xemacs-20
-        (if (and (boundp 'nntp-server-process)
-                 (processp nntp-server-process)
-                 )
-            (set-process-input-coding-system nntp-server-process 'noconv)
-          )
-        ))
-  (call-after-loaded
-   'nnheader
-   (lambda ()
-     (defun nnheader-find-file-noselect (filename &optional nowarn rawfile)
-       (let ((file-coding-system-for-read *noconv*))
-        (find-file-noselect filename nowarn rawfile)
-        ))
-     (defun nnheader-insert-file-contents-literally
-       (filename &optional visit beg end replace)
-       (let ((file-coding-system-for-read *noconv*))
-        (insert-file-contents-literally filename visit beg end replace)
-        ))
-     ))
-  ;; Please use Gnus 5.2.10 or later if you use Mule.
-  (call-after-loaded
-   'nnmail
-   (lambda ()
-     (defun nnmail-find-file (file)
-       "Insert FILE in server buffer safely. [tm-sgnus.el]"
-       (set-buffer nntp-server-buffer)
-       (erase-buffer)
-       (let ((format-alist nil)
-             (after-insert-file-functions   ; for jam-code-guess
-              (if (memq 'jam-code-guess-after-insert-file-function
-                        after-insert-file-functions)
-                  '(jam-code-guess-after-insert-file-function)))
-            (file-coding-system-for-read *noconv*))
-        (condition-case ()
-            (progn (insert-file-contents file) t)
-          (file-error nil))))
-     ))
-  (defun tm-gnus/prepare-save-mail-function ()
-    (setq file-coding-system *noconv*)
-    )
-  (add-hook 'nnmail-prepare-save-mail-hook
-           'tm-gnus/prepare-save-mail-function)
-  
-  (gnus-set-newsgroup-default-coding-system "alt.chinese.text"      *hz*)
-  (gnus-set-newsgroup-default-coding-system "alt.chinese.text.big5" *big5*)
-  (gnus-set-newsgroup-default-coding-system "han"    *euc-kr*)
-  (and (boundp '*koi8*)
-       (gnus-set-newsgroup-default-coding-system "relcom" *koi8*))
-  ))
-
-
-;;; @ summary filter
-;;;
-
-(defun tm-gnus/decode-summary-from-and-subjects ()
-  (let ((rest gnus-newsgroup-default-coding-system-alist)
-       cell)
-    (catch 'tag
-      (while (setq cell (car rest))
-       (if (string-match (car cell) gnus-newsgroup-name)
-           (throw 'tag
-                  (progn
-                    (make-local-variable 'mime/default-coding-system)
-                    (setq mime/default-coding-system (cdr cell))
-                    )))
-       (setq rest (cdr rest))
-       )))
-  (mapcar
-   (lambda (header)
-     (let ((from (or (mail-header-from header) ""))
-          (subj (or (mail-header-subject header) ""))
-          (method (car gnus-current-select-method))
-          )
-       (if (eq method 'nntp)
-          (progn
-            (setq from
-                  (character-decode-string from mime/default-coding-system))
-            (setq subj
-                  (character-decode-string subj mime/default-coding-system))
-            ))
-       (mail-header-set-from
-       header (mime-eword/decode-string from))
-       (mail-header-set-subject
-       header (mime-eword/decode-string subj))
-       ))
-   gnus-newsgroup-headers))
-     
-(or (boundp 'nnheader-encoded-words-decoding)
-    (add-hook 'gnus-select-group-hook
-             'tm-gnus/decode-summary-from-and-subjects)
-    )
-
-
-;;; @ for BBDB
-;;;
-
-(call-after-loaded
- 'bbdb
- (lambda ()
-   (require 'tm-bbdb)
-   ))
-
-(autoload 'tm-bbdb/update-record "tm-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 'gnus-article-display-hook 'tm-bbdb/update-record)
-       )))
-
-(add-hook 'gnus-startup-hook 'tm-gnus/bbdb-setup t)
-
-(tm-gnus/bbdb-setup)
-
-
-;;; @ end
-;;;
-
-(provide 'tm-sgnus)
-
-;;; tm-sgnus.el ends here
diff --git a/gnushook.el b/gnushook.el
deleted file mode 100644 (file)
index c455f72..0000000
+++ /dev/null
@@ -1,52 +0,0 @@
-;;;
-;;; $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)
-        )
-       ))
diff --git a/inst-el b/inst-el
deleted file mode 100755 (executable)
index be0d038..0000000
--- a/inst-el
+++ /dev/null
@@ -1,21 +0,0 @@
-#!/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
diff --git a/inst-elc b/inst-elc
deleted file mode 100755 (executable)
index ba36e01..0000000
--- a/inst-elc
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/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
diff --git a/make-lpath b/make-lpath
deleted file mode 100755 (executable)
index 737fbbe..0000000
+++ /dev/null
@@ -1,11 +0,0 @@
-#!/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
diff --git a/methods/csh/tm-au b/methods/csh/tm-au
deleted file mode 100755 (executable)
index 7e3b7eb..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/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
diff --git a/methods/csh/tm-file b/methods/csh/tm-file
deleted file mode 100755 (executable)
index 4433fab..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-#!/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
diff --git a/methods/csh/tm-image b/methods/csh/tm-image
deleted file mode 100755 (executable)
index 325a982..0000000
+++ /dev/null
@@ -1,47 +0,0 @@
-#!/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
diff --git a/methods/csh/tm-mpeg b/methods/csh/tm-mpeg
deleted file mode 100755 (executable)
index 08c623a..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
-#!/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
diff --git a/methods/csh/tm-plain b/methods/csh/tm-plain
deleted file mode 100755 (executable)
index 88c5304..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
-#!/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
diff --git a/methods/csh/tmdecode b/methods/csh/tmdecode
deleted file mode 100755 (executable)
index 9fbb0a9..0000000
+++ /dev/null
@@ -1,28 +0,0 @@
-#!/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."
diff --git a/methods/tm-latex b/methods/tm-latex
deleted file mode 100755 (executable)
index 278ad38..0000000
+++ /dev/null
@@ -1,56 +0,0 @@
-#!/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
diff --git a/methods/tm-www b/methods/tm-www
deleted file mode 100755 (executable)
index 194b488..0000000
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/bin/sh
-if [ "$TM_TMP_DIR"="" ]; then
-       TM_TMP_DIR=/tmp
-       export TM_TMP_DIR
-fi
-
-if [ "$TM_WWW_BROWSER"="" ]; then
-       TM_WWW_BROWSER=netscape
-       export TM_WWW_BROWSER
-fi
-
-if [ "$5" = "" ]; then
-       filename="$TM_TMP_DIR/mime$$.html"
-else
-       filename="$TM_TMP_DIR/$5"
-fi
-
-echo "$2; $3 -> $filename"
-
-tmdecode $3 $1 $filename
-
-case "$4" in
-"play")
-       $TM_WWW_BROWSER $filename
-       /bin/rm $filename
-       ;;
-"extract")
-       echo "extract to $filename"
-       ;;
-esac
diff --git a/mh-e/ChangeLog b/mh-e/ChangeLog
deleted file mode 100644 (file)
index bfb2ced..0000000
+++ /dev/null
@@ -1,453 +0,0 @@
-Tue Sep  3 15:23:15 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.68.1 was released.
-
-       * mk-tmh: add "../../mu" to load-path.
-
-\f
-Sat Aug 31 15:15:12 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.68 was released.
-
-       * tm-mh-e.el (tm-mh-e/following-method): Use function
-       `std11-field-bodies' instead of `rfc822/get-field-bodies'.
-
-\f
-Fri Aug 23 07:33:58 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.67 was released.
-
-Thu Aug 22 14:44:28 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * TMH-ELS: Variable `tm-mh-e-el-files' and `tm-mh-e-elc-files'
-       were abolished.
-
-       * mk-tmh: Constant `el-file-mode' was abolished.
-       Function `install-el', `install-el-files', `install-elc' and
-       `install-elc-files' were abolished.
-       (install-tm-mh-e): Use function `install-elisp-modules'.
-
-       * mk-tmh: tmh-els was renamed to TMH-ELS.
-
-Sun Aug 18 20:22:01 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tmh-els (tm-mh-e-modules): changed to list of symbols.
-
-       * mk-tmh: Use install.el to compile.
-
-Wed Aug 14 02:35:19 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el: Don't use cl.el.
-
-Tue Aug 13 23:45:02 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el: Use cl.el.
-
-\f
-Thu Aug  1 07:43:19 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.65.1 was released.
-
-Wed Jul 31 03:07:43 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tmh-comp.el: Implementation for
-       `mime-editor/split-message-sender-alist' was moved from
-       tm-edit.el.
-
-Sun Jul 28 04:23:07 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tmh-comp.el (tm-mh-e/yank-cur-msg-with-no-filter): New function.
-
-       * tmh-comp.el: Function `tm-mh-e/yank-cur-msg' was renamed to
-       `tm-mh-e/yank-current-message'.
-
-       * tmh-comp.el (tm-mh-e/message-yank-function): New variable.
-       (tm-mh-e/yank-cur-msg): Use variable
-       `tm-mh-e/message-yank-function'.
-
-\f
-Wed Jul 24 10:07:45 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.65 was released.
-
-Mon Jul 22 18:24:08 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e3.el (mh-send-prog): New variable.
-
-Thu Jul 18 12:29:17 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el (tm-mh-e/decode-charset-buffer): New alias; renamed
-       from `tm-mh-e/charset-decode-region'; Use function
-       `mime-charset/decode-buffer' instead of
-       `mime-charset-decode-region'.
-
-       (mime-viewer/code-converter-alist): set
-       `tm-mh-e/decode-charset-buffer' instead of
-       `tm-mh-e/charset-decode-region'.
-
-       (tm-mh-e/content-header-filter): Use function
-       `tm-mh-e/decode-charset-buffer' instead of
-       `tm-mh-e/charset-decode-region'.
-
-\f
-Wed Jul 17 05:38:04 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.64 was released.
-
-Sun Jul 14 15:08:16 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el (tm-mh-e/content-header-filter): Use variable
-       `default-mime-charset' instead of mime/default-coding-system.
-
-\f
-Thu Jun 27 15:39:16 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.63.1 was released.
-
-       * tmh-els: Version check code was fixed.
-
-Wed Jun  5 02:34:06 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tmh-comp.el: version check code was fixed for Emacs
-       19.31. (cf. [tm-ja:1907])
-
-\f
-Mon Jun  3 14:40:35 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.63 was released.
-
-Thu May 30 00:18:04 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el: mh-e bundled in Emacs 19.31 does not have variable
-       `mh-e-version', so version check code was changed.
-
-       Does not back up original `mh-display-msg'.
-
-\f
-Mon May 20 15:24:56 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.62 was released.
-
-       * tm-mh-e.el: Setting for variable
-       `mime-viewer/show-summary-method' was added.
-
-\f
-Wed May 15 15:39:54 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.61.1 was released.
-
-       * tmh-comp.el (tm-mh-e/forward): use function
-       `mime-eword/decode-string' for `orig-from' and `orig-subject'.
-
-       * tmh-comp.el (tm-mh-e/forward): remove `(require 'tm-edit)'.
-
-       * tmh-comp.el (tm-mh-e/forward): remove `(require 'mh-comp)'.
-
-\f
-Sat May 11 16:24:52 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.61 was released.
-
-Thu May  9 19:01:06 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el (tm-mh-e/charset-decode-region): renamed from
-       `tm-mh-e/code-convert-region-to-emacs'.
-
-Thu May  9 18:57:07 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el (tm-mh-e/code-convert-region-to-emacs): Function
-       `mime/code-convert-region-to-emacs' was renamed to
-       `mime-charset-decode-region'.
-
-\f
-Fri Apr 26 04:47:43 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.59 was released.
-
-Thu Apr 25 22:19:02 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el (tm-mh-e/following-method): new implementation for
-       tm-view 7.53.
-
-Thu Apr 25 15:38:16 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tmh-comp.el (tm-mh-e/yank-cur-msg): don't call `error'.
-
-\f
-Mon Apr 22 12:52:17 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.58 was released.
-
-Sun Apr 21 17:11:20 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el (tm-mh-e/following-method): New function.
-
-\f
-Mon Mar 25 11:57:17 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.57 was released.
-
-       * tm-mh-e.el (mh-temp-buffer): declare for mh-e 4.1 or earlier.
-       (cf. [tm-ja:1672])
-       
-       * tmh-comp.el (tm-mh-e::insert-letter): New function; for version
-       independent (cf. [tm-ja:1672])
-
-\f
-Wed Mar  6 02:03:17 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.56 was released.
-
-       * tm-mh-e.el: Function `tm-mh-e/set-window-configuration' was
-       commented out. (cf. [tm-en:359])
-
-\f
-Mon Mar  4 09:22:37 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.55 was released.
-
-       * mk-tmh: use tmh-els file.
-
-Mon Mar  4 09:21:19 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tmh-els: New file.
-
-Thu Feb 29 15:23:53 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el (tm-mh-e/scroll-up-msg): New function.
-       (tm-mh-e/scroll-down-msg): New function.
-       (tm-mh-e/burst-multipart/digest): New function.
-
-       * tmh-comp.el: comments was modified.
-
-       * tmh-comp.el: Initial revision
-
-       * tm-mh-e.el: Functions about composing were separated to tmh-comp.el.
-
-Thu Feb 29 13:58:26 1996  OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
-
-       * tm-mh-e.el (tm-mh-e/extract-rejected-mail): New function
-       (cf. [tm-ja:1643])
-
-\f
-Wed Feb 28 13:27:54 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.52 was released.
-
-Tue Feb 27 16:25:19 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el (tm-mh-e/edit-again): New implementation.
-
-Tue Feb 27 09:49:15 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el (tm-mh-e/edit-again): autoload "mh-comp" instead of
-       require.
-       autoload "tm-edit". (cf. [tm-ja:1611])
-
-\f
-Mon Feb 26 08:41:56 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.50 was released.
-
-       * tm-mh-e.el (tm-mh-e/edit-again): New function.
-
-\f
-Fri Feb 22 17:58:27 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.49 was released.
-
-Thu Feb 22 04:58:10 1996  KON-NO Yoichi <itokon@ssel.toshiba.co.jp>
-
-       * tm-mh-e.el (mh-display-msg): fixed problem about BBDB
-       (cf. [tm-ja:1593])
-
-\f
-Tue Feb 13 07:19:09 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.48 was released.
-       
-       * tm-mh-e.el (tm-mh-e/content-header-filter): Code for hilit19 was
-       deleted. Please set to `mime-viewer/content-header-filter-hook'.
-
-\f
-Thu Jan 25 15:14:27 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.47 was released.
-
-       * tm-mh-e.el: Michael Sperber [Mr. Preprocessor]
-       <sperber@informatik.uni-tuebingen.de>'s patch was applied.
-       (cf. [bug-tm-en:288])
-
-Thu Jan 25 15:00:14 1996  Michael Sperber <sperber@informatik.uni-tuebingen.de>
-
-       * tm-mh-e.el: I remember making this change for 6.80.1, but it
-       seems to work with 7.41.1.  It's relevant if you're using tm in
-       conjunction with mh-e and BBDB.  Without it, BBDB gets confused
-       about the window configuration when making an update.
-       (cf. [bug-tm-en:288])
-
-\f
-Tue Jan 23 04:51:18 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.46 was released.
-
-       * tm-mh-e.el: (require 'tm-bbdb) if bbdb is provided.
-
-\f
-Mon Jan 22 00:42:53 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.45 was released.
-
-       * tm-mh-e.el (tm-mh-e/forward):
-       `msg-or-seq' must be number or symbol, not string
-       (cf. [tm-ja:1482])
-
-Thu Jan 18 01:55:25 1996  Yoshiyuki Yamagami <yamagami@hb.nmcc.co.jp>
-
-       * Makefile: specify `-no-site-file' option (cf. [tm-ja:1474])
-
-\f
-Wed Dec 13 05:48:43 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.44 was released.
-
-       * tm-mh-e.el (tm-mh-e/content-header-filter):
-       use `mime-preview/cut-header'
-
-\f
-Wed Dec  6 12:31:27 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.43 was released.
-
-       * tm-mh-e.el: Variable `tm-mh-e/automatic-mime-preview' and
-       `tm-mh-e/decode-encoded-word' were changed to user variable.
-
-Wed Dec  6 07:34:13 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el:
-       New function `tm-mh-e/set-window-configuration': it is set to
-       `mh-show-hook'.
-
-\f
-Tue Dec  5 17:14:13 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.41 was released.
-
-Mon Dec  4 03:45:44 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el: (defalias 'mh-get-header-field 'mh-get-field) if
-       function `mh-get-header-field' is not exist. (function
-       `mh-get-header-field' is mh-e 5.* function)
-
-       * tm-mh-e3.el:
-       (1) New variable `mh-forward-subject-format'
-       (2) New function `mh-forwarded-letter-subject'
-
-\f
-Mon Dec  4 09:29:41 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.40 was released.
-
-       * tm-mh-e.el:
-       Function `tm-mh-e/forward' was modified to work with Emacs 18, but
-       it still does not...
-
-       * tm-mh-e.el:
-       Function `tm-mh-e/forward' was modified to fix position to insert
-       `(require 'tm-edit)'.
-
-Fri Dec  1 19:14:52 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e3.el: New function `mh-read-address'.
-
-Fri Dec  1 09:33:37 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e3.el: New function `mh-read-address'.
-
-       * tm-mh-e.el:
-       fixed problem in setting up function `tm-mh-e/yank-cur-msg'.
-
-Thu Nov 30 07:54:54 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el:
-       OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>'s patch was applied.
-       (cf. [tm-ja:1184])
-
-Wed Nov 29 16:41:41 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el:
-       OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>'s patch was applied:
-       (cf. [tm-ja:1178])
-       (0) New function `tm-mh-e/yank-cur-msg': for called from Gnus.
-       (1) function `tm-mh-e/prompt-for-message' was modified.
-       (2) function `tm-mh-e/insert-mail' was modified to use
-           `insert-file-contents' instead of `insert-file'.
-       (3) New function `tm-mh-e/insert-letter'.
-
-Wed Nov 29 16:32:06 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el:
-       fixed some problems by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>.
-       (cf. [tm-ja:1172])
-
-       * tm-mh-e.el:
-       OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>'s patch was merged.
-       (cf. [tm-ja:1168])
-
-       * tm-mh-e.el:
-       According to Eric Ding <ericding@San-Jose.ate.slb.com>,
-       fixed mistake about tm-view change in tm 7.24.
-
-Sat Nov 25 02:16:08 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el: Function `tm-mh-e/forward' was fixed to use function
-       `mime-editor/insert-tag' and `mime-editor/enclose-region'.
-
-\f
-Sat Nov 25 08:11:36 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.30 was released.
-
-Fri Nov 24 22:57:59 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el:
-       (1) Function `tm-mh-e/insert-mail' was modified to apply its
-            argument to function `tm-mh-e/query-message'.
-       (2) Function `tm-mh-e/query-message' was modified to changed
-            its argument to `tm-mh-e::message' type.
-
-       * tm-mh-e.el:
-       Function `tm-mh-e/insert-message' was modified to use function 
-        `tm-mh-e/insert-mail' when mh mail is inserted. (Because of
-        Mule code conversion)
-
-Fri Nov 24 21:49:48 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el:
-       (1) Function `tm-mh-e/insert-message' was modified for Gnus.
-       (2) function `tm-mh-e/query-message' was fixed.
-       (3) function `tm-mh-e/prompt-for-message' was fixed.
-
-       * tm-mh-e.el:
-       OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>'s patch was applied.
-       (cf. [tm-ja:1156])
-
-\f
-Thu Nov 23 19:28:16 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.26 was released.
-
-Tue Nov 21 08:55:01 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el:
-       Variable `tm-mh-e/use-forwcomps' was abolished.
-       (cf. [tm-ja:1133])
-
-\f
-Mon Nov 20 11:59:40 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.25 was released.
-
-Sun Nov 19 06:44:32 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el: fixed fatal problem in Emacs 18.
diff --git a/mh-e/ChangeLog-7.25.en b/mh-e/ChangeLog-7.25.en
deleted file mode 100644 (file)
index e78e1f5..0000000
+++ /dev/null
@@ -1,7 +0,0 @@
-Mon Nov 20 11:59:40 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.25 was released.
-
-Sun Nov 19 06:44:32 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el: fixed fatal problem in Emacs 18.
diff --git a/mh-e/ChangeLog-7.25.ja b/mh-e/ChangeLog-7.25.ja
deleted file mode 100644 (file)
index a065d3f..0000000
+++ /dev/null
@@ -1,7 +0,0 @@
-Mon Nov 20 11:59:40 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.25 \e$B$r\e(B release.
-
-Sun Nov 19 06:44:32 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el: Emacs 18 \e$B$GF0$+$J$/$J$C$F$$$?$N$r=$@5$7$?!#\e(B
diff --git a/mh-e/ChangeLog-7.26.en b/mh-e/ChangeLog-7.26.en
deleted file mode 100644 (file)
index f42d746..0000000
+++ /dev/null
@@ -1,9 +0,0 @@
-Thu Nov 23 19:28:16 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.26 was released.
-
-Tue Nov 21 08:55:01 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el:
-       Variable `tm-mh-e/use-forwcomps' was abolished.
-       (cf. [tm-ja:1133])
diff --git a/mh-e/ChangeLog-7.26.ja b/mh-e/ChangeLog-7.26.ja
deleted file mode 100644 (file)
index 8d3674f..0000000
+++ /dev/null
@@ -1,9 +0,0 @@
-Thu Nov 23 19:28:16 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.26 \e$B$r\e(B release \e$B$7$?!#\e(B
-
-Tue Nov 21 08:55:01 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el:
-       \e$BJQ?t\e(B tm-mh-e/use-forwcomps \e$B$rGQ;_$7!"4X?t\e(B tm-mh-e/forward \e$B$N;EMM$r\e(B
-       \e$B2,It$5$s$NDs0F$5$l$?$b$N$KLa$7$?!#\e(B(cf. [tm-ja:1133])
diff --git a/mh-e/ChangeLog-7.27-7.30.en b/mh-e/ChangeLog-7.27-7.30.en
deleted file mode 100644 (file)
index ca8d613..0000000
+++ /dev/null
@@ -1,27 +0,0 @@
-Sat Nov 25 08:11:36 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.30 was released.
-
-Fri Nov 24 22:57:59 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el:
-       (1) Function `tm-mh-e/insert-mail' was modified to apply its
-            argument to function `tm-mh-e/query-message'.
-       (2) Function `tm-mh-e/query-message' was modified to changed
-            its argument to `tm-mh-e::message' type.
-
-       * tm-mh-e.el:
-       Function `tm-mh-e/insert-message' was modified to use function 
-        `tm-mh-e/insert-mail' when mh mail is inserted. (Because of
-        Mule code conversion)
-
-Fri Nov 24 21:49:48 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el:
-       (1) Function `tm-mh-e/insert-message' was modified for Gnus.
-       (2) function `tm-mh-e/query-message' was fixed.
-       (3) function `tm-mh-e/prompt-for-message' was fixed.
-
-       * tm-mh-e.el:
-       OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>'s patch was applied.
-       (cf. [tm-ja:1156])
diff --git a/mh-e/ChangeLog-7.27-7.30.ja b/mh-e/ChangeLog-7.27-7.30.ja
deleted file mode 100644 (file)
index 4c6b5e6..0000000
+++ /dev/null
@@ -1,26 +0,0 @@
-Sat Nov 25 08:11:36 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.30 \e$B$r\e(B release \e$B$7$?!#\e(B
-
-Fri Nov 24 22:57:59 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el:
-       (1) \e$B4X?t\e(B tm-mh-e/insert-mail \e$B$N0z?t$r4X?t\e(B tm-mh-e/query-message \e$B$K\e(B
-           \e$BEO$9$h$&$K$7$?!#\e(B
-       (2) \e$B4X?t\e(B tm-mh-e/query-message \e$B$N0z?t$r\e(B tm-mh-e::message \e$B7?$H$7$?!#\e(B
-
-       * tm-mh-e.el:
-       \e$B4X?t\e(B tm-mh-e/insert-message \e$B$G\e(B mh \e$B$N\e(B mail \e$B$NA^F~$K4X?t\e(B
-       tm-mh-e/insert-mail \e$B$r;H$&$h$&$K$7$?!#!JA^F~$7$?5-;v$rJT=8Cf$KFI$a\e(B
-       \e$B$k$h$&$K$9$k$?$a!K\e(B
-
-Fri Nov 24 21:49:48 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el:
-       (1) Gnus \e$B$G$N;HMQ$r9MN8$7$F4X?t\e(B tm-mh-e/insert-message \e$B$r=$@5$7$?!#\e(B
-       (2) \e$B4X?t\e(B tm-mh-e/query-message \e$B$NIT6q9g$r=$@5$7$?!#\e(B
-       (3) \e$B4X?t\e(B tm-mh-e/prompt-for-message \e$B$NIT6q9g$r=$@5$7$?!#\e(B
-
-       * tm-mh-e.el:
-       [tm-ja:1156] \e$B$G$N!"2,It\e(B \e$B<wCK\e(B <okabe@kudpc.kyoto-u.ac.jp> \e$B$5$s$N\e(B 
-       patch \e$B$rEv$F$?!#\e(B
diff --git a/mh-e/ChangeLog-7.40.en b/mh-e/ChangeLog-7.40.en
deleted file mode 100644 (file)
index 93bfde1..0000000
+++ /dev/null
@@ -1,58 +0,0 @@
-Mon Dec  4 09:29:41 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.40 was released.
-
-       * tm-mh-e.el:
-       Function `tm-mh-e/forward' was modified to work with Emacs 18, but
-       it still does not...
-
-       * tm-mh-e.el:
-       Function `tm-mh-e/forward' was modified to fix position to insert
-       `(require 'tm-edit)'.
-
-Fri Dec  1 19:14:52 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e3.el: New function `mh-read-address'.
-
-Fri Dec  1 09:33:37 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e3.el: New function `mh-read-address'.
-
-       * tm-mh-e.el:
-       fixed problem in setting up function `tm-mh-e/yank-cur-msg'.
-
-Thu Nov 30 07:54:54 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el:
-       OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>'s patch was applied.
-       (cf. [tm-ja:1184])
-
-Wed Nov 29 16:41:41 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el:
-       OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>'s patch was applied:
-       (cf. [tm-ja:1178])
-       (0) New function `tm-mh-e/yank-cur-msg': for called from Gnus.
-       (1) function `tm-mh-e/prompt-for-message' was modified.
-       (2) function `tm-mh-e/insert-mail' was modified to use
-           `insert-file-contents' instead of `insert-file'.
-       (3) New function `tm-mh-e/insert-letter'.
-
-Wed Nov 29 16:32:06 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el:
-       fixed some problems by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>.
-       (cf. [tm-ja:1172])
-
-       * tm-mh-e.el:
-       OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>'s patch was merged.
-       (cf. [tm-ja:1168])
-
-       * tm-mh-e.el:
-       According to Eric Ding <ericding@San-Jose.ate.slb.com>,
-       fixed mistake about tm-view change in tm 7.24.
-
-Sat Nov 25 02:16:08 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el: Function `tm-mh-e/forward' was fixed to use function
-       `mime-editor/insert-tag' and `mime-editor/enclose-region'.
diff --git a/mh-e/ChangeLog-7.40.ja b/mh-e/ChangeLog-7.40.ja
deleted file mode 100644 (file)
index ba15893..0000000
+++ /dev/null
@@ -1,71 +0,0 @@
-Mon Dec  4 09:29:41 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.40 was released.
-
-       * tm-mh-e.el:
-       Function `tm-mh-e/forward' was modified to work with Emacs 18, but
-       it still does not...
-
-       * tm-mh-e.el:
-       Function `tm-mh-e/forward' was modified to fix position to insert
-       `(require 'tm-edit)'.
-
-Fri Dec  1 19:14:52 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e3.el: New function `mh-read-address'.
-
-Fri Dec  1 09:33:37 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e3.el: New function `mh-read-address'.
-
-       * tm-mh-e.el:
-       fixed problem in setting up function `tm-mh-e/yank-cur-msg'.
-
-Thu Nov 30 07:54:54 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el:
-       OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>'s patch was applied.
-       (cf. [tm-ja:1184])
-
-Wed Nov 29 16:41:41 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el:
-       \e$B2,It\e(B \e$B<wCK\e(B <okabe@kudpc.kyoto-u.ac.jp> \e$B$5$s$N\e(B patch \e$B$rEv$F$?!#\e(B
-       (cf. [tm-ja:1178])
-       (0) Gnus \e$B$+$i8F$P$l$?;~$N$?$a$K!"4X?t\e(B tm-mh-e/yank-cur-msg \e$B$r@_$1\e(B
-           \e$B$?!#\e(B
-       (1) tm-mh-e/prompt-for-message \e$B$G!"Ev3:$N%U%)%k%@$N%P%C%U%!$,3+$$\e(B
-           \e$B$F$$$J$$>l9g!"=>Mh$O$=$N%U%)%k%@$N$b$C$H$bHV9f$N>.$5$$$b$N$,\e(B 
-           default\e$B$H$7$?$,!"\e(Bpick \e$B$r8F$s$G\e(B cur \e$B$rM%@h$9$k$h$&$K$7$?!#\e(B
-       (2) tm-mh-e/insert-mail \e$B$G\e(B insert-file \e$B$G$O$J$/\e(B 
-           insert-file-contents\e$B$r;H$&$h$&$K$7$?!#\e(B
-           (describe function \e$B$9$k$H\e(B insert-file \e$B$O;H$&$J$H=q$$$F$"$C$?$N\e(B
-           \e$B$G\e(B)
-       (3) tm-mh-e/insert-letter \e$B$H$$$&4X?t$rDI2C$7$?!#$3$l$O\e(B
-           mh-insert-letter \e$B$H8F$s$G$$$k$,!"Ld$$9g$o$;$K\e(B
-           tm-mh-e/prompt-for-message \e$B$r;H$&$N$G8-$$!#\e(B
-           (\e$B$7$+$7\e(B tm \e$B$KF~$C$F$$$kI,A3@-$O$J$$!#\e(Bmh-e \e$B$K\e(B contribute \e$B$9$Y$-\e(B
-           \e$B$+!)\e(B)
-
-Wed Nov 29 16:32:06 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el:
-       fixed some problems by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>.
-       (cf. [tm-ja:1172])
-
-       * tm-mh-e.el:
-       OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>'s patch was merged.
-       (cf. [tm-ja:1168])
-
-       * tm-mh-e.el:
-       \e$B4X?t\e(B tm-mh-e/header-display \e$B$K$*$1$k6I=jJQ?t\e(B
-       `mime-viewer/ignored-field-regexp' \e$B$N=i4|CM$N@_Dj%_%9$r=$@5$7$?!#\e(B
-
-       * tm-mh-e.el:
-       Eric Ding <ericding@San-Jose.ate.slb.com> \e$B$5$s$N;XE&$K=>$C$F!"\e(Btm
-       7.24 \e$B$G$NJQ99$X$NBP1~$7K:$l$r=$@5$7$?!#\e(B
-
-Sat Nov 25 02:16:08 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el: Function `tm-mh-e/forward' was fixed to use function
-       `mime-editor/insert-tag' and `mime-editor/enclose-region'.
diff --git a/mh-e/ChangeLog-7.41.en b/mh-e/ChangeLog-7.41.en
deleted file mode 100644 (file)
index 4c780aa..0000000
+++ /dev/null
@@ -1,13 +0,0 @@
-Tue Dec  5 17:14:13 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.41 was released.
-
-Mon Dec  4 03:45:44 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el: (defalias 'mh-get-header-field 'mh-get-field) if
-       function `mh-get-header-field' is not exist. (function
-       `mh-get-header-field' is mh-e 5.* function)
-
-       * tm-mh-e3.el:
-       (1) New variable `mh-forward-subject-format'
-       (2) New function `mh-forwarded-letter-subject'
diff --git a/mh-e/ChangeLog-7.43.en b/mh-e/ChangeLog-7.43.en
deleted file mode 100644 (file)
index c03f785..0000000
+++ /dev/null
@@ -1,12 +0,0 @@
-Wed Dec  6 12:31:27 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.43 was released.
-
-       * tm-mh-e.el: Variable `tm-mh-e/automatic-mime-preview' and
-       `tm-mh-e/decode-encoded-word' were changed to user variable.
-
-Wed Dec  6 07:34:13 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm-mh-e.el:
-       New function `tm-mh-e/set-window-configuration': it is set to
-       `mh-show-hook'.
diff --git a/mh-e/ChangeLog-7.44.en b/mh-e/ChangeLog-7.44.en
deleted file mode 100644 (file)
index ae14dc8..0000000
+++ /dev/null
@@ -1,6 +0,0 @@
-Wed Dec 13 05:48:43 1995  Morioka Tomohiko  <morioka@jaist.ac.jp>
-
-       * tm/mh-e: Version 7.44 was released.
-
-       * tm-mh-e.el (tm-mh-e/content-header-filter):
-       use `mime-preview/cut-header'
diff --git a/mh-e/Makefile b/mh-e/Makefile
deleted file mode 100644 (file)
index 585fc71..0000000
+++ /dev/null
@@ -1,45 +0,0 @@
-#
-# $Id: Makefile,v 6.3 1996/01/18 10:31:49 morioka Exp morioka $
-#
-
-# Please specify emacs executables:
-#      NEMACS  = for NEMACS (or NEpoch)
-#      MULE1   = for Mule 1.* (based on Emacs 18.*)
-#      ORIG19  = for Emacs 19.* (FSF original or XEmacs)
-#      MULE2   = for MULE 2.* (based on Emacs 19.*)
-
-EMACS  = mule
-FLAGS   = -batch -q -no-site-file -l mk-tmh
-
-
-# Please specfy Emacs Lisp install directory:
-#      TMDIR18 = for Emacs 18.* (NEMACS, NEpoch or MULE 1)
-#      TMDIR19 = for Emacs 19.* (FSF original, XEmacs or MULE 2)
-
-# TMDIR18 = /usr/local/lib/emacs/local.lisp/tm
-# TMDIR19 = /usr/local/lib/mule/site-lisp
-
-TMDIR18        = $(HOME)/lib/emacs18/lisp
-TMDIR19        = $(HOME)/lib/emacs19/lisp
-
-
-FILES  = tm/mh-e/*.el tm/mh-e/Makefile tm/mh-e/mk-tmh tm/mh-e/*.ol
-TARFILE = tm-mh-e7.63.1.tar
-
-
-elc:
-       $(EMACS) $(FLAGS) -f compile-tm-mh-e
-
-install-18:
-       $(EMACS) $(FLAGS) -f install-tm-mh-e $(TMDIR18)
-
-install-19:
-       $(EMACS) $(FLAGS) -f install-tm-mh-e $(TMDIR19)
-
-
-clean:
-       -rm *.elc
-
-
-tar:
-       cd ../..; tar cvf $(TARFILE) $(FILES); gzip -9 $(TARFILE)
diff --git a/mh-e/Makefile.bc b/mh-e/Makefile.bc
deleted file mode 100644 (file)
index 00b9069..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-#
-# $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
diff --git a/mh-e/TMH-ELS b/mh-e/TMH-ELS
deleted file mode 100644 (file)
index fc1a76a..0000000
+++ /dev/null
@@ -1,14 +0,0 @@
-;;; -*-Emacs-Lisp-*-
-;;;
-;;; $Id: TMH-ELS,v 3.0 1996/08/22 14:36:47 morioka Exp $
-;;;
-
-(require 'mh-e)
-
-(setq tm-mh-e-modules '(tm-mh-e tmh-comp))
-
-(or (featurep 'mh-utils)
-    (setq tm-mh-e-modules (cons 'tm-mh-e3 tm-mh-e-modules))
-    )
-
-;;; TMH-ELS ends here
diff --git a/mh-e/code-jp.ol b/mh-e/code-jp.ol
deleted file mode 100644 (file)
index 75134e8..0000000
+++ /dev/null
@@ -1,57 +0,0 @@
-\e$B!X\e(Btm-mh-e \e$B$G\e(B ISO-2022-JP \e$B0J30$NJ8;z\e(B code \e$B$r;H$&J}K!!Y\e(B
-by \e$B<i2,\e(B \e$BCNI'\e(B
-
-  MTA \e$B$G\e(B ISO-2022-JP \e$B$r\e(B EUC-JP \e$B$d\e(B Shift-JIS \e$B$J$I$K\e(B code \e$BJQ49$7$F$$$k>l\e(B
-\e$B9g!"\e(Btm-mh-e \e$B$N\e(B default \e$B$N@_Dj$G$OJ8;z2=$1$7$^$9!#$3$&$7$?$3$H$r9T$J$&\e(B
-\e$B$3$H$O$"$^$j4+$a$i$l$?$3$H$G$O$J$$$H;W$$$^$9$,!"$3$3$G$O$3$&$7$?4D6-$G\e(B 
-tm-mh-e \e$B$r;H$&>l9g$N@_Dj$K$D$$$F@bL@$7$^$9!#\e(B
-
-
-* Mule \e$B$N>l9g\e(B
-
-  tm-mh-e \e$B$NI8=`@_Dj$G$O!"\e(Bcharset parameter \e$B$,B8:_$9$k>l9g$O$=$l$G;XDj\e(B
-\e$B$5$l$?J8;z\e(B code \e$B$K$J$j!"\e(Bcharset parameter \e$B$,B8:_$7$J$$>l9g!JHs\e(B MIME
-message \e$B$r4^$`!K$N>l9g$NJ8;z\e(B code \e$B$O\e(B *ctext* \e$B$H$J$j$^$9!#\e(B
-
-  charset \e$B$,B8:_$7$J$$>l9g$NJ8;z\e(B code \e$B$OJQ?t\e(B 
-mime/default-coding-system \e$B$G;XDj$5$l$^$9!#$3$N4{DjCM$,\e(B *ctext* \e$B$G$"$j!"\e(B
-ISO-8859-1 \e$B$+\e(B ISO-2022-JP \e$B$J$I$N\e(B JUNET \e$BJ}<0$N\e(B ISO-2022 code \e$B$G$"$k$3$H\e(B
-\e$B$r4|BT$7$F$$$^$9!#\e(B
-
-  charset \e$B$,B8:_$9$k>l9g$O!"JQ?t\e(B mime/charset-coding-system-alist \e$B$K@_\e(B
-\e$BDj$5$l$?!"$=$N\e(B charset \e$B$KBP1~$9$k\e(B Mule \e$B$N\e(B coding-system \e$B$,MQ$$$i$l$^$9!#\e(B
-
-  \e$B$3$l$i$NF0:n$O4X?t\e(B tm-mh-e/code-convert-region-to-emacs \e$B$G9T$J$o$l$^\e(B
-\e$B$9!#$h$C$F!"$3$l$i$NJQ?t$*$h$S4X?t$rJQ99$9$k$3$H$K$h$C$F\e(B MTA \e$B$G\e(B code 
-\e$BJQ49$5$l$?>l9g$NBP:v$r9T$J$&$3$H$,$G$-$^$9!#\e(B
-
-
-** \e$BHs\e(B MIME message \e$B$^$?$O\e(B charset \e$B$,B8:_$7$J$$>l9g$N$_$NBP:v\e(B
-
-  \e$BHs\e(B MIME message \e$B$N>l9g!"JQ?t\e(B mime/default-coding-system \e$B$KJ8;z\e(B code 
-\e$B$r@_Dj$9$l$P\e(B OK \e$B$G$9!#\e(BShift-JIS \e$B$N>l9g$O\e(B
-
-       (setq mime/default-coding-system *sjis*)
-
-EUC-JP \e$B$N>l9g$O!"\e(B
-
-       (setq mime/default-coding-system *euc-japan*)
-
-\e$B$H$7$F2<$5$$!#\e(B
-
-
-** charset \e$B$,B8:_$9$k>l9g$b4^$a$?BP:v\e(B
-
-  charset \e$B$,B8:_$9$k>l9g!"JQ?t\e(B mime/charset-coding-system-alist \e$B$K\e(B 
-"ISO-2022-JP" \e$B$KBP1~$9$k\e(B coding-system \e$B$r\e(B *sjis* \e$B$d\e(B *euc-japan* \e$B$KJQ$(\e(B
-\e$B$k$H$$$&$N$,#1$D$NJ}K!$G$9!#C"$7!"$3$N>l9g!"\e(Bencode \e$B$5$l$F85$NJ8;z\e(B code 
-\e$B$,J]B8$5$l$F$$$k>l9g$KJ8;z2=$1$9$k$3$H$K$J$j$^$9!#\e(B
-
-  \e$B$3$N$3$H$r9MN8$9$k$H!"4X?t\e(B tm-mh-e/code-convert-region-to-emacs \e$B$r:F\e(B
-\e$BDj5A$9$k$N$,NI$$$H$$$($^$9!#$*$=$i$/!"\e(BISO-2022-JP \e$B0J30$NJ8;z\e(B code \e$B$OJ]\e(B
-\e$BB8$5$l$J$$$G$7$g$&$+$i!"0J2<$N$h$&$JDj5A$G==J,$G$7$g$&!#\e(B
-
-       (defun tm-mh-e/code-convert-region-to-emacs
-         (beg end charset &optional encoding)
-         (code-convert beg end *sjis* *internal*)
-         )
diff --git a/mh-e/mk-tmh b/mh-e/mk-tmh
deleted file mode 100644 (file)
index e8cfb85..0000000
+++ /dev/null
@@ -1,35 +0,0 @@
-;;; -*-Emacs-Lisp-*-
-;;;
-;;; $Id: mk-tmh,v 7.0 1996/09/03 15:23:15 morioka Exp $
-;;;
-
-(setq load-path (nconc
-                (mapcar (function
-                         (lambda (path)
-                           (expand-file-name path (getenv "PWD"))
-                           ))
-                        '("." ".." "../../tl" "../../mu" "../../mel")
-                        )
-                load-path))
-
-(require 'mh-e)
-(require 'emu)
-(require 'install)
-
-(load-file "TMH-ELS")
-
-(defun compile-tm-mh-e ()
-  (require 'tm-mh-e)
-  (require 'mh-comp)
-  (require 'tm-edit)
-  (compile-elisp-modules tm-mh-e-modules ".")
-  )
-
-(defun install-tm-mh-e ()
-  (let ((path (car command-line-args-left)))
-    (install-elisp-modules     tm-mh-e-modules "./"    path)
-    )
-  (setq command-line-args-left (cdr command-line-args-left))
-  )
-
-;;; mk-tmh ends here
diff --git a/mh-e/tm-mh-e.el b/mh-e/tm-mh-e.el
deleted file mode 100644 (file)
index c3f2b14..0000000
+++ /dev/null
@@ -1,424 +0,0 @@
-;;; tm-mh-e.el --- MIME extension for mh-e
-
-;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;         OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
-;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Created: 1993/11/21 (obsolete mh-e-mime.el)
-;; Version: $Revision: 7.68 $
-;; Keywords: mail, MH, MIME, multimedia, encoded-word, multilingual
-
-;; This file is part of tm (Tools for MIME).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with This program; see the file COPYING.  If not, write to
-;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'tl-str)
-(require 'tl-misc)
-(require 'mh-e)
-(or (featurep 'mh-utils)
-    (require 'tm-mh-e3)
-    )
-(require 'tm-view)
-
-(or (fboundp 'mh-get-header-field)
-    (defalias 'mh-get-header-field 'mh-get-field)
-    )
-(or (boundp 'mh-temp-buffer)
-    (defconst mh-temp-buffer " *mh-temp*")
-    )
-
-
-;;; @ version
-;;;
-
-(defconst tm-mh-e/RCS-ID
-  "$Id: tm-mh-e.el,v 7.68 1996/08/31 15:15:12 morioka Exp $")
-
-(defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
-
-
-;;; @ variable
-;;;
-
-(defvar tm-mh-e/automatic-mime-preview t
-  "*If non-nil, show MIME processed message.")
-
-(defvar tm-mh-e/decode-encoded-word t
-  "*If non-nil, decode encoded-word when it is not MIME preview mode.")
-
-
-;;; @ functions
-;;;
-
-;; (if (not (fboundp 'tm-mh-e/original-mh-display-msg))
-;;     (fset 'tm-mh-e/original-mh-display-msg
-;;           (symbol-function 'mh-display-msg))
-;;   )
-
-(defun mh-display-msg (msg-num folder &optional show-buffer mode)
-  (or mode
-      (setq mode tm-mh-e/automatic-mime-preview)
-      )
-  ;; 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 ((msg-filename (mh-msg-filename msg-num)))
-    (if (not (file-exists-p msg-filename))
-       (error "Message %d does not exist" msg-num))
-    (set-buffer show-buffer)
-    (cond ((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
-          (setq buffer-read-only nil)
-          (erase-buffer)
-          (if mode
-              (let* ((aname (concat "article-" folder))
-                     (abuf (get-buffer aname))
-                     )
-                (if abuf
-                    (progn
-                      (set-buffer abuf)
-                      (setq buffer-read-only nil)
-                      (erase-buffer)
-                      )
-                  (setq abuf (get-buffer-create aname))
-                  (set-buffer abuf)
-                  )
-                (let ((file-coding-system-for-read
-                       (if (boundp 'MULE) *noconv*))
-                      kanji-fileio-code)
-                  (insert-file-contents msg-filename)
-                  ;; (goto-char (point-min))
-                  (while (re-search-forward "\r$" nil t)
-                    (replace-match "")
-                    )
-                  )
-                (set-buffer-modified-p nil)
-                (setq buffer-read-only t)
-                (setq buffer-file-name msg-filename)
-                (mh-show-mode)
-                (mime/viewer-mode nil nil nil
-                                  aname (concat "show-" folder))
-                (goto-char (point-min))
-                )
-            (let ((clean-message-header mh-clean-message-header)
-                  (invisible-headers mh-invisible-headers)
-                  (visible-headers mh-visible-headers)
-                  )
-              ;; 1995/9/21
-              ;;   modified by ARIURA <ariura@cc.tuat.ac.jp>
-              ;;   to support mhl.
-              (if mhl-formfile
-                  (mh-exec-lib-cmd-output "mhl" "-nobell" "-noclear"
-                                          (if (stringp mhl-formfile)
-                                              (list "-form" mhl-formfile))
-                                          msg-filename)
-                (insert-file-contents msg-filename))
-              ;; end
-              (goto-char (point-min))
-              (cond (clean-message-header
-                     (mh-clean-msg-header (point-min)
-                                          invisible-headers
-                                          visible-headers)
-                     (goto-char (point-min)))
-                    (t
-                     (mh-start-of-uncleaned-message)))
-              (if tm-mh-e/decode-encoded-word
-                  (mime/decode-message-header)
-                )
-              (set-buffer-modified-p nil)
-              (setq buffer-read-only t)
-              (setq buffer-file-name msg-filename)
-              (mh-show-mode)
-              ))
-          (or (eq buffer-undo-list t)  ;don't save undo info for prev msgs
-              (setq buffer-undo-list nil))
-;;; Added by itokon (02/19/96)
-          (setq buffer-file-name msg-filename)
-;;;
-          (set-mark nil)
-          (setq mode-line-buffer-identification
-                (list (format mh-show-buffer-mode-line-buffer-id
-                              folder msg-num)))
-          (set-buffer folder)
-          (setq mh-showing-with-headers nil)))))
-
-(defun tm-mh-e/view-message (&optional msg)
-  "MIME decode and play this message."
-  (interactive)
-  (if (or (null tm-mh-e/automatic-mime-preview)
-         (null (get-buffer mh-show-buffer))
-         (save-excursion
-           (set-buffer mh-show-buffer)
-           (not (eq major-mode 'mime/viewer-mode))
-           ))
-      (let ((tm-mh-e/automatic-mime-preview t))
-       (mh-invalidate-show-buffer)
-       (mh-show-msg msg)
-       ))
-  (pop-to-buffer mh-show-buffer)
-  )
-
-(defun tm-mh-e/toggle-decoding-mode (arg)
-  "Toggle MIME processing mode.
-With arg, turn MIME processing on if arg is positive."
-  (interactive "P")
-  (setq tm-mh-e/automatic-mime-preview
-       (if (null arg)
-           (not tm-mh-e/automatic-mime-preview)
-         arg))
-  (save-excursion
-    (set-buffer mh-show-buffer)
-    (if (null tm-mh-e/automatic-mime-preview)
-       (if (and mime::preview/article-buffer
-                (get-buffer mime::preview/article-buffer))
-           (kill-buffer mime::preview/article-buffer)
-         )))
-  (mh-invalidate-show-buffer)
-  (mh-show (mh-get-msg-num t))
-  )
-
-(defun tm-mh-e/show (&optional message)
-  (interactive)
-  (mh-invalidate-show-buffer)
-  (mh-show message)
-  )
-
-(defun tm-mh-e/header-display ()
-  (interactive)
-  (mh-invalidate-show-buffer)
-  (let ((mime-viewer/ignored-field-regexp "^:$")
-       tm-mh-e/decode-encoded-word)
-    (mh-header-display)
-    ))
-
-(defun tm-mh-e/raw-display ()
-  (interactive)
-  (mh-invalidate-show-buffer)
-  (let (tm-mh-e/automatic-mime-preview
-       tm-mh-e/decode-encoded-word)
-    (mh-header-display)
-    ))
-
-(defun tm-mh-e/scroll-up-msg (&optional arg)
-  (interactive)
-  (mh-page-msg (or arg 1))
-  )
-
-(defun tm-mh-e/scroll-down-msg (&optional arg)
-  (interactive)
-  (mh-page-msg (- (or arg 1)))
-  )
-
-(defun tm-mh-e/burst-multipart/digest ()
-  "Burst apart the current message, which should be a multipart/digest.
-The message is replaced by its table of contents and the letters from the
-digest are inserted into the folder after that message."
-  (interactive)
-  (let ((digest (mh-get-msg-num t)))
-    (mh-process-or-undo-commands mh-current-folder)
-    (mh-set-folder-modified-p t)               ; lock folder while bursting
-    (message "Bursting digest...")
-    (mh-exec-cmd "mhn" "-store" mh-current-folder digest)
-    (mh-scan-folder mh-current-folder (format "%d-last" mh-first-msg-num))
-    (message "Bursting digest...done")
-    ))
-
-
-;;; @ for tm-view
-;;;
-
-(fset 'tm-mh-e/decode-charset-buffer
-      (symbol-function 'mime-charset/decode-buffer))
-
-(set-alist 'mime-viewer/code-converter-alist
-          'mh-show-mode
-          (function tm-mh-e/decode-charset-buffer))
-
-(defun tm-mh-e/content-header-filter ()
-  (goto-char (point-min))
-  (mime-preview/cut-header)
-  (tm-mh-e/decode-charset-buffer default-mime-charset)
-  (mime/decode-message-header)
-  )
-
-(set-alist 'mime-viewer/content-header-filter-alist
-          'mh-show-mode
-          (function tm-mh-e/content-header-filter))
-
-(defun tm-mh-e/quitting-method ()
-  (let ((win (get-buffer-window
-             mime/output-buffer-name))
-       (buf (current-buffer))
-       )
-    (if win
-       (delete-window win)
-      )
-    (pop-to-buffer
-     (let ((name (buffer-name buf)))
-       (substring name 5)
-       ))
-    (if (not tm-mh-e/automatic-mime-preview)
-       (mh-invalidate-show-buffer)
-      )
-    (mh-show (mh-get-msg-num t))
-    ))
-
-(set-alist 'mime-viewer/quitting-method-alist
-          'mh-show-mode
-          (function tm-mh-e/quitting-method))
-(set-alist 'mime-viewer/show-summary-method
-          'mh-show-mode
-          (function tm-mh-e/quitting-method))
-
-(defun tm-mh-e/following-method (buf)
-  (save-excursion
-    (set-buffer buf)
-    (goto-char (point-max))
-    (setq mh-show-buffer buf)
-    (apply (function mh-send)
-          (std11-field-bodies '("To" "cc" "Subject") ""))
-    (setq mh-sent-from-folder buf)
-    (setq mh-sent-from-msg 1)
-    (let ((last (point)))
-      (mh-yank-cur-msg)
-      (goto-char last)
-      )))
-
-(set-alist 'mime-viewer/following-method-alist
-          'mh-show-mode
-          (function tm-mh-e/following-method))
-
-
-;;; @@ 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 . mh-show-mode)
-                (summary-buffer-exp
-                 . (and (or (string-match "^article-\\(.+\\)$" article-buffer)
-                            (string-match "^show-\\(.+\\)$" article-buffer))
-                        (substring article-buffer
-                                   (match-beginning 1) (match-end 1))
-                        ))
-                ))
-    (set-alist 'tm-partial/preview-article-method-alist
-              'mh-show-mode
-              (function
-               (lambda ()
-                 (let ((tm-mh-e/automatic-mime-preview t))
-                   (tm-mh-e/show)
-                   ))))
-    )))
-
-
-;;; @ set up
-;;;
-
-(define-key mh-folder-mode-map "v" (function tm-mh-e/view-message))
-(define-key mh-folder-mode-map "\et" (function tm-mh-e/toggle-decoding-mode))
-(define-key mh-folder-mode-map "." (function tm-mh-e/show))
-(define-key mh-folder-mode-map "," (function tm-mh-e/header-display))
-(define-key mh-folder-mode-map "\e," (function tm-mh-e/raw-display))
-(define-key mh-folder-mode-map "\r" (function tm-mh-e/scroll-up-msg))
-(define-key mh-folder-mode-map "\e\r" (function tm-mh-e/scroll-down-msg))
-(define-key mh-folder-mode-map "\C-c\C-b"
-  (function tm-mh-e/burst-multipart/digest))
-
-(defun tm-mh-e/summary-before-quit ()
-  (let ((buf (get-buffer mh-show-buffer)))
-    (if buf
-       (let ((the-buf (current-buffer)))
-         (switch-to-buffer buf)
-         (if (and mime::article/preview-buffer
-                  (setq buf (get-buffer mime::article/preview-buffer))
-                  )
-             (progn
-               (switch-to-buffer the-buf)
-               (kill-buffer buf)
-               )
-           (switch-to-buffer the-buf)
-           )
-         ))))
-
-(add-hook 'mh-before-quit-hook (function tm-mh-e/summary-before-quit))
-            
-
-;;; @@ for tmh-comp.el
-;;;
-
-(autoload 'tm-mh-e/edit-again "tmh-comp"
-  "Clean-up a draft or a message previously sent and make it resendable." t)
-(autoload 'tm-mh-e/extract-rejected-mail "tmh-comp"
-  "Extract a letter returned by the mail system and make it re-editable." t)
-(autoload 'tm-mh-e/forward "tmh-comp"
-  "Forward a message or message sequence by MIME style." t)
-
-(call-after-loaded
- 'mime-setup
- (function
-  (lambda ()
-    (substitute-key-definition
-     'mh-edit-again 'tm-mh-e/edit-again mh-folder-mode-map)
-    (substitute-key-definition
-     'mh-extract-rejected-mail 'tm-mh-e/extract-rejected-mail
-     mh-folder-mode-map)
-    (substitute-key-definition
-     'mh-forward 'tm-mh-e/forward mh-folder-mode-map)
-
-    (call-after-loaded
-     'mh-comp
-     (function
-      (lambda ()
-       (require 'tmh-comp)
-       ))
-     'mh-letter-mode-hook)
-    )))
-
-
-;;; @ for BBDB
-;;;
-
-(call-after-loaded
- 'bbdb
- (function
-  (lambda ()
-    (require 'tm-bbdb)
-    )))
-
-
-;;; @ end
-;;;
-
-(provide 'tm-mh-e)
-
-(run-hooks 'tm-mh-e-load-hook)
-
-;;; tm-mh-e.el ends here
diff --git a/mh-e/tm-mh-e3.el b/mh-e/tm-mh-e3.el
deleted file mode 100644 (file)
index 0ac7f9c..0000000
+++ /dev/null
@@ -1,101 +0,0 @@
-;;;
-;;; tm-mh-e3.el --- tm-mh-e module for mh-e 3.* to emulate mh-e 4.*.
-;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1993 .. 1996 MORIOKA Tomohiko
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;;        (This module was imported from mh-e 4.1)
-;;; Created: 1994/7/10
-;;; Version:
-;;;    $Id: tm-mh-e3.el,v 7.2 1996/07/22 18:24:08 morioka Exp $
-;;; Keywords: mail, MH, mh-e 3, MIME, multimedia, encoded-word, multilingual
-;;;
-;;; This file is part of tm (Tools for MIME).
-;;;
-;;; This program is free software; you can redistribute it and/or
-;;; modify it under the terms of the GNU General Public License as
-;;; published by the Free Software Foundation; either version 2, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;; General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with This program.  If not, write to the Free Software
-;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-;;;
-;;; Code:
-
-(require 'mh-e)
-
-(defvar mh-send-prog "send"
-  "Name of the MH send program.
-Some sites need to change this because of a name conflict.")
-
-(defvar mail-citation-hook nil
-  "*Hook for modifying a citation just inserted in the mail buffer.
-Each hook function can find the citation between point and mark.
-And each hook function should leave point and mark around the citation
-text as modified.")
-
-
-;;; 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-start-of-uncleaned-message ()
-  ;; position uninteresting headers off the top of the window
-  (let ((case-fold-search t))
-    (re-search-forward
-     "^To:\\|^From:\\|^Subject:\\|^Date:" nil t)
-    (beginning-of-line)
-    (mh-recenter 0)))
-
-(fset 'mh-show-msg (symbol-function 'mh-show))
-
-
-;;; @ mh-comp definitions
-;;;
-
-(provide 'mh-comp)
-
-(defun mh-read-address (prompt)
-  ;; Read a To: or Cc: address, prompting in the minibuffer with PROMPT.
-  ;; May someday do completion on aliases.
-  (read-string prompt))
-
-(defvar mh-forward-subject-format "%s: %s"
-  "*Format to generate the Subject: line contents for a forwarded message.
-The two string arguments to the format are the sender of the original
-message and the original subject line.")
-
-(defun mh-forwarded-letter-subject (from subject)
-  ;; Return a Subject suitable for a forwarded message.
-  ;; Original message has headers FROM and SUBJECT.
-  (let ((addr-start (string-match "<" from))
-       (comment (string-match "(" from)))
-    (cond ((and addr-start (> addr-start 0))
-          ;; Full Name <luser@host>
-          (setq from (substring from 0 (1- addr-start))))
-         (comment
-          ;; luser@host (Full Name)
-          (setq from (substring from (1+ comment) (1- (length from)))))))
-  (format mh-forward-subject-format from subject))
-
-
-;;; @ end
-;;;
-
-(provide 'tm-mh-e3)
-
-;;; tm-mh-e3.el ends here
diff --git a/mh-e/tmh-comp.el b/mh-e/tmh-comp.el
deleted file mode 100644 (file)
index 4eea5ef..0000000
+++ /dev/null
@@ -1,524 +0,0 @@
-;;; tm-mh-e.el --- tm-mh-e functions for composing messages
-
-;; Copyright (C) 1993,1994,1995,1996 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;         OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
-;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Created: 1996/2/29 (separated from tm-mh-e.el)
-;; Version:
-;;     $Id: tmh-comp.el,v 7.6 1996/09/03 15:27:18 morioka Exp $
-;; Keywords: mail, MH, MIME, multimedia, encoded-word, multilingual
-
-;; This file is part of tm (Tools for MIME).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with This program; see the file COPYING.  If not, write to
-;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'mh-comp)
-(require 'tm-edit)
-
-
-;;; @ variable
-;;;
-
-(defvar tm-mh-e/forwcomps "forwcomps"
-  "Name of file to be used as a skeleton for forwarding messages.
-Default is \"forwcomps\".  If not a complete path name, the file
-is searched for first in the user's MH directory, then in the
-system MH lib directory.")
-
-(defvar tm-mh-e/message-yank-function 'mh-yank-cur-msg)
-
-
-;;; @ for tm-edit
-;;;
-
-(defun tm-mh-e::make-message (folder number)
-  (vector folder number)
-  )
-
-(defun tm-mh-e::message/folder (message)
-  (elt message 0)
-  )
-
-(defun tm-mh-e::message/number (message)
-  (elt message 1)
-  )
-
-(defun tm-mh-e::message/file-name (message)
-  (expand-file-name
-   (tm-mh-e::message/number message)
-   (mh-expand-file-name (tm-mh-e::message/folder message))
-   ))
-
-;;; modified by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
-;;;    1995/11/14 (cf. [tm-ja:1096])
-(defun tm-mh-e/prompt-for-message (prompt folder &optional default)
-  (let* ((files
-         (directory-files (mh-expand-file-name folder) nil "^[0-9]+$")
-         )
-        (folder-buf (get-buffer folder))
-        (default
-          (if folder-buf
-              (save-excursion
-                (set-buffer folder-buf)
-                (let* ((show-buffer (get-buffer mh-show-buffer))
-                       (show-buffer-file-name
-                        (buffer-file-name show-buffer)))
-                  (if show-buffer-file-name
-                      (file-name-nondirectory show-buffer-file-name)))))))
-    (if (or (null default)
-           (not (string-match "^[0-9]+$" default)))
-       (setq default
-             (if (and (string= folder mh-sent-from-folder)
-                      mh-sent-from-msg)
-                 (int-to-string mh-sent-from-msg)
-               (save-excursion
-                 (let (cur-msg)
-                   (if (and
-                        (= 0 (mh-exec-cmd-quiet nil "pick" folder "cur"))
-                        (set-buffer mh-temp-buffer)
-                        (setq cur-msg (buffer-string))
-                        (string-match "^[0-9]+$" cur-msg))
-                       (substring cur-msg 0 (match-end 0))
-                     (car files)))))))
-    (completing-read prompt
-                    (let ((i 0))
-                      (mapcar (function
-                               (lambda (file)
-                                 (setq i (+ i 1))
-                                 (list file i)
-                                 ))
-                              files)
-                      ) nil nil default)
-    ))
-
-;;; modified by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
-;;;    1995/11/14 (cf. [tm-ja:1096])
-(defun tm-mh-e/query-message (&optional message)
-  (let (folder number)
-    (if message
-       (progn
-         (setq folder (tm-mh-e::message/folder message))
-         (setq number (tm-mh-e::message/number message))
-         ))
-    (or (stringp folder)
-       (setq folder (mh-prompt-for-folder
-                     "Message from"
-                     (if (and (stringp mh-sent-from-folder)
-                              (string-match "^\\+" mh-sent-from-folder))
-                         mh-sent-from-folder "+inbox")
-                     nil)))
-    (setq number
-         (if (numberp number)
-             (number-to-string number)
-           (tm-mh-e/prompt-for-message "Message number: " folder)
-           ))
-    (tm-mh-e::make-message folder number)
-    ))
-
-(defun tm-mh-e/insert-message (&optional message)
-  ;; always ignores message
-  (let ((article-buffer
-        (if (not (and (stringp mh-sent-from-folder)
-                      (numberp mh-sent-from-msg)
-                      ))
-            (cond ((and (boundp 'gnus-original-article-buffer)
-                        (bufferp mh-sent-from-folder)
-                        (get-buffer gnus-original-article-buffer)
-                        )
-                   gnus-original-article-buffer)
-                  ((and (boundp 'gnus-article-buffer)
-                        (get-buffer gnus-article-buffer)
-                        (bufferp mh-sent-from-folder)
-                        )
-                   (save-excursion
-                     (set-buffer gnus-article-buffer)
-                     (if (eq major-mode 'mime/viewer-mode)
-                         mime::preview/article-buffer
-                       (current-buffer)
-                       )))
-                  ))))
-    (if (null article-buffer)
-       (tm-mh-e/insert-mail
-        (tm-mh-e::make-message mh-sent-from-folder mh-sent-from-msg)
-        )
-      (insert-buffer article-buffer)
-      (mime-editor/inserted-message-filter)
-      )
-    ))
-
-(defun tm-mh-e/insert-mail (&optional message)
-  (save-excursion
-    (save-restriction
-      (let ((message-file
-            (tm-mh-e::message/file-name (tm-mh-e/query-message message))))
-       (narrow-to-region (point) (point))
-       (insert-file-contents message-file)
-       (push-mark (point-max))
-       (mime-editor/inserted-message-filter)
-    ))))
-
-(set-alist 'mime-editor/message-inserter-alist
-          'mh-letter-mode (function tm-mh-e/insert-message))
-(set-alist 'mime-editor/mail-inserter-alist
-          'mh-letter-mode (function tm-mh-e/insert-mail))
-(set-alist 'mime-editor/mail-inserter-alist
-          'news-reply-mode (function tm-mh-e/insert-mail))
-(set-alist
- 'mime-editor/split-message-sender-alist
- 'mh-letter-mode
- (function
-  (lambda (&optional arg)
-    (interactive "P")
-    (write-region (point-min) (point-max)
-                 mime-editor/draft-file-name nil 'no-message)
-    (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-editor/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-editor/draft-file-name)))))
-    )))
-
-
-;;; @ commands using tm-edit features
-;;;
-
-(defun tm-mh-e/edit-again (msg)
-  "Clean-up a draft or a message previously sent and make it resendable.
-Default is the current message.
-The variable mh-new-draft-cleaned-headers specifies the headers to remove.
-See also documentation for `\\[mh-send]' function."
-  (interactive (list (mh-get-msg-num t)))
-  (catch 'tag
-    (let* ((from-folder mh-current-folder)
-          (config (current-window-configuration))
-          code-conversion
-          (draft
-           (cond ((and mh-draft-folder (equal from-folder mh-draft-folder))
-                  (let ((name (format "draft-%d" msg)))
-                    (if (get-buffer name)
-                        (throw 'tag (pop-to-buffer name))
-                      )
-                    (let ((file-coding-system-for-read *noconv*)
-                          (filename
-                           (mh-msg-filename msg mh-draft-folder)
-                           ))
-                      (set-buffer (get-buffer-create name))
-                      (insert-file-contents filename)
-                      (setq buffer-file-name filename)
-                      (setq code-conversion t)
-                      )
-                    (pop-to-buffer name)
-                    (if (re-search-forward "\\(^$\\|^-+$\\)" nil t)
-                        (replace-match "")
-                        )
-                    name))
-                 (t
-                  (prog1
-                      (let ((file-coding-system-for-read *noconv*))
-                        (mh-read-draft "clean-up" (mh-msg-filename msg) nil)
-                        )
-                    (setq code-conversion t)
-                    ))))
-          )
-      (goto-char (point-min))
-      (mh-clean-msg-header (point-min) mh-new-draft-cleaned-headers nil)
-      (if code-conversion
-         (let ((cs (code-detect-region (point-min)(point-max))))
-           (set-file-coding-system
-            (if (listp cs)
-                (car cs)
-              cs))
-           ))
-      (save-buffer)
-      (mime/edit-again code-conversion t t)
-      (goto-char (point-min))
-      (mh-compose-and-send-mail draft "" from-folder nil nil nil nil nil nil
-                               config)
-      )))
-
-;;; by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
-;;;    1996/2/29 (cf. [tm-ja:1643])
-(defun tm-mh-e/extract-rejected-mail (msg)
-  "Extract a letter returned by the mail system and make it re-editable.
-Default is the current message.  The variable mh-new-draft-cleaned-headers
-gives the headers to clean out of the original message."
-  (interactive (list (mh-get-msg-num t)))
-  (let ((from-folder mh-current-folder)
-       (config (current-window-configuration))
-       (draft (mh-read-draft "extraction" (mh-msg-filename msg) nil)))
-    (setq buffer-read-only nil)
-    (goto-char (point-min))
-    (cond 
-     ((and
-       (re-search-forward
-       (concat "^\\($\\|[Cc]ontent-[Tt]ype:[ \t]+multipart/\\)") nil t)
-       (not (bolp))
-       (re-search-forward "boundary=\"\\([^\"]+\\)\"" nil t))
-      (let ((case-fold-search t)
-           (boundary (buffer-substring (match-beginning 1) (match-end 1))))
-       (cond
-        ((re-search-forward
-          (concat "^--" boundary "\n"
-                  "content-type:[ \t]+"
-                  "\\(message/rfc822\\|text/rfc822-headers\\)\n"
-                  "\\(.+\n\\)*\n") nil t)
-         (delete-region (point-min) (point))
-         (mh-clean-msg-header (point-min) mh-new-draft-cleaned-headers nil)
-         (search-forward
-          (concat "\n--" boundary "--\n") nil t)
-         (delete-region (match-beginning 0) (point-max)))
-        (t
-         (message "Seems no message/rfc822 part.")))))
-     ((re-search-forward mh-rejected-letter-start nil t)
-      (skip-chars-forward " \t\n")
-      (delete-region (point-min) (point))
-      (mh-clean-msg-header (point-min) mh-new-draft-cleaned-headers nil))
-     (t
-      (message "Does not appear to be a rejected letter.")))
-    (goto-char (point-min))
-    (if (re-search-forward "^-+$" nil t)
-       (replace-match "")
-      )
-    (mime/edit-again nil t t)
-    (goto-char (point-min))
-    (set-buffer-modified-p nil)
-    (mh-compose-and-send-mail draft "" from-folder msg
-                             (mh-get-header-field "To:")
-                             (mh-get-header-field "From:")
-                             (mh-get-header-field "Cc:")
-                             nil nil config)))
-
-;;; by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
-;;;    1995/11/14 (cf. [tm-ja:1099])
-(defun tm-mh-e/forward (to cc &optional msg-or-seq)
-  "Forward a message or message sequence as MIME message/rfc822.
-Defaults to displayed message. If optional prefix argument provided,
-then prompt for the message sequence. See also documentation for
-`\\[mh-send]' function."
-  (interactive (list (mh-read-address "To: ")
-                    (mh-read-address "Cc: ")
-                    (if current-prefix-arg
-                        (mh-read-seq-default "Forward" t)
-                      (mh-get-msg-num t)
-                      )))
-  (or msg-or-seq
-      (setq msg-or-seq (mh-get-msg-num t)))
-  (let* ((folder mh-current-folder)
-        (config (current-window-configuration))
-        ;; uses "draft" for compatibility with forw.
-        ;; forw always leaves file in "draft" since it doesn't have -draft
-        (draft-name (expand-file-name "draft" mh-user-path))
-        (draft (cond ((or (not (file-exists-p draft-name))
-                          (y-or-n-p "The file `draft' exists.  Discard it? "))
-                      (mh-exec-cmd "comp"
-                                   "-noedit" "-nowhatnowproc"
-                                   "-form" tm-mh-e/forwcomps
-                                   "-nodraftfolder")
-                      (prog1
-                          (mh-read-draft "" draft-name t)
-                        (mh-insert-fields "To:" to "Cc:" cc)
-                        (set-buffer-modified-p nil)))
-                     (t
-                      (mh-read-draft "" draft-name nil)))))
-    (let ((msubtype "digest")
-         orig-from orig-subject multipart-flag
-         (tag-regexp
-          (concat "^"
-                  (regexp-quote (mime-make-tag "message" "rfc822"))))
-         )
-      (goto-char (point-min))
-      (save-excursion
-       (save-restriction
-         (goto-char (point-max))
-         (if (not (bolp)) (insert "\n"))
-         (let ((beg (point)))
-           (narrow-to-region beg beg)
-           (mh-exec-cmd-output "pick" nil folder msg-or-seq)
-           (if (> (count-lines (point) (point-max)) 1)
-               (setq multipart-flag t)
-             )
-           (while (re-search-forward "^\\([0-9]+\\)\n" nil t)
-             (let ((forw-msg
-                    (buffer-substring (match-beginning 1) (match-end 1)))
-                   (beg (match-beginning 0))
-                   (end (match-end 0))
-                   )
-               (save-restriction
-                 (narrow-to-region beg end)
-                 ;; modified for Emacs 18
-                 (delete-region beg end)
-                 (insert-file-contents
-                  (mh-expand-file-name forw-msg
-                                       (mh-expand-file-name folder))
-                  )
-                 (save-excursion
-                   (push-mark (point-max))
-                   (mime-editor/inserted-message-filter))
-                 (goto-char (point-max))
-                 )
-               (save-excursion
-                 (goto-char beg)
-                 (mime-editor/insert-tag "message" "rfc822")
-                 )))
-           (delete-region (point) (point-max))
-           (if multipart-flag
-               (mime-editor/enclose-region "digest" beg (point))
-             ))))
-      (re-search-forward tag-regexp)
-      (forward-line 1)
-      (save-restriction
-       (narrow-to-region (point) (point-max))
-       (setq orig-from (mime-eword/decode-string
-                        (mh-get-header-field "From:")))
-       (setq orig-subject (mime-eword/decode-string
-                           (mh-get-header-field "Subject:")))
-       )
-      (let ((forw-subject
-            (mh-forwarded-letter-subject orig-from orig-subject)))
-       (mh-insert-fields "Subject:" forw-subject)
-       (goto-char (point-min))
-       (re-search-forward tag-regexp)
-       (forward-line -1)
-       (delete-other-windows)
-       (if (numberp msg-or-seq)
-           (mh-add-msgs-to-seq msg-or-seq 'forwarded t)
-         (mh-add-msgs-to-seq (mh-seq-to-msgs msg-or-seq) 'forwarded t))
-       (mh-compose-and-send-mail draft "" folder msg-or-seq
-                                 to forw-subject cc
-                                 mh-note-forw "Forwarded:"
-                                 config)))))
-
-(cond ((not (featurep 'mh-utils))
-       (defun tm-mh-e::insert-letter (folder number verbatim)
-        (mh-insert-letter verbatim folder number)
-        )
-       )
-      ((and (boundp 'mh-e-version)
-           (string-lessp mh-e-version "5"))
-       (defun tm-mh-e::insert-letter (folder number verbatim)
-        (mh-insert-letter number folder verbatim)
-        )
-       )
-      (t
-       (defalias 'tm-mh-e::insert-letter 'mh-insert-letter)
-       ))
-
-(defun tm-mh-e/insert-letter (verbatim)
-  "Interface to mh-insert-letter."
-  (interactive "P")
-  (let*
-      ((folder (mh-prompt-for-folder
-               "Message from"
-               (if (and (stringp mh-sent-from-folder)
-                        (string-match "^\\+" mh-sent-from-folder))
-                   mh-sent-from-folder "+inbox")
-               nil))
-       (number (tm-mh-e/prompt-for-message "Message number: " folder)))
-    (tm-mh-e::insert-letter folder number verbatim)))
-
-(defun tm-mh-e/yank-cur-msg-with-no-filter ()
-  "Insert the current message into the draft buffer.
-This function makes new show-buffer from article-buffer to disable
-variable `mime-viewer/plain-text-preview-hook'. If you don't want to
-use text filters for replying message, please set it to
-`tm-mh-e/message-yank-function'.
-Prefix each non-blank line in the message with the string in
-`mh-ins-buf-prefix'. The entire message will be inserted if
-`mh-yank-from-start-of-msg' is non-nil. If this variable is nil, the
-portion of the message following the point will be yanked.  If
-`mh-delete-yanked-msg-window' is non-nil, any window displaying the
-yanked message will be deleted."
-  (interactive)
-  (if (and mh-sent-from-folder mh-sent-from-msg)
-      (let ((to-point (point))
-           (to-buffer (current-buffer)))
-       (set-buffer mh-sent-from-folder)
-       (if mh-delete-yanked-msg-window
-           (delete-windows-on mh-show-buffer))
-       (set-buffer mh-show-buffer)     ; Find displayed message
-       (let ((mh-ins-str
-              (let (mime-viewer/plain-text-preview-hook buf)
-                (prog1
-                    (save-window-excursion
-                      (set-buffer mime::preview/article-buffer)
-                      (setq buf (mime/viewer-mode))
-                      (buffer-string)
-                      )
-                  (kill-buffer buf)))))
-         (set-buffer to-buffer)
-         (save-restriction
-           (narrow-to-region to-point to-point)
-           (push-mark)
-           (insert mh-ins-str)
-           (mh-insert-prefix-string mh-ins-buf-prefix)
-           (insert "\n"))))
-    (error "There is no current message")))
-
-(defun tm-mh-e/yank-current-message ()
-  "Insert the current message into the draft buffer.
-It uses variable `tm-mh-e/message-yank-function'
-to select message yanking function."
-  (interactive)
-  (let ((mh-sent-from-folder mh-sent-from-folder)
-       (mh-sent-from-msg mh-sent-from-msg))
-    (if (and (not (stringp mh-sent-from-folder))
-            (boundp 'gnus-article-buffer)
-            (get-buffer gnus-article-buffer)
-            (bufferp mh-sent-from-folder)
-            ) ; might be called from GNUS
-       (if (boundp 'gnus-article-copy) ; might be sgnus
-           (save-excursion
-             (gnus-copy-article-buffer)
-             (setq mh-sent-from-folder gnus-article-copy)
-             (set-buffer mh-sent-from-folder)
-             (setq mh-show-buffer gnus-article-copy)
-             )
-         (save-excursion
-           (setq mh-sent-from-folder gnus-article-buffer)
-           (set-buffer gnus-article-buffer)
-           (setq mh-show-buffer (current-buffer))
-           )))
-    (funcall tm-mh-e/message-yank-function)
-    ))
-
-(substitute-key-definition
- 'mh-yank-cur-msg 'tm-mh-e/yank-current-message mh-letter-mode-map)
-(substitute-key-definition
- 'mh-insert-letter 'tm-mh-e/insert-letter mh-letter-mode-map)
-
-
-;;; @ end
-;;;
-
-(provide 'tmh-comp)
-(require 'tm-mh-e)
-
-;;; tmh-comp.el ends here
diff --git a/mh-e/tmh-els b/mh-e/tmh-els
deleted file mode 100644 (file)
index 025b5e6..0000000
+++ /dev/null
@@ -1,26 +0,0 @@
-;;; -*-Emacs-Lisp-*-
-;;;
-;;; $Id: tmh-els,v 2.0 1996/06/27 15:39:16 morioka Exp $
-;;;
-
-(require 'mh-e)
-
-(setq tm-mh-e-modules
-      (append
-       '("tm-mh-e" "tmh-comp")
-       (if (not (featurep 'mh-utils))
-          '("tm-mh-e3")
-        )
-       ))
-
-(setq tm-mh-e-el-files
-      (mapcar (function (lambda (module)
-                         (concat module ".el")
-                         ))
-             tm-mh-e-modules))
-
-(setq tm-mh-e-elc-files
-      (mapcar (function (lambda (module)
-                         (concat module ".elc")
-                         ))
-             tm-mh-e-modules))
diff --git a/mime-setup.el b/mime-setup.el
deleted file mode 100644 (file)
index 816c708..0000000
+++ /dev/null
@@ -1,134 +0,0 @@
-;;;
-;;; mime-setup.el --- setup file for tm viewer and composer.
-;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1994 .. 1996 MORIOKA Tomohiko
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Version:
-;;;    $Id: mime-setup.el,v 7.14 1996/02/14 09:15:36 morioka Exp $
-;;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
-;;;
-;;; This file is part of tm (Tools for MIME).
-;;;
-;;; This program is free software; you can redistribute it and/or
-;;; modify it under the terms of the GNU General Public License as
-;;; published by the Free Software Foundation; either version 2, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;; General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with This program.  If not, write to the Free Software
-;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-;;;
-;;; Code:
-
-(require 'tm-setup)
-
-(autoload 'mime/editor-mode "tm-edit"
-  "Minor mode for editing MIME message." t)
-(autoload 'mime/decode-message-header "tm-ew-d"
-  "Decode MIME encoded-words in message header." t)
-
-(defun mime-setup-decode-message-header ()
-  (save-excursion
-    (save-restriction
-      (goto-char (point-min))
-      (narrow-to-region
-       (point-min)
-       (if (re-search-forward
-           (concat "^" (regexp-quote mail-header-separator) "$")
-           nil t)
-          (match-beginning 0)
-        (point-max)
-        ))
-      (mime/decode-message-header)
-      (set-buffer-modified-p nil)
-      )))
-
-(add-hook 'mime/editor-mode-hook 'mime-setup-decode-message-header)
-
-
-;;; @ variables
-;;;
-
-(defvar mime-setup-use-sc nil)
-(defvar mime-setup-use-signature t)
-(defvar mime-setup-default-signature-key "\C-c\C-s")
-(defvar mime-setup-signature-key-alist '((mail-mode . "\C-c\C-w")))
-
-
-;;; @ for signature
-;;;
-
-(defun mime-setup-set-signature-key ()
-  (let ((key (or (cdr (assq major-mode mime-setup-signature-key-alist))
-                mime-setup-default-signature-key)))
-    (define-key (current-local-map) key (function insert-signature))
-    ))
-
-(if mime-setup-use-signature
-    (progn
-      (autoload 'insert-signature "signature" "Insert signature" t)
-      (add-hook 'mime/editor-mode-hook 'mime-setup-set-signature-key)
-      (setq gnus-signature-file nil)
-      (setq mail-signature nil)
-      ))
-
-
-;;; @ about SuperCite
-;;;
-
-(if mime-setup-use-sc
-    (require 'sc-setup)
-  )
-
-
-;;; @ for RMAIL and VM
-;;;
-
-(add-hook 'mail-setup-hook 'mime/decode-message-header)
-(add-hook 'mail-setup-hook 'mime/editor-mode 'append)
-(add-hook 'mail-send-hook  'mime-editor/maybe-translate)
-
-
-;;; @ for mh-e
-;;;
-
-(defun mime-setup-mh-draft-setting ()
-  (mime/editor-mode)
-  (make-local-variable 'mail-header-separator)
-  (setq mail-header-separator "--------")
-  (save-excursion
-    (goto-char (point-min))
-    (setq buffer-read-only nil)
-    (if (re-search-forward "^-*$" nil t)
-       (progn
-         (replace-match mail-header-separator)
-         (set-buffer-modified-p (buffer-modified-p))
-         ))
-    ))
-
-(add-hook 'mh-letter-mode-hook 'mime-setup-mh-draft-setting t)
-(add-hook 'mh-before-send-letter-hook 'mime-editor/maybe-translate)
-
-
-;;; @ for GNUS
-;;;
-
-(add-hook 'news-reply-mode-hook 'mime/editor-mode)
-(add-hook 'news-inews-hook      'mime-editor/maybe-translate)
-
-
-;;; @ end
-;;;
-
-(provide 'mime-setup)
-
-(run-hooks 'mime-setup-load-hook)
-
-;;; mime-setup.el ends here
diff --git a/mk-tm b/mk-tm
deleted file mode 100644 (file)
index c3fa123..0000000
--- a/mk-tm
+++ /dev/null
@@ -1,188 +0,0 @@
-;;; -*-Emacs-Lisp-*-
-;;;
-;;; $Id: mk-tm,v 7.7 1996/02/27 21:24:06 morioka Exp $
-;;;
-
-(setq load-path (append
-                (mapcar (function
-                         (lambda (path)
-                           (expand-file-name path (getenv "PWD"))
-                           ))
-                        '("." "../tl/" "../mel/")
-                        )
-                load-path))
-
-(require 'tl-misc)
-
-;; Please specify VM path.
-(add-path "vm-5.95beta/" 'all-paths)
-
-;; Please specify Mailcrypt path.
-(add-path "mailcrypt-3.4/" 'all-paths)
-
-;; Please specify BBDB path.
-(add-path "bbdb-1.50/" 'all-paths)
-
-
-(setq tm-modules
-      (cons
-       (cond ((boundp 'NEMACS)
-             "tm-nemacs"
-             )
-            ((boundp 'MULE)
-             "tm-mule"
-             )
-            (t
-             "tm-orig"
-             ))
-       '("signature"
-        "tm-def"
-        "tm-ew-d" "tm-parse" "tm-view" "tm-play" "tm-partial"
-        "tm-rich"
-        "tm-latex" "tm-html" "tm-tar" "tm-file"
-        "tm-ew-e"
-        "tm-edit"
-        "tm-rmail" "tm-mail"
-        "tm-setup" "mime-setup"
-        )))
-
-(setq tm-uncompile-el-files '("sc-setup.el"))
-
-(if (file-installed-p "ange-ftp.el")
-    (setq tm-modules (append tm-modules '("tm-ftp")))
-  (setq tm-uncompile-el-files
-       (append tm-uncompile-el-files '("tm-ftp.el")))
-  )
-
-(if (file-installed-p "vm.elc")
-    (setq tm-modules (append tm-modules '("tm-vm")))
-  (setq tm-uncompile-el-files
-       (append tm-uncompile-el-files '("tm-vm.el")))
-  )
-
-(if (catch 'tag
-      (let ((paths load-path) path)
-       (while paths
-         (setq path (expand-file-name "mailcrypt.el" (car paths)))
-         (if (file-exists-p path)
-             (throw 'tag path)
-           )
-         (setq paths (cdr paths))
-         )))
-    (setq tm-modules (append tm-modules '("tm-pgp")))
-  (setq tm-uncompile-el-files
-       (append tm-uncompile-el-files '("tm-pgp.el")))
-  )
-
-(if (catch 'tag
-      (let ((paths load-path) path)
-       (while paths
-         (setq path (expand-file-name "bbdb.el" (car paths)))
-         (if (file-exists-p path)
-             (throw 'tag path)
-           )
-         (setq paths (cdr paths))
-         )))
-    (setq tm-modules (append tm-modules '("tm-bbdb")))
-  (setq tm-uncompile-el-files
-       (append tm-uncompile-el-files '("tm-bbdb.el")))
-  )
-
-(if (and (file-exists-p "tm-evs.el")
-        (or (boundp 'MULE)
-            (boundp 'NEMACS))
-        )
-    (setq tm-modules (append tm-modules '("tm-evs")))
-  )
-
-(if (string-match "XEmacs" emacs-version)
-    (setq tm-modules (append tm-modules '("tm-image")))
-  (if (boundp 'MULE)
-      (if (catch 'tag
-           (let ((paths load-path) path)
-             (while paths
-               (setq path (expand-file-name "bitmap.el" (car paths)))
-               (if (file-exists-p path)
-                   (throw 'tag path)
-                 )
-               (setq paths (cdr paths))
-               )))
-         (setq tm-modules (append tm-modules '("tm-image")))
-       (setq tm-uncompile-el-files
-             (append tm-uncompile-el-files '("tm-image.el")))
-       )))
-
-(setq tm-el-files
-      (mapcar (function (lambda (module)
-                         (concat module ".el")
-                         ))
-             tm-modules))
-
-(setq tm-elc-files
-      (mapcar (function (lambda (module)
-                         (concat module ".elc")
-                         ))
-             tm-modules))
-
-(defun compile-tm ()
-  ;; (require 'gnus)
-  (require 'tm-rich)
-  (require 'mel-u)
-  (require 'tm-edit)
-  (load "rmailsum")
-  (mapcar (function
-          (lambda (module)
-            (let ((el-file (concat module ".el"))
-                  (elc-file (concat module ".elc"))
-                  )
-              (if (file-newer-than-file-p el-file elc-file)
-                  (byte-compile-file el-file)
-                )
-              )))
-         tm-modules)
-  )
-
-(defconst el-file-mode (+ (* 64 6)(* 8 4) 4))
-
-(defun install-el (path file)
-  (let ((full-path (expand-file-name file path)))
-    (if (file-exists-p full-path)
-       (set-file-modes full-path el-file-mode)
-      )
-    (copy-file file full-path t t)
-    (princ (format "%s -> %s\n" file path))
-    ))
-
-(defun install-el-files (path &rest files)
-  (mapcar (function (lambda (file)
-                     (if (file-exists-p file)
-                         (install-el path file)
-                       )))
-         files))
-
-(defun install-elc (path file)
-  (let ((full-path (expand-file-name file path)))
-    (copy-file file full-path t t)
-    (delete-file file)
-    (princ (format "%s -> %s\n" file path))
-    ))
-
-(defun install-elc-files (path &rest files)
-  (mapcar (function (lambda (file)
-                     (if (file-exists-p file)
-                         (install-elc path file)
-                       )))
-         files))
-
-(defun install-tm ()
-  (let ((path (car command-line-args-left)))
-    (princ (format "%s\n" emacs-version))
-    (if (not (file-exists-p path))
-       (make-directory path t)
-      )
-    (apply (function install-el-files) path
-          (append tm-el-files tm-uncompile-el-files)
-          )
-    (apply (function install-elc-files) path tm-elc-files)
-    (setq command-line-args-left (cdr command-line-args-left))
-    ))
diff --git a/ol2.c b/ol2.c
deleted file mode 100644 (file)
index 3190414..0000000
--- a/ol2.c
+++ /dev/null
@@ -1,76 +0,0 @@
-/*
- *   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);
-       }   
-    }
-}
diff --git a/qprint.el b/qprint.el
deleted file mode 100644 (file)
index c43486c..0000000
--- a/qprint.el
+++ /dev/null
@@ -1,139 +0,0 @@
-;;;
-;;; $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)
diff --git a/rel-6eng.ol b/rel-6eng.ol
deleted file mode 100644 (file)
index f0a07db..0000000
+++ /dev/null
@@ -1,179 +0,0 @@
-* 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.
diff --git a/rel-6jp.ol b/rel-6jp.ol
deleted file mode 100644 (file)
index dca39f1..0000000
+++ /dev/null
@@ -1,171 +0,0 @@
-* 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
diff --git a/rel-7jp.ol b/rel-7jp.ol
deleted file mode 100644 (file)
index e0a2033..0000000
+++ /dev/null
@@ -1,67 +0,0 @@
-* 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
diff --git a/richtext.el b/richtext.el
deleted file mode 100644 (file)
index 62da059..0000000
+++ /dev/null
@@ -1,183 +0,0 @@
-;;;
-;;; richtext.el -- read and save files in text/richtext format
-;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1995 MORIOKA Tomohiko
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Created: 1995/7/15
-;;; Version:
-;;;    $Id: richtext.el,v 3.0 1995/11/22 11:36:06 morioka Exp $
-;;; Keywords: wp, faces, MIME, multimedia
-;;;
-;;; This file is part of GNU Emacs.
-;;;
-;;; GNU Emacs is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2, or (at your option)
-;;; any later version.
-;;;
-;;; GNU Emacs is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with GNU Emacs; see the file COPYING.  If not, write to
-;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-
-(require 'enriched)
-
-
-;;; @ variables
-;;;
-
-(defconst richtext-initial-annotation
-  (lambda ()
-    (format "Content-Type: text/richtext\nText-Width: %d\n\n"
-           (enriched-text-width)))
-  "What to insert at the start of a text/richtext file.
-If this is a string, it is inserted.  If it is a list, it should be a lambda
-expression, which is evaluated to get the string to insert.")
-
-(defconst richtext-annotation-regexp
-  "[ \t\n]*\\(<\\(/\\)?\\([-A-za-z0-9]+\\)>\\)[ \t\n]*"
-  "Regular expression matching richtext annotations.")
-
-(defconst richtext-translations
-  '((face          (bold-italic "bold" "italic")
-                  (bold        "bold")
-                  (italic      "italic")
-                  (underline   "underline")
-                  (fixed       "fixed")
-                  (excerpt     "excerpt")
-                  (default     )
-                  (nil         enriched-encode-other-face))
-    (invisible     (t           "comment"))
-    (left-margin   (4           "indent"))
-    (right-margin  (4           "indentright"))
-    (justification (right       "flushright")
-                  (left        "flushleft")
-                  (full        "flushboth")
-                  (center      "center")) 
-    ;; The following are not part of the standard:
-    (FUNCTION      (enriched-decode-foreground "x-color")
-                  (enriched-decode-background "x-bg-color"))
-    (read-only     (t           "x-read-only"))
-    (unknown       (nil         format-annotate-value))
-;   (font-size     (2           "bigger")       ; unimplemented
-;                 (-2          "smaller"))
-)
-  "List of definitions of text/richtext annotations.
-See `format-annotate-region' and `format-deannotate-region' for the definition
-of this structure.")
-
-
-;;; @ encoder
-;;;
-
-(defun richtext-encode (from to)
-  (if enriched-verbose (message "Richtext: encoding document..."))
-  (save-restriction
-    (narrow-to-region from to)
-    (delete-to-left-margin)
-    (unjustify-region)
-    (goto-char from)
-    (format-replace-strings '(("<" . "<lt>")))
-    (format-insert-annotations 
-     (format-annotate-region from (point-max) richtext-translations
-                            'enriched-make-annotation enriched-ignore))
-    (goto-char from)
-    (insert (if (stringp enriched-initial-annotation)
-               richtext-initial-annotation
-             (funcall richtext-initial-annotation)))
-    (enriched-map-property-regions 'hard
-      (lambda (v b e)
-       (goto-char b)
-       (if (eolp)
-           (while (search-forward "\n" nil t)
-             (replace-match "<nl>\n")
-             )))
-      (point) nil)
-    (if enriched-verbose (message nil))
-    ;; Return new end.
-    (point-max)))
-
-
-;;; @ decoder
-;;;
-
-(defun richtext-next-annotation ()
-  "Find and return next text/richtext annotation.
-Return value is \(begin end name positive-p), or nil if none was found."
-  (catch 'tag
-    (while (re-search-forward richtext-annotation-regexp nil t)
-      (let* ((beg0 (match-beginning 0))
-            (end0 (match-end 0))
-            (beg  (match-beginning 1))
-            (end  (match-end 1))
-            (name (downcase (buffer-substring 
-                             (match-beginning 3) (match-end 3))))
-            (pos (not (match-beginning 2)))
-            )
-       (cond ((equal name "lt")
-              (delete-region beg end)
-              (goto-char beg)
-              (insert "<")
-              )
-             ((equal name "comment")
-              (if pos
-                  (throw 'tag (list beg0 end name pos))
-                (throw 'tag (list beg end0 name pos))
-                )
-              )
-             (t
-              (throw 'tag (list beg end name pos))
-              ))
-       ))))
-
-(defun richtext-decode (from to)
-  (if enriched-verbose (message "Richtext: decoding document..."))
-  (save-excursion
-    (save-restriction
-      (narrow-to-region from to)
-      (goto-char from)
-      (let ((file-width (enriched-get-file-width))
-           (use-hard-newlines t) pc nc)
-       (enriched-remove-header)
-       
-       (goto-char from)
-       (while (re-search-forward "\n\n+" nil t)
-         (replace-match "\n")
-         )
-       
-       ;; Deal with newlines
-       (goto-char from)
-       (while (re-search-forward "[ \t\n]*<nl>[ \t\n]*" nil t)
-         (replace-match "\n")
-         (put-text-property (match-beginning 0) (point) 'hard t)
-         (put-text-property (match-beginning 0) (point) 'front-sticky nil)
-         )
-       
-       ;; Translate annotations
-       (format-deannotate-region from (point-max) richtext-translations
-                                 'richtext-next-annotation)
-
-       ;; Fill paragraphs
-       (if (or (and file-width         ; possible reasons not to fill:
-                    (= file-width (enriched-text-width))) ; correct wd.
-               (null enriched-fill-after-visiting) ; never fill
-               (and (eq 'ask enriched-fill-after-visiting) ; asked & declined
-                    (not (y-or-n-p "Re-fill for current display width? "))))
-           ;; Minimally, we have to insert indentation and justification.
-           (enriched-insert-indentation)
-         (if enriched-verbose (message "Filling paragraphs..."))
-         (fill-region (point-min) (point-max))))
-      (if enriched-verbose (message nil))
-      (point-max))))
-
-
-;;; @ end
-;;;
-
-(provide 'richtext)
diff --git a/signature-jp.ol b/signature-jp.ol
deleted file mode 100644 (file)
index 795362b..0000000
+++ /dev/null
@@ -1,35 +0,0 @@
-\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
diff --git a/signature-jp.tex b/signature-jp.tex
deleted file mode 100644 (file)
index ed7b800..0000000
+++ /dev/null
@@ -1,56 +0,0 @@
-\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}
diff --git a/src/tmpgp b/src/tmpgp
deleted file mode 100755 (executable)
index f43e0ce..0000000
--- a/src/tmpgp
+++ /dev/null
@@ -1,4 +0,0 @@
-#!/bin/sh
-output=$1
-shift
-pgp $* | mmencode -b -o $output
diff --git a/tiny-mime-eng.ol b/tiny-mime-eng.ol
deleted file mode 100644 (file)
index 47421ab..0000000
+++ /dev/null
@@ -1,104 +0,0 @@
-[[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.
diff --git a/tiny-mime-eng.tex b/tiny-mime-eng.tex
deleted file mode 100644 (file)
index 2fbb020..0000000
+++ /dev/null
@@ -1,158 +0,0 @@
-\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}
diff --git a/tiny-mime-jp.ol b/tiny-mime-jp.ol
deleted file mode 100644 (file)
index 2b5368d..0000000
+++ /dev/null
@@ -1,260 +0,0 @@
-\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(^_^;
diff --git a/tiny-mime-jp.tex b/tiny-mime-jp.tex
deleted file mode 100644 (file)
index 3beb18b..0000000
+++ /dev/null
@@ -1,353 +0,0 @@
-\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}
diff --git a/tiny-mime.el b/tiny-mime.el
deleted file mode 100644 (file)
index 7bc4bb7..0000000
+++ /dev/null
@@ -1,653 +0,0 @@
-;;;
-;;; 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:
diff --git a/tinyrich.el b/tinyrich.el
deleted file mode 100644 (file)
index 3929205..0000000
+++ /dev/null
@@ -1,166 +0,0 @@
-;;;
-;;; $Id: tinyrich.el,v 5.0 1995/09/20 14:45:56 morioka Exp $
-;;;
-;;;          by MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-;;; modified by YAMATE Keiichirou <ics9118@sem1.info.osaka-cu.ac.jp>
-;;;
-
-(defvar mime-viewer/face-list-for-text/enriched
-  (cond ((and (>= emacs-major-version 19) window-system)
-        '(bold italic fixed underline)
-        )
-       ((and (boundp 'NEMACS) NEMACS)
-        '("bold" "italic" "underline")
-        )))
-
-(defun enriched-decode (beg end)
-  (interactive "*r")
-  (save-excursion
-    (save-restriction
-      (narrow-to-region beg end)
-      (goto-char beg)
-      (while (re-search-forward "[ \t]*\\(\n+\\)[ \t]*" nil t)
-       (let ((str (buffer-substring (match-beginning 1)
-                                    (match-end 1))))
-         (if (string= str "\n")
-             (replace-match " ")
-           (replace-match (substring str 1))
-           )))
-      (goto-char beg)
-      (let (cmd sym 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))))
-           )
-         (setq sym (intern cmd))
-         (cond ((eq sym '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)
-                )
-               ((memq sym mime-viewer/face-list-for-text/enriched)
-                (setq b (point))
-                (save-excursion
-                  (save-restriction
-                    (if (re-search-forward (concat "</" cmd ">") nil t)
-                        (progn
-                          (replace-match "")
-                          (setq e (point))
-                          )
-                      (setq e end)
-                      )))
-                (tm:set-face-region b e sym)
-                )))
-       (goto-char (point-max))
-       (if (not (eq (preceding-char) ?\n))
-           (insert "\n")
-         )
-       ))))
-
-
-;;; @ text/richtext <-> text/enriched converter
-;;;
-
-(defun richtext-to-enriched-region (beg end)
-  "Convert the region of text/richtext style to text/enriched style."
-  (save-excursion
-    (save-restriction
-      (narrow-to-region beg end)
-      (goto-char (point-min))
-      (let (b e i)
-       (while (re-search-forward "[ \t]*<comment>" nil t)
-         (setq b (match-beginning 0))
-         (delete-region b
-                        (if (re-search-forward "</comment>[ \t]*" nil t)
-                            (match-end 0)
-                          (point-max)
-                          ))
-         )
-       (goto-char (point-min))
-       (while (re-search-forward "\n\n+" nil t)
-         (replace-match "\n")
-         )
-       (goto-char (point-min))
-       (while (re-search-forward "[ \t\n]*<nl>[ \t\n]*" nil t)
-         (setq b (match-beginning 0))
-         (setq e (match-end 0))
-         (setq i 1)
-         (while (looking-at "[ \t\n]*<nl>[ \t\n]*")
-           (setq e (match-end 0))
-           (setq i (1+ i))
-           (goto-char e)
-           )
-         (delete-region b e)
-         (while (>= i 0)
-           (insert "\n")
-           (setq i (1- i))
-           ))
-       (goto-char (point-min))
-       (while (search-forward "<lt>" nil t)
-         (replace-match "<<")
-         )
-       ))))
-
-(defun enriched-to-richtext-region (beg end)
-  "Convert the region of text/enriched style to text/richtext style."
-  (save-excursion
-    (save-restriction
-      (goto-char beg)
-      (and (search-forward "text/enriched")
-          (replace-match "text/richtext"))
-      (search-forward "\n\n")
-      (narrow-to-region (match-end 0) end)
-      (let (str n)
-       (goto-char (point-min))
-       (while (re-search-forward "\n\n+" nil t)
-         (setq str (buffer-substring (match-beginning 0)
-                                     (match-end 0)))
-         (setq n (1- (length str)))
-         (setq str "")
-         (while (> n 0)
-           (setq str (concat str "<nl>\n"))
-           (setq n (1- n))
-           )
-         (replace-match str)
-         )
-       (goto-char (point-min))
-       (while (search-forward "<<" nil t)
-         (replace-match "<lt>")
-         )
-       ))))
-
-
-;;; @ encoder and decoder
-;;;
-
-(defun richtext-decode (beg end)
-  (save-restriction
-    (narrow-to-region beg end)
-    (richtext-to-enriched-region beg (point-max))
-    (enriched-decode beg (point-max))
-    ))
-
-;; (defun richtext-encode (beg end)
-;;   (save-restriction
-;;     (narrow-to-region beg end)
-;;     (enriched-encode beg (point-max))
-;;     (enriched-to-richtext-region beg (point-max))
-;;     ))
-
-
-;;; @ end
-;;;
-
-(provide 'tinyrich)
diff --git a/tl-18.el b/tl-18.el
deleted file mode 100644 (file)
index 52b33d7..0000000
--- a/tl-18.el
+++ /dev/null
@@ -1,46 +0,0 @@
-;;;
-;;; $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)
diff --git a/tl-header.el b/tl-header.el
deleted file mode 100644 (file)
index fe37fec..0000000
+++ /dev/null
@@ -1,164 +0,0 @@
-;;;
-;;; $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)))
diff --git a/tl-list.el b/tl-list.el
deleted file mode 100644 (file)
index 4c2a538..0000000
+++ /dev/null
@@ -1,225 +0,0 @@
-;;;
-;;; $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)))
-       ))))
diff --git a/tl-mule.el b/tl-mule.el
deleted file mode 100644 (file)
index 9ae62fe..0000000
+++ /dev/null
@@ -1,11 +0,0 @@
-;;;
-;;; $Id$
-;;;
-
-(provide 'tl-mule)
-
-(defun get-lc (chr)
-  "Return leading character of CHAR or LEADING-CHARACTER."
-  (if (< chr 128)
-      lc-ascii
-    chr))
diff --git a/tl-nemacs.el b/tl-nemacs.el
deleted file mode 100644 (file)
index 78bd3b8..0000000
+++ /dev/null
@@ -1,98 +0,0 @@
-;;;
-;;; $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)))))
diff --git a/tl-orig.el b/tl-orig.el
deleted file mode 100644 (file)
index 47535c3..0000000
+++ /dev/null
@@ -1,25 +0,0 @@
-;;;
-;;; $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)
diff --git a/tl-str.el b/tl-str.el
deleted file mode 100644 (file)
index e4f60b3..0000000
--- a/tl-str.el
+++ /dev/null
@@ -1,138 +0,0 @@
-;;;
-;;; $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)
-                 )
-               )))))
diff --git a/tm-body-eng.ol b/tm-body-eng.ol
deleted file mode 100644 (file)
index b6a09d1..0000000
+++ /dev/null
@@ -1,93 +0,0 @@
-[[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.
diff --git a/tm-body-eng.tex b/tm-body-eng.tex
deleted file mode 100644 (file)
index bb161bf..0000000
+++ /dev/null
@@ -1,130 +0,0 @@
-\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}
diff --git a/tm-body-jp.ol b/tm-body-jp.ol
deleted file mode 100644 (file)
index 2e0ed5f..0000000
+++ /dev/null
@@ -1,90 +0,0 @@
-\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
diff --git a/tm-body-jp.tex b/tm-body-jp.tex
deleted file mode 100644 (file)
index 0d5b212..0000000
+++ /dev/null
@@ -1,132 +0,0 @@
-\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}
diff --git a/tm-body.el b/tm-body.el
deleted file mode 100644 (file)
index ad1d61d..0000000
+++ /dev/null
@@ -1,326 +0,0 @@
-;;;
-;;; $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)
-    ))
diff --git a/tm-cfg b/tm-cfg
deleted file mode 100644 (file)
index a562f2f..0000000
--- a/tm-cfg
+++ /dev/null
@@ -1,88 +0,0 @@
-;;; -*-Emacs-Lisp-*-
-;;;
-;;; $Id: tm-cfg,v 1.1 1996/03/04 08:37:01 morioka Exp morioka $
-;;;
-
-(setq load-path (append
-                (mapcar (function
-                         (lambda (path)
-                           (expand-file-name path (getenv "PWD"))
-                           ))
-                        '("." "../tl/" "../mel/" "mh-e/")
-                        )
-                load-path))
-
-(require 'tl-misc)
-
-
-;; Please specify VM path.
-(add-path "vm-5.95beta/" 'all-paths)
-
-;; Please specify Mailcrypt path.
-(add-path "mailcrypt-3.4/" 'all-paths)
-
-;; Please specify BBDB path.
-(add-path "bbdb-1.50/" 'all-paths)
-
-;; Please specify shell command path.
-(setq SHELL "/bin/sh")
-
-;; Please specify install path prefix.
-(setq PREFIX "~/")
-;;(setq PREFIX "/usr/local/")
-
-(setq EMACS_PREFIX
-      (cond ((boundp 'NEMACS) "nemacs/")
-           ((boundp 'MULE)   "mule/")
-           ((string-match "XEmacs" emacs-version) "xemacs/")
-           (t "emacs/")
-           ))
-
-(setq DATA_PREFIX
-      (if (or (< emacs-major-version 19)
-             (< emacs-minor-version 29)
-             )
-         "lib/"
-       "share/"))
-
-(setq DATADIR (expand-file-name DATA_PREFIX PREFIX))
-
-(setq LISP_PREFIX
-      (if (>= emacs-major-version 19)
-         "site-lisp/"
-       "local.lisp/"))
-
-(setq EMACS_DATADIR (expand-file-name EMACS_PREFIX DATADIR))
-
-(setq LISPDIR (expand-file-name LISP_PREFIX EMACS_DATADIR))
-
-
-;; Please specify mime-setup.{el|elc} install path.
-(setq SETUP_FILE_DIR LISPDIR)
-
-
-(setq TM_PREFIX "")
-
-(setq TM_LISPDIR (expand-file-name TM_PREFIX LISPDIR))
-
-(setq TL_DIR (expand-file-name "tl/" TM_LISPDIR))
-(setq MEL_DIR (expand-file-name "mel/" TM_LISPDIR))
-(setq TM_KERNEL_DIR (expand-file-name "tm/" TM_LISPDIR))
-(setq TM_MHE_DIR TM_KERNEL_DIR)
-(setq TM_GNUS_DIR TM_KERNEL_DIR)
-
-
-(setq el-file-mode (+ (* 64 6)(* 8 4) 4))
-
-
-(setq BINS '("src/ol2" "src/decode-b"))
-(setq METHODS
-      '("tm-au" "tm-file" "tm-html" "tm-image" "tm-mpeg" "tm-plain"
-       "tmdecode"))
-
-
-;; Please specify binary path.
-(setq BIN_DIR (expand-file-name "bin/" PREFIX))
-
-;; Please specify binary path.
-(setq METHOD_DIR BIN_DIR)
diff --git a/tm-comp-jp.pln b/tm-comp-jp.pln
deleted file mode 100644 (file)
index e5d1457..0000000
+++ /dev/null
@@ -1,62 +0,0 @@
-\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
diff --git a/tm-comp.el b/tm-comp.el
deleted file mode 100644 (file)
index 8ff815c..0000000
+++ /dev/null
@@ -1,483 +0,0 @@
-;;;
-;;; 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)
diff --git a/tm-els b/tm-els
deleted file mode 100644 (file)
index 8537e0f..0000000
--- a/tm-els
+++ /dev/null
@@ -1,99 +0,0 @@
-;;; -*-Emacs-Lisp-*-
-;;;
-;;; $Id: tm-els,v 1.2 1996/03/04 08:57:38 morioka Exp $
-;;;
-
-(require 'tl-misc)
-
-(setq tm-modules
-      (cons
-       (cond ((boundp 'NEMACS)
-             "tm-nemacs"
-             )
-            ((boundp 'MULE)
-             "tm-mule"
-             )
-            (t
-             "tm-orig"
-             ))
-       '("signature"
-        "tm-def"
-        "tm-ew-d" "tm-parse" "tm-view" "tm-play" "tm-partial"
-        "tm-rich"
-        "tm-latex" "tm-html" "tm-tar" "tm-file"
-        "tm-ew-e"
-        "tm-edit"
-        "tm-rmail" "tm-mail"
-        "tm-setup"
-        )))
-
-(setq tm-uncompile-el-files '("sc-setup.el"))
-
-(if (file-installed-p "ange-ftp.el")
-    (setq tm-modules (append tm-modules '("tm-ftp")))
-  (setq tm-uncompile-el-files
-       (append tm-uncompile-el-files '("tm-ftp.el")))
-  )
-
-(if (file-installed-p "vm.elc")
-    (setq tm-modules (append tm-modules '("tm-vm")))
-  (setq tm-uncompile-el-files
-       (append tm-uncompile-el-files '("tm-vm.el")))
-  )
-
-(if (file-installed-p "mailcrypt.el")
-    (setq tm-modules (append tm-modules '("tm-pgp")))
-  (setq tm-uncompile-el-files
-       (append tm-uncompile-el-files '("tm-pgp.el")))
-  )
-
-(if (file-installed-p "bbdb.el")
-    (setq tm-modules (append tm-modules '("tm-bbdb")))
-  (setq tm-uncompile-el-files
-       (append tm-uncompile-el-files '("tm-bbdb.el")))
-  )
-
-(if (and (file-exists-p "tm-evs.el")
-        (or (boundp 'MULE)
-            (boundp 'NEMACS))
-        )
-    (setq tm-modules (append tm-modules '("tm-evs")))
-  )
-
-(if (string-match "XEmacs" emacs-version)
-    (setq tm-modules (append tm-modules '("tm-image")))
-  (if (boundp 'MULE)
-      (if (file-installed-p "bitmap.el")
-         (setq tm-modules (append tm-modules '("tm-image")))
-       (setq tm-uncompile-el-files
-             (append tm-uncompile-el-files '("tm-image.el")))
-       )))
-
-(setq tm-el-files
-      (append
-       (mapcar (function (lambda (module)
-                          (concat module ".el")
-                          ))
-              tm-modules)
-       tm-uncompile-el-files))
-
-(setq tm-elc-files
-      (mapcar (function (lambda (module)
-                         (concat module ".elc")
-                         ))
-             tm-modules))
-
-
-(setq setup-modules '("mime-setup"))
-
-(setq setup-el-files
-      (mapcar (function (lambda (module)
-                         (concat module ".el")
-                         ))
-             setup-modules))
-
-(setq setup-elc-files
-      (mapcar (function (lambda (module)
-                         (concat module ".elc")
-                         ))
-             setup-modules))
diff --git a/tm-enriched.el b/tm-enriched.el
deleted file mode 100644 (file)
index abff363..0000000
+++ /dev/null
@@ -1,120 +0,0 @@
-;;;
-;;; $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))
-
diff --git a/tm-evs.el b/tm-evs.el
deleted file mode 100644 (file)
index fb96726..0000000
--- a/tm-evs.el
+++ /dev/null
@@ -1,172 +0,0 @@
-;;;
-;;; $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)
diff --git a/tm-gnus-eng.ol b/tm-gnus-eng.ol
deleted file mode 100644 (file)
index f5c74bc..0000000
+++ /dev/null
@@ -1,93 +0,0 @@
-[[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.
diff --git a/tm-gnus-eng.tex b/tm-gnus-eng.tex
deleted file mode 100644 (file)
index e4815cb..0000000
+++ /dev/null
@@ -1,120 +0,0 @@
-\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}
diff --git a/tm-gnus-jp.ol b/tm-gnus-jp.ol
deleted file mode 100644 (file)
index 8927a3f..0000000
+++ /dev/null
@@ -1,182 +0,0 @@
-\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
diff --git a/tm-gnus-jp.tex b/tm-gnus-jp.tex
deleted file mode 100644 (file)
index 06c08cd..0000000
+++ /dev/null
@@ -1,230 +0,0 @@
-\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}
diff --git a/tm-gnus.el b/tm-gnus.el
deleted file mode 100644 (file)
index e2acfa5..0000000
+++ /dev/null
@@ -1,98 +0,0 @@
-;;;
-;;;   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)
diff --git a/tm-gnus3.el b/tm-gnus3.el
deleted file mode 100644 (file)
index 38ef4a4..0000000
+++ /dev/null
@@ -1,62 +0,0 @@
-;;;
-;;; $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))
-    ))
diff --git a/tm-gnus4.el b/tm-gnus4.el
deleted file mode 100644 (file)
index 4a1f6de..0000000
+++ /dev/null
@@ -1,39 +0,0 @@
-;;;
-;;; $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)
diff --git a/tm-jp.tex b/tm-jp.tex
deleted file mode 100644 (file)
index ec9aac5..0000000
--- a/tm-jp.tex
+++ /dev/null
@@ -1,617 +0,0 @@
-\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}
diff --git a/tm-mail.el b/tm-mail.el
deleted file mode 100644 (file)
index b9cae54..0000000
+++ /dev/null
@@ -1,89 +0,0 @@
-;;;
-;;; tm-mail.el --- mail-mode extension.
-;;;
-;;; Copyright (C) 1995,1996 KOBAYASHI Shuhei
-;;; 
-;;; Author: KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
-;;; modified by MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;;         and Neal Becker <neal@neal.ctd.comsat.com>
-;;; Maintainer: KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
-;;; Created: 1995/11/27
-;;; Version: $Id: tm-mail.el,v 6.0 1996/04/16 18:24:02 morioka Exp $
-;;; Keywords: mail, MIME, multimedia
-;;;
-;;; This file is part of tm (Tools for MIME).
-;;;
-;;; This program is free software; you can redistribute it and/or
-;;; modify it under the terms of the GNU General Public License as
-;;; published by the Free Software Foundation; either version 2, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;; General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with This program.  If not, write to the Free Software
-;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-;;;
-;;; Code:
-
-(require 'tm-edit)
-
-(defun tm-mail/insert-message (&optional message)
-  (interactive)
-  (let* (mail-yank-hooks
-        (mail-citation-hook '(mime-editor/inserted-message-filter))
-        )
-    (cond
-     ((and (boundp 'vm-mail-buffer) vm-mail-buffer)
-      ;; called from VM.
-      (let ((mail-reply-buffer vm-mail-buffer))
-        (if (null message)
-            (call-interactively 'vm-yank-message)
-          (vm-yank-message message)))
-      )
-     ((boundp 'rmail-send-actions-rmail-buffer)
-      ;; called from RMAIL, emacs-19.29 or later.
-      (mail-yank-original nil)
-      )
-     ((and (boundp 'gnus-article-buffer) (get-buffer gnus-article-buffer))
-      ;; maybe called from Gnus.
-      (tm-gnus/insert-article)
-      )
-     ((and (boundp 'mail-reply-buffer) mail-reply-buffer)
-      ;; maybe called from RMAIL.
-      (mail-yank-original nil)
-      )
-     (t
-      (message "Sorry, I don't have message inserter for your MUA.")
-      ))
-    ))
-
-(defvar tm-mail/use-xemacs-popup-menu running-xemacs)
-
-(if (and running-xemacs tm-mail/use-xemacs-popup-menu)
-    (cond 
-     ((string-match "19.14" emacs-version)
-      (setq mail-menubar-menu
-           (append mail-menubar-menu
-                   (list "---"
-                         mime-editor/popup-menu-for-xemacs)))
-      )
-     (t
-      (setq mail-mode-menu
-           (append mail-mode-menu
-                   (list "---"
-                         mime-editor/popup-menu-for-xemacs)))
-      )
-     )
-  )
-
-
-;;; @ end
-;;;
-
-(provide 'tm-mail)
-
-;;; tm-mail.el ends here
diff --git a/tm-mh-e-eng.ol b/tm-mh-e-eng.ol
deleted file mode 100644 (file)
index 67edfe5..0000000
+++ /dev/null
@@ -1,88 +0,0 @@
-[[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.
diff --git a/tm-mh-e-eng.tex b/tm-mh-e-eng.tex
deleted file mode 100644 (file)
index dbb9d44..0000000
+++ /dev/null
@@ -1,123 +0,0 @@
-\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}
diff --git a/tm-mh-e-jp.ol b/tm-mh-e-jp.ol
deleted file mode 100644 (file)
index 1cc52c0..0000000
+++ /dev/null
@@ -1,104 +0,0 @@
-\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
diff --git a/tm-mh-e-jp.tex b/tm-mh-e-jp.tex
deleted file mode 100644 (file)
index 34eb15f..0000000
+++ /dev/null
@@ -1,144 +0,0 @@
-\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}
diff --git a/tm-mh-e.el b/tm-mh-e.el
deleted file mode 100644 (file)
index 0628ab3..0000000
+++ /dev/null
@@ -1,80 +0,0 @@
-;;;
-;;; 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)
-             )))
diff --git a/tm-mh-e3.el b/tm-mh-e3.el
deleted file mode 100644 (file)
index a5b3d6d..0000000
+++ /dev/null
@@ -1,73 +0,0 @@
-;;;
-;;; $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)
diff --git a/tm-misc.el b/tm-misc.el
deleted file mode 100644 (file)
index 635e017..0000000
+++ /dev/null
@@ -1,54 +0,0 @@
-;;;
-;;; $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)
diff --git a/tm-mule.el b/tm-mule.el
deleted file mode 100644 (file)
index 61d81e2..0000000
+++ /dev/null
@@ -1,125 +0,0 @@
-;;;
-;;; tm-mule.el --- tm definitions depended on Mule
-;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1994 .. 1996 MORIOKA Tomohiko
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Version:
-;;;    $Id: tm-mule.el,v 7.9 1996/04/16 13:42:44 morioka Exp $
-;;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
-;;;
-;;; This file is part of tm (Tools for MIME).
-;;;
-;;; This program is free software; you can redistribute it and/or
-;;; modify it under the terms of the GNU General Public License as
-;;; published by the Free Software Foundation; either version 2, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;; General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with This program.  If not, write to the Free Software
-;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-;;;
-;;; Code:
-
-(require 'emu)
-(require 'tl-list)
-
-
-;;; @ coding-system
-;;;
-
-(defvar mime/charset-coding-system-alist
-  '(("ISO-2022-JP"     . *iso-2022-ss2-7*)
-    ("ISO-2022-JP-2"   . *iso-2022-ss2-7*)
-    ("X-ISO-2022-JP-2" . *iso-2022-ss2-7*)
-    ("ISO-2022-CN"     . *iso-2022-ss2-7*)
-    ("ISO-2022-KR"     . *iso-2022-kr*)
-    ("EUC-KR"          . *euc-kr*)
-    ("ISO-8859-1"      . *ctext*)
-    ("ISO-8859-2"      . *iso-8859-2*)
-    ("ISO-8859-3"      . *iso-8859-3*)
-    ("ISO-8859-4"      . *iso-8859-4*)
-    ("ISO-8859-5"      . *iso-8859-5*)
-    ("KOI8-R"          . *koi8*)
-    ("ISO-8859-7"      . *iso-8859-7*)
-    ("ISO-8859-8"      . *iso-8859-8*)
-    ("ISO-8859-9"      . *iso-8859-9*)
-    ("ISO-2022-INT-1"  . *iso-2022-int-1*)
-    ("SHIFT_JIS"       . *sjis*)
-    ("X-SHIFTJIS"      . *sjis*)
-    ))
-
-
-;;; @ leading-character and charset
-;;;
-
-(defvar mime/lc-charset-alist
-  (list
-   (cons (list lc-ascii)         "US-ASCII")
-   (cons (list lc-ascii lc-ltn1) "ISO-8859-1")
-   (cons (list lc-ascii lc-ltn2) "ISO-8859-2")
-   (cons (list lc-ascii lc-ltn3) "ISO-8859-3")
-   (cons (list lc-ascii lc-ltn4) "ISO-8859-4")
-;;;(cons (list lc-ascii lc-crl)  "ISO-8859-5")
-   (cons (list lc-ascii lc-crl)  "KOI8-R")
-   (cons (list lc-ascii lc-grk)  "ISO-8859-7")
-   (cons (list lc-ascii lc-hbw)  "ISO-8859-8")
-   (cons (list lc-ascii lc-ltn5) "ISO-8859-9")
-   (cons (list lc-ascii lc-jp)   "ISO-2022-JP")
-   (cons (list lc-ascii lc-kr)   "EUC-KR")
-   (cons (list lc-ascii
-              lc-jp lc-cn
-              lc-kr lc-jp2
-              lc-ltn1 lc-grk) "ISO-2022-JP-2")
-   (cons (list lc-ascii
-              lc-jp lc-cn
-              lc-kr lc-jp2
-              lc-cns1 lc-cns2
-              lc-ltn1 lc-grk) "ISO-2022-INT-1")
-   ))
-
-(defvar mime/unknown-charset "ISO-2022-INT-1")
-
-
-;;; @ functions
-;;;
-
-(defun mime/convert-string-to-emacs (charset str)
-  (let ((cs (cdr (assoc charset mime/charset-coding-system-alist))))
-    (if cs
-       (code-convert-string str cs *internal*)
-      )))
-
-(defun mime/convert-string-from-emacs (str charset)
-  (let ((cs (cdr (assoc charset mime/charset-coding-system-alist))))
-    (if cs
-       (code-convert-string str *internal* cs)
-      )))
-
-(defun mime/code-convert-region-to-emacs (beg end charset &optional encoding)
-  (if (stringp charset)
-      (progn
-       (setq charset (upcase charset))
-       (let ((ct (cdr (assoc charset mime/charset-coding-system-alist))))
-         (if ct
-             (code-convert beg end ct *internal*)
-           )))
-    (if mime/default-coding-system
-       (code-convert beg end mime/default-coding-system *internal*)
-      )))
-
-
-;;; @ end
-;;;
-
-(provide 'tm-mule)
-
-(run-hooks 'tm-mule-load-hook)
-
-;;; tm-mule.el ends here
diff --git a/tm-nemacs.el b/tm-nemacs.el
deleted file mode 100644 (file)
index aad2249..0000000
+++ /dev/null
@@ -1,80 +0,0 @@
-;;;
-;;; tm-nemacs.el --- tm definitions depended on NEmacs
-;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1994,1995,1996 MORIOKA Tomohiko
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Version:
-;;;    $Id: tm-nemacs.el,v 7.6 1996/01/11 05:12:50 morioka Exp $
-;;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
-;;;
-;;; This file is part of tm (Tools for MIME).
-;;;
-;;; This program is free software; you can redistribute it and/or
-;;; modify it under the terms of the GNU General Public License as
-;;; published by the Free Software Foundation; either version 2, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;; General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with This program.  If not, write to the Free Software
-;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-;;;
-;;; Code:
-
-(require 'emu)
-
-
-;;; @ variables
-;;;
-
-(defvar mime/default-coding-system *junet*)
-
-(defvar mime/lc-charset-alist
-  (list
-   (cons (list lc-ascii)       "US-ASCII")
-   (cons (list lc-ascii lc-jp) "ISO-2022-JP")
-   ))
-
-(defvar mime/unknown-charset "ISO-2022-JP")
-
-
-;;; @ functions
-;;;
-
-(defun mime/convert-string-to-emacs (charset str)
-  (cond ((string= "ISO-2022-JP" charset)
-        (code-convert-string str *junet* *internal*))
-       ((string= "US-ASCII" charset) str)
-       ((string-match "^ISO-8859-[1-9]$" charset)
-        (check-ASCII-string str))
-       ))
-
-(defun mime/convert-string-from-emacs (string charset)
-  (cond ((string= charset "ISO-2022-JP")
-        (code-convert-string string *internal* *junet*))
-       ((string= charset "US-ASCII") string)
-       ))
-
-(defun mime/code-convert-region-to-emacs (beg end charset &optional encoding)
-  (if (stringp charset)
-      (progn
-       (setq charset (upcase charset))
-       (if (string= charset "ISO-2022-JP")
-           (code-convert-region beg end *junet* *internal*)
-         ))))
-
-
-;;; @ end
-;;;
-
-(provide 'tm-nemacs)
-
-(run-hooks 'tm-nemacs-load-hook)
-
-;;; tm-nemacs.el ends here
diff --git a/tm-orig.el b/tm-orig.el
deleted file mode 100644 (file)
index 43e5ec5..0000000
+++ /dev/null
@@ -1,71 +0,0 @@
-;;;
-;;; tm-orig.el --- tm definitions depended on FSF Original Emacs
-;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1994,1995,1996 MORIOKA Tomohiko
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Version:
-;;;    $Id: tm-orig.el,v 7.6 1996/01/11 05:15:05 morioka Exp $
-;;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
-;;;
-;;; This file is part of tm (Tools for MIME).
-;;;
-;;; This program is free software; you can redistribute it and/or
-;;; modify it under the terms of the GNU General Public License as
-;;; published by the Free Software Foundation; either version 2, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;; General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with This program.  If not, write to the Free Software
-;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-;;;
-;;; Code:
-
-(require 'emu)
-
-
-;;; @ variables
-;;;
-
-(defvar mime/default-coding-system nil)
-
-(defvar mime/lc-charset-alist
-  (list
-   (cons (list lc-ascii)         "US-ASCII")
-   (cons (list lc-ascii lc-ltn1) "ISO-8859-1")
-   ))
-
-(defvar mime/unknown-charset "ISO-8859-1")
-
-
-;;; @ functions
-;;;
-
-(defun mime/convert-string-to-emacs (charset str)
-  (if (or (string= "US-ASCII"   charset)
-         (string= "ISO-8859-1" charset))
-      str))
-
-(defun mime/convert-string-from-emacs (str charset)
-  (if (or (string= charset "US-ASCII")
-         (string= charset "ISO-8859-1"))
-      str))
-
-(defun mime/code-convert-region-to-emacs (beg end charset &optional encoding)
-  )
-
-
-;;; @ end
-;;;
-
-(provide 'tm-orig)
-
-(run-hooks 'tm-orig-load-hook)
-
-;;; tm-orig.el ends here
diff --git a/tm-rich.el b/tm-rich.el
deleted file mode 100644 (file)
index 447f61b..0000000
+++ /dev/null
@@ -1,91 +0,0 @@
-;;;
-;;; tm-rich.el --- text/enriched and text/richtext style
-;;;                richtext filter for tm-view
-;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1994 .. 1996 MORIOKA Tomohiko
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Version:
-;;;    $Id: tm-rich.el,v 7.5 1996/05/07 06:28:36 morioka Exp $
-;;; Keywords: mail, news, MIME, multimedia, richtext, enriched
-;;;
-;;; This file is part of tm (Tools for MIME).
-;;;
-;;; This program is free software; you can redistribute it and/or
-;;; modify it under the terms of the GNU General Public License as
-;;; published by the Free Software Foundation; either version 2, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;; General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with This program.  If not, write to the Free Software
-;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-;;;
-;;; Code:
-
-(require 'tm-view)
-
-
-;;; @ content filters for tm-view
-;;;
-
-(defun mime-viewer/filter-text/richtext (ctype params encoding)
-  (let* ((mode mime::preview/original-major-mode)
-        (m (assq mode mime-viewer/code-converter-alist))
-        (charset (assoc "charset" params))
-        ;; 1995/9/21 (c.f. tm-eng:105), 1995/10/3 (c.f. tm-eng:121)
-        ;;   modified by Eric Ding <ericding@San-Jose.ate.slb.com>
-        (beg (point-min)) (end (point-max))
-        )
-    (remove-text-properties beg end '(face nil))
-    (mime/decode-region encoding beg end)
-    (if (and m (fboundp (setq m (cdr m))))
-       (funcall m beg (point-max) charset encoding)
-      (mime-viewer/default-code-convert-region beg (point-max)
-                                              charset encoding)
-      )
-    (richtext-decode beg (point-max))
-    ))
-
-(defun mime-viewer/filter-text/enriched (ctype params encoding)
-  (let* ((mode mime::preview/original-major-mode)
-        (m (assq mode mime-viewer/code-converter-alist))
-        (charset (assoc "charset" params))
-        ;; 1995/9/21 (c.f. tm-eng:105), 1995/10/3 (c.f. tm-eng:121)
-        ;;   modified by Eric Ding <ericding@San-Jose.ate.slb.com>
-        (beg (point-min)) (end (point-max))
-        )
-    (remove-text-properties beg end '(face nil))
-    (mime/decode-region encoding beg end)
-    (if (and m (fboundp (setq m (cdr m))))
-       (funcall m beg (point-max) charset encoding)
-      (mime-viewer/default-code-convert-region beg (point-max)
-                                              charset encoding)
-      )
-    (enriched-decode beg (point-max))
-    ))
-
-
-;;; @ setting
-;;;
-
-(set-alist 'mime-viewer/content-filter-alist
-          "text/richtext" (function mime-viewer/filter-text/richtext))
-
-(set-alist 'mime-viewer/content-filter-alist
-          "text/enriched" (function mime-viewer/filter-text/enriched))
-
-
-;;; @ end
-;;;
-
-(provide 'tm-rich)
-
-(run-hooks 'tm-rich-load-hook)
-
-;;; tm-rich.el ends here
diff --git a/tm-rmail.el b/tm-rmail.el
deleted file mode 100644 (file)
index 24f4971..0000000
+++ /dev/null
@@ -1,388 +0,0 @@
-;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1994 .. 1996 MORIOKA Tomohiko
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; modified by KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
-;;; Created: 1994/8/30
-;;; Version:
-;;;    $Revision: 7.25 $
-;;; Keywords: mail, MIME, multimedia, multilingual, encoded-word
-;;;
-;;; This file is part of tm (Tools for MIME).
-;;;
-;;; This program is free software; you can redistribute it and/or
-;;; modify it under the terms of the GNU General Public License as
-;;; published by the Free Software Foundation; either version 2, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;; General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with This program.  If not, write to the Free Software
-;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-;;;
-;;; Code:
-
-(require 'tl-list)
-(require 'tl-misc)
-(require 'rmail)
-
-(autoload 'mime/viewer-mode "tm-view" "View MIME message." t)
-(autoload 'mime/Content-Type "tm-view" "parse Content-Type field.")
-(autoload 'mime/decode-message-header "tm-ew-d" "Decode MIME encoded-word." t)
-
-
-;;; @ variables
-;;;
-
-(defconst tm-rmail/RCS-ID
-  "$Id: tm-rmail.el,v 7.25 1996/06/12 05:38:23 morioka Exp $")
-(defconst tm-rmail/version (get-version-string tm-rmail/RCS-ID))
-
-(defvar tm-rmail/decode-all nil)
-
-
-;;; @ message filter
-;;;
-
-(setq rmail-message-filter
-      (function
-       (lambda ()
-        (let ((mf (buffer-modified-p))
-              (buffer-read-only nil))
-          (mime/decode-message-header)
-          (set-buffer-modified-p mf)
-          ))))
-
-
-;;; @ MIME preview
-;;;
-
-(defun tm-rmail/show-all-header-p ()
-  (save-restriction
-    (narrow-to-region (point-min)
-                     (and (re-search-forward "^$" nil t)
-                          (match-beginning 0)))
-    (goto-char (point-min))
-    (re-search-forward rmail-ignored-headers nil t)
-    ))
-
-(defun tm-rmail/preview-message ()
-  (interactive)
-  (setq tm-rmail/decode-all t)
-  (let ((ret (tm-rmail/get-Content-Type-and-Content-Transfer-Encoding)))
-    (narrow-to-region (point-min)
-                     (save-excursion
-                       (goto-char (point-max))
-                       (if (and (re-search-backward "^\n")
-                                (eq (match-end 0)(point-max)))
-                           (match-beginning 0)
-                         (point-max)
-                         )))
-    (let ((abuf (current-buffer))
-         (buf-name (format "*Preview-%s [%d/%d]*"
-                           (buffer-name)
-                           rmail-current-message rmail-total-messages))
-         buf win)
-      (if (and mime::article/preview-buffer
-                (setq buf (get-buffer mime::article/preview-buffer))
-                )
-         (progn
-           (save-excursion
-             (set-buffer buf)
-             (rename-buffer buf-name)
-             )
-           (if (setq win (get-buffer-window buf))
-               (progn
-                 (delete-window (get-buffer-window abuf))
-                 (set-window-buffer win abuf)
-                 (set-buffer abuf)
-                 ))
-           ))
-      (setq win (get-buffer-window abuf))
-      (save-window-excursion
-       (mime/viewer-mode nil (car ret)(cdr ret) nil buf-name)
-       (or buf
-           (setq buf (current-buffer))
-           )
-       )
-      (set-window-buffer win buf)
-      )))
-
-(defun tm-rmail/preview-message-if-you-need ()
-  (if tm-rmail/decode-all
-      (tm-rmail/preview-message)
-    ))
-
-(add-hook 'rmail-show-message-hook 'tm-rmail/preview-message-if-you-need)
-
-(cond ((fboundp 'rmail-summary-rmail-update)
-       ;; for Emacs 19 or later
-       (or (fboundp 'tm:rmail-summary-rmail-update)
-          (fset 'tm:rmail-summary-rmail-update
-                (symbol-function 'rmail-summary-rmail-update))
-          )
-       
-       (defun rmail-summary-rmail-update ()
-        (tm:rmail-summary-rmail-update)
-        (if tm-rmail/decode-all
-            (let ((win (get-buffer-window rmail-buffer)))
-              (if win
-                  (delete-window win)
-                )))
-        )
-       
-       (defun tm-rmail/get-Content-Type-and-Content-Transfer-Encoding ()
-        (rmail-widen-to-current-msgbeg
-         (function
-          (lambda ()
-            (cons (mime/Content-Type)
-                  (mime/Content-Transfer-Encoding "7bit")
-                  )))))
-       )
-      (t
-       ;; for Emacs 18
-       (defun tm-rmail/get-Content-Type-and-Content-Transfer-Encoding ()
-        (save-restriction
-          (rmail-widen-to-current-msgbeg
-           (function
-            (lambda ()
-              (goto-char (point-min))
-              (narrow-to-region (or (and (re-search-forward "^.+:" nil t)
-                                         (match-beginning 0))
-                                    (point-min))
-                                (point-max))
-              )))
-          (cons (mime/Content-Type)
-                (mime/Content-Transfer-Encoding "7bit")
-                )))
-       ))
-
-(define-key rmail-mode-map "v" (function tm-rmail/preview-message))
-
-(defun tm-rmail/setup ()
-  (local-set-key "v" (function
-                     (lambda ()
-                       (interactive)
-                       (set-buffer rmail-buffer)
-                       (tm-rmail/preview-message)
-                       )))
-  )
-
-(add-hook 'rmail-summary-mode-hook 'tm-rmail/setup)
-
-
-;;; @ over-to-* and quitting methods
-;;;
-
-(defun tm-rmail/quitting-method-to-summary ()
-  (mime-viewer/kill-buffer)
-  (rmail-summary)
-  (delete-other-windows)
-  )
-
-(defun tm-rmail/quitting-method-to-article ()
-  (setq tm-rmail/decode-all nil)
-  (mime-viewer/kill-buffer)
-  )
-
-(defalias 'tm-rmail/quitting-method 'tm-rmail/quitting-method-to-article)
-
-
-(defun tm-rmail/over-to-previous-method ()
-  (let (tm-rmail/decode-all)
-    (mime-viewer/quit)
-    )
-  (if (not (eq (rmail-next-undeleted-message -1) t))
-      (tm-rmail/preview-message)
-    )
-  )
-
-(defun tm-rmail/over-to-next-method ()
-  (let (tm-rmail/decode-all)
-    (mime-viewer/quit)
-    )
-  (if (not (eq (rmail-next-undeleted-message 1) t))
-      (tm-rmail/preview-message)
-    )
-  )
-
-(defun tm-rmail/show-summary-method ()
-  (save-excursion
-    (set-buffer mime::preview/article-buffer)
-    (rmail-summary)
-    ))
-
-(call-after-loaded
- 'tm-view
- (function
-  (lambda ()
-    (set-alist 'mime-viewer/quitting-method-alist
-              'rmail-mode
-              (function tm-rmail/quitting-method))
-    
-    (set-alist 'mime-viewer/over-to-previous-method-alist
-              'rmail-mode
-              (function tm-rmail/over-to-previous-method))
-    
-    (set-alist 'mime-viewer/over-to-next-method-alist
-              'rmail-mode
-              (function tm-rmail/over-to-next-method))
-
-    (set-alist 'mime-viewer/show-summary-method
-              'rmail-mode
-              (function tm-rmail/show-summary-method))
-    )))
-
-
-;;; @ 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 . rmail-mode)
-                (summary-buffer-exp
-                 . (progn
-                     (rmail-summary)
-                     (pop-to-buffer rmail-buffer)
-                     rmail-summary-buffer))
-                ))
-    (set-alist 'tm-partial/preview-article-method-alist
-              'rmail-mode
-              (function
-               (lambda ()
-                 (rmail-summary-goto-msg (count-lines 1 (point)))
-                 (pop-to-buffer rmail-buffer)
-                 (tm-rmail/preview-message)
-                 )))
-    )))
-
-
-;;; @ for tm-edit
-;;;
-
-(defun tm-rmail/forward ()
-  "Forward current message in message/rfc822 content-type message
-from rmail. The message will be appended if being composed."
-  (interactive)
-  ;;>> this gets set even if we abort. Can't do anything about it, though.
-  (rmail-set-attribute "forwarded" t)
-  (let ((initialized nil)
-       (beginning nil)
-       (msgnum rmail-current-message)
-       (rmail-buffer (current-buffer))
-       (subject (concat "["
-                        (mail-strip-quoted-names
-                         (mail-fetch-field "From"))
-                        ": " (or (mail-fetch-field "Subject") "") "]")))
-    ;; If only one window, use it for the mail buffer.
-    ;; Otherwise, use another window for the mail buffer
-    ;; so that the Rmail buffer remains visible
-    ;; and sending the mail will get back to it.
-    (setq initialized
-         (if (one-window-p t)
-             (mail nil nil subject)
-           (mail-other-window nil nil subject)))
-    (save-excursion
-      ;; following two variables are used in 19.29 or later.
-      (make-local-variable 'rmail-send-actions-rmail-buffer)
-      (make-local-variable 'rmail-send-actions-rmail-msg-number)
-      (make-local-variable 'mail-reply-buffer)
-      (setq rmail-send-actions-rmail-buffer rmail-buffer)
-      (setq rmail-send-actions-rmail-msg-number msgnum)
-      (setq mail-reply-buffer rmail-buffer)
-      (goto-char (point-max))
-      (forward-line 1)
-      (setq beginning (point))
-      (mime-editor/insert-tag "message" "rfc822")
-;;       (insert-buffer rmail-buffer))
-;;       (mime-editor/inserted-message-filter))
-      (tm-mail/insert-message))
-    (if (not initialized)
-       (goto-char beginning))
-    ))
-
-(defun gnus-mail-forward-using-mail-mime ()
-  "Forward current article in message/rfc822 content-type message from
-GNUS. The message will be appended if being composed."
-  (let ((initialized nil)
-       (beginning nil)
-       (forwarding-buffer (current-buffer))
-       (subject
-        (concat "[" gnus-newsgroup-name "] "
-                ;;(mail-strip-quoted-names (gnus-fetch-field "From")) ": "
-                (or (gnus-fetch-field "Subject") ""))))
-    ;; If only one window, use it for the mail buffer.
-    ;; Otherwise, use another window for the mail buffer
-    ;; so that the Rmail buffer remains visible
-    ;; and sending the mail will get back to it.
-    (setq initialized
-         (if (one-window-p t)
-             (mail nil nil subject)
-           (mail-other-window nil nil subject)))
-    (save-excursion
-      (goto-char (point-max))
-      (setq beginning (point))
-      (mime-editor/insert-tag "message" "rfc822")
-      (insert-buffer forwarding-buffer)
-      ;; You have a chance to arrange the message.
-      (run-hooks 'gnus-mail-forward-hook)
-      )
-    (if (not initialized)
-       (goto-char beginning))
-    ))
-
-(call-after-loaded
- 'mime-setup
- (function
-  (lambda ()
-    (substitute-key-definition
-     'rmail-forward 'tm-rmail/forward rmail-mode-map)
-    
-    ;; (setq gnus-mail-forward-method 'gnus-mail-forward-using-mail-mime)
-    
-    (call-after-loaded
-     'tm-edit
-     (function
-      (lambda ()
-       (require 'tm-mail)
-       (set-alist 'mime-editor/message-inserter-alist
-                  'mail-mode (function tm-mail/insert-message))
-       (set-alist 'mime-editor/split-message-sender-alist
-                  'mail-mode (function
-                              (lambda ()
-                                (interactive)
-                                (sendmail-send-it)
-                                )))
-       )))
-    )))
-
-
-;;; @ for BBDB
-;;;
-
-(call-after-loaded
- 'bbdb
- (function
-  (lambda ()
-    (require 'tm-bbdb)
-    )))
-
-
-;;; @ end
-;;;
-
-(provide 'tm-rmail)
-
-(run-hooks 'tm-rmail-load-hook)
-
-;;; tm-rmail.el ends here.
diff --git a/tm-vm.el b/tm-vm.el
deleted file mode 100644 (file)
index 962cc18..0000000
--- a/tm-vm.el
+++ /dev/null
@@ -1,1090 +0,0 @@
-;;; tm-vm.el --- tm-MUA (MIME Extension module) for VM
-
-;; Copyright (C) 1994,1995,1996 Free Software Foundation, Inc.
-
-;; Author: MASUTANI Yasuhiro <masutani@me.es.osaka-u.ac.jp>
-;;         Kenji Wakamiya <wkenji@flab.fujitsu.co.jp>
-;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;         Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
-;;         Oscar Figueiredo <figueire@lspsun2.epfl.ch>
-;; Maintainer: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
-;; Created: 1994/10/29
-;; Version: $Revision: 7.62 $
-;; Keywords: mail, MIME, multimedia, multilingual, encoded-word
-
-;; This file is part of tm (Tools for MIME).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program; see the file COPYING.  If not, write to
-;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Commentary:
-
-;;     Plese insert `(require 'tm-vm)' in your ~/.vm file.
-
-;;; Code:
-
-(require 'tm-view)
-(require 'vm)
-
-(defconst tm-vm/RCS-ID
-  "$Id: tm-vm.el,v 7.62 1996/08/31 14:24:35 morioka Exp $")
-(defconst tm-vm/version (get-version-string tm-vm/RCS-ID))
-
-(define-key vm-mode-map "Z" 'tm-vm/view-message)
-(define-key vm-mode-map "T" 'tm-vm/decode-message-header)
-(define-key vm-mode-map "\et" 'tm-vm/toggle-preview-mode)
-
-(defvar tm-vm/use-original-url-button nil
-  "*If it is t, use original URL button instead of tm's.")
-
-(defvar tm-vm-load-hook nil
-  "*List of functions called after tm-vm is loaded.")
-
-
-;;; @ for MIME encoded-words
-;;;
-
-(defvar tm-vm/use-tm-patch nil
-  "Does not decode encoded-words in summary buffer if it is t.
-If you use tiny-mime patch for VM (by RIKITAKE Kenji
-<kenji@reseau.toyonaka.osaka.jp>), please set it t [tm-vm.el]")
-
-(or tm-vm/use-tm-patch
-    (progn
-;;;
-(defvar tm-vm/chop-full-name-function 'tm-vm/default-chop-full-name)
-(setq vm-chop-full-name-function tm-vm/chop-full-name-function)
-
-(defun tm-vm/default-chop-full-name (address)
-  (let* ((ret (vm-default-chop-full-name address))
-        (full-name (car ret))
-        )
-    (if (stringp full-name)
-       (cons (mime-eword/decode-string full-name)
-             (cdr ret))
-      ret)))
-
-(require 'vm-summary)
-(or (fboundp 'tm:vm-su-subject)
-    (fset 'tm:vm-su-subject (symbol-function 'vm-su-subject))
-    )
-(defun vm-su-subject (m)
-  (mime-eword/decode-string (tm:vm-su-subject m))
-  )
-
-(or (fboundp 'tm:vm-su-full-name)
-    (fset 'tm:vm-su-full-name (symbol-function 'vm-su-full-name))
-    )
-(defun vm-su-full-name (m)
-  (mime-eword/decode-string (tm:vm-su-full-name m))
-  )
-
-(or (fboundp 'tm:vm-su-to-names)
-    (fset 'tm:vm-su-to-names (symbol-function 'vm-su-to-names))
-    )
-(defun vm-su-to-names (m)
-  (mime-eword/decode-string (tm:vm-su-to-names m))
-  )
-;;;
-))
-
-(defun tm-vm/decode-message-header (&optional count)
-  "Decode MIME header of current message.
-Numeric prefix argument COUNT means to decode the current message plus
-the next COUNT-1 messages.  A negative COUNT means decode the current
-message and the previous COUNT-1 messages.
-When invoked on marked messages (via vm-next-command-uses-marks),
-all marked messages are affected, other messages are ignored."
-  (interactive "p")
-  (or count (setq count 1))
-  (vm-follow-summary-cursor)
-  (vm-select-folder-buffer)
-  (vm-check-for-killed-summary)
-  (vm-error-if-folder-empty)
-  (vm-error-if-folder-read-only)
-  (let ((mlist (vm-select-marked-or-prefixed-messages count))
-       (realm nil)
-       (vlist nil)
-       (vbufs nil))
-    (save-excursion
-      (while mlist
-       (setq realm (vm-real-message-of (car mlist)))
-       ;; Go to real folder of this message.
-       ;; But maybe this message is already real message...
-       (set-buffer (vm-buffer-of realm))
-       (let ((buffer-read-only nil))
-         (vm-save-restriction
-          (narrow-to-region (vm-headers-of realm) (vm-text-of realm))
-          (mime/decode-message-header))
-         (let ((vm-message-pointer (list realm))
-               (last-command nil))
-           (vm-discard-cached-data))
-         ;; Mark each virtual and real message for later summary
-         ;; update.
-         (setq vlist (cons realm (vm-virtual-messages-of realm)))
-         (while vlist
-           (vm-mark-for-summary-update (car vlist))
-           ;; Remember virtual and real folders related this message,
-           ;; for later display update.
-           (or (memq (vm-buffer-of (car vlist)) vbufs)
-               (setq vbufs (cons (vm-buffer-of (car vlist)) vbufs)))
-           (setq vlist (cdr vlist)))
-         (if (eq vm-flush-interval t)
-             (vm-stuff-virtual-attributes realm)
-           (vm-set-modflag-of realm t)))
-       (setq mlist (cdr mlist)))
-      ;; Update mail-buffers and summaries.
-      (while vbufs
-       (set-buffer (car vbufs))
-       (vm-preview-current-message)
-       (setq vbufs (cdr vbufs))))))
-
-\f
-;;; @ automatic MIME preview
-;;;
-
-(defvar tm-vm/automatic-mime-preview t
-  "*If non-nil, show MIME processed article.")
-
-(defvar tm-vm/strict-mime t
-  "*If nil, do MIME processing even if there is not MIME-Version field.")
-
-(defvar tm-vm/select-message-hook nil
-  "*List of functions called every time a message is selected.
-tm-vm uses `vm-select-message-hook', use this hook instead.")
-
-(defvar tm-vm/system-state nil)
-(defun tm-vm/system-state ()
-  (save-excursion
-    (if mime::preview/article-buffer
-        (set-buffer mime::preview/article-buffer)
-      (vm-select-folder-buffer))
-    tm-vm/system-state))
-
-(defun tm-vm/display-preview-buffer ()
-  (let* ((mbuf (current-buffer))
-         (mwin (vm-get-visible-buffer-window mbuf))
-         (pbuf (and mime::article/preview-buffer
-                    (get-buffer mime::article/preview-buffer)))
-         (pwin (and pbuf (vm-get-visible-buffer-window pbuf)))) 
-    (if (and pbuf (tm-vm/system-state))
-        ;; display preview buffer
-        (cond
-         ((and mwin pwin)
-          (vm-undisplay-buffer mbuf)
-          (tm-vm/show-current-message))
-         ((and mwin (not pwin))
-          (set-window-buffer mwin pbuf)
-          (tm-vm/show-current-message))
-         (pwin
-          (tm-vm/show-current-message))
-         (t
-          ;; don't display if neither mwin nor pwin was displayed before.
-          ))
-      ;; display folder buffer
-      (cond
-       ((and mwin pwin)
-        (vm-undisplay-buffer pbuf))
-       ((and (not mwin) pwin)
-        (set-window-buffer pwin mbuf))
-       (mwin
-        ;; folder buffer is already displayed.
-        )
-       (t
-        ;; don't display if neither mwin nor pwin was displayed before.
-        )))
-    (set-buffer mbuf)))
-
-(defun tm-vm/preview-current-message ()
-  ;; assumed current buffer is folder buffer.
-  (setq tm-vm/system-state nil)
-  (if (get-buffer mime/output-buffer-name)
-      (vm-undisplay-buffer mime/output-buffer-name))
-  (if (and vm-message-pointer tm-vm/automatic-mime-preview)
-      (if (or (not tm-vm/strict-mime)
-              (vm-get-header-contents (car vm-message-pointer)
-                                      "MIME-Version:"))
-          ;; do MIME processiong.
-          (progn
-            (set (make-local-variable 'tm-vm/system-state) 'previewing)
-            (save-window-excursion
-             (vm-widen-page)
-             (goto-char (point-max))
-             (widen)
-             (narrow-to-region (point)
-                               (save-excursion
-                                 (goto-char
-                                  (vm-start-of (car vm-message-pointer))
-                                  )
-                                 (forward-line)
-                                 (point)
-                                 ))
-             (mime/viewer-mode)
-             (if (and tm-vm/use-original-url-button
-                      vm-use-menus (vm-menu-support-possible-p))
-                 (vm-energize-urls))
-             ;; 1996/2/16, fixed by
-             ;;    Oscar Figueiredo <figueire@lspsun2.epfl.ch>
-             ;; Highlight message (and display XFace if supported)
-             (if (or vm-highlighted-header-regexp
-                     (and (vm-xemacs-p) vm-use-lucid-highlighting))
-                 (vm-highlight-headers))
-             (if (and vm-use-menus (vm-menu-support-possible-p))
-                 (vm-energize-headers))              ;;
-             (goto-char (point-min))
-              (narrow-to-region (point) (search-forward "\n\n" nil t))
-              ))
-        ;; don't do MIME processing. decode header only.
-        (let (buffer-read-only)
-          (mime/decode-message-header))
-        )
-    ;; don't preview; do nothing.
-    )
-  (tm-vm/display-preview-buffer)
-  (run-hooks 'tm-vm/select-message-hook))
-
-(defun tm-vm/show-current-message ()
-  (if mime::preview/article-buffer
-      (set-buffer mime::preview/article-buffer)
-    (vm-select-folder-buffer))
-  ;; Now current buffer is folder buffer.
-  (if (or t ; mime/viewer-mode doesn't support narrowing yet.
-          (null vm-preview-lines)
-          (and (not vm-preview-read-messages)
-               (not (vm-new-flag
-                     (car vm-message-pointer)))
-               (not (vm-unread-flag
-                     (car vm-message-pointer)))))
-      (save-excursion
-        (set-buffer mime::article/preview-buffer)
-        (save-excursion
-          (save-excursion
-            (goto-char (point-min))
-            (widen))
-          ;; narrow to page; mime/viewer-mode doesn't support narrowing yet.
-          )))
-  (if (vm-get-visible-buffer-window mime::article/preview-buffer)
-      (progn
-        (setq tm-vm/system-state 'reading)
-        (if (vm-new-flag (car vm-message-pointer))
-            (vm-set-new-flag (car vm-message-pointer) nil))
-        (if (vm-unread-flag (car vm-message-pointer))
-            (vm-set-unread-flag (car vm-message-pointer) nil))
-        (vm-update-summary-and-mode-line)
-        (tm-vm/howl-if-eom))
-    (vm-update-summary-and-mode-line)))
-
-(defun tm-vm/toggle-preview-mode ()
-  (interactive)
-  (vm-select-folder-buffer)
-  (vm-display (current-buffer) t (list this-command)
-              (list this-command 'reading-message))
-  (if tm-vm/automatic-mime-preview
-      (setq tm-vm/automatic-mime-preview nil
-            tm-vm/system-state nil)
-    (setq tm-vm/automatic-mime-preview t
-          tm-vm/system-state nil)
-    (save-restriction
-       (vm-widen-page)
-       (let* ((mp (car vm-message-pointer))
-              (exposed (= (point-min) (vm-start-of mp))))
-         (if (or (not tm-vm/strict-mime)
-                 (vm-get-header-contents mp "MIME-Version:"))
-             ;; do MIME processiong.
-             (progn
-               (set (make-local-variable 'tm-vm/system-state) 'previewing)
-               (save-window-excursion
-                 (mime/viewer-mode)
-                 (goto-char (point-min))
-                 (narrow-to-region (point)
-                                   (search-forward "\n\n" nil t))
-                 ))
-           ;; don't do MIME processing. decode header only.
-           (let (buffer-read-only)
-             (mime/decode-message-header))
-           )
-         ;; don't preview; do nothing.
-         ))
-    (tm-vm/display-preview-buffer)
-    ))
-
-(add-hook 'vm-select-message-hook 'tm-vm/preview-current-message)
-(add-hook 'vm-visit-folder-hook   'tm-vm/preview-current-message)
-\f
-;;; tm-vm move commands
-;;;
-
-(defmacro tm-vm/save-window-excursion (&rest forms)
-  (list 'let '((tm-vm/selected-window (selected-window)))
-        (list 'unwind-protect
-              (cons 'progn forms)
-              '(if (window-live-p tm-vm/selected-window)
-                   (select-window tm-vm/selected-window)))))
-
-;;; based on vm-scroll-forward [vm-page.el]
-(defun tm-vm/scroll-forward (&optional arg)
-  (interactive "P")
-  (let ((this-command 'vm-scroll-forward))
-    (if (not (tm-vm/system-state))
-        (vm-scroll-forward arg)
-      (let* ((mp-changed (vm-follow-summary-cursor))
-             (mbuf (or (vm-select-folder-buffer) (current-buffer)))
-             (mwin (vm-get-buffer-window mbuf))
-             (pbuf (and mime::article/preview-buffer
-                        (get-buffer mime::article/preview-buffer)))
-             (pwin (and pbuf (vm-get-buffer-window pbuf)))
-             (was-invisible (and (null mwin) (null pwin)))
-             )
-        ;; now current buffer is folder buffer.
-        (tm-vm/save-window-excursion
-         (if (or mp-changed was-invisible)
-             (vm-display mbuf t '(vm-scroll-forward vm-scroll-backward)
-                         (list this-command 'reading-message)))
-         (tm-vm/display-preview-buffer)
-         (setq mwin (vm-get-buffer-window mbuf)
-               pwin (and pbuf (vm-get-buffer-window pbuf)))
-         (cond
-          ((or mp-changed was-invisible)
-           nil
-           )
-          ((null pbuf)
-           ;; preview buffer is killed.
-           (tm-vm/preview-current-message)
-           (vm-update-summary-and-mode-line))
-          ((eq (tm-vm/system-state) 'previewing)
-           (tm-vm/show-current-message))
-          (t
-           (select-window pwin)
-           (set-buffer pbuf)
-           (if (pos-visible-in-window-p (point-max) pwin)
-               (tm-vm/next-message)
-             ;; not end of message. scroll preview buffer only.
-             (scroll-up)
-             (tm-vm/howl-if-eom)
-             (set-buffer mbuf))
-           ))))
-      )))
-
-;;; based on vm-scroll-backward [vm-page.el]
-(defun tm-vm/scroll-backward (&optional arg)
-  (interactive "P")
-  (let ((this-command 'vm-scroll-backward))
-    (if (not (tm-vm/system-state))
-        (vm-scroll-backward arg)
-      (let* ((mp-changed (vm-follow-summary-cursor))
-             (mbuf (or (vm-select-folder-buffer) (current-buffer)))
-             (mwin (vm-get-buffer-window mbuf))
-             (pbuf (and mime::article/preview-buffer
-                        (get-buffer mime::article/preview-buffer)))
-             (pwin (and pbuf (vm-get-buffer-window pbuf)))
-             (was-invisible (and (null mwin) (null pwin)))
-             )
-        ;; now current buffer is folder buffer.
-        (if (or mp-changed was-invisible)
-            (vm-display mbuf t '(vm-scroll-forward vm-scroll-backward)
-                        (list this-command 'reading-message)))
-        (tm-vm/save-window-excursion
-         (tm-vm/display-preview-buffer)
-         (setq mwin (vm-get-buffer-window mbuf)
-               pwin (and pbuf (vm-get-buffer-window pbuf)))
-         (cond
-          (was-invisible
-           nil
-           )
-          ((null pbuf)
-           ;; preview buffer is killed.
-           (tm-vm/preview-current-message)
-           (vm-update-summary-and-mode-line))
-          ((eq (tm-vm/system-state) 'previewing)
-           (tm-vm/show-current-message))
-          (t
-           (select-window pwin)
-           (set-buffer pbuf)
-           (if (pos-visible-in-window-p (point-min) pwin)
-               nil
-             ;; scroll preview buffer only.
-             (scroll-down)
-             (set-buffer mbuf))
-           ))))
-      )))
-
-;;; based on vm-beginning-of-message [vm-page.el]
-(defun tm-vm/beginning-of-message ()
-  "Moves to the beginning of the current message."
-  (interactive)
-  (if (not (tm-vm/system-state))
-      (progn
-       (setq this-command 'vm-beginning-of-message)
-       (vm-beginning-of-message))
-    (vm-follow-summary-cursor)
-    (vm-select-folder-buffer)
-    (vm-check-for-killed-summary)
-    (vm-error-if-folder-empty)
-    (let ((mbuf (current-buffer))
-          (pbuf (and mime::article/preview-buffer
-                     (get-buffer mime::article/preview-buffer))))
-      (if (null pbuf)
-          (progn
-            (tm-vm/preview-current-message)
-            (setq pbuf (get-buffer mime::article/preview-buffer))
-            ))
-      (vm-display mbuf t '(vm-beginning-of-message)
-                  '(vm-beginning-of-message reading-message))
-      (tm-vm/display-preview-buffer)
-      (set-buffer pbuf)
-      (tm-vm/save-window-excursion
-       (select-window (vm-get-buffer-window pbuf))
-       (push-mark)
-       (goto-char (point-min))
-       ))))
-
-;;; based on vm-end-of-message [vm-page.el]
-(defun tm-vm/end-of-message ()
-  "Moves to the end of the current message."
-  (interactive)
-  (if (not (tm-vm/system-state))
-      (progn
-       (setq this-command 'vm-end-of-message)
-       (vm-end-of-message))
-    (vm-follow-summary-cursor)
-    (vm-select-folder-buffer)
-    (vm-check-for-killed-summary)
-    (vm-error-if-folder-empty)
-    (let ((mbuf (current-buffer))
-          (pbuf (and mime::article/preview-buffer
-                     (get-buffer mime::article/preview-buffer))))
-      (if (null pbuf)
-          (progn
-            (tm-vm/preview-current-message)
-            (setq pbuf (get-buffer mime::article/preview-buffer))
-            ))
-      (vm-display mbuf t '(vm-end-of-message)
-                  '(vm-end-of-message reading-message))
-      (tm-vm/display-preview-buffer)
-      (set-buffer pbuf)
-      (tm-vm/save-window-excursion
-       (select-window (vm-get-buffer-window pbuf))
-       (push-mark)
-       (goto-char (point-max))
-       ))))
-
-;;; based on vm-howl-if-eom [vm-page.el]
-(defun tm-vm/howl-if-eom ()
-  (let* ((pbuf (or mime::article/preview-buffer (current-buffer)))
-         (pwin (and (vm-get-visible-buffer-window pbuf))))
-    (and pwin
-        (save-excursion
-          (save-window-excursion
-            (condition-case ()
-                (let ((next-screen-context-lines 0))
-                  (select-window pwin)
-                  (save-excursion
-                    (save-window-excursion
-                      (let ((scroll-in-place-replace-original nil))
-                        (scroll-up))))
-                  nil)
-              (error t))))
-         (tm-vm/emit-eom-blurb)
-         )))
-
-;;; based on vm-emit-eom-blurb [vm-page.el]
-(defun tm-vm/emit-eom-blurb ()
-  (save-excursion
-    (if mime::preview/article-buffer
-        (set-buffer mime::preview/article-buffer))
-    (vm-emit-eom-blurb)))
-
-;;; based on vm-quit [vm-folder.el]
-(defun tm-vm/quit ()
-  (interactive)
-  (save-excursion
-    (vm-select-folder-buffer)
-    (if (and mime::article/preview-buffer
-            (get-buffer mime::article/preview-buffer))
-       (kill-buffer mime::article/preview-buffer)))
-  (vm-quit))
-
-(substitute-key-definition 'vm-scroll-forward
-                          'tm-vm/scroll-forward vm-mode-map)
-(substitute-key-definition 'vm-scroll-backward
-                          'tm-vm/scroll-backward vm-mode-map)
-(substitute-key-definition 'vm-beginning-of-message
-                           'tm-vm/beginning-of-message vm-mode-map)
-(substitute-key-definition 'vm-end-of-message
-                           'tm-vm/end-of-message vm-mode-map)
-(substitute-key-definition 'vm-quit
-                          'tm-vm/quit vm-mode-map)
-
-;;; based on vm-next-message [vm-motion.el]                        
-(defun tm-vm/next-message ()
-  (set-buffer mime::preview/article-buffer)
-  (let ((this-command 'vm-next-message)
-        (owin (selected-window))
-        (vm-preview-lines nil)
-        )
-    (vm-next-message 1 nil t)
-    (if (window-live-p owin)
-        (select-window owin))))
-
-;;; based on vm-previous-message [vm-motion.el]
-(defun tm-vm/previous-message ()
-  (set-buffer mime::preview/article-buffer)
-  (let ((this-command 'vm-previous-message)
-        (owin (selected-window))
-        (vm-preview-lines nil)
-        )
-    (vm-previous-message 1 nil t)
-    (if (window-live-p owin)
-        (select-window owin))))
-
-(set-alist 'mime-viewer/over-to-previous-method-alist
-          'vm-mode 'tm-vm/previous-message)
-(set-alist 'mime-viewer/over-to-next-method-alist
-          'vm-mode 'tm-vm/next-message)
-(set-alist 'mime-viewer/over-to-previous-method-alist
-          'vm-virtual-mode 'tm-vm/previous-message)
-(set-alist 'mime-viewer/over-to-next-method-alist
-          'vm-virtual-mode 'tm-vm/next-message)
-
-;;; @@ vm-yank-message
-;;;
-;; 1996/3/28 by Oscar Figueiredo <figueire@lspsun16.epfl.ch>
-
-(require 'vm-reply)
-
-(defvar tm-vm/yank:message-to-restore nil
-  "For internal use by tm-vm only.")
-
-(defun vm-yank-message (&optional message)
-  "Yank message number N into the current buffer at point.
-When called interactively N is always read from the minibuffer.  When
-called non-interactively the first argument is expected to be a
-message struct.
-
-This function originally provided by vm-reply has been patched for TM
-in order to provide better citation of MIME messages : if a MIME
-Preview buffer exists for the message then its contents are inserted
-instead of the raw message.
-
-This command is meant to be used in VM created Mail mode buffers; the
-yanked message comes from the mail buffer containing the message you
-are replying to, forwarding, or invoked VM's mail command from.
-
-All message headers are yanked along with the text.  Point is
-left before the inserted text, the mark after.  Any hook
-functions bound to mail-citation-hook are run, after inserting
-the text and setting point and mark.  For backward compatibility,
-if mail-citation-hook is set to nil, `mail-yank-hooks' is run
-instead.
-
-If mail-citation-hook and mail-yank-hooks are both nil, this
-default action is taken: the yanked headers are trimmed as
-specified by vm-included-text-headers and
-vm-included-text-discard-header-regexp, and the value of
-vm-included-text-prefix is prepended to every yanked line."
-  (interactive
-   (list
-    ;; What we really want for the first argument is a message struct,
-    ;; but if called interactively, we let the user type in a message
-    ;; number instead.
-    (let (mp default
-            (result 0)
-            prompt
-            (last-command last-command)
-            (this-command this-command))
-      (if (bufferp vm-mail-buffer)
-          (save-excursion
-            (vm-select-folder-buffer)
-            (setq default (and vm-message-pointer
-                               (vm-number-of (car vm-message-pointer)))
-                  prompt (if default
-                             (format "Yank message number: (default %s) "
-                                     default)
-                           "Yank message number: "))
-            (while (zerop result)
-              (setq result (read-string prompt))
-              (and (string= result "") default (setq result default))
-              (setq result (string-to-int result)))
-            (if (null (setq mp (nthcdr (1- result) vm-message-list)))
-                (error "No such message."))
-           (setq tm-vm/yank:message-to-restore (string-to-int default))
-           (save-selected-window
-             (vm-goto-message result))
-            (car mp))
-        nil))))
-  (if (null message)
-      (if mail-reply-buffer
-          (tm-vm/yank-content)
-        (error "This is not a VM Mail mode buffer."))
-    (if (null (buffer-name vm-mail-buffer))
-        (error "The folder buffer containing message %d has been killed."
-               (vm-number-of message)))
-    (vm-display nil nil '(vm-yank-message)
-                '(vm-yank-message composing-message))
-    (let ((b (current-buffer)) (start (point)) end)
-      (save-restriction
-        (widen)
-        (save-excursion
-          (set-buffer (vm-buffer-of message))
-          (let* ((mbuf (current-buffer))
-                 (pbuf (and mime::article/preview-buffer
-                                       ; is there a preview buffer alive ?
-                           (get-buffer mime::article/preview-buffer)
-                                       ; rebuild preview to ensure it
-                                       ; corresponds to the current message
-                           (save-excursion
-                             (save-selected-window
-                               (save-window-excursion
-                                 (tm-vm/view-message))))
-                            (get-buffer mime::article/preview-buffer))))
-            (if pbuf
-                (if running-xemacs
-                    (let ((tmp (generate-new-buffer "tm-vm/tmp")))
-                      (set-buffer pbuf)
-                      (append-to-buffer tmp (point-min) (point-max))
-                      (set-buffer tmp)
-                      (map-extents
-                       '(lambda (ext maparg) 
-                          (set-extent-property ext 'begin-glyph nil)))
-                      (append-to-buffer b (point-min) (point-max))
-                      (setq end (vm-marker
-                                 (+ start (length (buffer-string))) b))
-                      (kill-buffer tmp))
-                  (set-buffer pbuf)
-                  (append-to-buffer b (point-min) (point-max))
-                  (setq end (vm-marker
-                             (+ start (length (buffer-string))) b)))
-              (save-restriction
-               (setq message (vm-real-message-of message))
-               (set-buffer (vm-buffer-of message))
-               (widen)
-                (append-to-buffer
-                 b (vm-headers-of message) (vm-text-end-of message))
-                (setq end
-                      (vm-marker (+ start (- (vm-text-end-of message)
-                                             (vm-headers-of message))) b))))))
-        (push-mark end)
-        (cond (mail-citation-hook (run-hooks 'mail-citation-hook))
-              (mail-yank-hooks (run-hooks 'mail-yank-hooks))
-              (t (vm-mail-yank-default message)))
-        ))
-    (if tm-vm/yank:message-to-restore
-       (save-selected-window
-         (vm-goto-message tm-vm/yank:message-to-restore)
-         (setq tm-vm/yank:message-to-restore nil)))
-    ))
-
-\f
-;;; @ for tm-view
-;;;
-
-;;; based on vm-do-reply [vm-reply.el]
-(defun tm-vm/do-reply (buf to-all include-text)
-  (save-excursion
-    (set-buffer buf)
-    (let ((dir default-directory)
-          to cc subject mp in-reply-to references newsgroups)
-      (cond ((setq to
-                   (let ((reply-to (std11-field-body "Reply-To")))
-                     (if (vm-ignored-reply-to reply-to)
-                         nil
-                       reply-to))))
-            ((setq to (std11-field-body "From")))
-            ;; (t (error "No From: or Reply-To: header in message"))
-            )
-      (if to-all
-          (setq cc (delq nil (cons cc (std11-field-bodies '("To" "Cc"))))
-                cc (mapconcat 'identity cc ","))
-        )
-      (setq subject (std11-field-body "Subject"))
-      (and subject vm-reply-subject-prefix
-           (let ((case-fold-search t))
-             (not
-              (equal
-               (string-match (regexp-quote vm-reply-subject-prefix)
-                             subject)
-               0)))
-           (setq subject (concat vm-reply-subject-prefix subject)))
-      (setq in-reply-to (std11-field-body "Message-Id")
-            references (nconc
-                        (std11-field-bodies '("References" "In-Reply-To"))
-                        (list in-reply-to))
-            newsgroups (list (or (and to-all
-                                      (std11-field-body "Followup-To"))
-                                 (std11-field-body "Newsgroups"))))
-      (setq to (vm-parse-addresses to)
-            cc (vm-parse-addresses cc))
-      (if vm-reply-ignored-addresses
-          (setq to (vm-strip-ignored-addresses to)
-                cc (vm-strip-ignored-addresses cc)))
-      (setq to (vm-delete-duplicates to nil t))
-      (setq cc (vm-delete-duplicates
-                (append (vm-delete-duplicates cc nil t)
-                        to (copy-sequence to))
-                t t))
-      (and to (setq to (mapconcat 'identity to ",\n ")))
-      (and cc (setq cc (mapconcat 'identity cc ",\n ")))
-      (and (null to) (setq to cc cc nil))
-      (setq references (delq nil references)
-            references (mapconcat 'identity references " ")
-            references (vm-parse references "[^<]*\\(<[^>]+>\\)")
-            references (vm-delete-duplicates references)
-            references (if references (mapconcat 'identity references "\n\t")))
-      (setq newsgroups (delq nil newsgroups)
-            newsgroups (mapconcat 'identity newsgroups ",")
-            newsgroups (vm-parse newsgroups "[ \t\f\r\n,]*\\([^ \t\f\r\n,]+\\)")
-            newsgroups (vm-delete-duplicates newsgroups)
-            newsgroups (if newsgroups (mapconcat 'identity newsgroups ",")))
-      (vm-mail-internal
-       (if to
-           (format "reply to %s%s"
-                   (std11-full-name-string
-                   (car (std11-parse-address-string to)))
-                  (if cc ", ..." "")))
-       to subject in-reply-to cc references newsgroups)
-      (setq mail-reply-buffer buf
-            ;; vm-system-state 'replying
-            default-directory dir))
-    (if include-text
-        (save-excursion
-          (goto-char (point-min))
-          (let ((case-fold-search nil))
-            (re-search-forward
-             (concat "^" (regexp-quote mail-header-separator) "$") nil 0))
-          (forward-char 1)
-          (tm-vm/yank-content)))
-    (run-hooks 'vm-reply-hook)
-    (run-hooks 'vm-mail-mode-hook)
-    ))
-
-(defun tm-vm/following-method (buf)
-  (tm-vm/do-reply buf 'to-all 'include-text)
-  )
-
-(defun tm-vm/yank-content ()
-  (interactive)
-  (let ((this-command 'vm-yank-message))
-    (vm-display nil nil '(vm-yank-message)
-                '(vm-yank-message composing-message))
-    (save-restriction
-      (narrow-to-region (point)(point))
-      (insert-buffer mail-reply-buffer)
-      (goto-char (point-max))
-      (push-mark)
-      (goto-char (point-min)))
-    (cond (mail-citation-hook (run-hooks 'mail-citation-hook))
-          (mail-yank-hooks (run-hooks 'mail-yank-hooks))
-          (t (mail-indent-citation)))
-    ))
-
-(set-alist 'mime-viewer/following-method-alist
-          'vm-mode
-          (function tm-vm/following-method))
-(set-alist 'mime-viewer/following-method-alist
-          'vm-virtual-mode
-          (function tm-vm/following-method))
-
-
-(defun tm-vm/quit-view-message ()
-  "Quit MIME-viewer and go back to VM.
-This function is called by `mime-viewer/quit' command via
-`mime-viewer/quitting-method-alist'."
-  (if (get-buffer mime/output-buffer-name)
-      (vm-undisplay-buffer mime/output-buffer-name))
-  (if (and tm-vm/automatic-mime-preview
-           (save-excursion
-             (set-buffer mime::preview/article-buffer)
-             vm-summary-buffer))
-      (switch-to-buffer mime::preview/article-buffer)
-    (mime-viewer/kill-buffer)
-    (vm-select-folder-buffer)
-    (setq tm-vm/system-state nil))
-  (vm-display (current-buffer) t (list this-command)
-              (list this-command 'reading-message))
-  (tm-vm/display-preview-buffer)
-  )
-
-(defun tm-vm/view-message ()
-  "Decode and view MIME encoded message, under VM."
-  (interactive)
-  (vm-follow-summary-cursor)
-  (vm-select-folder-buffer)
-  (vm-check-for-killed-summary)
-  (vm-error-if-folder-empty)
-  (vm-display (current-buffer) t '(tm-vm/view-message)
-              '(tm-vm/view-mesage reading-message))
-  (let* ((mp (car vm-message-pointer))
-        (ct  (vm-get-header-contents mp "Content-Type:"))
-        (cte (vm-get-header-contents mp "Content-Transfer-Encoding:"))
-        (exposed (= (point-min) (vm-start-of mp))))
-    (save-restriction
-      (vm-widen-page)
-      ;; vm-widen-page hides exposed header if pages are delimited.
-      ;; So, here we expose it again.
-      (if exposed
-         (narrow-to-region (vm-start-of mp) (point-max)))
-      (select-window (vm-get-buffer-window (current-buffer)))
-      (mime/viewer-mode nil
-                       (mime/parse-Content-Type (or ct ""))
-                       cte)
-      )))
-
-(set-alist 'mime-viewer/quitting-method-alist
-          'vm-mode
-          'tm-vm/quit-view-message)
-
-(set-alist 'mime-viewer/quitting-method-alist
-          'vm-virtual-mode
-          'tm-vm/quit-view-message)
-
-
-;;; @ 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 . vm-mode)
-                (summary-buffer-exp . vm-summary-buffer)
-                ))
-    (set-alist 'tm-partial/preview-article-method-alist
-              'vm-mode
-              (function
-               (lambda ()
-                 (tm-vm/view-message)
-                 )))
-    )))
-
-
-;;; @ for tm-edit
-;;;
-
-;;; @@ for multipart/digest
-;;;
-
-(defvar tm-vm/forward-message-hook nil
-  "*List of functions called after a Mail mode buffer has been
-created to forward a message in message/rfc822 type format.
-If `vm-forwarding-digest-type' is \"rfc1521\", tm-vm runs this
-hook instead of `vm-forward-message-hook'.")
-
-(defvar tm-vm/send-digest-hook nil
-  "*List of functions called after a Mail mode buffer has been
-created to send a digest in multipart/digest type format.
-If `vm-digest-send-type' is \"rfc1521\", tm-vm runs this hook
-instead of `vm-send-digest-hook'.")
-
-(defun tm-vm/enclose-messages (mlist &optional preamble)
-  "Enclose the messages in MLIST as multipart/digest.
-The resulting digest is inserted at point in the current buffer.
-
-MLIST should be a list of message structs (real or virtual).
-These are the messages that will be enclosed."
-  (if mlist
-      (let ((digest (consp (cdr mlist)))
-            (mp mlist)
-            m)
-       (save-restriction
-         (narrow-to-region (point) (point))
-         (while mlist
-           (setq m (vm-real-message-of (car mlist)))
-            (mime-editor/insert-tag "message" "rfc822")
-            (tm-mail/insert-message m)
-            (goto-char (point-max))
-           (setq mlist (cdr mlist)))
-          (if preamble
-              (progn
-                (goto-char (point-min))
-                (mime-editor/insert-tag "text" "plain")
-                (vm-unsaved-message "Building digest preamble...")
-                (while mp
-                  (let ((vm-summary-uninteresting-senders nil))
-                    (insert
-                     (vm-sprintf 'vm-digest-preamble-format (car mp)) "\n"))
-                  (if vm-digest-center-preamble
-                      (progn
-                        (forward-char -1)
-                        (center-line)
-                        (forward-char 1)))
-                  (setq mp (cdr mp)))))
-          (if digest
-              (mime-editor/enclose-digest-region (point-min) (point-max)))
-          ))))
-
-(defun tm-vm/forward-message ()
-  "Forward the current message to one or more recipients.
-You will be placed in a Mail mode buffer as you would with a
-reply, but you must fill in the To: header and perhaps the
-Subject: header manually."
-  (interactive)
-  (if (not (equal vm-forwarding-digest-type "rfc1521"))
-      (vm-forward-message)
-    (vm-follow-summary-cursor)
-    (vm-select-folder-buffer)
-    (vm-check-for-killed-summary)
-    (vm-error-if-folder-empty)
-    (if (eq last-command 'vm-next-command-uses-marks)
-        (let ((vm-digest-send-type vm-forwarding-digest-type))
-          (setq this-command 'vm-next-command-uses-marks)
-          (command-execute 'tm-vm/send-digest))
-      (let ((dir default-directory)
-            (mp vm-message-pointer))
-        (save-restriction
-          (widen)
-          (vm-mail-internal
-           (format "forward of %s's note re: %s"
-                   (vm-su-full-name (car vm-message-pointer))
-                   (vm-su-subject (car vm-message-pointer)))
-           nil
-           (and vm-forwarding-subject-format
-                (let ((vm-summary-uninteresting-senders nil))
-                  (vm-sprintf 'vm-forwarding-subject-format (car mp)))))
-          (make-local-variable 'vm-forward-list)
-          (setq vm-system-state 'forwarding
-                vm-forward-list (list (car mp))
-                default-directory dir)
-          (goto-char (point-min))
-          (re-search-forward
-           (concat "^" (regexp-quote mail-header-separator) "\n") nil 0)
-          (tm-vm/enclose-messages vm-forward-list)
-          (mail-position-on-field "To"))
-        (run-hooks 'tm-vm/forward-message-hook)
-        (run-hooks 'vm-mail-mode-hook)))))
-
-(defun tm-vm/send-digest (&optional arg)
-  "Send a digest of all messages in the current folder to recipients.
-The type of the digest is specified by the variable vm-digest-send-type.
-You will be placed in a Mail mode buffer as is usual with replies, but you
-must fill in the To: and Subject: headers manually.
-
-If invoked on marked messages (via vm-next-command-uses-marks),
-only marked messages will be put into the digest."
-  (interactive "P")
-  (if (not (equal vm-digest-send-type "rfc1521"))
-      (vm-send-digest arg)
-    (vm-select-folder-buffer)
-    (vm-check-for-killed-summary)
-    (vm-error-if-folder-empty)
-    (let ((dir default-directory)
-          (vm-forward-list (if (eq last-command 'vm-next-command-uses-marks)
-                               (vm-select-marked-or-prefixed-messages 0)
-                             vm-message-list))
-          start)
-      (save-restriction
-        (widen)
-        (vm-mail-internal (format "digest from %s" (buffer-name)))
-        (setq vm-system-state 'forwarding
-              default-directory dir)
-        (goto-char (point-min))
-        (re-search-forward (concat "^" (regexp-quote mail-header-separator)
-                                   "\n"))
-        (goto-char (match-end 0))
-        (vm-unsaved-message "Building %s digest..." vm-digest-send-type)
-        (tm-vm/enclose-messages vm-forward-list arg)
-        (mail-position-on-field "To")
-        (message "Building %s digest... done" vm-digest-send-type)))
-    (run-hooks 'tm-vm/send-digest-hook)
-    (run-hooks 'vm-mail-mode-hook)))
-
-(substitute-key-definition 'vm-forward-message
-                          'tm-vm/forward-message vm-mode-map)
-(substitute-key-definition 'vm-send-digest
-                          'tm-vm/send-digest vm-mode-map)
-\f
-
-;;; @@ setting
-;;;
-
-(defvar tm-vm/use-xemacs-popup-menu t)
-
-;;; modified by Steven L. Baur <steve@miranova.com>
-;;;    1995/12/6 (c.f. [tm-en:209])
-(defun mime-editor/attach-to-vm-mode-menu ()
-  "Arrange to attach MIME editor's popup menu to VM's"
-  (if (boundp 'vm-menu-mail-menu)
-      (progn
-       (setq vm-menu-mail-menu
-             (append vm-menu-mail-menu
-                     (list "----"
-                           mime-editor/popup-menu-for-xemacs)))
-       (remove-hook 'vm-mail-mode-hook 'mime-editor/attach-to-vm-mode-menu)
-       )))
-
-(call-after-loaded
- 'tm-edit
- (function
-  (lambda ()
-    (autoload 'tm-mail/insert-message "tm-mail")
-    (set-alist 'mime-editor/message-inserter-alist
-              'mail-mode (function tm-mail/insert-message))
-    (set-alist 'mime-editor/split-message-sender-alist
-               'mail-mode (function
-                           (lambda ()
-                             (interactive)
-                             (sendmail-send-it)
-                             )))
-    (if (and (string-match "XEmacs\\|Lucid" emacs-version)
-            tm-vm/use-xemacs-popup-menu)
-       (add-hook 'vm-mail-mode-hook 'mime-editor/attach-to-vm-mode-menu)
-      )
-    )))
-
-(call-after-loaded
- 'mime-setup
- (function
-  (lambda ()
-    (setq vm-forwarding-digest-type "rfc1521")
-    (setq vm-digest-send-type "rfc1521")
-    )))
-
-
-;;; @ for BBDB
-;;;
-
-(call-after-loaded
- 'bbdb
- (function
-  (lambda ()
-    (require 'bbdb-vm)
-    (require 'tm-bbdb)
-    (or (fboundp 'tm:bbdb/vm-update-record)
-        (fset 'tm:bbdb/vm-update-record
-              (symbol-function 'bbdb/vm-update-record)))
-    (defun bbdb/vm-update-record (&optional offer-to-create)
-      (vm-select-folder-buffer)
-      (if (and (tm-vm/system-state)
-               mime::article/preview-buffer
-               (get-buffer mime::article/preview-buffer))
-          (tm-bbdb/update-record offer-to-create)
-        (tm:bbdb/vm-update-record offer-to-create)
-        ))
-    (remove-hook 'vm-select-message-hook 'bbdb/vm-update-record)
-    (remove-hook 'vm-show-message-hook 'bbdb/vm-update-record)
-    (add-hook 'tm-vm/select-message-hook 'bbdb/vm-update-record)
-    )))
-
-
-;;; @ end
-;;;
-
-(provide 'tm-vm)
-
-(run-hooks 'tm-vm-load-hook)
-
-;;; tm-vm.el ends here.
diff --git a/tm-w3.el b/tm-w3.el
deleted file mode 100644 (file)
index 55c3f75..0000000
--- a/tm-w3.el
+++ /dev/null
@@ -1,45 +0,0 @@
-;;;
-;;; 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)