Mark mailboxes as (un)subscribed in the DB.

1 files changed, 14 insertions, 0 deletions

diff --git a/imapsync b/imapsync
index eb8f652..705ad3d 100755
--- a/imapsync
+++ b/imapsync
@@ -444,6 +444,20 @@ my @SUBSCRIPTIONS;
                 push @{$IMAP->{$unsubscribed}->{mailboxes}->{$mbx}}, '\Subscribed';
             }
         }
+        else {
+            $sth_search->execute($mbx);
+            my $row = $sth_search->fetch();
+            die if defined $sth_search->fetch(); # sanity check
+
+            if (defined $row) {
+                my ($idx,$status) = @$row;
+                unless (defined $status and $status != 0) {
+                    my $subscribed = subscribed_mbx('local',$mbx) ? 1 : 0;
+                    $sth_subscribe->execute($subscribed, $idx);
+                    $DBH->commit();
+                }
+            }
+        }
         push @SUBSCRIPTIONS, $mbx if subscribed_mbx('local', $mbx) and
                                      subscribed_mbx('remote',$mbx);
     }