/[emacs]/emacs/lisp/url/url-gw.el
ViewVC logotype

Diff of /emacs/lisp/url/url-gw.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by miles, Sat Apr 10 05:55:48 2004 UTC revision 1.3.4.1 by miles, Thu Oct 14 08:49:52 2004 UTC
# Line 3  Line 3 
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  ;;;  ;;;
# Line 29  Line 29 
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"
# Line 212  Args per `open-network-stream'. Line 213  Args per `open-network-stream'.
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
# Line 242  Will not make a connexion if `url-gatewa Line 244  Will not make a connexion if `url-gatewa
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)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.3.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26