+sub imap_delete_1 {
+ my ($self, $uri, $uid, $delete_mic) = @_;
+ $$delete_mic //= $self->mic_for_folder($uri) or return;
+ $$delete_mic->delete_message($uid);
+}
+
+sub imap_add_kw {
+ my ($self, $mic, $uid, $kw) = @_;
+ $mic->store($uid, '+FLAGS.SILENT', '('.kw2flags($kw).')');
+ $mic; # caller must ->expunge
+}
+
+sub imap_set_kw {
+ my ($self, $mic, $uid, $kw) = @_;
+ $mic->store($uid, 'FLAGS.SILENT', '('.kw2flags($kw).')');
+ $mic; # caller must ->expunge
+}
+
+sub can_store_flags {
+ my ($self, $mic) = @_;
+ for ($mic->Results) {
+ /^\* OK \[PERMANENTFLAGS \(([^\)]*)\)\].*/ and
+ return $self->can('perm_fl_ok')->($1);
+ }
+ undef;
+}
+