Mercurial > hg > xemacs-beta

comparison lisp/w3/url-gw.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 0d2f883870bc
children 7d55a9ba150c
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
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/10 01:00:01 3 ;; Created: 1997/03/26 14:32:29
4 ;; Version: 1.5 4 ;; Version: 1.7
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 ;;;
66 "*Whether to use nslookup to resolve hostnames. 66 "*Whether to use nslookup to resolve hostnames.
67 This should be used when your version of Emacs cannot correctly use DNS, 67 This should be used when your version of Emacs cannot correctly use DNS,
68 but your machine can. This usually happens if you are running a statically 68 but your machine can. This usually happens if you are running a statically
69 linked Emacs under SunOS 4.x") 69 linked Emacs under SunOS 4.x")
70 70
71 (defvar url-gateway-nslookup-program nil 71 (defvar url-gateway-nslookup-program "nslookup"
72 "*If non-NIL then a string naming nslookup program." ) 72 "*If non-NIL then a string naming nslookup program." )
73 73
74 ;; Stolen from ange-ftp 74 ;; Stolen from ange-ftp
75 (defun url-gateway-nslookup-host (host) 75 (defun url-gateway-nslookup-host (host)
76 "Attempt to resolve the given HOSTNAME using nslookup if possible." 76 "Attempt to resolve the given HOSTNAME using nslookup if possible."
104 104
105 ;; Stolen from red gnus nntp.el 105 ;; Stolen from red gnus nntp.el
106 (defun url-open-rlogin (name buffer host service) 106 (defun url-open-rlogin (name buffer host service)
107 "Open a connection using rsh." 107 "Open a connection using rsh."
108 (if (not (stringp service)) 108 (if (not (stringp service))
109 (setq service (into-to-string service))) 109 (setq service (int-to-string service)))
110 (let ((proc (if url-gateway-rlogin-user-name 110 (let ((proc (if url-gateway-rlogin-user-name
111 (start-process 111 (start-process
112 name buffer "rsh" 112 name buffer "rsh"
113 url-gateway-rlogin-host "-l" url-gateway-rlogin-user-name 113 url-gateway-rlogin-host "-l" url-gateway-rlogin-user-name
114 (mapconcat 'identity 114 (mapconcat 'identity
127 proc)) 127 proc))
128 128
129 ;; Stolen from red gnus nntp.el 129 ;; Stolen from red gnus nntp.el
130 (defun url-open-telnet (name buffer host service) 130 (defun url-open-telnet (name buffer host service)
131 (if (not (stringp service)) 131 (if (not (stringp service))
132 (setq service (into-to-string service))) 132 (setq service (int-to-string service)))
133 (save-excursion 133 (save-excursion
134 (set-buffer (get-buffer-create buffer)) 134 (set-buffer (get-buffer-create buffer))
135 (erase-buffer) 135 (erase-buffer)
136 (let ((proc (start-process name buffer "telnet" "-8")) 136 (let ((proc (start-process name buffer "telnet" "-8"))
137 (case-fold-search t)) 137 (case-fold-search t))