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

don't crash on new chat

This commit is contained in:
eta 2020-04-27 15:14:53 +01:00
parent 401ec20930
commit 93e8e3aca3
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
stuff.lisp
View File

@ -967,7 +967,8 @@ WhatsXMPP represents users as u440123456789 and groups as g1234-5678."
(warn "None of ~A's resources were joined to group ~A to receive message ~A!" jid group-localpart msg-id)))
(progn
(warn "No chat in database for group ~A for ~A -- creating" group-localpart jid)
(add-wa-chat comp conn jid (whatscl::key-jid key))))))
(add-wa-chat comp conn jid (whatscl::key-jid key))
(return)))))
(t nil)))))
(defun wa-handle-message (comp conn jid msg delivery-type)