X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/6bfa9cb0154ec828ca533643674e9e00ab0309fd..8d1463ef24fa5d4255edfcff9d1c93e73b434a87:/packages/oauth2/oauth2.el

diff --git a/packages/oauth2/oauth2.el b/packages/oauth2/oauth2.el
index fbe77f651..7966e629b 100644
--- a/packages/oauth2/oauth2.el
+++ b/packages/oauth2/oauth2.el
@@ -43,10 +43,10 @@ CLIENT-ID is the client id provided by the provider.
 It returns the code provided by the service."
   (browse-url (concat auth-url
                       (if (string-match-p "\?" auth-url) "&" "?")
-                      "client_id=" client-id
+                      "client_id=" (url-hexify-string client-id)
                       "&response_type=code&redirect_uri=urn:ietf:wg:oauth:2.0:oob"
                       (if scope (concat "&scope=" (url-hexify-string scope)) "")
-                      (if state (concat "&state=" state) "")))
+                      (if state (concat "&state=" (url-hexify-string state)) "")))
   (read-string "Enter the code your browser displayed: "))
 
 (defun oauth2-request-access-parse ()