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

oops, don't break photos

Browse source
This commit is contained in:
eta 2020-04-07 14:45:53 +01:00
parent 9d02fb6050
commit bdc817a068
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
stuff.lisp
View file

@ -1035,6 +1035,7 @@ Returns three values: avatar data (as two values), and a generalized boolean spe
(defun get-contact-status (uid localpart) (defun get-contact-status (uid localpart)
"Get the contact status text for LOCALPART, a possible contact for the user with ID UID." "Get the contact status text for LOCALPART, a possible contact for the user with ID UID."
(declare (type integer uid) (type string localpart))
(with-prepared-statements (with-prepared-statements
((get-stmt "SELECT status FROM user_contacts WHERE user_id = ? AND wa_jid = ?")) ((get-stmt "SELECT status FROM user_contacts WHERE user_id = ? AND wa_jid = ?"))
(bind-parameters get-stmt uid localpart) (bind-parameters get-stmt uid localpart)
@ -1069,9 +1070,9 @@ Returns three values: avatar data (as two values), and a generalized boolean spe
(cxml:with-element "x" (cxml:with-element "x"
(cxml:attribute "xmlns" +vcard-avatar-ns+) (cxml:attribute "xmlns" +vcard-avatar-ns+)
(if avatar-sha1 (if avatar-sha1
(cxml:with-element "photo")
(cxml:with-element "photo" (cxml:with-element "photo"
(cxml:text avatar-sha1))))) (cxml:text avatar-sha1))
(cxml:with-element "photo"))))
(progn (progn
(unless noretry (unless noretry
(unless avatar-sha1 (unless avatar-sha1