Hello community, here is the log from the commit of package ghc-mime-mail for openSUSE:Factory checked in at 2017-04-14 13:38:23 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-mime-mail (Old) and /work/SRC/openSUSE:Factory/.ghc-mime-mail.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-mime-mail" Fri Apr 14 13:38:23 2017 rev:5 rq:485142 version:0.4.13.1 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-mime-mail/ghc-mime-mail.changes 2017-03-14 10:05:35.332517589 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-mime-mail.new/ghc-mime-mail.changes 2017-04-14 13:38:24.333586997 +0200 @@ -1,0 +2,5 @@ +Tue Mar 14 09:26:28 UTC 2017 - [email protected] + +- Update to version 0.4.13.1 with cabal2obs. + +------------------------------------------------------------------- Old: ---- mime-mail-0.4.13.tar.gz New: ---- mime-mail-0.4.13.1.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-mime-mail.spec ++++++ --- /var/tmp/diff_new_pack.9eTrEt/_old 2017-04-14 13:38:25.193465470 +0200 +++ /var/tmp/diff_new_pack.9eTrEt/_new 2017-04-14 13:38:25.197464905 +0200 @@ -19,7 +19,7 @@ %global pkg_name mime-mail %bcond_with tests Name: ghc-%{pkg_name} -Version: 0.4.13 +Version: 0.4.13.1 Release: 0 Summary: Compose MIME email messages License: MIT ++++++ mime-mail-0.4.13.tar.gz -> mime-mail-0.4.13.1.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/mime-mail-0.4.13/ChangeLog.md new/mime-mail-0.4.13.1/ChangeLog.md --- old/mime-mail-0.4.13/ChangeLog.md 2017-02-07 13:11:08.000000000 +0100 +++ new/mime-mail-0.4.13.1/ChangeLog.md 2017-03-07 05:18:09.000000000 +0100 @@ -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. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/mime-mail-0.4.13/Network/Mail/Mime.hs new/mime-mail-0.4.13.1/Network/Mail/Mime.hs --- old/mime-mail-0.4.13/Network/Mail/Mime.hs 2017-02-07 13:11:08.000000000 +0100 +++ new/mime-mail-0.4.13.1/Network/Mail/Mime.hs 2017-03-07 05:17:36.000000000 +0100 @@ -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 ">" diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/mime-mail-0.4.13/mime-mail.cabal new/mime-mail-0.4.13.1/mime-mail.cabal --- old/mime-mail-0.4.13/mime-mail.cabal 2017-02-07 13:11:08.000000000 +0100 +++ new/mime-mail-0.4.13.1/mime-mail.cabal 2017-03-07 05:18:12.000000000 +0100 @@ -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 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/mime-mail-0.4.13/test/Network/Mail/MimeSpec.hs new/mime-mail-0.4.13.1/test/Network/Mail/MimeSpec.hs --- old/mime-mail-0.4.13/test/Network/Mail/MimeSpec.hs 2015-12-20 06:59:17.000000000 +0100 +++ new/mime-mail-0.4.13.1/test/Network/Mail/MimeSpec.hs 2017-03-07 05:17:36.000000000 +0100 @@ -56,6 +56,11 @@ then True else error $ show $ lines' gen + it "issue #50" $ + let addr = Address (Just "Name_ (is): @hi?") "[email protected]" + enc = "=?utf-8?Q?Name=5F_=28is=29=3A_=40hi=3F?= <[email protected]>" + in renderAddress addr `shouldBe` enc + lines' :: L8.ByteString -> [L8.ByteString] lines' = map stripCR . L8.lines
