-(luna-define-method elmo-folder-mark-as-read ((folder elmo-pipe-folder)
- numbers &optional ignore-flag)
- (elmo-folder-mark-as-read (elmo-pipe-folder-dst-internal folder)
- numbers ignore-flag))
-
-(luna-define-method elmo-folder-unmark-read ((folder elmo-pipe-folder)
- numbers
- &optional ignore-flag)
- (elmo-folder-unmark-read (elmo-pipe-folder-dst-internal folder)
- numbers ignore-flag))
-
-(luna-define-method elmo-folder-unmark-important ((folder elmo-pipe-folder)
- numbers
- &optional ignore-flag)
- (elmo-folder-unmark-important (elmo-pipe-folder-dst-internal folder)
- numbers ignore-flag))
-
-(luna-define-method elmo-folder-mark-as-important ((folder elmo-pipe-folder)
- numbers
- &optional ignore-flag)
- (elmo-folder-mark-as-important (elmo-pipe-folder-dst-internal folder)
- numbers ignore-flag))
-
-(luna-define-method elmo-folder-unmark-answered ((folder elmo-pipe-folder)
- numbers)
- (elmo-folder-unmark-answered (elmo-pipe-folder-dst-internal folder)
- numbers))
-
-(luna-define-method elmo-folder-mark-as-answered ((folder elmo-pipe-folder)
- numbers)
- (elmo-folder-mark-as-answered (elmo-pipe-folder-dst-internal folder)
- numbers))
+(luna-define-method elmo-folder-set-flag ((folder elmo-pipe-folder)
+ numbers
+ flag
+ &optional is-local)
+ (elmo-folder-set-flag (elmo-pipe-folder-dst-internal folder)
+ numbers flag is-local)
+ (elmo-folder-notify-event folder 'flag-changed numbers))
+
+(luna-define-method elmo-folder-unset-flag ((folder elmo-pipe-folder)
+ numbers
+ flag
+ &optional is-local)
+ (elmo-folder-unset-flag (elmo-pipe-folder-dst-internal folder)
+ numbers flag is-local)
+ (elmo-folder-notify-event folder 'flag-changed numbers))