From c13bab1177a588d176c55eebaba13582424d296a Mon Sep 17 00:00:00 2001 From: czkmt Date: Tue, 28 Dec 1999 16:02:24 +0000 Subject: [PATCH] (imap-ssl-open-2): If `system-type' is windows-nt, bind `coding-system-for-read' to raw-text-dos, else bind it to binary. --- lisp/imap.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) 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)) -- 1.7.10.4