mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

(epg-start-verify): Pass "--verify" to gpgsm.

Browse Source
This commit is contained in:
Daiki Ueno 2008-09-16 02:07:05 +00:00
parent 91e97ba8ba
commit 761cd52419
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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.

8
lisp/epg.el
View File

@ -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)))