tm 6.79.

diff --git a/Changes-6.79.en b/Changes-6.79.en
new file mode 100644 (file)
index 0000000..0ad9d3c
--- /dev/null
+++ b/Changes-6.79.en
@@ -0,0 +1,57 @@
+* tl
+
+  Attached version 6.6.2.
+
+       - installer was changed.
+       - README.eng was rewrote.
+
+tl/emu-xemacs.el
+----------------------------
+revision 2.0
+date: 1995/09/08 17:47:54;  author: morioka;  state: Exp;
+Created to emulate Emacs 19 text-property features.
+(I referred gnus-ems.el of Gnus 5.0)
+----------------------------
+
+tl/emu.el
+----------------------------
+revision 2.0
+date: 1995/09/08 17:47:33;  author: morioka;  state: Exp;  lines: +5 -1
+(require 'emu-xemacs) when it is XEmacs.
+----------------------------
+
+
+* mel
+
+  Version 1.9 \e$B$rE:IU$7$?!#\e(B
+
+mel/mel-q.el
+----------------------------
+revision 1.9
+date: 1995/09/09 05:14:23;  author: morioka;  state: Exp;  lines: +17 -25
+According to Yves Forkl <ysforkl@linguistik.uni-erlangen.de>'s bug
+report, I fixed a bug of function
+`quoted-printable-internal-encode-region'.
+----------------------------
+
+
+* tm
+
+       - Modified Makefile because of tl installer was changed.
+       - In README.eng, key bind description of mime/viewer-mode was
+         changed.
+
+tm/tinyrich.el
+----------------------------
+revision 3.0
+date: 1995/09/08 17:29:38;  author: morioka;  state: Exp;  lines: +2 -2
+Fixed a bug of function `mime/set-face-region' for Emacs 19.
+----------------------------
+
+tm/tm-view.el
+----------------------------
+revision 6.79
+date: 1995/09/08 14:50:03;  author: morioka;  state: Exp;  lines: +15 -1
+In Emacs 19 and XEmacs, mouse-button-2 is used to play the content
+under the mouse cursor.
+----------------------------

diff --git a/Changes-6.79.ja b/Changes-6.79.ja
new file mode 100644 (file)
index 0000000..2b24937
--- /dev/null
+++ b/Changes-6.79.ja
@@ -0,0 +1,55 @@
+* tl
+
+  Version 6.6.2 \e$B$rE:IU$7$?!#\e(B
+
+       - installer \e$B$rJQ99$7$?!#\e(B
+       - README.eng \e$B$r=q$-D>$7$?!#\e(B
+
+tl/emu-xemacs.el
+----------------------------
+revision 2.0
+date: 1995/09/08 17:47:54;  author: morioka;  state: Exp;
+Emacs 19 \e$B$N\e(B text-property \e$B4XO"$N\e(B emulation module \e$B$H$7$F:n@.$7$?!#\e(B
+\e$B!J\e(BGnus 5 \e$B$N\e(B gnus-ems.el \e$B$r;29M$K$7$?!K\e(B
+----------------------------
+
+tl/emu.el
+----------------------------
+revision 2.0
+date: 1995/09/08 17:47:33;  author: morioka;  state: Exp;  lines: +5 -1
+XEmacs \e$B$N;~!"\e(Bemu-xemacs \e$B$r\e(B require \e$B$9$k$h$&$K$7$?!#\e(B
+----------------------------
+
+
+* mel
+
+  Version 1.9 \e$B$rE:IU$7$?!#\e(B
+
+mel/mel-q.el
+----------------------------
+revision 1.9
+date: 1995/09/09 05:14:23;  author: morioka;  state: Exp;  lines: +17 -25
+Yves Forkl <ysforkl@linguistik.uni-erlangen.de> \e$B$5$s$N;XE&$K=>$$!"4X?t\e(B
+quoted-printable-internal-encode-region \e$B$NIT6q9g$r=$@5$7$?!#\e(B
+----------------------------
+
+
+* tm
+
+       - tl \e$B$N\e(B installer \e$B$NJQ99$KH<$$!"\e(BMakefile \e$B$r=$@5$7$?!#\e(B
+       - README.eng \e$B$N\e(B mime/viewer-mode \e$B$N\e(B key bind \e$B$N@bL@$r=$@5$7$?!#\e(B
+
+tm/tinyrich.el
+----------------------------
+revision 3.0
+date: 1995/09/08 17:29:38;  author: morioka;  state: Exp;  lines: +2 -2
+Emacs 19 \e$BMQ$N4X?t\e(B mime/set-face-region \e$B$NIT6q9g$r=$@5$7$?!#\e(B
+----------------------------
+
+tm/tm-view.el
+----------------------------
+revision 6.79
+date: 1995/09/08 14:50:03;  author: morioka;  state: Exp;  lines: +15 -1
+Emacs 19 \e$B$H\e(B XEmacs \e$B$G$O\e(B mouse button 2 \e$B$G\e(B content \e$B$r\e(B play \e$B$G$-$k$h$&$K\e(B
+\e$B$7$?!#\e(B
+----------------------------

diff --git a/Makefile b/Makefile
index c14ea12..dfa721b 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -1,5 +1,5 @@
 #
-# $Id: Makefile,v 6.27 1995/09/05 17:35:24 morioka Exp morioka $
+# $Id: Makefile,v 6.28 1995/09/08 18:04:24 morioka Exp morioka $
 #
 
 include config.tm
@@ -28,17 +28,15 @@ TM_MUA_FILES =      tm/tm-rmail.el tm/tm-vm.el \
 
 MEL_FILES = mel/*.el mel/Makefile mel/mk-mel
 
-TL_FILES = tl/README.eng \
-               tl/Makefile tl/Makefile.bc tl/loadpath \
-               tl/*.el tl/doc/*.texi
+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 = tm6.78.2.tar
+TARFILE = tm6.79.tar
 
 
 nemacs:
-       cd ../tl; PWD=`pwd` make nemacs NEMACS=$(NEMACS)
+       cd ../tl; PWD=`pwd` make elc EMACS=$(NEMACS)
        cd ../mel; PWD=`pwd` make elc EMACS=$(NEMACS)
        $(NEMACS) -batch -l mk-tm -f compile-tm
        cd gnus; PWD=`pwd` make gnus3 EMACS=$(NEMACS)
@@ -46,7 +44,7 @@ nemacs:
 
 install-nemacs:        nemacs
        cd ../tl; PWD=`pwd` \
-               make install-nemacs NEMACS=$(NEMACS) TLDIR18=$(TLDIR18)
+               make install-18 EMACS=$(NEMACS) TLDIR18=$(TLDIR18)
        cd ../mel; PWD=`pwd` \
                make install-18 EMACS=$(NEMACS) MELDIR18=$(MELDIR18)
        $(NEMACS) -batch -l mk-tm -f install-tm $(TMDIR18)
@@ -57,7 +55,7 @@ install-nemacs:       nemacs
 
 
 mule1:
-       cd ../tl; PWD=`pwd` make mule1 MULE1=$(MULE1)
+       cd ../tl; PWD=`pwd` make elc EMACS=$(MULE1)
        cd ../mel; PWD=`pwd` make elc EMACS=$(MULE1)
        $(MULE1) -batch -l mk-tm -f compile-tm
        cd gnus; PWD=`pwd` make gnus3 EMACS=$(MULE1)
@@ -65,7 +63,7 @@ mule1:
 
 install-mule1: mule1
        cd ../tl; PWD=`pwd` \
-               make install-mule1 MULE1=$(MULE1) TLDIR18=$(TLDIR18)
+               make install-18 EMACS=$(MULE1) TLDIR18=$(TLDIR18)
        cd ../mel; PWD=`pwd` \
                make install-18 EMACS=$(MULE1) MELDIR18=$(MELDIR18)
        $(MULE1) -batch -l mk-tm -f install-tm $(TMDIR18)
@@ -76,7 +74,7 @@ install-mule1:        mule1
 
 
 orig19:
-       cd ../tl; PWD=`pwd` make orig19 ORIG19=$(ORIG19)
+       cd ../tl; PWD=`pwd` make elc EMACS=$(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)
@@ -88,7 +86,7 @@ orig19:
 
 install-orig19:        orig19
        cd ../tl; PWD=`pwd` \
-               make install-orig19 ORIG19=$(ORIG19) TLDIR19=$(TLDIR19)
+               make install-19 EMACS=$(ORIG19) TLDIR19=$(TLDIR19)
        cd ../mel; PWD=`pwd` \
                make install-19 EMACS=$(ORIG19) MELDIR19=$(MELDIR19)
        $(ORIG19) -batch -l mk-tm -f install-tm $(TMDIR19)
@@ -99,7 +97,7 @@ install-orig19:       orig19
 
 
 mule2:
-       cd ../tl; PWD=`pwd` make mule2 MULE2=$(MULE2)
+       cd ../tl; PWD=`pwd` make elc EMACS=$(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)
@@ -111,7 +109,7 @@ mule2:
 
 install-mule2: mule2
        cd ../tl; PWD=`pwd` \
-               make install-mule2 MULE2=$(MULE2) TLDIR19=$(TLDIR19)
+               make install-19 EMACS=$(MULE2) TLDIR19=$(TLDIR19)
        cd ../mel; PWD=`pwd` \
                make install-19 EMACS=$(MULE2) MELDIR19=$(MELDIR19)
        $(MULE2) -batch -l mk-tm -f install-tm $(TMDIR19)

diff --git a/README.eng b/README.eng
index 6142656..c28ce06 100644 (file)
--- a/README.eng
+++ b/README.eng
@@ -1,6 +1,6 @@
 [README for tm (English Version)]
 by MORIOKA Tomohiko <morioka@jaist.ac.jp>
-$Id: README.eng,v 6.9 1995/09/07 17:24:24 morioka Exp $
+$Id: README.eng,v 6.10 1995/09/09 05:56:08 morioka Exp $
 
 1 What's tm?
 
@@ -207,16 +207,20 @@ example:
 In tm-MUAs, you can use mime/viewer-mode if you press `v' key (in VM,
 `Z' key) in Summary mode. mime/viewer-mode has following functions:
 
-       q       quit from mime/viewer-mode
-       u       move to the upper content
-       p       move to the previous content
-       n       move to the next content
-       SPC     scroll up
-       M-SPC   scroll down
-       v       play the content
-       e       extract as file the content
-       C-c C-p print the content
-
+       q         quit from mime/viewer-mode
+       u         move to upper content
+       p         move to previous content
+       n         move to next content
+       SPC       scroll up or move to next content
+       M-SPC     scroll down or move to previous content
+       DEL       scroll down or move to previous content
+       RET       move to next line
+       M-RET     move to previous line
+       v         play current content
+       e         extract as file current content
+       C-c C-p   print current content
+       button-2  move to point under the mouse cursor and play
+                 current content
 
 8 Bug report
 

diff --git a/tinyrich.el b/tinyrich.el
index edf4056..fa2ef0a 100644 (file)
--- a/tinyrich.el
+++ b/tinyrich.el
@@ -1,5 +1,5 @@
 ;;;
-;;; $Id: tinyrich.el,v 2.0 1995/07/17 22:31:32 morioka Exp $
+;;; $Id: tinyrich.el,v 3.0 1995/09/08 17:29:38 morioka Exp $
 ;;;
 ;;;          by MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 ;;; modified by YAMATE Keiichirou <ics9118@sem1.info.osaka-cu.ac.jp>
@@ -13,7 +13,7 @@
         (let ((sym (intern face)))
           (if (member sym (face-list))
               (let ((overlay (make-overlay b e)))
-                (overlay-put overlay 'face 'bold)
+                (overlay-put overlay 'face sym)
                 ))))
        )
       ((and (boundp 'NEMACS) NEMACS)

diff --git a/tm-view.el b/tm-view.el
index 2745d83..8aa7f0b 100644 (file)
--- a/tm-view.el
+++ b/tm-view.el
@@ -21,7 +21,7 @@
 ;;;
 
 (defconst mime-viewer/RCS-ID
-  "$Id: tm-view.el,v 6.78 1995/09/05 01:08:55 morioka Exp $")
+  "$Id: tm-view.el,v 6.79 1995/09/08 14:50:03 morioka Exp $")
 
 (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
 (defconst mime/viewer-version mime-viewer/version)
@@ -960,6 +960,14 @@ it is regarded as current-buffer. [tm-view]"
        "q"        (function mime-viewer/quit))
       (define-key mime/viewer-mode-map
        "\C-c\C-x" (function mime-viewer/kill-buffer))
+      (cond ((string-match "XEmacs\\|Lucid" emacs-version)
+            (define-key mime/viewer-mode-map
+              'button2 (function mime-viewer/play-content-mouse))
+            )
+           ((>= emacs-major-version 19)
+            (define-key mime/viewer-mode-map
+              [mouse-2] (function mime-viewer/play-content-mouse))
+            ))
       ))
 
 (defun mime/viewer-mode (&optional mother ctl encoding)
@@ -1067,6 +1075,12 @@ q        Quit
     (mime-preview/decode-content)
     ))
 
+(defun mime-viewer/play-content-mouse (e)
+  (interactive "e")
+  (mouse-set-point e)
+  (mime-viewer/play-content)
+  )
+
 (defun mime-viewer/extract-content ()
   (interactive)
   (let ((mime-viewer/decoding-mode "extract"))