my ($self, $ifmt, $fh, $name, @args) = @_;
if ($ifmt eq 'eml') {
my $buf = do { local $/; <$fh> } //
my ($self, $ifmt, $fh, $name, @args) = @_;
if ($ifmt eq 'eml') {
my $buf = do { local $/; <$fh> } //
sub bad_http ($$;$) {
my ($lei, $url, $alt) = @_;
my $x = $alt ? "did you mean <$alt>?" : 'download and import manually';
sub bad_http ($$;$) {
my ($lei, $url, $alt) = @_;
my $x = $alt ? "did you mean <$alt>?" : 'download and import manually';
- return $lei->fail("Unable to handle $input");
+ my $m = "Unable to handle $input";
+ $input =~ /\A(?:L|kw):/ and
+ $m .= ", did you mean +$input?";
+ return $lei->fail($m);
}
} elsif ($input =~ /\.(?:eml|patch)\z/i && -f $input) {
lc($in_fmt//'eml') eq 'eml' or return $lei->fail(<<"");
}
} elsif ($input =~ /\.(?:eml|patch)\z/i && -f $input) {
lc($in_fmt//'eml') eq 'eml' or return $lei->fail(<<"");
# start watching Maildirs ASAP
if ($may_sync && $lei->{sto}) {
grep(!m!\Amaildir:/!i, @md) and die "BUG: @md (no pfx)";
# start watching Maildirs ASAP
if ($may_sync && $lei->{sto}) {
grep(!m!\Amaildir:/!i, @md) and die "BUG: @md (no pfx)";