#
-# $Id: Makefile,v 6.12 1995/06/22 05:00:00 morioka Exp morioka $
+# $Id: Makefile,v 6.14 1995/06/26 08:13:11 morioka Exp morioka $
#
# Please specify emacs executables:
# TMDIR18 = for Emacs 18.* (NEMACS, NEpoch or MULE 1)
# TMDIR19 = for Emacs 19.* (FSF original, XEmacs or MULE 2)
-TMDIR18 = /usr/local/lib/emacs/local.lisp/tm
-TMDIR19 = /usr/local/lib/mule/site-lisp
+#TMDIR18 = /usr/local/lib/emacs/local.lisp/tm
+#TMDIR19 = /usr/local/lib/mule/site-lisp
-#TMDIR18 = $(HOME)/lib/emacs18/lisp
-#TMDIR19 = $(HOME)/lib/emacs19/lisp
+TMDIR18 = $(HOME)/lib/emacs18/lisp
+TMDIR19 = $(HOME)/lib/emacs19/lisp
# Please specify GNUS type (`gnus3' or `gnus4') if you use Emacs 18.*
EMACS18_GNUS = gnus3
tm/*.el tm/*.c tm/methods \
tm/doc/Makefile tm/doc/*.pln tm/doc/*.ol tm/doc/*.tex tm/doc/*.texi \
tm/gnus/Makefile tm/gnus/*-path tm/gnus/mk-tgnus tm/gnus/*.el \
- tm/mh-e/Makefile tm/mh-e/Makefile.bc tm/mh-e/code-jp.ol tm/mh-e/*.el
-# tl/README.eng \
-# tl/Makefile tl/Makefile.bc tl/loadpath \
-# tl/*.el tl/doc/*.texi
+ tm/mh-e/Makefile tm/mh-e/Makefile.bc tm/mh-e/code-jp.ol tm/mh-e/*.el \
+ mel/*.el mel/Makefile* mel/inst* mel/make-lpath \
+ tl/README.eng \
+ tl/Makefile tl/Makefile.bc tl/loadpath \
+ tl/*.el tl/doc/*.texi
-TARFILE = tm6.58.tar
+TARFILE = tm6.63.tar
lpath-nemacs:
./make-lpath $(NEMACS_OPT)
nemacs: lpath-nemacs
+ cd ../mel; PWD=`pwd` make nemacs EMACS=$(NEMACS)
make -f Makefile.bc all EMACS=$(NEMACS) EMACS_TYPE=nemacs
cd gnus; PWD=`pwd` make gnus3 EMACS=$(NEMACS)
cd mh-e; PWD=`pwd` \
make -f Makefile.bc tm-vm EMACS=$(NEMACS) EMACS_TYPE=nemacs
install-nemacs: nemacs install-mua-18
+ cd ../mel; PWD=`pwd` make install-nemacs EMACS=$(NEMACS)
make -f Makefile.bc install TMDIR=$(TMDIR18) EMACS_TYPE=nemacs
cd gnus; PWD=`pwd` make install-18 EMACS=$(NEMACS) TMDIR18=$(TMDIR18)
./make-lpath $(MULE1_OPT)
mule1: lpath-mule1
+ cd ../mel; PWD=`pwd` make mule1 EMACS=$(MULE1)
make -f Makefile.bc all EMACS=$(MULE1) EMACS_TYPE=mule
cd gnus; PWD=`pwd` make gnus3 EMACS=$(MULE1)
cd mh-e; PWD=`pwd` \
make -f Makefile.bc tm-vm EMACS=$(MULE1) EMACS_TYPE=mule
install-mule1: mule1 install-mua-18
+ cd ../mel; PWD=`pwd` make install-mule1 EMACS=$(MULE1)
make -f Makefile.bc install TMDIR=$(TMDIR18) EMACS_TYPE=mule
cd gnus; PWD=`pwd` make install-18 EMACS=$(MULE1) TMDIR18=$(TMDIR18)
./make-lpath $(ORIG19_OPT)
orig19: lpath-orig19
+ cd ../mel; PWD=`pwd` make orig19 EMACS=$(ORIG19)
make -f Makefile.bc all EMACS=$(ORIG19) EMACS_TYPE=orig
cd gnus; PWD=`pwd` make gnus4 EMACS=$(ORIG19)
+# If you use (ding) GNUS, please comment use following:
# cd gnus; PWD=`pwd` make dgnus EMACS=$(ORIG19)
cd mh-e; PWD=`pwd` make orig19 ORIG19=$(ORIG19)
make -f Makefile.bc tm-vm EMACS=$(ORIG19) EMACS_TYPE=orig
install-orig19: orig19 install-mua-19
+ cd ../mel; PWD=`pwd` make install-orig19 EMACS=$(ORIG19)
make -f Makefile.bc install TMDIR=$(TMDIR19) EMACS_TYPE=orig
cd gnus; PWD=`pwd` make install-19 EMACS=$(ORIG19) TMDIR19=$(TMDIR19)
./make-lpath $(MULE2_OPT)
mule2: lpath-mule2
+ cd ../mel; PWD=`pwd` make mule2 EMACS=$(MULE2)
make -f Makefile.bc all EMACS=$(MULE2) EMACS_TYPE=mule
cd gnus; PWD=`pwd` make gnus4 EMACS=$(MULE2)
+# If you use (ding) GNUS, please comment use following:
# cd gnus; PWD=`pwd` make dgnus EMACS=$(MULE2)
cd mh-e; PWD=`pwd` make mule2 MULE2=$(MULE2)
make -f Makefile.bc tm-vm EMACS=$(MULE2) EMACS_TYPE=mule
install-mule2: mule2 install-mua-19
+ cd ../mel; PWD=`pwd` make install-mule2 EMACS=$(MULE2)
make -f Makefile.bc install TMDIR=$(TMDIR19) EMACS_TYPE=mule
cd gnus; PWD=`pwd` make install-19 EMACS=$(MULE2) TMDIR19=$(TMDIR19)
#
-# $Id: Makefile.bc,v 6.4 1995/05/18 16:46:28 morioka Exp morioka $
+# $Id: Makefile.bc,v 6.5 1995/06/26 08:08:51 morioka Exp $
#
TM_EL = signature.el \
[README for tm (English Version)]
by MORIOKA Tomohiko <morioka@jaist.ac.jp>
-$Id: README.eng,v 2.0 1995/05/19 12:54:14 morioka Exp $
+$Id: README.eng,v 3.0 1995/06/26 08:16:34 morioka Exp morioka $
1 What's tm?
(2) make
- Run `make nemacs', if you use NEmacs.
+ Run `make gnus3', if you use GNUS 3.*.
- Run `make mule1', if you use Mule 1.* (based on Emacs 18.*).
+ Run `make gnus4', if you use GNUS 4.*.
- Run `make orig19', if you use Original Emacs 19.* or XEmacs.
-
- Run `make mule2', if you use Mule 2.* (based on Emacs 19.*).
+ Run `make dgnus', if you use (ding) GNUS.
(3) install
--- /dev/null
+* tm/Makefile
+
+ Not only do `make mule2' or `make orig19' compile normal tm modules
+but also tm-mh-e and tm-gnus.
+
+ Similarly, not only do `make install-mule2' or `make install-orig19'
+install normal tm modules but also tm-mh-e and tm-gnus.
+
+
+* tm-comp
+
+** message/rfc822
+
+ We add a message/rfc822 style message inserting command. Its
+function name is `tm-comp/insert-message', standard key bind is `C-c
+C-x m'.
+
+ Function `tm-comp/insert-message' requires message-inserter function
+for your MUA. message-inserter functions are registerd at variable
+`tm-comp/message-inserter-alist' which is a assoc-list whose element
+is a pair that major-mode is key and message-inserter function is value.
+
+ Now, tm-mh-e is a only implementation for this function.
+
+
+* changed points of tm-view
+
+ Internal structure of tm-view 6.* is changed from tm-view 5.21, such
+as, data structures, symbol names. I write main differences between tm
+5.21.
+
+** internal structure
+
+*** content-info
+
+ Buffer local variable of article buffer `mime/content-list', which
+memorizes content structres of message in article buffer, is renamed
+to `mime::article/content-info', and data structure is changed.
+
+ Old data structure ``content-list'' used in buffer local variable
+`mime/content-list' was a following list:
+
+ content-list = (Ba Ea children)
+
+ Ba: point-min of this content in article buffer
+ Ea: point-max of this content in article buffer
+ children: content-list's list of contents included in
+ this content. nil when this content is not
+ multipart
+
+
+ New data structure ``content-info'' used in buffer local variable
+`mime::article/content-info' is following vector:
+
+ content-info
+ = [point-min point-max type parameters encoding children]
+
+ point-min: point-min of this content in article buffer
+ point-max: point-max of this content in article buffer
+ (This value is not equal Ea.
+ point-max = Ea + 1)
+ type: content-type/subtype of this content
+ parameters: assoc-list which represents parameters of
+ Content-Type field of this content
+ encoding: Content-Transfer-Encoding of this content
+ children: content-info's list of contents included
+ in this content. nil when this content is
+ not multipart
+
+
+ In tm-view 5.21, this data structure was generated and referenced by
+list processing functions (basic lisp functions) dynamically. In
+tm-view 6.*, however, it is generated by generator function
+`mime::make-content-info', and it is referenced by reference functions
+mime::content-info/FOO (FOO = { point-min | point-max | type |
+parameters | encoding | children }).
+
+
+*** preview-content-info
+
+ Buffer local variable of preview buffer
+`mime/preview-flat-content-list', which memorizes content structres of
+message in preview buffer, is renamed to `mime::preview/content-list,
+and data structure is changed.
+
+ Old data structure used in buffer local variable
+`mime/preview-flat-content-list' was a list which elements are
+following list:
+
+ (Bp Ep buf Ba Ea)
+
+ Bp: point-min of this content in preview buffer
+ Ep: point-max of this content in preview buffer
+ buf: article buffer for this content
+ Ba: point-min of this content in article buffer
+ Ea: point-max of this content in article buffer
+
+
+ New data structure ``preview-content-info'' used in buffer local
+variable `mime::preview/content-list'' is a list which elements are
+following vector:
+
+ [Bp Ep buf cinfo]
+
+ Bp: point-min of this content in preview buffer
+ Ep: point-max of this content in preview buffer
+ buf: article buffer for this content
+ cinfo: content-info which represents this content
+
+
+ In tm-view 5.21, this data structure was generated and referenced by
+list processing functions (basic lisp functions) dynamically. In
+tm-view 6.*, however, it is generated by generator function
+`mime::make-preview-content-info', and it is referenced by reference
+functions mime::preview-content-info/FOO (FOO = { Bp | Ep | buf |
+cinfo }).
+
+
+*** etc
+
+- parser is changed
+
+- naming rule is changed
+
+- buffer local variable in article buffer `mime/preview-buffer' is
+ renamed to `mime::article/preview-buffer'
+
+- function `mime/exit-view-mode' is renamed to `mime-viewer/kill-buffer'
+
+- command functions of mime/viewer-mode are renamed from mime/FOO to
+ mime-viewer/FOO. (ex. `mime/up-content' --> `mime-viewer/up-content')
+
+- command function `mime/quit-view-mode' is renamed to `mime-viewer/quit'
+
+- etc...
+
+
+** variables
+
+(1) variable `mime/content-filter-alist' is renamed to
+ `mime-viewer/content-filter-alist'
+
+(2) variable `mime/make-content-subject-function' is renamed to
+ `mime-viewer/content-subject-function' and arguments are changed
+
+(3) variable `mime/make-content-header-filter' is renamed to
+ `mime-viewer/content-header-filter-function'
+
+(4) variable `mime/default-showing-Content-Type-list' is renamed to
+ `mime-viewer/default-showing-Content-Type-list'
+
+(5) variable `mime/go-to-top-node-method-alist' is renamed to
+ `mime-viewer/quitting-method-alist' and changed initial value
+ because of changes between tm-view 5.21 and tm-view 6.*.
+
+
+** new variables
+
+*** mime-viewer/childrens-header-showing-Content-Type-list
+
+ list of content-type/subtype whose children's header should be
+displayed.
+
+ This variable is used in function
+`mime-viewer/default-content-header-filter-function' which defined as
+default value of variable
+`mime-viewer/content-header-filter-function'. Therefore if you set
+another function, it may not work this variable.
+
+
+*** mime-viewer/ignored-field-list
+
+ list of field-name which is not displayed when header is displayed.
+
+ This variable is used in function
+`mime-viewer/default-content-header-filter-function' which defined as
+default value of variable
+`mime-viewer/content-header-filter-function'. Therefore if you set
+another function, it may not work this variable.
--- /dev/null
+* tm/Makefile
+
+ Emacs 19.* (Mule 2.*) \e$B$G$O!"\e(Btm \e$B$N\e(B {byte-compile | install} \e$B$r9T$&:]\e(B
+\e$B$K!"\e(Btm-mh-e, tm-gnus \e$B$N\e(B {byte-compile | install} \e$B$b9T$$$^$9!#\e(B
+
+
+* tm-comp
+
+** message/rfc822
+
+ MUA \e$B$,J]B8$7$F$$$k\e(B message \e$B$r\e(B message/rfc822 \e$B7A<0$G<h$j9~$`$b$N$rDI\e(B
+\e$B2C$7$^$7$?!#4X?tL>$O\e(B tm-comp/insert-message \e$B$G!"I8=`$N\e(B key bind \e$B$O\e(B C-c
+C-x m \e$B$G$9!#\e(B
+
+ \e$B4X?t\e(B tm-comp/insert-message \e$B$O\e(B MUA \e$BKh$N\e(B message-inserter \e$B4X?t$rI,MW\e(B
+\e$B$H$7$^$9!#\e(Bmessage-inserter \e$B$OJQ?t\e(B tm-comp/message-inserter-alist \e$B$KEP\e(B
+\e$BO?$5$l$^$9!#$3$NJQ?t$O!"\e(Bmajor-mode \e$B$,\e(B key \e$B$G!"$=$l$KBP$9$kCM$,\e(B
+message-inserter \e$B4X?t$G$"$kO"A[%j%9%H9=B$$r$7$F$$$^$9!#\e(B
+
+ \e$B8=:_$N$H$3$m!"\e(Btm-mh-e \e$B$N$_!"$3$N5!G=$r<BAu$7$F$$$^$9!#\e(B
+
+
+* tm-view \e$B$NJQ99E@$K$D$$$F\e(B
+
+ tm-view 6.* \e$B$G$OFbIt9=B$$,JQ99$5$l!"%G!<%?9=B$$d\e(B symbol \e$BL>$J$I$,JQ99\e(B
+\e$B$5$l$F$$$^$9!#0J2<$G$O!"\e(Btm-view 5.21 \e$B$+$i$N<g$JJQ99E@$r5s$2$^$9!#\e(B
+
+** \e$BFbIt9=B$$NJQ99\e(B
+
+*** content-info
+
+ article buffer \e$B$K$*$$$F!"\e(Bmessage \e$B$K4^$^$l$k\e(B content \e$B$N9=B$$r5-21$9$k\e(B
+buffer local \e$BJQ?t\e(B mime/content-list \e$B$r\e(B mime::article/content-info \e$B$K2~\e(B
+\e$BL>$7!"%G!<%?9=B$$rJQ99$7$?!#6qBNE*$K$O!"=>Mh!"\e(B
+
+ content-list = (Ba Ea Children)
+
+ \e$BC"$7!"\e(B
+ Ba: article buffer \e$B$G$N$3$N\e(B content \e$B$N@hF,\e(B point
+ Ea: article buffer \e$B$G$N$3$N\e(B content \e$B$NKvHx\e(B point
+ Children: \e$B$3$N\e(B content \e$B$K4^$^$l$k\e(B content \e$B$N>pJs!#\e(B
+ content-list \e$B$rMWAG$H$9$k\e(B list \e$B$GI=$7!"\e(B
+ multipart \e$B$N\e(B content \e$B$G$J$$>l9g$O\e(B nil \e$B$,F~$k\e(B
+
+\e$B$H$$$&\e(B list \e$B$GI=8=$7$F$$$?$N$r!"\e(B
+
+ content-info
+ = [point-min point-max type parameters encoding children]
+
+ \e$BC"$7!"\e(B
+ point-min: article buffer \e$B$G$N$3$N\e(B content \e$B$N@hF,\e(B
+ point
+ point-max: article buffer \e$B$G$N$3$N\e(B content \e$B$NKvHx\e(B
+ point\e$B!J\e(BEa \e$B$H$O0[$J$j!"\e(Bpoint-min \e$B$H\e(B
+ point-max \e$B$G:n$i$l$k\e(B region \e$B$,$=$N\e(B content
+ \e$B$K$J$k$h$&$K$J$C$F$$$k!#\e(Bpoint-max = Ea + 1
+ \e$B$N4X78$,@.$jN)$D!K\e(B
+ type: \e$B$3$N\e(B content \e$B$N\e(B content-type/subtype
+ parameters: \e$B$3$N\e(B content \e$B$N\e(B Content-Type field \e$B$N\e(B
+ paraeter \e$B$rI=$9O"A[%j%9%H\e(B
+ encoding: \e$B$3$N\e(B content \e$B$N\e(B Content-Transfer-Encoding.
+ children: \e$B$3$N\e(B content \e$B$K4^$^$l$k\e(B content \e$B$N>pJs!#\e(B
+ content-info \e$B$rMWAG$H$9$k\e(B list \e$B$GI=$7!"\e(B
+ multipart \e$B$N\e(B content \e$B$G$J$$>l9g$O\e(B nil \e$B$,F~$k\e(B
+
+\e$B$H$$$&\e(B vector \e$B$GI=8=$9$k$h$&$K$7$?!#\e(B
+
+ \e$B$^$?!"=>Mh!"\e(Blist \e$B=hM}4X?t$r;H$C$FD>@\\e(B list \e$B$r@8@.!&;2>H$7$F$$$?$N$r!"\e(B
+\e$B@8@.4X?t\e(B mime::make-content-info, \e$B;2>H4X?t\e(B mime::content-info/FOO (FOO
+= {point-min|point-max|type|parameters|encoding|children}) \e$B$r;H$&$h$&\e(B
+\e$B$K$7$?!#\e(B
+
+ \e$B$^$?!"=>Mh!"\e(BContent-Type, Content-Transfer-Encoding field \e$B$N>pJs$r$$\e(B
+\e$B$A$$$A\e(B buffer \e$B$r8!:w$7$F5a$a$F$$$?$N$r!"\e(Bcontent-info \e$B$r;2>H$9$k$h$&$K\e(B
+\e$B$7$?!#\e(B
+
+*** preview-content-info
+
+ preview buffer \e$B$K$*$$$F!"\e(Bmessage \e$B$K4^$^$l$k\e(B content \e$B$N9=B$$r5-21$9$k\e(B
+buffer local \e$BJQ?t\e(B mime/preview-flat-content-list \e$B$r\e(B
+mime::preview/content-list \e$B$K2~L>$7!"%G!<%?9=B$$rJQ99$7$?!#6qBNE*$K$O!"\e(B
+\e$B=>Mh!"\e(B
+
+ (Bp Ep buf Ba Ea)
+
+ \e$BC"$7!"\e(B
+ Bp: preview buffer \e$B$G$N$3$N\e(B content \e$B$N@hF,\e(B point
+ Ep: preview buffer \e$B$G$N$3$N\e(B content \e$B$NKvHx\e(B point
+ buf: \e$B$3$N\e(B content \e$B$KBP1~$9$k\e(B article buffer
+ Ba: article buffer \e$B$G$N$3$N\e(B content \e$B$N@hF,\e(B point
+ Ea: article buffer \e$B$G$N$3$N\e(B content \e$B$NKvHx\e(B point
+
+\e$B$H$$$&\e(B list \e$B$GI=8=$7$F$$$?$N$r!"\e(B
+
+ [Bp Ep buf cinfo]
+
+ \e$BC"$7!"\e(B
+ Bp: preview buffer \e$B$G$N$3$N\e(B content \e$B$N@hF,\e(B point
+ Ep: preview buffer \e$B$G$N$3$N\e(B content \e$B$NKvHx\e(B point
+ buf: \e$B$3$N\e(B content \e$B$KBP1~$9$k\e(B article buffer
+ cinfo: \e$B$3$N\e(B content \e$B$rI=$9\e(B content-info
+
+\e$B$H$$$&\e(B vector \e$B$GI=8=$9$k$h$&$K$7$?!#\e(B
+
+ \e$B$^$?!"=>Mh!"\e(Blist \e$B=hM}4X?t$r;H$C$FD>@\\e(B list \e$B$r@8@.!&;2>H$7$F$$$?$N$r!"\e(B
+\e$B@8@.4X?t\e(B mime::make-preview-content-info, \e$B;2>H4X?t\e(B
+mime::preview-content-info/FOO (FOO = {Bp|Ep|buf|cinfo}) \e$B$r;H$&$h$&$K\e(B
+\e$B$7$?!#\e(B
+
+
+*** \e$B$=$NB>\e(B
+
+\e$B!&\e(Bparser \e$B$rJQ99$7$?\e(B
+
+\e$B!&L?L>5,B'$rJQ99$7$?\e(B
+
+\e$B!&\e(Barticle buffer \e$B$N\e(B buffer local \e$BJQ?t\e(B mime/preview-buffer \e$B$r\e(B
+ mime::article/preview-buffer \e$B$K2~L>$7$?!#\e(B
+
+\e$B!&4X?t\e(B mime/exit-view-mode \e$B$r\e(B mime-viewer/kill-buffer \e$B$K2~L>$7$?!#\e(B
+
+\e$B!&\e(Bmime/viewer-mode \e$B$N3F4X?t$r\e(B mime/FOO \e$B$+$i\e(B mime-viewer/FOO \e$B$K2~L>$7$?!#\e(B
+ \e$B!JNc!'\e(Bmime/up-content \e$B"*\e(B mime-viewer/up-content\e$B!K\e(B
+
+\e$B!&4X?t\e(B mime/quit-view-mode \e$B$r\e(B mime-viewer/quit \e$B$K2~L>$7$?!#\e(B
+
+\e$B!&$=$NB>\e(B
+
+
+** \e$B<g$JJQ?tL>$NJQ99\e(B
+
+(1) \e$BJQ?t\e(B mime/content-filter-alist \e$B$r\e(B mime-viewer/content-filter-alist
+ \e$B$K2~L>$7$?!#\e(B
+
+(2) \e$BJQ?t\e(B mime/make-content-subject-function \e$B$r\e(B
+ mime-viewer/content-subject-function \e$B$K2~L>$7!"0z?t$rJQ99$7$?!#\e(B
+
+(3) \e$BJQ?t\e(B mime/make-content-header-filter \e$B$r\e(B
+ mime-viewer/content-header-filter-function \e$B$K2~L>$7!"0z?t$rJQ99$7\e(B
+ \e$B$?!#\e(B
+
+(4) \e$BJQ?t\e(B mime/default-showing-Content-Type-list \e$B$r\e(B
+ mime-viewer/default-showing-Content-Type-list \e$B$K2~L>$7$?!#\e(B
+
+(5) \e$BJQ?t\e(B mime/go-to-top-node-method-alist \e$B$r\e(B
+ mime-viewer/quitting-method-alist \e$B$K2~L>$7$?!#$^$?!"\e(Bsymbol \e$BL>$d;E\e(B
+ \e$BMM$NJQ99$K$H$b$J$$!"=i4|@_Dj$rJQ99$7$?!#\e(B
+
+
+** \e$B?7$7$$JQ?t\e(B
+
+*** \e$BJQ?t\e(B mime-viewer/childrens-header-showing-Content-Type-list
+
+ \e$B;R6!$N\e(B header \e$B$rI=<($9$Y$-\e(B content-type/subtype \e$B$N\e(B list.
+
+ \e$B$3$NJQ?t$O!"JQ?t\e(B mime-viewer/content-header-filter-function \e$B$N4{DjCM\e(B
+\e$B$H$7$FDj5A$5$l$F$$$k4X?t\e(B
+mime-viewer/default-content-header-filter-function \e$B$,;2>H$7$F$$$k$N$G!"\e(B
+\e$B$b$7!"JQ?t\e(B mime-viewer/content-header-filter-function \e$B$NCM$rJL$N4X?t$K\e(B
+\e$B$9$l$PL58z$K$J$k!#\e(B
+
+
+*** \e$BJQ?t\e(B mime-viewer/ignored-field-list
+
+ header \e$B$rI=<($9$k>l9g$G$bI=<($7$J$$\e(B field \e$B$N\e(B field-name \e$B$N\e(B list.
+
+ \e$B$3$NJQ?t$O!"JQ?t\e(B mime-viewer/content-header-filter-function \e$B$N4{DjCM\e(B
+\e$B$H$7$FDj5A$5$l$F$$$k4X?t\e(B
+mime-viewer/default-content-header-filter-function \e$B$,;2>H$7$F$$$k$N$G!"\e(B
+\e$B$b$7!"JQ?t\e(B mime-viewer/content-header-filter-function \e$B$NCM$rJL$N4X?t$K\e(B
+\e$B$9$l$PL58z$K$J$k!#\e(B
{\large translated by \Large Ueno Hiroshi} \\
{\normalsize $<$jl07715@yamato.ibm.co.jp$>$}
}
-\date{\verb$Id: tm-eng.tex,v 5.6 1995/01/09 20:35:16 morioka Exp $}
+\date{\verb$Id: tm-eng.tex,v 5.7 1995/06/26 06:03:21 morioka Exp $}
\begin{document}
\bigskip
\newcounter{asteriskcount}
-\noindent{\bf \e$B!N\e(BNote\e$B!O\e(B}
+\noindent{\bf [Note]}
\vspace{-1ex}
{\list{(*\arabic{asteriskcount})}{\usecounter{asteriskcount}\leftmargin=8ex}
\item Not return to the Summary mode unless tm-view has been setup using
(setq load-path
(append
- '("." ".." "../../tl"
- ;;
- ;; (ding) GNUS path
- ;;
- ;; please edit this
- ;;
- "/usr/local/lib/emacs/site-lisp/dgnus/lisp"
- ;;
- )
+ (mapcar (function
+ (lambda (path)
+ (expand-file-name path (getenv "PWD"))
+ ))
+ '("." ".." "../../tl/" "../../mel/"))
+ ;;
+ ;; (ding) GNUS path
+ ;;
+ ;; please edit this
+ ;;
+ '("/usr/local/lib/emacs/site-lisp/dgnus/lisp")
+ ;;
load-path))
-
-
;;;
(setq load-path
(append
- '("." ".." "../../tl"
- ;;
- ;; (ding) GNUS path
- ;;
- ;; please edit this
- ;;
- ;;"/usr/local/lib/emacs/local.lisp/gnus-3.14.4"
- ;;
- )
+ (mapcar (function
+ (lambda (path)
+ (expand-file-name path (getenv "PWD"))
+ ))
+ '("." ".." "../../tl/" "../../mel/"))
+ ;;
+ ;; additional path
+ ;;
+ ;; please edit this
+ ;;
+ ;;'("/usr/local/lib/emacs/local.lisp/gnus-3.14.4")
+ ;;
load-path))
;;;
(setq load-path
(append
- '("." ".." "../../tl"
- ;;
- ;; (ding) GNUS path
- ;;
- ;; please edit this
- ;;
- ;;"/usr/local/lib/emacs/local.lisp/gnus-4.1/lisp
- ;;
- )
+ (mapcar (function
+ (lambda (path)
+ (expand-file-name path (getenv "PWD"))
+ ))
+ '("." ".." "../../tl/" "../../mel/"))
+ ;;
+ ;; additional path
+ ;;
+ ;; please edit this
+ ;;
+ ;;'("/usr/local/lib/emacs/local.lisp/gnus-4.1/lisp")
+ ;;
load-path))
echo " (nconc '("'"."' >> loadpath
echo ' "'`pwd`'"' >> loadpath
echo ' "'`(cd ../tl; pwd)`'"' >> loadpath
+echo ' "'`(cd ../mel; pwd)`'"' >> loadpath
foreach i ($argv)
echo ' "'$i'"' >> loadpath
end
;;; @ version
;;;
(defconst tm-mh-e/RCS-ID
- "$Id: tm-mh-e.el,v 6.20 1995/06/22 04:58:44 morioka Exp $")
+ "$Id: tm-mh-e.el,v 6.21 1995/06/22 12:02:13 morioka Exp $")
(defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
(define-key mh-letter-mode-map "\C-c\C-y" (function tm-mh-e/cite))
)))
+(defun tm-mh-e/summary-before-quit ()
+ (let ((buf (get-buffer mh-show-buffer)))
+ (if buf
+ (save-window-excursion
+ (switch-to-buffer buf)
+ (if mime::article/preview-buffer
+ (if (setq buf (get-buffer mime::article/preview-buffer))
+ (kill-buffer buf)
+ ))))))
+
+(add-hook 'mh-before-quit-hook (function tm-mh-e/summary-before-quit))
+
(set-alist 'mime-viewer/quitting-method-alist
'mh-show-mode
(function tm-mh-e/quitting-method))
;;;
-;;; $Id: tm-rich.el,v 6.0 1995/06/11 10:33:34 morioka Exp $
+;;; $Id: tm-rich.el,v 6.2 1995/06/24 05:04:05 morioka Exp $
;;;
;;; by MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; modified by YAMATE Keiichirou <ics9118@sem1.info.osaka-cu.ac.jp>
;;;
-(provide 'tm-rich)
-
(require 'tm-view)
-
(defvar mime/text/richtext-face-list
'("bold" "italic" "fixed" "underline"))
'("bold" "italic" "fixed" "underline"))
-(cond ((and (>= (string-to-int emacs-version) 19) window-system)
- (require 'hilit19)
+(cond ((and (>= emacs-major-version 19) window-system)
(defun mime/set-face-region (b e face)
(let ((sym (intern face)))
- (if (eq sym 'italic)
- (setq sym 'modeline)
- )
(if (member sym (face-list))
- (progn
- (hilit-unhighlight-region b e)
- (hilit-region-set-face b e sym)
+ (let ((overlay (make-overlay b e)))
+ (overlay-put overlay 'face 'bold)
))))
)
((and (boundp 'NEMACS) NEMACS)
beg end))
)
(t
- (setq mime/text/richtext-face-list
- nil)
+ (setq mime/text/richtext-face-list nil)
(defun mime/set-face-region (beg end sym)
)
))
(set-alist 'mime-viewer/content-filter-alist
"text/enriched" (function mime-viewer/filter-text/enriched))
+
+
+(run-hooks 'tm-rich-load-hook)
+
+(provide 'tm-rich)
;;;
-;;; $Id: tm-rmail.el,v 5.1 1994/10/17 06:31:29 morioka Exp $
+;;; $Id: tm-rmail.el,v 6.5 1995/06/26 06:58:11 morioka Exp $
;;;
-(provide 'tm-rmail)
+(require 'tl-header)
+(require 'tl-list)
+(require 'tl-misc)
-(if (< (string-to-int emacs-version) 19)
- (require 'tl-18)
- )
(autoload 'mime/viewer-mode "tm-view" "View MIME message." t)
(autoload 'mime/decode-message-header "tiny-mime" "Decode MIME header." t)
+(defun tm-rmail/show-all-header-p ()
+ (save-restriction
+ (narrow-to-region (point-min)
+ (and (re-search-forward "^$" nil t)
+ (match-beginning 0)))
+ (goto-char (point-min))
+ (re-search-forward rmail-ignored-headers nil t)
+ ))
+
+(defun tm-rmail/view-message ()
+ (interactive)
+ (let ((ret (rmail-widen-to-current-msgbeg
+ (function
+ (lambda ()
+ (cons (mime/Content-Type (mail-fetch-field "Content-Type"))
+ (mail-fetch-field "Content-Transfer-Encoding"))
+ )))))
+ (mime/viewer-mode nil (car ret)(cdr ret))
+ ))
+
+(defun tm-rmail/quitting-method-to-summary ()
+ (mime-viewer/kill-buffer)
+ (rmail-summary)
+ (delete-other-windows)
+ )
+
+(defun tm-rmail/quitting-method-to-article ()
+ (mime-viewer/kill-buffer)
+ )
+
+(defalias 'tm-rmail/quitting-method 'tm-rmail/quitting-method-to-article)
+
(add-hook 'rmail-show-message-hook
(function
(lambda ()
(add-hook 'rmail-mode-hook
(function
(lambda ()
- (local-set-key "v" 'mime/viewer-mode)
+ (local-set-key "v" (function tm-rmail/view-message))
)))
(add-hook 'rmail-summary-mode-hook
(lambda ()
(interactive)
(pop-to-buffer rmail-buffer)
- (mime/viewer-mode)
+ (tm-rmail/view-message)
)))
)))
+
+(call-after-loaded 'tm-view
+ (function
+ (lambda ()
+ (set-alist 'mime-viewer/quitting-method
+ 'rmail-mode
+ (function tm-rmail/quitting-method))
+ )))
+
+(provide 'tm-rmail)
+
+(run-hooks 'tm-rmail-load-hook)
;;; by Morioka Tomohiko, 1994/07/13
;;;
-(provide 'tm-view)
-
-
;;; @ require modules
;;;
(require 'tl-str)
(require 'tl-list)
+(require 'tl-atype)
(require 'tl-misc)
(require 'tl-header)
+(require 'mel)
(require 'tiny-mime)
(require 'tm-misc)
;;;
(defconst mime-viewer/RCS-ID
- "$Id: tm-view.el,v 6.58 1995/06/22 04:11:58 morioka Exp $")
+ "$Id: tm-view.el,v 6.63 1995/06/25 21:33:51 morioka Exp $")
(defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
(defconst mime/viewer-version mime-viewer/version)
(gnus-summary-select-article nil t)
))
-(defun mime::viewer/quitting-method-for-rmail ()
- (mime-viewer/kill-buffer)
- (rmail-summary)
- (delete-other-windows)
- )
-
(defvar mime-viewer/quitting-method-alist
'((gnus-article-mode . mime::viewer/quitting-method-for-gnus4)
- (rmail-mode . mime::viewer/quitting-method-for-rmail)
(mime/show-message-mode
. (lambda ()
(set-window-configuration
(setq mime::preview/original-major-mode mode)
(setq major-mode 'mime/viewer-mode)
(setq mode-name "MIME-View")
+ (make-variable-buffer-local 'outline-regexp)
+ ;;(setq outline-regexp "\\[.*\\]\\|\C-L")
+ ;;(outline-minor-mode t)
(setq dest
(mapcar
(function
(end (mime::content-info/point-max cell))
(ctype (mime::content-info/type cell))
(params (mime::content-info/parameters cell))
+ (encoding (mime::content-info/encoding cell))
he cnum e nb ne subj str)
(setq cnum (mime::get-point-content-number beg cinfo))
(switch-to-buffer the-buf)
;;; @ decoder
;;;
-(defun mime/Quoted-Printable-decode-region (beg end)
- (interactive "*r")
- (save-excursion
- (save-restriction
- (narrow-to-region beg end)
- (goto-char (point-min))
- (while (re-search-forward "=\n" nil t)
- (replace-match "")
- )
- (goto-char (point-min))
- (let (b e str)
- (while (re-search-forward mime/Quoted-Printable-octet-regexp nil t)
- (setq b (match-beginning 0))
- (setq e (match-end 0))
- (setq str (buffer-substring b e))
- (delete-region b e)
- (insert (mime/Quoted-Printable-decode-string str))
- ))
- )))
-
-(defun mime/Base64-decode-region (beg end)
- (interactive "*r")
- (save-excursion
- (save-restriction
- (narrow-to-region beg end)
- (goto-char (point-min))
- (while (search-forward "\n" nil t)
- (replace-match "")
- )
- (let ((str (buffer-substring (point-min)(point-max))))
- (delete-region (point-min)(point-max))
- (insert (mime/base64-decode-string str))
- ))))
-
(defun mime/make-method-args (cal format)
(mapcar (function
(lambda (arg)
)
(goto-char (point-min))
(cond ((string= encoding "quoted-printable")
- (mime/Quoted-Printable-decode-region beg end)
+ (quoted-printable-decode-region beg end)
)
((string= encoding "base64")
- (mime/Base64-decode-region beg end)
+ (base64-decode-region beg end)
))
(let* ((mode mime::preview/original-major-mode)
(m (assq mode mime-viewer/code-converter-alist))
(mime-viewer/default-code-convert-region beg (point-max)
charset encoding)
)))
+ ;;(hide-sublevels 1)
(run-hooks 'mime-viewer/plain-text-preview-hook)
)
(forward-line h)
(if (> (point) np)
(goto-char np)
- )))
+ )
+ ;;(show-subtree)
+ ))
(defun mime-viewer/scroll-down-content (&optional h)
(interactive)
(kill-buffer (current-buffer))
)
+
+;;; @ end
+;;;
+
+(provide 'tm-view)
+
(run-hooks 'tm-view-load-hook)
projects / elisp / tm.git / commitdiff