From: yamaoka <yamaoka>
Date: Mon, 24 Mar 2003 01:44:50 +0000 (+0000)
Subject: * imap.el (imap-tls-open): Don't bind coding-systems;
X-Git-Tag: t-gnus-6_15_18-00-quimby~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=193629d57e4349ec241a876ad2905bce2e1eb083;p=elisp%2Fgnus.git-

* imap.el (imap-tls-open): Don't bind coding-systems;
 use `set-buffer-multibyte' instead of `imap-disable-multibyte'.

* tls.el: Require `pces'.
(open-tls-stream): Use `as-binary-process'.
---

diff --git a/ChangeLog b/ChangeLog
index dded8a4..0f0baa2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,19 +1,27 @@
+2003-03-24  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* imap.el (imap-tls-open): Don't bind coding-systems; use
+	`set-buffer-multibyte' instead of `imap-disable-multibyte'.
+
+	* tls.el: Require `pces'.
+	(open-tls-stream): Use `as-binary-process'.
+
 2003-03-23  Simon Josefsson  <jas@extundo.com>
 
 	* GNUS-NEWS: Add IDNA.  Add TLS.  Fix USEFOR reference.
 
-2003-03-22  Frank Schmitt  <ich@frank-schmitt.net> 
+2003-03-22  Frank Schmitt  <ich@frank-schmitt.net>
 
 	* make.bat: Redone from scratch; supports both Emacs and XEmacs
 	now; correctly generate gnus-load.el; check for errors; use
 	makeinfo if available, infohack.el if it isn't; be less verbose
 	when copying files; copy files from etc/gnus and etc/smilies, too
 
-2003-03-22  Frank Schmitt  <ich@frank-schmitt.net> 
+2003-03-22  Frank Schmitt  <ich@frank-schmitt.net>
 
 	* make-x.bat: Removed, make.bat does its job now.
 
-2003-03-22  Frank Schmitt  <ich@frank-schmitt.net> 
+2003-03-22  Frank Schmitt  <ich@frank-schmitt.net>
 
 	* etc/gnus-tut.txt: Include Gnus FAQ from http://my.gnus.org.
 
diff --git a/lisp/imap.el b/lisp/imap.el
index 23cd746..60fe26c 100644
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -619,8 +619,6 @@ sure of changing the value of `foo'."
 
 (defun imap-tls-open (name buffer server port)
   (let* ((port (or port imap-default-tls-port))
-	 (coding-system-for-read imap-coding-system-for-read)
-	 (coding-system-for-write imap-coding-system-for-write)
 	 (process (open-tls-stream name buffer server port)))
     (when process
       (while (and (memq (process-status process) '(open run))
@@ -632,7 +630,7 @@ sure of changing the value of `foo'."
 	(sit-for 1))
       (and imap-log
 	   (with-current-buffer (get-buffer-create imap-log-buffer)
-	     (imap-disable-multibyte)
+	     (set-buffer-multibyte nil)
 	     (buffer-disable-undo)
 	     (goto-char (point-max))
 	     (insert-buffer-substring buffer)))
diff --git a/lisp/tls.el b/lisp/tls.el
index 7027077..a2cced9 100644
--- a/lisp/tls.el
+++ b/lisp/tls.el
@@ -46,6 +46,8 @@
 
 ;;; Code:
 
+(require 'pces)
+
 (eval-and-compile
   (autoload 'format-spec "format-spec")
   (autoload 'format-spec-make "format-spec"))
@@ -95,15 +97,16 @@ specifying a port number to connect to."
     (while (and (not done) (setq cmd (pop cmds)))
       (message "Opening TLS connection with `%s'..." cmd)
       (let* ((process-connection-type tls-process-connection-type)
-	     (process (start-process
-		       name buffer shell-file-name shell-command-switch
-		       (format-spec
-			cmd
-			(format-spec-make
-			 ?h host
-			 ?p (if (integerp service)
-				(int-to-string service)
-			      service)))))
+	     (process (as-binary-process
+		       (start-process
+			name buffer shell-file-name shell-command-switch
+			(format-spec
+			 cmd
+			 (format-spec-make
+			  ?h host
+			  ?p (if (integerp service)
+				 (int-to-string service)
+			       service))))))
 	     response)
 	(while (and process
 		    (memq (process-status process) '(open run))