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.

Author: karthink

gptel.el

@@ -2618,12 +2618,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")