[Emacs-diffs] /srv/bzr/emacs/trunk r102678: last pgg adjustment before migrating to epg.

[Ken Manheimer]

------------------------------------------------------------
revno: 102678
committer: Ken Manheimer <address@hidden>
branch nick: trunk
timestamp: Thu 2010-12-16 17:33:13 -0500
message:
  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.
modified:
  lisp/allout.el

=== modified file 'lisp/allout.el'
--- a/lisp/allout.el    2010-11-27 03:25:35 +0000
+++ b/lisp/allout.el    2010-12-16 22:33:13 +0000
@@ -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)