diff options
| author | Stefan Monnier | 2012-08-14 10:54:51 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2012-08-14 10:54:51 -0400 |
| commit | 89534796c8f02c6d1c7a84a0d766bfecdcf11c4f (patch) | |
| tree | 6c14b11eb3381bbafa85c2fbcd07f0ff4c3c37b7 | |
| parent | e1873bd0d8c1f2626eb2ef9090172e06e511dfe1 (diff) | |
| download | emacs-89534796c8f02c6d1c7a84a0d766bfecdcf11c4f.tar.gz emacs-89534796c8f02c6d1c7a84a0d766bfecdcf11c4f.zip | |
* lisp/url/url-http.el (url-http-parse-headers): Re-enable file-name-handlers.
Fixes: debbugs:11981
| -rw-r--r-- | lisp/url/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/url/url-http.el | 12 |
2 files changed, 10 insertions, 7 deletions
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 815af4e6d43..a72f12ccb9b 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2012-08-14 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 2 | |||
| 3 | * url-http.el (url-http-parse-headers): Re-enable file-name-handlers | ||
| 4 | (bug#11981). | ||
| 5 | |||
| 1 | 2012-08-12 David Engster <deng@randomsample.de> | 6 | 2012-08-12 David Engster <deng@randomsample.de> |
| 2 | 7 | ||
| 3 | * url-util.el (url-file-directory, url-file-nondirectory): Avoid | 8 | * url-util.el (url-file-directory, url-file-nondirectory): Avoid |
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index ac4bd365eca..18d28e89f78 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el | |||
| @@ -508,13 +508,10 @@ should be shown to the user." | |||
| 508 | (class nil) | 508 | (class nil) |
| 509 | (success nil) | 509 | (success nil) |
| 510 | ;; other status symbols: jewelry and luxury cars | 510 | ;; other status symbols: jewelry and luxury cars |
| 511 | (status-symbol (cadr (assq url-http-response-status url-http-codes))) | 511 | (status-symbol (cadr (assq url-http-response-status url-http-codes)))) |
| 512 | ;; The filename part of a URL could be in remote file syntax, | ||
| 513 | ;; see Bug#6717 for an example. We disable file name | ||
| 514 | ;; handlers, therefore. | ||
| 515 | (file-name-handler-alist nil)) | ||
| 516 | (setq class (/ url-http-response-status 100)) | 512 | (setq class (/ url-http-response-status 100)) |
| 517 | (url-http-debug "Parsed HTTP headers: class=%d status=%d" class url-http-response-status) | 513 | (url-http-debug "Parsed HTTP headers: class=%d status=%d" |
| 514 | class url-http-response-status) | ||
| 518 | (when (url-use-cookies url-http-target-url) | 515 | (when (url-use-cookies url-http-target-url) |
| 519 | (url-http-handle-cookies)) | 516 | (url-http-handle-cookies)) |
| 520 | 517 | ||
| @@ -531,7 +528,8 @@ should be shown to the user." | |||
| 531 | ;; 101 = Switching protocols | 528 | ;; 101 = Switching protocols |
| 532 | ;; 102 = Processing (Added by DAV) | 529 | ;; 102 = Processing (Added by DAV) |
| 533 | (url-mark-buffer-as-dead buffer) | 530 | (url-mark-buffer-as-dead buffer) |
| 534 | (error "HTTP responses in class 1xx not supported (%d)" url-http-response-status)) | 531 | (error "HTTP responses in class 1xx not supported (%d)" |
| 532 | url-http-response-status)) | ||
| 535 | (2 ; Success | 533 | (2 ; Success |
| 536 | ;; 200 Ok | 534 | ;; 200 Ok |
| 537 | ;; 201 Created | 535 | ;; 201 Created |