]> code.delx.au - gnu-emacs/blobdiff - lisp/epg.el
epg.el: Make gpgconf output parsing future proof
[gnu-emacs] / lisp / epg.el
index 7e3cec7b2b7b53ba8dccc60257091ba074da66da..0c8f5c9b0ae3403125866ced03ffef2f54ab662f 100644 (file)
@@ -611,7 +611,9 @@ callback data (if any)."
                                        "--list-options" "gpg-agent")
                          0)
                   (goto-char (point-min))
-                  (re-search-forward "^allow-emacs-pinentry:.*:1$" nil t))))
+                  (re-search-forward
+                    "^allow-emacs-pinentry:\\(?:.*:\\)\\{8\\}1"
+                    nil t))))
       (pinentry-start))
     (setq process-environment
          (cons (format "INSIDE_EMACS=%s,epg" emacs-version)