# HG changeset patch
# User heiko
# Date 1185878797 0
# Node ID 59c7146ec6f0dd6b4d499df0452105a15f968572
# Parent  de9cba81ab3eda54f83782024a68a14806bc2659
- return imap->error()

diff -r de9cba81ab3e -r 59c7146ec6f0 account.pm
--- a/account.pm	Mon Aug 28 16:14:14 2006 +0000
+++ b/account.pm	Tue Jul 31 10:46:37 2007 +0000
@@ -161,9 +161,9 @@
 
 	if ($imap->list($mbox)) { verbose("exists") }
 	else {
-	    $imap->create($mbox) and verbose("ok") or die $@;
-	    $imap->setacl($mbox, $Cf->imap_admin => "lrswipcda") or die $@;
-	    $imap->setquota($mbox, STORAGE => 1024 * $Cf->imap_quota) or die $@;
+	    $imap->create($mbox) and verbose("ok") or die $imap->error();
+	    $imap->setacl($mbox, $Cf->imap_admin => "lrswipcda") or die $imap->error();
+	    $imap->setquota($mbox, STORAGE => 1024 * $Cf->imap_quota) or die $imap->errror();
 	}
     }