From 746e82b0f6b436d9503c34e47684a46cb004d59e Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Sun, 14 Jun 2009 20:27:13 +0000
Subject: [PATCH]  * fix deletemailbox

---
 deletemailbox | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/deletemailbox b/deletemailbox
index a9b4233..9491d48 100755
--- a/deletemailbox
+++ b/deletemailbox
@@ -82,25 +82,25 @@ $DEBUG = $options{debug};
 for my $mbox (@ARGV) {
      # Delete ~/.offlineimap/Repository-{Local,Remote}Lists/FolderValidity/mbox
      # initialcaps account needed for the account name
-     my $cmd = qq(rm -f $options{offlineimap}/Repository-Local).
+     my @cmd = ('rm','-f',qq($options{offlineimap}/Repository-Local).
 	  ucfirst($options{account}).
-	       qq(/FolderValidity/$mbox;\n);
-     print $cmd;
-     qx($cmd);
-     $cmd = qq(rm -f $options{offlineimap}/Repository-Remote).
+	       qq(/FolderValidity/$mbox));
+     print join(' ',@cmd);
+     system @cmd;
+     @cmd = ('rm','-f',qq($options{offlineimap}/Repository-Remote).
 	  ucfirst($options{account}).
-	       qq(/FolderValidity/$options{account}.$mbox;\n);
-     print $cmd;
-     qx($cmd);
+	       qq(/FolderValidity/$options{account}.$mbox));
+     print join(' ',@cmd);
+     system @cmd;
      # Delete ~/.offlineimap/Account-Lists/mbox
-     $cmd =  qq(rm -f $options{offlineimap}/Account-).ucfirst($options{account}).
-	  qq(/LocalStatus/$mbox;\n);
-     print $cmd;
-     qx($cmd);
+     @cmd = ('rm','-fr',qq($options{offlineimap}/Account-).ucfirst($options{account}).
+	     qq(/LocalStatus/$mbox));
+     print join(' ',@cmd);
+     system @cmd;
      # Delete ~/Mail/mbox
-     $cmd = qq(rm -rf $options{maildir}/$options{account}/$mbox;\n);
-     print $cmd;
-     qx($cmd);
+     @cmd = ('rm','-fr',qq($options{maildir}/$options{account}/$mbox));
+     print join(' ',@cmd);
+     system @cmd;
 }
 
 
-- 
2.39.5