From 761cd524193337fc59b316e04ecf884d482fa89d Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Tue, 16 Sep 2008 02:07:05 +0000 Subject: [PATCH] (epg-start-verify): Pass "--verify" to gpgsm. --- lisp/ChangeLog | 4 ++++ lisp/epg.el | 8 ++++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 496ead2fbc3..fdae2290ac8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-09-16 Daiki Ueno + + * epg.el (epg-start-verify): Pass "--verify" to gpgsm. + 2008-09-15 Juanma Barranquero * vc-rcs.el (vc-rcs-steal-lock, vc-rcs-checkout): Fix docstring typos. diff --git a/lisp/epg.el b/lisp/epg.el index 7ad0d34b4b0..75a860933cb 100644 --- a/lisp/epg.el +++ b/lisp/epg.el @@ -2013,8 +2013,12 @@ If you are unsure, use synchronous version of this function (process-send-eof (epg-context-process context)))) ;; Normal (or cleartext) signature. (if (epg-data-file signature) - (epg--start context (list "--" (epg-data-file signature))) - (epg--start context '("-")) + (epg--start context (if (eq (epg-context-protocol context) 'CMS) + (list "--verify" "--" (epg-data-file signature)) + (list "--" (epg-data-file signature)))) + (epg--start context (if (eq (epg-context-protocol context) 'CMS) + '("--verify" "-") + '("-"))) (if (eq (process-status (epg-context-process context)) 'run) (process-send-string (epg-context-process context) (epg-data-string signature)))