mail-uplift >From hack
authorTony Finch <dot@dotat.at>
Fri, 28 Nov 2014 20:18:23 +0000 (20:18 +0000)
committerTony Finch <dot@dotat.at>
Fri, 28 Nov 2014 20:18:23 +0000 (20:18 +0000)
ipreg-mail-uplift

index 1e70fd8..fc32729 100755 (executable)
@@ -16,6 +16,7 @@ for my $f (<ipreg-mail/Institutions/*>) {
     or shite "open < $f";
   my @f = <$in>;
   for (my $i = 0; $i < @f; $i++) {
+    next if $f[$i] =~ s{^From }{>From };
     next unless $f[$i] =~ s{
       ^[+][+][+]\s+
       ([a-z]+[0-9]*[ ] # user