From c550d365816b3652c4070862b35207aa4797e86a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Pawe=C5=82=20Chmielowski?= <pchmielowski@process-one.net>
Date: Mon, 29 Apr 2019 16:37:21 +0200
Subject: [PATCH] Properly handle infinity as max number of message in mam
 offline storage

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

diff --git a/src/mod_offline.erl b/src/mod_offline.erl
index 2906b2717..ae4840c9d 100644
--- a/src/mod_offline.erl
+++ b/src/mod_offline.erl
@@ -793,8 +793,9 @@ read_mam_messages(LUser, LServer, ReadMsgs) ->
 		      ExtraMsgs;
 		  _ ->
 		      MaxOfflineMsgs = case get_max_user_messages(LUser, LServer) of
-					   Number when is_integer(Number) -> Number;
-					   _ -> 100
+					   Number when is_integer(Number) -> Number - length(ExtraMsgs);
+					   infinity -> undefined;
+					   _ -> 100 - length(ExtraMsgs)
 				       end,
 		      JID = jid:make(LUser, LServer, <<>>),
 		      {MamMsgs, _, _} = mod_mam:select(LServer, JID, JID,