diff --git a/yesod-auth/Yesod/Auth/Email.hs b/yesod-auth/Yesod/Auth/Email.hs
index a0c7b6d0..025a788d 100644
--- a/yesod-auth/Yesod/Auth/Email.hs
+++ b/yesod-auth/Yesod/Auth/Email.hs
@@ -319,7 +319,7 @@ defaultRegisterHandler = do
                 fsTooltip = Nothing,
                 fsId = Just "email",
                 fsName = Just "email",
-                fsAttrs = []
+                fsAttrs = [("autofocus", "")]
             }
 
             (emailRes, emailView) <- mreq emailField emailSettings Nothing