diff options
| author | Justus Winter | 2022-09-16 12:23:39 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-10-06 14:53:36 +0200 |
| commit | 82388dff8ed006cecb65ea7a4afd8667ec44b5e3 (patch) | |
| tree | 29d86cc4a8531ea4a9276f77926dbbcd26e8d943 | |
| parent | 07b2e9b9092df57f454386e54491420fb4b5f303 (diff) | |
| download | emacs-82388dff8ed006cecb65ea7a4afd8667ec44b5e3.tar.gz emacs-82388dff8ed006cecb65ea7a4afd8667ec44b5e3.zip | |
Fix epg's reliance on an implicit GnuPG command.
Previously, epg invoked GnuPG without an explicit command to verify
signatures. Make that operation explicit. Happily, this aligns how
gpg and gpgsm is invoked, so it actually makes the code simpler.
| -rw-r--r-- | lisp/epg.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/epg.el b/lisp/epg.el index c3c26badbba..ceeb269b070 100644 --- a/lisp/epg.el +++ b/lisp/epg.el | |||
| @@ -1519,12 +1519,8 @@ If you are unsure, use synchronous version of this function | |||
| 1519 | (process-send-eof (epg-context-process context)))) | 1519 | (process-send-eof (epg-context-process context)))) |
| 1520 | ;; Normal (or cleartext) signature. | 1520 | ;; Normal (or cleartext) signature. |
| 1521 | (if (epg-data-file signature) | 1521 | (if (epg-data-file signature) |
| 1522 | (epg--start context (if (eq (epg-context-protocol context) 'CMS) | 1522 | (epg--start context (list "--verify" "--" (epg-data-file signature))) |
| 1523 | (list "--verify" "--" (epg-data-file signature)) | 1523 | (epg--start context '("--verify" "-")) |
| 1524 | (list "--" (epg-data-file signature)))) | ||
| 1525 | (epg--start context (if (eq (epg-context-protocol context) 'CMS) | ||
| 1526 | '("--verify" "-") | ||
| 1527 | '("-"))) | ||
| 1528 | (if (eq (process-status (epg-context-process context)) 'run) | 1524 | (if (eq (process-status (epg-context-process context)) 'run) |
| 1529 | (process-send-string (epg-context-process context) | 1525 | (process-send-string (epg-context-process context) |
| 1530 | (epg-data-string signature))) | 1526 | (epg-data-string signature))) |