branch: elpa/gptel
commit 92082e7af143752cee8123f03f6130229d733878
Author: Karthik Chikmagalur <karthikchikmaga...@gmail.com>
Commit: Karthik Chikmagalur <karthikchikmaga...@gmail.com>

    gptel: Fix gptel-send message
    
    * gptel.el (gptel-send): Because of on-the-fly presets, the
    backend used by a `gptel-send' request can be different from
    `gptel-backend'.  Message the user naming the backend that was
    actually used.
---
 gptel.el | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/gptel.el b/gptel.el
index 49be6c519b..0cb94b8371 100644
--- a/gptel.el
+++ b/gptel.el
@@ -2620,12 +2620,16 @@ waiting for the response."
   (interactive "P")
   (if (and arg (require 'gptel-transient nil t))
       (call-interactively #'gptel-menu)
-    (message "Querying %s..." (gptel-backend-name gptel-backend))
     (gptel--sanitize-model)
-    (gptel-request nil
-      :stream gptel-stream
-      :transforms gptel-prompt-transform-functions
-      :fsm (gptel-make-fsm :handlers gptel-send--handlers))
+    (let ((fsm (gptel-make-fsm :handlers gptel-send--handlers)))
+      (gptel-request nil
+        :stream gptel-stream
+        :transforms gptel-prompt-transform-functions
+        :fsm fsm)
+      (message "Querying %s..."
+               (thread-first (gptel-fsm-info fsm)
+                             (plist-get :backend)
+                             (gptel-backend-name))))
     (gptel--update-status " Waiting..." 'warning)))
 
 (declare-function json-pretty-print-buffer "json")

Reply via email to