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

fix borked XEP-0363

This commit is contained in:
eta 2021-06-01 16:54:20 +01:00
parent e7b27f39f0
commit 8ef02aec12
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
xep-0363.lisp
View File

@ -26,6 +26,6 @@
(when (equal name "header") (when (equal name "header")
(setf headers (cons (setf headers (cons
(cons (dom:get-attribute node "name") (cons (dom:get-attribute node "name")
(dom:node-value (elt (child-elements node) 0))) (get-node-text node))
headers))))) headers)))))
`((,(dom:get-attribute put-node "url") . ,headers) ,(dom:get-attribute get-node "url"))))))) `((,(dom:get-attribute put-node "url") . ,headers) ,(dom:get-attribute get-node "url")))))))