[REBOL] detach-image: func (was: %detach.r Re:(4))

[RChristiansen]

Here is where I'm at...


detach-image: func [
        "detach an image file from the contents of an email"
        email-contents [string!] "the content of an email"
][
        image-code: copy []
        
        if find/any email-contents {image/jpeg} [
                parse/all email-contents [thru {base64^/^/} copy text to {==} (append 
image-code text)]
        ]

        insert image-code "64#{" append image-code "}"
]


>>img: detach-image msg/content

>>write/binary %img.jpg img

Still does not display an image in a browser and is unreadable by an image 
viewer.

-Ryan