2001-07-29 Simon Josefsson <jas@extundo.com>

	* nntp.el (nntp-open-ssl-stream): Don't mess with internal
	`ssl.el' variables.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eeba365..faac6fd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-07-29  Simon Josefsson  <jas@extundo.com>
 
+       * nntp.el (nntp-open-ssl-stream): Don't mess with internal
+       `ssl.el' variables.
+
        * gnus-agent.el (gnus-agent-save-group-info): Delete everything
        but line instead of narrowing to it, because `nnmail-parse-active'
        calls widen.  Thanks to Christoph Conrad

diff --git a/lisp/nntp.el b/lisp/nntp.el
index 6da83d9..c82285f 100644 (file)
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -986,8 +986,7 @@ password contained in '~/.nntp-authinfo'."
   (open-network-stream "nntpd" buffer nntp-address nntp-port-number))
 
 (defun nntp-open-ssl-stream (buffer)
-  (let* ((ssl-program-arguments '("-connect" (concat host ":" service)))
-        (proc (open-ssl-stream "nntpd" buffer nntp-address nntp-port-number)))
+  (let ((proc (open-ssl-stream "nntpd" buffer nntp-address nntp-port-number)))
     (save-excursion
       (set-buffer buffer)
       (nntp-wait-for-string "^\r*20[01]")