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?
>
> Take another look at the detach function. It expects the wohle email
> message as text, including all the headers and everything. If you already
> have the imported email object, you should be able to change the top of
> the detach func to look like this:
>
> detach: func [
> {Takes in the whole email text and returns a block of filenames
> and decoded base64 attachments present in the email}
> mail [object!]
> ][
> headers: mail
> print "Starting decoding process..."
> boundary: headers/content-type
>
> .. rest of script...
>
> and then call 'detach msg'
>
> Sterling
>
> > I am trying to detach an attachment (.jpg image) from an e-mail using
> > the script detach.r from the REBOL script library. Unfortunately, I am
> > getting an error, as follows...
> >
> > >> detach msg/content
> > starting decoding process...
> > ** Script Error: find expected series argument of type
> > : series port bitset.
> > ** Where: if boundary: find/tail boundary {boundary="}
> >
> > In the 'msg/content, there is no {boundary="} statement. Instead, there
> > is a {-- Message-Boundary-11825} statement.
> >
> > My question is: Is my Pegasus e-mail client sending some non-standard
> > "boundary" indicator? Is there any way to set this up so that the script
> > will work with most e-mail clients?
> >
> > I can't find any other information in the REBOL docs or examples about
> > detaching e-mail attachments.
> >
> > Thanks. Detailed msg/content and detach.r script information follows...
> >
> > The msg/content looks as follows...
> >
>
> <cut out the rest>
>
