This commit was manufactured by cvs2svn to create tag 'tm6_80'. tm6_80
authortomo <tomo>
Mon, 9 Mar 1998 07:34:08 +0000 (07:34 +0000)
committertomo <tomo>
Mon, 9 Mar 1998 07:34:08 +0000 (07:34 +0000)
72 files changed:
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]
base64.el [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-eng.tex [deleted file]
doc/tm-eng.tex,v [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]
gnus/Makefile.bc [deleted file]
gnus/tgnus-bc.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]
mh-e/Makefile.bc [deleted file]
qprint.el [deleted file]
rel-6eng.ol [deleted file]
rel-6jp.ol [deleted file]
signature-jp.ol [deleted file]
signature-jp.tex [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]
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-comp-jp.pln [deleted file]
tm-enriched.el [deleted file]
tm-evs.el [deleted file]
tm-eword.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-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]

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/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/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-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-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/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/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/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/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/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/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/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/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-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-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-eword.el b/tm-eword.el
deleted file mode 100644 (file)
index fcedc33..0000000
+++ /dev/null
@@ -1,699 +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 'tl-misc)
-(require 'tl-822)
-(require 'tl-num)
-(require 'base64)
-(require 'qprint)
-
-
-;;; @ version
-;;;
-(defconst mime/RCS-ID
-  "$Id: tm-eword.el,v 5.12 1995/05/21 16:06:27 morioka Exp morioka $")
-
-(defconst mime/tiny-mime-version (get-version-string mime/RCS-ID))
-
-
-;;; @ MIME encoded-word definition
-;;;
-
-(defconst mime/charset-regexp "[A-Za-z0-9!#$%&'*+---^_`{}|~]")
-(defconst mime/encoded-text-regexp "[!->@-~]+")
-
-(defconst mime/Base64-token-regexp "[A-Za-z0-9+/=]")
-(defconst mime/Base64-encoded-text-regexp
-  (concat "\\("
-             mime/Base64-token-regexp
-             mime/Base64-token-regexp
-             mime/Base64-token-regexp
-             mime/Base64-token-regexp
-             "\\)+"))
-(defconst mime/Base64-encoding-and-encoded-text-regexp
-  (concat "\\(B\\)\\?" mime/Base64-encoded-text-regexp))
-
-(defconst mime/Quoted-Printable-hex-char-regexp "[0123456789ABCDEF]")
-(defconst mime/Quoted-Printable-octet-regexp
-  (concat "="
-         mime/Quoted-Printable-hex-char-regexp
-         mime/Quoted-Printable-hex-char-regexp))
-(defconst mime/Quoted-Printable-encoded-text-regexp
-  (concat "\\([^=?]\\|" mime/Quoted-Printable-octet-regexp "\\)+"))
-(defconst mime/Quoted-Printable-encoding-and-encoded-text-regexp
-  (concat "\\(Q\\)\\?" mime/Quoted-Printable-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"))
-
-(defvar mime/use-X-Nsubject nil)
-
-
-;;; @ compatible module among Mule, NEmacs and NEpoch 
-;;;
-(cond ((boundp 'MULE)  (require 'tm-mule))
-      ((boundp 'NEMACS)(require 'tm-nemacs))
-      (t               (require 'tm-orig))
-      )
-
-
-;;; @ Application Interface
-;;;
-
-;;; @@ MIME header decoders
-;;;
-
-;; by mol. 1993/10/4
-(defun mime/decode-encoded-word (word)
-  (if (string-match mime/encoded-word-regexp word)
-      (let ((charset (upcase (mime/encoded-word-charset word)))
-           (encoding (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 ((equal encoding "B")
-        (base64-encode-string string)
-        )
-       ((equal encoding "Q")
-        (quoted-printable-encode-string string (or mode 'phrase))
-        )
-       ))
-
-(defun mime/encode-field (str)
-  (setq str (rfc822/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/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
-         (progn
-           (goto-char (point-min))
-           (if (re-search-forward "^Subject:.*\\(\n\\s +.*\\)*" nil t)
-               (let ((str (buffer-substring (match-beginning 0)(match-end 0))))
-                 (if (string-match mime/encoded-word-regexp str)
-                     (insert (concat
-                              "\nX-Nsubject: "
-                              (nth 1 (message/divide-field
-                                      (mime/decode-string
-                                       (rfc822/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") (base64-encoded-length string))
-       ((equal encoding "Q") (quoted-printable-encoded-length string))
-       ))
-
-;;; @@ 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-regexp nil t)
-      (setq beg (match-beginning 0))
-      (setq end  (match-end 0))
-      (setq field (buffer-substring beg end))
-      (if (string-match mime/encoded-word-regexp field)
-         (progn
-           (save-excursion
-             (save-restriction
-               (narrow-to-region (goto-char beg) end)
-               (while (re-search-forward "\n[ \t]+" nil t)
-                 (replace-match " ")
-                 )
-               ))
-           ))
-      ))
-  )
-
-(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 "?==?")
-    )
-  )
-
-(setq mime-charset-list
-      (list (list "US-ASCII"      lc-ascii)
-           (list "ISO-8859-1"    lc-ascii lc-ltn1)
-           (list "ISO-8859-2"    lc-ascii lc-ltn2)
-           (list "ISO-8859-3"    lc-ascii lc-ltn3)
-           (list "ISO-8859-4"    lc-ascii lc-ltn4)
-           (list "ISO-8859-5"    lc-ascii lc-crl)
-           (list "ISO-8859-7"    lc-ascii lc-grk)
-           (list "ISO-8859-9"    lc-ascii lc-ltn5)
-           (list "ISO-2022-JP"   lc-ascii lc-jp)
-           (list "ISO-2022-KR"   lc-ascii lc-kr)
-           (list "ISO-2022-JP-2" lc-ascii lc-ltn1 lc-grk
-                 lc-jp lc-cn lc-kr lc-jp2)
-           (list "ISO-2022-INT-1" lc-ascii lc-ltn1 lc-grk
-                 lc-jp lc-cn lc-kr lc-jp2 lc-cns1 lc-cns2)
-           ))
-
-(setq eword-field-body-separator-regexp " / ")
-
-(if (string-match eword-field-body-separator-regexp str)
-    (list (substring str 0 (match-beginning 0))
-         (substring str (match-beginning 0)(match-end 0))
-         (substring str (match-end 0))
-         ))
-
-(defun find-lc-set-string (str)
-  (let (dest (len (length str))(i 0) chr lc)
-    (while (< i len)
-      (setq chr (elt str i))
-      (setq lc (get-lc chr))
-      (if (not (memq lc dest))
-         (setq dest (cons lc dest))
-       )
-      (setq i (+ i (char-bytes chr)))
-      )
-    dest))
-
-(defun mime/lc-set-to-charset (lc-set)
-  (let ((rest mime-charset-list) cell)
-    (catch 'tag
-      (while rest
-       (setq cell (car rest))
-       (if (subsetp lc-set (cdr cell))
-           (throw 'tag (car cell))
-         )
-       (setq rest (cdr rest))
-       ))))
-
-(run-hooks 'mime/tiny-mime-load-hook)
-
-(provide 'tiny-mime)
-
-;;; @
-;;; Local Variables:
-;;; mode: emacs-lisp
-;;; mode: outline-minor
-;;; outline-regexp: ";;; @+\\|(......"
-;;; End:
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-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)