variation when running a script

[newtop...@yahoo.com]

Hello,

I have written a script to send a plain text message to my yahoo email
address. This works on my WinXP desktop which has Active Tcl 8.4.14
and tcllib1.8. However, the same script does not work on a WinXP
laptop which has ActiveTcl 8.4.17 with tcllib1.10. I have upgraded
and downgraded both Tcl and Tcllib versions individually on the laptop
to get it to work but with no success.

"set errorInfo" returns this:

key message-id not in header
while executing
"error "key $mixed not in header""
("default" arm line 5)
invoked from within
"switch -- $key {
"" {
set result ""
foreach lower $state(lowerL) mixed $state(mixedL) {
lappend result..."
(procedure "::mime::getheader" line 7)
invoked from within
"::mime::getheader $part ${message-idL} "

I then used the -debug 1 option to see where it gets stuck. I get the
following output (I munged the smtp server name at yahoo):

Trying xyz.yahoo.com...
... read from server timed out ...
... read from server timed out ...

The lines with "... read" are printed several minutes after the first
line.

Any idea what is going on here? The laptop is connected to the
internet so perhaps there is some sort of security setting preventing
the connection?

[dave.j...@googlemail.com]

Have you conducted a 'telnet xyz.yahoo.com 25' test on the laptop to
separate any networking issues from any script issues ? Can you show
us the smtp conversation up to the point it fails ?

Dave