branch: elpa/gptel
commit e0018f5403296ec572e318580b687cf839ea6de8
Author: Lizqwer scott <lizqwersc...@163.com>
Commit: GitHub <nore...@github.com>
gptel-integrations: Only MCP servers in connected state are active. (#911)
* gptel-integrations.el (gptel-mcp-connect): Update for logic
change in mcp.el: A server is considered active iff its state in
`mcp-server-connections' is the symbol connected.
---
gptel-integrations.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/gptel-integrations.el b/gptel-integrations.el
index bc833a39ed..fd611fa80e 100644
--- a/gptel-integrations.el
+++ b/gptel-integrations.el
@@ -91,7 +91,9 @@ Call SERVER-CALLBACK after starting MCP servers."
(mapcar (lambda (s) (assoc s mcp-hub-servers))
picks)))
unregistered-servers))
(server-active-p
- (lambda (server) (gethash (car server)
mcp-server-connections)))
+ (lambda (server)
+ (when-let* ((server (gethash (car server)
mcp-server-connections)))
+ (equal (mcp--status server) 'connected))))
(inactive-servers (cl-remove-if server-active-p servers))
(add-all-tools
(lambda (&optional server-names)
