World: r3wp

generate-messageid: does [

    rejoin ["<" enbase checksum/secure random/secure mold system/error 
    "@" server-name ">"]
]

you could randomize the message itself and then checksum it, too

what's the mold system/error for ?

get some (long) text to randomize and then checksum

any random data would do

generate-messageid: func [eml [string!] [

    rejoin ["<" enbase checksum/secure random/secure eml "@" server-name 
    ">"]
]

sort of ..

i think that's good for your purposes.

ok, thanks Gabriele

not sure if any char in base 64 could be a problem as a message id 
char, but i think MTAs do use base64 for message ids so probably 
it's fine.

might be better to restrict myself to the first 1000 chars or so 
in case the eml is megabytes long ..

a: make object! [
    b: 4
    c: 6
]

how to remove element b ?

It's not possible to add or remove values within an object.

You can create a new object based on your object that adds or omits 
values, the latter being trickier.

or you can set b to none ....

construct head remove remove find third a to-set-word 'b

:-)

That would fail under the following circumstance:

a: context [c: to-set-word 'b b: 123]

strange result, I would expect obtaining error here?
>> unset in a 'b
>> probe a

make object! [
    b: unset
    c: 6
]
>> a/b
>>

how to add object e: 7 to a ?

you have to clone the object with the new instance variable

a: make a [ e: 7 ]

ok

how to [ d: 5]
word: "d"
integer : "5"

Lookup 'parse for that one..

parse? why parse? What do you mean, Micha?

what do you want to do?

do [ d: 5 ]

>> d
== 5

>> word: "d"
== "d"
>> integer: 5
== 5
>> set to-set-word word integer
== 5
>> d
== 5

Or did you mean something more like...

foreach [word integer] [a 1 b 2 c 3] [
    print ["Word: " to string! word newline "Integer: " integer]
]

I'm getting a confusing error about using paths on a logic! object 
when trying to use the methods of a created object. I figure I'm 
missing something obvious, but I can't figure out what it is:

test-result: make object! [
    run-count: 0
    error-count: 0

    test-started: does [
        run-count: run-count + 1
    ]

    test-failed: does [
        error-count: error-count + 1
    ]

    summary: does [
        return join  run-count [ " run, " error-count " failed" ]
    ]
]


; ...


            ed: make test-result [ ]
            ed/test-started
            ed/test-failed
            assert [ ed/summary == "1 run, 1 failed" ]

; output of code:

[[wisti-:-us1-dhcp-227-65] xUnit]$ rebol xunit.r
** Script Error: Cannot use path on logic! value
** Where: test-failed-result-formatting
** Near: ed/test-started
ed/test-failed
assert [ed/summary == "1 run, 1 failed"]

The code is just me working my way through the book "Test-Driven 
Development" by Kent Beck. I like applying educational exercises 
to new languages as I find them :-)

Where is 'ed defined?

ed: make test-result [ ]

beginning of the second block

Ah, so it is. ;~>

Hm...  I end up with...

** Script Error: assert has no value
** Near: assert [ed/summary == "1 run, 1 failed"]

So 'ed must be defined somewhere else as well?  Have you tried using 
another word?

Let me make the whole script available. I was hoping it was a very 
simple logic error in those lines.

http://coolnamehere.com/rebol/xunit.r

The "probe result" line at the end is usually "print probe disarm 
result", but I set it back while trying to poke at this issue.

Ahah!

aha? Yes, yes?

A favorite subject of mine. ;-)

heh.

in 'test-case-test, you are redefining 'test-result as a function, 
not globaly so you aren't actually changing the definition but adding 
a new one to the current context.

oh jeez. Thanks :-)