;ELC   
;;; Compiled by aatharuv@cutter-john.mit.edu on Sun Jan  5 18:41:55 2003
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/url-cvs-20030105-src/lisp/url-proxy.el
;;; in Emacs version 21.1.1
;;; with bytecomp version 2.85
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`url-proxy.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\302\303\304\"\207" [require url-parse autoload url-warn "url"] 3)
(defalias 'url-default-find-proxy-for-url #[(urlobj host) "\303\304\"\203 \305\303\304\"A	\"\204 \n\306H\307\232\203 \310\207\303\n\306H\"A\2030 \311\303\n\306H\"AP\207\310\207" [url-proxy-services host urlobj assoc "no_proxy" string-match 0 "www" "DIRECT" "PROXY "] 4])
(byte-code "\301B\302\301!\204\f \303\301\207" [current-load-list url-proxy-locator boundp url-default-find-proxy-for-url] 2)
(defalias 'url-find-proxy-for-url #[(url host) "\306	\n\"\307\"\310\311\211<\203 @\202 \312\313\f\"\203$ \310\202Q \312\314\f\"\2036 \315\f\316\225\310O\317Q\202Q \312\320\f\"\203G \321\f\316\225\310OP\202Q \322\301\323\324\f\"\325#\210\310+\207" [url-proxy-locator url host case-fold-search proxy proxies split-string " *; *" nil t string-match "^direct" "^proxy +" "http://" 0 "/" "^socks +" "socks://" url-warn format "Unknown proxy directive: %s" critical] 6])
(defalias 'url-proxy #[(url callback &optional cbargs) "\305!\306	!\211\307\310I\210\311\f#)\207" [url-using-proxy url proxy-object callback cbargs url-generic-parse-url copy-sequence 6 nil url-http] 5])
(provide 'url-proxy)