branch: externals/ement
commit 3ddbd38a649cbd68a9c22a9663103c06c7857892
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Change: (ement-connect) Omit unhandled login flows
Closes #172.
---
ement.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/ement.el b/ement.el
index 9288470eb1..bb311710a1 100644
--- a/ement.el
+++ b/ement.el
@@ -301,7 +301,9 @@ Ement: SSO login accepted; session token received.
Connecting to Matrix server.
(number-to-string
ement-sso-server-port))))
(flows-callback
(data) (let ((flows (cl-loop for flow across (map-elt data
'flows)
- collect (map-elt flow 'type))))
+ for type = (map-elt flow 'type)
+ when (member type
'("m.login.password" "m.login.sso"))
+ collect type)))
(pcase (length flows)
(1 (pcase (car flows)
("m.login.password" (password-login))
