diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-12 13:11:45 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-12 14:07:45 +0200 |
| commit | d22bd210afc5b95d2e4dd1c04ffe26f1f488a3f4 (patch) | |
| tree | 0956364a8a3a6a14c80768ef2e597e924369fc6b /lisp/url/url-http.el | |
| parent | aeefa3a732c9dd815e23ed10c4582082acb0e29b (diff) | |
| download | emacs-d22bd210afc5b95d2e4dd1c04ffe26f1f488a3f4.tar.gz emacs-d22bd210afc5b95d2e4dd1c04ffe26f1f488a3f4.tar.bz2 emacs-d22bd210afc5b95d2e4dd1c04ffe26f1f488a3f4.zip | |
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.
Diffstat (limited to 'lisp/url/url-http.el')
| -rw-r--r-- | lisp/url/url-http.el | 7 |
1 files changed, 7 insertions, 0 deletions
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 |