`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
\e$B2~L>$7$?!#\e(B
----------------------------
+tm/tm-partial.el
+----------------------------
+revision 7.0
+date: 1995/10/18 08:19:27; author: morioka; state: Exp; lines: +10 -2
+September Gnus \e$B$*$h$S\e(B Gnus 5.0.* with September patch \e$B$K$H$j$"$($:BP1~\e(B
+\e$B$7$?!#\e(B
+----------------------------
+
tm/tm-vm.el
----------------------------
revision 7.1
--- /dev/null
+* 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 `,'.
+----------------------------
--- /dev/null
+* tm
+
+ - manual \e$B$r>/$7=q$-D>$7$?!#\e(B
+
+tm/tm-view.el
+----------------------------
+revision 7.17
+date: 1995/10/19 07:55:54; author: morioka; state: Exp; lines: +43 -36
+cnum \e$B$r;H$C$F$$$?$H$3$m$r\e(B rcnum \e$B$r;H$&$h$&$K=$@5$7$?!#\e(B
+----------------------------
+
+tm/tm-w3.el
+----------------------------
+revision 2.0
+date: 1995/10/19 07:57:57; author: morioka; state: Exp; lines: +7 -1
+base64 \e$B$d\e(B quoted-printable \e$B$N>l9g!"\e(Bdecode \e$B$9$k$h$&$K$7$?!#\e(B
+----------------------------
+
+
+* tm/mh-e
+
+ Version 7.06 \e$B$rE:IU$7$?!#\e(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
+`.' \e$B$H\e(B `,' \e$B$NIT6q9g$r=$@5$7$?!#\e(B
+----------------------------
FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
-TARFILE = tm7.16.tar
+TARFILE = tm7.17.tar
nemacs:
install: $(UTILS) methods
$(CP) $(UTILS) $(bindir)
- $(CP) methods/* $(bindir)
+ $(CP) methods/tm* $(bindir)
clean:
[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?
- 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)
#
# $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 *~
@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.
@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
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
@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
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
@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
@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 ¤Î²èÌ̹½À®
@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
@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
@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::
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
@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
@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
@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
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
@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).
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
@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 Êó¹ð
--- /dev/null
+#!/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
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:
;;;
(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))
(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)
(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.
(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)
))
(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")
;;;
(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)
;;; @@ 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"))
;;;
(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
))
(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
("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))
(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)
(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))
))))
(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)
(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)
))
)))
)))
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)
(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)
;;;
;;; 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)
(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)
))
projects / elisp / tm.git / commitdiff