[gnus git] branch master updated: n0-13-87-g536ba19 =1= Improve default auth-source creation prompts as suggested in bug #8050.

       via  536ba19d04d59ea5fec95df4a15c9f0613119719 (commit)
      from  ee4979ee3c6cc1937f2d35433a063ce8aab85244 (commit)


- Log -----------------------------------------------------------------
commit 536ba19d04d59ea5fec95df4a15c9f0613119719
Author: Ted Zlatanov <[email protected]>
Date:   Tue Mar 8 15:56:36 2011 -0600

    Improve default auth-source creation prompts as suggested in bug #8050.
    
    * auth-source.el (auth-source-netrc-create): Set up clearer default
    prompts for user, host, port, and secret.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7b44768..fe7a385 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -15,7 +15,8 @@
 	deletions.
 	(auth-source-netrc-create): Take user login name as default in user
 	prompt.  Move all the save functionality to a lexically bound function
-	under the :save-function token in the returned list.
+	under the :save-function token in the returned list.  Set up clearer
+	default prompts for user, host, port, and secret.
 	(auth-source-netrc-saver): New function, intended to be wrapped for
 	:save-function.
 
diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 24d4fad..53a97ca 100644
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -1056,10 +1056,10 @@ See `auth-source-search' for details on SPEC."
                                          "[any port]"))))
              (prompt (or (aget auth-source-creation-prompts r)
                          (case r
-                           ('secret "%p password for user %u, host %h: ")
-                           ('user "%p user name: ")
-                           ('host "%p host name for user %u: ")
-                           ('port "%p port for user %u and host %h: "))
+                           (secret "%p password for %u@%h: ")
+                           (user "%p user name for %h: ")
+                           (host "%p host name for user %u: ")
+                           (port "%p port for %u@%h: "))
                          (format "Enter %s (%%u@%%h:%%p): " r)))
              (prompt (auth-source-format-prompt
                       prompt

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog      |    3 ++-
 lisp/auth-source.el |    8 ++++----
 2 files changed, 6 insertions(+), 5 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project