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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4fd76b9..4674dd0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-10-10  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * auth-source.el (auth-source-create): Use (user-login-name) for the
+       user name default.
+
        * nnimap.el (nnimap-update-info): If the server doesn't return any
        useful info, just use the previous info.
        (nnimap-update-info): Prefer old info over start-article.

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))))