From a57c694f218294812f9c228f4713d66c777c1e00 Mon Sep 17 00:00:00 2001
From: Evgeniy Khramtsov <ekhramtsov@process-one.net>
Date: Fri, 24 Nov 2017 09:45:22 +0300
Subject: [PATCH] Fix SQL serialization

The regression is introduced in 11829906ac5a3145b862bd1bc55a088c1ad4fafb
Fixes #2121
---
 src/mod_muc.erl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mod_muc.erl b/src/mod_muc.erl
index f7d5303fb..5b538973e 100644
--- a/src/mod_muc.erl
+++ b/src/mod_muc.erl
@@ -822,7 +822,7 @@ opts_to_binary(Opts) ->
               {description, iolist_to_binary(Desc)};
          ({password, Pass}) ->
               {password, iolist_to_binary(Pass)};
-         ({subject, Subj}) ->
+         ({subject, [C|_] = Subj}) when is_integer(C), C >= 0, C =< 255 ->
               {subject, iolist_to_binary(Subj)};
          ({subject_author, Author}) ->
               {subject_author, iolist_to_binary(Author)};