cook: lore no longer allows simple curl access

diff --git a/cook b/cook
index 3a2df82f6eaacb48703500ce2c7cd91ddf646855..18e0195bd2107db6f0b9a3a00ece0956ad91ebeb 100755 (executable)
--- a/cook
+++ b/cook
@@ -100,8 +100,7 @@ sub get_message_parent {
        my @line = ();
        my %irt = ();
 
-       open(my $fh, "-|", qw(curl -s),
-            "https://lore.kernel.org/git/" . "$mid" . "/raw");
+       open(my $fh, "-|", qw(b4 -q mbox --single-message -o-), "$mid");
        while (<$fh>) {
                last if (/^$/);
                chomp;