packages feed

mime-mail 0.4.13 → 0.4.13.1

raw patch · 4 files changed

+11/−2 lines, 4 filesdep ~basedep ~blaze-builderdep ~bytestring

Dependency ranges changed: base, blaze-builder, bytestring, hspec, mime-mail, text

Files

ChangeLog.md view
@@ -1,3 +1,7 @@+## 0.4.13.1++* Fix [#50](https://github.com/snoyberg/mime-mail/issues/50): space between name and address [#51](https://github.com/snoyberg/mime-mail/pull/51)+ ## 0.4.13  * Sanitize headers to protect against email injection.
Network/Mail/Mime.hs view
@@ -257,7 +257,7 @@ -- Since 0.4.3 showAddress :: Address -> Builder showAddress a = mconcat-    [ maybe mempty ((fromByteString " " <>) . encodedWord) (addressName a)+    [ maybe mempty ((<> fromByteString " ") . encodedWord) (addressName a)     , fromByteString "<"     , fromText (sanitizeHeader $ addressEmail a)     , fromByteString ">"
mime-mail.cabal view
@@ -1,5 +1,5 @@ Name:                mime-mail-Version:             0.4.13+Version:             0.4.13.1 Synopsis:            Compose MIME email messages. description:         Hackage documentation generation is not reliable. For up to date documentation, please see: <http://www.stackage.org/package/mime-mail>. Homepage:            http://github.com/snoyberg/mime-mail
test/Network/Mail/MimeSpec.hs view
@@ -56,6 +56,11 @@                     then True                     else error $ show $ lines' gen +        it "issue #50" $+            let addr = Address (Just "Name_ (is): @hi?") "user@domain.tld"+                enc = "=?utf-8?Q?Name=5F_=28is=29=3A_=40hi=3F?= <user@domain.tld>"+             in renderAddress addr `shouldBe` enc+ lines' :: L8.ByteString -> [L8.ByteString] lines' =     map stripCR . L8.lines