From 53b8c4a2ad6d7ba86dcc17787fd5505edf3ed220 Mon Sep 17 00:00:00 2001 From: czkmt Date: Sun, 23 Jun 2002 10:53:10 +0000 Subject: [PATCH] (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. --- lisp/pop3.el | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) 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. -- 1.7.10.4