From 193629d57e4349ec241a876ad2905bce2e1eb083 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 24 Mar 2003 01:44:50 +0000 Subject: [PATCH] * 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'. --- ChangeLog | 14 +++++++++++--- lisp/imap.el | 4 +--- lisp/tls.el | 21 ++++++++++++--------- 3 files changed, 24 insertions(+), 15 deletions(-) diff --git a/ChangeLog b/ChangeLog index dded8a4..0f0baa2 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,19 +1,27 @@ +2003-03-24 Katsumi Yamaoka + + * 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 * GNUS-NEWS: Add IDNA. Add TLS. Fix USEFOR reference. -2003-03-22 Frank Schmitt +2003-03-22 Frank Schmitt * 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 +2003-03-22 Frank Schmitt * make-x.bat: Removed, make.bat does its job now. -2003-03-22 Frank Schmitt +2003-03-22 Frank Schmitt * 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)) -- 1.7.10.4