From 3f320f98b8a800209a1e3b3181394a3b08dc5a0b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 21 Sep 1994 06:33:22 +0000 Subject: [PATCH] (rmail-mode-kill-summary): New function. (rmail-variables): Put that on kill-buffer-hook locally. --- lisp/mail/rmail.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 782983c0033..2d446716b2e 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -522,6 +522,9 @@ Note: it means the file has no messages in it.\n\^_"))) ;; Rmail mode is suitable only for specially formatted data. (put 'rmail-mode 'mode-class 'special) +(defun rmail-mode-kill-summary () + (if rmail-summary-buffer (kill-buffer rmail-summary-buffer))) + ;;;###autoload (defun rmail-mode () "Rmail Mode is used by \\\\[rmail] for editing Rmail files. @@ -615,6 +618,8 @@ Instead, these commands are available: (setq rmail-overlay-list nil) (make-local-variable 'version-control) (setq version-control 'never) + (make-local-variable 'kill-buffer-hook) + (add-hook 'kill-buffer-hook 'rmail-mode-kill-summary) (make-local-variable 'file-precious-flag) (setq file-precious-flag t) (make-local-variable 'rmail-message-vector) -- 2.39.5