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

diff --git a/lsdb.el b/lsdb.el
index 4705b8e..e19fd96 100644 (file)
--- 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.