From 70251fb18d54377d43f7dd4b704378553dec51bf Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 19 Dec 2000 06:26:40 +0000 Subject: [PATCH] Require `raw-io'. (smime-process-region): Use `binary-start-process-shell-command'. --- mime/smime.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/mime/smime.el b/mime/smime.el index afa46f8..a45d399 100644 --- a/mime/smime.el +++ b/mime/smime.el @@ -39,6 +39,7 @@ ;;; Code: (require 'path-util) +(require 'raw-io) (eval-when-compile (require 'static)) (defgroup smime () @@ -202,11 +203,9 @@ (with-current-buffer (get-buffer-create smime-output-buffer) (buffer-disable-undo) (erase-buffer)) - (let ((coding-system-for-read 'binary) - (coding-system-for-write 'binary)) - (setq process - (apply #'start-process-shell-command "*S/MIME*" - smime-output-buffer program args))) + (setq process + (apply #'binary-start-process-shell-command "*S/MIME*" + smime-output-buffer program args)) (set-process-sentinel process 'ignore) (process-send-region process start end) (process-send-eof process) -- 1.7.10.4