From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 26 Dec 2020 02:59:35 +0000 (+0100)
Subject: Kill the scdaemon after doing the mml-sec tests
X-Git-Tag: emacs-28.0.90~4557
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a63855cd21aefee993b622241993043a31894c0c;p=emacs.git

Kill the scdaemon after doing the mml-sec tests

* test/lisp/gnus/mml-sec-tests.el (mml-sec-test--kill-gpg-agent):
Kill the scdaemon, too (bug#43358).
---

diff --git a/test/lisp/gnus/mml-sec-tests.el b/test/lisp/gnus/mml-sec-tests.el
index a144e2e4ffb..e3a8c81cc65 100644
--- a/test/lisp/gnus/mml-sec-tests.el
+++ b/test/lisp/gnus/mml-sec-tests.el
@@ -884,7 +884,8 @@ So the second decryption fails."
   (dolist (pid (list-system-processes))
     (let ((atts (process-attributes pid)))
       (when (and (equal (cdr (assq 'user atts)) (user-login-name))
-                 (equal (cdr (assq 'comm atts)) "gpg-agent")
+                 (or (equal (cdr (assq 'comm atts)) "gpg-agent")
+		     (equal (cdr (assq 'comm atts)) "scdaemon"))
                  (string-match
                   (concat "homedir.*"
                           (regexp-quote (directory-file-name