From: tomo Date: Mon, 25 Dec 2000 05:03:48 +0000 (+0000) Subject: (smime-process-region): Use `binary-funcall' instead of X-Git-Tag: semi-1_14_2~5 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b2f9c90b013990ffa57c117409f6cfba67b5eecb;p=elisp%2Fsemi.git (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'. --- 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