From b2f9c90b013990ffa57c117409f6cfba67b5eecb Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 25 Dec 2000 05:03:48 +0000 Subject: [PATCH] (smime-process-region): Use `binary-funcall' instead of `binary-start-process-shell-command'. (smime-verify-region): Use `binary-write-decoded-region' and `binary-insert-encoded-file' instead of `binary-write-region' and `binary-insert-file-contents'. --- smime.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/smime.el b/smime.el index a45d399..839c715 100644 --- a/smime.el +++ b/smime.el @@ -39,7 +39,8 @@ ;;; Code: (require 'path-util) -(require 'raw-io) +(require 'mel) +;; binary-funcall, binary-write-decoded-region, binary-insert-encoded-file (eval-when-compile (require 'static)) (defgroup smime () @@ -204,8 +205,9 @@ (buffer-disable-undo) (erase-buffer)) (setq process - (apply #'binary-start-process-shell-command "*S/MIME*" - smime-output-buffer program args)) + (apply #'binary-funcall #'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 +303,12 @@ the detached signature of the current region." (unwind-protect (progn (set-default-file-modes 448) - (binary-write-region start end orig-file)) + (binary-write-decoded-region start end orig-file)) (set-default-file-modes orig-mode)) (with-temp-buffer - (binary-insert-file-contents signature) + (binary-insert-encoded-file signature) (goto-char (point-max)) - (binary-insert-file-contents + (binary-insert-encoded-file (or (smime-find-certificate (smime-query-signer (point-min)(point-max))) (expand-file-name -- 1.7.10.4