diff options
author | Eric Wong (Contractor, The Linux Foundation) <e@80x24.org> | 2018-04-05 09:34:11 +0000 |
---|---|---|
committer | Eric Wong (Contractor, The Linux Foundation) <e@80x24.org> | 2018-04-05 10:27:13 +0000 |
commit | 56489ee40e44255f2f9a00cd608bc366d2586306 (patch) | |
tree | f4275dea838b33d3ab2e968e589db5872eb510c1 /lib/PublicInbox/Filter | |
parent | 3dcb03ef3ec06ad0f0335973df405ec8d041abee (diff) | |
download | public-inbox-56489ee40e44255f2f9a00cd608bc366d2586306.tar.gz |
There's enough gmane links out there in wild that it makes sense to maintain support for these mappings.
Diffstat (limited to 'lib/PublicInbox/Filter')
-rw-r--r-- | lib/PublicInbox/Filter/RubyLang.pm | 22 |
1 files changed, 15 insertions, 7 deletions
diff --git a/lib/PublicInbox/Filter/RubyLang.pm b/lib/PublicInbox/Filter/RubyLang.pm index 63e8d422..cb69e38a 100644 --- a/lib/PublicInbox/Filter/RubyLang.pm +++ b/lib/PublicInbox/Filter/RubyLang.pm @@ -6,6 +6,7 @@ package PublicInbox::Filter::RubyLang; use base qw(PublicInbox::Filter::Base); use strict; use warnings; +use PublicInbox::MID qw(mids); my $l1 = qr/Unsubscribe:\s <mailto:ruby-\w+-request\@ruby-lang\.org\?subject=unsubscribe>/x; @@ -44,16 +45,23 @@ sub scrub { my $altid = $self->{-altid}; if ($altid) { my $hdr = $mime->header_obj; - my $mid = $hdr->header_raw('Message-ID'); - unless (defined $mid) { - return $self->REJECT('Message-Id missing'); + my $mids = mids($hdr); + return $self->REJECT('Message-ID missing') unless (@$mids); + my @v = $hdr->header_raw('X-Mail-Count'); + my $n; + foreach (@v) { + /\A\s*(\d+)\s*\z/ or next; + $n = $1; + last; } - my $n = $hdr->header_raw('X-Mail-Count'); - if (!defined($n) || $n !~ /\A\s*\d+\s*\z/) { + unless (defined $n) { return $self->REJECT('X-Mail-Count not numeric'); } - $mid = PublicInbox::MID::mid_clean($mid); - $altid->{mm_alt}->mid_set($n, $mid); + foreach my $mid (@$mids) { + my $r = $altid->mm_alt->mid_set($n, $mid); + next if $r == 0; + last; + } } $self->ACCEPT($mime); } |