From 79e2501a9ffdbaa2d42cb50fc7e350fc884b0075 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Mon, 9 Mar 1998 11:11:35 +0000
Subject: [PATCH] tm 7.17.

---
 Changes-7.16.en     |    8 +++++
 Changes-7.16.ja     |    8 +++++
 Changes-7.17.en     |   29 ++++++++++++++++
 Changes-7.17.ja     |   29 ++++++++++++++++
 Makefile            |    4 +--
 README.eng          |    3 +-
 doc/Makefile        |    8 ++---
 doc/tm-view_en.texi |   96 +++++++++++++++++++++++++++++++++++++++++----------
 doc/tm-view_ja.texi |   75 +++++++++++++++++++++++++++++++++++-----
 doc/tm_en.texi      |   75 +++++++++++++++++++++++++++++++++++-----
 doc/tm_ja.texi      |   91 +++++++++++++++++++++++++++++++++++++++---------
 methods/tm-www      |   30 ++++++++++++++++
 mh-e/Makefile       |    2 +-
 mh-e/tm-mh-e.el     |   14 +++-----
 mk-tm               |    4 +++
 tm-view.el          |   79 +++++++++++++++++++++++-------------------
 tm-w3.el            |    8 ++++-
 17 files changed, 455 insertions(+), 108 deletions(-)
 create mode 100644 Changes-7.17.en
 create mode 100644 Changes-7.17.ja
 create mode 100755 methods/tm-www

diff --git a/Changes-7.16.en b/Changes-7.16.en
index 0d893f9..2b630e0 100644
--- a/Changes-7.16.en
+++ b/Changes-7.16.en
@@ -75,6 +75,14 @@ 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
diff --git a/Changes-7.16.ja b/Changes-7.16.ja
index 967c03f..e5aba52 100644
--- a/Changes-7.16.ja
+++ b/Changes-7.16.ja
@@ -72,6 +72,14 @@ date: 1995/10/17 16:48:06;  author: morioka;  state: Exp;  lines: +2 -2
 $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
diff --git a/Changes-7.17.en b/Changes-7.17.en
new file mode 100644
index 0000000..0fb2115
--- /dev/null
+++ b/Changes-7.17.en
@@ -0,0 +1,29 @@
+* 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
new file mode 100644
index 0000000..1a56b1e
--- /dev/null
+++ b/Changes-7.17.ja
@@ -0,0 +1,29 @@
+* 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/Makefile b/Makefile
index 373e27e..1f92281 100644
--- a/Makefile
+++ b/Makefile
@@ -34,7 +34,7 @@ TL_FILES = tl/README.eng tl/Makefile tl/mk-tl tl/*.el tl/doc/*.texi
 
 FILES	= $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
 
-TARFILE = tm7.16.tar
+TARFILE = tm7.17.tar
 
 
 nemacs:
@@ -142,7 +142,7 @@ ps:	ol2
 
 install:	$(UTILS) methods
 	$(CP) $(UTILS) $(bindir)
-	$(CP) methods/* $(bindir)
+	$(CP) methods/tm* $(bindir)
 
 
 clean:
diff --git a/README.eng b/README.eng
index efda134..8ba7717 100644
--- 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 7.0 1995/10/05 06:57:02 morioka Exp $
+$Id: README.eng,v 7.1 1995/10/18 18:18:19 morioka Exp $
 
 1 What's tm?
 
@@ -25,7 +25,6 @@ This package includes following documents.
 
 - doc/tm_ja.tex		: tm Reference Manual (TeXinfo)
 - doc/tm-view_ja.texi	: tm-view Reference Manual (TeXinfo)
-- doc/tm-eword_ja.texi	: tm-eword.el Reference Manual (TeXinfo)
 - doc/tm-gnus_ja.texi	: tm-gnus Reference Manual (TeXinfo)
 - doc/signature-jp.ol	: signature.el Reference Manual (Emacs Outline)
 - doc/signature-jp.tex	: signature.el Reference Manual (LaTeX)
diff --git a/doc/Makefile b/doc/Makefile
index d85fde2..47b2545 100644
--- a/doc/Makefile
+++ b/doc/Makefile
@@ -1,10 +1,10 @@
 #
 # $Id: Makefile,v 1.1 1995/07/17 16:41:30 morioka Exp morioka $
 #
-OLFILES = tiny-mime-eng.ol
-TEXFILES= signature-jp.tex tiny-mime-eng.tex
-DVIFILES= tm-eng.dvi signature-jp.dvi tiny-mime-eng.dvi
-PSFILES	= signature-jp.ps tiny-mime-eng.ps
+OLFILES = # tiny-mime-eng.ol
+TEXFILES= signature-jp.tex # tiny-mime-eng.tex
+DVIFILES= tm-eng.dvi signature-jp.dvi # tiny-mime-eng.dvi
+PSFILES	= signature-jp.# ps tiny-mime-eng.ps
 GOMI	= *.aux *.toc *.log \
 	*.cp *.cps *.fn *.fns *.vr *.vrs *.ky *.pg *.tp \
 	$(DVIFILES) *.ps *~
diff --git a/doc/tm-view_en.texi b/doc/tm-view_en.texi
index ea2dae6..5b8ce3b 100644
--- a/doc/tm-view_en.texi
+++ b/doc/tm-view_en.texi
@@ -6,28 +6,31 @@
 @titlepage
 @title tm-view Manual (English Version)
 @author by MORIOKA Tomohiko
-@code{$Id: tm-view_en.texi,v 6.1 1995/09/05 17:54:42 morioka Exp $}
+@code{$Id: tm-view_en.texi,v 7.2 1995/10/18 18:11:46 morioka Exp $}
 @end titlepage
 
 
-@node Top, Mechanism, (dir), (dir)
+@node Top, Abstract, (tm_en.info), (tm_en.info)
 @comment  node-name,  next,  previous,  up
-@chapter tm-view
-@cindex tm-view
+@ifinfo
+@top tm-view 7.16 Reference manual
 
 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.
-
-
+@end ifinfo
 
 @menu
-* Mechanism::      Mechanism of mime/viewer-mode.
-* How to run::     How to run mime/viewer-mode.
-* Commands::       Commands of mime/viewer-mode.
-* Preview Buffer:: Screen design of preview buffer.
-* Decoding::       Mechanism of decoding operations for contents.
+* Abstract::              What is tm-view?
+* How to run::            How to run mime/viewer-mode.
+* Commands::              Commands of mime/viewer-mode.
+* Preview Buffer::        Screen design of preview buffer.
+* Decoding::              Mechanism of decoding operations for
+                          contents.
+* environment variables:: environment variables for standard methods
+                          of tm-view.
+* encoded-word::          encoded-word decoding
 
 Preview buffer
 * Preview Buffer:: Screen design of preview buffer.
@@ -49,10 +52,14 @@ Indexes
 @end menu
 
 
-@node Mechanism, How to run, Top, Top
+@node Abstract, How to run, Top, Top
 @comment  node-name,  next,  previous,  up
-@chapter Mechanism
-@cindex Mechanism
+@chapter What is tm-view?
+@cindex tm-view
+
+tm-view is a general MIME viewer for GNU Emacs.
+
+It provides a major-mode to navigate MIME message to each MUAs.
 
 tm-view managements two buffers, one is for raw message called
 @strong{article buffer}, another one is to preview for user called
@@ -73,7 +80,7 @@ Notice: In this document, I call @strong{content-type} as
 content-type/subtype of Content-Type field.
 
 
-@node How to run, Commands, Mechanism, Top
+@node How to run, Commands, Abstract, Top
 @comment  node-name,  next,  previous,  up
 @chapter How to run mime/viewer-mode
 @cindex How to run mime/viewer-mode
@@ -406,7 +413,7 @@ content-body are not displayed.
 @end deffn
 
 
-@node Decoding, Concept Index, Preview Buffer, Top
+@node Decoding, environment variables, Preview Buffer, Top
 @comment  node-name,  next,  previous,  up
 @chapter Decoding
 @cindex Decoding
@@ -571,7 +578,7 @@ name matches with it, and pass the value of that parameter to the
 external method.
 
 
-@node Example of decoding-condition, , Format of method value, Decoding
+@node Example of decoding-condition,  , Format of method value, Decoding
 @comment  node-name,  next,  previous,  up
 @section Examples of decoding-condition
 @cindex Examples of decoding-condition
@@ -647,7 +654,60 @@ Example:
 @end deffn
 
 
-@node Concept Index, Command Index, Decoding, Top
+@node environment variables, encoded-word, Decoding, Top
+@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
+
+
+@node encoded-word, Concept Index, environment variables, Top
+@comment  node-name,  next,  previous,  up
+@chapter encoded-word
+@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
+
+
+@node Concept Index, Command Index, encoded-word, Top
 @unnumbered Concept Index
 
 @printindex cp
diff --git a/doc/tm-view_ja.texi b/doc/tm-view_ja.texi
index e9697d1..4ec8128 100644
--- a/doc/tm-view_ja.texi
+++ b/doc/tm-view_ja.texi
@@ -6,25 +6,28 @@
 @titlepage
 @title{tm-view}
 @author{¼é²¬ ÃÎɧ}
-@code{$Id: tm-view_ja.texi,v 6.6 1995/09/05 18:07:12 morioka Exp $}
+@code{$Id: tm-view_ja.texi,v 7.4 1995/10/18 18:02:04 morioka Exp $}
 @end titlepage
 
 
 @node Top, Abstract, (tm_ja.info), (tm_ja.info)
 @comment  node-name,  next,  previous,  up
 @ifinfo
-@top tm-view 6.78 Reference manual
+@top tm-view 7.16 Reference manual
 
 GNU Emacs ¤ÇÆ°ºî¤¹¤ëÈÆÍÑŪ¤Ê MIME viewer kernel ¤Î `tm-view' ¤Ë¤Ä¤¤¤Æ
 ÀâÌÀ¤·¤Þ¤¹¡£
 @end ifinfo
 
 @menu
-* Abstract::       tm-view ³µÀâ
-* How to run::     mime/viewer-mode ¤Îµ¯Æ°¤Î»ÅÊý
-* Commands::       mime/viewer-mode ¤Î command
-* Preview Buffer:: preview buffer ¤Î²èÌ̹½À®
-* Decoding::       content ¤ËÂФ¹¤ëºÆÀ¸¡¢file Ãê½Ð¡¢°õºþÁàºî¤Î»ÅÁȤß
+* Abstract::              tm-view ³µÀâ
+* How to run::            mime/viewer-mode ¤Îµ¯Æ°¤Î»ÅÊý
+* Commands::              mime/viewer-mode ¤Î command
+* Preview Buffer::        preview buffer ¤Î²èÌ̹½À®
+* Decoding::              content ¤ËÂФ¹¤ëºÆÀ¸¡¢file Ãê½Ð¡¢°õºþÁàºî¤Î
+                          »ÅÁȤß
+* environment variables:: tm-view ¤Îɸ½à method ¤ÇÍѤ¤¤é¤ì¤ë´Ä¶­ÊÑ¿ô
+* encoded-word::          encoded-word ¤Î decode
 
 Preview buffer
 * Preview Buffer:: preview buffer ¤Î²èÌ̹½À®
@@ -407,7 +410,7 @@ content-number 
 @end deffn
 
 
-@node Decoding, Concept Index, Preview Buffer, Top
+@node Decoding, environment variables, Preview Buffer, Top
 @comment  node-name,  next,  previous,  up
 @chapter Decoding
 @cindex Decoding
@@ -636,7 +639,61 @@ method 
 @end deffn
 
 
-@node Concept Index, Command Index, Decoding, Top
+@node environment variables, encoded-word, Decoding, Top
+@comment  node-name,  next,  previous,  up
+@chapter ´Ä¶­ÊÑ¿ô
+@cindex environment variables
+
+°Ê²¼¤Ë tm-view ¤Îɸ½à method ¤¬»²¾È¤¹¤ë´Ä¶­ÊÑ¿ô¤ò¼¨¤·¤Þ¤¹¡£
+
+@table @var
+@item TM_TMP_DIR
+°ì»þŪ¤ËºîÀ®¤µ¤ì¤ë file ¤ä file ½ÐÎϤ¹¤ë¾ì¹ç¤Î default ¤Î½ÐÎÏÀè¤È¤·¤Æ
+ÍѤ¤¤é¤ì¤ë directory ¤ò»ØÄꤹ¤ë¡£¾Êά¤µ¤ì¤¿¾ì¹ç¡¢/tmp/ ¤¬ÍѤ¤¤é¤ì¤ë¡£
+
+@item VIDEO_DITHER
+mpeg_play ¤Ç¤Î dither ¤Î¤«¤±Êý¤ò»ØÄꤹ¤ë¡£´ûÄêÃÍ¤Ï `gray'.
+
+@item TM_WWW_BROWSER
+WWW browser ¤ò»ØÄꤹ¤ë¡£´ûÄêÃÍ¤Ï `netscape'.
+@end table
+
+
+@node encoded-word, Concept Index, environment variables, Top
+@comment  node-name,  next,  previous,  up
+@chapter encoded-word
+@cindex encoded-word
+@cindex non-ASCII field
+@cindex message header
+
+tm-view ¤Ï RFC 1522 ¤Çµ¬Äꤵ¤ì¤¿ encoded-word ¤ò decode ¤¹¤ë¤³¤È¤¬¤Ç¤­
+¤Þ¤¹¡£
+
+@deffn{Command} mime/decode-message-header
+
+current buffer ¤Î message header Ãæ¤Î encoded-word ¤ò decode ¤·¤Þ¤¹¡£
+@end deffn
+
+
+@deffn{Command} mime-eword/decode-region beg end &optional unfolding
+
+@var{beg} ¤È @var{end} ¤Ç°Ï¤Þ¤ì¤¿ÎΰèÃæ¤Î encoded-word ¤ò decode ¤·¤Þ
+¤¹¡£
+
+@var{unfolding} ¤¬ non-nil ¤Î¾ì¹ç¡¢fold ¤µ¤ì¤¿ field ¤ò unfolding ¤·¤Þ
+¤¹¡£
+@end deffn
+
+
+@deffn{Function} mime-eword/decode-string str
+
+@var{str} ¤Î encoded-word ¤ò decode ¤·¤Þ¤¹¡£
+
+fold ¤µ¤ì¤¿Ê¸»úÎó¤Ï unfolding ¤µ¤ì¤Þ¤¹¡£
+@end deffn
+
+
+@node Concept Index, Command Index, encoded-word, Top
 @unnumbered ³µÇ°º÷°ú
 
 @printindex cp
diff --git a/doc/tm_en.texi b/doc/tm_en.texi
index 77da73b..79d0c18 100644
--- a/doc/tm_en.texi
+++ b/doc/tm_en.texi
@@ -6,24 +6,26 @@
 @titlepage
 @title tm Manual (English Version)
 @author by MORIOKA Tomohiko
-@code{$Id: tm_en.texi,v 7.0 1995/10/04 15:16:13 morioka Exp $}
+@code{$Id: tm_en.texi,v 7.2 1995/10/18 18:14:25 morioka Exp $}
 @end titlepage
 
 
 @node Top, Introduction, (dir), (dir)
 @comment  node-name,  next,  previous,  up
 @ifinfo
-@top tm 6.78 Reference manual
+@top tm 7.16 Reference manual
 @end ifinfo
 
 @menu
-* Introduction::   What is tm?
-* Emacs Versions:: Differences between each emacs variants.
+* Introduction::              What is tm?
+* Emacs Versions::            Differences between each emacs variants.
 * Install::
 * Setting::
-* tm-MUA::
-* tm-view: (tm-view_en.info).
-* Bug report:: How to report bug and about mailing list of tm.
+* tm-MUA::                    Extension of mh-e, GNUS, RMAIL and VM
+* tm-view: (tm-view_en.info). MIME message navigator.
+* encoded-word::              
+* Bug report::                How to report bug and about mailing list
+                              of tm.
 * Concept Index::
 * Command Index::
 * Variable Index::
@@ -343,7 +345,7 @@ 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.
 
 
-@node tm-MUA, Bug report, Setting, Top
+@node tm-MUA, encoded-word, Setting, Top
 @comment  node-name,  next,  previous,  up
 @chapter tm-MUA
 @cindex tm-MUA
@@ -391,7 +393,62 @@ setting.
 @end menu
 
 
-@node Bug report, Concept Index, tm-MUA, Top
+@node encoded-word, Bug report, tm-MUA, Top
+@comment  node-name,  next,  previous,  up
+@chapter encoded-word
+@cindex encoded-word
+@cindex non-ASCII field
+@cindex message header
+
+tm has functions about encoded-word defined in RFC 1522.
+
+@menu
+* decode: (tm-view_en.info)encoded-word. 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/decode-message-header
+
+It encodes 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
+
+
+@node Bug report, Concept Index, encoded-word, Top
 @comment  node-name,  next,  previous,  up
 @chapter How to report bug and about mailing list of tm
 @cindex bug report
diff --git a/doc/tm_ja.texi b/doc/tm_ja.texi
index 764cf9e..b40cba3 100644
--- a/doc/tm_ja.texi
+++ b/doc/tm_ja.texi
@@ -6,30 +6,31 @@
 @titlepage
 @title{tm Manual¡ÊÆüËܸìÈÇ¡Ë}
 @author{¼é²¬ ÃÎɧ Ãø}
-@code{$Id: tm_ja.texi,v 6.0 1995/10/04 14:42:13 morioka Exp morioka $}
+@code{$Id: tm_ja.texi,v 7.0 1995/10/18 17:19:23 morioka Exp $}
 @end titlepage
 
 
 @node Top, Introduction, (dir), (dir)
 @comment  node-name,  next,  previous,  up
 @ifinfo
-@top tm-view 6.78 Reference manual
+@top tm 7.16 Reference manual
 
 GNU Emacs ¤Ç MIME ¤ò³Ú¤·¤à¤¿¤á¤Î package ¤Ç¤¢¤ë `tm' ¤Ë¤Ä¤¤¤ÆÀâÌÀ¤·¤Þ
 ¤¹¡£
 @end ifinfo
 
 @menu
-* Introduction::   ¤Ï¤¸¤á¤Ë
-* Emacs-Versions:: Emacs ¤Î¼ïÎàÊ̤ε¡Ç½¤ª¤è¤ÓÀ©¸Â
-* Install::
-* Setting::
-* tm-MUA::
-* tm-view: (tm-view_ja.info).
-* Bug report:: bug Êó¹ð¤Î»ÅÊý¤È mailing list ¤Ë¤Ä¤¤¤Æ
-* Concept Index::
-* Command Index::
-* Variable Index::
+* Introduction::                ¤Ï¤¸¤á¤Ë
+* Emacs-Versions::              Emacs ¤Î¼ïÎàÊ̤ε¡Ç½¤ª¤è¤ÓÀ©¸Â
+* Install::                     
+* Setting::                     
+* tm-MUA::                      mh-e, GNUS, RMAIL, VM ¤Ê¤É³Æ¼ï MUA ¤Î³ÈÄ¥
+* tm-view:(tm-view_ja.info).    MIME message ¤Î±ÜÍ÷
+* encoded-word::                
+* Bug report::                  bug Êó¹ð¤Î»ÅÊý¤È mailing list ¤Ë¤Ä¤¤¤Æ
+* Concept Index::               
+* Command Index::               
+* Variable Index::              
 @end menu
 
 
@@ -42,7 +43,7 @@ tm 
 
 @itemize @bullet
 @item tm-view ¤Ë¤è¤ë MIME message ¤Î±ÜÍ÷¡¦ºÆÀ¸
-@item tiny-mime ¤Ë¤è¤ë¿¸À¸ì header ¤Î encode/decode
+@item RFC 1522 ¤Çµ¬Äꤵ¤ì¤¿ MIME encoded-word ¤Î encode/decode
 @item mh-e, GNUS, RMAIL, VM ¤Ç¤Î MIME µ¡Ç½¤Î¶¯²½
 @end itemize
 
@@ -55,8 +56,8 @@ tm 
 tm ¤Ï°Ê²¼¤Î module ¤«¤é¤Ê¤ê¤Þ¤¹¡£
 
 @itemize @minus
-@item @strong{tiny-mime:} MIME header encoder/decoder
 @item @strong{tm-view:}   MIME viewer
+@item @strong{tm-eword:}  MIME encoded-word encoder/decoder
 @item @strong{tm-def:}    tm ¤Î¤¿¤á¤ÎÄêµÁ module
         @item @strong{tm-mh-e:}  mh-e ÍѤΠtm-MUA
         @item @strong{tm-gnus:}  GNUS ÍѤΠtm-MUA
@@ -67,7 +68,6 @@ tm 
 @end itemize
 
 @menu
-* tiny-mime:(tm-eword_ja.info).
 * tm-view:(tm-view_ja.info).
 * tm-mh-e:(tm-mh-e_ja.info).
 * tm-gnus:(tm-gnus_ja.info).
@@ -375,7 +375,7 @@ vm 
 tm-setup.el ¤ò»²¹Í¤Ë¤·¤Æ²¼¤µ¤¤¡£
 
 
-@node tm-MUA, Bug report, Setting, Top
+@node tm-MUA, encoded-word, Setting, Top
 @comment  node-name,  next,  previous,  up
 @chapter tm-MUA
 @cindex tm-MUA
@@ -422,7 +422,64 @@ tm-MUA 
 @end menu
 
 
-@node Bug report, Concept Index, tm-MUA, Top
+@node encoded-word, Bug report, tm-MUA, Top
+@comment  node-name,  next,  previous,  up
+@chapter encoded-word
+@cindex encoded-word
+@cindex non-ASCII field
+@cindex message header
+
+tm ¤Ï RFC 1522 ¤Çµ¬Äꤵ¤ì¤¿ encoded-word ¤ò°·¤¦¤¿¤á¤Î´Ø¿ô¤ò»ý¤Ã¤Æ¤¤¤Þ
+¤¹¡£
+
+@menu
+* decode: (tm-view_ja.info)encoded-word. 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/decode-message-header
+
+current buffer ¤Î message header ¤ò encoded-word ¤È¤·¤Æ encode ¤·¤Þ¤¹¡£
+@end deffn
+
+
+@deffn{Function} mime/encode-field str
+
+@var{str} ¤ò field ¤È¤·¤Æ encode ¤·¤Þ¤¹¡£
+@end deffn
+
+
+@deffn{Function} mime-eword/encode-string str &optional column mode
+
+@var{str} ¤ò encoded-word ¤È¤·¤Æ encode ¤·¤Þ¤¹¡£
+
+@var{column} ¤Ï¤³¤Îʸ»úÎ󤬲¿·åÌܤ«¤é»Ï¤Þ¤Ã¤Æ¤¤¤ë¤«¤ò»ØÄꤷ¤Þ¤¹¡£´ûÄê
+ÃÍ¤Ï 0 ¤Ç¤¹¡£
+
+@var{mode} ¤Ï¤³¤Îʸ»úÎ󤬤ɤ¦¤¤¤¦Éôʬ¤Ç»È¤ï¤ì¤Æ¤¤¤ë¤«¤ò¼¨¤·¤Þ¤¹¡£»ØÄê
+¤Ç¤­¤ëÃͤȤ·¤Æ¤Ï @code{text}, @code{comment}, @code{phrase} ¤¬¤¢¤ê¤Þ¤¹¡£
+´ûÄêÃÍ¤Ï @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
+
+current buffer ¤Î Subject: field ¤Ë encoded-word ¤¬Â¸ºß¤¹¤ë¾ì¹ç¡¢
+Subject: field ¤Î field-body ¤òÊÖ¤·¤Þ¤¹¡£
+@end deffn
+
+
+@node Bug report, Concept Index, encoded-word, Top
 @comment  node-name,  next,  previous,  up
 @chapter bug Êó¹ð¤Î»ÅÊý¤È mailing list ¤Ë¤Ä¤¤¤Æ
 @cindex bug Êó¹ð
diff --git a/methods/tm-www b/methods/tm-www
new file mode 100755
index 0000000..194b488
--- /dev/null
+++ b/methods/tm-www
@@ -0,0 +1,30 @@
+#!/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/Makefile b/mh-e/Makefile
index 23f9ed1..9e08e4e 100644
--- 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-e7.05.tar
+TARFILE = tm-mh-e7.06.tar
 
 
 elc:
diff --git a/mh-e/tm-mh-e.el b/mh-e/tm-mh-e.el
index e62070e..b41e7d4 100644
--- a/mh-e/tm-mh-e.el
+++ b/mh-e/tm-mh-e.el
@@ -26,7 +26,7 @@
 ;;;
 
 (defconst tm-mh-e/RCS-ID
-  "$Id: tm-mh-e.el,v 7.5 1995/10/18 09:57:56 morioka Exp $")
+  "$Id: tm-mh-e.el,v 7.6 1995/10/19 07:51:52 morioka Exp $")
 
 (defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
 
@@ -37,8 +37,6 @@
 (defvar tm-mh-e/decode-all t
   "*If t, decode all of the message. Otherwise decode header only.")
 
-(defvar tm-mh-e/show-all-header nil)
-
 (defvar tm-mh-e/decode-encoded-word t)
 
 
@@ -52,7 +50,7 @@
 
 (defun mh-display-msg (msg-num folder &optional show-buffer mode)
   (or mode
-      (setq mode (and tm-mh-e/decode-all (not tm-mh-e/show-all-header)))
+      (setq mode tm-mh-e/decode-all)
       )
   ;; Display message NUMBER of FOLDER.
   ;; Sets the current buffer to the show buffer.
@@ -171,18 +169,16 @@ With arg, turn MIME processing on if arg is positive."
 
 (defun tm-mh-e/show (&optional message)
   (interactive)
-  (setq tm-mh-e/show-all-header nil)
-  (setq tm-mh-e/decode-encoded-word t)
   (mh-invalidate-show-buffer)
   (mh-show message)
   )
 
 (defun tm-mh-e/header-display ()
   (interactive)
-  (setq tm-mh-e/show-all-header t)
-  (setq tm-mh-e/decode-encoded-word nil)
   (mh-invalidate-show-buffer)
-  (let (mime-viewer/ignored-field-list)
+  (let (mime-viewer/ignored-field-list
+	tm-mh-e/decode-all
+	tm-mh-e/decode-encoded-word)
     (mh-header-display)
     ))
 
diff --git a/mk-tm b/mk-tm
index 13632dc..7a101fc 100644
--- a/mk-tm
+++ b/mk-tm
@@ -75,6 +75,10 @@
 	(append tm-uncompile-el-files '("tm-vm.el")))
   )
 
+(if (file-exists-p "tm-evs.el")
+    (setq tm-modules (append tm-modules '("tm-evs")))
+  )
+
 (setq tm-el-files
       (mapcar (function (lambda (module)
 			  (concat module ".el")
diff --git a/tm-view.el b/tm-view.el
index 8e3f80f..aa64a72 100644
--- a/tm-view.el
+++ b/tm-view.el
@@ -25,7 +25,7 @@
 ;;;
 
 (defconst mime-viewer/RCS-ID
-  "$Id: tm-view.el,v 7.16 1995/10/17 16:48:06 morioka Exp $")
+  "$Id: tm-view.el,v 7.17 1995/10/19 07:55:54 morioka Exp $")
 
 (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
 (defconst mime/viewer-version mime-viewer/version)
@@ -106,29 +106,29 @@
 ;;; @@ predicate functions
 ;;;
 
-(defun mime-viewer/header-visible-p (cnum cinfo &optional ctype)
-  (or (eq cnum t)
+(defun mime-viewer/header-visible-p (rcnum cinfo &optional ctype)
+  (or (null rcnum)
       (progn
 	(setq ctype
 	      (mime::content-info/type
-	       (mime-article/cnum-to-cinfo (butlast cnum) cinfo)
+	       (mime-article/rcnum-to-cinfo (cdr rcnum) cinfo)
 	       ))
 	(member ctype mime-viewer/childrens-header-showing-Content-Type-list)
 	)))
 
-(defun mime-viewer/body-visible-p (cnum cinfo &optional ctype)
+(defun mime-viewer/body-visible-p (rcnum cinfo &optional ctype)
   (let (ccinfo)
     (or ctype
 	(setq ctype
 	      (mime::content-info/type
-	       (setq ccinfo (mime-article/cnum-to-cinfo cnum cinfo))
+	       (setq ccinfo (mime-article/rcnum-to-cinfo rcnum cinfo))
 	       ))
 	)
     (and (member ctype mime-viewer/default-showing-Content-Type-list)
 	 (if (string-equal ctype "application/octet-stream")
 	     (progn
 	       (or ccinfo
-		   (setq ccinfo (mime-article/cnum-to-cinfo cnum cinfo))
+		   (setq ccinfo (mime-article/rcnum-to-cinfo rcnum cinfo))
 		   )
 	       (member (mime::content-info/encoding ccinfo)
 		       '(nil "7bit" "8bit"))
@@ -141,18 +141,18 @@
 ;;;
 
 (defun mime-viewer/insert-content-subject
-  (cnum cinfo ctype params subj)
+  (rcnum cinfo ctype params subj)
   (save-restriction
     (narrow-to-region (point)(point))
     (insert
      (let ((access-type (assoc "access-type" params))
 	   (num (or (assoc-value "x-part-number" params)
-		    (if (listp cnum)
+		    (if (consp rcnum)
 			(mapconcat (function
 				    (lambda (num)
 				      (format "%s" (1+ num))
 				      ))
-				   cnum ".")
+				   (reverse rcnum) ".")
 		      "0"))
 		))
        (if access-type
@@ -174,14 +174,14 @@
     ))
 
 (defun mime-viewer/default-content-subject-function
-  (cnum cinfo ctype params subj)
-  (if (and (listp cnum)
+  (rcnum cinfo ctype params subj)
+  (if (and (consp rcnum)
 	   (not (member
 		 ctype
 		 mime-viewer/content-subject-omitting-Content-Type-list))
 	   )
       (mime-viewer/insert-content-subject
-       cnum cinfo ctype params subj)
+       rcnum cinfo ctype params subj)
     ))
 
 (defvar mime-viewer/content-subject-function
@@ -217,16 +217,16 @@
     ("application/pgp" . mime-viewer/filter-text/plain)
     (nil . mime-viewer/filter-text/plain)))
 
-(defun mime-viewer/default-content-filter (cnum cinfo ctype params subj)
+(defun mime-viewer/default-content-filter (rcnum cinfo ctype params subj)
   )
 
 
 ;;; @@ content separator
 ;;;
 
-(defun mime-viewer/default-content-separator (cnum cinfo ctype params subj)
-  (if (and (not (mime-viewer/header-visible-p cnum cinfo ctype))
-	   (not (mime-viewer/body-visible-p cnum cinfo ctype))
+(defun mime-viewer/default-content-separator (rcnum cinfo ctype params subj)
+  (if (and (not (mime-viewer/header-visible-p rcnum cinfo ctype))
+	   (not (mime-viewer/body-visible-p rcnum cinfo ctype))
 	   )
       (progn
 	(goto-char (point-max))
@@ -363,12 +363,8 @@ The compressed face will be piped to this command.")
 	 (ctype (mime::content-info/type content))
 	 (params (mime::content-info/parameters content))
 	 (encoding (mime::content-info/encoding content))
-	 (cnum (mime::content-info/rcnum content))
+	 (rcnum (mime::content-info/rcnum content))
 	 he e nb ne subj)
-    (setq cnum
-	  (if cnum
-	      (reverse cnum)
-	    t))
     (set-buffer ibuf)
     (goto-char beg)
     (setq he (if (re-search-forward "^$" nil t)
@@ -387,28 +383,28 @@ The compressed face will be piped to this command.")
     (setq nb (point))
     (narrow-to-region nb nb)
     (funcall mime-viewer/content-subject-function
-	     cnum cinfo ctype params subj)
+	     rcnum cinfo ctype params subj)
     (set-buffer ibuf)
-    (if (mime-viewer/header-visible-p cnum cinfo ctype)
+    (if (mime-viewer/header-visible-p rcnum cinfo ctype)
 	(mime-viewer/display-header beg he obuf)
       )
-    (cond ((mime-viewer/body-visible-p cnum cinfo ctype)
+    (cond ((mime-viewer/body-visible-p rcnum cinfo ctype)
 	   (mime-viewer/display-body he end obuf
-				     cnum cinfo ctype params subj encoding)
+				     rcnum cinfo ctype params subj encoding)
 	   )
 	  ((equal ctype "message/partial")
 	   (mime-viewer/display-message/partial obuf)
 	   )
-	  ((and (eq cnum t)
+	  ((and (null rcnum)
 		(null (mime::content-info/children cinfo))
 		)
 	   (set-buffer obuf)
 	   (goto-char (point-max))
-	   (mime-viewer/insert-content-subject cnum cinfo ctype params subj)
+	   (mime-viewer/insert-content-subject rcnum cinfo ctype params subj)
 	   )
 	  (t (set-buffer obuf))
 	  )
-    (mime-viewer/default-content-separator cnum cinfo ctype params subj)
+    (mime-viewer/default-content-separator rcnum cinfo ctype params subj)
     (prog1
 	(progn
 	  (setq ne (point-max))
@@ -435,7 +431,7 @@ The compressed face will be piped to this command.")
 	))))
 
 (defun mime-viewer/display-body (beg end obuf
-				     cnum cinfo ctype params subj encoding)
+				     rcnum cinfo ctype params subj encoding)
   (let ((str (buffer-substring beg end))
 	be)
     (set-buffer obuf)
@@ -446,7 +442,7 @@ The compressed face will be piped to this command.")
       (let ((f (assoc-value ctype mime-viewer/content-filter-alist)))
 	(if (and f (fboundp f))
 	    (funcall f ctype params encoding)
-	  (mime-viewer/default-content-filter cnum cinfo ctype params subj)
+	  (mime-viewer/default-content-filter rcnum cinfo ctype params subj)
 	  ))
       )))
 
@@ -524,6 +520,18 @@ The compressed face will be piped to this command.")
 		  )))
 	    t))))
 
+(defun mime-article/rcnum-to-cinfo (rcnum &optional cinfo)
+  (or cinfo
+      (setq cinfo mime::article/content-info)
+      )
+  (some-element
+   (function
+    (lambda (ci)
+      (equal (mime::content-info/rcnum ci) rcnum)
+      ))
+   (mime/flatten-content-info cinfo)
+   ))
+
 (defun mime-article/cnum-to-cinfo (cn &optional cinfo)
   (or cinfo
       (setq cinfo mime::article/content-info)
@@ -782,16 +790,15 @@ listed in key order:
   (interactive)
   (let ((pc (mime::point-preview-content (point))) cinfo
 	(the-buf (current-buffer))
-	cn r)
+	rcnum r)
     (switch-to-buffer (mime::preview-content-info/buffer pc))
     (setq cinfo (mime::preview-content-info/content-info pc))
-    (setq cn (mime-article/point-content-number
-	      (mime::content-info/point-min cinfo)))
-    (if (eq cn t)
+    (setq rcnum (mime::content-info/rcnum cinfo))
+    (if (null rcnum)
 	(mime-viewer/quit the-buf
 			  (mime::preview-content-info/buffer pc)
 			  )
-      (setq r (mime-article/cnum-to-cinfo (butlast cn)))
+      (setq r (mime-article/rcnum-to-cinfo (cdr rcnum)))
       (switch-to-buffer the-buf)
       (catch 'tag
 	(let ((rpcl mime::preview/content-list) cell)
diff --git a/tm-w3.el b/tm-w3.el
index 485b8a1..195afba 100644
--- a/tm-w3.el
+++ b/tm-w3.el
@@ -5,7 +5,7 @@
 ;;;
 ;;; based on tm-latex.el by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
 ;;;
-;;; $Id: tm-w3.el,v 1.1 1995/09/14 15:51:57 morioka Exp $
+;;; $Id: tm-w3.el,v 2.0 1995/10/19 07:57:57 morioka Exp $
 ;;;
 
 (require 'tm-view)
@@ -33,6 +33,12 @@
 	    (re-search-forward "^$")
 	    (append-to-buffer new-buf (+ (match-end 0) 1) end)
 	    )))
+    (cond ((string= encoding "quoted-printable")
+	   (quoted-printable-decode-region (point-min)(point-max))
+	   )
+	  ((string= encoding "base64")
+	   (base64-decode-region (point-min)(point-max))
+	   ))
     (call-interactively mime-viewer/html-default-mode)
     ))
 
-- 
1.7.10.4