X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-multi.el;h=5903b1c495e17241f93050e7b08bb04331834cc8;hb=298179ef92e7400bdab05f509725ebfb9672b038;hp=5f3d5df6eff2828e84a58ec833a177c764868a5b;hpb=4b6415dfa236d5d0744a1079edee169f33152aa1;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-multi.el b/elmo/elmo-multi.el
index 5f3d5df..5903b1c 100644
--- a/elmo/elmo-multi.el
+++ b/elmo/elmo-multi.el
@@ -419,7 +419,8 @@
 					  flag
 					  &optional is-local)
   (dolist (pair (elmo-multi-make-folder-numbers-list folder numbers))
-    (elmo-folder-set-flag (car pair) (cdr pair) flag is-local)))
+    (elmo-folder-set-flag (car pair) (cdr pair) flag is-local))
+  (elmo-folder-notify-event folder 'flag-changed numbers))
 
 (luna-define-method elmo-folder-unset-flag ((folder elmo-multi-folder)
 					    numbers
@@ -427,7 +428,8 @@
 					    &optional is-local)
   (dolist (pair (elmo-multi-make-folder-numbers-list folder numbers))
     (ignore-errors
-     (elmo-folder-unset-flag (car pair) (cdr pair) flag is-local))))
+     (elmo-folder-unset-flag (car pair) (cdr pair) flag is-local)))
+  (elmo-folder-notify-event folder 'flag-changed numbers))
 
 (luna-define-method elmo-folder-list-flagged ((folder elmo-multi-folder)
 					      flag