From b81c97779909275b8b9d36c00d789dceba6f28e5 Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Mon, 21 Jun 2021 09:12:25 +0200 Subject: [PATCH] Query encryption using yes-or-no-p * rcirc.el (rcirc-prompt-for-encryption): Replace completing-read prompt with yes-or-no-p --- lisp/net/rcirc.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 9e14d1b12ac..6c27acfadf7 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -691,12 +691,9 @@ that are joined after authentication." (defun rcirc-prompt-for-encryption (server-plist) "Prompt the user for the encryption method to use. SERVER-PLIST is the property list for the server." - (let ((choices '("plain" "tls")) - (default (or (plist-get server-plist :encryption) - "plain"))) - (intern - (completing-read (format-prompt "Encryption" default) - choices nil t nil nil default)))) + (if (or (eq (plist-get server-plist :encryption) 'plain) + (yes-or-no-p "Encrypt connection?")) + 'tls 'plain)) (defun rcirc-keepalive () "Send keep alive pings to active rcirc processes. -- 2.39.2