From 6d08ab744f1e00d58fcebee9317cefca240a08fd Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 10 Oct 2010 19:56:00 +0200 Subject: [PATCH] (auth-source-create): Use (user-login-name) for the user name default. --- lisp/ChangeLog | 3 +++ lisp/auth-source.el | 5 ++++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4fd76b92f..4674dd014 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-10-10 Lars Magne Ingebrigtsen + * 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 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)))) -- 2.25.1