From 89534796c8f02c6d1c7a84a0d766bfecdcf11c4f Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 14 Aug 2012 10:54:51 -0400 Subject: [PATCH] * lisp/url/url-http.el (url-http-parse-headers): Re-enable file-name-handlers. Fixes: debbugs:11981 --- lisp/url/ChangeLog | 5 +++++ 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 @@ +2012-08-14 Stefan Monnier + + * url-http.el (url-http-parse-headers): Re-enable file-name-handlers + (bug#11981). + 2012-08-12 David Engster * 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." (class nil) (success nil) ;; other status symbols: jewelry and luxury cars - (status-symbol (cadr (assq url-http-response-status url-http-codes))) - ;; The filename part of a URL could be in remote file syntax, - ;; see Bug#6717 for an example. We disable file name - ;; handlers, therefore. - (file-name-handler-alist nil)) + (status-symbol (cadr (assq url-http-response-status url-http-codes)))) (setq class (/ url-http-response-status 100)) - (url-http-debug "Parsed HTTP headers: class=%d status=%d" class url-http-response-status) + (url-http-debug "Parsed HTTP headers: class=%d status=%d" + class url-http-response-status) (when (url-use-cookies url-http-target-url) (url-http-handle-cookies)) @@ -531,7 +528,8 @@ should be shown to the user." ;; 101 = Switching protocols ;; 102 = Processing (Added by DAV) (url-mark-buffer-as-dead buffer) - (error "HTTP responses in class 1xx not supported (%d)" url-http-response-status)) + (error "HTTP responses in class 1xx not supported (%d)" + url-http-response-status)) (2 ; Success ;; 200 Ok ;; 201 Created -- 2.39.2