lei_mail_sync: remove warning message from caller

[public-inbox.git] / lib / PublicInbox / LeiMailSync.pm

diff --git a/lib/PublicInbox/LeiMailSync.pm b/lib/PublicInbox/LeiMailSync.pm
index 6dfa03be2feaf2063d3681626a869271423f36fa..b63f8dead55154e18dc275d71a263d17cca0d85c 100644 (file)
--- a/lib/PublicInbox/LeiMailSync.pm
+++ b/lib/PublicInbox/LeiMailSync.pm
@@ -79,8 +79,8 @@ sub fid_for {
        my ($fid) = $dbh->selectrow_array($sel, undef, $folder);
        return $fid if defined $fid;
 
+       # caller had trailing slash (LeiToMail)
        if ($folder =~ s!\A((?:maildir|mh):.*?)/+\z!$1!i) {
-               warn "folder: $folder/ had trailing slash in arg\n";
                ($fid) = $dbh->selectrow_array($sel, undef, $folder);
                if (defined $fid) {
                        $dbh->do(<<EOM, undef, $folder, $fid) if $rw;
@@ -412,6 +412,16 @@ sub forget_folder {
        $dbh->do('DELETE FROM folders WHERE fid = ?', undef, $fid);
 }
 
+# only used for changing canonicalization errors
+sub rename_folder {
+       my ($self, $old, $new) = @_;
+       my $fid = delete($self->{fmap}->{$old}) //
+               fid_for($self, $old) // return;
+       $self->{dbh}->do(<<EOM, undef, $new, $fid);
+UPDATE folders SET loc = ? WHERE fid = ?
+EOM
+}
+
 sub imap_oidbin ($$$) {
        my ($self, $url, $uid) = @_; # $url MUST have UIDVALIDITY
        my $fid = $self->{fmap}->{$url} //= fid_for($self, $url) // return;