From c5048560e52cfc7765236b4ae994555f6d52091b Mon Sep 17 00:00:00 2001 From: codex Date: Thu, 11 Jun 2026 21:06:19 +0200 Subject: [PATCH] Fix Elisp captcha compatibility --- kkkmeet-server.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/kkkmeet-server.el b/kkkmeet-server.el index fad9511..7a8cc8f 100644 --- a/kkkmeet-server.el +++ b/kkkmeet-server.el @@ -135,7 +135,7 @@ (defun kkkmeet-server--captcha-accepted-p (value) "Return non-nil when VALUE matches the configured captcha passphrase." - (string-equal-ignore-case (or value "") (kkkmeet-server--captcha-passphrase))) + (equal (downcase (or value "")) (downcase (kkkmeet-server--captcha-passphrase)))) (defun kkkmeet-server--captcha-svg () "Return an SVG captcha image for the configured passphrase." @@ -396,9 +396,9 @@ When KEEP-OPEN is nil, close PROCESS after writing." (clientId . ,safe-client-id) (peers . ,peers) (watchState . ,(or (gethash safe-room-id kkkmeet-server--watch-states) - :null)) + nil)) (presentationState . ,(or (gethash safe-room-id kkkmeet-server--presentation-states) - :null)))) + nil)))) (kkkmeet-server--broadcast safe-room-id peer-id `((type . "peer-joined") (peerId . ,peer-id)