From: czkmt <czkmt>
Date: Wed, 26 Jun 2002 11:54:51 +0000 (+0000)
Subject: (imap-ssl-open-2): Do away with w32-related
X-Git-Tag: t-gnus-6_15_7-00~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=82c40dbfd5f1873fa461179bbf732e3dd9719578;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 33f2d52..33bd7d2 100644
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -604,16 +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)
-				     (output-coding-system 'binary)
-				     (input-coding-system '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))