From: yamaoka <yamaoka>
Date: Mon, 4 Jun 2001 22:50:38 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_4-02-quimby~37
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5d9f9b9d53f99eb56cb0de3186f70abb71668f48;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

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  <hniksic@arsdigita.com>
+
+	* 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  <simon@josefsson.org>
+
+	* 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  <simon@josefsson.org>
 
 	* 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."