X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fauth-source.el;h=20e4af189d98db37249ea5435feef43b4c7b252d;hb=77f6f02bf2e5678361dc4489ad5b13502ded0021;hp=0b1d8eb57afeb6b84886791222a0b702180d095f;hpb=24362b6642b24f323419f208562af7c68ca84c59;p=gnus

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 0b1d8eb57..20e4af189 100644
--- 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))))