Mercurial > hg > xemacs-beta

comparison lisp/w3/ssl.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 8d2a9b52c682
children 7d55a9ba150c
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
1 ;;; ssl.el,v --- ssl functions for emacsen without them builtin 1 ;;; ssl.el,v --- ssl functions for emacsen without them builtin
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/03/15 00:29:34 3 ;; Created: 1997/03/26 00:04:40
4 ;; Version: 1.11 4 ;; Version: 1.13
5 ;; Keywords: comm 5 ;; Keywords: comm
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1995, 1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1995, 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
83 "*The program to run in a subprocess to open an SSL connection." 83 "*The program to run in a subprocess to open an SSL connection."
84 :group 'ssl 84 :group 'ssl
85 :type 'string) 85 :type 'string)
86 86
87 (defcustom ssl-program-arguments 87 (defcustom ssl-program-arguments
88 '("-quiet" 88 '(;;"-quiet"
89 "-host" host 89 "-host" host
90 "-port" service 90 "-port" service
91 "-verify" ssl-certificate-verification-depth 91 "-verify" (int-to-string ssl-certificate-verification-depth)
92 "-CApath" ssl-certificate-directory 92 "-CApath" ssl-certificate-directory
93 ) 93 )
94 "*Arguments that should be passed to the program `ssl-program-name'. 94 "*Arguments that should be passed to the program `ssl-program-name'.
95 This should be used if your SSL program needs command line switches to 95 This should be used if your SSL program needs command line switches to
96 specify any behaviour (certificate file locations, etc). 96 specify any behaviour (certificate file locations, etc).
152 with any buffer 152 with any buffer
153 Third arg is name of the host to connect to, or its IP address. 153 Third arg is name of the host to connect to, or its IP address.
154 Fourth arg SERVICE is name of the service desired, or an integer 154 Fourth arg SERVICE is name of the service desired, or an integer
155 specifying a port number to connect to." 155 specifying a port number to connect to."
156 (if (integerp service) (setq service (int-to-string service))) 156 (if (integerp service) (setq service (int-to-string service)))
157 (let* ((process-connection-type t) 157 (let* ((process-connection-type nil)
158 (port service) 158 (port service)
159 (proc (eval 159 (proc (eval
160 (` 160 (`
161 (start-process name buffer ssl-program-name 161 (start-process name buffer ssl-program-name
162 (,@ ssl-program-arguments)))))) 162 (,@ ssl-program-arguments))))))