module Codec.MIME.String.EncodedWord (base64_encode) where

import Codec.Binary.Base64.String (encode)

base64_encode :: String -> String -> String
base64_encode charset xs = "=?" ++ charset ++ "?B?" ++ encode xs ++ "?="