Mercurial > emacs

comparison lisp/gnus/gnus-msg.el @ 40387:8421000daff7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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)