From 87e1211a4bd101bf6909f42eda826711af7066ae Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Thu, 9 May 2019 17:47:19 +0200
Subject: wibble

---
 interimap | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'interimap')

diff --git a/interimap b/interimap
index 454d311..5b1bc63 100755
--- a/interimap
+++ b/interimap
@@ -68,7 +68,7 @@ usage(1) if defined $COMMAND and (defined $CONFIG{watch} or defined $CONFIG{noti
 usage(1) if $CONFIG{target} and !(defined $COMMAND and ($COMMAND eq 'delete' or $COMMAND eq 'rename'));
 $CONFIG{watch} = $CONFIG{notify} ? 900 : 60 if (defined $CONFIG{watch} or $CONFIG{notify}) and !$CONFIG{watch};
 @ARGV = map {uc $_ eq 'INBOX' ? 'INBOX' : $_ } @ARGV; # INBOX is case-insensitive
-die "Invalid mailbox name $_" foreach grep !/\A([\x01-\x7F]+)\z/, @ARGV;
+die "Invalid mailbox name $_" foreach grep !/\A[\x01-\x7F]+\z/, @ARGV;
 
 
 my $CONF = do {
@@ -564,7 +564,7 @@ my $STH_LASTUIDs_LOCAL  = $DBH->prepare(q{SELECT lUID FROM mapping WHERE idx = ?
 my $STH_LASTUIDs_REMOTE = $DBH->prepare(q{SELECT rUID FROM mapping WHERE idx = ? ORDER BY rUID DESC LIMIT 1024});
 
 
-# Download some missing UIDs from $source; returns the thew allocated UIDs
+# Download some missing UIDs from $source; returns the new allocated UIDs
 sub download_missing($$$@) {
     my $idx = shift;
     my $mailbox = shift;
-- 
cgit v1.2.3