🚀 go-pugleaf

Charles Calvert <cbciv@yahoo.com> wrote:
> I'm using GNU sed 3.02 recompiled for Win32.
>
> I'd like to write a sed script that removes all Received: headers from
> a mail message in a file.  It should work with headers that span 0..N
> lines.  I spent some time searching the web and DejaGoogle today and
> didn't find anything that does what I want or imparted enough of a
> clue for me to figure it out.
>
> I've just started using sed, so if my current attempt looks idiotic,
> that's why.
>
> Here's the script I've written.
>
> /^Received:.*/{
> :START
> d
> n
> /^[[:space:]].*/{b START}
> }
>
> I think that it should do the following:
>
> if matches expression "^Received:.*"
> 	delete the current line
> 	read in the next line
> 	if matches expression "^[[:space:]].*"
> 		go to START
> 	else
> 		output current line
>
> The actual result is that it strips the first line of a multiline
> Received header, but leaves any subsequent lines belonging to that
> header.  I've probably been staring at it too long, but I can't see
> what I'm doing wrongly.

It's easier and more sensible in awk:

FNR == 1 { in_headers = 1 }

in_headers {
    if (/^Received:/) {
        in_received_header = 1
        next       # skip first line of Received: headers
    } else if (in_received_header) {
        if (/^[[:space:]]/) {
            next   # skip second and subsequent lines of Received: headers
        } else {
            in_received_header = 0
        }
    }

    if (! length) {
        in_headers = 0
    }
}

{ print }

Perl has modules for parsing and editing Internet mail.

-- 
Jim Monty
monty@primenet.com
Tempe, Arizona USA