* elmo-flag.el (elmo-folder-delete): Update elmo-global-flag-list.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 11ff5c1..9a1845b 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2004-09-19  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * elmo-flag.el (elmo-folder-delete): Update elmo-global-flag-list.
+
 2004-09-14  Tetsurou Okazaki  <okazaki@be.to>
 
        * elmo-filter.el (elmo-folder-local-p): Define.

diff --git a/elmo/elmo-flag.el b/elmo/elmo-flag.el
index 86a8505..3cbc30b 100644 (file)
--- a/elmo/elmo-flag.el
+++ b/elmo/elmo-flag.el
@@ -445,6 +445,12 @@ If optional IGNORE-PRESERVED is non-nil, preserved flags
            (elmo-global-flag-set 'important nil nil (car elem))))))
     (message "Upgrading flag structure...done")))
 
+(luna-define-method elmo-folder-delete :around ((folder elmo-flag-folder))
+  (let ((flag (elmo-flag-folder-flag-internal folder)))
+    (when (luna-call-next-method)
+      (setq elmo-global-flag-list (delq flag elmo-global-flag-list))
+      t)))
+
 (require 'product)
 (product-provide (provide 'elmo-flag) (require 'elmo-version))