- return flush_lei($lei) if $folder eq 'done'; # special case
- my $lms = $sto->search->lms or return;
- my $err = $lms->arg2folder($lei, [ $folder ]);
- return if $err->{fail};
- undef $lms;
- my $state = $cfg->get_1("watch.$folder", 'state') // 'tag-rw';
+ return flush_lei($lei, 1) if $folder eq 'done'; # special case
+ my $lms = $lei->lms or return;
+ $lms->lms_write_prepare if $new_cur eq ''; # for ->clear_src below
+ $lei->{opt}->{quiet} = 1;
+ $lms->arg2folder($lei, [ $folder ]);
+ my $state = $cfg->get_1("watch.$folder.state") // 'tag-rw';