[MACTCL] smtp::sendmessage message part format

[Philip A. <ph...@vc...>]

OS X 10.4.7 / MacIntel

I can send an email message via smtp::sendmessage with the body text  
prepared thusly:

set body [mime::initialize -canonical text/plain -string $text]
set message [mime::initialize -canonical multipart/mixed -parts [list  
$body]]

but when I add an image:

set attfile "/Users/me/Desktop/some.jpg"
set attname [file tail $attfile]
set attachment [mime::initialize -canonical "image/jpg; name= 
\"$attname\"" -file $attfile]
set message [mime::initialize -canonical multipart/mixed -parts [list  
$body $attachment]]

it fails after about 2 minutes or so with the error below. I can't  
figure out what is wrong. The error is the same whether or not - 
usetls is true. So what is the correct way to specify an arbitrary  
attachment such as a .jpg or .zip? Do I have to use other options?


> Sending to ph...@vc...: some.jpg
> can't unset "state(route)": no such element in array
>     while executing
> "unset state($prop) "
>     invoked from within
> "smtp::sendmessage $message \
>         -usetls 0       \
>         -servers $servers       \
>         -header $from   \
>         -header $subject        \
>         -header $date   \
>         -header $to     \
>         -header $id     \
> "
>     (file "./sm.tcl" line 33)


Thanks,

Philip Aker
ph...@vc...