From 959e923132dcd06b6a517440aa8c251e5961941c Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 19 Sep 2004 04:39:25 +0000 Subject: [PATCH] * elmo-flag.el (elmo-folder-delete): Update elmo-global-flag-list. --- elmo/ChangeLog | 4 ++++ elmo/elmo-flag.el | 6 ++++++ 2 files changed, 10 insertions(+) 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 + + * elmo-flag.el (elmo-folder-delete): Update elmo-global-flag-list. + 2004-09-14 Tetsurou Okazaki * 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)) -- 1.7.10.4