Fix backend buffer parsers ignoring converted user queries

Author: daedsidog

gptel-gemini.el

@@ -91,8 +91,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))))
           (push (list :role (if (prop-match-value prop) "model" "user")
                       :parts

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))
         (list :url url)

gptel-ollama.el

@@ -101,8 +101,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))))
           (push (list :role (if (prop-match-value prop) "assistant" "user")
                       :content

gptel-openai.el

@@ -127,8 +127,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))))
           (push (list :role (if (prop-match-value prop) "assistant" "user")
                       :content