[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[ELPA-diffs] /srv/bzr/emacs/elpa r163: oauth2: allow to use any HTTP req
From: |
Julien Danjou |
Subject: |
[ELPA-diffs] /srv/bzr/emacs/elpa r163: oauth2: allow to use any HTTP request type |
Date: |
Tue, 20 Dec 2011 11:30:30 +0100 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 163
committer: Julien Danjou <address@hidden>
branch nick: elpa
timestamp: Tue 2011-12-20 11:30:30 +0100
message:
oauth2: allow to use any HTTP request type
* oauth2: allow to use any HTTP request type
modified:
packages/oauth2/oauth2.el
=== modified file 'packages/oauth2/oauth2.el'
--- a/packages/oauth2/oauth2.el 2011-10-08 08:03:26 +0000
+++ b/packages/oauth2/oauth2.el 2011-12-20 10:30:30 +0000
@@ -178,7 +178,7 @@
(defvar success)
;;;###autoload
-(defun oauth2-url-retrieve-synchronously (token url)
+(defun oauth2-url-retrieve-synchronously (token url &optional request-method
request-data request-extra-headers)
"Retrieve an URL synchronously using TOKENS to access it.
TOKENS can be obtained with `oauth2-auth'."
(let (tokens-need-renew)
@@ -187,10 +187,14 @@
;; This is to make `url' think
;; it's done.
(setq success t)))
- (let ((url-buffer (url-retrieve-synchronously
- (oauth2-url-append-access-token token url))))
+ (let ((url-request-method request-method)
+ (url-request-data request-data)
+ (url-request-extra-headers request-extra-headers)
+ (url-buffer))
+ (setq url-buffer (url-retrieve-synchronously
+ (oauth2-url-append-access-token token url)))
(if tokens-need-renew
- (oauth2-url-retrieve-synchronously (oauth2-refresh-access token)
url)
+ (oauth2-url-retrieve-synchronously (oauth2-refresh-access token)
url request-method request-data request-extra-headers)
url-buffer)))))
(provide 'oauth2)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [ELPA-diffs] /srv/bzr/emacs/elpa r163: oauth2: allow to use any HTTP request type,
Julien Danjou <=