message-id ( -- string )

Vocabulary

smtp.private

Inputs

None

Outputs

string

an object

Definition

USING: accessors calendar io.sockets kernel make math.parser
namespaces random smtp ;

IN: smtp.private

: message-id ( -- string )
    [
        "<" % 64 random-bits # "-" % now timestamp>micros #
        "@" % smtp-config get domain>> [ host-name ] unless* %
        ">" %
    ] "" make ;