Mercurial > emacs
changeset 98188:ef3ca5fcb751
(epg-start-verify): Pass "--verify" to gpgsm.
| author | Daiki Ueno <ueno@unixuser.org> |
|---|---|
| date | Tue, 16 Sep 2008 02:07:05 +0000 |
| parents | d313d777342f |
| children | 5ac5a5adc028 |
| files | lisp/ChangeLog lisp/epg.el |
| diffstat | 2 files changed, 10 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Sep 16 01:24:30 2008 +0000 +++ b/lisp/ChangeLog Tue Sep 16 02:07:05 2008 +0000 @@ -1,3 +1,7 @@ +2008-09-16 Daiki Ueno <ueno@unixuser.org> + + * epg.el (epg-start-verify): Pass "--verify" to gpgsm. + 2008-09-15 Juanma Barranquero <lekktu@gmail.com> * vc-rcs.el (vc-rcs-steal-lock, vc-rcs-checkout): Fix docstring typos.
--- a/lisp/epg.el Tue Sep 16 01:24:30 2008 +0000 +++ b/lisp/epg.el Tue Sep 16 02:07:05 2008 +0000 @@ -2013,8 +2013,12 @@ (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)))