Code:

----------------------------------------------
set chan [pop3::open -socketcmd tls::socket server.com user password]

set popuidl [::pop3::uidl $chan]
if {[llength $popuidl] == 0} {
puts "nothing"
exit
} puts $popuidl
set popcount [expr [llength $popuidl] / 2]
if {$popcount == 1} {puts "$popcount message\n"}
if {$popcount > 1} {puts "$popcount messages\n"}

set fp [open /path/to/file.txt "a"]
foreach i [seq 1 1 $popcount] {
set popmsg [::pop3::top $chan $i 1000]
array set ::messages "$i $popmsg"
puts $fp "popcheck begin"
puts $fp $popmsg
puts [llength $popmsg]
puts $fp "popcheck end"
} close $fp

parray ::messages
----------------------------------------------

Note: seq is a proc. With 3 messages,
[seq 1 1 $popcount] returns "1 2 3". It's a home-brewn
Tcl version of the Unix shell command.

Two problems, or rather the same problem twice.
I keep getting this error:

----------------------------------------------
list element in braces followed by "p" instead of space
while executing
"array set ::messages "$i $popmsg""
("foreach" body line 3)
invoked from within
"foreach i [seq 1 1 $popcount] {
set popmsg [::pop3::top $chan $i 1000]
array set ::messages "$i $popmsg"
puts $fp "popcheck begin"
puts $fp $pop..."
(file "checkmail.tcl" line 19)
Compilation failed.
----------------------------------------------

By elimination, I see that two lines cause the error:

array set ::messages "$i $popmsg"

puts [llength $popmsg]

If I remove the first line, the second one triggers the
exact same error.

Why?

Note that 'puts $fp $popmsg' correctly appends the
entire header and message to /path/to/file.txt.

--
Luc
>>

Luc <no@no.no> wrote:
> Code:
> set fp [open /path/to/file.txt "a"]
> foreach i [seq 1 1 $popcount] {
> set popmsg [::pop3::top $chan $i 1000]
> array set ::messages "$i $popmsg"
> puts $fp "popcheck begin"
> puts $fp $popmsg
> puts [llength $popmsg]
> puts $fp "popcheck end"
>
> Two problems, or rather the same problem twice.
> I keep getting this error:
>
> ----------------------------------------------
> list element in braces followed by "p" instead of space
> while executing
> "array set ::messages "$i $popmsg""
> ("foreach" body line 3)
> invoked from within
> "foreach i [seq 1 1 $popcount] {
> set popmsg [::pop3::top $chan $i 1000]
> array set ::messages "$i $popmsg"
> puts $fp "popcheck begin"
> puts $fp $pop..."
> (file "checkmail.tcl" line 19)
> Compilation failed.
> ----------------------------------------------
>
> Why?

Array set expects as its second argument a list. You are handing it a
string comprised of the concatenation of $i and the contents of
$popmsg. When you use a string in a context that expects a list, Tcl
attempts to convert that string into a list -- but if the string
contains the wrong special characters in the wrong places, that
conversion into a list fails with exactly this error.

You want to do this for your array set:

array set ::messages [list $i $popmsg]

Then, array set receives a proper list, containing two elements, and
Tcl will not try to convert the contents of the $popmsg string into a
list.

On Tuesday, January 17, 2023 at 4:40:42 AM UTC+1, Rich wrote:
> Luc wrote:
> > Code:
> > [...]
> >
> > Why?
>
> [...]
>
> You want to do this for your array set:
>
> array set ::messages [list $i $popmsg]

.... which should be the same as "set ::messages($i) $popmsg" to state the obvious.