From 0ed9a8166df528d403e3ad998e583224947b72ae Mon Sep 17 00:00:00 2001 From: Thomas Hochstein Date: Sat, 20 May 2023 15:32:12 +0200 Subject: [PATCH] filter_innd: Correctly read folded headers. Signed-off-by: Thomas Hochstein --- filter/cleanfeed.local | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/filter/cleanfeed.local b/filter/cleanfeed.local index 3d37c7d..ef678c1 100644 --- a/filter/cleanfeed.local +++ b/filter/cleanfeed.local @@ -1,4 +1,4 @@ -# vim: set syntax=perl ts=4 ai si: +# vim: set tabstop=4 shiftwidth=4 expandtab syntax=perl: use MIME::Base64(); use Digest::SHA(); @@ -36,10 +36,13 @@ sub verify_cancel($$$) { for my $line(split(/\s*\n/, $headers)) { if ($line =~ m/^([[:alnum:]-]+):\s+(.*)/) { $headers{$1} = $2; + $lastkey = $1; + } elsif ($line =~ m/^\s+(.*)/ and defined($lastkey)) { + $headers{$lastkey} .= ' ' . $1; } } - my $lock = $headers{'Cancel-Lock'}; + if (defined($lock)) { my $key = $r_hdr->{'Cancel-Key'} || return "$descr of $target without Cancel-Key"; #return verify_cancel_key($key, $lock, ' target=' . $target); -- 2.20.1