From 0bfb7f843b508c78de94d534a67a6967a22bb95b Mon Sep 17 00:00:00 2001 From: Jürgen Hötzel Date: Sat, 18 Aug 2018 12:37:49 +0200 Subject: Use the email address of the current user as default (#203) * Use the email address of the current user as default --- lisp/mastodon-auth.el | 2 +- 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") -- cgit v1.2.3