From 869826c8186882c5344a36c77429ac6c50e80a03 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Mon, 16 Dec 2019 10:38:53 +0100
Subject: [PATCH] Fix mod_muc_log skipping non-Latin messages (thanks to
 Yandrey)(#3115)

---
 src/mod_muc_log.erl | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/src/mod_muc_log.erl b/src/mod_muc_log.erl
index 08498869f..b37f7cc7d 100644
--- a/src/mod_muc_log.erl
+++ b/src/mod_muc_log.erl
@@ -440,12 +440,10 @@ add_message_to_log(Nick1, Message, RoomJID, Opts,
     {_, _, Microsecs} = Now,
     STimeUnique = io_lib:format("~ts.~w",
 				[STime, Microsecs]),
-    catch fw(F,
-       list_to_binary(
-         io_lib:format("<a id=\"~ts\" name=\"~ts\" href=\"#~ts\" "
+    fw(F, io_lib:format("<a id=\"~ts\" name=\"~ts\" href=\"#~ts\" "
                        "class=\"ts\">[~ts]</a> ",
                        [STimeUnique, STimeUnique, STimeUnique, STime])
-	 ++ Text),
+	 ++ Text,
        FileFormat),
     file:close(F),
     ok.
@@ -529,7 +527,7 @@ fw(F, S, FileFormat) when is_atom(FileFormat) ->
     fw(F, S, [], FileFormat).
 
 fw(F, S, O, FileFormat) ->
-    S1 = (str:format(binary_to_list(S) ++ "~n", O)),
+    S1 = <<(str:format(S, O))/binary, "\n">>,
     S2 = case FileFormat of
 	     html ->
 		 S1;