[ELPA-diffs] /srv/bzr/emacs/elpa r210: * packages/oauth2/oauth2.el: Don't use aget, update to 0.4

[Julien Danjou]

------------------------------------------------------------
revno: 210
committer: Julien Danjou <address@hidden>
branch nick: elpa
timestamp: Fri 2012-05-04 14:02:14 +0200
message:
  * packages/oauth2/oauth2.el: Don't use aget, update to 0.4
modified:
  packages/oauth2/oauth2.el

=== modified file 'packages/oauth2/oauth2.el'
--- a/packages/oauth2/oauth2.el 2012-04-19 08:28:03 +0000
+++ b/packages/oauth2/oauth2.el 2012-05-04 12:02:14 +0000
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2011 Free Software Foundation, Inc
 
 ;; Author: Julien Danjou <address@hidden>
-;; Version: 0.3
+;; Version: 0.4
 ;; Keywords: comm
 
 ;; This file is part of GNU Emacs.
@@ -91,8 +91,8 @@
              
"&redirect_uri=urn:ietf:wg:oauth:2.0:oob&grant_type=authorization_code"))))
       (make-oauth2-token :client-id client-id
                          :client-secret client-secret
-                         :access-token (aget result 'access_token)
-                         :refresh-token (aget result 'refresh_token)
+                         :access-token (cdr (assoc 'access_token result))
+                         :refresh-token (cdr (assoc 'refresh_token result))
                          :token-url token-url))))
 
 ;;;###autoload
@@ -100,13 +100,13 @@
   "Refresh OAuth access TOKEN.
 TOKEN should be obtained with `oauth2-request-access'."
   (setf (oauth2-token-access-token token)
-        (aget (oauth2-make-access-request
-               (oauth2-token-token-url token)
-               (concat "client_id=" (oauth2-token-client-id token)
-                       "&client_secret=" (oauth2-token-client-secret token)
-                       "&refresh_token=" (oauth2-token-refresh-token token)
-                       "&grant_type=refresh_token"))
-              'access_token))
+        (cdr (assoc 'access_token
+                    (oauth2-make-access-request
+                     (oauth2-token-token-url token)
+                     (concat "client_id=" (oauth2-token-client-id token)
+                             "&client_secret=" (oauth2-token-client-secret 
token)
+                             "&refresh_token=" (oauth2-token-refresh-token 
token)
+                             "&grant_type=refresh_token")))))
   ;; If the token has a plstore, update it
   (let ((plstore (oauth2-token-plstore token)))
     (when plstore
@@ -195,7 +195,7 @@
                           (url-generic-parse-url
                            (oauth2-url-append-access-token token url))))
         (if tokens-need-renew
-              (oauth2-url-retrieve-synchronously (oauth2-refresh-access token) 
url request-method request-data request-extra-headers)
+            (oauth2-url-retrieve-synchronously (oauth2-refresh-access token) 
url request-method request-data request-extra-headers)
           url-buffer)))))
 
 (provide 'oauth2)