From: yoichi <yoichi>
Date: Sun, 19 Sep 2004 04:39:25 +0000 (+0000)
Subject: * elmo-flag.el (elmo-folder-delete): Update elmo-global-flag-list.
X-Git-Tag: wl-2_12-root~96
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=959e923132dcd06b6a517440aa8c251e5961941c;p=elisp%2Fwanderlust.git

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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 11ff5c1..9a1845b 100644
--- 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
--- 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))