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

don't crash on new chat

Browse source
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))) (warn "None of ~A's resources were joined to group ~A to receive message ~A!" jid group-localpart msg-id)))
(progn (progn
(warn "No chat in database for group ~A for ~A -- creating" group-localpart jid) (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))))) (t nil)))))
(defun wa-handle-message (comp conn jid msg delivery-type) (defun wa-handle-message (comp conn jid msg delivery-type)