From: czkmt <czkmt>
Date: Wed, 26 Jun 2002 11:52:43 +0000 (+0000)
Subject: (imap-ssl-open-2): Do away with w32-related
X-Git-Tag: t-gnus-6_15_8-00-quimby~43
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=303e4476f639c3eaba8d8feb8cc97c6f81e5149b;p=elisp%2Fgnus.git-

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

diff --git a/lisp/imap.el b/lisp/imap.el
index b6cd7a4..33bd7d2 100644
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -604,14 +604,8 @@ If ARGS, PROMPT is used as an argument to `format'."
 	     process)
 	(when (setq process
 		    (condition-case nil
-			(cond ((eq system-type 'windows-nt)
-			       (let (selective-display
-				     (coding-system-for-write 'binary)
-				     (coding-system-for-read 'raw-text-dos))
-				 (open-ssl-stream name buffer server port)))
-			      (t
-			       (as-binary-process
-				(open-ssl-stream name buffer server port))))
+			(as-binary-process
+			 (open-ssl-stream name buffer server port))
 		      (error nil)))
 	  (with-current-buffer buffer
 	    (goto-char (point-min))