# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 780129202 0
# Node ID 286aacffb920a70485718904d4aa2861c9d0845a
# Parent  722763fed8ce11b7befab80e80996b599dc2782a
(rmail-mode-kill-summary): New function.
(rmail-variables): Put that on kill-buffer-hook locally.

diff -r 722763fed8ce -r 286aacffb920 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Wed Sep 21 06:25:26 1994 +0000
+++ b/lisp/mail/rmail.el	Wed Sep 21 06:33:22 1994 +0000
@@ -522,6 +522,9 @@
 ;; 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-mode-map>\\[rmail] for editing Rmail files.
@@ -615,6 +618,8 @@
   (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)