From: czkmt <czkmt>
Date: Sun, 23 Jun 2002 10:48:07 +0000 (+0000)
Subject: (pop3-open-ssl-stream): Do away with w32-related
X-Git-Tag: t-gnus-6_15_8-00-quimby~51
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=073b60ac183fa7f6a8b8a86b4877f78f2b7593e6;p=elisp%2Fgnus.git-

(pop3-open-ssl-stream): Do away with w32-related
workaround I installed on 1999-12-27, i.e. also call
`as-binary-process' in windows-nt.
---

diff --git a/lisp/pop3.el b/lisp/pop3.el
index ce64d09..fb34cc2 100644
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -248,16 +248,9 @@ Argument PORT specifies connecting port."
   "Open a SSL connection for a service to a host.
 Returns a subprocess-object to represent the connection.
 Args are NAME BUFFER HOST SERVICE."
-  (cond ((eq system-type 'windows-nt)
-	 (let (selective-display
-	       (coding-system-for-write 'binary)
-	       (coding-system-for-read 'raw-text-dos))
-	   (or (pop3-open-ssl-stream-1 name buffer host service "-ssl3")
-	       (pop3-open-ssl-stream-1 name buffer host service "-ssl2"))))
-	(t
-	 (as-binary-process
-	  (or (pop3-open-ssl-stream-1 name buffer host service "-ssl3")
-	      (pop3-open-ssl-stream-1 name buffer host service "-ssl2"))))))
+  (as-binary-process
+   (or (pop3-open-ssl-stream-1 name buffer host service "-ssl3")
+       (pop3-open-ssl-stream-1 name buffer host service "-ssl2"))))
 
 (defun pop3-open-tls-stream (name buffer host service)
   "Open a TLSv1 connection for a service to a host.