From: tomo Date: Tue, 10 Mar 1998 04:58:46 +0000 (+0000) Subject: This commit was manufactured by cvs2svn to create tag 'tm7_86'. X-Git-Tag: tm7_86 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=64b6aa71a328c159ffd242cb7609826a08c330f4;p=elisp%2Ftm.git This commit was manufactured by cvs2svn to create tag 'tm7_86'. --- diff --git a/Changes-6.50-6.54.ja b/Changes-6.50-6.54.ja deleted file mode 100644 index d53b825..0000000 --- a/Changes-6.50-6.54.ja +++ /dev/null @@ -1,101 +0,0 @@ -tm-view.el ----------------------------- -revision 6.54 -date: 1995/06/13 22:31:38; author: morioka; state: Exp; lines: +19 -8 -application/octet-stream $B$N(B Content-Transfer-Encoding $B$,B8:_$7$J$$$+(B -7bit $B$+(B 8bit $B$N;~0J30$G$OI=<($7$J$$$h$&$K4X?t(B -mime-viewer/body-visible-p $B$r=$@5$7$?!#(B ----------------------------- -revision 6.53 -date: 1995/06/13 21:14:30; author: morioka; state: Exp; lines: +2 -4 -$BJQ?t(B mime-viewer/code-converter-alist $B$N4{DjCM$N(B mh-e $BMQ$N@_Dj$r:o=|$7(B -$B$?!#(B ----------------------------- -revision 6.52 -date: 1995/06/13 21:10:33; author: morioka; state: Exp; lines: +49 -30 -$B$A$g$C$HJB$YJQ$($F@0M}$7$?!#(B ----------------------------- -revision 6.51 -date: 1995/06/13 20:58:46; author: morioka; state: Exp; lines: +22 -12 -uuencode $B$N;~!"(Buuencode $B$H$7$F$N(B file $BL>$rM%@h$7$F;2>H$9$k$h$&$K4X?t(B -mime-viewer/get-subject $B$r=$@5$7$?!#(B ----------------------------- - -tm-mh-e.el ----------------------------- -revision 6.18 -date: 1995/06/20 21:07:39; author: morioka; state: Exp; lines: +34 -32 -article buffer $B$*$h$S(B preview buffer $B$,(B read-only $B$K$J$C$F$$$J$+$C$?IT(B -$B6q9g$r=$@5$7$?!#(B ----------------------------- -revision 6.17 -date: 1995/06/19 18:57:08; author: morioka; state: Exp; lines: +5 -1 -$B4X?t(B tm-mh-e/display-msg $B$G!"(B*noconv* $B$GFI$_9~$`>l9g!"2~9T5-9f$,(B CR LF -$B$N>l9g(B CR $B$r=|5n$9$k$h$&$K=$@5$7$?!#(B ----------------------------- -revision 6.16 -date: 1995/06/15 22:06:31; author: morioka; state: Exp; lines: +19 -13 -page-msg $B$H(B previous-page $B$K$*$$$F!"(Btm-mh-e/decode-all $B$,(B nil $B$N>l9g!"(B -original $B$N4X?t$r8F$V$h$&$K$7$?!#(B ----------------------------- -revision 6.15 -date: 1995/06/15 20:07:53; author: morioka; state: Exp; lines: +9 -6 -$B4X?t(B tm-mh-e/toggle-decoding-mode $B$G!"(Btm-mh-e/decode-all $B$r(B nil $B$K$7$?(B -$B;~$K(B preview buffer $B$,$&$^$/(B kill $B$5$l$J$$IT6q9g$r=$@5$7$?!#(B ----------------------------- -revision 6.14 -date: 1995/06/15 13:33:45; author: morioka; state: Exp; lines: +6 -2 -$B4X?t(B tm-mh-e/toggle-decoding-mode $B$G(B tm-mh-e/decode-all $B$r(B nil $B$K$9$k(B -$B;~!"(Bpreview buffer $B$r(B kill $B$9$k$h$&$K$7$?!#(B ----------------------------- -revision 6.13 -date: 1995/06/15 13:28:02; author: morioka; state: Exp; lines: +6 -4 -$B;32,(B $B9nH~(B $B$5$s[)$/!'(B -====================================================================== - $B#1!%%a!<%k$rFI$s$G$$$k$H$-$K=i$a$F(B "\et" (tm-mh-e/toggle-decoding-mode) - $B$r%?%$%W$9$k$H!"(Bview-mode $B$N%P%C%U%!$,L5$$$N$G$*$+$7$J$3$H$K$J$j(B - $B$^$9!#(B - - $B#2!%>e5-$H4XO"$7$^$9$,!"(Bshow-buffer $B$,(B mh-show-mode $B$K$J$C$F$$$k$H$-(B - $B$K(B "\et" $B$r%?%$%W$9$k$H!"0JA0$K(B "v" (tm-mh-e/view-message) $B$r $B$5$s$N;XE&$K=>$$!"(B -mime/viewer-mode $B$r. ----------------------------- - -mh-e/tm-mh-e.el ----------------------------- -revision 6.23 -date: 1995/07/17 16:37:20; author: morioka; state: Exp; lines: +2 -2 -Fixed function `tm-mh-e/cite' about folded fields. ----------------------------- -revision 6.22 -date: 1995/07/06 18:35:17; author: morioka; state: Exp; lines: +12 -6 -Fixed function `tm-mh-e/summary-before-quit'. ----------------------------- -revision 6.21 -date: 1995/06/22 12:02:13; author: morioka; state: Exp; lines: +13 -1 -Set to variable `mh-before-quit-hook' a function to kill preview-buffer. ----------------------------- - -gnus/tm-dgnus.el ----------------------------- -revision 6.9 -date: 1995/07/03 07:50:58; author: morioka; state: Exp; lines: +6 -1 -Fixed function `tm-gnus/view-message' for Emacs 19.29. ----------------------------- -revision 6.8 -date: 1995/06/28 17:38:41; author: morioka; state: Exp; lines: +41 -39 -Defined macro `gnus-get-article-buffer'. ----------------------------- -revision 6.7 -date: 1995/06/27 06:25:04; author: morioka; state: Exp; lines: +2 -1 -Added (require 'tl-list). ----------------------------- diff --git a/Changes-6.64-6.67.ja b/Changes-6.64-6.67.ja deleted file mode 100644 index 06dee58..0000000 --- a/Changes-6.64-6.67.ja +++ /dev/null @@ -1,131 +0,0 @@ -tm-view.el ----------------------------- -revision 6.67 -date: 1995/07/03 07:41:02; author: morioka; state: Exp; lines: +2 -2 -$B4X?t(B mime-viewer/default-code-convert-region $B$NIT6q9g$r=$@5!#(B ----------------------------- -revision 6.66 -date: 1995/07/03 07:07:55; author: morioka; state: Exp; lines: +2 -2 -original Emacs $B$K4X?t(B char-before $B$,L5$+$C$?$N$G!"4X?t(B char-after $B$G=q(B -$B$-D>$7$?!#(B ----------------------------- -revision 6.65 -date: 1995/07/03 06:59:29; author: morioka; state: Exp; lines: +5 -1 -$B4X?t(B mime-viewer/filter-text/plain $B$G!"(Btext/plain part $B$N:G8e$,2~9T$G(B -$B$J$$>l9g!"(Bpreview buffer $B$N:G8e$K2~9T$rA^F~$9$k$h$&$K=$@5$7$?!#(B ----------------------------- -revision 6.64 -date: 1995/07/02 12:26:11; author: morioka; state: Exp; lines: +4 -1 -body $B$,$J$$5-;v$N>l9g$NIT6q9g$r=$@5$7$?!#(B ----------------------------- - -tm-rich.el ----------------------------- -revision 6.7 -date: 1995/07/15 16:45:29; author: morioka; state: Exp; lines: +3 -54 -tm $B$K0MB8$7$J$$ItJ,$r(B richtext.el $B$KJ,N%$7$?!#(B ----------------------------- -revision 6.6 -date: 1995/07/06 19:53:10; author: morioka; state: Exp; lines: +2 -6 -$B4X?t(B richtext-to-enriched-region $B$NIT6q9g$r=$@5$7$?!#(B ----------------------------- -revision 6.5 -date: 1995/07/05 16:22:20; author: morioka; state: Exp; lines: +10 -97 -text/enriched decoder $B$r(B tinyrich.el $B$K0\$7$?!#(B ----------------------------- -revision 6.4 -date: 1995/07/05 15:41:30; author: morioka; state: Exp; lines: +26 -23 -$B9=@.$rJQ99$7$?!#(B ----------------------------- -revision 6.3 -date: 1995/07/05 14:37:22; author: morioka; state: Exp; lines: +73 -67 -(1) Emacs 19.29 $B$K9g$o$;$F!"4X?t(B mime/decode-text/enriched-region $B$r(B - enriched-decode $B$K2~L>$7$?!#$^$?!"4X?t(B enriched-decode $B$,B8:_$7$J(B - $B$$>l9g$N$_(B defun $B$9$k$h$&$K$7$?!#(B -(2) $B4X?t(B enriched-decode $B$NIT6q9g$r=$@5$7$?!#!J$$$D$N:"$+$i$+(B enbug $B$7(B - $B$F$$$?$i$7$$!K(B -(3) $B4X?t(B richtext-to-enriched-region $B$r:n@.$7!"4X?t(B - mime-viewer/filter-text/richtext $B$G$O$3$l$r;H$C$F(B text/enriched $B7A(B - $B<0$K$7$?$b$N$r4X?t(B enriched-decode $B$G(B decode $B$9$k$h$&$K$7$?!#(B ----------------------------- - -richtext.el - text/richtext $B7A<0$K4X$9$k=hM}$r9T$&(B tm $B$K0MB8$7$J$$(B module $B$H(B - $B$7$F?7$?$KAO@_$7$?!#!J$G$b!"(BRMS $B$K(B reject $B$5$l$?$+$i@h9T$-$OIT(B - $BL@!#(B(^_^; $B$b$7$+$9$k$H!"(Benriched.el $B$KE}9g$5$l$k$+$b$7$l$J$$!K(B - text/richtext $B7A<0$N(B decode $B$NB>!"(BEmacs 19.29 $B0J9_$G$O(B - text/richtext $B7A<0$N(B file $B$N(B enriched-mode $B$rMxMQ$7$?(B WYSIWYG - $BJT=8$r(B support $B$9$k!#(B - -tinyrich.el - Emacs 19.28 $B0JA0$N(B emacs $B$G$N(B enriched.el $B$NBeMQIJ!#(B - text/richtext $B$H(B text/enriched $B$N(B decode $B$N$_$r(B support $B$9$k!#(B - $B!J $B$5$s$N2~NI0F$r=$@5$7$F:NMQ$7$?!#(B ----------------------------- - -mh-e/tm-mh-e.el ----------------------------- -revision 6.23 -date: 1995/07/17 16:37:20; author: morioka; state: Exp; lines: +2 -2 -Subject $B$,(B folding $B$7$F$$$k>l9g$N$3$H$r9MN8$7$F!"4X?t(B tm-mh-e/cite $B$r(B -$B=$@5$7$?!#(B ----------------------------- -revision 6.22 -date: 1995/07/06 18:35:17; author: morioka; state: Exp; lines: +12 -6 -$B4X?t(B tm-mh-e/summary-before-quit $B$r=$@5$7$?!#(B ----------------------------- -revision 6.21 -date: 1995/06/22 12:02:13; author: morioka; state: Exp; lines: +13 -1 -$BJQ?t(B mh-before-quit-hook $B$K(B preview-buffer $B$r(B kill $B$9$k$?$a$N4X?t$r@_(B -$BDj$7$?!#(B ----------------------------- - -gnus/tm-dgnus.el ----------------------------- -revision 6.9 -date: 1995/07/03 07:50:58; author: morioka; state: Exp; lines: +6 -1 -$B4X?t(B tm-gnus/view-message $B$N(B Emacs 19.29 $B$N>l9g$NIT6q9g$r=$@5$7$?!#(B ----------------------------- -revision 6.8 -date: 1995/06/28 17:38:41; author: morioka; state: Exp; lines: +41 -39 -macro `gnus-get-article-buffer' $B$rDj5A$7$?!#(B ----------------------------- -revision 6.7 -date: 1995/06/27 06:25:04; author: morioka; state: Exp; lines: +2 -1 -$BEDCf!wIY;NDL(B $B$5$s[)$/!'(B -====================================================================== -$B$3$s$I$O(B - - Symbol's function definition is void: set-alist - -$B$H$J$j$^$7$?!#(B -====================================================================== -$B$h$C$F!"(B(require 'tl-list) $B$rDI2C$7$?!#(B ----------------------------- -revision 6.6 -date: 1995/06/27 04:49:58; author: morioka; state: Exp; lines: +5 -1 -$BEDCf!wIY;NDL(B $B$5$s[)$/!'(B -====================================================================== -(ding)GNUS $B$r5/F0$9$k$H(B - -Symbol's function definition is void: get-version-string - -$B$H$$$&%a%C%;!<%8$,$G$F(B(ding)GNUS $B$,5/F0$7$^$;$s!#(B -====================================================================== -$B$3$N$?$a!"(B(require 'tl-str) $B$rDI2C$7$?!#$D$$$G$K!"(B(require 'gnus) $B$bF~(B -$B$l$?!#(B ----------------------------- diff --git a/Changes-6.68-6.70.en b/Changes-6.68-6.70.en deleted file mode 100644 index 3d6397e..0000000 --- a/Changes-6.68-6.70.en +++ /dev/null @@ -1,79 +0,0 @@ -tm-view.el ----------------------------- -revision 6.70 -date: 1995/07/30 23:18:01; author: morioka; state: Exp; lines: +5 -6 -replaced function `mail-fetch-field' by function -`message/get-field-body' because of trouble. ----------------------------- -revision 6.69 -date: 1995/07/30 23:11:42; author: morioka; state: Exp; lines: +6 -4 -redefine function `mime-viewer/default-content-subject-function' not -to display content-subject for root content. ----------------------------- -revision 6.68 -date: 1995/07/30 20:51:16; author: morioka; state: Exp; lines: +6 -5 -replaced function `message/get-field-body' by function -`mail-fetch-field'. ----------------------------- - - -tm-rich.el ----------------------------- -revision 6.8 -date: 1995/07/17 22:30:36; author: morioka; state: Exp; lines: +9 -4 -modified for changes of text/richtext supporting system. ----------------------------- - -richtext.el ----------------------------- -revision 2.1 -date: 1995/07/17 22:59:10; author: morioka; state: Exp; lines: +9 -8 -added (require 'enriched). ----------------------------- -revision 2.0 -date: 1995/07/17 22:29:49; author: morioka; state: Exp; lines: +136 -97 -rewrite to encode/decode directly. Converters are moved to tinyrich.el. ----------------------------- - -tinyrich.el ----------------------------- -revision 2.0 -date: 1995/07/17 22:31:32; author: morioka; state: Exp; lines: +95 -1 -text/richtext <-> text/enriched converter are moved from richtext.el. ----------------------------- - - -tiny-mime.el ----------------------------- -revision 5.16 -date: 1995/07/26 05:54:16; author: morioka; state: Exp; lines: +5 -3 -fixed a problem of function `mime/unfolding'. ----------------------------- - - -gnus/tm-dgnus.el ----------------------------- -revision 6.14 -date: 1995/08/01 17:19:15; author: morioka; state: Exp; lines: +7 -2 -In function `tm-gnus/summary-toggle-header', header mode detecting way -for automatic MIME preview mode is changed. ----------------------------- -revision 6.13 -date: 1995/08/01 17:09:13; author: morioka; state: Exp; lines: +10 -27 -Rewrote function `tm-gnus/summary-toggle-header' to use function -`gnus-summary-toggle-header'. ----------------------------- -revision 6.12 -date: 1995/07/30 20:09:41; author: morioka; state: Exp; lines: +68 -214 -Don't support automatic MIME preview for original (ding) GNUS. ----------------------------- -revision 6.11 -date: 1995/07/27 19:35:42; author: morioka; state: Exp; lines: +3 -4 -(1) fixed a problem of function `tm-gnus/set-mime-method'. -(2) added cheap support for page break in automatic preview mode. ----------------------------- -revision 6.10 -date: 1995/07/27 18:54:30; author: morioka; state: Exp; lines: +171 -79 -Changed the way to save original article-buffer to the variable -`gnus-clean-article-buffer'. ----------------------------- diff --git a/Changes-6.68-6.70.ja b/Changes-6.68-6.70.ja deleted file mode 100644 index defd06b..0000000 --- a/Changes-6.68-6.70.ja +++ /dev/null @@ -1,79 +0,0 @@ -tm-view.el ----------------------------- -revision 6.70 -date: 1995/07/30 23:18:01; author: morioka; state: Exp; lines: +5 -6 -$BIT6q9g$,8+$D$+$C$?$N$G!"4X?t(B mail-fetch-field $B$r;H$&$N$r$d$a!"$d$C$Q$j!"(B -$B4X?t(B message/get-field-body $B$r;H$&$h$&$K$7$?!#(B ----------------------------- -revision 6.69 -date: 1995/07/30 23:11:42; author: morioka; state: Exp; lines: +6 -4 -top content $B$N(B content-subject $B$rI=<($7$J$$$h$&$K$7$?!#(B ----------------------------- -revision 6.68 -date: 1995/07/30 20:51:16; author: morioka; state: Exp; lines: +6 -5 -$B4X?t(B message/get-field-body $B$r;H$&$N$r$d$a$F!"4X?t(B mail-fetch-field $B$r(B -$B;H$&$h$&$K$7$?!#(B ----------------------------- - - -tm-rich.el ----------------------------- -revision 6.8 -date: 1995/07/17 22:30:36; author: morioka; state: Exp; lines: +9 -4 -text/richtext $B4X78$N9=@.$NJQ99$KH<$&=$@5$r9T$C$?!#(B ----------------------------- - -richtext.el ----------------------------- -revision 2.1 -date: 1995/07/17 22:59:10; author: morioka; state: Exp; lines: +9 -8 -(require 'enriched) $B$rDI2C$7$?!#(B ----------------------------- -revision 2.0 -date: 1995/07/17 22:29:49; author: morioka; state: Exp; lines: +136 -97 -$BD>@\(B encode/decode $B$9$k$h$&$K$7!"(Bconverter $B$O(B tinyrich.el $B$K0\$7$?!#(B ----------------------------- - -tinyrich.el ----------------------------- -revision 2.0 -date: 1995/07/17 22:31:32; author: morioka; state: Exp; lines: +95 -1 -text/richtext <-> text/enriched converter $B$r(B richtext.el $B$+$i0\$7$?!#(B ----------------------------- - - -tiny-mime.el ----------------------------- -revision 5.16 -date: 1995/07/26 05:54:16; author: morioka; state: Exp; lines: +5 -3 -$B4X?t(B mime/unfolding $B$NIT6q9g$r=$@5$7$?!#(B ----------------------------- - - -gnus/tm-dgnus.el ----------------------------- -revision 6.14 -date: 1995/08/01 17:19:15; author: morioka; state: Exp; lines: +7 -2 -$B4X?t(B tm-gnus/summary-toggle-header $B$K$*$$$F!"(Bautomatic MIME preview -mode $B$N;~$N(B header $B$NI=<((B mode $B$NH=DjK!$rJQ99$7$?!#(B ----------------------------- -revision 6.13 -date: 1995/08/01 17:09:13; author: morioka; state: Exp; lines: +10 -27 -$B4X?t(B gnus-summary-toggle-header $B$rMxMQ$9$k$h$&$K!"4X?t(B -tm-gnus/summary-toggle-header $B$r=q$-49$($?!#(B ----------------------------- -revision 6.12 -date: 1995/07/30 20:09:41; author: morioka; state: Exp; lines: +68 -214 -original $B$N(B (ding) GNUS $B$KBP$7$F$O(B automatic MIME preview support $B$O9T(B -$B$J$o$J$$$h$&$K$7$?!#(B ----------------------------- -revision 6.11 -date: 1995/07/27 19:35:42; author: morioka; state: Exp; lines: +3 -4 -(1) $B4X?t(B tm-gnus/set-mime-method $B$K$*$1$kIT6q9g$r=$@5$7$?!#(B -(2) $B2~JG$K4J0WBP1~$7$?!#(B ----------------------------- -revision 6.10 -date: 1995/07/27 18:54:30; author: morioka; state: Exp; lines: +171 -79 -$B85$N(B article-buffer $B$rJQ?t(B gnus-clean-article-buffer $B$KJ]B8$9$kJ}<0$K(B -$B2~$a$?!#(B ----------------------------- diff --git a/Changes-6.71.en b/Changes-6.71.en deleted file mode 100644 index b401151..0000000 --- a/Changes-6.71.en +++ /dev/null @@ -1,42 +0,0 @@ -tm-view.el ----------------------------- -revision 6.71 -date: 1995/08/03 21:21:16; author: morioka; state: Exp; lines: +20 -3 -Modified to display a message in preview buffer when message/partial -is previewed. ----------------------------- - -tm-rich.el ----------------------------- -revision 6.10 -date: 1995/08/05 00:55:37; author: morioka; state: Exp; lines: +10 -8 -Added a variable `tm-rich/richtext-module' to select module to decode -richtext. ----------------------------- -revision 6.9 -date: 1995/08/03 13:28:35; author: morioka; state: Exp; lines: +2 -2 -Richard Stanton wrote: -====================================================================== -My version of tm-os2 requires tm-rich. Unfortunately, this causes an -error. I think it may be something to do with the fact that at the -end of tm-rich.el is the line - -(provide 'richtext) - -Shouldn't that be - -(provide 'tm-rich)? -====================================================================== -According to the report, I fixed a mistake of provide declaration. ----------------------------- - -mel/mel-b.el ----------------------------- -revision 1.6 -date: 1995/08/05 00:30:53; author: morioka; state: Exp; lines: +25 -4 -Added function `pack-sequence' to independent of tl. ----------------------------- - -methods/* - Replaced method scripts by /bin/sh version scripts by YAMAGAMI - . diff --git a/Changes-6.71.ja b/Changes-6.71.ja deleted file mode 100644 index 7b9eb33..0000000 --- a/Changes-6.71.ja +++ /dev/null @@ -1,42 +0,0 @@ -tm-view.el ----------------------------- -revision 6.71 -date: 1995/08/03 21:21:16; author: morioka; state: Exp; lines: +20 -3 -message/partial $B$N;~$K(B preview buffer $B$K$=$l$rCN$i$;$kJ8$rI=<($9$k$h$&(B -$B$K$7$?!#(B ----------------------------- - -tm-rich.el ----------------------------- -revision 6.10 -date: 1995/08/05 00:55:37; author: morioka; state: Exp; lines: +10 -8 -$BJQ?t(B tm-rich/richtext-module $B$r@_$1!"(Brichtext $B$N(B decode $B$K;HMQ$9$k$?$a(B -$B$N(B module $B$rA*Br$G$-$k$h$&$K$7$?!#(B ----------------------------- -revision 6.9 -date: 1995/08/03 13:28:35; author: morioka; state: Exp; lines: +2 -2 -Richard Stanton $B;a[)$/!'(B -====================================================================== -My version of tm-os2 requires tm-rich. Unfortunately, this causes an -error. I think it may be something to do with the fact that at the -end of tm-rich.el is the line - -(provide 'richtext) - -Shouldn't that be - -(provide 'tm-rich)? -====================================================================== -$B$3$N;XE&$K=>$$!":G8e$N(B provide $B$N@k8@$r4V0c$C$F$$$?$N$rD>$7$?!#(B ----------------------------- - -mel/mel-b.el ----------------------------- -revision 1.6 -date: 1995/08/05 00:30:53; author: morioka; state: Exp; lines: +25 -4 -$B4X?t(B pack-sequence $B$r<+A0$G;}$D$h$&$K$7$?!#(B ----------------------------- - -methods/* - $B$d$^$,$_(B $B$5$s:n$N(B /bin/sh $BHG$N(B method - script $B$r:NMQ$7$?!#(B diff --git a/Changes-6.72.en b/Changes-6.72.en deleted file mode 100644 index 7ba4424..0000000 --- a/Changes-6.72.en +++ /dev/null @@ -1,10 +0,0 @@ -tm-view.el ----------------------------- -revision 6.72 -date: 1995/08/12 18:58:45; author: morioka; state: Exp; lines: +2 -4 -Added `mime-viewer/content-header-filter-hook'. ----------------------------- - -installer - tm-mh-e is byte-compiled and installed by mk-tmh written by - Emacs Lisp. So make-lpath, inst-el and inst-elc are removed. diff --git a/Changes-6.72.ja b/Changes-6.72.ja deleted file mode 100644 index 336e06b..0000000 --- a/Changes-6.72.ja +++ /dev/null @@ -1,11 +0,0 @@ -tm-view.el ----------------------------- -revision 6.72 -date: 1995/08/12 18:58:45; author: morioka; state: Exp; lines: +2 -4 -mime-viewer/content-header-filter-hook $B$r@_$1$?!#(B ----------------------------- - -installer - tm-mh-e $B$N(B byte-compile, install $B$r(B Emacs Lisp $B$G=q$$$?(B mk-tmh - $B$G9T$J$&$h$&$K$7$?!#$3$N$3$H$KH<$$!"(Bmake-lpath, inst-el, - inst-elc $B$rGQ;_$7$?!#(B diff --git a/Changes-6.73.en b/Changes-6.73.en deleted file mode 100644 index a54b1f7..0000000 --- a/Changes-6.73.en +++ /dev/null @@ -1,71 +0,0 @@ -tl ----------------------------- -(1) Replaced tl-18, tl-nemacs, tl-mule and tl-orig by emu. -(2) Fixed problem on Emacs 19.29. ----------------------------- - -mime-setup.el ----------------------------- -revision 6.1 -date: 1995/08/26 20:21:12; author: morioka; state: Exp; lines: +2 -1 -Fixed a problem about setting for (ding) GNUS. ----------------------------- - -sc-setup.el ----------------------------- -revision 3.0 -date: 1995/08/26 18:37:34; author: morioka; state: Exp; lines: +9 -4 -Use emacs-major-version to judge. ----------------------------- -revision 2.0 -date: 1995/08/26 18:35:29; author: morioka; state: Exp; lines: +8 -9 -Replaced tl-18 by emu. ----------------------------- - -tiny-mime.el ----------------------------- -revision 5.18 -date: 1995/08/26 18:38:37; author: morioka; state: Exp; lines: +2 -4 -Replaced tl-18 by emu. ----------------------------- -revision 5.17 -date: 1995/08/24 17:07:15; author: morioka; state: Exp; lines: +2 -2 -Added "Newsgroups" to default value of variable -`mime/no-encoding-header-fields'. ----------------------------- - -tm-misc.el ----------------------------- -revision 5.2 -date: 1995/08/26 18:41:39; author: morioka; state: Exp; lines: +18 -7 -Replaced tl-18 by emu. ----------------------------- - -tm-mule.el ----------------------------- -revision 6.3 -date: 1995/08/26 18:42:32; author: morioka; state: Exp; lines: +2 -5 -Replaced tl-18 and tl-mule by emu. ----------------------------- - -tm-nemacs.el ----------------------------- -revision 6.1 -date: 1995/08/26 18:44:31; author: morioka; state: Exp; lines: +2 -3 -Replaced tl-18 and tl-nemacs by emu. ----------------------------- - -tm-orig.el ----------------------------- -revision 6.1 -date: 1995/08/26 18:46:27; author: morioka; state: Exp; lines: +8 -4 -Replaced tl-orig by emu. ----------------------------- - -tm-view.el ----------------------------- -revision 6.73 -date: 1995/08/26 19:53:34; author: morioka; state: Exp; lines: +3 -3 -Renamed function `mime::viewer/quitting-method-for-gnus4' to -`mime-viewer/quitting-method-for-gnus4'. ----------------------------- diff --git a/Changes-6.73.ja b/Changes-6.73.ja deleted file mode 100644 index a78a4dd..0000000 --- a/Changes-6.73.ja +++ /dev/null @@ -1,70 +0,0 @@ -tl ----------------------------- -(1) tl-18, tl-nemacs, tl-mule, tl-orig $B$r(B emu $B$KCV$-49$($?!#(B -(2) Emacs 19.29 $B$K$*$1$kIT6q9g$r=$@5$7$?!#(B ----------------------------- - -mime-setup.el ----------------------------- -revision 6.1 -date: 1995/08/26 20:21:12; author: morioka; state: Exp; lines: +2 -1 -(ding) GNUS $B$K$*$1$k@_Dj$NIT6q9g$r=$@5$7$?!#(B ----------------------------- - -sc-setup.el ----------------------------- -revision 3.0 -date: 1995/08/26 18:37:34; author: morioka; state: Exp; lines: +9 -4 -$BH=Dj$K(B emacs-major-version $B$r;H$&$h$&$K$7$?!#(B ----------------------------- -revision 2.0 -date: 1995/08/26 18:35:29; author: morioka; state: Exp; lines: +8 -9 -tl-18 $B$r;H$&$N$r$d$a$F(B emu $B$r;H$&$h$&$K$7$?!#(B ----------------------------- - -tiny-mime.el ----------------------------- -revision 5.18 -date: 1995/08/26 18:38:37; author: morioka; state: Exp; lines: +2 -4 -tl-18 $B$r;H$&$N$r$d$a$F(B emu $B$r;H$&$h$&$K$7$?!#(B ----------------------------- -revision 5.17 -date: 1995/08/24 17:07:15; author: morioka; state: Exp; lines: +2 -2 -$BJQ?t(B mime/no-encoding-header-fields $B$N=i4|CM$K(B "Newsgroups" $B$rDI2C$7$?!#(B ----------------------------- - -tm-misc.el ----------------------------- -revision 5.2 -date: 1995/08/26 18:41:39; author: morioka; state: Exp; lines: +18 -7 -tl-18 $B$r;H$&$N$r$d$a$F(B emu $B$r;H$&$h$&$K$7$?!#(B ----------------------------- - -tm-mule.el ----------------------------- -revision 6.3 -date: 1995/08/26 18:42:32; author: morioka; state: Exp; lines: +2 -5 -tl-18, tl-mule $B$r;H$&$N$r$d$a$F(B emu $B$r;H$&$h$&$K$7$?!#(B ----------------------------- - -tm-nemacs.el ----------------------------- -revision 6.1 -date: 1995/08/26 18:44:31; author: morioka; state: Exp; lines: +2 -3 -tl-18, tl-nemacs $B$r;H$&$N$r$d$a$F(B emu $B$r;H$&$h$&$K$7$?!#(B ----------------------------- - -tm-orig.el ----------------------------- -revision 6.1 -date: 1995/08/26 18:46:27; author: morioka; state: Exp; lines: +8 -4 -tl-orig $B$r;H$&$N$r$d$a$F(B emu $B$r;H$&$h$&$K$7$?!#(B ----------------------------- - -tm-view.el ----------------------------- -revision 6.73 -date: 1995/08/26 19:53:34; author: morioka; state: Exp; lines: +3 -3 -$B4X?t(B mime::viewer/quitting-method-for-gnus4 $B$r(B -mime-viewer/quitting-method-for-gnus4 $B$K2~L>$7$?!#(B ----------------------------- diff --git a/Changes-6.74.en b/Changes-6.74.en deleted file mode 100644 index 87b28b4..0000000 --- a/Changes-6.74.en +++ /dev/null @@ -1,124 +0,0 @@ -* mel - - Attached version 1.8. - -** mel/mel-q.el ----------------------------- -revision 1.8 -date: 1995/08/27 19:29:17; author: morioka; state: Exp; lines: +3 -2 -Fixed problem of function `quoted-printable-internal-decode-region' in -Mule. ----------------------------- -revision 1.7 -date: 1995/08/27 17:45:52; author: morioka; state: Exp; lines: +2 -2 -Fixed (provide 'qprint) to (provide 'mel-q). ----------------------------- -revision 1.6 -date: 1995/08/27 17:06:53; author: morioka; state: Exp; lines: +5 -6 -(1) Fixed function `q-encoding-encode-string-for-phrase' to encode - space to `_'. -(2) Fixed function `q-encoding-encode-string' to call function - `q-encoding-encode-string-for-phrase' in default mode. ----------------------------- - -* tm - -** tm/tiny-mime.el ----------------------------- -revision 6.2 -date: 1995/08/27 19:05:07; author: morioka; state: Exp; lines: +3 -2 -Defined constant `mime/tspecials', constant `mime/token-regexp' is -defined by it. ----------------------------- -revision 6.1 -date: 1995/08/27 17:42:42; author: morioka; state: Exp; lines: +1 -2 -Eliminated (require 'tl-num). ----------------------------- -revision 6.0 -date: 1995/08/27 17:22:36; author: morioka; state: Exp; lines: +10 -10 -Eliminated unnecessary condition in function `mime/encode-string'. ----------------------------- -revision 5.22 -date: 1995/08/27 17:17:38; author: morioka; state: Exp; lines: +15 -175 -Use mel to encode. ----------------------------- -revision 5.21 -date: 1995/08/27 14:22:54; author: morioka; state: Exp; lines: +4 -3 -Fixed problem of constant `mime/charset-regexp'. ----------------------------- -revision 5.20 -date: 1995/08/27 13:35:27; author: morioka; state: Exp; lines: +25 -8 -(1) Function `mime/decode-encoded-text' was moved from - tm-{nemacs,orig,mule}.el. -(2) Use mel in function `mime/decode-encoded-text'. ----------------------------- -revision 5.19 -date: 1995/08/26 23:11:06; author: morioka; state: Exp; lines: +2 -2 -In function `mime/decode-encoded-word', encoding is regulated to upper -case. ----------------------------- - -** tm/tm-comp.el ----------------------------- -revision 6.8 -date: 1995/08/30 00:40:26; author: morioka; state: Exp; lines: +8 -80 -(1) Moved GNUS 4.* setting to tm-gnus4.el. -(2) Value part of variable `mime/message-after-send-hook-alist' does not - quote. ----------------------------- - -** tm/tm-mule.el ----------------------------- -revision 6.4 -date: 1995/08/27 13:33:13; author: morioka; state: Exp; lines: +6 -13 -Moved function `mime/decode-encoded-text' to tiny-mime.el. ----------------------------- - -** tm/tm-nemacs.el ----------------------------- -revision 6.3 -date: 1995/08/27 14:24:22; author: morioka; state: Exp; lines: +12 -18 -(1) Use string= if possible. -(2) Use constants if possible. ----------------------------- -revision 6.2 -date: 1995/08/27 13:31:02; author: morioka; state: Exp; lines: +11 -20 -Moved function `mime/decode-encoded-text' to tiny-mime.el. ----------------------------- - -** tm/tm-orig.el ----------------------------- -revision 6.3 -date: 1995/08/27 14:26:18; author: morioka; state: Exp; lines: +13 -17 -Use string= if possible. ----------------------------- -revision 6.2 -date: 1995/08/27 13:32:02; author: morioka; state: Exp; lines: +1 -14 -Moved function `mime/decode-encoded-text' to tiny-mime.el. ----------------------------- - -** tm/tm-view.el ----------------------------- -revision 6.74 -date: 1995/08/27 19:05:58; author: morioka; state: Exp; lines: +1 -4 -Use definition of constant `mime/token-regexp' in tiny-mime.el. ----------------------------- - - -* tm/gnus - - Attached version 6.16. - -** tm/gnus/tm-gnus4.el ----------------------------- -revision 6.1 -date: 1995/08/30 00:41:17; author: morioka; state: Exp; lines: +98 -1 -Added setting for tm-comp. ----------------------------- - -** tm/gnus/tm-dgnus.el ----------------------------- -revision 6.16 -date: 1995/08/30 02:44:11; author: morioka; state: Exp; lines: +14 -1 -Added setting for tm-comp. ----------------------------- diff --git a/Changes-6.74.ja b/Changes-6.74.ja deleted file mode 100644 index d00dc7c..0000000 --- a/Changes-6.74.ja +++ /dev/null @@ -1,125 +0,0 @@ -* mel - - Version 1.8 $B$rE:IU$7$?!#(B - -** mel/mel-q.el ----------------------------- -revision 1.8 -date: 1995/08/27 19:29:17; author: morioka; state: Exp; lines: +3 -2 -$B4X?t(B quoted-printable-internal-decode-region $B$N(B Mule $B$K$*$1$kIT6q9g$r(B -$B=$@5$7$?!#(B ----------------------------- -revision 1.7 -date: 1995/08/27 17:45:52; author: morioka; state: Exp; lines: +2 -2 -(provide 'qprint) $B$r(B (provide 'mel-q) $B$KD>$7$?!#(B ----------------------------- -revision 1.6 -date: 1995/08/27 17:06:53; author: morioka; state: Exp; lines: +5 -6 -(1) $B6uGr$r(B `_' $B$K(B encode $B$9$k$h$&$K4X?t(B - q-encoding-encode-string-for-phrase $B$r=$@5$7$?!#(B -(2) default $B$N>l9g!"4X?t(B q-encoding-encode-string-for-phrase $B$r8F$V$h(B - $B$&$K!"4X?t(B q-encoding-encode-string $B$r=$@5$7$?!#(B ----------------------------- - - -* tm - -** tm/tiny-mime.el ----------------------------- -revision 6.2 -date: 1995/08/27 19:05:07; author: morioka; state: Exp; lines: +3 -2 -$BDj?t(B mime/tspecials $B$rDj5A$7!"$3$l$rMQ$$$FDj?t(B mime/token-regexp $B$rDj(B -$B5A$9$k$h$&$K$7$?!#(B ----------------------------- -revision 6.1 -date: 1995/08/27 17:42:42; author: morioka; state: Exp; lines: +1 -2 -(require 'tl-num) $B$r=|5n$7$?!#(B ----------------------------- -revision 6.0 -date: 1995/08/27 17:22:36; author: morioka; state: Exp; lines: +10 -10 -$B4X?t(B mime/encode-string $B$K$*$$$FITMW$J>r7o$r=|5n$7$?!#(B ----------------------------- -revision 5.22 -date: 1995/08/27 17:17:38; author: morioka; state: Exp; lines: +15 -175 -encode $B$K$b(B mel $B$r;H$&$h$&$K$7$?!#(B ----------------------------- -revision 5.21 -date: 1995/08/27 14:22:54; author: morioka; state: Exp; lines: +4 -3 -$BDj?t(B mime/charset-regexp $B$NIT6q9g$r=$@5$7$?!#(B ----------------------------- -revision 5.20 -date: 1995/08/27 13:35:27; author: morioka; state: Exp; lines: +25 -8 -(1) $B4X?t(B mime/decode-encoded-text $B$r(B tm-{nemacs,orig,mule}.el $B$+$i0\$7(B - $B$?!#(B -(2) $B4X?t(B mime/decode-encoded-text $B$G(B mel $B$r;H$&$h$&$K$7$?!#(B ----------------------------- -revision 5.19 -date: 1995/08/26 23:11:06; author: morioka; state: Exp; lines: +2 -2 -$B4X?t(B mime/decode-encoded-word $B$K$*$$$F!"(Bencoding $B$rBgJ8;z$K@55,2=$9$k(B -$B$h$&$K$7$?!#(B ----------------------------- - -** tm/tm-comp.el ----------------------------- -revision 6.8 -date: 1995/08/30 00:40:26; author: morioka; state: Exp; lines: +8 -80 -(1) GNUS 4.* $BMQ$N@_Dj$r(B tm-gnus4.el $B$K0\$7$?!#(B -(2) $BJQ?t(B mime/message-after-send-hook-alist $B$NCMIt$r(B quote $B$7$J$$$h$&(B - $B$K$7$?!#(B ----------------------------- - -** tm/tm-mule.el ----------------------------- -revision 6.4 -date: 1995/08/27 13:33:13; author: morioka; state: Exp; lines: +6 -13 -$B4X?t(B mime/decode-encoded-text $B$r(B tiny-mime.el $B$K0\$7$?!#(B ----------------------------- - -** tm/tm-nemacs.el ----------------------------- -revision 6.3 -date: 1995/08/27 14:24:22; author: morioka; state: Exp; lines: +12 -18 -(1) $B$G$-$k$@$1(B string= $B$r;H$&$h$&$K$7$?!#(B -(2) $B$G$-$k$@$1Dj?t$rMQ$$$k$h$&$K$7$?!#(B ----------------------------- -revision 6.2 -date: 1995/08/27 13:31:02; author: morioka; state: Exp; lines: +11 -20 -$B4X?t(B mime/decode-encoded-text $B$r(B tiny-mime.el $B$K0\$7$?!#(B ----------------------------- - -** tm/tm-orig.el ----------------------------- -revision 6.3 -date: 1995/08/27 14:26:18; author: morioka; state: Exp; lines: +13 -17 -$B$G$-$k$@$1(B string= $B$r;H$&$h$&$K$7$?!#(B ----------------------------- -revision 6.2 -date: 1995/08/27 13:32:02; author: morioka; state: Exp; lines: +1 -14 -$B4X?t(B mime/decode-encoded-text $B$r(B tiny-mime.el $B$K0\$7$?!#(B ----------------------------- - -** tm/tm-view.el ----------------------------- -revision 6.74 -date: 1995/08/27 19:05:58; author: morioka; state: Exp; lines: +1 -4 -$BDj?t(B mime/token-regexp $B$O(B tiny-mime.el $B$NDj5A$rMQ$$$k$h$&$K$7$?!#(B ----------------------------- - - -* tm/gnus - - Version 6.16 $B$rE:IU$7$?!#(B - -** tm/gnus/tm-gnus4.el ----------------------------- -revision 6.1 -date: 1995/08/30 00:41:17; author: morioka; state: Exp; lines: +98 -1 -tm-comp $BMQ$N@_Dj$rDI2C$7$?!#(B ----------------------------- - -** tm/gnus/tm-dgnus.el ----------------------------- -revision 6.16 -date: 1995/08/30 02:44:11; author: morioka; state: Exp; lines: +14 -1 -tm-comp $BMQ$N@_Dj$rDI2C$7$?!#(B ----------------------------- diff --git a/Changes-6.75-6.76.en b/Changes-6.75-6.76.en deleted file mode 100644 index 5a907b3..0000000 --- a/Changes-6.75-6.76.en +++ /dev/null @@ -1,46 +0,0 @@ -* tm - - Fixed mk-tm. - -tm/tm-view.el ----------------------------- -revision 6.76 -date: 1995/08/31 15:05:50; author: morioka; state: Exp; lines: +6 -2 -Fixed function `mime-viewer/make-preview-buffer' about using of function -`mime-viewer/get-subject'. ----------------------------- -revision 6.75 -date: 1995/08/31 14:10:04; author: morioka; state: Exp; lines: +81 -61 -Show content-subject in body part of preview-buffer for single part -hidden body message. So separated content-subject inserter from -function `mime-viewer/default-content-subject-function' to function -`mime-viewer/insert-content-subject'. ----------------------------- - -tm/tm-comp.el ----------------------------- -revision 6.10 -date: 1995/08/30 05:37:50; author: morioka; state: Exp; lines: +5 -6 -Rewrote regexps of constant `mime/message-nuke-headers' and constant -`mime/message-blind-headers'. ----------------------------- -revision 6.9 -date: 1995/08/30 05:01:46; author: morioka; state: Exp; lines: +46 -1 -Defined function `tm-comp::mime-insert-file' to expand parameter -expression of variable `mime-file-types'. ----------------------------- - - -* tm/gnus - - Attached version 6.17. - - Fixed mk-tgnus. - -tm/gnus/tm-dgnus.el ----------------------------- -revision 6.17 -date: 1995/08/31 05:55:52; author: morioka; state: Exp; lines: +13 -5 -According to Mr.Nishijima 's report, -measured to (ding) GNUS 0.99.28 changes. ----------------------------- diff --git a/Changes-6.75-6.76.ja b/Changes-6.75-6.76.ja deleted file mode 100644 index f1b6558..0000000 --- a/Changes-6.75-6.76.ja +++ /dev/null @@ -1,46 +0,0 @@ -* tm - - mk-tm $B$r=$@5$7$?!#(B - -tm/tm-view.el ----------------------------- -revision 6.76 -date: 1995/08/31 15:05:50; author: morioka; state: Exp; lines: +6 -2 -$B4X?t(B mime-viewer/make-preview-buffer $B$K$*$1$k!"4X?t(B -mime-viewer/get-subject $B$N;H$$J}$K4X$9$kIT6q9g$r=$@5$7$?!#(B ----------------------------- -revision 6.75 -date: 1995/08/31 14:10:04; author: morioka; state: Exp; lines: +81 -61 -single part $B$G(B body $B$,I=<($5$l$J$$(B message $B$N(B body $BIt$K(B -content-subject $B$rI=<($9$k$h$&$K$7$?!#$3$N$?$a!"4X?t(B -mime-viewer/default-content-subject-function $B$N(B content-subject $BI=<(It(B -$B$r4X?t(B mime-viewer/insert-content-subject $B$KJ,N%$7$?!#(B ----------------------------- - -tm/tm-comp.el ----------------------------- -revision 6.10 -date: 1995/08/30 05:37:50; author: morioka; state: Exp; lines: +5 -6 -$BDj?t(B mime/message-nuke-headers $B$HDj?t(B mime/message-blind-headers $B$N@5(B -$B5,I=8=$r=q$-D>$7$?!#(B ----------------------------- -revision 6.9 -date: 1995/08/30 05:01:46; author: morioka; state: Exp; lines: +46 -1 -$B4X?t(B tm-comp::mime-insert-file $B$rDj5A$7!"JQ?t(B mime-file-types $B$N(B -parameters $B$r3HD%$7$?!#(B ----------------------------- - - -* tm/gnus - - Version 6.17 $B$rE:IU$7$?!#(B - - mk-tgnus $B$r=$@5$7$?!#(B - -tm/gnus/tm-dgnus.el ----------------------------- -revision 6.17 -date: 1995/08/31 05:55:52; author: morioka; state: Exp; lines: +13 -5 -$B@>Eg(B $B9'FA(B $B$5$s$N;XE&$K=>$$!"(B(ding) GNUS -0.99.28 $B$KBP1~$7$?!#(B ----------------------------- diff --git a/Changes-6.76.1.en b/Changes-6.76.1.en deleted file mode 100644 index 5a64d4a..0000000 --- a/Changes-6.76.1.en +++ /dev/null @@ -1,63 +0,0 @@ -* tl - - Attached version 6.6. - -tl/tl-str.el ----------------------------- -revision 6.6 -date: 1995/08/31 20:11:08; author: morioka; state: Exp; lines: +5 -2 -Fixed a problem of function `get-version-string'. ----------------------------- - - -* tm/gnus - - Attached version 6.18. - - - Fixed mk-tgnus. - - Created load-path setting file for GNUS 5.*, `g5-path'. - -tm/gnus/tm-gnus3.el ----------------------------- -revision 6.1 -date: 1995/08/31 20:12:49; author: morioka; state: Exp; lines: +32 -4 -Defined constant `tm-gnus/RCS-ID' and constant `tm-gnus/version' in -this module. ----------------------------- - -tm/gnus/tm-gnus4.el ----------------------------- -revision 6.2 -date: 1995/08/31 20:14:33; author: morioka; state: Exp; lines: +28 -1 -Defined constant `tm-gnus/RCS-ID' and constant `tm-gnus/version' in -this module. ----------------------------- - -tm/gnus/tm-ognus.el ----------------------------- -revision 6.1 -date: 1995/08/31 20:13:47; author: morioka; state: Exp; lines: +8 -13 -Moved definition of version constants to tm-gnus3.el and tm-gnus4.el. ----------------------------- - -tm/gnus/tm-dgnus.el ----------------------------- -revision 6.18 -date: 1995/08/31 20:15:50; author: morioka; state: Exp; lines: +3 -185 -Moved major definition to tm-gnus5.el, and added (require 'tm-gnus5). ----------------------------- - -tm/gnus/tm-gnus5.el ----------------------------- -revision 6.18 -date: 1995/08/31 20:19:42; author: morioka; state: Exp; -Created as module for GNUS 5.*. Major definition is equal to -tm-dgnus.el. ----------------------------- - -tm/gnus/tm-gnus.el ----------------------------- -revision 6.2 -date: 1995/08/31 20:21:22; author: morioka; state: Exp; lines: +12 -2 -Separated setting for tm-gnus5 from setting for tm-dgnus. ----------------------------- diff --git a/Changes-6.76.1.ja b/Changes-6.76.1.ja deleted file mode 100644 index 6589b63..0000000 --- a/Changes-6.76.1.ja +++ /dev/null @@ -1,64 +0,0 @@ -* tl - - Version 6.6 $B$rE:IU$7$?!#(B - -tl/tl-str.el ----------------------------- -revision 6.6 -date: 1995/08/31 20:11:08; author: morioka; state: Exp; lines: +5 -2 -$B4X?t(B get-version-string $B$NIT6q9g$r=$@5$7$?!#(B ----------------------------- - - -* tm/gnus - - Version 6.18 $B$rE:IU$7$?!#(B - - - mk-tgnus $B$r=$@5$7$?!#(B - - GNUS 5.* $BMQ$N(B loadpath $B@_Dj(B file `g5-path' $B$r?7@_$7$?!#(B - -tm/gnus/tm-gnus3.el ----------------------------- -revision 6.1 -date: 1995/08/31 20:12:49; author: morioka; state: Exp; lines: +32 -4 -$BDj?t(B tm-gnus/RCS-ID $B$*$h$S!"Dj?t(B tm-gnus/version $B$r$3$NCf$GDj5A$9$k$h(B -$B$&$K$7$?!#(B ----------------------------- - -tm/gnus/tm-gnus4.el ----------------------------- -revision 6.2 -date: 1995/08/31 20:14:33; author: morioka; state: Exp; lines: +28 -1 -$BDj?t(B tm-gnus/RCS-ID $B$*$h$S!"Dj?t(B tm-gnus/version $B$r$3$NCf$GDj5A$9$k$h(B -$B$&$K$7$?!#(B ----------------------------- - -tm/gnus/tm-ognus.el ----------------------------- -revision 6.1 -date: 1995/08/31 20:13:47; author: morioka; state: Exp; lines: +8 -13 -version $BDj?t$NDj5A$O(B tm-gnus3.el $B$*$h$S(B tm-gnus4.el $B$NCf$G9T$J$&$h$&$K(B -$B$7$?!#(B ----------------------------- - -tm/gnus/tm-dgnus.el ----------------------------- -revision 6.18 -date: 1995/08/31 20:15:50; author: morioka; state: Exp; lines: +3 -185 -$BDj5A$NBgItJ,$r(B tm-gnus5.el $B$K0\$7!"(Btm-gnus5 $B$r(B require $B$9$k$h$&$K$7$?!#(B ----------------------------- - -tm/gnus/tm-gnus5.el ----------------------------- -revision 6.18 -date: 1995/08/31 20:19:42; author: morioka; state: Exp; -GNUS 5.* $BMQ$N(B module $B$H$7$F?7@_$7$?!#@_Dj$NBgItJ,$O(B tm-dgnus.el $B$HF1$8(B -$B$G$"$k!#(B ----------------------------- - -tm/gnus/tm-gnus.el ----------------------------- -revision 6.2 -date: 1995/08/31 20:21:22; author: morioka; state: Exp; lines: +12 -2 -tm-gnus5 $BMQ$N@_Dj$r(B tm-dgnus $BMQ$N@_Dj$+$iJ,$1$?!#(B ----------------------------- diff --git a/Changes-6.76.2.en b/Changes-6.76.2.en deleted file mode 100644 index 5491c11..0000000 --- a/Changes-6.76.2.en +++ /dev/null @@ -1,5 +0,0 @@ -* tm - - - Modified tm-view manual, a little. - - Wrote tm-gnus manual. - - Added a comment for gnus5 to tm/Makefile. diff --git a/Changes-6.76.2.ja b/Changes-6.76.2.ja deleted file mode 100644 index 0e709b5..0000000 --- a/Changes-6.76.2.ja +++ /dev/null @@ -1,5 +0,0 @@ -* tm - - - tm-view $B$N@bL@=q$r>/$7=$@5$7$?!#(B - - tm-gnus $B$N@bL@=q$r=q$$$?!#(B - - Makefile $B$K(B gnus5 $BMQ$N(B comment $B$r2C$($?!#(B diff --git a/Changes-6.77.en b/Changes-6.77.en deleted file mode 100644 index df4985d..0000000 --- a/Changes-6.77.en +++ /dev/null @@ -1,178 +0,0 @@ -* tm - - - Abolished tm-misc.el and created tm-def.el. - - So fixed tm/Makefile, tm/mk-tm, tm/README.eng, - tm/doc/tm_ja.texi and tm/doc/tm_en.texi. - -tm/tiny-mime.el ----------------------------- -revision 6.4 -date: 1995/09/04 01:16:45; author: morioka; state: Exp; lines: +2 -6 -Definition of constant `mime/tspecials', `mime/token-regexp' and -`mime/charset-regexp' were moved to tm-def.el. ----------------------------- -revision 6.3 -date: 1995/09/04 01:09:59; author: morioka; state: Exp; lines: +2 -10 -Requiring part of tm-nemacs, tm-orig and tm-mule were moved to tm-def, -and required tm-def. ----------------------------- - -tm/tm-comp.el ----------------------------- -revision 6.11 -date: 1995/09/04 00:47:37; author: morioka; state: Exp; lines: +1 -2 -Deleted (require 'tm-misc). ----------------------------- - -tm/tm-def.el ----------------------------- -revision 3.0 -date: 1995/09/04 01:17:27; author: morioka; state: Exp; lines: +9 -1 -Definition of constant `mime/tspecials', `mime/token-regexp' and -`mime/charset-regexp' were moved from tiny-mime.el. ----------------------------- -revision 2.0 -date: 1995/09/04 01:11:03; author: morioka; state: Exp; lines: +10 -1 -Requiring part of tm-nemacs, tm-orig and tm-mule were moved from -tiny-mime.el. ----------------------------- -revision 1.1 -date: 1995/09/04 00:48:04; author: morioka; state: Exp; -Created tm-def.el. ----------------------------- - -tm/tm-view.el ----------------------------- -revision 6.77 -date: 1995/09/04 00:48:30; author: morioka; state: Exp; lines: +2 -2 -Abolished tm-misc, and required tm-def. ----------------------------- - - -* tm/mh-e - - Attached version 6.24. - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 6.24 -date: 1995/09/02 06:02:20; author: morioka; state: Exp; lines: +10 -3 -Deleted (require 'tm-misc) ----------------------------- - - -* tm/gnus - - Attached version 6.19. - -tm/gnus/tm-ognus.el ----------------------------- -revision 6.8 -date: 1995/09/02 07:40:13; author: morioka; state: Exp; lines: +3 -2 -Required emu and tiny-mime instead of tm-misc. ----------------------------- -revision 6.7 -date: 1995/09/02 07:26:27; author: morioka; state: Exp; lines: +4 -4 -Function `tm-gnus/toggle-mime-header-decoding-mode' was renamed to -`tm-gnus/toggle-decoding-mode'. ----------------------------- -revision 6.6 -date: 1995/09/02 07:24:30; author: morioka; state: Exp; lines: +6 -6 -Function `tm-gnus/set-mime-header-decoding-mode' was renamed to -`tm-gnus/set-decoding-mode'. ----------------------------- -revision 6.5 -date: 1995/09/02 07:20:29; author: morioka; state: Exp; lines: +7 -7 -Variable `mime/header-decoding-mode' was renamed to -`tm-gnus/decoding-mode'. ----------------------------- -revision 6.4 -date: 1995/09/02 07:04:22; author: morioka; state: Exp; lines: +2 -2 -Function `mime/add-header-decoding-mode-to-mode-line' was renamed to -`tm-gnus/add-decoding-mode-to-mode-line'. ----------------------------- -revision 6.3 -date: 1995/09/02 06:58:20; author: morioka; state: Exp; lines: +3 -1 -Definition of variable `mime/header-decoding-mode' was moved from -tm-misc.el. ----------------------------- -revision 6.2 -date: 1995/09/02 06:56:32; author: morioka; state: Exp; lines: +9 -1 -Function `mime/add-header-decoding-mode-to-mode-line' was moved from -tm-misc.el. ----------------------------- - -tm/gnus/tm-gnus3.el ----------------------------- -revision 6.8 -date: 1995/09/04 02:43:18; author: morioka; state: Exp; lines: +3 -3 -Fixed a problem of function `tm-gnus/decode-encoded-word-if-you-need'. ----------------------------- -revision 6.7 -date: 1995/09/04 02:34:10; author: morioka; state: Exp; lines: +5 -2 -When dynamic bound variable `all-headers' is exist, funxtion -`tm-gnus/decode-encoded-word-if-you-need' decodes encoded-word if it -is nil. ----------------------------- -revision 6.6 -date: 1995/09/02 07:27:19; author: morioka; state: Exp; lines: +2 -3 -Function `tm-gnus/toggle-mime-header-decoding-mode' was renamed to -`tm-gnus/toggle-decoding-mode'. ----------------------------- -revision 6.5 -date: 1995/09/02 07:20:53; author: morioka; state: Exp; lines: +2 -2 -Variable `mime/header-decoding-mode' was renamed to -`tm-gnus/decoding-mode'. ----------------------------- -revision 6.4 -date: 1995/09/02 07:04:51; author: morioka; state: Exp; lines: +3 -3 -Function `mime/add-header-decoding-mode-to-mode-line' was renamed to -`tm-gnus/add-decoding-mode-to-mode-line'. ----------------------------- -revision 6.3 -date: 1995/09/02 06:52:00; author: morioka; state: Exp; lines: +4 -3 -Function `mime/decode-message-header-if-you-need' was renamed to -`tm-gnus/decode-encoded-word-if-you-need'. ----------------------------- -revision 6.2 -date: 1995/09/02 06:47:53; author: morioka; state: Exp; lines: +6 -1 -Function `mime/decode-message-header-if-you-need' was moved from -tm-misc.el. ----------------------------- - -tm/gnus/tm-gnus4.el ----------------------------- -revision 6.7 -date: 1995/09/02 07:28:38; author: morioka; state: Exp; lines: +2 -2 -Function `tm-gnus/toggle-mime-header-decoding-mode' was renamed to -`tm-gnus/toggle-decoding-mode'. ----------------------------- -revision 6.6 -date: 1995/09/02 07:21:01; author: morioka; state: Exp; lines: +2 -2 -Function `mime/header-decoding-mode' was renamed to -`tm-gnus/decoding-mode'. ----------------------------- -revision 6.5 -date: 1995/09/02 07:04:38; author: morioka; state: Exp; lines: +2 -2 -Function `mime/add-header-decoding-mode-to-mode-line' was renamed to -`tm-gnus/add-decoding-mode-to-mode-line'. ----------------------------- -revision 6.4 -date: 1995/09/02 06:35:10; author: morioka; state: Exp; lines: +4 -1 -Fixed forgot -(add-hook 'gnus-article-prepare-hook - (function tm-gnus/decode-encoded-word-if-you-need) t) -(^_^; ----------------------------- -revision 6.3 -date: 1995/09/02 06:21:41; author: morioka; state: Exp; lines: +5 -3 -When variable `gnus-have-all-headers' is t, does not decode -encoded-word. ----------------------------- - -tm/gnus/tm-gnus5.el ----------------------------- -revision 6.19 -date: 1995/09/02 05:18:08; author: morioka; state: Exp; lines: +8 -7 -Fixed a problem of function `tm-gnus/summary-toggle-header'. ----------------------------- diff --git a/Changes-6.77.ja b/Changes-6.77.ja deleted file mode 100644 index 5a992d2..0000000 --- a/Changes-6.77.ja +++ /dev/null @@ -1,173 +0,0 @@ -* tm - - - tm-misc.el $B$rGQ;_$7!"(Btm-def.el $B$r?7@_$7$?!#(B - - $B$3$N$3$H$KH<$$!"(Btm/Makefile, tm/mk-tm, tm/README.eng, - tm/doc/tm_ja.texi, tm/doc/tm_en.texi $B$r=$@5$7$?!#(B - -tm/tiny-mime.el ----------------------------- -revision 6.4 -date: 1995/09/04 01:16:45; author: morioka; state: Exp; lines: +2 -6 -$BDj?t(B mime/tspecials, mime/token-regexp, mime/charset-regexp $B$NDj5A$r(B -tm-def.el $B$K0\$7$?!#(B ----------------------------- -revision 6.3 -date: 1995/09/04 01:09:59; author: morioka; state: Exp; lines: +2 -10 -tm-nemacs, tm-orig, tm-mule $B$r(B require $B$9$kItJ,$r(B tm-def $B$K0\$7!"(B -tm-def $B$r(B require $B$9$k$h$&$K$7$?!#(B ----------------------------- - -tm/tm-comp.el ----------------------------- -revision 6.11 -date: 1995/09/04 00:47:37; author: morioka; state: Exp; lines: +1 -2 -tm-misc $B$r(B require $B$7$J$$$h$&$K$7$?!#(B ----------------------------- - -tm/tm-def.el ----------------------------- -revision 3.0 -date: 1995/09/04 01:17:27; author: morioka; state: Exp; lines: +9 -1 -$BDj?t(B mime/tspecials, mime/token-regexp, mime/charset-regexp $B$NDj5A$r(B -tiny-mime.el $B$+$i0\$7$?!#(B ----------------------------- -revision 2.0 -date: 1995/09/04 01:11:03; author: morioka; state: Exp; lines: +10 -1 -tm-nemacs, tm-orig, tm-mule $B$r(B require $B$9$kItJ,$r(B tiny-mime.el $B$+$i0\(B -$B$7$?!#(B ----------------------------- -revision 1.1 -date: 1995/09/04 00:48:04; author: morioka; state: Exp; -tm-def.el $B$r?7@_$7$?!#(B ----------------------------- - -tm/tm-view.el ----------------------------- -revision 6.77 -date: 1995/09/04 00:48:30; author: morioka; state: Exp; lines: +2 -2 -tm-misc $B$rGQ;_$7!"(Btm-def $B$r(B require $B$9$k$h$&$K$7$?!#(B ----------------------------- - - -* tm/mh-e - - Version 6.24 $B$rE:IU$7$?!#(B - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 6.24 -date: 1995/09/02 06:02:20; author: morioka; state: Exp; lines: +10 -3 -tm-misc $B$r(B require $B$9$k$N$r$d$a$?!#(B ----------------------------- - - -* tm/gnus - - Version 6.19 $B$rE:IU$7$?!#(B - -tm/gnus/tm-ognus.el ----------------------------- -revision 6.8 -date: 1995/09/02 07:40:13; author: morioka; state: Exp; lines: +3 -2 -tm-misc $B$r(B require $B$9$k$N$r$d$a!"Be$o$j$K!"(Bemu $B$H(B tiny-mime $B$r(B require -$B$9$k$h$&$K$7$?!#(B ----------------------------- -revision 6.7 -date: 1995/09/02 07:26:27; author: morioka; state: Exp; lines: +4 -4 -$B4X?t(B tm-gnus/toggle-mime-header-decoding-mode $B$r(B -tm-gnus/toggle-decoding-mode $B$K2~L>$7$?!#(B ----------------------------- -revision 6.6 -date: 1995/09/02 07:24:30; author: morioka; state: Exp; lines: +6 -6 -$B4X?t(B tm-gnus/set-mime-header-decoding-mode $B$r(B -tm-gnus/set-decoding-mode $B$K2~L>$7$?!#(B ----------------------------- -revision 6.5 -date: 1995/09/02 07:20:29; author: morioka; state: Exp; lines: +7 -7 -$BJQ?t(B mime/header-decoding-mode $B$r(B tm-gnus/decoding-mode $B$K2~L>$7$?!#(B ----------------------------- -revision 6.4 -date: 1995/09/02 07:04:22; author: morioka; state: Exp; lines: +2 -2 -$B4X?t(B mime/add-header-decoding-mode-to-mode-line $B$r(B -tm-gnus/add-decoding-mode-to-mode-line $B$K2~L>$7$?!#(B ----------------------------- -revision 6.3 -date: 1995/09/02 06:58:20; author: morioka; state: Exp; lines: +3 -1 -$BJQ?t(B mime/header-decoding-mode $B$NDj5A$r(B tm-misc.el $B$+$i0\$7$?!#(B ----------------------------- -revision 6.2 -date: 1995/09/02 06:56:32; author: morioka; state: Exp; lines: +9 -1 -$B4X?t(B mime/add-header-decoding-mode-to-mode-line $B$r(B tm-misc.el $B$+$i0\$7(B -$B$?!#(B ----------------------------- - -tm/gnus/tm-gnus3.el ----------------------------- -revision 6.8 -date: 1995/09/04 02:43:18; author: morioka; state: Exp; lines: +3 -3 -$B4X?t(B tm-gnus/decode-encoded-word-if-you-need $B$NIT6q9g$r=$@5$7$?!#(B ----------------------------- -revision 6.7 -date: 1995/09/04 02:34:10; author: morioka; state: Exp; lines: +5 -2 -$B4X?t(B tm-gnus/decode-encoded-word-if-you-need $B$K$*$$$F!"F0E*JQ?t(B -all-headers $B$,B8:_$9$k;~$O$3$l$,(B nil $B$N;~$N$_!"(Bencoded-word $B$r(B decode -$B$9$k$h$&$K$7$?!#(B ----------------------------- -revision 6.6 -date: 1995/09/02 07:27:19; author: morioka; state: Exp; lines: +2 -3 -$B4X?t(B tm-gnus/toggle-mime-header-decoding-mode $B$r(B -tm-gnus/toggle-decoding-mode $B$K2~L>$7$?!#(B ----------------------------- -revision 6.5 -date: 1995/09/02 07:20:53; author: morioka; state: Exp; lines: +2 -2 -$BJQ?t(B mime/header-decoding-mode $B$r(B tm-gnus/decoding-mode $B$K2~L>$7$?!#(B ----------------------------- -revision 6.4 -date: 1995/09/02 07:04:51; author: morioka; state: Exp; lines: +3 -3 -$B4X?t(B mime/add-header-decoding-mode-to-mode-line $B$r(B -tm-gnus/add-decoding-mode-to-mode-line $B$K2~L>$7$?!#(B ----------------------------- -revision 6.3 -date: 1995/09/02 06:52:00; author: morioka; state: Exp; lines: +4 -3 -$B4X?t(B mime/decode-message-header-if-you-need $B$r(B -tm-gnus/decode-encoded-word-if-you-need $B$K2~L>$7$?!#(B ----------------------------- -revision 6.2 -date: 1995/09/02 06:47:53; author: morioka; state: Exp; lines: +6 -1 -$B4X?t(B mime/decode-message-header-if-you-need $B$r(B tm-misc.el $B$+$i0\$7$?!#(B ----------------------------- - -tm/gnus/tm-gnus4.el ----------------------------- -revision 6.7 -date: 1995/09/02 07:28:38; author: morioka; state: Exp; lines: +2 -2 -$B4X?t(B tm-gnus/toggle-mime-header-decoding-mode $B$r(B -tm-gnus/toggle-decoding-mode $B$K2~L>$7$?!#(B ----------------------------- -revision 6.6 -date: 1995/09/02 07:21:01; author: morioka; state: Exp; lines: +2 -2 -$BJQ?t(B mime/header-decoding-mode $B$r(B tm-gnus/decoding-mode $B$K2~L>$7$?!#(B ----------------------------- -revision 6.5 -date: 1995/09/02 07:04:38; author: morioka; state: Exp; lines: +2 -2 -$B4X?t(B mime/add-header-decoding-mode-to-mode-line $B$r(B -tm-gnus/add-decoding-mode-to-mode-line $B$K2~L>$7$?!#(B ----------------------------- -revision 6.4 -date: 1995/09/02 06:35:10; author: morioka; state: Exp; lines: +4 -1 -$BJQ?t(B gnus-article-prepare-hook $B$K4X?t(B -tm-gnus/decode-encoded-word-if-you-need $B$r(B add-hook $B$9$k$N$rK:$l$F$$$?(B -$B$N$r=$@5!#(B(^_^; ----------------------------- -revision 6.3 -date: 1995/09/02 06:21:41; author: morioka; state: Exp; lines: +5 -3 -$BJQ?t(B gnus-have-all-headers $B$,(B t $B$N;~$O(B encoded-word $B$r(B decode $B$7$J$$$h(B -$B$&$K$7$?!#(B ----------------------------- - -tm/gnus/tm-gnus5.el ----------------------------- -revision 6.19 -date: 1995/09/02 05:18:08; author: morioka; state: Exp; lines: +8 -7 -$B4X?t(B tm-gnus/summary-toggle-header $B$NIT6q9g$r=$@5$7$?!#(B ----------------------------- diff --git a/Changes-6.78.1.en b/Changes-6.78.1.en deleted file mode 100644 index c4390c5..0000000 --- a/Changes-6.78.1.en +++ /dev/null @@ -1,50 +0,0 @@ -* tl - - Attached version 6.6.1. - -tl/emu-18.el ----------------------------- -revision 4.0 -date: 1995/09/05 16:44:57; author: morioka; state: Exp; lines: +40 -1 -Created function `make-directory-internal' and function -`make-directory'. ----------------------------- - - -* mel - - Attached version 1.8.1. - - - Fixed mk-mel. - - -* tm - - - Installer was changed. - - Fixed TeXinfo files. - -tm/mime-setup.el ----------------------------- -revision 6.2 -date: 1995/09/06 10:07:26; author: morioka; state: Exp; lines: +105 -72 -(1) Defined variable `mime-setup-use-signature'. If it is nil, - mime-setup.el does not set up for signature.el. -(2) Defined variable `mime-setup-signature-key' to set key to bind - insert-signature. -(3) Stopped every header encoding by mime.el. -(4) Set up for extended mime-mode features by tm-comp. ----------------------------- - - -* tm/gnus - - Attached version 6.20.1. - - - Fixed mk-tgnus. - - -* tm/mh-e - - Attached version 6.24.1. - - - Fixed mk-tmh. diff --git a/Changes-6.78.1.ja b/Changes-6.78.1.ja deleted file mode 100644 index d51e1f2..0000000 --- a/Changes-6.78.1.ja +++ /dev/null @@ -1,50 +0,0 @@ -* tl - - Version 6.6.1 $B$rE:IU$7$?!#(B - -tl/emu-18.el ----------------------------- -revision 4.0 -date: 1995/09/05 16:44:57; author: morioka; state: Exp; lines: +40 -1 -$B4X?t(B make-directory-internal $B$H4X?t(B make-directory $B$rDI2C$7$?!#(B ----------------------------- - - -* mel - - Version 1.8.1 $B$rE:IU$7$?!#(B - - - mk-mel $B$r=$@5$7$?!#(B - - -* tm - - - installer $B$NJ}<0$rJQ99$7$?!#(B - - TeXinfo $BHG@bL@=q$r=$@5$7$?!#(B - -tm/mime-setup.el ----------------------------- -revision 6.2 -date: 1995/09/06 10:07:26; author: morioka; state: Exp; lines: +105 -72 -(1) $BJQ?t(B mime-setup-use-signature $B$rDj5A$7!"$3$l$,(B nil $B$N;~$O(B - signature.el $B$N@_Dj$r9T$J$o$J$$$h$&$K$7$?!#(B -(2) $BJQ?t(B mime-setup-signature-key $B$rDj5A$7!"(Binsert-signature $B$r(B bind - $B$9$k(B key $B$r@_Dj$G$-$k$h$&$K$7$?!#(B -(3) mime.el $B$G$O0l@Z(B header $B$N(B encode $B$r9T$J$o$J$$$h$&$K$7$?!#(B -(4) tm-comp $B$r(B load $B$7$F$$$k;~$O!"(Btm-comp $B$G3HD%$5$l$?(B mime-mode $B$N5!(B - $BG=$r;H$C$?@_Dj$r9T$J$&$h$&$K$7$?!#(B ----------------------------- - - -* tm/gnus - - Version 6.20.1 $B$rE:IU$7$?!#(B - - - mk-tgnus $B$r=$@5$7$?!#(B - - -* tm/mh-e - - Version 6.24.1 $B$rE:IU$7$?!#(B - - - mk-tmh $B$r=$@5$7$?!#(B diff --git a/Changes-6.78.2.en b/Changes-6.78.2.en deleted file mode 100644 index a705802..0000000 --- a/Changes-6.78.2.en +++ /dev/null @@ -1,15 +0,0 @@ -* tm - - - Fixed README.eng. - - -* tm/gnus - - Attached version 6.21. - -tm/gnus/tm-gnus5.el ----------------------------- -revision 6.21 -date: 1995/09/07 17:07:41; author: morioka; state: Exp; lines: +21 -1 -Defined quitting method for tm-view. ----------------------------- diff --git a/Changes-6.78.2.ja b/Changes-6.78.2.ja deleted file mode 100644 index be9ffc3..0000000 --- a/Changes-6.78.2.ja +++ /dev/null @@ -1,15 +0,0 @@ -* tm - - - README.eng $B$r=$@5$7$?!#(B - - -* tm/gnus - - Version 6.21 $B$rE:IU$7$?!#(B - -tm/gnus/tm-gnus5.el ----------------------------- -revision 6.21 -date: 1995/09/07 17:07:41; author: morioka; state: Exp; lines: +21 -1 -tm-view $B$N(B quitting method $B$r@_Dj$7$?!#(B ----------------------------- diff --git a/Changes-6.78.en b/Changes-6.78.en deleted file mode 100644 index 403f8e3..0000000 --- a/Changes-6.78.en +++ /dev/null @@ -1,59 +0,0 @@ -* tm - -tm/tiny-mime.el ----------------------------- -revision 6.6 -date: 1995/09/04 10:33:27; author: morioka; state: Exp; lines: +12 -15 -Created function `mime/exist-encoded-word-in-subject'. Function -`mime/encode-message-header' was changed to use it. ----------------------------- -revision 6.5 -date: 1995/09/04 10:14:13; author: morioka; state: Exp; lines: +1 -22 -Deleted unnecessary constants about Base64 and Quoted-Printable. ----------------------------- - -tm/tm-def.el ----------------------------- -revision 4.1 -date: 1995/09/04 10:17:02; author: morioka; state: Exp; lines: +7 -7 -Changed names of constans about encoding-word. ----------------------------- -revision 4.0 -date: 1995/09/04 10:15:01; author: morioka; state: Exp; lines: +31 -1 -Moved definitions of constants about Base64 and Quoted-Printable from -tiny-mime.el, and modified a little. ----------------------------- - -tm/tm-view.el ----------------------------- -revision 6.78 -date: 1995/09/05 01:08:55; author: morioka; state: Exp; lines: +3 -12 -Moved quitting method for GNUS 4 to tm-gnus4.el. ----------------------------- - - -* tm/gnus - - Attached version 6.20. - -tm/gnus/tm-gnus3.el ----------------------------- -revision 6.9 -date: 1995/09/05 01:29:20; author: morioka; state: Exp; lines: +24 -17 -autoload tm-view instead of requiring. ----------------------------- - -tm/gnus/tm-gnus4.el ----------------------------- -revision 6.8 -date: 1995/09/05 01:10:25; author: morioka; state: Exp; lines: +18 -1 -Defined quitting method for tm-view in this module. ----------------------------- - -tm/gnus/tm-gnus5.el ----------------------------- -revision 6.20 -date: 1995/09/04 10:53:07; author: morioka; state: Exp; lines: +2 -7 -Changed value of variable `gnus-show-mime-method' to simply (function -mime/decode-message-header). ----------------------------- diff --git a/Changes-6.78.ja b/Changes-6.78.ja deleted file mode 100644 index 8e559b5..0000000 --- a/Changes-6.78.ja +++ /dev/null @@ -1,59 +0,0 @@ -* tm - -tm/tiny-mime.el ----------------------------- -revision 6.6 -date: 1995/09/04 10:33:27; author: morioka; state: Exp; lines: +12 -15 -$B4X?t(B mime/exist-encoded-word-in-subject $B$rDI2C$7!"4X?t(B -mime/encode-message-header $B$NCf$G$3$l$r;H$&$h$&$K$7$?!#(B ----------------------------- -revision 6.5 -date: 1995/09/04 10:14:13; author: morioka; state: Exp; lines: +1 -22 -Base64 $B$H(B Quoted-Printable $B$K4X$9$kITMW$JDj?t$r:o=|$7$?!#(B ----------------------------- - -tm/tm-def.el ----------------------------- -revision 4.1 -date: 1995/09/04 10:17:02; author: morioka; state: Exp; lines: +7 -7 -encoding-word $B$K4X$9$kDj?t$NL>A0$rJQ99$7$?!#(B ----------------------------- -revision 4.0 -date: 1995/09/04 10:15:01; author: morioka; state: Exp; lines: +31 -1 -Base64 $B$H(B Quoted-Printable $B$K4X$9$kDj?t$r(B tiny-mime.el $B$+$i0\$7!">/$7(B -$B=$@5$7$?!#(B ----------------------------- - -tm/tm-view.el ----------------------------- -revision 6.78 -date: 1995/09/05 01:08:55; author: morioka; state: Exp; lines: +3 -12 -GNUS 4 $BMQ$N(B quitting method $B$r(B tm-gnus4.el $B$K0\$7$?!#(B ----------------------------- - - -* tm/gnus - - Version 6.20 $B$rE:IU$7$?!#(B - -tm/gnus/tm-gnus3.el ----------------------------- -revision 6.9 -date: 1995/09/05 01:29:20; author: morioka; state: Exp; lines: +24 -17 -tm-view $B$r(B autoload $B$9$k$h$&$K$7$?!#(B ----------------------------- - -tm/gnus/tm-gnus4.el ----------------------------- -revision 6.8 -date: 1995/09/05 01:10:25; author: morioka; state: Exp; lines: +18 -1 -tm-view $B$N(B quitting method $B$3$NCf$GDj5A$9$k$h$&$K$7$?!#(B ----------------------------- - -tm/gnus/tm-gnus5.el ----------------------------- -revision 6.20 -date: 1995/09/04 10:53:07; author: morioka; state: Exp; lines: +2 -7 -$BJQ?t(B gnus-show-mime-method $B$NCM$rC1$K(B (function -mime/decode-message-header) $B$H$7$?!#(B ----------------------------- diff --git a/Changes-6.79.en b/Changes-6.79.en deleted file mode 100644 index 0ad9d3c..0000000 --- a/Changes-6.79.en +++ /dev/null @@ -1,57 +0,0 @@ -* tl - - Attached version 6.6.2. - - - installer was changed. - - README.eng was rewrote. - -tl/emu-xemacs.el ----------------------------- -revision 2.0 -date: 1995/09/08 17:47:54; author: morioka; state: Exp; -Created to emulate Emacs 19 text-property features. -(I referred gnus-ems.el of Gnus 5.0) ----------------------------- - -tl/emu.el ----------------------------- -revision 2.0 -date: 1995/09/08 17:47:33; author: morioka; state: Exp; lines: +5 -1 -(require 'emu-xemacs) when it is XEmacs. ----------------------------- - - -* mel - - Version 1.9 $B$rE:IU$7$?!#(B - -mel/mel-q.el ----------------------------- -revision 1.9 -date: 1995/09/09 05:14:23; author: morioka; state: Exp; lines: +17 -25 -According to Yves Forkl 's bug -report, I fixed a bug of function -`quoted-printable-internal-encode-region'. ----------------------------- - - -* tm - - - Modified Makefile because of tl installer was changed. - - In README.eng, key bind description of mime/viewer-mode was - changed. - -tm/tinyrich.el ----------------------------- -revision 3.0 -date: 1995/09/08 17:29:38; author: morioka; state: Exp; lines: +2 -2 -Fixed a bug of function `mime/set-face-region' for Emacs 19. ----------------------------- - -tm/tm-view.el ----------------------------- -revision 6.79 -date: 1995/09/08 14:50:03; author: morioka; state: Exp; lines: +15 -1 -In Emacs 19 and XEmacs, mouse-button-2 is used to play the content -under the mouse cursor. ----------------------------- diff --git a/Changes-6.79.ja b/Changes-6.79.ja deleted file mode 100644 index 2b24937..0000000 --- a/Changes-6.79.ja +++ /dev/null @@ -1,55 +0,0 @@ -* tl - - Version 6.6.2 $B$rE:IU$7$?!#(B - - - installer $B$rJQ99$7$?!#(B - - README.eng $B$r=q$-D>$7$?!#(B - -tl/emu-xemacs.el ----------------------------- -revision 2.0 -date: 1995/09/08 17:47:54; author: morioka; state: Exp; -Emacs 19 $B$N(B text-property $B4XO"$N(B emulation module $B$H$7$F:n@.$7$?!#(B -$B!J(BGnus 5 $B$N(B gnus-ems.el $B$r;29M$K$7$?!K(B ----------------------------- - -tl/emu.el ----------------------------- -revision 2.0 -date: 1995/09/08 17:47:33; author: morioka; state: Exp; lines: +5 -1 -XEmacs $B$N;~!"(Bemu-xemacs $B$r(B require $B$9$k$h$&$K$7$?!#(B ----------------------------- - - -* mel - - Version 1.9 $B$rE:IU$7$?!#(B - -mel/mel-q.el ----------------------------- -revision 1.9 -date: 1995/09/09 05:14:23; author: morioka; state: Exp; lines: +17 -25 -Yves Forkl $B$5$s$N;XE&$K=>$$!"4X?t(B -quoted-printable-internal-encode-region $B$NIT6q9g$r=$@5$7$?!#(B ----------------------------- - - -* tm - - - tl $B$N(B installer $B$NJQ99$KH<$$!"(BMakefile $B$r=$@5$7$?!#(B - - README.eng $B$N(B mime/viewer-mode $B$N(B key bind $B$N@bL@$r=$@5$7$?!#(B - -tm/tinyrich.el ----------------------------- -revision 3.0 -date: 1995/09/08 17:29:38; author: morioka; state: Exp; lines: +2 -2 -Emacs 19 $BMQ$N4X?t(B mime/set-face-region $B$NIT6q9g$r=$@5$7$?!#(B ----------------------------- - -tm/tm-view.el ----------------------------- -revision 6.79 -date: 1995/09/08 14:50:03; author: morioka; state: Exp; lines: +15 -1 -Emacs 19 $B$H(B XEmacs $B$G$O(B mouse button 2 $B$G(B content $B$r(B play $B$G$-$k$h$&$K(B -$B$7$?!#(B ----------------------------- diff --git a/Changes-6.80.1.en b/Changes-6.80.1.en deleted file mode 100644 index a8506c1..0000000 --- a/Changes-6.80.1.en +++ /dev/null @@ -1,49 +0,0 @@ -* mel - - Attached version 2.0. - -mel/me-q.el ----------------------------- -revision 2.0 -date: 1995/09/11 11:33:47; author: morioka; state: Exp; lines: +20 -1 -I deleted function `quoted-printable-internal-decode-region' in -mistake, so I revive it. ----------------------------- - - -* tm - -tm/tm-mule.el ----------------------------- -revision 6.5 -date: 1995/09/12 13:24:04; author: morioka; state: Exp; lines: +2 -2 -In function `mime/convert-string-to-emacs', fixed problem about -undefined charset. ----------------------------- - - -* tm/gnus - - Attached version 6.22. - -tm/gnus/tm-gnus3.el ----------------------------- -revision 6.10 -date: 1995/09/11 07:20:29; author: morioka; state: Exp; lines: +2 -1 -Added (require 'tl-misc). ----------------------------- - -tm/gnus/tm-gnus4.el ----------------------------- -revision 6.9 -date: 1995/09/11 07:20:46; author: morioka; state: Exp; lines: +2 -1 -According to MIYAZAKI Jun 's suggestion, I added -(require 'tl-misc). ----------------------------- - -tm/gnus/tm-gnus5.el ----------------------------- -revision 6.22 -date: 1995/09/11 07:41:23; author: morioka; state: Exp; lines: +2 -1 -Added (require 'tl-misc). ----------------------------- diff --git a/Changes-6.80.1.ja b/Changes-6.80.1.ja deleted file mode 100644 index 851666a..0000000 --- a/Changes-6.80.1.ja +++ /dev/null @@ -1,49 +0,0 @@ -* mel - - Version 2.0 $B$rE:IU$7$?!#(B - -mel/me-q.el ----------------------------- -revision 2.0 -date: 1995/09/11 11:33:47; author: morioka; state: Exp; lines: +20 -1 -$B4X?t(B quoted-printable-internal-decode-region $B$r4V0c$($F>C$7$F$$$?$N$r(B -$BI|3h$5$;$?!#(B ----------------------------- - - -* tm - -tm/tm-mule.el ----------------------------- -revision 6.5 -date: 1995/09/12 13:24:04; author: morioka; state: Exp; lines: +2 -2 -$B4X?t(B mime/convert-string-to-emacs $B$NL$Dj5A(B charset $B$N $B$5$s$N;XE&$K=>$$!"(B(require 'tl-misc) $B$r(B -$BDI2C$7$?!#(B ----------------------------- - -tm/gnus/tm-gnus5.el ----------------------------- -revision 6.22 -date: 1995/09/11 07:41:23; author: morioka; state: Exp; lines: +2 -1 -(require 'tl-misc) $B$rDI2C$7$?!#(B ----------------------------- diff --git a/Changes-6.80.en b/Changes-6.80.en deleted file mode 100644 index aa9c902..0000000 --- a/Changes-6.80.en +++ /dev/null @@ -1,32 +0,0 @@ -* tl - - Attached version 6.6.3. - ----------------------------- -revision 3.0 -date: 1995/09/10 13:31:51; author: morioka; state: Exp; lines: +20 -19 -Emacs 19 emulating functions were deleted. ----------------------------- - -* tm - -tm/tinyrich.el ----------------------------- -revision 4.0 -date: 1995/09/10 13:35:41; author: morioka; state: Exp; lines: +10 -2 -Definition for XEmacs were added. ----------------------------- - -tm/tm-setup.el ----------------------------- -revision 6.3 -date: 1995/09/10 15:45:42; author: morioka; state: Exp; lines: +23 -17 -Setting for tm-rich was added. ----------------------------- - -tm/tm-view.el ----------------------------- -revision 6.80 -date: 1995/09/09 08:54:54; author: morioka; state: Exp; lines: +26 -13 -Document string of function `mime/viewer-mode' was fixed. ----------------------------- diff --git a/Changes-6.80.ja b/Changes-6.80.ja deleted file mode 100644 index 964b2c1..0000000 --- a/Changes-6.80.ja +++ /dev/null @@ -1,32 +0,0 @@ -* tl - - Version 6.6.3 $B$rE:IU$7$?!#(B - ----------------------------- -revision 3.0 -date: 1995/09/10 13:31:51; author: morioka; state: Exp; lines: +20 -19 -Emacs 19 $B$HF1L>$N4X?t$rDj5A$9$k$N$O$d$a$?!#(B ----------------------------- - -* tm - -tm/tinyrich.el ----------------------------- -revision 4.0 -date: 1995/09/10 13:35:41; author: morioka; state: Exp; lines: +10 -2 -XEmacs $BMQ$NDj5A$rDI2C$7$?!#(B ----------------------------- - -tm/tm-setup.el ----------------------------- -revision 6.3 -date: 1995/09/10 15:45:42; author: morioka; state: Exp; lines: +23 -17 -tm-rich $B$N@_Dj$r9T$J$C$?!#(B ----------------------------- - -tm/tm-view.el ----------------------------- -revision 6.80 -date: 1995/09/09 08:54:54; author: morioka; state: Exp; lines: +26 -13 -$B4X?t(B mime/viewer-mode $B$N(B document string $B$r=$@5$7$?!#(B ----------------------------- diff --git a/Changes-6.81-6.83.en b/Changes-6.81-6.83.en deleted file mode 100644 index 080d519..0000000 --- a/Changes-6.81-6.83.en +++ /dev/null @@ -1,138 +0,0 @@ -* tl - - Attached version 6.6.5. - - -tl/tl-header.el ----------------------------- -revision 5.9 -date: 1995/09/20 12:11:33; author: morioka; state: Exp; lines: +12 -3 -(1) Function `message/field-end' was created. -(2) Function `message/get-field-body' was modified to use function - `message/field-end'. ----------------------------- - - -* tm - -tm/tiny-mime.el ----------------------------- -revision 6.7 -date: 1995/09/20 12:17:28; author: morioka; state: Exp; lines: +2 -10 -Function `mime/unfolding' was modified to use function -`message/field-end'. ----------------------------- - -tm/tinyrich.el ----------------------------- -revision 5.0 -date: 1995/09/20 14:45:56; author: morioka; state: Exp; lines: +12 -41 -It was modified to use function `tm:set-face-region'. ----------------------------- - -tm/tm-def.el ----------------------------- -revision 6.1 -date: 1995/09/20 14:44:49; author: morioka; state: Exp; lines: +30 -2 -function `tm:set-face-region' was defined for each emacs variants. ----------------------------- -revision 6.0 -date: 1995/09/19 16:09:04; author: morioka; state: Exp; lines: +2 -2 -UENO Hiroshi said: -====================================================================== -tm-def gets `mime/tmp-dir' from environment variable `TM_TMPDIR', on -the other hand external methods get from `TM_TMP_DIR'. External -methods for OS/2 is using `TM_TMP_DIR', because csh version external -methods, which are model of OS/2 methods, were using `TM_TMP_DIR'. So -I think TM_TMP_DIR may be correct. Anyway, I think they should be -unified. -====================================================================== -So I fixed to use `TM_TMP_DIR'. ----------------------------- -revision 5.0 -date: 1995/09/14 15:48:25; author: morioka; state: Exp; lines: +13 -1 -Variable `mime/use-multi-frame' and variable `mime/find-file-function' -are defined. ----------------------------- - -tm/tm-ftp.el ----------------------------- -revision 6.1 -date: 1995/09/14 15:49:43; author: morioka; state: Exp; lines: +11 -4 -When variable `mime/use-multi-frame' is non-nil, dired is displayed as -another frame. ----------------------------- - -tm/tm-latex.el ----------------------------- -revision 3.0 -date: 1995/09/14 15:51:35; author: morioka; state: Exp; lines: +6 -4 -Variable `mime/find-file-function' was defined as a function to find -file. ----------------------------- - -tm/tm-partial.el ----------------------------- -revision 6.0 -date: 1995/09/20 14:39:23; author: morioka; state: Exp; lines: +12 -7 -Fixed a problem of function `mime/decode-message/grab-partials'. ----------------------------- - -tm/tm-tar.el ----------------------------- -By UENO Hiroshi . -It is a internal method of tm-view to view files included in tar or -tar.gz content. ----------------------------- - -tm/tm-view.el ----------------------------- -revision 6.83 -date: 1995/09/20 14:19:42; author: morioka; state: Exp; lines: +5 -1 -Function `mime-viewer/make-preview-buffer' was fixed about -message/partial announcement. If body is empty, empty line is inserted. ----------------------------- -revision 6.82 -date: 1995/09/20 12:16:14; author: morioka; state: Exp; lines: +26 -3 -(1) Display X-Face. -(2) X-Face field does not display in default. ----------------------------- -revision 6.81 -date: 1995/09/14 15:46:45; author: morioka; state: Exp; lines: +10 -3 -2 announcements of message/partial, mouse is available or not, was -defined. ----------------------------- - -tm/tm-w3.el ----------------------------- -revision 1.1 -date: 1995/09/14 15:51:57; author: morioka; state: Exp; -Internal method to view HTML content. ----------------------------- - - -* tm/mh-e - - Attached version 6.27. - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 6.27 -date: 1995/09/20 12:34:39; author: morioka; state: Exp; lines: +4 -2 - - (if (featurep 'hilit19) - (hilit-rehighlight-buffer-quietly) - ) - -was inserted in function `tm-mh-e/content-header-filter'. ----------------------------- -revision 6.26 -date: 1995/09/20 12:19:28; author: morioka; state: Exp; lines: +2 -1 -Function `tm-mh-e/content-header-filter' was modified to call function -`mime-viewer/x-face-function'. ----------------------------- -revision 6.25 -date: 1995/09/15 06:58:00; author: morioka; state: Exp; lines: +24 -1 -Function `tm-mh-e/toggle-showing' was defined to fix a problem of `t' -key in summary mode. ----------------------------- diff --git a/Changes-6.81-6.83.ja b/Changes-6.81-6.83.ja deleted file mode 100644 index 3ce7ca6..0000000 --- a/Changes-6.81-6.83.ja +++ /dev/null @@ -1,136 +0,0 @@ -* tl - - Version 6.6.5 $B$rE:IU$7$?!#(B - - -tl/tl-header.el ----------------------------- -revision 5.9 -date: 1995/09/20 12:11:33; author: morioka; state: Exp; lines: +12 -3 -(1) $B4X?t(B message/field-end $B$rDI2C$7$?!#(B -(2) $B4X?t(B message/field-end $B$r;H$&$h$&$K4X?t(B message/get-field-body $B$r(B - $B=$@5$7$?!#(B ----------------------------- - - -* tm - -tm/tiny-mime.el ----------------------------- -revision 6.7 -date: 1995/09/20 12:17:28; author: morioka; state: Exp; lines: +2 -10 -$B4X?t(B mime/unfolding $B$G4X?t(B message/field-end $B$r;H$&$h$&$K$7$?!#(B ----------------------------- - -tm/tinyrich.el ----------------------------- -revision 5.0 -date: 1995/09/20 14:45:56; author: morioka; state: Exp; lines: +12 -41 -$B4X?t(B tm:set-face-region $B$r;H$&$h$&$K$7$?!#(B ----------------------------- - -tm/tm-def.el ----------------------------- -revision 6.1 -date: 1995/09/20 14:44:49; author: morioka; state: Exp; lines: +30 -2 -$B3F(B Emacs $B$N(B variant $B$KBP$7$F!"4X?t(B tm:set-face-region $B$rDj5A$7$?!#(B ----------------------------- -revision 6.0 -date: 1995/09/19 16:09:04; author: morioka; state: Exp; lines: +2 -2 -$B>eLn(B $BGn(B $B$5$s[)$/!'(B -====================================================================== -$B$^$:(B tm-def $B$G(B mime/tmp-dir $B$r4D6-JQ?t(B TM_TMPDIR $B$+$iH$KMQ$$$k4X?t$H$7$F!"JQ?t(B mime/find-file-function $B$NCM$rMQ$$(B -$B$k$h$&$K$7$?!#(B ----------------------------- - -tm/tm-partial.el ----------------------------- -revision 6.0 -date: 1995/09/20 14:39:23; author: morioka; state: Exp; lines: +12 -7 -$B4X?t(B mime/decode-message/grab-partials $B$NIT6q9g$r=$@5$7$?!#(B ----------------------------- - -tm/tm-tar.el ----------------------------- -$B>eLn(B $BGn(B $B$5$s:n!#(B -tar $B$d(B tar.gz file $B$r1\Mw$9$k$?$a$NFbIt(B method. ----------------------------- - -tm/tm-view.el ----------------------------- -revision 6.83 -date: 1995/09/20 14:19:42; author: morioka; state: Exp; lines: +5 -1 -$B4X?t(B mime-viewer/make-preview-buffer $B$r!"(Bmessage/partial $B$N;~$K(B -preview buffer $B$KI=<($9$k(B message $B$NA0$KI,$:6u9T$,F~$k$h$&$K=$@5$7$?!#(B ----------------------------- -revision 6.82 -date: 1995/09/20 12:16:14; author: morioka; state: Exp; lines: +26 -3 -(1) X-Face $B$rI=<($9$k$h$&$K$7$?!#(B -(2) X-Face field $B$rI=<($7$J$$$h$&$K$7$?!#(B ----------------------------- -revision 6.81 -date: 1995/09/14 15:46:45; author: morioka; state: Exp; lines: +10 -3 -message/partial $BMQ$N(B message $B$r(B mouse $B$,;H$($k>l9g$H;H$($J$$>l9g$N#2DL(B -$B$jMQ0U$7$?!#(B ----------------------------- - -tm/tm-w3.el ----------------------------- -revision 1.1 -date: 1995/09/14 15:51:57; author: morioka; state: Exp; -HTML $B$r1\Mw$9$k$?$a$NFbIt(B method. ----------------------------- - - -* tm/mh-e - - Version 6.27 $B$rE:IU$7$?!#(B - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 6.27 -date: 1995/09/20 12:34:39; author: morioka; state: Exp; lines: +4 -2 -$B4X?t(B tm-mh-e/content-header-filter $B$K(B - - (if (featurep 'hilit19) - (hilit-rehighlight-buffer-quietly) - ) - -$B$rF~$l$?!#(B ----------------------------- -revision 6.26 -date: 1995/09/20 12:19:28; author: morioka; state: Exp; lines: +2 -1 -$B4X?t(B tm-mh-e/content-header-filter $B$r4X?t(B mime-viewer/x-face-function -$B$r8F$V$h$&$K=$@5$7$?!#(B ----------------------------- -revision 6.25 -date: 1995/09/15 06:58:00; author: morioka; state: Exp; lines: +24 -1 -$B4X?t(B tm-mh-e/toggle-showing $B$rDj5A$7!"(Bsummary mode $B$G(B `t' key $B$,$&$^$/(B -$BF/$/$h$&$K=$@5$7$?!#(B ----------------------------- diff --git a/Changes-6.84-6.88.en b/Changes-6.84-6.88.en deleted file mode 100644 index dc82163..0000000 --- a/Changes-6.84-6.88.en +++ /dev/null @@ -1,217 +0,0 @@ -* tl - - Attached version 6.6.6. - - - emu is changed. - -tl/emu-18.el ----------------------------- -revision 6.0 -date: 1995/09/21 00:06:48; author: morioka; state: Exp; lines: +3 -1 -comment was modified. ----------------------------- -revision 5.0 -date: 1995/09/20 23:29:11; author: morioka; state: Exp; lines: +10 -2 -Variable `mouse-button-2' was created. ----------------------------- - -tl/emu-19.el ----------------------------- -revision 2.0 -date: 1995/09/21 00:10:55; author: morioka; state: Exp; lines: +3 -1 -comment was modified. ----------------------------- -revision 1.1 -date: 1995/09/20 23:31:30; author: morioka; state: Exp; -It was created as emu module for Emacs 19.*. ----------------------------- - -tl/emu-mule.el ----------------------------- -revision 6.3 -date: 1995/09/21 00:08:02; author: morioka; state: Exp; lines: +3 -1 -comment was modified. ----------------------------- -revision 6.2 -date: 1995/09/20 23:42:12; author: morioka; state: Exp; lines: +16 -3 -Function `tl:make-overlay', `tl:overlay-put', `tl:add-text-properties' -were defined. ----------------------------- - -tl/emu-nemacs.el ----------------------------- -revision 6.1 -date: 1995/09/21 00:07:24; author: morioka; state: Exp; lines: +3 -1 -comment was modified. ----------------------------- -revision 6.0 -date: 1995/09/20 23:38:29; author: morioka; state: Exp; lines: +30 -2 -Function `tl:make-overlay', - `tl:overlay-put', - `tl:add-text-properties', -and variable `mouse-button-2' and `tl:available-face-attribute-alist' -were defined. ----------------------------- - -tl/emu-orig.el ----------------------------- -revision 4.0 -date: 1995/09/21 00:09:37; author: morioka; state: Exp; lines: +3 -1 -comment was modified. ----------------------------- -revision 3.0 -date: 1995/09/20 23:45:23; author: morioka; state: Exp; lines: +18 -2 -(require 'emu-xemacs) for XEmacs, (require 'emu-19) for FSF original -Emacs 19. ----------------------------- - -tl/emu-xemacs.el ----------------------------- -revision 5.0 -date: 1995/09/21 00:08:50; author: morioka; state: Exp; lines: +4 -2 -comment was modified. ----------------------------- -revision 4.0 -date: 1995/09/20 23:35:02; author: morioka; state: Exp; lines: +35 -21 -Function `tl:set-text-properties', - `tl:add-text-properties', - `tl:make-overlay', - `tl:overlay-put', - `tl:overlay-buffer', - `tl:move-overlay', -and variable `mouse-button-2' were defined. ----------------------------- - -tl/emu.el ----------------------------- -revision 4.0 -date: 1995/09/21 00:05:57; author: morioka; state: Exp; lines: +10 -2 -comment was modified. ----------------------------- -revision 3.0 -date: 1995/09/20 23:46:38; author: morioka; state: Exp; lines: +1 -5 -(require 'emu-xemacs) was moved to emu-orig.el. ----------------------------- - - -* tm - -tm/tm-def.el ----------------------------- -revision 6.3 -date: 1995/09/21 00:12:52; author: morioka; state: Exp; lines: +2 -2 -comment was modified. ----------------------------- -revision 6.2 -date: 1995/09/20 23:53:54; author: morioka; state: Exp; lines: +39 -28 -Function `tm:set-face-region', - `tm:add-button', - `tm:button-dispatcher', -and variable `tm:button-face', `tm:mouse-face' were defined. ----------------------------- - -tm/tm-rich.el ----------------------------- -revision 6.14 -date: 1995/09/21 00:18:32; author: morioka; state: Exp; lines: +3 -3 -Function `mime-viewer/filter-text/enriched' was fixed to use function -`mime-viewer/default-code-convert-region'. ----------------------------- -revision 6.13 -date: 1995/09/21 00:14:07; author: morioka; state: Exp; lines: +2 -2 -comment was modified. ----------------------------- -revision 6.12 -date: 1995/09/20 19:48:26; author: morioka; state: Exp; lines: +19 -2 -comment was modified. ----------------------------- -revision 6.11 -date: 1995/09/20 19:34:15; author: morioka; state: Exp; lines: +15 -3 -Eric Ding said$B!'(B -====================================================================== -if text/enriched mail is encoded with quoted-printable, tm-view -doesn't seem to be decoding it properly. -====================================================================== -I applied this patch. ----------------------------- - -tm/tm-view.el ----------------------------- -revision 6.88 -date: 1995/09/21 02:33:28; author: morioka; state: Exp; lines: +2 -2 -In function `mime-viewer/insert-content-subject', button does not -include new line. ----------------------------- -revision 6.87 -date: 1995/09/21 02:12:25; author: morioka; state: Exp; lines: +3 -1 -tm:add-button was set for announcement of message/partial. ----------------------------- -revision 6.86 -date: 1995/09/21 00:13:26; author: morioka; state: Exp; lines: +2 -2 -comment was modified. ----------------------------- -revision 6.85 -date: 1995/09/21 00:00:42; author: morioka; state: Exp; lines: +35 -34 -(1) In function `mime-viewer/insert-content-subject', button setting - was added. -(2) Setting of mouse-button-2 is modified to use variable - `mouse-button-2' and function `tm:button-dispatcher'. ----------------------------- -revision 6.84 -date: 1995/09/20 20:01:21; author: morioka; state: Exp; lines: +13 -7 -Setting for message/news was added. ----------------------------- - - -* tm/gnus - - Attached version 6.22.1. - -tm/gnus/tm-gnus.el ----------------------------- -revision 6.3 -date: 1995/09/21 02:59:55; author: morioka; state: Exp; lines: +10 -4 -September Gnus was supported. ----------------------------- - - -* tm/mh-e - - Attached version 6.32. - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 6.32 -date: 1995/09/21 00:20:10; author: morioka; state: Exp; lines: +3 -3 -comment was modified. ----------------------------- -revision 6.31 -date: 1995/09/20 20:17:13; author: morioka; state: Exp; lines: +13 -4 -comment was modified. ----------------------------- -revision 6.30 -date: 1995/09/20 20:11:48; author: morioka; state: Exp; lines: +7 -2 -ARIURA 's mhl supporting patch was applied. ----------------------------- -revision 6.29 -date: 1995/09/20 19:25:17; author: morioka; state: Exp; lines: +7 -4 -In function `tm-mh-e/cite', - - (if (not (eq nil mime::article/preview-buffer)) - mime::article/preview-buffer - (current-buffer)) - -was rewrote to - - (or mime::article/preview-buffer (current-buffer)) ----------------------------- -revision 6.28 -date: 1995/09/20 19:14:48; author: morioka; state: Exp; lines: +6 -3 -Eric Ding said: -====================================================================== -in tm-mh-e/cite 6.25, there is an assumption that mh-reply is being -called from within mh-e, which is not always true (for instance, if -it's being used from within gnus). Here's the patch. -====================================================================== -I applied this patch. ----------------------------- diff --git a/Changes-6.84-6.88.ja b/Changes-6.84-6.88.ja deleted file mode 100644 index d50e745..0000000 --- a/Changes-6.84-6.88.ja +++ /dev/null @@ -1,217 +0,0 @@ -* tl - - Version 6.6.6 $B$rE:IU$7$?!#(B - - - emu $B$N9=@.$rJQ99$7$?!#(B - -tl/emu-18.el ----------------------------- -revision 6.0 -date: 1995/09/21 00:06:48; author: morioka; state: Exp; lines: +3 -1 -comment $B$r=$@5$7$?!#(B ----------------------------- -revision 5.0 -date: 1995/09/20 23:29:11; author: morioka; state: Exp; lines: +10 -2 -$BJQ?t(B mouse-button-2 $B$rDI2C$7$?!#(B ----------------------------- - -tl/emu-19.el ----------------------------- -revision 2.0 -date: 1995/09/21 00:10:55; author: morioka; state: Exp; lines: +3 -1 -comment $B$r=$@5$7$?!#(B ----------------------------- -revision 1.1 -date: 1995/09/20 23:31:30; author: morioka; state: Exp; -Emacs 19 $B7OMQ$N(B module $B$H$7$F?7@_$7$?!#(B ----------------------------- - -tl/emu-mule.el ----------------------------- -revision 6.3 -date: 1995/09/21 00:08:02; author: morioka; state: Exp; lines: +3 -1 -comment $B$r=$@5$7$?!#(B ----------------------------- -revision 6.2 -date: 1995/09/20 23:42:12; author: morioka; state: Exp; lines: +16 -3 -$B4X?t(B tl:make-overlay, tl:overlay-put, tl:add-text-properties $B$rDj5A$7(B -$B$?!#(B ----------------------------- - -tl/emu-nemacs.el ----------------------------- -revision 6.1 -date: 1995/09/21 00:07:24; author: morioka; state: Exp; lines: +3 -1 -comment $B$r=$@5$7$?!#(B ----------------------------- -revision 6.0 -date: 1995/09/20 23:38:29; author: morioka; state: Exp; lines: +30 -2 -$B4X?t(B tl:make-overlay, - tl:overlay-put, - tl:add-text-properties, -$B$*$h$S!"JQ?t(B mouse-button-2, tl:available-face-attribute-alist $B$rDj5A(B -$B$7$?!#(B ----------------------------- - -tl/emu-orig.el ----------------------------- -revision 4.0 -date: 1995/09/21 00:09:37; author: morioka; state: Exp; lines: +3 -1 -comment $B$r=$@5$7$?!#(B ----------------------------- -revision 3.0 -date: 1995/09/20 23:45:23; author: morioka; state: Exp; lines: +18 -2 -XEmacs $B$N>l9g$O(B emu-xemacs, FSF original Emacs 19 $B$N>l9g$O(B emu-19 $B$r(B -require $B$9$k$h$&$K$7$?!#(B ----------------------------- - -tl/emu-xemacs.el ----------------------------- -revision 5.0 -date: 1995/09/21 00:08:50; author: morioka; state: Exp; lines: +4 -2 -comment $B$r=$@5$7$?!#(B ----------------------------- -revision 4.0 -date: 1995/09/20 23:35:02; author: morioka; state: Exp; lines: +35 -21 -$B4X?t(B tl:set-text-properties, - tl:add-text-properties, - tl:make-overlay, - tl:overlay-put, - tl:overlay-buffer, - tl:move-overlay, -$B$*$h$S!"JQ?t(B mouse-button-2 $B$rDj5A$7$?!#(B ----------------------------- - -tl/emu.el ----------------------------- -revision 4.0 -date: 1995/09/21 00:05:57; author: morioka; state: Exp; lines: +10 -2 -comment $B$r=$@5$7$?!#(B ----------------------------- -revision 3.0 -date: 1995/09/20 23:46:38; author: morioka; state: Exp; lines: +1 -5 -emu-xemacs $B$r(B require $B$9$kItJ,$r(B emu-orig.el $B$K0\$7$?!#(B ----------------------------- - - -* tm - -tm/tm-def.el ----------------------------- -revision 6.3 -date: 1995/09/21 00:12:52; author: morioka; state: Exp; lines: +2 -2 -comment $B$r=$@5$7$?!#(B ----------------------------- -revision 6.2 -date: 1995/09/20 23:53:54; author: morioka; state: Exp; lines: +39 -28 -$B4X?t(B tm:set-face-region, tm:add-button, tm:button-dispatcher, -$B$*$h$S!"JQ?t(B tm:button-face, tm:mouse-face $B$rDI2C$7$?!#(B ----------------------------- - -tm/tm-rich.el ----------------------------- -revision 6.14 -date: 1995/09/21 00:18:32; author: morioka; state: Exp; lines: +3 -3 -$B4X?t(B mime-viewer/default-code-convert-region $B$r;H$&$h$&$K!"4X?t(B -mime-viewer/filter-text/enriched $B$r=$@5$7$?!#(B ----------------------------- -revision 6.13 -date: 1995/09/21 00:14:07; author: morioka; state: Exp; lines: +2 -2 -comment $B$r=$@5$7$?!#(B ----------------------------- -revision 6.12 -date: 1995/09/20 19:48:26; author: morioka; state: Exp; lines: +19 -2 -comment $B$r=$@5$7$?!#(B ----------------------------- -revision 6.11 -date: 1995/09/20 19:34:15; author: morioka; state: Exp; lines: +15 -3 -Eric Ding $B$5$s[)$/!'(B -====================================================================== -if text/enriched mail is encoded with quoted-printable, tm-view -doesn't seem to be decoding it properly. -====================================================================== -$B$3$N(B patch $B$rEv$F$?!#(B ----------------------------- - -tm/tm-view.el ----------------------------- -revision 6.88 -date: 1995/09/21 02:33:28; author: morioka; state: Exp; lines: +2 -2 -$B4X?t(B mime-viewer/insert-content-subject $B$K$*$1$k(B button $B$NHO0O$K2~9T$,(B -$B4^$^$l$J$$$h$&$K$7$?!#(B ----------------------------- -revision 6.87 -date: 1995/09/21 02:12:25; author: morioka; state: Exp; lines: +3 -1 -message/partial $B$N(B announcement $B$KBP$7$F(B tm:add-button $B$N@_Dj$r9T$J$C(B -$B$?!#(B ----------------------------- -revision 6.86 -date: 1995/09/21 00:13:26; author: morioka; state: Exp; lines: +2 -2 -comment $B$r=$@5$7$?!#(B ----------------------------- -revision 6.85 -date: 1995/09/21 00:00:42; author: morioka; state: Exp; lines: +35 -34 -(1) $B4X?t(B mime-viewer/insert-content-subject $B$G(B button $B$N@_Dj$r9T$J$C$?!#(B -(2) mouse-button-2 $B$N@_Dj$rJQ?t(B mouse-button-2 $B$H4X?t(B - tm:button-dispatcher $B$r;H$&$h$&$K=$@5$7$?!#(B ----------------------------- -revision 6.84 -date: 1995/09/20 20:01:21; author: morioka; state: Exp; lines: +13 -7 -message/news $BMQ$N@_Dj$r9T$J$C$?!#(B ----------------------------- - - -* tm/gnus - - Version 6.22.1 $B$rE:IU$7$?!#(B - -tm/gnus/tm-gnus.el ----------------------------- -revision 6.3 -date: 1995/09/21 02:59:55; author: morioka; state: Exp; lines: +10 -4 -September Gnus $B$KBP1~$7$?!#(B ----------------------------- - - -* tm/mh-e - - Version 6.32 $B$rE:IU$7$?!#(B - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 6.32 -date: 1995/09/21 00:20:10; author: morioka; state: Exp; lines: +3 -3 -comment $B$r=$@5$7$?!#(B ----------------------------- -revision 6.31 -date: 1995/09/20 20:17:13; author: morioka; state: Exp; lines: +13 -4 -comment $B$r=$@5$7$?!#(B ----------------------------- -revision 6.30 -date: 1995/09/20 20:11:48; author: morioka; state: Exp; lines: +7 -2 -$BM-1:(B $B=S0lO:(B $B$5$s$N(B mhl $BBP1~(B patch $B$rEv$F$?!#(B ----------------------------- -revision 6.29 -date: 1995/09/20 19:25:17; author: morioka; state: Exp; lines: +7 -4 -$B4X?t(B tm-mh-e/cite $B$K$*$$$F!"(B - - (if (not (eq nil mime::article/preview-buffer)) - mime::article/preview-buffer - (current-buffer)) - -$B$r(B - - (or mime::article/preview-buffer (current-buffer)) - -$B$K=q$-49$($?!#(B ----------------------------- -revision 6.28 -date: 1995/09/20 19:14:48; author: morioka; state: Exp; lines: +6 -3 -Eric Ding $B$5$s[)$/!'(B -====================================================================== -in tm-mh-e/cite 6.25, there is an assumption that mh-reply is being -called from within mh-e, which is not always true (for instance, if -it's being used from within gnus). Here's the patch. -====================================================================== -$B$3$N(B patch $B$rEv$F$?!#(B ----------------------------- diff --git a/Changes-6.89-6.92.en b/Changes-6.89-6.92.en deleted file mode 100644 index 18b4e7a..0000000 --- a/Changes-6.89-6.92.en +++ /dev/null @@ -1,65 +0,0 @@ -* tm - -tm/tm-def.el ----------------------------- -revision 6.6 -date: 1995/09/24 22:24:17; author: morioka; state: Exp; lines: +9 -4 -Function `tm:browse-url' was defined. ----------------------------- -revision 6.5 -date: 1995/09/24 20:19:02; author: morioka; state: Exp; lines: +14 -4 -Function `tm:button-dispatcher' was modified to call variable -`tm:mother-button-dispatcher' when tm-callback is not found. ----------------------------- -revision 6.4 -date: 1995/09/22 00:08:37; author: morioka; state: Exp; lines: +14 -1 -Variable `tm:URL-regexp' and variable `browse-url-browser-function' -are defined. ----------------------------- - -tm/tm-view.el ----------------------------- -revision 6.92 -date: 1995/09/24 22:25:24; author: morioka; state: Exp; lines: +2 -2 -Function `tm:browse-url' was called instead of variable -`browse-url-browser-function'. ----------------------------- -revision 6.91 -date: 1995/09/24 20:16:11; author: morioka; state: Exp; lines: +16 -10 -Some functions were added optional arguments to specify article-buffer -and preview-buffer. It is to support preview buffer support feature of -September Gnus. ----------------------------- -revision 6.90 -date: 1995/09/22 00:02:55; author: morioka; state: Exp; lines: +41 -25 -(1) Does not decode X-Face automatically. New command - `mime-viewer/display-x-face' to decode X-Face was bound to `f' key - of mime/viewer-mode. -(2) If variable `browse-url-browser-function' is set, button to call - it is set for URL regions of text/plain contents. ----------------------------- -revision 6.89 -date: 1995/09/21 23:20:55; author: morioka; state: Exp; lines: +4 -6 -Format of variable `mime-viewer/ignored-field-regexp' was changed. Its -head is `^', bottom is `:'. ----------------------------- - - -* tm/gnus - - Attached version 6.23. - -tm/gnus/tm-gnus.el ----------------------------- -revision 6.4 -date: 1995/09/24 20:22:40; author: morioka; state: Exp; lines: +5 -2 -(require 'tm-sgnus) when September Gnus. ----------------------------- - -tm/gnus/tm-sgnus.el ----------------------------- -revision 6.23 -date: 1995/09/24 20:20:32; author: morioka; state: Exp; -It was created for September Gnus. -Notice that it needs September Gnus v0.02 or later. ----------------------------- diff --git a/Changes-6.89-6.92.ja b/Changes-6.89-6.92.ja deleted file mode 100644 index b576f83..0000000 --- a/Changes-6.89-6.92.ja +++ /dev/null @@ -1,64 +0,0 @@ -* tm - -tm/tm-def.el ----------------------------- -revision 6.6 -date: 1995/09/24 22:24:17; author: morioka; state: Exp; lines: +9 -4 -$B4X?t(B tm:browse-url $B$rDj5A$7$?!#(B ----------------------------- -revision 6.5 -date: 1995/09/24 20:19:02; author: morioka; state: Exp; lines: +14 -4 -$BJQ?t(B tm:mother-button-dispatcher $B$rDI2C$7!"(Btm-callback $B$,8+$D$+$i$J$$(B -$B;~$3$l$r8F$V$h$&$K!"4X?t(B tm:button-dispatcher $B$r=$@5$7$?!#(B ----------------------------- -revision 6.4 -date: 1995/09/22 00:08:37; author: morioka; state: Exp; lines: +14 -1 -$BJQ?t(B tm:URL-regexp $B$HJQ?t(B browse-url-browser-function $B$rDj5A$7$?!#(B ----------------------------- - -tm/tm-view.el ----------------------------- -revision 6.92 -date: 1995/09/24 22:25:24; author: morioka; state: Exp; lines: +2 -2 -$BJQ?t(B browse-url-browser-function $B$rD>@\8F$VBe$o$j$K!"4X?t(B -tm:browse-url $B$r8F$V$h$&$K$7$?!#(B ----------------------------- -revision 6.91 -date: 1995/09/24 20:16:11; author: morioka; state: Exp; lines: +16 -10 -September Gnus $B$KBP1~$9$k$?$a!"(Boptional $BJQ?t$H$7$F(B article-buffer $B$H(B -preview-buffer $B$r;XDj$G$-$k$h$&$K$7$?!#(B ----------------------------- -revision 6.90 -date: 1995/09/22 00:02:55; author: morioka; state: Exp; lines: +41 -25 -(1) $B<+F0E*$K(B X-Face $B$r(B decode $B$9$k$N$O$d$a!"(Bmime/viewer-mode $B$N(B `f' - key $B$K(B decode $B$9$k$?$a$N(B command `mime-viewer/display-x-face' $B$r(B - bind $B$7$?!#(B -(2) $B$b$7!"JQ?t(B browse-url-browser-function $B$,@_Dj$5$l$F$$$l$P!"(B - text/plain content $B$N(B URL $B$KBP$7$F!"$3$l$r8F$V(B button $B$r@_Dj$9$k$h(B - $B$&$K$7$?!#(B ----------------------------- -revision 6.89 -date: 1995/09/21 23:20:55; author: morioka; state: Exp; lines: +4 -6 -$BJQ?t(B mime-viewer/ignored-field-regexp $B$N@hF,$K(B `^', $BKvHx$K(B `:' $B$rIU$1(B -$B$k$h$&$K$7$?!#(B ----------------------------- - - -* tm/gnus - - Version 6.23 $B$rE:IU$7$?!#(B - -tm/gnus/tm-gnus.el ----------------------------- -revision 6.4 -date: 1995/09/24 20:22:40; author: morioka; state: Exp; lines: +5 -2 -September Gnus $B$N;~(B tm-sgnus $B$r(B require $B$9$k$h$&$K$7$?!#(B ----------------------------- - -tm/gnus/tm-sgnus.el ----------------------------- -revision 6.23 -date: 1995/09/24 20:20:32; author: morioka; state: Exp; -September Gnus $BMQ$N(B module $B$H$7$F?7@_$7$?!#(B -September Gnus v0.02 $B0J9_$,I,MW$J$N$GCm0U$9$k$3$H!#(B ----------------------------- diff --git a/Changes-6.92-7.06.en b/Changes-6.92-7.06.en deleted file mode 100644 index 11d95a0..0000000 --- a/Changes-6.92-7.06.en +++ /dev/null @@ -1,128 +0,0 @@ -* tl - - Attached version 6.6.7. - -tl/tl-header.el ----------------------------- -revision 5.10 -date: 1995/09/26 00:23:15; author: morioka; state: Exp; lines: +1 -18 -Parsed data structure was deleted. ----------------------------- - - -* tm - -tm/tm-def.el ----------------------------- -revision 6.7 -date: 1995/09/25 22:21:48; author: morioka; state: Exp; lines: +15 -1 -Definitions of constants were moved from tm-view.el. ----------------------------- - -tm/tm-parse.el ----------------------------- -revision 2.4 -date: 1995/09/26 13:19:32; author: morioka; state: Exp; lines: +3 -2 -Quoted-string is strip in function `mime/parse-parameter'. ----------------------------- -revision 2.3 -date: 1995/09/26 04:25:13; author: morioka; state: Exp; lines: +4 -4 -Parser of tm-view.el was separated into tm-parse.el. -Parser was rewrote to speedup. ----------------------------- - -tm/tm-play.el ----------------------------- -revision 1.2 -date: 1995/09/26 11:54:38; author: morioka; state: Exp; lines: +25 -11 -Decoder of tm-view.el was separated into tm-play.el. ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.6 -date: 1995/09/26 11:53:46; author: morioka; state: Exp; lines: +41 -242 -Codes of decoder were moved to tm-play.el. ----------------------------- -revision 7.5 -date: 1995/09/26 10:22:34; author: morioka; state: Exp; lines: +107 -116 -Content displayer in function `mime-viewer/make-preview-buffer' was -separated into function `mime-viewer/display-content'. ----------------------------- -revision 7.4 -date: 1995/09/26 07:34:14; author: morioka; state: Exp; lines: +5 -8 -Argument `cinfo' of function `mime-viewer/make-preview-buffer' was deleted. ----------------------------- -revision 7.3 -date: 1995/09/26 07:15:29; author: morioka; state: Exp; lines: +16 -18 -Function `mime-viewer/make-preview-buffer' was modified. ----------------------------- -revision 7.2 -date: 1995/09/26 05:54:35; author: morioka; state: Exp; lines: +46 -51 -Function `mime-viewer/parse-message' was renamed to -`mime-viewer/setup-buffer'. ----------------------------- -revision 7.1 -date: 1995/09/26 05:28:56; author: morioka; state: Exp; lines: +4 -4 -Function `mime::make-flat-content-list' was renamed to -`mime/flatten-content-info'. ----------------------------- -revision 7.0 -date: 1995/09/26 03:21:54; author: morioka; state: Exp; lines: +2 -6 -Definition of structure `mime::content-info' was moved to tm-parse.el. ----------------------------- -revision 6.99 -date: 1995/09/26 02:59:41; author: morioka; state: Exp; lines: +2 -2 -tm-1521.el was renamed to tm-parse.el. ----------------------------- -revision 6.98 -date: 1995/09/26 02:32:27; author: morioka; state: Exp; lines: +2 -2 -Function `mime-viewer/parse' was renamed to `mime/parse-message'. ----------------------------- -revision 6.97 -date: 1995/09/26 02:22:17; author: morioka; state: Exp; lines: +1 -37 -Function `mime-viewer/parse' was moved to tm-1521.el. ----------------------------- -revision 6.96 -date: 1995/09/26 02:20:45; author: morioka; state: Exp; lines: +35 -39 -Unnecessary (save-excursion (save-restriction ...)) was deleted. ----------------------------- -revision 6.95 -date: 1995/09/26 01:15:00; author: morioka; state: Exp; lines: +4 -17 -Function `mime-viewer/parse' and function `mime/parse-multipart' were -modified. ----------------------------- -revision 6.94 -date: 1995/09/26 00:55:34; author: morioka; state: Exp; lines: +3 -111 -Parser for multipart was moved to tm-1521.el and renamed to -`mime/parse-multipart'. ----------------------------- -revision 6.93 -date: 1995/09/25 22:21:05; author: morioka; state: Exp; lines: +4 -16 -Definitions of constants were moved to tm-def.el. ----------------------------- - -tm/tm-vm.el ----------------------------- -revision 6.3 -date: 1995/09/26 00:15:07; author: morioka; state: Exp; lines: +4 -4 -Does not unfold because function `mime/parse-Content-Type' unfolds. ----------------------------- -revision 6.2 -date: 1995/09/25 23:41:10; author: morioka; state: Exp; lines: +2 -2 -Function `mime::parse-field-body/Content-Type' was renamed to -`mime/parse-Content-Type'. ----------------------------- - - -tm/gnus - - Attached version 6.24. - -tm/tm-sgnus.el ----------------------------- -revision 6.24 -date: 1995/09/26 12:08:35; author: morioka; state: Exp; lines: +2 -6 -Quitting-method was set for gnus-original-article-mode. -(Notice that it needs September Gnus v0.3 or later.) ----------------------------- diff --git a/Changes-6.92-7.06.ja b/Changes-6.92-7.06.ja deleted file mode 100644 index 80bc660..0000000 --- a/Changes-6.92-7.06.ja +++ /dev/null @@ -1,128 +0,0 @@ -* tl - - Version 6.6.7 $B$rE:IU$7$?!#(B - -tl/tl-header.el ----------------------------- -revision 5.10 -date: 1995/09/26 00:23:15; author: morioka; state: Exp; lines: +1 -18 -parsed data structure $B$r:o=|$7$?!#(B ----------------------------- - - -* tm - -tm/tm-def.el ----------------------------- -revision 6.7 -date: 1995/09/25 22:21:48; author: morioka; state: Exp; lines: +15 -1 -tm-view.el $B$K$"$C$?Dj?t$NDj5A$r0\$7$?!#(B ----------------------------- - -tm/tm-parse.el ----------------------------- -revision 2.4 -date: 1995/09/26 13:19:32; author: morioka; state: Exp; lines: +3 -2 -$B4X?t(B mime/parse-parameter $B$G(B value $B$r(B strip $B$9$k$h$&$K$7$?!#(B ----------------------------- -revision 2.3 -date: 1995/09/26 04:25:13; author: morioka; state: Exp; lines: +4 -4 -tm-view.el $B$N(B parser $B4X78$N(B code $B$r(B tm-parse.el $B$H$7$FFHN)$5$;$?!#(B -parser $B$rBgI}$K=q$-D>$7!"L5BL$J(B code $B$r:o8:$5$;$?!#(B ----------------------------- - -tm/tm-play.el ----------------------------- -revision 1.2 -date: 1995/09/26 11:54:38; author: morioka; state: Exp; lines: +25 -11 -tm-view.el $B$N(B decoder $B4X78$N(B code $B$r(B tm-play.el $B$H$7$FFHN)$5$;$?!#(B ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.6 -date: 1995/09/26 11:53:46; author: morioka; state: Exp; lines: +41 -242 -decoder $B4X78$N(B code $B$r(B tm-play.el $B$K0\$7$?!#(B ----------------------------- -revision 7.5 -date: 1995/09/26 10:22:34; author: morioka; state: Exp; lines: +107 -116 -$B4X?t(B mime-viewer/make-preview-buffer $BCf$N3F(B content $B$rI=<($9$kItJ,$r4X(B -$B?t(B mime-viewer/display-content $B$KJ,$1$?!#(B ----------------------------- -revision 7.4 -date: 1995/09/26 07:34:14; author: morioka; state: Exp; lines: +5 -8 -$B4X?t(B mime-viewer/make-preview-buffer $B$N0z?t(B cinfo $B$rGQ;_$7$?!#(B ----------------------------- -revision 7.3 -date: 1995/09/26 07:15:29; author: morioka; state: Exp; lines: +16 -18 -$B4X?t(B mime-viewer/make-preview-buffer $B$r$$$8$C$?!#(B ----------------------------- -revision 7.2 -date: 1995/09/26 05:54:35; author: morioka; state: Exp; lines: +46 -51 -$B4X?t(B mime-viewer/parse-message $B$r(B `mime-viewer/setup-buffer' $B$K2~L>$7(B -$B$?!#(B ----------------------------- -revision 7.1 -date: 1995/09/26 05:28:56; author: morioka; state: Exp; lines: +4 -4 -$B4X?t(B mime::make-flat-content-list $B$r(B `mime/flatten-content-info' $B$K2~(B -$BL>$7$?!#(B ----------------------------- -revision 7.0 -date: 1995/09/26 03:21:54; author: morioka; state: Exp; lines: +2 -6 -$B9=B$BN(B mime::content-info $B$NDj5A$r(B tm-parse.el $B$K0\$7$?!#(B ----------------------------- -revision 6.99 -date: 1995/09/26 02:59:41; author: morioka; state: Exp; lines: +2 -2 -tm-1521.el $B$r(B tm-parse.el $B$K2~L>$7$?!#(B ----------------------------- -revision 6.98 -date: 1995/09/26 02:32:27; author: morioka; state: Exp; lines: +2 -2 -$B4X?t(B mime-viewer/parse $B$r(B `mime/parse-message' $B$K2~L>$7$?!#(B ----------------------------- -revision 6.97 -date: 1995/09/26 02:22:17; author: morioka; state: Exp; lines: +1 -37 -$B4X?t(B mime-viewer/parse $B$r(B tm-1521.el $B$K0\$7$?!#(B ----------------------------- -revision 6.96 -date: 1995/09/26 02:20:45; author: morioka; state: Exp; lines: +35 -39 -$BITMW$J(B (save-excursion (save-restriction ...)) $B$r:o=|$7$?!#(B ----------------------------- -revision 6.95 -date: 1995/09/26 01:15:00; author: morioka; state: Exp; lines: +4 -17 -$B4X?t(B mime-viewer/parse $B$H4X?t(B mime/parse-multipart $B$r=$@5$7$?!#(B ----------------------------- -revision 6.94 -date: 1995/09/26 00:55:34; author: morioka; state: Exp; lines: +3 -111 -multipart $B$r(B parse $B$9$k4X?t$r(B `mime/parse-multipart' $B$H$7$F!"(B -tm-1521.el $B$K0\$7$?!#(B ----------------------------- -revision 6.93 -date: 1995/09/25 22:21:05; author: morioka; state: Exp; lines: +4 -16 -$BDj?t$NDj5A$r(B tm-def.el $B$K0\$7$?!#(B ----------------------------- - -tm/tm-vm.el ----------------------------- -revision 6.3 -date: 1995/09/26 00:15:07; author: morioka; state: Exp; lines: +4 -4 -$B4X?t(B mime/parse-Content-Type $B$,(B unfolding $B$r9T$J$&$h$&$K$J$C$?$N$G!"0z(B -$B?t$r(B unfolding $B$9$k$N$O$d$a$?!#(B ----------------------------- -revision 6.2 -date: 1995/09/25 23:41:10; author: morioka; state: Exp; lines: +2 -2 -tm-view 6.94 $B$K9g$o$;$F!"4X?t(B mime::parse-field-body/Content-Type $B$r(B -`mime/parse-Content-Type' $B$K=q$-D>$7$?!#(B ----------------------------- - - -tm/gnus - - Version 6.24 $B$rE:IU$7$?!#(B - -tm/tm-sgnus.el ----------------------------- -revision 6.24 -date: 1995/09/26 12:08:35; author: morioka; state: Exp; lines: +2 -6 -gnus-original-article-mode $B$KBP$7$F(B quitting-method $B$r@_Dj$9$k$h$&$K$7(B -$B$?!#!J(BSeptember Gnus v0.3 $B0J9_$,I,MW!K(B ----------------------------- diff --git a/Changes-7.07-7.09.en b/Changes-7.07-7.09.en deleted file mode 100644 index 24fa739..0000000 --- a/Changes-7.07-7.09.en +++ /dev/null @@ -1,146 +0,0 @@ -* tl - - Attached version 6.6.8. - - - tl-822.el was created as new RFC 822 parser. - - tl-cite.el was created as a citation utility. - - -* tm - -tm/mime-setup.el ----------------------------- -revision 7.0 -date: 1995/10/03 04:27:39; author: morioka; state: Exp; lines: +12 -4 -tm-eword.el was used instead of tiny-mime.el. ----------------------------- - -tm/tm-def.el ----------------------------- -revision 6.9 -date: 1995/10/03 04:30:57; author: morioka; state: Exp; lines: +2 -2 -Function `tm:browse-url' was modified to call variable -`tm:mother-button-dispatcher' interactively. ----------------------------- - -tm/tm-ew-d.el ----------------------------- -revision 7.1 -date: 1995/10/03 04:34:26; author: morioka; state: Exp; lines: +24 -33 -It was separated from tiny-mime.el as MIME encoded-word decoder. A lot -of parts were changed. ----------------------------- - -tm/tm-ew-e.el ----------------------------- -revision 7.0 -date: 1995/10/03 04:35:11; author: morioka; state: Exp; -It was created as MIME encoded-word encoder. It was wrote from scratch. ----------------------------- - -tm/tm-eword.el ----------------------------- -revision 7.0 -date: 1995/10/03 04:40:06; author: morioka; state: Exp; lines: +28 -549 -(1) tiny-mime.el was renamed to tm-eword.el. -(2) decoder was moved to tm-ew-d.el. -(3) major parts of encoder were erased, tm-ew-e.el was used. ----------------------------- - -tm/tm-mule.el ----------------------------- -revision 7.1 -date: 1995/10/03 04:49:53; author: morioka; state: Exp; lines: +11 -1 -comment was modified. ----------------------------- -revision 7.0 -date: 1995/10/03 04:44:11; author: morioka; state: Exp; lines: +59 -24 -Definitions for tm-ew-e.el were added. ----------------------------- - -tm/tm-nemacs.el ----------------------------- -revision 7.1 -date: 1995/10/03 04:51:07; author: morioka; state: Exp; lines: +11 -1 -comment was modified. ----------------------------- -revision 7.0 -date: 1995/10/03 04:44:50; author: morioka; state: Exp; lines: +11 -1 -Definitions for tm-ew-e.el were added. ----------------------------- - -tm/tm-orig.el ----------------------------- -revision 7.1 -date: 1995/10/03 04:52:16; author: morioka; state: Exp; lines: +11 -1 -comment was modified. ----------------------------- -revision 7.0 -date: 1995/10/03 04:45:50; author: morioka; state: Exp; lines: +13 -3 -Definitions for tm-ew-e.el were added. ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.9 -date: 1995/10/03 04:56:10; author: morioka; state: Exp; lines: +2 -5 -tm-eword.el was used instead of tiny-mime.el. ----------------------------- -revision 7.8 -date: 1995/09/26 16:04:39; author: morioka; state: Exp; lines: +5 -2 -In function `mime-viewer/display-content', problems of getting subject -was fixed. ----------------------------- -revision 7.7 -date: 1995/09/26 14:49:23; author: morioka; state: Exp; lines: +2 -1 -In function `mime-viewer/display-content', problem of single-part -message which has hidden body was fixed. ----------------------------- - -tm/tm-rmail.el ----------------------------- -revision 6.7 -date: 1995/09/28 06:05:20; author: morioka; state: Exp; lines: +18 -10 -encoded-word decoder was set to variable `rmail-message-filter' again. ----------------------------- - -tm/tm-vm.el ----------------------------- -revision 7.0 -date: 1995/10/03 05:04:35; author: morioka; state: Exp; lines: +22 -9 -Comment was modified because tm-eword.el was used instead of -tiny-mime.el. ----------------------------- - - -* tm/gnus - - Version 7.0 $B$rE:IU$7$?!#(B - -tm/gnus/tm-gnus.el ----------------------------- -revision 6.5 -date: 1995/09/28 02:20:46; author: morioka; state: Exp; lines: +9 -9 -modified to support ``Gnus 5.* with September patch''. ----------------------------- - -tm/gnus/tm-gnus5.el ----------------------------- -revision 7.0 -date: 1995/10/03 05:07:54; author: morioka; state: Exp; lines: +31 -22 -tm-eword.el was used instead of tiny-mime.el. ----------------------------- - -tm/gnus/tm-ognus.el ----------------------------- -revision 7.0 -date: 1995/10/03 05:08:59; author: morioka; state: Exp; lines: +20 -5 -tm-eword.el was used instead of tiny-mime.el. ----------------------------- - -tm/gnus/tm-sgnus.el ----------------------------- -revision 7.0 -date: 1995/10/03 05:09:53; author: morioka; state: Exp; lines: +27 -14 -tm-eword.el was used instead of tiny-mime.el. ----------------------------- diff --git a/Changes-7.07-7.09.ja b/Changes-7.07-7.09.ja deleted file mode 100644 index 204fc88..0000000 --- a/Changes-7.07-7.09.ja +++ /dev/null @@ -1,148 +0,0 @@ -* tl - - Version 6.6.8 $B$rE:IU$7$?!#(B - - - $B?7$7$$(B tl-822.el $B$r:n@.$7$?!#(B - - citation $BMQ$N(B utility $B$H$7$F(B tl-cite.el $B$r:n@.$7$?!#(B - - -* tm - -tm/mime-setup.el ----------------------------- -revision 7.0 -date: 1995/10/03 04:27:39; author: morioka; state: Exp; lines: +12 -4 -tiny-mime.el $B$r;H$&$N$r$d$a$F!"(Btm-eword.el $B$r;H$&$h$&$K$7$?!#(B ----------------------------- - -tm/tm-def.el ----------------------------- -revision 6.9 -date: 1995/10/03 04:30:57; author: morioka; state: Exp; lines: +2 -2 -$BJQ?t(B tm:mother-button-dispatcher $B$r(B interactive $B$K8F$V$h$&$K4X?t(B -tm:browse-url $B$r=$@5$7$?!#(B ----------------------------- - -tm/tm-ew-d.el ----------------------------- -revision 7.1 -date: 1995/10/03 04:34:26; author: morioka; state: Exp; lines: +24 -33 -MIME encoded-word decoder $B$H$7$F(B tiny-mime.el $B$+$iJ,N%$7!"BgI}$K=q$-D>(B -$B$7$?!#(B ----------------------------- - -tm/tm-ew-e.el ----------------------------- -revision 7.0 -date: 1995/10/03 04:35:11; author: morioka; state: Exp; -MIME encoded-word encoder $B$H$7$F?7@_$7$?!#(Bencoder $B$OA4LLE*$K=q$-D>$5$l(B -$B$F$$$k!#(B ----------------------------- - -tm/tm-eword.el ----------------------------- -revision 7.0 -date: 1995/10/03 04:40:06; author: morioka; state: Exp; lines: +28 -549 -(1) tiny-mime.el $B$r(B tm-eword.el $B$K2~L>$7$?!#(B -(2) decoder $B$r(B tm-ew-d.el $B$K0\$7$?!#(B -(3) encoder $B$NBgItJ,$r:o=|$7!"(Btm-ew-e.el $B$r;H$&$h$&$K$7$?!#(B ----------------------------- - -tm/tm-mule.el ----------------------------- -revision 7.1 -date: 1995/10/03 04:49:53; author: morioka; state: Exp; lines: +11 -1 -comment $B$r=$@5$7$?!#(B ----------------------------- -revision 7.0 -date: 1995/10/03 04:44:11; author: morioka; state: Exp; lines: +59 -24 -tm-ew-e.el $BMQ$NDj5A$rDI2C$7$?!#(B ----------------------------- - -tm/tm-nemacs.el ----------------------------- -revision 7.1 -date: 1995/10/03 04:51:07; author: morioka; state: Exp; lines: +11 -1 -comment $B$r=$@5$7$?!#(B ----------------------------- -revision 7.0 -date: 1995/10/03 04:44:50; author: morioka; state: Exp; lines: +11 -1 -tm-ew-e.el $BMQ$NDj5A$rDI2C$7$?!#(B ----------------------------- - -tm/tm-orig.el ----------------------------- -revision 7.1 -date: 1995/10/03 04:52:16; author: morioka; state: Exp; lines: +11 -1 -comment $B$r=$@5$7$?!#(B ----------------------------- -revision 7.0 -date: 1995/10/03 04:45:50; author: morioka; state: Exp; lines: +13 -3 -tm-ew-e.el $BMQ$NDj5A$rDI2C$7$?!#(B ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.9 -date: 1995/10/03 04:56:10; author: morioka; state: Exp; lines: +2 -5 -tiny-mime.el $B$r;H$&$N$r$d$a$F!"(Btm-ew-d.el $B$r;H$&$h$&$K$7$?!#(B ----------------------------- -revision 7.8 -date: 1995/09/26 16:04:39; author: morioka; state: Exp; lines: +5 -2 -$B4X?t(B mime-viewer/display-content $B$K$*$$$F!"(Bsubject $B$rl9g$N4X?t(B -mime-viewer/display-content $B$NIT6q9g$r=$@5$7$?!#(B ----------------------------- - -tm/tm-rmail.el ----------------------------- -revision 6.7 -date: 1995/09/28 06:05:20; author: morioka; state: Exp; lines: +18 -10 -encoded-word $B$N(B decode $B$O$d$C$Q$jJQ?t(B rmail-message-filter $B$K@_Dj$9$k(B -$B$3$H$K$7$?!#(B ----------------------------- - -tm/tm-vm.el ----------------------------- -revision 7.0 -date: 1995/10/03 05:04:35; author: morioka; state: Exp; lines: +22 -9 -tiny-mime.el $B$r;H$&$N$r$d$a$F(B tm-ew-e.el $B$r;H$&$3$H$K$J$C$?$N$KH<$$!"(B -comment $B$r=$@5$7$?!#(B ----------------------------- - - -* tm/gnus - - Version 7.0 $B$rE:IU$7$?!#(B - -tm/gnus/tm-gnus.el ----------------------------- -revision 6.5 -date: 1995/09/28 02:20:46; author: morioka; state: Exp; lines: +9 -9 -``Gnus 5.* with September patch'' $B$KBP1~$7$?!#(B ----------------------------- - -tm/gnus/tm-gnus5.el ----------------------------- -revision 7.0 -date: 1995/10/03 05:07:54; author: morioka; state: Exp; lines: +31 -22 -tiny-mime.el $B$r;H$&$N$r$d$a$F(B tm-ew-d.el $B$r;H$&$3$H$K$7$?!#(B ----------------------------- - -tm/gnus/tm-ognus.el ----------------------------- -revision 7.0 -date: 1995/10/03 05:08:59; author: morioka; state: Exp; lines: +20 -5 -tiny-mime.el $B$r;H$&$N$r$d$a$F(B tm-ew-d.el $B$r;H$&$h$&$K$7$?!#(B ----------------------------- - -tm/gnus/tm-sgnus.el ----------------------------- -revision 7.0 -date: 1995/10/03 05:09:53; author: morioka; state: Exp; lines: +27 -14 -tiny-mime.el $B$r;H$&$N$r$d$a$F(B tm-ew-d.el $B$r;H$&$h$&$K$7$?!#(B ----------------------------- diff --git a/Changes-7.09-7.10.en b/Changes-7.09-7.10.en deleted file mode 100644 index 122e8f4..0000000 --- a/Changes-7.09-7.10.en +++ /dev/null @@ -1,135 +0,0 @@ -* tl - - Attached version 7.00. - -tl/tl-822.el ----------------------------- -revision 4.0 -date: 1995/10/05 13:22:22; author: morioka; state: Exp; lines: +21 -4 -Constant `rfc822/linear-white-space-regexp', -`rfc822/quoted-pair-regexp', `rfc822/qtext-regexp', -`rfc822/quoted-string-regexp' was added. ----------------------------- -revision 3.0 -date: 1995/10/05 12:09:52; author: morioka; state: Exp; lines: +5 -3 -Constant `rfc822/field-top-regexp' was added. ----------------------------- -revision 2.0 -date: 1995/10/05 11:26:43; author: morioka; state: Exp; lines: +83 -1 -Constant `rfc822/field-name-regexp', -function `rfc822/field-end', `rfc822/get-field-body', -function `rfc822/strip-quoted-pair', `rfc822/strip-quoted-string', -function `rfc822/unfolding-string' was added. ----------------------------- - -tl/tl-str.el ----------------------------- -revision 7.0 -date: 1995/10/05 13:21:07; author: morioka; state: Exp; lines: +11 -10 -Fixed problem of function `get-version-string'. ----------------------------- - -* tm - -tm/mime-setup.el ----------------------------- -revision 7.2 -date: 1995/10/05 10:34:43; author: morioka; state: Exp; lines: +11 -3 -In setting to variable `mh-letter-mode-hook', mail-header-separator is -regularized. ----------------------------- -revision 7.1 -date: 1995/10/04 13:41:01; author: morioka; state: Exp; lines: +12 -6 -Variable `mime-setup-default-signature-key' and -`mime-setup-signature-key-alist' is added. Variable -`mime-setup-signature-key' was deleted. ----------------------------- - -tm/signature.el ----------------------------- -revision 2.0 -date: 1995/10/05 11:24:45; author: morioka; state: Exp; lines: +24 -8 -Use tl-822 instead of tl-header. ----------------------------- - -tm/tm-def.el ----------------------------- -revision 7.0 -date: 1995/10/05 13:27:34; author: morioka; state: Exp; lines: +3 -3 -Use tl-822 instead of tl-header. ----------------------------- - -tm/tm-ew-d.el ----------------------------- -revision 7.2 -date: 1995/10/05 12:20:36; author: morioka; state: Exp; lines: +4 -3 -Use tl-822 instead of tl-header. ----------------------------- - -tm/tm-eword.el ----------------------------- -revision 7.2 -date: 1995/10/05 12:22:42; author: morioka; state: Exp; lines: +2 -4 -Function `mime/encode-field' was modified to use constant -`rfc822/field-top-regexp'. ----------------------------- -revision 7.1 -date: 1995/10/05 11:27:38; author: morioka; state: Exp; lines: +46 -48 -Use tl-822 instead of tl-header. ----------------------------- - -tm/tm-parse.el ----------------------------- -revision 3.0 -date: 1995/10/05 11:28:40; author: morioka; state: Exp; lines: +7 -7 -Use tl-822 instead of tl-header. ----------------------------- - -tm/tm-rich.el ----------------------------- -revision 7.0 -date: 1995/10/04 05:27:50; author: morioka; state: Exp; lines: +8 -6 -comment was modified. ----------------------------- -revision 6.15 -date: 1995/10/04 05:23:29; author: morioka; state: Exp; lines: +3 -1 -Eric Ding 's patch was applied. ----------------------------- - -tm/tm-rmail.el ----------------------------- -revision 7.1 -date: 1995/10/05 13:04:10; author: morioka; state: Exp; lines: +5 -2 -(require 'tl-header) was deleted. ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.10 -date: 1995/10/05 10:35:19; author: morioka; state: Exp; lines: +7 -7 -Use tl-822 instead of tl-header. ----------------------------- - - -* tm/gnus - - Attached version 7.02. - -tm/gnus/tm-gnus5.el ----------------------------- -revision 7.2 -date: 1995/10/05 12:57:53; author: morioka; state: Exp; lines: +5 -5 -Use tl-822 instead of tl-header. ----------------------------- -revision 7.1 -date: 1995/10/03 15:02:14; author: morioka; state: Exp; lines: +50 -13 -Function `gnus-mail-forward-using-mhe-mime' by OKABE Yasuo - was added. ----------------------------- - -tm/gnus/tm-sgnus.el ----------------------------- -revision 7.1 -date: 1995/10/05 13:01:17; author: morioka; state: Exp; lines: +12 -17 -modified a little. ----------------------------- diff --git a/Changes-7.09-7.10.ja b/Changes-7.09-7.10.ja deleted file mode 100644 index 8308109..0000000 --- a/Changes-7.09-7.10.ja +++ /dev/null @@ -1,133 +0,0 @@ -* tl - - Version 7.00 $B$rE:IU$7$?!#(B - -tl/tl-822.el ----------------------------- -revision 4.0 -date: 1995/10/05 13:22:22; author: morioka; state: Exp; lines: +21 -4 -$BDj?t(B rfc822/linear-white-space-regexp, rfc822/quoted-pair-regexp, -rfc822/qtext-regexp, rfc822/quoted-string-regexp $B$rDI2C$7$?!#(B ----------------------------- -revision 3.0 -date: 1995/10/05 12:09:52; author: morioka; state: Exp; lines: +5 -3 -$BDj?t(B rfc822/field-top-regexp $B$rDI2C$7$?!#(B ----------------------------- -revision 2.0 -date: 1995/10/05 11:26:43; author: morioka; state: Exp; lines: +83 -1 -$BDj?t(B rfc822/field-name-regexp, -$B4X?t(B rfc822/field-end, rfc822/get-field-body, -$B4X?t(B rfc822/strip-quoted-pair, rfc822/strip-quoted-string, -$B4X?t(B rfc822/unfolding-string $B$rDI2C$7$?!#(B ----------------------------- - -tl/tl-str.el ----------------------------- -revision 7.0 -date: 1995/10/05 13:21:07; author: morioka; state: Exp; lines: +11 -10 -$B4X?t(B get-version-string $B$NIT6q9g$r=$@5$7$?!#(B ----------------------------- - -* tm - -tm/mime-setup.el ----------------------------- -revision 7.2 -date: 1995/10/05 10:34:43; author: morioka; state: Exp; lines: +11 -3 -$BJQ?t(B mh-letter-mode-hook $B$K$*$$$F!"(Bmail-header-separator $B$r@55,2=$9$k(B -$B$h$&$K$7$?!#(B ----------------------------- -revision 7.1 -date: 1995/10/04 13:41:01; author: morioka; state: Exp; lines: +12 -6 -$BJQ?t(B mime-setup-default-signature-key $B$HJQ?t(B -mime-setup-signature-key-alist $B$r@_$1$?!#JQ?t(B mime-setup-signature-key -$B$OGQ;_$7$?!#(B ----------------------------- - -tm/signature.el ----------------------------- -revision 2.0 -date: 1995/10/05 11:24:45; author: morioka; state: Exp; lines: +24 -8 -tl-header $B$r;H$&$N$r$d$a$F(B tl-822 $B$r;H$&$h$&$K$7$?!#(B ----------------------------- - -tm/tm-def.el ----------------------------- -revision 7.0 -date: 1995/10/05 13:27:34; author: morioka; state: Exp; lines: +3 -3 -tl-header $B$r;H$&$N$r$d$a$F(B tl-822 $B$r;H$&$h$&$K$7$?!#(B ----------------------------- - -tm/tm-ew-d.el ----------------------------- -revision 7.2 -date: 1995/10/05 12:20:36; author: morioka; state: Exp; lines: +4 -3 -tl-header $B$r;H$&$N$r$d$a!"(Btl-822 $B$r;H$&$h$&$K$7$?!#(B ----------------------------- - -tm/tm-eword.el ----------------------------- -revision 7.2 -date: 1995/10/05 12:22:42; author: morioka; state: Exp; lines: +2 -4 -$B4X?t(B mime/encode-field $B$GDj?t(B rfc822/field-top-regexp $B$r;H$&$h$&$K$7$?!#(B ----------------------------- -revision 7.1 -date: 1995/10/05 11:27:38; author: morioka; state: Exp; lines: +46 -48 -tl-header $B$r;H$&$N$r$d$a$F(B tl-822 $B$r;H$&$h$&$K$7$?!#(B ----------------------------- - -tm/tm-parse.el ----------------------------- -revision 3.0 -date: 1995/10/05 11:28:40; author: morioka; state: Exp; lines: +7 -7 -tl-header $B$r;H$&$N$r$d$a$F(B tl-822 $B$r;H$&$h$&$K$7$?!#(B ----------------------------- - -tm/tm-rich.el ----------------------------- -revision 7.0 -date: 1995/10/04 05:27:50; author: morioka; state: Exp; lines: +8 -6 -comment $B$r=$@5$7$?!#(B ----------------------------- -revision 6.15 -date: 1995/10/04 05:23:29; author: morioka; state: Exp; lines: +3 -1 -Eric Ding $B$5$s$N(B patch $B$rEv$F$?!#(B ----------------------------- - -tm/tm-rmail.el ----------------------------- -revision 7.1 -date: 1995/10/05 13:04:10; author: morioka; state: Exp; lines: +5 -2 -(require 'tl-header) $B$r=|5n$7$?!#(B ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.10 -date: 1995/10/05 10:35:19; author: morioka; state: Exp; lines: +7 -7 -tl-header $B$r;H$&$N$r$d$a$F(B tl-822 $B$r;H$&$h$&$K$7$?!#(B ----------------------------- - - -* tm/gnus - - Version 7.02 $B$rE:IU$7$?!#(B - -tm/gnus/tm-gnus5.el ----------------------------- -revision 7.2 -date: 1995/10/05 12:57:53; author: morioka; state: Exp; lines: +5 -5 -tl-header $B$r;H$&$N$r$d$a$F(B tl-822 $B$r;H$&$h$&$K$7$?!#(B ----------------------------- -revision 7.1 -date: 1995/10/03 15:02:14; author: morioka; state: Exp; lines: +50 -13 -$B2,It(B $B $B$5$s$,:n$C$?4X?t(B -gnus-mail-forward-using-mhe-mime $B$rF~$l$?!#(B ----------------------------- - -tm/gnus/tm-sgnus.el ----------------------------- -revision 7.1 -date: 1995/10/05 13:01:17; author: morioka; state: Exp; lines: +12 -17 -$B$A$g$C$H=q$-49$($?$@$1!#(B ----------------------------- diff --git a/Changes-7.11.en b/Changes-7.11.en deleted file mode 100644 index 6dc4f0d..0000000 --- a/Changes-7.11.en +++ /dev/null @@ -1,67 +0,0 @@ -* tl - - Attached version 7.01. - - - tl-cite.el was renamed to mu-cite.el. - - -* tm - -tm/mime-setup.el ----------------------------- -revision 7.3 -date: 1995/10/06 07:17:22; author: morioka; state: Exp; lines: +16 -1 -Code for Gnus 5.*, September Gnus was added. ----------------------------- - -tm/tm-comp.el ----------------------------- -revision 7.2 -date: 1995/10/08 09:31:05; author: morioka; state: Exp; lines: +2 -2 -Fixed a mistake about renaming. ----------------------------- -revision 7.1 -date: 1995/10/08 09:07:37; author: morioka; state: Exp; lines: +7 -7 -tl-822 was used instead of tl-header. ----------------------------- -revision 7.0 -date: 1995/10/07 05:44:49; author: morioka; state: Exp; lines: +20 -13 -comment was modified. ----------------------------- -revision 6.13 -date: 1995/10/07 05:37:40; author: morioka; state: Exp; lines: +5 -3 -Richard Stanton fixed for OS/2 Emacs. ----------------------------- - -tm/tm-eword.el ----------------------------- -revision 7.3 -date: 1995/10/06 05:44:48; author: morioka; state: Exp; lines: +3 -2 -Function `mime/encode-message-header' was modified to use function -`buffer-substring-no-properties'. ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.11 -date: 1995/10/06 07:00:00; author: morioka; state: Exp; lines: +1 -7 -Unnecessary function was deleted. ----------------------------- - - -* tm/mh-e - - Attached version 7.01. - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 7.1 -date: 1995/10/07 08:26:47; author: morioka; state: Exp; lines: +2 -2 -Function `tm-mh-e/cite' was modified to use `save-excursion' instead -of `save-window-excursion'. ----------------------------- -revision 7.0 -date: 1995/10/07 08:24:48; author: morioka; state: Exp; lines: +25 -18 -Function `tm-mh-e/cite' was modified to support variable -`mh-delete-yanked-msg-window' when it is automatic MIME preview mode. ----------------------------- diff --git a/Changes-7.11.ja b/Changes-7.11.ja deleted file mode 100644 index 32daa7b..0000000 --- a/Changes-7.11.ja +++ /dev/null @@ -1,68 +0,0 @@ -* tl - - Version 7.01 $B$rE:IU$7$?!#(B - - - tl-cite.el $B$r(B mu-cite.el $B$K2~L>$7$?!#(B - - -* tm - -tm/mime-setup.el ----------------------------- -revision 7.3 -date: 1995/10/06 07:17:22; author: morioka; state: Exp; lines: +16 -1 -Gnus 5.*, September Gnus $BBP:vMQ$N(B code $B$rF~$l$?!#(B ----------------------------- - -tm/tm-comp.el ----------------------------- -revision 7.2 -date: 1995/10/08 09:31:05; author: morioka; state: Exp; lines: +2 -2 -$BL>A0$NJQ99$7K:$l$r=$@5$7$?!#(B ----------------------------- -revision 7.1 -date: 1995/10/08 09:07:37; author: morioka; state: Exp; lines: +7 -7 -tl-header $B$r;H$&$N$r$d$a$F(B tl-822 $B$r;H$&$h$&$K$7$?!#(B ----------------------------- -revision 7.0 -date: 1995/10/07 05:44:49; author: morioka; state: Exp; lines: +20 -13 -comment $B$r=$@5$7$?!#(B ----------------------------- -revision 6.13 -date: 1995/10/07 05:37:40; author: morioka; state: Exp; lines: +5 -3 -Richard Stanton $B$5$s$N(B OS/2 $BMQ$N(B patch $B$r(B -$BEv$F$?!#(B ----------------------------- - -tm/tm-eword.el ----------------------------- -revision 7.3 -date: 1995/10/06 05:44:48; author: morioka; state: Exp; lines: +3 -2 -$B4X?t(B mime/encode-message-header $B$K$*$$$F!"4X?t(B -buffer-substring-no-properties $B$r;H$&$h$&$K=$@5$7$?!#(B ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.11 -date: 1995/10/06 07:00:00; author: morioka; state: Exp; lines: +1 -7 -$BITMW$J4X?t$r>C5n$7$?!#(B ----------------------------- - - -* tm/mh-e - - Version 7.01 $B$rE:IU$7$?!#(B - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 7.1 -date: 1995/10/07 08:26:47; author: morioka; state: Exp; lines: +2 -2 -$B4X?t(B tm-mh-e/cite $B$K$*$$$F!"(Bsave-window-excursion $B$r;H$C$F$$$?$H$3$m$r(B -save-excursion $B$KJQ$($?!#(B ----------------------------- -revision 7.0 -date: 1995/10/07 08:24:48; author: morioka; state: Exp; lines: +25 -18 -$B4X?t(B tm-mh-e/cite $B$K$*$$$F!"(Bautomatic MIME preview mode $B$N;~$bJQ?t(B -mh-delete-yanked-msg-window $B$,M-8z$K$J$k$h$&$K=$@5$7$?!#(B ----------------------------- diff --git a/Changes-7.12.en b/Changes-7.12.en deleted file mode 100644 index 5364d78..0000000 --- a/Changes-7.12.en +++ /dev/null @@ -1,61 +0,0 @@ -* tl - - Attached version 7.01. - -tl/emu-nemacs.el ----------------------------- -revision 7.1 -date: 1995/10/11 11:49:55; author: morioka; state: Exp; lines: +16 -1 -Function `find-charset-string' and function `find-charset-region' were -created. ----------------------------- - -tl/emu-orig.el ----------------------------- -revision 6.0 -date: 1995/10/11 11:50:24; author: morioka; state: Exp; lines: +16 -1 -Function `find-charset-string' and function `find-charset-region' were -created. ----------------------------- - - -* tm - -tm/tm-ew-e.el ----------------------------- -revision 7.1 -date: 1995/10/11 11:56:46; author: morioka; state: Exp; lines: +10 -8 -(1) function `tm-eword::phrase-route-addr-to-rwl' was modified to - delete top linear-white-space. -(2) In function `tm-eword::phrase-to-rwl', treatment of quoted-string - was changed. ----------------------------- - -tm/tm-eword.el ----------------------------- -revision 7.4 -date: 1995/10/11 11:53:17; author: morioka; state: Exp; lines: +9 -5 -(1) In function `mime/encode-message-header', field extraction was - changed. -(2) If a field has only US-ASCII, it is not touched. ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.12 -date: 1995/10/11 12:12:06; author: morioka; state: Exp; lines: +6 -6 -Function `mime::get-point-content-number' was renamed to -`mime-article/point-content-number'. ----------------------------- - - -tm/gnus - - Attached version 7.02.1. - -tm/gnus/tm-sgnus.el ----------------------------- -revision 7.2 -date: 1995/10/11 10:20:29; author: morioka; state: Exp; lines: +24 -22 -nnheader patch support. ----------------------------- diff --git a/Changes-7.12.ja b/Changes-7.12.ja deleted file mode 100644 index 084cf00..0000000 --- a/Changes-7.12.ja +++ /dev/null @@ -1,57 +0,0 @@ -* tl - - Version 7.01 $B$rE:IU$7$?!#(B - -tl/emu-nemacs.el ----------------------------- -revision 7.1 -date: 1995/10/11 11:49:55; author: morioka; state: Exp; lines: +16 -1 -$B4X?t(B find-charset-string $B$H4X?t(B find-charset-region $B$rDI2C$7$?!#(B ----------------------------- - -tl/emu-orig.el ----------------------------- -revision 6.0 -date: 1995/10/11 11:50:24; author: morioka; state: Exp; lines: +16 -1 -$B4X?t(B find-charset-string $B$H4X?t(B find-charset-region $B$rDI2C$7$?!#(B ----------------------------- - - -* tm - -tm/tm-ew-e.el ----------------------------- -revision 7.1 -date: 1995/10/11 11:56:46; author: morioka; state: Exp; lines: +10 -8 -(1) $B4X?t(B tm-eword::phrase-route-addr-to-rwl $B$G@hF,$N(B - linear-white-space $B$rl9g$O(B encode $B$7$J$$$h$&$K$7$?!#(B ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.12 -date: 1995/10/11 12:12:06; author: morioka; state: Exp; lines: +6 -6 -$B4X?t(B mime::get-point-content-number $B$r(B -`mime-article/point-content-number' $B$K2~L>$7$?!#(B ----------------------------- - - -tm/gnus - - Version 7.02.1 $B$rE:IU$7$?!#(B - -tm/gnus/tm-sgnus.el ----------------------------- -revision 7.2 -date: 1995/10/11 10:20:29; author: morioka; state: Exp; lines: +24 -22 -nnheader patch $B$KBP1~$7$?!#(B ----------------------------- diff --git a/Changes-7.13.en b/Changes-7.13.en deleted file mode 100644 index 75f2fea..0000000 --- a/Changes-7.13.en +++ /dev/null @@ -1,31 +0,0 @@ -* tm - -tm/tm-parse.el ----------------------------- -revision 4.0 -date: 1995/10/12 06:08:12; author: morioka; state: Exp; lines: +12 -11 -rcnum (reversed content number) slot was added to `mime::content-info' -structure. ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.13 -date: 1995/10/12 06:10:04; author: morioka; state: Exp; lines: +6 -2 -In function `mime-viewer/display-content', `cnum' was made from -`rcnum' slot value of argument `content'. ----------------------------- - - -* tm/mh-e - - Attached version 7.02. - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 7.2 -date: 1995/10/12 05:43:34; author: morioka; state: Exp; lines: +33 -106 -When it is automatic MIME preview mode, buffer name of preview buffer is -``show-+FOLDER'' and it is indicated from mh-show-buffer. Then article -buffer is created as ``article-+FOLDER''. ----------------------------- diff --git a/Changes-7.13.ja b/Changes-7.13.ja deleted file mode 100644 index 788aaaf..0000000 --- a/Changes-7.13.ja +++ /dev/null @@ -1,31 +0,0 @@ -* tm - -tm/tm-parse.el ----------------------------- -revision 4.0 -date: 1995/10/12 06:08:12; author: morioka; state: Exp; lines: +12 -11 -mime::content-info $B9=B$BN$K(B rcnum (reversed content number) slot $B$r@_(B -$B$1$?!#(B ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.13 -date: 1995/10/12 06:10:04; author: morioka; state: Exp; lines: +6 -2 -$B4X?t(B mime-viewer/display-content $B$K$*$$$F!"(Bcnum $B$r0z?t(B content $B$N(B -rcnum slot $B$N>pJs$+$i:n$k$h$&$K$7$?!#(B ----------------------------- - - -* tm/mh-e - - Version 7.02 $B$rE:IU$7$?!#(B - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 7.2 -date: 1995/10/12 05:43:34; author: morioka; state: Exp; lines: +33 -106 -automatic MIME preview mode $B$N;~!"(Bpreview buffer $B$N(B buffer $BL>$r(B -show-+FOLDER $B$H$7!"(Bmh-show-buffer $B$+$i;X$5$l$k$h$&$K$7$?!#$^$?!"$3$N;~!"(B -article-+FOLDER $B$H$$$&L>A0$N(B article buffer $B$r:n$k$h$&$K$7$?!#(B ----------------------------- diff --git a/Changes-7.14-7.15.en b/Changes-7.14-7.15.en deleted file mode 100644 index b5db47c..0000000 --- a/Changes-7.14-7.15.en +++ /dev/null @@ -1,34 +0,0 @@ -* tm - -tm/tm-parse.el ----------------------------- -revision 5.0 -date: 1995/10/12 14:29:30; author: morioka; state: Exp; lines: +5 -3 -In function `mime/parse-message', a bug about message/rfc822 was -fixed. ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.15 -date: 1995/10/13 08:43:49; author: morioka; state: Exp; lines: +14 -9 -Eric Ding fixed function -`mime-viewer/x-face-function'. ----------------------------- -revision 7.14 -date: 1995/10/13 07:19:52; author: morioka; state: Exp; lines: +4 -2 -In function `mime-viewer/display-content', I fixed to decode subject. ----------------------------- - - -* tm/mh-e - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 7.3 -date: 1995/10/13 08:15:17; author: morioka; state: Exp; lines: +20 -4 -According to Eric Ding 's report, `,' -problem was fixed. - -But it may have problems. ----------------------------- diff --git a/Changes-7.14-7.15.ja b/Changes-7.14-7.15.ja deleted file mode 100644 index ef0fbe7..0000000 --- a/Changes-7.14-7.15.ja +++ /dev/null @@ -1,35 +0,0 @@ -* tm - -tm/tm-parse.el ----------------------------- -revision 5.0 -date: 1995/10/12 14:29:30; author: morioka; state: Exp; lines: +5 -3 -$B4X?t(B mime/parse-message $B$K$*$1$k(B message/rfc822 $B$N>l9g$NIT6q9g$r=$@5$7(B -$B$?!#(B ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.15 -date: 1995/10/13 08:43:49; author: morioka; state: Exp; lines: +14 -9 -$B4X?t(B mime-viewer/x-face-function $B$K(B Eric Ding - $B$5$s$N=$@5$r9T$C$?!#(B ----------------------------- -revision 7.14 -date: 1995/10/13 07:19:52; author: morioka; state: Exp; lines: +4 -2 -$B4X?t(B mime-viewer/display-content $B$K$*$$$F!"(Bsubject $BCf$N(B encoded-word -$B$r(B decode $B$9$k$N$rK:$l$F$$$?$N$r=$@5!#(B ----------------------------- - - -* tm/mh-e - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 7.3 -date: 1995/10/13 08:15:17; author: morioka; state: Exp; lines: +20 -4 -Eric Ding $B$5$s$N;XE&$K=>$$!"(B`,' $B$,8z$+(B -$B$J$/$J$C$?LdBj$r=$@5$7$?!#(B - -$BC"$7!"$^$@LdBj$"$j!#(B ----------------------------- diff --git a/Changes-7.16.en b/Changes-7.16.en deleted file mode 100644 index 2b630e0..0000000 --- a/Changes-7.16.en +++ /dev/null @@ -1,153 +0,0 @@ -* tm - -tm/mime-setup.el ----------------------------- -revision 7.4 -date: 1995/10/17 16:20:39; author: morioka; state: Exp; lines: +4 -1 -In variable `mime-file-types', setting for *.diff. ----------------------------- - -tm/tm-ew-d.el ----------------------------- -revision 7.5 -date: 1995/10/18 11:18:03; author: morioka; state: Exp; lines: +2 -1 -Function `mime-eword/decode-string' unfolds string. ----------------------------- -revision 7.4 -date: 1995/10/17 16:45:27; author: morioka; state: Exp; lines: +4 -4 -Function `mime/decode-encoded-words-string' was renamed to -`mime-eword/decode-string', function -`mime/decode-encoded-words-region' was renamed to -`mime-eword/decode-region'. ----------------------------- -revision 7.3 -date: 1995/10/17 16:39:47; author: morioka; state: Exp; lines: +8 -2 -Version constant `mime/eword-decoder-version' was defined. ----------------------------- - -tm/tm-ew-e.el ----------------------------- -revision 7.4 -date: 1995/10/18 08:54:59; author: morioka; state: Exp; lines: +6 -1 -Function `mime-eword/encode-string' was created. ----------------------------- -revision 7.3 -date: 1995/10/17 16:37:25; author: morioka; state: Exp; lines: +9 -3 -Version constant `mime/eword-encoder-version' was defined. ----------------------------- -revision 7.2 -date: 1995/10/17 16:32:15; author: morioka; state: Exp; lines: +94 -1 -Public functions about encoded-word encoder were moved from -tm-eword.el. ----------------------------- - -tm/tm-eword.el ----------------------------- -revision 7.9 -date: 1995/10/18 08:55:37; author: morioka; state: Exp; lines: +8 -6 -Function `mime-eword/encode-string' was defined. ----------------------------- -revision 7.8 -date: 1995/10/17 16:46:33; author: morioka; state: Exp; lines: +3 -3 -Function `mime/decode-encoded-words-string' was renamed to -`mime-eword/decode-string', function -`mime/decode-encoded-words-region' was renamed to -`mime-eword/decode-region'. ----------------------------- -revision 7.7 -date: 1995/10/17 16:33:57; author: morioka; state: Exp; lines: +1 -3 -tm-eword-load-hook was deleted. ----------------------------- -revision 7.6 -date: 1995/10/17 16:33:26; author: morioka; state: Exp; lines: +2 -10 -version constant was deleted. ----------------------------- -revision 7.5 -date: 1995/10/17 16:31:20; author: morioka; state: Exp; lines: +4 -97 -Functions about encoded-word encoder were moved to tm-ew-e.el. ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.16 -date: 1995/10/17 16:48:06; author: morioka; state: Exp; lines: +2 -2 -Function `mime/decode-encoded-words-string' was renamed to -`mime-eword/decode-string'. ----------------------------- - -tm/tm-partial.el ----------------------------- -revision 7.0 -date: 1995/10/18 08:19:27; author: morioka; state: Exp; lines: +10 -2 -Support for September Gnus and Gnus 5.0.* with September patch. (It is -not beautiful). ----------------------------- - -tm/tm-vm.el ----------------------------- -revision 7.1 -date: 1995/10/17 16:49:51; author: morioka; state: Exp; lines: +2 -2 -Comment was modified because function -`mime/decode-encoded-words-string' was renamed to -`mime-eword/decode-string'. ----------------------------- - - -tm/mh-e - - Attached version 7.05. - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 7.5 -date: 1995/10/18 09:57:56; author: morioka; state: Exp; lines: +14 -14 -(1) When `,' key is pressed, encoded-words are not decoded. -(2) When `,' key is pressed in automatic MIME preview mode, article - buffer is displayed. ----------------------------- -revision 7.4 -date: 1995/10/18 09:43:43; author: morioka; state: Exp; lines: +18 -6 -(1) New implementation about `.' and `,'. -(2) When `,' key is pressed in automatic MIME preview mode, it displays - preview buffer which has all headers. ----------------------------- - - -tm/gnus - - Attached version 7.04. - -tm/gnus/tm-gnus5.el ----------------------------- -revision 7.3 -date: 1995/10/17 16:52:54; author: morioka; state: Exp; lines: +6 -6 -Function `mime/decode-encoded-words-string' was renamed to -`mime-eword/decode-string'. ----------------------------- - -tm/gnus/tm-ognus.el ----------------------------- -revision 7.1 -date: 1995/10/17 16:56:12; author: morioka; state: Exp; lines: +6 -7 -Function `mime/decode-encoded-words-string' was renamed to -`mime-eword/decode-string'. ----------------------------- - -tm/gnus/tm-sgnus.el ----------------------------- -revision 7.4 -date: 1995/10/18 08:32:36; author: morioka; state: Exp; lines: +39 -8 -(1) alias `mime/decode-encoded-words-string' was defined to indicate - `mime-eword/decode-string'. It is for old nnheader patch. - -(2) Function `tm-gnus/article-hide-headers-if-wanted' is added to - `gnus-article-display-hook' instead of - `gnus-article-hide-headers-if-wanted'. It does not call function - `gnus-article-hide-headers-if-wanted' when automatic MIME preview - mode. ----------------------------- -revision 7.3 -date: 1995/10/17 16:58:05; author: morioka; state: Exp; lines: +4 -4 -Function `mime/decode-encoded-words-string' was renamed to -`mime-eword/decode-string'. ----------------------------- diff --git a/Changes-7.16.ja b/Changes-7.16.ja deleted file mode 100644 index e5aba52..0000000 --- a/Changes-7.16.ja +++ /dev/null @@ -1,151 +0,0 @@ -* tm - -tm/mime-setup.el ----------------------------- -revision 7.4 -date: 1995/10/17 16:20:39; author: morioka; state: Exp; lines: +4 -1 -$BJQ?t(B mime-file-types $B$K(B *.diff $B$r@_Dj$7$?!#(B ----------------------------- - -tm/tm-ew-d.el ----------------------------- -revision 7.5 -date: 1995/10/18 11:18:03; author: morioka; state: Exp; lines: +2 -1 -$B4X?t(B mime-eword/decode-string $B$G(B unfolding $B$9$k$h$&$K$7$?!#(B ----------------------------- -revision 7.4 -date: 1995/10/17 16:45:27; author: morioka; state: Exp; lines: +4 -4 -$B4X?t(B mime/decode-encoded-words-string $B$r(B `mime-eword/decode-string' $B$K!"(B -$B4X?t(B mime/decode-encoded-words-region $B$r(B `mime-eword/decode-region' $B$K(B -$B2~L>$7$?!#(B ----------------------------- -revision 7.3 -date: 1995/10/17 16:39:47; author: morioka; state: Exp; lines: +8 -2 -version $BDj?t(B `mime/eword-decoder-version' $B$rDj5A$7$?!#(B ----------------------------- - -tm/tm-ew-e.el ----------------------------- -revision 7.4 -date: 1995/10/18 08:54:59; author: morioka; state: Exp; lines: +6 -1 -$B4X?t(B mime-eword/encode-string $B$rDI2C$7$?!#(B ----------------------------- -revision 7.3 -date: 1995/10/17 16:37:25; author: morioka; state: Exp; lines: +9 -3 -version $BDj?t(B `mime/eword-encoder-version' $B$r?7@_$7$?!#(B ----------------------------- -revision 7.2 -date: 1995/10/17 16:32:15; author: morioka; state: Exp; lines: +94 -1 -encoded-word $B$N(B encode $B$K4X$9$k8x3+MQ$N4X?t$r(B tm-eword.el $B$+$i0\$7$?!#(B ----------------------------- - -tm/tm-eword.el ----------------------------- -revision 7.9 -date: 1995/10/18 08:55:37; author: morioka; state: Exp; lines: +8 -6 -$B4X?t(B mime-eword/encode-string $B$rDI2C$7$?!#(B ----------------------------- -revision 7.8 -date: 1995/10/17 16:46:33; author: morioka; state: Exp; lines: +3 -3 -$B4X?t(B mime/decode-encoded-words-string $B$r(B `mime-eword/decode-string' $B$K!"(B -$B4X?t(B mime/decode-encoded-words-region $B$r(B `mime-eword/decode-region' $B$K(B -$B2~L>$7$?!#(B ----------------------------- -revision 7.7 -date: 1995/10/17 16:33:57; author: morioka; state: Exp; lines: +1 -3 -tm-eword-load-hook $B$rGQ;_$7$?!#(B ----------------------------- -revision 7.6 -date: 1995/10/17 16:33:26; author: morioka; state: Exp; lines: +2 -10 -version $BDj?t$rGQ;_$7$?!#(B ----------------------------- -revision 7.5 -date: 1995/10/17 16:31:20; author: morioka; state: Exp; lines: +4 -97 -encode $B4X78$N4X?t$rA4$F(B tm-ew-e.el $B$K0\$7$?!#(B ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.16 -date: 1995/10/17 16:48:06; author: morioka; state: Exp; lines: +2 -2 -$B4X?t(B mime/decode-encoded-words-string $B$r(B `mime-eword/decode-string' $B$K(B -$B2~L>$7$?!#(B ----------------------------- - -tm/tm-partial.el ----------------------------- -revision 7.0 -date: 1995/10/18 08:19:27; author: morioka; state: Exp; lines: +10 -2 -September Gnus $B$*$h$S(B Gnus 5.0.* with September patch $B$K$H$j$"$($:BP1~(B -$B$7$?!#(B ----------------------------- - -tm/tm-vm.el ----------------------------- -revision 7.1 -date: 1995/10/17 16:49:51; author: morioka; state: Exp; lines: +2 -2 -$B4X?t(B mime/decode-encoded-words-string $B$r(B `mime-eword/decode-string' $B$K(B -$B2~L>$7$?$3$H$KH<$$!"(Bcomment $B$r=$@5$7$?!#(B ----------------------------- - - -tm/mh-e - - Version 7.05 $B$rE:IU$7$?!#(B - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 7.5 -date: 1995/10/18 09:57:56; author: morioka; state: Exp; lines: +14 -14 -(1) `,' $B$r2!$7$?;~!"(Bencoded-word $B$O(B decode $B$7$J$$$h$&$K$7$?!#(B -(2) automatic MIME preview mode $B$N;~$K(B `,' $B$r2!$7$?>l9g!"(Barticle - buffer $B$rI=<($9$k$h$&$K$7$?!#(B ----------------------------- -revision 7.4 -date: 1995/10/18 09:43:43; author: morioka; state: Exp; lines: +18 -6 -(1) `.' $B$H(B `,' $B$r$7$?!#(B -(2) automatic MIME preview mode $B$K$*$$$F(B `,' $B$r2!$7$?;~!"(Bheader $B$rA4It(B - $BI=<($7$?(B preview buffer $B$rI=<($9$k$h$&$K$7$?!#(B ----------------------------- - - -tm/gnus - - Version 7.04 $B$rE:IU$7$?!#(B - -tm/gnus/tm-gnus5.el ----------------------------- -revision 7.3 -date: 1995/10/17 16:52:54; author: morioka; state: Exp; lines: +6 -6 -$B4X?t(B mime/decode-encoded-words-string $B$r(B `mime-eword/decode-string' $B$K(B -$B2~L>$7$?!#(B ----------------------------- - -tm/gnus/tm-ognus.el ----------------------------- -revision 7.1 -date: 1995/10/17 16:56:12; author: morioka; state: Exp; lines: +6 -7 -$B4X?t(B mime/decode-encoded-words-string $B$r(B `mime-eword/decode-string' $B$K(B -$B2~L>$7$?!#(B ----------------------------- - -tm/gnus/tm-sgnus.el ----------------------------- -revision 7.4 -date: 1995/10/18 08:32:36; author: morioka; state: Exp; lines: +39 -8 -(1) $B4X?t(B mime/decode-encoded-words-string $B$,(B - `mime-eword/decode-string' $B$K2~L>$5$l$?;v$KH<$$!"8E$$(B Gnus 5.0.* - nnheader patch $B$r9MN8$7$F!"4X?t(B mime-eword/decode-string $B$r(B - `mime/decode-encoded-words-string' $B$K(B alias $B$7$?!#(B - -(2) gnus-article-display-hook $B$+$i4X?t(B - gnus-article-hide-headers-if-wanted $B$r$7$?!#(B ----------------------------- diff --git a/Changes-7.17.en b/Changes-7.17.en deleted file mode 100644 index 0fb2115..0000000 --- a/Changes-7.17.en +++ /dev/null @@ -1,29 +0,0 @@ -* tm - - - Manual was modified. - -tm/tm-view.el ----------------------------- -revision 7.17 -date: 1995/10/19 07:55:54; author: morioka; state: Exp; lines: +43 -36 -Use rcnum instead of cnum. ----------------------------- - -tm/tm-w3.el ----------------------------- -revision 2.0 -date: 1995/10/19 07:57:57; author: morioka; state: Exp; lines: +7 -1 -Decode base64 or quoted-printable content. ----------------------------- - - -* tm/mh-e - - Attached version 7.06. - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 7.6 -date: 1995/10/19 07:51:52; author: morioka; state: Exp; lines: +5 -9 -Fixed problem of `.' and `,'. ----------------------------- diff --git a/Changes-7.17.ja b/Changes-7.17.ja deleted file mode 100644 index 1a56b1e..0000000 --- a/Changes-7.17.ja +++ /dev/null @@ -1,29 +0,0 @@ -* tm - - - manual $B$r>/$7=q$-D>$7$?!#(B - -tm/tm-view.el ----------------------------- -revision 7.17 -date: 1995/10/19 07:55:54; author: morioka; state: Exp; lines: +43 -36 -cnum $B$r;H$C$F$$$?$H$3$m$r(B rcnum $B$r;H$&$h$&$K=$@5$7$?!#(B ----------------------------- - -tm/tm-w3.el ----------------------------- -revision 2.0 -date: 1995/10/19 07:57:57; author: morioka; state: Exp; lines: +7 -1 -base64 $B$d(B quoted-printable $B$N>l9g!"(Bdecode $B$9$k$h$&$K$7$?!#(B ----------------------------- - - -* tm/mh-e - - Version 7.06 $B$rE:IU$7$?!#(B - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 7.6 -date: 1995/10/19 07:51:52; author: morioka; state: Exp; lines: +5 -9 -`.' $B$H(B `,' $B$NIT6q9g$r=$@5$7$?!#(B ----------------------------- diff --git a/Changes-7.18.en b/Changes-7.18.en deleted file mode 100644 index 01f8644..0000000 --- a/Changes-7.18.en +++ /dev/null @@ -1,83 +0,0 @@ -* tl - - Attached version 7.01.1. - -tl/mu-cite.el ----------------------------- -revision 3.3 -date: 1995/10/20 10:43:28; author: morioka; state: Exp; lines: +4 -2 -Fixed function `mu-cite/cite-original'. ----------------------------- - - -* mel - - Attached Version 2.1. - -mel/mel.el ----------------------------- -revision 2.1 -date: 1995/10/20 10:51:39; author: morioka; state: Exp; lines: +18 -1 -Function `mime/encode-region' was created. ----------------------------- -revision 2.0 -date: 1995/10/20 10:38:08; author: morioka; state: Exp; lines: +27 -1 -Function `mime/decode-region' was created. ----------------------------- - - -* tm - -tm/tm-rich.el ----------------------------- -revision 7.1 -date: 1995/10/20 10:40:06; author: morioka; state: Exp; lines: +3 -15 -Use function `mime/decode-region'. ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.18 -date: 1995/10/20 10:41:59; author: morioka; state: Exp; lines: +3 -9 -Function `mime-viewer/filter-text/plain' was modified$B!'(B -(1) Use function `mime/decode-region'. -(2) Unnecessary goto-char was deleted. -(3) Unnecessary save-excursion was deleted. ----------------------------- - -tm/tm-w3.el ----------------------------- -revision 3.0 -date: 1995/10/20 10:42:41; author: morioka; state: Exp; lines: +2 -7 -Use function `mime/decode-region'. ----------------------------- -revision 2.0 -date: 1995/10/19 07:57:57; author: morioka; state: Exp; lines: +7 -1 -Decode base64 or quoted-printable. ----------------------------- - - -* tm/gnus - - Attached Version 7.5. - -tm/tm-sgnus.el ----------------------------- -revision 7.5 -date: 1995/10/19 14:22:47; author: morioka; state: Exp; lines: +1 -5 -Not support gnus-5.0.6-nnheader.diff. (^_^; ----------------------------- - - -* tm/mh-e - - Attached Version 7.7. - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 7.7 -date: 1995/10/20 10:54:27; author: morioka; state: Exp; lines: +10 -2 -(1) In automatic MIME preview mode, if `,' key is pressed, it displays - preview buffer which has all fields of message header. -(2) Raw message displaying function is bound to `ESC ,'. ----------------------------- diff --git a/Changes-7.18.ja b/Changes-7.18.ja deleted file mode 100644 index 2ff3ef2..0000000 --- a/Changes-7.18.ja +++ /dev/null @@ -1,83 +0,0 @@ -* tl - - Version 7.01.1 $B$rE:IU$7$?!#(B - -tl/mu-cite.el ----------------------------- -revision 3.3 -date: 1995/10/20 10:43:28; author: morioka; state: Exp; lines: +4 -2 -$B4X?t(B mu-cite/cite-original $B$r=$@5$7$?!#(B ----------------------------- - - -* mel - - Version 2.1 $B$rE:IU$7$?!#(B - -mel/mel.el ----------------------------- -revision 2.1 -date: 1995/10/20 10:51:39; author: morioka; state: Exp; lines: +18 -1 -$B4X?t(B mime/encode-region $B$rDI2C$7$?!#(B ----------------------------- -revision 2.0 -date: 1995/10/20 10:38:08; author: morioka; state: Exp; lines: +27 -1 -$B4X?t(B mime/decode-region $B$rDI2C$7$?!#(B ----------------------------- - - -* tm - -tm/tm-rich.el ----------------------------- -revision 7.1 -date: 1995/10/20 10:40:06; author: morioka; state: Exp; lines: +3 -15 -$B4X?t(B mime/decode-region $B$r;H$&$h$&$K$7$?!#(B ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.18 -date: 1995/10/20 10:41:59; author: morioka; state: Exp; lines: +3 -9 -$B4X?t(B mime-viewer/filter-text/plain $B$r=$@5$7$?!'(B -(1) $B4X?t(B mime/decode-region $B$r;H$&$h$&$K$7$?!#(B -(2) $BL5BL$J(B goto-char $B$r:o=|$7$?!#(B -(3) $BL5BL$J(B save-excursion $B$r:o=|$7$?!#(B ----------------------------- - -tm/tm-w3.el ----------------------------- -revision 3.0 -date: 1995/10/20 10:42:41; author: morioka; state: Exp; lines: +2 -7 -$B4X?t(B mime/decode-region $B$r;H$&$h$&$K$7$?!#(B ----------------------------- -revision 2.0 -date: 1995/10/19 07:57:57; author: morioka; state: Exp; lines: +7 -1 -base64 $B$d(B quoted-printable $B$N>l9g!"(Bdecode $B$9$k$h$&$K$7$?!#(B ----------------------------- - - -* tm/gnus - - Version 7.5 $B$rE:IU$7$?!#(B - -tm/tm-sgnus.el ----------------------------- -revision 7.5 -date: 1995/10/19 14:22:47; author: morioka; state: Exp; lines: +1 -5 -gnus-5.0.6-nnheader.diff $B$r8+l9g!"(Bheader $B$rA4It(B - $BI=<($7$?(B preview buffer $B$rI=<($9$k$h$&$K$7$?!#(B -(2) $B>o$K@8$N2hLL$rI=<($9$k4X?t$r(B `ESC ,' $B$K3d$jEv$F$?!#(B ----------------------------- diff --git a/Changes-7.19.en b/Changes-7.19.en deleted file mode 100644 index 5b86e6f..0000000 --- a/Changes-7.19.en +++ /dev/null @@ -1,139 +0,0 @@ -* tm - -tm/tm-partial.el ----------------------------- -revision 7.9 -date: 1995/10/23 09:27:29; author: morioka; state: Exp; lines: +6 -5 -Function `mime/decode-message/partial-region' was renamed to -`mime-article/decode-message/partial'. ----------------------------- -revision 7.8 -date: 1995/10/22 14:28:50; author: morioka; state: Exp; lines: +12 -71 -Stop checking about number, etc. ----------------------------- -revision 7.7 -date: 1995/10/22 13:13:39; author: morioka; state: Exp; lines: +1 -19 -Setting for VM was moved to tm-vm.el. ----------------------------- -revision 7.6 -date: 1995/10/22 12:51:23; author: morioka; state: Exp; lines: +1 -22 -Setting for mh-e was moved to tm-mh-e.el. ----------------------------- -revision 7.5 -date: 1995/10/22 12:37:34; author: morioka; state: Exp; lines: +3 -19 -Setting for September Gnus and Gnus 5.0.* with September patch was -moved to tm-sgnus.el. ----------------------------- -revision 7.4 -date: 1995/10/22 12:08:45; author: morioka; state: Exp; lines: +1 -16 -Setting for GNUS 4 was moved to tm-gnus4.el. ----------------------------- -revision 7.3 -date: 1995/10/22 12:01:35; author: morioka; state: Exp; lines: +1 -16 -Setting for GNUS 3.* was moved to tm-gnus3.el. ----------------------------- -revision 7.2 -date: 1995/10/22 11:56:28; author: morioka; state: Exp; lines: +17 -11 -Variable `tm-partial/display-article-method-alist' was renamed to -`tm-partial/preview-article-method-alist', function -`tm-partial/display-article' was renamed to -`tm-partial/preview-article'. ----------------------------- -revision 7.1 -date: 1995/10/22 10:22:30; author: morioka; state: Exp; lines: +117 -99 -Implementation was changed: -(1) Some check for Subject searching in Summary was cut. -(2) Use message/partial method of tm-view. -(3) Separate setting for each MUA from the function. ----------------------------- - -tm/tm-play.el ----------------------------- -revision 2.0 -date: 1995/10/23 09:26:41; author: morioka; state: Exp; lines: +2 -2 -Function `mime/decode-message/partial-region' was renamed to -`mime-article/decode-message/partial'. ----------------------------- - -tm/tm-rmail.el ----------------------------- -revision 7.3 -date: 1995/10/23 08:53:47; author: morioka; state: Exp; lines: +29 -1 -Setting for tm-partial was added. ----------------------------- -revision 7.2 -date: 1995/10/22 15:42:46; author: morioka; state: Exp; lines: +2 -2 -Fixed a problem about quitting method setting. ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.19 -date: 1995/10/23 09:27:13; author: morioka; state: Exp; lines: +2 -2 -Function `mime/decode-message/partial-region' was renamed to -`mime-article/decode-message/partial'. ----------------------------- - -tm/tm-vm.el ----------------------------- -revision 7.2 -date: 1995/10/22 13:17:12; author: morioka; state: Exp; lines: +25 -2 -Setting for tm-partial was added. ----------------------------- - - -* tm/mh-e - - Attached version 7.08. - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 7.8 -date: 1995/10/22 14:40:59; author: morioka; state: Exp; lines: +29 -1 -Setting for tm-partial was added. ----------------------------- - - -* tm/gnus - - Attached version 7.09. - -tm/gnus/tm-gnus3.el ----------------------------- -revision 7.0 -date: 1995/10/22 12:02:04; author: morioka; state: Exp; lines: +24 -1 -Setting for tm-partial was added. ----------------------------- - -tm/gnus/tm-gnus4.el ----------------------------- -revision 7.0 -date: 1995/10/22 12:12:56; author: morioka; state: Exp; lines: +24 -1 -Setting for tm-partial was added. ----------------------------- - -tm/gnus/tm-gnus5.el ----------------------------- -revision 7.4 -date: 1995/10/22 12:13:50; author: morioka; state: Exp; lines: +24 -1 -Setting for tm-partial was added. ----------------------------- - -tm/gnus/tm-sgnus.el ----------------------------- -revision 7.9 -date: 1995/10/23 10:18:13; author: morioka; state: Exp; lines: +13 -7 -`tm-gnus/article-prepare-hook' was created. ----------------------------- -revision 7.8 -date: 1995/10/23 08:55:03; author: morioka; state: Exp; lines: +11 -1 -measure for BBDB. ----------------------------- -revision 7.7 -date: 1995/10/22 14:38:08; author: morioka; state: Exp; lines: +5 -6 -Fixed a problem for tm-partial. ----------------------------- -revision 7.6 -date: 1995/10/22 12:37:59; author: morioka; state: Exp; lines: +23 -1 -Setting for tm-partial was added. ----------------------------- diff --git a/Changes-7.19.ja b/Changes-7.19.ja deleted file mode 100644 index 2928e36..0000000 --- a/Changes-7.19.ja +++ /dev/null @@ -1,138 +0,0 @@ -* tm - -tm/tm-partial.el ----------------------------- -revision 7.9 -date: 1995/10/23 09:27:29; author: morioka; state: Exp; lines: +6 -5 -$B4X?t(B mime/decode-message/partial-region $B$r(B -`mime-article/decode-message/partial' $B$K2~L>$7$?!#(B ----------------------------- -revision 7.8 -date: 1995/10/22 14:28:50; author: morioka; state: Exp; lines: +12 -71 -$BHV9fEy$N(B check $B$r9T$&$N$r;_$a$?!#(B ----------------------------- -revision 7.7 -date: 1995/10/22 13:13:39; author: morioka; state: Exp; lines: +1 -19 -VM $BMQ$N@_Dj$r(B tm-vm.el $B$K0\$7$?!#(B ----------------------------- -revision 7.6 -date: 1995/10/22 12:51:23; author: morioka; state: Exp; lines: +1 -22 -mh-e $BMQ$N@_Dj$r(B tm-mh-e.el $B$K0\$7$?!#(B ----------------------------- -revision 7.5 -date: 1995/10/22 12:37:34; author: morioka; state: Exp; lines: +3 -19 -September Gnus $B$*$h$S(B Gnus 5.0.* with September patch $BMQ$N@_Dj$r(B -tm-sgnus.el $B$K0\$7$?!#(B ----------------------------- -revision 7.4 -date: 1995/10/22 12:08:45; author: morioka; state: Exp; lines: +1 -16 -GNUS 4 $BMQ$N@_Dj$r(B tm-gnus4.el $B$K0\$7$?!#(B ----------------------------- -revision 7.3 -date: 1995/10/22 12:01:35; author: morioka; state: Exp; lines: +1 -16 -GNUS 3.* $BMQ$N@_Dj$r(B tm-gnus3.el $B$K0\$7$?!#(B ----------------------------- -revision 7.2 -date: 1995/10/22 11:56:28; author: morioka; state: Exp; lines: +17 -11 -$BJQ?t(B tm-partial/display-article-method-alist $B$r(B -`tm-partial/preview-article-method-alist' $B$K!"4X?t(B -tm-partial/display-article $B$r(B `tm-partial/preview-article' $B$K2~L>$7$?!#(B ----------------------------- -revision 7.1 -date: 1995/10/22 10:22:30; author: morioka; state: Exp; lines: +117 -99 -$Br7o$r4K$a$?!#(B -(2) tm-view $B$N(B message/partial $BMQ$N(B method $B$rMxMQ$9$k$h$&$K$7$?!#(B -(3) $B3F(B MUA $BMQ$N@_Dj$r4X?tK\BN$+$iJ,N%$7$?!#(B ----------------------------- - -tm/tm-play.el ----------------------------- -revision 2.0 -date: 1995/10/23 09:26:41; author: morioka; state: Exp; lines: +2 -2 -$B4X?t(B mime/decode-message/partial-region $B$r(B -`mime-article/decode-message/partial' $B$K2~L>$7$?!#(B ----------------------------- - -tm/tm-rmail.el ----------------------------- -revision 7.3 -date: 1995/10/23 08:53:47; author: morioka; state: Exp; lines: +29 -1 -tm-partial $BMQ$N@_Dj$rDI2C$7$?!#(B ----------------------------- -revision 7.2 -date: 1995/10/22 15:42:46; author: morioka; state: Exp; lines: +2 -2 -quitting method $B$N@_Dj$K$*$1$kIT6q9g$r=$@5$7$?!#(B ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.19 -date: 1995/10/23 09:27:13; author: morioka; state: Exp; lines: +2 -2 -$B4X?t(B mime/decode-message/partial-region $B$r(B -`mime-article/decode-message/partial' $B$K2~L>$7$?!#(B ----------------------------- - -tm/tm-vm.el ----------------------------- -revision 7.2 -date: 1995/10/22 13:17:12; author: morioka; state: Exp; lines: +25 -2 -tm-partial $BMQ$N@_Dj$r9T$C$?!#(B ----------------------------- - - -* tm/mh-e - - Version 7.08 $B$rE:IU$7$?!#(B - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 7.8 -date: 1995/10/22 14:40:59; author: morioka; state: Exp; lines: +29 -1 -tm-partial $BMQ$N@_Dj$rDI2C$7$?!#(B ----------------------------- - - -* tm/gnus - - Version 7.09 $B$rE:IU$7$?!#(B - -tm/gnus/tm-gnus3.el ----------------------------- -revision 7.0 -date: 1995/10/22 12:02:04; author: morioka; state: Exp; lines: +24 -1 -tm-partial $BMQ$N@_Dj$r9T$C$?!#(B ----------------------------- - -tm/gnus/tm-gnus4.el ----------------------------- -revision 7.0 -date: 1995/10/22 12:12:56; author: morioka; state: Exp; lines: +24 -1 -tm-partial $BMQ$N@_Dj$r9T$C$?!#(B ----------------------------- - -tm/gnus/tm-gnus5.el ----------------------------- -revision 7.4 -date: 1995/10/22 12:13:50; author: morioka; state: Exp; lines: +24 -1 -tm-partial $BMQ$N@_Dj$r9T$C$?!#(B ----------------------------- - -tm/gnus/tm-sgnus.el ----------------------------- -revision 7.9 -date: 1995/10/23 10:18:13; author: morioka; state: Exp; lines: +13 -7 -tm-gnus/article-prepare-hook $B$r@_$1$?!#(B ----------------------------- -revision 7.8 -date: 1995/10/23 08:55:03; author: morioka; state: Exp; lines: +11 -1 -BBDB $BBP:vMQ$N(B code $B$rF~$l$?!#(B ----------------------------- -revision 7.7 -date: 1995/10/22 14:38:08; author: morioka; state: Exp; lines: +5 -6 -tm-partial $B$G$NIT6q9g$r=$@5$7$?!#(B ----------------------------- -revision 7.6 -date: 1995/10/22 12:37:59; author: morioka; state: Exp; lines: +23 -1 -tm-partial $BMQ$N@_Dj$r9T$C$?!#(B ----------------------------- diff --git a/Changes-7.20.en b/Changes-7.20.en deleted file mode 100644 index e94e834..0000000 --- a/Changes-7.20.en +++ /dev/null @@ -1,122 +0,0 @@ -* mel - - Attached version 3.0. - -mel/mel.el ----------------------------- -revision 3.0 -date: 1995/10/25 05:03:11; author: morioka; state: Exp; lines: +13 -8 -(1) setting for mel-u.el. -(2) New variable `mime-encoding-method-alist': it is used to choose - encoder in function `mime/encode-region'. ----------------------------- - -mel/mel-b.el ----------------------------- -revision 2.0 -date: 1995/10/25 02:40:49; author: morioka; state: Exp; lines: +15 -9 -Fixed a problem in Mule. ----------------------------- - -mel/mel-q.el ----------------------------- -revision 2.1 -date: 1995/10/25 05:00:54; author: morioka; state: Exp; lines: +15 -9 -Fixed a problem in Mule. ----------------------------- - -mel/mel-u.el ----------------------------- -revision 1.1 -date: 1995/10/25 05:01:17; author: morioka; state: Exp; -New module: it is for uuencode. ----------------------------- - - -* tm - -tm/mime-setup.el ----------------------------- -revision 7.7 -date: 1995/10/26 11:12:49; author: morioka; state: Exp; lines: +3 -112 -Setting for tm-edit.el instead of setting for mime.el and tm-comp.el. ----------------------------- -revision 7.6 -date: 1995/10/26 00:17:08; author: morioka; state: Exp; lines: +1 -39 -Setting for variable `mime-file-types' was deleted. ----------------------------- -revision 7.5 -date: 1995/10/24 00:23:57; author: morioka; state: Exp; lines: +11 -11 -According to KOBAYASHI Shuuhei in -[tm ML (Japanese):1031], setting for VM variables was deleted. ----------------------------- - -tm/signature.el ----------------------------- -revision 4.0 -date: 1995/10/26 09:25:23; author: morioka; state: Exp; lines: +5 -3 -Function `signature/insert-signature-at-point' and function -`signature/insert-signature-at-eof' were modified to return file name -of inserted signature. ----------------------------- -revision 3.0 -date: 1995/10/25 04:58:18; author: morioka; state: Exp; lines: +33 -21 -Fixed a problem of function `signature/get-signature-file-name'. ----------------------------- - -tm/tm-edit.el ----------------------------- -revision 7.11 -date: 1995/10/26 11:12:05; author: morioka; state: Exp; lines: +51 -67 -New module: it was created based on mime.el and tm-comp.el. ----------------------------- - -tm/tm-ew-e.el ----------------------------- -revision 7.5 -date: 1995/10/24 00:18:39; author: morioka; state: Exp; lines: +2 -3 -According to KOBAYASHI Shuuhei in -[tm ML (Japanese):1031], forgot part, which should be renamed, was -renamed. ----------------------------- - -tm/tm-partial.el ----------------------------- -revision 7.10 -date: 1995/10/25 05:25:28; author: morioka; state: Exp; lines: +10 -9 -Fixed for cut off Subject: field. ----------------------------- - -tm/tm-rmail.el ----------------------------- -revision 7.4 -date: 1995/10/24 00:19:52; author: morioka; state: Exp; lines: +3 -6 -(require 'rmail) was added. ----------------------------- - -tm/tm-setup.el ----------------------------- -revision 6.4 -date: 1995/10/24 00:24:48; author: morioka; state: Exp; lines: +7 -2 -(require 'tm-rmail) is setting for rmail-mode-hook. ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.20 -date: 1995/10/24 00:21:02; author: morioka; state: Exp; lines: +4 -1 -According to KOBAYASHI Shuuhei in -[tm ML (Japanese):1031], buffer local variables were defined. ----------------------------- - - -* tm/mh-e - - Attached version 7.9. - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 7.9 -date: 1995/10/26 09:26:23; author: morioka; state: Exp; lines: +20 -13 -Setting for tm-edit.el instead of tm-comp.el. ----------------------------- diff --git a/Changes-7.20.ja b/Changes-7.20.ja deleted file mode 100644 index a0639fc..0000000 --- a/Changes-7.20.ja +++ /dev/null @@ -1,125 +0,0 @@ -* mel - - Version 3.0 $B$rE:IU$7$?!#(B - -mel/mel.el ----------------------------- -revision 3.0 -date: 1995/10/25 05:03:11; author: morioka; state: Exp; lines: +13 -8 -(1) mel-u.el $B$KBP$9$k@_Dj$r9T$C$?!#(B -(2) $BJQ?t(B mime-encoding-method-alist $B$r@_$1$F!"4X?t(B mime/encode-region - $B$G$N(B encoder $B$NA*Br$K$3$l$rMQ$$$k$h$&$K$7$?!#(B ----------------------------- - -mel/mel-b.el ----------------------------- -revision 2.0 -date: 1995/10/25 02:40:49; author: morioka; state: Exp; lines: +15 -9 -Mule $B$G$NIT6q9g$r=$@5$7$?!#(B ----------------------------- - -mel/mel-q.el ----------------------------- -revision 2.1 -date: 1995/10/25 05:00:54; author: morioka; state: Exp; lines: +15 -9 -Mule $B$G$NIT6q9g$r=$@5$7$?!#(B ----------------------------- - -mel/mel-u.el ----------------------------- -revision 1.1 -date: 1995/10/25 05:01:17; author: morioka; state: Exp; -uuencode $BMQ$N(B module $B$H$7$F:n@.$7$?!#(B ----------------------------- - - -* tm - -tm/mime-setup.el ----------------------------- -revision 7.7 -date: 1995/10/26 11:12:49; author: morioka; state: Exp; lines: +3 -112 -mime.el, tm-comp.el $BMQ$N@_Dj$r:o=|$7!"(Btm-edit.el $BMQ$N@_Dj$r9T$C$?!#(B ----------------------------- -revision 7.6 -date: 1995/10/26 00:17:08; author: morioka; state: Exp; lines: +1 -39 -$BJQ?t(B mime-file-types $B$r@_Dj$9$k$N$r$d$a$?!#(B ----------------------------- -revision 7.5 -date: 1995/10/24 00:23:57; author: morioka; state: Exp; lines: +11 -11 -[tm ML$B!JF|K\8lHG!K(B:1031] $B$G$N!">.NS(B $B=$J?(B - $B$5$s$N;XE&$K=>$$!"(BVM $B$NJQ?t$KBP$9$k(B -$B@_Dj$r9T$&$N$r;_$a$?!#(B ----------------------------- - -tm/signature.el ----------------------------- -revision 4.0 -date: 1995/10/26 09:25:23; author: morioka; state: Exp; lines: +5 -3 -$B4X?t(B signature/insert-signature-at-point $B$*$h$S4X?t(B -signature/insert-signature-at-eof $B$GA^F~$7$?(B signature $B$N(B file $BL>$rJV(B -$B$9$h$&$K$7$?!#(B ----------------------------- -revision 3.0 -date: 1995/10/25 04:58:18; author: morioka; state: Exp; lines: +33 -21 -$B4X?t(B signature/get-signature-file-name $B$NIT6q9g$r=$@5$7$?!#(B ----------------------------- - -tm/tm-edit.el ----------------------------- -revision 7.11 -date: 1995/10/26 11:12:05; author: morioka; state: Exp; lines: +51 -67 -mime.el $B$H(B tm-comp.el $B$r4p$K:n@.$7$?!#(B ----------------------------- - -tm/tm-ew-e.el ----------------------------- -revision 7.5 -date: 1995/10/24 00:18:39; author: morioka; state: Exp; lines: +2 -3 -[tm ML$B!JF|K\8lHG!K(B:1031] $B$G$N!">.NS(B $B=$J?(B - $B$5$s$N;XE&$K=>$$!"(Brename$B$7K:$l$F$$$?(B -$BItJ,$r=$@5$7$?!#(B ----------------------------- - -tm/tm-partial.el ----------------------------- -revision 7.10 -date: 1995/10/25 05:25:28; author: morioka; state: Exp; lines: +10 -9 -Subject: field $B$,ESCf$G@Z$l$F$$$k>l9g$N;v$r9MN8$7$?!#(B ----------------------------- - -tm/tm-rmail.el ----------------------------- -revision 7.4 -date: 1995/10/24 00:19:52; author: morioka; state: Exp; lines: +3 -6 -(require 'rmail) $B$9$k$h$&$K$7$?!#(B ----------------------------- - -tm/tm-setup.el ----------------------------- -revision 6.4 -date: 1995/10/24 00:24:48; author: morioka; state: Exp; lines: +7 -2 -(require 'tm-rmail) $B$r(B rmail-mode-hook $B$KBP$7$F@_Dj$9$k$h$&$K$7$?!#(B ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.20 -date: 1995/10/24 00:21:02; author: morioka; state: Exp; lines: +4 -1 -[tm ML$B!JF|K\8lHG!K(B:1031] $B$G$N!">.NS(B $B=$J?(B - $B$5$s$N;XE&$K=>$$!"(Bbuffer local $BJQ?t(B -$B$rA4$F(B defvar $B$9$k$h$&$K$7$?!#(B ----------------------------- - - -* tm/mh-e - - Version 7.9 $B$rE:IU$7$?!#(B - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 7.9 -date: 1995/10/26 09:26:23; author: morioka; state: Exp; lines: +20 -13 -tm-comp $BMQ$N@_Dj$r$9$k$N$r$d$a$F!"Be$o$j$K(B tm-edit $BMQ$N@_Dj$r$9$k$h$&(B -$B$K$7$?!#(B ----------------------------- diff --git a/Changes-7.21.en b/Changes-7.21.en deleted file mode 100644 index 5a55202..0000000 --- a/Changes-7.21.en +++ /dev/null @@ -1,119 +0,0 @@ -* mel - - Attached version 3.1. - -mel/mel.el ----------------------------- -revision 3.1 -date: 1995/10/30 06:03:37; author: morioka; state: Exp; lines: +18 -14 -(1) setting for function `uuencode-decode-region' of mel-u.el. -(2) Variable `mime-decoding-method-alist' was created to chose decoder - in function `mime/decode-region'. ----------------------------- - -mel/mel-u.el ----------------------------- -revision 2.0 -date: 1995/10/30 06:01:29; author: morioka; state: Exp; lines: +51 -1 -Function `uuencode-decode-region' was created. ----------------------------- - - -* tm - -tm/mime-setup.el ----------------------------- -revision 7.9 -date: 1995/10/28 06:02:53; author: morioka; state: Exp; lines: +38 -39 -(1) all of VM settings were deleted. -(2) `mime-setup-load-hook' was created. -(3) Setting to decode encoded-words was inserted to variable - `mime/editor-mode-hook'. Other similar settings were deleted. ----------------------------- -revision 7.8 -date: 1995/10/27 08:36:13; author: morioka; state: Exp; lines: +2 -16 -For `mh-letter-mode-hook', do add-hook as append mode. ----------------------------- - -tm/tm-edit.el ----------------------------- -revision 7.14 -date: 1995/10/29 06:15:49; author: morioka; state: Exp; lines: +6 -120 -Unnecessary comments were deleted. ----------------------------- -revision 7.13 -date: 1995/10/28 05:48:36; author: morioka; state: Exp; lines: +501 -463 -(1) prefix was renamed from ``tm-edit/'' to ``mime-editor/''. -(2) `mime-mode' was renamed to `mime/editor-mode'. -(3) Does not set sending key. - It sets function `mime-editor/maybe-translate' to before sending - hooks of each MUAs'. -(4) Some problems were fixed. ----------------------------- -revision 7.12 -date: 1995/10/27 11:18:22; author: morioka; state: Exp; lines: +13 -43 -Forgot part to rename `mime-menu' to `tm-edit/menu' was renamed. ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.21 -date: 1995/10/30 05:57:27; author: morioka; state: Exp; lines: +31 -17 -Variable `mime-viewer/over-to-previous-method-alist' and variable -`mime-viewer/over-to-next-method-alist' were created. ----------------------------- - -tm/tm-rmail.el ----------------------------- -revision 7.8 -date: 1995/10/30 05:52:36; author: morioka; state: Exp; lines: +80 -23 -automatic MIME preview support. ----------------------------- - -tm/tm-vm.el ----------------------------- -revision 7.3 -date: 1995/10/28 06:00:09; author: morioka; state: Exp; lines: +13 -1 -Code for mime-setup. ----------------------------- - - -* tm/mh-e - - Attached version 7.10. - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 7.10 -date: 1995/10/30 03:19:18; author: morioka; state: Exp; lines: +2 -2 -Setting for tm-edit was modified because variable -`tm-edit/message-inserter-alist' was renamed to -`mime-editor/message-inserter-alist'. ----------------------------- - - -* tm/gnus - - Attached version 7.12. - -tm/gnus/tm-gnus4.el ----------------------------- -revision 7.1 -date: 1995/10/28 05:44:44; author: morioka; state: Exp; lines: +1 -98 -Setting for tm-comp was deleted. ----------------------------- - -tm/gnus/tm-sgnus.el ----------------------------- -revision 7.12 -date: 1995/10/29 14:13:08; author: morioka; state: Exp; lines: +16 -29 -(1) encoded-words decoding mode (tm-gnus/decode-all = nil) was - abolished. So variable `tm-gnus/decode-all' was deleted. -(2) Redefine function `gnus-article-hide-headers-if-wanted'. -(3) Variable `tm-gnus/automatic-mime-preview' was created. It is set - to variable `gnus-show-mime'. ----------------------------- -revision 7.11 -date: 1995/10/27 10:19:38; author: morioka; state: Exp; lines: +3 -1 -measure for BBDB again. ----------------------------- diff --git a/Changes-7.21.ja b/Changes-7.21.ja deleted file mode 100644 index 175ef66..0000000 --- a/Changes-7.21.ja +++ /dev/null @@ -1,125 +0,0 @@ -* mel - - Version 3.1 $B$rE:IU$7$?!#(B - -mel/mel.el ----------------------------- -revision 3.1 -date: 1995/10/30 06:03:37; author: morioka; state: Exp; lines: +18 -14 -(1) mel-u.el $B$N(B uuencode-decode-region $B$N@_Dj$r9T$C$?!#(B -(2) $BJQ?t(B mime-decoding-method-alist $B$r@_$1$F!"4X?t(B mime/decode-region - $B$G$N(B decoder $B$NA*Br$K$3$l$rMQ$$$k$h$&$K$7$?!#(B ----------------------------- - -mel/mel-u.el ----------------------------- -revision 2.0 -date: 1995/10/30 06:01:29; author: morioka; state: Exp; lines: +51 -1 -$B4X?t(B uuencode-decode-region $B$rDI2C$7$?!#(B ----------------------------- - - -* tm - -tm/mime-setup.el ----------------------------- -revision 7.9 -date: 1995/10/28 06:02:53; author: morioka; state: Exp; lines: +38 -39 -(1) VM $BMQ$N@_Dj$rA4$F:o=|$7$?!#(B -(2) mime-setup-load-hook $B$r@_$1$?!#(B -(3) $BJQ?t(B mime/editor-mode-hook $B$K(B encoded-word $B$N(B decode $BMQ$N(B code $B$r(B - $BF~$l!"$=$l0J30$NItJ,$K$"$C$?(B mime/decode-message-header $B$r8F$V@_Dj(B - $B$r:o=|$7$?!#(B ----------------------------- -revision 7.8 -date: 1995/10/27 08:36:13; author: morioka; state: Exp; lines: +2 -16 -mh-letter-mode-hook $B$KBP$7$F(B append mode $B$G(B add-hook $B$9$k$h$&$K$7$?!#(B ----------------------------- - -tm/tm-edit.el ----------------------------- -revision 7.14 -date: 1995/10/29 06:15:49; author: morioka; state: Exp; lines: +6 -120 -$BITMW$J(B comment $B$r:o=|$7$?!#(B ----------------------------- -revision 7.13 -date: 1995/10/28 05:48:36; author: morioka; state: Exp; lines: +501 -463 -(1) prefix $B$r(B ``tm-edit/'' $B$+$i(B ``mime-editor/'' $B$KJQ$($?!#(B -(2) mime-mode $B$r(B mime/editor-mode $B$KJQ$($?!#(B -(3) $BH/?.MQ$N(B key $B$r@_Dj$9$k$N$r$d$a!"3F(B MUA $B$NH/?.D>A0$K8F$P$l$k(B hook - $B$K4X?t(B mime-editor/maybe-translate $B$r@_Dj$9$k$h$&$K$7$?!#(B -(4) $B$$$m$$$m$JIT6q9g$r=$@5$7$?!#(B ----------------------------- -revision 7.12 -date: 1995/10/27 11:18:22; author: morioka; state: Exp; lines: +13 -43 -$BDj?t(B mime-menu $B$r(B tm-edit/menu $B$K(B rename $B$9$k$N$rK:$l$F$$$?ItJ,$r=$@5(B -$B$7$?!#(B ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.21 -date: 1995/10/30 05:57:27; author: morioka; state: Exp; lines: +31 -17 -message $B$N@hF,(B content $B$+$iA0$K9T$3$&$H$9$k;~$K8F$P$l$k(B -`mime-viewer/over-to-previous-method-alist' $B$H(B message $B$NKvHx$N(B -content $B$+$i$5$l$?$N$KH<$$!"(Btm-edit $B$N(B -$B@_Dj$r=$@5$7$?!#(B ----------------------------- - - -* tm/gnus - - Version 7.12 $B$rE:IU$7$?!#(B - -tm/gnus/tm-gnus4.el ----------------------------- -revision 7.1 -date: 1995/10/28 05:44:44; author: morioka; state: Exp; lines: +1 -98 -tm-comp $BMQ$N@_Dj$r:o=|$7$?!#(B ----------------------------- - -tm/gnus/tm-sgnus.el ----------------------------- -revision 7.12 -date: 1995/10/29 14:13:08; author: morioka; state: Exp; lines: +16 -29 -(1) encoded-word $B$N(B decode $B$@$1$r9T$&(B mode$B!J(Btm-gnus/decode-all $B$,(B nil - $B$G$"$k>uBV!K$rGQ;_$7$?!#$3$l$KH<$$!"JQ?t(B tm-gnus/decode-all $B$rGQ;_(B - $B$7$?!#(B -(2) $B4X?t(B gnus-article-hide-headers-if-wanted $B$r:FDj5A$9$k$h$&$K$7$?!#(B -(3) $BJQ?t(B tm-gnus/automatic-mime-preview $B$r@_$1$?!#$3$l$OJQ?t(B - gnus-show-mime $B$KBeF~$5$l$k!#!J(Bdefault $B$N>uBV$G(B automatic MIME - preview mode $B$K$7!"$J$*$+$D!"(Buser $B$,=i4|>uBV$r@_Dj$G$-$k$h$&$K$9$k(B - $B$?$a!K(B ----------------------------- -revision 7.11 -date: 1995/10/27 10:19:38; author: morioka; state: Exp; lines: +3 -1 -BBDB $BBP:vMQ$N@_Dj$r$^$?$^$?=$@5!#(B ----------------------------- diff --git a/Changes-7.22.en b/Changes-7.22.en deleted file mode 100644 index d3d1499..0000000 --- a/Changes-7.22.en +++ /dev/null @@ -1,136 +0,0 @@ -* tl - - Attached version 7.01.3. - - -* mel - - Attached version 3.2. - - -* tm - -tm/tm-edit.el ----------------------------- -revision 7.15 -date: 1995/11/03 08:32:03; author: morioka; state: Exp; lines: +77 -9 -Addition for image/tiff and text/x-rot13-47. ----------------------------- - -tm/tm-file.el ----------------------------- -revision 2.0 -date: 1995/11/06 16:05:29; author: morioka; state: Exp; lines: +17 -5 -(1) Function `mime/extract-file' was renamed to - `mime-article/extract-file'. -(2) took measure for jam-zcat and jka-compr. ----------------------------- -revision 1.1 -date: 1995/11/03 08:32:58; author: morioka; state: Exp; -It was created as a tm-view internal method module for file -extraction. ----------------------------- - -tm/tm-mail.el ----------------------------- -revision 1.1 -date: 1995/11/04 08:22:24; author: morioka; state: Exp; -It was created as a tm-view internal method module for message/rfc822 -and text/x-rot13-47. ----------------------------- - -tm/tm-play.el ----------------------------- -revision 4.0 -date: 1995/11/04 07:51:22; author: morioka; state: Exp; lines: +4 -2 -Don't code convert when reading partial part files. ----------------------------- -revision 3.0 -date: 1995/11/03 08:53:58; author: morioka; state: Exp; lines: +6 -2 -Function `mime-article/decode-message/partial' was modified not to -code convert when reading FULL file. ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.22 -date: 1995/11/03 09:05:23; author: morioka; state: Exp; lines: +21 -15 -(1) New function `mime-preview/decode-text-region'. -(2) use function `mime/code-convert-region-to-emacs' as code converter - for mime/show-message-mode. -(3) Buffer local variable `mime/mother-buffer' was renamed to - `mime::preview/mother-buffer'. ----------------------------- - -tm/tm-rmail.el ----------------------------- -revision 7.12 -date: 1995/11/02 12:20:51; author: morioka; state: Exp; lines: +2 -2 -In function `tm-rmail/view-message', fixed renaming mistake of -`tm-rmail/preview-message'. ----------------------------- -revision 7.11 -date: 1995/11/02 07:03:01; author: morioka; state: Exp; lines: +3 -2 -Function `tm-rmail/preview-message' was modified to use function -`rfc822/get-field-body' instead of function -`mail-fetch-field'. (because of text property problem in Emacs 19.29) ----------------------------- -revision 7.10 -date: 1995/11/02 06:04:48; author: morioka; state: Exp; lines: +2 -2 -In function `tm-rmail/forward', fixed renaming mistake of -`tm-edit/insert-tag' -> `mime-editor/insert-tag'. ----------------------------- -revision 7.9 -date: 1995/10/31 14:20:25; author: morioka; state: Exp; lines: +2 -2 -Function `tm-rmail/forward-from-gnus' was renamed to -`gnus-mail-forward-using-mail-mime'. ----------------------------- - -tm/mh-e - - Attached version 7.12. - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 7.12 -date: 1995/10/31 15:27:51; author: morioka; state: Exp; lines: +1 -46 -Function `gnus-mail-forward-using-mhe-mime' was moved to tm-gnus5.el -again. ----------------------------- -revision 7.11 -date: 1995/10/31 14:17:09; author: morioka; state: Exp; lines: +47 -1 -Insert (require 'mh-comp) in function -`gnus-mail-forward-using-mhe-mime'. ----------------------------- - -tm/mh-e/tm-mh-e3.el ----------------------------- -revision 6.0 -date: 1995/10/31 14:24:41; author: morioka; state: Exp; lines: +5 -1 -Insert (provide 'mh-comp). ----------------------------- - - -tm/gnus - - Attached version 7.13. - -tm/gnus/tm-gnus5.el ----------------------------- -revision 7.7 -date: 1995/10/31 15:24:49; author: morioka; state: Exp; lines: +58 -1 -Function `gnus-mail-forward-using-mhe-mime' was defined in this module -again. ----------------------------- -revision 7.6 -date: 1995/10/31 13:52:48; author: morioka; state: Exp; lines: +1 -47 -Function `gnus-mail-forward-using-mhe-mime' was moved to tm-mh-e.el. ----------------------------- -revision 7.5 -date: 1995/10/31 13:45:21; author: morioka; state: Exp; lines: +108 -136 -(1) automatic MIME preview support for original Gnus 5.0.x. - (``with tm patch'' is regarded as original Gnus 5.0.x) -(2) tm-gnus/decode-all was abolished and changed like tm-sgnus way. -(3) setting for BBDB. -(4) Function `gnus-mail-forward-using-mhe-mime' was modified. ----------------------------- diff --git a/Changes-7.22.ja b/Changes-7.22.ja deleted file mode 100644 index da2428a..0000000 --- a/Changes-7.22.ja +++ /dev/null @@ -1,134 +0,0 @@ -* tl - - Version 7.01.3 $B$rE:IU$7$?!#(B - - -* mel - - Version 3.2 $B$rE:IU$7$?!#(B - - -* tm - -tm/tm-edit.el ----------------------------- -revision 7.15 -date: 1995/11/03 08:32:03; author: morioka; state: Exp; lines: +77 -9 -image/tiff $B$H(B text/x-rot13-47 $B$rDI2C$7$?!#(B ----------------------------- - -tm/tm-file.el ----------------------------- -revision 2.0 -date: 1995/11/06 16:05:29; author: morioka; state: Exp; lines: +17 -5 -(1) $B4X?t(B mime/extract-file $B$r(B mime-article/extract-file $B$K2~L>$7$?!#(B -(2) jam-zcat $B$H(B jka-compr $B$KBP$9$kBP:v$r9T$C$?!#(B ----------------------------- -revision 1.1 -date: 1995/11/03 08:32:58; author: morioka; state: Exp; -file extraction $BMQ$N(B internal method module $B$H$7$F?7@_$7$?!#(B ----------------------------- - -tm/tm-mail.el ----------------------------- -revision 1.1 -date: 1995/11/04 08:22:24; author: morioka; state: Exp; -message/rfc822 $B$H(B text/x-rot13-47 $BMQ$N(B internal method module $B$H$7$F?7(B -$B@_$7$?!#(B ----------------------------- - -tm/tm-play.el ----------------------------- -revision 4.0 -date: 1995/11/04 07:51:22; author: morioka; state: Exp; lines: +4 -2 -$B=q$-=P$7$?3F(B part $B$rFI$_9~$`;~$K(B code $BJQ49$r9T$o$J$$$h$&$K$7$?!#(B ----------------------------- -revision 3.0 -date: 1995/11/03 08:53:58; author: morioka; state: Exp; lines: +6 -2 -$B4X?t(B mime-article/decode-message/partial $B$G(B FULL file $B$r(B code $BJQ49$;$:(B -$B$KFI$_9~$`$h$&$K$7$?!#(B ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.22 -date: 1995/11/03 09:05:23; author: morioka; state: Exp; lines: +21 -15 -(1) $B4X?t(B mime-preview/decode-text-region $B$r@_$1$?!#(B -(2) mime/show-message-mode $BMQ$N(B code converter $B$H$7$F!"4X?t(B - mime/code-convert-region-to-emacs $B$rMQ$$$k$h$&$K$7$?!#(B -(3) buffer local $BJQ?t(B `mime/mother-buffer' $B$r(B - `mime::preview/mother-buffer' $B$K2~L>$7$?!#(B ----------------------------- - -tm/tm-rmail.el ----------------------------- -revision 7.12 -date: 1995/11/02 12:20:51; author: morioka; state: Exp; lines: +2 -2 -$B4X?t(B tm-rmail/view-message $B$r(B `tm-rmail/preview-message' $B$K(B rename $B$9(B -$B$k$N$rK:$l$F$$$?$N$r=$@5$7$?!#(B ----------------------------- -revision 7.11 -date: 1995/11/02 07:03:01; author: morioka; state: Exp; lines: +3 -2 -$B4X?t(B tm-rmail/preview-message $B$G!"4X?t(B mail-fetch-field $B$r;H$&$N$r$d$a(B -$B$F!"4X?t(B rfc822/get-field-body $B$r;H$&$h$&$K$7$?!#(B ----------------------------- -revision 7.10 -date: 1995/11/02 06:04:48; author: morioka; state: Exp; lines: +2 -2 -$B4X?t(B tm-rmail/forward $B$G(B `tm-edit/insert-tag' $B$r(B -`mime-editor/insert-tag' $B$K(B rename $B$7K:$l$F$$$?ItJ,$r=$@5$7$?!#(B ----------------------------- -revision 7.9 -date: 1995/10/31 14:20:25; author: morioka; state: Exp; lines: +2 -2 -$B4X?t(B tm-rmail/forward-from-gnus $B$r(B `gnus-mail-forward-using-mail-mime' -$B$K2~L>$7$?!#(B ----------------------------- - -tm/mh-e - - Version 7.12 $B$rE:IU$7$?!#(B - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 7.12 -date: 1995/10/31 15:27:51; author: morioka; state: Exp; lines: +1 -46 -$B$d$C$Q$j!"4X?t(B gnus-mail-forward-using-mhe-mime $B$O(B tm-gnus5.el $B$NCf$G(B -$BDj5A$9$k$3$H$K$7$?!#(B ----------------------------- -revision 7.11 -date: 1995/10/31 14:17:09; author: morioka; state: Exp; lines: +47 -1 -$B4X?t(B gnus-mail-forward-using-mhe-mime $B$NCf$K(B (require 'mh-comp) $B$rF~$l(B -$B$?!#(B ----------------------------- - -tm/mh-e/tm-mh-e3.el ----------------------------- -revision 6.0 -date: 1995/10/31 14:24:41; author: morioka; state: Exp; lines: +5 -1 -(provide 'mh-comp) $B$rF~$l$?!#(B ----------------------------- - - -tm/gnus - - Version 7.13 $B$rE:IU$7$?!#(B - -tm/gnus/tm-gnus5.el ----------------------------- -revision 7.7 -date: 1995/10/31 15:24:49; author: morioka; state: Exp; lines: +58 -1 -$B$d$C$Q$j!"4X?t(B gnus-mail-forward-using-mhe-mime $B$O$3$NCf$GDj5A$9$k$3$H(B -$B$K$7$?!#(B ----------------------------- -revision 7.6 -date: 1995/10/31 13:52:48; author: morioka; state: Exp; lines: +1 -47 -$B4X?t(B gnus-mail-forward-using-mhe-mime $B$r(B tm-mh-e.el $B$K0\$7$?!#(B ----------------------------- -revision 7.5 -date: 1995/10/31 13:45:21; author: morioka; state: Exp; lines: +108 -136 -(1) original $B$N(B Gnus 5.0.x $B$N>l9g$G$b(B automatic MIME preview support - $B$,9T$($k$h$&$K$7$?!#!J(B``with tm patch'' $B$N>l9g$b(B original $B$H$7$F07(B - $B$o$l$k!K(B -(2) tm-gnus/decode-all $B$rGQ;_$7$F!"(Btm-sgnus $B$HF1MM$NJ}<0$KJQ$($?!#(B -(3) BBDB $BMQ$N@_Dj$r9T$C$?!#(B -(4) $B4X?t(B gnus-mail-forward-using-mhe-mime $B$r=$@5$7$?!#(B ----------------------------- diff --git a/Changes-7.23.en b/Changes-7.23.en deleted file mode 100644 index 2c02cd8..0000000 --- a/Changes-7.23.en +++ /dev/null @@ -1,182 +0,0 @@ -* tl - - Attached version 7.01.4. - - -* tm - -tm/tm-def.el ----------------------------- -revision 7.1 -date: 1995/11/10 10:43:15; author: morioka; state: Exp; lines: +56 -1 -Function `mime-editor/caesar-region' was moved from tm-edit.el, and -defined as `tm:caesar-region'. ----------------------------- - -tm/tm-edit.el ----------------------------- -revision 7.23 -date: 1995/11/11 12:48:30; author: morioka; state: Exp; lines: +2 -25 -Function `rfc822/get-header-string-except' was moved to tl-822.el. ----------------------------- -revision 7.22 -date: 1995/11/11 11:53:08; author: morioka; state: Exp; lines: +10 -24 -(1) Variable `mime-editor/message-sender-alist' was renamed to - `mime-editor/split-message-sender-alist'. -(2) Variable `mime-editor/message-before-send-hook-alist' and variable - `mime-editor/message-after-send-hook-alist' were abolished. (They - have not already been used.) ----------------------------- -revision 7.21 -date: 1995/11/11 11:31:31; author: morioka; state: Exp; lines: +34 -13 -Variable `mime-editor/blind-fields-regexp' was renamed to -`mime-editor/split-blind-fields-regexp'. ----------------------------- -revision 7.20 -date: 1995/11/11 11:16:47; author: morioka; state: Exp; lines: +18 -17 -Constant `mime-editor/message-nuke-headers' was renamed to -`mime-editor/split-ignored-fields-regexp'. ----------------------------- -revision 7.19 -date: 1995/11/11 10:50:07; author: morioka; state: Exp; lines: +4 -4 -Variable `mime-editor/ignored-fields-regexp' was renamed to -`mime-editor/yank-ignored-fields-regexp'. ----------------------------- -revision 7.18 -date: 1995/11/10 12:43:39; author: morioka; state: Exp; lines: +19 -4 -(1) Variable `mime-editor/mail-inserter-alist' and function - `mime-editor/insert-mail' were added. -(2) Key of function `mime-editor/insert-tag' was changed to `C-c C-x - t', and function `mime-editor/mail-inserter-alist was bound to - `C-c C-x C-m'. ----------------------------- -revision 7.17 -date: 1995/11/10 11:51:23; author: morioka; state: Exp; lines: +24 -2 -Variable `mime-editor/ignored-fields-regexp' and function -`mime-editor/inserted-message-filter' were added. ----------------------------- -revision 7.16 -date: 1995/11/10 10:43:50; author: morioka; state: Exp; lines: +6 -57 -Function `mime-editor/caesar-region' was moved to tm-def.el. ----------------------------- - -tm/tm-play.el ----------------------------- -revision 7.1 -date: 1995/11/10 11:13:32; author: morioka; state: Exp; lines: +20 -2 -Function `mime-article/view-message/rfc822' was moved from -tm-mail.el. tm-mail.el was abolished. ----------------------------- -revision 7.0 -date: 1995/11/10 10:54:46; author: morioka; state: Exp; lines: +16 -1 -Function `mime-viewer/quitting-method-for-mime/show-message-mode' was -moved from tm-view.el. ----------------------------- -revision 6.0 -date: 1995/11/10 10:44:54; author: morioka; state: Exp; lines: +35 -1 -function `mime-article/decode-caesar' was moved from tm-mail.el. ----------------------------- -revision 5.0 -date: 1995/11/08 07:32:41; author: morioka; state: Exp; lines: +26 -2 -Variable `mime-article/coding-system-alist' and variable -`mime-article/kanji-code-alist' were added. In function -`mime-article/decode-message/partial', they were used as character -coding system when partial part was wrote. ----------------------------- - -tm/tm-rmail.el ----------------------------- -revision 7.15 -date: 1995/11/12 15:15:15; author: morioka; state: Exp; lines: +3 -2 -Function `tm-rmail/preview-message' was fixed problem of judgement of -unnecessary null line. ----------------------------- -revision 7.14 -date: 1995/11/10 10:04:18; author: morioka; state: Exp; lines: +8 -1 -Function `tm-rmail/preview-message' was modified to narrow to remove -unnecessary null line added by RMAIL. ----------------------------- -revision 7.13 -date: 1995/11/09 17:58:49; author: morioka; state: Exp; lines: +2 -2 -Function `tm-rmail/preview-message' was modified to use function -`mime/Content-Transfer-Encoding'. (measure for Emacs 19.29 text -property) ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.23 -date: 1995/11/10 11:15:31; author: morioka; state: Exp; lines: +11 -12 -(1) Function `mime-viewer/quitting-method-for-mime/show-message-mode' - was moved to tm-play.el. -(2) setting for function `mime-article/decode-caesar' and function - `mime-article/view-message/rfc822'. ----------------------------- - - -* tm/gnus - - Attached version 7.15. - -tm/gnus/tm-gnus.el ----------------------------- -revision 7.4 -date: 1995/11/13 09:28:17; author: morioka; state: Exp; lines: +2 -2 -Variable `mime-editor/ignored-fields-regexp' was renamed to -`mime-editor/yank-ignored-fields-regexp'. ----------------------------- -revision 7.3 -date: 1995/11/11 10:48:11; author: morioka; state: Exp; lines: +3 -3 -Function `tm-gnus/yank-message' was renamed to `tm-gnus/insert-article'. ----------------------------- -revision 7.2 -date: 1995/11/11 10:45:21; author: morioka; state: Exp; lines: +21 -21 -Function `tm-gnus/yank-message' was modified to change `let*' to `let'. ----------------------------- -revision 7.1 -date: 1995/11/11 10:33:08; author: morioka; state: Exp; lines: +42 -2 -New function `tm-gnus/yank-message'. setting for tm-edit.el. ----------------------------- - -tm/gnus/tm-gnus5.el ----------------------------- -revision 7.8 -date: 1995/11/10 10:07:15; author: morioka; state: Exp; lines: +38 -4 -(1) fixed problem of judgement of automatic MIME preview mode. -(2) redefine function `gnus-article-setup-buffer'. ----------------------------- - -tm/gnus/tm-sgnus.el ----------------------------- -revision 7.14 -date: 1995/11/10 10:09:52; author: morioka; state: Exp; lines: +12 -4 -fixed problem of judgement of automatic MIME preview mode. ----------------------------- - - -* tm/mh-e - - Attached version 7.16. - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 7.16 -date: 1995/11/11 13:02:40; author: morioka; state: Exp; lines: +7 -2 -In function `tm-mh-e/view-message', judgement which preview -buffer was exist or not was fixed. ----------------------------- -revision 7.15 -date: 1995/11/11 10:42:32; author: morioka; state: Exp; lines: +2 -2 -Function `tm-mh-e/prompt-for-message' was fixed to check buffer local -variable `mh-sent-from-msg' is bound. ----------------------------- -revision 7.14 -date: 1995/11/10 12:47:01; author: morioka; state: Exp; lines: +7 -2 -setting to use function `tm-mh-e/insert-message' as mail-inserter for -mh-letter-mode and news-reply-mode. ----------------------------- -revision 7.13 -date: 1995/11/10 12:00:58; author: morioka; state: Exp; lines: +2 -1 -Function `tm-mh-e/insert-message' was modified to call function -`mime-editor/inserted-message-filter'. ----------------------------- diff --git a/Changes-7.23.ja b/Changes-7.23.ja deleted file mode 100644 index 349c73d..0000000 --- a/Changes-7.23.ja +++ /dev/null @@ -1,185 +0,0 @@ -* tl - - Version 7.01.4 $B$rE:IU$7$?!#(B - - -* tm - -tm/tm-def.el ----------------------------- -revision 7.1 -date: 1995/11/10 10:43:15; author: morioka; state: Exp; lines: +56 -1 -$B4X?t(B mime-editor/caesar-region $B$r(B tm-edit.el $B$+$i0\$7!"(B -`tm:caesar-region' $B$H$7$FDj5A$7$?!#(B ----------------------------- - -tm/tm-edit.el ----------------------------- -revision 7.23 -date: 1995/11/11 12:48:30; author: morioka; state: Exp; lines: +2 -25 -$B4X?t(B rfc822/get-header-string-except $B$r(B tl-822.el $B$K0\$7$?!#(B ----------------------------- -revision 7.22 -date: 1995/11/11 11:53:08; author: morioka; state: Exp; lines: +10 -24 -(1) $BJQ?t(B mime-editor/message-sender-alist $B$r(B - `mime-editor/split-message-sender-alist' $B$K2~L>$7$?!#(B -(2) $BJQ?t(B mime-editor/message-before-send-hook-alist $B$HJQ?t(B - mime-editor/message-after-send-hook-alist $B$rGQ;_$7$?!#!J4{$K;H$C$F(B - $B$$$J$+$C$?$?$a!K(B ----------------------------- -revision 7.21 -date: 1995/11/11 11:31:31; author: morioka; state: Exp; lines: +34 -13 -$BJQ?t(B mime-editor/blind-fields-regexp $B$r(B -`mime-editor/split-blind-fields-regexp' $B$K2~L>$7$?!#(B ----------------------------- -revision 7.20 -date: 1995/11/11 11:16:47; author: morioka; state: Exp; lines: +18 -17 -$BDj?t(B mime-editor/message-nuke-headers $B$r(B -`mime-editor/split-ignored-fields-regexp' $B$K2~L>$7$?!#(B ----------------------------- -revision 7.19 -date: 1995/11/11 10:50:07; author: morioka; state: Exp; lines: +4 -4 -$BJQ?t(B mime-editor/ignored-fields-regexp $B$r(B -`mime-editor/yank-ignored-fields-regexp' $B$K2~L>$7$?!#(B ----------------------------- -revision 7.18 -date: 1995/11/10 12:43:39; author: morioka; state: Exp; lines: +19 -4 -(1) $BJQ?t(B mime-editor/mail-inserter-alist $B$H4X?t(B - mime-editor/insert-mail $B$rDI2C$7$?!#(B -(2) $B4X?t(B mime-editor/insert-tag $B$N(B key $B$r(B C-c C-x t $B$KJQ99$7!"(BC-c C-x - C-m $B$K4X?t(B mime-editor/mail-inserter-alist $B$r3d$jEv$F$?!#(B ----------------------------- -revision 7.17 -date: 1995/11/10 11:51:23; author: morioka; state: Exp; lines: +24 -2 -$BJQ?t(B mime-editor/ignored-fields-regexp $B$H4X?t(B -mime-editor/inserted-message-filter $B$rDI2C$7$?!#(B ----------------------------- -revision 7.16 -date: 1995/11/10 10:43:50; author: morioka; state: Exp; lines: +6 -57 -$B4X?t(B mime-editor/caesar-region $B$r(B tm-def.el $B$K0\$7$?!#(B ----------------------------- - -tm/tm-play.el ----------------------------- -revision 7.1 -date: 1995/11/10 11:13:32; author: morioka; state: Exp; lines: +20 -2 -$B4X?t(B mime-article/view-message/rfc822 $B$r(B tm-mail.el $B$+$i0\$7!"(B -tm-mail.el $B$rGQ;_$7$?!#(B ----------------------------- -revision 7.0 -date: 1995/11/10 10:54:46; author: morioka; state: Exp; lines: +16 -1 -$B4X?t(B mime-viewer/quitting-method-for-mime/show-message-mode $B$r(B -tm-view.el $B$+$i0\$7$?!#(B ----------------------------- -revision 6.0 -date: 1995/11/10 10:44:54; author: morioka; state: Exp; lines: +35 -1 -$B4X?t(B mime-article/decode-caesar $B$r(B tm-mail.el $B$+$i0\$7$?!#(B ----------------------------- -revision 5.0 -date: 1995/11/08 07:32:41; author: morioka; state: Exp; lines: +26 -2 -$BJQ?t(B mime-article/coding-system-alist $B$HJQ?t(B -mime-article/kanji-code-alist $B$r@_$1!"4X?t(B -mime-article/decode-message/partial $B$G(B partial part $B$r=q$-=P$9;~$NJ8;z(B -code $B$H$7$F$3$l$rMQ$$$k$3$H$K$7$?!#(B ----------------------------- - -tm/tm-rmail.el ----------------------------- -revision 7.15 -date: 1995/11/12 15:15:15; author: morioka; state: Exp; lines: +3 -2 -$B4X?t(B tm-rmail/preview-message $B$K$*$$$F!"M>J,$J6u9T$NH=Dj$K4X$9$kIT6q9g(B -$B$r=$@5$7$?!#(B ----------------------------- -revision 7.14 -date: 1995/11/10 10:04:18; author: morioka; state: Exp; lines: +8 -1 -$B4X?t(B tm-rmail/preview-message $B$G!"(BRMAIL $B$,M>J,$K$D$1$k6u9T$r=|$$$?NN0h(B -$B$K(B mime/viewer-mode $B$r$7$?!#(B ----------------------------- -revision 7.3 -date: 1995/11/11 10:48:11; author: morioka; state: Exp; lines: +3 -3 -$B4X?t(B tm-gnus/yank-message $B$r(B `tm-gnus/insert-article' $B$K2~L>$7$?!#(B ----------------------------- -revision 7.2 -date: 1995/11/11 10:45:21; author: morioka; state: Exp; lines: +21 -21 -$B4X?t(B tm-gnus/yank-message $B$G(B `let*' $B$r(B `let' $B$KJQ$($?!#(B ----------------------------- -revision 7.1 -date: 1995/11/11 10:33:08; author: morioka; state: Exp; lines: +42 -2 -$B4X?t(B tm-gnus/yank-message $B$rDI2C$7!"(Btm-edit.el $BMQ$N@_Dj$r9T$C$?!#(B ----------------------------- - -tm/gnus/tm-gnus5.el ----------------------------- -revision 7.8 -date: 1995/11/10 10:07:15; author: morioka; state: Exp; lines: +38 -4 -(1) automatic MIME preview mode $B$NH=Dj$K4X$9$kIT6q9g$r=$@5$7$?!#(B -(2) $B4X?t(B gnus-article-setup-buffer $B$r:FDj5A$9$k$h$&$K$7$?!#(B ----------------------------- - -tm/gnus/tm-sgnus.el ----------------------------- -revision 7.15 -date: 1995/11/13 09:29:19; author: morioka; state: Exp; lines: +9 -5 -automatic MIME preview mode $B$NH=Dj7k2L$rJQ?t(B -tm-gnus/automatic-mime-preview $B$KJ]B8$9$k$h$&$K$7$?!#(B ----------------------------- -revision 7.14 -date: 1995/11/10 10:09:52; author: morioka; state: Exp; lines: +12 -4 -automatic MIME preview mode $B$NH=Dj$K4X$9$kIT6q9g$r=$@5$7$?!#(B ----------------------------- - - -* tm/mh-e - - Version 7.16 $B$rE:IU$7$?!#(B - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 7.16 -date: 1995/11/11 13:02:40; author: morioka; state: Exp; lines: +7 -2 -$B4X?t(B tm-mh-e/view-message $B$G$N(B preview buffer $B$,B8:_$7$F$$$k$+$I$&$+$N(B -$BH=Dj$NIT6q9g$r=$@5$7$?!#(B ----------------------------- -revision 7.15 -date: 1995/11/11 10:42:32; author: morioka; state: Exp; lines: +2 -2 -$B4X?t(B tm-mh-e/prompt-for-message $B$G(B buffer local $BJQ?t(B mh-sent-from-msg -$B$,B+G{$5$l$F$$$k$+$I$&$+$N(B check $B$r9T$&$h$&$K$7$?!#(B ----------------------------- -revision 7.14 -date: 1995/11/10 12:47:01; author: morioka; state: Exp; lines: +7 -2 -mh-letter-mode $B$H(B news-reply-mode $B$KBP$9$k(B mail-inserter $B$H$7$F!"4X?t(B -tm-mh-e/insert-message $B$r;H$&$h$&$K@_Dj$7$?!#(B ----------------------------- -revision 7.13 -date: 1995/11/10 12:00:58; author: morioka; state: Exp; lines: +2 -1 -$B4X?t(B tm-mh-e/insert-message $B$G4X?t(B mime-editor/inserted-message-filter -$B$r8F$V$3$H$K$7$?!#(B ----------------------------- diff --git a/Changes-7.24.en b/Changes-7.24.en deleted file mode 100644 index 777d200..0000000 --- a/Changes-7.24.en +++ /dev/null @@ -1,69 +0,0 @@ -* tl - - Attached version 7.01.5. - - -* tm - -tm/tm-def.el ----------------------------- -revision 7.2 -date: 1995/11/14 04:56:15; author: morioka; state: Exp; lines: +50 -1 -New function `tm:add-fields' and `tm:delete-fields' to modify -*-field-list and *-field-regexp variables. ----------------------------- - -tm/tm-edit.el ----------------------------- -revision 7.24 -date: 1995/11/14 05:04:22; author: morioka; state: Exp; lines: +21 -11 -(1) fixed mode of message/external-body; access-type = ftp or anon-ftp. -(2) New variable `mime-editor/yank-ignored-field-list'. -(3) Variable `mime-editor/yank-ignored-fields-regexp' was renamed to - `mime-editor/yank-ignored-field-regexp'. -(4) Constant `mime-editor/split-ignored-fields-regexp' was renamed to - `mime-editor/split-ignored-field-regexp'. -(5) Variable `mime-editor/split-blind-fields-regexp' was renamed to - `mime-editor/split-blind-field-regexp'. ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.24 -date: 1995/11/14 06:14:37; author: morioka; state: Exp; lines: +7 -8 -(1) Elements of variable `mime-viewer/ignored-field-list' were changes - to regexp. -(2) Function `mime/viewer-mode' was modified not to reset variable - `mime-viewer/ignored-field-regexp' from variable - `mime-viewer/ignored-field-list'. (Please use function - `tm:add-fields' and `tm:delete-fields' to modify them) ----------------------------- - -tm/tm-vm.el ----------------------------- -revision 7.4 -date: 1995/11/14 04:52:30; author: morioka; state: Exp; lines: +324 -53 -(1) New variable `tm-vm/use-tm-patch'. If it is nil, tm-vm.el sets to - decode encoded-word by itself. -(2) New variable `tm-vm/automatic-mime-preview'. If it is t, tm-vm.el - does automatic MIME preview. New function - `tm-vm/toggle-preview-mode' is bound to `M-t' key. -(3) New function `tm-vm/forward-message' and - `tm-vm/send-digest'. Function `vm-forward-message' and - `vm-send-digest' were replace by them. If mime-setup.el is loaded, - variable `vm-forwarding-digest-type' and variable - `vm-digest-send-type' are set to "rfc1522". ----------------------------- - - -* tm/mh-e - - Attached version 7.17. - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 7.17 -date: 1995/11/14 06:29:27; author: morioka; state: Exp; lines: +14 -13 -Variable `tm-mh-e/decode-all' is renamed to -`tm-mh-e/automatic-mime-preview'. ----------------------------- diff --git a/Changes-7.24.ja b/Changes-7.24.ja deleted file mode 100644 index ccd336d..0000000 --- a/Changes-7.24.ja +++ /dev/null @@ -1,70 +0,0 @@ -* tl - - Version 7.01.5 $B$rE:IU$7$?!#(B - - -* tm - -tm/tm-def.el ----------------------------- -revision 7.2 -date: 1995/11/14 04:56:15; author: morioka; state: Exp; lines: +50 -1 -*-field-list $B$H(B *-field-regexp $B$rA`:n$9$k$?$a$N4X?t(B tm:add-fields $B$H4X(B -$B?t(B tm:delete-fields $B$rDI2C$7$?!#(B ----------------------------- - -tm/tm-edit.el ----------------------------- -revision 7.24 -date: 1995/11/14 05:04:22; author: morioka; state: Exp; lines: +21 -11 -(1) message/external-body $B$N(B access-type = ftp, anon-ftp $B$N;~$N(B mode - $B$r=$@5$7$?!#(B -(2) $BJQ?t(B mime-editor/yank-ignored-field-list $B$r@_$1$?!#(B -(3) $BJQ?t(B mime-editor/yank-ignored-fields-regexp $B$r(B - `mime-editor/yank-ignored-field-regexp' $B$K2~L>$7$?!#$J$*!"$3$NJQ?t(B - $B$OD>@\A`:n$;$:$K!"(Btm:add-fields $B$+(B tm:delete-fields $B$r;H$C$FA`:n$9(B - $B$k$3$H$K$9$k!#(B -(4) $BDj?t(B mime-editor/split-ignored-fields-regexp $B$r(B - `mime-editor/split-ignored-field-regexp' $B$K2~L>$7$?!#(B -(5) $BJQ?t(B mime-editor/split-blind-fields-regexp $B$r(B - `mime-editor/split-blind-field-regexp' $B$K2~L>$7$?!#(B ----------------------------- - -tm/tm-view.el ----------------------------- -revision 7.24 -date: 1995/11/14 06:14:37; author: morioka; state: Exp; lines: +7 -8 -(1) $BJQ?t(B mime-viewer/ignored-field-list $B$NMWAG$r@55,I=8=$H$7$?!#(B -(2) $B4X?t(B mime/viewer-mode $B$GJQ?t(B mime-viewer/ignored-field-regexp $B$r@_(B - $BDj$7D>$9$N$O$d$a$?!#!JJQ?t(B mime-viewer/ignored-field-list $B$HJQ?t(B - mime-viewer/ignored-field-regexp $B$OD>@\@_Dj$;$:!"4X?t(B - tm:add-fields $B$H4X?t(B tm:delete-fields $B$r;H$&$3$H!K(B ----------------------------- - -tm/tm-vm.el ----------------------------- -revision 7.4 -date: 1995/11/14 04:52:30; author: morioka; state: Exp; lines: +324 -53 -(1) $BJQ?t(B tm-vm/use-tm-patch $B$r@_$1!"$3$l$,(B nil $B$N>l9g$O<+NO$G(B - encoded-word $B$r(B decode $B$9$k@_Dj$r9T$&$h$&$K$7$?!#(B -(2) $BJQ?t(B tm-vm/automatic-mime-preview $B$r@_$1!"$3$l$,(B t $B$N;~(B automatic - MIME preview $B$r9T$&$h$&$K$7$?!#$^$?!"(BM-t $B$K4X?t(B - tm-vm/toggle-preview-mode $B$r3d$jEv$F$?!#(B -(3) $B4X?t(B tm-vm/forward-message, $B4X?t(B tm-vm/send-digest $B$r@_$1!"(B - $B4X?t(B vm-forward-message, $B4X?t(B vm-send-digest $B$HCV$-49$($?!#$^$?!"(B - mime-setup.el $B$,(B load $B$5$l$?>l9g$O!"JQ?t(B - vm-forwarding-digest-type, $BJQ?t(B vm-digest-send-type $B$NCM$r(B - "rfc1522" $B$K$9$k$h$&$K$7$?!#(B ----------------------------- - - -* tm/mh-e - - Version 7.17 $B$rE:IU$7$?!#(B - -tm/mh-e/tm-mh-e.el ----------------------------- -revision 7.17 -date: 1995/11/14 06:29:27; author: morioka; state: Exp; lines: +14 -13 -$BJQ?t(B tm-mh-e/decode-all $B$r(B `tm-mh-e/automatic-mime-preview' $B$K2~L>$7$?!#(B ----------------------------- diff --git a/Changes-7.25.en b/Changes-7.25.en deleted file mode 100644 index 5dd7fa1..0000000 --- a/Changes-7.25.en +++ /dev/null @@ -1,102 +0,0 @@ -* tl - - Attached version 7.01.6. - - -* tm - -tm-def.el ----------------------------- -revision 7.3 -date: 1995/11/15 14:21:50; author: morioka; state: Exp; lines: +5 -3 -fixed problem of function `tm:add-fields' and `tm:delete-fields'. ----------------------------- - -tm-edit.el ----------------------------- -revision 7.25 -date: 1995/11/15 14:17:09; author: morioka; state: Exp; lines: +6 -4 -(1) fixed problem of initialize of variable - `mime-editor/yank-ignored-field-regexp'. -(2) In function `mime-viewer::quitting-method/draft-preview', it was - fixed problem of renaming mistake `mime/mother-buffer' -> - `mime::preview/mother-buffer'. ----------------------------- - -tm-parse.el ----------------------------- -revision 6.0 -date: 1995/11/15 11:56:10; author: morioka; state: Exp; lines: +15 -12 -According to KOBAYASHI Shuuhei , I -fixed error of function `mime/parse-multipart'. ----------------------------- - -tm-view.el ----------------------------- -revision 7.25 -date: 1995/11/15 13:57:33; author: morioka; state: Exp; lines: +4 -2 -fixed problem of initialize of variable -`mime-viewer/ignored-field-regexp'. ----------------------------- - -tm-vm.el ----------------------------- -revision 7.7 -date: 1995/11/15 15:35:54; author: morioka; state: Exp; lines: +101 -61 -Function `tm-vm/preview-current-message' was modified based of Simon -Rowe 's code. (c.f. [tm-eng:163]) ----------------------------- -revision 7.6 -date: 1995/11/15 10:20:05; author: morioka; state: Exp; lines: +28 -5 -applied KOBAYASHI Shuuhei 's patch. -(c.f. [tm ML:1102]) ----------------------------- -revision 7.5 -date: 1995/11/15 09:06:19; author: morioka; state: Exp; lines: +38 -31 -applied Oscar Figueiredo 's modification. ----------------------------- - - -* tm/mh-e - - Attached version 7.20. - -tm-mh-e.el ----------------------------- -revision 7.20 -date: 1995/11/15 12:45:44; author: morioka; state: Exp; lines: +3 -3 -Function `tm-mh-e/mh-forward' was renamed to `tm-mh-e/forward'. ----------------------------- -revision 7.19 -date: 1995/11/15 12:37:25; author: morioka; state: Exp; lines: +82 -1 -New function `tm-mh-e/mh-forward' by OKABE Yasuo -. (c.f. [tm ML:1099]) ----------------------------- -revision 7.18 -date: 1995/11/15 12:25:25; author: morioka; state: Exp; lines: +28 -14 -applied OKABE Yasuo 's modification. -(c.f. [tm ML:1096]) ----------------------------- - - -* tm/gnus - - Attached version 7.16. - -tm-gnus5.el ----------------------------- -revision 7.9 -date: 1995/11/15 10:41:02; author: morioka; state: Exp; lines: +4 -3 -According to Masahiro MURATA , I fixed -problem of function `tm-gnus/summary-toggle-header'. -(c.f. [tm ML:1104]) ----------------------------- - -tm-sgnus.el ----------------------------- -revision 7.16 -date: 1995/11/15 10:36:09; author: morioka; state: Exp; lines: +4 -3 -According to Masahiro MURATA , I fixed -problem of function `tm-gnus/summary-toggle-header'. -(c.f. [tm ML:1104]) ----------------------------- diff --git a/Changes-7.25.ja b/Changes-7.25.ja deleted file mode 100644 index 3d4bbee..0000000 --- a/Changes-7.25.ja +++ /dev/null @@ -1,101 +0,0 @@ -* tl - - Version 7.01.6 $B$rE:IU$7$?!#(B - - -* tm - -tm-def.el ----------------------------- -revision 7.3 -date: 1995/11/15 14:21:50; author: morioka; state: Exp; lines: +5 -3 -$B4X?t(B tm:add-fields $B$H4X?t(B tm:delete-fields $B$NIT6q9g$r=$@5$7$?!#(B ----------------------------- - -tm-edit.el ----------------------------- -revision 7.25 -date: 1995/11/15 14:17:09; author: morioka; state: Exp; lines: +6 -4 -(1) $BJQ?t(B mime-editor/yank-ignored-field-regexp $B$N=i4|2=$K$*$1$kIT6q9g(B - $B$r=$@5$7$?!#(B -(2) $B4X?t(B mime-viewer::quitting-method/draft-preview $B$K$*$$$F!"JQ?t(B - mime/mother-buffer $B$r(B `mime::preview/mother-buffer' $B$K2~L>$7K:$l$F(B - $B$$$?$N$r=$@5$7$?!#(B ----------------------------- - -tm-parse.el ----------------------------- -revision 6.0 -date: 1995/11/15 11:56:10; author: morioka; state: Exp; lines: +15 -12 -$B>.NS(B $B=$J?(B $B$5$s$N;XE&$K=>$$!"4X?t(B -mime/parse-multipart $B$N8m$j$r=$@5$7$?!#(B ----------------------------- - -tm-view.el ----------------------------- -revision 7.25 -date: 1995/11/15 13:57:33; author: morioka; state: Exp; lines: +4 -2 -$BJQ?t(B mime-viewer/ignored-field-regexp $B$N=i4|2=$K$*$1$k8m$j$r=$@5$7$?!#(B ----------------------------- - -tm-vm.el ----------------------------- -revision 7.7 -date: 1995/11/15 15:35:54; author: morioka; state: Exp; lines: +101 -61 -[tm-eng:163] $B$K$*$1$k(B Simon Rowe $B$5$s$N(B code -$B$r$b$H$K4X?t(B tm-vm/preview-current-message $B$r=$@5$7$?!#(B ----------------------------- -revision 7.6 -date: 1995/11/15 10:20:05; author: morioka; state: Exp; lines: +28 -5 -$B>.NS(B $B=$J?(B $B$5$s$N(B patch $B$rEv$F$?!#(B -(c.f. [tm ML:1102]) ----------------------------- -revision 7.5 -date: 1995/11/15 09:06:19; author: morioka; state: Exp; lines: +38 -31 -Oscar Figueiredo $B$5$s$N=$@5$r2C$($?!#(B ----------------------------- - - -* tm/mh-e - - Version 7.20 $B$rE:IU$7$?!#(B - -tm-mh-e.el ----------------------------- -revision 7.20 -date: 1995/11/15 12:45:44; author: morioka; state: Exp; lines: +3 -3 -$B4X?t(B tm-mh-e/mh-forward $B$r(B `tm-mh-e/forward' $B$K2~L>$7$?!#(B ----------------------------- -revision 7.19 -date: 1995/11/15 12:37:25; author: morioka; state: Exp; lines: +82 -1 -$B2,It(B $B $B$5$s$N:n$N4X?t(B -tm-mh-e/mh-forward $B$rDI2C$7$?!#(B(c.f. [tm ML:1099]) ----------------------------- -revision 7.18 -date: 1995/11/15 12:25:25; author: morioka; state: Exp; lines: +28 -14 -[tm ML:1096] $B$G$N!"2,It!! $B$5$s$N=$@5$r(B -$B:N$jF~$l$k!#(B ----------------------------- - - -* tm/gnus - - Version 7.16 $B$rE:IU$7$?!#(B - -tm-gnus5.el ----------------------------- -revision 7.9 -date: 1995/11/15 10:41:02; author: morioka; state: Exp; lines: +4 -3 -[tm ML:1104] $B$K$*$1$k!"B $B$5$s$N;XE&$K=>$$!"4X?t(B -tm-gnus/summary-toggle-header $B$NIT6q9g$r=$@5$7$?!#(B ----------------------------- - -tm-sgnus.el ----------------------------- -revision 7.16 -date: 1995/11/15 10:36:09; author: morioka; state: Exp; lines: +4 -3 -[tm ML:1104] $B$K$*$1$k!"B $B$5$s$N;XE&$K=>$$!"4X?t(B -tm-gnus/summary-toggle-header $B$NIT6q9g$r=$@5$7$?!#(B ----------------------------- diff --git a/Changes-7.26.en b/Changes-7.26.en deleted file mode 100644 index d181a86..0000000 --- a/Changes-7.26.en +++ /dev/null @@ -1,102 +0,0 @@ -* tl - - Attached version 7.01.7. - - -* tm - -signature.el ----------------------------- -revision 7.0 -date: 1995/11/16 16:28:53; author: morioka; state: Exp; lines: +2 -2 -Default value of variable `signature-insert-at-eof' was recovered to -nil. ----------------------------- -revision 6.0 -date: 1995/11/16 16:28:17; author: morioka; state: Exp; lines: +10 -11 -Function `signature/insert-signature-at-eof' was modified not to do -save-excursion. ----------------------------- -revision 5.0 -date: 1995/11/16 15:05:53; author: morioka; state: Exp; lines: +2 -2 -Default value of variable `signature-insert-at-eof' was changed to t. ----------------------------- - -tm-edit.el ----------------------------- -revision 7.26 -date: 1995/11/16 16:32:36; author: morioka; state: Exp; lines: +140 -107 -fixed mistake about multipart boundary in RFC 1521 interpretation. ----------------------------- - -tm-html.el ----------------------------- -revision 7.1 -date: 1995/11/16 15:43:34; author: morioka; state: Exp; lines: +2 -1 -call `mime-article/decode-html-hook'. ----------------------------- -revision 7.0 -date: 1995/11/16 15:42:08; author: morioka; state: Exp; lines: +1 -6 -Variable `mime-viewer/html-default-mode' was abolished. ----------------------------- -revision 6.0 -date: 1995/11/16 15:40:04; author: morioka; state: Exp; lines: +3 -3 -Function `mime-viewer/decode-html' was renamed to -`mime-article/decode-html'. ----------------------------- -revision 5.0 -date: 1995/11/16 15:38:16; author: morioka; state: Exp; lines: +3 -3 -renamed to tm-html.el. ----------------------------- -revision 4.0 -date: 1995/11/16 15:35:57; author: morioka; state: Exp; lines: +8 -2 -Function `mime-viewer/decode-html' was fixed to bind local variable -`encoding'. ----------------------------- - -tm-partial.el ----------------------------- -revision 7.11 -date: 1995/11/16 15:51:10; author: morioka; state: Exp; lines: +2 -1 -insert (require 'tm-play). ----------------------------- - -tm-play.el ----------------------------- -revision 7.2 -date: 1995/11/16 15:12:43; author: morioka; state: Exp; lines: +3 -2 -Function `mime-article/decode-caesar' was fixed mistake of local -variable `charset' and `encoding'. ----------------------------- - -tm-vm.el ----------------------------- -revision 7.10 -date: 1995/11/16 17:07:02; author: morioka; state: Exp; lines: +3 -2 -Function `tm-vm/quit' was fixed to check -`mime::article/preview-buffer' is exist or not. ----------------------------- -revision 7.9 -date: 1995/11/16 17:04:03; author: morioka; state: Exp; lines: +29 -1 -New function `tm-vm/expunge-folder' by Oscar Figueiredo -. ----------------------------- -revision 7.8 -date: 1995/11/16 11:20:57; author: morioka; state: Exp; lines: +2 -2 -SHIONO Jun'ichi 's patch was applied. -(c.f. [tm ML:1112]) ----------------------------- - - -* tm/gnus - - Attached Version 7.16.1. - -tm-gnus.el ----------------------------- -revision 7.5 -date: 1995/11/16 15:28:58; author: morioka; state: Exp; lines: +2 -2 -Function `tm-gnus/insert-article was fixed to change -`mime-editor/yank-ignored-fields-regexp' to -`mime-editor/yank-ignored-field-regexp'. ----------------------------- diff --git a/Changes-7.26.ja b/Changes-7.26.ja deleted file mode 100644 index f5c7e6f..0000000 --- a/Changes-7.26.ja +++ /dev/null @@ -1,101 +0,0 @@ -* tl - - Version 7.01.7 $B$rE:IU$7$?!#(B - - -* tm - -signature.el ----------------------------- -revision 7.0 -date: 1995/11/16 16:28:53; author: morioka; state: Exp; lines: +2 -2 -$B$d$C$Q$j!"(Bsignature-insert-at-eof $B$N=i4|CM$r(B nil $B$KLa$7$?!#(B ----------------------------- -revision 6.0 -date: 1995/11/16 16:28:17; author: morioka; state: Exp; lines: +10 -11 -$B4X?t(B signature/insert-signature-at-eof $B$G(B save-excursion $B$7$J$$$3$H$K(B -$B$7$?!#(B ----------------------------- -revision 5.0 -date: 1995/11/16 15:05:53; author: morioka; state: Exp; lines: +2 -2 -$BJQ?t(B signature-insert-at-eof $B$N=i4|CM$r(B t $B$KJQ$($?!#(B ----------------------------- - -tm-edit.el ----------------------------- -revision 7.26 -date: 1995/11/16 16:32:36; author: morioka; state: Exp; lines: +140 -107 -multipart $B$N>l9g$N5,3J2re$N8m$j$r=$@5$7$?!#(B ----------------------------- - -tm-html.el ----------------------------- -revision 7.1 -date: 1995/11/16 15:43:34; author: morioka; state: Exp; lines: +2 -1 -`mime-article/decode-html-hook' $B$r8F$V$h$&$K$7$?!#(B ----------------------------- -revision 7.0 -date: 1995/11/16 15:42:08; author: morioka; state: Exp; lines: +1 -6 -$BJQ?t(B mime-viewer/html-default-mode $B$rGQ;_$7$?!#(B ----------------------------- -revision 6.0 -date: 1995/11/16 15:40:04; author: morioka; state: Exp; lines: +3 -3 -$B4X?t(B mime-viewer/decode-html $B$r(B `mime-article/decode-html' $B$K2~L>$7$?!#(B ----------------------------- -revision 5.0 -date: 1995/11/16 15:38:16; author: morioka; state: Exp; lines: +3 -3 -tm-html.el $B$K2~L>$7$?!#(B ----------------------------- -revision 4.0 -date: 1995/11/16 15:35:57; author: morioka; state: Exp; lines: +8 -2 -$B4X?t(B mime-viewer/decode-html $B$N6I=jJQ?t(B `encoding' $B$rB+G{$9$k$N$rK:$l(B -$B$F$$$?$N$r=$@5$7$?!#(B ----------------------------- - -tm-partial.el ----------------------------- -revision 7.11 -date: 1995/11/16 15:51:10; author: morioka; state: Exp; lines: +2 -1 -(require 'tm-play) $B$rF~$l$?!#(B ----------------------------- - -tm-play.el ----------------------------- -revision 7.2 -date: 1995/11/16 15:12:43; author: morioka; state: Exp; lines: +3 -2 -$B4X?t(B mime-article/decode-caesar $B$N6I=jJQ?t(B `charset', `encoding' $B$NDj(B -$B5A$K4X$9$k%_%9$r=$@5$7$?!#(B ----------------------------- - -tm-vm.el ----------------------------- -revision 7.10 -date: 1995/11/16 17:07:02; author: morioka; state: Exp; lines: +3 -2 -$B4X?t(B tm-vm/quit $B$G!"(Bmime::article/preview-buffer $B$,B8:_$9$k$+$I$&$+$N(B -check $B$r9T$&$h$&$K$7$?!#(B ----------------------------- -revision 7.9 -date: 1995/11/16 17:04:03; author: morioka; state: Exp; lines: +29 -1 -Oscar Figueiredo $B:n$N4X?t(B -tm-vm/expunge-folder $B$rDI2C$7$?!#(B ----------------------------- -revision 7.8 -date: 1995/11/16 11:20:57; author: morioka; state: Exp; lines: +2 -2 -$B1vLn!wM7$S?M(B $B$5$s$N(B patch $B$rEv$F$?!#(B -(c.f. [tm ML:1112]) ----------------------------- - - -* tm/gnus - - Version 7.16.1 $B$rE:IU$7$?!#(B - -tm-gnus.el ----------------------------- -revision 7.5 -date: 1995/11/16 15:28:58; author: morioka; state: Exp; lines: +2 -2 -$B4X?t(B tm-gnus/insert-article $B$K$*$$$F!"(B -`mime-editor/yank-ignored-fields-regexp' $B$r(B -`mime-editor/yank-ignored-field-regexp' $B$KJQ$($k$N$rK:$l$F$$$?$N$r=$@5(B -$B$7$?!#(B ----------------------------- diff --git a/Changes-7.27.1.en b/Changes-7.27.1.en deleted file mode 100644 index bff3975..0000000 --- a/Changes-7.27.1.en +++ /dev/null @@ -1,19 +0,0 @@ -Thu Nov 23 10:21:05 1995 Morioka Tomohiko - - * tm 7.27.1 was released. - - * tm-view.el: - ".*Received" was inserted into default value of variable - `mime-viewer/ignored-field-list'. - - * mime-setup.el: - autoload setting for function `mime/decode-message-header'. - -Tue Nov 21 09:43:00 1995 Morioka Tomohiko - - * tm-vm.el: fixed problem of function `tm-vm/quit'. - -Mon Nov 20 23:54:54 1995 Morioka Tomohiko - - * tm-vm.el: Function `tm-vm/preview-current-message' was - modified. diff --git a/Changes-7.27.1.ja b/Changes-7.27.1.ja deleted file mode 100644 index 5673f8c..0000000 --- a/Changes-7.27.1.ja +++ /dev/null @@ -1,19 +0,0 @@ -Thu Nov 23 10:21:05 1995 Morioka Tomohiko - - * tm 7.27.1 $B$r(B release $B$7$?!#(B - - * tm-view.el: - $BJQ?t(B mime-viewer/ignored-field-list $B$N=i4|CM$K(B ".*Received" $B$r2C$((B - $B$?!#(B - - * mime-setup.el: - $B4X?t(B mime/decode-message-header $B$KBP$9$k(B autoload $B$N@_Dj$rDI2C$7$?!#(B - -Tue Nov 21 09:43:00 1995 Morioka Tomohiko - - * tm-vm.el: $B4X?t(B tm-vm/quit $B$NIT6q9g$r=$@5$7$?!#(B - -Mon Nov 20 23:54:54 1995 Morioka Tomohiko - - * tm-vm.el: Function `tm-vm/preview-current-message' was - modified. diff --git a/Changes-7.27.en b/Changes-7.27.en deleted file mode 100644 index 167b00d..0000000 --- a/Changes-7.27.en +++ /dev/null @@ -1,64 +0,0 @@ -Mon Nov 20 02:48:34 1995 Morioka Tomohiko - - * tm 7.27 is released. - * tm/mh-e: Attached version 7.25. - * tm/gnus: Attached version 7.18. - - * tm-vm.el: - (1) Function `tm-vm/preview-current-message' was fixed. - (2) setting for BBDB was modified. - - * tm-edit.el: - In function `mime-editor/enclose-region, interpretation - mistake of RFC 1521 was fixed. - -Sun Nov 19 18:06:34 1995 Morioka Tomohiko - - * tm-vm.el: - fixed problem of function `tm-vm/scroll-forward' and - `tm-vm/scroll-backward'. - - * tm-vm.el: - (1) insert (run-hooks 'tm-vm/vm-select-message-hook) into - function `tm-vm/preview-current-message'. - (2) setting for BBDB. - (Please insert (load "tm-vm") after (bbdb-insinuate-vm)) - - * mime-setup.el: - (add-hook 'mail-setup-hook 'mime/editor-mode 'append) instead - of (add-hook 'mail-mode-hook 'mime/editor-mode). - - * tm-vm.el: - (1) fixed problem of function `mime::article/preview-buffer'. - (2) Don't reset of hooks when mime-setup is loaded. - -Fri Nov 17 14:34:52 1995 Morioka Tomohiko - - * tm-vm.el: - Oscar Figueiredo 's modification was - applied. - - * tm-html.el: - KOBAYASHI Shuuhei 's patch - was applied. (cf. [tm-ja:1117]) - - * tm-vm.el: - changed Subject field decoding way when does not use tiny-mime - patch. - - * tm-vm.el: - SHIONO Jun'ichi 's patch was - applied. (cf. [tm-ja:1120]) - - * tm-vm.el: - SHIONO Jun'ichi 's patch was - applied. (cf. [tm-ja:1119]) - - * mh-e/tm-mh-e.el: - In function `tm-mh-e/forward', use forwcomps specified by - variable `tm-mh-e/forwcomps' when variable - `tm-mh-e/use-forwcomps' was non-nil. - - * mh-e/tm-mh-e.el: - YAMAOKA Katsumi 's patch was applied. - (cf. [tm-ja:1116]) diff --git a/Changes-7.27.ja b/Changes-7.27.ja deleted file mode 100644 index ec5955a..0000000 --- a/Changes-7.27.ja +++ /dev/null @@ -1,62 +0,0 @@ -Mon Nov 20 02:48:34 1995 Morioka Tomohiko - - * tm 7.27 $B$r(B release. - * tm/mh-e: Version 7.25 $B$rE:IU(B - * tm/gnus: Version 7.18 $B$rE:IU(B - - * tm-vm.el: - (1) $B4X?t(B tm-vm/preview-current-message $B$r=$@5$7$?!#(B - (2) BBDB $BMQ$N(B code $B$r=$@5$7$?!#(B - - * tm-edit.el: - $B4X?t(B mime-editor/enclose-region $B$K$*$1$k5,3J2re$N8m$j$r=$@5$7$?!#(B - -Sun Nov 19 18:06:34 1995 Morioka Tomohiko - - * tm-vm.el: - $B4X?t(B tm-vm/scroll-forward $B$H4X?t(B tm-vm/scroll-backward $B$NIT6q9g$r(B - $B=$@5$7$?!#(B - - * tm-vm.el: - (1) $B4X?t(B tm-vm/preview-current-message $B$K(B - (run-hooks 'tm-vm/vm-select-message-hook) $B$rF~$l$?!#(B - (2) BBDB $B$N@_Dj$r9T$C$?!#(B - $B!J(B(bbdb-insinuate-vm) $B$N8e$K(B (load "tm-vm") $B$rF~$l$k$3$H!K(B - - * mime-setup.el: - (add-hook 'mail-mode-hook 'mime/editor-mode) $B$r$d$a!"(B - (add-hook 'mail-setup-hook 'mime/editor-mode 'append) $B$H$7$?!#(B - - * tm-vm.el: - (1) $B4X?t(B mime::article/preview-buffer $B$NIT6q9g$r=$@5$7$?!#(B - (2) mime-setup $B$r(B load $B$9$k;~$N(B hook $B$N:F@_Dj$r$d$a$?!#(B - -Fri Nov 17 14:34:52 1995 Morioka Tomohiko - - * tm-vm.el: - Oscar Figueiredo $B$5$s$N=$@5$r2C$($?!#(B - - * tm-html.el: - $B>.NS(B $B=$J?(B $B$5$s$N(B patch $B$rEv$F$?!#(B - (cf. [tm-ja:1117]) - - * tm-vm.el: - tiny-mime patch $B$r;H$o$J$$>l9g$N(B Subject field $B$N(B decode $B$N;EJ}$r(B - $BJQ$($?!#(B - - * tm-vm.el: - $B1vLn!wM7$S?M(B $B$5$s$N(B patch $B$rEv$F$?!#(B - (cf. [tm-ja:1120]) - - * tm-vm.el: - $B1vLn!wM7$S?M(B $B$5$s$N(B patch $B$rEv$F$?!#(B - (c.f. [tm-ja:1119]) - - * mh-e/tm-mh-e.el: - $B4X?t(B tm-mh-e/forward $B$K$*$$$F!"JQ?t(B tm-mh-e/use-forwcomps $B$,(B - non-nil $B$N;~!"JQ?t(B tm-mh-e/forwcomps $B$G;XDj$5$l$?(B forwcomps $B$rMQ$$(B - $B$k$h$&$K$7$?!#(B - - * mh-e/tm-mh-e.el: - $B;32,(B $B9nH~(B $B$5$s$N(B patch $B$rEv$F$?!#(B - (cf. [tm-ja:1116]) diff --git a/Changes-7.28.en b/Changes-7.28.en deleted file mode 100644 index d65cb06..0000000 --- a/Changes-7.28.en +++ /dev/null @@ -1,52 +0,0 @@ -Mon Dec 4 00:24:19 1995 Morioka Tomohiko - - * tm: Version 7.28 was released. - * tm/mh-e: Version 7.40 was released. - * tm/gnus: Version 7.20 was released. - - * tm-view.el: setting for external method ``tm-html''. - - * tm-html.el: setting for "extract" mode. - - * README.eng: rewrote for tm 7.*. - - * Makefile: tm/richtext.el and tm/tinyrich.el were moved to tl - package. - - * mk-tm: richtext.el and tinyrich.el were moved to tl package. - -Sun Dec 3 14:09:18 1995 Morioka Tomohiko - - * tm-vm.el: modified to use tm-mail. - - * tm-rmail.el: - Setting for `mime-editor/message-inserter-alist' using tm-mail.el. - - * tm-mail.el: New module: for mail-mode. - -Fri Dec 1 17:11:01 1995 Morioka Tomohiko - - * tm-ew-e.el: fixed problem of exceptional case of encoding. - -Wed Nov 29 21:51:05 1995 Morioka Tomohiko - - * mime-setup.el: According to Steven L. Baur , - (setq mail-signature nil) when `mime-setup-use-signature' is t. - (cf. [tm-eng:176]) - - * tm-vm.el: - (1) fixed problem in function `tm-vm/preview-current-message'. - (2) New function `tm-vm/visit-folder-function'. It is set to - `vm-visit-folder-hook' instead of `tm-vm/preview-current-message' - directly. It is bug fix for getting new mail when visit to a - folder. - - * tm-vm.el: - Shuhei KOBAYASHI 's patch was - applied. (cf. [tm-ja:1164]) - -Sat Nov 25 02:14:25 1995 Morioka Tomohiko - - * tm-edit.el: - Function `mime-editor/enclose-region' was fixed not to insert - "text/plain" tag when end of enclosure is end of buffer. diff --git a/Changes-7.29.en b/Changes-7.29.en deleted file mode 100644 index 857b1ab..0000000 --- a/Changes-7.29.en +++ /dev/null @@ -1,16 +0,0 @@ -Tue Dec 5 07:58:52 1995 Morioka Tomohiko - - * tm: Version 7.29 was released. - * tm/mh-e: Version 7.41 was released. - * tm/gnus: Version 7.20.1 was released. - * tl: Version 7.02 was released. - - * tm-edit.el: Setting for ISO-2022-KR. - -Mon Dec 4 20:33:11 1995 Shuhei KOBAYASHI - - * tm-vm.el: - setting for mime-viewer/over-to-(previous|next)-method-alist. - (cf. [tm-ja:1195]) - - * tm-view.el: New keybind "<" and ">" (cf. [tm-ja:1195]) diff --git a/Changes-7.29.ja b/Changes-7.29.ja deleted file mode 100644 index 066e29a..0000000 --- a/Changes-7.29.ja +++ /dev/null @@ -1,18 +0,0 @@ -Tue Dec 5 07:58:52 1995 Morioka Tomohiko - - * tm: Version 7.29 was released. - * tm/mh-e: Version 7.41 was released. - * tm/gnus: Version 7.20.1 was released. - * tl: Version 7.02 was released. - - * tm-edit.el: Setting for ISO-2022-KR. - -Mon Dec 4 20:33:11 1995 Shuhei KOBAYASHI - - * tm-vm.el: - VM $BMQ$N(B mime-viewer/over-to-(previous|next)-method-alist $B$r@_Dj(B - (cf. [tm-ja:1195]) - - * tm-view.el: - mime-viewer/mode $B$KBP$9$k(B keybind $B$NDI2C(B ("<", ">") - (cf. [tm-ja:1195]) diff --git a/Changes-7.30.en b/Changes-7.30.en deleted file mode 100644 index 0b9e65f..0000000 --- a/Changes-7.30.en +++ /dev/null @@ -1,69 +0,0 @@ -Wed Dec 6 12:52:53 1995 Morioka Tomohiko - - * tm: Version 7.30 was released. - * tm/mh-e: Version 7.43 was released. - * tm/gnus: Version 7.21 was released. - * tl: Version 7.03 was released. - - * tm-edit.el: In function `mime-editor/split-and-send', to - `(make-variable-buffer-local 'mail-header-separator)' was changed - to `(make-local-variable 'mail-header-separator)'. - - * tm-play.el: In function `mime-article/decode-caesar', - `(setq buffer-read-only nil)' was inserted before - `(erase-buffer)'. (cf. [tm-ja:1214]) - -Wed Dec 6 09:21:07 1995 Morioka Tomohiko - - * README.eng: - According to Shuhei KOBAYASHI , - added and rewrote about VM. - -Wed Dec 6 08:49:15 1995 Morioka Tomohiko - - * tm-vm.el: - (1) Function `tm-vm/over-to-previous' was renamed to - `tm-vm/over-to-previous-method'. - (2) Function `tm-vm/over-to-next was renamed to - `tm-vm/over-to-next-method'. - -Wed Dec 6 06:55:07 1995 Shuhei KOBAYASHI - - * tm-vm.el: - - Variable `tm-vm/automatic-mime-preview' was changed to user - variable. - - - Names of tm-vm hooks were unified to `tm-vm/xxx-hook' from - `vm-xxx-hook'. - - - New function `tm-vm/over-to-previous' and - `tm-vm/over-to-next': they are over-to-previous-method and - over-to-next-method. They are not only set for vm-mode, but - also vm-virtual-mode. - - - add-hook to `tm-vm/update-record' was fixed to - `tm-vm/bbdb-update-record'. It is typo. - -Wed Dec 6 08:20:02 1995 Morioka Tomohiko - - * tm-eword.el, tm-ew-d.el: comment was modified. - - * README.eng: New section `How to get new version'. - - * tm-view.el, tm-play.el: - (1) buffer local variable `mime/show-mode-old-window-configuration' - was renamed to `mime::article/preview-buffer'. - (2) modified about window configuration. - - * tm-vm.el: - (1) Function `tm-vm/preview-current-message' was modified. - (2) over-to-previous-method and over-to-next-method are modified. - -Wed Dec 6 04:18:23 1995 Shuhei KOBAYASHI - - * tm-nemacs.el: Function `mime/code-convert-region-to-emacs' was - modified to use function `code-convert-region'. (cf. [tm-ja:1204]) - -Wed Dec 5 18:52:52 1995 steve@miranova.com (Steven L. Baur) - - * config.tm: bindir declaration was fixed. diff --git a/Changes-7.30.ja b/Changes-7.30.ja deleted file mode 100644 index 0d6fce9..0000000 --- a/Changes-7.30.ja +++ /dev/null @@ -1,75 +0,0 @@ -Wed Dec 6 12:52:53 1995 Morioka Tomohiko - - * tm: Version 7.30 was released. - * tm/mh-e: Version 7.43 was released. - * tm/gnus: Version 7.21 was released. - * tl: Version 7.03 was released. - - * tm-edit.el: In function `mime-editor/split-and-send', to - `(make-variable-buffer-local 'mail-header-separator)' was changed - to `(make-local-variable 'mail-header-separator)'. - - * tm-play.el: In function `mime-article/decode-caesar', - `(setq buffer-read-only nil)' was inserted before - `(erase-buffer)'. (cf. [tm-ja:1214]) - -Wed Dec 6 09:21:07 1995 Morioka Tomohiko - - * README.eng: - According to Shuhei KOBAYASHI , - added and rewrote about VM. - -Wed Dec 6 08:49:15 1995 Morioka Tomohiko - - * tm-vm.el: - (1) Function `tm-vm/over-to-previous' was renamed to - `tm-vm/over-to-previous-method'. - (2) Function `tm-vm/over-to-next was renamed to - `tm-vm/over-to-next-method'. - -Wed Dec 6 06:55:07 1995 Shuhei KOBAYASHI - - * tm-vm.el: - - tm-vm/automatic-mime-preview $B$r(B user variable $B$K!#;d$O(B - tm-vm/automatic-mime-preview $B$O(B user variable $B$H;W$C$F$$$?$N$G$9(B - $B$,!"(B"*" $B$,$D$$$F$$$J$$$_$?$$$J$N$G$D$1$F$_$^$7$?!#(B - $B!t(BVM $B$N>l9g$O(B user variable $B$G$$$$$s$G$9$h$M!)(B - - - VM $B$N(B hook $B$rBeMQ$9$k(B tm-vm $B$N(B hook $B$NL>A0$r(B - vm-xxx-hook -> tm-vm/xxx-hook $B$GE}0l!#(B - BBDB $B$,F0$$$F$$$J$+$C$?860x$=$N(B 1 $B$G$9!#(B - - - mime-viewer/over-to-(previous|next)-method-alist $B$K(B - vm-virtual-mode $BMQ$N(B method $B$bEPO?!#(B - vm-mode $BMQ$K=q$$$?$b$N$rFHN)$7$?4X?t$K$7$F(B vm-virtual-mode $BMQ$K(B - $B$bEPO?$7$^$7$?!#(B - - - BBDB $BBP1~ItJ,$G(B tm-vm/bbdb-update-record $B$G$O$J$/(B - tm-vm/update-record $B$,(B add-hook $B$5$l$F$$$?$N$r=$@5!#(B - BBDB $B$,F0$$$F$$$J$+$C$?860x$=$N(B 2 $B$G$9!#(B - - $B!t$^$@(B BBDB $B$O(B ";" $B$d(B ":" $B$GF0:n$,$*$+$7$$5$$,$9$k(B... - -Wed Dec 6 08:20:02 1995 Morioka Tomohiko - - * tm-eword.el, tm-ew-d.el: comment was modified. - - * README.eng: New section `How to get new version'. - - * tm-view.el, tm-play.el: - (1) buffer local variable `mime/show-mode-old-window-configuration' - was renamed to `mime::article/preview-buffer'. - (2) modified about window configuration. - - * tm-vm.el: - (1) Function `tm-vm/preview-current-message' was modified. - (2) over-to-previous-method and over-to-next-method are modified. - -Wed Dec 6 04:18:23 1995 Shuhei KOBAYASHI - - * tm-nemacs.el: Function `mime/code-convert-region-to-emacs' was - modified to use function `code-convert-region'. (cf. [tm-ja:1204]) - -Wed Dec 5 18:52:52 1995 steve@miranova.com (Steven L. Baur) - - * config.tm: bindir declaration was fixed. diff --git a/Changes-7.31.en b/Changes-7.31.en deleted file mode 100644 index dd25e93..0000000 --- a/Changes-7.31.en +++ /dev/null @@ -1,74 +0,0 @@ -Thu Dec 7 12:07:47 1995 Morioka Tomohiko - - * tl: Version 7.03.1 was released. - * tm: Version 7.31 was released. - * tm/gnus: Version 7.21.1 was released. - - * Makefile: tl/README.eng was renamed to tl/README.en. - -Thu Dec 7 10:23:55 1995 Morioka Tomohiko - - * tm-vm.el: vm-mail-mode pop up menu setting for XEmacs. - - * tm-mail.el: pop up menu setting for XEmacs. - - * tm-edit.el: - MUA depended codes about XEmacs pop up menu were moved to - tm-MUAs. - - * tm-view.el: defvar `mime::article/preview-buffer' and - `mime::article/code-converter' for XEmacs. - - * tm-edit.el: some comments are modified. - -Thu Dec 7 09:10:28 1995 Morioka Tomohiko - - * Makefile: - (1) drives `make gnus5' and `make sgnus' for xemacs and 19_29. - (2) README.eng was rename to README.en. - -Thu Dec 7 08:01:31 1995 Morioka Tomohiko - - * tm-play.el: - Function `mime-article/view-message/rfc822' was modified to set - buffer local variable `mime::article/code-converter'. - - * tm-view.el: - New buffer local variable `mime::article/code-converter': It - specifies code-converter. If it is nil, - `mime-viewer/code-converter-alist' is used. - -Thu Dec 7 06:18:21 1995 Morioka Tomohiko - - * tm-view.el: - pop up menu support by mouse-button-3 for Emacs 19 and XEmacs. - -Thu Dec 7 06:10:32 1995 Steven L. Baur - - * tm-edit.el: pop up menu for XEmacs. (cf. [tm-en:209]) - -Thu Dec 7 04:55:49 1995 Morioka Tomohiko - - * tm-rmail.el: version variables were added. - - * tm-rmail.el: - Shuhei KOBAYASHI 's patch was applied - to fix problem of function `tm-rmail/forward' in *mail* buffer. (and - some extensions) (cf. [tm-ja:1225]) - -Thu Dec 6 23:16:14 1995 Steven L. Baur - - * tm-view.el: mouse-button-3 menu for XEmacs. (cf. [tm-en:206]) - -Thu Dec 6 15:53:54 1995 Shuhei KOBAYASHI - - * README.eng: fixed typo about VM (cf. [tm-ja:1224]) - - * tm-file.el: fix and extend. (cf. [tm-ja:1224]) - -Wed Dec 6 15:35:52 1995 Morioka Tomohiko - - * tm-rmail.el: - `(substitute-key-definition - 'rmail-forward 'tm-rmail/forward rmail-mode-map)' - should be enclosed by (call-after-loaded 'mime-setup ..). diff --git a/Changes-7.32.en b/Changes-7.32.en deleted file mode 100644 index 44f524b..0000000 --- a/Changes-7.32.en +++ /dev/null @@ -1,102 +0,0 @@ -Mon Dec 11 18:02:36 1995 Morioka Tomohiko - - * tl: Version 7.03.2 was released. - * tm: Version 7.32 was released. - * tm/gnus: Version 7.21.2 was released. - -Sun Dec 10 20:33:48 1995 Morioka Tomohiko - - * tm-view.el, tm-play.el: Function `mime::point-preview-content' - was renamed to `mime-preview/point-pcinfo'. - - * tm-edit.el: does not exit from MIME editor mode if function - `mime-editor/pgp-processing' is fail. - - * tm-edit.el: - (1) New variable `mime-editor/signing-type' and - `mime-editor/encrypting-type': their types are pgp-elkins, - pgp-kazu or nil. pgp-elkins is not supported yet. - (2) New function `mime-editor/enclose-signed-region' and - `mime-editor/enclose-encrypted-region' for new enclosure - `signed' and `encrypted'. - (3) New function `mime-editor/process-pgp-kazu': to process - `signed' and `encrypted' enclosure as application/pgp. - (4) New function `mime-editor/set-split' - -Sat Dec 9 08:37:21 1995 Morioka Tomohiko - - * tm-pgp.el (mime-article/check-pgp-signature): Status does not - work. - -Sat Dec 9 08:32:56 1995 Morioka Tomohiko - - * tm-edit.el (mime-editor/process-multipart-1): - Boundary is folded. - - * tm-edit.el: rearrangement - -Sat Dec 9 04:58:16 1995 Morioka Tomohiko - - * tm-play.el (mime-article/show-output-buffer): - `(get-buffer-create mime/output-buffer-name)' was inserted. - -Sat Dec 9 04:51:49 1995 Morioka Tomohiko - - * tm-pgp.el: application/pgp-signature support. - - * tm-play.el: - Function `mime-article/decode-message/partial' was modified not to - use `find-file'. - -Sat Dec 9 04:11:11 1995 Morioka Tomohiko - - * tm-def.el: - Constant `mime/decoding-buffer-name' was deleted (because it seems - not be used). - - * tm-edit.el: application/pgp support - -Sat Dec 9 03:42:47 1995 Morioka Tomohiko - - * tm-file.el: setting for another variables to regard as binary. - -Sat Dec 9 02:04:41 1995 Morioka Tomohiko - - * tm-view.el: - Function `mime-viewer/display-content' was fixed about judgement - of root content. - -Sat Dec 9 01:56:28 1995 Morioka Tomohiko - - * tm-parse.el: - Function `mime/parse-multipart' was fixed about point-max slot of - content-info. - -Sat Dec 9 01:41:18 1995 Morioka Tomohiko - - * tm-def.el: New constant `mime/temp-buffer-name'. - - * tm-play.el: - Function `mime-article/decode-message/partial' was modified to use - `mime/temp-buffer-name'. - -Fri Dec 8 23:27:19 1995 Morioka Tomohiko - - * tm-pgp.el: Initial revision - -Fri Dec 8 22:32:55 1995 Morioka Tomohiko - - * tm-vm.el: According to Junya Watanabe - , fixed problem about XEmacs - menu in Emacs and Mule. - (cf. [tm-ja:1249]) - -Fri Dec 8 22:29:27 1995 Morioka Tomohiko - - * tm-view.el: New variable - `mime-viewer/content-subject-showing-Content-Type-list' - -Sat Dec 8 18:29:51 1995 Shuhei KOBAYASHI - - * tm-file.el(mime-article/extract-file): - Variable `require-final-newline' should be nil. diff --git a/Changes-7.33.en b/Changes-7.33.en deleted file mode 100644 index adeed24..0000000 --- a/Changes-7.33.en +++ /dev/null @@ -1,21 +0,0 @@ -Wed Dec 13 05:46:06 1995 Morioka Tomohiko - - * tl: Version 7.03.3 was released. - * tm: Version 7.33 was released. - * tm/mh-e: Version 7.44 was released. - * tm/gnus: Version 7.22 was released. - - * tm-view.el: - (1) New field variable `mime-viewer/visible-field-list' - (2) New function `mime-preview/cut-header' - - * tm-view.el: (mime-viewer/default-content-header-filter): - New implementation - -Tue Dec 11 15:31:29 1995 Shuhei KOBAYASHI - - * tm-file.el: comment was fixed. - - * methods/tm-html, methods/tm-image: - fixed to insert spaces previous and next of "=" - (cf. [tm-ja:1262]) diff --git a/Changes-7.33.ja b/Changes-7.33.ja deleted file mode 100644 index 4b8a516..0000000 --- a/Changes-7.33.ja +++ /dev/null @@ -1,21 +0,0 @@ -Wed Dec 13 05:46:06 1995 Morioka Tomohiko - - * tl: Version 7.03.3 was released. - * tm: Version 7.33 was released. - * tm/mh-e: Version 7.44 was released. - * tm/gnus: Version 7.22 was released. - - * tm-view.el: - (1) New field variable `mime-viewer/visible-field-list' - (2) New function `mime-preview/cut-header' - - * tm-view.el: (mime-viewer/default-content-header-filter): - New implementation - -Tue Dec 11 15:31:29 1995 Shuhei KOBAYASHI - - * tm-file.el: tm-file.el $B$N(B header $B$K%@%V$C$F$$$k9T$,$"$j$^$7$?!#(B - - * methods/tm-html, methods/tm-image: - "=" $B$NA08e$K(B space $B$NI,MW$J=j$,$"$j$^$7$?!#(B - (cf. [tm-ja:1262]) diff --git a/Changes-7.34.en b/Changes-7.34.en deleted file mode 100644 index 8ebc9ba..0000000 --- a/Changes-7.34.en +++ /dev/null @@ -1,53 +0,0 @@ -Thu Dec 14 17:03:27 1995 Morioka Tomohiko - - * tm: Version 7.34 was released. - - * Makefile: - New file tm/src/tmpgp: it is used to sign by pgp-elkins style. - -Thu Dec 14 15:49:00 1995 Morioka Tomohiko - - * tm-edit.el: - (1) `pgp-elkins' style PGP signature was implemented. - (2) New function `mime-editor/insert-key': It is based on - draft-elkins-pem-pgp-01.txt. - -Thu Dec 14 15:41:18 1995 Morioka Tomohiko - - * tm-pgp.el: New function `mime-article/add-pgp-keys' - -Thu Dec 14 15:37:13 1995 Morioka Tomohiko - - * tm-play.el (mime-article/decode-caesar): - encoding field is symbol, not string. - - * tm-html.el: encoding field is symbol, not string. - -Thu Dec 14 15:17:56 1995 Shuhei KOBAYASHI - - * tm-vm.el(tm-vm/scroll-forward, tm-vm/scroll-backward): - According to AKITO Ishihara 's report, - `vm-scroll-(forward|backward)' was enclosed by - `(let ((vm-inhibit-startup-message t)) ...)'. - (cf. [tm-ja:1313], [tm-ja:1314]) - -Thu Dec 14 06:22:20 1995 Morioka Tomohiko - - * signature.el (signature/insert-signature-at-eof): - `(delete-blank-lines)' was commented out. - -Thu Dec 13 15:37:16 1995 Shuhei KOBAYASHI - - * tm-vm.el (tm-vm/scroll-forward, tm-vm/scroll-backward): - It might be better to treat `vm-honor-page-delimiters' (and - `vm-auto-next-message' too) in tm-vm. (cf. [tm-ja:1292]) - -Wed Dec 13 13:40:58 1995 AKITO Ishihara - - * tm-vm.el (tm-vm/scroll-backward): fixed to comment out - `(goto-char (point-max))'. (cf. [tm-ja:1289]) - -Wed Dec 13 13:10:27 1995 Morioka Tomohiko - - * tm-edit.el (mime-editor/process-pgp-kazu): fixed to insert dummy - mail-header-separator before calling mailcrypt function. diff --git a/Changes-7.35.en b/Changes-7.35.en deleted file mode 100644 index 036b5fc..0000000 --- a/Changes-7.35.en +++ /dev/null @@ -1,44 +0,0 @@ -Sat Dec 15 16:16:32 1995 Morioka Tomohiko - - * tm: Version 7.35 was released. - * tm/gnus: Version 7.24 was released. - -Fri Dec 15 15:40:10 1995 Morioka Tomohiko - - * tm-pgp.el: - According to Shuhei KOBAYASHI , - `(autoload 'mc-snarf-keys "mc-toplev")' was added. - (cf. [tm-ja:1345]) - - * tm-view.el: - (1) Popup menu for Emacs 19.* was deleted. - (2) MIME-View menu was defined for Emacs 19.*. In Emacs 19.29 or - later, system popup menu is available. - -Fri Dec 15 15:02:14 1995 Morioka Tomohiko - - * tm-edit.el (mime/editor-mode): DOC string was fixed. - -Fri Dec 15 13:58:51 1995 Morioka Tomohiko - - * tm-vm.el: - (1) New variable `tm-vm/use-xemacs-popup-menu'. - (2) popup menu of MIME-Edit minor mode became sub menu. - -Fri Dec 15 13:56:51 1995 Morioka Tomohiko - - * tm-rmail.el: - Setting was modified to load tm-mail after tm-edit is loaded. - - * tm-mail.el: - (1) New variable `tm-mail/use-xemacs-popup-menu'. - (2) popup menu of MIME-Edit minor mode became sub menu. - - * tm-def.el (tm:set-fields): New function - -Fri Dec 15 12:00:23 1995 Morioka Tomohiko - - * tm-pgp.el (mime-article/check-pgp-signature): fixed problem of - binary declarations - - * tm-file.el: delete unnecessary `(file-coding-system *noconv*)' diff --git a/Changes-7.36.en b/Changes-7.36.en deleted file mode 100644 index 7d06eb6..0000000 --- a/Changes-7.36.en +++ /dev/null @@ -1,41 +0,0 @@ -Mon Dec 18 11:16:18 1995 Morioka Tomohiko - - * tm: Version 7.36 was released. - * tm/gnus: Version 7.25 was released. - - * methods/tm-au: new implementation - -Mon Dec 18 10:45:02 1995 Morioka Tomohiko - - * tm-view.el (mime-viewer/quit): New implementation - - * tm-view.el (mime-viewer/show-summary): New function: - it is bound with `h' key. - - * tm-view.el (mime-viewer/show-summary-method): New variable - -Mon Dec 18 01:32:23 1995 Morioka Tomohiko - - * methods/tmdecode, methods/tm-plain: - replaced by NAGIRA Naoki 's code. - -Sun Dec 17 14:35:01 1995 Morioka Tomohiko - - * tm-view.el: setting for "image/x-mag" - -Sun Dec 17 14:29:17 1995 Morioka Tomohiko - - * tm-pgp.el: application/pgp-encrypted support - - * tm-pgp.el (mime-article/check-pgp-signature): bug fix - - * tm-pgp.el: setting for "text/x-pgp" - - * tm-setup.el: setting for tm-image.el when XEmacs is running. - - * tm-image.el: - Filters were merged to function `mime-preview/filter-for-image'. - -Sat Dec 16 14:59:29 1995 Morioka Tomohiko - - * tm-image.el: Initial revision diff --git a/Changes-7.37.en b/Changes-7.37.en deleted file mode 100644 index 1607384..0000000 --- a/Changes-7.37.en +++ /dev/null @@ -1,38 +0,0 @@ -Wed Dec 20 13:05:06 1995 Morioka Tomohiko - - * tl: Version 7.03.4 was released. - * tm: Version 7.37 was released. - * tm/gnus: Version 7.26 was released. - -Tue Dec 19 18:06:49 1995 Morioka Tomohiko - - * tm-pgp.el: draft-elkins-pem-pgp-01.txt was renewed to - draft-elkins-pem-pgp-02.txt. - -Tue Dec 19 17:50:09 1995 Morioka Tomohiko - - * Makefile: tm/src/tmpgp was abolished. - -Tue Dec 19 17:47:16 1995 Morioka Tomohiko - - * tm-edit.el: - pgp-elkins spec was renewed to draft-elkins-pem-pgp-02.txt. - -Tue Dec 19 17:13:19 1995 Morioka Tomohiko - - * tm-pgp.el (mime-article/check-pgp-signature): treats encoding - - * tm-edit.el: `(autoload 'mc-pgp-lookup-key "mc-pgp")' was added. - -Tue Dec 18 03:52:48 1995 Katsumi Yamaoka - - * tm-view.el (mime-viewer/filter-text/plain): put URL into - text-property. (cf. [tm-ja:1367]) - -Mon Dec 15 21:32:16 1995 Shuhei KOBAYASHI - - * tm-vm.el (tm-vm-load-hook): New hook - - * tm-vm.el (tm-vm/preview-current-message): fixed to end as - current-buffer is folder buffer. Some problem is still rest. - (cf. [tm-ja:1348]) diff --git a/Changes-7.38.en b/Changes-7.38.en deleted file mode 100644 index 4acb113..0000000 --- a/Changes-7.38.en +++ /dev/null @@ -1,54 +0,0 @@ -Fri Dec 22 09:00:20 1995 Morioka Tomohiko - - * tm: Version 7.38 was released. - * tm/gnus: Version 7.28 was released. - -Thu Dec 21 18:27:09 1995 Morioka Tomohiko - - * tm-edit.el (mime-file-types): format was changed. - (0) filename pattern - (1) primary type - (2) sub type - (3) parameters of Content-Type field - (4) Content-Transfer-Encoding - (5) disposition-type - (6) parameters of Content-Disposition field - - * tm-edit.el (mime-editor/insert-file): - modified for new `mime-file-types' format. - -Thu Dec 21 18:17:03 1995 Morioka Tomohiko - - * tm-def.el (mime/disposition-type-regexp): New constant - - * tm-parse.el (mime/parse-Content-Disposition): New function - - * tm-parse.el (mime/Content-Disposition): New function - - * tm-view.el (mime-article/get-subject): - function `mime-viewer/get-subject' was renamed to it. - - * tm-view.el (mime-article/get-uu-filename): New function: - it was separated from function `mime-article/get-subject'. - - * tm-play.el (mime-article/get-original-filename): New function - - * tm-play.el (mime-article/get-filename): - Function `mime-article/get-name' was renamed to it. - It was modified to use `mime-article/get-original-filename' - instead of `mime-article/get-subject'. - - * tm-file.el (mime-article/extract-file): - modified to use `mime-article/get-filename' - -Wed Dec 20 15:27:35 1995 Morioka Tomohiko - - * tm-setup.el: - According to Shuhei KOBAYASHI , - `(require 'tm-gnus)' is add-hooked as append mode. - (cf. [tm-ja:1391]) - -Thu Dec 20 05:48:56 1995 UENO Hiroshi - - * tm-pgp.el: (mime-article/check-pgp-signature): - fixed to treat signed part as binary. (to fix problem in OS/2) diff --git a/Changes-7.39.en b/Changes-7.39.en deleted file mode 100644 index 5d6af59..0000000 --- a/Changes-7.39.en +++ /dev/null @@ -1,44 +0,0 @@ -Mon Dec 25 10:43:59 1995 Morioka Tomohiko - - * tm: Version 7.39 was released. - * tm/gnus: Version 7.30 was released. - - * README.en: Sample of hilit19 was changed. - -Mon Dec 25 09:08:50 1995 Morioka Tomohiko - - * tm-rmail.el: fixed to work in Emacs 18.*, but some problems are - rest. - - * tm-view.el (mime-viewer/redisplay): New variable: for redisplay - -Mon Dec 25 05:43:05 1995 Morioka Tomohiko - - * Makefile (19_29): `make gnus5' was commented out. - -Mon Dec 25 05:40:42 1995 Morioka Tomohiko - - * tm-rmail.el (tm-rmail/preview-message): New implementation - - * tm-rmail.el (rmail-summary-rmail-update): redefined - - * tm-rmail.el: `mime-viewer/show-summary-method' was set. - -Mon Dec 25 05:31:33 1995 Morioka Tomohiko - - * mk-tm (compile-tm): `(load "rmailsum")' was added. - -Mon Dec 25 03:20:41 1995 OKABE Yasuo - - * signature.el (signature-delete-blank-lines-at-eof): New variable - -Sat Dec 23 12:43:20 1995 Morioka Tomohiko - - * tm-def.el (tm:browse-url): argument was fixed. - - * README.en: fixed about PGP - -Sat Dec 23 09:32:27 1995 Tanaka Shinichiro - - * tm-pgp.el, README.en: - Typos were fixed. (cf. [tm-ja:1419], [tm-ja:1421]) diff --git a/Changes-7.40.en b/Changes-7.40.en deleted file mode 100644 index a69d38f..0000000 --- a/Changes-7.40.en +++ /dev/null @@ -1,92 +0,0 @@ -Wed Jan 17 08:27:26 1996 Morioka Tomohiko - - * tl: version 7.08 was released. - * tm: version 7.40 was released. - -Sun Jan 14 05:52:49 1996 Morioka Tomohiko - - * tm-edit.el (mime-editor/choose-charset): New implementation: use - function `mime/find-charset-region' instead of - `mime-body-charset-chooser'. - - * tm-edit.el: Variable `mime-body-charset-chooser' and its - implementations were deleted. - - * tm-edit.el (mime-editor/normalize-body): use variable - `mime/charset-default-encoding-alist' instead of function - `mime-editor/choose-encoding'. - - * tm-edit.el: Function `mime-editor/choose-encoding' was deleted. - -Fri Jan 12 13:59:13 1996 Morioka Tomohiko - - * tm-def.el (mime/find-charset-region): New function - - * tm-def.el (mime/charset-default-encoding-alist): New variable - -Thu Jan 11 18:31:43 1996 Morioka Tomohiko - - * tm-ew-e.el: Variable `mime/default-charset-encoding-alist' was - renamed to `mime-eword/charset-encoding-alist'. - - * tm-ew-e.el: Constant `mime/eword-encoder-version' was renamed to - `mime-eword/encoder-version'. - - * tm-ew-e.el: Variable `mime/default-charset-encoding-alist' was - moved from tm-def.el. - - * tm-def.el: Variable `mime/default-charset-encoding-alist' was - moved to tm-ew-e.el. - - * tm-ew-e.el: Function `mime/find-charset-rule' was renamed to - `tm-eword::find-charset-rule'. - - * tm-ew-e.el (mime/find-charset-rule): modified to use function - `mime/find-charset' - - * tm-def.el (mime/find-charset): new function - -Thu Jan 11 05:33:53 1996 Morioka Tomohiko - - * tm-ew-e.el (mime/find-charset-rule): new implementation - - * tm-orig.el: Variable `mime/decoding-charset-list' was deleted. - -Thu Jan 11 05:12:50 1996 Morioka Tomohiko - - * tm-nemacs.el, tm-orig.el: - Variable `mime/lc-charset-rule-list' was deleted. - - * tm-mule.el: - Variable `mime/lc-charset-rule-list' and - `mime/unknown-charset-rule' were deleted. - -Thu Jan 11 05:09:28 1996 Morioka Tomohiko - - * tm-def.el (mime/default-charset-encoding-alist): new variable - -Thu Jan 11 04:56:08 1996 Morioka Tomohiko - - * tm-orig.el, tm-nemacs.el, tm-mule.el - (mime/lc-charset-alist, mime/unknown-charset): new variable - -Wed Jan 10 00:07:57 1996 Morioka Tomohiko - - * tm-edit.el: - (mime-editor/translate-body, mime-editor/translate-region): - Spaces in boundary are replaced by underlines. - (cf. [tm-en:255,258]) - -Tue Jan 9 19:08:21 1996 Morioka Tomohiko - - * tm-mule.el: Obsolete definitions were deleted. - -Tue Jan 9 18:43:12 1996 Morioka Tomohiko - - * tm-orig.el, tm-nemacs.el, tm-mule.el: - Variable `mime/latin-lc-list' was deleted. - -Tue Jan 9 16:28:44 1996 Morioka Tomohiko - - * tm-orig.el, tm-nemacs.el, tm-mule.el: - Variable `mime/lc-charset-and-encoding-alist' was deleted. diff --git a/Makefile.18 b/Makefile.18 deleted file mode 100644 index 4ff7261..0000000 --- a/Makefile.18 +++ /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 index 60ae728..0000000 --- a/Makefile.19 +++ /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 index 4cbc7ac..0000000 --- a/Makefile.bc +++ /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 index 5d88eab..0000000 --- a/Makefile.o19 +++ /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 index 4694143..0000000 --- a/README-eng.ol +++ /dev/null @@ -1,52 +0,0 @@ -[[R -\title{tm-$<$MUA$>$ Manual (English Version)} -\author{Morioka Tomohiko} -\date{1994/7/22} -\maketitle -]]R - - tm- 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- for GNUS -tm-mh-e.el tm- for mh-e -tm-mh-e3.el tm-mh-e's module for mh-e 3.x. -tm-misc.el tm- 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 index 996ebd7..0000000 --- a/README-eng.tex +++ /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- 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- for GNUS -tm-mh-e.el tm- for mh-e -tm-mh-e3.el tm-mh-e's module for mh-e 3.x. -tm-misc.el tm- 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 index 037ab83..0000000 --- a/README-jp.ol +++ /dev/null @@ -1,88 +0,0 @@ -$B!X(Btm- $B@bL@=q!Y(B - -* tm $B$H$O(B - - tm $B$O(B Emacs $B$K(B MIME $B5!G=$rIU2C!&6/2=$9$k$?$a$N(B package $B$G$9!#$3$N(B -package $B$O0J2<$N$b$N$r4^$s$G$$$^$9!#(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 - -$B$G$9!#(B - - -* install $B$N;EJ}(B - -(1) Makefile $B$N(B bindir $B$r<+J,$N4D6-$K9g$o$;$F=q$-49$($k!#(B - -(2) methods/ $B0J2<$N(B method $B$r!"(Btm-body $B$N@bL@=q$r8+$F!"<+J,$N4D6-$K9g(B - $B$&$h$&$K=q$-49$($k!#(B - -(3) make all $B$9$k!#(B - -(4) make install $B$9$k!#(B - -(5) *.el $B$r(B Emacs $B$NJQ?t(B load-path $B$G;XDj$5$l$?(B directory $B$K(B copy $B$9$k!#(B - - - tm-mh-e, tm-gnus $B$N@bL@$O!"(Btm-mh-e.ol, tm-gnus.ol $B$rFI$s$G2<$5$$!#(B -plain2 $B$,(B install $B$5$l$F$$$k>l9g!"(Bmake dvi $B$r9T$J$&$3$H$G(B dvi $B$KJQ49$G(B -$B$-$^$9!#(B - - -* $B%P%0Js9p$N;EJ}(B - - tm $B$N%P%0$r8+$D$1$?$i(B fj.editor.emacs $B$K(B post $B$9$k$+!"(Btm ML - $B$K(B mail $B$rAw$C$F2<$5$$!#(B - - tm ML $B$G$O(B tm $B$N%P%0>pJs$N8r49$d:G?7HG$NG[I[!"(Btm $B$N2~NI$K4X$9$k5DO@(B -$B$r9T$J$C$F$$$^$9!#(Btm ML $B$K;22C$7$?$$J}$O(B - - tm-admin@chamonix.jaist.ac.jp - -$B$^$G(B mail $B$rAw$C$F2<$5$$!#EPO?$O $B$N@_Dj$H(B mime.el $B$r;H$C$?(B encode $B$N@_Dj$r9T$J$C$F$/$l(B -$B$^$9!#(B - -[[E ----------------------------------------------------------------------- -(load "mime-setup") ----------------------------------------------------------------------- -]]E - - mime-setup.el $B$OI8=`$G$O(B SuperCite $B$N@_Dj$b9T$J$$$^$9!#$3$l$r$d$a$k(B -$B>l9g(B .emacs $B$K0J2<$N$b$N$rF~$l$F2<$5$$!#(B - -[[E ----------------------------------------------------------------------- -(setq mime-setup-use-sc nil) ----------------------------------------------------------------------- -]]E - - mime-setup $B$G$O(B signature $B$N<+F0@ZBX$((B tool $B$bImB0$7$F$$$^$9!#(B -message header $B$N(B field $B$K9g$o$;$F(B signature $B$N<+F0@ZBX$r9T$J$$$?$$>l(B -$B9g$O(B .emacs $B$K0J2<$N$h$&$J$b$N$rF~$l$F2<$5$$!#(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 $B$r;H$&>l9g$O!"(Bmime.el $B$,I,MW$G$9!#$^$?!"(BSuperCite $B$r;H$&(B -$B>l9g$O!"(BSuperCite $B$bI,MW$G$9!#(B diff --git a/README-jp.tex b/README-jp.tex deleted file mode 100644 index 257d669..0000000 --- a/README-jp.tex +++ /dev/null @@ -1,133 +0,0 @@ -\documentstyle[a4j]{jarticle} -\setcounter{secnumdepth}{6} -\setcounter{tocdepth}{6} -\topsep=0.1cm -\parsep=0.1cm -\itemsep=0.0cm -\begin{document} -\title{ -tm-$<$MUA$>$ ÀâÌÀ½ñ} -\author{ -\\ -} -\date{ -} -\maketitle -\medskip - -\section{tm ¤È¤Ï} -\medskip -\par -tm ¤Ï Emacs ¤Ë MIME µ¡Ç½¤òÉղᦶ¯²½¤¹¤ë¤¿¤á¤Î package ¤Ç¤¹¡£¤³¤Î -package ¤Ï°Ê²¼¤Î¤â¤Î¤ò´Þ¤ó¤Ç¤¤¤Þ¤¹¡£ -\medskip -{\list{}{\leftmargin=4ex}\item[] -\begin{itemize} -\item tiny-mime MIME header encoder/decoder -\item tm-body MIME body player -\item tm-gnus MIME extender for GNUS -\item tm-mh-e MIME extender for mh-e -\medskip -\end{itemize} -\endlist} -\par -¤Ç¤¹¡£ -\medskip -\medskip - -\section{install ¤Î»ÅÊý} -\medskip -{ -\renewcommand{\theenumi}{(\arabic{enumi})} -\renewcommand{\labelenumi}{\theenumi} -\begin{enumerate} -\item Makefile ¤Î bindir ¤ò¼«Ê¬¤Î´Ä¶­¤Ë¹ç¤ï¤»¤Æ½ñ¤­´¹¤¨¤ë¡£ -\medskip -\item methods/ °Ê²¼¤Î method ¤ò¡¢tm-body ¤ÎÀâÌÀ½ñ¤ò¸«¤Æ¡¢¼«Ê¬¤Î´Ä¶­¤Ë¹ç -¤¦¤è¤¦¤Ë½ñ¤­´¹¤¨¤ë¡£ -\medskip -\item make all ¤¹¤ë¡£ -\medskip -\item make install ¤¹¤ë¡£ -\medskip -\item *.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ directory ¤Ë copy ¤¹¤ë¡£ -\medskip -\medskip -\end{enumerate} -} -\par -tm-mh-e, tm-gnus ¤ÎÀâÌÀ¤Ï¡¢tm-mh-e.ol, tm-gnus.ol ¤òÆɤó¤Ç²¼¤µ¤¤¡£ -plain2 ¤¬ install ¤µ¤ì¤Æ¤¤¤ë¾ì¹ç¡¢make dvi ¤ò¹Ô¤Ê¤¦¤³¤È¤Ç dvi ¤ËÊÑ´¹¤Ç -¤­¤Þ¤¹¡£ -\medskip -\medskip - -\section{¥Ð¥°Êó¹ð¤Î»ÅÊý} -\medskip -\par -tm ¤Î¥Ð¥°¤ò¸«¤Ä¤±¤¿¤é fj.editor.emacs ¤Ë post ¤¹¤ë¤«¡¢tm ML -$<$tm@chamonix.jaist.ac.jp$>$ ¤Ë mail ¤òÁ÷¤Ã¤Æ²¼¤µ¤¤¡£ -\medskip -\par -tm ML ¤Ç¤Ï tm ¤Î¥Ð¥°¾ðÊó¤Î¸ò´¹¤äºÇ¿·ÈǤÎÇÛÉÛ¡¢tm ¤Î²þÎɤ˴ؤ¹¤ëµÄÏÀ -¤ò¹Ô¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£tm ML ¤Ë»²²Ã¤·¤¿¤¤Êý¤Ï -\medskip -{\list{}{\leftmargin=8ex}\item[] -\par -tm-admin@chamonix.jaist.ac.jp -\endlist} -\medskip -\par -¤Þ¤Ç mail ¤òÁ÷¤Ã¤Æ²¼¤µ¤¤¡£ÅÐÏ¿¤Ï¼êÆ°¤Ç¤¹¤Î¤Ç¡¢¤Ç¤­¤ì¤Ð¡¢¼«Á³¸À¸ì¤Ç½ñ¤¤ -¤Æ²¼¤µ¤¤¡£(\verb+^+\_\verb+^+) -\medskip -\medskip - -\section{¤ª¤Þ¤±} -\medskip -\par -mime-setup ¤È¤¤¤¦´Ê°×ÀßÄê tool ¤òÉÕ¤±¤Þ¤·¤¿¡£.emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ -¤ì¤ë¤È tm-$<$MUA$>$ ¤ÎÀßÄê¤È mime.el ¤ò»È¤Ã¤¿ encode ¤ÎÀßÄê¤ò¹Ô¤Ê¤Ã¤Æ¤¯¤ì -¤Þ¤¹¡£ -\medskip -{\baselineskip=10pt -\begin{verbatim} ----------------------------------------------------------------------- -(load "mime-setup") ----------------------------------------------------------------------- -\end{verbatim}} -\medskip -\par -mime-setup.el ¤Ïɸ½à¤Ç¤Ï SuperCite ¤ÎÀßÄê¤â¹Ô¤Ê¤¤¤Þ¤¹¡£¤³¤ì¤ò¤ä¤á¤ë -¾ì¹ç .emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£ -\medskip -{\baselineskip=10pt -\begin{verbatim} ----------------------------------------------------------------------- -(setq mime-setup-use-sc nil) ----------------------------------------------------------------------- -\end{verbatim}} -\medskip -\par -mime-setup ¤Ç¤Ï signature ¤Î¼«Æ°ÀÚÂؤ¨ tool ¤âÉí°¤·¤Æ¤¤¤Þ¤¹¡£ -message header ¤Î field ¤Ë¹ç¤ï¤»¤Æ signature ¤Î¼«Æ°ÀÚÂؤò¹Ô¤Ê¤¤¤¿¤¤¾ì -¹ç¤Ï .emacs ¤Ë°Ê²¼¤Î¤è¤¦¤Ê¤â¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£ -\medskip -{\baselineskip=10pt -\begin{verbatim} ----------------------------------------------------------------------- -(setq signature-file-alist - '( - (("Newsgroups" . "jokes") . "~/.signature-jokes") - (("Newsgroups" . ("zxr" "nzr")) . "~/.signature-sun") - (("To" . ("ishimaru" "z-suzuki")) . "~/.signature-sun") - (("To" . "tea") . "~/.signature-jokes") - (("To" . ("sim" "oku" "takuo")) . "~/.signature-formal") - )) ----------------------------------------------------------------------- -\end{verbatim}} -\medskip -\par -mime-setup ¤ò»È¤¦¾ì¹ç¤Ï¡¢mime.el ¤¬É¬ÍפǤ¹¡£¤Þ¤¿¡¢SuperCite ¤ò»È¤¦ -¾ì¹ç¤Ï¡¢SuperCite ¤âɬÍפǤ¹¡£ -\end{document} diff --git a/README.eng b/README.eng deleted file mode 100644 index a168c7f..0000000 --- a/README.eng +++ /dev/null @@ -1,328 +0,0 @@ -[README for tm (English Version)] -by MORIOKA Tomohiko -and KOBAYASHI Shuhei -$Id: README.eng,v 7.4 1995/12/06 09:21:07 morioka Exp $ - -1 What's tm? - - tm is a MIME package for GNU Emacs. tm has following functions: - - - MIME style multilingual header - - MIME message viewer (mime/viewer-mode) - - MIME message composer (mime/editor-mode) - - MIME extenders for mh-e, GNUS, RMAIL and VM - - -2 Documents - - This package includes following documents. - -(1) English edition - -- tm/doc/tm_en.texi : tm Reference Manual (TeXinfo) -- tm/doc/tm-view_en.texi: tm-view Reference Manual (TeXinfo) -- tm/doc/tm-gnus_en.texi: tm-gnus Reference Manual (TeXinfo) - -(2) Japanese edition - -- tm/doc/tm_ja.tex : tm Reference Manual (TeXinfo) -- tm/doc/tm-view_ja.texi : tm-view Reference Manual (TeXinfo) -- tm/doc/tm-gnus_ja.texi : tm-gnus Reference Manual (TeXinfo) -- tm/doc/signature-jp.ol : signature.el Reference Manual (Emacs Outline) -- tm/doc/signature-jp.tex: signature.el Reference Manual (LaTeX) - - -3 Modules - - tm has following modules: - - - tm-view : MIME viewer - - tm-parse.el : MIME message parser - - tm-play.el : MIME content player - - tm-ew-d.el : MIME encoded-word decoder - - preview filter for tm-view - - tm-rich : for text/enriched and text/richtext - - internal methods for tm-view - - tm-partial : automatic assembler for message/partial - - tm-ftp : for anonymous ftp - - tm-file : for file extraction - - tm-tar : for tar content - - tm-latex : for LaTeX - - tm-html : for text/html - - tm-edit : MIME composer (mime.el and tm-comp.el were merged) - - tm-ew-e.el : MIME encoded-word encoder - - tm-def : definition module for tm - - tm-nemacs.el : NEmacs depended part of tm - - tm-orig.el : FSF original Emacs and XEmacs - depended part of tm - - tm-mule.el : Mule depended part of tm - - tm-MUAs : MIME extender for MUAs - - tm-mh-e : tm-MUA for mh-e - - tm-gnus : tm-MUA for GNUS - - tm-rmail : tm-MUA for RMAIL - - tm-vm : tm-MUA for vm - - tm-mail : tm-MUA library module for mail-mode - - mime-setup: set up module for MIME - - tm-setup: set up only reading - - -4 Install - -4.1 tm/config.tm - - Please edit tm/config.tm file. - - -4.2 External methods - - Please edit external methods in `tm/methods/' directory for your -environment. - - tm/methods/tm-au for audio - tm/methods/tm-file for file extraction - tm/methods/tm-image for image - tm/methods/tm-mpeg for MPEG - tm/methods/tm-plain for plain text - tm/methods/tm-html for HTML - tm/methods/tmdecode decoder - - -4.3 make - - Run `make all'. - - -4.4 install - - Run `make install'. - - -4.5 Emacs Lisp modules - - Run `make install-18', if you use Emacs 18 (NEmacs, Mule 1.*). - - Run `make install-xemacs', if you use Emacs .. 19.28 (Mule 2.* based -on), or XEmacs. - - Run `make install-19_29', if you use Emacs 19.29 or later (Mule 2.* -based on). - - Or copy *.el to your emacs lisp directory. - - -5 tm-MUA - -5.1 tm-gnus - - If you use optional GNUS or Gnus, you must edit and make manually. - -(1) Please edit tm/gnus/Makefile. - - If you use Emacs 18.* and GNUS 3.*, please edit tm/gnus/g3-path. - - If you use Emacs 18.* and GNUS 4.*, please edit tm/gnus/g4-path. - - If you use Gnus 5.0.*, please edit tm/gnus/g5-path. - - If you use September Gnus, please edit tm/gnus/s-path. - -(2) make - - Run `make gnus3', if you use GNUS 3.*. - - Run `make gnus4', if you use GNUS 4.*. - - Run `make gnus5', if you use Gnus 5.0.*. - - Run `make sgnus', if you use September Gnus. - -(3) install - - Run `make install-18', if you use Emacs 18.*. - - Run `make install-19', if you use Emacs .. 19.28 or XEmacs. - - Run `make install-19_29', if you use Emacs 19.29 or later. - - -5.1.1 automatic MIME preview support - - tm-gnus provides automatic MIME preview feature for GNUS 3.15 or -later, Gnus 5.0.*, Gnus 5.1, and September Gnus. - - If you don't want to use automatic MIME preview feature, please -insert following to ~/.emacs. - - (setq tm-gnus/automatic-mime-preview nil) - - In addition, September Gnus has automatic MIME preview supporting -feature. Of course, tm-gnus provide this feature for other GNUS and -Gnus, but it is unnatural. - - When automatic MIME preview mode, GNUS and Gnus do MIME processing -if a message has a Mime-Version field. If it does not have, GNUS and -Gnus does not do MIME processing, in default. - - Gnus 5.0.*, 5.1 and September Gnus have a variable -`gnus-strict-mime'. If you insert - - (setq gnus-strict-mime nil) - -Gnus do MIME processing even if a message does not have Mime-Version -field. - - In September Gnus, if `gnus-strict-mime' is not nil, variable -`gnus-decode-encoded-word-method' is called. tm-gnus uses it to decode -RFC 1522 encoded-word. So it is not necessary to reset -`gnus-strict-mime'. - - -5.2 tm-mh-e - - If you use optional mh-e, you must edit and make manually. - -(1) Please edit mh-e/Makefile - -(2) make - - Run `make elc'. - -(3) install - - Run `make install-18', if you use Emacs 18.*. - - Run `make install-19', if you use Emacs 19.*. - -* 5.3 VM - - If you use VM, please edit `mk-tm'. - - -6 .emacs - - Please insert (load "mime-setup") in ~/.emacs. - -6.1 VM - - If you use vm, please insert (require 'tm-vm) in ~/.vm. - - tm works well with BBDB: If you use VM, please insert -(require 'tm-vm) *after* (bbdb-insinuate-vm). - - -6.2 setting sample for hilit19 - -====================================================================== -(cond (window-system - (let* ((header-patterns '(("^Subject:.*$" nil msg-subject) - ("^From:.*$" nil msg-from) - ("^--text follows this line--$" - nil msg-separator) - ("^[A-Za-z][A-Za-z0-9-]+:" nil msg-header) - )) - (body-patterns '(("^\\(In article\\|[ \t]*\\w*[]<>}|]\\).*$" - nil msg-quote))) - (message-patterns (append header-patterns body-patterns)) - ) - (hilit-set-mode-patterns 'msg-header header-patterns) - (hilit-set-mode-patterns 'msg-body body-patterns) - (hilit-set-mode-patterns 'mime/viewer-mode - message-patterns - 'hilit-rehighlight-message) - ) - (add-hook 'mime-viewer/content-header-filter-hook - (function hilit-rehighlight-buffer-quietly)) - (add-hook 'mime-viewer/plain-text-preview-hook - (function hilit-rehighlight-buffer-quietly)) - )) -====================================================================== - -6.3 setting sample for browse - - If you have browse-url.el (included in Gnus 5.*, September Gnus and -Emacs 19.30 or later), you can use URL button in -mime/viewer-mode. Following is setting sample: - -====================================================================== -(setq browse-url-browser-function - (if (eq window-system 'x) - 'browse-url-netscape - 'browse-url-w3)) -(autoload browse-url-browser-function "browse-url" - "Ask a WWW browser to show a URL." t) -====================================================================== - - -7 How to use mime/viewer-mode - -In tm-MUAs, you can use mime/viewer-mode if you press `v' key (in VM, -`Z' key) in Summary mode. Or automatic MIME previewed buffer's -major-mode is mime/viewer-mode. mime/viewer-mode has following -functions: - - q quit from mime/viewer-mode - u move to upper content - p move to previous content - n move to next content - SPC scroll up or move to next content - M-SPC scroll down or move to previous content - DEL scroll down or move to previous content - RET move to next line - M-RET move to previous line - v play current content - e extract as file current content - C-c C-p print current content - button-2 move to point under the mouse cursor and play - current content or browse URL - - -8 Bug report - -If you write bug-reports and/or propositions for improvement, please -post them to following news groups: - - fj.editor.emacs (Japanese or English) - fj.editor.mule (Japanese or English; if you use Mule) - gnu.emacs.help (English) - - fj.news.reader.gnus (Japanese or English; about GNUS and Gnus) - gnu.emacs.gnus (English; about GNUS and Gnus) - - gnu.emacs.vm.info (English; about tm-vm) - -or send to tm ML: - - bug-tm-en@chamonix.jaist.ac.jp (English) - bug-tm-ja@chamonix.jaist.ac.jp (Japanese) - -Via tm ML, You can report bugs of tm, obtain the latest release of tm -package, and discuss the future enhancements to tm. To join tm ML, -send a mail to - - tm-admin@chamonix.jaist.ac.jp (Japanese or English) - tm-eng-admin@chamonix.jaist.ac.jp (English) - -Since the user registration is manually done, please write the mail -body in human-recognizable language (^_^). - - -9 How to get new version - -tm is available from following anonymous ftp site: - - ftp://ftp.jaist.ac.jp/pub/GNU/elisp/mime/ (Japan) - -and its mirrors: - - ftp://ftp.nis.co.jp/pub/gnu/emacs-lisp/tm/ (Japan) - ftp://ftp.nisiq.net/pub/gnu/emacs-lisp/tm/ (US) - - -10 TODO - -- automatic MIME preview support for another MUA -- better XEmacs support (e.g. inline image) -- development of internal method for message/external-body based on - tm-ftp -- development good MIME composer -- etc. diff --git a/base64.el b/base64.el deleted file mode 100644 index 52a1765..0000000 --- a/base64.el +++ /dev/null @@ -1,105 +0,0 @@ -;;; -;;; $Id$ -;;; - -(require 'tl-seq) - -;;; @ internal base64 decoder/encoder -;;; based on base64 decoder by Enami Tsugutomo - -;;; @@ convert from/to base64 char -;;; - -(defun base64-num-to-char (n) - (cond ((eq n nil) ?=) - ((< n 26) (+ ?A n)) - ((< n 52) (+ ?a (- n 26))) - ((< n 62) (+ ?0 (- n 52))) - ((= n 62) ?+) - ((= n 63) ?/) - (t (error "not a base64 integer %d" n)))) - -(defun base64-char-to-num (c) - (cond ((and (<= ?A c) (<= c ?Z)) (- c ?A)) - ((and (<= ?a c) (<= c ?z)) (+ (- c ?a) 26)) - ((and (<= ?0 c) (<= c ?9)) (+ (- c ?0) 52)) - ((= c ?+) 62) - ((= c ?/) 63) - ((= c ?=) nil) - (t (error "not a base64 character %c" c)))) - - -;;; @@ encode/decode one base64 unit -;;; - -(defun base64-mask (i n) (logand i (1- (ash 1 n)))) - -(defun base64-encode-1 (a &optional b &optional c) - (cons (ash a -2) - (cons (logior (ash (base64-mask a 2) (- 6 2)) - (if b (ash b -4) 0)) - (if b - (cons (logior (ash (base64-mask b 4) (- 6 4)) - (if c (ash c -6) 0)) - (if c - (cons (base64-mask c (- 6 0)) - nil))))))) - -(defun base64-decode-1 (a b &optional c &optional d) - (cons (logior (ash a 2) (ash b (- 2 6))) - (if c (cons (logior (ash (base64-mask b 4) 4) - (base64-mask (ash c (- 4 6)) 4)) - (if d (cons (logior (ash (base64-mask c 2) 6) d) - nil)))))) - -(defun base64-encode-chars (a &optional b &optional c) - (mapcar (function base64-num-to-char) (base64-encode-1 a b c))) - -(defun base64-decode-chars (&rest args) - (apply (function base64-decode-1) - (mapcar (function base64-char-to-num) args) - )) - - -;;; @@ encode/decode base64 string -;;; - -(defun base64-encode-string (string) - (let* ((es (mapconcat - (function - (lambda (pack) - (mapconcat (function char-to-string) - (apply (function base64-encode-chars) pack) - "") - )) - (pack-sequence string 3) - "")) - (m (mod (length es) 4)) - ) - (concat es (cond ((= m 3) "=") - ((= m 2) "==") - )) - )) - -(defun base64-decode-string (string) - (mapconcat (function - (lambda (pack) - (mapconcat (function char-to-string) - (apply (function base64-decode-chars) pack) - "") - )) - (pack-sequence string 4) - "")) - - -;;; @ etc -;;; - -(defun base64-encoded-length (string) - (let ((len (length string))) - (* (+ (/ len 3) - (if (= (mod len 3) 0) 0 1) - ) 4) - )) - -(provide 'base64) diff --git a/config.tm b/config.tm deleted file mode 100644 index 0b0d925..0000000 --- a/config.tm +++ /dev/null @@ -1,107 +0,0 @@ -# -# tm/config.tm: configuration file for tm -# - -MAKE = make - - -# Please specify emacs executables: -# EMACS18 = for EMACS 18.* (NEmacs, NEpoch and Mule 1.*) -# XEMACS = for Emacs .. 19.28 (Mule 2.0 .. 2.3) or XEmacs -# EMACS19_29 = for Emacs 19.29 .. - -EMACS18 = nemacs - -XEMACS = xemacs -#XEMACS = mule -#XEMACS = emacs-19_28 - -#EMACS19_29 = emacs-19_29 -#EMACS19_29 = emacs-19_30 -#EMACS19_29 = mule-19_29 -EMACS19_29 = mule-19_30 - - -# PREFIX = /usr/local -PREFIX = $(HOME) - - -EMACS_PREFIX = emacs -# EMACS_PREFIX = mule -# EMACS_PREFIX = xemacs - - -DATADIR18 = $(PREFIX)/lib -DATADIR19 = $(PREFIX)/lib -DATADIR19_29 = $(PREFIX)/share - - -# Please specify location to install for Emacs 18. -LOCAL_LISP_DIR18 = $(DATADIR18)/$(EMACS_PREFIX)/local.lisp - -# Please specify location to install for Emacs .. 19.28 and XEmacs -LOCAL_LISP_DIR19 = $(DATADIR19)/$(EMACS_PREFIX)/site-lisp - -# Please specify location to install for Emacs 19.29 .. -LOCAL_LISP_DIR19_29 = $(DATADIR19_29)/$(EMACS_PREFIX)/site-lisp - - -# tl install directory for Emacs 18 -TLDIR18 = $(LOCAL_LISP_DIR18) - -# tl install directory for Emacs .. 19.28 and XEmacs -TLDIR19 = $(LOCAL_LISP_DIR19) - -# tl install directory for Emacs 19.29 .. -TLDIR19_29 = $(LOCAL_LISP_DIR19_29) - - -# MEL install directory for Emacs 18 -MELDIR18 = $(LOCAL_LISP_DIR18)/tm - -# MEL install directory for Emacs .. 19.28 and XEmacs -MELDIR19 = $(LOCAL_LISP_DIR19) - -# MEL install directory for Emacs 19.29 -MELDIR19_29 = $(LOCAL_LISP_DIR19_29) - - -# tm install directory for Emacs 18 -TMDIR18 = $(LOCAL_LISP_DIR18)/tm - -# tm install directory for Emacs .. 19.28 and XEmacs -TMDIR19 = $(LOCAL_LISP_DIR19) - -# tm install directory for Emacs 19.29 .. -TMDIR19_29 = $(LOCAL_LISP_DIR19_29) - - -# tm-mh-e install directory for Emacs 18 -TMH_DIR18 = $(TMDIR18) - -# tm-mh-e install directory for Emacs .. 19.28 and XEmacs -TMH_DIR19 = $(TMDIR19) - -# tm-mh-e install directory for Emacs 19.29 -TMH_DIR19_29 = $(TMDIR19_29) - - -# tm-gnus install directory for Emacs 18 -TM_GNUS_DIR18 = $(TMDIR18) - -# tm-gnus install directory for Emacs .. 19.28 and XEmacs -TM_GNUS_DIR19 = $(TMDIR19) - -# tm-gnus install directory for Emacs 19.29 .. -TM_GNUS_DIR19_29 = $(TMDIR19_29) - - -bindir = $(PREFIX)/bin - - -CC = gcc -CFLAGS = -O - - -RM = /bin/rm -f -CP = /bin/cp -p diff --git a/decode-b.c b/decode-b.c deleted file mode 100644 index 8eece33..0000000 --- a/decode-b.c +++ /dev/null @@ -1,71 +0,0 @@ -/* - * $Id: decode-b.c,v 1.2 1995/02/04 02:51:53 morioka Exp $ - * - * modified by Kenji Rikitake - * based on Henry Spencer's un64 shell script - * - */ - -#include -#include - -int get_base64_char_value(int chr) -{ - if( ('A' <= chr) && (chr <= 'Z') ){ - return chr - 'A'; - } - else if( ('a' <= chr) && (chr <= 'z') ){ - return chr - 'a' + 26; - } - else if( ('0' <= chr) && (chr <= '9') ){ - return chr - '0' + 52; - } - else if(chr == '+'){ - return 62; - } - else if(chr == '/'){ - return 63; - } - return -1; -} - -main() -{ - FILE* rfp = stdin; - FILE* wfp = stdout; - char str[128]; - char* sp; - int ret; - unsigned int v1, v2, v3, v4, o1, o2, o3; - - while (fgets(str, 128, rfp)) { - for (sp = str; *sp; ) { - if ((*sp == '\r') || (*sp == '\n')) break; - v1 = get_base64_char_value(*sp++); - v2 = get_base64_char_value(*sp++); - if (0 <= (v3 = get_base64_char_value(*sp++))) { - if (0 <= (v4 = get_base64_char_value(*sp++))) { - o1 = (v1 << 2) + (v2 >> 4); - o2 = ((v2 & 0x0f) << 4) + (v3 >> 2); - o3 = ((v3 & 0x03) << 6) + v4; - putc(o1, wfp); - putc(o2, wfp); - putc(o3, wfp); - } - else { - o1 = (v1 << 2) + (v2 >> 4); - o2 = ((v2 & 0x0f) << 4) + (v3 >> 2); - putc(o1, wfp); - putc(o2, wfp); - return 0; - } - } - else { - o1 = (v1 << 2) + (v2 >> 4); - putc(o1, wfp); - return 0; - } - } - } - return 0; -} diff --git a/doc/rel-6eng.ol b/doc/rel-6eng.ol deleted file mode 100644 index f0a07db..0000000 --- a/doc/rel-6eng.ol +++ /dev/null @@ -1,179 +0,0 @@ -* tm/Makefile - - Not only do `make mule2' or `make orig19' compile normal tm modules -but also tm-mh-e and tm-gnus. - - Similarly, not only do `make install-mule2' or `make install-orig19' -install normal tm modules but also tm-mh-e and tm-gnus. - - -* tm-comp - -** message/rfc822 - - We add a message/rfc822 style message inserting command. Its -function name is `tm-comp/insert-message', standard key bind is `C-c -C-x m'. - - Function `tm-comp/insert-message' requires message-inserter function -for your MUA. message-inserter functions are registerd at variable -`tm-comp/message-inserter-alist' which is a assoc-list whose element -is a pair that major-mode is key and message-inserter function is value. - - Now, tm-mh-e is a only implementation for this function. - - -* changed points of tm-view - - Internal structure of tm-view 6.* is changed from tm-view 5.21, such -as, data structures, symbol names. I write main differences between tm -5.21. - -** internal structure - -*** content-info - - Buffer local variable of article buffer `mime/content-list', which -memorizes content structres of message in article buffer, is renamed -to `mime::article/content-info', and data structure is changed. - - Old data structure ``content-list'' used in buffer local variable -`mime/content-list' was a following list: - - content-list = (Ba Ea children) - - Ba: point-min of this content in article buffer - Ea: point-max of this content in article buffer - children: content-list's list of contents included in - this content. nil when this content is not - multipart - - - New data structure ``content-info'' used in buffer local variable -`mime::article/content-info' is following vector: - - content-info - = [point-min point-max type parameters encoding children] - - point-min: point-min of this content in article buffer - point-max: point-max of this content in article buffer - (This value is not equal Ea. - point-max = Ea + 1) - type: content-type/subtype of this content - parameters: assoc-list which represents parameters of - Content-Type field of this content - encoding: Content-Transfer-Encoding of this content - children: content-info's list of contents included - in this content. nil when this content is - not multipart - - - In tm-view 5.21, this data structure was generated and referenced by -list processing functions (basic lisp functions) dynamically. In -tm-view 6.*, however, it is generated by generator function -`mime::make-content-info', and it is referenced by reference functions -mime::content-info/FOO (FOO = { point-min | point-max | type | -parameters | encoding | children }). - - -*** preview-content-info - - Buffer local variable of preview buffer -`mime/preview-flat-content-list', which memorizes content structres of -message in preview buffer, is renamed to `mime::preview/content-list, -and data structure is changed. - - Old data structure used in buffer local variable -`mime/preview-flat-content-list' was a list which elements are -following list: - - (Bp Ep buf Ba Ea) - - Bp: point-min of this content in preview buffer - Ep: point-max of this content in preview buffer - buf: article buffer for this content - Ba: point-min of this content in article buffer - Ea: point-max of this content in article buffer - - - New data structure ``preview-content-info'' used in buffer local -variable `mime::preview/content-list'' is a list which elements are -following vector: - - [Bp Ep buf cinfo] - - Bp: point-min of this content in preview buffer - Ep: point-max of this content in preview buffer - buf: article buffer for this content - cinfo: content-info which represents this content - - - In tm-view 5.21, this data structure was generated and referenced by -list processing functions (basic lisp functions) dynamically. In -tm-view 6.*, however, it is generated by generator function -`mime::make-preview-content-info', and it is referenced by reference -functions mime::preview-content-info/FOO (FOO = { Bp | Ep | buf | -cinfo }). - - -*** etc - -- parser is changed - -- naming rule is changed - -- buffer local variable in article buffer `mime/preview-buffer' is - renamed to `mime::article/preview-buffer' - -- function `mime/exit-view-mode' is renamed to `mime-viewer/kill-buffer' - -- command functions of mime/viewer-mode are renamed from mime/FOO to - mime-viewer/FOO. (ex. `mime/up-content' --> `mime-viewer/up-content') - -- command function `mime/quit-view-mode' is renamed to `mime-viewer/quit' - -- etc... - - -** variables - -(1) variable `mime/content-filter-alist' is renamed to - `mime-viewer/content-filter-alist' - -(2) variable `mime/make-content-subject-function' is renamed to - `mime-viewer/content-subject-function' and arguments are changed - -(3) variable `mime/make-content-header-filter' is renamed to - `mime-viewer/content-header-filter-function' - -(4) variable `mime/default-showing-Content-Type-list' is renamed to - `mime-viewer/default-showing-Content-Type-list' - -(5) variable `mime/go-to-top-node-method-alist' is renamed to - `mime-viewer/quitting-method-alist' and changed initial value - because of changes between tm-view 5.21 and tm-view 6.*. - - -** new variables - -*** mime-viewer/childrens-header-showing-Content-Type-list - - list of content-type/subtype whose children's header should be -displayed. - - This variable is used in function -`mime-viewer/default-content-header-filter-function' which defined as -default value of variable -`mime-viewer/content-header-filter-function'. Therefore if you set -another function, it may not work this variable. - - -*** mime-viewer/ignored-field-list - - list of field-name which is not displayed when header is displayed. - - This variable is used in function -`mime-viewer/default-content-header-filter-function' which defined as -default value of variable -`mime-viewer/content-header-filter-function'. Therefore if you set -another function, it may not work this variable. diff --git a/doc/rel-6jp.ol b/doc/rel-6jp.ol deleted file mode 100644 index dca39f1..0000000 --- a/doc/rel-6jp.ol +++ /dev/null @@ -1,171 +0,0 @@ -* tm/Makefile - - Emacs 19.* (Mule 2.*) $B$G$O!"(Btm $B$N(B {byte-compile | install} $B$r9T$&:](B -$B$K!"(Btm-mh-e, tm-gnus $B$N(B {byte-compile | install} $B$b9T$$$^$9!#(B - - -* tm-comp - -** message/rfc822 - - MUA $B$,J]B8$7$F$$$k(B message $B$r(B message/rfc822 $B7A<0$G$O(B tm-comp/insert-message $B$G!"I8=`$N(B key bind $B$O(B C-c -C-x m $B$G$9!#(B - - $B4X?t(B tm-comp/insert-message $B$O(B MUA $BKh$N(B message-inserter $B4X?t$rI,MW(B -$B$H$7$^$9!#(Bmessage-inserter $B$OJQ?t(B tm-comp/message-inserter-alist $B$KEP(B -$BO?$5$l$^$9!#$3$NJQ?t$O!"(Bmajor-mode $B$,(B key $B$G!"$=$l$KBP$9$kCM$,(B -message-inserter $B4X?t$G$"$kO"A[%j%9%H9=B$$r$7$F$$$^$9!#(B - - $B8=:_$N$H$3$m!"(Btm-mh-e $B$N$_!"$3$N5!G=$r$J$I$,JQ99(B -$B$5$l$F$$$^$9!#0J2<$G$O!"(Btm-view 5.21 $B$+$i$N$7!"%G!<%?9=B$$rJQ99$7$?!#6qBNE*$K$O!"=>Mh!"(B - - content-list = (Ba Ea Children) - - $BC"$7!"(B - Ba: article buffer $B$G$N$3$N(B content $B$N@hF,(B point - Ea: article buffer $B$G$N$3$N(B content $B$NKvHx(B point - Children: $B$3$N(B content $B$K4^$^$l$k(B content $B$N>pJs!#(B - content-list $B$rMWAG$H$9$k(B list $B$GI=$7!"(B - multipart $B$N(B content $B$G$J$$>l9g$O(B nil $B$,F~$k(B - -$B$H$$$&(B list $B$GI=8=$7$F$$$?$N$r!"(B - - content-info - = [point-min point-max type parameters encoding children] - - $BC"$7!"(B - point-min: article buffer $B$G$N$3$N(B content $B$N@hF,(B - point - point-max: article buffer $B$G$N$3$N(B content $B$NKvHx(B - point$B!J(BEa $B$H$O0[$J$j!"(Bpoint-min $B$H(B - point-max $B$G:n$i$l$k(B region $B$,$=$N(B content - $B$K$J$k$h$&$K$J$C$F$$$k!#(Bpoint-max = Ea + 1 - $B$N4X78$,@.$jN)$D!K(B - type: $B$3$N(B content $B$N(B content-type/subtype - parameters: $B$3$N(B content $B$N(B Content-Type field $B$N(B - paraeter $B$rI=$9O"A[%j%9%H(B - encoding: $B$3$N(B content $B$N(B Content-Transfer-Encoding. - children: $B$3$N(B content $B$K4^$^$l$k(B content $B$N>pJs!#(B - content-info $B$rMWAG$H$9$k(B list $B$GI=$7!"(B - multipart $B$N(B content $B$G$J$$>l9g$O(B nil $B$,F~$k(B - -$B$H$$$&(B vector $B$GI=8=$9$k$h$&$K$7$?!#(B - - $B$^$?!"=>Mh!"(Blist $B=hM}4X?t$r;H$C$FD>@\(B list $B$r@8@.!&;2>H$7$F$$$?$N$r!"(B -$B@8@.4X?t(B mime::make-content-info, $B;2>H4X?t(B mime::content-info/FOO (FOO -= {point-min|point-max|type|parameters|encoding|children}) $B$r;H$&$h$&(B -$B$K$7$?!#(B - - $B$^$?!"=>Mh!"(BContent-Type, Content-Transfer-Encoding field $B$N>pJs$r$$(B -$B$A$$$A(B buffer $B$r8!:w$7$F5a$a$F$$$?$N$r!"(Bcontent-info $B$r;2>H$9$k$h$&$K(B -$B$7$?!#(B - -*** preview-content-info - - preview buffer $B$K$*$$$F!"(Bmessage $B$K4^$^$l$k(B content $B$N9=B$$r5-21$9$k(B -buffer local $BJQ?t(B mime/preview-flat-content-list $B$r(B -mime::preview/content-list $B$K2~L>$7!"%G!<%?9=B$$rJQ99$7$?!#6qBNE*$K$O!"(B -$B=>Mh!"(B - - (Bp Ep buf Ba Ea) - - $BC"$7!"(B - Bp: preview buffer $B$G$N$3$N(B content $B$N@hF,(B point - Ep: preview buffer $B$G$N$3$N(B content $B$NKvHx(B point - buf: $B$3$N(B content $B$KBP1~$9$k(B article buffer - Ba: article buffer $B$G$N$3$N(B content $B$N@hF,(B point - Ea: article buffer $B$G$N$3$N(B content $B$NKvHx(B point - -$B$H$$$&(B list $B$GI=8=$7$F$$$?$N$r!"(B - - [Bp Ep buf cinfo] - - $BC"$7!"(B - Bp: preview buffer $B$G$N$3$N(B content $B$N@hF,(B point - Ep: preview buffer $B$G$N$3$N(B content $B$NKvHx(B point - buf: $B$3$N(B content $B$KBP1~$9$k(B article buffer - cinfo: $B$3$N(B content $B$rI=$9(B content-info - -$B$H$$$&(B vector $B$GI=8=$9$k$h$&$K$7$?!#(B - - $B$^$?!"=>Mh!"(Blist $B=hM}4X?t$r;H$C$FD>@\(B list $B$r@8@.!&;2>H$7$F$$$?$N$r!"(B -$B@8@.4X?t(B mime::make-preview-content-info, $B;2>H4X?t(B -mime::preview-content-info/FOO (FOO = {Bp|Ep|buf|cinfo}) $B$r;H$&$h$&$K(B -$B$7$?!#(B - - -*** $B$=$NB>(B - -$B!&(Bparser $B$rJQ99$7$?(B - -$B!&L?L>5,B'$rJQ99$7$?(B - -$B!&(Barticle buffer $B$N(B buffer local $BJQ?t(B mime/preview-buffer $B$r(B - mime::article/preview-buffer $B$K2~L>$7$?!#(B - -$B!&4X?t(B mime/exit-view-mode $B$r(B mime-viewer/kill-buffer $B$K2~L>$7$?!#(B - -$B!&(Bmime/viewer-mode $B$N3F4X?t$r(B mime/FOO $B$+$i(B mime-viewer/FOO $B$K2~L>$7$?!#(B - $B!JNc!'(Bmime/up-content $B"*(B mime-viewer/up-content$B!K(B - -$B!&4X?t(B mime/quit-view-mode $B$r(B mime-viewer/quit $B$K2~L>$7$?!#(B - -$B!&$=$NB>(B - - -** $B$NJQ99(B - -(1) $BJQ?t(B mime/content-filter-alist $B$r(B mime-viewer/content-filter-alist - $B$K2~L>$7$?!#(B - -(2) $BJQ?t(B mime/make-content-subject-function $B$r(B - mime-viewer/content-subject-function $B$K2~L>$7!"0z?t$rJQ99$7$?!#(B - -(3) $BJQ?t(B mime/make-content-header-filter $B$r(B - mime-viewer/content-header-filter-function $B$K2~L>$7!"0z?t$rJQ99$7(B - $B$?!#(B - -(4) $BJQ?t(B mime/default-showing-Content-Type-list $B$r(B - mime-viewer/default-showing-Content-Type-list $B$K2~L>$7$?!#(B - -(5) $BJQ?t(B mime/go-to-top-node-method-alist $B$r(B - mime-viewer/quitting-method-alist $B$K2~L>$7$?!#$^$?!"(Bsymbol $BL>$d;E(B - $BMM$NJQ99$K$H$b$J$$!"=i4|@_Dj$rJQ99$7$?!#(B - - -** $B?7$7$$JQ?t(B - -*** $BJQ?t(B mime-viewer/childrens-header-showing-Content-Type-list - - $B;R6!$N(B header $B$rI=<($9$Y$-(B content-type/subtype $B$N(B list. - - $B$3$NJQ?t$O!"JQ?t(B mime-viewer/content-header-filter-function $B$N4{DjCM(B -$B$H$7$FDj5A$5$l$F$$$k4X?t(B -mime-viewer/default-content-header-filter-function $B$,;2>H$7$F$$$k$N$G!"(B -$B$b$7!"JQ?t(B mime-viewer/content-header-filter-function $B$NCM$rJL$N4X?t$K(B -$B$9$l$PL58z$K$J$k!#(B - - -*** $BJQ?t(B mime-viewer/ignored-field-list - - header $B$rI=<($9$k>l9g$G$bI=<($7$J$$(B field $B$N(B field-name $B$N(B list. - - $B$3$NJQ?t$O!"JQ?t(B mime-viewer/content-header-filter-function $B$N4{DjCM(B -$B$H$7$FDj5A$5$l$F$$$k4X?t(B -mime-viewer/default-content-header-filter-function $B$,;2>H$7$F$$$k$N$G!"(B -$B$b$7!"JQ?t(B mime-viewer/content-header-filter-function $B$NCM$rJL$N4X?t$K(B -$B$9$l$PL58z$K$J$k!#(B diff --git a/doc/tiny-mime-eng.ol b/doc/tiny-mime-eng.ol deleted file mode 100644 index 47421ab..0000000 --- a/doc/tiny-mime-eng.ol +++ /dev/null @@ -1,104 +0,0 @@ -[[R -\title{tiny-mime manual (English Version)} -\author{Morioka Tomohiko} -\date{1994/8/4} -\maketitle -]]R - -* Overview - - tiny-mime is a multilingual MIME style message header -encoder/decoder based on RFC 1522 for Mule, NEmacs, and NEpoch. I -modified Mr.Enami's ISO-2022-JP Base64 MIME header decoder and make -it. Mr.Enami's program can decode only ISO-2022-JP Base64 header. But, -current tiny-mime has following functions: - - - unfolding at decoding - - encoding/decoding multilingual character sets, such as, - ISO-2022-JP, ISO-2022-JP-2, ISO-2022-CN, ISO-2022-KR, ISO-8859-*, - US-ASCII, EUC-KR - - B and Q-encoding - - -* character set and encoding - -** Mule - - Mule can use multilingual text, so in Mule, tiny-mime supports -ISO-2022-JP, ISO-2022-JP-2, US-ASCII, ISO-8859-1..9, ISO-2022-CN, -ISO-2022-KR, EUC-KR, et al. - - Additionally, you can add or change encoding/decoding for character -sets by function mime/set-charset-and-encoding. - -** NEmacs and NEpoch - - NEmacs can use Japanese and English only, so in NEmacs, tiny-mime -supports encoding/decoding only ISO-2022-JP and US-ASCII. - - And decoding ISO-8859-* encoded-words if they includes only ASCII. - - -* How to use tiny-mime.el (simple way) - -** decoding - - Please load tiny-mime.el, and do following command on the buffer -which you want to decode. - - M-x mime/decode-message-header - - And you can decode region by - - M-x mime/decode-region - -** encoding - - Please load tiny-mime.el, and do following command on the buffer -which you want to encode. - - M-x mime/encode-message-header - - - -* variables - -** mime/no-encoding-header-fields - - You can specify list of fields which you don't want to -encode. Default value is ("X-Nsubject"). - -example: don't encode Subject and X-Nsubject fields - -[[E ----------------------------------------------------------------------- -(setq mime/no-encoding-header-fields '("X-Nsubject" "Subject")) ----------------------------------------------------------------------- -]]E - - -* How to add or change character sets - - In Mule, you can add or change character sets by function -mime/set-charset-and-encoding. - - Function: mime/set-charset-and-encoding lc cs charset encoding - - lc: leading-char - cs: coding-system. Please specify nil if you don't want to use - coding-system for 1 octet character. - charset: MIME character set - encoding: encoding method for encoder - - -example 1: encode EUC-KR B encoding for KS C5601-1987 characters - - (mime/set-charset-and-encoding lc-kr *euc-kr* "EUC-KR" "B") - - -example 2: encode/decode koi8-r Q encoding - - (mime/set-charset-and-encoding lc-prv11 nil "KOI8-R" "Q") - -[WARNING] In this version, handling for private character is very ad -hoc. (^_^; I want to improve. diff --git a/doc/tiny-mime-eng.tex b/doc/tiny-mime-eng.tex deleted file mode 100644 index 475c4d0..0000000 --- a/doc/tiny-mime-eng.tex +++ /dev/null @@ -1,158 +0,0 @@ -\documentstyle{article} -\setcounter{secnumdepth}{6} -\setcounter{tocdepth}{6} -\topsep=0.1cm -\parsep=0.1cm -\itemsep=0.0cm -\begin{document} -\title{tiny-mime manual (English Version)} -\author{Morioka Tomohiko} -\date{1994/8/4} -\maketitle -\medskip - -\section{Overview} -\medskip -\par -tiny-mime is a multilingual MIME style message header -encoder/decoder based on RFC 1522 for Mule, NEmacs, and NEpoch. I -modified Mr.Enami's ISO-2022-JP Base64 MIME header decoder and make -it. Mr.Enami's program can decode only ISO-2022-JP Base64 header. But, -current tiny-mime has following functions: -\medskip -\begin{itemize} -\item unfolding at decoding -\item encoding/decoding multilingual character sets, such as, -ISO-2022-JP, ISO-2022-JP-2, ISO-2022-CN, ISO-2022-KR, ISO-8859-*, -US-ASCII, EUC-KR -\item B and Q-encoding -\medskip -\medskip -\end{itemize} - -\section{character set and encoding} -\medskip - -\subsection{Mule} -\medskip -\par -Mule can use multilingual text, so in Mule, tiny-mime supports -ISO-2022-JP, ISO-2022-JP-2, US-ASCII, ISO-8859-1..9, ISO-2022-CN, -ISO-2022-KR, EUC-KR, et al. -\medskip -\par -Additionally, you can add or change encoding/decoding for character -sets by function mime/set-charset-and-encoding. -\medskip - -\subsection{NEmacs and NEpoch} -\medskip -\par -NEmacs can use Japanese and English only, so in NEmacs, tiny-mime -supports encoding/decoding only ISO-2022-JP and US-ASCII. -\medskip -\par -And decoding ISO-8859-* encoded-words if they includes only ASCII. -\medskip -\medskip - -\section{How to use tiny-mime.el (simple way)} -\medskip - -\subsection{decoding} -\medskip -{\baselineskip=10pt -\begin{verbatim} - Please load tiny-mime.el, and do following command on the buffer -which you want to decode. -\end{verbatim}} -\medskip -{\list{}{\leftmargin=8ex}\item[] -\par -M-x mime/decode-message-header -\endlist} -\medskip -{\baselineskip=10pt -\begin{verbatim} - And you can decode region by -\end{verbatim}} -\medskip -{\baselineskip=10pt -\begin{verbatim} - M-x mime/decode-region -\end{verbatim}} -\medskip - -\subsection{encoding} -\medskip -{\baselineskip=10pt -\begin{verbatim} - Please load tiny-mime.el, and do following command on the buffer -which you want to encode. -\end{verbatim}} -\medskip -{\list{}{\leftmargin=8ex}\item[] -\par -M-x mime/encode-message-header -\endlist} -\medskip -\medskip -\medskip - -\section{variables} -\medskip - -\subsection{mime/no-encoding-header-fields} -\medskip -\par -You can specify list of fields which you don't want to -encode. Default value is ("X-Nsubject"). -\medskip -\begin{description} -\item[example:]don't encode Subject and X-Nsubject fields -\medskip -\end{description} -{\baselineskip=10pt -\begin{verbatim} ----------------------------------------------------------------------- -(setq mime/no-encoding-header-fields '("X-Nsubject" "Subject")) ----------------------------------------------------------------------- -\end{verbatim}} -\medskip -\medskip - -\section{How to add or change character sets} -\medskip -\par -In Mule, you can add or change character sets by function -mime/set-charset-and-encoding. -\medskip -\begin{description} -\item[Function:]mime/set-charset-and-encoding lc cs charset encoding -\medskip -\begin{description} -\item[lc:]leading-char -\item[cs:]coding-system. Please specify nil if you don't want to use -coding-system for 1 octet character. -\item[charset:]MIME character set -\item[encoding:]encoding method for encoder -\medskip -\medskip -\end{description} -\end{description} -\begin{description} -\item[example 1:]encode EUC-KR B encoding for KS C5601-1987 characters -\medskip -\par -(mime/set-charset-and-encoding lc-kr *euc-kr* "EUC-KR" "B") -\medskip -\medskip -\item[example 2:]encode/decode koi8-r Q encoding -\medskip -\par -(mime/set-charset-and-encoding lc-prv11 nil "KOI8-R" "Q") -\medskip -\item[{[}WARNING{]}]In this version, handling for private character is very ad -hoc. (\verb+^+\_\verb+^+; I want to improve. -\end{description} -\end{document} diff --git a/doc/tiny-mime-jp.ol b/doc/tiny-mime-jp.ol deleted file mode 100644 index 2b5368d..0000000 --- a/doc/tiny-mime-jp.ol +++ /dev/null @@ -1,260 +0,0 @@ -$B!X(Btiny-mime.el $B@bL@=q!Y(B -by. $Be$GF0:n$9$k(B MIME message -header $B$N(B encoder/decoder $B$G$9!#%*%j%8%J%k$O!"@N!"$($J$_(B $B$D$0$H$b(B $B$5$s(B -$B$,(B fj.editor.emacs $B$KEj9F$5$l$?(B MIME message header $B$N(B decoder $B$G$9!#(B - - $B8=:_$G$O!"Ev;~$N$b$N$KHf$Y!"(B - - $B!&(Bdecoding $B;~$K$*$1$k(B unfolding $B5!G=(B - $B!&(BISO-2022-JP $B$K2C$(!"(BISO-8859-*, US-ASCII $B$J$I$N(B encoding/decoding - $B!&(BQ-encoding $B$N(B decoding - -$B$H$$$C$?5!G=$r;}$C$F$$$^$9!#(B - - -* tiny-mime.el $B$N%5%]!<%H$9$k(B character set, encoding - - tiny-mime.el $B$O!"e$G!"(B - - M-x mime/decode-message-header - -$B$re$G!"(B - - M-x mime/encode-message-header - -$B$rl9g!"(Btiny-mime.el $B$,(B encode $B$7$J$/$F$b!"(B -mime.el $B$,(B encode $B$9$k$N$G!"(Bmime.el $B$N(B message header encoder $B$,F/$+$J(B -$B$$$h$&$K$K@_Dj$7$^$9!#(B - -** mime/use-X-Nsubject - - $B$3$NJQ?t$NCM$,(B t $B$N>l9g!"(Bmessage header $B$r(B encode $B$9$k;~!"(Bencode $B$7(B -$B$?7k2L!"(BSubject $B$K(B encoded-word $B$,4^$^$l$k>l9g!"(BSubject $B$r(B decode $B$7$?(B -$B$b$N$rF~$l$?(B X-Nsubject $B$r:n@.$7$^$9!#(B - - default $B$G$O(B nil $B$,;XDj$5$l$F$$$^$9!#(B - -$B!NCm0U!O(BMule $B$G(B ISO-2022-JP $B$K4^$^$l$k$b$N0J30$NJ8;z=89g$r;H$&>l9g$O!"(B -$B$3$l$r;XDj$7$J$$J}$,8-L@$G$9!#(B - -** mail-header-separator - - $B4X?t(B mime/encode-message-header $B$K$*$1$k(B message header $B$H(B body part -$B$N6h@Z$j$rI=$9JQ?t$G$9!#Nc$($P!"(BGNUS $B$G$O(B "--text follows this line--" -$B$,;XDj$5$l$^$9!#(B - -$B!NCm0U!O$3$NJQ?t$NJ8;zNs$O!"(Bversion 2.6 $B$h$j@55,I=8=$G$O$J$/$J$j$^$7$?!#(B - - -* mailer, news reader $B$X$NAH$_9~$_(B - - $BF|>oE*$K!"L50U<1$K(B MIME header $B$rK\Mh$N8@8l$G8+$?$$$H$$$&$N$OEvA3$N(B -$BM_5a$G$9!#$=$3$G!"(Btiny-mime.el $B$r(B mailer $B$d(B news reader $B$KAH$_9~$`$H<+(B -$BF0E*$K(B MIME header $B$N(B encode/decode $B$,$G$-$^$9!#(B - - $B$^$?!"(Bmetamail $B$r;H$C$F$*$i$l$kJ}$G$b!"IaCJ$O(B message header $B$N(B -decode $B$@$1$GNI$/$F!"3($d2;$J$I$r:F@8$9$k;~$@$1(B metamail $B$r;H$&$H$$$&(B -$B$h$&$J;H$$J}$b$G$-$^$9!#(B - - $B$3$NL\E*$rl9g$N$?$a$K!"(B - - (mime/decode-string $BJ8;zNs(B) - -$B$H$$$&4X?t$bMQ0U$7$F$$$^$9!#(B - - GNUS $B$H(B mh-e $B$K4X$7$F$O!"(Btm-gnus, tm-mh-e $B$H$$$&(B MIME $BBP1~2=%b%8%e!<(B -$B%k$rMQ0U$7$F$$$^$9!#(B - - $B$3$l$i$N!"3F(B MUA $B$KBP1~$9$k%b%8%e!<%k$r(B load $B$9$k$H(B tiny-mime.el $B$K(B -$B$h$k(B MIME header $B$NI|85$H(B tm-body $B$rMxMQ$7$?(B MIME body $B$N:F@8$,9T$J$((B -$B$^$9!#(B - - $B>\$7$/$O!"$=$l$>$l$N@bL@=q$r$*FI$_2<$5$$!#(B - - -* mime.el $B$H$NJ;MQ(B - - mime.el $B$HJ;MQ$9$kNc$r<($7$^$9!#$3$NNc$N>l9g!"(BISO-2022-JP $BJ8;zNs$N(B -encode $B$O(B tiny-mime.el $B$,9T$J$$!"$=$l0J30$NJ8;z=89g$KB0$9$kJ8;zNs$O(B -mime.el $B$,(B encode $B$7$^$9!#(B - - $B$^$?!"(Btiny-mime.el $B$,(B encode $B$7$J$+$C$?J8;zNs$b(B mime.el $B$,(B encode $B$9(B -$B$k$N$G!"7k2LE*$K!"I,$:A4$F$N(B field $B$,(B encode $B$5$l$k$3$H$KCm0U$7$F2<$5(B -$B$$!#(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 $B$N(B encoder $B$r(B tiny-mime $B$N$b$N$r;H$&!#(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 - -** $BFCDj$N(B field $B$r(B encode $B$7$?$/$J$$>l9g(B - - $BFCDj$N(B field $B$r(B encode $B$7$?$/$J$$>l9g!"(Btiny-mime.el $B$NJQ?t(B -mime/no-encoding-header-fields $B$K$h$C$F!"(Btiny-mime.el $B$K$h$k(B encode $B$r(B -$B$d$a$k$3$H$,$G$-$^$9$,!"(Bmime.el $B$,(B encode $B$9$k$N$G$O0UL#$,$"$j$^$;$s!#(B -$B$=$3$G!"l9g$O!"(Bnil $B$r;XDj$9$k!#(B - charset: MIME $B$N(B charset. - encoding: encode $B$9$k:]$N(B encoding. - - - $BNc!'(B KS C5601-1987 $B$r(B EUC-KR $B$N(B B encoding $B$9$k$h$&$K@_Dj$9$k(B - - (mime/set-charset-and-encoding lc-kr *euc-kr* "EUC-KR" "B") - - - $BNc!'(B koi8-r $B$r(B Q encoding $B$9$k$h$&$K@_Dj$9$k!#(B - - (mime/set-charset-and-encoding lc-prv11 nil "KOI8-R" "Q") - - -$B!NCm0U!O8=:_$N$H$3$m!"(Bprivate character $B$N@_Dj$OFq$"$j$G$9!#(B(^_^; diff --git a/doc/tiny-mime-jp.tex b/doc/tiny-mime-jp.tex deleted file mode 100644 index 3beb18b..0000000 --- a/doc/tiny-mime-jp.tex +++ /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 index 815fa2e..0000000 --- a/doc/tiny-mime-jp.texi +++ /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{$BZ$7$^$;$s!#$7$+$7$J$,$i!"(BUS-ASCII $B$NHO0O$G$OF0:n$9$k$H;W$o$l(B -$B$^$9!#!J$"$^$j0UL#$,$J$$$+$bCN$l$^$;$s$,!K(B - -@section{NEmacs, NEpoch} - -ISO-2022-JP, US-ASCII $B$N(B encoding/decoding $B$r%5%]!<%H$7$^$9!#(B - -$B$^$?!"(BISO-8859-*$B$G$"$C$F$b!"(Bencoded-text $B$K4^$^$l$kJ8;zNs$,e$G!"(B - -@example - M-x mime/decode-message-header -@end example - -$B$re$G!"(B - -@example - M-x mime/encode-message-header -@end example - -$B$rl9g!"(Btiny-mime.el $B$,(B encode $B$7$J$/$F$b!"(B -mime.el $B$,(B encode $B$9$k$N$G!"(Bmime.el $B$N(B message header encoder $B$,F/$+$J(B -$B$$$h$&$K$K@_Dj$7$^$9!#(B -@end defvr - -@defvr{Variable} mime/use-X-Nsubject - -$B$3$NJQ?t$NCM$,(B t $B$N>l9g!"(Bmessage header $B$r(B encode $B$9$k;~!"(Bencode $B$7$?(B -$B7k2L!"(BSubject $B$K(B encoded-word $B$,4^$^$l$k>l9g!"(BSubject $B$r(B decode $B$7$?$b(B -$B$N$rF~$l$?(B X-Nsubject $B$r:n@.$7$^$9!#(B - -default $B$G$O(B nil $B$,;XDj$5$l$F$$$^$9!#(B - -$B!NCm0U!O(BMule $B$G(B ISO-2022-JP $B$K4^$^$l$k$b$N0J30$NJ8;z=89g$r;H$&>l9g$O!"(B -$B$3$l$r;XDj$7$J$$J}$,8-L@$G$9!#(B -@end defvr - - -@node Customize, Top, Variable, Top -@comment node-name, next, previous, up -@chapter{$B%+%9%?%^%$%:(B} -@cindex{$B%+%9%?%^%$%:(B} - -@menu -* Customize-for-charset:: -@end menu - -@node Customize-for-charset, Customize, Customize, Customize -@comment node-name, next, previous, up -@section{charset $B$NDI2C!&JQ99(B} -@cindex{charset $B$NDI2C!&JQ99(B} - -Mule $B$G$O!"4X?t(B mime/set-charset-and-encoding $B$G!"(Bcharset $B$NDI2C!&JQ99(B -$B$,$G$-$^$9!#(B - -@deffn{Function} mime/set-charset-and-encoding LC CS CHARSET ENCODING - -@table @var -@item LC -charset $B$KBP1~$9$k(B leading-char $B$r;XDj$9$k!#(B - -@item CS -charset $B$KBP1~$9$k(B coding-system $B$r;XDj$9$k!#(B1 octet $BJ8;z=89g$G(B -coding-system $B$r:n$i$J$$>l9g$O!"(Bnil $B$r;XDj$9$k!#(B - -@item CHARSET -MIME $B$N(B charset. - -@item ENCODING -encode $B$9$k:]$N(B encoding. -@end table - -@end deffn - -@bye diff --git a/doc/tl-jp.texi b/doc/tl-jp.texi deleted file mode 100644 index 576191b..0000000 --- a/doc/tl-jp.texi +++ /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{$Be$G8_49@-$r$H$k$?$a$N(B -$B5!9=$rMQ0U$7$F$$$^$9!#(B - -$B$=$N0l$D$O!"(BEmacs 18 $B$G(B Emacs 19 $B$N4X?t$rMQ0U$7$F!"(BEmacs 19 $B$G3HD%$5$l(B -$B$?5!G=$r(B Emacs 18 $B$GMxMQ$9$k$?$a$N(B module `tl-18' $B$G$9!#(B - -$B$b$&0l$D$O!"(BNEmacs, Original Emacs, Mule $B$J$I$G$NJ8;z!"J8;zNs$N(B -$B$N(B Emacs $B$H$N8_49@-$r(B} - -@deffn{Function} attribute-add-narrow-attribute ATR FROM TO - -@var{FROM} $B$H(B @var{TO} $B$G0O$^$l$?(B region $B$K(B @var{ATR} $B$N(B attribute $B$r(B -$BIU$1$k!#(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 $B$O!"(BOriginal Emacs 19 $B$K$*$$$F!"$N(B Emacs $B$H$N8_49@-$r$N(B Emacs $B$H$N8_49@-$r$KE,Ev$J(B field-unifier $B$,8+$D$+$i$J$+$C$?>l9g$K5/F0$5$l$k(B -field-unifier. field @var{CLASS} $B$H(B field @var{INSTANCE} $B$N(B -field-unify $B$r9T$&!#!J(Bjinn $B8_494X?t!K(B -@end deffn - - -@deffn{Function} field-unify CLASS INSTANCE - -field @var{CLASS} $B$H(B field @var{INSTANCE} $B$N(B field-unify $B$r9T$&!#l9g$G$b@5$7$/J8;zC10L$G@ZCG$7$^$9!#(B -@end deffn - - -@deffn{Function} get-version-string ID - -RCS $B$N(B version $BJ8;zNs(B @var{ID} $B$+$i?t;z$H(B `.' $B$+$i$N$_9=@.$5$l$k(B -version number $BJ8;zNs$rJV$9!#(B -@end deffn - - -@deffn{Function} replace-as-filename STR - -$BJ8;zNs(B @var{STR} $B$N$+$i(B file name $B$H$7$FLdBj$N$"$kJ8;z$rA0$N(B symbol $B$rJV$9!#!J(Bjinn $B8_494X?t!K(B -@end deffn - -@deffn{Function} top-string-match PAT STR - -$BJ8;zNs(B @var{PAT} $B$,J8;zNs(B @var{STR} $B$N@hF,$K4^$^$l$k>l9g!"(B@code{(PAT -$B;D$j(B)} $B$H$$$&7A<0$N(B list $B$rJV$9!#!J(Bjinn $B8_494X?t!K(B -@end deffn - -@deffn{Function} middle-string-match PAT STR - -$BJ8;zNs(B @var{PAT} $B$,J8;zNs(B @var{STR} $B$N$I$3$+$K4^$^$l$k>l9g!"(B@code{($BA0(B -PAT $B;D$j(B)} $B$H$$$&7A<0$N(B list $B$rJV$9!#!J(Bjinn $B8_494X?t!K(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 $B$O(B mail $B$d(B News $B$J$I$N(B message header $B$N=hM}$K4X$9$kM-MQ$J4X(B -$B?t$r=8$a$?(B module $B$G$9!#(B - -tl-header $B$rMxMQ$9$k$K$O(B @code{(require 'tl-header)} $B$r=q$$$F2<$5$$!#(B - - -@defvr{Constant} message/quoted-string-regexp - -RFC 822 $B$K$*$1$k(B quoted-string $B$rI=$9@55,I=8=!#(B -@end defvr - -@defvr{Constant} message/field-name-regexp - -RFC 822 $B$K$*$1$k(B field-name $B$rI=$9@55,I=8=!#(B -@end defvr - -@defvr{Constant} message/field-body-regexp - -RFC 822 $B$K$*$1$k(B field-body $B$rI=$9@55,I=8=!#(B -@end defvr - -@defvr{Constant} message/field-regexp - -RFC 822 $B$K$*$1$k(B field $B$rI=$9@55,I=8=!#(B -@end defvr - -@defvr{Constant} message/word-regexp - -RFC 822 $B$K$*$1$k(B word $B$rI=$9@55,I=8=!#(B -@end defvr - -@defvr{Constant} message/local-part-regexp - -RFC 822 $B$K$*$1$k(B local-part $B$rI=$9@55,I=8=!#(B -@end defvr - -@defvr{Constant} message/domain-regexp - -RFC 822 $B$K$*$1$k(B domain $B$rI=$9@55,I=8=!#(B -@end defvr - -@defvr{Constant} message/addr-spec-regexp - -RFC 822 $B$K$*$1$k(B addr-spec $B$rI=$9@55,I=8=!#(B -@end defvr - -@deffn{Function} message/get-field-body NAME - -message header $B$K$*$$$F(B @var{NAME} field $B$N(B body $B$rJV$9!#(B -@end deffn - -@deffn{Function} message/divide-field STR - -field $BJ8;zNs(B @var{STR} $B$r(B @code{(field-name field-body)} $B$H$$$&7A<0$N(B -list $B$K$7$FJV$9!#(B -@end deffn - -@deffn{Function} message/parse-addr-spec STR - -$BJ8;zNs(B @var{STR} $B$r(B addr-spec $B$H$7$F9=J82r@O$7!"(B@code{(addr-spec $B;D$j(B)} -$B$H$$$&7A<0$N%j%9%H$K$7$FJV$9!#(B -@end deffn - -@deffn{Function} message/parse-phrase-route-addr STR - -$BJ8;zNs(B @var{STR} $B$r(B phrase route-addr $B$H$7$F9=J82r@O$7!"(B@code{((phrase -"<" addr-spec ">") $B;D$j(B)} $B$H$$$&7A<0$N%j%9%H$K$7$FJV$9!#!JCm!'@53N$K$O!"(B -route $B$b8+$J$1$l$P$$$1$J$$$,!"(Broute $B$OL5$$$b$N$H$7$F2r@O$7$F$$$k!K(B -@end deffn - -@deffn{Function} message/parse-comment STR - -$BJ8;zNs(B @var{STR} $B$r(B comment $B$H$7$F9=J82r@O$7!"(B@code{(("(" comment ")") -$B;D$j(B)} $B$H$$$&7A<0$N%j%9%H$K$7$FJV$9!#(B -@end deffn - -@deffn{Function} message/parse-address STR - -$BJ8;zNs(B @var{STR} $B$r(B address $B$H$7$F9=J82r@O$7!"(B@code{(address $B;D$j(B)} $B$H(B -$B$$$&7A<0$N%j%9%H$K$7$FJV$9!#(B -@end deffn - -@deffn{Function} message/parse-addresses STR - -$BJ8;zNs(B @var{STR} $B$r(B address list $B$H$7$F9=J82r@O$7!"(B@code{(address1 -address2 ...)} $B$H$$$&7A<0$N%j%9%H$K$7$FJV$9!#(B -@end deffn - -@deffn{Function} message/unfolding-string STR - -$BJ8;zNs(B @var{STR} $B$r(B field $B$H$7$F(B unfolding $B$7$?J8;zNs$rJV$9!#(B -@end deffn - -@deffn{Function} message/strip-quoted-string STR - -$BJ8;zNs(B @var{STR} $B$r(B quoted-string $B$H$7$F(B strip $B$7$?J8;zNs$rJV$9!#(B -@end deffn - - -@node Concept Index, Command Index, Command List, Top -@unnumbered $B35G0:w0z(B - -@printindex cp - - -@node Command Index, Variable Index, Concept Index, Top -@unnumbered $B4X?t!&%3%^%s%I:w0z(B - -@printindex fn - - -@node Variable Index, Concept Index, Command Index, Top -@unnumbered $BJQ?t:w0z(B - -@printindex vr - -@bye diff --git a/doc/tm-comp-2.0-jp.pln b/doc/tm-comp-2.0-jp.pln deleted file mode 100644 index e5d1457..0000000 --- a/doc/tm-comp-2.0-jp.pln +++ /dev/null @@ -1,62 +0,0 @@ -$B2,It!w5~Bg$G$9!#(B - -In article <199408221831.DAA24174@melon.jaist.ac.jp>, - $B writes: - -$B $B8= $B7A<0$KJ,3d$7$F$/$l$k$b$N$r=q$-$^$7$?!#(B - -$BJXMx$J$N$G!"$9$3$72~NI(B($B2~0-!)(B)$B$7$F$_$^$7$?!#(B - -1. mime-mode-exit $B$r>r7oIU$-$G8F$V$h$&$K$7!"(Bmime-mode $B0J30$G$b(B - $B;H$($k$h$&$K$7$?!#(B - - $B:G6a(B mh-e 4.1 $B$N(B mh-edit-mhn $B$b;H$C$F$_$F$$$k$N$G!"(Bmime-mode $B0J30$G$b(B - $B;H$($k$h$&$K$7$?$H$$$&$N$,F05!$G$9!#6KC<$K8@$($PIaCJ$O(B MIME $B$rA4A3;H$C$F(B - $B$$$J$$?M$G$b!"<+F0J,3d$K$O;H$($k$H;W$$$^$9!#(B - -$B!t(B mh-edit-mhn $B$GJQ49$7$?8e(B mime/view-mode $B$KF~$C$F%W%l%S%e!<$7!"(B - $B$&$^$/$$$C$F$J$+$C$?$i(B mh-revert-mhn-edit $B$G$d$jD>$9!"$H$$$&(B - $Bl9g$K$bBP1~$7$?!#(B - - mh-edit-mhn $B$N=PNO$O$3$N7A<0$J$N$G!"$d$`$rF@$:$=$&$7$^$7$?!#(B - -3. mime/draft-file-name $B$,(B nil $B$N$H$-$K;H$&%U%!%$%kL>$r0J2<$N$h$&$K$7$?!#(B - - (make-temp-name (expand-file-name "tm-draft" mime/tmp-dir)) - -4. $BJ,3d$7$?%a%C%;!<%8$K$O!"$b$H$N(B Subject $B$N$&$7$m$K(B (1/3) $B$J$I$H$D$/(B - $B$h$&$K$7$?!#(B - - $B6a$$>-Mh!"(Bsuper-pipe $B$d(B gnus-uu $B$N$h$&$K!"(Bmessage/partial $B$N$H$-$O$I(B - $B$l$+$R$H$D$N5-;v$r$_$l$PB>$N$rC5$7$K9T$/5!G=$,(B tm-view.el $B$Kl9g!"(BBcc:, Dcc: Fcc: $B$J$IK\MhAw$C$?;~$K>C$($k(B - $B$O$:$N$b$N$,FO$$$F$7$^$&(B($B$H$/$K(B Bcc: $B$,8+$($k$N$OLdBj(B)$B!#(B - $B1#$9%U%#!<%k%I$r;XDj$G$-$k$h$&$K$9$Y$-!#(B - -2. $B@8@.$5$l$k(B id $B$,D9$C$?$i$7$/$F$+$C$30-$$!#(B - ($BNc$($P(B GNUS $B$N(B message-id $B@8@.%k!<%A%s$rE>MQ$7$F$O$I$&$+(B) - -$B$J$I$,$"$j$^$9!#(B - -$B $B$^$?!"(Bmessage $B$N:GBg9T?t$rJQ?t(B mime/message-max-length $B$G;XDj$G$-$^(B -$B $B$9!#$H$j$"$($:!"(Bdefault $B$G$O(B 1000 $B9T$K$7$F$"$j$^$9$,!"$3$l$K4X$9$k0lHL(B -$B $BE*$JCM$O$"$k$s$G$7$g$&$+!)(B - -$B9T?t$h$j$O%P%$%H?t$,Bg;v$J$O$:$G!"$h$/8@$o$l$k$N$O(B1$BDL$"$?$j(B50KB$B$rD6$((B -$B$J$$$h$&$K$H$$$&@)Ls$G$9$M(B($B$&$A$N%;%s%?!<$NMxMQ$NAw$G!"Cf?H$O(B base64 -$B$G0l9T(B80$B;zDj$9$k$H!"(B600 $B9T6/$K$"$?$j$^$9!#$7$+$7(B50KB -$B0J>e$N$b$N$ODL$i$J$$$h$&$K$J$C$F$$$k$H$$$&$o$1$G$O$J$/C1$K0BA4$d8zN($r(B -$B9M$($F$NCM$G$7$g$&$+$i!"(Bsplit $B$NI8=`CM$G$b$"$k(B 1000 $B$GLdBj$J$$$H;W$$$^$9!#(B ------ -$B2,Itl9g!"(Bmh-send-letter $B$,K\Mh$b$D(B - $B5!G=$G$"$k!"(Bprefix argument $B$K$h$k@ZBX$($d!"(Bannotate $B$N(B - $B5!G=$,;H$($J$/$J$k!#(B -$B!&(Bnews-reply-mode $B$N>l9g!"(Bnntp-server $B$,(B open $B$5$l$F$$$J$$$H(B - $B$3$1$k!#$3$l$O(B gnus-post-news $B$rC1FH$K5/F0$7$?>l9g$d(B - $B=q$$$F$$$k$&$A$K(B connection $B$,@Z$l$?>l9g$K:$$k!#(B -$B!&(Bnews-inews-hook $B$d(B mh-before-send-letter-hook $B$b8z$+$J$$!#(B -$B!&J,3d8e$N%a%C%;!<%8$N%\%G%#It$N@hF,$K!"J,3dA0$N%a%C%;!<%8$N(B - $B%X%C%@It$,F~$k$,!"$=$3$K(B Fcc: $B$d(B Dcc: $B$,8+$($F$+$C$30-$$!#(B - -$B$J$I$NLdBjE@$,$"$j$^$7$?!#$=$3$G$3$l$i$rF'$^$($FBgI}$K2~NI$7$F(B -$B$_$^$7$?!#2~NIE@$N$"$i$^$7$O!"(B - -1$B!"J,3d$5$l$J$$%a%C%;!<%8$N>l9g$K$O!"(Bmime/message-default-sender-alist - $B$K=q$+$l$?K\Mh$N4X?t(B(mh-letter-mode $B$J$i(B mh-send-letter)$B$,8F$P$l$k$h(B - $B$&$K$7$?(B($B$3$l$G(B tm-comp $B$rI8=`@_Dj$K$$$l$F$7$^$C$F$b$[$\LdBj$J$$$H(B - $B;W$$$^$9(B)$B!#(B - -2. $BJ,3d$7$?%a%C%;!<%8$r$=$l$>$lAw$kJ}K!(B mime/message-sender-alist $B$H$O(B - $BJL$K!"J,3dAw?.A0$HJ,3dAw?.8e$K$=$l$>$l0l2s$E$D, who is famous as the author of GNUS. -tm-edit expands following points from mime.el: - -@itemize -@item based on RFC 1521/1522 -@item Content-Disposition field (RFC 1806) supports -@item multi-part in multi-part -@item PGP -@item strength automatic specification for parameter of file type -@end itemize - - -@menu -* mime/editor-mode:: -* single-part operations:: -* enclosure operation:: -* other operations of mime/editor-mode:: -@end menu - - -@node mime/editor-mode, single-part operations, tm-edit, tm-edit -@comment node-name, next, previous, up -@section mime/editor-mode -@cindex mime/editor-mode - -@emph{mime/editor-mode} is a minor mode to compose MIME message. -In this mode, @emph{tag} represents various kinds of data, you can -edit multi-part message. - -There are 2 kinds of @emph{tag}s: - -@itemize -@item single-part tag -@item multi-part tag -@end itemize - -single-part tag represents single part, this form is following: - -@example - --[[TYPE/SUBTYPE;PARAMETERS][ENCODING] - OPTIONAL-FIELDS] -@end example - -TYPE/SUBTYPE and PARAMETERS indicates type/subtype and parameters of -Content-Type field. TYPE/SUBTYPE is required, PARAMETERS is optional. - -ENCODING indicates Content-Transfer-Encoding field. It is optional too. - -OPTIONAL-FIELDS is to represent another fields except Content-Type -field and Content-Transfer-Encoding field. - -multi-part tags represent multi part. They consist of a pair of -@emph{multi-part beginning tag} and @emph{multi-part ending tag}. - -@emph{multi-part beginning tag}'s form is following: - -@example - --<>-@{ -@end example - -@emph{multi-part ending tag}'s form is following: - -@example - --@}-<> -@end example - -A region from multi-part beginning tag to multi-part ending tag is -called as @emph{enclosure}. - - -@node single-part operations, enclosure operation, mime/editor-mode, tm-edit -@comment node-name, next, previous, up -@section single-part operations -@cindex single-part - -Operations to make single-part are following: - -@table @kbd -@item @key{C-c C-x C-t} -Insert single-part tag indicates text part. - -@item @key{C-c C-x C-i} -Insert file as a MIME attachment. - -@item @key{C-c C-x C-e} -Insert external part. - -@item @key{C-c C-x C-v} -Record audio input until @key{C-g} is pressed, and insert as a audio -part. (It requires /dev/audio in default.) - -@item @key{C-c C-x C-y} -Insert current (mail or news) message. (It is MUA depended.) - -@item @key{C-c C-x C-m} -Insert mail message. (It is MUA depended.) - -@item @key{C-c C-x C-w, C-c C-x C-s} -Insert signature. - -@item @key{C-c C-x C-k} -Insert PGP public key. (It requires Mailcrypt package.) - -@item @key{C-c C-x t} -Insert any single-part tag. -@end table - - -@node enclosure operation, other operations of mime/editor-mode, single-part operations, tm-edit -@comment node-name, next, previous, up -@section enclosure operations -@cindex multi-part -@cindex enclosure - -Operations to make enclosure are following: - -@table @kbd -@item @key{C-c C-x a} -Enclose specified region as multipart/alternative. - -@item @key{C-c C-x p} -Enclose specified region as multipart/parallel. - -@item @key{C-c C-x m} -Enclose specified region as multipart/mixed. - -@item @key{C-c C-x d} -Enclose specified region as multipart/digest. - -@item @key{C-c C-x s} -Digital-sign to specified region. (*1) - -@item @key{C-c C-x e} -Encrypt to specified region. (*1) -@end table - -@b{[Notice]} -@enumerate -@item -It requires Mailcrypt package and pgp package. In addition, please set -symbol @code{pgp-elkins} or @code{pgp-kazu} to -variable @code{mime-editor/signing-type} and -@code{mime-editor/encrypting-type}. - -@code{pgp-elkins} indicates draft-elkins-pem-pgp-02.txt, -@code{pgp-kazu} indicates draft-kazu-pgp-mime-00.txt. -@end enumerate - - -@node other operations of mime/editor-mode, , enclosure operation, tm-edit -@comment node-name, next, previous, up -@section Another operation in mime/editor-mode. - -There are another operations in mime/editor-mode. - -@table @kbd -@item @key{C-c C-c} -Send current editing message. - -@item @key{C-c C-x C-p} -Preview current editing message. - -@item @key{C-c C-x C-z} -Exit mime/editor-mode. (@key{M-x mime/edit-again} is available to -reedit.) - -@item @key{C-c C-x ?} -Display help message. - -@item @key{M-x mime-editor/set-split} -Set current editing message to enable automatic splitting or not. -Form of automatic split messages is message/partial. - -@item @key{M-x mime-editor/set-sign} -Set current editing message to digital-sign or not. (*1) - -@item @key{M-x mime-editor/set-encrypt} -Set current editing message to encrypt or not. (*1) -@end table - -@b{[Notice]} -@enumerate -@item -It requires Mailcrypt package and pgp package. In addition, please set -symbol @code{pgp-elkins} or @code{pgp-kazu} to -variable @code{mime-editor/signing-type} and -@code{mime-editor/encrypting-type}. - -@code{pgp-elkins} indicates draft-elkins-pem-pgp-02.txt, -@code{pgp-kazu} indicates draft-kazu-pgp-mime-00.txt. -@end enumerate diff --git a/doc/tm-eng.tex b/doc/tm-eng.tex deleted file mode 100644 index 527b4cd..0000000 --- a/doc/tm-eng.tex +++ /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 index 50244a9..0000000 --- a/doc/tm-eng.tex,v +++ /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 $B!N(BNote$B!O(B} -\vspace{-1ex} -{\list{(*\arabic{asteriskcount})}{\usecounter{asteriskcount}\leftmargin=8ex} -\item Not return to the Summary mode unless tm-view has been setup using -tm-mh-e, tm-gnus, tm-rmail etc. -\item Actual playback/extract/print will be performed by a method. -\endlist} - - -\section{Customizing tm-gnus} - -\subsection{saving articles without decoding} - -By default, The articles will be saved as they appear in the buffer -at that time. - -You can save the articles always without decoding by setting a -tm-gnus/set-mime-header-decoding-mode variable to nil then call a -function which saves the articles. - -The following example shows how you can save an article without -decoding, preserving the current MIME header decoding mode. - -\begin{verbatim} - (let ((mm mime/header-decoding-mode)) - (tm-gnus/set-mime-header-decoding-mode nil) - (article save function) - (tm-gnus/set-mime-header-decoding-mode mm) - ) -\end{verbatim} - -The following is an example that saves the articles to a folder -of mh-e. - -\begin{verbatim} -(add-hook 'gnus-Startup-hook - (function - (lambda () - (setq gnus-default-article-saver - (function - (lambda () - (interactive) - (let ((mm mime/header-decoding-mode)) - (tm-gnus/set-mime-header-decoding-mode nil) - (gnus-Subject-save-in-folder) - (tm-gnus/set-mime-header-decoding-mode mm) - ))))))) -(add-hook 'gnus-startup-hook - (function - (lambda () - (setq gnus-default-article-saver - (function - (lambda () - (interactive) - (let ((mm mime/header-decoding-mode)) - (tm-gnus/set-mime-header-decoding-mode nil) - (gnus-summary-save-in-folder) - (tm-gnus/set-mime-header-decoding-mode mm) - ))))))) -\end{verbatim} - -\subsection{replying with encoded subject to an article with encoded subject} - -When you reply to an article, you may want to encode the Subject field only -when the original article has an encoded Subject. It can be done by -defining a hook as shown below. - -\begin{verbatim} -(add-hook 'gnus-article-prepare-hook - (function - (lambda () - (if (mime/exist-encoded-word-in-subject) - (setq mime/no-encoding-header-fields '("X-Nsubject")) - (setq mime/no-encoding-header-fields '("X-Nsubject" "Subject")) - )))) -\end{verbatim} - - -\chapter{tm-view} - -tm-view is a module which is used to examine the MIME messages. -It provides a mime/viewer-mode for that purpose. - -Regarding the functions of mime/viewer-mode, refer to -\ref{sec:mime/viewer-mode} section. - -\section{Defining Conditions of Decoding} - -A mime/content-decoding-condition variable is used to define the methods -which will be called at decoding. It replaces a -mime/content-decoding-method-alist variable of tm-view version 4.x. - -A mime/content-decoding-method-alist only allowed you to define a -method used for each content-type/subtype. Now a -mime/content-decoding-condition variable allows you to write more -complicated statements to describe the more detailed conditions to determine -which method is to be use. - -A mime/content-decoding-condition variable is defined as a list with the -following syntax. - -\begin{eqnarray*} - (condition_1 \;\; condition_2 \;\; ...) -\end{eqnarray*} - -\noindent Each condition is an association list with the following -syntax. - -\begin{eqnarray*} - ((field-type_1 \; . \; value_1) \;\; - (field-type_2 \; . \; value_2) \;\; ...) -\end{eqnarray*} - -\noindent - -For example, if you want to call the external method named tm-plain -to decode every text/plain type content, you can define the condition like - -\begin{quote} - ((type . "text/plain") - (method "tm-plain" nil 'file 'type 'encoding 'mode 'name)) -\end{quote} - -\noindent As you notice, now you can define the arguments to pass to a -external method. Refer to \ref{sec:method-arguments} section for more -explanation. - -This condition definition will match all contents whose types are text/plain. -Here is an another example. - -\begin{quote} - ((type . "text/plain") - (method "tm-plain" nil 'file 'type 'encoding 'mode 'name) - (mode . "play")) -\end{quote} - -\noindent This will match the content whose type is text/plain and -the mode is play. - - -\begin{quote} - ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file) - (mode . "play")) -\end{quote} - -\noindent This will match all contents which have a mode of play. - -The conditions defined in a mime/content-decoding-condition variable -are examined from top to bottom. The first matching condition -becomes valid and the method specified in that condition definition -will be executed. - - -\subsection{arguments of method} -\label{sec:method-arguments} - -You can specify the method field of the condition definition in two -different ways. - -\begin{eqnarray*} - (method \; . \; SYMBOL) -\end{eqnarray*} - -\noindent or - -\begin{eqnarray*} - (method \; STRING \; FLAG \; ARGUMENT_1 \; ARGUMENT_2 \; ...) -\end{eqnarray*} - -\noindent can be accepted. - -When a symbol is specified in the method field, it will be called as -an internal method. - -When a list is specified in the method field, it will be called as an -external method. The list below shows the meaning of the parameters -when the external method is specified in the method field. - -\begin{description} -\item [STRING] name of an external method -\item [FLAG] if t, both the content header and the content body are - passed to an external method. if nil, only the content body is - passed to an external method. -\item [ARGUMENT$_x$] list of arguments passed to an external method -\end{description} - -An argument passed to an external method can be in one of the following -formats. - -\begin{quote} - \begin{tabular}{lcl} - STRING&:&string itself \\ - 'SYMBOL&:&value gotten using SYMBOL as a key (see below) \\ - 'STRING&:&value gotten using STRING as a key (see below) - \end{tabular} -\end{quote} - -'SYMBOL can be one of the following. - -\begin{quote} - \begin{tabular}{lcl} - 'file&:&name of a file holding the original content \\ - 'type&:&content-type/sub-type \\ - 'encoding&:&content-transfer-encoding \\ - 'mode&:&decoding mode \\ - 'name&:&name of a file created by decode operation - \end{tabular} -\end{quote} - -\noindent 'STRING is used to search a parameter of the Content-Type -field whose name matches with it, and pass the value of that parameter -to the external method. - - -\subsection{examples} - -The default definition of a mime/content-decoding-condition variable is -shown below. - -\begin{verbatim} -(defvar mime/content-decoding-condition - '(((type . "text/plain") - (method "tm-plain" nil 'file 'type 'encoding 'mode 'name)) - ((type . "text/x-latex") - (method "tm-latex" nil 'file 'type 'encoding 'mode 'name)) - ((type . "audio/basic") - (method "tm-au" nil 'file 'type 'encoding 'mode 'name)) - ((type . "image/gif") - (method "tm-image" nil 'file 'type 'encoding 'mode 'name)) - ((type . "image/jpeg") - (method "tm-image" nil 'file 'type 'encoding 'mode 'name)) - ((type . "image/tiff") - (method "tm-image" nil 'file 'type 'encoding 'mode 'name)) - ((type . "image/x-tiff") - (method "tm-image" nil 'file 'type 'encoding 'mode 'name)) - ((type . "image/x-xbm") - (method "tm-image" nil 'file 'type 'encoding 'mode 'name)) - ((type . "image/x-pic") - (method "tm-image" nil 'file 'type 'encoding 'mode 'name)) - ((type . "video/mpeg")` - (method "tm-mpeg" nil 'file 'type 'encoding 'mode 'name)) - ((type . "application/octet-stream") - (method "tm-file" nil 'file 'type 'encoding 'mode 'name)) - ((type . "message/partial") - (method . mime/decode-message/partial-region)) - ((method "metamail" t - "-m" "tm" "-x" "-d" "-z" "-e" 'file)(mode . "play")) - )) -\end{verbatim} - -For example, if you want to use metamail to decode any contents, - -\begin{verbatim} -(setq mime/content-decoding-condition - '( - ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file)) - )) -\end{verbatim} - -\noindent will work. - -A mime/content-decoding-condition variable provides you of very flexible -way to define the conditions of decoding. It can be simple if you only -need the a few decoding methods, while it can be very complicated if you -want to use the separate decoding method for each type/mode combination. - - -\section{Method Script} -\label{sec:method} - -The methods are written in shell script. The arguments passed from tm-view.el -to each method can be customized using mime/content-decoding-condition -variable. If you use the tm-provided setting of -mime/content-decoding-condition variable, the following arguments are -passed to the method. - -\medskip -\begin{center} - \begin{tabular}{|c|l|} \hline - argument & \multicolumn{1}{|c|}{ meaning }\\ \hline - \$1 & file name before decoded \\ - \$2 & Content-Type (type/sub-type) \\ - \$3 & encoding - \{7bit / quoted-printable / base64 / 8bit / binary / ...\}\\ - \$4 & decoding-mode \{play / extract / print\} \\ - \$5 & file name after decoded \\ \hline - \end{tabular} -\end{center} -\medskip - -Exceptionally, no method is used to restore message/partial messages -into one message. It is done by tm-view.el itself. - - -\section{Changing Appearance} - -Each content in the preview buffer is shown in the following format. - -\begin{verbatim} -[1 (text/plain)] - -body -\end{verbatim} - -\noindent tm-view shows one content in three separate portions. - -\begin{itemize} -\item content subject -\item content header -\item content body -\end{itemize} - -\noindent - - -\subsection{content subject} - -A content subject indicates the beginning of a content in the preview -buffer. By default, it will be shown as below. - -\begin{quote} - [cid title (type)] -\end{quote} - -\noindent The cid field shows the position of a content in the message. -It can be considered as the chapter number in the message. The title -field is composed of the text string from the Subject and the -Content-Description field. The type field is a copy of a -text string specified in the type/subtype field of the content. - -You can customize how the content subject appears in the preview -buffer by modifying a definition of mime/make-content-subject-function -variable. The tm-view provides a following definition as a default. - -\begin{verbatim} -(defvar mime/make-content-subject-function - (function - (lambda (cid subj ctype) - (insert - (format "[%s %s (%s)]\n" - (if (listp cid) - (mapconcat (function - (lambda (num) - (format "%s" (+ num 1)) - )) - cid ".") - "0") - subj (car ctype))) - ))) -\end{verbatim} - -\noindent The following is an example of the customization. - -\begin{verbatim} -(setq mime/make-content-subject-function - (function - (lambda (cid subj ctype) - (if (not (member (car ctype) mime/default-showing-Content-Type-list)) - (insert - (format "[%s %s (%s)]\n" - (if (listp cid) - (mapconcat (function - (lambda (num) - (format "%s" (+ num 1)) - )) - cid ".") - "0") - subj (car ctype)))) - ))) -\end{verbatim} - -\noindent This will show the content subjects only for the contents whose body -portions are to be hidden. - - -\subsection{content header} - -A content header shows the header portion of a content in the preview -buffer. The default setup will show no content headers. - -You can customize how the content header appears in the preview -buffer by modifying a definition of mime/make-content-header-filter -variable. The tm-view provides a following default definition. - - -\begin{verbatim} -(defvar mime/make-content-header-filter - (function - (lambda (cid) - (if (listp cid) - (delete-region (goto-char (point-min)) - (or (and (re-search-forward "^$" nil t) - (match-end 0)) - (point-max)) - ) - ) - ))) -\end{verbatim} - -\noindent The default setting removes all content headers -until it detects a blank line delimiting the headers and the body. -If you change a mime/make-content-header-filter variable like - -\begin{verbatim} -(setq mime/make-content-header-filter - (function - (lambda (cid) - ))) -\end{verbatim} - -\noindent you will see all headers in the content header portion. - - -\subsection{content body} - -According to the type of content, the body portion of the content -is managed by tm-view using - -\begin{enumerate} -\item Hide -\item Process -\end{enumerate} - -\noindent techniques before it is put in the preview buffer. - -'Hide' is performed to prevent showing the non-text type content body -in the preview buffer. A mime/default-showing-Content-Type-list -variable defines which type of contents will NOT be hidden. It has -the following default value. - -\begin{verbatim} -(defvar mime/default-showing-Content-Type-list - '("text/plain" "text/richtext" "text/enriched" "text/x-latex" nil)) -\end{verbatim} - -\noindent All contents are hidden except text/plain, text/richtext, -text/enriched, text/x-latex, and non-MIME contents. - -A content body which was not "hidden" is then "processed". A list -in a mime/content-filter-alist variable will be searched looking up -an entry which matches with the content-type of a content. If a matching -entry is found, the function defined in that entry will be called -to "process" a content body. - -A mime/content-filter-alist variable has nil as a default value. It -will have non-nil after loading tm-rich.el which contains the following -lines. - -\begin{verbatim} -(aput 'mime/content-filter-alist - "text/enriched" (function mime/decode-text/enriched-body)) -\end{verbatim} - -\noindent This is defining a process to be done to the text/enriched -type content body. A function mime/decode-text/enriched-body will -be called if a text/enriched body need to be "processed". - - -\section{Restrictions} - -A decode-b.c file in the tm package is the source of the BASE64 -decoder. As it was not thoroughly tested, it may not work for you. -But at least you can see what it wants to do so that you can correct -errors in the source code. (\verb+^+\_\verb+^+; - -Or you can use mmencode in the metamail package to decode the BASE64 -encoded messages. - -Use mmencode to decode the Quoted-Printable messages. The tm package -does not include the decoder for Quoted-Printable. - - -\chapter{tiny-mime} - -tiny-mime is a multi-lingual MIME style message header -encoder/decoder based on RFC 1522 for Mule, NEmacs, and NEpoch. It -is based on Mr. Enami's ISO-2022-JP Base64 MIME header decoder which -could decode only ISO-2022-JP Base64-encoded headers. The following list -shows some of the functional enhancemets I made in tiny-mime. - -\begin{itemize} -\item unfolding at decoding -\item encoding/decoding multilingual character sets, such as, - ISO-2022-JP, ISO-2022-JP-2, ISO-2022-CN, ISO-2022-KR, ISO-8859-*, - US-ASCII, EUC-KR -\item Q-encoding -\item compliance with RFC 1522 -\end{itemize} - -\noindent and more. - -tiny-mime is a MIME headers encoder/decoder in the tm package and used -by tm-view and tm-MUAs. - - -\section{mime/decode-message-header} - -{\tt mime/decode-message-header} is a command to decode the MIME headers. -You need to load tiny-mime before you can use this command. - -{\list{}{\leftmargin=8ex}\item[] -\par -M-x {\tt mime/decode-message-header} -\endlist} - -\noindent will decode the MIME headers in the current buffer. - -tm-MUAs and tm-view use this command to decode the MIME headers. -Therefore, it may not be required to explicitly execute this command if -you are using them. - - -\section{mime/decode-region} - -You can decode the MIME messages within the specified region by executing - -{\list{}{\leftmargin=8ex}\item[] -\par -M-x {\tt mime/decode-region} -\endlist} - -\noindent This is useful when you want to decode the MIME headers -which are yanked from the referenced article. - - -\chapter{Reporting Bugs} - -Please report tm bugs you find to fj.editor.emacs or send a mail to -tm ML, $<$tm@@chamonix.jaist.ac.jp$>$. - -Via tm ML, You can report bugs of tm, obtain the latest release of tm -package, and discuss the future enhancements to tm. To join tm ML, -send a mail to - -\begin{center} - tm-admin@@chamonix.jaist.ac.jp -\end{center} - -\noindent Since the user registration is manually done, please write -the mail body in human-recognizable language (\verb+^+\_\verb+^+). - -\end{document} -@ - - -5.2 -log -@*** empty log message *** -@ -text -@d10 1 -a10 1 -\date{\verb$Id: tm-eng.tex,v 5.2 1994/10/11 17:17:05 morioka Exp $} -d44 1 -d147 9 -@ diff --git a/doc/tm-ew-d_en.texi b/doc/tm-ew-d_en.texi deleted file mode 100644 index 2faad70..0000000 --- a/doc/tm-ew-d_en.texi +++ /dev/null @@ -1,32 +0,0 @@ -@c $Id: tm-ew-d_en.texi,v 1.1 1995/12/13 09:27:22 morioka Exp $ - -@node encoded-word decoding, , function to preview, Functions of tm-view -@comment node-name, next, previous, up -@subsection encoded-word decoding -@cindex encoded-word -@cindex non-ASCII field -@cindex message header - -tm-view can decode encoded-word defined in RFC 1522. - - -@deffn{Command} mime/decode-message-header - -It decodes encoded-words in message header of current buffer. -@end deffn - - -@deffn{Command} mime-eword/decode-region beg end &optional unfolding - -It decodes encoded-words in region @var{beg} to @var{end}. - -If @var{unfolding} is non-nil, folded fields are unfolded. -@end deffn - - -@deffn{Function} mime-eword/decode-string str - -It decodes encoded-words in @var{str}. - -Folded string is unfolded. -@end deffn diff --git a/doc/tm-ew-d_ja.texi b/doc/tm-ew-d_ja.texi deleted file mode 100644 index c146c2e..0000000 --- a/doc/tm-ew-d_ja.texi +++ /dev/null @@ -1,35 +0,0 @@ -@c $Id: tm-ew-d_ja.texi,v 1.1 1995/12/11 08:32:16 morioka Exp $ - -@node encoded-word decoding, , function to preview, Functions of tm-view -@comment node-name, next, previous, up -@subsection encoded-word decoding -@cindex encoded-word -@cindex non-ASCII field -@cindex message header - -tm-view $B$O(B RFC 1522 $B$G5,Dj$5$l$?(B encoded-word $B$r(B decode $B$9$k$3$H$,$G$-(B -$B$^$9!#(B - - -@deffn{Command} mime/decode-message-header - -current buffer $B$N(B message header $BCf$N(B encoded-word $B$r(B decode $B$7$^$9!#(B -@end deffn - - -@deffn{Command} mime-eword/decode-region beg end &optional unfolding - -@var{beg} $B$H(B @var{end} $B$G0O$^$l$?NN0hCf$N(B encoded-word $B$r(B decode $B$7$^(B -$B$9!#(B - -@var{unfolding} $B$,(B non-nil $B$N>l9g!"(Bfold $B$5$l$?(B field $B$r(B unfolding $B$7$^(B -$B$9!#(B -@end deffn - - -@deffn{Function} mime-eword/decode-string str - -@var{str} $B$N(B encoded-word $B$r(B decode $B$7$^$9!#(B - -fold $B$5$l$?J8;zNs$O(B unfolding $B$5$l$^$9!#(B -@end deffn diff --git a/doc/tm-ew_en.texi b/doc/tm-ew_en.texi deleted file mode 100644 index d3b5646..0000000 --- a/doc/tm-ew_en.texi +++ /dev/null @@ -1,55 +0,0 @@ -@c $Id: tm-ew_en.texi,v 1.1 1995/12/13 09:27:39 morioka Exp $ - -@node encoded-word, customize, tm-view, Top -@comment node-name, next, previous, up -@chapter encoded-word -@cindex encoded-word -@cindex non-ASCII field -@cindex message header - -tm has some functions about encoded-word defined in RFC 1522. - -@menu -* encoded-word decoding:: decode -* encoded-word encoding:: encode -* encoded-word utility:: -@end menu - - -@node encoded-word encoding, encoded-word utility, encoded-word, encoded-word -@comment node-name, next, previous, up -@section encoded-word encoding - -@deffn{Command} mime/encode-message-header - -It encodes non-ASCII characters in message header of current buffer. -@end deffn - - -@deffn{Function} mime/encode-field str - -It encodes @var{str} as a field. -@end deffn - - -@deffn{Function} mime-eword/encode-string str &optional column mode - -It encodes @var{str}. - -@var{column} specifies start column. Default value is 0. - -@var{mode} specifies where @var{str} is in. Available values are -@code{text}, @code{comment}, @code{phrase}. Default value is -@code{phrase}. -@end deffn - - -@node encoded-word utility, , encoded-word encoding, encoded-word -@comment node-name, next, previous, up -@section encoded-word utility - -@deffn{Function} mime/exist-encoded-word-in-subject - -If there are encoded-words in Subject: field in current buffer, -it returns field-body of the Subject: field. -@end deffn diff --git a/doc/tm-ew_ja.texi b/doc/tm-ew_ja.texi deleted file mode 100644 index 35078bf..0000000 --- a/doc/tm-ew_ja.texi +++ /dev/null @@ -1,58 +0,0 @@ -@c $Id: tm-ew_ja.texi,v 3.0 1995/12/13 09:19:12 morioka Exp $ - -@node encoded-word, customize, tm-view, Top -@comment node-name, next, previous, up -@chapter encoded-word -@cindex encoded-word -@cindex non-ASCII field -@cindex message header - -tm $B$O(B RFC 1522 $B$G5,Dj$5$l$?(B encoded-word $B$r07$&$?$a$N4X?t$r;}$C$F$$$^(B -$B$9!#(B - -@menu -* encoded-word decoding:: decode -* encoded-word encoding:: encode -* encoded-word utility:: -@end menu - - -@node encoded-word encoding, encoded-word utility, encoded-word, encoded-word -@comment node-name, next, previous, up -@section encoded-word encoding - -@deffn{Command} mime/encode-message-header - -current buffer $B$N(B message header $BCf$NHs(B ASCII $BJ8;zNs$r(B encoded-word $B$H(B -$B$7$F(B encode $B$7$^$9!#(B -@end deffn - - -@deffn{Function} mime/encode-field str - -@var{str} $B$r(B field $B$H$7$F(B encode $B$7$^$9!#(B -@end deffn - - -@deffn{Function} mime-eword/encode-string str &optional column mode - -@var{str} $B$r(B encoded-word $B$H$7$F(B encode $B$7$^$9!#(B - -@var{column} $B$O$3$NJ8;zNs$,2?7eL\$+$i;O$^$C$F$$$k$+$r;XDj$7$^$9!#4{Dj(B -$BCM$O(B 0 $B$G$9!#(B - -@var{mode} $B$O$3$NJ8;zNs$,$I$&$$$&ItJ,$G;H$o$l$F$$$k$+$r<($7$^$9!#;XDj(B -$B$G$-$kCM$H$7$F$O(B @code{text}, @code{comment}, @code{phrase} $B$,$"$j$^$9!#(B -$B4{DjCM$O(B @code{phrase} $B$G$9!#(B -@end deffn - - -@node encoded-word utility, , encoded-word encoding, encoded-word -@comment node-name, next, previous, up -@section encoded-word utility - -@deffn{Function} mime/exist-encoded-word-in-subject - -current buffer $B$N(B Subject: field $B$K(B encoded-word $B$,B8:_$9$k>l9g!"(B -Subject: field $B$N(B field-body $B$rJV$7$^$9!#(B -@end deffn diff --git a/doc/tm-eword_ja.texi b/doc/tm-eword_ja.texi deleted file mode 100644 index a25a9df..0000000 --- a/doc/tm-eword_ja.texi +++ /dev/null @@ -1,261 +0,0 @@ -\input texinfo.tex -@c{-*-tm-eword manual-*-} -@setfilename tm-eword_ja.info -@settitle{tm-eword manual} - -@titlepage -@title{tm-eword Manual¡ÊÆüËܸìÈÇ¡Ë} -@author{¼é²¬ ÃÎɧ Ãø} -@code{$Id: tm-eword_ja.texi,v 4.0 1995/09/05 17:50:57 morioka Exp morioka $} -@end titlepage - - -@node Top, Abstract, (tm_ja.info)Introduction, (tm_ja.info)Introduction -@comment node-name, next, previous, up -@ifinfo -@top tiny-mime 6.6 Reference manual -@end ifinfo - -@ifinfo -tm ¤Ë¤ª¤±¤ë MIME header ¤Î encoder/decoder ¤Ç¤¢¤ë tiny-mime ¤Ë¤Ä¤¤¤ÆÀâ -ÌÀ¤·¤Þ¤¹¡£ -@end ifinfo - -@menu -* Abstract:: tiny-mime ¤È¤Ï -* Charsets:: tiny-mime ¤Î¥µ¥Ý¡¼¥È¤¹¤ë charset -* How to use:: tiny-mime ¤Î´Êñ¤Ê»È¤¤Êý -* Functions:: tiny-mime ¤Î´Ø¿ô -* Variables:: tiny-mime ¤ÎÊÑ¿ô -* Customize:: charset ¤ÎÄɲà -* Integrate-into-MUA:: tiny-mime ¤Î MUA ¤Ø¤ÎÁȤ߹þ¤ß -* Concept Index:: -* Command Index:: -* Variable Index:: -@end menu - - -@node Abstract, Charsets, Top, Top -@comment node-name, next, previous, up -@chapter tiny-mime ¤È¤Ï -@cindex tiny-mime ¤È¤Ï - -tiny-mime ¤Ï tm ¤Ë¤ª¤±¤ë MIME header (RFC 1522) ¤Î encoder/decoder ¤Ç¤¹¡£ - -¥ª¥ê¥¸¥Ê¥ë¤Ï¡¢ÀΡ¢¤¨¤Ê¤ß ¤Ä¤°¤È¤â ¤µ¤ó¤¬ fj.editor.emacs ¤ËÅê¹Æ¤µ¤ì¤¿ -MIME message header ¤Î decoder ¤Ç¤¹¡£ - -¸½ºß¤Ç¤Ï¡¢Åö»þ¤Î¤â¤Î¤ËÈæ¤Ù¡¢unfolding µ¡Ç½¤ä¡¢Mule ¤Ë¤ª¤±¤ë¿¸À¸ìʸ»ú -Îó¤Î¥µ¥Ý¡¼¥È¡¢B-encoding ¤Ë²Ã¤¨ Q-encoding ¤Î¥µ¥Ý¡¼¥È¤Ê¤É¤Î³ÈÄ¥¤¬¤Ê¤µ -¤ì¤Æ¤¤¤Þ¤¹¡£ - - -@node Charsets, How to use, Abstract, Top -@comment node-name, next, previous, up -@chapter tiny-mime ¤Î¥µ¥Ý¡¼¥È¤¹¤ë charset -@cindex charset - -@section original GNU Emacs 18 - -Æ°ºî¤ÏÊݾڤ·¤Þ¤»¤ó¡£¤·¤«¤·¤Ê¤¬¤é¡¢US-ASCII ¤ÎÈϰϤǤÏÆ°ºî¤¹¤ë¤È»×¤ï¤ì -¤Þ¤¹¡£¡Ê¤¢¤Þ¤ê°ÕÌ£¤¬¤Ê¤¤¤«¤âÃΤì¤Þ¤»¤ó¤¬¡Ë - -@section NEmacs, NEpoch - -ISO-2022-JP, US-ASCII ¤Î encoding/decoding ¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£ - -¤Þ¤¿¡¢ISO-8859-*¤Ç¤¢¤Ã¤Æ¤â¡¢encoded-text ¤Ë´Þ¤Þ¤ì¤ëʸ»úÎó¤¬¼ÂºÝ¤Ë¤Ï -ASCII ¤Çɽ¤»¤ëÈϰϤʤéɽ¼¨¤·¤Þ¤¹¡£ - -@section original GNU Emacs 19 - -US-ASCII ¤ª¤è¤Ó ISO-8859-1 ¤Î encoding/decoding ¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£ - -@section Mule - -ISO-2022-JP, US-ASCII, ISO-8859-1..9, ISO-2022-CN, ISO-2022-KR, EUC-KR -¤Ê¤É¤Î encoding/decoding ¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£¤Þ¤¿¡¢´Ø¿ô -mime/set-charset-and-encoding ¤ÇÄɲá¦Êѹ¹¤¬¤Ç¤­¤Þ¤¹¡£ -(@xref{Customize}) - - -@node How to use, Functions, Charsets, Top -@comment node-name, next, previous, up -@chapter tiny-mime ¤Î´Êñ¤Ê»È¤¤Êý -@cindex encode -@cindex decode - -@section decode - -tiny-mime.el ¤ò load ¤·¤Æ¡¢decode ¤·¤¿¤¤ buffer ¾å¤Ç¡¢ - -@example - M-x mime/decode-message-header -@end example - -¤ò¼Â¹Ô¤·¤Þ¤¹¡£ - -¤Þ¤¿¡¢decode ¤·¤¿¤¤ region ¤ò - -@example - M-x mime/decode-region -@end example - -¤Ç decode ¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£°úÍÑ¤Ê¤É¤Ç body-part ¤Ë»Ä¤Ã¤¿ -encoded-word ¤ò decode ¤¹¤ë¤Î¤ËÊØÍø¤Ç¤·¤ç¤¦¡£ - - -@section encode - -tiny-mime.el ¤ò load ¤·¤Æ¡¢encode ¤·¤¿¤¤ buffer ¾å¤Ç¡¢ - -@example - M-x mime/encode-message-header -@end example - -¤ò¼Â¹Ô¤·¤Þ¤¹¡£ - - -@node Functions, Variables, How to use, Top -@comment node-name, next, previous, up -@chapter tiny-mime ¤Î´Ø¿ô -@cindex tiny-mime ¤Î´Ø¿ô - -@deffn{Command} mime/decode-message-header - -current buffer ¤Î message header Ãæ¤Î encoded-word ¤ò decode ¤·¤Þ¤¹¡£ -@end deffn - - -@deffn{Command} mime/encode-message-header - -current buffer ¤Î message header Ãæ¤Î comment, phrase, *text ¤ò -encoded-word ¤ËÊÑ´¹¤·¤Þ¤¹¡£¤³¤ÎºÝ¡¢ÊÑ¿ô -@code{mime/no-encoding-header-fields} ¤Ç»ØÄꤵ¤ì¤¿ field ¤Ï encode ¤· -¤Þ¤»¤ó¡£¤Þ¤¿¡¢header ¤È body ¤Î¶èÀÚ¤ê¤ÏÊÑ¿ô -@code{mail-header-separator} ¤Ç»ØÄꤷ¤Þ¤¹¡£ -@end deffn - - -@deffn{Command} mime/decode-region beg end - -@var{beg} ¤È @var{end} ¤Ç°Ï¤Þ¤ì¤¿ÎΰèÃæ¤Î encoded-word ¤ò decode ¤·¤Þ -¤¹¡£ -@end deffn - - -@node Variables, Customize, Functions, Top -@comment node-name, next, previous, up -@chapter tiny-mime ¤ÎÊÑ¿ô -@cindex tiny-mime ¤ÎÊÑ¿ô - -@defvr{Variable} mime/no-encoding-header-fields - -tiny-mime.el ¤Ç encode ¤·¤Ê¤¤ message header ¤Î field ¤ò»ØÄꤷ¤Þ¤¹¡£ - -default ¤Ç¤Ï X-Nsubject ¤¬»ØÄꤵ¤ì¤Æ¤¤¤Þ¤¹¡£ - -Î㡧 X-Nsubject ¤È Subject ¤ò encode ¤·¤Ê¤¤¤è¤¦¤Ë¤¹¤ë¡£ - -@lisp -(setq mime/no-encoding-header-fields '("X-Nsubject" "Subject")) -@end lisp - -¡ÎÃí°Õ¡Ï mime.el ¤ÈÊ»ÍѤ¹¤ë¾ì¹ç¡¢tiny-mime.el ¤¬ encode ¤·¤Ê¤¯¤Æ¤â¡¢ -mime.el ¤¬ encode ¤¹¤ë¤Î¤Ç¡¢mime.el ¤Î message header encoder ¤¬Æ¯¤«¤Ê -¤¤¤è¤¦¤Ë¤ËÀßÄꤷ¤Þ¤¹¡£ -@end defvr - -@defvr{Variable} mime/use-X-Nsubject - -¤³¤ÎÊÑ¿ô¤ÎÃͤ¬ t ¤Î¾ì¹ç¡¢message header ¤ò encode ¤¹¤ë»þ¡¢encode ¤·¤¿ -·ë²Ì¡¢Subject ¤Ë encoded-word ¤¬´Þ¤Þ¤ì¤ë¾ì¹ç¡¢Subject ¤ò decode ¤·¤¿¤â -¤Î¤òÆþ¤ì¤¿ X-Nsubject ¤òºîÀ®¤·¤Þ¤¹¡£ - -default ¤Ç¤Ï nil ¤¬»ØÄꤵ¤ì¤Æ¤¤¤Þ¤¹¡£ - -¡ÎÃí°Õ¡ÏMule ¤Ç ISO-2022-JP ¤Ë´Þ¤Þ¤ì¤ë¤â¤Î°Ê³°¤Îʸ»ú½¸¹ç¤ò»È¤¦¾ì¹ç¤Ï¡¢ -¤³¤ì¤ò»ØÄꤷ¤Ê¤¤Êý¤¬¸­ÌÀ¤Ç¤¹¡£ -@end defvr - - -@node Customize, Integrate-into-MUA, Variables, Top -@comment node-name, next, previous, up -@chapter charset ¤ÎÄɲá¦Êѹ¹ -@cindex charset ¤ÎÄɲá¦Êѹ¹ - -Mule ¤Ç¤Ï¡¢´Ø¿ô @code{mime/set-charset-and-encoding} ¤Ç¡¢charset ¤ÎÄÉ -²Ã¡¦Êѹ¹¤¬¤Ç¤­¤Þ¤¹¡£ - - -@deffn{Function} mime/set-charset-and-encoding LC CS CHARSET ENCODING - -@table @var -@item LC -charset ¤ËÂбþ¤¹¤ë leading-char ¤ò»ØÄꤹ¤ë¡£ - -@item CS -charset ¤ËÂбþ¤¹¤ë coding-system ¤ò»ØÄꤹ¤ë¡£1 octet ʸ»ú½¸¹ç¤Ç -coding-system ¤òºî¤é¤Ê¤¤¾ì¹ç¤Ï¡¢nil ¤ò»ØÄꤹ¤ë¡£ - -@item CHARSET -MIME ¤Î charset. - -@item ENCODING -encode ¤¹¤ëºÝ¤Î encoding. -@end table - -@end deffn - - -@node Integrate-into-MUA, Concept Index, Customize, Top -@comment node-name, next, previous, up -@chapter MUA ¤Ø¤ÎÁȤ߹þ¤ß -@cindex MUA ¤Ø¤ÎÁȤ߹þ¤ß - -Æü¾ïŪ¤Ë¡¢Ìµ°Õ¼±¤Ë MIME header ¤òËÜÍè¤Î¸À¸ì¤Ç¸«¤¿¤¤¤È¤¤¤¦¤Î¤ÏÅöÁ³¤Î -Íßµá¤Ç¤¹¡£¤½¤³¤Ç¡¢tiny-mime.el ¤ò mailer ¤ä news reader ¤ËÁȤ߹þ¤à¤È¼« -ưŪ¤Ë MIME header ¤Î encode/decode ¤¬¤Ç¤­¤Þ¤¹¡£ - -¤³¤ÎÌÜŪ¤ò¼Â¸½¤¹¤ë¤Ë¤Ï¡¢mailer ¤ä news reader ¤ÎŬÀÚ¤Ê hook ¤Ë -mime/decode-message-header ¤òÆþ¤ì¤ì¤ÐÎɤ¤¤Ç¤·¤ç¤¦¡£ - -¤Þ¤¿¡¢tm-MUA ¤È¸Æ¤Ð¤ì¤ë°ìÏ¢¤Î module ¤ò»È¤¨¤Ð´Êñ¤Ë MUA ¤Ç tiny-mime -¤òÍøÍѤǤ­¤Þ¤¹¡£ - -@menu -* tm-mh-e :(tm-mh-e_ja.info). -* tm-gnus :(tm-gnus_ja.info). -* tm-rmail:(tm-rmail_ja.info). -* tm-vm :(tm-vm_ja.info). -@end menu - - -@section Í­ÍѤʴؿô -@cindex Í­ÍѤʴؿô - -@deffn{Function} mime/decode-string STRING - -STRING Ãæ¤Î encoded-word ¤ò decode ¤¹¤ë¡£ - -@end deffn - - -@node Concept Index, Command Index, Integrate-into-MUA, Top -@unnumbered ³µÇ°º÷°ú - -@printindex cp - - -@node Command Index, Variable Index, Concept Index, Top -@unnumbered ´Ø¿ô¡¦¥³¥Þ¥ó¥Éº÷°ú - -@printindex fn - - -@node Variable Index, , Command Index, Top -@unnumbered ÊÑ¿ôº÷°ú - -@printindex vr - -@bye diff --git a/doc/tm-head-jp.texi b/doc/tm-head-jp.texi deleted file mode 100644 index 7b0c6a7..0000000 --- a/doc/tm-head-jp.texi +++ /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{$BZ$7$^$;$s!#$7$+$7$J$,$i!"(BUS-ASCII $B$NHO0O$G$OF0:n$9$k$H;W$o$l(B -$B$^$9!#!J$"$^$j0UL#$,$J$$$+$bCN$l$^$;$s$,!K(B - -@section{NEmacs, NEpoch} - -ISO-2022-JP, US-ASCII $B$N(B encoding/decoding $B$r%5%]!<%H$7$^$9!#(B - -$B$^$?!"(BISO-8859-*$B$G$"$C$F$b!"(Bencoded-text $B$K4^$^$l$kJ8;zNs$,e$G!"(B - -@example - M-x mime/decode-message-header -@end example - -$B$re$G!"(B - -@example - M-x mime/encode-message-header -@end example - -$B$rl9g!"(Btiny-mime.el $B$,(B encode $B$7$J$/$F$b!"(B -mime.el $B$,(B encode $B$9$k$N$G!"(Bmime.el $B$N(B message header encoder $B$,F/$+$J(B -$B$$$h$&$K$K@_Dj$7$^$9!#(B -@end defvr - -@defvr{Variable} mime/use-X-Nsubject - -$B$3$NJQ?t$NCM$,(B t $B$N>l9g!"(Bmessage header $B$r(B encode $B$9$k;~!"(Bencode $B$7$?(B -$B7k2L!"(BSubject $B$K(B encoded-word $B$,4^$^$l$k>l9g!"(BSubject $B$r(B decode $B$7$?$b(B -$B$N$rF~$l$?(B X-Nsubject $B$r:n@.$7$^$9!#(B - -default $B$G$O(B nil $B$,;XDj$5$l$F$$$^$9!#(B - -$B!NCm0U!O(BMule $B$G(B ISO-2022-JP $B$K4^$^$l$k$b$N0J30$NJ8;z=89g$r;H$&>l9g$O!"(B -$B$3$l$r;XDj$7$J$$J}$,8-L@$G$9!#(B -@end defvr - - -@node Customize, Integrate-into-MUA, Variable, Top -@comment node-name, next, previous, up -@chapter{$B%+%9%?%^%$%:(B} -@cindex{$B%+%9%?%^%$%:(B} - -@menu -* Customize-for-charset:: -@end menu - -@node Customize-for-charset, Customize, Customize, Customize -@comment node-name, next, previous, up -@section{charset $B$NDI2C!&JQ99(B} -@cindex{charset $B$NDI2C!&JQ99(B} - -Mule $B$G$O!"4X?t(B mime/set-charset-and-encoding $B$G!"(Bcharset $B$NDI2C!&JQ99(B -$B$,$G$-$^$9!#(B - -@deffn{Function} mime/set-charset-and-encoding LC CS CHARSET ENCODING - -@table @var -@item LC -charset $B$KBP1~$9$k(B leading-char $B$r;XDj$9$k!#(B - -@item CS -charset $B$KBP1~$9$k(B coding-system $B$r;XDj$9$k!#(B1 octet $BJ8;z=89g$G(B -coding-system $B$r:n$i$J$$>l9g$O!"(Bnil $B$r;XDj$9$k!#(B - -@item CHARSET -MIME $B$N(B charset. - -@item ENCODING -encode $B$9$k:]$N(B encoding. -@end table - -@end deffn - - -@node Integrate-into-MUA, Integrate-into-MUA, Customize, Top -@comment node-name, next, previous, up -@chapter{MUA $B$X$NAH$_9~$_(B} -@cindex{MUA $B$X$NAH$_9~$_(B} - -$BF|>oE*$K!"L50U<1$K(B MIME header $B$rK\Mh$N8@8l$G8+$?$$$H$$$&$N$OEvA3$N(B -$BM_5a$G$9!#$=$3$G!"(Btiny-mime.el $B$r(B mailer $B$d(B news reader $B$KAH$_9~$`$H<+(B -$BF0E*$K(B MIME header $B$N(B encode/decode $B$,$G$-$^$9!#(B - -$B$3$NL\E*$r$ ¤Ë 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 index fd7bd89..0000000 --- a/doc/tm-jp.tex,v +++ /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 index e2be40f..0000000 --- a/doc/tm-jp.texi +++ /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{$BZ$7$^$;$s!#$7$+$7$J$,$i!"(BUS-ASCII $B$NHO0O$G$OF0:n$9$k$H;W$o$l(B -$B$^$9!#(B - -@section{NEmacs, NEpoch} - -ISO-2022-JP, US-ASCII $B$,;H$($^$9!#(B - -@section{original GNU Emacs 19} - -US-ASCII $B$*$h$S(B ISO-8859-1 $B$r%5%]!<%H$7$^$9!#(B - -$B$^$?!"(BX window $B>e$NFHN)$7$?(B window $B$H$7$FF0:n$5$;$k>l9g!"(Btm-rich $B$K$h(B -$B$k(B multi face $BI=<($,9T$J$($^$9!#(B - -@section{Mule} - -ISO-2022-JP, US-ASCII, ISO-8859-1..9, ISO-2022-CN, ISO-2022-KR, EUC-KR -$B$J$I$NB?$/$N(B charset $B$r%5%]!<%H$7$^$9!#$^$?!"4X?t(B -mime/set-charset-and-encoding $B$GDI2C!&JQ99$,$G$-$^$9!#(B - -$B$^$?!"(BMule 2.* $B$r(B X window $B>e$NFHN)$7$?(B window $B$H$7$FF0:n$5$;$k>l9g!"(B -tm-rich $B$K$h$k(B multi face $BI=<($,9T$J$($^$9!#(B - -@section{XEmacs} - -US-ASCII $B$*$h$S(B ISO-8859-1 $B$r%5%]!<%H$7$^$9!#(B - -$B:#$N$H$3$m!"(Btm-rich $B$K$h$k(B multi face $BI=<($O%5%]!<%H$5$l$F$$$^$;$s$,!"(B -$B>-MhE*$K$O!"(Bmulti face $BI=<($H(B inline image $B$NI=<($,%5%]!<%H$5$l$kM=Dj(B -$B$G$9!#(B - - -@node Install, How-to-use, Emacs-Versions, Top -@comment node-name, next, previous, up -@chapter{Install} -@cindex{Install} - -Install $B$O$N;XDj(B} - -Emacs $B$N$r;XDj$7$F2<$5$$!#(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 $B$N;XDj(B} - -Emacs Lisp program $B$r(B install $B$9$k(B directory $B$r;XDj$7$F2<$5$$!#(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{$B30It(B method} - -methods/ $B0J2<$K$"$k(B method script $B$r(B sec:method $B@a$r;2>H$7$F!"<+J,$N4D(B -$B6-$K9g$&$h$&$K=q$-49$($F2<$5$$!#(B - - -@section{make} - -`make all' $B$7$F2<$5$$!#(B - - -@section{install} - -`make install' $B$7$F2<$5$$!#(B - - -@section{Emacs Lisp program $B$N(B install} - -NEmacs $B$b$7$/$O(B NEpoch $B$r;H$C$F$$$k>l9g!"(B`make install-nemacs' $B$rl9g!"(B`install-mule1' $B$rl9g!"(B`make -install-orig19' $B$rl9g!"(B`make install-mule2' $B$rl9g$G$b!"(B*.el $B$r(B load-path $B$G;XDj(B -$B$5$l$?(B directory $B$K(B copy $B$9$l$P(B OK $B$G$9!#(B - - -@node Setting, tm-MUA, Install, Top -@comment node-name, next, previous, up -@chapter{$B@_Dj(B} -@cindex{$B@_Dj(B} - -$B$3$N(B package $B$K$O(B mime-setup.el $B$H(B tm-setup.el $B$H$$$&4J0W@_Dj(B file $B$,(B -$BImB0$7$F$$$^$9!#(Bmime-setup.el $B$G$O(B encoding $B$b4^$a$?(B MIME $BA4HL$N@_Dj$r(B -$B9T$J$$!"(Btm-setup $B$G$O(B tm-MUA $B$K4X$9$k@_Dj$N$_$r9T$J$$$^$9!#(B - -@section{mime-setup} - -@example -(load "mime-setup") -@end example -$B$H$9$k$H(B MIME $B$K4X$9$k3Fl9g!"(Btm-setup $B$r(B load $B$9$kI,MW$O$"$j(B -$B$^$;$s!#(B - -mime-setup $B$G$O(B signature $B$N<+F0@ZBX$((B tool $B$bImB0$7$F$$$^$9!#(B -message header $B$N(B field $B$K9g$o$;$F(B signature $B$N<+F0@ZBX$r9T$J$$$?$$>l(B -$B9g$O(B .emacs $B$K0J2<$N$h$&$J$b$N$rF~$l$F2<$5$$!#!J>\$7$/$O(B signature.el -$B$N@bL@=q$r;2>H$7$F2<$5$$!K(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 $B$r;H$&>l9g$O!"(Bmime.el $B$,I,MW$G$9!#$^$?!"(BSuperCite $B$r;H$&>l(B -$B9g$O!"(BSuperCite $B$bI,MW$G$9!#(B - - -@section{tm-setup} - -tm-setup $B$O(B tm-MUA $B$N@_Dj$N$_$r9T$J$&(B module $B$G$9!#(Bmime-setup $B$r(B load -$B$7$F$$$k>l9g!"$3$l$rM[$K(B load $B$9$kI,MW$O$"$j$^$;$s$,!"(Bmime-setup $B$r;H(B -$B$$$?$/$J$$>l9g!"0J2<$N$h$&$K$3$l$r(B load $B$7$F2<$5$$!#(B - -@example -(load "tm-setup") -@end example - - -@section{vm} - -vm $B$r;H$&>l9g$O(B .vm $B$+(B .emacs $B$K(B -@example -(load "tm-vm") -@end example -$B$rF~$l$F2<$5$$!#(B - - -@section{$B@_Dj(B file $B$r;H$o$J$$>l9g(B} - -tm-setup.el $B$r;29M$K$7$F2<$5$$!#(B - - -@node tm-MUA, Concept Index, Setting, Top -@comment node-name, next, previous, up -@chapter{tm-MUA} -@cindex{tm-MUA} - -``tm-MUA'' $B$H$$$&$N$O!"(Bmh-e, GNUS, RMAIL $B$J$I$N(B MUA $B$N$?$a$N(B MIME $B5!G=(B -$B6/2=(B module $B$NAm>N$G$9!#(B - -$B8=:_!"(Btm-MUA $B$K$O!"(B -@itemize -@item @emph{tm-mh-e:} mh-e $BMQ$N(B tm-MUA -@item @emph{tm-gnus:} GNUS $BMQ$N(B tm-MUA -@item @emph{tm-rmail:} RMAIL $BMQ$N(B tm-MUA -@item @emph{tm-vm:} VM $BMQ$N(B tm-MUA -@end itemize -$B$,$"$j$^$9!#$3$N>O$G$O$3$l$i$N(B module $B$K4X$7$F@bL@$7$^$9!#(B - -@section{Summary mode} - -tm-MUA $B$r;H$&$H!"85$N(B MUA $B$N(B Summary mode $B$KBP$7$F0J2<$N5!G=$,DI2C$5$l(B -$B$^$9!#(B - -@table @kbd -@item @key{M-t} - RFC 1522 MIME encoded-word $B$N(B decode $B$K4X$9$k(B toggle -@item v - mime/viewer-mode $B$KF~$j!"(Bmessage $B$r1\Mw$9$k(B -@end table - - -@section{mime/viewer-mode} - -tm-MUA $B$r;H$&$H!"(BSummary mode $B$G(B @kbd{v}$B!J(Bvm $B$G$O(B @kbd{Z}$B!K$r2!$9$3$H(B -$B$K$h$C$F!"(Bmime/viewer-mode $B$H$$$&(B MIME message $B$r1\Mw$9$k$?$a$N(B mode -$B$KF~$j$^$9!#(Bmime/viewer-mode $B$K$O0J2<$N5!G=$,$"$j$^$9!#(B - -@table @kbd -@item u - $B>e$N(B content $B$KLa$k!J(Bmessage $B$N0lHV>e$N(B content $B$G$3$l$r9T$J$&(B - $B$H(B Summary mode $B$KLa$k(B (*1)$B!K(B -@item p - $BA0$N(B content $B$K0\F0$9$k(B -@item n - $Bl9g!"(BSummary mode $B$K$OLa$j$^$;$s!#(B - -@item -$B@}|]\\).*$" - nil msg-quote))) - (message-patterns (append header-patterns body-patterns)) - ) - (hilit-set-mode-patterns 'msg-header header-patterns) - (hilit-set-mode-patterns 'msg-body body-patterns) - (hilit-set-mode-patterns 'mime/viewer-mode - message-patterns - 'hilit-rehighlight-message) - ) - (add-hook 'mime-viewer/content-header-filter-hook - (function hilit-rehighlight-buffer-quietly)) - (add-hook 'mime-viewer/plain-text-preview-hook - (function hilit-rehighlight-buffer-quietly)) - )) -@end lisp - - -@subsection browse-url - -setting example for browse-url.el included in Gnus. - -@lisp -(setq browse-url-browser-function - (if (eq window-system 'x) - 'browse-url-netscape - 'browse-url-w3)) -(autoload browse-url-browser-function "browse-url" - "Ask a WWW browser to show a URL." t) -@end lisp diff --git a/doc/tm-util_ja.texi b/doc/tm-util_ja.texi deleted file mode 100644 index b8a38f4..0000000 --- a/doc/tm-util_ja.texi +++ /dev/null @@ -1,138 +0,0 @@ -@c $Id: tm-util_ja.texi,v 1.2 1995/12/13 06:45:14 morioka Exp $ - -@node customize, Bug report, encoded-word, Top -@comment node-name, next, previous, up -@chapter tm $B$N(B customize - -tm $B$N(B customize $B$K$D$$$F@bL@$7$^$9!#(B - -@menu -* fields:: -* available functions:: -* example:: -@end menu - -@node fields, available functions, customize, customize -@comment node-name, next, previous, up -@section fields -@cindex field-list -@cindex field-regexp - -tm-view.el $B$d(B tm-edit.el $B$G$O(B message header field $B$NI=<(!&A*Br$K(B -@strong{field-list} $B$H(B @strong{field-regexp} $B$H$$$&BP$rMQ$$$^$9!#(B - -$B$3$3$G$O$3$NBP$rA`:n$9$k$?$a$N4X?t$r>R2p$7$^$9!#(B - - -@defun tm:add-fields sym field-list &optional regexp-sym - -symbol @var{sym} $B$G;X$5$l$?(B field-list $B$K(B @var{field-list} $B$rDI2C$7$^(B -$B$9!#(B -@end defun - - -@defun tm:delete-fields sym field-list &optional regexp-sym - -symbol @var{sym} $B$G;X$5$l$?(B field-list $B$+$i(B @var{field-list} $B$r:o=|$7(B -$B$^$9!#(B -@end defun - - -@node available functions, example, fields, customize -@comment node-name, next, previous, up -@section $BM-MQ$J4X?t(B - -tm $B$N@_Dj$KM-MQ$J4X?t$r>R2p$7$^$9!#(B - - -@defun add-path path &rest options - -@code{load-path} $B$K(B @var{path} $B$rDI2C$7$^$9!#(B - -$BI8=`$G$O(B @code{default-load-path} $B$ND>2<$N$I$3$+$K(B @var{path} $B$,B8:_$7(B -$B$F$$$k;~$N$_!"(B@code{load-path} $B$N@hF,$KE83+$7$?7A$GDI2C$7$^$9!#(B - -@var{options} $B$K(B @code{'all-paths} $B$,B8:_$9$k>l9g!"(B@code{load-path} $BA4(B -$BBN$+$i(B @var{path} $B$rC5:w$7$^$9!#(B - -@var{options} $B$K(B @code{'append} $B$,B8:_$9$k>l9g!"(B@code{load-path} $B$NKv(B -$BHx$KDI2C$7$^$9!#(B -@end defun - - -@defun call-after-loaded module func &optional hook-name - -@var{module} $B$,(B provide $B$5$l$F$$$l$P(B @var{func} $B$r$9$0$K8F$S!"$=$&$G$J(B -$B$1$l$P!"(B@var{module} $B$,(B load $B$5$l$?;~$K(B @var{func} $B$,8F$P$l$k$h$&$K!"(B -@var{hook-name} $B$K(B add-hook $B$7$^$9!#(B - -@var{hook-name} $B$,>JN,$5$l$?>l9g!"(B@code{MODULE-load-hook} $B$,MQ$$$i$l$^(B -$B$9!#(B -@end defun - - -@node example, , available functions, customize -@comment node-name, next, previous, up -@section example - -tm $B$N(B customize $B$NNc$r<($7$^$9!#(B - - -@subsection preview-buffer $B$GI=<($5$l$k(B field $B$NJQ99(B - -$BI8=`@_Dj$K2C$(!"(B"Mail-From", "Expires", "Xref", "Approved", "Sender", -"X-.*" $B$bI=<($7$J$$$h$&$K$7$^$9!#(B - -@lisp -(call-after-loaded - 'tm-view - (lambda () - (tm:add-fields - 'mime-viewer/ignored-field-list - '("Mail-From" "Expires" "Xref" "Approved" "Sender" "X-.*") - ))) -@end lisp - - -@subsection hilit19 - -hilit19 $B$r;H$C$?(B face $B$N@_DjNc(B - -@lisp -(cond (window-system - (let* ((header-patterns '(("^Subject:.*$" nil msg-subject) - ("^From:.*$" nil msg-from) - ("^--text follows this line--$" - nil msg-separator) - ("^[A-Za-z][A-Za-z0-9-]+:" nil msg-header) - )) - (body-patterns '(("^\\(In article\\|[ \t]*\\w*[]<>}|]\\).*$" - nil msg-quote))) - (message-patterns (append header-patterns body-patterns)) - ) - (hilit-set-mode-patterns 'msg-header header-patterns) - (hilit-set-mode-patterns 'msg-body body-patterns) - (hilit-set-mode-patterns 'mime/viewer-mode - message-patterns - 'hilit-rehighlight-message) - ) - (add-hook 'mime-viewer/content-header-filter-hook - (function hilit-rehighlight-buffer-quietly)) - (add-hook 'mime-viewer/plain-text-preview-hook - (function hilit-rehighlight-buffer-quietly)) - )) -@end lisp - - -@subsection browse-url - -Gnus $BIUB0$N(B browse-url.el $B$N@_DjNc(B - -@lisp -(setq browse-url-browser-function - (if (eq window-system 'x) - 'browse-url-netscape - 'browse-url-w3)) -(autoload browse-url-browser-function "browse-url" - "Ask a WWW browser to show a URL." t) -@end lisp diff --git a/doc/tm-view-a_en.texi b/doc/tm-view-a_en.texi deleted file mode 100644 index 80335fb..0000000 --- a/doc/tm-view-a_en.texi +++ /dev/null @@ -1,86 +0,0 @@ -@c $Id: tm-view-a_en.texi,v 1.1 1995/12/13 09:28:10 morioka Exp $ - -@node article-buffer, preview-buffer, Functions of tm-view, Mechanism of tm-view -@comment node-name, next, previous, up -@subsection article-buffer - -@defvr{Structure} mime::content-info rcnum point-min point-max type parameters encoding children - -structure to represent MIME content in article-buffer. It is called by -@strong{content-info}. - -@table @var -@item rcnum -@strong{reversed content-number} (list) - -@item point-min -region beginning point in article-buffer - -@item point-max -region end point in article-buffer - -@item type -content-type/sub-type (string or nil) - -@item parameters -parameter of Content-Type field (association list) - -@item encoding -Content-Transfer-Encoding (string or nil) - -@item children -list of content-info included in this content -@end table - -Please use reference function `@code{mime::content-info/SLOT-NAME}' to -reference slot of content-info. Their argument is only content-info. - -@end defvr - - -@defvar mime::article/content-info - -result of MIME parsing of article-buffer (content-info) -@end defvar - - -@defvar mime::article/preview-buffer - -preview-buffer corresponded by this buffer -@end defvar - - -@defun mime-article/point-content-number point &optional cinfo - -In a region managed by content-info @var{cinfo}, it returns -content-number corresponded by @var{point}. - -Default value of @var{cinfo} is @code{mime::article/content-info}. -@end defun - - -@defun mime-article/rcnum-to-cinfo rcnum &optional cinfo - -In a region managed by content-info @var{cinfo}, it returns -content-info corresponded by reversed-content-number @var{rcnum}. - -Default value of @var{cinfo} is @code{mime::article/content-info}. -@end defun - - -@defun mime-article/cnum-to-cinfo rcnum &optional cinfo - -In a region managed by content-info @var{cinfo}, it returns -content-info corresponded by content-number @var{cnum}. - -Default value of @var{cinfo} is @code{mime::article/content-info}. -@end defun - - -@defun mime/flatten-content-info &optional cinfo - -It returns flatten list of content-info from content-info @var{cinfo} -tree. - -Default value of @var{cinfo} is @code{mime::article/content-info}. -@end defun diff --git a/doc/tm-view-a_ja.texi b/doc/tm-view-a_ja.texi deleted file mode 100644 index e314332..0000000 --- a/doc/tm-view-a_ja.texi +++ /dev/null @@ -1,94 +0,0 @@ -@c $Id: tm-view-a_ja.texi,v 1.1 1995/12/11 08:37:52 morioka Exp $ - -@node article-buffer, preview-buffer, Functions of tm-view, Mechanism of tm-view -@comment node-name, next, previous, up -@subsection article-buffer - -@defvr{Structure} mime::content-info rcnum point-min point-max type parameters encoding children - -article-buffer $B$G(B MIME content $B$K4X$9$k>pJs$r3JG<$9$k$?$a$N9=B$BN!#C1(B -$B$K(B @strong{content-info} $B$H$b8F$V!#(B - -@table @var -@item rcnum -@strong{reversed content-number} (list) - -@item point-min -article-buffer $B$K$*$1$k@hF,(B point - -@item point-max -article-buffer $B$K$*$1$kKvHx(B point - -@item type -content-type/sub-type$B!JJ8;zNs!"$^$?$O!"(Bnil$B!K(B - -@item parameters -Content-Type field $B$N(B parameter $B!JO"A[(B list$B!K(B - -@item encoding -Content-Transfer-Encoding$B!JJ8;zNs!"$^$?$O!"(Bnil$B!K(B - -@item children -$B$3$N(B content $B$K4^$^$l$k(B contents$B!J(Bcontent-info $B$N(B list$B!K(B -@end table - -$B$"$k(B content $B$,(B multipart $B$b$7$/$O(B message/rfc822 $B$J$I$NJL$N(B content -$B$r4^$`$h$&$J(B content $B$G$"$C$?>l9g!"(B@var{children} $B$KJL$N(B content $B$N(B -content-info $B$,4^$^$l$k;v$K$h$C$F!"(Bcontent-info $B$OLZ9=B$$K$J$k!#(B - -$B$3$N9=B$BN$r;2>H$9$k$K$O!"(B@code{mime::content-info/$B%9%m%C%HL>(B} $B$H$$$&(B -content-info $B$r0z?t$K$H$k4X?t$rMQ$$$k!#(B - -@end defvr - - -@defvar mime::article/content-info - -article-buffer $B$r(B MIME message $B$H$7$F2r@O$7$?7k2L(B (content-info) -@end defvar - - -@defvar mime::article/preview-buffer - -article-buffer $B$KBP1~$9$k(B preview-buffer. -@end defvar - - -@defun mime-article/point-content-number point &optional cinfo - -content-info @var{cinfo} $B$G4IM}$5$l$kNN0h$K$*$$$F!"(B@var{point} $B$KBP1~(B -$B$9$k(B content-number $B$rJV$9!#(B - -@var{cinfo} $B$,>JN,$5$l$?>l9g$O!"(B@code{mime::article/content-info} $B$,MQ(B -$B$$$i$l$k!#(B -@end defun - - -@defun mime-article/rcnum-to-cinfo rcnum &optional cinfo - -content-info @var{cinfo} $B$G4IM}$5$l$kNN0h$K$*$$$F!"(B -reversed-content-number @var{rcnum} $B$KBP1~$9$k(B content-info $B$rJV$9!#(B - -@var{cinfo} $B$,>JN,$5$l$?>l9g$O!"(B@code{mime::article/content-info} $B$,MQ(B -$B$$$i$l$k!#(B -@end defun - - -@defun mime-article/cnum-to-cinfo rcnum &optional cinfo - -content-info @var{cinfo} $B$G4IM}$5$l$kNN0h$K$*$$$F!"(Bcontent-number -@var{rcnum} $B$KBP1~$9$k(B content-info $B$rJV$9!#(B - -@var{cinfo} $B$,>JN,$5$l$?>l9g$O!"(B@code{mime::article/content-info} $B$,MQ(B -$B$$$i$l$k!#(B -@end defun - - -@defun mime/flatten-content-info &optional cinfo - -content-info @var{cinfo} $BCf$KG<$a$i$l$?A4(B contents $B$N(B content-info $B$N(B -list $B$rJV$9!#(B - -@var{cinfo} $B$,>JN,$5$l$?>l9g$O!"(B@code{mime::article/content-info} $B$,MQ(B -$B$$$i$l$k!#(B -@end defun diff --git a/doc/tm-view-cb_en.texi b/doc/tm-view-cb_en.texi deleted file mode 100644 index 5fda349..0000000 --- a/doc/tm-view-cb_en.texi +++ /dev/null @@ -1,57 +0,0 @@ -@c $Id: tm-view-cb_en.texi,v 1.1 1995/12/13 09:28:29 morioka Exp $ - -@node content-body, content-separator, content-header, MIME display -@comment node-name, next, previous, up -@subsubsection content-body -@cindex content-body - -Content-body represents content of the message. tm-view does not -display raw content body. For example, if a content has binary, it is -hidden. If a content has richtext, it is formated. Namely content body -is hidden or formated. - -Function @code{mime-viewer/body-visible-p} is a judge function whether -content-body of a content is displayed. If it returns @code{nil}, -content-body is hidden. In default, it returns non-@code{nil} when -content-type of a content is a member of variable -@code{mime-viewer/default-showing-Content-Type-list}. - -When content-body of a content is displayed, content-body is formated -by content-filter. Content-filter is searched from variable -@code{mime-viewer/content-filter-alist}. At this time, major-mode of -the article buffer is used as the key. - -If it is not found, function @code{mime-viewer/default-content-filter} -is called. - - -@defvar mime-viewer/default-showing-Content-Type-list - -List of content-type. If content-type of a content is a member of this -variable, its body is displayed. -@end defvar - - -@deffn{Function} mime-viewer/body-visible-p rcnum cinfo &optional ctype - -Return non-@code{nil}, if content-type of a content is displayed. -@var{rcnum} is reversed-content-number of a content. @var{cinfo} is -content-info of the message. If you know content-type of a content, -you can specify it as argument @var{ctype}. -@end deffn - - -@defvar mime-viewer/content-filter-alist - -Association-list whose key is major-mode of a article buffer, value is -content-filter. -@end defvar - - -@deffn{Function} mime-viewer/default-content-filter rcnum cinfo ctype params subj - -It is called when content-body of a content should be displayed and -content-filter is not found in @code{mime-viewer/content-filter-alist}. - -In default, it does nothing. -@end deffn diff --git a/doc/tm-view-cb_ja.texi b/doc/tm-view-cb_ja.texi deleted file mode 100644 index 7300b03..0000000 --- a/doc/tm-view-cb_ja.texi +++ /dev/null @@ -1,50 +0,0 @@ -@c $Id: tm-view-cb_ja.texi,v 1.1 1995/12/11 08:37:18 morioka Exp $ - -@node content-body, content-separator, content-header, MIME display -@comment node-name, next, previous, up -@subsubsection content-body -@cindex content-body - -$B$"$k(B content $B$N(B content-body $B$rI=<($9$k$+$I$&$+$O!"4X?t(B -@code{mime-viewer/body-visible-p} $B$,(B @code{t} $B$K$J$k$+$I$&$+$G7h$^$j$^(B -$B$9!#I8=`$G$O!"$"$k(B content $B$N(B content-type $B$,JQ?t(B -@code{mime-viewer/default-showing-Content-Type-list} $B$K@_Dj$5$l$F$$$k(B -$B;~$KI=<($5$l$^$9!#(B - -$B$"$k(B content $B$N(B content-body $B$,I=<($5$l$k;~!"(Bpreview buffer $B$K$O(B -content-body $B$r(B content-filter $B$K$h$C$F@07A$5$l$?$b$N$,I=<($5$l$^$9!#(B -$B8F$P$l$k(B content-filter $B$O(B article buffer $B$N(B major-mode $B$r(B key $B$H$7$F(B -$BJQ?t(B @code{mime-viewer/content-filter-alist} $B$+$iC5$5$l$^$9!#$b$7!"$3(B -$B$NJQ?t$KEPO?$5$l$F$$$J$+$C$?>l9g!"4X?t(B -@code{mime-viewer/default-content-filter} $B$,8F$P$l$^$9!#(B - - -@defvar mime-viewer/default-showing-Content-Type-list - -$BI=<($9$Y$-(B content-type $B$rMWAG$H$9$k(B list. -@end defvar - - -@deffn{Function} mime-viewer/body-visible-p rcnum cinfo &optional ctype - -reversed-content-number $B$,(B @var{rcnum} $B$G$"$k(B content $B$,I=<($5$l$k>l9g!"(B -@code{t} $B$rJV$9!#$=$N(B content $B$N(B content-type $B$,$"$i$+$8$a$o$+$C$F$$$k(B -$B>l9g!"(B@var{ctype} $B$K0z?t$H$7$FEO$9$3$H$,$G$-$k!#(B -@end deffn - - -@defvar mime-viewer/content-filter-alist - -article buffer $B$N(B major-mode $B$r(B key $B$H$7$?O"A[%j%9%H$G!"CMIt$K$O(B -content-filter $B$,F~$C$F$$$k!#(B -@end defvar - - -@deffn{Function} mime-viewer/default-content-filter rcnum cinfo ctype params subj - -$B$"$k(B content $B$N(B content-body $B$rI=<($9$Y$-;~!"JQ?t(B -@code{mime-viewer/content-filter-alist} $B$NCf$K(B content-filter $B$,8+$D$+(B -$B$i$J$+$C$?>l9g$K8F$S=P$5$l$k!#(B - -$BI8=`$G$O2?$b$7$J$$!#(B -@end deffn diff --git a/doc/tm-view-ch_en.texi b/doc/tm-view-ch_en.texi deleted file mode 100644 index 87e6a0a..0000000 --- a/doc/tm-view-ch_en.texi +++ /dev/null @@ -1,68 +0,0 @@ -@c $Id: tm-view-ch_en.texi,v 1.1 1995/12/13 09:28:43 morioka Exp $ - -@node content-header, content-body, content-subject, MIME display -@comment node-name, next, previous, up -@subsubsection content-header -@cindex content-header - -A content header shows the header portion of a content in the preview -buffer. - -When the function @code{mime-viewer/header-visible-p} returns @code{t} -for content-number of a content, content-header is displayed. This -judge function returns @code{t} when a content is root or content-type -of its parent is a member of the variable -@code{mime-viewer/childrens-header-showing-Content-Type-list}. - -If you want to change this condition, please redefine it. - -When content-header is displayed, content-header are formated by -content-header-filter. Content-header-filter is searched from variable -@code{mime-viewer/content-header-filter-alist}. Its key is major-mode -of the article buffer. If not found, function -@code{mime-viewer/default-content-header-filter} is called. - - -@defvar mime-viewer/childrens-header-showing-Content-Type-list - -List of content-type. If content-type of parent of a content is a -member of this variable, its content-header is displayed. Default -value is "message/rfc822". - -This variable is referred by the function -@code{mime-viewer/header-visible-p}. -@end defvar - - -@deffn{Function} mime-viewer/header-visible-p rcnum cinfo &optional ctype - -Returns @code{t} if a content is displayed. - -@var{cnum} is content-number. @var{cinfo} is content-info. If you know -content-type, you can specify by @var{ctype}. -@end deffn - - -@defvar mime-viewer/content-header-filter-alist - -Association-list whose key is major-mode of a article buffer, value is -content-header-filter. -@end defvar - - -@deffn{Function} mime-viewer/default-content-header-filter - -It is called when content-header-filter is not found in variable -@code{mime-viewer/content-header-filter-alist}. -@end deffn - - -@defvar mime-viewer/ignored-field-list - -List of regular expression to represent invisible fields. - -Variable @code{mime-viewer/ignored-field-regexp} is created from it. - -Please use function @code{tm:add-fields} or @code{tm:delete-fields} to -set it. -@end defvar diff --git a/doc/tm-view-ch_ja.texi b/doc/tm-view-ch_ja.texi deleted file mode 100644 index 757e100..0000000 --- a/doc/tm-view-ch_ja.texi +++ /dev/null @@ -1,72 +0,0 @@ -@c $Id: tm-view-ch_ja.texi,v 1.1 1995/12/11 08:36:37 morioka Exp $ - -@node content-header, content-body, content-subject, MIME display -@comment node-name, next, previous, up -@subsubsection content-header -@cindex content-header - -$B$"$k(B content $B$N(B reversed-content-number $B$r4X?t(B -@code{mime-viewer/header-visible-p} $B$KF~NO$7$F$=$NJV$jCM$,(B @code{t} $B$K(B -$B$J$k>l9g!"$=$N(B content $B$N(B content-header $B$,I=<($5$l$^$9!#$3$NH=Dj4X?t(B -$B$O!"0lHV>e$N(B content $B$G$J$/!"$=$N(B content $B$N?F$N(B content-type $B$,JQ?t(B -@code{mime-viewer/childrens-header-showing-Content-Type-list} $B$G;XDj$5(B -$B$l$F$$$k>l9g$K(B @code{t} $B$rJV$7$^$9!#(B - -$B$3$N>r7o$rJQ$($?$$>l9g$O!"$3$N4X?t$r:FDj5A$7$F2<$5$$!#C"$7!"I8=`$G$O!"(B -$BJQ?t(B @code{mime-viewer/childrens-header-showing-Content-Type-list} $B$r(B -$B;2>H$7$^$9$,!":FDj5A$7$?>l9g!"$3$NJQ?t$NM-8z@-$OJ]>Z$5$l$J$$$N$GCm0U$7(B -$B$F2<$5$$!#(B - -content-header $B$,I=<($5$l$k>l9g!"(Bcontent-header $B$O(B -content-header-filter $B$K$h$C$F@07A$5$l$^$9!#8F$P$l$k(B -content-header-filter $B$O(B article buffer $B$N(B major-mode $B$r(B key $B$H$7$FJQ(B -$B?t(B @code{mime-viewer/content-header-filter-alist} $B$+$iC5$5$l$^$9!#$b$7!"(B -content-header-filter $B$,8+$D$+$i$J$+$C$?>l9g!"4X?t(B -@code{mime-viewer/default-content-header-filter} $B$,8F$P$l$^$9!#(B - - -@defvar mime-viewer/childrens-header-showing-Content-Type-list - -$B$"$k(B content $B$N;R$KEv$?$k(B content $B$N(B content-header $B$rI=<($9$Y$-(B -Content-Type $B$r<}$a$?(B list. $B4{DjCM$O(B "message/rfc822" $B$G$"$k!#(B - -$B$3$NJQ?t$O4X?t(B @code{mime-viewer/header-visible-p} $B$K$h$C$F;2>H$5$l$k!#(B -@end defvar - - -@deffn{Function} mime-viewer/header-visible-p rcnum cinfo &optional ctype - -content-info @var{cinfo} $BCf$N(B reversed-content-number $B$,(B @var{rcnum} -$B$G$"$k(B content $B$N(B header $B$,I=<($5$l$k>l9g!"(Bt $B$rJV$9!#$=$N(B content $B$N(B -content-type $B$,$"$i$+$8$a$o$+$C$F$$$k>l9g!"(B@var{ctype} $B$K0z?t$H$7$FEO(B -$B$9$3$H$,$G$-$k!#(B -@end deffn - - -@defvar mime-viewer/content-header-filter-alist - -article-buffer $B$N(B major-mode $B$r(B key $B$H$7$?O"A[%j%9%H$G!"CMIt$K$O(B -content-header-filter $B$,F~$C$F$$$k!#(B -@end defvar - - -@deffn{Function} mime-viewer/default-content-header-filter - -$B$"$k(B content $B$N(B content-header $B$rI=<($9$Y$-;~!"JQ?t(B -@code{mime-viewer/content-header-filter-alist} $B$NCf$K(B -content-header-filter $B$,8+$D$+$i$J$+$C$?>l9g$K8F$S=P$5$l$k!#(B - -$BJQ?t(B @code{mime-viewer/ignored-field-regexp} $B$r;2>H$9$k!#(B -@end deffn - - -@defvar mime-viewer/ignored-field-list - -content-header $B$rI=<($9$k;~$K!"I=<($7$J$$(B field $B$r;XDj$9$k!#(B - -$B@55,I=8=$N(B list $B$K$J$C$F$*$j!"$3$NCM$r85$KJQ?t(B -@code{mime-viewer/ignored-field-regexp} $B$,:n$i$l$k!#(B - -$B$3$NJQ?t$OD>@\A`:n$;$:!"4X?t(B @code{tm:add-fields} $B$d(B -@code{tm:delete-fields} $B$r;H$C$FA`:n$9$k!#(B -@end defvar diff --git a/doc/tm-view-cs_en.texi b/doc/tm-view-cs_en.texi deleted file mode 100644 index 7918e2f..0000000 --- a/doc/tm-view-cs_en.texi +++ /dev/null @@ -1,66 +0,0 @@ -@c $Id: tm-view-cs_en.texi,v 1.1 1995/12/13 09:29:00 morioka Exp $ - -@node content-subject, content-header, MIME display, MIME display -@comment node-name, next, previous, up -@subsubsection content-subject -@cindex content-subject - -content-subject is a part to display abstract for the content. It is -placed in top of content. - -In default, it is displayed following design: - -@example - [1.3 test (text/plain)] -@end example - -First number field represents position of a content in the message. It -is called `content-number'. It can be considered as the chapter number -in the message. - -Second string part represents title. It is created by following: - -@itemize @bullet -@item name paramater or x-name parameter in Content-Type field -@item Content-Description field or Subject field -@item filename of uuencode -@end itemize - -If they are not exists, space is displayed. - -Third parenthesis part represents content-type/subtype of the content. -If it is non-MIME part, @code{nil} is displayed. - -Content-subject is used like icon when content-header and content-body -are hidden. For example, - -@example - [2 (image/gif)] -@end example - -if you press `v' key, GIF image is displayed. - - -@defvr{Variable} mime-viewer/content-subject-omitting-Content-Type-list - -List of content-type. If content-type of a content is a member of this -list, its content-subject is not displayed. - -This variable is referenced by function -@code{mime-viewer/default-content-subject-function}. -@end defvr - - -@deffn{Function} mime-viewer/default-content-subject-function rcnum cinfo ctype params subj - -Default value of the variable -@code{mime-viewer/content-subject-function}. It refers variable -@code{mime-viewer/content-subject-omitting-Content-Type-list}. -@end deffn - - -@defvar mime-viewer/content-subject-function rcnum cinfo ctype params subj - -Variable to specify content-subject display function. Default value is -the function @code{mime-viewer/default-content-subject-function}. -@end defvar diff --git a/doc/tm-view-cs_ja.texi b/doc/tm-view-cs_ja.texi deleted file mode 100644 index 8aa39e9..0000000 --- a/doc/tm-view-cs_ja.texi +++ /dev/null @@ -1,70 +0,0 @@ -@c $Id: tm-view-cs_ja.texi,v 1.1 1995/12/11 08:35:59 morioka Exp $ - -@node content-subject, content-header, MIME display, MIME display -@comment node-name, next, previous, up -@subsubsection content-subject -@cindex content-subject - -content-subject $B$O(B content $B$N@hF,$K$"$C$F!"$=$N(B content $B$K4X$9$kBg$^$+(B -$B$J>pJs$rI=<($9$kItJ,$G$9!#(B - -$BI8=`$G$O(B - -@example - [1.3 test (text/plain)] -@end example - -$B$N$h$&$J46$8$KI=<($5$l$^$9!#(B - -$B:G=i$N?t;z$O(B message $BCf$N$3$N(B content $B$N0LCV$r@aHV9f$N$h$&$KI=$7$?$b$N(B -$B$G!"(Bcontent-number $B$H8F$S$^$9!#(B - -$B#2HVL\$NJ8;zNs$OI=Bj$rI=$7$^$9!#$3$N>pJs$O!"(B - -@itemize @bullet -@item Content-Type field $B$N(B name paramater $B$b$7$/$O(B x-name parameter -$B$K=q$+$l$?(B file $BL>(B -@item Content-Description field $B$b$7$/$O(B Subject field $B$K=q$+$l$?I=Bj(B -@item uuencode $B$N>l9g$N(B file $BL>(B -@end itemize - -$B$+$i:n$j$^$9!#$I$l$bB8:_$7$J$$>l9g$O6uGr$,I=<($5$l$^$9!#(B - -$B#3HVL\$N3g8L$NCf$N>pJs$O$=$N(B content $B$N(B content-type/subtype $B$rI=$7$^(B -$B$9!#Hs(B MIME part $B$N>l9g!"(B@code{nil} $B$,I=<($5$l$^$9!#(B - -$B$3$N(B content-subject $B$O(B content-header, content-body $B$rI=<($7$J$$>l9g!"(B -icon $B$N$h$&$JLr3d$r2L$?$7$^$9!#Nc$($P!"(B - -@example - [2 (image/gif)] -@end example - -$B$N>e$G(B `v' $B$r2!$;$P$3$3$KF~$C$F$$$k3($,I=<($5$l$^$9!#(B - - -@defvr{Variable} mime-viewer/content-subject-omitting-Content-Type-list - -$BI=<($7$J$$(B Content-Type $B$rMWAG$H$9$k(B list. $B4X?t(B -@code{mime-viewer/default-content-subject-function} $B$K$h$C$F;2>H$5$l$k!#(B -@end defvr - - -@deffn{Function} mime-viewer/default-content-subject-function rcnum cinfo ctype params subj - -$BI8=`$N(B content-subject $BI=<(4X?t!#JQ?t(B -@code{mime-viewer/content-subject-omitting-Content-Type-list} $B$r;2>H$7(B -$B$F$$$k!#(B -@end deffn - - -@defvar mime-viewer/content-subject-function rcnum cinfo ctype params subj - -content-subject $BI=<(4X?t$r@_Dj$9$k$?$a$NJQ?t!#4{DjCM$O4X?t(B -@code{mime-viewer/default-content-subject-function} $B$G$"$k!#(B - -$B$3$NJQ?t$K!"4X?t(B @code{mime-viewer/default-content-subject-function} -$B0J30$N4X?t$r@_Dj$7$?>l9g!"JQ?t(B -@code{mime-viewer/content-subject-omitting-Content-Type-list} $B$NM-8z@-(B -$B$OJ]>Z$5$l$J$$$N$GCm0U$9$k$3$H!#(B -@end defvar diff --git a/doc/tm-view-m_en.texi b/doc/tm-view-m_en.texi deleted file mode 100644 index 3311659..0000000 --- a/doc/tm-view-m_en.texi +++ /dev/null @@ -1,261 +0,0 @@ -@c $Id: tm-view-m_en.texi,v 1.1 1995/12/13 09:29:24 morioka Exp $ - -@node method, , preview-buffer, Mechanism of tm-view -@comment node-name, next, previous, up -@subsection method -@cindex method - -In @code{mime/viewer-mode}, you can do play (@key{v}), extract -(@key{e}), or print (@key{C-c C-p}) for each content. These operations -are called ``decoding operation(s) (for a content)''. And kind of -decoding operations are called @strong{decoding-mode}. - -When decoding operation is driven, tm-view calls a procedure matched -for the condition, such as content-type. This procedure is called -@strong{method}. - -There are two kinds of method. One is Emacs Lisp function, called -@strong{internal method}. Another one is external program, called -@strong{external method}. - -Internal method operates in Emacs, so it can do carefully. - -External method is called as asynchronous process, so Emacs does not -wait while method is running. So it is good for big data, such as -audio, image or video. - -@menu -* decoding-condition:: Setting of content decoding condition. -* Format of method value:: Format of method value part. -* Example of decoding-condition:: Examples of decoding-condition. -@end menu - - -@node decoding-condition, Format of method value, method, method -@comment node-name, next, previous, up -@section Setting of content decoding condition -@cindex content decoding condition - -When decoding operation is driven, tm-view calls a method matched for -the condition searched from the variable -@code{mime/content-decoding-condition}. - -Variable @code{mime/content-decoding-condition} is defined as a list -with the following syntax: - -@lisp - (condition1 condition2 ...) -@end lisp - -Each condition are association-list with the following syntax: - -@lisp - ((field-type_1 . value_1) - (field-type_2 . value_2) - ...) -@end lisp - -For example, if you want to call the external method named tm-plain to -decode every text/plain type content, you can define the condition -like - -@lisp - ((type . "text/plain") - (method "tm-plain" nil 'file 'type 'encoding 'mode 'name)) -@end lisp - -As you notice, now you can define the arguments to pass to a external -method. Refer to @xref{Format of method value} section for more -explanation. - -This condition definition will match all contents whose types are -text/plain. Here is an another example: - -@lisp - ((type . "text/plain") - (method "tm-plain" nil 'file 'type 'encoding 'mode 'name) - (mode . "play")) -@end lisp - -This will match the content whose type is text/plain and the mode is -play. - -@lisp - ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file) - (mode . "play")) -@end lisp - -This will match all contents which have a mode of play. - -The conditions defined in a mime/content-decoding-condition variable -are examined from top to bottom. The first matching condition becomes -valid and the method specified in that condition definition will be -executed. - - -@node Format of method value, Example of decoding-condition, decoding-condition, method -@comment node-name, next, previous, up -@section Format of method value part -@cindex Format of method value part - -You can specify the method field of the decoding-condition definition -in two different ways, - -@lisp - (method . SYMBOL) -@end lisp - -or - -@lisp - (method STRING FLAG ARGUMENT1 ARGUMENT2 ...) -@end lisp - -can be accepted. - -When a symbol is specified in the method field, a function whose name -is SYMBOL will be called as an internal method. - -When a list is specified in the method field, it will be called as an -external method. - -The list below shows the meaning of the parameters when the external -method is specified in the method field. - -@table @samp -@item STRING - name of an external method -@item FLAG - If @code{t}, both the content header and the content body are - passed to an external method. if nil, only the content body is - passed to an external method. -@item ARGUMENTs - list of arguments passed to an external method -@end table - -An argument passed to an external method can be in one of the -following formats: - -@table @samp -@item STRING - string itself -@item 'SYMBOL - value gotten using SYMBOL as a key (see below) -@item 'STRING - value gotten using STRING as a key (see below) -@end table - -'SYMBOL can be one of the following: - -@table @samp -@item 'file - name of a file holding the original content -@item 'type - content-type/sub-type of Content-Type field -@item 'encoding - field body of Content-Transfer-Encoding field -@item 'mode - decoding-mode -@item 'name - name of a file created by decode operation -@end table - -'STRING is used to search a parameter of the Content-Type field whose -name matches with it, and pass the value of that parameter to the -external method. - - -@node Example of decoding-condition, , Format of method value, method -@comment node-name, next, previous, up -@section Examples of decoding-condition -@cindex Examples of decoding-condition - -The default definition of a mime/content-decoding-condition variable -is shown below. - -@lisp -(defvar mime/content-decoding-condition - '(((type . "text/plain") - (method "tm-plain" nil 'file 'type 'encoding 'mode 'name)) - ((type . "text/x-latex") - (method "tm-latex" nil 'file 'type 'encoding 'mode 'name)) - ((type . "audio/basic") - (method "tm-au" nil 'file 'type 'encoding 'mode 'name)) - ((type . "image/gif") - (method "tm-image" nil 'file 'type 'encoding 'mode 'name)) - ((type . "image/jpeg") - (method "tm-image" nil 'file 'type 'encoding 'mode 'name)) - ((type . "image/tiff") - (method "tm-image" nil 'file 'type 'encoding 'mode 'name)) - ((type . "image/x-tiff") - (method "tm-image" nil 'file 'type 'encoding 'mode 'name)) - ((type . "image/x-xbm") - (method "tm-image" nil 'file 'type 'encoding 'mode 'name)) - ((type . "image/x-pic") - (method "tm-image" nil 'file 'type 'encoding 'mode 'name)) - ((type . "video/mpeg")` - (method "tm-mpeg" nil 'file 'type 'encoding 'mode 'name)) - ((type . "application/octet-stream") - (method "tm-file" nil 'file 'type 'encoding 'mode 'name)) - ((type . "message/partial") - (method . mime/decode-message/partial-region)) - ((method "metamail" t - "-m" "tm" "-x" "-d" "-z" "-e" 'file)(mode . "play")) - )) -@end lisp - -For example, if you want to use metamail to decode any contents, - -@lisp -(setq mime/content-decoding-condition - '( - ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file)) - )) -@end lisp - -will work. - -A mime/content-decoding-condition variable provides you of very flexible -way to define the conditions of decoding. It can be simple if you only -need the a few decoding methods, while it can be very complicated if you -want to use the separate decoding method for each type/mode combination. - -Following function may be useful to set decoding-condition. It is a -function of tl-atype.el. - - -@deffn{Function} set-atype symbol alist - -Add condition @var{alist} to symbol @var{symbol}. - -Example: - -@lisp -(set-atype 'mime/content-decoding-condition - '((type . "message/external-body") - ("access-type" . "anon-ftp") - (method . mime/decode-message/external-ftp) - )) -@end lisp -@end deffn - - -@node environment variables, , mime/viewer-mode, tm-view -@comment node-name, next, previous, up -@chapter environment variables -@cindex environment variables - -Standard methods of tm-view reference some environment variables. You -can specify them to customize. - -@table @var -@item TM_TMP_DIR -Directory for temporary files or extracted files. Default value is -`/tmp/'. - -@item VIDEO_DITHER -Dither for mpeg_play. Default value is `gray'. - -@item TM_WWW_BROWSER -WWW browser name. Default value is `netscape'. -@end table diff --git a/doc/tm-view-m_ja.texi b/doc/tm-view-m_ja.texi deleted file mode 100644 index cff90dd..0000000 --- a/doc/tm-view-m_ja.texi +++ /dev/null @@ -1,249 +0,0 @@ -@c $Id: tm-view-m_ja.texi,v 1.1 1995/12/11 08:40:51 morioka Exp $ - -@node method, , preview-buffer, Mechanism of tm-view -@comment node-name, next, previous, up -@subsection method -@cindex method - -@code{mime/viewer-mode} $B$G$O(B user $B$O3F(B content $B$KBP$7$F!"(Bplay -(@key{v}), extract (@key{e}), print (@key{C-c C-p}) $B$H$$$&A`:n$r9T$J$&(B -$B$3$H$,$G$-$^$9!#$3$&$7$?A`:n$N$3$H$r!X!J(Bcontent $B$KBP$9$k!K(Bdecode $BA`:n!Y(B -$B$H8F$V$3$H$K$7$^$9!#$^$?!"(B@strong{play}, @strong{extract}, -@strong{print} $B$H$$$&(B decode $BA`:n$Nr7o$d$=(B -$B$N>l$N4D6-$K1~$8$Fr7o$N@_Dj(B -* Format of method value:: method $B$NCMIt$N=q<0(B -* Example of decoding-condition:: $B@_DjNc(B -@end menu - - -@node decoding-condition, Format of method value, method, method -@comment node-name, next, previous, up -@subsubsection content $B$N(B decode $B>r7o$N@_Dj(B -@cindex content decoding condition - -tm-view $B$O(B decode $BA`:n$,9T$J$o$l$k$H!"JQ?t(B -@code{mime/content-decoding-condition} $B$+$i$=$N;~$N>r7o$K9gCW$7$?(B -method $B$rA\$7=P$7$F!"$=$l$r8F$S=P$7$^$9!#(B - -$BJQ?t(B @code{mime/content-decoding-condition} $B$O(B - -@lisp - ($B>r7o(B1 $B>r7o(B2 ...) -@end lisp - -$B$H$$$&7A$r$7$?(B list $B$G!"3F>r7o$O(B - -@lisp - ((field-type_1 . value_1) - (field-type_2 . value_2) - ...) -@end lisp - -$B$H$$$&7A$NO"A[(B list $B$K$J$C$F$$$^$9!#(B - -$BNc$($P!"(Btext/plain $B$N;~!"(Btm-plain $B$r5/F0$9$k;~!"(B - -@lisp - ((type . "text/plain") - (method "tm-plain" nil 'file 'type 'encoding 'mode 'name)) -@end lisp - -$B$H$$$&>r7o$r=q$-$^$9!#$3$N(B method $B$N(B value $BIt$N=q<0$K$D$$$F$O8e$G>\$7(B -$B$/=R$Y$^$9!#(B - -$B$3$N>r7o$O(B content-type $B$,(B text/plain $B$G$"$k(B content $B$J$iA4$F$N(B -decoding-mode $B$GM-8z$G$9!#$7$+$7!"(B - -@lisp - ((type . "text/plain") - (method "tm-plain" nil 'file 'type 'encoding 'mode 'name) - (mode . "play")) -@end lisp - -$B$J$i!"(Bplay mode $B$N;~$7$+M-8z$K$J$j$^$;$s!#(B - -$B5U$K!"(B - -@lisp - ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file) - (mode . "play")) -@end lisp - -$B$J$i!"A4$F$N(B content-type $B$N(B play mode $B$GM-8z$K$J$j$^$9!#(B - -$B$3$&$7$F3F>r7o$rA0$+$i8+$F9T$-!":G=i$KM-8z$K$J$C$?>r7o$,l9g$N(B method field $B$N=q<0$O0J2<$NDL$j$G$9!#(B - -@table @samp -@item $BJ8;zNs(B - $B30It(B method $B$NL>A0(B -@item FLAG - @code{t} $B$J$i(B content-header $B$b30It(B method $B$KEO$9!#(B@code{nil} - $B$J$i(B content-body $B$N$_$rEO$9!#(B -@item $B0z?tNs(B - $B30It(B method $B$N0z?t(B -@end table - -$B$^$?!"30It(B method $B$N0z?t$O(B -@item 'type - Content-Type field $B$N(B content-type/subtype -@item 'encoding - Content-Transfer-Encoding field $B$N(B field body -@item 'mode - decoding-mode -@item 'name - file $B$KMn$9>l9g$N(B file $BL>(B -@end table - -$B$J$I$,$"$j!"(B'$BJ8;zNs(B $B$G$O(B Content-Type field $B$N(B parameter $B$NCM$,;XDj$G(B -$B$-$^$9!#(B - - -@node Example of decoding-condition, , Format of method value, method -@comment node-name, next, previous, up -@subsubsection decoding-condition $B$NNc(B -@cindex decoding-condition $B$NNc(B - -$B0J2<$K(B decoding-condition $B$N@_DjNc$r<($7$^$9!#(B - -@lisp -(defvar mime/content-decoding-condition - '(((type . "text/plain") - (method "tm-plain" nil 'file 'type 'encoding 'mode 'name)) - ((type . "text/x-latex") - (method "tm-latex" nil 'file 'type 'encoding 'mode 'name)) - ((type . "audio/basic") - (method "tm-au" nil 'file 'type 'encoding 'mode 'name)) - ((type . "image/gif") - (method "tm-image" nil 'file 'type 'encoding 'mode 'name)) - ((type . "image/jpeg") - (method "tm-image" nil 'file 'type 'encoding 'mode 'name)) - ((type . "image/tiff") - (method "tm-image" nil 'file 'type 'encoding 'mode 'name)) - ((type . "image/x-tiff") - (method "tm-image" nil 'file 'type 'encoding 'mode 'name)) - ((type . "image/x-xbm") - (method "tm-image" nil 'file 'type 'encoding 'mode 'name)) - ((type . "image/x-pic") - (method "tm-image" nil 'file 'type 'encoding 'mode 'name)) - ((type . "video/mpeg")` - (method "tm-mpeg" nil 'file 'type 'encoding 'mode 'name)) - ((type . "application/octet-stream") - (method "tm-file" nil 'file 'type 'encoding 'mode 'name)) - ((type . "message/partial") - (method . mime/decode-message/partial-region)) - ((method "metamail" t - "-m" "tm" "-x" "-d" "-z" "-e" 'file)(mode . "play")) - )) -@end lisp - -$BNc$($P!"!VA4It(B metamail $B;H$&$s$d!W$H$$$&>l9g!"(B - -@lisp -(setq mime/content-decoding-condition - '( - ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file)) - )) -@end lisp - -$B$H$9$l$P(B OK $B$G$9!#(B - -$B9)IW$9$l$P!"$+$J$jJ#;($J>r7o$,=q$1$k$G$7$g$&!#(B - - -$B0J2<$K!"(Bdecoding-condition $B$r@_Dj$9$k$?$a$NM-MQ$J4X?t$r>R2p$7$^$9!#(B - - -@deffn{Function} set-atype symbol alist - -@var{symbol} $B$K>r7o(B @var{alist} $B$rDI2C$7$^$9!#(B - -$BNc!'(B - -@lisp -(set-atype 'mime/content-decoding-condition - '((type . "message/external-body") - ("access-type" . "anon-ftp") - (method . mime/decode-message/external-ftp) - )) -@end lisp -@end deffn - - -@node environment variables, , mime/viewer-mode, tm-view -@comment node-name, next, previous, up -@section $B4D6-JQ?t(B -@cindex environment variables - -$B0J2<$K(B tm-view $B$NI8=`(B method $B$,;2>H$9$k4D6-JQ?t$r<($7$^$9!#(B - -@table @var -@item TM_TMP_DIR -$B0l;~E*$K:n@.$5$l$k(B file $B$d(B file $B=PNO$9$k>l9g$N(B default $B$N=PNO@h$H$7$F(B -$BMQ$$$i$l$k(B directory $B$r;XDj$9$k!#>JN,$5$l$?>l9g!"(B/tmp/ $B$,MQ$$$i$l$k!#(B - -@item VIDEO_DITHER -mpeg_play $B$G$N(B dither $B$N$+$1J}$r;XDj$9$k!#4{DjCM$O(B `gray'. - -@item TM_WWW_BROWSER -WWW browser $B$r;XDj$9$k!#4{DjCM$O(B `netscape'. -@end table diff --git a/doc/tm-view-p_en.texi b/doc/tm-view-p_en.texi deleted file mode 100644 index adf9e63..0000000 --- a/doc/tm-view-p_en.texi +++ /dev/null @@ -1,45 +0,0 @@ -@c $Id: tm-view-p_en.texi,v 1.1 1995/12/13 09:29:38 morioka Exp $ - -@node preview-buffer, method, article-buffer, Mechanism of tm-view -@comment node-name, next, previous, up -@subsection preview-buffer - -@defvar mime::preview/mother-buffer - -Mother buffer of this preview-buffer. -@end defvar - - -@defvar mime::preview/content-list - -List of preview-content-info to represent structure of this -preview-buffer. -@end defvar - - -@defvar mime::preview/article-buffer - -article-buffer corresponded by this preview-buffer. -@end defvar - - -@defvar mime::preview/original-major-mode - -major-mode of original buffer. -@end defvar - - -@defvar mime::preview/original-window-configuration - -window-configuration just before made this preview-buffer. -@end defvar - - -@defun mime-preview/point-pcinfo point &optional pcl - -In a region of preview-buffer managed by preview-content-info -@var{pcl}, it returns preview-content-info corresponded by -@var{point}. - -Default value of @var{cinfo} is @code{mime::preview/content-list}. -@end defun diff --git a/doc/tm-view-p_ja.texi b/doc/tm-view-p_ja.texi deleted file mode 100644 index 5cffc69..0000000 --- a/doc/tm-view-p_ja.texi +++ /dev/null @@ -1,45 +0,0 @@ -@c $Id: tm-view-p_ja.texi,v 1.1 1995/12/11 08:41:27 morioka Exp $ - -@node preview-buffer, method, article-buffer, Mechanism of tm-view -@comment node-name, next, previous, up -@subsection preview-buffer - -@defvar mime::preview/mother-buffer - -$B$3$N(B preview-buffer $B$N?F$KAjEv$9$k(B buffer. -@end defvar - - -@defvar mime::preview/content-list - -$B$3$N(B preview-buffer $B$N9=B$$r$"$i$o$9(B preview-content-info $B$N(B list. -@end defvar - - -@defvar mime::preview/article-buffer - -$B$3$N(B preview-buffer $B$KBP1~$9$k(B article-buffer. -@end defvar - - -@defvar mime::preview/original-major-mode - -$B$3$N(B preview-buffer $B$N$b$H$K$J$C$?(B buffer $B$N(B major-mode. -@end defvar - - -@defvar mime::preview/original-window-configuration - -@code{mime/viewer-mode} $B$rA0$N(B -window-configuration. -@end defvar - - -@defun mime-preview/point-pcinfo point &optional pcl - -preview-content-info @var{pcl} $B$G4IM}$5$l$k(B preview-buffer $BCf$NNN0h$K(B -$B$*$$$F!"(B@var{point} $B$KBP1~$9$k(B content $B$N(B preview-content-info $B$rJV$9!#(B - -@var{cinfo} $B$,>JN,$5$l$?>l9g$O!"(B@code{mime::preview/content-list} $B$,MQ(B -$B$$$i$l$k!#(B -@end defun diff --git a/doc/tm-view_en.texi b/doc/tm-view_en.texi deleted file mode 100644 index 203aa42..0000000 --- a/doc/tm-view_en.texi +++ /dev/null @@ -1,282 +0,0 @@ -@c{$Id: tm-view_en.texi,v 7.3 1995/12/13 09:30:34 morioka Exp $} - -@node tm-view, encoded-word, tm-MUA, Top -@comment node-name, next, previous, up -@chapter tm-view -@cindex tm-view - -The tm-view is a general MIME viewer running on GNU Emacs. - -tm-view provides the major-mode called @code{mime/viewer-mode} to read -MIME message for MUA. MUA implementer can use it to add MIME function. - -tm-view is a user interface kernel to view and navigate MIME message. -tm-view drives some programs to navigate each content-type/sub-types, -they are called @strong{method}. tm-view calls some programs to -display each content-type/sub-types in preview buffer, they are called -@strong{filter}. @strong{method} and @strong{filter} are tm-view -application program. They expand tm-view to treat various kinds of -MIME types. - -@menu -* Mechanism of tm-view:: -* mime/viewer-mode:: -@end menu - - -@node Mechanism of tm-view, Functions of tm-view, tm-view, tm-view -@comment node-name, next, previous, up -@chapter Mechanism of tm-view -@cindex mechanism of tm-view - -tm-view managements two buffers, one is for raw message called -@strong{article buffer}, another one is to preview for user called -@strong{preview buffer}. - -When called @code{mime/viewer-mode}, tm-view analyzes article buffer, -and sets its result to the variable @code{mime::article/content-info}. - -After that, tm-view create a preview buffer corresponded to the -article buffer. As this time, tm-view modifies header and body of each -contents of the message. It is done by definition for Content-Types. - -On the preview buffer created by tm-view, user can manipulate a -message to decode, such as run external vewer, extract files, or -print. - -Notice: In this document, I call @strong{content-type} as -content-type/subtype of Content-Type field. - - -@menu -* Functions of tm-view:: -* article-buffer:: -* preview-buffer:: -* method:: -@end menu - - -@node Functions of tm-view, function to preview, Mechanism of tm-view, Mechanism of tm-view -@comment node-name, next, previous, up -@subsection Functions of tm-view - -tm-view provides some available functions to decode and navigate MIME -message to each MUAs. - -There are 2 kinds of functions, one is for MIME preview, another one -is to decode RFC 1522 encoded-word. - -Memo: Old tiny-mime.el was abolished. Functions to decode RFC 1522 -encoded-word are took over to tm-view. - - -@menu -* function to preview:: -* encoded-word decoding:: -@end menu - - -@node function to preview, encoded-word decoding, Functions of tm-view, Functions of tm-view -@comment node-name, next, previous, up -@subsubsection function to preview MIME message -@cindex mime/viewer-mode - -@deffn{Command} mime/viewer-mode &optional mother ctl encoding - -Parse current-buffer as a MIME message, and create preview buffer to -display to user, then enter @code{mime/viewer-mode}. - -@var{mother} is used to specify original article buffer. It may be -useful when an article buffer is assembled from message/partial. - -@var{ctl} is used to specify Content-Type field information. Its -format is output format of @code{mime/Content-Type}. When @var{ctl} is -specified, tm-view uses it instead of Content-Type field of the -article buffer. - -@var{encoding} is used to specify field-body of -Content-Transfer-Encoding field. When is is specified, tm-view uses it -instead of Content-Type field of the article buffer. -@end deffn - - -@include{tm-ew-d_en.texi} - - -@include{tm-view-a_en.texi} - -@include{tm-view-p_en.texi} - -@include{tm-view-m_en.texi} - - - -@node mime/viewer-mode, environment variables, Functions of tm-view, tm-view -@comment node-name, next, previous, up -@section mime/viewer-mode -@cindex mime/viewer-mode - -@code{mime/viewer-mode} is a major-mode to preview MIME message. In -MIME viewer mode, you can navigate MIME message interactively. - -@menu -* MIME display:: -* MIME navigation:: -@end menu - -@node MIME display, content-body, mime/viewer-mode, mime/viewer-mode -@comment node-name, next, previous, up -@chapter Screen design of preview buffer -@cindex Screen design of preview buffer - -In preview buffer, following are displayed for each content: - -@example - [content-subject] - (content-header) - - (content-body) - (content-separator) -@end example - -You can change design or stop to display if you specify for each -content-types. - -Example: - -@example -From: MORIOKA Tomohiko -Newsgroups: zxr.comp.emacs.tm-english -Subject: tm6.63.tar.gz -Date: Mon, 26 Jun 1995 17:39:50 JST -Organization: Chamonix, JAIST, Tatsunokuchi, Ishikawa, Japan -Reply-To: tm-eng@@chamonix.jaist.ac.jp -To: tm-eng@@chamonix.jaist.ac.jp -In-Reply-To: Your message of "Sun, 25 Jun 1995 23:20:49 MST" -X-Mua: mh-e 4.1 + tm 6.63 / Mule 2.2 (WAKAMURASAKI) PL02 -X-Mime-Composer: mime.el + tiny-mime 5.12 -X-Ml-Count: 32 - -[1 (text/plain)] - I put tm6.63.tar.gz in ftp.jaist.ac.jp. - - In this version, tm-view uses new MIME encoding/decoding engine -``mel (MIME encoding library''. This library has internal/external -encoding/decoding engine. If data is smaller than a limit, tm-view -uses internal decoder, otherwise external decoder. - -[2 tm6.63.tar.gz ([anon-ftp] ftp.jaist.ac.jp:/pub/GNU/elisp/mime/alpha)] - -[3 (text/plain)] ----- -MORIOKA, Tomohiko -@end example - - -@menu -* content-subject:: -* content-header:: -* content-body:: -* content-separator:: -@end menu - -@include{tm-view-cs_en.texi} -@include{tm-view-ch_en.texi} -@include{tm-view-cb_en.texi} - - -@node content-separator, , content-body, Preview Buffer -@comment node-name, next, previous, up -@section content-separator -@cindex content-separator - -Content-separator is displayed to represent boundary of contents. - -Content-separator is displayed by function -@code{mime-viewer/default-content-separator}. In default, it displays -line-break when content-header and content-body are not displayed. - -If you want to change this condition, please redefine this function. - - -@deffn{Function} mime-viewer/default-content-separator cnum cinfo ctype params subj - -Display content-separator. @var{cnum} is content-number of a -content. @var{cinfo} is content-info of the message. @var{ctype} is -content-type of a content. @var{params} is Content-Type field -parameters of a content. @var{subj} is subject. - -In default, it displays line-break when content-header and -content-body are not displayed. -@end deffn - - -@node MIME navigation, method, content-body, mime/viewer-mode -@comment node-name, next, previous, up -@chapter Commands of mime/viewer-mode -@cindex Commands of mime/viewer-mode - -@code{mime/viewer-mode} has following functions: - -@table @kbd -@item @key{u} -goes to the upper content (returns to the Summary mode if the cursor -is sitting on the top content (*1)) - -@item @key{p} -goes to the previous content - -@item @key{n} -goes to the next content - -@item @key{SPC} -scrolls up - -@item @key{M-SPC} -scrolls down - -@item @key{DEL} -scrolls down - -@item @key{RET} -goes to the next line - -@item @key{M-RET} -goes to the previous line - -@item @key{<} -goes to the beginning of message - -@item @key{>} -goes to the end of message - -@item @key{v} -playbacks a content (*2) - -@item @key{e} -extracts a file from a content (*2) - -@item @key{C-c C-p} -prints a content (*2) - -@item @key{f} -displays X-Face in the message - -@item @key{mouse-button-2} -drives mouse button. - -If you press content-subject, it playbacks the content. (*2) - -If you press URL-button, it runs WWW browser. -@end table - - -@b{[Notice]} -@enumerate -@item -Not return to the Summary mode unless tm-view has been setup using -tm-mh-e, tm-gnus, tm-rmail etc. - -@item -Actual playback/extract/print will be performed by a method. -@end enumerate diff --git a/doc/tm-view_ja.texi b/doc/tm-view_ja.texi deleted file mode 100644 index 451460e..0000000 --- a/doc/tm-view_ja.texi +++ /dev/null @@ -1,293 +0,0 @@ -@c $Id: tm-view_ja.texi,v 7.6 1995/12/13 09:47:14 morioka Exp $ - -@node tm-view, encoded-word, tm-MUA, Top -@comment node-name, next, previous, up -@chapter tm-view -@cindex tm-view - -tm-view ¤Ï GNU Emacs ¤ÇÆ°ºî¤¹¤ëÈÆÍÑŪ¤Ê MIME viewer ¤Ç¤¹¡£ - -tm-view ¤Ï @code{mime/viewer-mode} ¤È¤¤¤¦ MIME message ¤ò¸«¤ë¤¿¤á¤Î -major-mode ¤ò MUA ¤ËÂФ·¤ÆÄ󶡤·¤Þ¤¹¡£MUA ¤ÎÀ߷׼ԤϤ³¤Î mode ¤òÍøÍѤ¹ -¤ë¤³¤È¤Ç¤½¤Î MUA ¤Ë MIME µ¡Ç½¤òÉղ乤뤳¤È¤¬¤Ç¤­¤Þ¤¹¡£ - -tm-view ¤Ï MIME message ¤ò±ÜÍ÷¤¹¤ë¤¿¤á¤Î user interface ¤Î³Ë¤Ç¤¢¤ê¡¢¤½ -¤Î¾å¤Ç³Æ content-type/sub-type ¤ò°·¤¦¤¿¤á¤Î @strong{method} ¤È¸Æ¤Ð¤ì¤ë -¥×¥í¥°¥é¥à¤òÆ°ºî¤µ¤»¤Þ¤¹¡£¤Þ¤¿¡¢MIME message ¤Îɽ¼¨¤Î»ÅÊý¤ò·è¤á¤ë -@strong{filter} ¤È¸Æ¤Ð¤ì¤ë¥×¥í¥°¥é¥à¤òµ¯Æ°»þ¤Ë¸Æ¤Ó½Ð¤·¤Þ¤¹¡£ -@strong{method} ¤È @strong{filter} ¤ò tm-view ¤ËÁȤ߹þ¤à»ö¤Ë¤è¤Ã¤Æ¡¢ -@code{mime/viewer-mode} ¤Ç¤µ¤Þ¤¶¤Þ¤Ê MIME type ¤ò°·¤¦»ö¤¬¤Ç¤­¤Þ¤¹¡£ - -@menu -* Mechanism of tm-view:: tm-view ¤Î»ÅÁÈ¤ß -* mime/viewer-mode:: mime/viewer-mode -@end menu - - -@node Mechanism of tm-view, Functions of tm-view, tm-view, tm-view -@comment node-name, next, previous, up -@section tm-view ¤Î»ÅÁÈ¤ß - -tm-view ¤Ï¡¢MIME ½èÍý¤ò¹Ô¤Ê¤¦Á°¤ÎÀ¸¤Î message ¤¬Æþ¤Ã¤Æ¤¤¤ë -@strong{article-buffer} ¤È¤½¤ÎÆâÍƤò user ¤Ë´Ê·é¤Ëɽ¼¨¤·¡¢user ¤¬Áàºî -¤¹¤ë¤¿¤á¤Î @strong{preview-buffer} ¤È¤¤¤¦£²¤Ä¤Î buffer ¤ò´ÉÍý¤·¤Þ¤¹¡£ -article-buffer ¤Î major-mode ¤Ï¤â¤È¤â¤È¤Î MUA ¤Î article ɽ¼¨ÍѤΠ-major-mode ¤Ç¤¢¤ê¡¢preview-buffer ¤Î major-mode ¤Ï mime/viewer-mode ¤È -¤Ê¤ê¤Þ¤¹¡£ - -@code{mime/viewer-mode} ¤ò¼Â¹Ô¤¹¤ë¤È¡¢tm-view ¤Ï¤Þ¤º article-buffer ¤Î -ÆâÍƤò²òÀϤ·¡¢¤½¤Î message ¤Î¹½Â¤¤ò article-buffer ¤Î buffer local ÊÑ -¿ô @code{mime::article/content-info} ¤Ëµ­Ï¿¤·¤Þ¤¹¡£ - -¼¡¤Ë¡¢¤³¤Î·ë²Ì¤ò¸µ¤Ë article-buffer ¤ËÂбþ¤¹¤ë preview-buffer ¤òºî¤ê¤Þ -¤¹¡£¤³¤ÎºÝ¡¢content-type ¤Ë±þ¤¸¤Æ¡¢content ñ°Ì¤Ç header ¤ä body ¤ò²Ã -¹©¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤³¤Î header ¤ò²Ã¹©¤¹¤ë¥×¥í¥°¥é¥à¤ò -@strong{header-filter}, body ¤ò²Ã¹©¤¹¤ë¥×¥í¥°¥é¥à¤ò -@strong{content-filter} ¤È¸Æ¤Ó¡¢¤³¤ì¤é¤òÁí¾Î¤·¤Æ @strong{filter} ¤È¸Æ -¤Ó¤Þ¤¹¡£ - -preview-buffer ¤òºîÀ®¤¹¤ë»þ¤Ë¡¢message ¤Îɽ¼¨¾å¤Î¹½Â¤¤òµ­Ï¿¤·¤¿ -preview-buffer ¤Î buffer local ÊÑ¿ô @code{mime::preview/content-list} -¤¬ºî¤é¤ì¤Þ¤¹¡£tm-view ¤Ï article-buffer ¾å¤Î -@code{mime::article/content-info} ¤È preview-buffer ¾å¤Î -@code{mime::preview/content-list} ¤òÍѤ¤¤Æ message ¤ò´ÉÍý¤·¤Þ¤¹¡£ - - -Ãí°Õ¡§ ¤³¤ÎÀâÌÀ½ñ¤Ç¤Ï¡¢Content-Type field ¤Î content-type/subtype ¤Î¤³ -¤È¤ò¾Î¤·¤Æ @strong{content-type} ¤È¸Æ¤Ó¤Þ¤¹¡£ - - -@menu -* Functions of tm-view:: tm-view ¤Î´Ø¿ô -* article-buffer:: article-buffer -* preview-buffer:: preview-buffer -* method:: decoding Áàºî¤Î¼Â¸½ -@end menu - - -@node Functions of tm-view, function to preview, Mechanism of tm-view, Mechanism of tm-view -@comment node-name, next, previous, up -@subsection MIME message ¤Î decode ¤Ë´Ø¤¹¤ë´Ø¿ô - -tm-view ¤ÎÄ󶡤¹¤ë´Ø¿ô¤ò³Æ MUA ¤ËÁȤ߹þ¤à»ö¤Ë¤è¤Ã¤Æ¡¢³Æ MUA ¤Ë MIME ºÆ -À¸µ¡Ç½¤òÉղ乤ë»ö¤¬¤Ç¤­¤Þ¤¹¡£ - -tm-view ¤¬³Æ MUA ¤ËÄ󶡤¹¤ë´Ø¿ô¤Ï¡¢MIME preview ¤ò¹Ô¤¦¤¿¤á¤Î´Ø¿ô -@code{mime/viewer-mode} ¤È RFC 1522 encoded-word ¤ò decode ¤¹¤ë¤¿¤á¤Î -´Ø¿ô·²¤Ç¤¹¡£ - -Memo: µì tiny-mime.el ¤Ë¤¢¤Ã¤¿ RFC 1522 encoded-word ¤ò decode ¤¹¤ë¤¿ -¤á¤Î´Ø¿ô·²¤Ï tm-view ¤Ë°ú¤­·Ñ¤¬¤ì¤Þ¤·¤¿¡£ - - -@menu -* function to preview:: MIME message ¤ò preview ¤¹¤ë¤¿¤á¤Î´Ø¿ô -* encoded-word decoding:: encoded-word ¤ò decode ¤¹¤ë¤¿¤á¤Î´Ø¿ô -@end menu - - -@node function to preview, encoded-word decoding, Functions of tm-view, Functions of tm-view -@comment node-name, next, previous, up -@subsubsection MIME message ¤ò±ÜÍ÷¤¹¤ë¤¿¤á¤Î´Ø¿ô -@cindex mime/viewer-mode - -@deffn{Command} mime/viewer-mode &optional mother ctl encoding - -current-buffer ¤ò MIME message ¤È¤·¤Æ²òÀϤ·¤Æ¡¢¤½¤ÎÆâÍƤò±ÜÍ÷¤¹¤ë¤¿¤á -¤Î preview-buffer ¤òºîÀ®¤·¡¢@code{mime/viewer-mode} ¤ËÆþ¤ê¤Þ¤¹¡£ - -@var{mother} ¤Ï¡¢²òÀϤÎÂоݤȤ¹¤ë article-buffer ¤¬ message/partial ·Á -¼°¤Îʬ³ä¤µ¤ì¤¿ message ¤ò·ë¹ç¤·¤ÆºîÀ®¤·¤¿¾ì¹ç¤Ê¤É¤Ë¤ª¤±¤ë¸µ¤Î buffer -¤ò»ØÄꤹ¤ë¤¿¤á¤Ë»È¤¤¤Þ¤¹¡£ - -@var{ctl} ¤Ï Content-Type field ¤Î field-body ¤ò -@code{mime/Content-Type} ¤Î½ÐÎÏÀµ¼°¤Ë¤·¤¿¤â¤Î¤òÆþ¤ì¤Þ¤¹¡£¤³¤Î°ú¿ô¤¬¤¢ -¤ë¾ì¹ç¡¢article-buffer ¤Î Content-Type field ¤è¤ê¤â¤³¤Î°ú¿ô¤òÍ¥À褷¤Þ -¤¹¡£ - -@var{encoding} ¤Ï Content-Transfer-Encoding field ¤Î field-body ¤òÆþ¤ì -¤Þ¤¹¡£¤³¤Î°ú¿ô¤¬¤¢¤ë¾ì¹ç¡¢article-buffer ¤Î Content-Transfer-Encoding -field ¤è¤ê¤â¤³¤Î°ú¿ô¤òÍ¥À褷¤Þ¤¹¡£ -@end deffn - - -@include{tm-ew-d_ja.texi} - - -@include{tm-view-a_ja.texi} - -@include{tm-view-p_ja.texi} - -@include{tm-view-m_ja.texi} - - - -@node mime/viewer-mode, environment variables, Functions of tm-view, tm-view -@comment node-name, next, previous, up -@section mime/viewer-mode -@cindex mime/viewer-mode - -@code{mime/viewer-mode} ¤Ï MIME message ¤ò±ÜÍ÷¤¹¤ë¤¿¤á¤Î major-mode ¤Ç -¤¹¡£MIME viewer mode ¤Ç¤ÏÂÐÏÃŪ¤Ë MIME message ¤òÁàºî¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ -¤¹¡£ - -@menu -* MIME display:: mime/viewer-mode ¤Î²èÌ̹½À® -* MIME navigation:: mime/viewer-mode ¤Ç¤ÎÁàºî -@end menu - - -@node MIME display, content-body, mime/viewer-mode, mime/viewer-mode -@comment node-name, next, previous, up -@subsection mime/viewer-mode ¤Î²èÌ̹½À® - -mime/viewer-mode ¤Ç¤Ï³Æ content ¤ËÂФ·¤Æ - -@example - [content-subject] - (content-header) - - (content-body) - (content-separator) -@end example - -¤È¤¤¤¦¾ðÊó¤òɽ¼¨¤·¤Þ¤¹¡£¤³¤ì¤é¤Ï content-type Ëè¤Ë design ¤òÊѹ¹¤·¤¿¤ê¡¢ -ɽ¼¨¤òÍÞÀ©¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ - -°Ê²¼¤Ë¡¢É½¼¨Îã¤ò¼¨¤·¤Þ¤¹¡£ - - -@example -From: ¼é²¬ ÃÎɧ (MORIOKA Tomohiko) -Newsgroups: zxr.comp.emacs.tm-english -Subject: tm6.63.tar.gz -Date: Mon, 26 Jun 1995 17:39:50 JST -Organization: Chamonix, JAIST, Tatsunokuchi, Ishikawa, Japan -Reply-To: tm-eng@@chamonix.jaist.ac.jp -To: tm-eng@@chamonix.jaist.ac.jp -In-Reply-To: Your message of "Sun, 25 Jun 1995 23:20:49 MST" -X-Mua: mh-e 4.1 + tm 6.63 / Mule 2.2 ( ¼ã»ç ) PL02 -X-Mime-Composer: mime.el + tiny-mime 5.12 -X-Ml-Count: 32 - -[1 (text/plain)] - I put tm6.63.tar.gz in ftp.jaist.ac.jp. - - In this version, tm-view uses new MIME encoding/decoding engine -``mel (MIME encoding library''. This library has internal/external -encoding/decoding engine. If data is smaller than a limit, tm-view -uses internal decoder, otherwise external decoder. - -[2 tm6.63.tar.gz ([anon-ftp] ftp.jaist.ac.jp:/pub/GNU/elisp/mime/alpha)] - -[3 (text/plain)] ----- -MORIOKA, Tomohiko -@end example - - -@menu -* content-subject:: -* content-header:: -* content-body:: -* content-separator:: -@end menu - -@include{tm-view-cs_ja.texi} -@include{tm-view-ch_ja.texi} -@include{tm-view-cb_ja.texi} - - -@node content-separator, , content-body, MIME display -@comment node-name, next, previous, up -@subsubsection content-separator -@cindex content-separator - -content-separator ¤Ï content ¤Î°ìÈֺǸå¤Ë content ´Ö¤Î¶­ÌܤòÌÀ¤é¤«¤Ë¤¹ -¤ë¤¿¤á¤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£ - -content-separator ¤Ï´Ø¿ô @code{mime-viewer/default-content-separator} -¤Ë¤è¤Ã¤Æɽ¼¨¤µ¤ì¤Þ¤¹¡£É¸½à¤Ç¤Ï¡¢content-header ¤â content-body ¤âɽ¼¨ -¤µ¤ì¤Ê¤¤¾ì¹ç¤Î¤ß¡¢²þ¹Ô¤òɽ¼¨¤·¤Þ¤¹¡£ - -content-separator ¤ÎÀßÄê¤òÊѹ¹¤·¤¿¤¤¾ì¹ç¤Ï¡¢¤³¤Î´Ø¿ô¤òºÆÄêµÁ¤·¤Æ²¼¤µ¤¤¡£ - - -@deffn{Function} mime-viewer/default-content-separator rcnum cinfo ctype params subj - -content-number ¤¬ @var{cnum} ¤Ç¤¢¤ë content ¤Î content-separator ¤òɽ -¼¨¤¹¤ë¡£É¸½à¤Ç¤Ï¡¢content-header ¤â content-body ¤âɽ¼¨¤µ¤ì¤Ê¤¤¾ì¹ç¤Î -¤ß¡¢²þ¹Ô¤òɽ¼¨¤¹¤ë¡£ -@end deffn - - -@node MIME navigation, method, content-body, mime/viewer-mode -@comment node-name, next, previous, up -@subsection mime/viewer-mode ¤Ç¤ÎÁàºî - -mime/viewer-mode ¤Ë¤Ï°Ê²¼¤Îµ¡Ç½¤¬¤¢¤ê¤Þ¤¹¡£ - -@table @kbd -@item @key{u} -¾å¤Î content ¤ËÌá¤ë¡Êmessage ¤Î°ìÈÖ¾å¤Î content ¤Ç¤³¤ì¤ò¹Ô¤Ê¤¦¤È -Summary mode ¤ËÌá¤ë (*1)¡Ë - -@item @key{p} -Á°¤Î content ¤Ë°ÜÆ°¤¹¤ë - -@item @key{n} -¼¡¤Î content ¤Ë°ÜÆ°¤¹¤ë - -@item @key{SPC} -scroll up ¤¹¤ë - -@item @key{M-SPC} -scroll down ¤¹¤ë - -@item @key{DEL} -scroll down ¤¹¤ë - -@item @key{RET} -¼¡¤Î¹Ô¤Ë°ÜÆ°¤¹¤ë - -@item @key{M-RET} -Á°¤Î¹Ô¤Ë°ÜÆ°¤¹¤ë - -@item @key{M-RET} -Á°¤Î¹Ô¤Ë°ÜÆ°¤¹¤ë - -@item @key{<} -message ¤ÎÀèƬ¤Ë°ÜÆ°¤¹¤ë - -@item @key{>} -message ¤ÎËöÈø¤Ë°ÜÆ°¤¹¤ë - -@item @key{v} -content ¤òºÆÀ¸¤¹¤ë (*2) - -@item @key{e} -content ¤«¤é file ¤ò¼è¤ê½Ð¤¹ (*2) - -@item @key{C-c C-p} -content ¤ò°õºþ¤¹¤ë (*2) - -@item @key{f} -message Ãæ¤Î X-Face ¤òɽ¼¨¤¹¤ë - -@item @key{mouse-button-2} -preview-buffer Ãæ¤Î mouse button ¤òµ¯Æ°¤¹¤ë - -content-subject ¤ò²¡¤»¤Ð¡¢¤½¤Î content ¤¬ºÆÀ¸¤µ¤ì¤ë(*2) - -URL-button ¤ò²¡¤»¤Ð¡¢¤½¤Î WWW browser ¤¬µ¯Æ°¤µ¤ì¤ë -@end table - - -@b{¡ÎÃí°Õ¡Ï} -@enumerate -@item -tm-MUA ¤Ç tm-view ¤ÎÀßÄê¤ò¤·¤Æ¤¤¤Ê¤¤¾ì¹ç¡¢Summary mode ¤Ë¤ÏÌá¤ê¤Þ¤»¤ó¡£ - -@item -¼ÂºÝ¤ÎÆ°ºî¤ÏÂбþ¤¹¤ë method ¤Ë°Í¤ê¤Þ¤¹¡£ -@end enumerate diff --git a/gnus/ChangeLog b/gnus/ChangeLog deleted file mode 100644 index b274a60..0000000 --- a/gnus/ChangeLog +++ /dev/null @@ -1,806 +0,0 @@ -Tue Sep 3 15:30:22 1996 MORIOKA Tomohiko - - * tm/gnus: gnus-mime Version 0.6.1 was released. - - * mk-tgnus: gnus-msg-mime.el was abolished. - -Mon Sep 2 13:42:18 1996 MORIOKA Tomohiko - - * mk-tgnus: add "../../mu/" to load-path. - - * mk-tgnus: Constant `el-file-mode' was abolished. Function - `install-el', `install-el-files', `install-elc' and - `install-elc-files' were abolished. - - * mk-tgnus (install-tm-gnus): Use function `install-files'. - - * gnus-sum-mime.el (gnus-set-summary-default-charset): check - `gnus-summary-buffer' is active or not. (cf. [tm-en:735]) - - -Fri Aug 23 07:32:40 1996 MORIOKA Tomohiko - - * tm/gnus: gnus-mime Version 0.6 was released. - -Thu Aug 22 17:55:17 1996 MORIOKA Tomohiko - - * gnus-mime.el: Use tl-misc. - - * gnus-charset.el (nnmail-find-file): DOC-string was modified. - - * gnus-charset.el (nntp-open-binary-connection-function): New - variable. - (nntp-open-network-stream-with-no-code-conversion): New function. - -Sun Aug 18 11:17:13 1996 MORIOKA Tomohiko - - * gnus-charset.el (gnus-set-newsgroup-default-charset): New - implementation; Function `put-alist' and `set-alist' were - abolished. - - * gnus-charset.el (put-alist): imported from tl-list.el. - (set-alist): imported from tl-list.el. - -Sat Aug 17 02:55:36 1996 MORIOKA Tomohiko - - * gnus-mime.el: Don't setup news-reply-menu of XEmacs for Red - Gnus. - -Sat Aug 17 02:45:14 1996 MORIOKA Tomohiko - - * gnus-art-mime.el: autoload tm-ew-d.el and tm-view.el instead of - require. - - -Mon Aug 12 09:11:34 1996 MORIOKA Tomohiko - - * tm/gnus: gnus-mime Version 0.4 was released. - - * message-mime.el (message-included-forward-headers): Add - `Mime-Version' field and `Content-*' field if they are not existed - in. - -Sat Aug 10 12:05:14 1996 MORIOKA Tomohiko - - * message-mime.el: setting for variable - `message-forward-start-separator' and - `message-forward-end-separator' was moved from mime-setup.el.in. - - * message-mime.el: add (require 'tm-edit). - - -Fri Aug 9 12:29:10 1996 MORIOKA Tomohiko - - * tm/gnus: gnus-mime Version 0.3 was released. - - * gnus-sum-mime.el (gnus-set-summary-default-charset): - code-conversion should do by line because of robustness. - -Thu Aug 8 15:51:57 1996 MORIOKA Tomohiko - - * mk-tgnus: gnus-msg-mime.el was added. - - * gnus-msg-mime.el: New module. - - * gnus-art-mime.el (gnus-article-preview-mime-message): prevent - side effect of `mime/viewer-mode' (cf. [bug-tm-en:666]) - -Wed Aug 7 16:37:57 1996 MORIOKA Tomohiko - - * mk-tgnus: message-mime.el was added. - - * message-mime.el: Function `tm-gnus/insert-article' was renamed - to `message-mime-insert-article'. - - * message-mime.el: New module. - - * gnus-mime.el: setting for tm-edit were split into - message-mime.el. - - * gnus-art-mime.el (gnus-decode-rfc1522): - decoded encoded-word in XOVER must be unfolded. - - -Tue Aug 6 12:10:47 1996 MORIOKA Tomohiko - - * tm/gnus: gnus-mime Version 0.2 was released. - - * mk-tgnus: setting for gnus-mime. - -Tue Aug 6 12:09:13 1996 MORIOKA Tomohiko - - * tm-gnus.el: Setting for Gnus were cut off. - -Tue Aug 6 12:05:37 1996 MORIOKA Tomohiko - - * gnus-mime.el (gnus-mime-RCS-ID, gnus-mime-version): New - constant. - - * gnus-mime.el, gnus-charset.el, gnus-sum-mime.el, - gnus-art-mime.el: New module; split from tm-gnus5.el; tm-gnus5.el - was abolished. - -Thu Aug 1 11:44:22 1996 MORIOKA Tomohiko - - * tm-gnus.el: check (featurep 'gnus-load) for Red Gnus. - - -Wed Jul 24 10:04:54 1996 MORIOKA Tomohiko - - * tm/gnus: Version 7.79 was released. - -Thu Jul 18 12:17:11 1996 MORIOKA Tomohiko - - * 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'. - - -Wed Jul 17 05:39:11 1996 MORIOKA Tomohiko - - * tm/gnus: Version 7.78 was released. - -Sun Jul 14 16:37:27 1996 MORIOKA Tomohiko - - * tm-gnus5.el: Set newsgroup default charset for alt.chinese - instead of alt.chinese.text. - - Add newsgroup default charset for hk and hkstar. - -Sun Jul 14 16:05:42 1996 MORIOKA Tomohiko - - * tm-gnus5.el (tm-gnus/decode-summary-from-and-subjects): fixed to - use variable `gnus-newsgroup-default-charset-alist' instead of - `gnus-newsgroup-default-coding-system-alist'. - -Sun Jul 14 15:49:03 1996 MORIOKA Tomohiko - - * tm-gnus5.el (gnus-newsgroup-default-charset-alist): New - variable; renamed from - `gnus-newsgroup-default-coding-system-alist'. - - (gnus-set-newsgroup-default-charset): New function; renamed from - `gnus-set-newsgroup-default-coding-system'. - -Sun Jul 14 15:19:54 1996 MORIOKA Tomohiko - - * tm-gnus5.el (tm-gnus/content-header-filter): Use variable - `default-mime-charset' instead of `mime/default-coding-system'. - - (tm-gnus/preview-article): Use variable `default-mime-charset' - instead of `mime/default-coding-system'. - - (tm-gnus/article-decode-encoded-word): Use function - `decode-mime-charset-region' instead of `character-decode-region'; - Use variable `default-mime-charset' instead of - `mime/default-coding-system'. - - (tm-gnus/decode-summary-from-and-subjects): Use variable - `default-mime-charset' instead of `mime/default-coding-system'; - Use function `decode-mime-charset-string' instead of - `character-decode-string'. - - -Tue Jul 9 13:30:32 1996 MORIOKA Tomohiko - - * tm/gnus: Version 7.73 was released. - - * tm-gnus5.el (tm-gnus/preview-article): specify - `gnus-article-mode-map' as mother keymap. - - -Thu Jun 27 15:19:48 1996 MORIOKA Tomohiko - - * tm/gnus: Version 7.72 was released. - -Thu Jun 27 15:09:12 1996 MORIOKA Tomohiko - - * Makefile: gnus5o was abolished, - -Thu Jun 27 15:01:37 1996 MORIOKA Tomohiko - - * mk-tgnus (install-tm-gnus): New condition. - - * mk-tgnus: tm-sgnus.el was renamed to tm-gnus5.el. - -Thu Jun 27 14:51:12 1996 MORIOKA Tomohiko - - * Makefile: gnus5 was renamed to gnus5o. - sgnus was renamed to gnus5. - g5-path was renamed to g5o-path. - s-path was renamed to g5-path. - -Thu Jun 27 14:43:48 1996 MORIOKA Tomohiko - - * tm-gnus.el, tm-gnus5.el: tm-sgnus.el was renamed to tm-gnus5.el. - - * tm-sgnus.el (tm-gnus/version): modified. - -Thu Jun 27 13:46:21 1996 MORIOKA Tomohiko - - * tm-sgnus.el: Set *big5* as default-coding-system for tw. - - -Mon Jun 10 01:56:02 1996 MORIOKA Tomohiko - - * tm/gnus: Version 7.69 was released. - -Sun Jun 9 06:57:33 1996 MORIOKA Tomohiko - - * tm-sgnus.el: Set implementation for `message-mode' to - `mime-editor/split-message-sender-alist'. - -Sun Jun 9 06:53:41 1996 MORIOKA Tomohiko - - * tm-gnus4.el: Set `gnus-inews-news' to `news-reply-mode' of - alist `mime-editor/split-message-sender-alist'. - -Sun Jun 9 06:51:09 1996 MORIOKA Tomohiko - - * tm-gnus3.el: Set `gnus-inews-news' to `news-reply-mode' of - alist `mime-editor/split-message-sender-alist'. - - -Sun Jun 9 04:12:44 1996 MORIOKA Tomohiko - - * tm/gnus: Version 7.68 was released. - -Fri Jun 7 13:48:05 1996 MORIOKA Tomohiko - - * tm-sgnus.el: Use `(call-after-loaded 'nnmail ...)' to redefine - function `nnmail-find-file', so you must use Gnus 5.2.10 or later - if you use Mule. - -Thu Jun 6 16:44:17 1996 Shuhei KOBAYASHI - - * tm-gnus3.el (tm-gnus/insert-article): Moved from tm-gnus.el - - * tm-gnus4.el (tm-gnus/insert-article), - (mime-editor/attach-to-news-reply-menu): Moved from tm-gnus.el - - * tm-gnus.el: `tm-gnus/insert-article' and - `mime-editor/attach-to-news-reply-menu' were moved to - version-dependent modules. - - * tm-sgnus.el (tm-gnus/insert-article): New function; - message/rfc822 inserter for message-mode. - (mime-editor/attach-to-news-reply-menu): Moved from tm-gnus.el - -Wed Jun 5 23:02:22 1996 Shuhei KOBAYASHI - - * tm-sgnus.el (nnmail-find-file): Leave - `jam-code-guess-after-insert-file-function' in - `after-insert-file-functions'. - -Wed Jun 5 02:49:33 1996 MORIOKA Tomohiko - - * tm-sgnus.el: Compatibility code for September Gnus 0.80 .. 0.94 - was deleted. - - -Mon May 27 03:48:56 1996 MORIOKA Tomohiko - - * tm/gnus: Version 7.63 was released. - - * tm-sgnus.el (nnmail-find-file): New function. - -Sun May 26 04:36:12 1996 MORIOKA Tomohiko - - * tm-sgnus.el (nnheader-insert-file-contents-literally): - New function for Mule. - (nnheader-insert-raw-file-contents): New alias. - - -Mon May 20 15:29:30 1996 MORIOKA Tomohiko - - * tm/gnus: Version 7.61 was released. - - * tm-sgnus.el: Unnecessary `(call-after-loaded 'tm-view ...)' - about setting to variable `mime-viewer/quitting-method-alist' and - `mime-viewer/show-summary-method' was deleted. - - -Thu May 9 18:52:46 1996 MORIOKA Tomohiko - - * tm/gnus: Version 7.60 was released. - - * tm-sgnus.el: Function `tm-gnus/code-convert-region-to-emacs' was - abolished. - (tm-gnus/content-header-filter): Use function - `mime-charset-decode-region' instead of - `tm-gnus/code-convert-region-to-emacs'. - -Thu May 9 13:55:15 1996 MORIOKA Tomohiko - - * tm-sgnus.el (tm-gnus/decode-summary-from-and-subjects): Use - function `character-decode-string' instead of - `decode-coding-string'. - - * tm-sgnus.el (tm-gnus/article-decode-encoded-word): Use function - `character-decode-region' instead of `decode-coding-region'. - - -Wed May 8 15:27:00 1996 MORIOKA Tomohiko - - * tm/gnus: Version 7.57 was released. - - * tm-sgnus.el: fixed problem in XEmacs 20.0 with Mule. - - * tm-sgnus.el: check `(boundp '*koi8*)'. (cf. [tm-ja:1832]) - - -Wed May 8 12:47:38 1996 MORIOKA Tomohiko - - * tm/gnus: Version 7.55 was released. - -Tue May 7 18:19:39 1996 MORIOKA Tomohiko - - * tm-sgnus.el: Mule support part was divided between Mule and - XEmacs 20.0 with Mule. - - * mk-tgnus (install-tm-gnus): version condition was modified. - - -Mon Apr 29 01:55:32 1996 MORIOKA Tomohiko - - * tm/gnus: Version 7.54 was released. - - * tm-sgnus.el (tm-gnus/article-decode-encoded-word): Use function - `decode-coding-region' instead of `code-convert-region'. - (tm-gnus/decode-summary-from-and-subjects): Use function - `decode-coding-string' instead of `code-convert-string'. - - -Thu Apr 25 12:07:08 1996 MORIOKA Tomohiko - - * tm/gnus: Version 7.53 was released. - - * tm-sgnus.el: don't use `nnheader-raw-write-region'. - -Wed Apr 24 15:21:45 1996 MORIOKA Tomohiko - - * tm-sgnus.el: Use and redefine function - `nnheader-find-file-noselect', `nnheader-insert-raw-file-contents' - and `nnheader-raw-write-region'. - Use `nnmail-prepare-save-mail-hook'. - - -Tue Apr 23 00:17:59 1996 MORIOKA Tomohiko - - * tm/gnus: Version 7.51 was released. - - * tm-sgnus.el (gnus-newsgroup-default-coding-system-alist): - New variable. - (gnus-set-newsgroup-default-coding-system): New function. - Define default coding-system for alt.chinese.text, - alt.chinese.text.big5, han and relcom. - - -Mon Apr 15 09:08:57 1996 MORIOKA Tomohiko - - * tm/gnus: Version 7.49.2 was released. - -Thu Apr 11 16:10:56 1996 MORIOKA Tomohiko - - * tm-sgnus.el: Function `tm-gnus/forward-insert-buffer' was - deleted. - -Mon Apr 8 12:26:21 1996 MORIOKA Tomohiko - - * tm-gnus3.el (tm-gnus/article-set-mode-line): Function - `rightful-boundary-short-string' was obsoleted; use function - `truncate-string'. (cf. [tm-ja:1693]) - - -Thu Mar 28 08:44:31 1996 MORIOKA Tomohiko - - * tm/gnus: Version 7.49.1 was released. - -Wed Mar 27 19:27:04 1996 MORIOKA Tomohiko - - * tm-gd3.el (tm-gnus/article-set-mode-line): - Function `rightful-boundary-short-string' was obsoleted; - use function `truncate-string'. - -Mon Mar 4 09:29:33 1996 MORIOKA Tomohiko - - * Makefile: makefile variables `FILES' was modified. - - -Mon Mar 4 08:20:48 1996 Morioka Tomohiko - - * tm/gnus: Version 7.49 was released. - - * tm-gnus3.el: fixed problem about BBDB. - -Mon Mar 4 08:18:09 1996 Morioka Tomohiko - - * tm-gnus.el: BBDB setting codes were deleted. - - * tm-sgnus.el, tm-gnus4.el, tm-gnus3.el: - BBDB setting codes moved from tm-gnus.el. - -Mon Mar 4 07:38:30 1996 Morioka Tomohiko - - * tm-gnus.el: fixed problem in Emacs 18. - - -Wed Feb 28 13:32:29 1996 Morioka Tomohiko - - * tm/gnus: Version 7.48 was released. - -Tue Feb 27 19:06:50 1996 Morioka Tomohiko - - * tm-gnus3.el, tm-gnus4.el: BBDB setting codes were deleted. - -Tue Feb 27 19:05:14 1996 Morioka Tomohiko - - * tm-sgnus.el: BBDB setting codes were moved to tm-gnus.el. - -Tue Feb 27 19:04:37 1996 Morioka Tomohiko - - * tm-gnus.el: BBDB setting codes were moved from tm-sgnus.el. - -Tue Feb 27 18:59:47 1996 Morioka Tomohiko - - * tm-sgnus.el: - `(add-hook 'gnus-article-display-hook 'tm-bbdb/update-record)' - instead of - `(add-hook 'tm-gnus/article-prepare-hook - 'bbdb/gnus-update-record)'. - -Tue Feb 27 18:25:26 1996 Morioka Tomohiko - - * tm-sgnus.el (tm-gnus/decode-summary-from-and-subjects): - New implementation. - - -Wed Feb 14 13:01:34 1996 Morioka Tomohiko - - * tm/gnus: Version 7.45 was released. - -Fri Feb 9 10:30:48 1996 Morioka Tomohiko - - * tm-sgnus.el: Function `tm-gnus/prepare-save-mail-function' is - inserted to `nnbabyl-prepare-save-mail-hook', - `nnml-prepare-save-mail-hook' and `nnmh-prepare-save-mail-hook' if - Mule is running. - -Fri Feb 9 10:20:19 1996 Morioka Tomohiko - - * tm-sgnus.el (tm-gnus/nnmail-get-new-mail): new function. - `nnmail-get-new-mail' is redefine if Mule is running. - - -Fri Feb 9 08:47:07 1996 Morioka Tomohiko - - * tm/gnus: Version 7.43 was released. - -Fri Feb 9 07:48:32 1996 Shuhei KOBAYASHI - - * tm-sgnus.el (tm-gnus/decode-summary-from-and-subjects): - convert character code of ``from'' (cf. [tm-ja:1568]) - -Fri Feb 9 06:19:26 1996 Morioka Tomohiko - - * tm-sgnus.el: Function `tm-gnus/prepare-save-mail-function' is - inserted to `nnmbox-prepare-save-mail-hook' if Mule is running. - - -Thu Feb 8 06:17:16 1996 Morioka Tomohiko - - * tm/gnus: Version 7.41 was released. - - * tm-sgnus.el (tm-gnus/nnheader-find-file-noselect): new function. - `nnheader-find-file-noselect' is redefine if Mule is running. - -Thu Feb 8 03:35:26 1996 Morioka Tomohiko - - * tm-sgnus.el (tm-gnus/prepare-save-mail-function): new function; - It is inserted into `nnfolder-prepare-save-mail-hook' if Mule is - running. - -Thu Feb 8 01:30:10 1996 Morioka Tomohiko - - * mk-tgnus, tm-sgnus.el, tm-gnus.el: tm-gd5.el was deleted. - Self code conversion feature for Gnus 5.[01] was deleted. - -Tue Feb 6 08:53:27 1996 Morioka Tomohiko - - * tm-sgnus.el: use `substitute-key-definition' to define - `tm-gnus/summary-toggle-header' key. - - -Thu Jan 25 03:21:50 1996 Morioka Tomohiko - - * tm/gnus: Version 7.37 was released. - -Thu Jan 25 02:41:11 1996 Morioka Tomohiko - - * Self code conversion for MULE was supported for Gnus 5.[01] and - September Gnus. - - * tm-gnus.el (tm-gnus/maybe-code-convert): new function to convert - character code for Gnus 5.[01] - - * tm-sgnus.el: Code conversion parts were moved from tm-gd5.el. - - * tm-gd5.el: Code conversion parts were moved from tm-sgnus.el. - - * tm-gd5.el: (tm-gnus/decode-summary-from-and-subjects): convert - code in Subject field - -Wed Jan 24 14:22:36 1996 Morioka Tomohiko - - * tm-sgnus.el: self code conversion for MULE - -Tue Jan 23 14:08:38 1996 Morioka Tomohiko - - * tm-gnus.el: redefine function `gnus-article-delete-headers' for - GNUS 3.15 .. 4.1.* - - -Tue Jan 23 04:57:53 1996 Morioka Tomohiko - - * tm/gnus: Version 7.34 was released. - - * tm-sgnus.el, tm-gnus4.el, tm-gnus3.el: - (require 'tm-bbdb) if bbdb is provided. - - -Sat Jan 20 02:23:40 1996 Morioka Tomohiko - - * tm/gnus: Version 7.33.1 was released. - - * tm-gnus.el: redefine function `gnus-news-reply' for GNUS 3.15 .. - 4.1.* to fix problem about following. (cf. [tm-ja:1456], - [tm-ja:1473]) - -Thu Jan 18 01:55:25 1996 Yoshiyuki Yamagami - - * Makefile: specify `-no-site-file' option (cf. [tm-ja:1474]) - - -Tue Jan 9 12:06:29 1996 Morioka Tomohiko - - * tm/gnus: version 7.33 was released. - - * tm-sgnus.el: `gnus-forward-insert-buffer' redefining was changed - because `eval-after-load' is not exist in XEmacs. - (cf. [tm-en:249]) - -Tue Dec 26 07:03:36 1995 Morioka Tomohiko - - * tm-sgnus.el: setting for message/rfc822 style forward if - mime-setup is used. - -Tue Dec 26 00:11:39 1995 Morioka Tomohiko - - * tm-sgnus.el (tm-gnus/summary-toggle-header): - `mime-viewer/ignored-field-regexp' was not set. - - * tm-sgnus.el (tm-gnus/preview-article): does not cut fields in - `mime/viewer-mode'. - - -Mon Dec 25 08:15:56 1995 Morioka Tomohiko - - * tm/gnus: Version 7.30 was released. - - * tm-sgnus.el (tm-gnus/summary-toggle-header): - use `mime-viewer/redisplay' - - * mk-tgnus: (install-tm-gnus): - `(setq command-line-args-left (cdr command-line-args-left))' - was added. - -Sat Dec 23 12:57:25 1995 Morioka Tomohiko - - * tm-sgnus.el (tm-gnus/summary-toggle-header): New implement - - * tm-sgnus.el: uses original `gnus-article-hide-headers-if-wanted' - - -Fri Dec 22 08:57:48 1995 Morioka Tomohiko - - * tm/gnus: Version 7.28 was released. - -Fri Dec 22 07:08:15 1995 MURATA Masahiro - - * tm-sgnus.el: - `(eval-when-compile (require 'cl))' was inserted. - (cf. [tm-ja:1414]) - - * tm-sgnus.el (tm-gnus/preview-cut-header): 'gnus-type and - 'headers are added to text property. (cf. [tm-ja:1414]) - - -Wed Dec 20 12:00:19 1995 Morioka Tomohiko - - * tm/gnus: Version 7.26 was released. - - * tm-gnus4.el: (tm-gnus/preview-article-if-you-need): - `(setq buffer-read-only nil)' for GNUS. - -Wed Dec 20 07:04:55 1995 MURATA Masahiro - - * tm-sgnus.el: use text property to hide fields. - (cf. [tm-ja:1384]) - -Mon Dec 18 11:08:33 1995 Morioka Tomohiko - - * tm-gnus4.el, tm-sgnus.el: - setting for `mime-viewer/show-summary-method' - - -Mon Dec 18 12:06:27 1995 Morioka Tomohiko - - * tm/gnus: Version 7.25 was released. - -Sat Dec 16 14:54:31 1995 Morioka Tomohiko - - * tm-gnus4.el: - (tm-gnus/view-message, tm-gnus/preview-article-if-you-need): - enclose `(run-hooks 'tm-gnus/article-prepare-hook)' by - `(let (buffer-read-only) ...)'. (cf. [tm-ja:1350]) - - -Sat Dec 15 15:03:15 1995 Morioka Tomohiko - - * tm/gnus: Version 7.24 was released. - -Fri Dec 15 13:47:36 1995 Morioka Tomohiko - - * tm-sgnus.el (tm-gnus/summary-toggle-header): - new implementation - - -Wed Dec 13 19:12:47 1995 Morioka Tomohiko - - * tm/gnus: Version 7.22 was released. - -Mon Dec 11 12:50:58 1995 Morioka Tomohiko - - * tm-sgnus.el (tm-gnus/summary-toggle-header): - use `tm-gnus/automatic-mime-preview' to judge automatic MIME - preview or not. - - -Mon Dec 11 18:05:06 1995 Morioka Tomohiko - - * tm/gnus: Version 7.21.2 was released. - -Fri Dec 8 22:35:14 1995 Morioka Tomohiko - - * tm-gnus.el: modified about XEmacs menu setting in Emacs and - Mule. - - -Thu Dec 7 10:21:22 1995 Morioka Tomohiko - - * tm/gnus: Version 7.21.1 was released. - - * tm-gnus.el: news-reply-mode pop up menu setting for XEmacs. - -Thu Dec 7 08:44:12 1995 Morioka Tomohiko - - * tm-gnus4.el: - Function `tm-gnus/article-reset-variable' was modified to reset - `gnus-original-article-buffer' to nil instead of - `gnus-article-buffer'. - - -Wed Dec 6 07:39:37 1995 Morioka Tomohiko - - * tm/gnus: Version 7.21 was released. - - * tm-sgnus.el: New function `tm-gnus/partial-preview-function'. - - * Makefile: install-* were modified. - - -Tue Dec 5 07:51:04 1995 Morioka Tomohiko - - * tm/gnus: Version 7.20.1 was released. - - * Makefile: fixed typo of `install-18'. - -Tue Dec 5 07:36:32 1995 Morioka Tomohiko - - * tm-gnus4.el: Function `tm-gnus/preview-article-if-you-need' was - fixed to set variable `tm-gnus/automatic-mime-preview' and - variable `gnus-original-article-buffer'. - -Mon Dec 4 23:55:05 1995 Morioka Tomohiko - - * tm-gnus.el: - call-after-loaded definitions for tm-edit are merged. - -Mon Dec 4 20:33:11 1995 Shuhei KOBAYASHI - - * tm-gnus.el: - mime-editor/message-inserter-alist setting for mail-mode - (cf. [tm-ja:1195]) - -Tue Dec 4 14:30:44 1995 Dave Goldberg - - * Makefile: - There's a problem with tm/gnus/Makefile. In particular, the order - of the -l arguments is wrong because of the - (require 'tl-misc) in the g*-path files. Since load-path gets set - to find ../../tl in mk-tgnus.el, that has to be loaded first. - -Mon Dec 4 06:32:43 1995 Morioka Tomohiko - - * tm-gnus4.el: - OKABE, Yasuo 's patch was applied to fix - problem of function `tm-gnus/view-message' in automatic MIME preview - mode. (cf. [tm-ja:1191]) - - -Mon Dec 4 00:25:21 1995 Morioka Tomohiko - - * tm/gnus: Version 7.20 was released. - - * tm-sgnus.el: quitting method was fixed. - - * tm-gnus4.el: fixed problem of quitting method. - - * tm-gnus4.el: - Function `tm-gnus/view-message' was fixed for automatic MIME preview - mode. - -Fri Dec 1 23:12:36 1995 Morioka Tomohiko - - * tm-gnus4.el: (1) New variable `gnus-original-article-buffer'. - (2) New function `tm-gnus/article-reset-variable'. - (3) `(setq buffer-read-only nil)' was deleted in function - `tm-gnus/preview-article-if-you-need'. - -Fri Dec 1 19:23:51 1995 Morioka Tomohiko - - * tm-gnus4.el: - applied OKABE Yasuo 's patch to fix - problem of quitting method. - - -Thu Nov 23 19:31:40 1995 Morioka Tomohiko - - * tm/gnus: Version 7.19 was released. - -Tue Nov 21 03:02:27 1995 Morioka Tomohiko - - * tm-gnus.el: Version judgement was changed. - - -Mon Nov 20 12:01:58 1995 Morioka Tomohiko - - * tm/gnus: Version 7.18 was released. - -Sun Nov 19 08:30:08 1995 Morioka Tomohiko - - * tm-gnus.el: module composition was changed. - (ding) Gnus support was stopped. - - * tm-sgnus.el: insert (require 'tm-gd5). - - * tm-gd5.el: Initial revision - tm-gnus library module for Gnus 5.*. - - * tm-gnus4.el: tm-gnus5.el was merged into tm-gnus4.el. - (tm-gnus5.el was abolished.) - - * tm-gnus3.el: - (1) `tm-ognus.el' was renamed to `tm-gd3.el'. - (2) setting for BBDB. - - * tm-gd3.el: some codes for tm-gnus3.el was moved to - tm-gnus3.el. - - * tm-sgnus.el: setting for variable - `gnus-decode-encoded-word-method'. (It will be proposed as a - variable of September Gnus) diff --git a/gnus/ChangeLog-7.18.en b/gnus/ChangeLog-7.18.en deleted file mode 100644 index 7b01e8f..0000000 --- a/gnus/ChangeLog-7.18.en +++ /dev/null @@ -1,27 +0,0 @@ -Mon Nov 20 12:01:58 1995 Morioka Tomohiko - - * tm/gnus: Version 7.18 was released. - -Sun Nov 19 08:30:08 1995 Morioka Tomohiko - - * tm-gnus.el: module composition was changed. - (ding) Gnus support was stopped. - - * tm-sgnus.el: insert (require 'tm-gd5). - - * tm-gd5.el: Initial revision - tm-gnus library module for Gnus 5.*. - - * tm-gnus4.el: tm-gnus5.el was merged into tm-gnus4.el. - (tm-gnus5.el was abolished.) - - * tm-gnus3.el: - (1) `tm-ognus.el' was renamed to `tm-gd3.el'. - (2) setting for BBDB. - - * tm-gd3.el: some codes for tm-gnus3.el was moved to - tm-gnus3.el. - - * tm-sgnus.el: setting for variable - `gnus-decode-encoded-word-method'. (It will be proposed as a - variable of September Gnus) diff --git a/gnus/ChangeLog-7.18.ja b/gnus/ChangeLog-7.18.ja deleted file mode 100644 index 8a285d2..0000000 --- a/gnus/ChangeLog-7.18.ja +++ /dev/null @@ -1,27 +0,0 @@ -Mon Nov 20 12:01:58 1995 Morioka Tomohiko - - * tm/gnus: Version 7.18 $B$r(B release. - -Sun Nov 19 08:30:08 1995 Morioka Tomohiko - - * tm-gnus.el: $B9=@.$rJQ$($?!#(B - (ding) Gnus $B$N(B support $B$r$d$a$?!#(B - - * tm-sgnus.el: (require 'tm-gd5) $B$rF~$l$?!#(B - - * tm-gd5.el: Initial revision - - * tm-gnus4.el: tm-gnus5.el $B$HE}9g$7$?!#(B - - * tm-gnus3.el: - (1) tm-gd3 $B$KBP1~$7$?!#(B - (2) BBDB $B$KBP1~$7$?!#(B - - * tm-gd3.el: Comment $B$NIT6q9g$r=$@5$7$?!#(B - - * tm-gd3.el: $BIT6q9g$r=$@5$7$?!#(B - - * tm-gd3.el: tm-gnus3 $B@lMQ$NItJ,$r(B tm-gnus3.el $B$K0\$7$?!#(B - - * tm-sgnus.el: September Gnus $B$K$G$C$A$"$2$?JQ?t(B - gnus-decode-encoded-word-method $B$KBP1~$7$?!#(B diff --git a/gnus/ChangeLog-7.19.en b/gnus/ChangeLog-7.19.en deleted file mode 100644 index e3bce95..0000000 --- a/gnus/ChangeLog-7.19.en +++ /dev/null @@ -1,7 +0,0 @@ -Thu Nov 23 19:31:40 1995 Morioka Tomohiko - - * tm/gnus: Version 7.19 was released. - -Tue Nov 21 03:02:27 1995 Morioka Tomohiko - - * tm-gnus.el: Version judgement was changed. diff --git a/gnus/ChangeLog-7.19.ja b/gnus/ChangeLog-7.19.ja deleted file mode 100644 index fcb76de..0000000 --- a/gnus/ChangeLog-7.19.ja +++ /dev/null @@ -1,7 +0,0 @@ -Thu Nov 23 19:31:40 1995 Morioka Tomohiko - - * tm/gnus: Version 7.19 $B$r(B release $B$7$?!#(B - -Tue Nov 21 03:02:27 1995 Morioka Tomohiko - - * tm-gnus.el: version $B$NH=Dj$N;EJ}$rJQ$($?!#(B diff --git a/gnus/ChangeLog-7.20.1.en b/gnus/ChangeLog-7.20.1.en deleted file mode 100644 index b543e3f..0000000 --- a/gnus/ChangeLog-7.20.1.en +++ /dev/null @@ -1,37 +0,0 @@ -Tue Dec 5 07:51:04 1995 Morioka Tomohiko - - * tm/gnus: Version 7.20.1 was released. - - * Makefile: fixed typo of `install-18'. - -Tue Dec 5 07:36:32 1995 Morioka Tomohiko - - * tm-gnus4.el: Function `tm-gnus/preview-article-if-you-need' was - fixed to set variable `tm-gnus/automatic-mime-preview' and - variable `gnus-original-article-buffer'. - -Mon Dec 4 23:55:05 1995 Morioka Tomohiko - - * tm-gnus.el: - call-after-loaded definitions for tm-edit are merged. - -Mon Dec 4 20:33:11 1995 Shuhei KOBAYASHI - - * tm-gnus.el: - mime-editor/message-inserter-alist setting for mail-mode - (cf. [tm-ja:1195]) - -Tue Dec 4 14:30:44 1995 Dave Goldberg - - * Makefile: - There's a problem with tm/gnus/Makefile. In particular, the order - of the -l arguments is wrong because of the - (require 'tl-misc) in the g*-path files. Since load-path gets set - to find ../../tl in mk-tgnus.el, that has to be loaded first. - -Mon Dec 4 06:32:43 1995 Morioka Tomohiko - - * tm-gnus4.el: - OKABE, Yasuo 's patch was applied to fix - problem of function `tm-gnus/view-message' in automatic MIME preview - mode. (cf. [tm-ja:1191]) diff --git a/gnus/ChangeLog-7.20.1.ja b/gnus/ChangeLog-7.20.1.ja deleted file mode 100644 index b0d5314..0000000 --- a/gnus/ChangeLog-7.20.1.ja +++ /dev/null @@ -1,36 +0,0 @@ -Tue Dec 5 07:51:04 1995 Morioka Tomohiko - - * tm/gnus: Version 7.20.1 was released. - - * Makefile: fixed typo of `install-18'. - -Tue Dec 5 07:36:32 1995 Morioka Tomohiko - - * tm-gnus4.el: Function `tm-gnus/preview-article-if-you-need' was - fixed to set variable `tm-gnus/automatic-mime-preview' and - variable `gnus-original-article-buffer'. - -Mon Dec 4 23:55:05 1995 Morioka Tomohiko - - * tm-gnus.el: tm-edit $BMQ$N(B call-after-loaded $B@k8@$r$/$C$D$1$?!#(B - -Mon Dec 4 20:33:11 1995 Shuhei KOBAYASHI - - * tm-gnus.el: - Gnus $B$G$b(B mail-mode $BMQ$N(B mime-editor/message-inserter-alist $B$r@_Dj(B - (cf. [tm-ja:1195]) - -Tue Dec 4 14:30:44 1995 Dave Goldberg - - * Makefile: - There's a problem with tm/gnus/Makefile. In particular, the order - of the -l arguments is wrong because of the - (require 'tl-misc) in the g*-path files. Since load-path gets set - to find ../../tl in mk-tgnus.el, that has to be loaded first. - -Mon Dec 4 06:32:43 1995 Morioka Tomohiko - - * tm-gnus4.el: - OKABE, Yasuo 's patch was applied to fix - problem of function `tm-gnus/view-message' in automatic MIME preview - mode. (cf. [tm-ja:1191]) diff --git a/gnus/ChangeLog-7.20.en b/gnus/ChangeLog-7.20.en deleted file mode 100644 index fc85e5a..0000000 --- a/gnus/ChangeLog-7.20.en +++ /dev/null @@ -1,24 +0,0 @@ -Mon Dec 4 00:25:21 1995 Morioka Tomohiko - - * tm/gnus: Version 7.20 was released. - - * tm-sgnus.el: quitting method was fixed. - - * tm-gnus4.el: fixed problem of quitting method. - - * tm-gnus4.el: - Function `tm-gnus/view-message' was fixed for automatic MIME preview - mode. - -Fri Dec 1 23:12:36 1995 Morioka Tomohiko - - * tm-gnus4.el: (1) New variable `gnus-original-article-buffer'. - (2) New function `tm-gnus/article-reset-variable'. - (3) `(setq buffer-read-only nil)' was deleted in function - `tm-gnus/preview-article-if-you-need'. - -Fri Dec 1 19:23:51 1995 Morioka Tomohiko - - * tm-gnus4.el: - applied OKABE Yasuo 's patch to fix - problem of quitting method. diff --git a/gnus/ChangeLog-7.21.1.en b/gnus/ChangeLog-7.21.1.en deleted file mode 100644 index f5b5fff..0000000 --- a/gnus/ChangeLog-7.21.1.en +++ /dev/null @@ -1,12 +0,0 @@ -Thu Dec 7 10:21:22 1995 Morioka Tomohiko - - * tm/gnus: Version 7.21.1 was released. - - * tm-gnus.el: news-reply-mode pop up menu setting for XEmacs. - -Thu Dec 7 08:44:12 1995 Morioka Tomohiko - - * tm-gnus4.el: - Function `tm-gnus/article-reset-variable' was modified to reset - `gnus-original-article-buffer' to nil instead of - `gnus-article-buffer'. diff --git a/gnus/ChangeLog-7.21.2.en b/gnus/ChangeLog-7.21.2.en deleted file mode 100644 index c214260..0000000 --- a/gnus/ChangeLog-7.21.2.en +++ /dev/null @@ -1,8 +0,0 @@ -Mon Dec 11 18:05:06 1995 Morioka Tomohiko - - * tm/gnus: Version 7.21.2 was released. - -Fri Dec 8 22:35:14 1995 Morioka Tomohiko - - * tm-gnus.el: modified about XEmacs menu setting in Emacs and - Mule. diff --git a/gnus/ChangeLog-7.21.en b/gnus/ChangeLog-7.21.en deleted file mode 100644 index 68e6001..0000000 --- a/gnus/ChangeLog-7.21.en +++ /dev/null @@ -1,7 +0,0 @@ -Wed Dec 6 07:39:37 1995 Morioka Tomohiko - - * tm/gnus: Version 7.21 was released. - - * tm-sgnus.el: New function `tm-gnus/partial-preview-function'. - - * Makefile: install-* were modified. diff --git a/gnus/ChangeLog-7.22.en b/gnus/ChangeLog-7.22.en deleted file mode 100644 index 30587d3..0000000 --- a/gnus/ChangeLog-7.22.en +++ /dev/null @@ -1,9 +0,0 @@ -Wed Dec 13 19:12:47 1995 Morioka Tomohiko - - * tm/gnus: Version 7.22 was released. - -Mon Dec 11 12:50:58 1995 Morioka Tomohiko - - * tm-sgnus.el (tm-gnus/summary-toggle-header): - use `tm-gnus/automatic-mime-preview' to judge automatic MIME - preview or not. diff --git a/gnus/ChangeLog-7.23-7.24.en b/gnus/ChangeLog-7.23-7.24.en deleted file mode 100644 index 825e1c5..0000000 --- a/gnus/ChangeLog-7.23-7.24.en +++ /dev/null @@ -1,8 +0,0 @@ -Sat Dec 15 15:03:15 1995 Morioka Tomohiko - - * tm/gnus: Version 7.24 was released. - -Fri Dec 15 13:47:36 1995 Morioka Tomohiko - - * tm-sgnus.el (tm-gnus/summary-toggle-header): - new implementation diff --git a/gnus/ChangeLog-7.25.en b/gnus/ChangeLog-7.25.en deleted file mode 100644 index f60d89a..0000000 --- a/gnus/ChangeLog-7.25.en +++ /dev/null @@ -1,10 +0,0 @@ -Mon Dec 18 12:06:27 1995 Morioka Tomohiko - - * tm/gnus: Version 7.25 was released. - -Sat Dec 16 14:54:31 1995 Morioka Tomohiko - - * tm-gnus4.el: - (tm-gnus/view-message, tm-gnus/preview-article-if-you-need): - enclose `(run-hooks 'tm-gnus/article-prepare-hook)' by - `(let (buffer-read-only) ...)'. (cf. [tm-ja:1350]) diff --git a/gnus/ChangeLog-7.26.en b/gnus/ChangeLog-7.26.en deleted file mode 100644 index 94d4e49..0000000 --- a/gnus/ChangeLog-7.26.en +++ /dev/null @@ -1,16 +0,0 @@ -Wed Dec 20 12:00:19 1995 Morioka Tomohiko - - * tm/gnus: Version 7.26 was released. - - * tm-gnus4.el: (tm-gnus/preview-article-if-you-need): - `(setq buffer-read-only nil)' for GNUS. - -Wed Dec 20 07:04:55 1995 MURATA Masahiro - - * tm-sgnus.el: use text property to hide fields. - (cf. [tm-ja:1384]) - -Mon Dec 18 11:08:33 1995 Morioka Tomohiko - - * tm-gnus4.el, tm-sgnus.el: - setting for `mime-viewer/show-summary-method' diff --git a/gnus/ChangeLog-7.27-7.28.en b/gnus/ChangeLog-7.27-7.28.en deleted file mode 100644 index 7fa0063..0000000 --- a/gnus/ChangeLog-7.27-7.28.en +++ /dev/null @@ -1,12 +0,0 @@ -Fri Dec 22 08:57:48 1995 Morioka Tomohiko - - * tm/gnus: Version 7.28 was released. - -Fri Dec 22 07:08:15 1995 MURATA Masahiro - - * tm-sgnus.el: - `(eval-when-compile (require 'cl))' was inserted. - (cf. [tm-ja:1414]) - - * tm-sgnus.el (tm-gnus/preview-cut-header): 'gnus-type and - 'headers are added to text property. (cf. [tm-ja:1414]) diff --git a/gnus/ChangeLog-7.29-7.30.en b/gnus/ChangeLog-7.29-7.30.en deleted file mode 100644 index d87e6fc..0000000 --- a/gnus/ChangeLog-7.29-7.30.en +++ /dev/null @@ -1,16 +0,0 @@ -Mon Dec 25 08:15:56 1995 Morioka Tomohiko - - * tm/gnus: Version 7.30 was released. - - * tm-sgnus.el (tm-gnus/summary-toggle-header): - use `mime-viewer/redisplay' - - * mk-tgnus: (install-tm-gnus): - `(setq command-line-args-left (cdr command-line-args-left))' - was added. - -Sat Dec 23 12:57:25 1995 Morioka Tomohiko - - * tm-sgnus.el (tm-gnus/summary-toggle-header): New implement - - * tm-sgnus.el: uses original `gnus-article-hide-headers-if-wanted' diff --git a/gnus/Makefile b/gnus/Makefile deleted file mode 100644 index 0a18c07..0000000 --- a/gnus/Makefile +++ /dev/null @@ -1,62 +0,0 @@ -# -# $Id: Makefile,v 7.8 1996/06/27 15:19:48 morioka Exp morioka $ -# - -# Please specify emacs executables: -EMACS = mule -FLAGS = -batch -q -no-site-file -l mk-tgnus - - -# Please specfy Emacs Lisp install directory: -# TMDIR18 = for Emacs 18.* (NEMACS, NEpoch or MULE 1) -# TMDIR19 = for Emacs 19.* (FSF original, XEmacs or MULE 2) - -# PREFIX = /usr/local -PREFIX = $(HOME) - -EMACS_PREFIX = emacs -# EMACS_PREFIX = mule - -DATADIR18 = $(PREFIX)/lib -DATADIR19 = $(PREFIX)/lib -DATADIR19_29 = $(PREFIX)/share - -TMDIR18 = $(DATADIR18)/$(EMACS_PREFIX)/local.lisp/tm -TMDIR19 = $(DATADIR19)/$(EMACS_PREFIX)/site-lisp -TMDIR19_29 = $(DATADIR19_29)/$(EMACS_PREFIX)/site-lisp - - -FILES = tm/gnus/Makefile tm/gnus/*-path tm/gnus/mk-tgnus \ - tm/gnus/*.el tm/gnus/ChangeLog tm/doc/tm-gnus*.texi - - -TARFILE = tm-gnus7.72.tar - - -gnus: - $(EMACS) $(FLAGS) -f compile-tm-gnus - -gnus3: - $(EMACS) $(FLAGS) -l g3-path -f compile-tm-gnus - -gnus4: - $(EMACS) $(FLAGS) -l g4-path -f compile-tm-gnus - -gnus5: - $(EMACS) $(FLAGS) -l g5-path -f compile-tm-gnus - -install-18: - $(EMACS) $(FLAGS) -f install-tm-gnus $(TMDIR18) - -install-19: - $(EMACS) $(FLAGS) -f install-tm-gnus $(TMDIR19) - -install-19_29: - $(EMACS) $(FLAGS) -f install-tm-gnus $(TMDIR19_29) - -clean: - -rm *.elc - - -tar: - cd ../..; tar cvf $(TARFILE) $(FILES); gzip -9 $(TARFILE) diff --git a/gnus/Makefile.bc b/gnus/Makefile.bc deleted file mode 100644 index c291860..0000000 --- a/gnus/Makefile.bc +++ /dev/null @@ -1,16 +0,0 @@ -# -# $Id: Makefile.bc,v 6.3 1995/05/16 12:21:08 morioka Exp $ -# - -.SUFFIXES: .el .elc - -BATCH = $(EMACS) -batch ../loadpath -f eval-current-buffer . - -.el.elc: - $(BATCH) -l $(NNTP) -l $(GNUS) -f batch-byte-compile $< - -all: tm-gnus.elc tm-$(GNUS_TYPE).elc - -tm-gnus.elc: tm-gnus.el - -tm-$(GNUS_TYPE).elc: tm-$(GNUS_TYPE).el diff --git a/gnus/d-path b/gnus/d-path deleted file mode 100644 index 2b993de..0000000 --- a/gnus/d-path +++ /dev/null @@ -1,17 +0,0 @@ -;;; -*-Emacs-Lisp-*- - -(setq load-path - (append - (mapcar (function - (lambda (path) - (expand-file-name path (getenv "PWD")) - )) - '("." ".." "../../tl/" "../../mel/")) - ;; - ;; (ding) GNUS path - ;; - ;; please edit this - ;; - '("/usr/local/lib/emacs/site-lisp/dgnus/lisp") - ;; - load-path)) diff --git a/gnus/g3-path b/gnus/g3-path deleted file mode 100644 index 8ba54fe..0000000 --- a/gnus/g3-path +++ /dev/null @@ -1,10 +0,0 @@ -;;; -*-Emacs-Lisp-*- - -;;; -;;; loadpath for GNUS 3.* -;;; - -(require 'tl-misc) - -;; please edit -(add-path "gnus-3.14.4" 'all-paths) diff --git a/gnus/g4-path b/gnus/g4-path deleted file mode 100644 index 165165c..0000000 --- a/gnus/g4-path +++ /dev/null @@ -1,14 +0,0 @@ -;;; -*-Emacs-Lisp-*- - -;;; -;;; loadpath for GNUS 4.* -;;; - -(require 'tl-misc) - -;;; -;;; loadpath for GNUS 4.* -;;; - -;; please edit -(add-path "gnus-4.1/lisp" 'all-paths) diff --git a/gnus/g5-path b/gnus/g5-path deleted file mode 100644 index b3bdd29..0000000 --- a/gnus/g5-path +++ /dev/null @@ -1,21 +0,0 @@ -;;; -*-Emacs-Lisp-*- - -(require 'tl-misc) - -;;; -;;; loadpath for Gnus 5.* -;;; - -;; please edit - -;; It is for latest Gnus. -(let ((path (get-latest-path "gnus-5"))) - (if path - (add-path (expand-file-name "lisp/" path)) - )) - -;; It is relative style. Added path is searched from load-path. -;; (add-path "gnus-5.2.10/lisp/" 'all-paths) - -;; It is absolute style. -;; (add-path "/usr/local/share/emacs/site-lisp/gnus-5.2.10/lisp/") diff --git a/gnus/gnus-art-mime.el b/gnus/gnus-art-mime.el deleted file mode 100644 index 15d91c6..0000000 --- a/gnus/gnus-art-mime.el +++ /dev/null @@ -1,119 +0,0 @@ -;;; gnus-art-mime.el --- MIME extension for article mode of Gnus - -;; Copyright (C) 1995,1996 Free Software Foundation, Inc. - -;; Author: MORIOKA Tomohiko -;; Created: 1996/8/6 -;; Version: -;; $Id: gnus-art-mime.el,v 0.5 1996/08/17 02:45:14 morioka Exp $ -;; Keywords: news, MIME, multimedia, multilingual, encoded-word - -;; This file is not part of GNU Emacs yet. - -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License as -;; published by the Free Software Foundation; either version 2, or (at -;; your option) any later version. - -;; This program is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with this program; see the file COPYING. If not, write to -;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Code: - -(require 'emu) -(require 'gnus-art) - -(autoload 'mime-eword/decode-region "tm-ew-d" - "Decode MIME encoded-words in region." t) -(autoload 'mime/decode-message-header "tm-ew-d" - "Decode MIME encoded-words in message header." t) -(autoload 'mime/viewer-mode "tm-view" - "Major mode for viewing MIME message." t) - - -(defun gnus-decode-rfc1522 () - (goto-char (point-min)) - (if (re-search-forward "^[0-9]+\t" nil t) - (progn - (goto-char (point-min)) - ;; for XOVER - (while (re-search-forward "^[0-9]+\t\\([^\t]+\\)\t" nil t) - (mime-eword/decode-region (match-beginning 1) (match-end 1) - 'unfolding 'must-unfold) - (if (re-search-forward "[^\t]+" nil t) - (mime-eword/decode-region (match-beginning 0)(match-end 0) - 'unfolding 'must-unfold) - ) - )) - (mime-eword/decode-region (point-min)(point-max) t) - )) - - -;;; @ article filter -;;; - -(defun gnus-article-preview-mime-message () - (make-local-variable 'tm:mother-button-dispatcher) - (setq tm:mother-button-dispatcher - (function gnus-article-push-button)) - (let ((mime-viewer/ignored-field-regexp "^:$") - (default-mime-charset - (save-excursion - (set-buffer gnus-summary-buffer) - default-mime-charset)) - ) - (save-window-excursion - (mime/viewer-mode nil nil nil gnus-original-article-buffer - gnus-article-buffer - gnus-article-mode-map) - )) - (run-hooks 'tm-gnus/article-prepare-hook) - ) - -(defun gnus-article-decode-encoded-word () - (decode-mime-charset-region (point-min)(point-max) - (save-excursion - (set-buffer gnus-summary-buffer) - default-mime-charset)) - (mime/decode-message-header) - (run-hooks 'tm-gnus/article-prepare-hook) - ) - - -;;; @ for BBDB -;;; - -(call-after-loaded - 'bbdb - (function - (lambda () - (require 'tm-bbdb) - ))) - -(autoload 'tm-bbdb/update-record "tm-bbdb") - -(defun tm-gnus/bbdb-setup () - (if (memq 'bbdb/gnus-update-record gnus-article-prepare-hook) - (progn - (remove-hook 'gnus-article-prepare-hook 'bbdb/gnus-update-record) - (add-hook 'gnus-article-display-hook 'tm-bbdb/update-record) - ))) - -(add-hook 'gnus-startup-hook 'tm-gnus/bbdb-setup t) - -(tm-gnus/bbdb-setup) - - -;;; @ end -;;; - -(provide 'gnus-art-mime) - -;;; gnus-art-mime.el ends here diff --git a/gnus/gnus-charset.el b/gnus/gnus-charset.el deleted file mode 100644 index 0d008af..0000000 --- a/gnus/gnus-charset.el +++ /dev/null @@ -1,129 +0,0 @@ -;;; gnus-charset.el --- MIME charset extension for Gnus - -;; Copyright (C) 1995,1996 Free Software Foundation, Inc. - -;; Author: MORIOKA Tomohiko -;; Created: 1996/8/6 -;; Version: -;; $Id: gnus-charset.el,v 0.6 1996/08/22 17:51:22 morioka Exp $ -;; Keywords: news, MIME, multimedia, multilingual, encoded-word - -;; This file is not part of GNU Emacs yet. - -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License as -;; published by the Free Software Foundation; either version 2, or (at -;; your option) any later version. - -;; This program is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with this program; see the file COPYING. If not, write to -;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Code: - -(require 'gnus) - - -;;; @ newsgroup default charset -;;; - -(defvar gnus-newsgroup-default-charset-alist nil) - -(defun gnus-set-newsgroup-default-charset (newsgroup charset) - "Set CHARSET for the NEWSGROUP as default MIME charset." - (let* ((ng-regexp (concat "^" (regexp-quote newsgroup) "\\($\\|\\.\\)")) - (pair (assoc ng-regexp gnus-newsgroup-default-charset-alist)) - ) - (if pair - (setcdr pair charset) - (setq gnus-newsgroup-default-charset-alist - (cons (cons ng-regexp charset) - gnus-newsgroup-default-charset-alist)) - ))) - - -;;; @ for mule (Multilingual support) -;;; - -(cond - ((featurep 'mule) - (require 'emu) - (defvar nntp-open-binary-connection-function - (if (featurep 'gnus-load) - ;; maybe Red Gnus - (if (boundp 'nntp-open-connection-function) - nntp-open-connection-function - 'nntp-open-network-stream) - ;; maybe Gnus 5.[01] or Gnus 5.[23] - (if (boundp 'nntp-open-server-function) - nntp-open-server-function - 'nntp-open-network-stream) - )) - (defun nntp-open-network-stream-with-no-code-conversion (&rest args) - (let ((proc (apply nntp-open-binary-connection-function args))) - (set-process-input-coding-system proc *noconv*) - proc)) - (if (featurep 'gnus-load) - (setq nntp-open-connection-function - 'nntp-open-network-stream-with-no-code-conversion) - (setq nntp-open-server-function - 'nntp-open-network-stream-with-no-code-conversion) - ) - (call-after-loaded - 'nnheader - (lambda () - (defun nnheader-find-file-noselect (filename &optional nowarn rawfile) - (let ((file-coding-system-for-read *noconv*)) - (find-file-noselect filename nowarn rawfile) - )) - (defun nnheader-insert-file-contents-literally - (filename &optional visit beg end replace) - (let ((file-coding-system-for-read *noconv*)) - (insert-file-contents-literally filename visit beg end replace) - )) - )) - (call-after-loaded - 'nnmail - (lambda () - (defun nnmail-find-file (file) - "Insert FILE in server buffer safely. [gnus-charset.el]" - (set-buffer nntp-server-buffer) - (erase-buffer) - (let ((format-alist nil) - (after-insert-file-functions ; for jam-code-guess - (if (memq 'jam-code-guess-after-insert-file-function - after-insert-file-functions) - '(jam-code-guess-after-insert-file-function))) - (file-coding-system-for-read *noconv*)) - (condition-case () - (progn (insert-file-contents file) t) - (file-error nil)))) - )) - (defun gnus-prepare-save-mail-function () - (setq file-coding-system *noconv*) - ) - (add-hook 'nnmail-prepare-save-mail-hook - 'gnus-prepare-save-mail-function) - - (gnus-set-newsgroup-default-charset "alt.chinese" 'hz) - (gnus-set-newsgroup-default-charset "alt.chinese.text.big5" 'big5) - (gnus-set-newsgroup-default-charset "tw" 'big5) - (gnus-set-newsgroup-default-charset "hk" 'big5) - (gnus-set-newsgroup-default-charset "hkstar" 'big5) - (gnus-set-newsgroup-default-charset "han" 'euc-kr) - (gnus-set-newsgroup-default-charset "relcom" 'koi8-r) - )) - - -;;; @ end -;;; - -(provide 'gnus-charset) - -;;; gnus-charset.el ends here diff --git a/gnus/gnus-mime.el b/gnus/gnus-mime.el deleted file mode 100644 index 7829b51..0000000 --- a/gnus/gnus-mime.el +++ /dev/null @@ -1,192 +0,0 @@ -;;; gnus-mime.el --- MIME extensions for Gnus - -;; Copyright (C) 1996 Free Software Foundation, Inc. - -;; Author: MORIOKA Tomohiko -;; Created: 1996/8/6 -;; Version: $Revision: 0.6 $ -;; Keywords: news, MIME, multimedia, multilingual, encoded-word - -;; This file is not part of GNU Emacs yet. - -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License as -;; published by the Free Software Foundation; either version 2, or (at -;; your option) any later version. - -;; This program is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with this program; see the file COPYING. If not, write to -;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Code: - -(require 'tl-misc) - - -;;; @ version -;;; - -(defconst gnus-mime-RCS-ID - "$Id: gnus-mime.el,v 0.6 1996/08/22 17:55:17 morioka Exp $") - -(defconst gnus-mime-version - (get-version-string gnus-mime-RCS-ID)) - - -;;; @ variables -;;; - -(defvar gnus-show-mime t - "*If non-nil, do mime processing of articles. -The articles will simply be fed to the function given by -`gnus-show-mime-method'.") - -(defvar gnus-show-mime-method 'gnus-article-preview-mime-message - "*Function to process a MIME message. -The function is called from the article buffer.") - -(defvar gnus-decode-encoded-word-method 'gnus-article-decode-encoded-word - "*Function to decode a MIME encoded-words. -The function is called from the article buffer.") - -(defvar gnus-parse-headers-hook - '(gnus-set-summary-default-charset gnus-decode-rfc1522) - "*A hook called before parsing the headers.") - - -;;; @ load -;;; - -(require 'gnus) -(autoload 'gnus-decode-rfc1522 "gnus-art-mime") -(autoload 'gnus-article-preview-mime-message "gnus-art-mime") -(autoload 'gnus-article-decode-encoded-word "gnus-art-mime") -(autoload 'gnus-set-summary-default-charset "gnus-sum-mime") -(require 'gnus-charset) - - -;;; @ for tm-view -;;; - -(defun gnus-content-header-filter () - (goto-char (point-min)) - (mime-preview/cut-header) - (decode-mime-charset-region (point-min)(point-max) default-mime-charset) - (mime/decode-message-header) - ) - -(set-alist 'mime-viewer/content-header-filter-alist - 'gnus-original-article-mode - (function gnus-content-header-filter)) - - -(set-alist 'mime-viewer/code-converter-alist - 'gnus-original-article-mode - (function mime-charset/decode-buffer)) - - -(defun mime-viewer/quitting-method-for-gnus () - (if (not gnus-show-mime) - (mime-viewer/kill-buffer)) - (delete-other-windows) - (gnus-article-show-summary) - (if (or (not gnus-show-mime) - (null gnus-have-all-headers)) - (gnus-summary-select-article nil t) - )) - -(set-alist 'mime-viewer/quitting-method-alist - 'gnus-original-article-mode - (function mime-viewer/quitting-method-for-gnus)) -(set-alist 'mime-viewer/show-summary-method - 'gnus-original-article-mode - (function mime-viewer/quitting-method-for-gnus)) - - -;;; @ for tm-partial -;;; - -(defun gnus-mime-partial-preview-function () - (gnus-summary-preview-mime-message (gnus-summary-article-number)) - ) - -(call-after-loaded - 'tm-partial - (function - (lambda () - (set-atype 'mime/content-decoding-condition - '((type . "message/partial") - (method . mime-article/grab-message/partials) - (major-mode . gnus-original-article-mode) - (summary-buffer-exp . gnus-summary-buffer) - )) - (set-alist 'tm-partial/preview-article-method-alist - 'gnus-original-article-mode - 'gnus-mime-partial-preview-function) - ))) - - -;;; @ end -;;; - -(provide 'gnus-mime) - -(or (featurep 'gnus-load) - (progn - ;; for Gnus 5.0 .. 5.3 - (provide 'gnus-sum) - (provide 'gnus-art) - - (or (boundp 'gnus-original-article-buffer) - (progn - ;; for Gnus 5.0.* and 5.1 - (defvar gnus-original-article-buffer " *Original Article*") - - (defun gnus-article-setup-original-article-buffer () - (save-excursion - (set-buffer (get-buffer-create gnus-original-article-buffer)) - (erase-buffer) - (insert-buffer gnus-article-buffer) - (setq major-mode 'gnus-original-article-mode) - )) - - (add-hook 'gnus-article-prepare-hook - 'gnus-article-setup-original-article-buffer) - - (setq gnus-strict-mime nil) - )) - - (if running-xemacs - (progn - ;; modified by Steven L. Baur - ;; 1995/12/6 (c.f. [tm-en:209]) - (defun mime-editor/attach-to-news-reply-menu () - "Arrange to attach MIME editor's popup menu to VM's" - (if (boundp 'news-reply-menu) - (progn - (setq news-reply-menu - (append news-reply-menu - '("---") - mime-editor/popup-menu-for-xemacs)) - (remove-hook 'news-setup-hook - 'mime-editor/attach-to-news-reply-menu) - ))) - (call-after-loaded - 'tm-edit - (function - (lambda () - (add-hook 'news-setup-hook - 'mime-editor/attach-to-news-reply-menu) - ))) - )) - )) - -(run-hooks 'gnus-mime-load-hook) - -;;; gnus-mime.el ends here diff --git a/gnus/gnus-msg-mime.el b/gnus/gnus-msg-mime.el deleted file mode 100644 index 9818805..0000000 --- a/gnus/gnus-msg-mime.el +++ /dev/null @@ -1,57 +0,0 @@ -;;; gnus-msg-mime.el --- MIME extension for mail and post interface of Gnus - -;; Copyright (C) 1996 Free Software Foundation, Inc. - -;; Author: MORIOKA Tomohiko -;; Created: 1996/8/8 -;; Version: -;; $Id: gnus-msg-mime.el,v 0.2 1996/08/12 09:02:41 morioka Exp $ -;; Keywords: news, MIME, multimedia, multilingual, encoded-word - -;; This file is not part of GNU Emacs yet. - -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License as -;; published by the Free Software Foundation; either version 2, or (at -;; your option) any later version. - -;; This program is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with This program. If not, write to the Free Software -;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. - -;;; Code: - -(require 'gnus-msg) - -(defun gnus-copy-article-buffer-with-no-filter () - ;; make a copy of the article buffer with all text properties removed - ;; this copy is in the buffer gnus-article-copy. - ;; if ARTICLE-BUFFER is nil, gnus-article-buffer is used - ;; this buffer should be passed to all mail/news reply/post routines. - (setq gnus-article-copy (get-buffer-create " *gnus article copy*")) - (buffer-disable-undo gnus-article-copy) - (or (memq gnus-article-copy gnus-buffer-list) - (setq gnus-buffer-list (cons gnus-article-copy gnus-buffer-list))) - (let (mime-viewer/plain-text-preview-hook - (mime-viewer/ignored-field-regexp "^:$")) - (save-window-excursion - (mime/viewer-mode nil nil nil - gnus-original-article-buffer gnus-article-copy) - ) - gnus-article-copy)) - - -;;(fset 'gnus-copy-article-buffer 'gnus-copy-article-buffer-with-no-filter) - - -;;; @ end -;;; - -(provide 'gnus-msg-mime) - -;;; gnus-msg-mime.el ends here diff --git a/gnus/gnus-sum-mime.el b/gnus/gnus-sum-mime.el deleted file mode 100644 index 8e01a29..0000000 --- a/gnus/gnus-sum-mime.el +++ /dev/null @@ -1,103 +0,0 @@ -;;; gnus-sum-mime.el --- MIME extension for summary mode of Gnus - -;; Copyright (C) 1995,1996 Free Software Foundation, Inc. - -;; Author: MORIOKA Tomohiko -;; Created: 1996/8/6 -;; Version: -;; $Id: gnus-sum-mime.el,v 0.4 1996/09/02 10:03:58 morioka Exp $ -;; Keywords: news, MIME, multimedia, multilingual, encoded-word - -;; This file is not part of GNU Emacs yet. - -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License as -;; published by the Free Software Foundation; either version 2, or (at -;; your option) any later version. - -;; This program is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with this program; see the file COPYING. If not, write to -;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Code: - -(require 'gnus-mime) -(require 'gnus-art-mime) - - -;;; @ summary filter -;;; - -(defun gnus-set-summary-default-charset () - (let ((charset - (if (buffer-live-p gnus-summary-buffer) - (save-excursion - (set-buffer gnus-summary-buffer) - (let ((rest gnus-newsgroup-default-charset-alist) - cell) - (catch 'tag - (while (setq cell (car rest)) - (if (string-match (car cell) gnus-newsgroup-name) - (throw 'tag - (progn - (make-local-variable 'default-mime-charset) - (setq default-mime-charset (cdr cell)) - ))) - (setq rest (cdr rest)) - ))) - default-mime-charset) - default-mime-charset))) - (goto-char (point-min)) - (while (< (point)(point-max)) - (decode-mime-charset-region (point) - (progn - (end-of-line) - (point)) - charset) - (forward-char) - ))) - - -;;; @ command functions -;;; - -(defun gnus-summary-preview-mime-message (arg) - "MIME decode and play this message." - (interactive "P") - (let ((gnus-break-pages nil)) - (gnus-summary-select-article t t) - ) - (pop-to-buffer gnus-original-article-buffer t) - (let (buffer-read-only) - (if (text-property-any (point-min) (point-max) 'invisible t) - (remove-text-properties (point-min) (point-max) - gnus-hidden-properties) - )) - (mime/viewer-mode nil nil nil gnus-original-article-buffer - gnus-article-buffer) - ) - -(defun gnus-summary-scroll-down () - "Scroll down one line current article." - (interactive) - (gnus-summary-scroll-up -1) - ) - -(define-key gnus-summary-mode-map "v" - (function gnus-summary-preview-mime-message)) -(define-key gnus-summary-mode-map "\e\r" - (function gnus-summary-scroll-down)) - - -;;; @ end -;;; - -(provide 'gnus-sum-mime) - -;;; gnus-sum-mime.el ends here diff --git a/gnus/gnushook.el b/gnus/gnushook.el deleted file mode 100644 index c455f72..0000000 --- a/gnus/gnushook.el +++ /dev/null @@ -1,52 +0,0 @@ -;;; -;;; $Id: gnushook.el,v 1.1 1994/10/25 06:42:57 morioka Exp morioka $ -;;; - -(provide 'gnushook) - -(require 'gnus) - -(cond ((string-match "^GNUS 3" gnus-version) - (if (and (null gnus-Startup-hook) - (boundp 'gnus-startup-hook)) - (setq gnus-Startup-hook gnus-startup-hook) - ) - (if (and (null gnus-Select-group-hook) - (boundp 'gnus-select-group-hook)) - (setq gnus-Select-group-hook gnus-select-group-hook) - ) - (if (and (null gnus-Subject-mode-hook) - (boundp 'gnus-summary-mode-hook)) - (setq gnus-Subject-mode-hook gnus-summary-mode-hook) - ) - (if (and (null gnus-Article-mode-hook) - (boundp 'gnus-article-mode-hook)) - (setq gnus-Article-mode-hook gnus-article-mode-hook) - ) - (if (and (null gnus-Article-prepare-hook) - (boundp 'gnus-article-prepare-hook)) - (setq gnus-Article-prepare-hook gnus-article-prepare-hook) - ) - ) - ((string-match "^GNUS 4" gnus-version) - (if (and (null gnus-startup-hook) - (boundp 'gnus-Startup-hook)) - (setq gnus-startup-hook gnus-Startup-hook) - ) - (if (and (null gnus-select-group-hook) - (boundp 'gnus-Select-group-hook)) - (setq gnus-select-group-hook gnus-Select-group-hook) - ) - (if (and (null gnus-summary-mode-hook) - (boundp 'gnus-Subject-mode-hook)) - (setq gnus-summary-mode-hook gnus-Subject-mode-hook) - ) - (if (and (null gnus-article-mode-hook) - (boundp 'gnus-Article-mode-hook)) - (setq gnus-article-mode-hook gnus-Article-mode-hook) - ) - (if (and (null gnus-article-prepare-hook) - (boundp 'gnus-Article-prepare-hook)) - (setq gnus-article-prepare-hook gnus-Article-prepare-hook) - ) - )) diff --git a/gnus/message-mime.el b/gnus/message-mime.el deleted file mode 100644 index 4ca3f42..0000000 --- a/gnus/message-mime.el +++ /dev/null @@ -1,77 +0,0 @@ -;;; message-mime.el --- MIME extensions for message.el - -;; Copyright (C) 1995,1996 Free Software Foundation, Inc. - -;; Author: MORIOKA Tomohiko -;; Created: 1996/8/6 -;; Version: -;; $Id: message-mime.el,v 0.5 1996/08/12 09:11:34 morioka Exp $ -;; Keywords: news, MIME, multimedia, multilingual, encoded-word - -;; This file is not part of GNU Emacs yet. - -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License as -;; published by the Free Software Foundation; either version 2, or (at -;; your option) any later version. - -;; This program is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with This program. If not, write to the Free Software -;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. - -;;; Code: - -(require 'tm-edit) - -(setq message-forward-start-separator - (concat (mime-make-tag "message" "rfc822") "\n")) - -(setq message-forward-end-separator "") - -(or (string-match message-included-forward-headers "Mime-Version:") - (setq message-included-forward-headers - (concat message-included-forward-headers "\\|^Mime-Version:")) - ) - -(or (string-match message-included-forward-headers "Content-Type:") - (setq message-included-forward-headers - (concat message-included-forward-headers "\\|^Content-Type:")) - ) - - -;;; @ for tm-edit -;;; - -;; suggested by OKABE Yasuo -;; 1995/11/08 (c.f. [tm ML:1067]) -(defun message-mime-insert-article (&optional message) - (interactive) - (let ((message-cite-function 'mime-editor/inserted-message-filter) - (message-reply-buffer gnus-original-article-buffer) - ) - (message-yank-original nil) - )) - -(set-alist 'mime-editor/message-inserter-alist - 'message-mode (function message-mime-insert-article)) -(set-alist 'mime-editor/split-message-sender-alist - 'message-mode - (lambda () - (interactive) - (let (message-send-hook - message-sent-message-via) - (message-send) - ))) - - -;;; @ end -;;; - -(provide 'message-mime) - -;;; message-mime.el ends here diff --git a/gnus/mk-tgnus b/gnus/mk-tgnus deleted file mode 100644 index c243ce3..0000000 --- a/gnus/mk-tgnus +++ /dev/null @@ -1,88 +0,0 @@ -;;; -*-Emacs-Lisp-*- -;;; -;;; $Id: mk-tgnus,v 7.5 1996/09/03 15:30:22 morioka Exp $ -;;; - -(setq load-path - (append - (mapcar (function - (lambda (path) - (expand-file-name path (getenv "PWD")) - )) - '("." ".." "../../tl/" "../../mu/" "../../mel/")) - load-path)) - -(require 'emu) -(require 'install) - -(defun compile-tm-gnus () - (load "gnus.el") - (require 'nntp) - (require 'tm-view) - (require 'tm-partial) - (require 'tm-edit) - (princ (format "%s\n" gnus-version)) - (cond ((boundp 'gnus-load-hook) - (byte-compile-file "gnus-mime.el") - (byte-compile-file "gnus-charset.el") - (byte-compile-file "gnus-sum-mime.el") - (byte-compile-file "gnus-art-mime.el") - (byte-compile-file "message-mime.el") - ;;(byte-compile-file "gnus-msg-mime.el") - ) - ((string-match "GNUS 4" gnus-version) - (require 'tm-gnus) - (byte-compile-file "tm-gnus4.el") - ) - ((string-match "GNUS 3" gnus-version) - (require 'tm-gnus) - (byte-compile-file "tm-gnus3.el") - )) - ;;(byte-compile-file "tm-gnus.el") - ) - -(defun install-tm-gnus () - (let ((path (car command-line-args-left))) - (princ (format "%s\n" emacs-version)) - (if (not (file-exists-p path)) - (make-directory path t) - ) - (cond (running-emacs-18 - (install-files '("tm-gnus.el" - "tm-gnus3.el" "tm-gnus4.el" - "tm-gd3.el") - "./" path nil 'overwrite) - (install-files '(;;"tm-gnus.elc" - "tm-gnus3.elc" "tm-gnus4.elc") - "./" path 'move) - ) - ((or (and running-emacs-19 (<= emacs-minor-version 29)) - (and running-xemacs-19 (<= emacs-minor-version 13))) - (install-files '("tm-gnus.el" "tm-gnus4.el" "tm-gd3.el" - "gnus-mime.el" "gnus-charset.el" - "gnus-sum-mime.el" "gnus-art-mime.el") - "./" path nil 'overwrite) - (install-files '(;;"tm-gnus.elc" - "tm-gnus4.elc" - "gnus-mime.elc" "gnus-charset.elc" - "gnus-sum-mime.elc" "gnus-art-mime.elc") - "./" path 'move) - ) - (t - (install-files '("gnus-mime.el" "gnus-charset.el" - "gnus-sum-mime.el" "gnus-art-mime.el" - "message-mime.el" - ;;"gnus-msg-mime.el" - ) - "./" path nil 'overwrite) - (install-files '("gnus-mime.elc" "gnus-charset.elc" - "gnus-sum-mime.elc" "gnus-art-mime.elc" - "message-mime.elc" - ;;"gnus-msg-mime.elc" - ) - "./" path 'move) - )) - (setq command-line-args-left (cdr command-line-args-left)) - )) - -;;; mk-tgnus ends here diff --git a/gnus/s-path b/gnus/s-path deleted file mode 100644 index 1fcce1c..0000000 --- a/gnus/s-path +++ /dev/null @@ -1,21 +0,0 @@ -;;; -*-Emacs-Lisp-*- - -(require 'tl-misc) - -;;; -;;; loadpath for Gnus 5.2 -;;; - -;; please edit - -;; It is for latest September Gnus. -(let ((path (get-latest-path "gnus-5.2"))) - (if path - (add-path (expand-file-name "lisp/" path)) - )) - -;; It is relative style. Added path is searched from load-path. -;; (add-path "gnus-5.2.10/lisp/" 'all-paths) - -;; It is absolute style. -;; (add-path "/usr/local/share/emacs/site-lisp/gnus-5.2.10/lisp/") diff --git a/gnus/tgnus-bc.el b/gnus/tgnus-bc.el deleted file mode 100644 index 72b410b..0000000 --- a/gnus/tgnus-bc.el +++ /dev/null @@ -1,17 +0,0 @@ -(require 'gnus) - -(setq load-path (append '("." ".." "../../tl") load-path)) - -(defun compile-tm-gnus () - (if (string-match "(ding)" gnus-version) - (byte-compile-file "tm-dgnus.el") - (if (string-match "GNUS 3" gnus-version) - (byte-compile-file "tm-gnus3.el") - (byte-compile-file "tm-gnus4.el") - )) - (byte-compile-file "tm-gnus.el") - ) - -(defun install-tm-gnus () - (print command-line-args-left) - ) diff --git a/gnus/tm-dgnus.el b/gnus/tm-dgnus.el deleted file mode 100644 index 690a39c..0000000 --- a/gnus/tm-dgnus.el +++ /dev/null @@ -1,29 +0,0 @@ -;;; -;;; tm-dgnus.el --- tm-gnus module for (ding) GNUS -;;; - -(require 'tm-gnus5) - - -;;; @ version -;;; - -(defconst tm-gnus/RCS-ID - "$Id: tm-dgnus.el,v 6.18 1995/08/31 20:15:50 morioka Exp $") - -(defconst tm-gnus/version - (concat (get-version-string tm-gnus/RCS-ID) " (ding)")) - -(if (not (fboundp 'mail-header-from)) - (progn - (defalias 'mail-header-from 'header-from) - (defalias 'mail-header-set-from 'header-set-from) - (defalias 'mail-header-subject 'header-subject) - (defalias 'mail-header-set-subject 'header-set-subject) - )) - - -;;; @ end -;;; - -(provide 'tm-dgnus) diff --git a/gnus/tm-gd3.el b/gnus/tm-gd3.el deleted file mode 100644 index 9ed7ff0..0000000 --- a/gnus/tm-gd3.el +++ /dev/null @@ -1,85 +0,0 @@ -;;; -;;; tm-gd3.el --- tm-gnus module for GNUS 3.* and 4.* -;;; -;;; Copyright (C) 1995 Free Software Foundation, Inc. -;;; Copyright (C) 1995 MORIOKA Tomohiko -;;; -;;; Author: MORIOKA Tomohiko -;;; Maintainer: MORIOKA Tomohiko -;;; Created: 1995/05/23 (obsolete tm-ognus.el) -;;; Version: -;;; $Id: tm-gd3.el,v 7.6 1996/03/27 19:27:04 morioka Exp $ -;;; Keywords: news, MIME, multimedia, multilingual, encoded-word -;;; -;;; This file is part of tm (Tools for MIME). -;;; -;;; This program is free software; you can redistribute it and/or -;;; modify it under the terms of the GNU General Public License as -;;; published by the Free Software Foundation; either version 2, or -;;; (at your option) any later version. -;;; -;;; This program is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;;; General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with This program. If not, write to the Free Software -;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;; -;;; Code: - -(require 'tm-ew-d) - - -;;; @ to decode subjects in mode-line -;;; -;; This function imported from gnus.el. -;; -;; New implementation in gnus 3.14.3 -;; - -(defun tm-gnus/article-set-mode-line () - "Set Article mode line string. -If you don't like it, define your own gnus-article-set-mode-line." - (let ((maxlen 15) ;Maximum subject length - (subject - (if gnus-current-headers - (mime-eword/decode-string - (nntp-header-subject gnus-current-headers)) - "") - )) - ;; The value must be a string to escape %-constructs because of subject. - (setq mode-line-buffer-identification - (format "GNUS: %s%s %s%s%s" - gnus-newsgroup-name - (if gnus-current-article - (format "/%d" gnus-current-article) "") - (truncate-string subject - (min (string-width subject) maxlen)) - (if (> (string-width subject) maxlen) "..." "") - (make-string (max 0 (- 17 (string-width subject))) ? ) - ))) - (set-buffer-modified-p t)) - - -;;; @ to decode subjects in Summary buffer -;;; - -(defun tm-gnus/decode-summary-subjects () - (mapcar (function - (lambda (header) - (let ((subj (or (gnus-header-subject header) ""))) - (nntp-set-header-subject - header (mime-eword/decode-string subj)) - ))) - gnus-newsgroup-headers) - ) - - -;;; @ end -;;; - -(provide 'tm-gd3) - -;;; tm-gd3.el ends here diff --git a/gnus/tm-gd5.el b/gnus/tm-gd5.el deleted file mode 100644 index 773b23b..0000000 --- a/gnus/tm-gd5.el +++ /dev/null @@ -1,97 +0,0 @@ -;;; -;;; tm-gd5.el --- tm-gnus shared module for Gnus 5.*. -;;; -;;; Copyright (C) 1995 Free Software Foundation, Inc. -;;; Copyright (C) 1995,1996 MORIOKA Tomohiko -;;; -;;; Author: MORIOKA Tomohiko -;;; Maintainer: MORIOKA Tomohiko -;;; Created: 1995/11/19 -;;; Version: -;;; $Id: tm-gd5.el,v 4.0 1996/01/25 02:37:43 morioka Exp $ -;;; Keywords: news, MIME, multimedia, multilingual, encoded-word -;;; -;;; This file is part of tm (Tools for MIME). -;;; -;;; This program is free software; you can redistribute it and/or -;;; modify it under the terms of the GNU General Public License as -;;; published by the Free Software Foundation; either version 2, or -;;; (at your option) any later version. -;;; -;;; This program is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;;; General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with This program. If not, write to the Free Software -;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;; -;;; Code: - -(cond ((not (boundp 'nnheader-encoded-words-decoding)) - (require 'tm-ew-d) - - (defun tm-gnus/decode-summary-from-and-subjects () - (mapcar (lambda (header) - (let ((from (mail-header-from header)) - (subj (mail-header-subject header)) - ) - (mail-header-set-from - header - (if from - (mime-eword/decode-string from) - "")) - (mail-header-set-subject - header - (if subj - (mime-eword/decode-string - (code-convert-string - subj mime/default-coding-system *internal*)) - "")) - )) - gnus-newsgroup-headers)) - - (add-hook 'gnus-select-group-hook - (function tm-gnus/decode-summary-from-and-subjects)) - )) - - -(if (boundp 'MULE) - (progn - (define-service-coding-system gnus-nntp-service nil *noconv*) - (if (and (boundp 'nntp-server-process) - (processp nntp-server-process) - ) - (set-process-coding-system nntp-server-process *noconv* *noconv*) - ) - - (or (fboundp 'tm-gnus/original-request-article) - (fset 'tm-gnus/original-request-article - (symbol-function 'gnus-request-article)) - ) - - (defun gnus-request-article (article group &optional buffer) - (let ((file-coding-system-for-read *noconv*)) - (tm-gnus/original-request-article article group buffer) - )) - )) - -(fset 'tm-gnus/code-convert-region-to-emacs - (symbol-function 'mime/code-convert-region-to-emacs)) - -(defun tm-gnus/content-header-filter () - (goto-char (point-min)) - (mime-preview/cut-header) - (tm-gnus/code-convert-region-to-emacs (point-min)(point-max) - mime/default-coding-system) - (mime/decode-message-header) - ) - - -;;; @ end -;;; - -(provide 'tm-gd5) - -;;; tm-gd5.el ends here diff --git a/gnus/tm-gnus.el b/gnus/tm-gnus.el deleted file mode 100644 index 9a7c9df..0000000 --- a/gnus/tm-gnus.el +++ /dev/null @@ -1,92 +0,0 @@ -;;; -;;; tm-gnus.el --- MIME extension for GNUS -;;; -;;; Copyright (C) 1995 Free Software Foundation, Inc. -;;; Copyright (C) 1993 .. 1996 MORIOKA Tomohiko -;;; -;;; Author: MORIOKA Tomohiko -;;; modified by Shuhei KOBAYASHI -;;; Maintainer: MORIOKA Tomohiko -;;; and Shuhei KOBAYASHI -;;; Created: 1993/11/20 (obsolete mol's gnus-mime.el) -;;; Version: -;;; $Id: tm-gnus.el,v 7.24 1996/08/06 12:09:13 morioka Exp $ -;;; Keywords: news, MIME, multimedia, encoded-word, multilingual -;;; -;;; This file is part of tm (Tools for MIME). -;;; -;;; This program is free software; you can redistribute it and/or -;;; modify it under the terms of the GNU General Public License as -;;; published by the Free Software Foundation; either version 2, or -;;; (at your option) any later version. -;;; -;;; This program is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;;; General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with This program. If not, write to the Free Software -;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;; -;;; Commentary: Notice that this module is only for GNUS, not for Gnus. -;;; -;;; Code: - -(require 'gnus) - - -;;; @ variables -;;; - -(defvar tm-gnus/startup-hook nil) - - -;;; @ set up -;;; - -(cond ((fboundp 'gnus-article-prepare) - ;; for GNUS 3.15 .. 4.* - (require 'tm-gd3) - (require 'tm-gnus4) - (add-hook 'gnus-select-group-hook 'tm-gnus/decode-summary-subjects) - (fset 'gnus-article-set-mode-line - (function tm-gnus/article-set-mode-line)) - - (or (fboundp 'tm:gnus-article-delete-headers) - (fset 'tm:gnus-article-delete-headers - (symbol-function 'gnus-article-delete-headers)) - ) - (defun gnus-article-delete-headers () - (or tm-gnus/automatic-mime-preview - (tm:gnus-article-delete-headers) - )) - - (require 'gnuspost) - (or (fboundp 'tm-gnus/original-news-reply) - (fset 'tm-gnus/original-news-reply - (symbol-function 'gnus-news-reply)) - ) - (defun gnus-news-reply (&optional yank) - (if (eq major-mode 'mime/viewer-mode) - (let ((major-mode 'gnus-article-mode)) - (tm-gnus/original-news-reply yank) - ) - (tm-gnus/original-news-reply yank) - )) - ) - ((string-match "^GNUS 3" gnus-version) - ;; for GNUS 3.14.* - (require 'tm-gnus3) - (defvar gnus-article-buffer gnus-Article-buffer) - )) - - -;;; @ end -;;; - -(provide 'tm-gnus) - -(run-hooks 'tm-gnus-load-hook) - -;;; tm-gnus.el ends here diff --git a/gnus/tm-gnus3.el b/gnus/tm-gnus3.el deleted file mode 100644 index 366b0bc..0000000 --- a/gnus/tm-gnus3.el +++ /dev/null @@ -1,297 +0,0 @@ -;;; -;;; tm-gnus3.el --- tm-gnus module for GNUS 3.* -;;; -;;; Copyright (C) 1995 Free Software Foundation, Inc. -;;; Copyright (C) 1993 .. 1996 MORIOKA Tomohiko -;;; -;;; Author: MORIOKA Tomohiko -;;; Maintainer: MORIOKA Tomohiko -;;; and KOBAYASHI Shuhei -;;; Created: 1993/11/20 -;;; Version: $Revision: 7.10 $ -;;; Keywords: news, MIME, multimedia, multilingual, encoded-word -;;; -;;; This file is part of tm (Tools for MIME). -;;; -;;; This program is free software; you can redistribute it and/or -;;; modify it under the terms of the GNU General Public License as -;;; published by the Free Software Foundation; either version 2, or -;;; (at your option) any later version. -;;; -;;; This program is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;;; General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with This program. If not, write to the Free Software -;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;; -;;; Code: - -(require 'tl-list) -(require 'tl-str) -(require 'tl-misc) -(require 'gnus) -(require 'tm-gd3) - -(autoload 'mime/decode-message-header - "tm-ew-d" "Decode MIME encoded-words in message header." t) -(autoload 'mime-eword/decode-string - "tm-ew-d" "Decode MIME encoded-words in string." t) - -(fset 'gnus-summary-select-article 'gnus-Subject-select-article) - - -;;; @ version -;;; - -(defconst tm-gnus/RCS-ID - "$Id: tm-gnus3.el,v 7.10 1996/06/09 06:51:09 morioka Exp $") - -(defconst tm-gnus/version - (concat (get-version-string tm-gnus/RCS-ID) " for GNUS 3")) - - -;;; @ variable -;;; - -(defvar tm-gnus/decoding-mode t "*Decode MIME header if non-nil.") - - -;;; @ mode-line -;;; - -(defun tm-gnus/add-decoding-mode-to-mode-line () - (or (assq 'tm-gnus/decoding-mode minor-mode-alist) - (setq minor-mode-alist - (cons (list 'tm-gnus/decoding-mode " MIME") - minor-mode-alist)) - )) - -(if (not (string-match "^GNUS 3\.14\.4" gnus-version)) - (progn - (add-hook 'gnus-Article-mode-hook - (function - (lambda () - (make-local-variable 'minor-mode-alist) - (tm-gnus/add-decoding-mode-to-mode-line) - ))) - ) - (progn - (add-hook 'gnus-Article-mode-hook - (function tm-gnus/add-decoding-mode-to-mode-line)) - )) - -;;; @@ to decode subjects in mode-line -;;; -;; This function imported from gnus.el. -;; -;; New implementation in gnus 3.14.3 -;; - -(defun tm-gnus/article-set-mode-line () - "Set Article mode line string. -If you don't like it, define your own gnus-article-set-mode-line." - (let ((maxlen 15) ;Maximum subject length - (subject - (if gnus-current-headers - (mime-eword/decode-string - (nntp-header-subject gnus-current-headers)) - "") - )) - ;; The value must be a string to escape %-constructs because of subject. - (setq mode-line-buffer-identification - (format "GNUS: %s%s %s%s%s" - gnus-newsgroup-name - (if gnus-current-article - (format "/%d" gnus-current-article) "") - (truncate-string subject (min (string-width subject) - maxlen)) - (if (> (string-width subject) maxlen) "..." "") - (make-string (max 0 (- 17 (string-width subject))) ? ) - ))) - (set-buffer-modified-p t)) - -(fset 'gnus-Article-set-mode-line 'tm-gnus/article-set-mode-line) - - -;;; @ change MIME encoded-word decoding mode, decoding or non decoding. -;;; - -(defun tm-gnus/set-decoding-mode (arg) - "Set MIME encoded-word processing. -With arg, turn MIME encoded-word processing on iff arg is positive." - (setq tm-gnus/decoding-mode arg) - (setq gnus-have-all-headers (not gnus-have-all-headers)) - (gnus-summary-select-article (not gnus-have-all-headers) t) - ) - -(defun tm-gnus/toggle-decoding-mode () - "Toggle MIME encoded-word processing. -With arg, turn MIME encoded-word processing on iff arg is positive." - (interactive) - (tm-gnus/set-decoding-mode (not tm-gnus/decoding-mode)) - ) - - -;;; @ for tm-view -;;; - -(autoload 'mime/viewer-mode "tm-view" "View MIME message." t) - -(defun tm-gnus/view-message (arg) - "MIME decode and play this message." - (interactive "P") - (let ((gnus-break-pages nil)) - (gnus-Subject-select-article t t) - ) - (pop-to-buffer gnus-Article-buffer t) - (mime/viewer-mode) - ) - -(call-after-loaded - 'tm-view - (function - (lambda () - (set-alist 'mime-viewer/quitting-method-alist - 'gnus-Article-mode - (if (string-match (regexp-quote "3.14.4") gnus-version) - (function - (lambda () - (mime-viewer/kill-buffer) - (delete-other-windows) - (gnus-Article-show-summary) - )) - (function - (lambda () - (mime-viewer/kill-buffer) - (delete-other-windows) - (gnus-Article-show-subjects) - )) - )) - ))) - - -;;; @ for tm-edit -;;; - -;; suggested by OKABE Yasuo -;; 1995/11/08 (c.f. [tm ML:1067]) -(defun tm-gnus/insert-article (&optional message) - (interactive) - (let (;; for Emacs 18 - (mail-yank-ignored-headers mime-editor/yank-ignored-field-regexp) - (news-make-reply-yank-header (function - (lambda (message-id from) "") - )) - (news-yank-original-quoting-indicator "") - - ;; select raw article buffer - (mail-reply-buffer - (save-excursion - (set-buffer gnus-article-buffer) - (if (eq major-mode 'mime/viewer-mode) - mime::preview/article-buffer - gnus-article-buffer))) - ) - (news-reply-yank-original 0) - )) - -(call-after-loaded - 'tm-edit - (function - (lambda () - (set-alist - 'mime-editor/message-inserter-alist - 'news-reply-mode (function tm-gnus/insert-article)) - - (autoload 'tm-mail/insert-message "tm-mail") - (set-alist 'mime-editor/message-inserter-alist - 'mail-mode (function tm-mail/insert-message)) - - (set-alist 'mime-editor/split-message-sender-alist - 'news-reply-mode - 'gnus-inews-news) - ))) - - -;;; @ for tm-partial -;;; - -(call-after-loaded - 'tm-partial - (function - (lambda () - (set-atype 'mime/content-decoding-condition - '((type . "message/partial") - (method . mime-article/grab-message/partials) - (major-mode . gnus-Article-mode) - (summary-buffer-exp . gnus-Subject-buffer) - )) - - (set-alist 'tm-partial/preview-article-method-alist - 'gnus-Article-mode - (function - (lambda () - (tm-gnus/view-message (gnus-Subject-article-number)) - ))) - ))) - - -;;; @ Summary decoding -;;; - -(add-hook 'gnus-Select-group-hook (function tm-gnus/decode-summary-subjects)) - - -;;; @ set up -;;; - -(define-key gnus-Subject-mode-map "\et" 'tm-gnus/toggle-decoding-mode) -(define-key gnus-Subject-mode-map "v" 'tm-gnus/view-message) - -(defun tm-gnus/decode-encoded-word-if-you-need () - (if (and tm-gnus/decoding-mode - (cond ((boundp 'all-headers) (not all-headers)) - (t t)) - ) - (mime/decode-message-header) - ) - (run-hooks 'tm-gnus/article-prepare-hook) - ) - -(add-hook 'gnus-Article-prepare-hook - (function tm-gnus/decode-encoded-word-if-you-need) t) - - -;;; @ for BBDB -;;; - -(call-after-loaded - 'bbdb - (function - (lambda () - (require 'tm-bbdb) - ))) - -(autoload 'tm-bbdb/update-record "tm-bbdb") - -(defun tm-gnus/bbdb-setup () - (if (memq 'bbdb/gnus-update-record gnus-Article-prepare-hook) - (progn - (remove-hook 'gnus-Article-prepare-hook 'bbdb/gnus-update-record) - (add-hook 'gnus-Article-prepare-hook 'tm-bbdb/update-record) - ))) - -(add-hook 'gnus-startup-hook 'tm-gnus/bbdb-setup t) - -(tm-gnus/bbdb-setup) - - -;;; @ end -;;; - -(provide 'tm-gnus3) - -;;; tm-gnus3.el ends here diff --git a/gnus/tm-gnus4.el b/gnus/tm-gnus4.el deleted file mode 100644 index 3578ac3..0000000 --- a/gnus/tm-gnus4.el +++ /dev/null @@ -1,310 +0,0 @@ -;;; -;;; tm-gnus4.el --- tm-gnus module for GNUS 4, 5.0.* and 5.1.*. -;;; -;;; Copyright (C) 1995 Free Software Foundation, Inc. -;;; Copyright (C) 1995,1996 MORIOKA Tomohiko -;;; -;;; Author: MORIOKA Tomohiko -;;; modified by OKABE Yasuo -;;; Maintainer: MORIOKA Tomohiko -;;; and KOBAYASHI Shuhei -;;; Created: 1993/11/20 (merged tm-gnus5.el) -;;; Version: $Revision: 7.20 $ -;;; Keywords: news, MIME, multimedia, multilingual, encoded-word -;;; -;;; This file is part of tm (Tools for MIME). -;;; -;;; This program is free software; you can redistribute it and/or -;;; modify it under the terms of the GNU General Public License as -;;; published by the Free Software Foundation; either version 2, or -;;; (at your option) any later version. -;;; -;;; This program is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;;; General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with This program. If not, write to the Free Software -;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;; -;;; Code: - -(require 'tl-str) -(require 'tl-misc) - - -;;; @ version -;;; - -(defconst tm-gnus/RCS-ID - "$Id: tm-gnus4.el,v 7.20 1996/06/09 06:53:41 morioka Exp $") - -(defconst tm-gnus/version - (concat (get-version-string tm-gnus/RCS-ID) " for 3.15 .. 5.1.*")) - - -;;; @ variable -;;; - -(defvar tm-gnus/automatic-mime-preview t - "*If non-nil, show MIME processed article. -This variable is set to `gnus-show-mime'.") - -(defvar tm-gnus/original-article-buffer " *Original Article*") -(defvar gnus-original-article-buffer nil) - - -;;; @ for tm-view -;;; - -(autoload 'mime/viewer-mode "tm-view" "View MIME message." t) - -(defun tm-gnus/view-message (arg) - "MIME decode and play this message." - (interactive "P") - (let ((gnus-break-pages nil) - (gnus-show-mime nil)) - (gnus-summary-select-article t t) - ) - (pop-to-buffer gnus-article-buffer t) - (let ((str (buffer-string)) - (obuf (get-buffer tm-gnus/original-article-buffer)) - (pbuf (current-buffer)) - ) - (if obuf - (progn - (set-buffer obuf) - (setq buffer-read-only nil) - (erase-buffer) - ) - (setq obuf (get-buffer-create tm-gnus/original-article-buffer)) - (set-buffer obuf) - ) - (insert str) - (gnus-article-mode) - (set-buffer pbuf) - (make-local-variable 'tm:mother-button-dispatcher) - (setq tm:mother-button-dispatcher - (function gnus-article-push-button)) - (mime/viewer-mode - nil nil nil tm-gnus/original-article-buffer gnus-article-buffer) - (let (buffer-read-only) - (run-hooks 'tm-gnus/article-prepare-hook) - ) - )) - -(defun tm-gnus/summary-scroll-down () - "Scroll down one line current article." - (interactive) - (gnus-summary-scroll-up -1) - ) - -(defun mime-viewer/quitting-method-for-gnus4 () - (if (not gnus-show-mime) - (mime-viewer/kill-buffer) - ) - (delete-other-windows) - (gnus-article-show-summary) - (if (or (not gnus-show-mime) - (null gnus-have-all-headers)) - (gnus-summary-select-article nil t) - )) - -(call-after-loaded - 'tm-view - (function - (lambda () - (set-alist 'mime-viewer/quitting-method-alist - 'gnus-article-mode - (function mime-viewer/quitting-method-for-gnus4)) - (set-alist 'mime-viewer/show-summary-method - 'gnus-article-mode - (function mime-viewer/quitting-method-for-gnus4)) - ))) - - -;;; @ for tm-edit -;;; - -;; suggested by OKABE Yasuo -;; 1995/11/08 (c.f. [tm ML:1067]) -(defun tm-gnus/insert-article (&optional message) - (interactive) - (let (;; for Emacs 19 - (mail-citation-hook '(mime-editor/inserted-message-filter)) - news-reply-header-hook - mail-yank-hooks - - ;; for Emacs 18 - (mail-yank-ignored-headers mime-editor/yank-ignored-field-regexp) - (news-make-reply-yank-header (function - (lambda (message-id from) "") - )) - (news-yank-original-quoting-indicator "") - - ;; select raw article buffer - (mail-reply-buffer - (save-excursion - (set-buffer gnus-article-buffer) - (if (eq major-mode 'mime/viewer-mode) - mime::preview/article-buffer - gnus-article-buffer))) - ) - (news-reply-yank-original 0) - )) - -;;; modified by Steven L. Baur -;;; 1995/12/6 (c.f. [tm-en:209]) -(defun mime-editor/attach-to-news-reply-menu () - "Arrange to attach MIME editor's popup menu to VM's" - (if (boundp 'news-reply-menu) - (progn - (setq news-reply-menu (append news-reply-menu - '("---") - mime-editor/popup-menu-for-xemacs)) - (remove-hook 'news-setup-hook - 'mime-editor/attach-to-news-reply-menu) - ))) - -(call-after-loaded - 'tm-edit - (function - (lambda () - (set-alist 'mime-editor/message-inserter-alist - 'news-reply-mode (function tm-gnus/insert-article)) - - (autoload 'tm-mail/insert-message "tm-mail") - (set-alist 'mime-editor/message-inserter-alist - 'mail-mode (function tm-mail/insert-message)) - (if (string-match "XEmacs\\|Lucid" emacs-version) - (add-hook 'news-setup-hook 'mime-editor/attach-to-news-reply-menu) - ) - - (set-alist 'mime-editor/split-message-sender-alist - 'news-reply-mode - (function gnus-inews-news)) - ))) - - -;;; @ for tm-partial -;;; - -(call-after-loaded - 'tm-partial - (function - (lambda () - (set-atype 'mime/content-decoding-condition - '((type . "message/partial") - (method . mime-article/grab-message/partials) - (major-mode . gnus-article-mode) - (summary-buffer-exp . gnus-summary-buffer) - )) - - (set-alist 'tm-partial/preview-article-method-alist - 'gnus-article-mode - (function - (lambda () - (tm-gnus/view-message (gnus-summary-article-number)) - ))) - ))) - - -;;; @ set up -;;; - -(define-key gnus-summary-mode-map "v" (function tm-gnus/view-message)) -(define-key gnus-summary-mode-map - "\e\r" (function tm-gnus/summary-scroll-down)) - -(defun tm-gnus/article-reset-variable () - (setq gnus-original-article-buffer nil) - (setq tm-gnus/automatic-mime-preview nil) - (gnus-article-mode) - (setq buffer-read-only nil) - ) - -(add-hook 'gnus-article-prepare-hook 'tm-gnus/article-reset-variable) - -(defun tm-gnus/decode-encoded-word-if-you-need () - (if (not gnus-have-all-headers) - (progn - (mime/decode-message-header) - (run-hooks 'tm-gnus/article-prepare-hook) - ))) - -(defun tm-gnus/preview-article-if-you-need () - (if (not gnus-have-all-headers) - (let ((str (buffer-string)) - (obuf (get-buffer tm-gnus/original-article-buffer)) - (pbuf (current-buffer)) - ) - (if obuf - (progn - (set-buffer obuf) - (setq buffer-read-only nil) - (erase-buffer) - ) - (setq obuf (get-buffer-create tm-gnus/original-article-buffer)) - (set-buffer obuf) - ) - (insert str) - (gnus-article-mode) - (set-buffer pbuf) - (make-local-variable 'tm:mother-button-dispatcher) - (setq tm:mother-button-dispatcher - (function gnus-article-push-button)) - (save-window-excursion - (mime/viewer-mode - nil nil nil tm-gnus/original-article-buffer gnus-article-buffer) - ) - (setq tm-gnus/automatic-mime-preview t) - (setq gnus-original-article-buffer tm-gnus/original-article-buffer) - (let (buffer-read-only) - (run-hooks 'tm-gnus/article-prepare-hook) - ) - (if (featurep 'tm-gd3) - (setq buffer-read-only nil) - ) - ))) - -(setq gnus-show-mime-method - (if tm-gnus/automatic-mime-preview - (function tm-gnus/preview-article-if-you-need) - (function tm-gnus/decode-encoded-word-if-you-need) - )) - -(setq gnus-show-mime t) - - -;;; @ for BBDB -;;; - -(call-after-loaded - 'bbdb - (function - (lambda () - (require 'tm-bbdb) - ))) - -(autoload 'tm-bbdb/update-record "tm-bbdb") - -(defun tm-gnus/bbdb-setup () - (if (memq 'bbdb/gnus-update-record gnus-article-prepare-hook) - (progn - (remove-hook 'gnus-article-prepare-hook 'bbdb/gnus-update-record) - ;;(add-hook 'tm-gnus/article-prepare-hook 'bbdb/gnus-update-record) - (add-hook 'gnus-article-display-hook 'tm-bbdb/update-record) - ))) - -(add-hook 'gnus-startup-hook 'tm-gnus/bbdb-setup t) - -(tm-gnus/bbdb-setup) - - -;;; @ end -;;; - -(provide 'tm-gnus4) - -;;; tm-gnus4.el ends here diff --git a/gnus/tm-gnus5.el b/gnus/tm-gnus5.el deleted file mode 100644 index b3b6bb7..0000000 --- a/gnus/tm-gnus5.el +++ /dev/null @@ -1,403 +0,0 @@ -;;; -;;; tm-gnus5.el --- MIME extender for Gnus 5.2 or later -;;; -;;; Copyright (C) 1995 Free Software Foundation, Inc. -;;; Copyright (C) 1995,1996 MORIOKA Tomohiko -;;; -;;; Author: MORIOKA Tomohiko -;;; Maintainer: MORIOKA Tomohiko -;;; and KOBAYASHI Shuhei -;;; Created: 1995/09/24 -;;; Version: $Revision: 7.79 $ -;;; Keywords: news, MIME, multimedia, multilingual, encoded-word -;;; -;;; This file is part of tm (Tools for MIME). -;;; -;;; This program is free software; you can redistribute it and/or -;;; modify it under the terms of the GNU General Public License as -;;; published by the Free Software Foundation; either version 2, or -;;; (at your option) any later version. -;;; -;;; This program is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;;; General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with This program. If not, write to the Free Software -;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;; -;;; Code: - -(require 'tl-str) -(require 'tl-list) -(require 'tl-misc) -(require 'tm-view) -(require 'gnus) - -(eval-when-compile (require 'cl)) - - -;;; @ version -;;; - -(defconst tm-gnus/RCS-ID - "$Id: tm-gnus5.el,v 7.79 1996/07/18 12:17:11 morioka Exp $") - -(defconst tm-gnus/version - (concat (get-version-string tm-gnus/RCS-ID) " for Gnus 5.2 or later")) - - -;;; @ variables -;;; - -(defvar tm-gnus/automatic-mime-preview t - "*If non-nil, show MIME processed article. -This variable is set to `gnus-show-mime'.") - -(setq gnus-show-mime tm-gnus/automatic-mime-preview) - - -;;; @ command functions -;;; - -(defun tm-gnus/view-message (arg) - "MIME decode and play this message." - (interactive "P") - (let ((gnus-break-pages nil)) - (gnus-summary-select-article t t) - ) - (pop-to-buffer gnus-original-article-buffer t) - (let (buffer-read-only) - (if (text-property-any (point-min) (point-max) 'invisible t) - (remove-text-properties (point-min) (point-max) - gnus-hidden-properties) - )) - (mime/viewer-mode nil nil nil gnus-original-article-buffer - gnus-article-buffer) - ) - -(defun tm-gnus/summary-scroll-down () - "Scroll down one line current article." - (interactive) - (gnus-summary-scroll-up -1) - ) - -(defun tm-gnus/summary-toggle-header (&optional arg) - (interactive "P") - (if tm-gnus/automatic-mime-preview - (let* ((hidden - (save-excursion - (set-buffer gnus-article-buffer) - (text-property-any - (goto-char (point-min)) (search-forward "\n\n") - 'invisible t) - )) - (mime-viewer/redisplay t) - ) - (gnus-summary-select-article hidden t) - ) - (gnus-summary-toggle-header arg)) - ) - -(define-key gnus-summary-mode-map "v" (function tm-gnus/view-message)) -(define-key gnus-summary-mode-map - "\e\r" (function tm-gnus/summary-scroll-down)) -(substitute-key-definition - 'gnus-summary-toggle-header - 'tm-gnus/summary-toggle-header gnus-summary-mode-map) - - -;;; @ for tm-view -;;; - -(defun tm-gnus/content-header-filter () - (goto-char (point-min)) - (mime-preview/cut-header) - (decode-mime-charset-region (point-min)(point-max) default-mime-charset) - (mime/decode-message-header) - ) - -(set-alist 'mime-viewer/content-header-filter-alist - 'gnus-original-article-mode - (function tm-gnus/content-header-filter)) - -(set-alist 'mime-viewer/code-converter-alist - 'gnus-original-article-mode - (function mime-charset/decode-buffer)) - -(defun mime-viewer/quitting-method-for-gnus5 () - (if (not gnus-show-mime) - (mime-viewer/kill-buffer)) - (delete-other-windows) - (gnus-article-show-summary) - (if (or (not gnus-show-mime) - (null gnus-have-all-headers)) - (gnus-summary-select-article nil t) - )) - -(set-alist 'mime-viewer/quitting-method-alist - 'gnus-original-article-mode - (function mime-viewer/quitting-method-for-gnus5)) -(set-alist 'mime-viewer/show-summary-method - 'gnus-original-article-mode - (function mime-viewer/quitting-method-for-gnus5)) - - -;;; @ for tm-edit -;;; - -;; suggested by OKABE Yasuo -;; 1995/11/08 (c.f. [tm ML:1067]) -(defun tm-gnus/insert-article (&optional message) - (interactive) - (let ((message-cite-function 'mime-editor/inserted-message-filter) - (message-reply-buffer gnus-original-article-buffer) - ) - (message-yank-original nil) - )) - -;;; modified by Steven L. Baur -;;; 1995/12/6 (c.f. [tm-en:209]) -(defun mime-editor/attach-to-news-reply-menu () - "Arrange to attach MIME editor's popup menu to VM's" - (if (boundp 'news-reply-menu) - (progn - (setq news-reply-menu (append news-reply-menu - '("---") - mime-editor/popup-menu-for-xemacs)) - (remove-hook 'news-setup-hook - 'mime-editor/attach-to-news-reply-menu) - ))) - -(call-after-loaded - 'tm-edit - (function - (lambda () - (set-alist 'mime-editor/message-inserter-alist - 'message-mode (function tm-gnus/insert-article)) - (if (string-match "XEmacs\\|Lucid" emacs-version) - (add-hook 'news-setup-hook 'mime-editor/attach-to-news-reply-menu) - ) - - (set-alist 'mime-editor/split-message-sender-alist - 'message-mode - (lambda () - (interactive) - (let (message-send-hook - message-sent-message-via) - (message-send) - ))) - ))) - - -;;; @ for tm-partial -;;; - -(defun tm-gnus/partial-preview-function () - (tm-gnus/view-message (gnus-summary-article-number)) - ) - -(call-after-loaded - 'tm-partial - (lambda () - (set-atype 'mime/content-decoding-condition - '((type . "message/partial") - (method . mime-article/grab-message/partials) - (major-mode . gnus-original-article-mode) - (summary-buffer-exp . gnus-summary-buffer) - )) - (set-alist 'tm-partial/preview-article-method-alist - 'gnus-original-article-mode - 'tm-gnus/partial-preview-function) - )) - - -;;; @ article filter -;;; - -(defun tm-gnus/article-reset-variable () - (setq tm-gnus/automatic-mime-preview nil) - ) - -(add-hook 'gnus-article-prepare-hook 'tm-gnus/article-reset-variable) - -(defun tm-gnus/preview-article () - (make-local-variable 'tm:mother-button-dispatcher) - (setq tm:mother-button-dispatcher - (function gnus-article-push-button)) - (let ((mime-viewer/ignored-field-regexp "^:$") - (default-mime-charset - (save-excursion - (set-buffer gnus-summary-buffer) - default-mime-charset)) - ) - (mime/viewer-mode nil nil nil gnus-original-article-buffer - gnus-article-buffer - gnus-article-mode-map) - ) - (setq tm-gnus/automatic-mime-preview t) - (run-hooks 'tm-gnus/article-prepare-hook) - ) - -(setq gnus-show-mime-method (function tm-gnus/preview-article)) - -(defun tm-gnus/article-decode-encoded-word () - (decode-mime-charset-region (point-min)(point-max) - (save-excursion - (set-buffer gnus-summary-buffer) - default-mime-charset)) - (mime/decode-message-header) - (run-hooks 'tm-gnus/article-prepare-hook) - ) - -(setq gnus-decode-encoded-word-method - (function tm-gnus/article-decode-encoded-word)) - - -;;; @ for mule (Multilingual support) -;;; - -(defvar gnus-newsgroup-default-charset-alist nil) - -(defun gnus-set-newsgroup-default-charset (newsgroup charset) - "Set CHARSET for the NEWSGROUP as default MIME charset." - (set-alist 'gnus-newsgroup-default-charset-alist - (concat "^" (regexp-quote newsgroup) "\\($\\|\\.\\)") - charset)) - -(cond - ((featurep 'mule) - (cond ((boundp 'MULE) ; for MULE 1.* and 2.*. - (define-service-coding-system gnus-nntp-service nil *noconv*) - (if (and (boundp 'nntp-server-process) - (processp nntp-server-process) - ) - (set-process-coding-system nntp-server-process *noconv* *noconv*) - ) - ) - (running-xemacs-20 ; for XEmacs/mule. - (if (and (boundp 'nntp-server-process) - (processp nntp-server-process) - ) - (set-process-input-coding-system nntp-server-process 'noconv) - ) - )) - (call-after-loaded - 'nnheader - (lambda () - (defun nnheader-find-file-noselect (filename &optional nowarn rawfile) - (let ((file-coding-system-for-read *noconv*)) - (find-file-noselect filename nowarn rawfile) - )) - (defun nnheader-insert-file-contents-literally - (filename &optional visit beg end replace) - (let ((file-coding-system-for-read *noconv*)) - (insert-file-contents-literally filename visit beg end replace) - )) - )) - ;; Please use Gnus 5.2.10 or later if you use Mule. - (call-after-loaded - 'nnmail - (lambda () - (defun nnmail-find-file (file) - "Insert FILE in server buffer safely. [tm-gnus5.el]" - (set-buffer nntp-server-buffer) - (erase-buffer) - (let ((format-alist nil) - (after-insert-file-functions ; for jam-code-guess - (if (memq 'jam-code-guess-after-insert-file-function - after-insert-file-functions) - '(jam-code-guess-after-insert-file-function))) - (file-coding-system-for-read *noconv*)) - (condition-case () - (progn (insert-file-contents file) t) - (file-error nil)))) - )) - (defun tm-gnus/prepare-save-mail-function () - (setq file-coding-system *noconv*) - ) - (add-hook 'nnmail-prepare-save-mail-hook - 'tm-gnus/prepare-save-mail-function) - - (gnus-set-newsgroup-default-charset "alt.chinese" 'hz) - (gnus-set-newsgroup-default-charset "alt.chinese.text.big5" 'big5) - (gnus-set-newsgroup-default-charset "tw" 'big5) - (gnus-set-newsgroup-default-charset "hk" 'big5) - (gnus-set-newsgroup-default-charset "hkstar" 'big5) - (gnus-set-newsgroup-default-charset "han" 'euc-kr) - (gnus-set-newsgroup-default-charset "relcom" 'koi8-r) - )) - - -;;; @ summary filter -;;; - -(defun tm-gnus/decode-summary-from-and-subjects () - (let ((rest gnus-newsgroup-default-charset-alist) - cell) - (catch 'tag - (while (setq cell (car rest)) - (if (string-match (car cell) gnus-newsgroup-name) - (throw 'tag - (progn - (make-local-variable 'default-mime-charset) - (setq default-mime-charset (cdr cell)) - ))) - (setq rest (cdr rest)) - ))) - (mapcar - (lambda (header) - (let ((from (or (mail-header-from header) "")) - (subj (or (mail-header-subject header) "")) - (method (car gnus-current-select-method)) - ) - (if (eq method 'nntp) - (progn - (setq from - (decode-mime-charset-string from default-mime-charset)) - (setq subj - (decode-mime-charset-string subj default-mime-charset)) - )) - (mail-header-set-from - header (mime-eword/decode-string from)) - (mail-header-set-subject - header (mime-eword/decode-string subj)) - )) - gnus-newsgroup-headers)) - -(or (boundp 'nnheader-encoded-words-decoding) - (add-hook 'gnus-select-group-hook - 'tm-gnus/decode-summary-from-and-subjects) - ) - - -;;; @ for BBDB -;;; - -(call-after-loaded - 'bbdb - (lambda () - (require 'tm-bbdb) - )) - -(autoload 'tm-bbdb/update-record "tm-bbdb") - -(defun tm-gnus/bbdb-setup () - (if (memq 'bbdb/gnus-update-record gnus-article-prepare-hook) - (progn - (remove-hook 'gnus-article-prepare-hook 'bbdb/gnus-update-record) - (add-hook 'gnus-article-display-hook 'tm-bbdb/update-record) - ))) - -(add-hook 'gnus-startup-hook 'tm-gnus/bbdb-setup t) - -(tm-gnus/bbdb-setup) - - -;;; @ end -;;; - -(provide 'tm-gnus5) - -;;; tm-gnus5.el ends here diff --git a/gnus/tm-ognus.el b/gnus/tm-ognus.el deleted file mode 100644 index 43d848e..0000000 --- a/gnus/tm-ognus.el +++ /dev/null @@ -1,102 +0,0 @@ -;;; -;;; tm-ognus.el --- tm-gnus module for GNUS 3.* and 4.* -;;; -;;; Copyright (C) 1995 Free Software Foundation, Inc. -;;; Copyright (C) 1995 MORIOKA Tomohiko -;;; -;;; Author: MORIOKA Tomohiko -;;; Version: -;;; $Id: tm-ognus.el,v 7.1 1995/10/17 16:56:12 morioka Exp $ -;;; Keywords: news, MIME, multimedia, multilingual, encoded-word -;;; -;;; This file is part of tm (Tools for MIME). -;;; - -(require 'emu) -(require 'gnus) - -(autoload 'mime/decode-message-header - "tm-ew-d" "Decode MIME encoded-words in message header." t) -(autoload 'mime-eword/decode-string - "tm-ew-d" "Decode MIME encoded-words in string." t) - - -(defvar tm-gnus/decoding-mode t "*Decode MIME header if non-nil.") - -(defun tm-gnus/add-decoding-mode-to-mode-line () - (or (assq 'tm-gnus/decoding-mode minor-mode-alist) - (setq minor-mode-alist - (cons (list 'tm-gnus/decoding-mode " MIME") - minor-mode-alist)) - )) - - -;;; @ change MIME encoded-word decoding mode, decoding or non decoding. -;;; - -(defun tm-gnus/set-decoding-mode (arg) - "Set MIME encoded-word processing. -With arg, turn MIME encoded-word processing on iff arg is positive." - (setq tm-gnus/decoding-mode arg) - (setq gnus-have-all-headers (not gnus-have-all-headers)) - (gnus-summary-select-article (not gnus-have-all-headers) t) - ) - -(defun tm-gnus/toggle-decoding-mode () - "Toggle MIME encoded-word processing. -With arg, turn MIME encoded-word processing on iff arg is positive." - (interactive) - (tm-gnus/set-decoding-mode (not tm-gnus/decoding-mode)) - ) - - -;;; @ to decode subjects in mode-line -;;; -;; This function imported from gnus.el. -;; -;; New implementation in gnus 3.14.3 -;; - -(defun tm-gnus/article-set-mode-line () - "Set Article mode line string. -If you don't like it, define your own gnus-article-set-mode-line." - (let ((maxlen 15) ;Maximum subject length - (subject - (if gnus-current-headers - (mime-eword/decode-string - (nntp-header-subject gnus-current-headers)) - "") - )) - ;; The value must be a string to escape %-constructs because of subject. - (setq mode-line-buffer-identification - (format "GNUS: %s%s %s%s%s" - gnus-newsgroup-name - (if gnus-current-article - (format "/%d" gnus-current-article) "") - (rightful-boundary-short-string subject - (min (string-width subject) - maxlen)) - (if (> (string-width subject) maxlen) "..." "") - (make-string (max 0 (- 17 (string-width subject))) ? ) - ))) - (set-buffer-modified-p t)) - - -;;; @ to decode subjects in Summary buffer -;;; - -(defun tm-gnus/decode-summary-subjects () - (mapcar (function - (lambda (header) - (let ((subj (or (gnus-header-subject header) ""))) - (nntp-set-header-subject - header (mime-eword/decode-string subj)) - ))) - gnus-newsgroup-headers) - ) - - -;;; @ end -;;; - -(provide 'tm-ognus) diff --git a/gnus/tm-sgnus.el b/gnus/tm-sgnus.el deleted file mode 100644 index 3c02ef7..0000000 --- a/gnus/tm-sgnus.el +++ /dev/null @@ -1,400 +0,0 @@ -;;; -;;; tm-sgnus.el --- MIME extender for Gnus 5.2 -;;; -;;; Copyright (C) 1995 Free Software Foundation, Inc. -;;; Copyright (C) 1995,1996 MORIOKA Tomohiko -;;; -;;; Author: MORIOKA Tomohiko -;;; Maintainer: MORIOKA Tomohiko -;;; and KOBAYASHI Shuhei -;;; Created: 1995/09/24 -;;; Version: $Revision: 7.69 $ -;;; Keywords: news, MIME, multimedia, multilingual, encoded-word -;;; -;;; This file is part of tm (Tools for MIME). -;;; -;;; This program is free software; you can redistribute it and/or -;;; modify it under the terms of the GNU General Public License as -;;; published by the Free Software Foundation; either version 2, or -;;; (at your option) any later version. -;;; -;;; This program is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;;; General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with This program. If not, write to the Free Software -;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;; -;;; Code: - -(require 'tl-str) -(require 'tl-list) -(require 'tl-misc) -(require 'tm-view) -(require 'gnus) - -(eval-when-compile (require 'cl)) - - -;;; @ version -;;; - -(defconst tm-gnus/RCS-ID - "$Id: tm-sgnus.el,v 7.69 1996/06/09 06:57:33 morioka Exp $") - -(defconst tm-gnus/version - (concat (get-version-string tm-gnus/RCS-ID) " for September")) - - -;;; @ variables -;;; - -(defvar tm-gnus/automatic-mime-preview t - "*If non-nil, show MIME processed article. -This variable is set to `gnus-show-mime'.") - -(setq gnus-show-mime tm-gnus/automatic-mime-preview) - - -;;; @ command functions -;;; - -(defun tm-gnus/view-message (arg) - "MIME decode and play this message." - (interactive "P") - (let ((gnus-break-pages nil)) - (gnus-summary-select-article t t) - ) - (pop-to-buffer gnus-original-article-buffer t) - (let (buffer-read-only) - (if (text-property-any (point-min) (point-max) 'invisible t) - (remove-text-properties (point-min) (point-max) - gnus-hidden-properties) - )) - (mime/viewer-mode nil nil nil gnus-original-article-buffer - gnus-article-buffer) - ) - -(defun tm-gnus/summary-scroll-down () - "Scroll down one line current article." - (interactive) - (gnus-summary-scroll-up -1) - ) - -(defun tm-gnus/summary-toggle-header (&optional arg) - (interactive "P") - (if tm-gnus/automatic-mime-preview - (let* ((hidden - (save-excursion - (set-buffer gnus-article-buffer) - (text-property-any - (goto-char (point-min)) (search-forward "\n\n") - 'invisible t) - )) - (mime-viewer/redisplay t) - ) - (gnus-summary-select-article hidden t) - ) - (gnus-summary-toggle-header arg)) - ) - -(define-key gnus-summary-mode-map "v" (function tm-gnus/view-message)) -(define-key gnus-summary-mode-map - "\e\r" (function tm-gnus/summary-scroll-down)) -(substitute-key-definition - 'gnus-summary-toggle-header - 'tm-gnus/summary-toggle-header gnus-summary-mode-map) - - -;;; @ for tm-view -;;; - -(defun tm-gnus/content-header-filter () - (goto-char (point-min)) - (mime-preview/cut-header) - (mime-charset-decode-region (point-min)(point-max) - mime/default-coding-system) - (mime/decode-message-header) - ) - -(set-alist 'mime-viewer/content-header-filter-alist - 'gnus-original-article-mode - (function tm-gnus/content-header-filter)) - -(set-alist 'mime-viewer/code-converter-alist - 'gnus-original-article-mode - (function mime-charset-decode-region)) - -(defun mime-viewer/quitting-method-for-sgnus () - (if (not gnus-show-mime) - (mime-viewer/kill-buffer)) - (delete-other-windows) - (gnus-article-show-summary) - (if (or (not gnus-show-mime) - (null gnus-have-all-headers)) - (gnus-summary-select-article nil t) - )) - -(set-alist 'mime-viewer/quitting-method-alist - 'gnus-original-article-mode - (function mime-viewer/quitting-method-for-sgnus)) -(set-alist 'mime-viewer/show-summary-method - 'gnus-original-article-mode - (function mime-viewer/quitting-method-for-sgnus)) - - -;;; @ for tm-edit -;;; - -;; suggested by OKABE Yasuo -;; 1995/11/08 (c.f. [tm ML:1067]) -(defun tm-gnus/insert-article (&optional message) - (interactive) - (let ((message-cite-function 'mime-editor/inserted-message-filter) - (message-reply-buffer gnus-original-article-buffer) - ) - (message-yank-original nil) - )) - -;;; modified by Steven L. Baur -;;; 1995/12/6 (c.f. [tm-en:209]) -(defun mime-editor/attach-to-news-reply-menu () - "Arrange to attach MIME editor's popup menu to VM's" - (if (boundp 'news-reply-menu) - (progn - (setq news-reply-menu (append news-reply-menu - '("---") - mime-editor/popup-menu-for-xemacs)) - (remove-hook 'news-setup-hook - 'mime-editor/attach-to-news-reply-menu) - ))) - -(call-after-loaded - 'tm-edit - (function - (lambda () - (set-alist 'mime-editor/message-inserter-alist - 'message-mode (function tm-gnus/insert-article)) - (if (string-match "XEmacs\\|Lucid" emacs-version) - (add-hook 'news-setup-hook 'mime-editor/attach-to-news-reply-menu) - ) - - (set-alist 'mime-editor/split-message-sender-alist - 'message-mode - (lambda () - (interactive) - (let (message-send-hook - message-sent-message-via) - (message-send) - ))) - ))) - - -;;; @ for tm-partial -;;; - -(defun tm-gnus/partial-preview-function () - (tm-gnus/view-message (gnus-summary-article-number)) - ) - -(call-after-loaded - 'tm-partial - (lambda () - (set-atype 'mime/content-decoding-condition - '((type . "message/partial") - (method . mime-article/grab-message/partials) - (major-mode . gnus-original-article-mode) - (summary-buffer-exp . gnus-summary-buffer) - )) - (set-alist 'tm-partial/preview-article-method-alist - 'gnus-original-article-mode - 'tm-gnus/partial-preview-function) - )) - - -;;; @ article filter -;;; - -(defun tm-gnus/article-reset-variable () - (setq tm-gnus/automatic-mime-preview nil) - ) - -(add-hook 'gnus-article-prepare-hook 'tm-gnus/article-reset-variable) - -(defun tm-gnus/preview-article () - (make-local-variable 'tm:mother-button-dispatcher) - (setq tm:mother-button-dispatcher - (function gnus-article-push-button)) - (let ((mime-viewer/ignored-field-regexp "^:$") - (mime/default-coding-system - (save-excursion - (set-buffer gnus-summary-buffer) - mime/default-coding-system))) - (mime/viewer-mode nil nil nil gnus-original-article-buffer - gnus-article-buffer) - ) - (setq tm-gnus/automatic-mime-preview t) - (run-hooks 'tm-gnus/article-prepare-hook) - ) - -(setq gnus-show-mime-method (function tm-gnus/preview-article)) - -(defun tm-gnus/article-decode-encoded-word () - (character-decode-region (point-min)(point-max) - (save-excursion - (set-buffer gnus-summary-buffer) - mime/default-coding-system)) - (mime/decode-message-header) - (run-hooks 'tm-gnus/article-prepare-hook) - ) - -(setq gnus-decode-encoded-word-method - (function tm-gnus/article-decode-encoded-word)) - - -;;; @ for MULE -;;; - -(defvar gnus-newsgroup-default-coding-system-alist nil) - -(defun gnus-set-newsgroup-default-coding-system (ng cs) - "Define CS as default coding system for newsgroup NG." - (set-alist 'gnus-newsgroup-default-coding-system-alist - (concat "^" (regexp-quote ng) "\\($\\|\\.\\)") - cs)) - -(cond - ((featurep 'mule) - (cond ((boundp 'MULE) - (define-service-coding-system gnus-nntp-service nil *noconv*) - (if (and (boundp 'nntp-server-process) - (processp nntp-server-process) - ) - (set-process-coding-system nntp-server-process *noconv* *noconv*) - ) - ) - (running-xemacs-20 - (if (and (boundp 'nntp-server-process) - (processp nntp-server-process) - ) - (set-process-input-coding-system nntp-server-process 'noconv) - ) - )) - (call-after-loaded - 'nnheader - (lambda () - (defun nnheader-find-file-noselect (filename &optional nowarn rawfile) - (let ((file-coding-system-for-read *noconv*)) - (find-file-noselect filename nowarn rawfile) - )) - (defun nnheader-insert-file-contents-literally - (filename &optional visit beg end replace) - (let ((file-coding-system-for-read *noconv*)) - (insert-file-contents-literally filename visit beg end replace) - )) - )) - ;; Please use Gnus 5.2.10 or later if you use Mule. - (call-after-loaded - 'nnmail - (lambda () - (defun nnmail-find-file (file) - "Insert FILE in server buffer safely. [tm-sgnus.el]" - (set-buffer nntp-server-buffer) - (erase-buffer) - (let ((format-alist nil) - (after-insert-file-functions ; for jam-code-guess - (if (memq 'jam-code-guess-after-insert-file-function - after-insert-file-functions) - '(jam-code-guess-after-insert-file-function))) - (file-coding-system-for-read *noconv*)) - (condition-case () - (progn (insert-file-contents file) t) - (file-error nil)))) - )) - (defun tm-gnus/prepare-save-mail-function () - (setq file-coding-system *noconv*) - ) - (add-hook 'nnmail-prepare-save-mail-hook - 'tm-gnus/prepare-save-mail-function) - - (gnus-set-newsgroup-default-coding-system "alt.chinese.text" *hz*) - (gnus-set-newsgroup-default-coding-system "alt.chinese.text.big5" *big5*) - (gnus-set-newsgroup-default-coding-system "han" *euc-kr*) - (and (boundp '*koi8*) - (gnus-set-newsgroup-default-coding-system "relcom" *koi8*)) - )) - - -;;; @ summary filter -;;; - -(defun tm-gnus/decode-summary-from-and-subjects () - (let ((rest gnus-newsgroup-default-coding-system-alist) - cell) - (catch 'tag - (while (setq cell (car rest)) - (if (string-match (car cell) gnus-newsgroup-name) - (throw 'tag - (progn - (make-local-variable 'mime/default-coding-system) - (setq mime/default-coding-system (cdr cell)) - ))) - (setq rest (cdr rest)) - ))) - (mapcar - (lambda (header) - (let ((from (or (mail-header-from header) "")) - (subj (or (mail-header-subject header) "")) - (method (car gnus-current-select-method)) - ) - (if (eq method 'nntp) - (progn - (setq from - (character-decode-string from mime/default-coding-system)) - (setq subj - (character-decode-string subj mime/default-coding-system)) - )) - (mail-header-set-from - header (mime-eword/decode-string from)) - (mail-header-set-subject - header (mime-eword/decode-string subj)) - )) - gnus-newsgroup-headers)) - -(or (boundp 'nnheader-encoded-words-decoding) - (add-hook 'gnus-select-group-hook - 'tm-gnus/decode-summary-from-and-subjects) - ) - - -;;; @ for BBDB -;;; - -(call-after-loaded - 'bbdb - (lambda () - (require 'tm-bbdb) - )) - -(autoload 'tm-bbdb/update-record "tm-bbdb") - -(defun tm-gnus/bbdb-setup () - (if (memq 'bbdb/gnus-update-record gnus-article-prepare-hook) - (progn - (remove-hook 'gnus-article-prepare-hook 'bbdb/gnus-update-record) - (add-hook 'gnus-article-display-hook 'tm-bbdb/update-record) - ))) - -(add-hook 'gnus-startup-hook 'tm-gnus/bbdb-setup t) - -(tm-gnus/bbdb-setup) - - -;;; @ end -;;; - -(provide 'tm-sgnus) - -;;; tm-sgnus.el ends here diff --git a/gnushook.el b/gnushook.el deleted file mode 100644 index c455f72..0000000 --- a/gnushook.el +++ /dev/null @@ -1,52 +0,0 @@ -;;; -;;; $Id: gnushook.el,v 1.1 1994/10/25 06:42:57 morioka Exp morioka $ -;;; - -(provide 'gnushook) - -(require 'gnus) - -(cond ((string-match "^GNUS 3" gnus-version) - (if (and (null gnus-Startup-hook) - (boundp 'gnus-startup-hook)) - (setq gnus-Startup-hook gnus-startup-hook) - ) - (if (and (null gnus-Select-group-hook) - (boundp 'gnus-select-group-hook)) - (setq gnus-Select-group-hook gnus-select-group-hook) - ) - (if (and (null gnus-Subject-mode-hook) - (boundp 'gnus-summary-mode-hook)) - (setq gnus-Subject-mode-hook gnus-summary-mode-hook) - ) - (if (and (null gnus-Article-mode-hook) - (boundp 'gnus-article-mode-hook)) - (setq gnus-Article-mode-hook gnus-article-mode-hook) - ) - (if (and (null gnus-Article-prepare-hook) - (boundp 'gnus-article-prepare-hook)) - (setq gnus-Article-prepare-hook gnus-article-prepare-hook) - ) - ) - ((string-match "^GNUS 4" gnus-version) - (if (and (null gnus-startup-hook) - (boundp 'gnus-Startup-hook)) - (setq gnus-startup-hook gnus-Startup-hook) - ) - (if (and (null gnus-select-group-hook) - (boundp 'gnus-Select-group-hook)) - (setq gnus-select-group-hook gnus-Select-group-hook) - ) - (if (and (null gnus-summary-mode-hook) - (boundp 'gnus-Subject-mode-hook)) - (setq gnus-summary-mode-hook gnus-Subject-mode-hook) - ) - (if (and (null gnus-article-mode-hook) - (boundp 'gnus-Article-mode-hook)) - (setq gnus-article-mode-hook gnus-Article-mode-hook) - ) - (if (and (null gnus-article-prepare-hook) - (boundp 'gnus-Article-prepare-hook)) - (setq gnus-article-prepare-hook gnus-Article-prepare-hook) - ) - )) diff --git a/inst-el b/inst-el deleted file mode 100755 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 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 index 737fbbe..0000000 --- a/make-lpath +++ /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 index 7e3b7eb..0000000 --- a/methods/csh/tm-au +++ /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 index 4433fab..0000000 --- a/methods/csh/tm-file +++ /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 index 325a982..0000000 --- a/methods/csh/tm-image +++ /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 index 08c623a..0000000 --- a/methods/csh/tm-mpeg +++ /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 index 88c5304..0000000 --- a/methods/csh/tm-plain +++ /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 index 9fbb0a9..0000000 --- a/methods/csh/tmdecode +++ /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 index 278ad38..0000000 --- a/methods/tm-latex +++ /dev/null @@ -1,56 +0,0 @@ -#!/bin/csh -f -# -# tm-latex: method for LaTeX -# - -set filename="/tmp/mime$$" - -switch ( $3 ) -case "7bit": -case "8bit": -case "binary": - /bin/cp $1 $filename.tex - breaksw -case "base64": - decode-b < $1 > $filename.tex - breaksw -case "quoted-printable": - mmencode -q -u $1 > $filename - breaksw -default: - echo "unknown encoding" - exit -1 -endsw - -/bin/rm $1 - -echo "$2; $3 -> $filename.tex" - -switch ( $4 ) -case "play": - pushd /tmp - jlatex $filename.tex - jlatex $filename.tex - xdvi $filename.dvi - popd - /bin/rm $filename.* - breaksw -case "extract": - if($5 != "") then - set name=/tmp/$5 - /bin/cp $filename.tex $name - /bin/rm $filename.tex - echo "extract to $name" - else - echo "extract to $filename.tex" - endif - breaksw -case "print": - pushd /tmp - jlatex $filename.tex - jlatex $filename.tex - dvi2ps $filename.dvi|lpr - popd - /bin/rm $filename.* - breaksw -endsw diff --git a/methods/tm-www b/methods/tm-www deleted file mode 100755 index 194b488..0000000 --- a/methods/tm-www +++ /dev/null @@ -1,30 +0,0 @@ -#!/bin/sh -if [ "$TM_TMP_DIR"="" ]; then - TM_TMP_DIR=/tmp - export TM_TMP_DIR -fi - -if [ "$TM_WWW_BROWSER"="" ]; then - TM_WWW_BROWSER=netscape - export TM_WWW_BROWSER -fi - -if [ "$5" = "" ]; then - filename="$TM_TMP_DIR/mime$$.html" -else - filename="$TM_TMP_DIR/$5" -fi - -echo "$2; $3 -> $filename" - -tmdecode $3 $1 $filename - -case "$4" in -"play") - $TM_WWW_BROWSER $filename - /bin/rm $filename - ;; -"extract") - echo "extract to $filename" - ;; -esac diff --git a/mh-e/ChangeLog b/mh-e/ChangeLog deleted file mode 100644 index bfb2ced..0000000 --- a/mh-e/ChangeLog +++ /dev/null @@ -1,453 +0,0 @@ -Tue Sep 3 15:23:15 1996 MORIOKA Tomohiko - - * tm/mh-e: Version 7.68.1 was released. - - * mk-tmh: add "../../mu" to load-path. - - -Sat Aug 31 15:15:12 1996 MORIOKA Tomohiko - - * tm/mh-e: Version 7.68 was released. - - * tm-mh-e.el (tm-mh-e/following-method): Use function - `std11-field-bodies' instead of `rfc822/get-field-bodies'. - - -Fri Aug 23 07:33:58 1996 MORIOKA Tomohiko - - * tm/mh-e: Version 7.67 was released. - -Thu Aug 22 14:44:28 1996 MORIOKA Tomohiko - - * TMH-ELS: Variable `tm-mh-e-el-files' and `tm-mh-e-elc-files' - were abolished. - - * mk-tmh: Constant `el-file-mode' was abolished. - Function `install-el', `install-el-files', `install-elc' and - `install-elc-files' were abolished. - (install-tm-mh-e): Use function `install-elisp-modules'. - - * mk-tmh: tmh-els was renamed to TMH-ELS. - -Sun Aug 18 20:22:01 1996 MORIOKA Tomohiko - - * tmh-els (tm-mh-e-modules): changed to list of symbols. - - * mk-tmh: Use install.el to compile. - -Wed Aug 14 02:35:19 1996 MORIOKA Tomohiko - - * tm-mh-e.el: Don't use cl.el. - -Tue Aug 13 23:45:02 1996 MORIOKA Tomohiko - - * tm-mh-e.el: Use cl.el. - - -Thu Aug 1 07:43:19 1996 MORIOKA Tomohiko - - * tm/mh-e: Version 7.65.1 was released. - -Wed Jul 31 03:07:43 1996 MORIOKA Tomohiko - - * tmh-comp.el: Implementation for - `mime-editor/split-message-sender-alist' was moved from - tm-edit.el. - -Sun Jul 28 04:23:07 1996 MORIOKA Tomohiko - - * tmh-comp.el (tm-mh-e/yank-cur-msg-with-no-filter): New function. - - * tmh-comp.el: Function `tm-mh-e/yank-cur-msg' was renamed to - `tm-mh-e/yank-current-message'. - - * tmh-comp.el (tm-mh-e/message-yank-function): New variable. - (tm-mh-e/yank-cur-msg): Use variable - `tm-mh-e/message-yank-function'. - - -Wed Jul 24 10:07:45 1996 MORIOKA Tomohiko - - * tm/mh-e: Version 7.65 was released. - -Mon Jul 22 18:24:08 1996 MORIOKA Tomohiko - - * tm-mh-e3.el (mh-send-prog): New variable. - -Thu Jul 18 12:29:17 1996 MORIOKA Tomohiko - - * 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'. - - -Wed Jul 17 05:38:04 1996 MORIOKA Tomohiko - - * tm/mh-e: Version 7.64 was released. - -Sun Jul 14 15:08:16 1996 MORIOKA Tomohiko - - * tm-mh-e.el (tm-mh-e/content-header-filter): Use variable - `default-mime-charset' instead of mime/default-coding-system. - - -Thu Jun 27 15:39:16 1996 MORIOKA Tomohiko - - * tm/mh-e: Version 7.63.1 was released. - - * tmh-els: Version check code was fixed. - -Wed Jun 5 02:34:06 1996 MORIOKA Tomohiko - - * tmh-comp.el: version check code was fixed for Emacs - 19.31. (cf. [tm-ja:1907]) - - -Mon Jun 3 14:40:35 1996 MORIOKA Tomohiko - - * tm/mh-e: Version 7.63 was released. - -Thu May 30 00:18:04 1996 MORIOKA Tomohiko - - * tm-mh-e.el: mh-e bundled in Emacs 19.31 does not have variable - `mh-e-version', so version check code was changed. - - Does not back up original `mh-display-msg'. - - -Mon May 20 15:24:56 1996 MORIOKA Tomohiko - - * tm/mh-e: Version 7.62 was released. - - * tm-mh-e.el: Setting for variable - `mime-viewer/show-summary-method' was added. - - -Wed May 15 15:39:54 1996 MORIOKA Tomohiko - - * tm/mh-e: Version 7.61.1 was released. - - * tmh-comp.el (tm-mh-e/forward): use function - `mime-eword/decode-string' for `orig-from' and `orig-subject'. - - * tmh-comp.el (tm-mh-e/forward): remove `(require 'tm-edit)'. - - * tmh-comp.el (tm-mh-e/forward): remove `(require 'mh-comp)'. - - -Sat May 11 16:24:52 1996 MORIOKA Tomohiko - - * tm/mh-e: Version 7.61 was released. - -Thu May 9 19:01:06 1996 MORIOKA Tomohiko - - * tm-mh-e.el (tm-mh-e/charset-decode-region): renamed from - `tm-mh-e/code-convert-region-to-emacs'. - -Thu May 9 18:57:07 1996 MORIOKA Tomohiko - - * tm-mh-e.el (tm-mh-e/code-convert-region-to-emacs): Function - `mime/code-convert-region-to-emacs' was renamed to - `mime-charset-decode-region'. - - -Fri Apr 26 04:47:43 1996 MORIOKA Tomohiko - - * tm/mh-e: Version 7.59 was released. - -Thu Apr 25 22:19:02 1996 MORIOKA Tomohiko - - * tm-mh-e.el (tm-mh-e/following-method): new implementation for - tm-view 7.53. - -Thu Apr 25 15:38:16 1996 MORIOKA Tomohiko - - * tmh-comp.el (tm-mh-e/yank-cur-msg): don't call `error'. - - -Mon Apr 22 12:52:17 1996 MORIOKA Tomohiko - - * tm/mh-e: Version 7.58 was released. - -Sun Apr 21 17:11:20 1996 MORIOKA Tomohiko - - * tm-mh-e.el (tm-mh-e/following-method): New function. - - -Mon Mar 25 11:57:17 1996 MORIOKA Tomohiko - - * tm/mh-e: Version 7.57 was released. - - * tm-mh-e.el (mh-temp-buffer): declare for mh-e 4.1 or earlier. - (cf. [tm-ja:1672]) - - * tmh-comp.el (tm-mh-e::insert-letter): New function; for version - independent (cf. [tm-ja:1672]) - - -Wed Mar 6 02:03:17 1996 Morioka Tomohiko - - * tm/mh-e: Version 7.56 was released. - - * tm-mh-e.el: Function `tm-mh-e/set-window-configuration' was - commented out. (cf. [tm-en:359]) - - -Mon Mar 4 09:22:37 1996 Morioka Tomohiko - - * tm/mh-e: Version 7.55 was released. - - * mk-tmh: use tmh-els file. - -Mon Mar 4 09:21:19 1996 Morioka Tomohiko - - * tmh-els: New file. - -Thu Feb 29 15:23:53 1996 Morioka Tomohiko - - * tm-mh-e.el (tm-mh-e/scroll-up-msg): New function. - (tm-mh-e/scroll-down-msg): New function. - (tm-mh-e/burst-multipart/digest): New function. - - * tmh-comp.el: comments was modified. - - * tmh-comp.el: Initial revision - - * tm-mh-e.el: Functions about composing were separated to tmh-comp.el. - -Thu Feb 29 13:58:26 1996 OKABE Yasuo - - * tm-mh-e.el (tm-mh-e/extract-rejected-mail): New function - (cf. [tm-ja:1643]) - - -Wed Feb 28 13:27:54 1996 Morioka Tomohiko - - * tm/mh-e: Version 7.52 was released. - -Tue Feb 27 16:25:19 1996 Morioka Tomohiko - - * tm-mh-e.el (tm-mh-e/edit-again): New implementation. - -Tue Feb 27 09:49:15 1996 Morioka Tomohiko - - * tm-mh-e.el (tm-mh-e/edit-again): autoload "mh-comp" instead of - require. - autoload "tm-edit". (cf. [tm-ja:1611]) - - -Mon Feb 26 08:41:56 1996 Morioka Tomohiko - - * tm/mh-e: Version 7.50 was released. - - * tm-mh-e.el (tm-mh-e/edit-again): New function. - - -Fri Feb 22 17:58:27 1996 Morioka Tomohiko - - * tm/mh-e: Version 7.49 was released. - -Thu Feb 22 04:58:10 1996 KON-NO Yoichi - - * tm-mh-e.el (mh-display-msg): fixed problem about BBDB - (cf. [tm-ja:1593]) - - -Tue Feb 13 07:19:09 1996 Morioka Tomohiko - - * tm/mh-e: Version 7.48 was released. - - * tm-mh-e.el (tm-mh-e/content-header-filter): Code for hilit19 was - deleted. Please set to `mime-viewer/content-header-filter-hook'. - - -Thu Jan 25 15:14:27 1996 Morioka Tomohiko - - * tm/mh-e: Version 7.47 was released. - - * tm-mh-e.el: Michael Sperber [Mr. Preprocessor] - 's patch was applied. - (cf. [bug-tm-en:288]) - -Thu Jan 25 15:00:14 1996 Michael Sperber - - * tm-mh-e.el: I remember making this change for 6.80.1, but it - seems to work with 7.41.1. It's relevant if you're using tm in - conjunction with mh-e and BBDB. Without it, BBDB gets confused - about the window configuration when making an update. - (cf. [bug-tm-en:288]) - - -Tue Jan 23 04:51:18 1996 Morioka Tomohiko - - * tm/mh-e: Version 7.46 was released. - - * tm-mh-e.el: (require 'tm-bbdb) if bbdb is provided. - - -Mon Jan 22 00:42:53 1996 Morioka Tomohiko - - * tm/mh-e: Version 7.45 was released. - - * tm-mh-e.el (tm-mh-e/forward): - `msg-or-seq' must be number or symbol, not string - (cf. [tm-ja:1482]) - -Thu Jan 18 01:55:25 1996 Yoshiyuki Yamagami - - * Makefile: specify `-no-site-file' option (cf. [tm-ja:1474]) - - -Wed Dec 13 05:48:43 1995 Morioka Tomohiko - - * tm/mh-e: Version 7.44 was released. - - * tm-mh-e.el (tm-mh-e/content-header-filter): - use `mime-preview/cut-header' - - -Wed Dec 6 12:31:27 1995 Morioka Tomohiko - - * tm/mh-e: Version 7.43 was released. - - * tm-mh-e.el: Variable `tm-mh-e/automatic-mime-preview' and - `tm-mh-e/decode-encoded-word' were changed to user variable. - -Wed Dec 6 07:34:13 1995 Morioka Tomohiko - - * tm-mh-e.el: - New function `tm-mh-e/set-window-configuration': it is set to - `mh-show-hook'. - - -Tue Dec 5 17:14:13 1995 Morioka Tomohiko - - * tm/mh-e: Version 7.41 was released. - -Mon Dec 4 03:45:44 1995 Morioka Tomohiko - - * tm-mh-e.el: (defalias 'mh-get-header-field 'mh-get-field) if - function `mh-get-header-field' is not exist. (function - `mh-get-header-field' is mh-e 5.* function) - - * tm-mh-e3.el: - (1) New variable `mh-forward-subject-format' - (2) New function `mh-forwarded-letter-subject' - - -Mon Dec 4 09:29:41 1995 Morioka Tomohiko - - * tm/mh-e: Version 7.40 was released. - - * tm-mh-e.el: - Function `tm-mh-e/forward' was modified to work with Emacs 18, but - it still does not... - - * tm-mh-e.el: - Function `tm-mh-e/forward' was modified to fix position to insert - `(require 'tm-edit)'. - -Fri Dec 1 19:14:52 1995 Morioka Tomohiko - - * tm-mh-e3.el: New function `mh-read-address'. - -Fri Dec 1 09:33:37 1995 Morioka Tomohiko - - * tm-mh-e3.el: New function `mh-read-address'. - - * tm-mh-e.el: - fixed problem in setting up function `tm-mh-e/yank-cur-msg'. - -Thu Nov 30 07:54:54 1995 Morioka Tomohiko - - * tm-mh-e.el: - OKABE Yasuo 's patch was applied. - (cf. [tm-ja:1184]) - -Wed Nov 29 16:41:41 1995 Morioka Tomohiko - - * tm-mh-e.el: - OKABE Yasuo 's patch was applied: - (cf. [tm-ja:1178]) - (0) New function `tm-mh-e/yank-cur-msg': for called from Gnus. - (1) function `tm-mh-e/prompt-for-message' was modified. - (2) function `tm-mh-e/insert-mail' was modified to use - `insert-file-contents' instead of `insert-file'. - (3) New function `tm-mh-e/insert-letter'. - -Wed Nov 29 16:32:06 1995 Morioka Tomohiko - - * tm-mh-e.el: - fixed some problems by OKABE Yasuo . - (cf. [tm-ja:1172]) - - * tm-mh-e.el: - OKABE Yasuo 's patch was merged. - (cf. [tm-ja:1168]) - - * tm-mh-e.el: - According to Eric Ding , - fixed mistake about tm-view change in tm 7.24. - -Sat Nov 25 02:16:08 1995 Morioka Tomohiko - - * tm-mh-e.el: Function `tm-mh-e/forward' was fixed to use function - `mime-editor/insert-tag' and `mime-editor/enclose-region'. - - -Sat Nov 25 08:11:36 1995 Morioka Tomohiko - - * tm/mh-e: Version 7.30 was released. - -Fri Nov 24 22:57:59 1995 Morioka Tomohiko - - * tm-mh-e.el: - (1) Function `tm-mh-e/insert-mail' was modified to apply its - argument to function `tm-mh-e/query-message'. - (2) Function `tm-mh-e/query-message' was modified to changed - its argument to `tm-mh-e::message' type. - - * tm-mh-e.el: - Function `tm-mh-e/insert-message' was modified to use function - `tm-mh-e/insert-mail' when mh mail is inserted. (Because of - Mule code conversion) - -Fri Nov 24 21:49:48 1995 Morioka Tomohiko - - * tm-mh-e.el: - (1) Function `tm-mh-e/insert-message' was modified for Gnus. - (2) function `tm-mh-e/query-message' was fixed. - (3) function `tm-mh-e/prompt-for-message' was fixed. - - * tm-mh-e.el: - OKABE Yasuo 's patch was applied. - (cf. [tm-ja:1156]) - - -Thu Nov 23 19:28:16 1995 Morioka Tomohiko - - * tm/mh-e: Version 7.26 was released. - -Tue Nov 21 08:55:01 1995 Morioka Tomohiko - - * tm-mh-e.el: - Variable `tm-mh-e/use-forwcomps' was abolished. - (cf. [tm-ja:1133]) - - -Mon Nov 20 11:59:40 1995 Morioka Tomohiko - - * tm/mh-e: Version 7.25 was released. - -Sun Nov 19 06:44:32 1995 Morioka Tomohiko - - * tm-mh-e.el: fixed fatal problem in Emacs 18. diff --git a/mh-e/ChangeLog-7.25.en b/mh-e/ChangeLog-7.25.en deleted file mode 100644 index e78e1f5..0000000 --- a/mh-e/ChangeLog-7.25.en +++ /dev/null @@ -1,7 +0,0 @@ -Mon Nov 20 11:59:40 1995 Morioka Tomohiko - - * tm/mh-e: Version 7.25 was released. - -Sun Nov 19 06:44:32 1995 Morioka Tomohiko - - * tm-mh-e.el: fixed fatal problem in Emacs 18. diff --git a/mh-e/ChangeLog-7.25.ja b/mh-e/ChangeLog-7.25.ja deleted file mode 100644 index a065d3f..0000000 --- a/mh-e/ChangeLog-7.25.ja +++ /dev/null @@ -1,7 +0,0 @@ -Mon Nov 20 11:59:40 1995 Morioka Tomohiko - - * tm/mh-e: Version 7.25 $B$r(B release. - -Sun Nov 19 06:44:32 1995 Morioka Tomohiko - - * tm-mh-e.el: Emacs 18 $B$GF0$+$J$/$J$C$F$$$?$N$r=$@5$7$?!#(B diff --git a/mh-e/ChangeLog-7.26.en b/mh-e/ChangeLog-7.26.en deleted file mode 100644 index f42d746..0000000 --- a/mh-e/ChangeLog-7.26.en +++ /dev/null @@ -1,9 +0,0 @@ -Thu Nov 23 19:28:16 1995 Morioka Tomohiko - - * tm/mh-e: Version 7.26 was released. - -Tue Nov 21 08:55:01 1995 Morioka Tomohiko - - * tm-mh-e.el: - Variable `tm-mh-e/use-forwcomps' was abolished. - (cf. [tm-ja:1133]) diff --git a/mh-e/ChangeLog-7.26.ja b/mh-e/ChangeLog-7.26.ja deleted file mode 100644 index 8d3674f..0000000 --- a/mh-e/ChangeLog-7.26.ja +++ /dev/null @@ -1,9 +0,0 @@ -Thu Nov 23 19:28:16 1995 Morioka Tomohiko - - * tm/mh-e: Version 7.26 $B$r(B release $B$7$?!#(B - -Tue Nov 21 08:55:01 1995 Morioka Tomohiko - - * tm-mh-e.el: - $BJQ?t(B tm-mh-e/use-forwcomps $B$rGQ;_$7!"4X?t(B tm-mh-e/forward $B$N;EMM$r(B - $B2,It$5$s$NDs0F$5$l$?$b$N$KLa$7$?!#(B(cf. [tm-ja:1133]) diff --git a/mh-e/ChangeLog-7.27-7.30.en b/mh-e/ChangeLog-7.27-7.30.en deleted file mode 100644 index ca8d613..0000000 --- a/mh-e/ChangeLog-7.27-7.30.en +++ /dev/null @@ -1,27 +0,0 @@ -Sat Nov 25 08:11:36 1995 Morioka Tomohiko - - * tm/mh-e: Version 7.30 was released. - -Fri Nov 24 22:57:59 1995 Morioka Tomohiko - - * tm-mh-e.el: - (1) Function `tm-mh-e/insert-mail' was modified to apply its - argument to function `tm-mh-e/query-message'. - (2) Function `tm-mh-e/query-message' was modified to changed - its argument to `tm-mh-e::message' type. - - * tm-mh-e.el: - Function `tm-mh-e/insert-message' was modified to use function - `tm-mh-e/insert-mail' when mh mail is inserted. (Because of - Mule code conversion) - -Fri Nov 24 21:49:48 1995 Morioka Tomohiko - - * tm-mh-e.el: - (1) Function `tm-mh-e/insert-message' was modified for Gnus. - (2) function `tm-mh-e/query-message' was fixed. - (3) function `tm-mh-e/prompt-for-message' was fixed. - - * tm-mh-e.el: - OKABE Yasuo 's patch was applied. - (cf. [tm-ja:1156]) diff --git a/mh-e/ChangeLog-7.27-7.30.ja b/mh-e/ChangeLog-7.27-7.30.ja deleted file mode 100644 index 4c6b5e6..0000000 --- a/mh-e/ChangeLog-7.27-7.30.ja +++ /dev/null @@ -1,26 +0,0 @@ -Sat Nov 25 08:11:36 1995 Morioka Tomohiko - - * tm/mh-e: Version 7.30 $B$r(B release $B$7$?!#(B - -Fri Nov 24 22:57:59 1995 Morioka Tomohiko - - * tm-mh-e.el: - (1) $B4X?t(B tm-mh-e/insert-mail $B$N0z?t$r4X?t(B tm-mh-e/query-message $B$K(B - $BEO$9$h$&$K$7$?!#(B - (2) $B4X?t(B tm-mh-e/query-message $B$N0z?t$r(B tm-mh-e::message $B7?$H$7$?!#(B - - * tm-mh-e.el: - $B4X?t(B tm-mh-e/insert-message $B$G(B mh $B$N(B mail $B$NA^F~$K4X?t(B - tm-mh-e/insert-mail $B$r;H$&$h$&$K$7$?!#!JA^F~$7$?5-;v$rJT=8Cf$KFI$a(B - $B$k$h$&$K$9$k$?$a!K(B - -Fri Nov 24 21:49:48 1995 Morioka Tomohiko - - * tm-mh-e.el: - (1) Gnus $B$G$N;HMQ$r9MN8$7$F4X?t(B tm-mh-e/insert-message $B$r=$@5$7$?!#(B - (2) $B4X?t(B tm-mh-e/query-message $B$NIT6q9g$r=$@5$7$?!#(B - (3) $B4X?t(B tm-mh-e/prompt-for-message $B$NIT6q9g$r=$@5$7$?!#(B - - * tm-mh-e.el: - [tm-ja:1156] $B$G$N!"2,It(B $B $B$5$s$N(B - patch $B$rEv$F$?!#(B diff --git a/mh-e/ChangeLog-7.40.en b/mh-e/ChangeLog-7.40.en deleted file mode 100644 index 93bfde1..0000000 --- a/mh-e/ChangeLog-7.40.en +++ /dev/null @@ -1,58 +0,0 @@ -Mon Dec 4 09:29:41 1995 Morioka Tomohiko - - * tm/mh-e: Version 7.40 was released. - - * tm-mh-e.el: - Function `tm-mh-e/forward' was modified to work with Emacs 18, but - it still does not... - - * tm-mh-e.el: - Function `tm-mh-e/forward' was modified to fix position to insert - `(require 'tm-edit)'. - -Fri Dec 1 19:14:52 1995 Morioka Tomohiko - - * tm-mh-e3.el: New function `mh-read-address'. - -Fri Dec 1 09:33:37 1995 Morioka Tomohiko - - * tm-mh-e3.el: New function `mh-read-address'. - - * tm-mh-e.el: - fixed problem in setting up function `tm-mh-e/yank-cur-msg'. - -Thu Nov 30 07:54:54 1995 Morioka Tomohiko - - * tm-mh-e.el: - OKABE Yasuo 's patch was applied. - (cf. [tm-ja:1184]) - -Wed Nov 29 16:41:41 1995 Morioka Tomohiko - - * tm-mh-e.el: - OKABE Yasuo 's patch was applied: - (cf. [tm-ja:1178]) - (0) New function `tm-mh-e/yank-cur-msg': for called from Gnus. - (1) function `tm-mh-e/prompt-for-message' was modified. - (2) function `tm-mh-e/insert-mail' was modified to use - `insert-file-contents' instead of `insert-file'. - (3) New function `tm-mh-e/insert-letter'. - -Wed Nov 29 16:32:06 1995 Morioka Tomohiko - - * tm-mh-e.el: - fixed some problems by OKABE Yasuo . - (cf. [tm-ja:1172]) - - * tm-mh-e.el: - OKABE Yasuo 's patch was merged. - (cf. [tm-ja:1168]) - - * tm-mh-e.el: - According to Eric Ding , - fixed mistake about tm-view change in tm 7.24. - -Sat Nov 25 02:16:08 1995 Morioka Tomohiko - - * tm-mh-e.el: Function `tm-mh-e/forward' was fixed to use function - `mime-editor/insert-tag' and `mime-editor/enclose-region'. diff --git a/mh-e/ChangeLog-7.40.ja b/mh-e/ChangeLog-7.40.ja deleted file mode 100644 index ba15893..0000000 --- a/mh-e/ChangeLog-7.40.ja +++ /dev/null @@ -1,71 +0,0 @@ -Mon Dec 4 09:29:41 1995 Morioka Tomohiko - - * tm/mh-e: Version 7.40 was released. - - * tm-mh-e.el: - Function `tm-mh-e/forward' was modified to work with Emacs 18, but - it still does not... - - * tm-mh-e.el: - Function `tm-mh-e/forward' was modified to fix position to insert - `(require 'tm-edit)'. - -Fri Dec 1 19:14:52 1995 Morioka Tomohiko - - * tm-mh-e3.el: New function `mh-read-address'. - -Fri Dec 1 09:33:37 1995 Morioka Tomohiko - - * tm-mh-e3.el: New function `mh-read-address'. - - * tm-mh-e.el: - fixed problem in setting up function `tm-mh-e/yank-cur-msg'. - -Thu Nov 30 07:54:54 1995 Morioka Tomohiko - - * tm-mh-e.el: - OKABE Yasuo 's patch was applied. - (cf. [tm-ja:1184]) - -Wed Nov 29 16:41:41 1995 Morioka Tomohiko - - * tm-mh-e.el: - $B2,It(B $B $B$5$s$N(B patch $B$rEv$F$?!#(B - (cf. [tm-ja:1178]) - (0) Gnus $B$+$i8F$P$l$?;~$N$?$a$K!"4X?t(B tm-mh-e/yank-cur-msg $B$r@_$1(B - $B$?!#(B - (1) tm-mh-e/prompt-for-message $B$G!"Ev3:$N%U%)%k%@$N%P%C%U%!$,3+$$(B - $B$F$$$J$$>l9g!"=>Mh$O$=$N%U%)%k%@$N$b$C$H$bHV9f$N>.$5$$$b$N$,(B - default$B$H$7$?$,!"(Bpick $B$r8F$s$G(B cur $B$rM%@h$9$k$h$&$K$7$?!#(B - (2) tm-mh-e/insert-mail $B$G(B insert-file $B$G$O$J$/(B - insert-file-contents$B$r;H$&$h$&$K$7$?!#(B - (describe function $B$9$k$H(B insert-file $B$O;H$&$J$H=q$$$F$"$C$?$N(B - $B$G(B) - (3) tm-mh-e/insert-letter $B$H$$$&4X?t$rDI2C$7$?!#$3$l$O(B - mh-insert-letter $B$H8F$s$G$$$k$,!"Ld$$9g$o$;$K(B - tm-mh-e/prompt-for-message $B$r;H$&$N$G8-$$!#(B - ($B$7$+$7(B tm $B$KF~$C$F$$$kI,A3@-$O$J$$!#(Bmh-e $B$K(B contribute $B$9$Y$-(B - $B$+!)(B) - -Wed Nov 29 16:32:06 1995 Morioka Tomohiko - - * tm-mh-e.el: - fixed some problems by OKABE Yasuo . - (cf. [tm-ja:1172]) - - * tm-mh-e.el: - OKABE Yasuo 's patch was merged. - (cf. [tm-ja:1168]) - - * tm-mh-e.el: - $B4X?t(B tm-mh-e/header-display $B$K$*$1$k6I=jJQ?t(B - `mime-viewer/ignored-field-regexp' $B$N=i4|CM$N@_Dj%_%9$r=$@5$7$?!#(B - - * tm-mh-e.el: - Eric Ding $B$5$s$N;XE&$K=>$C$F!"(Btm - 7.24 $B$G$NJQ99$X$NBP1~$7K:$l$r=$@5$7$?!#(B - -Sat Nov 25 02:16:08 1995 Morioka Tomohiko - - * tm-mh-e.el: Function `tm-mh-e/forward' was fixed to use function - `mime-editor/insert-tag' and `mime-editor/enclose-region'. diff --git a/mh-e/ChangeLog-7.41.en b/mh-e/ChangeLog-7.41.en deleted file mode 100644 index 4c780aa..0000000 --- a/mh-e/ChangeLog-7.41.en +++ /dev/null @@ -1,13 +0,0 @@ -Tue Dec 5 17:14:13 1995 Morioka Tomohiko - - * tm/mh-e: Version 7.41 was released. - -Mon Dec 4 03:45:44 1995 Morioka Tomohiko - - * tm-mh-e.el: (defalias 'mh-get-header-field 'mh-get-field) if - function `mh-get-header-field' is not exist. (function - `mh-get-header-field' is mh-e 5.* function) - - * tm-mh-e3.el: - (1) New variable `mh-forward-subject-format' - (2) New function `mh-forwarded-letter-subject' diff --git a/mh-e/ChangeLog-7.43.en b/mh-e/ChangeLog-7.43.en deleted file mode 100644 index c03f785..0000000 --- a/mh-e/ChangeLog-7.43.en +++ /dev/null @@ -1,12 +0,0 @@ -Wed Dec 6 12:31:27 1995 Morioka Tomohiko - - * tm/mh-e: Version 7.43 was released. - - * tm-mh-e.el: Variable `tm-mh-e/automatic-mime-preview' and - `tm-mh-e/decode-encoded-word' were changed to user variable. - -Wed Dec 6 07:34:13 1995 Morioka Tomohiko - - * tm-mh-e.el: - New function `tm-mh-e/set-window-configuration': it is set to - `mh-show-hook'. diff --git a/mh-e/ChangeLog-7.44.en b/mh-e/ChangeLog-7.44.en deleted file mode 100644 index ae14dc8..0000000 --- a/mh-e/ChangeLog-7.44.en +++ /dev/null @@ -1,6 +0,0 @@ -Wed Dec 13 05:48:43 1995 Morioka Tomohiko - - * tm/mh-e: Version 7.44 was released. - - * tm-mh-e.el (tm-mh-e/content-header-filter): - use `mime-preview/cut-header' diff --git a/mh-e/Makefile b/mh-e/Makefile deleted file mode 100644 index 585fc71..0000000 --- a/mh-e/Makefile +++ /dev/null @@ -1,45 +0,0 @@ -# -# $Id: Makefile,v 6.3 1996/01/18 10:31:49 morioka Exp morioka $ -# - -# Please specify emacs executables: -# NEMACS = for NEMACS (or NEpoch) -# MULE1 = for Mule 1.* (based on Emacs 18.*) -# ORIG19 = for Emacs 19.* (FSF original or XEmacs) -# MULE2 = for MULE 2.* (based on Emacs 19.*) - -EMACS = mule -FLAGS = -batch -q -no-site-file -l mk-tmh - - -# Please specfy Emacs Lisp install directory: -# TMDIR18 = for Emacs 18.* (NEMACS, NEpoch or MULE 1) -# TMDIR19 = for Emacs 19.* (FSF original, XEmacs or MULE 2) - -# TMDIR18 = /usr/local/lib/emacs/local.lisp/tm -# TMDIR19 = /usr/local/lib/mule/site-lisp - -TMDIR18 = $(HOME)/lib/emacs18/lisp -TMDIR19 = $(HOME)/lib/emacs19/lisp - - -FILES = tm/mh-e/*.el tm/mh-e/Makefile tm/mh-e/mk-tmh tm/mh-e/*.ol -TARFILE = tm-mh-e7.63.1.tar - - -elc: - $(EMACS) $(FLAGS) -f compile-tm-mh-e - -install-18: - $(EMACS) $(FLAGS) -f install-tm-mh-e $(TMDIR18) - -install-19: - $(EMACS) $(FLAGS) -f install-tm-mh-e $(TMDIR19) - - -clean: - -rm *.elc - - -tar: - cd ../..; tar cvf $(TARFILE) $(FILES); gzip -9 $(TARFILE) diff --git a/mh-e/Makefile.bc b/mh-e/Makefile.bc deleted file mode 100644 index 00b9069..0000000 --- a/mh-e/Makefile.bc +++ /dev/null @@ -1,20 +0,0 @@ -# -# $Id: Makefile.bc,v 6.1 1995/05/16 12:20:36 morioka Exp $ -# - -.SUFFIXES: .el .elc - -BATCH = $(EMACS) -batch ../loadpath -f eval-current-buffer . - -.el.elc: - $(BATCH) -l mh-e -f batch-byte-compile $< - - -mh-e3: tm-mh-e.elc tm-mh-e3.elc - -mh-e4: tm-mh-e.elc - - -tm-mh-e.elc: tm-mh-e.el - -tm-mh-e3.elc: tm-mh-e3.el diff --git a/mh-e/TMH-ELS b/mh-e/TMH-ELS deleted file mode 100644 index fc1a76a..0000000 --- a/mh-e/TMH-ELS +++ /dev/null @@ -1,14 +0,0 @@ -;;; -*-Emacs-Lisp-*- -;;; -;;; $Id: TMH-ELS,v 3.0 1996/08/22 14:36:47 morioka Exp $ -;;; - -(require 'mh-e) - -(setq tm-mh-e-modules '(tm-mh-e tmh-comp)) - -(or (featurep 'mh-utils) - (setq tm-mh-e-modules (cons 'tm-mh-e3 tm-mh-e-modules)) - ) - -;;; TMH-ELS ends here diff --git a/mh-e/code-jp.ol b/mh-e/code-jp.ol deleted file mode 100644 index 75134e8..0000000 --- a/mh-e/code-jp.ol +++ /dev/null @@ -1,57 +0,0 @@ -$B!X(Btm-mh-e $B$G(B ISO-2022-JP $B0J30$NJ8;z(B code $B$r;H$&J}K!!Y(B -by $Bl(B -$B9g!"(Btm-mh-e $B$N(B default $B$N@_Dj$G$OJ8;z2=$1$7$^$9!#$3$&$7$?$3$H$r9T$J$&(B -$B$3$H$O$"$^$j4+$a$i$l$?$3$H$G$O$J$$$H;W$$$^$9$,!"$3$3$G$O$3$&$7$?4D6-$G(B -tm-mh-e $B$r;H$&>l9g$N@_Dj$K$D$$$F@bL@$7$^$9!#(B - - -* Mule $B$N>l9g(B - - tm-mh-e $B$NI8=`@_Dj$G$O!"(Bcharset parameter $B$,B8:_$9$k>l9g$O$=$l$G;XDj(B -$B$5$l$?J8;z(B code $B$K$J$j!"(Bcharset parameter $B$,B8:_$7$J$$>l9g!JHs(B MIME -message $B$r4^$`!K$N>l9g$NJ8;z(B code $B$O(B *ctext* $B$H$J$j$^$9!#(B - - charset $B$,B8:_$7$J$$>l9g$NJ8;z(B code $B$OJQ?t(B -mime/default-coding-system $B$G;XDj$5$l$^$9!#$3$N4{DjCM$,(B *ctext* $B$G$"$j!"(B -ISO-8859-1 $B$+(B ISO-2022-JP $B$J$I$N(B JUNET $BJ}<0$N(B ISO-2022 code $B$G$"$k$3$H(B -$B$r4|BT$7$F$$$^$9!#(B - - charset $B$,B8:_$9$k>l9g$O!"JQ?t(B mime/charset-coding-system-alist $B$K@_(B -$BDj$5$l$?!"$=$N(B charset $B$KBP1~$9$k(B Mule $B$N(B coding-system $B$,MQ$$$i$l$^$9!#(B - - $B$3$l$i$NF0:n$O4X?t(B tm-mh-e/code-convert-region-to-emacs $B$G9T$J$o$l$^(B -$B$9!#$h$C$F!"$3$l$i$NJQ?t$*$h$S4X?t$rJQ99$9$k$3$H$K$h$C$F(B MTA $B$G(B code -$BJQ49$5$l$?>l9g$NBP:v$r9T$J$&$3$H$,$G$-$^$9!#(B - - -** $BHs(B MIME message $B$^$?$O(B charset $B$,B8:_$7$J$$>l9g$N$_$NBP:v(B - - $BHs(B MIME message $B$N>l9g!"JQ?t(B mime/default-coding-system $B$KJ8;z(B code -$B$r@_Dj$9$l$P(B OK $B$G$9!#(BShift-JIS $B$N>l9g$O(B - - (setq mime/default-coding-system *sjis*) - -EUC-JP $B$N>l9g$O!"(B - - (setq mime/default-coding-system *euc-japan*) - -$B$H$7$F2<$5$$!#(B - - -** charset $B$,B8:_$9$k>l9g$b4^$a$?BP:v(B - - charset $B$,B8:_$9$k>l9g!"JQ?t(B mime/charset-coding-system-alist $B$K(B -"ISO-2022-JP" $B$KBP1~$9$k(B coding-system $B$r(B *sjis* $B$d(B *euc-japan* $B$KJQ$((B -$B$k$H$$$&$N$,#1$D$NJ}K!$G$9!#C"$7!"$3$N>l9g!"(Bencode $B$5$l$F85$NJ8;z(B code -$B$,J]B8$5$l$F$$$k>l9g$KJ8;z2=$1$9$k$3$H$K$J$j$^$9!#(B - - $B$3$N$3$H$r9MN8$9$k$H!"4X?t(B tm-mh-e/code-convert-region-to-emacs $B$r:F(B -$BDj5A$9$k$N$,NI$$$H$$$($^$9!#$*$=$i$/!"(BISO-2022-JP $B0J30$NJ8;z(B code $B$OJ](B -$BB8$5$l$J$$$G$7$g$&$+$i!"0J2<$N$h$&$JDj5A$G==J,$G$7$g$&!#(B - - (defun tm-mh-e/code-convert-region-to-emacs - (beg end charset &optional encoding) - (code-convert beg end *sjis* *internal*) - ) diff --git a/mh-e/mk-tmh b/mh-e/mk-tmh deleted file mode 100644 index e8cfb85..0000000 --- a/mh-e/mk-tmh +++ /dev/null @@ -1,35 +0,0 @@ -;;; -*-Emacs-Lisp-*- -;;; -;;; $Id: mk-tmh,v 7.0 1996/09/03 15:23:15 morioka Exp $ -;;; - -(setq load-path (nconc - (mapcar (function - (lambda (path) - (expand-file-name path (getenv "PWD")) - )) - '("." ".." "../../tl" "../../mu" "../../mel") - ) - load-path)) - -(require 'mh-e) -(require 'emu) -(require 'install) - -(load-file "TMH-ELS") - -(defun compile-tm-mh-e () - (require 'tm-mh-e) - (require 'mh-comp) - (require 'tm-edit) - (compile-elisp-modules tm-mh-e-modules ".") - ) - -(defun install-tm-mh-e () - (let ((path (car command-line-args-left))) - (install-elisp-modules tm-mh-e-modules "./" path) - ) - (setq command-line-args-left (cdr command-line-args-left)) - ) - -;;; mk-tmh ends here diff --git a/mh-e/tm-mh-e.el b/mh-e/tm-mh-e.el deleted file mode 100644 index c3f2b14..0000000 --- a/mh-e/tm-mh-e.el +++ /dev/null @@ -1,424 +0,0 @@ -;;; tm-mh-e.el --- MIME extension for mh-e - -;; Copyright (C) 1995,1996 Free Software Foundation, Inc. - -;; Author: MORIOKA Tomohiko -;; OKABE Yasuo -;; Maintainer: MORIOKA Tomohiko -;; Created: 1993/11/21 (obsolete mh-e-mime.el) -;; Version: $Revision: 7.68 $ -;; Keywords: mail, MH, MIME, multimedia, encoded-word, multilingual - -;; This file is part of tm (Tools for MIME). - -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License as -;; published by the Free Software Foundation; either version 2, or (at -;; your option) any later version. - -;; This program is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with This program; see the file COPYING. If not, write to -;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Code: - -(require 'tl-str) -(require 'tl-misc) -(require 'mh-e) -(or (featurep 'mh-utils) - (require 'tm-mh-e3) - ) -(require 'tm-view) - -(or (fboundp 'mh-get-header-field) - (defalias 'mh-get-header-field 'mh-get-field) - ) -(or (boundp 'mh-temp-buffer) - (defconst mh-temp-buffer " *mh-temp*") - ) - - -;;; @ version -;;; - -(defconst tm-mh-e/RCS-ID - "$Id: tm-mh-e.el,v 7.68 1996/08/31 15:15:12 morioka Exp $") - -(defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID)) - - -;;; @ variable -;;; - -(defvar tm-mh-e/automatic-mime-preview t - "*If non-nil, show MIME processed message.") - -(defvar tm-mh-e/decode-encoded-word t - "*If non-nil, decode encoded-word when it is not MIME preview mode.") - - -;;; @ functions -;;; - -;; (if (not (fboundp 'tm-mh-e/original-mh-display-msg)) -;; (fset 'tm-mh-e/original-mh-display-msg -;; (symbol-function 'mh-display-msg)) -;; ) - -(defun mh-display-msg (msg-num folder &optional show-buffer mode) - (or mode - (setq mode tm-mh-e/automatic-mime-preview) - ) - ;; Display message NUMBER of FOLDER. - ;; Sets the current buffer to the show buffer. - (set-buffer folder) - (or show-buffer - (setq show-buffer mh-show-buffer)) - ;; Bind variables in folder buffer in case they are local - (let ((msg-filename (mh-msg-filename msg-num))) - (if (not (file-exists-p msg-filename)) - (error "Message %d does not exist" msg-num)) - (set-buffer show-buffer) - (cond ((not (equal msg-filename buffer-file-name)) - ;; Buffer does not yet contain message. - (clear-visited-file-modtime) - (unlock-buffer) - (setq buffer-file-name nil) ; no locking during setup - (setq buffer-read-only nil) - (erase-buffer) - (if mode - (let* ((aname (concat "article-" folder)) - (abuf (get-buffer aname)) - ) - (if abuf - (progn - (set-buffer abuf) - (setq buffer-read-only nil) - (erase-buffer) - ) - (setq abuf (get-buffer-create aname)) - (set-buffer abuf) - ) - (let ((file-coding-system-for-read - (if (boundp 'MULE) *noconv*)) - kanji-fileio-code) - (insert-file-contents msg-filename) - ;; (goto-char (point-min)) - (while (re-search-forward "\r$" nil t) - (replace-match "") - ) - ) - (set-buffer-modified-p nil) - (setq buffer-read-only t) - (setq buffer-file-name msg-filename) - (mh-show-mode) - (mime/viewer-mode nil nil nil - aname (concat "show-" folder)) - (goto-char (point-min)) - ) - (let ((clean-message-header mh-clean-message-header) - (invisible-headers mh-invisible-headers) - (visible-headers mh-visible-headers) - ) - ;; 1995/9/21 - ;; modified by ARIURA - ;; to support mhl. - (if mhl-formfile - (mh-exec-lib-cmd-output "mhl" "-nobell" "-noclear" - (if (stringp mhl-formfile) - (list "-form" mhl-formfile)) - msg-filename) - (insert-file-contents msg-filename)) - ;; end - (goto-char (point-min)) - (cond (clean-message-header - (mh-clean-msg-header (point-min) - invisible-headers - visible-headers) - (goto-char (point-min))) - (t - (mh-start-of-uncleaned-message))) - (if tm-mh-e/decode-encoded-word - (mime/decode-message-header) - ) - (set-buffer-modified-p nil) - (setq buffer-read-only t) - (setq buffer-file-name msg-filename) - (mh-show-mode) - )) - (or (eq buffer-undo-list t) ;don't save undo info for prev msgs - (setq buffer-undo-list nil)) -;;; Added by itokon (02/19/96) - (setq buffer-file-name msg-filename) -;;; - (set-mark nil) - (setq mode-line-buffer-identification - (list (format mh-show-buffer-mode-line-buffer-id - folder msg-num))) - (set-buffer folder) - (setq mh-showing-with-headers nil))))) - -(defun tm-mh-e/view-message (&optional msg) - "MIME decode and play this message." - (interactive) - (if (or (null tm-mh-e/automatic-mime-preview) - (null (get-buffer mh-show-buffer)) - (save-excursion - (set-buffer mh-show-buffer) - (not (eq major-mode 'mime/viewer-mode)) - )) - (let ((tm-mh-e/automatic-mime-preview t)) - (mh-invalidate-show-buffer) - (mh-show-msg msg) - )) - (pop-to-buffer mh-show-buffer) - ) - -(defun tm-mh-e/toggle-decoding-mode (arg) - "Toggle MIME processing mode. -With arg, turn MIME processing on if arg is positive." - (interactive "P") - (setq tm-mh-e/automatic-mime-preview - (if (null arg) - (not tm-mh-e/automatic-mime-preview) - arg)) - (save-excursion - (set-buffer mh-show-buffer) - (if (null tm-mh-e/automatic-mime-preview) - (if (and mime::preview/article-buffer - (get-buffer mime::preview/article-buffer)) - (kill-buffer mime::preview/article-buffer) - ))) - (mh-invalidate-show-buffer) - (mh-show (mh-get-msg-num t)) - ) - -(defun tm-mh-e/show (&optional message) - (interactive) - (mh-invalidate-show-buffer) - (mh-show message) - ) - -(defun tm-mh-e/header-display () - (interactive) - (mh-invalidate-show-buffer) - (let ((mime-viewer/ignored-field-regexp "^:$") - tm-mh-e/decode-encoded-word) - (mh-header-display) - )) - -(defun tm-mh-e/raw-display () - (interactive) - (mh-invalidate-show-buffer) - (let (tm-mh-e/automatic-mime-preview - tm-mh-e/decode-encoded-word) - (mh-header-display) - )) - -(defun tm-mh-e/scroll-up-msg (&optional arg) - (interactive) - (mh-page-msg (or arg 1)) - ) - -(defun tm-mh-e/scroll-down-msg (&optional arg) - (interactive) - (mh-page-msg (- (or arg 1))) - ) - -(defun tm-mh-e/burst-multipart/digest () - "Burst apart the current message, which should be a multipart/digest. -The message is replaced by its table of contents and the letters from the -digest are inserted into the folder after that message." - (interactive) - (let ((digest (mh-get-msg-num t))) - (mh-process-or-undo-commands mh-current-folder) - (mh-set-folder-modified-p t) ; lock folder while bursting - (message "Bursting digest...") - (mh-exec-cmd "mhn" "-store" mh-current-folder digest) - (mh-scan-folder mh-current-folder (format "%d-last" mh-first-msg-num)) - (message "Bursting digest...done") - )) - - -;;; @ for tm-view -;;; - -(fset 'tm-mh-e/decode-charset-buffer - (symbol-function 'mime-charset/decode-buffer)) - -(set-alist 'mime-viewer/code-converter-alist - 'mh-show-mode - (function tm-mh-e/decode-charset-buffer)) - -(defun tm-mh-e/content-header-filter () - (goto-char (point-min)) - (mime-preview/cut-header) - (tm-mh-e/decode-charset-buffer default-mime-charset) - (mime/decode-message-header) - ) - -(set-alist 'mime-viewer/content-header-filter-alist - 'mh-show-mode - (function tm-mh-e/content-header-filter)) - -(defun tm-mh-e/quitting-method () - (let ((win (get-buffer-window - mime/output-buffer-name)) - (buf (current-buffer)) - ) - (if win - (delete-window win) - ) - (pop-to-buffer - (let ((name (buffer-name buf))) - (substring name 5) - )) - (if (not tm-mh-e/automatic-mime-preview) - (mh-invalidate-show-buffer) - ) - (mh-show (mh-get-msg-num t)) - )) - -(set-alist 'mime-viewer/quitting-method-alist - 'mh-show-mode - (function tm-mh-e/quitting-method)) -(set-alist 'mime-viewer/show-summary-method - 'mh-show-mode - (function tm-mh-e/quitting-method)) - -(defun tm-mh-e/following-method (buf) - (save-excursion - (set-buffer buf) - (goto-char (point-max)) - (setq mh-show-buffer buf) - (apply (function mh-send) - (std11-field-bodies '("To" "cc" "Subject") "")) - (setq mh-sent-from-folder buf) - (setq mh-sent-from-msg 1) - (let ((last (point))) - (mh-yank-cur-msg) - (goto-char last) - ))) - -(set-alist 'mime-viewer/following-method-alist - 'mh-show-mode - (function tm-mh-e/following-method)) - - -;;; @@ for tm-partial -;;; - -(call-after-loaded - 'tm-partial - (function - (lambda () - (set-atype 'mime/content-decoding-condition - '((type . "message/partial") - (method . mime-article/grab-message/partials) - (major-mode . mh-show-mode) - (summary-buffer-exp - . (and (or (string-match "^article-\\(.+\\)$" article-buffer) - (string-match "^show-\\(.+\\)$" article-buffer)) - (substring article-buffer - (match-beginning 1) (match-end 1)) - )) - )) - (set-alist 'tm-partial/preview-article-method-alist - 'mh-show-mode - (function - (lambda () - (let ((tm-mh-e/automatic-mime-preview t)) - (tm-mh-e/show) - )))) - ))) - - -;;; @ set up -;;; - -(define-key mh-folder-mode-map "v" (function tm-mh-e/view-message)) -(define-key mh-folder-mode-map "\et" (function tm-mh-e/toggle-decoding-mode)) -(define-key mh-folder-mode-map "." (function tm-mh-e/show)) -(define-key mh-folder-mode-map "," (function tm-mh-e/header-display)) -(define-key mh-folder-mode-map "\e," (function tm-mh-e/raw-display)) -(define-key mh-folder-mode-map "\r" (function tm-mh-e/scroll-up-msg)) -(define-key mh-folder-mode-map "\e\r" (function tm-mh-e/scroll-down-msg)) -(define-key mh-folder-mode-map "\C-c\C-b" - (function tm-mh-e/burst-multipart/digest)) - -(defun tm-mh-e/summary-before-quit () - (let ((buf (get-buffer mh-show-buffer))) - (if buf - (let ((the-buf (current-buffer))) - (switch-to-buffer buf) - (if (and mime::article/preview-buffer - (setq buf (get-buffer mime::article/preview-buffer)) - ) - (progn - (switch-to-buffer the-buf) - (kill-buffer buf) - ) - (switch-to-buffer the-buf) - ) - )))) - -(add-hook 'mh-before-quit-hook (function tm-mh-e/summary-before-quit)) - - -;;; @@ for tmh-comp.el -;;; - -(autoload 'tm-mh-e/edit-again "tmh-comp" - "Clean-up a draft or a message previously sent and make it resendable." t) -(autoload 'tm-mh-e/extract-rejected-mail "tmh-comp" - "Extract a letter returned by the mail system and make it re-editable." t) -(autoload 'tm-mh-e/forward "tmh-comp" - "Forward a message or message sequence by MIME style." t) - -(call-after-loaded - 'mime-setup - (function - (lambda () - (substitute-key-definition - 'mh-edit-again 'tm-mh-e/edit-again mh-folder-mode-map) - (substitute-key-definition - 'mh-extract-rejected-mail 'tm-mh-e/extract-rejected-mail - mh-folder-mode-map) - (substitute-key-definition - 'mh-forward 'tm-mh-e/forward mh-folder-mode-map) - - (call-after-loaded - 'mh-comp - (function - (lambda () - (require 'tmh-comp) - )) - 'mh-letter-mode-hook) - ))) - - -;;; @ for BBDB -;;; - -(call-after-loaded - 'bbdb - (function - (lambda () - (require 'tm-bbdb) - ))) - - -;;; @ end -;;; - -(provide 'tm-mh-e) - -(run-hooks 'tm-mh-e-load-hook) - -;;; tm-mh-e.el ends here diff --git a/mh-e/tm-mh-e3.el b/mh-e/tm-mh-e3.el deleted file mode 100644 index 0ac7f9c..0000000 --- a/mh-e/tm-mh-e3.el +++ /dev/null @@ -1,101 +0,0 @@ -;;; -;;; tm-mh-e3.el --- tm-mh-e module for mh-e 3.* to emulate mh-e 4.*. -;;; -;;; Copyright (C) 1995 Free Software Foundation, Inc. -;;; Copyright (C) 1993 .. 1996 MORIOKA Tomohiko -;;; -;;; Author: MORIOKA Tomohiko -;;; (This module was imported from mh-e 4.1) -;;; Created: 1994/7/10 -;;; Version: -;;; $Id: tm-mh-e3.el,v 7.2 1996/07/22 18:24:08 morioka Exp $ -;;; Keywords: mail, MH, mh-e 3, MIME, multimedia, encoded-word, multilingual -;;; -;;; This file is part of tm (Tools for MIME). -;;; -;;; This program is free software; you can redistribute it and/or -;;; modify it under the terms of the GNU General Public License as -;;; published by the Free Software Foundation; either version 2, or -;;; (at your option) any later version. -;;; -;;; This program is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;;; General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with This program. If not, write to the Free Software -;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;; -;;; Code: - -(require 'mh-e) - -(defvar mh-send-prog "send" - "Name of the MH send program. -Some sites need to change this because of a name conflict.") - -(defvar mail-citation-hook nil - "*Hook for modifying a citation just inserted in the mail buffer. -Each hook function can find the citation between point and mark. -And each hook function should leave point and mark around the citation -text as modified.") - - -;;; Ensure new buffers won't get this mode if default-major-mode is nil. -(put 'mh-show-mode 'mode-class 'special) - -(defun mh-show-mode () - "Major mode for showing messages in mh-e. -The value of mh-show-mode-hook is called when a new message is displayed." - (kill-all-local-variables) - (setq major-mode 'mh-show-mode) - (mh-set-mode-name "MH-Show") - (run-hooks 'mh-show-mode-hook)) - -(defun mh-start-of-uncleaned-message () - ;; position uninteresting headers off the top of the window - (let ((case-fold-search t)) - (re-search-forward - "^To:\\|^From:\\|^Subject:\\|^Date:" nil t) - (beginning-of-line) - (mh-recenter 0))) - -(fset 'mh-show-msg (symbol-function 'mh-show)) - - -;;; @ mh-comp definitions -;;; - -(provide 'mh-comp) - -(defun mh-read-address (prompt) - ;; Read a To: or Cc: address, prompting in the minibuffer with PROMPT. - ;; May someday do completion on aliases. - (read-string prompt)) - -(defvar mh-forward-subject-format "%s: %s" - "*Format to generate the Subject: line contents for a forwarded message. -The two string arguments to the format are the sender of the original -message and the original subject line.") - -(defun mh-forwarded-letter-subject (from subject) - ;; Return a Subject suitable for a forwarded message. - ;; Original message has headers FROM and SUBJECT. - (let ((addr-start (string-match "<" from)) - (comment (string-match "(" from))) - (cond ((and addr-start (> addr-start 0)) - ;; Full Name - (setq from (substring from 0 (1- addr-start)))) - (comment - ;; luser@host (Full Name) - (setq from (substring from (1+ comment) (1- (length from))))))) - (format mh-forward-subject-format from subject)) - - -;;; @ end -;;; - -(provide 'tm-mh-e3) - -;;; tm-mh-e3.el ends here diff --git a/mh-e/tmh-comp.el b/mh-e/tmh-comp.el deleted file mode 100644 index 4eea5ef..0000000 --- a/mh-e/tmh-comp.el +++ /dev/null @@ -1,524 +0,0 @@ -;;; tm-mh-e.el --- tm-mh-e functions for composing messages - -;; Copyright (C) 1993,1994,1995,1996 Free Software Foundation, Inc. - -;; Author: MORIOKA Tomohiko -;; OKABE Yasuo -;; Maintainer: MORIOKA Tomohiko -;; Created: 1996/2/29 (separated from tm-mh-e.el) -;; Version: -;; $Id: tmh-comp.el,v 7.6 1996/09/03 15:27:18 morioka Exp $ -;; Keywords: mail, MH, MIME, multimedia, encoded-word, multilingual - -;; This file is part of tm (Tools for MIME). - -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License as -;; published by the Free Software Foundation; either version 2, or (at -;; your option) any later version. - -;; This program is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with This program; see the file COPYING. If not, write to -;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Code: - -(require 'mh-comp) -(require 'tm-edit) - - -;;; @ variable -;;; - -(defvar tm-mh-e/forwcomps "forwcomps" - "Name of file to be used as a skeleton for forwarding messages. -Default is \"forwcomps\". If not a complete path name, the file -is searched for first in the user's MH directory, then in the -system MH lib directory.") - -(defvar tm-mh-e/message-yank-function 'mh-yank-cur-msg) - - -;;; @ for tm-edit -;;; - -(defun tm-mh-e::make-message (folder number) - (vector folder number) - ) - -(defun tm-mh-e::message/folder (message) - (elt message 0) - ) - -(defun tm-mh-e::message/number (message) - (elt message 1) - ) - -(defun tm-mh-e::message/file-name (message) - (expand-file-name - (tm-mh-e::message/number message) - (mh-expand-file-name (tm-mh-e::message/folder message)) - )) - -;;; modified by OKABE Yasuo -;;; 1995/11/14 (cf. [tm-ja:1096]) -(defun tm-mh-e/prompt-for-message (prompt folder &optional default) - (let* ((files - (directory-files (mh-expand-file-name folder) nil "^[0-9]+$") - ) - (folder-buf (get-buffer folder)) - (default - (if folder-buf - (save-excursion - (set-buffer folder-buf) - (let* ((show-buffer (get-buffer mh-show-buffer)) - (show-buffer-file-name - (buffer-file-name show-buffer))) - (if show-buffer-file-name - (file-name-nondirectory show-buffer-file-name))))))) - (if (or (null default) - (not (string-match "^[0-9]+$" default))) - (setq default - (if (and (string= folder mh-sent-from-folder) - mh-sent-from-msg) - (int-to-string mh-sent-from-msg) - (save-excursion - (let (cur-msg) - (if (and - (= 0 (mh-exec-cmd-quiet nil "pick" folder "cur")) - (set-buffer mh-temp-buffer) - (setq cur-msg (buffer-string)) - (string-match "^[0-9]+$" cur-msg)) - (substring cur-msg 0 (match-end 0)) - (car files))))))) - (completing-read prompt - (let ((i 0)) - (mapcar (function - (lambda (file) - (setq i (+ i 1)) - (list file i) - )) - files) - ) nil nil default) - )) - -;;; modified by OKABE Yasuo -;;; 1995/11/14 (cf. [tm-ja:1096]) -(defun tm-mh-e/query-message (&optional message) - (let (folder number) - (if message - (progn - (setq folder (tm-mh-e::message/folder message)) - (setq number (tm-mh-e::message/number message)) - )) - (or (stringp folder) - (setq folder (mh-prompt-for-folder - "Message from" - (if (and (stringp mh-sent-from-folder) - (string-match "^\\+" mh-sent-from-folder)) - mh-sent-from-folder "+inbox") - nil))) - (setq number - (if (numberp number) - (number-to-string number) - (tm-mh-e/prompt-for-message "Message number: " folder) - )) - (tm-mh-e::make-message folder number) - )) - -(defun tm-mh-e/insert-message (&optional message) - ;; always ignores message - (let ((article-buffer - (if (not (and (stringp mh-sent-from-folder) - (numberp mh-sent-from-msg) - )) - (cond ((and (boundp 'gnus-original-article-buffer) - (bufferp mh-sent-from-folder) - (get-buffer gnus-original-article-buffer) - ) - gnus-original-article-buffer) - ((and (boundp 'gnus-article-buffer) - (get-buffer gnus-article-buffer) - (bufferp mh-sent-from-folder) - ) - (save-excursion - (set-buffer gnus-article-buffer) - (if (eq major-mode 'mime/viewer-mode) - mime::preview/article-buffer - (current-buffer) - ))) - )))) - (if (null article-buffer) - (tm-mh-e/insert-mail - (tm-mh-e::make-message mh-sent-from-folder mh-sent-from-msg) - ) - (insert-buffer article-buffer) - (mime-editor/inserted-message-filter) - ) - )) - -(defun tm-mh-e/insert-mail (&optional message) - (save-excursion - (save-restriction - (let ((message-file - (tm-mh-e::message/file-name (tm-mh-e/query-message message)))) - (narrow-to-region (point) (point)) - (insert-file-contents message-file) - (push-mark (point-max)) - (mime-editor/inserted-message-filter) - )))) - -(set-alist 'mime-editor/message-inserter-alist - 'mh-letter-mode (function tm-mh-e/insert-message)) -(set-alist 'mime-editor/mail-inserter-alist - 'mh-letter-mode (function tm-mh-e/insert-mail)) -(set-alist 'mime-editor/mail-inserter-alist - 'news-reply-mode (function tm-mh-e/insert-mail)) -(set-alist - 'mime-editor/split-message-sender-alist - 'mh-letter-mode - (function - (lambda (&optional arg) - (interactive "P") - (write-region (point-min) (point-max) - mime-editor/draft-file-name nil 'no-message) - (cond (arg - (pop-to-buffer "MH mail delivery") - (erase-buffer) - (mh-exec-cmd-output mh-send-prog t "-watch" "-nopush" - "-nodraftfolder" - mh-send-args - mime-editor/draft-file-name) - (goto-char (point-max)) ; show the interesting part - (recenter -1) - (sit-for 1)) - (t - (apply 'mh-exec-cmd-quiet t mh-send-prog - (mh-list-to-string - (list "-nopush" "-nodraftfolder" - "-noverbose" "-nowatch" - mh-send-args mime-editor/draft-file-name))))) - ))) - - -;;; @ commands using tm-edit features -;;; - -(defun tm-mh-e/edit-again (msg) - "Clean-up a draft or a message previously sent and make it resendable. -Default is the current message. -The variable mh-new-draft-cleaned-headers specifies the headers to remove. -See also documentation for `\\[mh-send]' function." - (interactive (list (mh-get-msg-num t))) - (catch 'tag - (let* ((from-folder mh-current-folder) - (config (current-window-configuration)) - code-conversion - (draft - (cond ((and mh-draft-folder (equal from-folder mh-draft-folder)) - (let ((name (format "draft-%d" msg))) - (if (get-buffer name) - (throw 'tag (pop-to-buffer name)) - ) - (let ((file-coding-system-for-read *noconv*) - (filename - (mh-msg-filename msg mh-draft-folder) - )) - (set-buffer (get-buffer-create name)) - (insert-file-contents filename) - (setq buffer-file-name filename) - (setq code-conversion t) - ) - (pop-to-buffer name) - (if (re-search-forward "\\(^$\\|^-+$\\)" nil t) - (replace-match "") - ) - name)) - (t - (prog1 - (let ((file-coding-system-for-read *noconv*)) - (mh-read-draft "clean-up" (mh-msg-filename msg) nil) - ) - (setq code-conversion t) - )))) - ) - (goto-char (point-min)) - (mh-clean-msg-header (point-min) mh-new-draft-cleaned-headers nil) - (if code-conversion - (let ((cs (code-detect-region (point-min)(point-max)))) - (set-file-coding-system - (if (listp cs) - (car cs) - cs)) - )) - (save-buffer) - (mime/edit-again code-conversion t t) - (goto-char (point-min)) - (mh-compose-and-send-mail draft "" from-folder nil nil nil nil nil nil - config) - ))) - -;;; by OKABE Yasuo -;;; 1996/2/29 (cf. [tm-ja:1643]) -(defun tm-mh-e/extract-rejected-mail (msg) - "Extract a letter returned by the mail system and make it re-editable. -Default is the current message. The variable mh-new-draft-cleaned-headers -gives the headers to clean out of the original message." - (interactive (list (mh-get-msg-num t))) - (let ((from-folder mh-current-folder) - (config (current-window-configuration)) - (draft (mh-read-draft "extraction" (mh-msg-filename msg) nil))) - (setq buffer-read-only nil) - (goto-char (point-min)) - (cond - ((and - (re-search-forward - (concat "^\\($\\|[Cc]ontent-[Tt]ype:[ \t]+multipart/\\)") nil t) - (not (bolp)) - (re-search-forward "boundary=\"\\([^\"]+\\)\"" nil t)) - (let ((case-fold-search t) - (boundary (buffer-substring (match-beginning 1) (match-end 1)))) - (cond - ((re-search-forward - (concat "^--" boundary "\n" - "content-type:[ \t]+" - "\\(message/rfc822\\|text/rfc822-headers\\)\n" - "\\(.+\n\\)*\n") nil t) - (delete-region (point-min) (point)) - (mh-clean-msg-header (point-min) mh-new-draft-cleaned-headers nil) - (search-forward - (concat "\n--" boundary "--\n") nil t) - (delete-region (match-beginning 0) (point-max))) - (t - (message "Seems no message/rfc822 part."))))) - ((re-search-forward mh-rejected-letter-start nil t) - (skip-chars-forward " \t\n") - (delete-region (point-min) (point)) - (mh-clean-msg-header (point-min) mh-new-draft-cleaned-headers nil)) - (t - (message "Does not appear to be a rejected letter."))) - (goto-char (point-min)) - (if (re-search-forward "^-+$" nil t) - (replace-match "") - ) - (mime/edit-again nil t t) - (goto-char (point-min)) - (set-buffer-modified-p nil) - (mh-compose-and-send-mail draft "" from-folder msg - (mh-get-header-field "To:") - (mh-get-header-field "From:") - (mh-get-header-field "Cc:") - nil nil config))) - -;;; by OKABE Yasuo -;;; 1995/11/14 (cf. [tm-ja:1099]) -(defun tm-mh-e/forward (to cc &optional msg-or-seq) - "Forward a message or message sequence as MIME message/rfc822. -Defaults to displayed message. If optional prefix argument provided, -then prompt for the message sequence. See also documentation for -`\\[mh-send]' function." - (interactive (list (mh-read-address "To: ") - (mh-read-address "Cc: ") - (if current-prefix-arg - (mh-read-seq-default "Forward" t) - (mh-get-msg-num t) - ))) - (or msg-or-seq - (setq msg-or-seq (mh-get-msg-num t))) - (let* ((folder mh-current-folder) - (config (current-window-configuration)) - ;; uses "draft" for compatibility with forw. - ;; forw always leaves file in "draft" since it doesn't have -draft - (draft-name (expand-file-name "draft" mh-user-path)) - (draft (cond ((or (not (file-exists-p draft-name)) - (y-or-n-p "The file `draft' exists. Discard it? ")) - (mh-exec-cmd "comp" - "-noedit" "-nowhatnowproc" - "-form" tm-mh-e/forwcomps - "-nodraftfolder") - (prog1 - (mh-read-draft "" draft-name t) - (mh-insert-fields "To:" to "Cc:" cc) - (set-buffer-modified-p nil))) - (t - (mh-read-draft "" draft-name nil))))) - (let ((msubtype "digest") - orig-from orig-subject multipart-flag - (tag-regexp - (concat "^" - (regexp-quote (mime-make-tag "message" "rfc822")))) - ) - (goto-char (point-min)) - (save-excursion - (save-restriction - (goto-char (point-max)) - (if (not (bolp)) (insert "\n")) - (let ((beg (point))) - (narrow-to-region beg beg) - (mh-exec-cmd-output "pick" nil folder msg-or-seq) - (if (> (count-lines (point) (point-max)) 1) - (setq multipart-flag t) - ) - (while (re-search-forward "^\\([0-9]+\\)\n" nil t) - (let ((forw-msg - (buffer-substring (match-beginning 1) (match-end 1))) - (beg (match-beginning 0)) - (end (match-end 0)) - ) - (save-restriction - (narrow-to-region beg end) - ;; modified for Emacs 18 - (delete-region beg end) - (insert-file-contents - (mh-expand-file-name forw-msg - (mh-expand-file-name folder)) - ) - (save-excursion - (push-mark (point-max)) - (mime-editor/inserted-message-filter)) - (goto-char (point-max)) - ) - (save-excursion - (goto-char beg) - (mime-editor/insert-tag "message" "rfc822") - ))) - (delete-region (point) (point-max)) - (if multipart-flag - (mime-editor/enclose-region "digest" beg (point)) - )))) - (re-search-forward tag-regexp) - (forward-line 1) - (save-restriction - (narrow-to-region (point) (point-max)) - (setq orig-from (mime-eword/decode-string - (mh-get-header-field "From:"))) - (setq orig-subject (mime-eword/decode-string - (mh-get-header-field "Subject:"))) - ) - (let ((forw-subject - (mh-forwarded-letter-subject orig-from orig-subject))) - (mh-insert-fields "Subject:" forw-subject) - (goto-char (point-min)) - (re-search-forward tag-regexp) - (forward-line -1) - (delete-other-windows) - (if (numberp msg-or-seq) - (mh-add-msgs-to-seq msg-or-seq 'forwarded t) - (mh-add-msgs-to-seq (mh-seq-to-msgs msg-or-seq) 'forwarded t)) - (mh-compose-and-send-mail draft "" folder msg-or-seq - to forw-subject cc - mh-note-forw "Forwarded:" - config))))) - -(cond ((not (featurep 'mh-utils)) - (defun tm-mh-e::insert-letter (folder number verbatim) - (mh-insert-letter verbatim folder number) - ) - ) - ((and (boundp 'mh-e-version) - (string-lessp mh-e-version "5")) - (defun tm-mh-e::insert-letter (folder number verbatim) - (mh-insert-letter number folder verbatim) - ) - ) - (t - (defalias 'tm-mh-e::insert-letter 'mh-insert-letter) - )) - -(defun tm-mh-e/insert-letter (verbatim) - "Interface to mh-insert-letter." - (interactive "P") - (let* - ((folder (mh-prompt-for-folder - "Message from" - (if (and (stringp mh-sent-from-folder) - (string-match "^\\+" mh-sent-from-folder)) - mh-sent-from-folder "+inbox") - nil)) - (number (tm-mh-e/prompt-for-message "Message number: " folder))) - (tm-mh-e::insert-letter folder number verbatim))) - -(defun tm-mh-e/yank-cur-msg-with-no-filter () - "Insert the current message into the draft buffer. -This function makes new show-buffer from article-buffer to disable -variable `mime-viewer/plain-text-preview-hook'. If you don't want to -use text filters for replying message, please set it to -`tm-mh-e/message-yank-function'. -Prefix each non-blank line in the message with the string in -`mh-ins-buf-prefix'. The entire message will be inserted if -`mh-yank-from-start-of-msg' is non-nil. If this variable is nil, the -portion of the message following the point will be yanked. If -`mh-delete-yanked-msg-window' is non-nil, any window displaying the -yanked message will be deleted." - (interactive) - (if (and mh-sent-from-folder mh-sent-from-msg) - (let ((to-point (point)) - (to-buffer (current-buffer))) - (set-buffer mh-sent-from-folder) - (if mh-delete-yanked-msg-window - (delete-windows-on mh-show-buffer)) - (set-buffer mh-show-buffer) ; Find displayed message - (let ((mh-ins-str - (let (mime-viewer/plain-text-preview-hook buf) - (prog1 - (save-window-excursion - (set-buffer mime::preview/article-buffer) - (setq buf (mime/viewer-mode)) - (buffer-string) - ) - (kill-buffer buf))))) - (set-buffer to-buffer) - (save-restriction - (narrow-to-region to-point to-point) - (push-mark) - (insert mh-ins-str) - (mh-insert-prefix-string mh-ins-buf-prefix) - (insert "\n")))) - (error "There is no current message"))) - -(defun tm-mh-e/yank-current-message () - "Insert the current message into the draft buffer. -It uses variable `tm-mh-e/message-yank-function' -to select message yanking function." - (interactive) - (let ((mh-sent-from-folder mh-sent-from-folder) - (mh-sent-from-msg mh-sent-from-msg)) - (if (and (not (stringp mh-sent-from-folder)) - (boundp 'gnus-article-buffer) - (get-buffer gnus-article-buffer) - (bufferp mh-sent-from-folder) - ) ; might be called from GNUS - (if (boundp 'gnus-article-copy) ; might be sgnus - (save-excursion - (gnus-copy-article-buffer) - (setq mh-sent-from-folder gnus-article-copy) - (set-buffer mh-sent-from-folder) - (setq mh-show-buffer gnus-article-copy) - ) - (save-excursion - (setq mh-sent-from-folder gnus-article-buffer) - (set-buffer gnus-article-buffer) - (setq mh-show-buffer (current-buffer)) - ))) - (funcall tm-mh-e/message-yank-function) - )) - -(substitute-key-definition - 'mh-yank-cur-msg 'tm-mh-e/yank-current-message mh-letter-mode-map) -(substitute-key-definition - 'mh-insert-letter 'tm-mh-e/insert-letter mh-letter-mode-map) - - -;;; @ end -;;; - -(provide 'tmh-comp) -(require 'tm-mh-e) - -;;; tmh-comp.el ends here diff --git a/mh-e/tmh-els b/mh-e/tmh-els deleted file mode 100644 index 025b5e6..0000000 --- a/mh-e/tmh-els +++ /dev/null @@ -1,26 +0,0 @@ -;;; -*-Emacs-Lisp-*- -;;; -;;; $Id: tmh-els,v 2.0 1996/06/27 15:39:16 morioka Exp $ -;;; - -(require 'mh-e) - -(setq tm-mh-e-modules - (append - '("tm-mh-e" "tmh-comp") - (if (not (featurep 'mh-utils)) - '("tm-mh-e3") - ) - )) - -(setq tm-mh-e-el-files - (mapcar (function (lambda (module) - (concat module ".el") - )) - tm-mh-e-modules)) - -(setq tm-mh-e-elc-files - (mapcar (function (lambda (module) - (concat module ".elc") - )) - tm-mh-e-modules)) diff --git a/mime-setup.el b/mime-setup.el deleted file mode 100644 index 816c708..0000000 --- a/mime-setup.el +++ /dev/null @@ -1,134 +0,0 @@ -;;; -;;; mime-setup.el --- setup file for tm viewer and composer. -;;; -;;; Copyright (C) 1995 Free Software Foundation, Inc. -;;; Copyright (C) 1994 .. 1996 MORIOKA Tomohiko -;;; -;;; Author: MORIOKA Tomohiko -;;; Version: -;;; $Id: mime-setup.el,v 7.14 1996/02/14 09:15:36 morioka Exp $ -;;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word -;;; -;;; This file is part of tm (Tools for MIME). -;;; -;;; This program is free software; you can redistribute it and/or -;;; modify it under the terms of the GNU General Public License as -;;; published by the Free Software Foundation; either version 2, or -;;; (at your option) any later version. -;;; -;;; This program is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;;; General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with This program. If not, write to the Free Software -;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;; -;;; Code: - -(require 'tm-setup) - -(autoload 'mime/editor-mode "tm-edit" - "Minor mode for editing MIME message." t) -(autoload 'mime/decode-message-header "tm-ew-d" - "Decode MIME encoded-words in message header." t) - -(defun mime-setup-decode-message-header () - (save-excursion - (save-restriction - (goto-char (point-min)) - (narrow-to-region - (point-min) - (if (re-search-forward - (concat "^" (regexp-quote mail-header-separator) "$") - nil t) - (match-beginning 0) - (point-max) - )) - (mime/decode-message-header) - (set-buffer-modified-p nil) - ))) - -(add-hook 'mime/editor-mode-hook 'mime-setup-decode-message-header) - - -;;; @ variables -;;; - -(defvar mime-setup-use-sc nil) -(defvar mime-setup-use-signature t) -(defvar mime-setup-default-signature-key "\C-c\C-s") -(defvar mime-setup-signature-key-alist '((mail-mode . "\C-c\C-w"))) - - -;;; @ for signature -;;; - -(defun mime-setup-set-signature-key () - (let ((key (or (cdr (assq major-mode mime-setup-signature-key-alist)) - mime-setup-default-signature-key))) - (define-key (current-local-map) key (function insert-signature)) - )) - -(if mime-setup-use-signature - (progn - (autoload 'insert-signature "signature" "Insert signature" t) - (add-hook 'mime/editor-mode-hook 'mime-setup-set-signature-key) - (setq gnus-signature-file nil) - (setq mail-signature nil) - )) - - -;;; @ about SuperCite -;;; - -(if mime-setup-use-sc - (require 'sc-setup) - ) - - -;;; @ for RMAIL and VM -;;; - -(add-hook 'mail-setup-hook 'mime/decode-message-header) -(add-hook 'mail-setup-hook 'mime/editor-mode 'append) -(add-hook 'mail-send-hook 'mime-editor/maybe-translate) - - -;;; @ for mh-e -;;; - -(defun mime-setup-mh-draft-setting () - (mime/editor-mode) - (make-local-variable 'mail-header-separator) - (setq mail-header-separator "--------") - (save-excursion - (goto-char (point-min)) - (setq buffer-read-only nil) - (if (re-search-forward "^-*$" nil t) - (progn - (replace-match mail-header-separator) - (set-buffer-modified-p (buffer-modified-p)) - )) - )) - -(add-hook 'mh-letter-mode-hook 'mime-setup-mh-draft-setting t) -(add-hook 'mh-before-send-letter-hook 'mime-editor/maybe-translate) - - -;;; @ for GNUS -;;; - -(add-hook 'news-reply-mode-hook 'mime/editor-mode) -(add-hook 'news-inews-hook 'mime-editor/maybe-translate) - - -;;; @ end -;;; - -(provide 'mime-setup) - -(run-hooks 'mime-setup-load-hook) - -;;; mime-setup.el ends here diff --git a/mk-tm b/mk-tm deleted file mode 100644 index c3fa123..0000000 --- a/mk-tm +++ /dev/null @@ -1,188 +0,0 @@ -;;; -*-Emacs-Lisp-*- -;;; -;;; $Id: mk-tm,v 7.7 1996/02/27 21:24:06 morioka Exp $ -;;; - -(setq load-path (append - (mapcar (function - (lambda (path) - (expand-file-name path (getenv "PWD")) - )) - '("." "../tl/" "../mel/") - ) - load-path)) - -(require 'tl-misc) - -;; Please specify VM path. -(add-path "vm-5.95beta/" 'all-paths) - -;; Please specify Mailcrypt path. -(add-path "mailcrypt-3.4/" 'all-paths) - -;; Please specify BBDB path. -(add-path "bbdb-1.50/" 'all-paths) - - -(setq tm-modules - (cons - (cond ((boundp 'NEMACS) - "tm-nemacs" - ) - ((boundp 'MULE) - "tm-mule" - ) - (t - "tm-orig" - )) - '("signature" - "tm-def" - "tm-ew-d" "tm-parse" "tm-view" "tm-play" "tm-partial" - "tm-rich" - "tm-latex" "tm-html" "tm-tar" "tm-file" - "tm-ew-e" - "tm-edit" - "tm-rmail" "tm-mail" - "tm-setup" "mime-setup" - ))) - -(setq tm-uncompile-el-files '("sc-setup.el")) - -(if (file-installed-p "ange-ftp.el") - (setq tm-modules (append tm-modules '("tm-ftp"))) - (setq tm-uncompile-el-files - (append tm-uncompile-el-files '("tm-ftp.el"))) - ) - -(if (file-installed-p "vm.elc") - (setq tm-modules (append tm-modules '("tm-vm"))) - (setq tm-uncompile-el-files - (append tm-uncompile-el-files '("tm-vm.el"))) - ) - -(if (catch 'tag - (let ((paths load-path) path) - (while paths - (setq path (expand-file-name "mailcrypt.el" (car paths))) - (if (file-exists-p path) - (throw 'tag path) - ) - (setq paths (cdr paths)) - ))) - (setq tm-modules (append tm-modules '("tm-pgp"))) - (setq tm-uncompile-el-files - (append tm-uncompile-el-files '("tm-pgp.el"))) - ) - -(if (catch 'tag - (let ((paths load-path) path) - (while paths - (setq path (expand-file-name "bbdb.el" (car paths))) - (if (file-exists-p path) - (throw 'tag path) - ) - (setq paths (cdr paths)) - ))) - (setq tm-modules (append tm-modules '("tm-bbdb"))) - (setq tm-uncompile-el-files - (append tm-uncompile-el-files '("tm-bbdb.el"))) - ) - -(if (and (file-exists-p "tm-evs.el") - (or (boundp 'MULE) - (boundp 'NEMACS)) - ) - (setq tm-modules (append tm-modules '("tm-evs"))) - ) - -(if (string-match "XEmacs" emacs-version) - (setq tm-modules (append tm-modules '("tm-image"))) - (if (boundp 'MULE) - (if (catch 'tag - (let ((paths load-path) path) - (while paths - (setq path (expand-file-name "bitmap.el" (car paths))) - (if (file-exists-p path) - (throw 'tag path) - ) - (setq paths (cdr paths)) - ))) - (setq tm-modules (append tm-modules '("tm-image"))) - (setq tm-uncompile-el-files - (append tm-uncompile-el-files '("tm-image.el"))) - ))) - -(setq tm-el-files - (mapcar (function (lambda (module) - (concat module ".el") - )) - tm-modules)) - -(setq tm-elc-files - (mapcar (function (lambda (module) - (concat module ".elc") - )) - tm-modules)) - -(defun compile-tm () - ;; (require 'gnus) - (require 'tm-rich) - (require 'mel-u) - (require 'tm-edit) - (load "rmailsum") - (mapcar (function - (lambda (module) - (let ((el-file (concat module ".el")) - (elc-file (concat module ".elc")) - ) - (if (file-newer-than-file-p el-file elc-file) - (byte-compile-file el-file) - ) - ))) - tm-modules) - ) - -(defconst el-file-mode (+ (* 64 6)(* 8 4) 4)) - -(defun install-el (path file) - (let ((full-path (expand-file-name file path))) - (if (file-exists-p full-path) - (set-file-modes full-path el-file-mode) - ) - (copy-file file full-path t t) - (princ (format "%s -> %s\n" file path)) - )) - -(defun install-el-files (path &rest files) - (mapcar (function (lambda (file) - (if (file-exists-p file) - (install-el path file) - ))) - files)) - -(defun install-elc (path file) - (let ((full-path (expand-file-name file path))) - (copy-file file full-path t t) - (delete-file file) - (princ (format "%s -> %s\n" file path)) - )) - -(defun install-elc-files (path &rest files) - (mapcar (function (lambda (file) - (if (file-exists-p file) - (install-elc path file) - ))) - files)) - -(defun install-tm () - (let ((path (car command-line-args-left))) - (princ (format "%s\n" emacs-version)) - (if (not (file-exists-p path)) - (make-directory path t) - ) - (apply (function install-el-files) path - (append tm-el-files tm-uncompile-el-files) - ) - (apply (function install-elc-files) path tm-elc-files) - (setq command-line-args-left (cdr command-line-args-left)) - )) diff --git a/ol2.c b/ol2.c deleted file mode 100644 index 3190414..0000000 --- a/ol2.c +++ /dev/null @@ -1,76 +0,0 @@ -/* - * This program `ol2' is a converter - * from a text for outline-mode of GNU Emacs to normal text. - * This is a filter. So, input is `stdin', output is `stdout'. - * - * Copyright 1992, Timtia Software. - * - * This program is Copyfree. - */ - -#include - -main() -{ - unsigned char depth=0, offset=1; - - for(;;){ - char str[256], *cp; - unsigned short section[255]; - unsigned char d; - unsigned short i; - unsigned short code; - - if(gets(str)==NULL) break; - - for(d=0, cp=str; ;d++){ - if(*cp++!='*') break; - } - if(*--cp==' ') cp++; - if(d==0){ - puts(str); - } - else if(d==1){ - if(d>depth){ - depth=d; - section[0]=0; - } - else if(d==depth){ - section[0]++; - } - else{ - depth=d; - section[0]++; - } - code=0xa3b0+section[0]+offset; - printf("%c%c %s\n", code>>8,code&0xff, cp); - } - else if(d==depth){ - section[depth-1]++; - for(i=0; idepth){ - for(i=0; i `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 index dca39f1..0000000 --- a/rel-6jp.ol +++ /dev/null @@ -1,171 +0,0 @@ -* tm/Makefile - - Emacs 19.* (Mule 2.*) $B$G$O!"(Btm $B$N(B {byte-compile | install} $B$r9T$&:](B -$B$K!"(Btm-mh-e, tm-gnus $B$N(B {byte-compile | install} $B$b9T$$$^$9!#(B - - -* tm-comp - -** message/rfc822 - - MUA $B$,J]B8$7$F$$$k(B message $B$r(B message/rfc822 $B7A<0$G$O(B tm-comp/insert-message $B$G!"I8=`$N(B key bind $B$O(B C-c -C-x m $B$G$9!#(B - - $B4X?t(B tm-comp/insert-message $B$O(B MUA $BKh$N(B message-inserter $B4X?t$rI,MW(B -$B$H$7$^$9!#(Bmessage-inserter $B$OJQ?t(B tm-comp/message-inserter-alist $B$KEP(B -$BO?$5$l$^$9!#$3$NJQ?t$O!"(Bmajor-mode $B$,(B key $B$G!"$=$l$KBP$9$kCM$,(B -message-inserter $B4X?t$G$"$kO"A[%j%9%H9=B$$r$7$F$$$^$9!#(B - - $B8=:_$N$H$3$m!"(Btm-mh-e $B$N$_!"$3$N5!G=$r$J$I$,JQ99(B -$B$5$l$F$$$^$9!#0J2<$G$O!"(Btm-view 5.21 $B$+$i$N$7!"%G!<%?9=B$$rJQ99$7$?!#6qBNE*$K$O!"=>Mh!"(B - - content-list = (Ba Ea Children) - - $BC"$7!"(B - Ba: article buffer $B$G$N$3$N(B content $B$N@hF,(B point - Ea: article buffer $B$G$N$3$N(B content $B$NKvHx(B point - Children: $B$3$N(B content $B$K4^$^$l$k(B content $B$N>pJs!#(B - content-list $B$rMWAG$H$9$k(B list $B$GI=$7!"(B - multipart $B$N(B content $B$G$J$$>l9g$O(B nil $B$,F~$k(B - -$B$H$$$&(B list $B$GI=8=$7$F$$$?$N$r!"(B - - content-info - = [point-min point-max type parameters encoding children] - - $BC"$7!"(B - point-min: article buffer $B$G$N$3$N(B content $B$N@hF,(B - point - point-max: article buffer $B$G$N$3$N(B content $B$NKvHx(B - point$B!J(BEa $B$H$O0[$J$j!"(Bpoint-min $B$H(B - point-max $B$G:n$i$l$k(B region $B$,$=$N(B content - $B$K$J$k$h$&$K$J$C$F$$$k!#(Bpoint-max = Ea + 1 - $B$N4X78$,@.$jN)$D!K(B - type: $B$3$N(B content $B$N(B content-type/subtype - parameters: $B$3$N(B content $B$N(B Content-Type field $B$N(B - paraeter $B$rI=$9O"A[%j%9%H(B - encoding: $B$3$N(B content $B$N(B Content-Transfer-Encoding. - children: $B$3$N(B content $B$K4^$^$l$k(B content $B$N>pJs!#(B - content-info $B$rMWAG$H$9$k(B list $B$GI=$7!"(B - multipart $B$N(B content $B$G$J$$>l9g$O(B nil $B$,F~$k(B - -$B$H$$$&(B vector $B$GI=8=$9$k$h$&$K$7$?!#(B - - $B$^$?!"=>Mh!"(Blist $B=hM}4X?t$r;H$C$FD>@\(B list $B$r@8@.!&;2>H$7$F$$$?$N$r!"(B -$B@8@.4X?t(B mime::make-content-info, $B;2>H4X?t(B mime::content-info/FOO (FOO -= {point-min|point-max|type|parameters|encoding|children}) $B$r;H$&$h$&(B -$B$K$7$?!#(B - - $B$^$?!"=>Mh!"(BContent-Type, Content-Transfer-Encoding field $B$N>pJs$r$$(B -$B$A$$$A(B buffer $B$r8!:w$7$F5a$a$F$$$?$N$r!"(Bcontent-info $B$r;2>H$9$k$h$&$K(B -$B$7$?!#(B - -*** preview-content-info - - preview buffer $B$K$*$$$F!"(Bmessage $B$K4^$^$l$k(B content $B$N9=B$$r5-21$9$k(B -buffer local $BJQ?t(B mime/preview-flat-content-list $B$r(B -mime::preview/content-list $B$K2~L>$7!"%G!<%?9=B$$rJQ99$7$?!#6qBNE*$K$O!"(B -$B=>Mh!"(B - - (Bp Ep buf Ba Ea) - - $BC"$7!"(B - Bp: preview buffer $B$G$N$3$N(B content $B$N@hF,(B point - Ep: preview buffer $B$G$N$3$N(B content $B$NKvHx(B point - buf: $B$3$N(B content $B$KBP1~$9$k(B article buffer - Ba: article buffer $B$G$N$3$N(B content $B$N@hF,(B point - Ea: article buffer $B$G$N$3$N(B content $B$NKvHx(B point - -$B$H$$$&(B list $B$GI=8=$7$F$$$?$N$r!"(B - - [Bp Ep buf cinfo] - - $BC"$7!"(B - Bp: preview buffer $B$G$N$3$N(B content $B$N@hF,(B point - Ep: preview buffer $B$G$N$3$N(B content $B$NKvHx(B point - buf: $B$3$N(B content $B$KBP1~$9$k(B article buffer - cinfo: $B$3$N(B content $B$rI=$9(B content-info - -$B$H$$$&(B vector $B$GI=8=$9$k$h$&$K$7$?!#(B - - $B$^$?!"=>Mh!"(Blist $B=hM}4X?t$r;H$C$FD>@\(B list $B$r@8@.!&;2>H$7$F$$$?$N$r!"(B -$B@8@.4X?t(B mime::make-preview-content-info, $B;2>H4X?t(B -mime::preview-content-info/FOO (FOO = {Bp|Ep|buf|cinfo}) $B$r;H$&$h$&$K(B -$B$7$?!#(B - - -*** $B$=$NB>(B - -$B!&(Bparser $B$rJQ99$7$?(B - -$B!&L?L>5,B'$rJQ99$7$?(B - -$B!&(Barticle buffer $B$N(B buffer local $BJQ?t(B mime/preview-buffer $B$r(B - mime::article/preview-buffer $B$K2~L>$7$?!#(B - -$B!&4X?t(B mime/exit-view-mode $B$r(B mime-viewer/kill-buffer $B$K2~L>$7$?!#(B - -$B!&(Bmime/viewer-mode $B$N3F4X?t$r(B mime/FOO $B$+$i(B mime-viewer/FOO $B$K2~L>$7$?!#(B - $B!JNc!'(Bmime/up-content $B"*(B mime-viewer/up-content$B!K(B - -$B!&4X?t(B mime/quit-view-mode $B$r(B mime-viewer/quit $B$K2~L>$7$?!#(B - -$B!&$=$NB>(B - - -** $B$NJQ99(B - -(1) $BJQ?t(B mime/content-filter-alist $B$r(B mime-viewer/content-filter-alist - $B$K2~L>$7$?!#(B - -(2) $BJQ?t(B mime/make-content-subject-function $B$r(B - mime-viewer/content-subject-function $B$K2~L>$7!"0z?t$rJQ99$7$?!#(B - -(3) $BJQ?t(B mime/make-content-header-filter $B$r(B - mime-viewer/content-header-filter-function $B$K2~L>$7!"0z?t$rJQ99$7(B - $B$?!#(B - -(4) $BJQ?t(B mime/default-showing-Content-Type-list $B$r(B - mime-viewer/default-showing-Content-Type-list $B$K2~L>$7$?!#(B - -(5) $BJQ?t(B mime/go-to-top-node-method-alist $B$r(B - mime-viewer/quitting-method-alist $B$K2~L>$7$?!#$^$?!"(Bsymbol $BL>$d;E(B - $BMM$NJQ99$K$H$b$J$$!"=i4|@_Dj$rJQ99$7$?!#(B - - -** $B?7$7$$JQ?t(B - -*** $BJQ?t(B mime-viewer/childrens-header-showing-Content-Type-list - - $B;R6!$N(B header $B$rI=<($9$Y$-(B content-type/subtype $B$N(B list. - - $B$3$NJQ?t$O!"JQ?t(B mime-viewer/content-header-filter-function $B$N4{DjCM(B -$B$H$7$FDj5A$5$l$F$$$k4X?t(B -mime-viewer/default-content-header-filter-function $B$,;2>H$7$F$$$k$N$G!"(B -$B$b$7!"JQ?t(B mime-viewer/content-header-filter-function $B$NCM$rJL$N4X?t$K(B -$B$9$l$PL58z$K$J$k!#(B - - -*** $BJQ?t(B mime-viewer/ignored-field-list - - header $B$rI=<($9$k>l9g$G$bI=<($7$J$$(B field $B$N(B field-name $B$N(B list. - - $B$3$NJQ?t$O!"JQ?t(B mime-viewer/content-header-filter-function $B$N4{DjCM(B -$B$H$7$FDj5A$5$l$F$$$k4X?t(B -mime-viewer/default-content-header-filter-function $B$,;2>H$7$F$$$k$N$G!"(B -$B$b$7!"JQ?t(B mime-viewer/content-header-filter-function $B$NCM$rJL$N4X?t$K(B -$B$9$l$PL58z$K$J$k!#(B diff --git a/rel-7jp.ol b/rel-7jp.ol deleted file mode 100644 index e0a2033..0000000 --- a/rel-7jp.ol +++ /dev/null @@ -1,67 +0,0 @@ -* tm-view - - tm-view $B$N(B preview buffer $B$KBP$9$kI=<($r@_Dj$9$k$?$a$N5!9=$,JQ99$5$l(B -$B$?!#$^$?!"(Bcharset $B$K$h$k(B code $BJQ49$r9MN8$7$F(B major-mode $BKh$K(B filter $B$r(B -$B@ZBX$($l$k$h$&$K$7$?!#(B - -** content subject - -*** $BJQ?t(B mime-viewer/content-subject-omitting-Content-Type-list - - $B$3$NJQ?t(B (list) $B$K@_Dj$5$l$?(B content-type $B$N(B content subject $B$OI=<((B -$B$5$l$J$$!#(B - -*** $B4X?t(B mime-viewer/default-content-subject-function - - $B0z?t$,JQ99$5$l$F$$$k$N$GCm0U!#(B - -*** $BJQ?t(B mime-viewer/content-subject-function - - $B$3$NJQ?t$K!"4X?t(B mime-viewer/default-content-subject-function $B0J30$N(B -$B4X?t$r@_Dj$7$?>l9g!"JQ?t(B -mime-viewer/content-subject-omitting-Content-Type-list $B$NM-8z@-$OJ]>Z(B -$B$5$l$J$$$N$GCm0U$9$k$3$H!#(B - - -** content header - - $B4X?t(B mime-viewer/header-visible-p $B$,(B t $B$K$J$k(B content $B$N(B content -header $B$,I=<($5$l$k!#$3$N>r7o$rJQ$($?$$>l9g$O!"$3$N4X?t$r:FDj5A$9$k$3(B -$B$H!#I8=`$G$O!"JQ?t(B -mime-viewer/childrens-header-showing-Content-Type-list $B$r;2>H$9$k$,:F(B -$BDj5A$7$?>l9g!"$3$NJQ?t$NM-8z@-$OJ]>Z$5$l$J$$$N$GCm0U$9$k$3$H!#(B - - content header $B$,I=<($5$l$k>l9g!"(Bcontent-header-filter $B$K$h$C$F@07A(B -$B$5$l$k!#8F$P$l$k(B content-header-filter $B$O(B article buffer $B$N(B major-mode -$B$r(B key $B$H$7$FJQ?t(B mime-viewer/content-header-filter-alist $B$+$iC5$5$l$k!#(B -$B$b$7!"$3$NJQ?t$KEPO?$5$l$F$$$J$+$C$?>l9g!"4X?t(B -mime-viewer/default-content-header-filter $B$,8F$P$l$k!#(B - - -** content body - - $B$"$k(B content $B$N(B body $B$rI=<($9$k$+$I$&$+$O!"4X?t(B -mime-viewer/body-visible-p $B$,(B t $B$K$J$k$+$I$&$+$G7h$^$k!#I8=`$G$O!"JQ?t(B -mime-viewer/default-showing-Content-Type-list $B$KB8:_$7$F$$$k(B content -type $B$N(B content $B$,I=<($5$l$k!#(B - - body $B$,I=<($5$l$k;~!"(Bcontent-filter $B$K$h$C$F@07A$5$l$k!#8F$P$l$k(B -content-filter $B$O(B article buffer $B$N(B major-mode $B$r(B key $B$H$7$FJQ?t(B -mime-viewer/content-filter-alist $B$+$iC5$5$l$k!#$b$7!"$3$NJQ?t$KEPO?$5(B -$B$l$F$$$J$+$C$?>l9g!"4X?t(B mime-viewer/default-content-filter $B$,8F$P$l$k!#(B - - $B=>Mh!"(Bcontent filter $B$O(B header $B$b@07A$7$F$$$?$,!"(Bbody $B$N$_$N@07A$K2~(B -$B$a$i$l$?$N$GCm0U$9$k$3$H!#(B - - -** content separator - - content $B$N:G8e$K(B content separator $B$H$$$&$b$N$rI=<($G$-$k$h$&$K$7$?!#(B -$B$3$l$O!"4X?t(B mime-viewer/default-content-separator $B$K$h$C$FI=<($5$l$k!#(B -$BI8=`$G$O!"(Bheader $B$b(B body $B$bI=<($5$l$J$$>l9g$N$_!"2~9T$rF~$l$k$3$H$K$7(B -$B$F$$$k!#JQ99$7$?$$>l9g$O!"$3$N4X?t$r:FDj5A$9$k$3$H!#(B - - -* tm-mh-e - - charset $B$K$h$k(B code $BJQ49$r9T$J$&$h$&$K$7$?!#(B diff --git a/richtext.el b/richtext.el deleted file mode 100644 index 62da059..0000000 --- a/richtext.el +++ /dev/null @@ -1,183 +0,0 @@ -;;; -;;; richtext.el -- read and save files in text/richtext format -;;; -;;; Copyright (C) 1995 Free Software Foundation, Inc. -;;; Copyright (C) 1995 MORIOKA Tomohiko -;;; -;;; Author: MORIOKA Tomohiko -;;; Created: 1995/7/15 -;;; Version: -;;; $Id: richtext.el,v 3.0 1995/11/22 11:36:06 morioka Exp $ -;;; Keywords: wp, faces, MIME, multimedia -;;; -;;; This file is part of GNU Emacs. -;;; -;;; GNU Emacs is free software; you can redistribute it and/or modify -;;; it under the terms of the GNU General Public License as published by -;;; the Free Software Foundation; either version 2, or (at your option) -;;; any later version. -;;; -;;; GNU Emacs is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;;; GNU General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with GNU Emacs; see the file COPYING. If not, write to -;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. - -(require 'enriched) - - -;;; @ variables -;;; - -(defconst richtext-initial-annotation - (lambda () - (format "Content-Type: text/richtext\nText-Width: %d\n\n" - (enriched-text-width))) - "What to insert at the start of a text/richtext file. -If this is a string, it is inserted. If it is a list, it should be a lambda -expression, which is evaluated to get the string to insert.") - -(defconst richtext-annotation-regexp - "[ \t\n]*\\(<\\(/\\)?\\([-A-za-z0-9]+\\)>\\)[ \t\n]*" - "Regular expression matching richtext annotations.") - -(defconst richtext-translations - '((face (bold-italic "bold" "italic") - (bold "bold") - (italic "italic") - (underline "underline") - (fixed "fixed") - (excerpt "excerpt") - (default ) - (nil enriched-encode-other-face)) - (invisible (t "comment")) - (left-margin (4 "indent")) - (right-margin (4 "indentright")) - (justification (right "flushright") - (left "flushleft") - (full "flushboth") - (center "center")) - ;; The following are not part of the standard: - (FUNCTION (enriched-decode-foreground "x-color") - (enriched-decode-background "x-bg-color")) - (read-only (t "x-read-only")) - (unknown (nil format-annotate-value)) -; (font-size (2 "bigger") ; unimplemented -; (-2 "smaller")) -) - "List of definitions of text/richtext annotations. -See `format-annotate-region' and `format-deannotate-region' for the definition -of this structure.") - - -;;; @ encoder -;;; - -(defun richtext-encode (from to) - (if enriched-verbose (message "Richtext: encoding document...")) - (save-restriction - (narrow-to-region from to) - (delete-to-left-margin) - (unjustify-region) - (goto-char from) - (format-replace-strings '(("<" . ""))) - (format-insert-annotations - (format-annotate-region from (point-max) richtext-translations - 'enriched-make-annotation enriched-ignore)) - (goto-char from) - (insert (if (stringp enriched-initial-annotation) - richtext-initial-annotation - (funcall richtext-initial-annotation))) - (enriched-map-property-regions 'hard - (lambda (v b e) - (goto-char b) - (if (eolp) - (while (search-forward "\n" nil t) - (replace-match "\n") - ))) - (point) nil) - (if enriched-verbose (message nil)) - ;; Return new end. - (point-max))) - - -;;; @ decoder -;;; - -(defun richtext-next-annotation () - "Find and return next text/richtext annotation. -Return value is \(begin end name positive-p), or nil if none was found." - (catch 'tag - (while (re-search-forward richtext-annotation-regexp nil t) - (let* ((beg0 (match-beginning 0)) - (end0 (match-end 0)) - (beg (match-beginning 1)) - (end (match-end 1)) - (name (downcase (buffer-substring - (match-beginning 3) (match-end 3)))) - (pos (not (match-beginning 2))) - ) - (cond ((equal name "lt") - (delete-region beg end) - (goto-char beg) - (insert "<") - ) - ((equal name "comment") - (if pos - (throw 'tag (list beg0 end name pos)) - (throw 'tag (list beg end0 name pos)) - ) - ) - (t - (throw 'tag (list beg end name pos)) - )) - )))) - -(defun richtext-decode (from to) - (if enriched-verbose (message "Richtext: decoding document...")) - (save-excursion - (save-restriction - (narrow-to-region from to) - (goto-char from) - (let ((file-width (enriched-get-file-width)) - (use-hard-newlines t) pc nc) - (enriched-remove-header) - - (goto-char from) - (while (re-search-forward "\n\n+" nil t) - (replace-match "\n") - ) - - ;; Deal with newlines - (goto-char from) - (while (re-search-forward "[ \t\n]*[ \t\n]*" nil t) - (replace-match "\n") - (put-text-property (match-beginning 0) (point) 'hard t) - (put-text-property (match-beginning 0) (point) 'front-sticky nil) - ) - - ;; Translate annotations - (format-deannotate-region from (point-max) richtext-translations - 'richtext-next-annotation) - - ;; Fill paragraphs - (if (or (and file-width ; possible reasons not to fill: - (= file-width (enriched-text-width))) ; correct wd. - (null enriched-fill-after-visiting) ; never fill - (and (eq 'ask enriched-fill-after-visiting) ; asked & declined - (not (y-or-n-p "Re-fill for current display width? ")))) - ;; Minimally, we have to insert indentation and justification. - (enriched-insert-indentation) - (if enriched-verbose (message "Filling paragraphs...")) - (fill-region (point-min) (point-max)))) - (if enriched-verbose (message nil)) - (point-max)))) - - -;;; @ end -;;; - -(provide 'richtext) diff --git a/signature-jp.ol b/signature-jp.ol deleted file mode 100644 index 795362b..0000000 --- a/signature-jp.ol +++ /dev/null @@ -1,35 +0,0 @@ -$B!X(Bsignature.el $B@bL@=q!Y(B -by. $B2,It(B $Bl9g$O(B .emacs $B$K0J2<$N$h$&$J$b(B -$B$N$rF~$l$F2<$5$$!#(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 - - $B$^$?!"(B*insert-signature* $B$K?t0z?t$rM?$($k$3$H$K$h$j!"BPOCE*$K(B -`signature-file-name'-DISTRIBUTION $B$N7A$NL>A0$r;}$D%U%!%$%k$r;XDj(B -$B$9$k$3$H$,$G$-$^$9!#Nc$($P(B `C-u C-c C-s'(*insert-signature*) $B$H(B -$BF~NO$9$k$H!"%_%K%P%C%U%!$G(B - - Insert your signature: ~/.signature- - -$B$HJ9$$$F$-$^$9$N$G!"@ZBXMQ$KMQ0U$5$l$?%U%!%$%k$N$J$+$+$i!"5a$a$k$b$N$r(B -$B%3%s%W%j!<%7%g%s$r;H$C$FMQ0U$KA*Br$9$k$3$H$,$G$-$^$9!#6uJ8;zNs$r(B -$BF~NO$9$l$P!"(B`signature-file-name' $B$G;XDj$5$l$k%U%!%$%k$,FI$_9~$^$l$^$9!#(B diff --git a/signature-jp.tex b/signature-jp.tex deleted file mode 100644 index ed7b800..0000000 --- a/signature-jp.tex +++ /dev/null @@ -1,56 +0,0 @@ -\documentstyle[a4j]{jarticle} -\setcounter{secnumdepth}{6} -\setcounter{tocdepth}{6} -\topsep=0.1cm -\parsep=0.1cm -\itemsep=0.0cm -\begin{document} -\title{ -signature.el ÀâÌÀ½ñ} -\author{ -²¬Éô ¼÷ÃË\\ -} -\date{ -1994ǯ8·î1Æü} -\maketitle -\medskip -\par -signature.el ¤Ï signature ¤Î¼«Æ°ÀÚÂؤ¨ tool ¤Ç¤¹¡£*insert-signature* -¤ò¹Ô¤¦¤³¤È¤Ë¤è¤ê¡¢`signature-insert-at-eof' ¤ÎÃͤ¬ non-nil ¤Î¤È¤­¥Ð¥Ã -¥Õ¥¡¤ÎËöÈø¤Ë¡¢nil ¤Î¤È¤­¤Ï¥«¥ì¥ó¥È¥Ý¥¤¥ó¥È¤Ë¡¢signature ¥Õ¥¡¥¤¥ë¤¬ÆÉ¤ß -¹þ¤Þ¤ì¤Þ¤¹¡£É¸½àŪ¤Êsignature ¤Ï¡¢ÊÑ¿ô `signature-file-name' ¤Ç»ØÄꤷ -¤Æ²¼¤µ¤¤(¥Ç¥Õ¥©¥ë¥ÈÃÍ¤Ï "\verb+~+/.signature")¡£message header ¤Î field ¤Ë¹ç -¤ï¤»¤Æ signature ¤Î¼«Æ°ÀÚÂؤò¹Ô¤Ê¤¤¤¿¤¤¾ì¹ç¤Ï .emacs ¤Ë°Ê²¼¤Î¤è¤¦¤Ê¤â -¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£ -\medskip -{\baselineskip=10pt -\begin{verbatim} ----------------------------------------------------------------------- -(setq signature-file-alist - '( - (("Newsgroups" . "jokes") . "~/.signature-jokes") - (("Newsgroups" . ("zxr" "nzr")) . "~/.signature-sun") - (("To" . ("ishimaru" "z-suzuki")) . "~/.signature-sun") - (("To" . "tea") . "~/.signature-jokes") - (("To" . ("sim" "oku" "takuo")) . "~/.signature-formal") - )) ----------------------------------------------------------------------- -\end{verbatim}} -\medskip -\par -¤Þ¤¿¡¢*insert-signature* ¤Ë¿ô°ú¿ô¤òÍ¿¤¨¤ë¤³¤È¤Ë¤è¤ê¡¢ÂÐÏÃŪ¤Ë -`signature-file-name'-DISTRIBUTION ¤Î·Á¤Î̾Á°¤ò»ý¤Ä¥Õ¥¡¥¤¥ë¤ò»ØÄê -¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£Î㤨¤Ð `C-u C-c C-s'(*insert-signature*) ¤È -ÆþÎϤ¹¤ë¤È¡¢¥ß¥Ë¥Ð¥Ã¥Õ¥¡¤Ç -\medskip -{\list{}{\leftmargin=4ex}\item[] -\begin{description} -\item[Insert your signature:]\verb+~+/.signature- -\medskip -\end{description} -\endlist} -\par -¤Èʹ¤¤¤Æ¤­¤Þ¤¹¤Î¤Ç¡¢ÀÚÂØÍѤËÍÑ°Õ¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤Î¤Ê¤«¤«¤é¡¢µá¤á¤ë¤â¤Î¤ò -¥³¥ó¥×¥ê¡¼¥·¥ç¥ó¤ò»È¤Ã¤ÆÍÑ°Õ¤ËÁªÂò¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¶õʸ»úÎó¤ò -ÆþÎϤ¹¤ì¤Ð¡¢`signature-file-name' ¤Ç»ØÄꤵ¤ì¤ë¥Õ¥¡¥¤¥ë¤¬Æɤ߹þ¤Þ¤ì¤Þ¤¹¡£ -\end{document} diff --git a/src/tmpgp b/src/tmpgp deleted file mode 100755 index f43e0ce..0000000 --- a/src/tmpgp +++ /dev/null @@ -1,4 +0,0 @@ -#!/bin/sh -output=$1 -shift -pgp $* | mmencode -b -o $output diff --git a/tiny-mime-eng.ol b/tiny-mime-eng.ol deleted file mode 100644 index 47421ab..0000000 --- a/tiny-mime-eng.ol +++ /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 index 2fbb020..0000000 --- a/tiny-mime-eng.tex +++ /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 index 2b5368d..0000000 --- a/tiny-mime-jp.ol +++ /dev/null @@ -1,260 +0,0 @@ -$B!X(Btiny-mime.el $B@bL@=q!Y(B -by. $Be$GF0:n$9$k(B MIME message -header $B$N(B encoder/decoder $B$G$9!#%*%j%8%J%k$O!"@N!"$($J$_(B $B$D$0$H$b(B $B$5$s(B -$B$,(B fj.editor.emacs $B$KEj9F$5$l$?(B MIME message header $B$N(B decoder $B$G$9!#(B - - $B8=:_$G$O!"Ev;~$N$b$N$KHf$Y!"(B - - $B!&(Bdecoding $B;~$K$*$1$k(B unfolding $B5!G=(B - $B!&(BISO-2022-JP $B$K2C$(!"(BISO-8859-*, US-ASCII $B$J$I$N(B encoding/decoding - $B!&(BQ-encoding $B$N(B decoding - -$B$H$$$C$?5!G=$r;}$C$F$$$^$9!#(B - - -* tiny-mime.el $B$N%5%]!<%H$9$k(B character set, encoding - - tiny-mime.el $B$O!"e$G!"(B - - M-x mime/decode-message-header - -$B$re$G!"(B - - M-x mime/encode-message-header - -$B$rl9g!"(Btiny-mime.el $B$,(B encode $B$7$J$/$F$b!"(B -mime.el $B$,(B encode $B$9$k$N$G!"(Bmime.el $B$N(B message header encoder $B$,F/$+$J(B -$B$$$h$&$K$K@_Dj$7$^$9!#(B - -** mime/use-X-Nsubject - - $B$3$NJQ?t$NCM$,(B t $B$N>l9g!"(Bmessage header $B$r(B encode $B$9$k;~!"(Bencode $B$7(B -$B$?7k2L!"(BSubject $B$K(B encoded-word $B$,4^$^$l$k>l9g!"(BSubject $B$r(B decode $B$7$?(B -$B$b$N$rF~$l$?(B X-Nsubject $B$r:n@.$7$^$9!#(B - - default $B$G$O(B nil $B$,;XDj$5$l$F$$$^$9!#(B - -$B!NCm0U!O(BMule $B$G(B ISO-2022-JP $B$K4^$^$l$k$b$N0J30$NJ8;z=89g$r;H$&>l9g$O!"(B -$B$3$l$r;XDj$7$J$$J}$,8-L@$G$9!#(B - -** mail-header-separator - - $B4X?t(B mime/encode-message-header $B$K$*$1$k(B message header $B$H(B body part -$B$N6h@Z$j$rI=$9JQ?t$G$9!#Nc$($P!"(BGNUS $B$G$O(B "--text follows this line--" -$B$,;XDj$5$l$^$9!#(B - -$B!NCm0U!O$3$NJQ?t$NJ8;zNs$O!"(Bversion 2.6 $B$h$j@55,I=8=$G$O$J$/$J$j$^$7$?!#(B - - -* mailer, news reader $B$X$NAH$_9~$_(B - - $BF|>oE*$K!"L50U<1$K(B MIME header $B$rK\Mh$N8@8l$G8+$?$$$H$$$&$N$OEvA3$N(B -$BM_5a$G$9!#$=$3$G!"(Btiny-mime.el $B$r(B mailer $B$d(B news reader $B$KAH$_9~$`$H<+(B -$BF0E*$K(B MIME header $B$N(B encode/decode $B$,$G$-$^$9!#(B - - $B$^$?!"(Bmetamail $B$r;H$C$F$*$i$l$kJ}$G$b!"IaCJ$O(B message header $B$N(B -decode $B$@$1$GNI$/$F!"3($d2;$J$I$r:F@8$9$k;~$@$1(B metamail $B$r;H$&$H$$$&(B -$B$h$&$J;H$$J}$b$G$-$^$9!#(B - - $B$3$NL\E*$rl9g$N$?$a$K!"(B - - (mime/decode-string $BJ8;zNs(B) - -$B$H$$$&4X?t$bMQ0U$7$F$$$^$9!#(B - - GNUS $B$H(B mh-e $B$K4X$7$F$O!"(Btm-gnus, tm-mh-e $B$H$$$&(B MIME $BBP1~2=%b%8%e!<(B -$B%k$rMQ0U$7$F$$$^$9!#(B - - $B$3$l$i$N!"3F(B MUA $B$KBP1~$9$k%b%8%e!<%k$r(B load $B$9$k$H(B tiny-mime.el $B$K(B -$B$h$k(B MIME header $B$NI|85$H(B tm-body $B$rMxMQ$7$?(B MIME body $B$N:F@8$,9T$J$((B -$B$^$9!#(B - - $B>\$7$/$O!"$=$l$>$l$N@bL@=q$r$*FI$_2<$5$$!#(B - - -* mime.el $B$H$NJ;MQ(B - - mime.el $B$HJ;MQ$9$kNc$r<($7$^$9!#$3$NNc$N>l9g!"(BISO-2022-JP $BJ8;zNs$N(B -encode $B$O(B tiny-mime.el $B$,9T$J$$!"$=$l0J30$NJ8;z=89g$KB0$9$kJ8;zNs$O(B -mime.el $B$,(B encode $B$7$^$9!#(B - - $B$^$?!"(Btiny-mime.el $B$,(B encode $B$7$J$+$C$?J8;zNs$b(B mime.el $B$,(B encode $B$9(B -$B$k$N$G!"7k2LE*$K!"I,$:A4$F$N(B field $B$,(B encode $B$5$l$k$3$H$KCm0U$7$F2<$5(B -$B$$!#(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 $B$N(B encoder $B$r(B tiny-mime $B$N$b$N$r;H$&!#(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 - -** $BFCDj$N(B field $B$r(B encode $B$7$?$/$J$$>l9g(B - - $BFCDj$N(B field $B$r(B encode $B$7$?$/$J$$>l9g!"(Btiny-mime.el $B$NJQ?t(B -mime/no-encoding-header-fields $B$K$h$C$F!"(Btiny-mime.el $B$K$h$k(B encode $B$r(B -$B$d$a$k$3$H$,$G$-$^$9$,!"(Bmime.el $B$,(B encode $B$9$k$N$G$O0UL#$,$"$j$^$;$s!#(B -$B$=$3$G!"l9g$O!"(Bnil $B$r;XDj$9$k!#(B - charset: MIME $B$N(B charset. - encoding: encode $B$9$k:]$N(B encoding. - - - $BNc!'(B KS C5601-1987 $B$r(B EUC-KR $B$N(B B encoding $B$9$k$h$&$K@_Dj$9$k(B - - (mime/set-charset-and-encoding lc-kr *euc-kr* "EUC-KR" "B") - - - $BNc!'(B koi8-r $B$r(B Q encoding $B$9$k$h$&$K@_Dj$9$k!#(B - - (mime/set-charset-and-encoding lc-prv11 nil "KOI8-R" "Q") - - -$B!NCm0U!O8=:_$N$H$3$m!"(Bprivate character $B$N@_Dj$OFq$"$j$G$9!#(B(^_^; diff --git a/tiny-mime-jp.tex b/tiny-mime-jp.tex deleted file mode 100644 index 3beb18b..0000000 --- a/tiny-mime-jp.tex +++ /dev/null @@ -1,353 +0,0 @@ -\documentstyle[a4j]{jarticle} -\setcounter{secnumdepth}{6} -\setcounter{tocdepth}{6} -\topsep=0.1cm -\parsep=0.1cm -\itemsep=0.0cm -\begin{document} -\title{ -tiny-mime.el ÀâÌÀ½ñ} -\author{ -¼é²¬ ÃÎɧ\\ -} -\date{ -1994ǯ7·î27Æü} -\maketitle -\medskip -\par -¤³¤ÎÀâÌÀ½ñ¤Ï ol2 ¤È plain2 ¤òÍѤ¤¤ë¤³¤È¤Ë¤è¤Ã¤Æ LaTeX ·Á¼°¤ËÊÑ´¹¤¹¤ë -¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ -\medskip -\medskip - -\section{tiny-mime.el ¤È¤Ï} -\medskip -\par -tiny-mime.el ¤Ï Mule, NEmacs, NEpoch ¾å¤ÇÆ°ºî¤¹¤ë MIME message -header ¤Î encoder/decoder ¤Ç¤¹¡£¥ª¥ê¥¸¥Ê¥ë¤Ï¡¢ÀΡ¢¤¨¤Ê¤ß ¤Ä¤°¤È¤â ¤µ¤ó -¤¬ fj.editor.emacs ¤ËÅê¹Æ¤µ¤ì¤¿ MIME message header ¤Î decoder ¤Ç¤¹¡£ -\medskip -\par -¸½ºß¤Ç¤Ï¡¢Åö»þ¤Î¤â¤Î¤ËÈæ¤Ù¡¢ -\medskip -\begin{itemize} -\item decoding »þ¤Ë¤ª¤±¤ë unfolding µ¡Ç½ -\item ISO-2022-JP ¤Ë²Ã¤¨¡¢ISO-8859-*, US-ASCII ¤Ê¤É¤Î encoding/decoding -\item Q-encoding ¤Î decoding -\medskip -\end{itemize} -\par -¤È¤¤¤Ã¤¿µ¡Ç½¤ò»ý¤Ã¤Æ¤¤¤Þ¤¹¡£ -\medskip -\medskip - -\section{tiny-mime.el ¤Î¥µ¥Ý¡¼¥È¤¹¤ë character set, encoding} -\medskip -\par -tiny-mime.el ¤Ï¡¢¼¡¤Î character set, encoding ¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£ -\medskip - -\subsection{Mule} -\medskip -\par -ISO-2022-JP, US-ASCII, ISO-8859-1..9, ISO-2022-CN, ISO-2022-KR, -EUC-KR ¤Ê¤É¤Î encoding/decoding ¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£¤Þ¤¿¡¢´Ø¿ô -mime/set-charset-and-encoding ¤ÇÄɲá¦Êѹ¹¤¬¤Ç¤­¤Þ¤¹¡£ -\medskip - -\subsection{NEmacs, NEpoch} -\medskip -\par -ISO-2022-JP, US-ASCII ¤Î encoding/decoding ¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£ -\medskip -\par -¤Þ¤¿¡¢ISO-8859-*¤Ç¤¢¤Ã¤Æ¤â¡¢encoded-text ¤Ë´Þ¤Þ¤ì¤ëʸ»úÎó¤¬¼ÂºÝ¤Ë¤Ï -ASCII ¤Çɽ¤»¤ëÈϰϤʤéɽ¼¨¤·¤Þ¤¹¡£ -\medskip -\medskip - -\section{tiny-mime.el ¤Î´Êñ¤Ê»È¤¤Êý} -\medskip - -\subsection{decode} -\medskip -\par -tiny-mime.el ¤ò load ¤·¤Æ¡¢decode ¤·¤¿¤¤ buffer ¾å¤Ç¡¢ -\medskip -{\list{}{\leftmargin=8ex}\item[] -\par -M-x mime/decode-message-header -\endlist} -\medskip -\par -¤ò¼Â¹Ô¤·¤Þ¤¹¡£ -\medskip -\par -¤Þ¤¿¡¢decode ¤·¤¿¤¤ region ¤ò -\medskip -{\baselineskip=10pt -\begin{verbatim} - M-x mime/decode-region -\end{verbatim}} -\medskip -\par -¤Ç decode ¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£°úÍÑ¤Ê¤É¤Ç body-part ¤Ë»Ä¤Ã¤¿ -encoded-word ¤ò decode ¤¹¤ë¤Î¤ËÊØÍø¤Ç¤·¤ç¤¦¡£ -\medskip - -\subsection{encode} -\medskip -\par -tiny-mime.el ¤ò load ¤·¤Æ¡¢encode ¤·¤¿¤¤ buffer ¾å¤Ç¡¢ -\medskip -{\list{}{\leftmargin=8ex}\item[] -\par -M-x mime/encode-message-header -\endlist} -\medskip -\par -¤ò¼Â¹Ô¤·¤Þ¤¹¡£ -\medskip -\medskip - -\section{tiny-mime.el ¤ÎÊÑ¿ô} -\medskip - -\subsection{mime/no-encoding-header-fields} -\medskip -\par -tiny-mime.el ¤Ç encode ¤·¤Ê¤¤ message header ¤Î field ¤ò»ØÄꤷ¤Þ¤¹¡£ -\medskip -\par -default ¤Ç¤Ï X-Nsubject ¤¬»ØÄꤵ¤ì¤Æ¤¤¤Þ¤¹¡£ -\medskip -\par -Î㡧 X-Nsubject ¤È Subject ¤ò encode ¤·¤Ê¤¤¤è¤¦¤Ë¤¹¤ë¡£ -\medskip -{\baselineskip=10pt -\begin{verbatim} ----------------------------------------------------------------------- -(setq mime/no-encoding-header-fields '("X-Nsubject" "Subject")) ----------------------------------------------------------------------- -\end{verbatim}} -\medskip -\par -¡ÎÃí°Õ¡Ï mime.el ¤ÈÊ»ÍѤ¹¤ë¾ì¹ç¡¢tiny-mime.el ¤¬ encode ¤·¤Ê¤¯¤Æ¤â¡¢ -mime.el ¤¬ encode ¤¹¤ë¤Î¤Ç¡¢mime.el ¤Î message header encoder ¤¬Æ¯¤«¤Ê -¤¤¤è¤¦¤Ë¤ËÀßÄꤷ¤Þ¤¹¡£ -\medskip - -\subsection{mime/use-X-Nsubject} -\medskip -\par -¤³¤ÎÊÑ¿ô¤ÎÃͤ¬ t ¤Î¾ì¹ç¡¢message header ¤ò encode ¤¹¤ë»þ¡¢encode ¤· -¤¿·ë²Ì¡¢Subject ¤Ë encoded-word ¤¬´Þ¤Þ¤ì¤ë¾ì¹ç¡¢Subject ¤ò decode ¤·¤¿ -¤â¤Î¤òÆþ¤ì¤¿ X-Nsubject ¤òºîÀ®¤·¤Þ¤¹¡£ -\medskip -\par -default ¤Ç¤Ï nil ¤¬»ØÄꤵ¤ì¤Æ¤¤¤Þ¤¹¡£ -\medskip -\par -¡ÎÃí°Õ¡ÏMule ¤Ç ISO-2022-JP ¤Ë´Þ¤Þ¤ì¤ë¤â¤Î°Ê³°¤Îʸ»ú½¸¹ç¤ò»È¤¦¾ì¹ç¤Ï¡¢ -¤³¤ì¤ò»ØÄꤷ¤Ê¤¤Êý¤¬¸­ÌÀ¤Ç¤¹¡£ -\medskip - -\subsection{mail-header-separator} -\medskip -\par -´Ø¿ô mime/encode-message-header ¤Ë¤ª¤±¤ë message header ¤È body part -¤Î¶èÀÚ¤ê¤òɽ¤¹ÊÑ¿ô¤Ç¤¹¡£Î㤨¤Ð¡¢GNUS ¤Ç¤Ï "--text follows this line--" -¤¬»ØÄꤵ¤ì¤Þ¤¹¡£ -\medskip -\par -¡ÎÃí°Õ¡Ï¤³¤ÎÊÑ¿ô¤Îʸ»úÎó¤Ï¡¢version 2.6 ¤è¤êÀµµ¬É½¸½¤Ç¤Ï¤Ê¤¯¤Ê¤ê¤Þ¤·¤¿¡£ -\medskip -\medskip - -\section{mailer, news reader ¤Ø¤ÎÁȤ߹þ¤ß} -\medskip -\par -Æü¾ïŪ¤Ë¡¢Ìµ°Õ¼±¤Ë MIME header ¤òËÜÍè¤Î¸À¸ì¤Ç¸«¤¿¤¤¤È¤¤¤¦¤Î¤ÏÅöÁ³¤Î -Íßµá¤Ç¤¹¡£¤½¤³¤Ç¡¢tiny-mime.el ¤ò mailer ¤ä news reader ¤ËÁȤ߹þ¤à¤È¼« -ưŪ¤Ë MIME header ¤Î encode/decode ¤¬¤Ç¤­¤Þ¤¹¡£ -\medskip -\par -¤Þ¤¿¡¢metamail ¤ò»È¤Ã¤Æ¤ª¤é¤ì¤ëÊý¤Ç¤â¡¢ÉáÃÊ¤Ï message header ¤Î -decode ¤À¤±¤ÇÎɤ¯¤Æ¡¢³¨¤ä²»¤Ê¤É¤òºÆÀ¸¤¹¤ë»þ¤À¤± metamail ¤ò»È¤¦¤È¤¤¤¦ -¤è¤¦¤Ê»È¤¤Êý¤â¤Ç¤­¤Þ¤¹¡£ -\medskip -\par -¤³¤ÎÌÜŪ¤ò¼Â¸½¤¹¤ë¤Ë¤Ï¡¢mailer ¤ä news reader ¤ÎŬÀÚ¤Ê hook ¤Ë -mime/decode-message-header ¤òÆþ¤ì¤ì¤ÐÎɤ¤¤Ç¤·¤ç¤¦¡£¤Þ¤¿¡¢Ê¸»úÎó¤Î -decode ¤ò¤·¤¿¤¤¾ì¹ç¤Î¤¿¤á¤Ë¡¢ -\medskip -{\list{}{\leftmargin=8ex}\item[] -\par -(mime/decode-string ʸ»úÎó) -\endlist} -\medskip -\par -¤È¤¤¤¦´Ø¿ô¤âÍÑ°Õ¤·¤Æ¤¤¤Þ¤¹¡£ -\medskip -\par -GNUS ¤È mh-e ¤Ë´Ø¤·¤Æ¤Ï¡¢tm-gnus, tm-mh-e ¤È¤¤¤¦ MIME Âбþ²½¥â¥¸¥å¡¼ -¥ë¤òÍÑ°Õ¤·¤Æ¤¤¤Þ¤¹¡£ -\medskip -\par -¤³¤ì¤é¤Î¡¢³Æ MUA ¤ËÂбþ¤¹¤ë¥â¥¸¥å¡¼¥ë¤ò load ¤¹¤ë¤È tiny-mime.el ¤Ë -¤è¤ë MIME header ¤ÎÉü¸µ¤È tm-body ¤òÍøÍѤ·¤¿ MIME body ¤ÎºÆÀ¸¤¬¹Ô¤Ê¤¨ -¤Þ¤¹¡£ -\medskip -\par -¾Ü¤·¤¯¤Ï¡¢¤½¤ì¤¾¤ì¤ÎÀâÌÀ½ñ¤ò¤ªÆɤ߲¼¤µ¤¤¡£ -\medskip -\medskip - -\section{mime.el ¤È¤ÎÊ»ÍÑ} -\medskip -\par -mime.el ¤ÈÊ»ÍѤ¹¤ëÎã¤ò¼¨¤·¤Þ¤¹¡£¤³¤ÎÎã¤Î¾ì¹ç¡¢ISO-2022-JP ʸ»úÎó¤Î -encode ¤Ï tiny-mime.el ¤¬¹Ô¤Ê¤¤¡¢¤½¤ì°Ê³°¤Îʸ»ú½¸¹ç¤Ë°¤¹¤ëʸ»úÎó¤Ï -mime.el ¤¬ encode ¤·¤Þ¤¹¡£ -\medskip -\par -¤Þ¤¿¡¢tiny-mime.el ¤¬ encode ¤·¤Ê¤«¤Ã¤¿Ê¸»úÎó¤â mime.el ¤¬ encode ¤¹ -¤ë¤Î¤Ç¡¢·ë²ÌŪ¤Ë¡¢É¬¤ºÁ´¤Æ¤Î field ¤¬ encode ¤µ¤ì¤ë¤³¤È¤ËÃí°Õ¤·¤Æ²¼¤µ -¤¤¡£ -\medskip -{\baselineskip=10pt -\begin{verbatim} ----------------------------------------------------------------------- -;;; -;;; for Edit MIME mode -;;; -(autoload 'mime-mode "mime" "Edit MIME message." t) -(autoload 'mime-convert-buffer "mime" "convert to MIME." t) -(autoload 'insert-signature "signature" "Insert signature" t) -(add-hook 'mime-mode-hook - (function - (lambda () - (define-key (current-local-map) - "\C-c\C-s" (function insert-signature)) - ))) - -;; MIME header ¤Î encoder ¤ò tiny-mime ¤Î¤â¤Î¤ò»È¤¦¡£ -(setq mime-translate-hook 'mime/encode-message-header) - -;;; -;;; for GNUS -;;; -(add-hook 'news-reply-mode-hook (function mime-mode)) -(setq gnus-signature-file nil) - -;;; -;;; for mh-e -;;; -(add-hook 'mh-letter-mode-hook - (function - (lambda () - (mime/decode-message-header) - (mime-mode) - (make-local-variable 'mail-header-separator) - (setq mail-header-separator "--------")) - )) ----------------------------------------------------------------------- -\end{verbatim}} -\medskip - -\subsection{ÆÃÄê¤Î field ¤ò encode ¤·¤¿¤¯¤Ê¤¤¾ì¹ç} -\medskip -\par -ÆÃÄê¤Î field ¤ò encode ¤·¤¿¤¯¤Ê¤¤¾ì¹ç¡¢tiny-mime.el ¤ÎÊÑ¿ô -mime/no-encoding-header-fields ¤Ë¤è¤Ã¤Æ¡¢tiny-mime.el ¤Ë¤è¤ë encode ¤ò -¤ä¤á¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¤¬¡¢mime.el ¤¬ encode ¤¹¤ë¤Î¤Ç¤Ï°ÕÌ£¤¬¤¢¤ê¤Þ¤»¤ó¡£ -¤½¤³¤Ç¡¢¼¡¤Î¤è¤¦¤ËÀßÄꤹ¤ë¤³¤È¤Ç¡¢mime.el ¤Ç¤â encode ¤·¤Ê¤¤¤è¤¦¤Ë¤Ç¤­ -¤Þ¤¹¡£ -\medskip -{\baselineskip=10pt -\begin{verbatim} ----------------------------------------------------------------------- -(if (boundp 'MULE) - (progn - (defun mime-header-charset-chooser-for-mule-no-encode-ISO-2022-JP (begin end) - (let ((lclist (find-charset-region begin end))) - (cond ((null lclist) nil) ;US-ASCII requres no encoding. - ((memq lc-ltn1 lclist) - '("ISO-8859-1" . "Q")) - ((memq lc-ltn2 lclist) - '("ISO-8859-2" . "Q")) - ((memq lc-ltn3 lclist) - '("ISO-8859-3" . "Q")) - ((memq lc-ltn4 lclist) - '("ISO-8859-4" . "Q")) - ((memq lc-crl lclist) - '("ISO-8859-5" . "Q")) - ;;((memq lc-arb lclist) - ;; '("ISO-8859-6" . "Q")) - ((memq lc-grk lclist) - '("ISO-8859-7" . "Q")) - ((memq lc-hbw lclist) - '("ISO-8859-8" . "Q")) - ((memq lc-ltn5 lclist) - '("ISO-8859-9" . "Q")) - ((memq lc-jp lclist) nil) - (t ;Unknown charset. It must be Mule! - '("ISO-2022-JP-2" . "B")) - ))) - (setq mime-header-charset-chooser - 'mime-header-charset-chooser-for-mule-no-encode-ISO-2022-JP) - ) - (progn - (defun mime-header-charset-chooser-for-nemacs-no-encode-ISO-2022-JP (begin end)) - (setq mime-header-charset-chooser - 'mime-header-charset-chooser-for-nemacs-no-encode-ISO-2022-JP) - )) ----------------------------------------------------------------------- -\end{verbatim}} -\medskip -\par -Íפ¹¤ë¤Ë¡¢ISO-2022-JP ʸ»úÎó¤Î encode ¤ò mime.el ¤Ë¤µ¤»¤Ê¤¯¤¹¤ëÌõ¤Ç -¤¹¡£ -\medskip -\medskip - -\section{charset ¤ÎÄɲá¦Êѹ¹} -\medskip -\par -Mule ¤Ç¤Ï¡¢´Ø¿ô mime/set-charset-and-encoding ¤Ç¡¢charset ¤ÎÄɲá¦ÊÑ -¹¹¤¬¤Ç¤­¤Þ¤¹¡£ -\medskip -\begin{description} -\item[´Ø¿ô:]mime/set-charset-and-encoding lc cs charset encoding -\medskip -\begin{description} -\item[lc:]charset ¤ËÂбþ¤¹¤ë leading-char ¤ò»ØÄꤹ¤ë¡£ -\item[cs:]charset ¤ËÂбþ¤¹¤ë coding-system ¤ò»ØÄꤹ¤ë¡£1 octet ʸ»ú -½¸¹ç¤Ç coding-system ¤òºî¤é¤Ê¤¤¾ì¹ç¤Ï¡¢nil ¤ò»ØÄꤹ¤ë¡£ -\item[charset:]MIME ¤Î charset. -\item[encoding:]encode ¤¹¤ëºÝ¤Î encoding. -\medskip -\medskip -\end{description} -\end{description} -\par -Î㡧 KS C5601-1987 ¤ò EUC-KR ¤Î B encoding ¤¹¤ë¤è¤¦¤ËÀßÄꤹ¤ë -\medskip -{\list{}{\leftmargin=8ex}\item[] -\par -(mime/set-charset-and-encoding lc-kr *euc-kr* "EUC-KR" "B") -\endlist} -\medskip -\medskip -\par -Î㡧 koi8-r ¤ò Q encoding ¤¹¤ë¤è¤¦¤ËÀßÄꤹ¤ë¡£ -\medskip -{\list{}{\leftmargin=8ex}\item[] -\par -(mime/set-charset-and-encoding lc-prv11 nil "KOI8-R" "Q") -\endlist} -\medskip -\medskip -\par -¡ÎÃí°Õ¡Ï¸½ºß¤Î¤È¤³¤í¡¢private character ¤ÎÀßÄê¤ÏÆñ¤¢¤ê¤Ç¤¹¡£(\verb+^+\_\verb+^+; -\end{document} diff --git a/tiny-mime.el b/tiny-mime.el deleted file mode 100644 index 7bc4bb7..0000000 --- a/tiny-mime.el +++ /dev/null @@ -1,653 +0,0 @@ -;;; -;;; A multilingual MIME message header encoder/decoder. -;;; by Morioka Tomohiko (morioka@jaist.ac.jp) -;;; -;;; original MIME decoder is -;;; mime.el,v 1.5 1992/07/18 07:52:08 by Enami Tsugutomo -;;; - - -;;; @ require modules -;;; - -(require 'emu) -(require 'mel) -(require 'tl-header) -(require 'tl-str) -(require 'tm-def) - - -;;; @ version -;;; - -(defconst mime/RCS-ID - "$Id: tiny-mime.el,v 6.7 1995/09/20 12:17:28 morioka Exp $") - -(defconst mime/tiny-mime-version (get-version-string mime/RCS-ID)) - - -;;; @ MIME encoded-word definition -;;; - -(defconst mime/encoded-text-regexp "[!->@-~]+") -(defconst mime/encoded-word-regexp (concat (regexp-quote "=?") - "\\(" - mime/charset-regexp - "\\)" - (regexp-quote "?") - "\\(B\\|Q\\)" - (regexp-quote "?") - "\\(" - mime/encoded-text-regexp - "\\)" - (regexp-quote "?="))) - -(defun mime/nth-string (s n) - (if (stringp s) - (substring s (match-beginning n) (match-end n)) - (buffer-substring (match-beginning n) (match-end n)))) - -(defun mime/encoded-word-charset (str) - (mime/nth-string str 1)) - -(defun mime/encoded-word-encoding (str) - (mime/nth-string str 2)) - -(defun mime/encoded-word-encoded-text (str) - (mime/nth-string str 3)) - -(defun mime/rest-of-string (str) - (if (stringp str) - (substring str (match-end 0)) - (buffer-substring (match-end 0)(point-max)) - )) - - -;;; @ variables -;;; - -(defvar mime/no-encoding-header-fields '("X-Nsubject" "Newsgroups")) - -(defvar mime/use-X-Nsubject nil) - - -;;; @ Application Interface -;;; - -;;; @@ MIME header decoders -;;; - -(defun mime/decode-encoded-text (charset encoding str) - (let ((dest - (cond ((string= "B" encoding) - (base64-decode-string str)) - ((string= "Q" encoding) - (q-encoding-decode-string str)) - (t (message "unknown encoding %s" encoding) - nil)))) - (if dest - (mime/convert-string-to-emacs charset dest) - ))) - -(defun mime/decode-encoded-word (word) - (or (if (string-match mime/encoded-word-regexp word) - (let ((charset (upcase (mime/encoded-word-charset word))) - (encoding (upcase (mime/encoded-word-encoding word))) - (text (mime/encoded-word-encoded-text word))) - (mime/decode-encoded-text charset encoding text) - )) - word)) - -(defun mime/decode-region (beg end) - (interactive "*r") - (save-excursion - (save-restriction - (narrow-to-region beg end) - (goto-char (point-min)) - (let (charset encoding text) - (while (re-search-forward mime/encoded-word-regexp nil t) - (insert (mime/decode-encoded-word - (prog1 - (buffer-substring (match-beginning 0) (match-end 0)) - (delete-region (match-beginning 0) (match-end 0)) - ) - )) - )) - ))) - -(defun mime/decode-message-header () - (interactive "*") - (save-excursion - (save-restriction - (narrow-to-region (goto-char (point-min)) - (progn (re-search-forward "^$" nil t) (point))) - (mime/prepare-decode-message-header) - (mime/decode-region (point-min) (point-max)) - ))) - -(defun mime/decode-string (str) - (let ((dest "")(ew nil) - beg end) - (while (setq beg (string-match mime/encoded-word-regexp str)) - (if (> beg 0) - (if (not (and (eq ew t) (string= (substring str 0 beg) " "))) - (setq dest (concat dest (substring str 0 beg) - )) - ) - ) - (setq end (match-end 0)) - (setq dest (concat dest - (mime/decode-encoded-word (substring str beg end)) - )) - (setq str (substring str end)) - (setq ew t) - ) - (concat dest str) - )) - -;;; @@ MIME header encoders -;;; - -(defun mime/encode-string (string encoding &optional mode) - (cond ((string= encoding "B") (base64-encode-string string)) - ((string= encoding "Q") (q-encoding-encode-string string mode)) - )) - -(defun mime/encode-field (str) - (setq str (message/unfolding-string str)) - (let ((ret (message/divide-field str)) - field-name field-body) - (setq field-name (car ret)) - (setq field-body (nth 1 ret)) - (concat field-name " " - (cond ((string= field-body "") "") - ((or (string-match "^Reply-To:$" field-name) - (string-match "^From:$" field-name) - (string-match "^Sender:$" field-name) - (string-match "^Resent-Reply-To:$" field-name) - (string-match "^Resent-From:$" field-name) - (string-match "^Resent-Sender:$" field-name) - (string-match "^To:$" field-name) - (string-match "^Resent-To:$" field-name) - (string-match "^cc:$" field-name) - (string-match "^Resent-cc:$" field-name) - (string-match "^bcc:$" field-name) - (string-match "^Resent-bcc:$" field-name) - ) - (mime/encode-address-list - (+ (length field-name) 1) field-body) - ) - (t - (catch 'tag - (let ((r mime/no-encoding-header-fields) fn) - (while r - (setq fn (car r)) - (if (string-match (concat "^" fn ":$") field-name) - (throw 'tag field-body) - ) - (setq r (cdr r)) - )) - (nth 1 (mime/encode-header-string - (+ (length field-name) 1) field-body)) - )) - )) - )) - -(defun mime/exist-encoded-word-in-subject () - (let ((str (message/get-field-body "Subject"))) - (if (and str (string-match mime/encoded-word-regexp str)) - str))) - -(defun mime/encode-message-header () - (interactive "*") - (save-excursion - (save-restriction - (narrow-to-region (goto-char (point-min)) - (progn - (re-search-forward - (concat - "^" (regexp-quote mail-header-separator) "$") - nil t) - (match-beginning 0) - )) - (goto-char (point-min)) - (let (beg end field) - (while (re-search-forward "^.+:.*\\(\n\\s +.*\\)*" nil t) - (setq beg (match-beginning 0)) - (setq end (match-end 0)) - (setq field (buffer-substring beg end)) - (insert (mime/encode-field - (prog1 - (buffer-substring beg end) - (delete-region beg end) - ))) - )) - (if mime/use-X-Nsubject - (let ((str (mime/exist-encoded-word-in-subject))) - (if str - (insert (concat - "\nX-Nsubject: " - (mime/decode-string (message/unfolding-string str)) - ))))) - ))) - - -;;; @ functions for message header encoding -;;; - -(defun mime/encode-and-split-string (n string charset encoding) - (let ((i 0) (j 0) - (len (length string)) - (js (mime/convert-string-from-emacs string charset)) - (cesl (+ (length charset) (length encoding) 6 )) - ewl m rest) - (setq ewl (mime/encoded-word-length js encoding)) - (if (null ewl) nil - (progn - (setq m (+ n ewl cesl)) - (if (> m 76) - (progn - (while (and (< i len) - (setq js (mime/convert-string-from-emacs - (substring string 0 i) charset)) - (setq m (+ n - (mime/encoded-word-length js encoding) - cesl)) - (< m 76)) - (setq j i) - (setq i (+ i (char-bytes (elt string i)))) - ) - (setq js (mime/convert-string-from-emacs - (substring string 0 j) charset)) - (setq m (+ n (mime/encoded-word-length js encoding) cesl)) - (setq rest (substring string j)) - ) - (setq rest nil)) - (if (string= js "") - (list 1 "" string) - (list m (concat "=?" charset "?" encoding "?" - (mime/encode-string js encoding) - "?=") rest)) - )) - )) - -(defun mime/encode-header-word (n string charset encoding) - (let (dest str ret m) - (if (null (setq ret - (mime/encode-and-split-string n string charset encoding))) - nil - (progn - (setq dest (nth 1 ret)) - (setq m (car ret)) - (setq str (nth 2 ret)) - (while (and (stringp str) - (setq ret - (mime/encode-and-split-string - 1 str charset encoding)) - ) - (setq dest (concat dest "\n " (nth 1 ret))) - (setq m (car ret)) - (setq str (nth 2 ret)) - ) - (list m dest) - )) - )) - -(defun mime/encode-header-string (n string &optional mode) - (if (string= string "") - (list n "") - (let ((ssl (mime/separate-string-for-encoder string)) - i len cell et w ew (dest "") b l) - (setq len (length ssl)) - (setq cell (nth 0 ssl)) - (setq et (car cell)) - ;; string-width crashes when the argument is nil, - ;; so replace the argument - ;; (original modification by Kenji Rikitake 9-JAN-1995) - (setq w (or (cdr cell) "")) - (if (eq et nil) - (progn - (if (> (+ n (string-width w)) 76) - (progn - (setq dest (concat dest "\n ")) - (setq b 1) - ) - (setq b n)) - (setq dest (concat dest w)) - (setq b (+ b (string-width w))) - ) - (progn - (setq ew (mime/encode-header-word n (cdr cell) (car et) (cdr et))) - (setq dest (nth 1 ew)) - (setq b (car ew)) - )) - (setq i 1) - (while (< i len) - (setq cell (nth i ssl)) - (setq et (car cell)) - (setq w (cdr cell)) - (cond ((string-match "^[ \t]*$" w) - (setq b (+ b (string-width (cdr cell)))) - (setq dest (concat dest (cdr cell))) - ) - ((eq et nil) - (if (> (+ b (string-width w)) 76) - (progn - (if (eq (elt dest (- (length dest) 1)) 32) - (setq dest (substring dest 0 (- (length dest) 1))) - ) - (setq dest (concat dest "\n " w)) - (setq b (+ (length w) 1)) - ) - (setq l (length dest)) - (if (and (>= l 2) - (eq (elt dest (- l 2)) ?\?) - (eq (elt dest (- l 1)) ?=) - ) - (progn - (setq dest (concat dest " ")) - (setq b (+ b 1)) - )) - (setq dest (concat dest w)) - (setq b (+ b (string-width w))) - )) - (t - (if (not (eq (elt dest (- (length dest) 1)) 32)) - (progn - (setq dest (concat dest " ")) - (setq b (+ b 1)) - )) - (setq ew - (mime/encode-header-word b (cdr cell) (car et) (cdr et))) - (setq b (car ew)) - (if (string-match "^\n" (nth 1 ew)) - (setq dest (concat (substring dest 0 (- (length dest) 1)) - (nth 1 ew))) - (setq dest (concat dest (nth 1 ew))) - ) - )) - (setq i (+ i 1)) - ) - (list b dest) - ))) - -(defun mime/encode-address-list (n str) - (let* ((ret (message/parse-addresses str)) - (r ret) cell en-ret j cl (dest "") s) - (while r - (setq cell (car r)) - (cond ((string= (nth 1 cell) "<") - (setq en-ret (mime/encode-header-string n (nth 0 cell) 'phrase)) - (setq dest (concat dest (nth 1 en-ret))) - (setq n (car en-ret)) - (if (> (length r) 1) - (setq en-ret - (mime/encode-header-string - n (concat (nth 1 cell)(nth 2 cell)(nth 3 cell) ", "))) - (setq en-ret (mime/encode-header-string - n (concat (nth 1 cell)(nth 2 cell)(nth 3 cell)))) - ) - (if (and (eq (elt (nth 1 en-ret) 0) ?\n) - (eq (elt dest (- (length dest) 1)) 32)) - (setq dest (substring dest 0 (- (length dest) 1))) - ) - (setq dest (concat dest (nth 1 en-ret))) - (setq n (car en-ret)) - ) - ((= (length cell) 4) - (setq en-ret (mime/encode-header-string n (nth 0 cell))) - (setq dest (concat dest (nth 1 en-ret))) - (setq n (car en-ret)) - - (setq en-ret (mime/encode-header-string (+ n 2) (nth 2 cell) - 'comment)) - (if (eq (elt (nth 1 en-ret) 0) ?\n) - (progn - (setq dest (concat dest "\n (")) - (setq en-ret (mime/encode-header-string 2 (nth 2 cell) - 'comment)) - ) - (progn - (setq dest (concat dest " (")) - )) - (setq dest (concat dest (nth 1 en-ret))) - (setq n (car en-ret)) - (if (> (length r) 1) - (setq en-ret - (mime/encode-header-string n (concat (nth 3 cell) ", ")) - ) - (setq en-ret (mime/encode-header-string n (nth 3 cell))) - ) - (setq dest (concat dest (nth 1 en-ret))) - (setq n (car en-ret)) - ) - (t - (if (> (length r) 1) - (setq en-ret - (mime/encode-header-string n (concat (nth 0 cell) ", ")) - ) - (setq en-ret (mime/encode-header-string n (nth 0 cell))) - ) - (setq dest (concat dest (nth 1 en-ret))) - (setq n (car en-ret)) - )) - (setq r (cdr r)) - ) - dest)) - - -;;; @ utility for encoder -;;; - -;;; @@ encoded-word length -;;; - -(defun mime/encoded-word-length (string encoding) - (cond ((equal encoding "B") (mime/base64-length string)) - ((equal encoding "Q") (mime/Quoted-Printable-length string)) - (t nil) - )) - -(defun mime/base64-length (string) - (let ((l (length string)) - ) - (* (+ (/ l 3) - (if (= (mod l 3) 0) 0 1) - ) 4) - )) - -(defun mime/Quoted-Printable-length (string &optional mode) - (let ((l 0)(i 0)(len (length string)) chr) - (while (< i len) - (setq chr (elt string i)) - (if (string-match "[A-Za-z0-9!*+/=_---]" (char-to-string chr)) - (setq l (+ l 1)) - (setq l (+ l 3)) - ) - (setq i (+ i 1)) ) - l)) - -;;; @@ separate by character set -;;; - -;; by mol. 1993/11/2 -(defconst LC-space 2) - -;; by mol. 1993/10/16 -(defun mime/char-type (chr) - (if (or (= chr 32)(= chr ?\t)) - LC-space - (get-lc chr) - )) - -(defun mime/separate-string-by-chartype (string) - (let ((len (length string)) - (dest nil) (ds "") s - pcs i j cs chr) - (if (= len 0) nil - (progn - (setq chr (elt string 0)) - (setq pcs (mime/char-type chr)) - (setq i (char-bytes chr)) - (setq ds (substring string 0 i)) - (while (< i len) - (setq chr (elt string i)) - (setq cs (mime/char-type chr)) - (setq j (+ i (char-bytes chr))) - (setq s (substring string i j)) - (setq i j) - (if (= cs pcs) - (setq ds (concat ds s)) - (progn (setq dest (append dest (list (cons pcs ds)))) - (setq pcs cs) - (setq ds s) - )) - ) - (if (not (string= ds "")) - (setq dest (append dest (list (cons pcs ds))))) - dest) - ))) - -(defun mime/separate-string-by-charset (str) - (let ((rl (mime/separate-string-by-chartype str)) - (i 1) len (pcell nil) cell ncell dpcell (dest nil) LC) - (setq len (length rl)) - (setq dpcell (list (nth 0 rl))) - (setq cell (nth 1 rl)) - (setq ncell (nth 2 rl)) - (while (< i len) - (setq LC (car (car dpcell))) - (cond ((and (not (eq LC lc-ascii)) - (eq (car cell) LC-space) - (not (eq (car ncell) lc-ascii))) - (setq dpcell (list (cons LC - (concat (cdr (car dpcell)) (cdr cell)) - ))) - ) - ((and (not (eq LC lc-ascii)) - (eq LC (car cell))) - (setq dpcell (list (cons LC - (concat (cdr (car dpcell)) (cdr cell)) - ))) - ) - ((and (eq LC lc-ascii) - (member (car cell) mime/latin-lc-list)) - (setq dpcell (list (cons (car cell) - (concat (cdr (car dpcell)) (cdr cell)) - ))) - ) - ((and (member LC mime/latin-lc-list) - (eq (car cell) lc-ascii)) - (setq dpcell (list (cons LC - (concat (cdr (car dpcell)) (cdr cell)) - ))) - ) - (t - (setq dest (append dest dpcell)) - (setq dpcell (list cell)) - )) - (setq i (+ i 1)) - (setq cell ncell) - (setq ncell (nth (+ i 1) rl)) - ) - (setq dest (append dest dpcell)) - )) - -(defun mime/separate-string-for-encoder (string) - (let (lastspace) - (if (string-match "[ \t]+$" string) - (progn - (setq lastspace (substring string - (match-beginning 0) - (match-end 0))) - (setq string (substring string 0 (match-beginning 0))) - )) - (let ((rl (mime/separate-string-by-charset string)) - (i 0) len cell0 cell1 cell2 (dest nil)) - (setq len (length rl)) - (setq cell0 (nth 0 rl)) - (setq cell1 (nth 1 rl)) - (setq cell2 (nth 2 rl)) - (while (< i len) - (cond ((and (not (eq (car cell0) lc-ascii)) - (eq (car cell1) LC-space) - (not (eq (car cell2) lc-ascii)) - ) - (setq dest - (append dest (list - (cons - (cdr (assoc (car cell0) - mime/lc-charset-and-encoding-alist)) - (concat (cdr cell0) (cdr cell1)) - )))) - (setq i (+ i 2)) - (setq cell0 (nth i rl)) - (setq cell1 (nth (+ i 1) rl)) - (setq cell2 (nth (+ i 2) rl)) - ) - (t - (setq dest - (append dest (list - (cons - (cdr (assoc (car cell0) - mime/lc-charset-and-encoding-alist)) - (cdr cell0))))) - (setq i (+ i 1)) - (setq cell0 cell1) - (setq cell1 cell2) - (setq cell2 (nth (+ i 2) rl)) - )) - ) - (append dest - (if lastspace - (list (cons nil lastspace)))) - ))) - - - -;;; -;;; basic functions for MIME header decoder -;;; - -;;; @ utility for decoder -;;; - -(defun mime/unfolding () - (goto-char (point-min)) - (let (field beg end) - (while (re-search-forward message/field-name-regexp nil t) - (setq beg (match-beginning 0)) - (setq end (message/field-end)) - (setq field (buffer-substring beg end)) - (if (string-match mime/encoded-word-regexp field) - (save-restriction - (narrow-to-region (goto-char beg) end) - (while (re-search-forward "\n[ \t]+" nil t) - (replace-match " ") - ) - (goto-char (point-max)) - )) - ))) - -(defun mime/prepare-decode-message-header () - (mime/unfolding) - (goto-char (point-min)) - (while (re-search-forward - (concat (regexp-quote "?=") - "\\s +" - (regexp-quote "=?")) - nil t) - (replace-match "?==?") - ) - ) - -(run-hooks 'mime/tiny-mime-load-hook) - -(provide 'tiny-mime) - -;;; @ -;;; Local Variables: -;;; mode: emacs-lisp -;;; mode: outline-minor -;;; outline-regexp: ";;; @+\\|(......" -;;; End: diff --git a/tinyrich.el b/tinyrich.el deleted file mode 100644 index 3929205..0000000 --- a/tinyrich.el +++ /dev/null @@ -1,166 +0,0 @@ -;;; -;;; $Id: tinyrich.el,v 5.0 1995/09/20 14:45:56 morioka Exp $ -;;; -;;; by MORIOKA Tomohiko -;;; modified by YAMATE Keiichirou -;;; - -(defvar mime-viewer/face-list-for-text/enriched - (cond ((and (>= emacs-major-version 19) window-system) - '(bold italic fixed underline) - ) - ((and (boundp 'NEMACS) NEMACS) - '("bold" "italic" "underline") - ))) - -(defun enriched-decode (beg end) - (interactive "*r") - (save-excursion - (save-restriction - (narrow-to-region beg end) - (goto-char beg) - (while (re-search-forward "[ \t]*\\(\n+\\)[ \t]*" nil t) - (let ((str (buffer-substring (match-beginning 1) - (match-end 1)))) - (if (string= str "\n") - (replace-match " ") - (replace-match (substring str 1)) - ))) - (goto-char beg) - (let (cmd sym str (fb (point)) fe b e) - (while (re-search-forward "<\\(<\\|[^<>\n\r \t]+>\\)" nil t) - (setq b (match-beginning 0)) - (setq cmd (buffer-substring b (match-end 0))) - (if (string= cmd "<<") - (replace-match "<") - (replace-match "") - (setq cmd (downcase (substring cmd 1 (- (length cmd) 1)))) - ) - (setq sym (intern cmd)) - (cond ((eq sym 'param) - (setq b (point)) - (save-excursion - (save-restriction - (if (search-forward "" nil t) - (progn - (replace-match "") - (setq e (point)) - ) - (setq e end) - ))) - (delete-region b e) - ) - ((memq sym mime-viewer/face-list-for-text/enriched) - (setq b (point)) - (save-excursion - (save-restriction - (if (re-search-forward (concat "") nil t) - (progn - (replace-match "") - (setq e (point)) - ) - (setq e end) - ))) - (tm:set-face-region b e sym) - ))) - (goto-char (point-max)) - (if (not (eq (preceding-char) ?\n)) - (insert "\n") - ) - )))) - - -;;; @ text/richtext <-> text/enriched converter -;;; - -(defun richtext-to-enriched-region (beg end) - "Convert the region of text/richtext style to text/enriched style." - (save-excursion - (save-restriction - (narrow-to-region beg end) - (goto-char (point-min)) - (let (b e i) - (while (re-search-forward "[ \t]*" nil t) - (setq b (match-beginning 0)) - (delete-region b - (if (re-search-forward "[ \t]*" nil t) - (match-end 0) - (point-max) - )) - ) - (goto-char (point-min)) - (while (re-search-forward "\n\n+" nil t) - (replace-match "\n") - ) - (goto-char (point-min)) - (while (re-search-forward "[ \t\n]*[ \t\n]*" nil t) - (setq b (match-beginning 0)) - (setq e (match-end 0)) - (setq i 1) - (while (looking-at "[ \t\n]*[ \t\n]*") - (setq e (match-end 0)) - (setq i (1+ i)) - (goto-char e) - ) - (delete-region b e) - (while (>= i 0) - (insert "\n") - (setq i (1- i)) - )) - (goto-char (point-min)) - (while (search-forward "" nil t) - (replace-match "<<") - ) - )))) - -(defun enriched-to-richtext-region (beg end) - "Convert the region of text/enriched style to text/richtext style." - (save-excursion - (save-restriction - (goto-char beg) - (and (search-forward "text/enriched") - (replace-match "text/richtext")) - (search-forward "\n\n") - (narrow-to-region (match-end 0) end) - (let (str n) - (goto-char (point-min)) - (while (re-search-forward "\n\n+" nil t) - (setq str (buffer-substring (match-beginning 0) - (match-end 0))) - (setq n (1- (length str))) - (setq str "") - (while (> n 0) - (setq str (concat str "\n")) - (setq n (1- n)) - ) - (replace-match str) - ) - (goto-char (point-min)) - (while (search-forward "<<" nil t) - (replace-match "") - ) - )))) - - -;;; @ encoder and decoder -;;; - -(defun richtext-decode (beg end) - (save-restriction - (narrow-to-region beg end) - (richtext-to-enriched-region beg (point-max)) - (enriched-decode beg (point-max)) - )) - -;; (defun richtext-encode (beg end) -;; (save-restriction -;; (narrow-to-region beg end) -;; (enriched-encode beg (point-max)) -;; (enriched-to-richtext-region beg (point-max)) -;; )) - - -;;; @ end -;;; - -(provide 'tinyrich) diff --git a/tl-18.el b/tl-18.el deleted file mode 100644 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 index fe37fec..0000000 --- a/tl-header.el +++ /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 index 4c2a538..0000000 --- a/tl-list.el +++ /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 . -[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 , replace its cdr by . -If there is not such pair, create new pair ( . ) and -return new alist whose car is the new pair and cdr is . -[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 , delete it from . -[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 index 9ae62fe..0000000 --- a/tl-mule.el +++ /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 index 78bd3b8..0000000 --- a/tl-nemacs.el +++ /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 index 47535c3..0000000 --- a/tl-orig.el +++ /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 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 index b6a09d1..0000000 --- a/tm-body-eng.ol +++ /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 index bb161bf..0000000 --- a/tm-body-eng.tex +++ /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 index 2e0ed5f..0000000 --- a/tm-body-jp.ol +++ /dev/null @@ -1,90 +0,0 @@ -$B!X(Btm-body $B@bL@=q!Y(B -by. $B$C$F(B install $B$r9T$J$C$F2<$5$$!#(B - -** tiny-mime $B$N(B install - - tiny-mime.el $B$r(B Emacs $B$NJQ?t(B load-path $B$G;XDj$5$l$?(B directory $B$K(B -copy $B$7$^$9!#(B - - -** tm-body $B$N(B install - -*** *.el $B$r(B copy $B$9$k(B - - tm-body.el, tl-list.el, tl-header.el $B$r(B Emacs $B$NJQ?t(B load-path $B$G;X(B -$BDj$5$l$?(B directory $B$K(B copy $B$7$^$9!#(B - - -*** method $B$r(B copy $B$9$k(B - - methods/ $B$KF~$C$F$$$k!"3F(B Content-Type $B$KBP1~$9$k(B method $B$r!"<+J,$N(B -$B4D6-$K9g$o$;$F=$@5$7!"(Bpath $B$NDL$C$?(B directory $B$K(B copy $B$7$^$9!#(B - - -*** decode-b.c $B$r(B compile $B$9$k(B - - Base64 decoder $B$G$"$k(B decode-b.c $B$r(B gcc $B$G(B compile $B$7$^$9!#(B - -[[E - % gcc -O decode-b.c -o decode-b -]]E - - $B$=$7$F!"=PMh>e$,$C$?(B decode-b $B$r(B path $B$NDL$C$?(B directory $B$K(B copy $B$7(B -$B$^$9!#(B - - $BC"$7!"B>$N(B decoder$B!JNc$($P!"(Bmetamail $BImB0$N(B mmencode $B$J$I!K$,$"$l$P!"(B -method $BCf$N(B decode-b $B$r$=$N(B decoder $B$GCV$-49$($F$b9=$$$^$;$s!#Nc$($P!"(B -decode-b < $B$r(B mmencode -b -u $B$GCV$-49$($F$_$F(B$B2<$5$$!#(B - - -* $B%+%9%?%^%$%:(B - - .emacs $B$K0J2<$N$h$&$J$b$N$rF~$l$F!"3F(B Content-Type $B$KBP1~$9$k(B method -$B$r;XDj$9$k$3$H$,$G$-$^$9!#(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 - - $B3F(B method $B$O(B shell script $B$G=q$-$^$9!#(Btm-body.el $B$+$iEO$5$l$k0z?t$O(B -$B0J2<$NDL$j$G$9!#(B - ------------------------------------------------------------------------- -|$B0z?t(B| $BCM(B | -======================================================================== -| $1 |decode $BA0$N(B file $BL>(B | -| $2 |Content-Type (type/sub-type) | -| $3 |encoding {7bit / quoted-printable / base64 / 8bit / binary / ...}| -| $4 |decoding-mode {play / extract / print} | -| $5 |file $BL>(B | ------------------------------------------------------------------------- - - $B$^$?!"(Bmessage/partial $B$@$1$O(B tm-body.el $B<+?H$GI|85$7$^$9!#(B - - -* $B@)8B(B - - message/external-body $B$K4X$7$F$O8=:_$N$H$3$m%5%]!<%H$7$F$$$^$;$s!#(B - - $BImB0$N(B BASE64 decoder $B$G$"$k(B decode-b.c $B$O$$$$2C8:$J:n$j$J$N$G!"F0$+(B -$B$J$+$C$?$i!"C;$$%W%m%0%i%`$J$N$G!"0U$r5b$s$G=$@5$7$F2<$5$$!#(B(^_^; - - $B$^$?!"(Bmetamail $BImB0$N(B mmencode $B$r;H$C$F(B decode $B$7$F$bNI$$$G$7$g$&!#(B - - $B$^$?!"(BQuoted-Printable $B$N(B decoder $B$OImB0$7$^$;$s$N$G!"(Bmmencode $B$r;H$C(B -$B$F2<$5$$!#(B diff --git a/tm-body-jp.tex b/tm-body-jp.tex deleted file mode 100644 index 0d5b212..0000000 --- a/tm-body-jp.tex +++ /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 index ad1d61d..0000000 --- a/tm-body.el +++ /dev/null @@ -1,326 +0,0 @@ -;;; -;;; $Id: tm-body.el,v 0.16 1994/08/20 12:38:07 morioka Exp $ -;;; - -(provide 'tm-body) - -(require 'tl-list) -(require 'tl-header) -(require 'tiny-mime) - -(defun replace-as-filename (str) - (let ((dest "") - (i 0)(len (length str)) - chr) - (while (< i len) - (setq chr (elt str i)) - (if (or (and (<= ?+ chr)(<= chr ?.)) - (and (<= ?0 chr)(<= chr ?:)) - (= chr ?=) - (and (<= ?@ chr)(<= chr ?\[)) - (and (<= ?\] chr)(<= chr ?_)) - (and (<= ?a chr)(<= chr ?{)) - (and (<= ?} chr)(<= chr ?~)) - ) - (setq dest (concat dest - (char-to-string chr))) - ) - (setq i (+ i 1)) - ) - dest)) - -(defconst mime/tspecials "\000-\040()<>@,;:\\\"/[\093?.=") -(defconst mime/token-regexp - (concat "[^" mime/tspecials "]*")) -(defconst mime/content-type-subtype-regexp - (concat mime/token-regexp "/" mime/token-regexp)) -(defconst mime/content-parameter-value-regexp - (concat "\\(" - message/quoted-string-regexp - "\\|[^; \t\n]\\)*")) - -(defconst mime/output-buffer-name "*MIME-out*") -(defconst mime/decoding-buffer-name "*MIME-decoding*") - -(defvar mime/content-decoding-method-alist - '(("text/plain" . "tm-plain") - ("text/x-latex" . "tm-latex") - ("audio/basic" . "tm-au") - ("image/gif" . "tm-image") - ("image/jpeg" . "tm-image") - ("image/tiff" . "tm-image") - ("image/x-tiff" . "tm-image") - ("image/x-xbm" . "tm-image") - ("image/x-pic" . "tm-image") - ("video/mpeg" . "tm-mpeg") - ("application/octet-stream" . "tm-file") - )) - -(defvar mime/use-internal-decoder nil) -;;; (setq mime/use-internal-decoder t) - -(defun mime/decode-body () - (interactive) - (if (get-buffer mime/output-buffer-name) - (kill-buffer mime/output-buffer-name)) - (save-excursion - (save-restriction - (goto-char (point-min)) - (let ((ctype (mime/Content-Type "^$")) - (encoding (mime/Content-Transfer-Encoding "^$" "7bit")) - ) - (if ctype - (cond ((equal (car ctype) "multipart/mixed") - (mime/decode-multipart/mixed ctype encoding) - ) - ((equal (car ctype) "message/partial") - (mime/decode-message/partial ctype encoding) - ) - (t - (mime/decode-content nil (car ctype) encoding - (mime/get-name ctype)) - )) - ))))) - -(defun mime/decode-multipart/mixed (ctype default-encoding) - (let ((boundary (cdr (assoc "boundary" (cdr ctype)))) - encoding b) - (if (eq (elt boundary 0) ?\") - (setq boundary - (substring boundary 1 (- (length boundary) 1)) - )) - (setq boundary (concat "^--" (regexp-quote boundary) "\\(--\\)?$")) - (while (re-search-forward boundary nil t) - (goto-char (point-min)) - (setq b (+ (match-end 0) 1)) - (goto-char b) - (and (setq ctype (mime/Content-Type)) - (setq encoding - (mime/Content-Transfer-Encoding boundary - default-encoding)) - (mime/decode-content boundary - (car ctype) encoding - (mime/get-name ctype boundary) - ) - ) - ))) - -(defun mime/decode-message/partial (ctype default-encoding) - (let ((root-dir (concat "/tmp/m-prts-" (user-login-name))) - (id (cdr (assoc "id" (cdr ctype)))) - (number (cdr (assoc "number" (cdr ctype)))) - (total (cdr (assoc "total" (cdr ctype)))) - file - (the-buf (current-buffer)) - ) - (if (not (file-exists-p root-dir)) - (shell-command (concat "mkdir " root-dir)) - ) - (setq id (replace-as-filename id)) - (setq root-dir (concat root-dir "/" id)) - (if (not (file-exists-p root-dir)) - (shell-command (concat "mkdir " root-dir)) - ) - (setq file (concat root-dir "/FULL")) - (if (not (file-exists-p file)) - (progn - (setq file (concat root-dir "/CT")) - (if (not (file-exists-p file)) - (progn - (if (get-buffer "*MIME-temp*") - (kill-buffer "*MIME-temp*") - ) - (switch-to-buffer "*MIME-temp*") - (insert (concat total "\n")) - (write-file file) - (switch-to-buffer the-buf) - )) - (re-search-forward "^$") - (goto-char (+ (match-end 0) 1)) - (setq file (concat root-dir "/" number)) - (write-region (point) - (point-max) - file) - (if (get-buffer "*MIME-temp*") - (kill-buffer "*MIME-temp*") - ) - (switch-to-buffer "*MIME-temp*") - (let ((i 1) - (max (string-to-int total)) - ) - (catch 'tag - (while (<= i max) - (setq file (concat root-dir "/" - (int-to-string i) - )) - (if (not (file-exists-p file)) - (throw 'tag nil)) - (insert-file-contents file) - (goto-char (point-max)) - (setq i (+ i 1)) - ) - (write-file (concat root-dir "/FULL")) - (mime/decode-body) - (kill-buffer "FULL") - )) - (switch-to-buffer the-buf) - ) - (progn - (find-file file) - (mime/decode-body) - (kill-buffer "FULL") - )) - )) - -(defun mime/narrow-to-content (boundary) - (if boundary - (progn - (narrow-to-region (point) - (progn - (re-search-forward boundary nil t) - (match-beginning 0) - )) - (goto-char (point-min)) - ))) - -(defun mime/get-name (ctype &optional boundary) - (save-excursion - (save-restriction - (mime/narrow-to-content boundary) - (replace-as-filename - (or (cdr (assoc "name" (cdr ctype))) - (cdr (assoc "x-name" (cdr ctype))) - (message/get-field-body "Content-Description") - "")) - ))) - -(defun mime/Content-Type (&optional boundary) - (save-excursion - (save-restriction - (mime/narrow-to-content boundary) - (if (and (re-search-forward "^Content-Type:[ \t]*" nil t) - (progn - (narrow-to-region - (point) - (and (re-search-forward ".*\\(\n[ \t].*\\)*" nil t) - (match-end 0)) - ) - (goto-char (point-min)) - (re-search-forward mime/content-type-subtype-regexp nil t) - )) - (let ((ctype - (downcase - (buffer-substring (match-beginning 0) (match-end 0)) - )) - dest attribute value) - (while (and (re-search-forward "[ \t\n]*;[ \t\n]*" nil t) - (re-search-forward mime/token-regexp nil t) - ) - (setq attribute - (downcase - (buffer-substring (match-beginning 0) (match-end 0)) - )) - (if (and (re-search-forward "=[ \t\n]*" nil t) - (re-search-forward mime/content-parameter-value-regexp - nil t) - ) - (setq dest - (put-alist attribute - (buffer-substring (match-beginning 0) - (match-end 0)) - dest)) - ) - ) - (cons ctype dest) - ))))) - -(defun mime/Content-Transfer-Encoding (&optional boundary default-encoding) - (save-excursion - (save-restriction - (mime/narrow-to-content boundary) - (or - (if (and (re-search-forward "^Content-Transfer-Encoding:[ \t]*" nil t) - (re-search-forward mime/token-regexp nil t) - ) - (downcase (buffer-substring (match-beginning 0) (match-end 0))) - ) - default-encoding) - ))) - -(defun mime/base64-decode-region (beg end &optional buf filename) - (let ((the-buf (current-buffer)) ret) - (if (null buf) - (setq buf (get-buffer-create mime/decoding-buffer-name)) - ) - (save-excursion - (save-restriction - (switch-to-buffer buf) - (erase-buffer) - (switch-to-buffer the-buf) - (narrow-to-region beg end) - (goto-char (point-min)) - (while (re-search-forward - (concat "^" - mime/Base64-encoded-text-regexp - "$") nil t) - (setq ret (mime/base64-decode-string - (buffer-substring (match-beginning 0) - (match-end 0) - ))) - (switch-to-buffer buf) - (insert ret) - (switch-to-buffer the-buf) - ))) - (if filename - (progn - (switch-to-buffer buf) - (let ((kanji-flag nil) - (mc-flag nil) - (file-coding-system - (if (featurep 'mule) *noconv*)) - ) - (write-file filename) - (kill-buffer buf) - (switch-to-buffer the-buf) - ))) - )) - -(defun mime/decode-content (boundary ctype encoding name) - (let ((method (cdr (assoc ctype mime/content-decoding-method-alist)))) - (if method - (save-excursion - (save-restriction - (re-search-forward "^$") - (goto-char (+ (match-end 0) 1)) - (let ((file (make-temp-name "/tmp/TM")) - (b (point)) e - ) - (setq e (if boundary - (and (re-search-forward boundary nil t) - (match-beginning 0)) - (point-max) - )) - (if (and (string= encoding "base64") - mime/use-internal-decoder) - (progn - (mime/base64-decode-region b e nil file) - (setq encoding "binary") - ) - (write-region b e file) - ) - (start-process method mime/output-buffer-name method file - ctype (if encoding - encoding - "7bit") - (if mime/body-decoding-mode - mime/body-decoding-mode - "decode") - (replace-as-filename name)) - )))))) - -(defun mime/show-body-decoded-result () - (interactive) - (if (get-buffer mime/output-buffer-name) - (set-window-buffer (get-largest-window) - mime/output-buffer-name) - )) diff --git a/tm-cfg b/tm-cfg deleted file mode 100644 index a562f2f..0000000 --- a/tm-cfg +++ /dev/null @@ -1,88 +0,0 @@ -;;; -*-Emacs-Lisp-*- -;;; -;;; $Id: tm-cfg,v 1.1 1996/03/04 08:37:01 morioka Exp morioka $ -;;; - -(setq load-path (append - (mapcar (function - (lambda (path) - (expand-file-name path (getenv "PWD")) - )) - '("." "../tl/" "../mel/" "mh-e/") - ) - load-path)) - -(require 'tl-misc) - - -;; Please specify VM path. -(add-path "vm-5.95beta/" 'all-paths) - -;; Please specify Mailcrypt path. -(add-path "mailcrypt-3.4/" 'all-paths) - -;; Please specify BBDB path. -(add-path "bbdb-1.50/" 'all-paths) - -;; Please specify shell command path. -(setq SHELL "/bin/sh") - -;; Please specify install path prefix. -(setq PREFIX "~/") -;;(setq PREFIX "/usr/local/") - -(setq EMACS_PREFIX - (cond ((boundp 'NEMACS) "nemacs/") - ((boundp 'MULE) "mule/") - ((string-match "XEmacs" emacs-version) "xemacs/") - (t "emacs/") - )) - -(setq DATA_PREFIX - (if (or (< emacs-major-version 19) - (< emacs-minor-version 29) - ) - "lib/" - "share/")) - -(setq DATADIR (expand-file-name DATA_PREFIX PREFIX)) - -(setq LISP_PREFIX - (if (>= emacs-major-version 19) - "site-lisp/" - "local.lisp/")) - -(setq EMACS_DATADIR (expand-file-name EMACS_PREFIX DATADIR)) - -(setq LISPDIR (expand-file-name LISP_PREFIX EMACS_DATADIR)) - - -;; Please specify mime-setup.{el|elc} install path. -(setq SETUP_FILE_DIR LISPDIR) - - -(setq TM_PREFIX "") - -(setq TM_LISPDIR (expand-file-name TM_PREFIX LISPDIR)) - -(setq TL_DIR (expand-file-name "tl/" TM_LISPDIR)) -(setq MEL_DIR (expand-file-name "mel/" TM_LISPDIR)) -(setq TM_KERNEL_DIR (expand-file-name "tm/" TM_LISPDIR)) -(setq TM_MHE_DIR TM_KERNEL_DIR) -(setq TM_GNUS_DIR TM_KERNEL_DIR) - - -(setq el-file-mode (+ (* 64 6)(* 8 4) 4)) - - -(setq BINS '("src/ol2" "src/decode-b")) -(setq METHODS - '("tm-au" "tm-file" "tm-html" "tm-image" "tm-mpeg" "tm-plain" - "tmdecode")) - - -;; Please specify binary path. -(setq BIN_DIR (expand-file-name "bin/" PREFIX)) - -;; Please specify binary path. -(setq METHOD_DIR BIN_DIR) diff --git a/tm-comp-jp.pln b/tm-comp-jp.pln deleted file mode 100644 index e5d1457..0000000 --- a/tm-comp-jp.pln +++ /dev/null @@ -1,62 +0,0 @@ -$B2,It!w5~Bg$G$9!#(B - -In article <199408221831.DAA24174@melon.jaist.ac.jp>, - $B writes: - -$B $B8= $B7A<0$KJ,3d$7$F$/$l$k$b$N$r=q$-$^$7$?!#(B - -$BJXMx$J$N$G!"$9$3$72~NI(B($B2~0-!)(B)$B$7$F$_$^$7$?!#(B - -1. mime-mode-exit $B$r>r7oIU$-$G8F$V$h$&$K$7!"(Bmime-mode $B0J30$G$b(B - $B;H$($k$h$&$K$7$?!#(B - - $B:G6a(B mh-e 4.1 $B$N(B mh-edit-mhn $B$b;H$C$F$_$F$$$k$N$G!"(Bmime-mode $B0J30$G$b(B - $B;H$($k$h$&$K$7$?$H$$$&$N$,F05!$G$9!#6KC<$K8@$($PIaCJ$O(B MIME $B$rA4A3;H$C$F(B - $B$$$J$$?M$G$b!"<+F0J,3d$K$O;H$($k$H;W$$$^$9!#(B - -$B!t(B mh-edit-mhn $B$GJQ49$7$?8e(B mime/view-mode $B$KF~$C$F%W%l%S%e!<$7!"(B - $B$&$^$/$$$C$F$J$+$C$?$i(B mh-revert-mhn-edit $B$G$d$jD>$9!"$H$$$&(B - $Bl9g$K$bBP1~$7$?!#(B - - mh-edit-mhn $B$N=PNO$O$3$N7A<0$J$N$G!"$d$`$rF@$:$=$&$7$^$7$?!#(B - -3. mime/draft-file-name $B$,(B nil $B$N$H$-$K;H$&%U%!%$%kL>$r0J2<$N$h$&$K$7$?!#(B - - (make-temp-name (expand-file-name "tm-draft" mime/tmp-dir)) - -4. $BJ,3d$7$?%a%C%;!<%8$K$O!"$b$H$N(B Subject $B$N$&$7$m$K(B (1/3) $B$J$I$H$D$/(B - $B$h$&$K$7$?!#(B - - $B6a$$>-Mh!"(Bsuper-pipe $B$d(B gnus-uu $B$N$h$&$K!"(Bmessage/partial $B$N$H$-$O$I(B - $B$l$+$R$H$D$N5-;v$r$_$l$PB>$N$rC5$7$K9T$/5!G=$,(B tm-view.el $B$Kl9g!"(BBcc:, Dcc: Fcc: $B$J$IK\MhAw$C$?;~$K>C$($k(B - $B$O$:$N$b$N$,FO$$$F$7$^$&(B($B$H$/$K(B Bcc: $B$,8+$($k$N$OLdBj(B)$B!#(B - $B1#$9%U%#!<%k%I$r;XDj$G$-$k$h$&$K$9$Y$-!#(B - -2. $B@8@.$5$l$k(B id $B$,D9$C$?$i$7$/$F$+$C$30-$$!#(B - ($BNc$($P(B GNUS $B$N(B message-id $B@8@.%k!<%A%s$rE>MQ$7$F$O$I$&$+(B) - -$B$J$I$,$"$j$^$9!#(B - -$B $B$^$?!"(Bmessage $B$N:GBg9T?t$rJQ?t(B mime/message-max-length $B$G;XDj$G$-$^(B -$B $B$9!#$H$j$"$($:!"(Bdefault $B$G$O(B 1000 $B9T$K$7$F$"$j$^$9$,!"$3$l$K4X$9$k0lHL(B -$B $BE*$JCM$O$"$k$s$G$7$g$&$+!)(B - -$B9T?t$h$j$O%P%$%H?t$,Bg;v$J$O$:$G!"$h$/8@$o$l$k$N$O(B1$BDL$"$?$j(B50KB$B$rD6$((B -$B$J$$$h$&$K$H$$$&@)Ls$G$9$M(B($B$&$A$N%;%s%?!<$NMxMQ$NAw$G!"Cf?H$O(B base64 -$B$G0l9T(B80$B;zDj$9$k$H!"(B600 $B9T6/$K$"$?$j$^$9!#$7$+$7(B50KB -$B0J>e$N$b$N$ODL$i$J$$$h$&$K$J$C$F$$$k$H$$$&$o$1$G$O$J$/C1$K0BA4$d8zN($r(B -$B9M$($F$NCM$G$7$g$&$+$i!"(Bsplit $B$NI8=`CM$G$b$"$k(B 1000 $B$GLdBj$J$$$H;W$$$^$9!#(B ------ -$B2,It, -;;; OKABE Yasuo -;;; modified by MORITA Masahiro -;;; Kazushi (Jam) MARUKAWA , -;;; KOBAYASHI Shuhei , -;;; YAMAOKA Katsumi , -;;; and Richard Stanton -;;; Keywords: mail, news, MIME, multimedia -;;; -;;; This file is part of tm (Tools for MIME). -;;; - -(require 'tm-view) -(require 'tl-822) -(require 'tl-list) -(require 'mail-utils) - - -;;; @ version -;;; - -(defconst mime/composer-RCS-ID - "$Id: tm-comp.el,v 7.2 1995/10/08 09:31:05 morioka Exp $") - -(defconst mime/composer-version (get-version-string mime/composer-RCS-ID)) - - -;;; @ variables -;;; - -(defvar mime/message-default-max-length 1000) - -(defvar mime/message-max-length-alist - '((news-reply-mode . 500))) - -(defconst mime/message-nuke-headers - "\\(^Content-\\|^Subject:\\|^MIME-Version:\\)") -(defvar mime/message-blind-headers "\\(^[BDFbdf]cc:\\|^cc:[ \t]*$\\)") - -(defvar mime/message-default-sender-alist - '((mail-mode . mail-send-and-exit) - (mh-letter-mode . mh-send-letter) - (news-reply-mode . gnus-inews-news))) - -(defvar mime/message-sender-alist - '((mail-mode . (lambda () - (interactive) - (sendmail-send-it) - )) - (mh-letter-mode . (lambda (&optional arg) - (interactive "P") - (write-region (point-min) (point-max) - mime/draft-file-name) - (message - (format "Sending %d/%d..." (+ i 1) total)) - (cond (arg - (pop-to-buffer "MH mail delivery") - (erase-buffer) - (mh-exec-cmd-output mh-send-prog t "-watch" "-nopush" - "-nodraftfolder" mh-send-args mime/draft-file-name) - (goto-char (point-max)) ; show the interesting part - (recenter -1) - (sit-for 1)) - (t - (apply 'mh-exec-cmd-quiet t mh-send-prog - (mh-list-to-string - (list "-nopush" "-nodraftfolder" "-noverbose" "-nowatch" mh-send-args mime/draft-file-name))))) - (message - (format "Sending %d/%d... done" (+ i 1) total)) - )) - )) - - -(defvar mime/window-config-alist - '((mail-mode . nil) - (mh-letter-mode . mh-previous-window-config) - (news-reply-mode . (cond ((boundp 'gnus-winconf-post-news) - (prog1 - gnus-winconf-post-news - (setq gnus-winconf-post-news nil) - )) - ((boundp 'gnus-prev-winconf) - (prog1 - gnus-prev-winconf - (setq gnus-prev-winconf nil) - )) - )) - )) - -(defvar mime/news-reply-mode-server-running nil) - - -(defvar mime/message-before-send-hook-alist - '((mh-letter-mode . mh-before-send-letter-hook))) - -(defvar mime/message-after-send-hook-alist - '((mh-letter-mode . (lambda () - (if mh-annotate-char - (mh-annotate-msg mh-sent-from-msg - mh-sent-from-folder - mh-annotate-char - "-component" mh-annotate-field - "-text" - (format "\"%s %s\"" - (mh-get-field "To:") - (mh-get-field "Cc:")))))) - )) - -(defvar tm-comp/message-inserter-alist nil) - - -;;; @ edit -;;; - -(defun tm-comp::mime-insert-file (file) - "Insert a message from a file." - (interactive "fInsert file as MIME message: ") - (let* ((guess (mime-find-file-type file)) - (pritype (nth 0 guess)) - (subtype (nth 1 guess)) - (parameters (nth 2 guess)) - (default (nth 3 guess)) ;Guess encoding from its file name. - (encoding - (if (not (interactive-p)) - default - (completing-read - (concat "What transfer encoding" - (if default - (concat " (default " - (if (string-equal default "") "\"\"" default) - ")" - )) - ": ") - mime-transfer-encoders nil t nil)))) - (if (string-equal encoding "") - (setq encoding default)) - (if (consp parameters) - (let ((rest parameters) cell attribute value) - (setq parameters "") - (while rest - (setq cell (car rest)) - (setq attribute (car cell)) - (setq value (cdr cell)) - (if (eq value 'file) - (setq value (file-name-nondirectory file)) - ) - (setq parameters (concat parameters "; " attribute "=" value)) - (setq rest (cdr rest)) - ))) - (mime-insert-tag pritype subtype parameters) - (mime-insert-binary-file file encoding) - )) - -;; Insert the binary content after MIME tag. -;; modified by MORITA Masahiro -;; for x-uue -(defun tm-comp::mime-insert-binary-file (file &optional encoding) - "Insert binary FILE at point. -Optional argument ENCODING specifies an encoding method such as base64." - (let ((tmpbuf (get-buffer-create " *MIME insert*"))) - (save-excursion - (set-buffer tmpbuf) - (erase-buffer) - (let ((mc-flag nil) ;Mule - (file-coding-system-for-read - (if (featurep 'mule) *noconv*)) - (kanji-flag nil) ;NEmacs - (emx-binary-mode t) ;Stop CRLF to LF conversion in OS/2 - ) - (let (jka-compr-compression-info-list - jam-zcat-filename-list) - (insert-file-contents file)))) - (prog1 - (if (and (stringp encoding) - (string-equal (downcase encoding) "x-uue")) - (let ((mime-transfer-encoders - (copy-alist (cons (list "x-uue" "uuencode" - (file-name-nondirectory file)) - mime-transfer-encoders)))) - (mime-insert-binary-buffer tmpbuf encoding)) - (mime-insert-binary-buffer tmpbuf encoding)) - (kill-buffer tmpbuf)))) - -;; Insert the binary content after MIME tag. -;; modified by MORITA Masahiro -;; for x-uue -(defun tm-comp::mime-insert-binary-buffer (buffer &optional encoding) - "Insert binary BUFFER at point. -Optional argument ENCODING specifies an encoding method such as base64." - (let* ((tagend (1- (point))) ;End of the tag - (hide-p (and mime-auto-hide-body - (stringp encoding) - (let ((en (downcase encoding))) - (or (string-equal en "base64") - (string-equal en "x-uue") - )))) - ) - (save-restriction - (narrow-to-region (1- (point)) (point)) - (let ((start (point)) - (emx-binary-mode t)) ;Stop LF to CRLF conversion in OS/2 - (insert-buffer-substring buffer) - ;; Encode binary message if necessary. - (if encoding - (mime-encode-region encoding start (point-max)))) - (if hide-p - (progn - (mime-flag-region (point-min) (1- (point-max)) ?\^M) - (goto-char (point-max))) - )) - ;; Define encoding even if it is 7bit. - (if (stringp encoding) - (save-excursion - (goto-char tagend) ;Make sure which line the tag is on. - (mime-define-encoding encoding))) - )) - - -(defun tm-comp/insert-message (&optional message) - (interactive) - (let ((inserter (assoc-value major-mode tm-comp/message-inserter-alist))) - (if (and inserter (fboundp inserter)) - (progn - (mime-insert-tag "message" "rfc822") - (funcall inserter message) - ) - (message "Sorry, I don't have message inserter for your MUA.") - ))) - - -;;; @ split -;;; - -(defun mime/split-and-send (&optional cmd) - (interactive) - (let ((mime/message-max-length - (or (cdr (assq major-mode mime/message-max-length-alist)) - mime/message-default-max-length)) - (lines (count-lines (point-min) (point-max))) - ) - (if (<= lines mime/message-max-length) - (call-interactively - (or cmd (cdr (assq major-mode mime/message-default-sender-alist)))) - (let* ((mime/draft-file-name - (or (buffer-file-name) - (make-temp-name (expand-file-name "tm-draft" mime/tmp-dir)))) - (separator mail-header-separator) - (config (eval (cdr (assq major-mode mime/window-config-alist)))) - (id (concat "\"" - (replace-space-with-underline (current-time-string)) - "@" (system-name) "\""))) - - (let ((hook (cdr (assq major-mode - mime/message-before-send-hook-alist)))) - (run-hooks hook)) - (let* ((header (rfc822/get-header-string-except - mime/message-nuke-headers separator)) - (orig-header (rfc822/get-header-string-except - mime/message-blind-headers separator)) - (subject (mail-fetch-field "subject")) - (total (+ (/ lines mime/message-max-length) - (if (> (mod lines mime/message-max-length) 0) - 1))) - (i 0) - (l mime/message-max-length) - (the-buf (current-buffer)) - (buf (get-buffer "*tmp-send*")) - (command - (or cmd - (cdr (assq major-mode mime/message-sender-alist)) - (cdr (assq major-mode mime/message-default-sender-alist)))) - data) - (goto-char (point-min)) - (if (re-search-forward (concat "^" (regexp-quote separator) "$") - nil t) - (replace-match "") - ) - (if buf - (progn - (switch-to-buffer buf) - (erase-buffer) - (switch-to-buffer the-buf) - ) - (setq buf (get-buffer-create "*tmp-send*")) - ) - (switch-to-buffer buf) - (make-variable-buffer-local 'mail-header-separator) - (setq mail-header-separator separator) - (switch-to-buffer the-buf) - (goto-char (point-min)) - (re-search-forward "^$" nil t) - (while (< i total) - (setq buf (get-buffer "*tmp-send*")) - (setq data (buffer-substring - (point) - (progn - (goto-line l) - (point)) - )) - (switch-to-buffer buf) - (insert header) - (insert - (format "Subject: %s (%d/%d)\n" subject (+ i 1) total)) - (insert - (format "Mime-Version: 1.0 (split by tm-comp %s)\n" - mime/composer-version)) - (insert - (format - "Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n" - id (+ i 1) total separator)) - (if (eq i 0) - (insert orig-header)) - (insert data) - (save-excursion - (call-interactively command)) - (erase-buffer) - (switch-to-buffer the-buf) - (setq l (+ l mime/message-max-length)) - (setq i (+ i 1)) - ) - ) - (let ((hook - (cdr (assq major-mode mime/message-after-send-hook-alist)))) - (run-hooks 'hook)) - (set-buffer-modified-p nil) - (cond ((y-or-n-p "Kill draft buffer? ") - (kill-buffer (current-buffer)) - (if config - (set-window-configuration config)))) - (message "") - )))) - -(defun tm-comp::mime-mode-exit-and-run () - (interactive) - (mime-mode-exit) - (call-interactively 'mime/split-and-send) - ) - - -;;; @ set up -;;; - -(add-hook 'mime-mode-hook - (function - (lambda () - (if (not (fboundp 'original::mime-insert-file)) - (progn - (fset 'original::mime-insert-file - (symbol-function 'mime-insert-file)) - (fset 'mime-insert-file 'tm-comp::mime-insert-file) - )) - (if (not (fboundp 'original::mime-insert-binary-file)) - (progn - (fset 'original::mime-insert-binary-file - (symbol-function 'mime-insert-binary-file)) - (fset 'mime-insert-binary-file - 'tm-comp::mime-insert-binary-file) - )) - (if (not (fboundp 'original::mime-insert-binary-buffer)) - (progn - (fset 'original::mime-insert-binary-buffer - (symbol-function 'mime-insert-binary-buffer)) - (fset 'mime-insert-binary-buffer - 'tm-comp::mime-insert-binary-buffer) - )) - (if (not (fboundp 'original::mime-mode-exit-and-run)) - (progn - (fset 'original::mime-mode-exit-and-run - (symbol-function 'mime-mode-exit-and-run)) - (fset 'mime-mode-exit-and-run - 'tm-comp::mime-mode-exit-and-run) - )) - (define-key (lookup-key (current-local-map) mime-prefix) - "m" 'tm-comp/insert-message) - ))) - - -;;; @ draft preview -;;; -;; by "OKABE Yasuo -;; Mon, 10 Apr 1995 20:03:07 +0900 - -(defvar mime/draft-header-separator-alist - '((news-reply-mode . mail-header-separator) - (mh-letter-mode . mail-header-separator) - )) - -(defvar mime::article/draft-header-separator nil) - -(defun mime/draft-preview () - (interactive) - (let ((sep (assoc-value major-mode mime/draft-header-separator-alist))) - (or (stringp sep) (setq sep (eval sep))) - (make-variable-buffer-local 'mime::article/draft-header-separator) - (goto-char (point-min)) - (re-search-forward - (concat "^\\(" (regexp-quote sep) "\\)?$")) - (setq mime::article/draft-header-separator - (buffer-substring (match-beginning 0) (match-end 0))) - (replace-match "") - (mime/viewer-mode (current-buffer)) - (pop-to-buffer (current-buffer)) - )) - -(defun mime-viewer::quitting-method/draft-preview () - (let ((mother mime/mother-buffer)) - (save-excursion - (switch-to-buffer mother) - (goto-char (point-min)) - (if (and - (re-search-forward - (concat "^\\(" - (regexp-quote mime::article/draft-header-separator) - "\\)?$") nil t) - (bolp)) - (progn - (insert mime::article/draft-header-separator) - (set-buffer-modified-p (buffer-modified-p)) - ))) - (mime-viewer/kill-buffer) - (pop-to-buffer mother) - )) - -(set-alist 'mime-viewer/quitting-method-alist - 'mh-letter-mode - (function mime-viewer::quitting-method/draft-preview) - ) - -(set-alist 'mime-viewer/quitting-method-alist - 'news-reply-mode - (function mime-viewer::quitting-method/draft-preview) - ) - - -;;; @ etc -;;; - -(defun rfc822/get-header-string-except (pat boundary) - (let ((case-fold-search t)) - (save-excursion - (save-restriction - (narrow-to-region (goto-char (point-min)) - (progn - (re-search-forward - (concat "^\\(" (regexp-quote boundary) "\\)?$") - nil t) - (match-beginning 0) - )) - (goto-char (point-min)) - (let (field header) - (while (re-search-forward rfc822/field-top-regexp nil t) - (setq field (buffer-substring (match-beginning 0) - (rfc822/field-end) - )) - (if (not (string-match pat field)) - (setq header (concat header field "\n")) - )) - header) - )))) - -(defun replace-space-with-underline (str) - (mapconcat (function - (lambda (arg) - (char-to-string - (if (= arg 32) - ?_ - arg)))) str "") - ) - - -;;; @ end -;;; - -(provide 'tm-comp) - -(run-hooks 'tm-comp-load-hook) diff --git a/tm-els b/tm-els deleted file mode 100644 index 8537e0f..0000000 --- a/tm-els +++ /dev/null @@ -1,99 +0,0 @@ -;;; -*-Emacs-Lisp-*- -;;; -;;; $Id: tm-els,v 1.2 1996/03/04 08:57:38 morioka Exp $ -;;; - -(require 'tl-misc) - -(setq tm-modules - (cons - (cond ((boundp 'NEMACS) - "tm-nemacs" - ) - ((boundp 'MULE) - "tm-mule" - ) - (t - "tm-orig" - )) - '("signature" - "tm-def" - "tm-ew-d" "tm-parse" "tm-view" "tm-play" "tm-partial" - "tm-rich" - "tm-latex" "tm-html" "tm-tar" "tm-file" - "tm-ew-e" - "tm-edit" - "tm-rmail" "tm-mail" - "tm-setup" - ))) - -(setq tm-uncompile-el-files '("sc-setup.el")) - -(if (file-installed-p "ange-ftp.el") - (setq tm-modules (append tm-modules '("tm-ftp"))) - (setq tm-uncompile-el-files - (append tm-uncompile-el-files '("tm-ftp.el"))) - ) - -(if (file-installed-p "vm.elc") - (setq tm-modules (append tm-modules '("tm-vm"))) - (setq tm-uncompile-el-files - (append tm-uncompile-el-files '("tm-vm.el"))) - ) - -(if (file-installed-p "mailcrypt.el") - (setq tm-modules (append tm-modules '("tm-pgp"))) - (setq tm-uncompile-el-files - (append tm-uncompile-el-files '("tm-pgp.el"))) - ) - -(if (file-installed-p "bbdb.el") - (setq tm-modules (append tm-modules '("tm-bbdb"))) - (setq tm-uncompile-el-files - (append tm-uncompile-el-files '("tm-bbdb.el"))) - ) - -(if (and (file-exists-p "tm-evs.el") - (or (boundp 'MULE) - (boundp 'NEMACS)) - ) - (setq tm-modules (append tm-modules '("tm-evs"))) - ) - -(if (string-match "XEmacs" emacs-version) - (setq tm-modules (append tm-modules '("tm-image"))) - (if (boundp 'MULE) - (if (file-installed-p "bitmap.el") - (setq tm-modules (append tm-modules '("tm-image"))) - (setq tm-uncompile-el-files - (append tm-uncompile-el-files '("tm-image.el"))) - ))) - -(setq tm-el-files - (append - (mapcar (function (lambda (module) - (concat module ".el") - )) - tm-modules) - tm-uncompile-el-files)) - -(setq tm-elc-files - (mapcar (function (lambda (module) - (concat module ".elc") - )) - tm-modules)) - - -(setq setup-modules '("mime-setup")) - -(setq setup-el-files - (mapcar (function (lambda (module) - (concat module ".el") - )) - setup-modules)) - -(setq setup-elc-files - (mapcar (function (lambda (module) - (concat module ".elc") - )) - setup-modules)) diff --git a/tm-enriched.el b/tm-enriched.el deleted file mode 100644 index abff363..0000000 --- a/tm-enriched.el +++ /dev/null @@ -1,120 +0,0 @@ -;;; -;;; $Id: tm-rich.el,v 2.2 1994/10/31 07:44:51 morioka Exp $ -;;; -;;; by MORIOKA Tomohiko -;;; modified by YAMATE Keiichirou -;;; - -(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 "" 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 "") 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 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 "$BA4$F$NA*Br;h$KEz$($F2<$5$$(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] $B$3$N ")) - (setq evs-teachers-name - (read-string "Please input teacher's name > ")) - (setq evs-message-buffer - (get-buffer "questionnaire.mime")) - (if (null evs-message-buffer) - (progn - (setq evs-message-buffer - (get-buffer-create "questionnaire.mime")) - (switch-to-buffer evs-message-buffer) - ) - (progn - (switch-to-buffer evs-message-buffer) - (erase-buffer) - )) - (insert-file "/usr/local/lecture/EVS/questionnaire.mime") - (goto-char (point-min)) - (re-search-forward "^=+\n") - (insert (format "%s %s\n" evs-course-id evs-teachers-name)) - (mime/viewer-mode) - ) - -(provide 'tm-evs) diff --git a/tm-gnus-eng.ol b/tm-gnus-eng.ol deleted file mode 100644 index f5c74bc..0000000 --- a/tm-gnus-eng.ol +++ /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 index e4815cb..0000000 --- a/tm-gnus-eng.tex +++ /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 index 8927a3f..0000000 --- a/tm-gnus-jp.ol +++ /dev/null @@ -1,182 +0,0 @@ -$B!X(Btm-gnus $B@bL@=q!Y(B -by. $B $B6&DL(B module), tm-gnus $B$N3F(B module $B$+$i(B -$B$J$j$^$9!#3F(B module $BKh$N(B install $BK!$O0J2<$NDL$j$G$9!#(B - - -** tiny-mime $B$N(B install - - tiny-mime.el $B$r(B Emacs $B$NJQ?t(B load-path $B$G;XDj$5$l$?(B directory $B$K(B -copy $B$7$^$9!#(B - - -** tm-body $B$N(B install - - tm-body.el, tl-list.el, tl-header.el $B$r(B Emacs $B$NJQ?t(B load-path $B$G;X(B -$BDj$5$l$?(B directory $B$K(B copy $B$7$^$9!#(B - - -** tm-misc $B$N(B install - - tm-misc.el, tl-hook.el $B$r(B Emacs $B$NJQ?t(B load-path $B$G;XDj$5$l$?(B -directory $B$K(B copy $B$7$^$9!#(B - - -** tm-gnus $B$N(B install - - tm-gnus.el $B$H(B tm-gnus3.el $B$r(B Emacs $B$NJQ?t(B load-path $B$G;XDj$5$l$?(B -directory $B$K(B copy $B$7$^$9!#(Btm-gnus3.el $B$r(B byte-compile $B$9$k>l9g$O!"(BGNUS -3 $B$,(B load $B$5$l$?>uBV$G9T$J$C$F2<$5$$!#(B - - - -* $B@_Dj(B - - .emacs $B$K0J2<$N$b$N$rF~$l$^$9!#(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 $B$K$*$1$k>e5-$N@_Dj$O!"(Bgnusutil $B$rJ;MQ$9$k>l9g$N$b$N$G$9$,!"(B -gnusutil $B$rJ;MQ$7$J$$>l9g$O(B (require 'tm-gnus) $B$@$1$G7k9=$G$9!#(B - - -* $B;H$$J}(B - --------------------------------------------------------------------- -| key | $B5!G=(B | -==================================================================== -| M-t |message header $B$r(B decode $B$K4X$9$k(B toggle switch | --------------------------------------------------------------------- -| v |message body $B$r(B MIME decode $B$7$F!":F@8$9$k(B (play mode) | -| e |message body $B$r(B MIME decode $B$7$F!"(Bfile $B$KMn$9(B (extract mode)| -|C-c p|message body $B$r(B MIME decode $B$7$F!"0u:~$9$k(B (print mode) | --------------------------------------------------------------------- - - message body $B$N(B MIME decode $B$K$*$$$F!"l9g(B .emacs $B$K0J2<$N$b$N$rF~$l$F2<$5$$!#(B - -[[E ----------------------------------------------------------------------- -(autoload 'metamail-buffer "metamail" nil t) -(setq mime/body-decoding-method (function metamail-buffer)) ----------------------------------------------------------------------- -]]E - - metamail $B$r;H$&@_Dj$N>l9g!"(B`v', `e', `C-c p' $B$KBP1~$9$kF0:n$O(B -metamail $B$K$+$1$k$@$1$K$J$j!"F10l$NF0:n$K$J$j$^$9!#$^$?!"F0:n$OC`o$K!"(BMIME header decoding $B$r9T$J$o(B -$B$J$$!"@8$N(B message $B$GJ]B8$7$?$$>l9g$O(B -(tm-gnus/set-mime-header-decoding-mode nil) $B$r9T$J$C$F!"(BMIME header -decoding $B$r9T$J$o$J$$(B mode $B$K$7$F!"(Barticle save $B4X?t$ruBV$KLa$7$?$$>l9g$O!"(B -$B0J2<$N$h$&$K!"0l;~JQ?t$K(B MIME header decoding mode $B$rJ]B8$7$F$*$1$P(B OK -$B$G$9!#(B - -[[E - (let ((mm mime/header-decoding-mode)) - (tm-gnus/set-mime-header-decoding-mode nil) - (article save $B4X?t(B) - (tm-gnus/set-mime-header-decoding-mode mm) - ) -]]E - - $B0J2<$K!"(Bmh-e $B$N(B folder $B$K(B save $B$9$k>l9g$NNc$r<($7$^$9!#(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 $B$9$k;~(B Subject $B$N(B encoding $BK!$r(B reply $B85$K9g$o$;$k(B - - Reply $B$9$k;~!"(Breply $B85$N(B Subject $B$K(B ASCII $B0J30$NJ8;z=89g$NF~$C$F$$$k(B -$B>l9g!"(Breply $B85$,(B MIME encode $B$5$l$F$$$?$i(B encode $B$7!"$=$&$G$J$+$C$?$i(B -$B@8$GF~$l$?$$>l9g$O!"$ ¶¦ÄÌ 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 index e2acfa5..0000000 --- a/tm-gnus.el +++ /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 index 38ef4a4..0000000 --- a/tm-gnus3.el +++ /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 index 4a1f6de..0000000 --- a/tm-gnus4.el +++ /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 index ec9aac5..0000000 --- a/tm-jp.tex +++ /dev/null @@ -1,617 +0,0 @@ -\documentstyle[a4j]{jreport} - -\title{tm ÀâÌÀ½ñ} -\author{¼é²¬ ÃÎɧ\\ - morioka@jaist.ac.jp} -\date{\verb$Id: tm-jp.tex,v 5.1 1994/09/26 14:52:00 morioka Exp $} - -\begin{document} - -\maketitle -\tableofcontents - -\chapter{¤Ï¤¸¤á¤Ë} - -tm ¤Ï GNU Emacs ¤Ç MIME ¤ò³Ú¤·¤à¤¿¤á¤Î package ¤Ç¤¹¡£tm ¤ò»È¤¦¤È¡¢ - -\begin{itemize} -\item ¿¸À¸ì header ¤Î encode/decode -\item mime/viewer-mode ¤ò»È¤Ã¤¿ MIME message ¤Î±ÜÍ÷¡¦ºÆÀ¸ -\item mh-e, GNUS, RMAIL ¤Ç¤Î MIME µ¡Ç½¤Î¶¯²½ -\end{itemize} - -\noindent ¤¬¹Ô¤Ê¤¨¤Þ¤¹¡£ - - -\section{Module °ìÍ÷} - -tm ¤Ï°Ê²¼¤Î module ¤«¤é¤Ê¤ê¤Þ¤¹¡£ - -\begin{itemize} -\item {\bf tiny-mime} : MIME header encoder/decoder -\item {\bf tm-view} : MIME viewer -\item {\bf tm-misc} : tm-MUA ¤Î¶¦ÄÌ module -\item {\bf tm-MUAs} : MUA ¤Î MIME µ¡Ç½¶¯²½ module - \begin{itemize} - \item {\bf tm-mh-e} : mh-e ÍѤΠtm-MUA - \item {\bf tm-gnus} : GNUS ÍѤΠtm-MUA - \item {\bf tm-rmail} : RMAIL ÍѤΠtm-MUA - \end{itemize} -\item {\bf tm-setup} tm-MUA ¤ÎÀßÄê module -\item {\bf mime-setup} MIME ´Ø·¸¤ÎÀßÄê module -\end{itemize} - - -\chapter{Emacs version Ê̤ε¡Ç½¤ª¤è¤ÓÀ©¸Â} - -\section{Emacs (original)} - -Original ¤Î Emacs ¤Ç¤Ï¡¢ÅöÁ³¤Î¤³¤È¤Ê¤¬¤é¡¢Ã±°ìʸ»ú½¸¹ç¤·¤«»È¤¨¤Þ¤»¤ó¡£ - -\section{NEmacs, NEpoch} - -NEmacs ¤Ç¤Ï¡¢ISO-2022-JP ¤ª¤è¤Ó US-ASCII ¤¬»È¤¨¤Þ¤¹¡£ - -\begin{description} -\item[¡ÎÃí°Õ¡Ï] outline.el ¤Ï NEmacs Éí°¤Î¤â¤Î¤Ç¤Ï¤Ê¤¯¡¢outln-18.el - ¤ò»È¤¦¤³¤È¤ò¿ä¾©¤·¤Þ¤¹¡£outln-18.el ¤ò»È¤¦¾ì¹ç¤Ï¡¢¤³¤ì¤ò outline.el - ¤Ë link ¤òÄ¥¤ë¤«¡¢rename ¤·¤Æ²¼¤µ¤¤¡£ - - outln-18.el ¤ò»È¤ï¤Ê¤¤¾ì¹ç¤Ï¡¢outline.el ¤Ë - -\begin{verbatim} -(provide 'outline) -\end{verbatim} - - \noindent ¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£ -\end{description} - - -\section{Mule} - -ISO-2022-JP, ISO-2022-JP-2, US-ASCII, ISO-8859-1..9, ISO-2022-CN, -ISO-2022-KR, EUC-KR ¤Ê¤É¤Î¿¸À¸ì header ¤¬»È¤¨¤Þ¤¹¡£¤Þ¤¿¡¢´Ø¿ô -mime/set-charset-and-encoding ¤ÇÄɲá¦Êѹ¹¤¬¤Ç¤­¤Þ¤¹¡£ - -\begin{description} -\item[¡ÎÃí°Õ¡Ï] Emacs 18 base ¤Î Mule (Mule 1.1 ¤Ê¤É¡Ë¤Ç¤Ï¡¢Mule Éí° - ¤Î outline.el ¤ÎÂå¤ï¤ê¤Ëoutln-18.el ¤ò»È¤¦¤³¤È¤ò¿ä¾©¤·¤Þ¤¹¡£ - outln-18.el ¤ò»È¤¦¾ì¹ç¤Ï¡¢¤³¤ì¤ò outline.el ¤Ë link ¤òÄ¥¤ë¤«¡¢rename - ¤·¤Æ²¼¤µ¤¤¡£ - - outln-18.el ¤ò»È¤ï¤Ê¤¤¾ì¹ç¤Ï¡¢outline.el ¤Ë - -\begin{verbatim} -(provide 'outline) -\end{verbatim} - - \noindent ¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£ -\end{description} - - -\chapter{Install ¤ÈÀßÄê} - -\section{Install} - -Install ¤Ï¼¡¤Î¼ê½ç¤Ç¹Ô¤Ê¤¤¤Þ¤¹¡£ - -\begin{enumerate} -\item Makefile ¤Î bindir ¤ò¼«Ê¬¤Î´Ä¶­¤Ë¹ç¤ï¤»¤Æ½ñ¤­´¹¤¨¤ë¡£ -\item methods/ °Ê²¼¤Ë¤¢¤ë method script ¤ò \ref{sec:method} Àá¤ò»²¾È¤· - ¤Æ¡¢¼«Ê¬¤Î´Ä¶­¤Ë¹ç¤¦¤è¤¦¤Ë½ñ¤­´¹¤¨¤ë¡£ -\item make all ¤¹¤ë¡£ -\item make install ¤¹¤ë¡£ -\item *.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ directory ¤Ë copy ¤¹¤ë¡£ -\end{enumerate} - -\noindent{\bf [Ãí°Õ]} -\begin{itemize} -\item tm-mh-e3.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢mh-e version 3.* ¤ò load - ¤·¤¿¾õÂ֤ǹԤʤäƲ¼¤µ¤¤¡£ -\item tm-gnus3.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢GNUS 3 ¤¬ load ¤µ¤ì¤¿¾õ - Â֤ǹԤʤäƲ¼¤µ¤¤¡£ -\item tl-18.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢Emacs 18 ¤Ç¹Ô¤Ê¤Ã¤Æ²¼¤µ¤¤¡£ -\item tl-orig.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢original Emacs ¤Ç¹Ô¤Ê¤Ã¤Æ - ²¼¤µ¤¤¡£ -\item tl-nemacs.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢NEmacs ¤Ç¹Ô¤Ê¤Ã¤Æ²¼¤µ¤¤¡£ -\item tl-mule.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢Mule ¤Ç¹Ô¤Ê¤Ã¤Æ²¼¤µ¤¤¡£ -\item Emacs 19 ¤Ç byte-compile ¤·¤¿ module ¤Ï Emacs 18 ¤Ç¤ÏÆ°¤­¤Þ¤»¤ó¡£ -\end{itemize} - - -\section{ÀßÄê} - -¤³¤Î package ¤Ë¤Ï mime-setup.el ¤È tm-setup.el ¤È¤¤¤¦´Ê°×ÀßÄê file ¤¬ -Éí°¤·¤Æ¤¤¤Þ¤¹¡£mime-setup.el ¤Ç¤Ï encoding ¤â´Þ¤á¤¿ÀßÄê¤ò¹Ô¤Ê¤¤¡¢ -tm-setup ¤Ç¤Ï tm-MUA ¤Ë´Ø¤¹¤ëÀßÄê¤Î¤ß¤ò¹Ô¤Ê¤¤¤Þ¤¹¡£ - -\subsection{mime-setup} - -\begin{verbatim} -(load "mime-setup") -\end{verbatim} - -\noindent ¤È¤¹¤ë¤È MIME ¤Ë´Ø¤¹¤ë³Æ¼ïÀßÄê¤ò¹Ô¤Ê¤¤¤Þ¤¹¡£mime-setup ¤Ï -tm-setup ¤òÆɤó¤Ç¤¤¤ë¤Î¤Ç¡¢mime-setup ¤ò»È¤¦¾ì¹ç¡¢tm-setup ¤ò load ¤¹ -¤ëɬÍפϤ¢¤ê¤Þ¤»¤ó¡£ - -mime-setup.el ¤Ïɸ½à¤Ç¤Ï SuperCite ¤ÎÀßÄê¤â¹Ô¤Ê¤¤¤Þ¤¹¡£¤³¤ì¤ò¤ä¤á¤ë¾ì -¹ç .emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£ - -\begin{verbatim} -(setq mime-setup-use-sc nil) -\end{verbatim} - -mime-setup ¤Ç¤Ï signature ¤Î¼«Æ°ÀÚÂؤ¨ tool ¤âÉí°¤·¤Æ¤¤¤Þ¤¹¡£ -message header ¤Î field ¤Ë¹ç¤ï¤»¤Æ signature ¤Î¼«Æ°ÀÚÂؤò¹Ô¤Ê¤¤¤¿¤¤¾ì -¹ç¤Ï .emacs ¤Ë°Ê²¼¤Î¤è¤¦¤Ê¤â¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£¡Ê¾Ü¤·¤¯¤Ï signature.el -¤ÎÀâÌÀ½ñ¤ò»²¾È¤·¤Æ²¼¤µ¤¤¡Ë - -\begin{verbatim} -(setq signature-file-alist - '((("Newsgroups" . "jokes") . "~/.signature-jokes") - (("Newsgroups" . ("zxr" "nzr")) . "~/.signature-sun") - (("To" . ("ishimaru" "z-suzuki")) . "~/.signature-sun") - (("To" . "tea") . "~/.signature-jokes") - (("To" . ("sim" "oku" "takuo")) . "~/.signature-formal") - )) -\end{verbatim} - -mime-setup ¤ò»È¤¦¾ì¹ç¤Ï¡¢mime.el ¤¬É¬ÍפǤ¹¡£¤Þ¤¿¡¢SuperCite ¤ò»È¤¦¾ì -¹ç¤Ï¡¢SuperCite ¤âɬÍפǤ¹¡£ - - -\subsection{tm-setup} - -tm-setup ¤Ï tm-MUA ¤ÎÀßÄê¤Î¤ß¤ò¹Ô¤Ê¤¦ module ¤Ç¤¹¡£mime-setup ¤ò load -¤·¤Æ¤¤¤ë¾ì¹ç¡¢¤³¤ì¤òÍÛ¤Ë load ¤¹¤ëɬÍפϤ¢¤ê¤Þ¤»¤ó¤¬¡¢mime-setup ¤ò»È -¤¤¤¿¤¯¤Ê¤¤¾ì¹ç¡¢°Ê²¼¤Î¤è¤¦¤Ë¤³¤ì¤ò load ¤·¤Æ²¼¤µ¤¤¡£ - -\begin{verbatim} -(load "tm-setup") -\end{verbatim} - - -\subsection{ÀßÄê file ¤ò»È¤ï¤Ê¤¤¾ì¹ç} - -tm-setup.el ¤ò»²¹Í¤Ë¤·¤Æ²¼¤µ¤¤¡£ - - -\subsection{MH ¤ÎÀßÄê} - -¤Þ¤¿¡¢MH ¤¬ MH-6.8JP2 ¤Î¾ì¹ç¡¢.mh\_profile ¤Ë - -\begin{verbatim} -scan: -form scan.mime -inc: -form inc.mime -repl: -form replcomps.mime -showproc: mhl -\end{verbatim} - -\noindent ¤òÄɲ䷤Ƥ¯¤À¤µ¤¤¡£¤Þ¤¿¡¢¤½¤ì°Ê³°¤Î MH ¤Î½èÍý¤Ï Emacs ¤Î¦ -¤Ç¼è¤ê»ÅÀÚ¤ë¤Î¤Ç¡¢MH ¤ÎÀßÄê¤Ï¤·¤Ê¤¤¤è¤¦¤Ë¤·¤Æ¤¯¤À¤µ¤¤¡£ - - -\chapter{tm-MUA} - -``tm-MUA'' ¤È¤¤¤¦¤Î¤Ï¡¢mh-e, GNUS, RMAIL ¤Ê¤É¤Î MUA ¤Î¤¿¤á¤Î MIME µ¡Ç½ -¶¯²½ module ¤ÎÁí¾Î¤Ç¤¹¡£ - -¸½ºß¡¢tm-MUA ¤Ë¤Ï¡¢ - -\begin{itemize} -\item {\bf tm-mh-e} : mh-e ÍѤΠtm-MUA -\item {\bf tm-gnus} : GNUS ÍѤΠtm-MUA -\item {\bf tm-rmail} : RMAIL ÍѤΠtm-MUA -\end{itemize} - -\noindent ¤¬¤¢¤ê¤Þ¤¹¡£¤³¤Î¾Ï¤Ç¤Ï¤³¤ì¤é¤Î module ¤Ë´Ø¤·¤ÆÀâÌÀ¤·¤Þ¤¹¡£ - - -\section{Summary mode} - -tm-MUA ¤ò»È¤¦¤È¡¢¸µ¤Î MUA ¤Î Summary mode ¤ËÂФ·¤Æ°Ê²¼¤Îµ¡Ç½¤¬Äɲ䵤ì -¤Þ¤¹¡£ - -\medskip -\begin{center} - \begin{tabular}{|l|l|}\hline - key & µ¡Ç½ \\ \hline - M-t & MIME header ¤Î decode ¤Ë´Ø¤¹¤ë toggle \\ - v & ËÜʸ¤ËÆþ¤ê¡¢mime/view-mode ¤Ë°Ü¤ë \\ \hline - \end{tabular} -\end{center} -\medskip - - -\section{mime/viewer-mode} -\label{sec:mime/viewer-mode} - -tm-MUA ¤ò»È¤¦¤È¡¢Summary mode ¤Ç {\bf v} ¤ò²¡¤¹¤³¤È¤Ë¤è¤Ã¤Æ¡¢ -mime/viewer-mode ¤È¤¤¤¦ MIME message ¤ò±ÜÍ÷¤¹¤ë¤¿¤á¤Î mode ¤ËÆþ¤ê¤Þ¤¹ -¡Ê⤷¡¢vm ¤Ç¤Ï°ã¤¦ key ¤Ë bind ¤·¤Æ¤¤¤ë¤½¤¦¤Ç¤¹¡Ë¡£mime/viewer-mode -¤Ë¤Ï°Ê²¼¤Îµ¡Ç½¤¬¤¢¤ê¤Þ¤¹¡£ - -\medskip -\begin{center} - \begin{tabular}{|l|l|}\hline - key & µ¡Ç½ \\ \hline - u & ¾å¤Î content ¤ËÌá¤ë \\ - & message ¤Î°ìÈÖ¾å¤Î content ¤Ç¤³¤ì¤ò¹Ô¤Ê¤¦¤È Summary mode - ¤ËÌá¤ë (*1) \\ - p & Á°¤Î content ¤Ë°ÜÆ°¤¹¤ë \\ - n & ¼¡¤Î content ¤Ë°ÜÆ°¤¹¤ë \\ - SPC & scroll up ¤¹¤ë \\ - M-SPC & scroll down ¤¹¤ë \\ - v & content ¤òºÆÀ¸¤¹¤ë (*2) \\ - e & content ¤«¤é file ¤ò¼è¤ê½Ð¤¹ (*2) \\ - C-c C-p & content ¤ò°õºþ¤¹¤ë (*2) \\ \hline - \end{tabular} -\end{center} -\medskip - -\bigskip - -\newcounter{asteriskcount} -\noindent{\bf ¡ÎÃí°Õ¡Ï} -\vspace{-1ex} -{\list{(*\arabic{asteriskcount})}{\usecounter{asteriskcount}\leftmargin=8ex} -\item tm-mh-e, tm-gnus, tm-rmail ¤Ê¤É¤Ç tm-view ¤ÎÀßÄê¤ò¤·¤Æ¤¤¤Ê¤¤¾ì¹ç¡¢ - Summary mode ¤Ë¤ÏÌá¤ê¤Þ¤»¤ó¡£ -\item ¼ÂºÝ¤ÎÆ°ºî¤ÏÂбþ¤¹¤ë method ¤Ë°Í¤ê¤Þ¤¹¡£ -\endlist} - - -\section{tm-gnus ¤Î customize} - -\subsection{article ¤ò save ¤¹¤ë»þ decoding ¤·¤Ê¤¤} - -article ¤ò save ¤¹¤ë»þ¡¢Êݸ¤µ¤ì¤ë message ¤Ï¤½¤Î»þɽ¼¨¤µ¤ì¤Æ¤¤¤ë¤è¤¦ -¤Ë¡¢¤½¤Î»þ¤Î MIME header decoding mode ¤Ë±þ¤¸¤Æ save ¤µ¤ì¤Þ¤¹¡£ - -¤·¤«¤·¡¢article ¤ò save ¤¹¤ë»þ¡¢¾ï¤Ë¡¢MIME header decoding ¤ò¹Ô¤Ê¤ï¤Ê -¤¤¡¢À¸¤Î message ¤ÇÊݸ¤·¤¿¤¤¾ì¹ç¤Ï¡¢ÊÑ¿ô -tm-gnus/set-mime-header-decoding-mode ¤ÎÃͤò nil ¤Ë¤·¤Æ¡¢MIME header -decoding ¤ò¹Ô¤Ê¤ï¤Ê¤¤ mode ¤Ë¤·¤Æ¡¢article save ´Ø¿ô¤ò¼Â¹Ô¤¹¤ë¤è¤¦¤ËÀß -Äꤷ¤Æ²¼¤µ¤¤¡£ - -Save ¤Î¼Â¹Ô¸å¡¢MIME header decoding mode ¤òÁ°¤Î¾õÂÖ¤ËÌᤷ¤¿¤¤¾ì¹ç¤Ï¡¢ -°Ê²¼¤Î¤è¤¦¤Ë¡¢°ì»þÊÑ¿ô¤Ë MIME header decoding mode ¤òÊݸ¤·¤Æ¤ª¤±¤Ð OK -¤Ç¤¹¡£ - -\begin{verbatim} - (let ((mm mime/header-decoding-mode)) - (tm-gnus/set-mime-header-decoding-mode nil) - (article save ´Ø¿ô) - (tm-gnus/set-mime-header-decoding-mode mm) - ) -\end{verbatim} - -°Ê²¼¤Ë¡¢mh-e ¤Î folder ¤Ë save ¤¹¤ë¾ì¹ç¤ÎÎã¤ò¼¨¤·¤Þ¤¹¡£ - -\begin{verbatim} -(add-hook 'gnus-Startup-hook - (function - (lambda () - (setq gnus-default-article-saver - (function - (lambda () - (interactive) - (let ((mm mime/header-decoding-mode)) - (tm-gnus/set-mime-header-decoding-mode nil) - (gnus-Subject-save-in-folder) - (tm-gnus/set-mime-header-decoding-mode mm) - ))))))) -(add-hook 'gnus-startup-hook - (function - (lambda () - (setq gnus-default-article-saver - (function - (lambda () - (interactive) - (let ((mm mime/header-decoding-mode)) - (tm-gnus/set-mime-header-decoding-mode nil) - (gnus-summary-save-in-folder) - (tm-gnus/set-mime-header-decoding-mode mm) - ))))))) -\end{verbatim} - -\subsection{reply ¤¹¤ë»þ Subject ¤Î encoding Ë¡¤ò reply ¸µ¤Ë¹ç¤ï¤»¤ë} - -Reply ¤¹¤ë»þ¡¢reply ¸µ¤Î Subject ¤Ë ASCII °Ê³°¤Îʸ»ú½¸¹ç¤ÎÆþ¤Ã¤Æ¤¤¤ë -¾ì¹ç¡¢reply ¸µ¤¬ MIME encode ¤µ¤ì¤Æ¤¤¤¿¤é encode ¤·¡¢¤½¤¦¤Ç¤Ê¤«¤Ã¤¿¤é -À¸¤ÇÆþ¤ì¤¿¤¤¾ì¹ç¤Ï¡¢¼¡¤Î¤è¤¦¤ËÀßÄꤷ¤Þ¤¹¡£ - -\begin{verbatim} -(add-hook 'gnus-article-prepare-hook - (function - (lambda () - (if (mime/exist-encoded-word-in-subject) - (setq mime/no-encoding-header-fields '("X-Nsubject")) - (setq mime/no-encoding-header-fields '("X-Nsubject" "Subject")) - )))) -\end{verbatim} - - -\chapter{tm-view} - -tm-view ¤Ï MIME message ¤ò±ÜÍ÷¤¹¤ë¤¿¤á¤Îµ¡Ç½¤òÄ󶡤¹¤ë module ¤Ç¤¹¡£ -tm-view ¤Ï mime/viewer-mode ¤È¤¤¤¦ mode ¤òÄ󶡤·¤Þ¤¹¡£ - -mime/viewer-mode ¤Îµ¡Ç½¤Ë´Ø¤·¤Æ¤Ï¡¢\ref{sec:mime/viewer-mode} Àá¤ò»²¾È -¤·¤Æ²¼¤µ¤¤¡£ - -\section{content ¤Î decode ¾ò·ï¤ÎÀßÄê} - -ÊÑ¿ô mime/content-decoding-condition ¤Ï decode »þ¤Î method ¤ò»ØÄꤹ¤ë -¤¿¤á¤ÎÊÑ¿ô¤Ç¡¢tm-view 4 ¤ÎÊÑ¿ô mime/content-decoding-method-alist ¤ËÁê -Åö¤·¤Þ¤¹¡£ - -ÊÑ¿ô mime/content-decoding-method-alist ¤Ç¤Ï¡¢Ã±¤Ë -content-type/subtype ¤ËÂФ¹¤ë method ¤ò»ØÄꤹ¤ë¤³¤È¤·¤«¤Ç¤­¤Þ¤»¤ó¤Ç¤· -¤¿¤¬¡¢ÊÑ¿ô mime/content-decoding-condition ¤Ç¤Ï decode »þ¤ÎÀ©Ìó¾ò·ï¤ò -½ñ¤¯¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ - -ÊÑ¿ô mime/content-decoding-condition ¤Ï¡¢ - -\begin{eqnarray*} - (¾ò·ï_1 \;\; ¾ò·ï_2 \;\; ...) -\end{eqnarray*} - -\noindent ¤È¤¤¤¦·Á¤ò¤·¤¿ list ¤Ç¡¢³Æ¾ò·ï¤Ï - -\begin{eqnarray*} - ((field-type_1 \; . \; value_1) \;\; - (field-type_2 \; . \; value_2) \;\; ...) -\end{eqnarray*} - -\noindent ¤È¤¤¤¦·Á¤ÎÏ¢ÁÛ list ¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£ - -Î㤨¤Ð¡¢text/plain ¤Î»þ¡¢tm-plain ¤òµ¯Æ°¤¹¤ë»þ¡¢ - -\begin{quote} - ((type . "text/plain") - (method "tm-plain" nil 'file 'type 'encoding 'mode 'name)) -\end{quote} - -\noindent ¤È¤¤¤¦¾ò·ï¤ò½ñ¤­¤Þ¤¹¡£¸«¤Æ¤ÎÄ̤ꡢ³°Éô method ¤Î°ú¿ô¤¬½ñ¤±¤ë -¤è¤¦¤Ë¤Ê¤ê¤Þ¤·¤¿¡£¾Ü¤·¤¯¤Ï \ref{sec:method-arguments} Àá¤Ç½Ò¤Ù¤Þ¤¹¡£ - -¤³¤Î¾ò·ï¤Ï text/plain ¤Ç¤¢¤ë content ¤Ê¤éÁ´¤Æ¤Î decoding-mode ¤ÇÍ­¸ú¤Ç -¤¹¡£¤·¤«¤·¡¢ - -\begin{quote} - ((type . "text/plain") - (method "tm-plain" nil 'file 'type 'encoding 'mode 'name) - (mode . "play")) -\end{quote} - -\noindent ¤Ê¤é¡¢play mode °Ê³°¤Ç¤ÏÍ­¸ú¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£ - -µÕ¤Ë¡¢ - -\begin{quote} - ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file) - (mode . "play")) -\end{quote} - -\noindent ¤Ê¤é¡¢Á´¤Æ¤Î content-type ¤Î play mode ¤ÇÍ­¸ú¤Ë¤Ê¤ê¤Þ¤¹¡£ - -¤³¤¦¤·¤Æ³Æ¾ò·ï¤òÁ°¤«¤é¸«¤Æ¹Ô¤­¡¢ºÇ½é¤ËÍ­¸ú¤Ë¤Ê¤Ã¤¿¾ò·ï¤¬¼Â¹Ô¤µ¤ì¤Þ¤¹¡£ - - -\subsection{method ¤Î°ú¿ô¤Î»ØÄê¤Î»ÅÊý} -\label{sec:method-arguments} - -¾ò·ï¤Î method field ¤Ï - -\begin{eqnarray*} - (method \; . \; SYMBOL) -\end{eqnarray*} - -\noindent ¤« - -\begin{eqnarray*} - (method \; ʸ»úÎó \; FLAG \; °ú¿ô_1 \; °ú¿ô_2 \; ...) -\end{eqnarray*} - -\noindent ¤È¤¤¤¦·Á¤ò¤·¤Æ¤¤¤Þ¤¹¡£ - -method field ¤ÎÃͤ¬ symbol ¤Ç¤¢¤ë¾ì¹ç¤Ï¡¢ÆâÉô method ¤È¤·¤Æµ¯Æ°¤µ¤ì¤Þ -¤¹¡£ - -method field ¤ÎÃͤ¬ list ¤Ç¤¢¤ë¾ì¹ç¡¢³°Éô method ¤È¤·¤Æµ¯Æ°¤µ¤ì¤Þ¤¹¡£ -¤³¤Î¾ì¹ç¡¢ - -\begin{quote} - \begin{tabular}{lcl} - ʸ»úÎó&:&³°Éô method ¤Î̾Á° \\ - FLAG&:& t ¤Ê¤é content header ¤â³°Éô method ¤ËÅϤ¹¡£ - nil ¤Ê¤é content body ¤Î¤ß¤òÅϤ¹¡£\\ - °ú¿ôÎó&:&³°Éô method ¤Î°ú¿ô - \end{tabular} -\end{quote} - -\noindent ¤È²ò¼á¤µ¤ì¤Þ¤¹¡£ - -¤Þ¤¿¡¢³°Éô method ¤Î°ú¿ô¤Ï¼¡¤Î¤è¤¦¤Ê·Á¼°¤Ç½ñ¤­¤Þ¤¹¡£ - -\begin{quote} - \begin{tabular}{lcl} - ʸ»úÎó&:&¤½¤Îʸ»úÎó¤òÅϤ¹ \\ - 'SYMBOL&:&SYMBOL ¤ò key ¤È¤·¤¿ÃͤòÅϤ¹\\ - 'ʸ»úÎó&:&ʸ»úÎó¤ò key ¤È¤·¤¿ÃͤòÅϤ¹ - \end{tabular} -\end{quote} - -'SYMBOL ¤Ç»ØÄê¤Ç¤­¤ë¤â¤Î¤Ë¤Ï¡¢ - -\begin{quote} - \begin{tabular}{lcl} - 'file&:&content ¤òÅϤ¹¤¿¤á¤Î file ̾ \\ - 'type&:&content-type/sub-type ̾ \\ - 'encoding&:&content-transfer-encoding \\ - 'mode&:&decoding mode \\ - 'name&:&file ¤ËÍ¾ì¹ç¤Î file ̾ - \end{tabular} -\end{quote} - -\noindent ¤Ê¤É¤¬¤¢¤ê¡¢'ʸ»úÎó ¤Ç¤Ï Content-Type field ¤Î parameter ¤Î -Ãͤ¬»ØÄê¤Ç¤­¤Þ¤¹¡£ - - -\subsection{Îã} - -½é´üÃͤϰʲ¼¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£ - -\begin{verbatim} -(defvar mime/content-decoding-condition - '(((type . "text/plain") - (method "tm-plain" nil 'file 'type 'encoding 'mode 'name)) - ((type . "text/x-latex") - (method "tm-latex" nil 'file 'type 'encoding 'mode 'name)) - ((type . "audio/basic") - (method "tm-au" nil 'file 'type 'encoding 'mode 'name)) - ((type . "image/gif") - (method "tm-image" nil 'file 'type 'encoding 'mode 'name)) - ((type . "image/jpeg") - (method "tm-image" nil 'file 'type 'encoding 'mode 'name)) - ((type . "image/tiff") - (method "tm-image" nil 'file 'type 'encoding 'mode 'name)) - ((type . "image/x-tiff") - (method "tm-image" nil 'file 'type 'encoding 'mode 'name)) - ((type . "image/x-xbm") - (method "tm-image" nil 'file 'type 'encoding 'mode 'name)) - ((type . "image/x-pic") - (method "tm-image" nil 'file 'type 'encoding 'mode 'name)) - ((type . "video/mpeg")` - (method "tm-mpeg" nil 'file 'type 'encoding 'mode 'name)) - ((type . "application/octet-stream") - (method "tm-file" nil 'file 'type 'encoding 'mode 'name)) - ((type . "message/partial") - (method . mime/decode-message/partial-region)) - ((method "metamail" t - "-m" "tm" "-x" "-d" "-z" "-e" 'file)(mode . "play")) - )) -\end{verbatim} - -Î㤨¤Ð¡¢¡ÖÁ´Éô metamail »È¤¦¤ó¤ä¡×¤È¤¤¤¦¾ì¹ç¡¢ - -\begin{verbatim} -(setq mime/content-decoding-condition - '( - ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file)) - )) -\end{verbatim} - -\noindent ¤È¤¹¤ì¤Ð OK ¤Ç¤¹¡£ - -¹©Éפ¹¤ì¤Ð¡¢¤«¤Ê¤êÊ£»¨¤Ê¾ò·ï¤¬½ñ¤±¤ë¤Ç¤·¤ç¤¦¡£ - - -\section{method script} -\label{sec:method} - -³Æ method ¤Ï shell script ¤Ç½ñ¤­¤Þ¤¹¡£tm-verw.el ¤«¤éÅϤµ¤ì¤ë°ú¿ô¤Ï¡¢ -ÊÑ¿ô mime/content-decoding-condition ¤Ç»ØÄê¤Ç¤­¤Þ¤¹¤¬¡¢É¸½àŪ¤Ê°ú¿ôÎó -¤Ï°Ê²¼¤ÎÄ̤ê¤Ç¤¹¡£ - -\medskip -\begin{center} - \begin{tabular}{|c|l|} \hline - °ú¿ô & \multicolumn{1}{|c|}{ ÃÍ }\\ \hline - \$1 & decode Á°¤Î file ̾ \\ - \$2 & Content-Type (type/sub-type) \\ - \$3 & encoding - \{7bit / quoted-printable / base64 / 8bit / binary / ...\}\\ - \$4 & decoding-mode \{play / extract / print\} \\ - \$5 & file ̾ \\ \hline - \end{tabular} -\end{center} -\medskip - -¤Þ¤¿¡¢message/partial ¤À¤±¤Ï tm-view.el ¼«¿È¤ÇÉü¸µ¤·¤Þ¤¹¡£ - - -\section{À©¸Â} - -Éí°¤Î BASE64 decoder ¤Ç¤¢¤ë decode-b.c ¤Ï¤¤¤¤²Ã¸º¤Êºî¤ê¤Ê¤Î¤Ç¡¢Æ°¤«¤Ê -¤«¤Ã¤¿¤é¡¢Ã»¤¤¥×¥í¥°¥é¥à¤Ê¤Î¤Ç¡¢°Õ¤òµâ¤ó¤Ç½¤Àµ¤·¤Æ²¼¤µ¤¤¡£ -(\verb+^+\_\verb+^+; - -¤Þ¤¿¡¢metamail Éí°¤Î mmencode ¤ò»È¤Ã¤Æ decode ¤·¤Æ¤âÎɤ¤¤Ç¤·¤ç¤¦¡£ - -¤Þ¤¿¡¢Quoted-Printable ¤Î decoder ¤ÏÉí°¤·¤Þ¤»¤ó¤Î¤Ç¡¢mmencode ¤ò»È¤Ã -¤Æ²¼¤µ¤¤¡£ - - -\chapter{tiny-mime} - -tiny-mime ¤Ï Mule, NEmacs, NEpoch ¾å¤ÇÆ°ºî¤¹¤ë MIME header ¤Î -encoder/decoder ¤Ç¤¹¡£tiny-mime ¤Ï¡¢ÀΡ¢¤¨¤Ê¤ß ¤Ä¤°¤È¤â ¤µ¤ó¤¬ -fj.editor.emacs ¤ËÅê¹Æ¤µ¤ì¤¿ ISO-2022-JP MIME header decoder ¤ò¸µ¤Ë¤· -¤Æ¤¤¤Þ¤¹¡£ - -¸½ºß¤Ç¤Ï¡¢Åö»þ¤Î¤â¤Î¤ËÈæ¤Ù¡¢ - -\begin{itemize} -\item decoding »þ¤Ë¤ª¤±¤ë unfolding µ¡Ç½¤ÎÄɲà -\item ISO-2022-JP ¤Ë²Ã¤¨¡¢ISO-2022-KR, ISO-8859-*, US-ASCII ¤Ê¤É¤Î¿¸À - ¸ì header ¤Î encode/decode µ¡Ç½¤ÎÄɲà -\item Q-encoding ¤ÎÄɲà -\item RFC 1522 ¤Ø¤ÎÂбþ -\end{itemize} - -\noindent ¤È¤¤¤Ã¤¿µ¡Ç½¶¯²½¤¬¹Ô¤Ê¤ï¤ì¤Æ¤¤¤Þ¤¹¡£ - -tiny-mime ¤Ï tm ¤Ë¤ª¤±¤ë MIME header encoder/decoder ¤Ç¤¢¤ê¡¢tm-view, -tm-MUA ¤¬¤³¤ì¤òÍøÍѤ·¤Æ¤¤¤Þ¤¹¡£ - - -\section{mime/decode-message-header} - -{\tt mime/decode-message-header} ¤Ï MIME header ¤ò decode ¤¹¤ë¤¿¤á¤ÎÌ¿ -Îá¤Ç¤¹¡£tiny-mime ¤¬ load ¤µ¤ì¤Æ¤¤¤ë¾õÂ֤ǡ¢decode ¤·¤¿¤¤ buffer ¤Î¾å -¤Ç¡¢ - -{\list{}{\leftmargin=8ex}\item[] -\par -M-x {\tt mime/decode-message-header} -\endlist} - -\noindent ¤ò¼Â¹Ô¤¹¤ë¤È¡¢¤½¤Î buffer ¾å¤Î MIME header ¤¬ decode ¤µ¤ì¤Þ -¤¹¡£ - -tm-MUA ¤ä tm-view ¤Ï¤³¤ÎÌ¿Îá¤ò¸Æ¤ó¤Ç¤¤¤ë¤Î¤Ç¡¢¤³¤ì¤é¤òÍøÍѤ·¤Æ¤¤¤ë¾ì¹ç¡¢ -Íۤˤ³¤ÎÌ¿Îá¤ò¼Â¹Ô¤¹¤ëɬÍפÏ̵¤¤¤Ç¤·¤ç¤¦¡£ - - -\section{mime/decode-region} - -region ¤ËÂФ·¤Æ¡¢ - -{\list{}{\leftmargin=8ex}\item[] -\par -M-x {\tt mime/decode-region} -\endlist} - -\noindent ¤ò¼Â¹Ô¤¹¤ë¤³¤È¤Ç¡¢°úÍÑ¤Ê¤É¤Ç buffer ¤Ë»Ä¤Ã¤¿ MIME header ¤ò -decode ¤Ç¤­¤Þ¤¹¡£ - - -\chapter{¥Ð¥°Êó¹ð¤Î»ÅÊý} - -tm ¤Î¥Ð¥°¤ò¸«¤Ä¤±¤¿¤é fj.editor.emacs ¤Ë post ¤¹¤ë¤«¡¢tm ML -$<$tm@chamonix.jaist.ac.jp$>$ ¤Ë mail ¤òÁ÷¤Ã¤Æ²¼¤µ¤¤¡£ - -tm ML ¤Ç¤Ï tm ¤Î¥Ð¥°¾ðÊó¤Î¸ò´¹¤äºÇ¿·ÈǤÎÇÛÉÛ¡¢tm ¤Î²þÎɤ˴ؤ¹¤ëµÄÏÀ¤ò -¹Ô¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£tm ML ¤Ë»²²Ã¤·¤¿¤¤Êý¤Ï - -\begin{center} - tm-admin@chamonix.jaist.ac.jp -\end{center} - -\noindent ¤Þ¤Ç mail ¤òÁ÷¤Ã¤Æ²¼¤µ¤¤¡£ÅÐÏ¿¤Ï¼êÆ°¤Ç¤¹¤Î¤Ç¡¢¤Ç¤­¤ì¤Ð¡¢¼«Á³ -¸À¸ì¤Ç½ñ¤¤¤Æ²¼¤µ¤¤¡£(\verb+^+\_\verb+^+) - -\end{document} diff --git a/tm-mail.el b/tm-mail.el deleted file mode 100644 index b9cae54..0000000 --- a/tm-mail.el +++ /dev/null @@ -1,89 +0,0 @@ -;;; -;;; tm-mail.el --- mail-mode extension. -;;; -;;; Copyright (C) 1995,1996 KOBAYASHI Shuhei -;;; -;;; Author: KOBAYASHI Shuhei -;;; modified by MORIOKA Tomohiko -;;; and Neal Becker -;;; Maintainer: KOBAYASHI Shuhei -;;; Created: 1995/11/27 -;;; Version: $Id: tm-mail.el,v 6.0 1996/04/16 18:24:02 morioka Exp $ -;;; Keywords: mail, MIME, multimedia -;;; -;;; This file is part of tm (Tools for MIME). -;;; -;;; This program is free software; you can redistribute it and/or -;;; modify it under the terms of the GNU General Public License as -;;; published by the Free Software Foundation; either version 2, or -;;; (at your option) any later version. -;;; -;;; This program is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;;; General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with This program. If not, write to the Free Software -;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;; -;;; Code: - -(require 'tm-edit) - -(defun tm-mail/insert-message (&optional message) - (interactive) - (let* (mail-yank-hooks - (mail-citation-hook '(mime-editor/inserted-message-filter)) - ) - (cond - ((and (boundp 'vm-mail-buffer) vm-mail-buffer) - ;; called from VM. - (let ((mail-reply-buffer vm-mail-buffer)) - (if (null message) - (call-interactively 'vm-yank-message) - (vm-yank-message message))) - ) - ((boundp 'rmail-send-actions-rmail-buffer) - ;; called from RMAIL, emacs-19.29 or later. - (mail-yank-original nil) - ) - ((and (boundp 'gnus-article-buffer) (get-buffer gnus-article-buffer)) - ;; maybe called from Gnus. - (tm-gnus/insert-article) - ) - ((and (boundp 'mail-reply-buffer) mail-reply-buffer) - ;; maybe called from RMAIL. - (mail-yank-original nil) - ) - (t - (message "Sorry, I don't have message inserter for your MUA.") - )) - )) - -(defvar tm-mail/use-xemacs-popup-menu running-xemacs) - -(if (and running-xemacs tm-mail/use-xemacs-popup-menu) - (cond - ((string-match "19.14" emacs-version) - (setq mail-menubar-menu - (append mail-menubar-menu - (list "---" - mime-editor/popup-menu-for-xemacs))) - ) - (t - (setq mail-mode-menu - (append mail-mode-menu - (list "---" - mime-editor/popup-menu-for-xemacs))) - ) - ) - ) - - -;;; @ end -;;; - -(provide 'tm-mail) - -;;; tm-mail.el ends here diff --git a/tm-mh-e-eng.ol b/tm-mh-e-eng.ol deleted file mode 100644 index 67edfe5..0000000 --- a/tm-mh-e-eng.ol +++ /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 index dbb9d44..0000000 --- a/tm-mh-e-eng.tex +++ /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 index 1cc52c0..0000000 --- a/tm-mh-e-jp.ol +++ /dev/null @@ -1,104 +0,0 @@ -$B!X(Btm-mh-e $B@bL@=q!Y(B -by. $Bl9g$O!"(Bmh-e version 3.* $B$r(B load $B$7(B -$B$?>uBV$G9T$J$C$F2<$5$$!#(B - - -* $B@_Dj(B - - mime-setup $B$r;H$C$F2<$5$$!#(B - - mime-setup $B$r;H$o$J$$>l9g$O(B .emacs $B$K0J2<$N$b$N$rF~$l$^$9!#(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 - - $B$^$?!"(BMH $B$,(B MH-6.8JP2 $B$N>l9g!"(B~/.mh_profile $B$K(B - -[[E ----------------------------------------------------------------------- -scan: -form scan.mime -inc: -form inc.mime -repl: -form replcomps.mime -showproc: mhl ----------------------------------------------------------------------- -]]E - -$B$rDI2C$7$F$/$@$5$$!#$^$?!"$=$l0J30$N(B MH $B$N=hM}$O(B Emacs $B$NB&$Gl9g(B .emacs $B$K0J2<$N$b$N$rF~$l$F2<$5$$!#(B - -[[E ----------------------------------------------------------------------- -(autoload 'metamail-buffer "metamail" nil t) -(setq mime/body-decoding-method (function metamail-buffer)) ----------------------------------------------------------------------- -]]E - - metamail $B$r;H$&@_Dj$N>l9g!"(B`v', `e', `C-c p' $B$KBP1~$9$kF0:n$O(B -metamail $B$K$+$1$k$@$1$K$J$j!"F10l$NF0:n$K$J$j$^$9!#$^$?!"F0:n$OC` -;;; Version: -;;; $Id: tm-mule.el,v 7.9 1996/04/16 13:42:44 morioka Exp $ -;;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word -;;; -;;; This file is part of tm (Tools for MIME). -;;; -;;; This program is free software; you can redistribute it and/or -;;; modify it under the terms of the GNU General Public License as -;;; published by the Free Software Foundation; either version 2, or -;;; (at your option) any later version. -;;; -;;; This program is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;;; General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with This program. If not, write to the Free Software -;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;; -;;; Code: - -(require 'emu) -(require 'tl-list) - - -;;; @ coding-system -;;; - -(defvar mime/charset-coding-system-alist - '(("ISO-2022-JP" . *iso-2022-ss2-7*) - ("ISO-2022-JP-2" . *iso-2022-ss2-7*) - ("X-ISO-2022-JP-2" . *iso-2022-ss2-7*) - ("ISO-2022-CN" . *iso-2022-ss2-7*) - ("ISO-2022-KR" . *iso-2022-kr*) - ("EUC-KR" . *euc-kr*) - ("ISO-8859-1" . *ctext*) - ("ISO-8859-2" . *iso-8859-2*) - ("ISO-8859-3" . *iso-8859-3*) - ("ISO-8859-4" . *iso-8859-4*) - ("ISO-8859-5" . *iso-8859-5*) - ("KOI8-R" . *koi8*) - ("ISO-8859-7" . *iso-8859-7*) - ("ISO-8859-8" . *iso-8859-8*) - ("ISO-8859-9" . *iso-8859-9*) - ("ISO-2022-INT-1" . *iso-2022-int-1*) - ("SHIFT_JIS" . *sjis*) - ("X-SHIFTJIS" . *sjis*) - )) - - -;;; @ leading-character and charset -;;; - -(defvar mime/lc-charset-alist - (list - (cons (list lc-ascii) "US-ASCII") - (cons (list lc-ascii lc-ltn1) "ISO-8859-1") - (cons (list lc-ascii lc-ltn2) "ISO-8859-2") - (cons (list lc-ascii lc-ltn3) "ISO-8859-3") - (cons (list lc-ascii lc-ltn4) "ISO-8859-4") -;;;(cons (list lc-ascii lc-crl) "ISO-8859-5") - (cons (list lc-ascii lc-crl) "KOI8-R") - (cons (list lc-ascii lc-grk) "ISO-8859-7") - (cons (list lc-ascii lc-hbw) "ISO-8859-8") - (cons (list lc-ascii lc-ltn5) "ISO-8859-9") - (cons (list lc-ascii lc-jp) "ISO-2022-JP") - (cons (list lc-ascii lc-kr) "EUC-KR") - (cons (list lc-ascii - lc-jp lc-cn - lc-kr lc-jp2 - lc-ltn1 lc-grk) "ISO-2022-JP-2") - (cons (list lc-ascii - lc-jp lc-cn - lc-kr lc-jp2 - lc-cns1 lc-cns2 - lc-ltn1 lc-grk) "ISO-2022-INT-1") - )) - -(defvar mime/unknown-charset "ISO-2022-INT-1") - - -;;; @ functions -;;; - -(defun mime/convert-string-to-emacs (charset str) - (let ((cs (cdr (assoc charset mime/charset-coding-system-alist)))) - (if cs - (code-convert-string str cs *internal*) - ))) - -(defun mime/convert-string-from-emacs (str charset) - (let ((cs (cdr (assoc charset mime/charset-coding-system-alist)))) - (if cs - (code-convert-string str *internal* cs) - ))) - -(defun mime/code-convert-region-to-emacs (beg end charset &optional encoding) - (if (stringp charset) - (progn - (setq charset (upcase charset)) - (let ((ct (cdr (assoc charset mime/charset-coding-system-alist)))) - (if ct - (code-convert beg end ct *internal*) - ))) - (if mime/default-coding-system - (code-convert beg end mime/default-coding-system *internal*) - ))) - - -;;; @ end -;;; - -(provide 'tm-mule) - -(run-hooks 'tm-mule-load-hook) - -;;; tm-mule.el ends here diff --git a/tm-nemacs.el b/tm-nemacs.el deleted file mode 100644 index aad2249..0000000 --- a/tm-nemacs.el +++ /dev/null @@ -1,80 +0,0 @@ -;;; -;;; tm-nemacs.el --- tm definitions depended on NEmacs -;;; -;;; Copyright (C) 1995 Free Software Foundation, Inc. -;;; Copyright (C) 1994,1995,1996 MORIOKA Tomohiko -;;; -;;; Author: MORIOKA Tomohiko -;;; Version: -;;; $Id: tm-nemacs.el,v 7.6 1996/01/11 05:12:50 morioka Exp $ -;;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word -;;; -;;; This file is part of tm (Tools for MIME). -;;; -;;; This program is free software; you can redistribute it and/or -;;; modify it under the terms of the GNU General Public License as -;;; published by the Free Software Foundation; either version 2, or -;;; (at your option) any later version. -;;; -;;; This program is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;;; General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with This program. If not, write to the Free Software -;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;; -;;; Code: - -(require 'emu) - - -;;; @ variables -;;; - -(defvar mime/default-coding-system *junet*) - -(defvar mime/lc-charset-alist - (list - (cons (list lc-ascii) "US-ASCII") - (cons (list lc-ascii lc-jp) "ISO-2022-JP") - )) - -(defvar mime/unknown-charset "ISO-2022-JP") - - -;;; @ functions -;;; - -(defun mime/convert-string-to-emacs (charset str) - (cond ((string= "ISO-2022-JP" charset) - (code-convert-string str *junet* *internal*)) - ((string= "US-ASCII" charset) str) - ((string-match "^ISO-8859-[1-9]$" charset) - (check-ASCII-string str)) - )) - -(defun mime/convert-string-from-emacs (string charset) - (cond ((string= charset "ISO-2022-JP") - (code-convert-string string *internal* *junet*)) - ((string= charset "US-ASCII") string) - )) - -(defun mime/code-convert-region-to-emacs (beg end charset &optional encoding) - (if (stringp charset) - (progn - (setq charset (upcase charset)) - (if (string= charset "ISO-2022-JP") - (code-convert-region beg end *junet* *internal*) - )))) - - -;;; @ end -;;; - -(provide 'tm-nemacs) - -(run-hooks 'tm-nemacs-load-hook) - -;;; tm-nemacs.el ends here diff --git a/tm-orig.el b/tm-orig.el deleted file mode 100644 index 43e5ec5..0000000 --- a/tm-orig.el +++ /dev/null @@ -1,71 +0,0 @@ -;;; -;;; tm-orig.el --- tm definitions depended on FSF Original Emacs -;;; -;;; Copyright (C) 1995 Free Software Foundation, Inc. -;;; Copyright (C) 1994,1995,1996 MORIOKA Tomohiko -;;; -;;; Author: MORIOKA Tomohiko -;;; Version: -;;; $Id: tm-orig.el,v 7.6 1996/01/11 05:15:05 morioka Exp $ -;;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word -;;; -;;; This file is part of tm (Tools for MIME). -;;; -;;; This program is free software; you can redistribute it and/or -;;; modify it under the terms of the GNU General Public License as -;;; published by the Free Software Foundation; either version 2, or -;;; (at your option) any later version. -;;; -;;; This program is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;;; General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with This program. If not, write to the Free Software -;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;; -;;; Code: - -(require 'emu) - - -;;; @ variables -;;; - -(defvar mime/default-coding-system nil) - -(defvar mime/lc-charset-alist - (list - (cons (list lc-ascii) "US-ASCII") - (cons (list lc-ascii lc-ltn1) "ISO-8859-1") - )) - -(defvar mime/unknown-charset "ISO-8859-1") - - -;;; @ functions -;;; - -(defun mime/convert-string-to-emacs (charset str) - (if (or (string= "US-ASCII" charset) - (string= "ISO-8859-1" charset)) - str)) - -(defun mime/convert-string-from-emacs (str charset) - (if (or (string= charset "US-ASCII") - (string= charset "ISO-8859-1")) - str)) - -(defun mime/code-convert-region-to-emacs (beg end charset &optional encoding) - ) - - -;;; @ end -;;; - -(provide 'tm-orig) - -(run-hooks 'tm-orig-load-hook) - -;;; tm-orig.el ends here diff --git a/tm-rich.el b/tm-rich.el deleted file mode 100644 index 447f61b..0000000 --- a/tm-rich.el +++ /dev/null @@ -1,91 +0,0 @@ -;;; -;;; tm-rich.el --- text/enriched and text/richtext style -;;; richtext filter for tm-view -;;; -;;; Copyright (C) 1995 Free Software Foundation, Inc. -;;; Copyright (C) 1994 .. 1996 MORIOKA Tomohiko -;;; -;;; Author: MORIOKA Tomohiko -;;; Version: -;;; $Id: tm-rich.el,v 7.5 1996/05/07 06:28:36 morioka Exp $ -;;; Keywords: mail, news, MIME, multimedia, richtext, enriched -;;; -;;; This file is part of tm (Tools for MIME). -;;; -;;; This program is free software; you can redistribute it and/or -;;; modify it under the terms of the GNU General Public License as -;;; published by the Free Software Foundation; either version 2, or -;;; (at your option) any later version. -;;; -;;; This program is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;;; General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with This program. If not, write to the Free Software -;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;; -;;; Code: - -(require 'tm-view) - - -;;; @ content filters for tm-view -;;; - -(defun mime-viewer/filter-text/richtext (ctype params encoding) - (let* ((mode mime::preview/original-major-mode) - (m (assq mode mime-viewer/code-converter-alist)) - (charset (assoc "charset" params)) - ;; 1995/9/21 (c.f. tm-eng:105), 1995/10/3 (c.f. tm-eng:121) - ;; modified by Eric Ding - (beg (point-min)) (end (point-max)) - ) - (remove-text-properties beg end '(face nil)) - (mime/decode-region encoding beg end) - (if (and m (fboundp (setq m (cdr m)))) - (funcall m beg (point-max) charset encoding) - (mime-viewer/default-code-convert-region beg (point-max) - charset encoding) - ) - (richtext-decode beg (point-max)) - )) - -(defun mime-viewer/filter-text/enriched (ctype params encoding) - (let* ((mode mime::preview/original-major-mode) - (m (assq mode mime-viewer/code-converter-alist)) - (charset (assoc "charset" params)) - ;; 1995/9/21 (c.f. tm-eng:105), 1995/10/3 (c.f. tm-eng:121) - ;; modified by Eric Ding - (beg (point-min)) (end (point-max)) - ) - (remove-text-properties beg end '(face nil)) - (mime/decode-region encoding beg end) - (if (and m (fboundp (setq m (cdr m)))) - (funcall m beg (point-max) charset encoding) - (mime-viewer/default-code-convert-region beg (point-max) - charset encoding) - ) - (enriched-decode beg (point-max)) - )) - - -;;; @ setting -;;; - -(set-alist 'mime-viewer/content-filter-alist - "text/richtext" (function mime-viewer/filter-text/richtext)) - -(set-alist 'mime-viewer/content-filter-alist - "text/enriched" (function mime-viewer/filter-text/enriched)) - - -;;; @ end -;;; - -(provide 'tm-rich) - -(run-hooks 'tm-rich-load-hook) - -;;; tm-rich.el ends here diff --git a/tm-rmail.el b/tm-rmail.el deleted file mode 100644 index 24f4971..0000000 --- a/tm-rmail.el +++ /dev/null @@ -1,388 +0,0 @@ -;;; -;;; Copyright (C) 1995 Free Software Foundation, Inc. -;;; Copyright (C) 1994 .. 1996 MORIOKA Tomohiko -;;; -;;; Author: MORIOKA Tomohiko -;;; modified by KOBAYASHI Shuhei -;;; Created: 1994/8/30 -;;; Version: -;;; $Revision: 7.25 $ -;;; Keywords: mail, MIME, multimedia, multilingual, encoded-word -;;; -;;; This file is part of tm (Tools for MIME). -;;; -;;; This program is free software; you can redistribute it and/or -;;; modify it under the terms of the GNU General Public License as -;;; published by the Free Software Foundation; either version 2, or -;;; (at your option) any later version. -;;; -;;; This program is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;;; General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with This program. If not, write to the Free Software -;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;; -;;; Code: - -(require 'tl-list) -(require 'tl-misc) -(require 'rmail) - -(autoload 'mime/viewer-mode "tm-view" "View MIME message." t) -(autoload 'mime/Content-Type "tm-view" "parse Content-Type field.") -(autoload 'mime/decode-message-header "tm-ew-d" "Decode MIME encoded-word." t) - - -;;; @ variables -;;; - -(defconst tm-rmail/RCS-ID - "$Id: tm-rmail.el,v 7.25 1996/06/12 05:38:23 morioka Exp $") -(defconst tm-rmail/version (get-version-string tm-rmail/RCS-ID)) - -(defvar tm-rmail/decode-all nil) - - -;;; @ message filter -;;; - -(setq rmail-message-filter - (function - (lambda () - (let ((mf (buffer-modified-p)) - (buffer-read-only nil)) - (mime/decode-message-header) - (set-buffer-modified-p mf) - )))) - - -;;; @ MIME preview -;;; - -(defun tm-rmail/show-all-header-p () - (save-restriction - (narrow-to-region (point-min) - (and (re-search-forward "^$" nil t) - (match-beginning 0))) - (goto-char (point-min)) - (re-search-forward rmail-ignored-headers nil t) - )) - -(defun tm-rmail/preview-message () - (interactive) - (setq tm-rmail/decode-all t) - (let ((ret (tm-rmail/get-Content-Type-and-Content-Transfer-Encoding))) - (narrow-to-region (point-min) - (save-excursion - (goto-char (point-max)) - (if (and (re-search-backward "^\n") - (eq (match-end 0)(point-max))) - (match-beginning 0) - (point-max) - ))) - (let ((abuf (current-buffer)) - (buf-name (format "*Preview-%s [%d/%d]*" - (buffer-name) - rmail-current-message rmail-total-messages)) - buf win) - (if (and mime::article/preview-buffer - (setq buf (get-buffer mime::article/preview-buffer)) - ) - (progn - (save-excursion - (set-buffer buf) - (rename-buffer buf-name) - ) - (if (setq win (get-buffer-window buf)) - (progn - (delete-window (get-buffer-window abuf)) - (set-window-buffer win abuf) - (set-buffer abuf) - )) - )) - (setq win (get-buffer-window abuf)) - (save-window-excursion - (mime/viewer-mode nil (car ret)(cdr ret) nil buf-name) - (or buf - (setq buf (current-buffer)) - ) - ) - (set-window-buffer win buf) - ))) - -(defun tm-rmail/preview-message-if-you-need () - (if tm-rmail/decode-all - (tm-rmail/preview-message) - )) - -(add-hook 'rmail-show-message-hook 'tm-rmail/preview-message-if-you-need) - -(cond ((fboundp 'rmail-summary-rmail-update) - ;; for Emacs 19 or later - (or (fboundp 'tm:rmail-summary-rmail-update) - (fset 'tm:rmail-summary-rmail-update - (symbol-function 'rmail-summary-rmail-update)) - ) - - (defun rmail-summary-rmail-update () - (tm:rmail-summary-rmail-update) - (if tm-rmail/decode-all - (let ((win (get-buffer-window rmail-buffer))) - (if win - (delete-window win) - ))) - ) - - (defun tm-rmail/get-Content-Type-and-Content-Transfer-Encoding () - (rmail-widen-to-current-msgbeg - (function - (lambda () - (cons (mime/Content-Type) - (mime/Content-Transfer-Encoding "7bit") - ))))) - ) - (t - ;; for Emacs 18 - (defun tm-rmail/get-Content-Type-and-Content-Transfer-Encoding () - (save-restriction - (rmail-widen-to-current-msgbeg - (function - (lambda () - (goto-char (point-min)) - (narrow-to-region (or (and (re-search-forward "^.+:" nil t) - (match-beginning 0)) - (point-min)) - (point-max)) - ))) - (cons (mime/Content-Type) - (mime/Content-Transfer-Encoding "7bit") - ))) - )) - -(define-key rmail-mode-map "v" (function tm-rmail/preview-message)) - -(defun tm-rmail/setup () - (local-set-key "v" (function - (lambda () - (interactive) - (set-buffer rmail-buffer) - (tm-rmail/preview-message) - ))) - ) - -(add-hook 'rmail-summary-mode-hook 'tm-rmail/setup) - - -;;; @ over-to-* and quitting methods -;;; - -(defun tm-rmail/quitting-method-to-summary () - (mime-viewer/kill-buffer) - (rmail-summary) - (delete-other-windows) - ) - -(defun tm-rmail/quitting-method-to-article () - (setq tm-rmail/decode-all nil) - (mime-viewer/kill-buffer) - ) - -(defalias 'tm-rmail/quitting-method 'tm-rmail/quitting-method-to-article) - - -(defun tm-rmail/over-to-previous-method () - (let (tm-rmail/decode-all) - (mime-viewer/quit) - ) - (if (not (eq (rmail-next-undeleted-message -1) t)) - (tm-rmail/preview-message) - ) - ) - -(defun tm-rmail/over-to-next-method () - (let (tm-rmail/decode-all) - (mime-viewer/quit) - ) - (if (not (eq (rmail-next-undeleted-message 1) t)) - (tm-rmail/preview-message) - ) - ) - -(defun tm-rmail/show-summary-method () - (save-excursion - (set-buffer mime::preview/article-buffer) - (rmail-summary) - )) - -(call-after-loaded - 'tm-view - (function - (lambda () - (set-alist 'mime-viewer/quitting-method-alist - 'rmail-mode - (function tm-rmail/quitting-method)) - - (set-alist 'mime-viewer/over-to-previous-method-alist - 'rmail-mode - (function tm-rmail/over-to-previous-method)) - - (set-alist 'mime-viewer/over-to-next-method-alist - 'rmail-mode - (function tm-rmail/over-to-next-method)) - - (set-alist 'mime-viewer/show-summary-method - 'rmail-mode - (function tm-rmail/show-summary-method)) - ))) - - -;;; @ for tm-partial -;;; - -(call-after-loaded - 'tm-partial - (function - (lambda () - (set-atype 'mime/content-decoding-condition - '((type . "message/partial") - (method . mime-article/grab-message/partials) - (major-mode . rmail-mode) - (summary-buffer-exp - . (progn - (rmail-summary) - (pop-to-buffer rmail-buffer) - rmail-summary-buffer)) - )) - (set-alist 'tm-partial/preview-article-method-alist - 'rmail-mode - (function - (lambda () - (rmail-summary-goto-msg (count-lines 1 (point))) - (pop-to-buffer rmail-buffer) - (tm-rmail/preview-message) - ))) - ))) - - -;;; @ for tm-edit -;;; - -(defun tm-rmail/forward () - "Forward current message in message/rfc822 content-type message -from rmail. The message will be appended if being composed." - (interactive) - ;;>> this gets set even if we abort. Can't do anything about it, though. - (rmail-set-attribute "forwarded" t) - (let ((initialized nil) - (beginning nil) - (msgnum rmail-current-message) - (rmail-buffer (current-buffer)) - (subject (concat "[" - (mail-strip-quoted-names - (mail-fetch-field "From")) - ": " (or (mail-fetch-field "Subject") "") "]"))) - ;; If only one window, use it for the mail buffer. - ;; Otherwise, use another window for the mail buffer - ;; so that the Rmail buffer remains visible - ;; and sending the mail will get back to it. - (setq initialized - (if (one-window-p t) - (mail nil nil subject) - (mail-other-window nil nil subject))) - (save-excursion - ;; following two variables are used in 19.29 or later. - (make-local-variable 'rmail-send-actions-rmail-buffer) - (make-local-variable 'rmail-send-actions-rmail-msg-number) - (make-local-variable 'mail-reply-buffer) - (setq rmail-send-actions-rmail-buffer rmail-buffer) - (setq rmail-send-actions-rmail-msg-number msgnum) - (setq mail-reply-buffer rmail-buffer) - (goto-char (point-max)) - (forward-line 1) - (setq beginning (point)) - (mime-editor/insert-tag "message" "rfc822") -;; (insert-buffer rmail-buffer)) -;; (mime-editor/inserted-message-filter)) - (tm-mail/insert-message)) - (if (not initialized) - (goto-char beginning)) - )) - -(defun gnus-mail-forward-using-mail-mime () - "Forward current article in message/rfc822 content-type message from -GNUS. The message will be appended if being composed." - (let ((initialized nil) - (beginning nil) - (forwarding-buffer (current-buffer)) - (subject - (concat "[" gnus-newsgroup-name "] " - ;;(mail-strip-quoted-names (gnus-fetch-field "From")) ": " - (or (gnus-fetch-field "Subject") "")))) - ;; If only one window, use it for the mail buffer. - ;; Otherwise, use another window for the mail buffer - ;; so that the Rmail buffer remains visible - ;; and sending the mail will get back to it. - (setq initialized - (if (one-window-p t) - (mail nil nil subject) - (mail-other-window nil nil subject))) - (save-excursion - (goto-char (point-max)) - (setq beginning (point)) - (mime-editor/insert-tag "message" "rfc822") - (insert-buffer forwarding-buffer) - ;; You have a chance to arrange the message. - (run-hooks 'gnus-mail-forward-hook) - ) - (if (not initialized) - (goto-char beginning)) - )) - -(call-after-loaded - 'mime-setup - (function - (lambda () - (substitute-key-definition - 'rmail-forward 'tm-rmail/forward rmail-mode-map) - - ;; (setq gnus-mail-forward-method 'gnus-mail-forward-using-mail-mime) - - (call-after-loaded - 'tm-edit - (function - (lambda () - (require 'tm-mail) - (set-alist 'mime-editor/message-inserter-alist - 'mail-mode (function tm-mail/insert-message)) - (set-alist 'mime-editor/split-message-sender-alist - 'mail-mode (function - (lambda () - (interactive) - (sendmail-send-it) - ))) - ))) - ))) - - -;;; @ for BBDB -;;; - -(call-after-loaded - 'bbdb - (function - (lambda () - (require 'tm-bbdb) - ))) - - -;;; @ end -;;; - -(provide 'tm-rmail) - -(run-hooks 'tm-rmail-load-hook) - -;;; tm-rmail.el ends here. diff --git a/tm-vm.el b/tm-vm.el deleted file mode 100644 index 962cc18..0000000 --- a/tm-vm.el +++ /dev/null @@ -1,1090 +0,0 @@ -;;; tm-vm.el --- tm-MUA (MIME Extension module) for VM - -;; Copyright (C) 1994,1995,1996 Free Software Foundation, Inc. - -;; Author: MASUTANI Yasuhiro -;; Kenji Wakamiya -;; MORIOKA Tomohiko -;; Shuhei KOBAYASHI -;; Oscar Figueiredo -;; Maintainer: Shuhei KOBAYASHI -;; Created: 1994/10/29 -;; Version: $Revision: 7.62 $ -;; Keywords: mail, MIME, multimedia, multilingual, encoded-word - -;; This file is part of tm (Tools for MIME). - -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License as -;; published by the Free Software Foundation; either version 2, or (at -;; your option) any later version. - -;; This program is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with this program; see the file COPYING. If not, write to -;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Commentary: - -;; Plese insert `(require 'tm-vm)' in your ~/.vm file. - -;;; Code: - -(require 'tm-view) -(require 'vm) - -(defconst tm-vm/RCS-ID - "$Id: tm-vm.el,v 7.62 1996/08/31 14:24:35 morioka Exp $") -(defconst tm-vm/version (get-version-string tm-vm/RCS-ID)) - -(define-key vm-mode-map "Z" 'tm-vm/view-message) -(define-key vm-mode-map "T" 'tm-vm/decode-message-header) -(define-key vm-mode-map "\et" 'tm-vm/toggle-preview-mode) - -(defvar tm-vm/use-original-url-button nil - "*If it is t, use original URL button instead of tm's.") - -(defvar tm-vm-load-hook nil - "*List of functions called after tm-vm is loaded.") - - -;;; @ for MIME encoded-words -;;; - -(defvar tm-vm/use-tm-patch nil - "Does not decode encoded-words in summary buffer if it is t. -If you use tiny-mime patch for VM (by RIKITAKE Kenji -), please set it t [tm-vm.el]") - -(or tm-vm/use-tm-patch - (progn -;;; -(defvar tm-vm/chop-full-name-function 'tm-vm/default-chop-full-name) -(setq vm-chop-full-name-function tm-vm/chop-full-name-function) - -(defun tm-vm/default-chop-full-name (address) - (let* ((ret (vm-default-chop-full-name address)) - (full-name (car ret)) - ) - (if (stringp full-name) - (cons (mime-eword/decode-string full-name) - (cdr ret)) - ret))) - -(require 'vm-summary) -(or (fboundp 'tm:vm-su-subject) - (fset 'tm:vm-su-subject (symbol-function 'vm-su-subject)) - ) -(defun vm-su-subject (m) - (mime-eword/decode-string (tm:vm-su-subject m)) - ) - -(or (fboundp 'tm:vm-su-full-name) - (fset 'tm:vm-su-full-name (symbol-function 'vm-su-full-name)) - ) -(defun vm-su-full-name (m) - (mime-eword/decode-string (tm:vm-su-full-name m)) - ) - -(or (fboundp 'tm:vm-su-to-names) - (fset 'tm:vm-su-to-names (symbol-function 'vm-su-to-names)) - ) -(defun vm-su-to-names (m) - (mime-eword/decode-string (tm:vm-su-to-names m)) - ) -;;; -)) - -(defun tm-vm/decode-message-header (&optional count) - "Decode MIME header of current message. -Numeric prefix argument COUNT means to decode the current message plus -the next COUNT-1 messages. A negative COUNT means decode the current -message and the previous COUNT-1 messages. -When invoked on marked messages (via vm-next-command-uses-marks), -all marked messages are affected, other messages are ignored." - (interactive "p") - (or count (setq count 1)) - (vm-follow-summary-cursor) - (vm-select-folder-buffer) - (vm-check-for-killed-summary) - (vm-error-if-folder-empty) - (vm-error-if-folder-read-only) - (let ((mlist (vm-select-marked-or-prefixed-messages count)) - (realm nil) - (vlist nil) - (vbufs nil)) - (save-excursion - (while mlist - (setq realm (vm-real-message-of (car mlist))) - ;; Go to real folder of this message. - ;; But maybe this message is already real message... - (set-buffer (vm-buffer-of realm)) - (let ((buffer-read-only nil)) - (vm-save-restriction - (narrow-to-region (vm-headers-of realm) (vm-text-of realm)) - (mime/decode-message-header)) - (let ((vm-message-pointer (list realm)) - (last-command nil)) - (vm-discard-cached-data)) - ;; Mark each virtual and real message for later summary - ;; update. - (setq vlist (cons realm (vm-virtual-messages-of realm))) - (while vlist - (vm-mark-for-summary-update (car vlist)) - ;; Remember virtual and real folders related this message, - ;; for later display update. - (or (memq (vm-buffer-of (car vlist)) vbufs) - (setq vbufs (cons (vm-buffer-of (car vlist)) vbufs))) - (setq vlist (cdr vlist))) - (if (eq vm-flush-interval t) - (vm-stuff-virtual-attributes realm) - (vm-set-modflag-of realm t))) - (setq mlist (cdr mlist))) - ;; Update mail-buffers and summaries. - (while vbufs - (set-buffer (car vbufs)) - (vm-preview-current-message) - (setq vbufs (cdr vbufs)))))) - - -;;; @ automatic MIME preview -;;; - -(defvar tm-vm/automatic-mime-preview t - "*If non-nil, show MIME processed article.") - -(defvar tm-vm/strict-mime t - "*If nil, do MIME processing even if there is not MIME-Version field.") - -(defvar tm-vm/select-message-hook nil - "*List of functions called every time a message is selected. -tm-vm uses `vm-select-message-hook', use this hook instead.") - -(defvar tm-vm/system-state nil) -(defun tm-vm/system-state () - (save-excursion - (if mime::preview/article-buffer - (set-buffer mime::preview/article-buffer) - (vm-select-folder-buffer)) - tm-vm/system-state)) - -(defun tm-vm/display-preview-buffer () - (let* ((mbuf (current-buffer)) - (mwin (vm-get-visible-buffer-window mbuf)) - (pbuf (and mime::article/preview-buffer - (get-buffer mime::article/preview-buffer))) - (pwin (and pbuf (vm-get-visible-buffer-window pbuf)))) - (if (and pbuf (tm-vm/system-state)) - ;; display preview buffer - (cond - ((and mwin pwin) - (vm-undisplay-buffer mbuf) - (tm-vm/show-current-message)) - ((and mwin (not pwin)) - (set-window-buffer mwin pbuf) - (tm-vm/show-current-message)) - (pwin - (tm-vm/show-current-message)) - (t - ;; don't display if neither mwin nor pwin was displayed before. - )) - ;; display folder buffer - (cond - ((and mwin pwin) - (vm-undisplay-buffer pbuf)) - ((and (not mwin) pwin) - (set-window-buffer pwin mbuf)) - (mwin - ;; folder buffer is already displayed. - ) - (t - ;; don't display if neither mwin nor pwin was displayed before. - ))) - (set-buffer mbuf))) - -(defun tm-vm/preview-current-message () - ;; assumed current buffer is folder buffer. - (setq tm-vm/system-state nil) - (if (get-buffer mime/output-buffer-name) - (vm-undisplay-buffer mime/output-buffer-name)) - (if (and vm-message-pointer tm-vm/automatic-mime-preview) - (if (or (not tm-vm/strict-mime) - (vm-get-header-contents (car vm-message-pointer) - "MIME-Version:")) - ;; do MIME processiong. - (progn - (set (make-local-variable 'tm-vm/system-state) 'previewing) - (save-window-excursion - (vm-widen-page) - (goto-char (point-max)) - (widen) - (narrow-to-region (point) - (save-excursion - (goto-char - (vm-start-of (car vm-message-pointer)) - ) - (forward-line) - (point) - )) - (mime/viewer-mode) - (if (and tm-vm/use-original-url-button - vm-use-menus (vm-menu-support-possible-p)) - (vm-energize-urls)) - ;; 1996/2/16, fixed by - ;; Oscar Figueiredo - ;; Highlight message (and display XFace if supported) - (if (or vm-highlighted-header-regexp - (and (vm-xemacs-p) vm-use-lucid-highlighting)) - (vm-highlight-headers)) - (if (and vm-use-menus (vm-menu-support-possible-p)) - (vm-energize-headers)) ;; - (goto-char (point-min)) - (narrow-to-region (point) (search-forward "\n\n" nil t)) - )) - ;; don't do MIME processing. decode header only. - (let (buffer-read-only) - (mime/decode-message-header)) - ) - ;; don't preview; do nothing. - ) - (tm-vm/display-preview-buffer) - (run-hooks 'tm-vm/select-message-hook)) - -(defun tm-vm/show-current-message () - (if mime::preview/article-buffer - (set-buffer mime::preview/article-buffer) - (vm-select-folder-buffer)) - ;; Now current buffer is folder buffer. - (if (or t ; mime/viewer-mode doesn't support narrowing yet. - (null vm-preview-lines) - (and (not vm-preview-read-messages) - (not (vm-new-flag - (car vm-message-pointer))) - (not (vm-unread-flag - (car vm-message-pointer))))) - (save-excursion - (set-buffer mime::article/preview-buffer) - (save-excursion - (save-excursion - (goto-char (point-min)) - (widen)) - ;; narrow to page; mime/viewer-mode doesn't support narrowing yet. - ))) - (if (vm-get-visible-buffer-window mime::article/preview-buffer) - (progn - (setq tm-vm/system-state 'reading) - (if (vm-new-flag (car vm-message-pointer)) - (vm-set-new-flag (car vm-message-pointer) nil)) - (if (vm-unread-flag (car vm-message-pointer)) - (vm-set-unread-flag (car vm-message-pointer) nil)) - (vm-update-summary-and-mode-line) - (tm-vm/howl-if-eom)) - (vm-update-summary-and-mode-line))) - -(defun tm-vm/toggle-preview-mode () - (interactive) - (vm-select-folder-buffer) - (vm-display (current-buffer) t (list this-command) - (list this-command 'reading-message)) - (if tm-vm/automatic-mime-preview - (setq tm-vm/automatic-mime-preview nil - tm-vm/system-state nil) - (setq tm-vm/automatic-mime-preview t - tm-vm/system-state nil) - (save-restriction - (vm-widen-page) - (let* ((mp (car vm-message-pointer)) - (exposed (= (point-min) (vm-start-of mp)))) - (if (or (not tm-vm/strict-mime) - (vm-get-header-contents mp "MIME-Version:")) - ;; do MIME processiong. - (progn - (set (make-local-variable 'tm-vm/system-state) 'previewing) - (save-window-excursion - (mime/viewer-mode) - (goto-char (point-min)) - (narrow-to-region (point) - (search-forward "\n\n" nil t)) - )) - ;; don't do MIME processing. decode header only. - (let (buffer-read-only) - (mime/decode-message-header)) - ) - ;; don't preview; do nothing. - )) - (tm-vm/display-preview-buffer) - )) - -(add-hook 'vm-select-message-hook 'tm-vm/preview-current-message) -(add-hook 'vm-visit-folder-hook 'tm-vm/preview-current-message) - -;;; tm-vm move commands -;;; - -(defmacro tm-vm/save-window-excursion (&rest forms) - (list 'let '((tm-vm/selected-window (selected-window))) - (list 'unwind-protect - (cons 'progn forms) - '(if (window-live-p tm-vm/selected-window) - (select-window tm-vm/selected-window))))) - -;;; based on vm-scroll-forward [vm-page.el] -(defun tm-vm/scroll-forward (&optional arg) - (interactive "P") - (let ((this-command 'vm-scroll-forward)) - (if (not (tm-vm/system-state)) - (vm-scroll-forward arg) - (let* ((mp-changed (vm-follow-summary-cursor)) - (mbuf (or (vm-select-folder-buffer) (current-buffer))) - (mwin (vm-get-buffer-window mbuf)) - (pbuf (and mime::article/preview-buffer - (get-buffer mime::article/preview-buffer))) - (pwin (and pbuf (vm-get-buffer-window pbuf))) - (was-invisible (and (null mwin) (null pwin))) - ) - ;; now current buffer is folder buffer. - (tm-vm/save-window-excursion - (if (or mp-changed was-invisible) - (vm-display mbuf t '(vm-scroll-forward vm-scroll-backward) - (list this-command 'reading-message))) - (tm-vm/display-preview-buffer) - (setq mwin (vm-get-buffer-window mbuf) - pwin (and pbuf (vm-get-buffer-window pbuf))) - (cond - ((or mp-changed was-invisible) - nil - ) - ((null pbuf) - ;; preview buffer is killed. - (tm-vm/preview-current-message) - (vm-update-summary-and-mode-line)) - ((eq (tm-vm/system-state) 'previewing) - (tm-vm/show-current-message)) - (t - (select-window pwin) - (set-buffer pbuf) - (if (pos-visible-in-window-p (point-max) pwin) - (tm-vm/next-message) - ;; not end of message. scroll preview buffer only. - (scroll-up) - (tm-vm/howl-if-eom) - (set-buffer mbuf)) - )))) - ))) - -;;; based on vm-scroll-backward [vm-page.el] -(defun tm-vm/scroll-backward (&optional arg) - (interactive "P") - (let ((this-command 'vm-scroll-backward)) - (if (not (tm-vm/system-state)) - (vm-scroll-backward arg) - (let* ((mp-changed (vm-follow-summary-cursor)) - (mbuf (or (vm-select-folder-buffer) (current-buffer))) - (mwin (vm-get-buffer-window mbuf)) - (pbuf (and mime::article/preview-buffer - (get-buffer mime::article/preview-buffer))) - (pwin (and pbuf (vm-get-buffer-window pbuf))) - (was-invisible (and (null mwin) (null pwin))) - ) - ;; now current buffer is folder buffer. - (if (or mp-changed was-invisible) - (vm-display mbuf t '(vm-scroll-forward vm-scroll-backward) - (list this-command 'reading-message))) - (tm-vm/save-window-excursion - (tm-vm/display-preview-buffer) - (setq mwin (vm-get-buffer-window mbuf) - pwin (and pbuf (vm-get-buffer-window pbuf))) - (cond - (was-invisible - nil - ) - ((null pbuf) - ;; preview buffer is killed. - (tm-vm/preview-current-message) - (vm-update-summary-and-mode-line)) - ((eq (tm-vm/system-state) 'previewing) - (tm-vm/show-current-message)) - (t - (select-window pwin) - (set-buffer pbuf) - (if (pos-visible-in-window-p (point-min) pwin) - nil - ;; scroll preview buffer only. - (scroll-down) - (set-buffer mbuf)) - )))) - ))) - -;;; based on vm-beginning-of-message [vm-page.el] -(defun tm-vm/beginning-of-message () - "Moves to the beginning of the current message." - (interactive) - (if (not (tm-vm/system-state)) - (progn - (setq this-command 'vm-beginning-of-message) - (vm-beginning-of-message)) - (vm-follow-summary-cursor) - (vm-select-folder-buffer) - (vm-check-for-killed-summary) - (vm-error-if-folder-empty) - (let ((mbuf (current-buffer)) - (pbuf (and mime::article/preview-buffer - (get-buffer mime::article/preview-buffer)))) - (if (null pbuf) - (progn - (tm-vm/preview-current-message) - (setq pbuf (get-buffer mime::article/preview-buffer)) - )) - (vm-display mbuf t '(vm-beginning-of-message) - '(vm-beginning-of-message reading-message)) - (tm-vm/display-preview-buffer) - (set-buffer pbuf) - (tm-vm/save-window-excursion - (select-window (vm-get-buffer-window pbuf)) - (push-mark) - (goto-char (point-min)) - )))) - -;;; based on vm-end-of-message [vm-page.el] -(defun tm-vm/end-of-message () - "Moves to the end of the current message." - (interactive) - (if (not (tm-vm/system-state)) - (progn - (setq this-command 'vm-end-of-message) - (vm-end-of-message)) - (vm-follow-summary-cursor) - (vm-select-folder-buffer) - (vm-check-for-killed-summary) - (vm-error-if-folder-empty) - (let ((mbuf (current-buffer)) - (pbuf (and mime::article/preview-buffer - (get-buffer mime::article/preview-buffer)))) - (if (null pbuf) - (progn - (tm-vm/preview-current-message) - (setq pbuf (get-buffer mime::article/preview-buffer)) - )) - (vm-display mbuf t '(vm-end-of-message) - '(vm-end-of-message reading-message)) - (tm-vm/display-preview-buffer) - (set-buffer pbuf) - (tm-vm/save-window-excursion - (select-window (vm-get-buffer-window pbuf)) - (push-mark) - (goto-char (point-max)) - )))) - -;;; based on vm-howl-if-eom [vm-page.el] -(defun tm-vm/howl-if-eom () - (let* ((pbuf (or mime::article/preview-buffer (current-buffer))) - (pwin (and (vm-get-visible-buffer-window pbuf)))) - (and pwin - (save-excursion - (save-window-excursion - (condition-case () - (let ((next-screen-context-lines 0)) - (select-window pwin) - (save-excursion - (save-window-excursion - (let ((scroll-in-place-replace-original nil)) - (scroll-up)))) - nil) - (error t)))) - (tm-vm/emit-eom-blurb) - ))) - -;;; based on vm-emit-eom-blurb [vm-page.el] -(defun tm-vm/emit-eom-blurb () - (save-excursion - (if mime::preview/article-buffer - (set-buffer mime::preview/article-buffer)) - (vm-emit-eom-blurb))) - -;;; based on vm-quit [vm-folder.el] -(defun tm-vm/quit () - (interactive) - (save-excursion - (vm-select-folder-buffer) - (if (and mime::article/preview-buffer - (get-buffer mime::article/preview-buffer)) - (kill-buffer mime::article/preview-buffer))) - (vm-quit)) - -(substitute-key-definition 'vm-scroll-forward - 'tm-vm/scroll-forward vm-mode-map) -(substitute-key-definition 'vm-scroll-backward - 'tm-vm/scroll-backward vm-mode-map) -(substitute-key-definition 'vm-beginning-of-message - 'tm-vm/beginning-of-message vm-mode-map) -(substitute-key-definition 'vm-end-of-message - 'tm-vm/end-of-message vm-mode-map) -(substitute-key-definition 'vm-quit - 'tm-vm/quit vm-mode-map) - -;;; based on vm-next-message [vm-motion.el] -(defun tm-vm/next-message () - (set-buffer mime::preview/article-buffer) - (let ((this-command 'vm-next-message) - (owin (selected-window)) - (vm-preview-lines nil) - ) - (vm-next-message 1 nil t) - (if (window-live-p owin) - (select-window owin)))) - -;;; based on vm-previous-message [vm-motion.el] -(defun tm-vm/previous-message () - (set-buffer mime::preview/article-buffer) - (let ((this-command 'vm-previous-message) - (owin (selected-window)) - (vm-preview-lines nil) - ) - (vm-previous-message 1 nil t) - (if (window-live-p owin) - (select-window owin)))) - -(set-alist 'mime-viewer/over-to-previous-method-alist - 'vm-mode 'tm-vm/previous-message) -(set-alist 'mime-viewer/over-to-next-method-alist - 'vm-mode 'tm-vm/next-message) -(set-alist 'mime-viewer/over-to-previous-method-alist - 'vm-virtual-mode 'tm-vm/previous-message) -(set-alist 'mime-viewer/over-to-next-method-alist - 'vm-virtual-mode 'tm-vm/next-message) - -;;; @@ vm-yank-message -;;; -;; 1996/3/28 by Oscar Figueiredo - -(require 'vm-reply) - -(defvar tm-vm/yank:message-to-restore nil - "For internal use by tm-vm only.") - -(defun vm-yank-message (&optional message) - "Yank message number N into the current buffer at point. -When called interactively N is always read from the minibuffer. When -called non-interactively the first argument is expected to be a -message struct. - -This function originally provided by vm-reply has been patched for TM -in order to provide better citation of MIME messages : if a MIME -Preview buffer exists for the message then its contents are inserted -instead of the raw message. - -This command is meant to be used in VM created Mail mode buffers; the -yanked message comes from the mail buffer containing the message you -are replying to, forwarding, or invoked VM's mail command from. - -All message headers are yanked along with the text. Point is -left before the inserted text, the mark after. Any hook -functions bound to mail-citation-hook are run, after inserting -the text and setting point and mark. For backward compatibility, -if mail-citation-hook is set to nil, `mail-yank-hooks' is run -instead. - -If mail-citation-hook and mail-yank-hooks are both nil, this -default action is taken: the yanked headers are trimmed as -specified by vm-included-text-headers and -vm-included-text-discard-header-regexp, and the value of -vm-included-text-prefix is prepended to every yanked line." - (interactive - (list - ;; What we really want for the first argument is a message struct, - ;; but if called interactively, we let the user type in a message - ;; number instead. - (let (mp default - (result 0) - prompt - (last-command last-command) - (this-command this-command)) - (if (bufferp vm-mail-buffer) - (save-excursion - (vm-select-folder-buffer) - (setq default (and vm-message-pointer - (vm-number-of (car vm-message-pointer))) - prompt (if default - (format "Yank message number: (default %s) " - default) - "Yank message number: ")) - (while (zerop result) - (setq result (read-string prompt)) - (and (string= result "") default (setq result default)) - (setq result (string-to-int result))) - (if (null (setq mp (nthcdr (1- result) vm-message-list))) - (error "No such message.")) - (setq tm-vm/yank:message-to-restore (string-to-int default)) - (save-selected-window - (vm-goto-message result)) - (car mp)) - nil)))) - (if (null message) - (if mail-reply-buffer - (tm-vm/yank-content) - (error "This is not a VM Mail mode buffer.")) - (if (null (buffer-name vm-mail-buffer)) - (error "The folder buffer containing message %d has been killed." - (vm-number-of message))) - (vm-display nil nil '(vm-yank-message) - '(vm-yank-message composing-message)) - (let ((b (current-buffer)) (start (point)) end) - (save-restriction - (widen) - (save-excursion - (set-buffer (vm-buffer-of message)) - (let* ((mbuf (current-buffer)) - (pbuf (and mime::article/preview-buffer - ; is there a preview buffer alive ? - (get-buffer mime::article/preview-buffer) - ; rebuild preview to ensure it - ; corresponds to the current message - (save-excursion - (save-selected-window - (save-window-excursion - (tm-vm/view-message)))) - (get-buffer mime::article/preview-buffer)))) - (if pbuf - (if running-xemacs - (let ((tmp (generate-new-buffer "tm-vm/tmp"))) - (set-buffer pbuf) - (append-to-buffer tmp (point-min) (point-max)) - (set-buffer tmp) - (map-extents - '(lambda (ext maparg) - (set-extent-property ext 'begin-glyph nil))) - (append-to-buffer b (point-min) (point-max)) - (setq end (vm-marker - (+ start (length (buffer-string))) b)) - (kill-buffer tmp)) - (set-buffer pbuf) - (append-to-buffer b (point-min) (point-max)) - (setq end (vm-marker - (+ start (length (buffer-string))) b))) - (save-restriction - (setq message (vm-real-message-of message)) - (set-buffer (vm-buffer-of message)) - (widen) - (append-to-buffer - b (vm-headers-of message) (vm-text-end-of message)) - (setq end - (vm-marker (+ start (- (vm-text-end-of message) - (vm-headers-of message))) b)))))) - (push-mark end) - (cond (mail-citation-hook (run-hooks 'mail-citation-hook)) - (mail-yank-hooks (run-hooks 'mail-yank-hooks)) - (t (vm-mail-yank-default message))) - )) - (if tm-vm/yank:message-to-restore - (save-selected-window - (vm-goto-message tm-vm/yank:message-to-restore) - (setq tm-vm/yank:message-to-restore nil))) - )) - - -;;; @ for tm-view -;;; - -;;; based on vm-do-reply [vm-reply.el] -(defun tm-vm/do-reply (buf to-all include-text) - (save-excursion - (set-buffer buf) - (let ((dir default-directory) - to cc subject mp in-reply-to references newsgroups) - (cond ((setq to - (let ((reply-to (std11-field-body "Reply-To"))) - (if (vm-ignored-reply-to reply-to) - nil - reply-to)))) - ((setq to (std11-field-body "From"))) - ;; (t (error "No From: or Reply-To: header in message")) - ) - (if to-all - (setq cc (delq nil (cons cc (std11-field-bodies '("To" "Cc")))) - cc (mapconcat 'identity cc ",")) - ) - (setq subject (std11-field-body "Subject")) - (and subject vm-reply-subject-prefix - (let ((case-fold-search t)) - (not - (equal - (string-match (regexp-quote vm-reply-subject-prefix) - subject) - 0))) - (setq subject (concat vm-reply-subject-prefix subject))) - (setq in-reply-to (std11-field-body "Message-Id") - references (nconc - (std11-field-bodies '("References" "In-Reply-To")) - (list in-reply-to)) - newsgroups (list (or (and to-all - (std11-field-body "Followup-To")) - (std11-field-body "Newsgroups")))) - (setq to (vm-parse-addresses to) - cc (vm-parse-addresses cc)) - (if vm-reply-ignored-addresses - (setq to (vm-strip-ignored-addresses to) - cc (vm-strip-ignored-addresses cc))) - (setq to (vm-delete-duplicates to nil t)) - (setq cc (vm-delete-duplicates - (append (vm-delete-duplicates cc nil t) - to (copy-sequence to)) - t t)) - (and to (setq to (mapconcat 'identity to ",\n "))) - (and cc (setq cc (mapconcat 'identity cc ",\n "))) - (and (null to) (setq to cc cc nil)) - (setq references (delq nil references) - references (mapconcat 'identity references " ") - references (vm-parse references "[^<]*\\(<[^>]+>\\)") - references (vm-delete-duplicates references) - references (if references (mapconcat 'identity references "\n\t"))) - (setq newsgroups (delq nil newsgroups) - newsgroups (mapconcat 'identity newsgroups ",") - newsgroups (vm-parse newsgroups "[ \t\f\r\n,]*\\([^ \t\f\r\n,]+\\)") - newsgroups (vm-delete-duplicates newsgroups) - newsgroups (if newsgroups (mapconcat 'identity newsgroups ","))) - (vm-mail-internal - (if to - (format "reply to %s%s" - (std11-full-name-string - (car (std11-parse-address-string to))) - (if cc ", ..." ""))) - to subject in-reply-to cc references newsgroups) - (setq mail-reply-buffer buf - ;; vm-system-state 'replying - default-directory dir)) - (if include-text - (save-excursion - (goto-char (point-min)) - (let ((case-fold-search nil)) - (re-search-forward - (concat "^" (regexp-quote mail-header-separator) "$") nil 0)) - (forward-char 1) - (tm-vm/yank-content))) - (run-hooks 'vm-reply-hook) - (run-hooks 'vm-mail-mode-hook) - )) - -(defun tm-vm/following-method (buf) - (tm-vm/do-reply buf 'to-all 'include-text) - ) - -(defun tm-vm/yank-content () - (interactive) - (let ((this-command 'vm-yank-message)) - (vm-display nil nil '(vm-yank-message) - '(vm-yank-message composing-message)) - (save-restriction - (narrow-to-region (point)(point)) - (insert-buffer mail-reply-buffer) - (goto-char (point-max)) - (push-mark) - (goto-char (point-min))) - (cond (mail-citation-hook (run-hooks 'mail-citation-hook)) - (mail-yank-hooks (run-hooks 'mail-yank-hooks)) - (t (mail-indent-citation))) - )) - -(set-alist 'mime-viewer/following-method-alist - 'vm-mode - (function tm-vm/following-method)) -(set-alist 'mime-viewer/following-method-alist - 'vm-virtual-mode - (function tm-vm/following-method)) - - -(defun tm-vm/quit-view-message () - "Quit MIME-viewer and go back to VM. -This function is called by `mime-viewer/quit' command via -`mime-viewer/quitting-method-alist'." - (if (get-buffer mime/output-buffer-name) - (vm-undisplay-buffer mime/output-buffer-name)) - (if (and tm-vm/automatic-mime-preview - (save-excursion - (set-buffer mime::preview/article-buffer) - vm-summary-buffer)) - (switch-to-buffer mime::preview/article-buffer) - (mime-viewer/kill-buffer) - (vm-select-folder-buffer) - (setq tm-vm/system-state nil)) - (vm-display (current-buffer) t (list this-command) - (list this-command 'reading-message)) - (tm-vm/display-preview-buffer) - ) - -(defun tm-vm/view-message () - "Decode and view MIME encoded message, under VM." - (interactive) - (vm-follow-summary-cursor) - (vm-select-folder-buffer) - (vm-check-for-killed-summary) - (vm-error-if-folder-empty) - (vm-display (current-buffer) t '(tm-vm/view-message) - '(tm-vm/view-mesage reading-message)) - (let* ((mp (car vm-message-pointer)) - (ct (vm-get-header-contents mp "Content-Type:")) - (cte (vm-get-header-contents mp "Content-Transfer-Encoding:")) - (exposed (= (point-min) (vm-start-of mp)))) - (save-restriction - (vm-widen-page) - ;; vm-widen-page hides exposed header if pages are delimited. - ;; So, here we expose it again. - (if exposed - (narrow-to-region (vm-start-of mp) (point-max))) - (select-window (vm-get-buffer-window (current-buffer))) - (mime/viewer-mode nil - (mime/parse-Content-Type (or ct "")) - cte) - ))) - -(set-alist 'mime-viewer/quitting-method-alist - 'vm-mode - 'tm-vm/quit-view-message) - -(set-alist 'mime-viewer/quitting-method-alist - 'vm-virtual-mode - 'tm-vm/quit-view-message) - - -;;; @ for tm-partial -;;; - -(call-after-loaded - 'tm-partial - (function - (lambda () - (set-atype 'mime/content-decoding-condition - '((type . "message/partial") - (method . mime-article/grab-message/partials) - (major-mode . vm-mode) - (summary-buffer-exp . vm-summary-buffer) - )) - (set-alist 'tm-partial/preview-article-method-alist - 'vm-mode - (function - (lambda () - (tm-vm/view-message) - ))) - ))) - - -;;; @ for tm-edit -;;; - -;;; @@ for multipart/digest -;;; - -(defvar tm-vm/forward-message-hook nil - "*List of functions called after a Mail mode buffer has been -created to forward a message in message/rfc822 type format. -If `vm-forwarding-digest-type' is \"rfc1521\", tm-vm runs this -hook instead of `vm-forward-message-hook'.") - -(defvar tm-vm/send-digest-hook nil - "*List of functions called after a Mail mode buffer has been -created to send a digest in multipart/digest type format. -If `vm-digest-send-type' is \"rfc1521\", tm-vm runs this hook -instead of `vm-send-digest-hook'.") - -(defun tm-vm/enclose-messages (mlist &optional preamble) - "Enclose the messages in MLIST as multipart/digest. -The resulting digest is inserted at point in the current buffer. - -MLIST should be a list of message structs (real or virtual). -These are the messages that will be enclosed." - (if mlist - (let ((digest (consp (cdr mlist))) - (mp mlist) - m) - (save-restriction - (narrow-to-region (point) (point)) - (while mlist - (setq m (vm-real-message-of (car mlist))) - (mime-editor/insert-tag "message" "rfc822") - (tm-mail/insert-message m) - (goto-char (point-max)) - (setq mlist (cdr mlist))) - (if preamble - (progn - (goto-char (point-min)) - (mime-editor/insert-tag "text" "plain") - (vm-unsaved-message "Building digest preamble...") - (while mp - (let ((vm-summary-uninteresting-senders nil)) - (insert - (vm-sprintf 'vm-digest-preamble-format (car mp)) "\n")) - (if vm-digest-center-preamble - (progn - (forward-char -1) - (center-line) - (forward-char 1))) - (setq mp (cdr mp))))) - (if digest - (mime-editor/enclose-digest-region (point-min) (point-max))) - )))) - -(defun tm-vm/forward-message () - "Forward the current message to one or more recipients. -You will be placed in a Mail mode buffer as you would with a -reply, but you must fill in the To: header and perhaps the -Subject: header manually." - (interactive) - (if (not (equal vm-forwarding-digest-type "rfc1521")) - (vm-forward-message) - (vm-follow-summary-cursor) - (vm-select-folder-buffer) - (vm-check-for-killed-summary) - (vm-error-if-folder-empty) - (if (eq last-command 'vm-next-command-uses-marks) - (let ((vm-digest-send-type vm-forwarding-digest-type)) - (setq this-command 'vm-next-command-uses-marks) - (command-execute 'tm-vm/send-digest)) - (let ((dir default-directory) - (mp vm-message-pointer)) - (save-restriction - (widen) - (vm-mail-internal - (format "forward of %s's note re: %s" - (vm-su-full-name (car vm-message-pointer)) - (vm-su-subject (car vm-message-pointer))) - nil - (and vm-forwarding-subject-format - (let ((vm-summary-uninteresting-senders nil)) - (vm-sprintf 'vm-forwarding-subject-format (car mp))))) - (make-local-variable 'vm-forward-list) - (setq vm-system-state 'forwarding - vm-forward-list (list (car mp)) - default-directory dir) - (goto-char (point-min)) - (re-search-forward - (concat "^" (regexp-quote mail-header-separator) "\n") nil 0) - (tm-vm/enclose-messages vm-forward-list) - (mail-position-on-field "To")) - (run-hooks 'tm-vm/forward-message-hook) - (run-hooks 'vm-mail-mode-hook))))) - -(defun tm-vm/send-digest (&optional arg) - "Send a digest of all messages in the current folder to recipients. -The type of the digest is specified by the variable vm-digest-send-type. -You will be placed in a Mail mode buffer as is usual with replies, but you -must fill in the To: and Subject: headers manually. - -If invoked on marked messages (via vm-next-command-uses-marks), -only marked messages will be put into the digest." - (interactive "P") - (if (not (equal vm-digest-send-type "rfc1521")) - (vm-send-digest arg) - (vm-select-folder-buffer) - (vm-check-for-killed-summary) - (vm-error-if-folder-empty) - (let ((dir default-directory) - (vm-forward-list (if (eq last-command 'vm-next-command-uses-marks) - (vm-select-marked-or-prefixed-messages 0) - vm-message-list)) - start) - (save-restriction - (widen) - (vm-mail-internal (format "digest from %s" (buffer-name))) - (setq vm-system-state 'forwarding - default-directory dir) - (goto-char (point-min)) - (re-search-forward (concat "^" (regexp-quote mail-header-separator) - "\n")) - (goto-char (match-end 0)) - (vm-unsaved-message "Building %s digest..." vm-digest-send-type) - (tm-vm/enclose-messages vm-forward-list arg) - (mail-position-on-field "To") - (message "Building %s digest... done" vm-digest-send-type))) - (run-hooks 'tm-vm/send-digest-hook) - (run-hooks 'vm-mail-mode-hook))) - -(substitute-key-definition 'vm-forward-message - 'tm-vm/forward-message vm-mode-map) -(substitute-key-definition 'vm-send-digest - 'tm-vm/send-digest vm-mode-map) - - -;;; @@ setting -;;; - -(defvar tm-vm/use-xemacs-popup-menu t) - -;;; modified by Steven L. Baur -;;; 1995/12/6 (c.f. [tm-en:209]) -(defun mime-editor/attach-to-vm-mode-menu () - "Arrange to attach MIME editor's popup menu to VM's" - (if (boundp 'vm-menu-mail-menu) - (progn - (setq vm-menu-mail-menu - (append vm-menu-mail-menu - (list "----" - mime-editor/popup-menu-for-xemacs))) - (remove-hook 'vm-mail-mode-hook 'mime-editor/attach-to-vm-mode-menu) - ))) - -(call-after-loaded - 'tm-edit - (function - (lambda () - (autoload 'tm-mail/insert-message "tm-mail") - (set-alist 'mime-editor/message-inserter-alist - 'mail-mode (function tm-mail/insert-message)) - (set-alist 'mime-editor/split-message-sender-alist - 'mail-mode (function - (lambda () - (interactive) - (sendmail-send-it) - ))) - (if (and (string-match "XEmacs\\|Lucid" emacs-version) - tm-vm/use-xemacs-popup-menu) - (add-hook 'vm-mail-mode-hook 'mime-editor/attach-to-vm-mode-menu) - ) - ))) - -(call-after-loaded - 'mime-setup - (function - (lambda () - (setq vm-forwarding-digest-type "rfc1521") - (setq vm-digest-send-type "rfc1521") - ))) - - -;;; @ for BBDB -;;; - -(call-after-loaded - 'bbdb - (function - (lambda () - (require 'bbdb-vm) - (require 'tm-bbdb) - (or (fboundp 'tm:bbdb/vm-update-record) - (fset 'tm:bbdb/vm-update-record - (symbol-function 'bbdb/vm-update-record))) - (defun bbdb/vm-update-record (&optional offer-to-create) - (vm-select-folder-buffer) - (if (and (tm-vm/system-state) - mime::article/preview-buffer - (get-buffer mime::article/preview-buffer)) - (tm-bbdb/update-record offer-to-create) - (tm:bbdb/vm-update-record offer-to-create) - )) - (remove-hook 'vm-select-message-hook 'bbdb/vm-update-record) - (remove-hook 'vm-show-message-hook 'bbdb/vm-update-record) - (add-hook 'tm-vm/select-message-hook 'bbdb/vm-update-record) - ))) - - -;;; @ end -;;; - -(provide 'tm-vm) - -(run-hooks 'tm-vm-load-hook) - -;;; tm-vm.el ends here. diff --git a/tm-w3.el b/tm-w3.el deleted file mode 100644 index 55c3f75..0000000 --- a/tm-w3.el +++ /dev/null @@ -1,45 +0,0 @@ -;;; -;;; tm-w3.el: a tm-view internal decoder for HTML -;;; -;;; by MORIOKA Tomohiko (1995/09/14) -;;; -;;; based on tm-latex.el by OKABE Yasuo -;;; -;;; $Id: tm-w3.el,v 3.0 1995/10/20 10:42:41 morioka Exp $ -;;; - -(require 'tm-view) - -(autoload 'w3-mode "w3" "HTML viewer" t) - -(defvar mime-viewer/html-default-mode (function w3-mode)) - -(defun mime-viewer/decode-html (beg end cal) - (let* ((cur-buf (current-buffer)) - new-buf - (name (or (cdr (assoc "name" cal)) - (cdr (assoc "x-name" cal)) - (concat (make-temp-name "tm") ".html")))) - (switch-to-buffer mime::article/preview-buffer) - (funcall mime/find-file-function (expand-file-name name mime/tmp-dir)) - (if (or (<= (buffer-size) 0) - (y-or-n-p "Replace the existing buffer?")) - (progn - (erase-buffer) - (setq new-buf (current-buffer)) - (save-excursion - (set-buffer cur-buf) - (goto-char beg) - (re-search-forward "^$") - (append-to-buffer new-buf (+ (match-end 0) 1) end) - ))) - (mime/decode-region encoding (point-min)(point-max)) - (call-interactively mime-viewer/html-default-mode) - )) - -(set-atype 'mime/content-decoding-condition - '((type . "text/html") - (method . mime-viewer/decode-html) - )) - -(provide 'tm-w3)