 (defvar *connect-is-use-socks* nil)
 
 (require 'socks)
-
-;; example of socks proxy definition :
-;;  if your putty connection contains a redirection from local port 8165 in Dynamic mode
-;;(setq socks-server (list "Default server" "localhost"  8165 4))
 
 (defvar *inside-connect-is* nil)
 

	(delete-char -1))
      (set-marker (process-mark process) (point))))

(defun fi::open-network-stream (name buffer host service)
  (let ((tries fi::open-network-stream-retries))
    (block fi::open-network-stream
      (dotimes (i tries)
	(condition-case condition
	    (return-from fi::open-network-stream
	      ;; DLM 26-JAN-18 : use SOCKS if needede
	      (if *connect-is-use-socks* 
		  (socks-open-network-stream name buffer host service)
		(open-network-stream name buffer host service)))

;; -*- coding: windows-1252 -*- 
;; COPYRIGHT (C) PLANISWARE 2018
;; Distributed under the MIT License
;; See accompanying file LICENSE file or copy at http://opensource.org/licenses/MIT

