[nongnu] elpa/gptel 1ada9c9214 031/273: gptel: Handle insertion with region-active correctly

[ELPA Syncer]

branch: elpa/gptel
commit 1ada9c921429f5731d6052228bdc98f92dc4b3e3
Author: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
Commit: Karthik Chikmagalur <karthikchikmagalur@gmail.com>

    gptel: Handle insertion with region-active correctly
    
    gptel.el (gptel-send, gptel--url-parse-response): Handle insertion
    better when region is active.  Decode utf-8 encoded response when
    using url-retrieve (instead of curl).
---
 gptel.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/gptel.el b/gptel.el
index d1c929c765..d0652ebbbf 100644
--- a/gptel.el
+++ b/gptel.el
@@ -157,7 +157,10 @@ return the transformed string."
       (call-interactively #'gptel-send-menu)
   (message "Querying ChatGPT...")
   (gptel--update-header-line " Waiting..." 'warning)
-  (let* ((response-pt (point-marker))
+  (let* ((response-pt
+          (if (use-region-p)
+              (set-marker (make-marker) (region-end))
+            (point-marker)))
          (gptel-buffer (current-buffer))
          (full-prompt (gptel--create-prompt response-pt))
          (response (aio-await
@@ -308,7 +311,7 @@ Return the message received."
                                  (json-read)))
                 (content (map-nested-elt
                           response '(:choices 0 :message :content))))
-          (list :content (string-trim content)
+          (list :content (string-trim (decode-coding-string content 'utf-8))
                 :status status)
         (list :content nil :status status)))))