From 97d76d9b6c9b189c6a69afc191dd7b6a35332ce1 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sat, 13 Feb 2016 16:28:26 +1100 Subject: [PATCH] Remove compat code from auth-source * lisp/gnus/auth-source.el (auth-source-read-char-choice): Remove compat code. --- lisp/gnus/auth-source.el | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el index 32b39b924f9..b9341f5ce8e 100644 --- a/lisp/gnus/auth-source.el +++ b/lisp/gnus/auth-source.el @@ -372,11 +372,7 @@ with \"[a/b/c] \" if CHOICES is \(?a ?b ?c)." k) (while (not (memq k choices)) - (setq k (cond - ((fboundp 'read-char-choice) - (read-char-choice full-prompt choices)) - (t (message "%s" full-prompt) - (setq k (read-char)))))) + (setq k (read-char-choice full-prompt choices))) k))) ;; (auth-source-pick nil :host "any" :port 'imap :user "joe") -- 2.39.2