mail-uplift more From_ like lines
authorTony Finch <dot@dotat.at>
Fri, 28 Nov 2014 20:48:10 +0000 (20:48 +0000)
committerTony Finch <dot@dotat.at>
Fri, 28 Nov 2014 20:48:10 +0000 (20:48 +0000)
ipreg-mail-uplift

index 22f1be2..b4d7639 100755 (executable)
@@ -8,6 +8,10 @@ use strict;
 sub shite { die "ipreg-mail-uplift: @_: $!\n"; }
 sub shit  { die "ipreg-mail-uplift: @_\n"; }
 
+my $mailbox = qr{^(?:ip-reg/)?(?:inbox|hostmaster|misc|pending|z|
+                  latin-american|mail/support|
+                  ipreg/inbox|pending/ip-reg|ip-reg):\d+}x;
+
 for my $f (<ipreg-mail/Institutions/*>) {
   next unless -f $f;
   next if $f =~ m{\.new$};
@@ -28,7 +32,7 @@ for my $f (<ipreg-mail/Institutions/*>) {
         }{sprintf "From %s %2d %s\n", $1, $2, $3}xe) {
       splice @f, $i++, 0, "\n" if $i > 0 && $f[$i] !~ m{^\n$};
       my $j = $i + 1;
-      $j++ while $f[$j] =~ m{^$|^From |^[(]Message .*[)]$};
+      $j++ while $f[$j] =~ m{^$|^From |^[(]Message $mailbox[)]$|^>>> $mailbox$};
       splice @f, $i + 1, $j - $i - 1;
     } else {
       $f[$i] =~ s{^From }{>From };