From: yoichi <yoichi>
Date: Sun, 26 Sep 2004 14:18:12 +0000 (+0000)
Subject: * wl-fldmgr.el (wl-fldmgr-delete): Remove folder entity
X-Git-Tag: wl-2_12-root~75
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a1abd380212664ec517b7acf881241b2eaefe689;p=elisp%2Fwanderlust.git

* wl-fldmgr.el (wl-fldmgr-delete): Remove folder entity
after deletion.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 82f7afa..8909bbe 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2004-09-26  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
+	* wl-fldmgr.el (wl-fldmgr-delete): Remove folder entity
+	after deletion.
+
 	* wl-draft.el (wl-draft-send-confirm): Check major-mode
 	before calling wl-mime-quit-preview.
 
diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el
index 77f8c6e..8e915cc 100644
--- a/wl/wl-fldmgr.el
+++ b/wl/wl-fldmgr.el
@@ -852,6 +852,7 @@ return value is diffs '(-new -unread -all)."
 	   (entity (elmo-string (nth 4 tmp)))
 	   (folder (wl-folder-get-elmo-folder entity)))
       (when (elmo-folder-delete folder)
+	(wl-folder-clear-entity-info entity)
 	(wl-fldmgr-cut tmp nil t)
 	(wl-fldmgr-save-access-list)))))