[gnus git] branch master updated: n0-13-30-g70beebc

       via  70beebc3532354d81040855cd145540e0cc02701 (commit)
      from  6fee79f24de8ca41c9b09b5842a72b05964b81e9 (commit)


- Log -----------------------------------------------------------------
commit 70beebc3532354d81040855cd145540e0cc02701
Author: Teodor Zlatanov <[email protected]>
Date:   Wed Feb 23 08:26:19 2011 -0600

    Use read-char instead of read-char-choice.
    
    * auth-source.el (auth-source-netrc-create): Use `read-char' instead of
    `read-char-choice' for backwards compatibility.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d7b63cf..b3f9a24 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-02-23  Teodor Zlatanov  <[email protected]>
+
+	* auth-source.el (auth-source-netrc-create): Use `read-char' instead of
+	`read-char-choice' for backwards compatibility.
+
 2011-02-23  Lars Ingebrigtsen  <[email protected]>
 
 	* gnus-start.el (gnus-dribble-read-file): Set
diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 59b5ebb..79f97f8 100644
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -1021,13 +1021,12 @@ See `auth-source-search' for details on SPEC."
       (goto-char (point-max))
 
       ;; ask AFTER we've successfully opened the file
-      (let (done k)
-        (while (not done)
-          (setq k (read-char-choice
-                   (format "Add to file %s? %s: "
+      (let ((prompt (format "Add to file %s? %s: "
                            file
-                           "(y)es/(n)o but use it/(e)dit line/(s)kip file")
-                   '(?y ?n ?e ?s)))
+                            "(y)es/(n)o but use it/(e)dit line/(s)kip file"))
+            done k)
+        (while (not done)
+          (setq k (read-char prompt))
           (case k
             (?y (setq done t))
             (?n (setq add ""

-----------------------------------------------------------------------
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      |    5 +++++
 lisp/auth-source.el |   11 +++++------
 2 files changed, 10 insertions(+), 6 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