#
-# $Id: Makefile,v 5.0 1995/04/19 02:12:17 morioka Exp morioka $
+# $Id: Makefile,v 6.0 1995/04/20 13:08:16 morioka Exp morioka $
#
# Please specify emacs executables:
ORIG19 = emacs19
MULE2 = mule2
-# Please specfy Emacs Lisp install directory:
+# Please specify Emacs Lisp install directory:
# TMDIR18 = for Emacs 18.* (NEMACS, NEpoch or MULE 1)
# TMDIR19 = for Emacs 19.* (FSF original, XEmacs or MULE 2)
TLSRCDIR = ../tl
+# Please specify GNUS type (`gnus3' or `gnus4') if you use Emacs 18.*
+ EMACS18_GNUS = gnus3
+# EMACS18_GNUS = gnus4
bindir = $(HOME)/bin
CC = gcc
tm/mh-e/Makefile tm/mh-e/Makefile.bc tm/mh-e/*.el \
tl/README.eng tl/Makefile tl/Makefile.bc tl/*.el tl/doc/*.texi
-TARFILE = tm6.16.tar
+TARFILE = tm6.18.tar
nemacs:
make -f Makefile.bc all \
OPT='-l $(TLSRCDIR)/tl-18.el' \
EMACS=$(NEMACS) EMACS_TYPE=nemacs TLSRCDIR=$(TLSRCDIR)
-
-install-nemacs: nemacs
+ (cd gnus; make nemacs NEMACS=$(NEMACS) EMACS18_GNUS=$(EMACS18_GNUS))
+ (cd mh-e; make nemacs NEMACS=$(NEMACS))
+
+install-nemacs: nemacs install-mua-18
make -f Makefile.bc install TMDIR=$(TMDIR18) EMACS_TYPE=nemacs
make -f Makefile.bc all \
OPT='-l $(TLSRCDIR)/tl-18.el' \
EMACS=$(MULE1) EMACS_TYPE=mule TLSRCDIR=$(TLSRCDIR)
+ (cd gnus; make mule1 MULE1=$(MULE1) EMACS18_GNUS=$(EMACS18_GNUS))
+ (cd mh-e; make mule1 MULE1=$(MULE1))
-install-mule1: mule1
+install-mule1: mule1 install-mua-18
make -f Makefile.bc install TMDIR=$(TMDIR18) EMACS_TYPE=mule
-
+install-mua-18:
+ (cd gnus; make install-18 TMDIR18=$(TMDIR18))
+ (cd mh-e; make install-18 TMDIR18=$(TMDIR18))
+
+
orig19:
make -f Makefile.bc all \
EMACS=$(ORIG19) EMACS_TYPE=orig TLSRCDIR=$(TLSRCDIR)
(cd gnus; make orig19 ORIG19=$(ORIG19))
(cd mh-e; make orig19 ORIG19=$(ORIG19))
-
-install-orig19: orig19 install-gnus4-mh-e4
+
+install-orig19: orig19 install-mua-19
make -f Makefile.bc install TMDIR=$(TMDIR19) EMACS_TYPE=orig
(cd gnus; make mule2 MULE2=$(MULE2))
(cd mh-e; make mule2 MULE2=$(MULE2))
-install-mule2: mule2 install-gnus4-mh-e4
+install-mule2: mule2 install-mua-19
make -f Makefile.bc install TMDIR=$(TMDIR19) EMACS_TYPE=mule
-
-install-gnus4-mh-e4:
+install-mua-19:
(cd gnus; make install-19 TMDIR19=$(TMDIR19))
(cd mh-e; make install-19 TMDIR19=$(TMDIR19))
clean:
-rm $(GOMI)
-(cd doc; make clean)
+ -(cd gnus; make clean)
+ -(cd mh-e; make clean)
tar:
tiny-mime-jp.dvi signature-jp.dvi tiny-mime-eng.dvi
PSFILES = tm-jp.ps \
tiny-mime-jp.ps signature-jp.ps tiny-mime-eng.ps
-GOMI = *.aux *.toc *.log $(TEXFILES) $(DVIFILES) *.ps *~
+GOMI = *.aux *.toc *.log $(DVIFILES) *.ps *~
.SUFFIXES: .ol .tex .dvi .ps
--- /dev/null
+\input texinfo.tex
+@c{-*-tm manual-*-}
+@setfilename tm-jp.info
+@settitle{tm manual}
+
+@titlepage
+@sp{5}
+@center{@titlefont{tm}}
+@sp{15}
+@center{@titlefont{\e$B<i2,\e(B \e$BCNI'\e(B}}
+@sp{1}
+@center{$Id$}
+
+@end titlepage
+
+
+@menu
+@end menu
+
+@node Top, Abstract, (dir), (dir)
+@comment node-name, next, previous, up
+
+@ifinfo
+GNU Emacs \e$B$G\e(B MIME \e$B$r3Z$7$`$?$a$N\e(B package \e$B$G$"$k\e(B `tm' \e$B$K$D$$$F@bL@$7$^\e(B
+\e$B$9!#\e(B
+@end ifinfo
+
+@menu
+* Abstract::
+* Emacs-Versions::
+* Install::
+* Setting::
+* tm-MUA::
+* Concept Index::
+* Command Index::
+* Variable Index::
+@end menu
+
+
+@node Abstract, Emacs-Versions, Top, Top
+@comment node-name, next, previous, up
+@chapter{tm \e$B$H$O\e(B}
+@cindex{tm \e$B$H$O\e(B}
+
+tm \e$B$O\e(B GNU Emacs \e$B$G\e(B MIME \e$B$r3Z$7$`$?$a$N\e(B package \e$B$G$9!#\e(Btm \e$B$r;H$&$H!"\e(B
+@itemize
+@item tm-view \e$B$K$h$k\e(B MIME message \e$B$N1\Mw!&:F@8\e(B
+@item tiny-mime \e$B$K$h$kB?8@8l\e(B header \e$B$N\e(B encode/decode
+@item mh-e, GNUS, RMAIL, VM \e$B$G$N\e(B MIME \e$B5!G=$N6/2=\e(B
+@end itemize
+\e$B$H$$$&$h$&$J$3$H$,9T$J$($^$9!#\e(B
+
+
+@section{Module \e$B0lMw\e(B}
+
+tm \e$B$O0J2<$N\e(B module \e$B$+$i$J$j$^$9!#\e(B
+
+@itemize
+@item @emph{tiny-mime:} MIME header encoder/decoder
+@item @emph{tm-view:} MIME viewer
+@item @emph{tm-misc:} tm-MUA \e$B$N6&DL\e(B module
+ @item @emph{tm-mh-e:} mh-e \e$BMQ$N\e(B tm-MUA
+ @item @emph{tm-gnus:} GNUS \e$BMQ$N\e(B tm-MUA
+ @item @emph{tm-rmail:} RMAIL \e$BMQ$N\e(B tm-MUA
+ @item @emph{tm-vm:} VM \e$BMQ$N\e(B tm-MUA
+@item @emph{tm-setup:} tm-MUA \e$BA4HL$N@_Dj\e(B module
+@item @emph{mime-setup:} MIME \e$B4X78A4HL$N@_Dj\e(B module
+@end itemize
+
+
+@node Emacs-Versions, Install, Abstract, Top
+@comment node-name, next, previous, up
+@chapter{Emacs version \e$BJL$N5!G=$*$h$S@)8B\e(B}
+@cindex{Emacs version \e$BJL$N5!G=$*$h$S@)8B\e(B}
+
+@section{original GNU Emacs 18}
+
+\e$BF0:n$OJ]>Z$7$^$;$s!#$7$+$7$J$,$i!"\e(BUS-ASCII \e$B$NHO0O$G$OF0:n$9$k$H;W$o$l\e(B
+\e$B$^$9!#\e(B
+
+@section{NEmacs, NEpoch}
+
+ISO-2022-JP, US-ASCII \e$B$,;H$($^$9!#\e(B
+
+@section{original GNU Emacs 19}
+
+US-ASCII \e$B$*$h$S\e(B ISO-8859-1 \e$B$r%5%]!<%H$7$^$9!#\e(B
+
+\e$B$^$?!"\e(BX window \e$B>e$NFHN)$7$?\e(B window \e$B$H$7$FF0:n$5$;$k>l9g!"\e(Btm-rich \e$B$K$h\e(B
+\e$B$k\e(B multi face \e$BI=<($,9T$J$($^$9!#\e(B
+
+@section{Mule}
+
+ISO-2022-JP, US-ASCII, ISO-8859-1..9, ISO-2022-CN, ISO-2022-KR, EUC-KR
+\e$B$J$I$NB?$/$N\e(B charset \e$B$r%5%]!<%H$7$^$9!#$^$?!"4X?t\e(B
+mime/set-charset-and-encoding \e$B$GDI2C!&JQ99$,$G$-$^$9!#\e(B
+
+\e$B$^$?!"\e(BMule 2.* \e$B$r\e(B X window \e$B>e$NFHN)$7$?\e(B window \e$B$H$7$FF0:n$5$;$k>l9g!"\e(B
+tm-rich \e$B$K$h$k\e(B multi face \e$BI=<($,9T$J$($^$9!#\e(B
+
+@section{XEmacs}
+
+US-ASCII \e$B$*$h$S\e(B ISO-8859-1 \e$B$r%5%]!<%H$7$^$9!#\e(B
+
+\e$B:#$N$H$3$m!"\e(Btm-rich \e$B$K$h$k\e(B multi face \e$BI=<($O%5%]!<%H$5$l$F$$$^$;$s$,!"\e(B
+\e$B>-MhE*$K$O!"\e(Bmulti face \e$BI=<($H\e(B inline image \e$B$NI=<($,%5%]!<%H$5$l$kM=Dj\e(B
+\e$B$G$9!#\e(B
+
+
+@node Install, How-to-use, Emacs-Versions, Top
+@comment node-name, next, previous, up
+@chapter{Install}
+@cindex{Install}
+
+Install \e$B$O<!$N<j=g$G9T$J$$$^$9!#\e(B
+
+@section{tl \e$B$N\e(B install}
+
+tm \e$B$O\e(B Emacs Lisp library ``tl'' \e$B$rMxMQ$7$F$$$^$9!#$h$C$F!"$^$::G=i$K!"\e(B
+\e$B$3$l$r\e(B install \e$B$7$F2<$5$$!#\e(B
+
+tl \e$B$N\e(B install \e$B$N;EJ}$O\e(B tl/README.eng \e$B$K=q$$$F$"$j$^$9$N$G!"$3$l$rFI$s\e(B
+\e$B$GE,@Z$K\e(B install \e$B$7$F2<$5$$!#\e(B
+
+
+@section{Makefile}
+
+Makefile \e$B$r<+J,$N4D6-$K9g$o$;$F=q$-49$($F2<$5$$!#\e(B
+
+@subsection{Emacs \e$B$N<B9T\e(B file \e$BL>$N;XDj\e(B}
+
+Emacs \e$B$N<B9T\e(B file \e$BL>$r;XDj$7$F2<$5$$!#\e(B
+
+@itemize
+@item NEMACS = for NEMACS (or NEpoch)
+@item MULE1 = for Mule 1.* (based on Emacs 18.*)
+@item ORIG19 = for Emacs 19.* (FSF original or XEmacs)
+@item MULE2 = for MULE 2.* (based on Emacs 19.*)
+@end itemize
+
+@subsection{load-path \e$B$N;XDj\e(B}
+
+Emacs Lisp program \e$B$r\e(B install \e$B$9$k\e(B directory \e$B$r;XDj$7$F2<$5$$!#\e(B
+
+@itemize
+@item TLDIR18 = for Emacs 18.* (NEMACS, NEpoch or MULE 1)
+@item TLDIR19 = for Emacs 19.* (FSF original, XEmacs or MULE 2)
+@end itemize
+
+
+@section{\e$B30It\e(B method}
+
+methods/ \e$B0J2<$K$"$k\e(B method script \e$B$r\e(B sec:method \e$B@a$r;2>H$7$F!"<+J,$N4D\e(B
+\e$B6-$K9g$&$h$&$K=q$-49$($F2<$5$$!#\e(B
+
+
+@section{make}
+
+`make all' \e$B$7$F2<$5$$!#\e(B
+
+
+@section{install}
+
+`make install' \e$B$7$F2<$5$$!#\e(B
+
+
+@section{Emacs Lisp program \e$B$N\e(B install}
+
+NEmacs \e$B$b$7$/$O\e(B NEpoch \e$B$r;H$C$F$$$k>l9g!"\e(B`make install-nemacs' \e$B$r<B9T\e(B
+\e$B$7$F2<$5$$!#\e(B
+
+Mule 1.* \e$B$r;H$C$F$$$k>l9g!"\e(B`install-mule1' \e$B$r<B9T$7$F2<$5$$!#\e(B
+
+Original Emacs 19.* \e$B$b$7$/$O\e(B XEmacs \e$B$r;H$C$F$$$k>l9g!"\e(B`make
+install-orig19' \e$B$r<B9T$7$F2<$5$$!#\e(B
+
+Mule 2.* \e$B$r;H$C$F$$$k>l9g!"\e(B`make install-mule2' \e$B$r<B9T$7$F2<$5$$!#\e(B
+
+\e$B$"$k$$$O!"$3$l$i$,$&$^$/$$$+$J$+$C$?>l9g$G$b!"\e(B*.el \e$B$r\e(B load-path \e$B$G;XDj\e(B
+\e$B$5$l$?\e(B directory \e$B$K\e(B copy \e$B$9$l$P\e(B OK \e$B$G$9!#\e(B
+
+
+@node Setting, tm-MUA, Install, Top
+@comment node-name, next, previous, up
+@chapter{\e$B@_Dj\e(B}
+@cindex{\e$B@_Dj\e(B}
+
+\e$B$3$N\e(B package \e$B$K$O\e(B mime-setup.el \e$B$H\e(B tm-setup.el \e$B$H$$$&4J0W@_Dj\e(B file \e$B$,\e(B
+\e$BImB0$7$F$$$^$9!#\e(Bmime-setup.el \e$B$G$O\e(B encoding \e$B$b4^$a$?\e(B MIME \e$BA4HL$N@_Dj$r\e(B
+\e$B9T$J$$!"\e(Btm-setup \e$B$G$O\e(B tm-MUA \e$B$K4X$9$k@_Dj$N$_$r9T$J$$$^$9!#\e(B
+
+@section{mime-setup}
+
+@example
+(load "mime-setup")
+@end example
+\e$B$H$9$k$H\e(B MIME \e$B$K4X$9$k3F<o@_Dj$r9T$J$$$^$9!#\e(Bmime-setup \e$B$O\e(B tm-setup \e$B$r\e(B
+\e$BFI$s$G$$$k$N$G!"\e(Bmime-setup \e$B$r;H$&>l9g!"\e(Btm-setup \e$B$r\e(B load \e$B$9$kI,MW$O$"$j\e(B
+\e$B$^$;$s!#\e(B
+
+mime-setup \e$B$G$O\e(B signature \e$B$N<+F0@ZBX$(\e(B tool \e$B$bImB0$7$F$$$^$9!#\e(B
+message header \e$B$N\e(B field \e$B$K9g$o$;$F\e(B signature \e$B$N<+F0@ZBX$r9T$J$$$?$$>l\e(B
+\e$B9g$O\e(B .emacs \e$B$K0J2<$N$h$&$J$b$N$rF~$l$F2<$5$$!#!J>\$7$/$O\e(B signature.el
+\e$B$N@bL@=q$r;2>H$7$F2<$5$$!K\e(B
+
+@example
+(setq signature-file-alist
+ '((("Newsgroups" . "jokes") . "~/.signature-jokes")
+ (("Newsgroups" . ("zxr" "nzr")) . "~/.signature-sun")
+ (("To" . ("ishimaru" "z-suzuki")) . "~/.signature-sun")
+ (("To" . "tea") . "~/.signature-jokes")
+ (("To" . ("sim" "oku" "takuo")) . "~/.signature-formal")
+ ))
+@end example
+
+mime-setup \e$B$r;H$&>l9g$O!"\e(Bmime.el \e$B$,I,MW$G$9!#$^$?!"\e(BSuperCite \e$B$r;H$&>l\e(B
+\e$B9g$O!"\e(BSuperCite \e$B$bI,MW$G$9!#\e(B
+
+
+@section{tm-setup}
+
+tm-setup \e$B$O\e(B tm-MUA \e$B$N@_Dj$N$_$r9T$J$&\e(B module \e$B$G$9!#\e(Bmime-setup \e$B$r\e(B load
+\e$B$7$F$$$k>l9g!"$3$l$rM[$K\e(B load \e$B$9$kI,MW$O$"$j$^$;$s$,!"\e(Bmime-setup \e$B$r;H\e(B
+\e$B$$$?$/$J$$>l9g!"0J2<$N$h$&$K$3$l$r\e(B load \e$B$7$F2<$5$$!#\e(B
+
+@example
+(load "tm-setup")
+@end example
+
+
+@section{vm}
+
+vm \e$B$r;H$&>l9g$O\e(B .vm \e$B$+\e(B .emacs \e$B$K\e(B
+@example
+(load "tm-vm")
+@end example
+\e$B$rF~$l$F2<$5$$!#\e(B
+
+
+@section{\e$B@_Dj\e(B file \e$B$r;H$o$J$$>l9g\e(B}
+
+tm-setup.el \e$B$r;29M$K$7$F2<$5$$!#\e(B
+
+
+@node tm-MUA, Concept Index, Setting, Top
+@comment node-name, next, previous, up
+@chapter{tm-MUA}
+@cindex{tm-MUA}
+
+``tm-MUA'' \e$B$H$$$&$N$O!"\e(Bmh-e, GNUS, RMAIL \e$B$J$I$N\e(B MUA \e$B$N$?$a$N\e(B MIME \e$B5!G=\e(B
+\e$B6/2=\e(B module \e$B$NAm>N$G$9!#\e(B
+
+\e$B8=:_!"\e(Btm-MUA \e$B$K$O!"\e(B
+@itemize
+@item @emph{tm-mh-e:} mh-e \e$BMQ$N\e(B tm-MUA
+@item @emph{tm-gnus:} GNUS \e$BMQ$N\e(B tm-MUA
+@item @emph{tm-rmail:} RMAIL \e$BMQ$N\e(B tm-MUA
+@item @emph{tm-vm:} VM \e$BMQ$N\e(B tm-MUA
+@end itemize
+\e$B$,$"$j$^$9!#$3$N>O$G$O$3$l$i$N\e(B module \e$B$K4X$7$F@bL@$7$^$9!#\e(B
+
+@section{Summary mode}
+
+tm-MUA \e$B$r;H$&$H!"85$N\e(B MUA \e$B$N\e(B Summary mode \e$B$KBP$7$F0J2<$N5!G=$,DI2C$5$l\e(B
+\e$B$^$9!#\e(B
+
+@table @kbd
+@item @key{M-t}
+ RFC 1522 MIME encoded-word \e$B$N\e(B decode \e$B$K4X$9$k\e(B toggle
+@item v
+ mime/viewer-mode \e$B$KF~$j!"\e(Bmessage \e$B$r1\Mw$9$k\e(B
+@end table
+
+
+@section{mime/viewer-mode}
+
+tm-MUA \e$B$r;H$&$H!"\e(BSummary mode \e$B$G\e(B @kbd{v}\e$B!J\e(Bvm \e$B$G$O\e(B @kbd{Z}\e$B!K$r2!$9$3$H\e(B
+\e$B$K$h$C$F!"\e(Bmime/viewer-mode \e$B$H$$$&\e(B MIME message \e$B$r1\Mw$9$k$?$a$N\e(B mode
+\e$B$KF~$j$^$9!#\e(Bmime/viewer-mode \e$B$K$O0J2<$N5!G=$,$"$j$^$9!#\e(B
+
+@table @kbd
+@item u
+ \e$B>e$N\e(B content \e$B$KLa$k!J\e(Bmessage \e$B$N0lHV>e$N\e(B content \e$B$G$3$l$r9T$J$&\e(B
+ \e$B$H\e(B Summary mode \e$B$KLa$k\e(B (*1)\e$B!K\e(B
+@item p
+ \e$BA0$N\e(B content \e$B$K0\F0$9$k\e(B
+@item n
+ \e$B<!$N\e(B content \e$B$K0\F0$9$k\e(B
+@item @key{SPC}
+ scroll up \e$B$9$k\e(B
+@item @key{M-SPC}
+ scroll down \e$B$9$k\e(B
+@item @key{DEL}
+ scroll down \e$B$9$k\e(B
+@item @key{RET}
+ \e$B<!$N9T$K0\F0$9$k\e(B
+@item @key{M-RET}
+ \e$BA0$N9T$K0\F0$9$k\e(B
+@item v
+ content \e$B$r:F@8$9$k\e(B (*2)
+@item e
+ content \e$B$+$i\e(B file \e$B$r<h$j=P$9\e(B (*2)
+@item C-c C-p
+ content \e$B$r0u:~$9$k\e(B (*2)
+@end table
+
+@noindent @b{\e$B!NCm0U!O\e(B}
+@enumerate
+@item
+tm-MUA \e$B$G\e(B tm-view \e$B$N@_Dj$r$7$F$$$J$$>l9g!"\e(BSummary mode \e$B$K$OLa$j$^$;$s!#\e(B
+
+@item
+\e$B<B:]$NF0:n$OBP1~$9$k\e(B method \e$B$K0M$j$^$9!#\e(B
+@end enumerate
+
+
+@node Concept Index, Command Index, tm-MUA, Top
+@unnumbered \e$B35G0:w0z\e(B
+
+@printindex cp
+
+
+@node Command Index, Variable Index, Concept Index, Top
+@unnumbered \e$B4X?t!&%3%^%s%I:w0z\e(B
+
+@printindex fn
+
+
+@node Variable Index, Top, Command Index, Top
+@unnumbered \e$BJQ?t:w0z\e(B
+
+@printindex vr
+
+@bye
#
-# $Id: Makefile,v 2.0 1995/03/26 16:49:12 morioka Exp morioka $
+# $Id: Makefile,v 5.0 1995/04/20 12:53:54 morioka Exp $
#
# Please specify emacs executables:
TMSRCDIR = ..
TLSRCDIR = ../../tl
+ EMACS18_GNUS = gnus3
+
EMACS18_GNUS3 = gnus
EMACS18_NNTP3 = nntp
EMACS19_GNUS = gnus
EMACS19_NNTP = nntp
-
+
+nemacs: nemacs-$(EMACS18_GNUS)
+
nemacs-gnus3:
make -f Makefile.bc all \
EMACS=$(NEMACS) EMACS_TYPE=nemacs GNUS_TYPE=gnus3 \
+ OPT='-l $(TLSRCDIR)/tl-18.el' \
GNUS=$(EMACS18_GNUS3) NNTP=$(EMACS18_NNTP3) \
TLDIR=$(TLSRCDIR) TMDIR=$(TMSRCDIR)
nemacs-gnus4:
make -f Makefile.bc all \
EMACS=$(NEMACS) EMACS_TYPE=nemacs GNUS_TYPE=gnus4 \
+ OPT='-l $(TLSRCDIR)/tl-18.el' \
GNUS=$(EMACS18_GNUS4) NNTP=$(EMACS18_NNTP4) \
TLDIR=$(TLSRCDIR) TMDIR=$(TMSRCDIR)
+mule1: mule1-$(EMACS18_GNUS)
+
mule1-gnus3:
make -f Makefile.bc all \
EMACS=$(MULE1) EMACS_TYPE=mule GNUS_TYPE=gnus3 \
+ OPT='-l $(TLSRCDIR)/tl-18.el' \
GNUS=$(EMACS18_GNUS3) NNTP=$(EMACS18_NNTP3) \
TLDIR=$(TLSRCDIR) TMDIR=$(TMSRCDIR)
mule1-gnus4:
make -f Makefile.bc all \
EMACS=$(MULE1) EMACS_TYPE=mule GNUS_TYPE=gnus4 \
+ OPT='-l $(TLSRCDIR)/tl-18.el' \
GNUS=$(EMACS18_GNUS4) NNTP=$(EMACS18_NNTP4) \
TLDIR=$(TLSRCDIR) TMDIR=$(TMSRCDIR)
#
-# $Id: Makefile.bc,v 2.0 1995/03/26 16:49:33 morioka Exp morioka $
+# $Id: Makefile.bc,v 4.0 1995/04/20 12:31:10 morioka Exp $
#
.SUFFIXES: .el .elc
$(EMACS) -batch -q . \
-l $(TLDIR)/tl-str.el -l $(TLDIR)/tl-list.el \
-l $(TLDIR)/tl-header.el -l $(TLDIR)/tl-$(EMACS_TYPE).el \
+ $(OPT) \
-l $(TMDIR)/tm-$(EMACS_TYPE).el \
-l $(TMDIR)/tiny-mime.el -l $(TMDIR)/tm-misc.el \
-l $(TMDIR)/tm-view.el \
- -l $(GNUS) -l $(NNTP) \
+ -l $(NNTP) -l $(GNUS) \
-l tm-$(GNUS_TYPE).el -l tm-gnus.el \
-f batch-byte-compile $<
nemacs:
make -f Makefile.bc tm-mh-e.elc \
EMACS=$(NEMACS) EMACS_TYPE=nemacs \
+ OPT='-l $(TLSRCDIR)/tl-18.el' \
TLDIR=$(TLSRCDIR) TMDIR=$(TMSRCDIR)
mule1:
make -f Makefile.bc tm-mh-e.elc \
EMACS=$(MULE1) EMACS_TYPE=mule \
+ OPT='-l $(TLSRCDIR)/tl-18.el' \
TLDIR=$(TLSRCDIR) TMDIR=$(TMSRCDIR)
install-18:
#
-# $Id: Makefile.bc,v 1.1 1995/01/10 12:28:22 morioka Exp $
+# $Id: Makefile.bc,v 1.1 1995/01/10 12:28:22 morioka Exp morioka $
#
.SUFFIXES: .el .elc
tm-mh-e.elc: tm-mh-e.el
- $(EMACS) -batch -q . -l $(TLDIR)/tl-str.el -l $(TLDIR)/tl-list.el \
- -l $(TLDIR)/tl-header.el -l $(TLDIR)/tl-$(EMACS_TYPE).el \
+ $(EMACS) -batch -q . \
+ $(OPT) -l $(TLDIR)/tl-$(EMACS_TYPE).el \
+ -l $(TLDIR)/tl-str.el -l $(TLDIR)/tl-list.el \
+ -l $(TLDIR)/tl-header.el -l $(TLDIR)/tl-misc.el \
-l $(TMDIR)/tm-$(EMACS_TYPE).el -l $(TMDIR)/tiny-mime.el \
-l $(TMDIR)/tm-misc.el -l mh-e \
-f batch-byte-compile $<
;;; @ require modules
;;;
(require 'tl-str)
+(require 'tl-misc)
(require 'tm-misc)
(require 'mh-e)
(if (not (boundp 'mh-e-version))
;;; @ version
;;;
(defconst tm-mh-e/RCS-ID
- "$Id: tm-mh-e.el,v 6.1 1995/04/18 16:49:45 morioka Exp $")
+ "$Id: tm-mh-e.el,v 6.3 1995/04/23 20:59:27 morioka Exp $")
(defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
(insert-file (tm-mh-e::message/file-name message))
)
-(if (featurep 'tm-comp)
- (set-alist 'tm-comp/message-inserter-alist
- 'mh-letter-mode (function tm-mh-e::insert-message))
- (add-hook 'tm-comp-load-hook
- (function
- (lambda ()
- (set-alist
- 'tm-comp/message-inserter-alist
- 'mh-letter-mode (function tm-mh-e::insert-message))
- )))
- )
+(call-after-loaded
+ 'tm-comp
+ (function
+ (lambda ()
+ (set-alist
+ 'tm-comp/message-inserter-alist
+ 'mh-letter-mode (function tm-mh-e::insert-message))
+ )))
;;; @ set up
;;;
-;;; $Id: tm-mule.el,v 5.3 1995/01/27 14:53:01 morioka Exp $
+;;; $Id: tm-mule.el,v 5.4 1995/04/20 13:57:31 morioka Exp $
;;;
(provide 'tm-mule)
(cons lc-ltn3 '("ISO-8859-3" . "Q"))
(cons lc-ltn4 '("ISO-8859-4" . "Q"))
(cons lc-crl '("ISO-8859-5" . "B"))
- (cons lc-arb '("ISO-8859-6" . "B"))
+;;;(cons lc-arb '("ISO-8859-6" . "B"))
(cons lc-grk '("ISO-8859-7" . "B"))
(cons lc-hbw '("ISO-8859-8" . "B"))
(cons lc-ltn5 '("ISO-8859-9" . "Q"))
("ISO-2022-KR" . *iso-2022-kr*)
("EUC-KR" . *euc-kr*)
("ISO-8859-1" . *ctext*)
+ ("ISO-8859-2" . *iso-8859-2*)
+ ("ISO-8859-3" . *iso-8859-3*)
+ ("ISO-8859-4" . *iso-8859-4*)
+ ("ISO-8859-5" . *iso-8859-5*)
+ ("ISO-8859-7" . *iso-8859-7*)
+ ("ISO-8859-8" . *iso-8859-8*)
+ ("ISO-8859-9" . *iso-8859-9*)
))
(defvar mime/charset-lc-alist
(cons "ISO-8859-3" lc-ltn3) ; Latin-3
(cons "ISO-8859-4" lc-ltn4) ; Latin-4
(cons "ISO-8859-5" lc-crl ) ; Cyrillic
- (cons "ISO-8859-6" lc-arb ) ; Arabic
+;;;(cons "ISO-8859-6" lc-arb ) ; Arabic
(cons "ISO-8859-7" lc-grk ) ; Greek
(cons "ISO-8859-8" lc-hbw ) ; Hebrew
(cons "ISO-8859-9" lc-ltn5) ; Latin-5
;;;
-;;; $Id: tm-setup.el,v 6.0 1995/04/18 19:40:11 morioka Exp $
+;;; $Id: tm-setup.el,v 6.1 1995/04/23 18:09:07 morioka Exp $
;;;
-(provide 'tm-setup)
-
-;;; @ for Emacs 18
-;;;
-(if (< (string-to-int emacs-version) 19)
- (progn
- (require 'tl-18)
- (defvar buffer-undo-list nil)
- ))
+(require 'tl-misc)
;;; @ for LaTeX
;;;
-(add-hook 'tm-view-load-hook
- (function
- (lambda ()
- ;; for message/partial
- (require 'tm-partial)
-
- ;; for LaTeX
- (set-atype 'mime/content-decoding-condition
- '((type . "text/x-latex")
- (method . mime/decode-text/latex)
- ))
- (set-atype 'mime/content-decoding-condition
- '((type . "application/x-latex")
- (method . mime/decode-text/latex)
- ))
- ;;(set-atype 'mime/content-decoding-condition
- ;; '((type . "application/octet-stream")
- ;; ("type" . "latex")
- ;; (method . mime/decode-text/latex)
- ;; ))
- (autoload 'mime/decode-text/latex "tm-latex")
- )))
+(call-after-loaded
+ 'tm-view
+ (function
+ (lambda ()
+ ;; for message/partial
+ (require 'tm-partial)
+
+ ;; for LaTeX
+ (set-atype 'mime/content-decoding-condition
+ '((type . "text/x-latex")
+ (method . mime/decode-text/latex)
+ ))
+ (set-atype 'mime/content-decoding-condition
+ '((type . "application/x-latex")
+ (method . mime/decode-text/latex)
+ ))
+ ;;(set-atype 'mime/content-decoding-condition
+ ;; '((type . "application/octet-stream")
+ ;; ("type" . "latex")
+ ;; (method . mime/decode-text/latex)
+ ;; ))
+ (autoload 'mime/decode-text/latex "tm-latex")
+ )))
;;; @ for Anonymous FTP (need of ange-ftp)
;;;
-(add-hook 'tm-view-load-hook
- (function
- (lambda ()
- (set-atype 'mime/content-decoding-condition
- '((type . "message/external-body")
- ("access-type" . "anon-ftp")
- (method . mime/decode-message/external-ftp)
- ))
- (autoload 'mime/decode-message/external-ftp "tm-ftp")
- )))
+(call-after-loaded
+ 'tm-view
+ (function
+ (lambda ()
+ (set-atype 'mime/content-decoding-condition
+ '((type . "message/external-body")
+ ("access-type" . "anon-ftp")
+ (method . mime/decode-message/external-ftp)
+ ))
+ (autoload 'mime/decode-message/external-ftp "tm-ftp")
+ )))
;;; @ for RMAIL
;;; @ for mh-e
;;;
-(add-hook 'mh-folder-mode-hook
- (function
- (lambda ()
- (require 'tm-mh-e)
- )))
-(add-hook 'mh-letter-mode-hook
- (function
+(let ((le (function
(lambda ()
(require 'tm-mh-e)
- )))
+ ))
+ ))
+ (call-after-loaded 'mh-e le 'mh-folder-mode-hook)
+ (if (not (featurep 'mh-e))
+ (add-hook 'mh-letter-mode-hook le)
+ ))
;;; @ for GNUS
(let ((le (function
(lambda ()
(require 'tm-gnus)
- )))
- )
+ ))
+ ))
(if (boundp 'MULE)
(progn
(add-hook 'gnus-Group-mode-hook (function gnusutil-initialize))
(add-hook 'gnus-startup-hook le)
)))
+
+;;; @ end
+;;;
+
+(provide 'tm-setup)
+
;;; Local Variables:
;;; mode: emacs-lisp
;;; mode: outline-minor
;;;
(defconst mime-viewer/RCS-ID
- "$Id: tm-view.el,v 6.16 1995/04/19 04:43:09 morioka Exp $")
+ "$Id: tm-view.el,v 6.18 1995/04/23 15:51:19 morioka Exp $")
(defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
(defconst mime/viewer-version mime-viewer/version)
;; 'file '"access-type" '"name" '"site" '"directory"))
((type . "message/partial")
(method . mime/decode-message/partial-region))
+ ((type . "message/rfc822")
+ (method "tm-file" nil 'file 'type 'encoding 'mode 'name))
((method "metamail" t
"-m" "tm" "-x" "-d" "-z" "-e" 'file)(mode . "play"))
))
(defun mime-viewer/parse (&optional ctl encoding)
(save-excursion
(save-restriction
- (if (null ctl)
- (setq ctl (progn
- (goto-char (point-min))
- (mime/Content-Type)
- ))
- )
- (if (null encoding)
- (setq encoding (progn
- (goto-char (point-min))
- (mime/Content-Transfer-Encoding)
- ))
- )
+ (setq ctl (or (mime/Content-Type)
+ ctl))
+ (setq encoding (or (mime/Content-Transfer-Encoding)
+ encoding))
(let ((ctype (car ctl))
(params (cdr ctl))
)
- (if (stringp ctype)
- (setq ctype (downcase ctype))
- )
- (if (stringp encoding)
- (setq encoding (downcase encoding))
- )
(let ((boundary (assoc "boundary" params)))
+ (goto-char (point-min))
(search-forward "\n\n" nil t)
(cond (boundary
- (setq boundary
- (message/strip-quoted-string (cdr boundary)))
- (mime-viewer/parse-multipart
- (match-end 0)
- (progn
- (search-forward (concat "--" boundary "--\n") nil t)
- (match-beginning 0)
- )
- boundary ctype params encoding)
- )
+ (save-excursion
+ (save-restriction
+ (setq boundary
+ (message/strip-quoted-string (cdr boundary)))
+ (narrow-to-region
+ (point-min)
+ (if (search-forward (concat "--" boundary "--\n") nil t)
+ (match-beginning 0)
+ (point-max)
+ ))
+ (mime-viewer/parse-multipart
+ (point-min)
+ (point-max)
+ boundary ctype params encoding)
+ )))
((string= ctype "message/rfc822")
(mime::make-content-info
(point-min) (point-max)
ctype params encoding
(save-excursion
(save-restriction
- (narrow-to-region (match-end 0) (point-max))
+ (narrow-to-region (progn
+ (goto-char (point-min))
+ (if (re-search-forward "^$" nil t)
+ (+ (match-end 0) 1)
+ (point-min)
+ ))
+ (point-max))
(list (mime-viewer/parse))
))
)
)))))
(defun mime-viewer/parse-multipart (beg end boundary ctype params encoding)
- (let ((sep (concat "^--" boundary "$"))
+ (let ((sep (concat "^--" (regexp-quote boundary) "$"))
cb ce ct ret ncb children)
(save-excursion
(save-restriction
(save-excursion
(save-restriction
(narrow-to-region cb ce)
- (setq ret (mime-viewer/parse))
+ (setq ret (apply (function mime-viewer/parse)
+ (cond ((string= ctype "multipart/mixed")
+ '(("text/plain") "7bit")
+ )
+ ((string= ctype "multipart/digest")
+ '(("message/rfc822") "7bit")
+ ))
+ ))
))
(setq children (nconc children (list ret)))
(goto-char (mime::content-info/point-max ret))
(save-excursion
(save-restriction
(narrow-to-region cb ce)
- (setq ret (mime-viewer/parse))
+ (setq ret (apply (function mime-viewer/parse)
+ (cond ((string= ctype "multipart/mixed")
+ '(("text/plain") "7bit")
+ )
+ ((string= ctype "multipart/digest")
+ '(("message/rfc822") "7bit")
+ ))
+ ))
))
(setq children (nconc children (list ret)))
))
)))
(defun mime/Content-Transfer-Encoding (&optional default-encoding)
- (save-excursion
- (save-restriction
- (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)
- )))
+ (let ((str (message/get-field-body "Content-Transfer-Encoding")))
+ (if str
+ (downcase str)
+ default-encoding)
+ ))
(defun mime/get-subject (param)
(save-excursion
(save-excursion
(save-restriction
(goto-char beg)
- (search-forward "\n\n" nil t)
- (match-end 0)
+ (re-search-forward "^$" nil t)
+ (+ (match-end 0) 1)
))
end))
(if (> e (point-max))
b args)
(if (nth 1 method)
(setq b beg)
- (search-forward "\n\n" nil t)
- (setq b (match-end 0))
+ (setq b
+ (if (re-search-forward "^$" nil t)
+ (+ (match-end 0) 1)
+ (point-min)
+ ))
)
(goto-char b)
(write-region b end file)
)
(defun mime::article/decode-content-region (cinfo)
- (interactive "*r")
(let ((beg (mime::content-info/point-min cinfo))
(end (mime::content-info/point-max cinfo))
(ctype (mime::content-info/type cinfo))
projects / elisp / tm.git / commitdiff