[REBOL] Re: initializing system/standard/email
From: gabriele:colellachiara at: 4-Sep-2006 10:46
Hi Tim,
On Sunday, September 3, 2006, 6:07:04 PM, you wrote:
>> I still don't see the bug and I've studied this code
>> before.
TJ> 1)'send needs the 'address and 'message arguments
TJ> 2)with the /header refinement, a header-obj of type
TJ> object! is also required
TJ> The problem occurs when the /header refinement is used
TJ> and the 'to member of the header object is *also* used
TJ> as the 'address argument,
Exactly, but not only that - you don't want what you gave as
header/to cleared in any case. The fix is:
either header-obj/to [
header-obj/to: copy header-obj/to
] [
header-obj/to: tmp: make string! 20
if show [
foreach email address [repend tmp [email ", "]]
clear back back tail tmp
]
]
or, to avoid copying when not necessary, the copy could be done in
the "not only" case.
Regards,
Gabriele.
--
Gabriele Santilli <gabriele-rebol.com> --- http://www.rebol.com/
Colella Chiara software division --- http://www.colellachiara.com/
