append-mail ( mailbox flags date-time mail -- uid/f )
IMAP library

Prev:	copy-mails ( uids mailbox -- )
Next:	store-mail ( uids command flags -- mail-flags )

Vocabulary
imap

Inputs

mailbox	a string
flags	a string
date-time	a timestamp
mail	a string

Outputs

uid/f

UID of the mail if the server supports UIDPLUS, f otherwise

Word description
Appends a mail to the specified folder.

Definition

USING: formatting imap.private io.encodings.string
io.encodings.utf8 kernel sequences ;

IN: imap

: append-mail ( mailbox flags date-time mail -- uid/f )
    [
        [ >utf7imap4 ] [ [ "" ] [ " " append ] if-empty ]
        [ timestamp>internal-date ] tri*
        "APPEND \"%s\" %s\"%s\"" sprintf
    ] dip utf8 encode command-response parse-append-mail ;