changeset 109344:0c382ec288f1

* url-http (url-http-parse-headers): Disable Tramp. (Bug#6717)
author Michael Albinus <albinus@detlef>
date Sun, 25 Jul 2010 13:36:02 +0200
parents dad8b34145cb
children e8d5a68351ac
files lisp/url/ChangeLog lisp/url/url-http.el
diffstat 2 files changed, 8 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/url/ChangeLog	Fri Jul 23 11:49:03 2010 -0400
+++ b/lisp/url/ChangeLog	Sun Jul 25 13:36:02 2010 +0200
@@ -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)
--- a/lisp/url/url-http.el	Fri Jul 23 11:49:03 2010 -0400
+++ b/lisp/url/url-http.el	Sun Jul 25 13:36:02 2010 +0200
@@ -435,7 +435,10 @@
 	(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)