decode-email-body ( parsed-email body -- parsed-email )


Vocabulary
imap

Inputs
parsed-emailan object
bodyan object


Outputs
parsed-emailan object


Definition
USING: accessors base64 combinators io.encodings.string
io.encodings.utf8 kernel ;

IN: imap

: decode-email-body ( parsed-email body -- parsed-email )
over content-transfer-encoding>> {
{ "base64" [ base64> utf8 decode >>decoded-body ] }
[ drop >>decoded-body ]
} case ;