diff options
| author | Teodor Zlatanov <[email protected]> | 2011-03-13 20:50:07 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <[email protected]> | 2011-03-13 20:50:07 +0000 |
| commit | 67613d3160cd9e87daabfb036828ceb5325d889b (patch) | |
| tree | f79291f57a716e7fcbfcc525f8aebe979deb90b6 | |
| parent | d251f04bea68e68d2598f0aa7464ecc26b26103e (diff) | |
auth-source.el (auth-source-netrc-create): Show the default in the prompt when prompting for token creation.
| -rw-r--r-- | lisp/gnus/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/gnus/auth-source.el | 4 |
2 files changed, 9 insertions, 0 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index ec12faada9..af0bd1519c 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2011-03-13 Teodor Zlatanov <[email protected]> + + * auth-source.el (auth-source-netrc-create): Show the default in the + prompt when prompting for token creation. + 2011-03-12 Teodor Zlatanov <[email protected]> * 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 0fb153ad09..52f2b92e93 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)))) |