[nongnu] elpa/gptel 5d74ec4de0 254/273: gptel: Set system message correctly in gptel-request

[ELPA Syncer]

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

    gptel: Set system message correctly in gptel-request
    
    * gptel.el (gptel-request): let-bind `gptel--system-message`
    correctly in `gptel-request`.  The Anthropic API requires the
    system message to be attached to the query differently from the
    others, causing the let-bindings in `gptel-request` to not work as
    expected. (#276)
---
 gptel.el | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/gptel.el b/gptel.el
index 4dcb2f7013..8a014a4bb4 100644
--- a/gptel.el
+++ b/gptel.el
@@ -914,7 +914,8 @@ query data as usual, but do not send the request.
 
 Model parameters can be let-bound around calls to this function."
   (declare (indent 1))
-  (let* ((gptel-stream stream)
+  (let* ((gptel--system-message system)
+         (gptel-stream stream)
          (start-marker
           (cond
            ((null position)
@@ -926,14 +927,11 @@ Model parameters can be let-bound around calls to this 
function."
             (set-marker (make-marker) position buffer))))
          (full-prompt
           (cond
-           ((null prompt)
-            (let ((gptel--system-message system))
-              (gptel--create-prompt start-marker)))
+           ((null prompt) (gptel--create-prompt start-marker))
            ((stringp prompt)
             ;; FIXME Dear reader, welcome to Jank City:
             (with-temp-buffer
-              (let ((gptel--system-message system)
-                    (gptel-model (buffer-local-value 'gptel-model buffer))
+              (let ((gptel-model (buffer-local-value 'gptel-model buffer))
                     (gptel-backend (buffer-local-value 'gptel-backend buffer)))
                 (insert prompt)
                 (gptel--create-prompt))))