From: ueno <ueno>
Date: Thu, 25 Apr 2002 19:40:07 +0000 (+0000)
Subject: * lsdb.el (lsdb-wl-hide-buffer): New function.
X-Git-Tag: lsdb-0_1~11
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Flsdb.git;a=commitdiff_plain;h=4e7dd5428128fd7e23f53a5d13d2587328ed1d2d

* lsdb.el (lsdb-wl-hide-buffer): New function.
---

diff --git a/lsdb.el b/lsdb.el
index 4705b8e..e19fd96 100644
--- a/lsdb.el
+++ b/lsdb.el
@@ -536,6 +536,7 @@ This is the current number of slots in HASH-TABLE, whether occupied or not."
 (defun lsdb-wl-insinuate ()
   "Call this function to hook LSDB into Wanderlust."
   (add-hook 'wl-message-redisplay-hook 'lsdb-wl-update-record)
+  (add-hook 'wl-summary-exit-hook 'lsdb-wl-hide-buffer)
   (add-hook 'wl-exit-hook 'lsdb-offer-save))
 
 (defun lsdb-wl-update-record ()
@@ -545,6 +546,11 @@ This is the current number of slots in HASH-TABLE, whether occupied or not."
       (when records
 	(lsdb-display-record (car records))))))
 
+(defun lsdb-wl-hide-buffer ()
+  (let ((window (get-buffer-window lsdb-buffer-name)))
+    (if window
+	(delete-window window))))
+
 (provide 'lsdb)
 
 ;;;_* Local emacs vars.