From 1828dd3fa445fd558d4f9ac00574fe3644cbcb7e Mon Sep 17 00:00:00 2001
From: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
Date: Fri, 24 Mar 2023 18:03:40 -0700
Subject: [PATCH] gptel: Set "waiting" state after sending the prompt

* gptel.el (gptel-send): Set the "Waiting..." state after sending
the http request -- this is less misleading if there's an error in
the http request functions (`gptel--url-get-response' or
`gptel-curl-get-response').
---
 gptel.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gptel.el b/gptel.el
index 566df72..606bc63 100644
--- a/gptel.el
+++ b/gptel.el
@@ -257,7 +257,6 @@ instead."
   (if (and arg (require 'gptel-transient nil t))
       (call-interactively #'gptel-send-menu)
   (message "Querying ChatGPT...")
-  (gptel--update-header-line " Waiting..." 'warning)
   (let* ((response-pt
           (if (use-region-p)
               (set-marker (make-marker) (region-end))
@@ -269,7 +268,8 @@ instead."
          #'gptel-curl-get-response #'gptel--url-get-response)
      (list :prompt full-prompt
            :gptel-buffer gptel-buffer
-           :insert-marker response-pt)))))
+           :insert-marker response-pt)))
+    (gptel--update-header-line " Waiting..." 'warning)))
 
 (defun gptel--insert-response (response info)
   "Insert RESPONSE from ChatGPT into the gptel buffer.