[nongnu] elpa/gptel 86bf0c9f74 004/273: gptel: Avoid logging url-retrieve messages

[ELPA Syncer]

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

    gptel: Avoid logging url-retrieve messages
    
    - Use `read-passwd' to read the API key.
---
 gptel.el | 20 ++++++++++++++------
 1 file changed, 14 insertions(+), 6 deletions(-)

diff --git a/gptel.el b/gptel.el
index ec2a1a032c..3fbec9ca8c 100644
--- a/gptel.el
+++ b/gptel.el
@@ -134,10 +134,12 @@ Return the response buffer."
             ;; :temperature 1.0
             ;; :top_p 1.0
             :messages [,@prompts]))))
-    (pcase-let ((`(,_ . ,buffer)
-                  (aio-await
-                   (aio-url-retrieve 
"https://api.openai.com/v1/chat/completions";))))
-      buffer)))
+    (let ((inhibit-message t)
+          (message-log-max nil))
+      (pcase-let ((`(,_ . ,buffer)
+                   (aio-await
+                    (aio-url-retrieve 
"https://api.openai.com/v1/chat/completions";))))
+        buffer))))
 
 ;;;###autoload
 (define-minor-mode gptel-mode
@@ -160,11 +162,17 @@ Ask for API-KEY if `gptel-api-key' is unset."
                          (read-string "Session name: " 
(generate-new-buffer-name gptel-default-session))
                        gptel-default-session)
                      (or gptel-api-key
-                         (read-string "OpenAI API key: "))))
+                         (setq gptel-api-key
+                               (read-passwd "OpenAI API key: ")))))
   (unless api-key
     (user-error "No API key available"))
   (with-current-buffer (get-buffer-create name)
-    (unless (eq major-mode gptel-default-mode) (funcall gptel-default-mode))
+    (cond ;Set major mode
+     ((eq major-mode gptel-default-mode))
+     ((eq gptel-default-mode 'text-mode)
+      (text-mode)
+      (visual-line-mode 1))
+     (t (funcall gptel-default-mode)))
     (unless gptel-mode (gptel-mode 1))
     (if (bobp) (insert gptel-prompt-string))
     (pop-to-buffer (current-buffer))