From: czkmt <czkmt>
Date: Tue, 28 Dec 1999 16:02:24 +0000 (+0000)
Subject: (imap-ssl-open-2): If `system-type' is windows-nt, bind
X-Git-Tag: t-gnus-6_14_0-15~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c13bab1177a588d176c55eebaba13582424d296a;p=elisp%2Fgnus.git-

(imap-ssl-open-2): If `system-type' is windows-nt, bind
`coding-system-for-read' to raw-text-dos, else bind it to binary.
---

diff --git a/lisp/imap.el b/lisp/imap.el
index 8c68963..d9e3fb1 100644
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -431,9 +431,15 @@ argument to `format'."
 	 (ssl-program-arguments (append imap-ssl-arguments extra-ssl-args
 					(list "-connect" 
 					      (format "%s:%d" server port))))
-	 (process (ignore-errors 
-		    (as-binary-process 
-		     (open-ssl-stream name buffer server port)))))
+	 (process (ignore-errors
+		    (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)))))))
     (when process
       (with-current-buffer buffer
 	(goto-char (point-min))