-(luna-define-method elmo-folder-flag-as-important ((folder
- elmo-multi-folder)
- numbers
- &optional
- is-local)
- (dolist (folder-numbers (elmo-multi-make-folder-numbers-list folder numbers))
- (elmo-folder-flag-as-important (car folder-numbers)
- (cdr folder-numbers)
- is-local)))
-
-(luna-define-method elmo-folder-unflag-important ((folder
- elmo-multi-folder)
- numbers
- &optional
- is-local)
- (dolist (folder-numbers (elmo-multi-make-folder-numbers-list folder numbers))
- (elmo-folder-unflag-important (car folder-numbers)
- (cdr folder-numbers)
- is-local)))
-
-(luna-define-method elmo-folder-flag-as-read ((folder
- elmo-multi-folder)
- numbers
- &optional is-local)
- (dolist (folder-numbers (elmo-multi-make-folder-numbers-list folder numbers))
- (elmo-folder-flag-as-read (car folder-numbers)
- (cdr folder-numbers)
- is-local)))
-
-(luna-define-method elmo-folder-unflag-read ((folder
- elmo-multi-folder)
- numbers
- &optional is-local)
- (dolist (folder-numbers (elmo-multi-make-folder-numbers-list folder numbers))
- (elmo-folder-unflag-read (car folder-numbers)
- (cdr folder-numbers)
- is-local)))
-
-(luna-define-method elmo-folder-flag-as-answered ((folder
- elmo-multi-folder)
- numbers
- &optional is-local)
- (dolist (folder-numbers (elmo-multi-make-folder-numbers-list folder numbers))
- (elmo-folder-flag-as-answered (car folder-numbers)
- (cdr folder-numbers)
- is-local)))
-
-(luna-define-method elmo-folder-unflag-answered ((folder
- elmo-multi-folder)
- numbers
- &optional is-local)
- (dolist (folder-numbers (elmo-multi-make-folder-numbers-list folder numbers))
- (elmo-folder-unflag-answered (car folder-numbers)
- (cdr folder-numbers)
- is-local)))
+(luna-define-method elmo-folder-set-flag ((folder elmo-multi-folder)
+ numbers
+ 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-notify-event folder 'flag-changed numbers))
+
+(luna-define-method elmo-folder-unset-flag ((folder elmo-multi-folder)
+ numbers
+ flag
+ &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-notify-event folder 'flag-changed numbers))