--- a/account.pm	Tue Nov 29 13:19:44 2011 +0100
+++ b/account.pm	Thu Dec 08 16:55:43 2011 +0100
@@ -452,15 +452,26 @@
           or die "Can't connect to IMAP Server '", $Cf->imap_server,
           "', Port '", $Cf->imap_port, "': ", $@;
         $imap->login( "$uid*" . $Cf->imap_admin, $imap_password ) or die $@;
-        my $folders = $imap->list( '', '*' ) or die $@;
+
         my %q;
-        for my $f ( @{$folders} ) {
+        if ($imap->capability->{quota}) {
+
+            my $folders = $imap->list( '', '*' ) or die $@;
+
+            for my $f ( @{$folders} ) {
 
-            # single folder sieht wie folgt aus: [[flag1, flag2, ...], separator, foldername]
-            my $q = $imap->getquotaroot( $f->[2] ) or die $@;
-            delete $q->{quotaroot};
-            %q = ( %q, %{$q} );
+                # single folder sieht wie folgt aus: [[flag1, flag2, ...], separator, foldername]
+                next if '\\Noselect' ~~ $f->[0];
+                my $q = $imap->getquotaroot( $f->[2] )
+                    or $@ eq q{IMAP Command : 'getquotaroot' failed. Response was : no - Not showing other users' quota.}
+                    or die $@;
+                delete $q->{quotaroot};
+                %q = ( %q, %{$q} );
+
+            }
+
         }
+
         $imap->logout or die $@;
 
         # da wir uns anmelden konnten haben wir auch eine 'mbox'