Mercurial > emacs

comparison lisp/url/url-gw.el @ 83513:966a40e7fb54

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from emacs@sv.gnu.org Patches applied: * emacs@sv.gnu.org/emacs--devo--0--patch-234 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-235 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-236 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-237 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-238 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-239 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-240 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-241 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-242 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-243 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-244 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-245 (Ffield_beginning, find_field): Undo change of 2006-04-23. * emacs@sv.gnu.org/emacs--devo--0--patch-246 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-247 Rcirc patch from Ryan Yeske * emacs@sv.gnu.org/emacs--devo--0--patch-248 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-249 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-250 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-251 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-87 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-88 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-89 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-90 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-91 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-92 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-93 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-94 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-95 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-553
author Karoly Lorentey <lorentey@elte.hu>
date Fri, 28 Apr 2006 14:48:18 +0000
parents d04d8ccb3c41 07c1b5999e53
children 034f67f59091
comparison
equal deleted inserted replaced
83512:5d328dadd0f4 83513:966a40e7fb54
116 (if url-gateway-nslookup-program 116 (if url-gateway-nslookup-program
117 (let ((proc (start-process " *nslookup*" " *nslookup*" 117 (let ((proc (start-process " *nslookup*" " *nslookup*"
118 url-gateway-nslookup-program host)) 118 url-gateway-nslookup-program host))
119 (res host)) 119 (res host))
120 (set-process-query-on-exit-flag proc nil) 120 (set-process-query-on-exit-flag proc nil)
121 (save-excursion 121 (with-current-buffer (process-buffer proc)
122 (set-buffer (process-buffer proc))
123 (while (memq (process-status proc) '(run open)) 122 (while (memq (process-status proc) '(run open))
124 (accept-process-output proc)) 123 (accept-process-output proc))
125 (goto-char (point-min)) 124 (goto-char (point-min))
126 (if (re-search-forward "Name:.*\nAddress: *\\(.*\\)$" nil t) 125 (if (re-search-forward "Name:.*\nAddress: *\\(.*\\)$" nil t)
127 (setq res (buffer-substring (match-beginning 1) 126 (setq res (buffer-substring (match-beginning 1)
166 165
167 ;; Stolen from red gnus nntp.el 166 ;; Stolen from red gnus nntp.el
168 (defun url-open-telnet (name buffer host service) 167 (defun url-open-telnet (name buffer host service)
169 (if (not (stringp service)) 168 (if (not (stringp service))
170 (setq service (int-to-string service))) 169 (setq service (int-to-string service)))
171 (save-excursion 170 (with-current-buffer (get-buffer-create buffer)
172 (set-buffer (get-buffer-create buffer))
173 (erase-buffer) 171 (erase-buffer)
174 (let ((proc (start-process name buffer "telnet" "-8")) 172 (let ((proc (start-process name buffer "telnet" "-8"))
175 (case-fold-search t)) 173 (case-fold-search t))
176 (when (memq (process-status proc) '(open run)) 174 (when (memq (process-status proc) '(open run))
177 (process-send-string proc "set escape \^X\n") 175 (process-send-string proc "set escape \^X\n")
259 (rlogin 257 (rlogin
260 (url-open-rlogin name buffer host service)) 258 (url-open-rlogin name buffer host service))
261 (otherwise 259 (otherwise
262 (error "Bad setting of url-gateway-method: %s" 260 (error "Bad setting of url-gateway-method: %s"
263 url-gateway-method))))) 261 url-gateway-method)))))
264 (error 262 ;; Ignoring errors here seems wrong. E.g. it'll throw away the
265 (setq conn nil))) 263 ;; error signalled two lines above. It was also found inconvenient
264 ;; during debugging.
265 ;; (error
266 ;; (setq conn nil))
267 )
266 conn))) 268 conn)))
267 269
268 (provide 'url-gw) 270 (provide 'url-gw)
269 271
270 ;;; arch-tag: 1c4c0317-6d03-45b8-b3f3-838bd8f9d838 272 ;; arch-tag: 1c4c0317-6d03-45b8-b3f3-838bd8f9d838
271 ;;; url-gw.el ends here 273 ;;; url-gw.el ends here