3 |
;; Keywords: comm, data, processes |
;; Keywords: comm, data, processes |
4 |
|
|
5 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
6 |
;;; Copyright (c) 1997, 1998 Free Software Foundation, Inc. |
;;; Copyright (c) 1997, 1998, 2004 Free Software Foundation, Inc. |
7 |
;;; |
;;; |
8 |
;;; This file is part of GNU Emacs. |
;;; This file is part of GNU Emacs. |
9 |
;;; |
;;; |
29 |
|
|
30 |
(autoload 'socks-open-network-stream "socks") |
(autoload 'socks-open-network-stream "socks") |
31 |
(autoload 'open-ssl-stream "ssl") |
(autoload 'open-ssl-stream "ssl") |
32 |
|
(autoload 'open-tls-stream "tls") |
33 |
|
|
34 |
(defgroup url-gateway nil |
(defgroup url-gateway nil |
35 |
"URL gateway variables" |
"URL gateway variables" |
213 |
Will not make a connexion if `url-gateway-unplugged' is non-nil." |
Will not make a connexion if `url-gateway-unplugged' is non-nil." |
214 |
(unless url-gateway-unplugged |
(unless url-gateway-unplugged |
215 |
(let ((gw-method (if (and url-gateway-local-host-regexp |
(let ((gw-method (if (and url-gateway-local-host-regexp |
216 |
|
(not (eq 'tls url-gateway-method)) |
217 |
(not (eq 'ssl url-gateway-method)) |
(not (eq 'ssl url-gateway-method)) |
218 |
(string-match |
(string-match |
219 |
url-gateway-local-host-regexp |
url-gateway-local-host-regexp |
244 |
(let ((coding-system-for-read 'binary) |
(let ((coding-system-for-read 'binary) |
245 |
(coding-system-for-write 'binary)) |
(coding-system-for-write 'binary)) |
246 |
(setq conn (case gw-method |
(setq conn (case gw-method |
247 |
|
(tls |
248 |
|
(open-tls-stream name buffer host service)) |
249 |
(ssl |
(ssl |
250 |
(open-ssl-stream name buffer host service)) |
(open-ssl-stream name buffer host service)) |
251 |
((native) |
((native) |