From: ueno <ueno>
Date: Wed, 8 Dec 1999 14:47:51 +0000 (+0000)
Subject: * smime.el (smime-x509-hash): Use `call-process' instead of
X-Git-Tag: emiko-1_13_8~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8dc29f35456a0c1f51e7282bf0e9b1e6497343c6;p=elisp%2Fsemi.git

* smime.el (smime-x509-hash): Use `call-process' instead of
`call-process-region'.
(smime-x509-subject): Ditto.
---

diff --git a/smime.el b/smime.el
index 9df2468..ce7e984 100644
--- a/smime.el
+++ b/smime.el
@@ -150,10 +150,9 @@
   (with-current-buffer (get-buffer-create smime-output-buffer)
     (buffer-disable-undo)
     (erase-buffer)
-    (insert-file-contents cert-file)
-    (apply #'call-process-region
-	   (point-min)(point-max) (car smime-x509-program)
-	   t t nil (cons "-hash" (cdr smime-x509-program)))
+    (apply #'call-process (car smime-x509-program) nil t nil 
+	   (append (cdr smime-x509-program) 
+		   (list "-hash" "-in" cert-file)))
     (if (zerop (buffer-size)) nil
       (buffer-substring (point-min) (1- (point-max))))))
 
@@ -161,10 +160,9 @@
   (with-current-buffer (get-buffer-create smime-output-buffer)
     (buffer-disable-undo)
     (erase-buffer)
-    (insert-file-contents cert-file)
-    (apply #'call-process-region
-	   (point-min)(point-max) (car smime-x509-program)
-	   t t nil (cons "-subject" (cdr smime-x509-program)))
+    (apply #'call-process (car smime-x509-program) nil t nil 
+	   (append (cdr smime-x509-program)
+		   (list "-subject" "-in" cert-file)))
     (if (zerop (buffer-size)) nil
       (goto-char (point-min))
       (when (re-search-forward "^subject=" nil t)