From 6d5d73c549030d7584d31b92fed093d6cf6ec70a Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 9 Mar 1998 07:31:07 +0000 Subject: [PATCH] tm 6.79. --- Changes-6.79.en | 57 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ Changes-6.79.ja | 55 +++++++++++++++++++++++++++++++++++++++++++++++++++++ Makefile | 24 +++++++++++------------ README.eng | 26 ++++++++++++++----------- tinyrich.el | 4 ++-- tm-view.el | 16 +++++++++++++++- 6 files changed, 155 insertions(+), 27 deletions(-) create mode 100644 Changes-6.79.en create mode 100644 Changes-6.79.ja diff --git a/Changes-6.79.en b/Changes-6.79.en new file mode 100644 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 を添付した。 + +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 '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 index 0000000..2b24937 --- /dev/null +++ b/Changes-6.79.ja @@ -0,0 +1,55 @@ +* tl + + Version 6.6.2 を添付した。 + + - installer を変更した。 + - README.eng を書き直した。 + +tl/emu-xemacs.el +---------------------------- +revision 2.0 +date: 1995/09/08 17:47:54; author: morioka; state: Exp; +Emacs 19 の text-property 関連の emulation module として作成した。 +（Gnus 5 の gnus-ems.el を参考にした） +---------------------------- + +tl/emu.el +---------------------------- +revision 2.0 +date: 1995/09/08 17:47:33; author: morioka; state: Exp; lines: +5 -1 +XEmacs の時、emu-xemacs を require するようにした。 +---------------------------- + + +* mel + + Version 1.9 を添付した。 + +mel/mel-q.el +---------------------------- +revision 1.9 +date: 1995/09/09 05:14:23; author: morioka; state: Exp; lines: +17 -25 +Yves Forkl さんの指摘に従い、関数 +quoted-printable-internal-encode-region の不具合を修正した。 +---------------------------- + + +* tm + + - tl の installer の変更に伴い、Makefile を修正した。 + - README.eng の mime/viewer-mode の key bind の説明を修正した。 + +tm/tinyrich.el +---------------------------- +revision 3.0 +date: 1995/09/08 17:29:38; author: morioka; state: Exp; lines: +2 -2 +Emacs 19 用の関数 mime/set-face-region の不具合を修正した。 +---------------------------- + +tm/tm-view.el +---------------------------- +revision 6.79 +date: 1995/09/08 14:50:03; author: morioka; state: Exp; lines: +15 -1 +Emacs 19 と XEmacs では mouse button 2 で content を play できるように +した。 +---------------------------- diff --git a/Makefile b/Makefile index c14ea12..dfa721b 100644 --- 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 --- a/README.eng +++ b/README.eng @@ -1,6 +1,6 @@ [README for tm (English Version)] by MORIOKA Tomohiko -$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 --- 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 ;;; modified by YAMATE Keiichirou @@ -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 --- 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")) -- 1.7.10.4