procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Replace some obsolete functions in gnus

Browse source 
* lisp/gnus/mml-sec.el (mml-secure-epg-encrypt):
* lisp/gnus/smime.el (smime-ask-passphrase): Replace obsolete functions.
This commit is contained in:
Glenn Morris 2018-03-03 17:17:36 -08:00
parent a56a3fc684
commit d3437eaf67
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -903,7 +903,7 @@ If no one is selected, symmetric encryption will be performed. "
(defun mml-secure-epg-encrypt (protocol cont &optional sign)
;; Based on code appearing inside mml2015-epg-encrypt.
(let* ((context (epg-make-context protocol))
(config (epg-configuration))
(config (epg-find-configuration 'OpenPGP))
(sender (message-options-get 'message-sender))
(recipients (mml-secure-recipients protocol context config sender))
(signer-names (mml-secure-signer-names protocol sender))

3
lisp/gnus/smime.el
View file

@ -234,10 +234,11 @@ must be set in `ldap-host-parameters-alist'."
If `cache-key' and `password-cache' is non-nil then cache the
password under `cache-key'."
(let ((passphrase
(password-read-and-add
(password-read
"Passphrase for secret key (RET for no passphrase): " cache-key)))
(if (string= passphrase "")
nil
(and passphrase cache-key (password-cache-add cache-key passphrase))
passphrase)))
;; OpenSSL wrappers.