* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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))