wibble

diff --git a/imapsync b/imapsync
index 657050def4711cfa92f69f3eb69fbc9173f2480a..396b355764e650afb5baaf7e93f08ecd7475d679 100755 (executable)
--- a/imapsync
+++ b/imapsync
@@ -406,7 +406,7 @@ sub sync_tree($$%) {
         my %mailboxes;
         $mailboxes{$_} = 1 foreach (keys %{$IMAP->{local}->{mailboxes}}, keys %{$IMAP->{remote}->{mailboxes}});
         foreach my $mbx (keys %mailboxes) {
-            die "Could not sync mailbox list.\n" if exists_mbx('local',$mbx) xor exists_mbx('remote',$mbx);
+            die "Couldn't sync mailbox list.\n" if exists_mbx('local',$mbx) xor exists_mbx('remote',$mbx);
         }
     }
 }
@@ -531,8 +531,7 @@ my $STH_GET_LOCAL_UID  = $DBH->prepare(q{SELECT lUID FROM mapping WHERE idx = ?
 my $STH_GET_REMOTE_UID = $DBH->prepare(q{SELECT rUID FROM mapping WHERE idx = ? and lUID = ?});
 
 # Delete a (idx,lUID,rUID) association.
-# /!\ Don't commit before the messages have actually been EXPUNGEd on
-#     both sides!
+# /!\ Don't commit before the messages have actually been EXPUNGEd on both sides!
 my $STH_DELETE_MAPPING = $DBH->prepare(q{DELETE FROM mapping WHERE idx = ? and lUID = ?});
 
 # Update the HIGHESTMODSEQ.

diff --git a/lib/Net/IMAP/Sync.pm b/lib/Net/IMAP/Sync.pm
index 9882d757a9f80a02968bc10f2b89d68bc8bad326..be083f3f0facb474e9f6d6e648a632df47182ff1 100644 (file)
--- a/lib/Net/IMAP/Sync.pm
+++ b/lib/Net/IMAP/Sync.pm
@@ -376,7 +376,7 @@ sub new($%) {
         $self->fail("Server did not advertize ENABLE (RFC 5161) capability.") unless $self->_capable('ENABLE');
         $self->_send('ENABLE '.join(' ',@extensions));
         my @enabled = @{$self->{_ENABLED} // []};
-        $self->fail("Could not ENABLE $_") foreach
+        $self->fail("Couldn't ENABLE $_") foreach
             grep {my $e = $_; !grep {uc $e eq uc $_} @enabled} @extensions;
     }
 
@@ -602,7 +602,7 @@ sub remove_message($@) {
 
     $self->log("Removed ".($#expunged+1)." message(s), ".
                "UID ".compact_set(@expunged)) if @expunged and !$self->{quiet};
-    $self->warn("Could not UID EXPUNGE ".compact_set(@failed)) if @failed;
+    $self->warn("Couldn't UID EXPUNGE ".compact_set(@failed)) if @failed;
     return @failed;
 }