procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/url/url-http.el (url-http-parse-headers): Re-enable file-name-handlers.

Browse source 
Fixes: debbugs:11981
This commit is contained in:
Stefan Monnier 2012-08-14 10:54:51 -04:00
parent e1873bd0d8
commit 89534796c8
2 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/url/ChangeLog
View 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

12
lisp/url/url-http.el
View 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