Hmmm... well, it got all the attachment parts but blew out right at
the end.
Try changing:
if find/match body "--" [print "breaking... attachents finished" break] ;
we're at the end of the message attachments
to:
if any [find/match body "--" not fimd headers/content "^/--"] [print
"breaking... attachents finished" break] ; we're at the end of the message attachments
That way, it should gracefully exit if it either finds the proper end
marker or if it can't find another attachment.
Sterling
> Doing as you said overcame the problem of the function looking for a string!
> instead of an object!
>
> But...
>
> >> detach msg
> starting decoding process...
> == none
>
> Then I had to change
>
> if boundary: find/tail boundary {boundary="}
>
> to
>
> if boundary: find/tail boundary {boundary=}
>
> Then...
>
> >> do %detach.r
> Script: "Save email attachments to disk" (9-Jun-1999)
> >> detach msg
> starting decoding process...
> Boundary string: Message-Boundary-1182
> Found message attachment; remaining length: 6451
> Found message attachment; remaining length: 6309
> Found message attachment; remaining length: 5687
> Found message attachment; remaining length: 5
> ** Script Error: copy expected range argument of type: number series
> port.
> ** Where: file: copy/part headers/content find body:
> >>
>
> Again, is the {boundary=} statement sent by Pegasus causing problems?
>
