diff --git a/System/ExceptionMailer.hs b/System/ExceptionMailer.hs
--- a/System/ExceptionMailer.hs
+++ b/System/ExceptionMailer.hs
@@ -16,7 +16,6 @@
 import Data.String (fromString)
 import Data.Maybe
 import qualified Data.Text.Lazy as LT
-import qualified Data.Text.Lazy.Encoding as LT
 import Control.Exception (SomeException, catch)
 import GHC.Conc (setUncaughtExceptionHandler)
 import Network.Mail.Mime
@@ -70,7 +69,7 @@
 mailError :: Address -> Address -> Maybe String -> String -> IO ()
 mailError from to subj msg = do
   prog <- getProgName
-  m <- simpleMail' from to (fromString $ fromMaybe "Exception Mailer" subj)
+  let m = simpleMail' from to (fromString $ fromMaybe "Exception Mailer" subj)
                  (LT.concat ["Program: ", fromString $ prog ++ "\n"
                             ,"Exception:\n", fromString msg])
   renderSendMail m
@@ -83,16 +82,3 @@
         (\e2 -> errorM exceptionMailerTag $ "Unable to send email : "++show (e2 :: SomeException))
   return ()
 
--- simpleMail' :: Monad m => Address -> Address -> Data.Text.Internal.Text -> LT.Text -> m Mail
-simpleMail' from to subject plainBody =
-    return Mail {
-          mailFrom = from
-        , mailTo   = [to]
-        , mailCc   = []
-        , mailBcc  = []
-        , mailHeaders = [ ("Subject",  subject) ]
-        , mailParts =
-            [[ Part "text/plain; charset=utf-8" QuotedPrintableText Nothing []
-            $ LT.encodeUtf8 plainBody
-            ]]
-        }
diff --git a/exception-mailer.cabal b/exception-mailer.cabal
--- a/exception-mailer.cabal
+++ b/exception-mailer.cabal
@@ -1,5 +1,5 @@
 name:                exception-mailer
-version:             0.3
+version:             0.4
 synopsis:            Catch all runtime exceptions and send an email
 description:         This module is designed to be used in production code when
                      no runtime exceptions are expected.  This module will catch any
@@ -22,7 +22,7 @@
   ghc-options:         -W
   build-depends:       base >=4 && < 5,
                        text,
-                       mime-mail,
+                       mime-mail >= 0.4.4,
                        hslogger
 
 source-repository head