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

after deletion.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 82f7afa..8909bbe 100644 (file)
--- 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 (file)
--- 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)))))