Fix mm-pipe-part under XEmacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 61d31c4..b2b57b4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+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

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 5f47c40..421b701 100644 (file)
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -897,7 +897,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."