On 9 Sep, D E Hammond wrote:
This might do it for Volker.
[...]
:0 fhw
|perl -ne 'if(/^Kuhlmann:/){$buf=$_;$line=<>;if($line!~/^\S+:/){chomp$buf;' \
-e '$tmp=$buf.$line;next if $tmp=~/, but dump this crap/;' \
-e 'print$buf,"\n",$line;next;}print$buf,$line;}print;'
/\
Looking at this again, I think there should be "next;" || here.
Otherwise it seems like the final print would double print the first
line of a non-matching Kuhlmann: header. Except it doesn't. The
results are the same with or without it.
I'm too tired to figure it out (but no headache, David), and am off
to bed. (Plus the original message is getting a TEMPFAIL from the
list so I don't even know if/when it'll be accepted. This seems to
happen a LOT with the procmail list.)
Don
--
Email address in From: header is valid * but only for a couple of days *
This is my reluctant response to spammers' unrelenting address harvesting
____________________________________________________________
procmail mailing list Procmail homepage: http://www.procmail.org/
procmail(_at_)lists(_dot_)RWTH-Aachen(_dot_)DE
http://MailMan.RWTH-Aachen.DE/mailman/listinfo/procmail