Fix backend buffer parsers ignoring converted user queries

Author: daedsidog

gptel-gemini.el

@@ -99,8 +99,9 @@
                 (or (not max-entries) (>= max-entries 0))
                 (setq prop (text-property-search-backward
                             'gptel 'response
-                            (when (get-char-property (max (point-min) (1- (point)))
-                                                     'gptel)
+                            (when (eq (get-char-property (max (point-min) (1- (point)))
+                                                         'gptel)
+                                      'response)
                               t))))
           (if (prop-match-value prop)   ;assistant role
               (push (list :role "model"

gptel-kagi.el

@@ -84,8 +84,9 @@
         ;; (filename (thing-at-point 'existing-filename)) ;no file upload support yet
         (prop (text-property-search-backward
                'gptel 'response
-               (when (get-char-property (max (point-min) (1- (point)))
-                                        'gptel)
+               (when (eq (get-char-property (max (point-min) (1- (point)))
+                                            'gptel)
+                         'response)
                  t))))
     (if (and url (string-prefix-p "summarize" (gptel--model-name gptel-model)))
         (list :url url)

gptel-ollama.el

@@ -104,8 +104,9 @@ Intended for internal use only.")
                 (or (not max-entries) (>= max-entries 0))
                 (setq prop (text-property-search-backward
                             'gptel 'response
-                            (when (get-char-property (max (point-min) (1- (point)))
-                                                     'gptel)
+                            (when (eq (get-char-property (max (point-min) (1- (point)))
+                                                         'gptel)
+                                      'response)
                               t))))
           (if (prop-match-value prop)   ;assistant role
               (push (list :role "assistant"

gptel-openai.el

@@ -153,8 +153,9 @@ with differing settings.")
                 (or (not max-entries) (>= max-entries 0))
                 (setq prop (text-property-search-backward
                             'gptel 'response
-                            (when (get-char-property (max (point-min) (1- (point)))
-                                                     'gptel)
+                            (when (eq (get-char-property (max (point-min) (1- (point)))
+                                                         'gptel)
+                                      'response)
                               t))))
           (if (prop-match-value prop)   ;assistant role
               (push (list :role "assistant"