save-mime-part ( multipart -- )

Vocabulary

mime.multipart

Inputs

multipart

an object

Outputs

None

Definition

USING: accessors assocs kernel quoting ;

IN: mime.multipart

: save-mime-part ( multipart -- )
    dup name>> empty-name?
    [ drop ] [
        [ name-content>> ] [ name>> unquote ]
        [ mime-parts>> set-at ] tri
    ] if ;