From 8dc29f35456a0c1f51e7282bf0e9b1e6497343c6 Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 8 Dec 1999 14:47:51 +0000 Subject: [PATCH] * smime.el (smime-x509-hash): Use `call-process' instead of `call-process-region'. (smime-x509-subject): Ditto. --- smime.el | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) 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) -- 1.7.10.4