tm 6.58

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

diff --git a/gnus/tm-dgnus.el b/gnus/tm-dgnus.el
index e42a3e6..defa71e 100644 (file)
--- a/gnus/tm-dgnus.el
+++ b/gnus/tm-dgnus.el
@@ -5,7 +5,7 @@
 ;;; @ version
 ;;;
 (defconst tm-gnus/RCS-ID
-  "$Id: tm-dgnus.el,v 6.4 1995/06/18 16:12:05 morioka Exp $")
+  "$Id: tm-dgnus.el,v 6.5 1995/06/22 05:34:56 morioka Exp $")
 
 (defconst tm-gnus/version
   (concat (get-version-string tm-gnus/RCS-ID) " (ding)"))
@@ -224,6 +224,18 @@ With arg, turn MIME processing on if arg is positive."
   )
 
 
+;;; @ etc
+;;;
+
+(add-hook 'gnus-exit-gnus-hook
+         (function
+          (lambda ()
+            (let ((buf (get-buffer tm-gnus/preview-buffer)))
+              (if buf
+                  (kill-buffer buf)
+                )))))
+
+
 ;;; @ end
 ;;;