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