Mercurial > hg > xemacs-beta

diff lisp/w3/ssl.el @ 44:8d2a9b52c682 r19-15prefinal

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15prefinal
author cvs
date Mon, 13 Aug 2007 08:55:10 +0200
parents c53a95d3c46d
children 7d55a9ba150c
line wrap: on
line diff
--- a/lisp/w3/ssl.el	Mon Aug 13 08:54:52 2007 +0200
+++ b/lisp/w3/ssl.el	Mon Aug 13 08:55:10 2007 +0200
@@ -1,7 +1,7 @@
 ;;; ssl.el,v --- ssl functions for emacsen without them builtin
 ;; Author: wmperry
-;; Created: 1997/03/15 00:29:34
-;; Version: 1.11
+;; Created: 1997/03/26 00:04:40
+;; Version: 1.13
 ;; Keywords: comm
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -85,10 +85,10 @@
   :type 'string)
 
 (defcustom ssl-program-arguments
-  '("-quiet"
+  '(;;"-quiet"
     "-host" host
     "-port" service
-    "-verify" ssl-certificate-verification-depth
+    "-verify" (int-to-string ssl-certificate-verification-depth)
     "-CApath" ssl-certificate-directory
     )
   "*Arguments that should be passed to the program `ssl-program-name'.
@@ -154,7 +154,7 @@
 Fourth arg SERVICE is name of the service desired, or an integer
 specifying a port number to connect to."
   (if (integerp service) (setq service (int-to-string service)))
-  (let* ((process-connection-type t)
+  (let* ((process-connection-type nil)
 	 (port service)
 	 (proc (eval
 		(`