| | 1 | ;ELC\1c\0\0\0 |
| | 2 | ;;; Compiled |
| | 3 | ;;; in Emacs version 28.2 |
| | 4 | ;;; with all optimizations. |
| | 5 | |
| | 6 | |
| | 7 | |
| | 8 | #@116 Subscribe to gmail notifications. |
| | 9 | See http://code.google.com/apis/talk/jep_extensions/usersettings.html#4 |
| | 10 | |
| | 11 | (fn JC)\1f |
| | 12 | (defalias 'jabber-gmail-subscribe #[257 "\300\ 1\301\ 3!\302\303\304\305\306\305&\b\210\307\ 1!\207" [jabber-send-iq jabber-connection-bare-jid "set" (usersetting ((xmlns . "google:setting")) (mailnotifications ((value . "true")))) jabber-report-success "Gmail subscription" jabber-process-data jabber-gmail-query] 10 (#$ . 85) (byte-code "\300 C\207" [jabber-read-account] 1)]) |
| | 13 | (byte-code "\300\301\302\303B\"\207" [add-to-list jabber-iq-set-xmlns-alist "google:mail:notify" jabber-gmail-process-new-mail] 4) |
| | 14 | #@128 Process new gmail notification. |
| | 15 | See http://code.google.com/apis/talk/jep_extensions/gmail.html#notifications |
| | 16 | |
| | 17 | (fn JC XML-SEXP)\1f |
| | 18 | (defalias 'jabber-gmail-process-new-mail #[514 "\211\300\ 1:\205\v\0\301\ 2\ 2\"\266\202\ 1\302\ 1:\205\18\0\301\ 2\ 2\"\266\202\303\ 4\ 3\304\305\211\211\211\211\ 6 & \266\ 3\306\ 2!\207" [from xml-get-attribute-or-nil id jabber-send-iq "result" nil jabber-gmail-query] 14 (#$ . 710)]) |
| | 19 | #@163 Request mail information from the Google Talk server (a.k.a. one shot query). |
| | 20 | See http://code.google.com/apis/talk/jep_extensions/gmail.html#requestmail |
| | 21 | |
| | 22 | (fn JC)\1f |
| | 23 | (defalias 'jabber-gmail-query #[257 "\300\ 1\301\ 3!\302\303\304\305\306\307\310& \207" [jabber-send-iq jabber-connection-bare-jid "get" (query ((xmlns . "google:mail:notify"))) jabber-gmail-process-mailbox nil jabber-process-data "Gmail query" "gmail-query"] 11 (#$ . 1102) (byte-code "\300 C\207" [jabber-read-account] 1)]) |
| | 24 | #@134 Process gmail query response. |
| | 25 | See http://code.google.com/apis/talk/jep_extensions/gmail.html#response |
| | 26 | |
| | 27 | (fn JC XML-SEXP &rest IGNORE)\1f |
| | 28 | (defalias 'jabber-gmail-process-mailbox #[642 "\300\ 2\301\"@\211AA\211\302\232?\205\10\0\211\266\202\211\205\19\0\303\ 1!\207" [jabber-xml-get-children mailbox (("")) jabber-gmail-dothreads] 7 (#$ . 1593)]) |
| | 29 | #@204 Process <mail-thread-info/> elements. |
| | 30 | THREADS is a list of XML sexps, corresponding to <mail-thread-info/> elements. |
| | 31 | See http://code.google.com/apis/talk/jep_extensions/gmail.html#response |
| | 32 | |
| | 33 | (fn THREADS)\1f |
| | 34 | (defalias 'jabber-gmail-dothreads #[257 "\300\301\ 2G\"\207" [message "%d new messages in gmail inbox"] 4 (#$ . 1931)]) |
| | 35 | (provide 'jabber-gmail) |
projects / config.git / blame_incremental