]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/url/url-http.el (url-http-parse-headers): Re-enable file-name-handlers.
authorStefan Monnier <monnier@iro.umontreal.ca>
Tue, 14 Aug 2012 14:54:51 +0000 (10:54 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Tue, 14 Aug 2012 14:54:51 +0000 (10:54 -0400)
Fixes: debbugs:11981
lisp/url/ChangeLog
lisp/url/url-http.el

index 815af4e6d43ebbd5f4290c4231789a4149df19f1..a72f12ccb9ba612dfe18ae9b9718ba9fbf83fc8e 100644 (file)
@@ -1,3 +1,8 @@
+2012-08-14  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * url-http.el (url-http-parse-headers): Re-enable file-name-handlers
+       (bug#11981).
+
 2012-08-12  David Engster  <deng@randomsample.de>
 
        * url-util.el (url-file-directory, url-file-nondirectory): Avoid
index ac4bd365eca5843c075c026358491daea31a3cb7..18d28e89f783a2afbb89f972148d7ae1fc28f7b8 100644 (file)
@@ -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