+Wed Jul 24 10:08:38 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tl: Version 7.43.1 was released.
+ * tm: Version 7.73 was released.
+ * tm/gnus: Version 7.79 was released.
+ * tm/mh-e: Version 7.65 was released.
+
+Mon Jul 22 19:29:42 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-edit.el: Variable `mime/editor-mode-old-selective-display'
+ was abolished.
+
+ (mime/editor-mode): DOC-string was modified; Use macro
+ `enable-invisible'.
+
+ (mime-editor/exit): Use macro `end-of-invisible'.
+
+Mon Jul 22 18:29:22 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * inst-tm (install-el-and-elc-files): code to make directory if it
+ is not exist was moved to function `install-el-files'.
+
+Thu Jul 18 12:46:20 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-text.el (mime-preview/decode-text-buffer): local variable
+ `beg' was abolished.
+
+Thu Jul 18 12:42:40 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-text.el (mime-preview/decode-text-buffer): fixed for new spec
+ of code-converter.
+
+ * tm-pgp.el (mime-article/view-application/pgp): set function
+ `mime-charset/decode-buffer' as code-converter for decryption.
+
+ * tm-text.el (mime-viewer/code-converter-alist): spec of
+ converters were changed; they work for buffer instead of region.
+
+ (mime-charset/decode-buffer): New function; renamed from
+ `mime-charset-decode-region'.
+
+ (mime-charset/maybe-decode-buffer): New function; renamed from
+ `mime-viewer/default-code-convert-region'.
+
+Thu Jul 18 06:50:09 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-text.el (mime-preview/decode-text-buffer): New function;
+ renamed from function `mime-preview/decode-text-region'.
+
+ (mime-preview/filter-for-text/plain,
+ mime-preview/filter-for-text/richtext,
+ mime-preview/filter-for-text/enriched): Use function
+ `mime-preview/decode-text-buffer' instead of
+ `mime-preview/decode-text-region'.
+
+Thu Jul 18 06:24:23 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-text.el (mime-viewer/default-code-convert-region): New
+ implementation.
+
+Thu Jul 18 06:21:31 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-text.el (mime-preview/filter-for-text/enriched): Use function
+ `mime-preview/decode-text-region'.
+
+ * tm-text.el (mime-preview/filter-for-text/richtext): Use function
+ `mime-preview/decode-text-region'.
+
+Thu Jul 18 06:06:25 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-text.el (mime-charset-decode-region): New function; moved
+ from tm-def.el.
+
+ * tm-def.el: Function `mime-charset-decode-region' was moved to
+ tm-text.el.
+
+\f
Wed Jul 17 05:36:50 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tl: Version 7.43 was released.
FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
-TARFILE = tm7.72.tar.gz
+TARFILE = tm7.73.tar.gz
elc:
$(EMACS) $(FLAGS) -l inst-tm -f compile-tm
--- /dev/null
+\e$B!X\e(Btm \e$B$K$*$1$kJ8;z\e(B code \e$B$N<h$j07$$$K$D$$$F!Y\e(B
+by \e$B<i2,\e(B \e$BCNI'\e(B
+1996\e$BG/\e(B7\e$B7n\e(B18\e$BF|\e(B
+
+* charset \e$B<h$j07$$$K4X$9$k4pK\86B'\e(B
+
+ tm \e$B$G$O86B'$H$7$F\e(B MIME \e$B$GDj$a$i$l$?\e(B charset \e$B5!9=$K4p$E$$$FJ8;z\e(B code
+\e$B$r<h$j07$&!#$3$l$r<B8=$9$k$?$a$K!"\e(Bmessage \e$B$rI=<($9$k$?$a$N\e(B buffer
+(preview buffer; cooked buffer) \e$B$NB>$K@8$N!JB($A!"\e(Bcode \e$BJQ49$5$l$F$*$i\e(B
+\e$B$:\e(B network code \e$B$N$^$^$N!K\e(Bmessage \e$B$,F~$C$?\e(B buffer (original article
+buffer, raw buffer) \e$B$rMQ$$$k$3$H$H$9$k!#$3$N>r7o$,K~$?$5$l$l$P!"\e(Bbase64
+\e$B$d\e(B quoted-printable \e$BEy$N\e(B encode \e$B$r9T$J$C$F$$$J$$>l9g$G$b!"#1$D$N\e(B
+message \e$B$KJ#?t$NJ8;z\e(B code \e$B$r:.:_$5$;$k$3$H$,$G$-$k!#\e(B
+
+ \e$B$7$+$7$J$,$i!"8=<B$K$O4v$D$+$NLdBj$,B8:_$9$k!##1$D$OHs\e(B MIME message
+\e$B$N<h$j07$$$G$"$j!"$b$&0l$D$O>e5-$N$h$&$JJ}K!$r$H$k$3$H$,:$Fq$J\e(B MUA \e$B$r\e(B
+\e$BMxMQ$9$k>l9g$G$"$k!#Hs\e(B MIME message \e$B$KBP$7$F$O!"\e(Btm \e$B$O\e(B default \e$B$N\e(B
+charset \e$B$r2>Dj$9$k$3$H$GBP=h$7$F$$$k!#8e<T$NLdBj$K4X$7$F$O\e(B MUA \e$BKh$K\e(B
+code \e$BJQ49\e(B program \e$B$r@_Dj$7!"\e(Braw buffer \e$B$r:n@.$9$k$3$H$,:$Fq$J\e(B MUA \e$B$N>l\e(B
+\e$B9g!"\e(B7bit, 8bit, binary \e$B$N$h$&$J\e(B encode \e$B$5$l$F$$$J$$\e(B message \e$B$N\e(B charset
+\e$B$K$h$k\e(B code \e$BJQ49$r$d$a$k$h$&$K$9$k$3$H$GBP=h$7$F$$$k!#\e(B
+
+ \e$B0J2<!"<B:]$N5!9=$K4X$7$F@bL@$9$k!#\e(B
+
+
+* \e$BJ8;z\e(B code \e$B$N<h$j07$$$K4X$9$k\e(B layer \e$B9=B$\e(B
+
+ tm \e$B$O\e(B
+
+[[E
+ (4) user interface layer (tm)
+ (3) non-interactive MIME feature layer (tm)
+ (2) MIME encoding layer (MEL) / utility function layer (tl)
+ (1) emu API layer
+ (0) (API of emacs variants)
+]]E
+
+\e$B$H$$$AX9=B$$K$J$C$F$$$k$,!"J8;z\e(B code \e$B$N<h$j07$$$bF1MM$G$"$k!#\e(B
+
+ \e$BBh#1AX$G$"$k\e(B emu API \e$B$GA4$F$N\e(B emacs variant \e$B$GMxMQ2DG=$J4pK\4X?t$rDs\e(B
+\e$B6!$7!"Bh#3AX$G\e(B tm-view \e$B$GMxMQ$9$k$?$a$N4pK\E*$J5!G=$r<B8=$7!"Bh#4AX$G\e(B
+\e$B$=$N3&LL$rDj5A$9$k!#\e(B
+
+
+* \e$BJ8;z\e(B code \e$B$K4X$9$k\e(B emu API \e$B$N5!G=\e(B
+
+ EMACS \e$B$K$O!"85Mh!"J8;z$H$$$&35G0$OB8:_$7$J$+$C$?!#$h$C$F!"$=$l$r07$&\e(B
+\e$B$?$a$N5!G=$OB8:_$7$J$+$C$?!#\e(B
+
+ emacs \e$B$N@$3&$KJ8;z\e(B code \e$B$H$$$&35G0$r;}$A9~$s$@$N$O\e(B NEmacs \e$B$G$"$k!JB?\e(B
+\e$BJ,\e(B(^_^;\e$B!K!#\e(BNEmacs \e$B$O\e(B `JIS', `EUC', `Shift JIS'\e$B!J$*$h$SL5JQ49!K$H$$$\e(B
+\e$B<oN`$N!X4A;z\e(B code\e$B!Y$rF3F~$7$?!#$=$7$F!"$3$l$r?tCM$GI=8=$7$?!#\e(B
+
+ NEmacs \e$B$OF|K\8l!J$N\e(B subset\e$B!K$7$+07$&I,MW$,$J$+$C$?$N$G9b!9#3<oN`$NJ8\e(B
+\e$B;z\e(B code \e$B$,;H$($l$P==J,$G$"$C$?$,!"$3$l$rB?8@8l2=$7$?\e(B MULE \e$B$G$O$h$jB??t\e(B
+\e$B$NJ8;z\e(B code \e$B$,07$&$3$H$,MW5a$5$l!"$^$?!"\e(Buser \e$B$,J8;z\e(B code \e$B$rDj5A$G$-$k\e(B
+\e$B$3$H$bI,MW$G$"$C$?!#$3$N$?$a!"?tCM$G$O$J$/!"@hF,$HKvHx$K\e(B `*' \e$B$rIU$1$?\e(B
+\e$B<+8JI>2A7A<0$NDj?t$GI=8=$5$l$k\e(B coding-system \e$B$H$$$&35G0$,F3F~$5$l$?!#\e(B
+
+ XEmacs \e$B$K\e(B mule \e$B5!G=$rF3F~$7$h$&$H$7$??MC#$O<+8JI>2A7A<0$NDj?t$NBe$o\e(B
+\e$B$j$K\e(B coding-system \e$B$rI=$9?7$?$J7?$rF3F~$9$k$3$H$K$7$?!#$^$?!"$3$N7?$K\e(B
+\e$BBP1~$9$kL>A0$r\e(B symbol \e$B$GM?$($?!#$3$N$?$a!"\e(Bcoding-system \e$B$rI=$9BgNL$NDj\e(B
+\e$B?t$O0lA]$5$l$?!#\e(B
+
+ \e$B$3$N$h$&$K!"8=B8$9$k\e(B emacs variants \e$B$N4V$G$OJ8;z\e(B code \e$B$NI=8=K!$O$5$^\e(B
+\e$B$6$^$G$"$k!#$b$H$b$H!"\e(Bemu \e$B$O$3$NJ,Ln$G$b$C$H$b5!G=$N9b$$\e(B MULE \e$B$r$*<jK\\e(B
+\e$B$K$3$l$N5!G=$r\e(B emulate \e$B$9$k4X?t$r3F\e(B emacs variant \e$B$KBP$7$FDj5A$9$kJ}K!\e(B
+\e$B$r:N$C$?$,!"\e(BMULE \e$B$r85$K\e(B EMACS/MULE \e$BE}9gHG$d\e(B XEmacs/mule \e$B$,@8$^$l$k$K=>\e(B
+\e$B$$!"\e(Bcoding-system \e$B5!G=$r$=$N$^$^;H$&$N$OF@:v$G$O$J$$$HH=CG$9$k$K;j$C$?!#\e(B
+\e$BBe$o$j$K$h$jCj>]EY$N9b$$\e(B MIME charset \e$B$K4X$9$k\e(B API \e$B$rMQ0U$9$k$3$H$K$7\e(B
+\e$B$?!#\e(B
+
+ MIME charset \e$B$OJ8;z\e(B code \e$B$rI=$9$b$N$G$"$j!"\e(BMULE \e$B$G$$$&$H$3$m$N\e(B
+leading-char \e$B$d\e(B EMACS/MULE \e$B$d\e(B XEmacs/mule \e$B$G$$$&$H$3$m$N\e(B charset \e$B$KAj\e(B
+\e$BEv$9$k$b$N$G$O$J$/!"\e(Bmule \e$B$N\e(B coding-system \e$B$KAjEv$9$k5!G=$G$"$k!#<B:]!"\e(B
+mule \e$B$N\e(B coding-system \e$B$NL>A0$H\e(B MIME charset \e$B$NL>A0$O6&DL$9$k$b$N$b>/$J\e(B
+\e$B$/$J$$!#\e(B
+
+ MIME charset \e$B$NI=8=$N;EJ}$H$7$F!"\e(Bemu API \e$B$G$O\e(B XEmacs/mule \e$B$HF1MM!"\e(B
+symbol \e$B$rMQ$$$k$3$H$K$7$?!#\e(BMULE \e$B$N$h$&$JJQ?t$r;H$&$HB+G{$K4X$9$k\e(B check
+\e$B$,I,MW$G$"$k$,!"\e(Bsymbol \e$B$G$O$3$N$h$&$J\e(B check \e$B$OITMW$G$"$k!#$^$?!">-MhE*\e(B
+\e$B$K!"\e(BXEmacs/mule \e$B$NJ}K!$KE}9g$5$l$k$3$H$r4|BT$9$k0UL#$b$"$k!#<B:]!"\e(B
+XEmacs/mule \e$B$H\e(B emu API \e$B$N4V$N\e(B gap \e$B$O>/$J$/!">-Mh!"A4$F$N\e(B MIME charset
+\e$B$,\e(B XEmacs/mule \e$B$N\e(B coding-system \e$B$H$7$FDj5A$5$l$l$P!"\e(Bemu \e$B$H$7$F$3$l$rMQ\e(B
+\e$B0U$9$kI,MW$O$J$/$J$k$@$m$&!#\e(B
+
+ \e$B$5$F!"0J2<$G$O<B:]$N5!G=$r2r@b$9$k!#\e(B
+
+[\e$BJQ?t\e(B] charsets-mime-charset-alist
+
+ Key \e$BIt$K\e(B charset \e$B$N\e(B list, value \e$BIt$K\e(B mime-charset \e$B$r$H$kO"A[%j\e(B
+ \e$B%9%H!#4X?t\e(B charsets-to-mime-charset \e$B$d4X?t\e(B
+ detect-mime-charset-region \e$B$,$3$NJQ?t$r;2>H$9$k!#\e(B
+
+[\e$BJQ?t\e(B] default-mime-charset
+
+ \e$BJQ?t\e(B charsets-mime-charset-alist \e$B$GDj5A$5$l$F$$$J$$\e(B charset \e$B$N\e(B
+ list \e$B$KBP$7$F$D$1$k\e(B MIME charset \e$B$r<($9!#4X?t\e(B
+ charsets-to-mime-charset \e$B$d4X?t\e(B detect-mime-charset-region \e$B$,\e(B
+ \e$B$3$NJQ?t$r;2>H$9$k!#\e(B
+
+[\e$B4X?t\e(B] charsets-to-mime-charset CHARSETS
+
+ charset \e$B$N\e(B list `CHARSETS' \e$B$KBP1~$9$k\e(B MIME charset \e$B$rJV$9!#\e(B
+
+[\e$B4X?t\e(B] detect-mime-charset-region start end
+
+ `START' \e$B$H\e(B `END' \e$B$G0O$^$l$?NN0h$KBP1~$9$k\e(B MIME charset \e$B$rJV$9!#\e(B
+
+[\e$B4X?t\e(B] encode-mime-charset-region START END CHARSET
+
+ `START' \e$B$H\e(B `END' \e$B$G0O$^$l$?NN0h$r\e(B MIME charset `CHARSET' \e$B$G\e(B
+ encode \e$B$9$k!#\e(B
+
+[\e$B4X?t\e(B] encode-mime-charset-string STRING CHARSET
+
+ \e$BJ8;zNs\e(B `STRING' \e$B$r\e(B MIME charset `CHARSET' \e$B$G\e(B encode \e$B$9$k!#\e(B
+
+[\e$B4X?t\e(B] decode-mime-charset-string STRING CHARSET
+
+ \e$BJ8;zNs\e(B `STRING' \e$B$r\e(B MIME charset `CHARSET' \e$B$G\e(B decode \e$B$9$k!#\e(B
+
+
+* \e$BJ8;z\e(B code \e$B$K4X$9$k\e(B tm \e$B$N<BAu\e(B
+
+ \e$B$b$7!"AGD>$K\e(B charset \e$B$r<B8=$9$k$@$1$J$i\e(B emu API \e$B$r$=$N$^$^;H$($PNI$$\e(B
+\e$B$N$@$,!"<B:]$K$O\e(B VM \e$B$d\e(B RMAIL\e$B!J$*$h$S@N$N\e(B GNUS, Gnus\e$B!K$H$$$C$?\e(B raw
+buffer \e$B$r<B8=$7$K$/$$\e(B MUA \e$B$G$O\e(B charset \e$B$KBP1~$9$k$3$H$,:$Fq$G$"$k!#$3\e(B
+\e$B$N$?$a!"\e(Btm-view \e$B$O$3$N$h$&$J\e(B MUA \e$B$G$O=c?h$J0UL#$G$N\e(B raw buffer \e$B$N<B8=\e(B
+\e$B$rD|$a\e(B original article buffer \e$BCf$K4{$K\e(B charset \e$B$K0M$i$:$K\e(B code \e$BJQ49$7\e(B
+\e$B$?\e(B message \e$B$rF~$l$k$3$H$rG'$a$F$$$k!#\e(B
+
+ \e$B$h$C$F!"0J2<$N#2<oN`$N\e(B code \e$BJQ494X?t$r;H$$J,$1$kI,MW$,$"$k!#\e(B
+
+[\e$B4X?t\e(B] mime-charset/decode-buffer charset &optional encoding
+
+ current buffer \e$B$r\e(B MIME charset `charset' \e$B$GFbIt\e(B code \e$B$KJQ49$9\e(B
+ \e$B$k!#$3$N4X?t$O\e(B `encoding' \e$B$K0M$i$:I,$:\e(B code \e$BJQ49$r9T$J$&!#\e(B
+
+[\e$B4X?t\e(B] mime-charset/maybe-decode-buffer charset &optional encoding
+
+ `encoding' \e$B$,\e(B nil, "7bit", "8bit", "binary" \e$B0J30$N;~!"B($A!"\e(B
+ ASCII printable \e$B$J\e(B encode \e$B$,;\$5$l$F$$$k;~$N$_!"<B:]$K!"\e(B
+ current buffer \e$B$r\e(B MIME charset `charset' \e$B$GFbIt\e(B code \e$B$KJQ49$9\e(B
+ \e$B$k!#$=$l0J30$N;~$O!"2?$b$7$J$$!#\e(B
+
+
+* \e$BJ8;z\e(B code \e$B$K4X$9$k\e(B tm \e$B$N3&LL\e(B
+
+ MUA \e$B$K$h$C$FJ8;z\e(B code \e$B$r;H$$J,$1$k$?$a$K\e(B tm \e$B$O$3$3$G=R$Y$k$h$&$J3&LL\e(B
+\e$B$rDs6!$9$k!#\e(B
+
+[\e$BJQ?t\e(B] mime-viewer/code-converter-alist
+
+ \e$B$3$NJQ?t$O\e(B key \e$BIt$r\e(B major-mode, value \e$BIt$r\e(B code \e$BJQ494X?t$H$9$k\e(B
+ \e$BO"A[\e(B list \e$B$G$"$k!#$3$l$rMQ$$$F3F\e(B MUA \e$BKh$N\e(B code \e$BJQ494X?t$r@_Dj\e(B
+ \e$B$9$k!#\e(Bcode \e$BJQ494X?t$OA4@a$G=R$Y$?<BAu$rMQ$$$k$3$H!#\e(B
+
+[\e$BJQ?t\e(B] mime::article/code-converter
+
+ method \e$B$GMQ$$$i$l$k\e(B code \e$BJQ494X?t$r;XDj$9$k$?$a$N\e(B original
+ article buffer \e$B$N\e(B buffer local \e$BJQ?t$G$"$k!#JQ?t\e(B
+ `mime-viewer/code-converter-alist' \e$B$h$j$b9b$$M%@hEY$G;2>H$5$l\e(B
+ \e$B$k!#\e(B
+
+[\e$B4X?t\e(B] mime-preview/decode-text-buffer charset encoding
+
+ MIME charset `charset', MIME encoding `encoding' \e$B$GId9f2=$5$l\e(B
+ \e$B$?\e(B current buffer \e$B$r\e(B decode \e$B$9$k!#\e(Bcode \e$BJQ49$OJQ?t\e(B
+ `mime::article/code-converter' \e$B$*$h$S\e(B
+ `mime-viewer/code-converter-alist' \e$B$r;2>H$7$FF@$i$l$?4X?t$K$h$C\e(B
+ \e$B$F<B9T$5$l$k!#\e(B
+
+
+* \e$BJ8;z\e(B code \e$B4X78$N4X?t$N;H$$J}$N;X?K\e(B
+
+ tm-view \e$B$N\e(B method \e$B$,$"$k\e(B content \e$B$r$"$k\e(B charset, encoding \e$B$K=>$C$F\e(B
+decode \e$B$9$k>l9g$O4X?t\e(B mime-preview/decode-text-buffer \e$B$rMQ$$$k$3$H$H$9\e(B
+\e$B$k!#\e(B
+
+ tm-view \e$B$N\e(B method \e$B$K$*$$$F!"$"$k\e(B content \e$B$KBP$7$F:F5"E*$K\e(B preview
+buffer \e$B$r:n@.$9$k$h$&$J>l9g$G!"JQ?t\e(B mime::article/code-converter \e$B$r@_\e(B
+\e$BDj$9$kI,MW$,$"$k>l9g$O!"4X?t\e(B mime-charset/decode-buffer \e$B$*$h$S\e(B
+mime-charset/maybe-decode-buffer \e$B$rMQ$$$k$3$H$H$9$k!#\e(B
+
+ \e$B$=$l0J30$N>l9g$K$*$$$F!"<B:]$K\e(B code \e$BJQ49$r9T$J$&$h$&$J>l9g$O!"\e(Bemu
+API \e$B$N5!G=$rMQ$$$k$3$H$H$9$k!#\e(B
--- /dev/null
+\documentstyle[a4j]{jarticle}
+\setcounter{secnumdepth}{6}
+\setcounter{tocdepth}{6}
+\topsep=0.1cm
+\parsep=0.1cm
+\itemsep=0.0cm
+\begin{document}
+\title{
+tm ¤Ë¤ª¤±¤ëʸ»ú code ¤Î¼è¤ê°·¤¤¤Ë¤Ä¤¤¤Æ}
+\author{
+¼é²¬ ÃÎɧ\\
+}
+\date{
+1996ǯ7·î18Æü}
+\maketitle
+\medskip
+
+\section{charset ¼è¤ê°·¤¤¤Ë´Ø¤¹¤ë´ðËܸ¶Â§}
+\medskip
+\par
+tm ¤Ç¤Ï¸¶Â§¤È¤·¤Æ MIME ¤ÇÄê¤á¤é¤ì¤¿ charset µ¡¹½¤Ë´ð¤Å¤¤¤Æʸ»ú code
+¤ò¼è¤ê°·¤¦¡£¤³¤ì¤ò¼Â¸½¤¹¤ë¤¿¤á¤Ë¡¢message ¤òɽ¼¨¤¹¤ë¤¿¤á¤Î buffer
+(preview buffer; cooked buffer) ¤Î¾¤ËÀ¸¤Î¡Ê¨¤Á¡¢code ÊÑ´¹¤µ¤ì¤Æ¤ª¤é
+¤º network code ¤Î¤Þ¤Þ¤Î¡Ëmessage ¤¬Æþ¤Ã¤¿ buffer (original article
+buffer, raw buffer) ¤òÍѤ¤¤ë¤³¤È¤È¤¹¤ë¡£¤³¤Î¾ò·ï¤¬Ëþ¤¿¤µ¤ì¤ì¤Ð¡¢base64
+¤ä quoted-printable Åù¤Î encode ¤ò¹Ô¤Ê¤Ã¤Æ¤¤¤Ê¤¤¾ì¹ç¤Ç¤â¡¢£±¤Ä¤Î
+message ¤ËÊ£¿ô¤Îʸ»ú code ¤òº®ºß¤µ¤»¤ë¤³¤È¤¬¤Ç¤¤ë¡£
+\medskip
+\par
+¤·¤«¤·¤Ê¤¬¤é¡¢¸½¼Â¤Ë¤Ï´ö¤Ä¤«¤ÎÌäÂ꤬¸ºß¤¹¤ë¡££±¤Ä¤ÏÈó MIME message
+¤Î¼è¤ê°·¤¤¤Ç¤¢¤ê¡¢¤â¤¦°ì¤Ä¤Ï¾åµ¤Î¤è¤¦¤ÊÊýË¡¤ò¤È¤ë¤³¤È¤¬º¤Æñ¤Ê MUA ¤ò
+ÍøÍѤ¹¤ë¾ì¹ç¤Ç¤¢¤ë¡£Èó MIME message ¤ËÂФ·¤Æ¤Ï¡¢tm ¤Ï default ¤Î
+charset ¤ò²¾Äꤹ¤ë¤³¤È¤ÇÂн褷¤Æ¤¤¤ë¡£¸å¼Ô¤ÎÌäÂê¤Ë´Ø¤·¤Æ¤Ï MUA Ëè¤Ë
+code ÊÑ´¹ program ¤òÀßÄꤷ¡¢raw buffer ¤òºîÀ®¤¹¤ë¤³¤È¤¬º¤Æñ¤Ê MUA ¤Î¾ì
+¹ç¡¢7bit, 8bit, binary ¤Î¤è¤¦¤Ê encode ¤µ¤ì¤Æ¤¤¤Ê¤¤ message ¤Î charset
+¤Ë¤è¤ë code ÊÑ´¹¤ò¤ä¤á¤ë¤è¤¦¤Ë¤¹¤ë¤³¤È¤ÇÂн褷¤Æ¤¤¤ë¡£
+\medskip
+\par
+°Ê²¼¡¢¼ÂºÝ¤Îµ¡¹½¤Ë´Ø¤·¤ÆÀâÌÀ¤¹¤ë¡£
+\medskip
+\medskip
+
+\section{ʸ»ú code ¤Î¼è¤ê°·¤¤¤Ë´Ø¤¹¤ë layer ¹½Â¤}
+\medskip
+\par
+tm ¤Ï
+\medskip
+{\baselineskip=10pt
+\begin{verbatim}
+ (4) user interface layer (tm)
+ (3) non-interactive MIME feature layer (tm)
+ (2) MIME encoding layer (MEL) / utility function layer (tl)
+ (1) emu API layer
+ (0) (API of emacs variants)
+\end{verbatim}}
+\medskip
+\par
+¤È¤¤¤¦£µÁع½Â¤¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤¬¡¢Ê¸»ú code ¤Î¼è¤ê°·¤¤¤âƱÍͤǤ¢¤ë¡£
+\medskip
+\par
+Â裱ÁؤǤ¢¤ë emu API ¤ÇÁ´¤Æ¤Î emacs variant ¤ÇÍøÍѲÄǽ¤Ê´ðËÜ´Ø¿ô¤òÄó
+¶¡¤·¡¢Â裳ÁØ¤Ç tm-view ¤ÇÍøÍѤ¹¤ë¤¿¤á¤Î´ðËÜŪ¤Êµ¡Ç½¤ò¼Â¸½¤·¡¢Â裴ÁؤÇ
+¤½¤Î³¦Ì̤òÄêµÁ¤¹¤ë¡£
+\medskip
+\medskip
+
+\section{ʸ»ú code ¤Ë´Ø¤¹¤ë emu API ¤Îµ¡Ç½}
+\medskip
+\par
+EMACS ¤Ë¤Ï¡¢¸µÍ衢ʸ»ú¤È¤¤¤¦³µÇ°¤Ï¸ºß¤·¤Ê¤«¤Ã¤¿¡£¤è¤Ã¤Æ¡¢¤½¤ì¤ò°·¤¦
+¤¿¤á¤Îµ¡Ç½¤Ï¸ºß¤·¤Ê¤«¤Ã¤¿¡£
+\medskip
+\par
+emacs ¤ÎÀ¤³¦¤Ëʸ»ú code ¤È¤¤¤¦³µÇ°¤ò»ý¤Á¹þ¤ó¤À¤Î¤Ï NEmacs ¤Ç¤¢¤ë¡Ê¿
+ʬ(\verb+^+\_\verb+^+;¡Ë¡£NEmacs ¤Ï `JIS', `EUC', `Shift JIS'¡Ê¤ª¤è¤Ó̵ÊÑ´¹¡Ë¤È¤¤¤¦£³
+¼ïÎà¤Î¡Ø´Á»ú code¡Ù¤òƳÆþ¤·¤¿¡£¤½¤·¤Æ¡¢¤³¤ì¤ò¿ôÃͤÇɽ¸½¤·¤¿¡£
+\medskip
+\par
+NEmacs ¤ÏÆüËܸì¡Ê¤Î subset¡Ë¤·¤«°·¤¦É¬Íפ¬¤Ê¤«¤Ã¤¿¤Î¤Ç¹â¡¹£³¼ïÎà¤Îʸ
+»ú code ¤¬»È¤¨¤ì¤Ð½½Ê¬¤Ç¤¢¤Ã¤¿¤¬¡¢¤³¤ì¤ò¿¸À¸ì²½¤·¤¿ MULE ¤Ç¤Ï¤è¤ê¿¿ô
+¤Îʸ»ú code ¤¬°·¤¦¤³¤È¤¬Í׵ᤵ¤ì¡¢¤Þ¤¿¡¢user ¤¬Ê¸»ú code ¤òÄêµÁ¤Ç¤¤ë
+¤³¤È¤âɬÍפǤ¢¤Ã¤¿¡£¤³¤Î¤¿¤á¡¢¿ôÃͤǤϤʤ¯¡¢ÀèƬ¤ÈËöÈø¤Ë `*' ¤òÉÕ¤±¤¿
+¼«¸Êɾ²Á·Á¼°¤ÎÄê¿ô¤Çɽ¸½¤µ¤ì¤ë coding-system ¤È¤¤¤¦³µÇ°¤¬Æ³Æþ¤µ¤ì¤¿¡£
+\medskip
+\par
+XEmacs ¤Ë mule µ¡Ç½¤òƳÆþ¤·¤è¤¦¤È¤·¤¿¿Íã¤Ï¼«¸Êɾ²Á·Á¼°¤ÎÄê¿ô¤ÎÂå¤ï
+¤ê¤Ë coding-system ¤òɽ¤¹¿·¤¿¤Ê·¿¤òƳÆþ¤¹¤ë¤³¤È¤Ë¤·¤¿¡£¤Þ¤¿¡¢¤³¤Î·¿¤Ë
+Âбþ¤¹¤ë̾Á°¤ò symbol ¤ÇÍ¿¤¨¤¿¡£¤³¤Î¤¿¤á¡¢coding-system ¤òɽ¤¹ÂçÎ̤ÎÄê
+¿ô¤Ï°ìÁݤµ¤ì¤¿¡£
+\medskip
+\par
+¤³¤Î¤è¤¦¤Ë¡¢¸½Â¸¤¹¤ë emacs variants ¤Î´Ö¤Ç¤Ïʸ»ú code ¤Îɽ¸½Ë¡¤Ï¤µ¤Þ
+¤¶¤Þ¤Ç¤¢¤ë¡£¤â¤È¤â¤È¡¢emu ¤Ï¤³¤ÎʬÌî¤Ç¤â¤Ã¤È¤âµ¡Ç½¤Î¹â¤¤ MULE ¤ò¤ª¼êËÜ
+¤Ë¤³¤ì¤Îµ¡Ç½¤ò emulate ¤¹¤ë´Ø¿ô¤ò³Æ emacs variant ¤ËÂФ·¤ÆÄêµÁ¤¹¤ëÊýË¡
+¤òºÎ¤Ã¤¿¤¬¡¢MULE ¤ò¸µ¤Ë EMACS/MULE Åý¹çÈǤä XEmacs/mule ¤¬À¸¤Þ¤ì¤ë¤Ë½¾
+¤¤¡¢coding-system µ¡Ç½¤ò¤½¤Î¤Þ¤Þ»È¤¦¤Î¤ÏÆÀºö¤Ç¤Ï¤Ê¤¤¤ÈȽÃǤ¹¤ë¤Ë»ê¤Ã¤¿¡£
+Âå¤ï¤ê¤Ë¤è¤êÃê¾ÝÅ٤ι⤤ MIME charset ¤Ë´Ø¤¹¤ë API ¤òÍÑ°Õ¤¹¤ë¤³¤È¤Ë¤·
+¤¿¡£
+\medskip
+\par
+MIME charset ¤Ïʸ»ú code ¤òɽ¤¹¤â¤Î¤Ç¤¢¤ê¡¢MULE ¤Ç¤¤¤¦¤È¤³¤í¤Î
+leading-char ¤ä EMACS/MULE ¤ä XEmacs/mule ¤Ç¤¤¤¦¤È¤³¤í¤Î charset ¤ËÁê
+Åö¤¹¤ë¤â¤Î¤Ç¤Ï¤Ê¤¯¡¢mule ¤Î coding-system ¤ËÁêÅö¤¹¤ëµ¡Ç½¤Ç¤¢¤ë¡£¼ÂºÝ¡¢
+mule ¤Î coding-system ¤Î̾Á°¤È MIME charset ¤Î̾Á°¤Ï¶¦Ä̤¹¤ë¤â¤Î¤â¾¯¤Ê
+¤¯¤Ê¤¤¡£
+\medskip
+\par
+MIME charset ¤Îɽ¸½¤Î»ÅÊý¤È¤·¤Æ¡¢emu API ¤Ç¤Ï XEmacs/mule ¤ÈƱÍÍ¡¢
+symbol ¤òÍѤ¤¤ë¤³¤È¤Ë¤·¤¿¡£MULE ¤Î¤è¤¦¤ÊÊÑ¿ô¤ò»È¤¦¤È«Çû¤Ë´Ø¤¹¤ë check
+¤¬É¬ÍפǤ¢¤ë¤¬¡¢symbol ¤Ç¤Ï¤³¤Î¤è¤¦¤Ê check ¤ÏÉÔÍפǤ¢¤ë¡£¤Þ¤¿¡¢¾ÍèŪ
+¤Ë¡¢XEmacs/mule ¤ÎÊýË¡¤ËÅý¹ç¤µ¤ì¤ë¤³¤È¤ò´üÂÔ¤¹¤ë°ÕÌ£¤â¤¢¤ë¡£¼ÂºÝ¡¢
+XEmacs/mule ¤È emu API ¤Î´Ö¤Î gap ¤Ï¾¯¤Ê¤¯¡¢¾Íè¡¢Á´¤Æ¤Î MIME charset
+¤¬ XEmacs/mule ¤Î coding-system ¤È¤·¤ÆÄêµÁ¤µ¤ì¤ì¤Ð¡¢emu ¤È¤·¤Æ¤³¤ì¤òÍÑ
+°Õ¤¹¤ëɬÍפϤʤ¯¤Ê¤ë¤À¤í¤¦¡£
+\medskip
+\par
+¤µ¤Æ¡¢°Ê²¼¤Ç¤Ï¼ÂºÝ¤Îµ¡Ç½¤ò²òÀ⤹¤ë¡£
+\medskip
+\begin{description}
+\item[{[}ÊÑ¿ô{]}]charsets-mime-charset-alist
+\medskip
+\par
+Key Éô¤Ë charset ¤Î list, value Éô¤Ë mime-charset ¤ò¤È¤ëÏ¢ÁÛ¥ê
+¥¹¥È¡£´Ø¿ô charsets-to-mime-charset ¤ä´Ø¿ô
+detect-mime-charset-region ¤¬¤³¤ÎÊÑ¿ô¤ò»²¾È¤¹¤ë¡£
+\medskip
+\item[{[}ÊÑ¿ô{]}]default-mime-charset
+\medskip
+\par
+ÊÑ¿ô charsets-mime-charset-alist ¤ÇÄêµÁ¤µ¤ì¤Æ¤¤¤Ê¤¤ charset ¤Î
+list ¤ËÂФ·¤Æ¤Ä¤±¤ë MIME charset ¤ò¼¨¤¹¡£´Ø¿ô
+charsets-to-mime-charset ¤ä´Ø¿ô detect-mime-charset-region ¤¬
+¤³¤ÎÊÑ¿ô¤ò»²¾È¤¹¤ë¡£
+\medskip
+\item[{[}´Ø¿ô{]}]charsets-to-mime-charset CHARSETS
+\medskip
+\par
+charset ¤Î list `CHARSETS' ¤ËÂбþ¤¹¤ë MIME charset ¤òÊÖ¤¹¡£
+\medskip
+\item[{[}´Ø¿ô{]}]detect-mime-charset-region start end
+\medskip
+\par
+`START' ¤È `END' ¤Ç°Ï¤Þ¤ì¤¿Îΰè¤ËÂбþ¤¹¤ë MIME charset ¤òÊÖ¤¹¡£
+\medskip
+\item[{[}´Ø¿ô{]}]encode-mime-charset-region START END CHARSET
+\medskip
+\par
+`START' ¤È `END' ¤Ç°Ï¤Þ¤ì¤¿Îΰè¤ò MIME charset `CHARSET' ¤Ç
+encode ¤¹¤ë¡£
+\medskip
+\item[{[}´Ø¿ô{]}]encode-mime-charset-string STRING CHARSET
+\medskip
+\par
+ʸ»úÎó `STRING' ¤ò MIME charset `CHARSET' ¤Ç encode ¤¹¤ë¡£
+\medskip
+\item[{[}´Ø¿ô{]}]decode-mime-charset-string STRING CHARSET
+\medskip
+\par
+ʸ»úÎó `STRING' ¤ò MIME charset `CHARSET' ¤Ç decode ¤¹¤ë¡£
+\medskip
+\medskip
+\end{description}
+
+\section{ʸ»ú code ¤Ë´Ø¤¹¤ë tm ¤Î¼ÂÁõ}
+\medskip
+\par
+¤â¤·¡¢ÁÇľ¤Ë charset ¤ò¼Â¸½¤¹¤ë¤À¤±¤Ê¤é emu API ¤ò¤½¤Î¤Þ¤Þ»È¤¨¤ÐÎɤ¤
+¤Î¤À¤¬¡¢¼ÂºÝ¤Ë¤Ï VM ¤ä RMAIL¡Ê¤ª¤è¤ÓÀΤΠGNUS, Gnus¡Ë¤È¤¤¤Ã¤¿ raw
+buffer ¤ò¼Â¸½¤·¤Ë¤¯¤¤ MUA ¤Ç¤Ï charset ¤ËÂбþ¤¹¤ë¤³¤È¤¬º¤Æñ¤Ç¤¢¤ë¡£¤³
+¤Î¤¿¤á¡¢tm-view ¤Ï¤³¤Î¤è¤¦¤Ê MUA ¤Ç¤Ï½ã¿è¤Ê°ÕÌ£¤Ç¤Î raw buffer ¤Î¼Â¸½
+¤òÄü¤á original article buffer Ãæ¤Ë´û¤Ë charset ¤Ë°Í¤é¤º¤Ë code ÊÑ´¹¤·
+¤¿ message ¤òÆþ¤ì¤ë¤³¤È¤òǧ¤á¤Æ¤¤¤ë¡£
+\medskip
+\par
+¤è¤Ã¤Æ¡¢°Ê²¼¤Î£²¼ïÎà¤Î code ÊÑ´¹´Ø¿ô¤ò»È¤¤Ê¬¤±¤ëɬÍפ¬¤¢¤ë¡£
+\medskip
+\begin{description}
+\item[{[}´Ø¿ô{]}]mime-charset/decode-buffer charset \&optional encoding
+\medskip
+\par
+current buffer ¤ò MIME charset `charset' ¤ÇÆâÉô code ¤ËÊÑ´¹¤¹
+¤ë¡£¤³¤Î´Ø¿ô¤Ï `encoding' ¤Ë°Í¤é¤ºÉ¬¤º code ÊÑ´¹¤ò¹Ô¤Ê¤¦¡£
+\medskip
+\item[{[}´Ø¿ô{]}]mime-charset/maybe-decode-buffer charset \&optional encoding
+\medskip
+\par
+`encoding' ¤¬ nil, "7bit", "8bit", "binary" °Ê³°¤Î»þ¡¢Â¨¤Á¡¢
+ASCII printable ¤Ê encode ¤¬»Ü¤µ¤ì¤Æ¤¤¤ë»þ¤Î¤ß¡¢¼ÂºÝ¤Ë¡¢
+current buffer ¤ò MIME charset `charset' ¤ÇÆâÉô code ¤ËÊÑ´¹¤¹
+¤ë¡£¤½¤ì°Ê³°¤Î»þ¤Ï¡¢²¿¤â¤·¤Ê¤¤¡£
+\medskip
+\medskip
+\end{description}
+
+\section{ʸ»ú code ¤Ë´Ø¤¹¤ë tm ¤Î³¦ÌÌ}
+\medskip
+\par
+MUA ¤Ë¤è¤Ã¤Æʸ»ú code ¤ò»È¤¤Ê¬¤±¤ë¤¿¤á¤Ë tm ¤Ï¤³¤³¤Ç½Ò¤Ù¤ë¤è¤¦¤Ê³¦ÌÌ
+¤òÄ󶡤¹¤ë¡£
+\medskip
+\begin{description}
+\item[{[}ÊÑ¿ô{]}]mime-viewer/code-converter-alist
+\medskip
+\par
+¤³¤ÎÊÑ¿ô¤Ï key Éô¤ò major-mode, value Éô¤ò code ÊÑ´¹´Ø¿ô¤È¤¹¤ë
+Ï¢ÁÛ list ¤Ç¤¢¤ë¡£¤³¤ì¤òÍѤ¤¤Æ³Æ MUA Ëè¤Î code ÊÑ´¹´Ø¿ô¤òÀßÄê
+¤¹¤ë¡£code ÊÑ´¹´Ø¿ô¤ÏÁ´Àá¤Ç½Ò¤Ù¤¿¼ÂÁõ¤òÍѤ¤¤ë¤³¤È¡£
+\medskip
+\item[{[}ÊÑ¿ô{]}]mime::article/code-converter
+\medskip
+\par
+method ¤ÇÍѤ¤¤é¤ì¤ë code ÊÑ´¹´Ø¿ô¤ò»ØÄꤹ¤ë¤¿¤á¤Î original
+article buffer ¤Î buffer local ÊÑ¿ô¤Ç¤¢¤ë¡£ÊÑ¿ô
+`mime-viewer/code-converter-alist' ¤è¤ê¤â¹â¤¤Í¥ÀèÅ٤ǻ²¾È¤µ¤ì
+¤ë¡£
+\medskip
+\item[{[}´Ø¿ô{]}]mime-preview/decode-text-buffer charset encoding
+\medskip
+\par
+MIME charset `charset', MIME encoding `encoding' ¤ÇÉä¹æ²½¤µ¤ì
+¤¿ current buffer ¤ò decode ¤¹¤ë¡£code ÊÑ´¹¤ÏÊÑ¿ô
+`mime::article/code-converter' ¤ª¤è¤Ó
+`mime-viewer/code-converter-alist' ¤ò»²¾È¤·¤ÆÆÀ¤é¤ì¤¿´Ø¿ô¤Ë¤è¤Ã
+¤Æ¼Â¹Ô¤µ¤ì¤ë¡£
+\medskip
+\medskip
+\end{description}
+
+\section{ʸ»ú code ´Ø·¸¤Î´Ø¿ô¤Î»È¤¤Êý¤Î»Ø¿Ë}
+\medskip
+\par
+tm-view ¤Î method ¤¬¤¢¤ë content ¤ò¤¢¤ë charset, encoding ¤Ë½¾¤Ã¤Æ
+decode ¤¹¤ë¾ì¹ç¤Ï´Ø¿ô mime-preview/decode-text-buffer ¤òÍѤ¤¤ë¤³¤È¤È¤¹
+¤ë¡£
+\medskip
+\par
+tm-view ¤Î method ¤Ë¤ª¤¤¤Æ¡¢¤¢¤ë content ¤ËÂФ·¤ÆºÆµ¢Åª¤Ë preview
+buffer ¤òºîÀ®¤¹¤ë¤è¤¦¤Ê¾ì¹ç¤Ç¡¢ÊÑ¿ô mime::article/code-converter ¤òÀß
+Äꤹ¤ëɬÍפ¬¤¢¤ë¾ì¹ç¤Ï¡¢´Ø¿ô mime-charset/decode-buffer ¤ª¤è¤Ó
+mime-charset/maybe-decode-buffer ¤òÍѤ¤¤ë¤³¤È¤È¤¹¤ë¡£
+\medskip
+\par
+¤½¤ì°Ê³°¤Î¾ì¹ç¤Ë¤ª¤¤¤Æ¡¢¼ÂºÝ¤Ë code ÊÑ´¹¤ò¹Ô¤Ê¤¦¤è¤¦¤Ê¾ì¹ç¤Ï¡¢emu
+API ¤Îµ¡Ç½¤òÍѤ¤¤ë¤³¤È¤È¤¹¤ë¡£
+\end{document}
+Wed Jul 24 10:04:54 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm/gnus: Version 7.79 was released.
+
+Thu Jul 18 12:17:11 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-gnus5.el (tm-gnus/content-header-filter): Use function
+ `decode-mime-charset-region' instead of
+ `tm-gnus/content-header-filter'.
+
+ (mime-viewer/code-converter-alist): set
+ `mime-charset/decode-buffer' instead of
+ `mime-charset-decode-region'.
+
+\f
Wed Jul 17 05:39:11 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tm/gnus: Version 7.78 was released.
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; and KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
;;; Created: 1995/09/24
-;;; Version: $Revision: 7.78 $
+;;; Version: $Revision: 7.79 $
;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
;;;
;;; This file is part of tm (Tools for MIME).
;;;
(defconst tm-gnus/RCS-ID
- "$Id: tm-gnus5.el,v 7.78 1996/07/14 16:37:27 morioka Exp $")
+ "$Id: tm-gnus5.el,v 7.79 1996/07/18 12:17:11 morioka Exp $")
(defconst tm-gnus/version
(concat (get-version-string tm-gnus/RCS-ID) " for Gnus 5.2 or later"))
(defun tm-gnus/content-header-filter ()
(goto-char (point-min))
(mime-preview/cut-header)
- (mime-charset-decode-region (point-min)(point-max) default-mime-charset)
+ (decode-mime-charset-region (point-min)(point-max) default-mime-charset)
(mime/decode-message-header)
)
(set-alist 'mime-viewer/code-converter-alist
'gnus-original-article-mode
- (function mime-charset-decode-region))
+ (function mime-charset/decode-buffer))
(defun mime-viewer/quitting-method-for-gnus5 ()
(if (not gnus-show-mime)
;;; -*-Emacs-Lisp-*-
;;;
-;;; $Id: inst-tm,v 7.7 1996/06/27 15:49:37 morioka Exp $
+;;; $Id: inst-tm,v 7.8 1996/07/22 18:29:22 morioka Exp $
;;;
(load-file "TM-CFG")
))
(defun install-el-files (src dest &rest files)
+ (or (file-exists-p dest)
+ (make-directory dest t)
+ )
(mapcar (function (lambda (file)
(install-el-file src dest file)
))
files))
(defun install-el-and-elc-files (src dest el-files elc-files)
- (if (not (file-exists-p dest))
- (make-directory dest t)
- )
(apply (function install-el-files) src dest el-files)
(apply (function install-elc-files) src dest elc-files)
)
+Wed Jul 24 10:07:45 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm/mh-e: Version 7.65 was released.
+
+Mon Jul 22 18:24:08 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-mh-e3.el (mh-send-prog): New variable.
+
+Thu Jul 18 12:29:17 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-mh-e.el (tm-mh-e/decode-charset-buffer): New alias; renamed
+ from `tm-mh-e/charset-decode-region'; Use function
+ `mime-charset/decode-buffer' instead of
+ `mime-charset-decode-region'.
+
+ (mime-viewer/code-converter-alist): set
+ `tm-mh-e/decode-charset-buffer' instead of
+ `tm-mh-e/charset-decode-region'.
+
+ (tm-mh-e/content-header-filter): Use function
+ `tm-mh-e/decode-charset-buffer' instead of
+ `tm-mh-e/charset-decode-region'.
+
+\f
Wed Jul 17 05:38:04 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tm/mh-e: Version 7.64 was released.
;;; modified by YAMAOKA Katsumi <yamaoka@ga.sony.co.jp>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1993/11/21 (obsolete mh-e-mime.el)
-;;; Version: $Revision: 7.64 $
+;;; Version: $Revision: 7.65 $
;;; Keywords: mail, MH, MIME, multimedia, encoded-word, multilingual
;;;
;;; This file is part of tm (Tools for MIME).
;;;
(defconst tm-mh-e/RCS-ID
- "$Id: tm-mh-e.el,v 7.64 1996/07/14 15:08:16 morioka Exp $")
+ "$Id: tm-mh-e.el,v 7.65 1996/07/18 12:29:17 morioka Exp $")
(defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
;;; @ for tm-view
;;;
-(fset 'tm-mh-e/charset-decode-region
- (symbol-function 'mime-charset-decode-region))
+(fset 'tm-mh-e/decode-charset-buffer
+ (symbol-function 'mime-charset/decode-buffer))
(set-alist 'mime-viewer/code-converter-alist
'mh-show-mode
- (function tm-mh-e/charset-decode-region))
+ (function tm-mh-e/decode-charset-buffer))
(defun tm-mh-e/content-header-filter ()
(goto-char (point-min))
(mime-preview/cut-header)
- (tm-mh-e/charset-decode-region (point-min)(point-max) default-mime-charset)
+ (tm-mh-e/decode-charset-buffer default-mime-charset)
(mime/decode-message-header)
)
;;;
-;;; $Id: tm-mh-e3.el,v 7.1 1995/12/04 03:43:30 morioka Exp $
+;;; tm-mh-e3.el --- tm-mh-e module for mh-e 3.* to emulate mh-e 4.*.
;;;
-;;; This is a part of tm-mh-e.el which is a module for old mh-e
-;;; to emulate mh-e 4.*.
+;;; Copyright (C) 1995 Free Software Foundation, Inc.
+;;; Copyright (C) 1993 .. 1996 MORIOKA Tomohiko
;;;
-;;; This module imports from mh-e 4.1.
+;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; (This module was imported from mh-e 4.1)
+;;; Created: 1994/7/10
+;;; Version:
+;;; $Id: tm-mh-e3.el,v 7.2 1996/07/22 18:24:08 morioka Exp $
+;;; Keywords: mail, MH, mh-e 3, MIME, multimedia, encoded-word, multilingual
;;;
+;;; This file is part of tm (Tools for MIME).
+;;;
+;;; This program is free software; you can redistribute it and/or
+;;; modify it under the terms of the GNU General Public License as
+;;; published by the Free Software Foundation; either version 2, or
+;;; (at your option) any later version.
+;;;
+;;; This program is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with This program. If not, write to the Free Software
+;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;;;
+;;; Code:
(require 'mh-e)
+(defvar mh-send-prog "send"
+ "Name of the MH send program.
+Some sites need to change this because of a name conflict.")
(defvar mail-citation-hook nil
"*Hook for modifying a citation just inserted in the mail buffer.
;;;
(provide 'tm-mh-e3)
+
+;;; tm-mh-e3.el ends here
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: tm-def.el,v 7.61 1996/07/15 14:03:57 morioka Exp $
+;;; $Id: tm-def.el,v 7.62 1996/07/18 06:04:28 morioka Exp $
;;; Keywords: mail, news, MIME, multimedia, definition
;;;
;;; This file is part of tm (Tools for MIME).
mime-charset-type-list))
-;;; @ coding-system
-;;;
-
-(defun mime-charset-decode-region (beg end charset &optional encoding)
- (decode-mime-charset-region beg end (or charset default-mime-charset))
- )
-
-
;;; @ button
;;;
;;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1994/08/21 renamed from mime.el
-;;; Version: $Revision: 7.72 $
+;;; Version: $Revision: 7.73 $
;;; Keywords: mail, news, MIME, multimedia, multilingual
;;;
;;; This file is part of tm (Tools for MIME).
;;;
(defconst mime-editor/RCS-ID
- "$Id: tm-edit.el,v 7.72 1996/07/15 08:19:01 morioka Exp $")
+ "$Id: tm-edit.el,v 7.73 1996/07/22 19:29:42 morioka Exp $")
(defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
;;;
(defvar mime/editor-mode-old-local-map nil)
-(defvar mime/editor-mode-old-selective-display nil)
(defvar mime/editing-buffer nil)
\f
"MIME minor mode for editing the tagged MIME message.
In this mode, basically, the message is composed in the tagged MIME
-format. The message tag looks like:
+format. The message tag looks like:
`--[[text/plain; charset=ISO-2022-JP][7bit]]'.
The tag specifies the MIME content type, subtype, optional parameters
-and transfer encoding of the message following the tag. Messages
-without any tag are treated as `text/plain' by default. Charset and
+and transfer encoding of the message following the tag. Messages
+without any tag are treated as `text/plain' by default. Charset and
transfer encoding are automatically defined unless explicitly
-specified. Binary messages such as audio and image are usually hidden
-using selective-display facility. The messages in the tagged MIME
-format are automatically translated into a MIME compliant message when
-exiting this mode.
+specified. Binary messages such as audio and image are usually hidden.
+The messages in the tagged MIME format are automatically translated
+into a MIME compliant message when exiting this mode.
-Available charsets depend on Emacs version being used. The following
+Available charsets depend on Emacs version being used. The following
lists the available charsets of each emacs.
-Emacs18: US-ASCII is only available.
+EMACS 18: US-ASCII is only available.
NEmacs: US-ASCII and ISO-2022-JP are available.
-Emacs19: US-ASCII and ISO-8859-1 are available.
-Mule: US-ASCII, ISO-8859-* (except for ISO-8859-6),
- ISO-2022-JP, ISO-2022-JP-2 and ISO-2022-INT-1 are available.
-
-ISO-2022-JP-2 and ISO-2022-INT-1 charsets used in Mule is expected to
-be used to represent multilingual text in intermixed manner. Any
+EMACS 19: US-ASCII and ISO-8859-1 (or other charset) are available.
+XEmacs 19: US-ASCII and ISO-8859-1 (or other charset) are available.
+Mule: US-ASCII, ISO-8859-* (except for ISO-8859-5), KOI8-R,
+ ISO-2022-JP, ISO-2022-JP-2, ISO-2022-KR, BIG5 and
+ ISO-2022-INT-1 are available.
+
+ISO-2022-JP-2 and ISO-2022-INT-1 charsets used in mule is expected to
+be used to represent multilingual text in intermixed manner. Any
languages that has no registered charset are represented as either
-ISO-2022-JP-2 or ISO-2022-INT-1 in Mule.
+ISO-2022-JP-2 or ISO-2022-INT-1 in mule.
+
+If you want to use non-ISO-8859-1 charset in EMACS 19 or XEmacs 19,
+please set variable `default-mime-charset'. This variable must be
+symbol of which name is a MIME charset.
+
+If you want to add more charsets in mule, please set variable
+`charsets-mime-charset-alist'. This variable must be alist of which
+key is list of leading-char/charset and value is symbol of MIME
+charset. (leading-char is a term of MULE 1.* and 2.*. charset is a
+term of XEmacs/mule, mule merged EMACS and MULE 3.*) If name of
+coding-system is different as MIME charset, please set variable
+`mime-charset-coding-system-alist'. This variable must be alist of
+which key is MIME charset and value is coding-system.
Following commands are available in addition to major mode commands:
\\[mime-editor/insert-text] insert a text message.
))
;; end
- ;; Remember old selective-display.
- (make-local-variable 'mime/editor-mode-old-selective-display)
- (setq mime/editor-mode-old-selective-display selective-display)
- (setq selective-display t)
+ (enable-invisible)
+
;; I don't care about saving these.
(setq paragraph-start
(regexp-or mime-editor/single-part-tag-regexp
(t
(use-local-map mime/editor-mode-old-local-map)))
- (setq selective-display mime/editor-mode-old-selective-display)
+ (end-of-invisible)
(set-buffer-modified-p (buffer-modified-p))
(run-hooks 'mime-editor/exit-hook)
(message "Exit MIME editor mode.")
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1995/12/7
;;; Version:
-;;; $Id: tm-pgp.el,v 7.18 1996/07/15 14:03:34 morioka Exp $
+;;; $Id: tm-pgp.el,v 7.19 1996/07/18 12:20:32 morioka Exp $
;;; Keywords: mail, news, MIME, multimedia, PGP, security
;;;
;;; This file is part of tm (Tools for MIME).
(and
(search-forward "\n\n")
(match-end 0)))
- (setq code-converter (function mime-charset-decode-region))
+ (setq code-converter (function mime-charset/decode-buffer))
))
(setq major-mode 'mime/show-message-mode)
(setq mime::article/code-converter code-converter)
;;;
-;;; tm-text.el --- a tm-view content filter to display
+;;; tm-text.el --- a content filter module of tm-view to display
;;; text/plain, text/richtext and text/enriched
;;; in Emacs buffers
;;;
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: tm-text.el,v 7.12 1996/05/27 08:14:11 morioka Exp $
+;;; $Id: tm-text.el,v 7.20 1996/07/18 12:46:20 morioka Exp $
;;; Keywords: mail, news, MIME, multimedia, text
;;;
;;; This file is part of tm (Tools for MIME).
;;;
(defvar mime-viewer/code-converter-alist
- '((mime/show-message-mode . mime-charset-decode-region)
- (mime/temporary-message-mode . mime-charset-decode-region)
- (t . mime-viewer/default-code-convert-region)
+ '((mime/show-message-mode . mime-charset/decode-buffer)
+ (mime/temporary-message-mode . mime-charset/decode-buffer)
+ (t . mime-charset/maybe-decode-buffer)
))
-(defun mime-viewer/default-code-convert-region
- (beg end charset &optional encoding)
- (if (member encoding '("quoted-printable" "base64"))
- (mime-charset-decode-region beg end charset)
- ))
+(defun mime-charset/decode-buffer (charset &optional encoding)
+ (decode-mime-charset-region (point-min)(point-max)
+ (or charset default-mime-charset))
+ )
-(defun mime-preview/decode-text-region (beg end charset encoding)
- (mime-decode-region beg end encoding)
+(defun mime-charset/maybe-decode-buffer (charset &optional encoding)
+ (or (member encoding '(nil "7bit" "8bit" "binary"))
+ (mime-charset/decode-buffer beg end charset)
+ ))
+
+(defun mime-preview/decode-text-buffer (charset encoding)
+ (mime-decode-region (point-min) (point-max) encoding)
(let* ((mode mime::preview/original-major-mode)
(m (or (save-excursion
(set-buffer mime::preview/article-buffer)
))
)
(and (functionp m)
- (funcall m beg (point-max) charset encoding)
+ (funcall m charset encoding)
)))
;;;
(defun mime-preview/filter-for-text/plain (ctype params encoding)
- (let ((charset (cdr (assoc "charset" params)))
- (beg (point-min)) (end (point-max))
- )
- (mime-preview/decode-text-region beg end charset encoding)
- )
+ (mime-preview/decode-text-buffer (cdr (assoc "charset" params)) encoding)
(goto-char (point-max))
(if (not (eq (char-after (1- (point))) ?\n))
(insert "\n")
(defun mime-preview/filter-for-text/richtext (ctype params encoding)
(let* ((mode mime::preview/original-major-mode)
(m (assq mode mime-viewer/code-converter-alist))
- (charset (assoc "charset" params))
- ;; 1995/9/21 (c.f. tm-eng:105), 1995/10/3 (c.f. tm-eng:121)
- ;; modified by Eric Ding <ericding@San-Jose.ate.slb.com>
- (beg (point-min)) (end (point-max))
+ (charset (cdr (assoc "charset" params)))
+ (beg (point-min))
)
- (remove-text-properties beg end '(face nil))
- (mime-decode-region beg end encoding)
- (if (and m (fboundp (setq m (cdr m))))
- (funcall m beg (point-max) charset encoding)
- (mime-viewer/default-code-convert-region beg (point-max)
- charset encoding)
- )
+ (remove-text-properties beg (point-max) '(face nil))
+ (mime-preview/decode-text-buffer charset encoding)
(richtext-decode beg (point-max))
))
(defun mime-preview/filter-for-text/enriched (ctype params encoding)
(let* ((mode mime::preview/original-major-mode)
(m (assq mode mime-viewer/code-converter-alist))
- (charset (assoc "charset" params))
- ;; 1995/9/21 (c.f. tm-eng:105), 1995/10/3 (c.f. tm-eng:121)
- ;; modified by Eric Ding <ericding@San-Jose.ate.slb.com>
- (beg (point-min)) (end (point-max))
+ (charset (cdr (assoc "charset" params)))
+ (beg (point-min))
)
- (remove-text-properties beg end '(face nil))
- (mime-decode-region beg end encoding)
- (if (and m (fboundp (setq m (cdr m))))
- (funcall m beg (point-max) charset encoding)
- (mime-viewer/default-code-convert-region beg (point-max)
- charset encoding)
- )
+ (remove-text-properties beg (point-max) '(face nil))
+ (mime-preview/decode-text-buffer charset encoding)
(enriched-decode beg (point-max))
))
projects / elisp / tm.git / commitdiff