a3x/whatsxmpp
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

fix forward page detection

Browse source
This commit is contained in:
eta 2020-09-28 10:25:54 +01:00
parent c36d61687a
commit 7e306420e6
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
stuff.lisp
View file

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