diff options
| author | Stefan Monnier | 2001-10-27 22:52:29 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2001-10-27 22:52:29 +0000 |
| commit | 6553d8f222d0f6ad2931b488656db558735c6f3e (patch) | |
| tree | 0c0ee77a6f7402b6549e167dfaa7fa2f1b74bf2e | |
| parent | 1ce1e4ee7486b5d84e92d2c52a3027e286ab4057 (diff) | |
| download | emacs-6553d8f222d0f6ad2931b488656db558735c6f3e.tar.gz emacs-6553d8f222d0f6ad2931b488656db558735c6f3e.zip | |
(gnus-setup-message): Setup reaper for MML buffers.
| -rw-r--r-- | lisp/gnus/gnus-msg.el | 1 |
1 files changed, 1 insertions, 0 deletions
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. | |||
| 233 | (let ((mbl1 mml-buffer-list)) | 233 | (let ((mbl1 mml-buffer-list)) |
| 234 | (setq mml-buffer-list mbl) ;; Global value | 234 | (setq mml-buffer-list mbl) ;; Global value |
| 235 | (set (make-local-variable 'mml-buffer-list) mbl1);; Local value | 235 | (set (make-local-variable 'mml-buffer-list) mbl1);; Local value |
| 236 | (add-hook 'change-major-mode-hook 'mml-destroy-buffers nil t) | ||
| 236 | (add-hook 'kill-buffer-hook 'mml-destroy-buffers t t)) | 237 | (add-hook 'kill-buffer-hook 'mml-destroy-buffers t t)) |
| 237 | (mml-destroy-buffers) | 238 | (mml-destroy-buffers) |
| 238 | (setq mml-buffer-list mbl))) | 239 | (setq mml-buffer-list mbl))) |