From 42fd5bb26e98337ae73a55140df7708f0b3823b7 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 30 Jul 1999 04:29:41 +0000 Subject: [PATCH] (mime-verify-application/pgp-signature): Specify the name of `sig-file' explicitly for `mime-pgp-check-signature'. (mime-pgp-check-signature): Accept new arg `sig-file' and feed its value to the verify command. --- mime-pgp.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/mime-pgp.el b/mime-pgp.el index b26230d..fb76f45 100644 --- a/mime-pgp.el +++ b/mime-pgp.el @@ -130,7 +130,7 @@ It should be ISO 639 2 letter language code such as en, ja, ...") '((en . "Key matching expected Key ID \\(\\S +\\) not found")) "Alist of language vs regexp to detect ``Key expected''.") -(defun mime-pgp-check-signature (output-buffer orig-file) +(defun mime-pgp-check-signature (output-buffer sig-file orig-file) (save-excursion (set-buffer output-buffer) (erase-buffer)) @@ -138,7 +138,7 @@ It should be ISO 639 2 letter language code such as en, ja, ...") (status (call-process-region (point-min)(point-max) mime-pgp-command nil output-buffer nil - orig-file (format "+language=%s" lang))) + sig-file orig-file (format "+language=%s" lang))) (regexp (cdr (assq lang mime-pgp-good-signature-regexp-alist)))) (if (= status 0) (save-excursion @@ -168,7 +168,7 @@ It should be ISO 639 2 letter language code such as en, ja, ...") (mime-write-entity orig-entity orig-file) (save-excursion (mime-show-echo-buffer)) (mime-write-entity-content entity sig-file) - (or (mime-pgp-check-signature mime-echo-buffer-name orig-file) + (or (mime-pgp-check-signature mime-echo-buffer-name sig-file orig-file) (let (pgp-id) (save-excursion (set-buffer mime-echo-buffer-name) -- 1.7.10.4