From: Simon Josefsson <jas@extundo.com>
Date: Sun, 23 Mar 2003 14:02:47 +0000 (+0000)
Subject: (nntp-open-connection-function): Mention
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=486cb2afb3bca9d329d7e91132839217047b6dfa

(nntp-open-connection-function): Mention
nntp-open-tls-stream.
(nntp-open-tls-stream): New function.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b250540e5..be75e1f16 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2003-03-23  Simon Josefsson  <jas@extundo.com>
 
+	* nntp.el (nntp-open-connection-function): Mention
+	nntp-open-tls-stream.
+	(nntp-open-tls-stream): New function.
+
 	* tls.el: New file.
 
 	* nnimap.el (nnimap-server-port, nnimap-stream): Say TLS/SSL
diff --git a/lisp/nntp.el b/lisp/nntp.el
index 2927dc67d..b2ff43121 100644
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -75,6 +75,7 @@ host.
 Direct connections:
 - `nntp-open-network-stream' (the default),
 - `nntp-open-ssl-stream',
+- `nntp-open-tls-stream',
 - `nntp-open-telnet-stream'.
 
 Indirect connections:
@@ -1161,7 +1162,19 @@ password contained in '~/.nntp-authinfo'."
     (process-kill-without-query proc)
     (save-excursion
       (set-buffer buffer)
-      (nntp-wait-for-string "^\r*20[01]")
+      (let ((nntp-connection-alist (list proc buffer nil)))
+	(nntp-wait-for-string "^\r*20[01]"))
+      (beginning-of-line)
+      (delete-region (point-min) (point))
+      proc)))
+
+(defun nntp-open-tls-stream (buffer)
+  (let ((proc (open-tls-stream "nntpd" buffer nntp-address nntp-port-number)))
+    (process-kill-without-query proc)
+    (save-excursion
+      (set-buffer buffer)
+      (let ((nntp-connection-alist (list proc buffer nil)))
+	(nntp-wait-for-string "^\r*20[01]"))
       (beginning-of-line)
       (delete-region (point-min) (point))
       proc)))