fix forward page detection

This commit is contained in:
eta 2020-09-28 10:25:54 +01:00
parent c36d61687a
commit 7e306420e6

View file

@ -312,7 +312,7 @@ WhatsXMPP represents users as u440123456789 and groups as g1234-5678."
:reference-stanza-id (or
(whatscl::cassoc :after query-params)
(whatscl::cassoc :before query-params))
:forward-page (whatscl::cassoc :after query-params))
:forward-page (assoc :after query-params))
(format *debug-io* "~&MAM query for ~A returned ~A messages (complete: ~A)" from (length messages) completep)
(loop
for msg in messages