aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2012-08-14 10:54:51 -0400
committerStefan Monnier2012-08-14 10:54:51 -0400
commit89534796c8f02c6d1c7a84a0d766bfecdcf11c4f (patch)
tree6c14b11eb3381bbafa85c2fbcd07f0ff4c3c37b7
parente1873bd0d8c1f2626eb2ef9090172e06e511dfe1 (diff)
downloademacs-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/ChangeLog5
-rw-r--r--lisp/url/url-http.el12
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 @@
12012-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
12012-08-12 David Engster <deng@randomsample.de> 62012-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