Mercurial > hg > xemacs-beta

comparison lisp/w3/url-ns.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 15872534500d
children
comparison
equal deleted inserted replaced
184:bcd2674570bf 185:3d6bfa290dbd
1 ;;; url-ns.el --- Various netscape-ish functions for proxy definitions 1 ;;; url-ns.el --- Various netscape-ish functions for proxy definitions
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/06/29 22:51:33 3 ;; Created: 1997/07/14 05:11:46
4 ;; Version: 1.3 4 ;; Version: 1.4
5 ;; Keywords: comm, data, processes, hypermedia 5 ;; Keywords: comm, data, processes, hypermedia
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1997 Free Software Foundation, Inc. 8 ;;; Copyright (c) 1997 Free Software Foundation, Inc.
9 ;;; 9 ;;;
29 29
30 (defun isPlainHostName (host) 30 (defun isPlainHostName (host)
31 (not (string-match "\\." host))) 31 (not (string-match "\\." host)))
32 32
33 (defun dnsDomainIs (host dom) 33 (defun dnsDomainIs (host dom)
34 (setq host (url-gateway-nslookup-host host))
35 (string-match (concat (regexp-quote dom) "$") host)) 34 (string-match (concat (regexp-quote dom) "$") host))
36 35
37 (defun dnsResolve (host) 36 (defun dnsResolve (host)
38 (url-gateway-nslookup-host host)) 37 (url-gateway-nslookup-host host))
39 38