[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master d22bd210af 1/3: Improve url-http debugging
From: |
Lars Ingebrigtsen |
Subject: |
master d22bd210af 1/3: Improve url-http debugging |
Date: |
Thu, 12 May 2022 08:16:28 -0400 (EDT) |
branch: master
commit d22bd210afc5b95d2e4dd1c04ffe26f1f488a3f4
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
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.
---
lisp/url/url-http.el | 7 +++++++
lisp/url/url-vars.el | 2 +-
2 files changed, 8 insertions(+), 1 deletion(-)
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index b950a8994f..4e5d017036 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 922f26d65b..1012525568 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)