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 {
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;
[Unit]
Description=Fast bidirectional synchronization for QRESYNC-capable IMAP servers
+Documentation=man:interimap(1)
Wants=network-online.target
After=network-online.target
[Unit]
-Description=Pull mails from an IMAP mailbox and deliver them to a SMTP session
+Description=Pull mails from an IMAP mailbox and deliver them to a SMTP session (instance %i)
+Documentation=man:pullimap(1)
Wants=network-online.target
After=network-online.target