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.
This commit is contained in:
Lars Ingebrigtsen 2022-05-12 13:11:45 +02:00
parent aeefa3a732
commit d22bd210af
2 changed files with 8 additions and 1 deletions

View file

@ -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

View file

@ -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)