[gnus git] branch master updated: n0-13-85-g475d58e =1= Add IMAP-specific user and password prompt.

       via  475d58e5529041bba9fc05a0d0803c4975b67f50 (commit)
      from  586b9b22b277798623e2d4c983c36891e0fd61fb (commit)


- Log -----------------------------------------------------------------
commit 475d58e5529041bba9fc05a0d0803c4975b67f50
Author: Ted Zlatanov <[email protected]>
Date:   Tue Mar 8 13:44:08 2011 -0600

    Add IMAP-specific user and password prompt.
    
    * nnimap.el (nnimap-credentials): Add IMAP-specific user and password prompt.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 238f091..7b44768 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,7 @@
 	* nnimap.el (nnimap-credentials): Keep the :save-function as the third
 	parameter in the credentials.
 	(nnimap-open-connection-1): Use it after a successful login.
+	(nnimap-credentials): Add IMAP-specific user and password prompt.
 
 	* auth-source.el (auth-source-search): Add :require parameter, taking a
 	list.  Document it and the :save-function return token.  Pass :require
diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 998f504..e76ead5 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -279,7 +279,10 @@ textual parts.")
     (current-buffer)))
 
 (defun nnimap-credentials (address ports)
-  (let ((found (nth 0 (auth-source-search :max 1
+  (let* ((auth-source-creation-prompts
+          '((user  . "IMAP user at %h: ")
+            (secret . "IMAP password for %u@%h: ")))
+         (found (nth 0 (auth-source-search :max 1
 					  :host address
 					  :port ports
 					  :require '(:user :secret)

-----------------------------------------------------------------------
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 |    1 +
 lisp/nnimap.el |   13 ++++++++-----
 2 files changed, 9 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