Mercurial > emacs
changeset 40387:8421000daff7
(gnus-setup-message): Setup reaper for MML buffers.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 27 Oct 2001 22:52:29 +0000 |
| parents | 7bdfd55ddbe9 |
| children | 2584d31ee79a |
| files | lisp/gnus/gnus-msg.el |
| diffstat | 1 files changed, 1 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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)))