diff options
| -rw-r--r-- | lisp/mastodon-auth.el | 2 | ||||
| -rw-r--r-- | test/mastodon-auth-tests.el | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mastodon-auth.el b/lisp/mastodon-auth.el index 593562b..71469cf 100644 --- a/lisp/mastodon-auth.el +++ b/lisp/mastodon-auth.el @@ -72,7 +72,7 @@ if you are happy with unencryped storage use e.g. \"~/authinfo\"." `(("client_id" . ,(plist-get (mastodon-client) :client_id)) ("client_secret" . ,(plist-get (mastodon-client) :client_secret)) ("grant_type" . "password") - ("username" . ,(read-string "Email: ")) + ("username" . ,(read-string "Email: " user-mail-address)) ("password" . ,(read-passwd "Password: ")) ("scope" . "read write follow")) nil diff --git a/test/mastodon-auth-tests.el b/test/mastodon-auth-tests.el index 5108f9a..7daa4db 100644 --- a/test/mastodon-auth-tests.el +++ b/test/mastodon-auth-tests.el @@ -6,7 +6,7 @@ (let ((mastodon-auth-source-file "") (mastodon-instance-url "https://instance.url")) (mock (mastodon-client) => '(:client_id "id" :client_secret "secret")) - (mock (read-string "Email: ") => "foo@bar.com") + (mock (read-string "Email: " user-mail-address) => "foo@bar.com") (mock (read-passwd "Password: ") => "password") (mock (mastodon-http--post "https://instance.url/oauth/token" '(("client_id" . "id") |