From a22e7484fa1e26e3caf2658c91d5e245169b55a1 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Thu, 24 Feb 2011 06:32:33 +0000 Subject: [PATCH] auth-source.el (auth-source-netrc-create): Use `read-char' with no argument that XEmacs doesn't support. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/auth-source.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 45f0d68023d..9dd315782ff 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2011-02-24 Katsumi Yamaoka + + * auth-source.el (auth-source-netrc-create): Use `read-char' with no + argument that XEmacs doesn't support. + 2011-02-23 Julien Danjou * gnus-art.el (article-make-date-line): Ignore errors if time is diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el index a7f626c3cd3..63ec93dd760 100644 --- a/lisp/gnus/auth-source.el +++ b/lisp/gnus/auth-source.el @@ -1031,7 +1031,8 @@ See `auth-source-search' for details on SPEC." "(y)es/(n)o but use it/(e)dit line/(s)kip file")) done k) (while (not done) - (setq k (read-char prompt)) + (message "%s" prompt) + (setq k (read-char)) (case k (?y (setq done t)) (?n (setq add "" -- 2.39.5