From: Teodor Zlatanov <tzz@lifelogs.com>
Date: Sun, 13 Mar 2011 20:50:07 +0000 (+0000)
Subject: auth-source.el (auth-source-netrc-create): Show the default in the prompt when prompt... 
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~587
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=67613d3160cd9e87daabfb036828ceb5325d889b;p=emacs.git

auth-source.el (auth-source-netrc-create): Show the default in the prompt when prompting for token creation.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index ec12faada98..af0bd1519c7 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2011-03-13  Teodor Zlatanov  <tzz@lifelogs.com>
+
+	* auth-source.el (auth-source-netrc-create): Show the default in the
+	prompt when prompting for token creation.
+
 2011-03-12  Teodor Zlatanov  <tzz@lifelogs.com>
 
 	* auth-source.el (auth-source-format-prompt): Always convert the value
diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el
index 0fb153ad09b..52f2b92e933 100644
--- a/lisp/gnus/auth-source.el
+++ b/lisp/gnus/auth-source.el
@@ -1100,6 +1100,10 @@ See `auth-source-search' for details on SPEC."
                 ;; special case prompt for passwords
                 (read-passwd prompt))
                ((null data)
+                (when default
+                  (setq
+                   prompt
+                   (concat prompt (format "(default %s) " default))))
                 (read-string prompt nil nil default))
                (t (or data default))))