Mercurial > hg > xemacs-beta

comparison lisp/w3/url-misc.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 6608ceec7cf8
children
comparison
equal deleted inserted replaced
184:bcd2674570bf 185:3d6bfa290dbd
1 ;;; url-misc.el --- Misc Uniform Resource Locator retrieval code 1 ;;; url-misc.el --- Misc Uniform Resource Locator retrieval code
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/04/21 23:59:58 3 ;; Created: 1997/08/12 22:58:50
4 ;; Version: 1.17 4 ;; Version: 1.20
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 (fset 'url-tn3270 'url-generic-emulator-loader) 131 (fset 'url-tn3270 'url-generic-emulator-loader)
132 132
133 (defun url-proxy (url) 133 (defun url-proxy (url)
134 ;; Retrieve URL from a proxy. 134 ;; Retrieve URL from a proxy.
135 ;; Expects `url-using-proxy' to be bound to the specific proxy to use." 135 ;; Expects `url-using-proxy' to be bound to the specific proxy to use."
136 (let ( 136 (let ((urlobj (url-generic-parse-url url)))
137 (urlobj (url-generic-parse-url url)) 137 (url-set-target urlobj nil)
138 (proxyobj (url-generic-parse-url url-using-proxy))) 138 (url-http url-using-proxy (url-recreate-url urlobj))))
139 (url-http url-using-proxy url)))
140 139
141 (defvar url-webmail-gateway "w3mail@gmd.de" 140 (defvar url-webmail-gateway "w3mail@gmd.de"
142 "*Where to send webmail requests") 141 "*Where to send webmail requests")
143 142
144 (defvar url-webmail-switches '(" " "-uu -z" "-uu -z -s 100")) 143 (defvar url-webmail-switches '(" " "-uu -z" "-uu -z -s 100"))