# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1004223149 0
# Node ID 8421000daff7993456af51ff03bd8d9b1fe285ea
# Parent  7bdfd55ddbe9de46ef06b7d6d315adb4480948b2
(gnus-setup-message): Setup reaper for MML buffers.

diff -r 7bdfd55ddbe9 -r 8421000daff7 lisp/gnus/gnus-msg.el
--- a/lisp/gnus/gnus-msg.el	Sat Oct 27 22:40:41 2001 +0000
+++ b/lisp/gnus/gnus-msg.el	Sat Oct 27 22:52:29 2001 +0000
@@ -233,6 +233,7 @@
 	     (let ((mbl1 mml-buffer-list))
 	       (setq mml-buffer-list mbl)  ;; Global value
 	       (set (make-local-variable 'mml-buffer-list) mbl1);; Local value
+	       (add-hook 'change-major-mode-hook 'mml-destroy-buffers nil t)
 	       (add-hook 'kill-buffer-hook 'mml-destroy-buffers t t))
 	   (mml-destroy-buffers)
 	   (setq mml-buffer-list mbl)))