tm 6.78.2.

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

diff --git a/gnus/tm-gnus5.el b/gnus/tm-gnus5.el
index 85edf97..31cb200 100644 (file)
--- 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
 ;;;