aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/url/url-http.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/url/url-http.el')
-rw-r--r--lisp/url/url-http.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 16d51a0258c..f5bbf4a7bf4 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -500,7 +500,8 @@ should be shown to the user."
500 (url-request-data url-http-data) 500 (url-request-data url-http-data)
501 (url-request-extra-headers url-http-extra-headers)) 501 (url-request-extra-headers url-http-extra-headers))
502 (url-retrieve redirect-uri url-callback-function 502 (url-retrieve redirect-uri url-callback-function
503 url-callback-arguments) 503 (cons redirect-uri
504 (cdr url-callback-arguments)))
504 (url-mark-buffer-as-dead (current-buffer)))))) 505 (url-mark-buffer-as-dead (current-buffer))))))
505 (4 ; Client error 506 (4 ; Client error
506 ;; 400 Bad Request 507 ;; 400 Bad Request
@@ -849,7 +850,7 @@ the end of the document."
849 (url-display-percentage nil nil) 850 (url-display-percentage nil nil)
850 (goto-char (match-end 1)) 851 (goto-char (match-end 1))
851 (if (re-search-forward "^\r*$" nil t) 852 (if (re-search-forward "^\r*$" nil t)
852 (message "Saw end of trailers...")) 853 (url-http-debug "Saw end of trailers..."))
853 (if (url-http-parse-headers) 854 (if (url-http-parse-headers)
854 (url-http-activate-callback)))))))))) 855 (url-http-activate-callback))))))))))
855 856