account.pm
branchfoerste
changeset 49 0277d8ad4d9d
parent 48 36aca6fb0ab8
child 50 aca7592c284b
--- a/account.pm	Mon Nov 28 09:49:28 2011 +0100
+++ b/account.pm	Mon Nov 28 14:58:49 2011 +0100
@@ -187,9 +187,7 @@
 
             verbose('exists')
 
-        } elsif ( $imap->capability->{acl} ) {
-
-            $imap->login( $user, $pw ) or die $@;
+        } elsif ( ($imap->login( $user, $pw ) or die $@) and $imap->capability->{acl} ) {
 
             # wenn wir acl verwenden,
             #  * dann triggert 'list' acl file (und damit maildir) erzeugung