1 files changed, 4 insertions(+), 3 deletions(-)

M gateway.hs

@@ 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 ::