* url-http (url-http-parse-headers): Disable Tramp. (Bug#6717)

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 790a7a9affa9f2c09632e78a0b6321b033f853e7..8fe26f58833727239aa7d349f8f405af8c6ea6ba 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,7 @@
+2010-07-25  Michael Albinus  <michael.albinus@gmx.de>
+
+       * url-http (url-http-parse-headers): Disable Tramp.  (Bug#6717)
+
 2010-06-12  Štěpán Němec  <stepnem@gmail.com>  (tiny change)
 
        * url-vars.el (url-privacy-level): Fix doc typo.  (Bug#6406)

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 8c203c0eb8716b22891a54a05de91c4f855e2668..b9aba9f37c928d747ec5ca1c59f5421ffe61f096 100644 (file)
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -435,7 +435,10 @@ should be shown to the user."
        (delete-process url-http-process)))))
   (let ((buffer (current-buffer))
        (class nil)
-       (success 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))
     (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)