Mercurial > hg > xemacs-beta

comparison lisp/w3/url.el @ 185:3d6bfa290dbd r20-3b19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b19
author cvs
date Mon, 13 Aug 2007 09:55:28 +0200
parents 5a88923fcbfe
children 489f57a838ef
comparison
equal deleted inserted replaced
184:bcd2674570bf 185:3d6bfa290dbd
1 ;;; url.el --- Uniform Resource Locator retrieval tool 1 ;;; url.el --- Uniform Resource Locator retrieval tool
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/06/10 05:26:37 3 ;; Created: 1997/07/14 05:15:29
4 ;; Version: 1.79 4 ;; Version: 1.80
5 ;; Keywords: comm, data, processes, hypermedia 5 ;; Keywords: comm, data, processes, hypermedia
6 6
7 ;;; LCD Archive Entry: 7 ;;; LCD Archive Entry:
8 ;;; url|William M. Perry|wmperry@cs.indiana.edu| 8 ;;; url|William M. Perry|wmperry@cs.indiana.edu|
9 ;;; Functions for retrieving/manipulating URLs| 9 ;;; Functions for retrieving/manipulating URLs|
10 ;;; 1997/06/10 05:26:37|1.79|Location Undetermined 10 ;;; 1997/07/14 05:15:29|1.80|Location Undetermined
11 ;;; 11 ;;;
12 12
13 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 13 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
14 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu) 14 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu)
15 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 15 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
1900 (proxy nil) 1900 (proxy nil)
1901 (case-fold-search t)) 1901 (case-fold-search t))
1902 ;; Not sure how I should handle gracefully degrading from one proxy to 1902 ;; Not sure how I should handle gracefully degrading from one proxy to
1903 ;; another, so for now just deal with the first one 1903 ;; another, so for now just deal with the first one
1904 ;; (while proxies 1904 ;; (while proxies
1905 (setq proxy (pop proxies)) 1905 (if (listp proxies)
1906 (setq proxy (pop proxies))
1907 (setq proxy proxies))
1906 (cond 1908 (cond
1907 ((string-match "^direct" proxy) nil) 1909 ((string-match "^direct" proxy) nil)
1908 ((string-match "^proxy +" proxy) 1910 ((string-match "^proxy +" proxy)
1909 (concat "http://" (substring proxy (match-end 0)) "/")) 1911 (concat "http://" (substring proxy (match-end 0)) "/"))
1910 ((string-match "^socks +" proxy) 1912 ((string-match "^socks +" proxy)