tm 6.77.

diff --git a/Changes-6.77.en b/Changes-6.77.en
new file mode 100644 (file)
index 0000000..df4985d
--- /dev/null
+++ b/Changes-6.77.en
@@ -0,0 +1,178 @@
+* 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
new file mode 100644 (file)
index 0000000..5a992d2
--- /dev/null
+++ b/Changes-6.77.ja
@@ -0,0 +1,173 @@
+* tm
+
+       - tm-misc.el \e$B$rGQ;_$7!"\e(Btm-def.el \e$B$r?7@_$7$?!#\e(B
+       - \e$B$3$N$3$H$KH<$$!"\e(Btm/Makefile, tm/mk-tm, tm/README.eng,
+         tm/doc/tm_ja.texi, tm/doc/tm_en.texi \e$B$r=$@5$7$?!#\e(B
+
+tm/tiny-mime.el
+----------------------------
+revision 6.4
+date: 1995/09/04 01:16:45;  author: morioka;  state: Exp;  lines: +2 -6
+\e$BDj?t\e(B mime/tspecials, mime/token-regexp, mime/charset-regexp \e$B$NDj5A$r\e(B
+tm-def.el \e$B$K0\$7$?!#\e(B
+----------------------------
+revision 6.3
+date: 1995/09/04 01:09:59;  author: morioka;  state: Exp;  lines: +2 -10
+tm-nemacs, tm-orig, tm-mule \e$B$r\e(B require \e$B$9$kItJ,$r\e(B tm-def \e$B$K0\$7!"\e(B
+tm-def \e$B$r\e(B require \e$B$9$k$h$&$K$7$?!#\e(B
+----------------------------
+
+tm/tm-comp.el
+----------------------------
+revision 6.11
+date: 1995/09/04 00:47:37;  author: morioka;  state: Exp;  lines: +1 -2
+tm-misc \e$B$r\e(B require \e$B$7$J$$$h$&$K$7$?!#\e(B
+----------------------------
+
+tm/tm-def.el
+----------------------------
+revision 3.0
+date: 1995/09/04 01:17:27;  author: morioka;  state: Exp;  lines: +9 -1
+\e$BDj?t\e(B mime/tspecials, mime/token-regexp, mime/charset-regexp \e$B$NDj5A$r\e(B
+tiny-mime.el \e$B$+$i0\$7$?!#\e(B
+----------------------------
+revision 2.0
+date: 1995/09/04 01:11:03;  author: morioka;  state: Exp;  lines: +10 -1
+tm-nemacs, tm-orig, tm-mule \e$B$r\e(B require \e$B$9$kItJ,$r\e(B tiny-mime.el \e$B$+$i0\\e(B
+\e$B$7$?!#\e(B
+----------------------------
+revision 1.1
+date: 1995/09/04 00:48:04;  author: morioka;  state: Exp;
+tm-def.el \e$B$r?7@_$7$?!#\e(B
+----------------------------
+
+tm/tm-view.el
+----------------------------
+revision 6.77
+date: 1995/09/04 00:48:30;  author: morioka;  state: Exp;  lines: +2 -2
+tm-misc \e$B$rGQ;_$7!"\e(Btm-def \e$B$r\e(B require \e$B$9$k$h$&$K$7$?!#\e(B
+----------------------------
+
+
+* tm/mh-e
+
+  Version 6.24 \e$B$rE:IU$7$?!#\e(B
+
+tm/mh-e/tm-mh-e.el
+----------------------------
+revision 6.24
+date: 1995/09/02 06:02:20;  author: morioka;  state: Exp;  lines: +10 -3
+tm-misc \e$B$r\e(B require \e$B$9$k$N$r$d$a$?!#\e(B
+----------------------------
+
+
+* tm/gnus
+
+  Version 6.19 \e$B$rE:IU$7$?!#\e(B
+
+tm/gnus/tm-ognus.el
+----------------------------
+revision 6.8
+date: 1995/09/02 07:40:13;  author: morioka;  state: Exp;  lines: +3 -2
+tm-misc \e$B$r\e(B require \e$B$9$k$N$r$d$a!"Be$o$j$K!"\e(Bemu \e$B$H\e(B tiny-mime \e$B$r\e(B require
+\e$B$9$k$h$&$K$7$?!#\e(B
+----------------------------
+revision 6.7
+date: 1995/09/02 07:26:27;  author: morioka;  state: Exp;  lines: +4 -4
+\e$B4X?t\e(B tm-gnus/toggle-mime-header-decoding-mode \e$B$r\e(B
+tm-gnus/toggle-decoding-mode \e$B$K2~L>$7$?!#\e(B
+----------------------------
+revision 6.6
+date: 1995/09/02 07:24:30;  author: morioka;  state: Exp;  lines: +6 -6
+\e$B4X?t\e(B tm-gnus/set-mime-header-decoding-mode \e$B$r\e(B
+tm-gnus/set-decoding-mode \e$B$K2~L>$7$?!#\e(B
+----------------------------
+revision 6.5
+date: 1995/09/02 07:20:29;  author: morioka;  state: Exp;  lines: +7 -7
+\e$BJQ?t\e(B mime/header-decoding-mode \e$B$r\e(B tm-gnus/decoding-mode \e$B$K2~L>$7$?!#\e(B
+----------------------------
+revision 6.4
+date: 1995/09/02 07:04:22;  author: morioka;  state: Exp;  lines: +2 -2
+\e$B4X?t\e(B mime/add-header-decoding-mode-to-mode-line \e$B$r\e(B
+tm-gnus/add-decoding-mode-to-mode-line \e$B$K2~L>$7$?!#\e(B
+----------------------------
+revision 6.3
+date: 1995/09/02 06:58:20;  author: morioka;  state: Exp;  lines: +3 -1
+\e$BJQ?t\e(B mime/header-decoding-mode \e$B$NDj5A$r\e(B tm-misc.el \e$B$+$i0\$7$?!#\e(B
+----------------------------
+revision 6.2
+date: 1995/09/02 06:56:32;  author: morioka;  state: Exp;  lines: +9 -1
+\e$B4X?t\e(B mime/add-header-decoding-mode-to-mode-line \e$B$r\e(B tm-misc.el \e$B$+$i0\$7\e(B
+\e$B$?!#\e(B
+----------------------------
+
+tm/gnus/tm-gnus3.el
+----------------------------
+revision 6.8
+date: 1995/09/04 02:43:18;  author: morioka;  state: Exp;  lines: +3 -3
+\e$B4X?t\e(B tm-gnus/decode-encoded-word-if-you-need \e$B$NIT6q9g$r=$@5$7$?!#\e(B
+----------------------------
+revision 6.7
+date: 1995/09/04 02:34:10;  author: morioka;  state: Exp;  lines: +5 -2
+\e$B4X?t\e(B tm-gnus/decode-encoded-word-if-you-need \e$B$K$*$$$F!"F0E*JQ?t\e(B
+all-headers \e$B$,B8:_$9$k;~$O$3$l$,\e(B nil \e$B$N;~$N$_!"\e(Bencoded-word \e$B$r\e(B decode
+\e$B$9$k$h$&$K$7$?!#\e(B
+----------------------------
+revision 6.6
+date: 1995/09/02 07:27:19;  author: morioka;  state: Exp;  lines: +2 -3
+\e$B4X?t\e(B tm-gnus/toggle-mime-header-decoding-mode \e$B$r\e(B
+tm-gnus/toggle-decoding-mode \e$B$K2~L>$7$?!#\e(B
+----------------------------
+revision 6.5
+date: 1995/09/02 07:20:53;  author: morioka;  state: Exp;  lines: +2 -2
+\e$BJQ?t\e(B mime/header-decoding-mode \e$B$r\e(B tm-gnus/decoding-mode \e$B$K2~L>$7$?!#\e(B
+----------------------------
+revision 6.4
+date: 1995/09/02 07:04:51;  author: morioka;  state: Exp;  lines: +3 -3
+\e$B4X?t\e(B mime/add-header-decoding-mode-to-mode-line \e$B$r\e(B
+tm-gnus/add-decoding-mode-to-mode-line \e$B$K2~L>$7$?!#\e(B
+----------------------------
+revision 6.3
+date: 1995/09/02 06:52:00;  author: morioka;  state: Exp;  lines: +4 -3
+\e$B4X?t\e(B mime/decode-message-header-if-you-need \e$B$r\e(B
+tm-gnus/decode-encoded-word-if-you-need \e$B$K2~L>$7$?!#\e(B
+----------------------------
+revision 6.2
+date: 1995/09/02 06:47:53;  author: morioka;  state: Exp;  lines: +6 -1
+\e$B4X?t\e(B mime/decode-message-header-if-you-need \e$B$r\e(B tm-misc.el \e$B$+$i0\$7$?!#\e(B
+----------------------------
+
+tm/gnus/tm-gnus4.el
+----------------------------
+revision 6.7
+date: 1995/09/02 07:28:38;  author: morioka;  state: Exp;  lines: +2 -2
+\e$B4X?t\e(B tm-gnus/toggle-mime-header-decoding-mode \e$B$r\e(B
+tm-gnus/toggle-decoding-mode \e$B$K2~L>$7$?!#\e(B
+----------------------------
+revision 6.6
+date: 1995/09/02 07:21:01;  author: morioka;  state: Exp;  lines: +2 -2
+\e$BJQ?t\e(B mime/header-decoding-mode \e$B$r\e(B tm-gnus/decoding-mode \e$B$K2~L>$7$?!#\e(B
+----------------------------
+revision 6.5
+date: 1995/09/02 07:04:38;  author: morioka;  state: Exp;  lines: +2 -2
+\e$B4X?t\e(B mime/add-header-decoding-mode-to-mode-line \e$B$r\e(B
+tm-gnus/add-decoding-mode-to-mode-line \e$B$K2~L>$7$?!#\e(B
+----------------------------
+revision 6.4
+date: 1995/09/02 06:35:10;  author: morioka;  state: Exp;  lines: +4 -1
+\e$BJQ?t\e(B gnus-article-prepare-hook \e$B$K4X?t\e(B
+tm-gnus/decode-encoded-word-if-you-need \e$B$r\e(B add-hook \e$B$9$k$N$rK:$l$F$$$?\e(B
+\e$B$N$r=$@5!#\e(B(^_^;
+----------------------------
+revision 6.3
+date: 1995/09/02 06:21:41;  author: morioka;  state: Exp;  lines: +5 -3
+\e$BJQ?t\e(B gnus-have-all-headers \e$B$,\e(B t \e$B$N;~$O\e(B encoded-word \e$B$r\e(B decode \e$B$7$J$$$h\e(B
+\e$B$&$K$7$?!#\e(B
+----------------------------
+
+tm/gnus/tm-gnus5.el
+----------------------------
+revision 6.19
+date: 1995/09/02 05:18:08;  author: morioka;  state: Exp;  lines: +8 -7
+\e$B4X?t\e(B tm-gnus/summary-toggle-header \e$B$NIT6q9g$r=$@5$7$?!#\e(B
+----------------------------

diff --git a/Makefile b/Makefile
index 5e52fc8..bd10f40 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -1,5 +1,5 @@
 #
-# $Id: Makefile,v 6.24 1995/09/01 18:15:10 morioka Exp morioka $
+# $Id: Makefile,v 6.25 1995/09/04 00:51:33 morioka Exp morioka $
 #
 
 # Please specify emacs executables:
@@ -43,7 +43,7 @@ GOMI  = $(UTILS) *.elc loadpath
 TM_FILES = tm/README.eng tm/rel-*.ol tm/Changes* \
                tm/Makefile tm/mk-tm \
                tm/tm-view.el tm/tiny-mime.el \
-               tm/tm-mule.el tm/tm-nemacs.el tm/tm-orig.el tm/tm-misc.el \
+               tm/tm-mule.el tm/tm-nemacs.el tm/tm-orig.el tm/tm-def.el \
                tm/tm-ftp.el tm/tm-latex.el tm/tm-partial.el \
                tm/tm-rich.el tm/richtext.el tm/tinyrich.el \
                tm/tm-comp.el \
@@ -67,7 +67,7 @@ TL_FILES = tl/README.eng \
 
 FILES  = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
 
-TARFILE = tm6.76.2.tar
+TARFILE = tm6.77.tar
 
 
 nemacs:

diff --git a/README.eng b/README.eng
index 6e6fca9..c160686 100644 (file)
--- a/README.eng
+++ b/README.eng
@@ -1,6 +1,6 @@
 [README for tm (English Version)]
 by MORIOKA Tomohiko <morioka@jaist.ac.jp>
-$Id: README.eng,v 6.7 1995/08/31 20:39:06 morioka Exp $
+$Id: README.eng,v 6.8 1995/09/04 00:53:42 morioka Exp $
 
 1 What's tm?
 
@@ -39,7 +39,7 @@ Tm has following modules:
 
        - tiny-mime : MIME header encoder/decoder
        - tm-view : MIME viewer
-       - tm-misc : library module for tm-MUAs
+       - tm-def  : definition module for tm
        - tm-MUAs : MIME extender for MUAs
                - tm-mh-e  : tm-MUA for mh-e
                - tm-gnus  : tm-MUA for GNUS

diff --git a/doc/tm_en.texi b/doc/tm_en.texi
index b693438..11f9698 100644 (file)
--- a/doc/tm_en.texi
+++ b/doc/tm_en.texi
@@ -6,7 +6,7 @@
 @titlepage
 @title tm Manual (English Version)
 @author by MORIOKA Tomohiko
-@code{$Id: tm_en.texi,v 6.2 1995/08/12 08:45:35 morioka Exp $}
+@code{$Id: tm_en.texi,v 6.3 1995/09/04 00:57:19 morioka Exp $}
 @end titlepage
 
 
@@ -51,7 +51,7 @@ The tm package includes the modules listed below.
 @itemize
 @item @strong{tiny-mime:} MIME header encoder/decoder
 @item @strong{tm-view:}   MIME viewer
-@item @strong{tm-misc:}   common part for tm-MUAs
+@item @strong{tm-def:}    definition module for tm
         @item @strong{tm-mh-e:}  tm-MUA for mh-e
         @item @strong{tm-gnus:}  tm-MUA for GNUS
         @item @strong{tm-rmail:} tm-MUA for RMAIL

diff --git a/doc/tm_ja.texi b/doc/tm_ja.texi
index d7e0b43..4f8140f 100644 (file)
--- a/doc/tm_ja.texi
+++ b/doc/tm_ja.texi
@@ -6,7 +6,7 @@
 @titlepage
 @title{tm Manual¡ÊÆüËܸìÈÇ¡Ë}
 @author{¼é²¬ ÃÎɧ Ãø}
-@code{$Id: tm_ja.texi,v 3.0 1995/08/01 18:54:19 morioka Exp $}
+@code{$Id: tm_ja.texi,v 4.0 1995/09/04 00:55:35 morioka Exp $}
 @end titlepage
 
 
@@ -53,7 +53,7 @@ tm 
 @itemize
 @item @strong{tiny-mime:} MIME header encoder/decoder
 @item @strong{tm-view:}   MIME viewer
-@item @strong{tm-misc:} tm-MUA ¤Î¶¦ÄÌ module
+@item @strong{tm-def:}    tm ¤Î¤¿¤á¤ÎÄêµÁ module
         @item @strong{tm-mh-e:}  mh-e ÍѤΠtm-MUA
         @item @strong{tm-gnus:}  GNUS ÍѤΠtm-MUA
         @item @strong{tm-rmail:} RMAIL ÍѤΠtm-MUA

diff --git a/gnus/Makefile b/gnus/Makefile
index 757c751..dd474ed 100644 (file)
--- a/gnus/Makefile
+++ b/gnus/Makefile
@@ -17,7 +17,7 @@ TMDIR19 = $(HOME)/lib/emacs19/lisp
 
 FILES  = tm/gnus/*.el tm/doc/tm-gnus*.texi
 
-TARFILE = tm-gnus6.18.tar
+TARFILE = tm-gnus6.19.tar
 
 
 gnus3:

diff --git a/gnus/tm-gnus3.el b/gnus/tm-gnus3.el
index 2fd500c..4aabe48 100644 (file)
--- a/gnus/tm-gnus3.el
+++ b/gnus/tm-gnus3.el
@@ -12,7 +12,7 @@
 ;;;
 
 (defconst tm-gnus/RCS-ID
-  "$Id: tm-gnus3.el,v 6.1 1995/08/31 20:12:49 morioka Exp $")
+  "$Id: tm-gnus3.el,v 6.8 1995/09/04 02:43:18 morioka Exp $")
 
 (defconst tm-gnus/version
   (concat (get-version-string tm-gnus/RCS-ID) " for GNUS 3"))
@@ -57,15 +57,23 @@
 ;;; @ set up
 ;;;
 
-(define-key gnus-Subject-mode-map
-  "\et" 'tm-gnus/toggle-mime-header-decoding-mode)
+(define-key gnus-Subject-mode-map "\et" 'tm-gnus/toggle-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)
+
+(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)
+    ))
+
 (add-hook 'gnus-Article-prepare-hook
-         (function mime/decode-message-header-if-you-need) t)
+         (function tm-gnus/decode-encoded-word-if-you-need) t)
 
 (if (not (string-match "^GNUS 3\.14\.4" gnus-version))
     (progn
@@ -73,12 +81,12 @@
                (function
                 (lambda ()
                   (make-local-variable 'minor-mode-alist)
-                  (mime/add-header-decoding-mode-to-mode-line)
+                  (tm-gnus/add-decoding-mode-to-mode-line)
                   )))
       )
   (progn
     (add-hook 'gnus-Article-mode-hook
-             (function mime/add-header-decoding-mode-to-mode-line))
+             (function tm-gnus/add-decoding-mode-to-mode-line))
     ))
 
 

diff --git a/gnus/tm-gnus4.el b/gnus/tm-gnus4.el
index 87e414b..924f90e 100644 (file)
--- a/gnus/tm-gnus4.el
+++ b/gnus/tm-gnus4.el
@@ -10,7 +10,7 @@
 ;;;
 
 (defconst tm-gnus/RCS-ID
-  "$Id: tm-gnus4.el,v 6.2 1995/08/31 20:14:33 morioka Exp $")
+  "$Id: tm-gnus4.el,v 6.7 1995/09/02 07:28:38 morioka Exp $")
 
 (defconst tm-gnus/version
   (concat (get-version-string tm-gnus/RCS-ID) " for GNUS 4"))
@@ -48,17 +48,22 @@
 ;;;
 
 (define-key gnus-summary-mode-map
-  "\et" (function tm-gnus/toggle-mime-header-decoding-mode))
+  "\et" (function tm-gnus/toggle-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))
+         (function tm-gnus/add-decoding-mode-to-mode-line))
+
+(defun tm-gnus/decode-encoded-word-if-you-need ()
+  (if (and tm-gnus/decoding-mode (not gnus-have-all-headers))
+      (mime/decode-message-header)
+    ))
 
 (add-hook 'gnus-article-prepare-hook
-         (function mime/decode-message-header-if-you-need) t)
+         (function tm-gnus/decode-encoded-word-if-you-need) t)
 
 
 ;;; @ for tm-comp

diff --git a/gnus/tm-gnus5.el b/gnus/tm-gnus5.el
index 69c39dd..6216ac4 100644 (file)
--- a/gnus/tm-gnus5.el
+++ b/gnus/tm-gnus5.el
@@ -11,7 +11,7 @@
 ;;;
 
 (defconst tm-gnus/RCS-ID
-  "$Id: tm-gnus5.el,v 6.18 1995/08/31 20:19:42 morioka Exp $")
+  "$Id: tm-gnus5.el,v 6.19 1995/09/02 05:18:08 morioka Exp $")
 
 (defconst tm-gnus/version
   (concat (get-version-string tm-gnus/RCS-ID) " for GNUS 5"))
@@ -122,12 +122,13 @@ article is automatic MIME decoded.")
       (let ((mime-viewer/ignored-field-list
             (if (save-window-excursion
                   (switch-to-buffer tm-gnus/preview-buffer)
-                  (goto-char (point-min))
-                  (message/get-field-body
-                   (car mime-viewer/ignored-field-list)
-                   ))
-                mime-viewer/ignored-field-list)
-            ))
+                  (some-element
+                   (function
+                    (lambda (field)
+                      (message/get-field-body field)
+                      ))
+                   mime-viewer/ignored-field-list))
+                mime-viewer/ignored-field-list)))
        (gnus-summary-select-article t t)
        )
     (gnus-summary-toggle-header arg)

diff --git a/gnus/tm-ognus.el b/gnus/tm-ognus.el
index bba7111..3b5c064 100644 (file)
--- a/gnus/tm-ognus.el
+++ b/gnus/tm-ognus.el
@@ -1,29 +1,40 @@
 ;;;
-;;; tm-ognus.el --- tm-gnus module for GNUS 3.* and 4.*
+;;; tm-gnus.el --- tm-gnus module for GNUS 3.* and 4.*
 ;;;
-;;; $Id: tm-ognus.el,v 6.1 1995/08/31 20:13:47 morioka Exp $
+;;; $Id: tm-ognus.el,v 6.8 1995/09/02 07:40:13 morioka Exp $
 ;;;
 
-(require 'tm-misc)
+(require 'emu)
+(require 'tiny-mime)
 (require 'gnus)
 
 
-;;; @ change MIME header decoding mode, decoding or non decoding.
+(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-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)
+(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-mime-header-decoding-mode ()
-  "Toggle MIME header processing.
-With arg, turn MIME processing on iff arg is positive."
+(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-mime-header-decoding-mode (not mime/header-decoding-mode))
+  (tm-gnus/set-decoding-mode (not tm-gnus/decoding-mode))
   )
 
 

diff --git a/mh-e/Makefile b/mh-e/Makefile
index 63d5fb2..98463b0 100644 (file)
--- a/mh-e/Makefile
+++ b/mh-e/Makefile
@@ -23,7 +23,7 @@ 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-e6.5.tar
+TARFILE = tm-mh-e6.24.tar
 
 
 elc:

diff --git a/mh-e/tm-mh-e.el b/mh-e/tm-mh-e.el
index 53656c0..f72af2d 100644 (file)
--- a/mh-e/tm-mh-e.el
+++ b/mh-e/tm-mh-e.el
@@ -8,9 +8,9 @@
 
 ;;; @ require modules
 ;;;
+
 (require 'tl-str)
 (require 'tl-misc)
-(require 'tm-misc)
 (require 'mh-e)
 (if (not (boundp 'mh-e-version))
     (require 'tm-mh-e3)
@@ -20,14 +20,16 @@
 
 ;;; @ version
 ;;;
+
 (defconst tm-mh-e/RCS-ID
-  "$Id: tm-mh-e.el,v 6.23 1995/07/17 16:37:20 morioka Exp $")
+  "$Id: tm-mh-e.el,v 6.24 1995/09/02 06:02:20 morioka Exp $")
 
 (defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
 
 
 ;;; @ variable
 ;;;
+
 (defvar tm-mh-e/decode-all t
   "*If t, decode all of the message. Otherwise decode header only.")
 
@@ -219,6 +221,7 @@ With arg, turn MIME processing on if arg is positive."
 
 ;;; @ for tm-comp
 ;;;
+
 (defun tm-mh-e::make-message (folder number)
   (vector folder number)
   )
@@ -332,6 +335,10 @@ With arg, turn MIME processing on if arg is positive."
           'mh-show-mode
           (function tm-mh-e/code-convert-region-to-emacs))
 
-(run-hooks 'tm-mh-e-load-hook)
+
+;;; @ end
+;;;
 
 (provide 'tm-mh-e)
+
+(run-hooks 'tm-mh-e-load-hook)

diff --git a/mk-tm b/mk-tm
index e743639..ea71099 100644 (file)
--- a/mk-tm
+++ b/mk-tm
@@ -1,4 +1,7 @@
 ;;; -*-Emacs-Lisp-*-
+;;;
+;;; $Id: mk-tm,v 2.0 1995/09/04 00:50:39 morioka Exp morioka $
+;;;
 
 (setq load-path (append
                 (mapcar (function
@@ -26,8 +29,7 @@
               "tm-orig"
               ))
        '("signature"
-         "tiny-mime" "tm-misc"
-         "tm-view"
+         "tiny-mime" "tm-def" "tm-view"
          "tm-latex"
          "tm-rmail" "tm-comp"
          "tm-setup" "mime-setup"

diff --git a/tiny-mime.el b/tiny-mime.el
index 434b2c3..75ec647 100644 (file)
--- a/tiny-mime.el
+++ b/tiny-mime.el
@@ -14,13 +14,14 @@
 (require 'mel)
 (require 'tl-header)
 (require 'tl-str)
+(require 'tm-def)
 
 
 ;;; @ version
 ;;;
 
 (defconst mime/RCS-ID
-  "$Id: tiny-mime.el,v 6.2 1995/08/27 19:05:07 morioka Exp $")
+  "$Id: tiny-mime.el,v 6.4 1995/09/04 01:16:45 morioka Exp $")
 
 (defconst mime/tiny-mime-version (get-version-string mime/RCS-ID))
 
@@ -28,11 +29,6 @@
 ;;; @ MIME encoded-word definition
 ;;;
 
-(defconst mime/tspecials "][\000-\040()<>@,\;:\\\"/?.=")
-(defconst mime/token-regexp (concat "[^" mime/tspecials "]+"))
-(defconst mime/charset-regexp mime/token-regexp)
-(defconst mime/encoded-text-regexp "[!->@-~]+")
-
 (defconst mime/Base64-token-regexp "[A-Za-z0-9+/=]")
 (defconst mime/Base64-encoded-text-regexp
   (concat "\\("
@@ -54,6 +50,7 @@
 (defconst mime/Quoted-Printable-encoding-and-encoded-text-regexp
   (concat "\\(Q\\)\\?" mime/Quoted-Printable-encoded-text-regexp))
 
+(defconst mime/encoded-text-regexp "[!->@-~]+")
 (defconst mime/encoded-word-regexp (concat (regexp-quote "=?")
                                           "\\("
                                           mime/charset-regexp
@@ -95,15 +92,6 @@
 (defvar mime/use-X-Nsubject nil)
 
 
-;;; @ compatible module among Mule, NEmacs and NEpoch 
-;;;
-
-(cond ((boundp 'MULE)  (require 'tm-mule))
-      ((boundp 'NEMACS)(require 'tm-nemacs))
-      (t               (require 'tm-orig))
-      )
-
-
 ;;; @ Application Interface
 ;;;
 

diff --git a/tm-comp.el b/tm-comp.el
index bb865e6..ef6b7cb 100644 (file)
--- a/tm-comp.el
+++ b/tm-comp.el
@@ -11,7 +11,6 @@
 ;;;         and YAMAOKA Katsumi <yamaoka@ga.sony.co.jp>
 ;;;
 
-(require 'tm-misc)
 (require 'tm-view)
 (require 'tl-header)
 (require 'tl-list)
@@ -22,7 +21,7 @@
 ;;;
 
 (defconst mime/composer-RCS-ID
-  "$Id: tm-comp.el,v 6.10 1995/08/30 05:37:50 morioka Exp $")
+  "$Id: tm-comp.el,v 6.11 1995/09/04 00:47:37 morioka Exp $")
 
 (defconst mime/composer-version (get-version-string mime/composer-RCS-ID))
 

diff --git a/tm-def.el b/tm-def.el
new file mode 100644 (file)
index 0000000..6a52c05
--- /dev/null
+++ b/tm-def.el
@@ -0,0 +1,31 @@
+;;;
+;;; $Id: tm-def.el,v 3.0 1995/09/04 01:17:27 morioka Exp $
+;;;
+
+;;; @ variables
+;;;
+
+(defvar mime/tmp-dir (or (getenv "TM_TMPDIR") "/tmp/"))
+
+
+;;; @ compatible module among Mule, NEmacs and NEpoch 
+;;;
+
+(cond ((boundp 'MULE)  (require 'tm-mule))
+      ((boundp 'NEMACS)(require 'tm-nemacs))
+      (t               (require 'tm-orig))
+      )
+
+
+;;; @ definitions about MIME
+;;;
+
+(defconst mime/tspecials "][\000-\040()<>@,\;:\\\"/?.=")
+(defconst mime/token-regexp (concat "[^" mime/tspecials "]+"))
+(defconst mime/charset-regexp mime/token-regexp)
+
+
+;;; @ end
+;;;
+
+(provide 'tm-def)

diff --git a/tm-view.el b/tm-view.el
index dc97f26..039880c 100644 (file)
--- a/tm-view.el
+++ b/tm-view.el
@@ -14,14 +14,14 @@
 (require 'tl-header)
 (require 'mel)
 (require 'tiny-mime)
-(require 'tm-misc)
+(require 'tm-def)
 
 
 ;;; @ version
 ;;;
 
 (defconst mime-viewer/RCS-ID
-  "$Id: tm-view.el,v 6.76 1995/08/31 15:05:50 morioka Exp $")
+  "$Id: tm-view.el,v 6.77 1995/09/04 00:48:30 morioka Exp $")
 
 (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
 (defconst mime/viewer-version mime-viewer/version)