; Further tracing of epg-tests gpg config (Bug#23561)

diff --git a/lisp/epg-config.el b/lisp/epg-config.el
index 98f458d9962822895aec15ae820292c58a0e4e10..e5fd12d9679db16ad8041de2d9ee60d895a4c220 100644 (file)
--- a/lisp/epg-config.el
+++ b/lisp/epg-config.el
@@ -175,6 +175,8 @@ version requirement is met."
             (append (if epg-gpg-home-directory
                         (list "--homedir" epg-gpg-home-directory))
                     '("--with-colons" "--list-config")))
+      (when (and (boundp 'trace-level) (> trace-level 0))
+        (trace-values (concat "gpg output:\n" (buffer-string))))
       (goto-char (point-min))
       (while (re-search-forward "^cfg:\\([^:]+\\):\\(.*\\)" nil t)
        (setq type (intern (match-string 1))