Mercurial > hg > xemacs-beta

comparison lisp/w3/url-gw.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents 859a2309aef8
children 8d2a9b52c682
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
1 ;;; url-gw.el --- Gateway munging for URL loading 1 ;;; url-gw.el --- Gateway munging for URL loading
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/02/08 05:29:07 3 ;; Created: 1997/02/10 01:00:01
4 ;; Version: 1.4 4 ;; Version: 1.5
5 ;; Keywords: comm, data, processes 5 ;; Keywords: comm, data, processes
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1997 Free Software Foundation, Inc. 8 ;;; Copyright (c) 1997 Free Software Foundation, Inc.
9 ;;; 9 ;;;
193 (errobj nil) 193 (errobj nil)
194 (conn nil)) 194 (conn nil))
195 195
196 ;; If the user told us to do DNS for them, do it. 196 ;; If the user told us to do DNS for them, do it.
197 (if url-gateway-broken-resolution 197 (if url-gateway-broken-resolution
198 (setq host (url-nslookup-host host))) 198 (setq host (url-gateway-nslookup-host host)))
199 199
200 (condition-case errobj 200 (condition-case errobj
201 (setq conn (case gw-method 201 (setq conn (case gw-method
202 (ssl 202 (ssl
203 (open-ssl-stream name buffer host service)) 203 (open-ssl-stream name buffer host service))