From: morioka <morioka>
Date: Mon, 9 Mar 1998 07:29:14 +0000 (+0000)
Subject: tm 6.78.2.
X-Git-Tag: tm6_78_2~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0ee9b376253e9aa3989ffff5264b55f66b8223ee;p=elisp%2Ftm.git

tm 6.78.2.
---

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 <morioka@jaist.ac.jp>
-$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
 ;;;