(auth-source-create): Use (user-login-name) for the user name default.

[gnus] / lisp / auth-source.el

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 0b1d8eb..20e4af1 100644 (file)
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -336,7 +336,10 @@ Return structure as specified by MODE."
                   passwd))
                ((equal "login" m)
                 (or user
-                    (read-string (format "User name for %s on %s: " prot host))))
+                    (read-string
+                    (format "User name for %s on %s (default %s): " prot host
+                            (user-login-name))
+                    nil nil (user-login-name))))
                (t
                 "unknownuser"))))
            (if (consp mode) mode (list mode))))