[REBOL] Re: pop problems
From: brett:codeconscious at: 18-Oct-2002 14:56
I've asked Graham to check out my theory. In the meantime this I what I
reckon - the POP scheme can't handle a line length greater than 4093. Here's
a little view program for those interested to test the idea:
Regards,
Brett.
REBOL [
Author: "Brett Handley"
Date: 18-Oct-2002
Purpose: "To test email lengths."
]
;
; It appears we are hitting a 4096 byte limit - like HTTP post problem.
;
; 4094 for a line length is not ok, 4093 is.
send-message: does [
if not all [
not error? try [address: first to-block msg-email/text]
email? :address
not error? try [message-length: first to-block msg-len/text]
integer? :message-length
] [request/ok "Invalid data." return]
address: to-email msg-email/text
header: make system/standard/email [
Subject: {An email REBOL can't read.}
]
message: head insert/dup make string! 10000 "X" message-length
send/header address message header
]
view layout [
across
label "Message length [integer!]:" tab
msg-len: field "4094" return
label "Email address [email!]:" tab
msg-email: field form system/user/email return
button "Send message" [send-message]
]