projects / config.git / blame
| Commit | Line | Data |
|---|---|---|
| 53e6db90 DC |
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) |