From 0ee9b376253e9aa3989ffff5264b55f66b8223ee Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 9 Mar 1998 07:29:14 +0000 Subject: [PATCH] tm 6.78.2. --- Changes-6.78.2.en | 15 +++++++++++++++ Changes-6.78.2.ja | 15 +++++++++++++++ Makefile | 2 +- README.eng | 31 +++++-------------------------- gnus/Makefile | 2 +- gnus/tm-gnus5.el | 22 +++++++++++++++++++++- 6 files changed, 58 insertions(+), 29 deletions(-) create mode 100644 Changes-6.78.2.en create mode 100644 Changes-6.78.2.ja diff --git a/Changes-6.78.2.en b/Changes-6.78.2.en new file mode 100644 index 0000000..a705802 --- /dev/null +++ b/Changes-6.78.2.en @@ -0,0 +1,15 @@ +* tm + + - Fixed README.eng. + + +* tm/gnus + + Attached version 6.21. + +tm/gnus/tm-gnus5.el +---------------------------- +revision 6.21 +date: 1995/09/07 17:07:41; author: morioka; state: Exp; lines: +21 -1 +Defined quitting method for tm-view. +---------------------------- diff --git a/Changes-6.78.2.ja b/Changes-6.78.2.ja new file mode 100644 index 0000000..be9ffc3 --- /dev/null +++ b/Changes-6.78.2.ja @@ -0,0 +1,15 @@ +* tm + + - README.eng を修正した。 + + +* tm/gnus + + Version 6.21 を添付した。 + +tm/gnus/tm-gnus5.el +---------------------------- +revision 6.21 +date: 1995/09/07 17:07:41; author: morioka; state: Exp; lines: +21 -1 +tm-view の quitting method を設定した。 +---------------------------- diff --git a/Makefile b/Makefile index 20b0717..c14ea12 100644 --- a/Makefile +++ b/Makefile @@ -34,7 +34,7 @@ TL_FILES = tl/README.eng \ FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES) -TARFILE = tm6.78.1.tar +TARFILE = tm6.78.2.tar nemacs: diff --git a/README.eng b/README.eng index c160686..6142656 100644 --- a/README.eng +++ b/README.eng @@ -1,6 +1,6 @@ [README for tm (English Version)] by MORIOKA Tomohiko -$Id: README.eng,v 6.8 1995/09/04 00:53:42 morioka Exp $ +$Id: README.eng,v 6.9 1995/09/07 17:24:24 morioka Exp $ 1 What's tm? @@ -58,36 +58,15 @@ Tm has following modules: 4 Install -4.0 install tl +4.1 tm/config.tm -Tm uses Emacs Lisp library ``tl'', so, at first, you install -tl. Please read tl/README.eng. - - -4.1 Makefile - - Please edit Makefile. - -4.1.1 specify Emacs executables - - Please specify Emacs executable file name. - - NEMACS = for NEMACS (or NEpoch) - MULE1 = for Mule 1.* (based on Emacs 18.*) - ORIG19 = for Emacs 19.* (FSF original or XEmacs) - MULE2 = for MULE 2.* (based on Emacs 19.*) - -4.1.2 specify Emacs Lisp install path - - Please specify Emacs Lisp install path. - - TLDIR18 = for Emacs 18.* (NEMACS, NEpoch or MULE 1) - TLDIR19 = for Emacs 19.* (FSF original, XEmacs or MULE 2) + Please edit tm/config.tm file. 4.2 External methods - Edit external methods in `methods/' directory for your environment. + Please edit external methods in `methods/' directory for your +environment. 4.3 make diff --git a/gnus/Makefile b/gnus/Makefile index d18ee20..829ef94 100644 --- a/gnus/Makefile +++ b/gnus/Makefile @@ -17,7 +17,7 @@ TMDIR19 = $(HOME)/lib/emacs19/lisp FILES = tm/gnus/*.el tm/doc/tm-gnus*.texi -TARFILE = tm-gnus6.20.1.tar +TARFILE = tm-gnus6.21.tar gnus3: diff --git a/gnus/tm-gnus5.el b/gnus/tm-gnus5.el index 85edf97..31cb200 100644 --- a/gnus/tm-gnus5.el +++ b/gnus/tm-gnus5.el @@ -11,7 +11,7 @@ ;;; (defconst tm-gnus/RCS-ID - "$Id: tm-gnus5.el,v 6.20 1995/09/04 10:53:07 morioka Exp $") + "$Id: tm-gnus5.el,v 6.21 1995/09/07 17:07:41 morioka Exp $") (defconst tm-gnus/version (concat (get-version-string tm-gnus/RCS-ID) " for GNUS 5")) @@ -80,6 +80,26 @@ article is automatic MIME decoded.") "\e\r" (function tm-gnus/summary-scroll-down)) +;;; @ for tm-view +;;; + +(defun mime-viewer/quitting-method-for-gnus5 () + (mime-viewer/kill-buffer) + (delete-other-windows) + (gnus-article-show-summary) + (gnus-summary-display-article (gnus-summary-article-number)) + ) + +(call-after-loaded + 'tm-view + (function + (lambda () + (set-alist 'mime-viewer/quitting-method-alist + 'gnus-article-mode + (function mime-viewer/quitting-method-for-gnus5)) + ))) + + ;;; @ summary filter ;;; -- 1.7.10.4