From a28d01665b35970dac62ceed66ad1fe5cd0b8545 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 15 Dec 2000 04:35:02 +0000 Subject: [PATCH] (smime-process-region): Don't use `as-binary-process'. (smime-verify-region): Use `binary-write-region' instead of `write-region-as-binary'; use `binary-insert-file-contents' instead of `insert-file-contents-as-binary'. --- smime.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/smime.el b/smime.el index d01ee0d..afa46f8 100644 --- a/smime.el +++ b/smime.el @@ -202,10 +202,11 @@ (with-current-buffer (get-buffer-create smime-output-buffer) (buffer-disable-undo) (erase-buffer)) - (as-binary-process - (setq process - (apply #'start-process-shell-command "*S/MIME*" - smime-output-buffer program args))) + (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))) (set-process-sentinel process 'ignore) (process-send-region process start end) (process-send-eof process) @@ -301,12 +302,12 @@ the detached signature of the current region." (unwind-protect (progn (set-default-file-modes 448) - (write-region-as-binary start end orig-file)) + (binary-write-region start end orig-file)) (set-default-file-modes orig-mode)) (with-temp-buffer - (insert-file-contents-as-binary signature) + (binary-insert-file-contents signature) (goto-char (point-max)) - (insert-file-contents-as-binary + (binary-insert-file-contents (or (smime-find-certificate (smime-query-signer (point-min)(point-max))) (expand-file-name -- 1.7.10.4