mod_mam_sql: Improve check for empty archive

Avoid counting the messages of an archive to check whether it's empty.

src/mod_mam_sql.erl

@@ -268,15 +268,13 @@ export(_Server) ->
 is_empty_for_user(LUser, LServer) ->
     case ejabberd_sql:sql_query(
 	   LServer,
-	   ?SQL("select @(count(*))d from archive"
+	   ?SQL("select @(1)d from archive"
-                " where username=%(LUser)s and %(LServer)H")) of
+		" where username=%(LUser)s and %(LServer)H limit 1")) of
-		{selected, [{Res}]} ->
+	{selected, [{1}]} ->
-			case Res of
+	    false;
-				0 -> true;
+	_ ->
-				_ -> false
+	    true
-			end;
+    end.
-		_ -> false
-	end.
 
 is_empty_for_room(LServer, LName, LHost) ->
     LUser = jid:encode({LName, LHost, <<>>}),