From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 12 May 2022 11:11:45 +0000 (+0200)
Subject: Improve url-http debugging
X-Git-Tag: emacs-29.0.90~1910^2~758
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d22bd210afc5b95d2e4dd1c04ffe26f1f488a3f4;p=emacs.git

Improve url-http debugging

* lisp/url/url-http.el (url-http-parse-headers): Output the
headers we receive in the debug output.
* lisp/url/url-vars.el (url-extensions-header): Remove useless header.
---

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index b950a8994fb..4e5d017036c 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -589,6 +589,13 @@ should be shown to the user."
   (url-http-debug "url-http-parse-headers called in (%s)" (buffer-name))
   (url-http-parse-response)
   (mail-narrow-to-head)
+  (when url-debug
+    (save-excursion
+      (goto-char (point-min))
+      (while (not (eobp))
+        (url-http-debug "Response: %s"
+                        (buffer-substring (point) (line-end-position)))
+        (forward-line 1))))
   ;;(narrow-to-region (point-min) url-http-end-of-headers)
   (let ((connection (mail-fetch-field "Connection")))
     ;; In HTTP 1.0, keep the connection only if there is a
diff --git a/lisp/url/url-vars.el b/lisp/url/url-vars.el
index 922f26d65bc..1012525568b 100644
--- a/lisp/url/url-vars.el
+++ b/lisp/url/url-vars.el
@@ -396,7 +396,7 @@ Should be one of:
 (defvar url-lazy-message-time 0)
 
 ;; Fixme: We may not be able to run SSL.
-(defvar url-extensions-header "Security/Digest Security/SSL")
+(defvar url-extensions-header nil)
 
 (defvar url-parse-syntax-table
   (copy-syntax-table emacs-lisp-mode-syntax-table)