~singpolyma/cheogram-smtp

7aa9b1a1d95c37288c322c8b5c665a412cb7a5da — Stephen Paul Weber 1 year, 9 months ago 324aca7
Fix for new purebred-email
1 files changed, 4 insertions(+), 3 deletions(-)

M gateway.hs
M gateway.hs => gateway.hs +4 -3
@@ 94,10 94,11 @@ addVCardData :: VCard -> MIME.MIMEMessage -> MIME.MIMEMessage
addVCardData vcard =
	set (MIME.headers . at (s"X-URL"))
		(MIME.encodeEncodedWords <$> headZ (url vcard)) .
	over (MIME.headerFrom MIME.defaultCharsets) (map
		(\(MIME.Mailbox name addr) ->
	over (MIME.headerFrom MIME.defaultCharsets) (concatMap
		(map (\(MIME.Mailbox name addr) ->
			MIME.Single $
			MIME.Mailbox (nickname vcard <|> fn vcard <|> name) addr
		)
		) . addressMailboxes)
	)

fetchAndAddVCardData ::