xmpp2tox: Cancel status message when appropriate.

1 files changed, 3 insertions, 0 deletions

diff --git a/XMPPToTox.hs b/XMPPToTox.hs
index d4da814c..b3372cfc 100644
--- a/XMPPToTox.hs
+++ b/XMPPToTox.hs
@@ -103,6 +103,9 @@ presenceToTox = tag' "{jabber:server}presence"
     when (not $ USERSTATUS `elem` xs) $ do
         -- Missing <show> element means Available.
         yield $ TwoByte USERSTATUS $ jabberUserStatus Available
+    when (not $ STATUSMESSAGE `elem` xs) $ do
+        -- Missing <status> implies empty status.
+        yield $ UpToN STATUSMESSAGE mempty
 
 unknownToTox :: MonadThrow m =>
                       ConduitM Event CryptoMessage m (Maybe ())