tm 6.76.2.
authormorioka <morioka>
Mon, 9 Mar 1998 07:14:57 +0000 (07:14 +0000)
committermorioka <morioka>
Mon, 9 Mar 1998 07:14:57 +0000 (07:14 +0000)
Changes-6.76.2.en [new file with mode: 0644]
Changes-6.76.2.ja [new file with mode: 0644]
Makefile
doc/Makefile
doc/tm-gnus_en.texi [new file with mode: 0644]
doc/tm-gnus_ja.texi [new file with mode: 0644]
doc/tm-view_en.texi
doc/tm-view_ja.texi
gnus/Makefile

diff --git a/Changes-6.76.2.en b/Changes-6.76.2.en
new file mode 100644 (file)
index 0000000..5491c11
--- /dev/null
@@ -0,0 +1,5 @@
+* 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
new file mode 100644 (file)
index 0000000..0e709b5
--- /dev/null
@@ -0,0 +1,5 @@
+* tm
+
+       - tm-view \e$B$N@bL@=q$r>/$7=$@5$7$?!#\e(B
+       - tm-gnus \e$B$N@bL@=q$r=q$$$?!#\e(B
+       - Makefile \e$B$K\e(B gnus5 \e$BMQ$N\e(B comment \e$B$r2C$($?!#\e(B  
index 68d9986..5e52fc8 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -1,5 +1,5 @@
 #
-# $Id: Makefile,v 6.23 1995/08/14 17:25:12 morioka Exp morioka $
+# $Id: Makefile,v 6.24 1995/09/01 18:15:10 morioka Exp morioka $
 #
 
 # Please specify emacs executables:
@@ -67,7 +67,7 @@ TL_FILES = tl/README.eng \
 
 FILES  = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
 
-TARFILE = tm6.76.1.tar
+TARFILE = tm6.76.2.tar
 
 
 nemacs:
@@ -105,8 +105,10 @@ orig19:
        cd ../mel; PWD=`pwd` make elc EMACS=$(ORIG19)
        $(ORIG19) -batch -l mk-tm -f compile-tm
        cd gnus; PWD=`pwd` make gnus4 EMACS=$(ORIG19)
-# If you use (ding) GNUS, please comment use following:
+# If you use (ding) GNUS, please use following comment:
 #      cd gnus; PWD=`pwd` make dgnus EMACS=$(ORIG19)
+# If you use Gnus v5, please use following comment:
+#      cd gnus; PWD=`pwd` make gnus5 EMACS=$(ORIG19)
        cd mh-e; PWD=`pwd` make elc EMACS=$(ORIG19)
 
 install-orig19:        orig19
@@ -122,8 +124,10 @@ mule2:
        cd ../mel; PWD=`pwd` make elc EMACS=$(MULE2)
        $(MULE2) -batch -l mk-tm -f compile-tm
        cd gnus; PWD=`pwd` make gnus4 EMACS=$(MULE2)
-# If you use (ding) GNUS, please comment use following:
+# If you use (ding) GNUS, please use following comment:
 #      cd gnus; PWD=`pwd` make dgnus EMACS=$(MULE2)
+# If you use Gnus v5, please use following comment:
+#      cd gnus; PWD=`pwd` make gnus5 EMACS=$(MULE2)
        cd mh-e; PWD=`pwd` make elc EMACS=$(MULE2)      
 
 install-mule2: mule2
index fee363e..d85fde2 100644 (file)
@@ -5,7 +5,8 @@ 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 *.fn *.ky *.pg *.tp *.vr \
+GOMI   = *.aux *.toc *.log \
+       *.cp *.cps *.fn *.fns *.vr *.vrs *.ky *.pg *.tp \
        $(DVIFILES) *.ps *~
 
 .SUFFIXES:     .ol .tex .dvi .ps
diff --git a/doc/tm-gnus_en.texi b/doc/tm-gnus_en.texi
new file mode 100644 (file)
index 0000000..d633cf1
--- /dev/null
@@ -0,0 +1,245 @@
+\input texinfo.tex
+@c{-*-tm-gnus manual-*-}
+@setfilename tm-gnus_en.info
+@settitle{tm-gnus manual}
+
+@titlepage
+@title{tm-gnus}
+@author{MORIOKA Tomohiko}
+@code{$Id: tm-gnus_en.texi,v 1.1 1995/09/02 01:51:58 morioka Exp $}
+@end titlepage
+
+
+@node Top, Components, (tm_en.info)tm-MUA, (tm_en.info)tm-MUA
+@comment  node-name,  next,  previous,  up
+@chapter tm-gnus
+@cindex tm-gnus
+
+tm-gnus is a GNUS extender to use tm. It supports GNUS 3.*, GNUS 4.*,
+(ding) GNUS and GNUS 5.*.
+
+@menu
+* Components:: modules of tm-gnus
+* Features::   Features of tm-gnus
+* Customize::  Customize of tm-gnus
+* Concept Index::
+* Command Index::
+* Variable Index::
+@end menu
+
+
+@node Components, Features, Top, Top
+@comment  node-name,  next,  previous,  up
+@section{modules of tm-gnus}
+@cindex{components}
+
+tm-gnus has following modules:
+
+@itemize
+@item @strong{tm-gnus}:  setting module for GNUS.
+@item @strong{tm-gnus3}: setting module for GNUS 3.*.
+@item @strong{tm-gnus4}: setting module for GNUS 4.*.
+@item @strong{tm-ognus}: common part for tm-gnus3 and tm-gnus4.
+@item @strong{tm-dgnus}: setting module for (ding) GNUS.
+@item @strong{tm-gnus5}: setting module for GNUS 5.*.
+@end itemize
+
+
+@node Features,  , Components, Top
+@comment  node-name,  next,  previous,  up
+@section{Features of tm-gnus}
+@cindex{features}
+
+tm-gnus expands following features to GNUS.
+
+@menu
+* Summary buffer::         Summary buffer decoding
+* Summary mode::           Extension to summary mode.
+* Automatic MIME Preview:: Automatic MIME Preview
+@end menu
+
+
+@node Summary buffer, Summary mode, Features, Features
+@comment  node-name,  next,  previous,  up
+@subsection{Summary buffer decoding}
+@cindex{encoded-word}
+@cindex{RFC 1522}
+@cindex{summary buffer}
+
+tm-gnus decodes MIME encoded-word in summary buffer using tiny-mime
+(@inforef{Top, , tm-eword_en}) functions. However if an encoded-word
+has unsupported charset, it is not decoded.
+
+@menu
+* (tm-eword_en.info)Charsets:: supported charsets
+@end menu
+
+
+@node Summary mode, Automatic MIME Preview, Summary buffer, Features
+@comment  node-name,  next,  previous,  up
+@subsection{Extension to Summary mode}
+@cindex{Summary mode}
+
+@table @kbd 
+@item @key{M-t}
+In automatic MIME preview support version GNUS, it is the toggle
+whether to do automatic MIME preview or not. Otherwise it is the
+toggle for decoding mode of RFC 1522 MIME encoded-word.
+@item @key{v}
+Enter @code{mime/viewer-mode} to view a message.
+@end table
+
+mime/viewer-mode is a mode to view MIME messages. You can move in a
+message, or play each contents included in a message.
+
+@menu
+* (tm-view_en.info)Commands:: Commands of mime/viewer-mode.
+@end menu
+
+
+@node Automatic MIME Preview,  , Summary mode, Features
+@comment  node-name,  next,  previous,  up
+@subsection{Automatic MIME Preview}
+@cindex{automatic MIME preview}
+
+``Automatic MIME preview'' feature is available to apply ``with tm
+patch'' for (ding) GNUS and GNUS 5.*. This patch is in
+ftp.jaist.ac.jp:/pub/GNU/elisp/dgnus/, current version is
+dgnus-0.99.23-tm.diff (as of 2 September 1995).
+
+If this feature is available, when reading an article in summary mode,
+tm-gnus displays preview buffer processed by tm-view (@inforef{Top, ,
+tm-view_en.info}) instead of raw article buffer.
+
+Therefore if an article is encoded by Quoted-Printable or Base64,
+decoded article is displays. In addition, if using tm-rich, rich text
+article is automatic formated. Of course, multipart article is dealt
+with correctly.
+
+Different from using metamail, speaker does not roar just then read an
+article includes audio content, video player does not play just then
+read an article includes video content, it does not do anonymous ftp
+or send mail when read an article includes external-message. These
+contents are played when you do decoding command in preview buffer.
+
+However if you use a slow machine, or are just really impatient, you
+can stop automatic MIME preview.
+
+
+@defvar tm-gnus/decode-all
+
+If it is t, tm-gnus is in automatic MIME preview mode.
+@end defvar
+
+
+@deffn{Command} tm-gnus/toggle-mime arg
+
+It switches normal mode and automatic MIME preview mode. Namely, it
+switches value of the variable @code{tm-gnus/decode-all}.
+
+If @var{arg} is @code{t}, it set the variable
+@code{tm-gnus/decode-all} to @code{t}.
+@end deffn
+
+
+If ``withd tm patch'' is applied, semantics of variable
+@code{gnus-article-buffer} is changed, its semantics is divided into
+following two variables.
+
+
+@defvar gnus-article-buffer
+
+It indicates the buffer to display. In automatic MIME preview mode, it
+indicates preview buffer processed by tm-view. In normal mode, it
+indicates raw article buffer. In this case, it is equal to variable
+@code{gnus-clean-article-buffer}.
+@end defvar
+
+
+@defvar gnus-clean-article-buffer
+
+It indicates raw article buffer even if tm-gnus is in automatic MIME
+preview mode.
+@end defvar
+
+
+@node Customize, Concept Index, Features, Top
+@comment  node-name,  next,  previous,  up
+@subsection{Customize of tm-gnus}
+@cindex{customize}
+
+@defvar tm-gnus/original-article-display-hook
+
+tm-gnus uses @code{gnus-article-display-hook}, forbids to use for
+users customize. Therefore tm-gnus has this variable instead of
+@code{gnus-article-display-hook}.
+
+Notice: it is available after tm-gnus is loaded. Therefore you had
+better to set in @code{call-after-loaded} like following:
+
+@lisp
+(call-after-loaded
+ 'tm-view
+ (function
+  (lambda ()
+    (add-hook 'tm-gnus/original-article-display-hook
+              ...)
+    )))
+@end lisp
+@end defvar
+
+In addition, you can customize preview buffer to set tm-view
+setting. For instance, following is a example to add faces using
+hilit19.
+
+@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
+
+@menu
+* (tm-view_en.info):: tm-view
+@end menu
+
+
+@node Concept Index, Command Index, Features, Top
+@section{Concept Index}
+@unnumbered Concept Index
+
+@printindex cp
+
+
+@node Command Index, Variable Index, Concept Index, Top
+@section{Command and Function Index}
+@unnumbered Command and Function Index
+
+@printindex fn
+
+
+@node Variable Index,  , Command Index, Top
+@section{Variable Index}
+@unnumbered Variable Index
+
+@printindex vr
+
+@bye
diff --git a/doc/tm-gnus_ja.texi b/doc/tm-gnus_ja.texi
new file mode 100644 (file)
index 0000000..f55c06f
--- /dev/null
@@ -0,0 +1,248 @@
+\input texinfo.tex
+@c{-*-tm-gnus manual-*-}
+@setfilename tm-gnus_ja.info
+@settitle{tm-gnus manual}
+
+@titlepage
+@title{tm-gnus}
+@author{¼é²¬ ÃÎɧ}
+@code{$Id: tm-gnus_ja.texi,v 1.1 1995/09/02 00:32:58 morioka Exp $}
+@end titlepage
+
+
+@node Top, Components, (tm_ja.info)tm-MUA, (tm_ja.info)tm-MUA
+@comment  node-name,  next,  previous,  up
+@chapter tm-gnus
+@cindex tm-gnus
+
+tm-gnus ¤Ï GNUS ¤Ç tm ¤ò»È¤¦¤¿¤á¤Î¤â¤Î¤Ç GNUS 3.*, GNUS 4.*, (ding)
+GNUS, GNUS 5.* ¤ÇÍøÍѤ¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£
+
+@menu
+* Components:: tm-gnus ¤Ë´Þ¤Þ¤ì¤ë module
+* Features::   tm-gnus ¤Îµ¡Ç½         
+* Customize::  tm-gnus ¤Î¥«¥¹¥¿¥Þ¥¤¥º
+* Concept Index::
+* Command Index::
+* Variable Index::
+@end menu
+
+
+@node Components, Features, Top, Top
+@comment  node-name,  next,  previous,  up
+@section{tm-gnus ¤Ë´Þ¤Þ¤ì¤ë module}
+@cindex{components}
+
+tm-gnus ¤Ë¤Ï°Ê²¼¤Î module ¤¬´Þ¤Þ¤ì¤Þ¤¹¡£
+
+@itemize
+@item @strong{tm-gnus}:  GNUS ÍѤÎÀßÄê module
+@item @strong{tm-gnus3}: GNUS 3.* ÍѤÎÀßÄê module
+@item @strong{tm-gnus4}: GNUS 4.* ÍѤÎÀßÄê module
+@item @strong{tm-ognus}: tm-gnus3 ¤È tm-gnus4 ¤Î¶¦ÄÌ module
+@item @strong{tm-dgnus}: (ding) GNUS ÍѤÎÀßÄê module
+@item @strong{tm-gnus5}: GNUS 5.* ÍѤÎÀßÄê module
+@end itemize
+
+
+@node Features,  , Components, Top
+@comment  node-name,  next,  previous,  up
+@section{tm-gnus ¤Îµ¡Ç½}
+@cindex{features}
+
+tm-gnus ¤ò»È¤¦¤È¡¢GNUS ¤Î Summary mode ¤ËÂФ·¤Æ°Ê²¼¤Îµ¡Ç½¤¬Äɲ䵤ì¤Þ
+¤¹¡£
+
+@menu
+* Summary buffer::         Summary buffer ¤Î decode
+* Summary mode::           Summary mode ¤ËÄɲ䵤ì¤ëµ¡Ç½
+* Automatic MIME Preview:: Automatic MIME Preview
+@end menu
+
+
+@node Summary buffer, Summary mode, Features, Features
+@comment  node-name,  next,  previous,  up
+@subsection{Summary buffer ¤Î decode}
+@cindex{encoded-word}
+@cindex{RFC 1522}
+@cindex{summary buffer}
+
+tm-gnus ¤òÍѤ¤¤ë¤È¡¢tiny-mime (@inforef{Top, , tm-eword_ja}) ¤Îµ¡Ç½¤ò
+»È¤Ã¤Æ Summary buffer Ãæ¤Î MIME encoded-word ¤ò decode ¤¹¤ë¤³¤È¤¬¤Ç¤­
+¤Þ¤¹¡£¤·¤«¤·¡¢encoded-word ¤Î¤¦¤Á¡¢¤½¤Î emacs ¤Ç support ¤µ¤ì¤Ê¤¤ 
+charset ¤Ï decode ¤µ¤ì¤Þ¤»¤ó¡£
+
+@menu
+* (tm-eword_ja.info)Charsets:: support ¤µ¤ì¤ë charset
+@end menu
+
+
+@node Summary mode, Automatic MIME Preview, Summary buffer, Features
+@comment  node-name,  next,  previous,  up
+@subsection{Summary mode ¤ËÄɲ䵤ì¤ëµ¡Ç½}
+@cindex{Summary mode}
+
+@table @kbd 
+@item @key{M-t}
+automatic MIME preview support ÈǤǤϠautomatic MIME preview ¤ò¹Ô¤Ê¤¦
+¤«¤É¤¦¤«¤Î toggle. ¤½¤ì°Ê³°¤Ç¤Ï RFC 1522 MIME encoded-word ¤Î decode 
+¤Ë´Ø¤¹¤ë toggle.
+@item @key{v}
+@code{mime/viewer-mode} ¤ËÆþ¤ê¡¢message ¤ò±ÜÍ÷¤¹¤ë
+@end table
+
+mime/viewer-mode ¤Ï MIME message ¤ò±ÜÍ÷¤¹¤ë¤¿¤á¤Î mode ¤Ç¡¢message ¤Î
+Ãæ¤ò°ÜÆ°¤·¤¿¤ê¡¢ÂÐÏÃŪ¤Ë message ¤ÎÃæ¤Î³Æ content ¤òºÆÀ¸¤·¤¿¤ê¤¹¤ë¤³¤È
+¤¬¤Ç¤­¤Þ¤¹¡£
+
+@menu
+* (tm-view_ja.info)Commands:: mime/viewer-mode ¤Î command
+@end menu
+
+
+@node Automatic MIME Preview,  , Summary mode, Features
+@comment  node-name,  next,  previous,  up
+@subsection{Automatic MIME Preview}
+@cindex{automatic MIME preview}
+
+(ding) GNUS ¤ª¤è¤Ó GNUS 5.* ¤Ç¤Ï ``with tm patch'' ¤òÅö¤Æ¤ë¤³¤È¤Ç 
+``automatic MIME preview'' ¤È¤¤¤¦µ¡Ç½¤òÍøÍѤ¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤³¤Î 
+patch ¤Ï ftp.jaist.ac.jp:/pub/GNU/elisp/dgnus/ ¤Ë¤¢¤ê¡¢1995ǯ9·î2Æü¸½
+ºß¤ÎºÇ¿·ÈǤϠdgnus-0.99.23-tm.diff ¤Ç¤¹¡£
+
+¤³¤Îµ¡Ç½¤ò»È¤¦¤È Summary mode ¤Çµ­»ö¤òÆɤà»þ¡¢Ä̾ïɽ¼¨¤µ¤ì¤ë Article
+buffer ¤ÎÂå¤ï¤ê¤Ë tm-view (@inforef{Top, , tm-view_ja.info}) ¤Ç½èÍý¤µ
+¤ì¤¿ preview buffer ¤òɽ¼¨¤·¤Þ¤¹¡£
+
+¤³¤Î¤¿¤á¡¢Quoted-Printable ¤ä Base64 ¤Ç encode ¤µ¤ì¤¿µ­»ö¤ò decode ¤·
+¤Æɽ¼¨¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤¢¤ë¤¤¤Ï¡¢tm-rich ¤ò»È¤¦¤³¤È¤Ç¡¢rich text ¤Ç
+½ñ¤«¤ì¤¿µ­»ö¤òÀ°·Á¤·¤Æɽ¼¨¤Ç¤­¤Þ¤¹¡£ÅöÁ³¤Î¤³¤È¤Ê¤¬¤é¡¢multipart ¤Îµ­»ö
+¤âÀµ¤·¤¯½èÍý¤Ç¤­¤Þ¤¹¡£
+
+metamail ¤ò»È¤Ã¤¿¾ì¹ç¤È°Û¤Ê¤ê¡¢²»¤ÎÆþ¤Ã¤¿µ­»ö¤òÆɤó¤À¤È¤¿¤ó¡¢¤¤¤­¤Ê¤ê¡¢
+²»¤¬ÌĤê½Ð¤·¤¿¤ê¡¢video ¤ÎÆþ¤Ã¤¿µ­»ö¤òÆɤि¤Ó¤Ë video ¤¬ºÆÀ¸¤µ¤ì¤¿¤ê¡¢
+anonymous ftp ¤ä mail-server ¤òÍøÍѤ·¤¿ external-message ¤ÎÆþ¤Ã¤¿µ­»ö
+¤òÆɤि¤Ó¤Ë anonymous ftp ¤ò¼Â¹Ô¤·¤¿¤ê¡¢mail ¤òÁ÷¤Ã¤¿¤ê¤¹¤ë¤³¤È¤¬Ëɤ²
+¤Þ¤¹¡£¤³¤¦¤·¤¿ content ¤Ï preview buffer ¤ÎÃæ¤ËÆþ¤Ã¤ÆºÆÀ¸ command ¤ò¼Â
+¹Ô¤·¤¿»þ¤Î¤ßºÆÀ¸¤µ¤ì¤Þ¤¹¡£
+
+¤·¤«¤·¤Ê¤¬¤é¡¢ÃÙ¤¤ machine ¤ò»È¤Ã¤Æ¤¤¤Æ¡¢mime/viewer-mode ¤Î overhead 
+¤¬µ¤¤Ë¤Ê¤ë¾ì¹ç¡¢automatic MIME preview ¤òÍ޻ߤ¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£
+
+
+@defvar tm-gnus/decode-all
+
+¤³¤ÎÊÑ¿ô¤¬ t ¤Î¾ì¹ç¡¢automatic MIME preview mode ¤Ë¤Ê¤ê¤Þ¤¹¡£
+@end defvar
+
+
+@deffn{Command} tm-gnus/toggle-mime arg
+
+normal mode ¤È automatic MIME preview mode ¤òÀÚÂؤ¨¤Þ¤¹¡£Â¨¤Á¡¢¤³¤Î´Ø
+¿ô¤¬¸Æ¤Ð¤ì¤ë¤¿¤Ó¤ËÊÑ¿ô @code{tm-gnus/decode-all} ¤ÎÃͤòÀÚÂؤ¨¤Þ¤¹¡£
+
+@var{arg} ¤¬Í¿¤¨¤é¤ì¤¿¾ì¹ç¡¢ÊÑ¿ô @code{tm-gnus/decode-all} ¤ÎÃͤò 
+@var{arg} ¤Ë¤·¤Þ¤¹¡£
+@end deffn
+
+
+``with tm patch'' ¤Ç¤ÏÊÑ¿ô @code{gnus-article-buffer} ¤Î°ÕÌ£¤¬Êѹ¹¤µ¤ì¡¢
+½¾Íè¡¢¤³¤ÎÊÑ¿ô¤¬»ý¤Ã¤Æ¤¤¤¿°ÕÌ£¤Ï¡¢¼¡¤Î£²¤Ä¤ÎÊÑ¿ô¤ËʬΥ¤µ¤ì¤Þ¤·¤¿¡£
+
+
+@defvar gnus-article-buffer
+
+¤³¤ÎÊÑ¿ô¤Ïɽ¼¨¤¹¤Ù¤­ buffer ¤òɽ¤·¤Þ¤¹¡£Â¨¤Á¡¢automatic MIME preview
+mode ¤Ç¤Ï tm-view ¤Ë¤è¤Ã¤Æ²Ã¹©¤µ¤ì¤¿ preview buffer ¤ò¼¨¤·¤Þ¤¹¡£normal
+mode ¤Ç¤Ï¡¢article buffer ¤ò¼¨¤·¤Þ¤¹¡£¤³¤Î¾ì¹ç¤Ï¡¢°Ê²¼¤Ë¼¨¤¹ÊÑ¿ô 
+gnus-clean-article-buffer ¤ÈƱ¤¸ÃͤȤʤê¤Þ¤¹¡£
+@end defvar
+
+
+@defvar gnus-clean-article-buffer
+
+¤³¤ÎÊÑ¿ô¤Ï¾ï¤Ë²Ã¹©¤µ¤ì¤Æ¤¤¤Ê¤¤ article buffer ¤òɽ¤·¤Þ¤¹¡£Â¨¤Á¡¢
+automatic MIME preview mode ¤Î»þ¤â²Ã¹©Á°¤Îµ­»ö¤¬Æþ¤Ã¤¿ buffer ¤ò»Ø¤·¤Þ
+¤¹¡£
+@end defvar
+
+
+@node Customize, Concept Index, Features, Top
+@comment  node-name,  next,  previous,  up
+@subsection{tm-gnus ¤Î¥«¥¹¥¿¥Þ¥¤¥º}
+@cindex{customize}
+
+@defvar tm-gnus/original-article-display-hook
+
+tm-gnus ¤Ï @code{gnus-article-display-hook} ¤òÆâÉô¤ÇÍøÍѤ·¤Æ¤ª¤ê¡¢user 
+¤Ë³«Êü¤·¤Æ¤¤¤Þ¤»¤ó¡£¤³¤Î¤¿¤á¡¢@code{gnus-article-display-hook} ¤ÎÂå¤ï
+¤ê¤Ë¡¢¤³¤ÎÊÑ¿ô¤ò»È¤¤¤Þ¤¹¡£¤Ê¤ª¡¢¤³¤ÎÊÑ¿ô¤Ï tm-gnus ¤¬ load ¤µ¤ì¤¿»þ¤Î
+¤ßÍ­¸ú¤Ë¤Ê¤ê¤Þ¤¹¤Î¤Ç¡¢°Ê²¼¤Î¤è¤¦¤Ë @code{call-after-loaded} ¤ò»È¤Ã¤ÆÀß
+Äꤷ¤Æ²¼¤µ¤¤¡£
+
+@lisp
+(call-after-loaded
+ 'tm-view
+ (function
+  (lambda ()
+    (add-hook 'tm-gnus/original-article-display-hook
+              ...)
+    )))
+@end lisp
+@end defvar
+
+¤½¤Î¾¡¢tm-view ¤ÎÀßÄê¤ò¹Ô¤Ê¤¦¤³¤È¤Ç¡¢preview buffer ¤Îɽ¼¨¤Î»ÅÊý¤òÊÑ
+¹¹¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£Î㤨¤Ð¡¢hilit19 ¤ò»È¤Ã¤Æ¡¢¿§¤òÉÕ¤±¤ë¾ì¹ç¡¢°Ê²¼¤Î
+¤è¤¦¤ÊÀßÄê¤ò¤·¤Æ²¼¤µ¤¤¡£
+
+@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
+
+@menu
+* (tm-view_ja.info):: tm-view
+@end menu
+
+
+@node Concept Index, Command Index, Features, Top
+@section{³µÇ°º÷°ú}
+@unnumbered ³µÇ°º÷°ú
+
+@printindex cp
+
+
+@node Command Index, Variable Index, Concept Index, Top
+@section{´Ø¿ô¡¦¥³¥Þ¥ó¥Éº÷°ú}
+@unnumbered ´Ø¿ô¡¦¥³¥Þ¥ó¥Éº÷°ú
+
+@printindex fn
+
+
+@node Variable Index,  , Command Index, Top
+@section{ÊÑ¿ôº÷°ú}
+@unnumbered ÊÑ¿ôº÷°ú
+
+@printindex vr
+
+@bye
index c821c56..648adcd 100644 (file)
@@ -6,7 +6,7 @@
 @titlepage
 @title tm-view Manual (English Version)
 @author by MORIOKA Tomohiko
-@code{$Id: tm-view_en.texi,v 3.0 1995/08/01 18:49:44 morioka Exp morioka $}
+@code{$Id: tm-view_en.texi,v 6.0 1995/09/02 01:49:39 morioka Exp $}
 @end titlepage
 
 
@@ -25,7 +25,7 @@ MIME message for MUA. MUA implementer can use it to add MIME function.
 @menu
 * Mechanism::      Mechanism of mime/viewer-mode.
 * How to run::     How to run mime/viewer-mode.
-* How to use::     Commands of mime/viewer-mode.
+* Commands::       Commands of mime/viewer-mode.
 * Preview Buffer:: Screen design of preview buffer.
 * Decoding::       Mechanism of decoding operations for contents.
 
@@ -73,7 +73,7 @@ Notice: In this document, I call @strong{content-type} as
 content-type/subtype of Content-Type field.
 
 
-@node How to run, How to use, Mechanism, Top
+@node How to run, Commands, Mechanism, Top
 @comment  node-name,  next,  previous,  up
 @chapter How to run mime/viewer-mode
 @cindex How to run mime/viewer-mode
@@ -97,7 +97,7 @@ instead of Content-Type field of the article buffer.
 @end deffn
 
 
-@node How to use, Preview Buffer, How to run, Top
+@node Commands, Preview Buffer, How to run, Top
 @comment  node-name,  next,  previous,  up
 @chapter Commands of mime/viewer-mode
 @cindex Commands of mime/viewer-mode
@@ -141,7 +141,7 @@ Actual playback/extract/print will be performed by a method.
 @end enumerate
 
 
-@node Preview Buffer, Decoding, How to use, Top
+@node Preview Buffer, Decoding, Commands, Top
 @comment  node-name,  next,  previous,  up
 @chapter Screen design of preview buffer
 @cindex Screen design of preview buffer
index 8aeac7e..be54ea2 100644 (file)
@@ -6,7 +6,7 @@
 @titlepage
 @title{tm-view}
 @author{¼é²¬ ÃÎɧ}
-@code{$Id: tm-view_ja.texi,v 6.3 1995/08/01 18:56:32 morioka Exp $}
+@code{$Id: tm-view_ja.texi,v 6.5 1995/09/02 01:50:37 morioka Exp $}
 @end titlepage
 
 
@@ -20,10 +20,10 @@ GNU Emacs 
 
 @menu
 * Abstract::       tm-view ³µÀâ
-* how-to-run::     mime/viewer-mode ¤Îµ¯Æ°¤Î»ÅÊý
-* how-to-use::     mime/viewer-mode ¤Î command
+* How to run::     mime/viewer-mode ¤Îµ¯Æ°¤Î»ÅÊý
+* Commands::       mime/viewer-mode ¤Î command
 * Preview Buffer:: preview buffer ¤Î²èÌ̹½À®
-* Decoding:: content ¤ËÂФ¹¤ëºÆÀ¸¡¢file Ãê½Ð¡¢°õºþÁàºî¤Î»ÅÁȤß
+* Decoding::       content ¤ËÂФ¹¤ëºÆÀ¸¡¢file Ãê½Ð¡¢°õºþÁàºî¤Î»ÅÁȤß
 
 Preview buffer
 * Preview Buffer:: preview buffer ¤Î²èÌ̹½À®
@@ -45,7 +45,7 @@ Indexes
 @end menu
 
 
-@node Abstract, how-to-run, Top, Top
+@node Abstract, How to run, Top, Top
 @comment  node-name,  next,  previous,  up
 @chapter{tm-view ¤È¤Ï}
 @cindex{tm-view ¤È¤Ï}
@@ -79,7 +79,7 @@ tm-view 
 ¤·¤Æ @strong{content-type} ¤È¸Æ¤Ó¤Þ¤¹¡£
 
 
-@node how-to-run, how-to-use, Abstract, Top
+@node How to run, Commands, Abstract, Top
 @comment  node-name,  next,  previous,  up
 @chapter{mime/viewer-mode ¤Îµ¯Æ°¤Î»ÅÊý}
 @cindex{mime/viewer-mode ¤Îµ¯Æ°¤Î»ÅÊý}
@@ -104,7 +104,7 @@ field 
 @end deffn
 
 
-@node how-to-use, Preview Buffer, how-to-run, Top
+@node Commands, Preview Buffer, How to run, Top
 @comment  node-name,  next,  previous,  up
 @chapter{mime/viewer-mode ¤Î command}
 @cindex{mime/viewer-mode ¤Î command}
@@ -147,7 +147,7 @@ tm-MUA 
 @end enumerate
 
 
-@node Preview Buffer, content-subject, how-to-use, Top
+@node Preview Buffer, content-subject, Commands, Top
 @comment  node-name,  next,  previous,  up
 @chapter{preview buffer ¤Î²èÌ̹½À®}
 @cindex{preview buffer ¤Î²èÌ̹½À®}
index dceb902..757c751 100644 (file)
@@ -15,7 +15,7 @@ EMACS = mule
 TMDIR18        = $(HOME)/lib/emacs18/lisp
 TMDIR19 = $(HOME)/lib/emacs19/lisp
 
-FILES  = tm/gnus/*.el
+FILES  = tm/gnus/*.el tm/doc/tm-gnus*.texi
 
 TARFILE = tm-gnus6.18.tar