last pgg adjustment before migrating to epg.

(allout-encrypted-key-info): replace pgg-gpg-symmetric-key-p with explicit
examination of the parsed armoring structure.  pgg-gpg-symmetric-key-p
seems to have drifted, not recognizing parsed symmetric keys as being
symmetric.

diff --git a/lisp/allout.el b/lisp/allout.el
index b497c82f0b31c9b01c947569502427635b615658..93d6544b18eb08987e945bdae04011e04f508b34 100644 (file)
--- a/lisp/allout.el
+++ b/lisp/allout.el
@@ -6544,7 +6544,8 @@ An error is raised if the text is not encrypted."
     (with-temp-buffer
       (insert text)
       (let* ((parsed-armor (pgg-parse-armor-region (point-min) (point-max)))
-             (type (if (pgg-gpg-symmetric-key-p parsed-armor)
+             ;; pgg-gpg-symmetric-key-p has lost track.
+             (type (if (assq 'symmetric-key-algorithm (car (cdr parsed-armor)))
                        'symmetric
                      'keypair))
              secret-keys first-secret-key for-key-owner)