;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\302\303!\210\302\304!\210\302\305!\210\306\307\310\311\312\313\314\315&\210\316\317B\211 \235\203& \210\202* B)\302\207" [#:x jabber-jid-info-menu require jabber-iq jabber-util jabber-ourversion custom-declare-variable jabber-version-show t "Show our client version to others. Acts on loading." :type boolean :group jabber "Request software version" jabber-get-version] 9) #@26 Request software version (defalias 'jabber-get-version #[(jc to) "\302 \303\304\305\306\305\307&\207" [jc to jabber-send-iq "get" (query ((xmlns . "jabber:iq:version"))) jabber-process-data jabber-process-version "Version request failed"] 9 (#$ . 479) (list (jabber-read-account) (jabber-read-jid-completing "Request version of: " nil nil nil 'full t))]) #@49 Handle results from jabber:iq:version requests. (defalias 'jabber-process-version #[(jc xml-data) "\306!\307\310\211\205; @\311 \n@\"@\211AA\211\312\232?\205\" *@\211\f\2032\nA\f\313\261\210) A\211\204\f\310+\207" [xml-data query x --dolist-tail-- node children jabber-iq-query ((name . "Name: ") (version . "Version: ") (os . "OS: ")) nil jabber-xml-get-children (("")) "\n" data] 4 (#$ . 842)]) (byte-code "\203\301\302\303\304B\"\203\305\303!\210\301\207" [jabber-version-show add-to-list jabber-iq-get-xmlns-alist "jabber:iq:version" jabber-return-version jabber-disco-advertise-feature] 4) #@122 Return client version as defined in JEP-0092. Sender and ID are determined from the incoming packet passed in XML-DATA. (defalias 'jabber-return-version #[(jc xml-data) "\306\211:\205 \307\n \"*\310\211:\205\307\n \"*\311\312\313 \f %\314\315\316\317\320\321\322E\323\322E\257\322\211\211\211& +\207" [xml-data attribute node emacs-major-version emacs-minor-version system-type from xml-get-attribute-or-nil id format "%s %d.%d (%s)" "Emacs" jabber-send-iq "result" query ((xmlns . "jabber:iq:version")) (name nil "jabber.el") version nil os to jc jabber-version] 12 (#$ . 1466)]) (provide 'jabber-version)