# HG changeset patch
# User Ken Manheimer <ken.manheimer@gmail.com>
# Date 1292538793 18000
# Node ID bf3ad2811a819e98bbee2597a541fa126ce7113b
# Parent  faa4a1c986c671f72f2d3c78fa27fb7adb6458e2
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 -r faa4a1c986c6 -r bf3ad2811a81 lisp/allout.el
--- a/lisp/allout.el	Thu Dec 16 22:22:28 2010 +0000
+++ b/lisp/allout.el	Thu Dec 16 17:33:13 2010 -0500
@@ -6544,7 +6544,8 @@
     (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)