-(luna-define-method elmo-folder-flag-as-read ((folder elmo-pipe-folder)
- numbers &optional is-local)
- (elmo-folder-flag-as-read (elmo-pipe-folder-dst-internal folder)
- numbers is-local))
-
-(luna-define-method elmo-folder-unflag-read ((folder elmo-pipe-folder)
- numbers
- &optional is-local)
- (elmo-folder-unflag-read (elmo-pipe-folder-dst-internal folder)
- numbers is-local))
-
-(luna-define-method elmo-folder-unflag-important ((folder elmo-pipe-folder)
- numbers
- &optional is-local)
- (elmo-folder-unflag-important (elmo-pipe-folder-dst-internal folder)
- numbers is-local))
-
-(luna-define-method elmo-folder-flag-as-important ((folder elmo-pipe-folder)
- numbers
- &optional is-local)
- (elmo-folder-flag-as-important (elmo-pipe-folder-dst-internal folder)
- numbers is-local))
-
-(luna-define-method elmo-folder-unflag-answered ((folder elmo-pipe-folder)
- numbers
- &optional is-local)
- (elmo-folder-unflag-answered (elmo-pipe-folder-dst-internal folder)
- numbers is-local))
-
-(luna-define-method elmo-folder-flag-as-answered ((folder elmo-pipe-folder)
- numbers
- &optional is-local)
- (elmo-folder-flag-as-answered (elmo-pipe-folder-dst-internal folder)
- numbers is-local))
+(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))