diff options
| -rw-r--r-- | lisp/url/url-http.el | 7 | ||||
| -rw-r--r-- | lisp/url/url-vars.el | 2 |
2 files changed, 8 insertions, 1 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 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) |