Mercurial > hg > xemacs-beta

diff lisp/w3/url-http.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents 360340f9fd5f
children cca96a509cfe
line wrap: on
line diff
--- a/lisp/w3/url-http.el	Mon Aug 13 09:23:08 2007 +0200
+++ b/lisp/w3/url-http.el	Mon Aug 13 09:24:17 2007 +0200
@@ -1,7 +1,7 @@
 ;;; url-http.el --- HTTP Uniform Resource Locator retrieval code
 ;; Author: wmperry
-;; Created: 1997/03/03 15:13:11
-;; Version: 1.16
+;; Created: 1997/04/03 20:34:59
+;; Version: 1.17
 ;; Keywords: comm, data, processes
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -442,7 +442,10 @@
        ((= status 407)			; Proxy authentication required
 	(let* ((y (or (cdr (assoc "proxy-authenticate" result)) "basic"))
 	       (url (url-view-url t))
+	       (urlobj (url-generic-parse-url url))
 	       (url-basic-auth-storage url-proxy-basic-authentication)
+	       (url-using-proxy (url-find-proxy-for-url urlobj
+							(url-host urlobj)))
 	       (type (downcase (if (string-match "[ \t]" y)
 				   (substring y 0 (match-beginning 0))
 				 y))))