Use lexical-binding in mml-sec-tests.el

* test/lisp/gnus/mml-sec-tests.el: Use lexical-binding.
(mml-secure-test-mail-fixture)
(mml-secure-test-en-decrypt-with-passphrase): Fix warnings.

diff --git a/test/lisp/gnus/mml-sec-tests.el b/test/lisp/gnus/mml-sec-tests.el
index 673fa6984a1ad15e55157a87dd6dd77ea40f6553..0911932665dd57b3c7a59e3bbff13537fb87209f 100644 (file)
--- a/test/lisp/gnus/mml-sec-tests.el
+++ b/test/lisp/gnus/mml-sec-tests.el
@@ -1,4 +1,4 @@
-;;; gnustest-mml-sec.el --- Tests mml-sec.el, see README-mml-secure.txt.
+;;; mml-sec-tests.el --- Tests mml-sec.el, see README-mml-secure.txt.  -*- lexical-binding:t -*-
 ;; Copyright (C) 2015 Free Software Foundation, Inc.
 
 ;; Author: Jens Lechtenbörger <jens.lechtenboerger@fsfe.org>
@@ -51,6 +51,8 @@ Mostly, the empty passphrase is used.  However, the keys for
       '(sign-pgp sign-pgp-mime sign-smime)
     '(sign-pgp sign-pgp-mime)))
 
+(defvar mml-smime-use)
+
 (defun mml-secure-test-fixture (body &optional interactive)
   "Setup GnuPG home containing test keys and prepare environment for BODY.
 If optional INTERACTIVE is non-nil, allow questions to the user in case of
@@ -120,9 +122,9 @@ Subject: Test
 Pass optional INTERACTIVE to mml-secure-test-fixture."
   (mml-secure-test-fixture
    (lambda ()
-     (let ((context (if (memq method '(enc-smime enc-sign-smime sign-smime))
-                       (epg-make-context 'CMS)
-                     (epg-make-context 'OpenPGP)))
+     (let ((_context (if (memq method '(enc-smime enc-sign-smime sign-smime))
+                         (epg-make-context 'CMS)
+                       (epg-make-context 'OpenPGP)))
           ;; Verify and decrypt by default.
           (mm-verify-option 'known)
           (mm-decrypt-option 'known)
@@ -546,6 +548,10 @@ Pass optional INTERACTIVE to mml-secure-test-mail-fixture."
               ))))))
    interactive))
 
+(defvar mml-smime-cache-passphrase)
+(defvar mml2015-cache-passphrase)
+(defvar mml1991-cache-passphrase)
+
 (defun mml-secure-test-en-decrypt-with-passphrase
     (method to from checksig jl-passphrase do-cache
            &optional enc-keys expectfail)
@@ -562,7 +568,7 @@ If optional EXPECTFAIL is non-nil, a decryption failure is expected."
        (mml-smime-cache-passphrase do-cache)
        )
     (cl-letf (((symbol-function 'read-passwd)
-              (lambda (prompt &optional confirm default) jl-passphrase)))
+               (lambda (_prompt &optional _confirm _default) jl-passphrase)))
       (mml-secure-test-en-decrypt method to from checksig t enc-keys expectfail)
       )))
 
@@ -897,4 +903,4 @@ So the second decryption fails."
   (let ((with-smime nil))
     (ert-run-tests-batch)))
 
-;;; gnustest-mml-sec.el ends here
+;;; mml-sec-tests.el ends here