+(luna-define-method elmo-folder-unflag-important :before ((folder
+ elmo-net-folder)
+ numbers
+ &optional
+ is-local)
+ (when (and (elmo-folder-use-flag-p folder)
+ (not is-local))
+ (if (elmo-folder-plugged-p folder)
+ (elmo-folder-send folder 'elmo-folder-unflag-important-plugged
+ numbers)
+ (elmo-folder-send folder
+ 'elmo-folder-unflag-important-unplugged numbers))))
+
+(luna-define-method elmo-folder-flag-as-important :before ((folder
+ elmo-net-folder)
+ numbers
+ &optional
+ is-local)
+ (when (and (elmo-folder-use-flag-p folder)
+ (not is-local))
+ (if (elmo-folder-plugged-p folder)
+ (elmo-folder-send folder 'elmo-folder-flag-as-important-plugged
+ numbers)
+ (elmo-folder-send folder 'elmo-folder-flag-as-important-unplugged
+ numbers))))
+
+(luna-define-method elmo-folder-unflag-read :before ((folder elmo-net-folder)
+ numbers
+ &optional is-local)
+ (when (and (elmo-folder-use-flag-p folder)
+ (not is-local))
+ (if (elmo-folder-plugged-p folder)
+ (elmo-folder-send folder 'elmo-folder-unflag-read-plugged numbers)
+ (elmo-folder-send folder 'elmo-folder-unflag-read-unplugged numbers))))
+
+(luna-define-method elmo-folder-flag-as-read :before ((folder elmo-net-folder)
+ numbers
+ &optional is-local)
+ (when (and (elmo-folder-use-flag-p folder)
+ (not is-local))
+ (if (elmo-folder-plugged-p folder)
+ (elmo-folder-send folder 'elmo-folder-flag-as-read-plugged numbers)
+ (elmo-folder-send
+ folder 'elmo-folder-flag-as-read-unplugged numbers))))
+
+(luna-define-method elmo-folder-unflag-answered :before ((folder
+ elmo-net-folder)
+ numbers
+ &optional is-local)
+ (when (and (elmo-folder-use-flag-p folder)
+ (not is-local))
+ (if (elmo-folder-plugged-p folder)
+ (elmo-folder-send folder 'elmo-folder-unflag-answered-plugged
+ numbers)
+ (elmo-folder-send folder
+ 'elmo-folder-unflag-answered-unplugged numbers))))
+
+(luna-define-method elmo-folder-flag-as-answered :before ((folder
+ elmo-net-folder)
+ numbers
+ &optional is-local)
+ (when (and (elmo-folder-use-flag-p folder)
+ (not is-local))
+ (if (elmo-folder-plugged-p folder)
+ (elmo-folder-send folder 'elmo-folder-flag-as-answered-plugged
+ numbers)
+ (elmo-folder-send folder 'elmo-folder-flag-as-answered-unplugged
+ numbers))))
+
+(luna-define-method elmo-folder-flag-as-read-unplugged ((folder