diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2011-02-24 06:32:33 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2011-02-24 06:32:33 +0000 |
| commit | a22e7484fa1e26e3caf2658c91d5e245169b55a1 (patch) | |
| tree | 786befcf408bfe918566eef0018d3fa23100b207 /lisp/gnus/auth-source.el | |
| parent | 1e8dbdc6e86cd6ccda42c3c106f04190ba9acca0 (diff) | |
| download | emacs-a22e7484fa1e26e3caf2658c91d5e245169b55a1.tar.gz | |
auth-source.el (auth-source-netrc-create): Use `read-char' with no argument that XEmacs doesn't support.
Diffstat (limited to 'lisp/gnus/auth-source.el')
| -rw-r--r-- | lisp/gnus/auth-source.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 "" |