Mercurial > hg > xemacs-beta

comparison lisp/w3/url-http.el @ 86:364816949b59 r20-0b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b93
author cvs
date Mon, 13 Aug 2007 09:09:02 +0200
parents 6a378aca36af
children 0d2f883870bc
comparison
equal deleted inserted replaced
85:c661705957e0 86:364816949b59
1 ;;; url-http.el --- HTTP Uniform Resource Locator retrieval code 1 ;;; url-http.el --- HTTP Uniform Resource Locator retrieval code
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/01/15 15:55:48 3 ;; Created: 1997/01/26 03:56:59
4 ;; Version: 1.10 4 ;; Version: 1.11
5 ;; Keywords: comm, data, processes 5 ;; Keywords: comm, data, processes
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
131 (not (boundp 'proxy-info))) 131 (not (boundp 'proxy-info)))
132 nil 132 nil
133 (let ((url-basic-auth-storage 133 (let ((url-basic-auth-storage
134 url-proxy-basic-authentication)) 134 url-proxy-basic-authentication))
135 (url-get-authentication url nil 'any nil)))) 135 (url-get-authentication url nil 'any nil))))
136 (host (or (and (boundp 'proxy-info) 136 (proxy-obj (if (boundp 'proxy-info)
137 (url-host (url-generic-parse-url proxy-info))) 137 (url-generic-parse-url proxy-info)))
138 (real-fname (if proxy-obj (url-filename proxy-obj) fname))
139 (host (or (and proxy-obj (url-host proxy-obj))
138 url-current-server)) 140 url-current-server))
139 (auth (if (cdr-safe (assoc "Authorization" url-request-extra-headers)) 141 (auth (if (cdr-safe (assoc "Authorization" url-request-extra-headers))
140 nil 142 nil
141 (url-get-authentication (or 143 (url-get-authentication (or
142 (and (boundp 'proxy-info) 144 (and (boundp 'proxy-info)
193 url-mime-encoding-string 195 url-mime-encoding-string
194 url-mime-language-string 196 url-mime-language-string
195 url-mime-accept-string 197 url-mime-accept-string
196 (url-http-user-agent-string) 198 (url-http-user-agent-string)
197 (or auth "") 199 (or auth "")
198 (url-cookie-generate-header-lines url-current-server 200 (url-cookie-generate-header-lines host
199 fname 201 real-fname
200 (string-match "https" 202 (string-match "https"
201 url-current-type)) 203 url-current-type))
202 (or proxy-auth "") 204 (or proxy-auth "")
203 (if (and (not no-cache) 205 (if (and (not no-cache)
204 (member url-request-method '("GET" nil))) 206 (member url-request-method '("GET" nil)))