mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

Only use --sender for gpg when gpg supports it

Browse source 
* lisp/epg-config.el (epg-required-version-p): New function (bug#37025).

* lisp/gnus/mml-sec.el (mml-secure-epg-sign):
* lisp/epg.el (epg-start-sign):
(epg-start-encrypt): Use it to only use --sender when the gpg
binary supports it.
This commit is contained in:
Teemu Likonen 2019-08-26 07:52:54 +02:00 • committed by Lars Ingebrigtsen
parent 8056d39c1d
commit f5fa0c9062
3 changed files with 20 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/epg-config.el
View file

@ -262,6 +262,15 @@ a single minimum version string."
(throw 'version-ok t)))
(error "Unsupported version: %s" version))))
(defun epg-required-version-p (protocol required-version)
"Verify a sufficient version of GnuPG for specific protocol.
PROTOCOL is symbol, either `OpenPGP' or `CMS'. REQUIRED-VERSION
is a string containing the required version number. Return
non-nil if that version or higher is installed."
(let ((version (cdr (assq 'version (epg-find-configuration protocol)))))
(and (stringp version)
(version<= required-version version))))
;;;###autoload
(defun epg-expand-group (config group)
"Look at CONFIG and try to expand GROUP."

10
lisp/epg.el
View file

@ -1618,7 +1618,9 @@ If you are unsure, use synchronous version of this function
(car (epg-key-sub-key-list signer)))))
(epg-context-signers context)))
(let ((sender (epg-context-sender context)))
(when (stringp sender)
(when (and (eql 'OpenPGP (epg-context-protocol context))
(epg-required-version-p 'OpenPGP "2.1.15")
(stringp sender))
(list "--sender" sender)))
(epg--args-from-sig-notations
(epg-context-sig-notations context))
@ -1714,9 +1716,11 @@ If you are unsure, use synchronous version of this function
(car (epg-key-sub-key-list
signer)))))
(epg-context-signers context))))
(if sign
(if (and sign
(eql 'OpenPGP (epg-context-protocol context)))
(let ((sender (epg-context-sender context)))
(when (stringp sender)
(when (and (epg-required-version-p 'OpenPGP "2.1.15")
(stringp sender))
(list "--sender" sender))))
(if sign
(epg--args-from-sig-notations

8
lisp/gnus/mml-sec.el
View file

@ -915,7 +915,7 @@ If no one is selected, symmetric encryption will be performed. "
(when sign
(setq signers (mml-secure-signers context signer-names))
(setf (epg-context-signers context) signers)
(when mml-secure-openpgp-sign-with-sender
(when (and (eq 'OpenPGP protocol) mml-secure-openpgp-sign-with-sender)
(setf (epg-context-sender context) sender)))
(when (eq 'OpenPGP protocol)
(setf (epg-context-armor context) t)
@ -945,10 +945,10 @@ If no one is selected, symmetric encryption will be performed. "
signature micalg)
(when (eq 'OpenPGP protocol)
(setf (epg-context-armor context) t)
(setf (epg-context-textmode context) t))
(setf (epg-context-textmode context) t)
(when mml-secure-openpgp-sign-with-sender
(setf (epg-context-sender context) sender)))
(setf (epg-context-signers context) signers)
(when mml-secure-openpgp-sign-with-sender
(setf (epg-context-sender context) sender))
(when (mml-secure-cache-passphrase-p protocol)
(epg-context-set-passphrase-callback
context