+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
+}
+