[Emacs-diffs] /srv/bzr/emacs/trunk r109608: * lisp/url/url-http.el (url-http-parse-headers): Re-enable file-name-handlers.

[Stefan Monnier]

------------------------------------------------------------
revno: 109608
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=11981
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2012-08-14 10:54:51 -0400
message:
  * lisp/url/url-http.el (url-http-parse-headers): Re-enable file-name-handlers.
modified:
  lisp/url/ChangeLog
  lisp/url/url-http.el

=== modified file 'lisp/url/ChangeLog'
--- a/lisp/url/ChangeLog        2012-08-12 17:35:15 +0000
+++ b/lisp/url/ChangeLog        2012-08-14 14:54:51 +0000
@@ -1,3 +1,8 @@
+2012-08-14  Stefan Monnier  <address@hidden>
+
+       * url-http.el (url-http-parse-headers): Re-enable file-name-handlers
+       (bug#11981).
+
 2012-08-12  David Engster  <address@hidden>
 
        * url-util.el (url-file-directory, url-file-nondirectory): Avoid

=== modified file 'lisp/url/url-http.el'
--- a/lisp/url/url-http.el      2012-08-11 14:48:37 +0000
+++ b/lisp/url/url-http.el      2012-08-14 14:54:51 +0000
@@ -508,13 +508,10 @@
        (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 @@
        ;; 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