From: morioka Date: Mon, 9 Mar 1998 07:14:57 +0000 (+0000) Subject: tm 6.76.2. X-Git-Tag: tm6_76_2~1 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8244ebc1b512ebb616865fbcaea450b0cce54145;p=elisp%2Ftm.git tm 6.76.2. --- diff --git a/Changes-6.76.2.en b/Changes-6.76.2.en new file mode 100644 index 0000000..5491c11 --- /dev/null +++ b/Changes-6.76.2.en @@ -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 index 0000000..0e709b5 --- /dev/null +++ b/Changes-6.76.2.ja @@ -0,0 +1,5 @@ +* 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/Makefile b/Makefile index 68d9986..5e52fc8 100644 --- 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 diff --git a/doc/Makefile b/doc/Makefile index fee363e..d85fde2 100644 --- a/doc/Makefile +++ b/doc/Makefile @@ -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 index 0000000..d633cf1 --- /dev/null +++ b/doc/tm-gnus_en.texi @@ -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 index 0000000..f55c06f --- /dev/null +++ b/doc/tm-gnus_ja.texi @@ -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 diff --git a/doc/tm-view_en.texi b/doc/tm-view_en.texi index c821c56..648adcd 100644 --- a/doc/tm-view_en.texi +++ b/doc/tm-view_en.texi @@ -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 diff --git a/doc/tm-view_ja.texi b/doc/tm-view_ja.texi index 8aeac7e..be54ea2 100644 --- a/doc/tm-view_ja.texi +++ b/doc/tm-view_ja.texi @@ -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 ¤Î²èÌ̹½À®} diff --git a/gnus/Makefile b/gnus/Makefile index dceb902..757c751 100644 --- a/gnus/Makefile +++ b/gnus/Makefile @@ -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