[REBOL] Re: pop problems
From: gchiu:compkarori at: 17-Oct-2002 8:33
>I'm gonna have to wait till I hit another message I can't
>download to test this out. I had another one like this
>last week, and I just deleted it from the pop server so I
>could download all the other messages. For reference,
>this troublesome message was 16674 octets long.
Well, I'm stuck again. I can't retrieve message 3 from my
pop server. Here's the session:
>> rebol/version
== 1.0.2.3.1
>> mailbox: open pop://userid:[password--pop--isp]
>> probe mailbox/locals
make object! [
total-size: 1046586
sizes: [1 2357
2 7735
3 14992
4 2475
5 5430
6 4813
7 6487
8 2445
9 835
10 21810
11 2974
12 5832
13 2518
(escape)
>> eml: pick mailbox 2
reading messageno 2 size: 7736
== {Return-Path:
<sentto-93429-30506-1034776780-gchiu=[compkarori--co--nz--returns--groups--yahoo--com]>
Received: from n35.grp.scd.yahoo.c...
>> eml: pick mailbox 5
reading messageno 5 size: 5431
== {Return-Path:
<sentto-93429-30507-1034777182-gchiu=[compkarori--co--nz--returns--groups--yahoo--com]>
Received: from n18.grp.scd.yahoo.c...
>> eml: pick mailbox 3
reading messageno 3 size: 14993
Got none .. aborting
== {Return-Path:
<sentto-93429-30505-1034776706-gchiu=[compkarori--co--nz--returns--groups--yahoo--com]>
Received: from n33.grp.scd.yahoo.c...
>> eml: pick mailbox 2
reading messageno 2 size: 7736
** User Error: Server error: tcp connection failed
** Near: eml: pick mailbox 2
>>
I tracked the problem down to
read-til-dot: func [port buf][
while [(line: system/words/pick port/sub-port 1) <>
.
] [
if none? line [ print "Got none .. aborting" break
]
insert tail buf line
insert tail buf newline
]
buf
]
where /pick port 1 returns none ... and keeps returning
none in an endless loop.
I put the above trap in the function, but then get a tcp
error, as can be seen when I then do
pick mailbox 2
Does anyone knowledgeable in matters Rebol tcp have a work
round for me?
--
Graham Chiu
