diff options
| -rw-r--r-- | nnttrss.el | 21 |
1 files changed, 21 insertions, 0 deletions
@@ -20,6 +20,27 @@ (defvar nnttrss-session-id nil "Current session id, if any, set after successful login.") + + +(defun nnttrss-post-request (content address) + "POST CONTENT to ADDRESS as urlencoded form data. CONTENT must +be a data structure that `json-encode' knows how to encode as a +JSON object. Returns the JSON response as a plist or nil." + (let ((url-request-method "POST") + (url-request-data (json-encode content)) + (json-object-type 'plist) + (json-false nil)) + (with-current-buffer (url-retrieve-synchronously address) + (goto-char (point-min)) + (search-forward-regexp "\n\n") + (let* ((response (json-read)) + (status (plist-get response :status)) + (content (plist-get response :content))) + (if (= status 0) content + (nnheader-report 'nnttrss (plist-get content :error))))))) + + + (gnus-declare-backend "nnttrss" 'address 'prompt-address) (provide 'nnttrss) |