From d22bd210afc5b95d2e4dd1c04ffe26f1f488a3f4 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 12 May 2022 13:11:45 +0200 Subject: [PATCH] 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 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) -- 2.39.2