tm 7.63.

[elisp/tm.git] / gnus / tm-sgnus.el

diff --git a/gnus/tm-sgnus.el b/gnus/tm-sgnus.el
index 45d416a..095be12 100644 (file)
--- a/gnus/tm-sgnus.el
+++ b/gnus/tm-sgnus.el
@@ -7,7 +7,7 @@
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Created: 1995/09/24
-;;; Version: $Revision: 7.60 $
+;;; Version: $Revision: 7.61 $
 ;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -41,7 +41,7 @@
 ;;;
 
 (defconst tm-gnus/RCS-ID
-  "$Id: tm-sgnus.el,v 7.60 1996/05/09 18:52:46 morioka Exp $")
+  "$Id: tm-sgnus.el,v 7.61 1996/05/20 15:29:30 morioka Exp $")
 
 (defconst tm-gnus/version
   (concat (get-version-string tm-gnus/RCS-ID) " for September"))
@@ -136,16 +136,12 @@ This variable is set to `gnus-show-mime'.")
       (gnus-summary-select-article nil t)
     ))
 
-(call-after-loaded
- 'tm-view
- (lambda ()
-   (set-alist 'mime-viewer/quitting-method-alist
-             'gnus-original-article-mode
-             (function mime-viewer/quitting-method-for-sgnus))
-   (set-alist 'mime-viewer/show-summary-method
-             'gnus-original-article-mode
-             (function mime-viewer/quitting-method-for-sgnus))
-   ))
+(set-alist 'mime-viewer/quitting-method-alist
+          'gnus-original-article-mode
+          (function mime-viewer/quitting-method-for-sgnus))
+(set-alist 'mime-viewer/show-summary-method
+          'gnus-original-article-mode
+          (function mime-viewer/quitting-method-for-sgnus))
 
 
 ;;; @ for tm-partial