diff options
Diffstat (limited to 'lisp/url/url-http.el')
| -rw-r--r-- | lisp/url/url-http.el | 5 |
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 | ||