[Mew-dist 07840] bury-buffer at suspending

[Ken-ichi Yamamoto ( 山本 賢一 )]

----Next_Part(Mon_Mar__1_15:52:18_1999_300)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit

やまもと＠コナミです。

<症状>
C-x b (switch-to-buffer) で +inbox フォルダを表示し、さらに SPC
(mew-summary-show) などで *Mew message*0 バッファを表示します。その状態で 
Summary にて q (mew-summary-suspend) を実行すると Message buffer が残ったま
まになります。

そのパッチを作ってみました。

mew-bury-buffer を新規に作ったのですが、もともと mew-buffers-bury という似た
名前の関数があったので、ちょっとどうかなとも思いましたが…。

=========================  ＫＯＮＡＭＩ Co.,Ltd. =========================
  「そこからがおもしろいんだよ」  山本 賢一 yamamoto_kenichi at example.com
================      Ken'ichi Yamamoto driving CEFIRO     ===============

----Next_Part(Mon_Mar__1_15:52:18_1999_300)--
Content-Type: Text/Plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Content-Description: diff from mew.el
Content-Disposition: attachment; filename=diff

--- mew.el.orig	Mon Mar  1 14:33:14 1999
+++ mew.el	Mon Mar  1 15:28:51 1999
@@ -577,6 +577,11 @@
 ;;; Teer down
 ;;;
 
+(defun mew-bury-buffer (&optional buf)
+  (interactive)
+  (bury-buffer buf)
+  (delete-windows-on buf t))
+
 (defun mew-kill-buffer (&optional buf)
   "Erase the current mode(buffer)."
   (interactive)
@@ -603,7 +608,7 @@
   (interactive)
   (mew-window-pop)
   ;; bury buffers
-  (mew-buffer-message-clean-up (function bury-buffer))
+  (mew-buffer-message-clean-up (function mew-bury-buffer))
   (mew-buffers-bury)
   (set-buffer (car (buffer-list)))
   (run-hooks 'mew-suspend-hook))

----Next_Part(Mon_Mar__1_15:52:18_1999_300)----