| | 1 | ;ELC\1c\0\0\0 |
| | 2 | ;;; Compiled |
| | 3 | ;;; in Emacs version 28.2 |
| | 4 | ;;; with all optimizations. |
| | 5 | |
| | 6 | |
| | 7 | |
| | 8 | #@28 |
| | 9 | |
| | 10 | (fn JC XML-DATA CONTEXT)\1f |
| | 11 | (defalias 'jabber-carbon-success #[771 "\ 1\300\ 1:\205\v\0\301\ 2\ 2\"\266\202\302\232\205\18\0\303\304\305\ 5!\"\207" [type xml-get-attribute-or-nil "result" message "Carbons feature successfully enabled for %s" jabber-connection-jid] 8 (#$ . 84)]) |
| | 12 | #@28 |
| | 13 | |
| | 14 | (fn JC XML-DATA CONTEXT)\1f |
| | 15 | (defalias 'jabber-carbon-failure #[771 "\300\301\ 3\"\207" [message "Carbons feature could not be enabled: %S"] 6 (#$ . 353)]) |
| | 16 | (byte-code "\300\301\302\303B\"\207" [add-to-list jabber-jid-service-menu "Enable Carbons" jabber-enable-carbons] 4) |
| | 17 | #@89 Send request to enable XEP-0280 Message Carbons. |
| | 18 | |
| | 19 | JC is the Jabber connection. |
| | 20 | |
| | 21 | (fn JC)\1f |
| | 22 | (defalias 'jabber-enable-carbons #[257 "\300\ 1\301\302\303\304\305\306\305&\b\207" [jabber-send-iq nil "set" (enable ((xmlns . "urn:xmpp:carbons:2"))) jabber-carbon-success "Carbons feature enablement" jabber-carbon-failure] 10 (#$ . 628) (byte-code "\300 C\207" [jabber-read-account] 1)]) |
| | 23 | (byte-code "\300\301!\210\302\303!\207" [jabber-disco-advertise-feature "urn:xmpp:carbons:2" provide jabber-carbons] 2) |
projects / config.git / blame_incremental