- 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;