Mercurial > emacs
comparison lisp/gnus/gnus-msg.el @ 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 | b473bc6d9a55 |
children | bcde2eb5438e |
comparison
equal
deleted
inserted
replaced
40386:7bdfd55ddbe9 | 40387:8421000daff7 |
---|---|
231 (gnus-run-hooks 'gnus-message-setup-hook) | 231 (gnus-run-hooks 'gnus-message-setup-hook) |
232 (if (eq major-mode 'message-mode) | 232 (if (eq major-mode 'message-mode) |
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))) |
239 (gnus-add-buffer) | 240 (gnus-add-buffer) |
240 (gnus-configure-windows ,config t) | 241 (gnus-configure-windows ,config t) |