From: Michael Albinus <albinus@detlef>
Date: Mon, 26 Jul 2010 13:19:32 +0000 (+0200)
Subject: * url-http (url-http-parse-headers): Disable file name handlers at
X-Git-Tag: emacs-pretest-23.2.90~139^2~38
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c48763bb7905a61e2fbd55db105b076fd4a06588;p=emacs.git

* url-http (url-http-parse-headers): Disable file name handlers at
all (not only Tramp).  (Bug#6717)
---

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 8fe26f58833..f7babefc876 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,8 @@
+2010-07-26  Michael Albinus  <michael.albinus@gmx.de>
+
+	* url-http (url-http-parse-headers): Disable file name handlers at
+	all (not only Tramp).  (Bug#6717)
+
 2010-07-25  Michael Albinus  <michael.albinus@gmx.de>
 
 	* url-http (url-http-parse-headers): Disable Tramp.  (Bug#6717)
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index b9aba9f37c9..00cfa46ea18 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -437,8 +437,9 @@ should be shown to the user."
 	(class nil)
 	(success nil)
 	;; The filename part of a URL could be in remote file syntax,
-	;; see Bug#6717 for an example.  We disable Tramp, therefore.
-	(tramp-mode nil))
+	;; see Bug#6717 for an example.  We disable file name
+	;; handlers, therefore.
+	(file-name-handler-alist nil))
     (setq class (/ url-http-response-status 100))
     (url-http-debug "Parsed HTTP headers: class=%d status=%d" class url-http-response-status)
     (url-http-handle-cookies)