From: Stefan Monnier Date: Sat, 27 Oct 2001 22:52:29 +0000 (+0000) Subject: (gnus-setup-message): Setup reaper for MML buffers. X-Git-Tag: ttn-vms-21-2-B4~19096 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6553d8f222d0f6ad2931b488656db558735c6f3e;p=emacs.git (gnus-setup-message): Setup reaper for MML buffers. --- diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el index ef5875b36c2..6ff82265910 100644 --- a/lisp/gnus/gnus-msg.el +++ b/lisp/gnus/gnus-msg.el @@ -233,6 +233,7 @@ Thank you for your help in stamping out bugs. (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)))