[ELPA-diffs] /srv/bzr/emacs/elpa r163: oauth2: allow to use any HTTP request type

[Julien Danjou]

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