From: morioka Date: Mon, 9 Mar 1998 11:11:35 +0000 (+0000) Subject: tm 7.17. X-Git-Tag: tm7_17~1 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=79e2501a9ffdbaa2d42cb50fc7e350fc884b0075;p=elisp%2Ftm.git tm 7.17. --- 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 -$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 ;;; -;;; $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) ))