From 5d9f9b9d53f99eb56cb0de3186f70abb71668f48 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 4 Jun 2001 22:50:38 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 12 ++++++++++++ lisp/imap.el | 1 + lisp/mm-decode.el | 3 ++- 3 files changed, 15 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 64246b0..787179c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,15 @@ +2001-06-04 Hrvoje Niksic + + * mm-decode.el (mm-pipe-part): Bind coding-system-for-write to + binary so that we don't transmit ISO 2022 garbage to the process. + This is needed under XEmacs. + +2001-06-03 Simon Josefsson + + * imap.el (imap-ssl-open): Require ssl. (Otherwise ssl.el is + autoloaded incorrectly below because ssl-program-* is bound.) + Thanks to Amos Gouaux for report. + 2001-06-02 Simon Josefsson * imap.el (imap-kerberos4-open): diff --git a/lisp/imap.el b/lisp/imap.el index 57724f7..3e4d91e 100644 --- a/lisp/imap.el +++ b/lisp/imap.el @@ -555,6 +555,7 @@ If ARGS, PROMPT is used as an argument to `format'." (let ((cmds (if (listp imap-ssl-program) imap-ssl-program (list imap-ssl-program))) cmd done) + (ignore-errors (require 'ssl)) (while (and (not done) (setq cmd (pop cmds))) (message "imap: Opening SSL connection with `%s'..." cmd) (let* ((port (or port imap-default-ssl-port)) diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el index 25a6d5e..61bc805 100644 --- a/lisp/mm-decode.el +++ b/lisp/mm-decode.el @@ -901,7 +901,8 @@ external if displayed external." (read-string "Shell command on MIME part: " mm-last-shell-command))) (mm-with-unibyte-buffer (mm-insert-part handle) - (shell-command-on-region (point-min) (point-max) command nil)))) + (let ((coding-system-for-write 'binary)) + (shell-command-on-region (point-min) (point-max) command nil))))) (defun mm-interactively-view-part (handle) "Display HANDLE using METHOD." -- 1.7.10.4