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

fix the whatsxmpp admin user thing

Browse source
This commit is contained in:
eta 2020-04-21 09:09:40 +01:00
parent 39001728b3
commit 08b8ac8334
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
stuff.lisp
View file

@ -1594,10 +1594,10 @@ Returns three values: avatar data (as two values), and a generalized boolean spe
:type "subscribe" :type "subscribe"
:from (admin-jid comp)) :from (admin-jid comp))
(cxml:with-element "status" (cxml:with-element "status"
(cxml:text "Please add the whatsxmpp admin user to your roster; if you don't, things will probably break in various fun ways.") (cxml:text "Please add the whatsxmpp admin user to your roster; if you don't, things will probably break in various fun ways."))
(cxml:with-element "nick" (cxml:with-element "nick"
(cxml:attribute "xmlns" +nick-ns+) (cxml:attribute "xmlns" +nick-ns+)
(cxml:text "whatsxmpp admin")))) (cxml:text "whatsxmpp admin")))
(admin-msg comp jid "WhatsApp connection should begin shortly...") (admin-msg comp jid "WhatsApp connection should begin shortly...")
(handle-setup-user comp stripped)))) (handle-setup-user comp stripped))))