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 | #@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) |