;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\302\303!\210\302\304!\210\302\305!\210\306\307B\211 \235\203 \210\202 B)\302\207" [#:x jabber-jid-info-menu require jabber-iq jabber-xml jabber-util "Send browse query" jabber-get-browse] 3) #@44 send a browse infoquery request to someone (defalias 'jabber-get-browse #[(jc to) "\302 \303\304\305\306\305\307&\207" [jc to jabber-send-iq "get" (query ((xmlns . "jabber:iq:browse"))) jabber-process-data jabber-process-browse "Browse failed"] 9 (#$ . 298) (list (jabber-read-account) (jabber-read-jid-completing "browse: " nil nil nil nil t))]) #@48 Handle results from jabber:iq:browse requests. (defalias 'jabber-process-browse #[(jc xml-data) "\211AA\211\306\232?\205\n*\307\211\205\255\f@\211<\203\245 \211<\205' @)\310=\204\245 \311\211:\205:\312 \"*`$ \211<\205I @)\313=\204b \314\211:\205\\\312 \"*\315\230\203n\316\317\320\321#\322\261\210\202\373 \211<\205w @)\323=\204\220 \314\211:\205\212\312 \"*\324\230\203\234\316\325\320\321#\322\261\210\202\373 \211<\205\245 @)\326=\204\276 \314\211:\205\270\312 \"*\327\230\203\312\316\330\320\321#\322\261\210\202\373 \314\211:\205\327\312 \"*\211\fG\331U\203\355 \211<\205\352 @)\f\316\332\333\f\"\320\321#\322\261\210)\334\307%\211\2032\f@% %@\211:\205\312 \"*\211&G\331V\203*%A&\335\261\210)\fA\211\204*\336 \310\"\307\211\203t\f@\211\211AA\211\306\232?\205Q\n*@;\203m\337\211AA\211\306\232?\205g\n*@\335\261\210\fA\211\204?*\335c\210\340$`\341 $\210\340$`\342'$\210 \211AA\211\306\232?\205\230\n*@<\203\244\343' \"\210*\fA\211\204\307*\207" [xml-data node children item --dolist-tail-- attribute (("")) nil ns jid xml-get-attribute-or-nil user category "user" jabber-propertize "$ USER" face jabber-title-medium "\n\n" service "service" "* SERVICE" conference "conference" "@ CONFERENCE" 0 format "! OTHER: %s" ((type . "Type: ") (jid . "JID: ") (name . "Name: ") (version . "Version: ")) "\n" jabber-xml-get-children "Namespace: " put-text-property jabber-jid jabber-account jabber-process-browse beginning attr data jc] 6 (#$ . 653)]) (provide 'jabber-browse)