Mercurial > emacs

changeset 111987:bf3ad2811a81

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.
author Ken Manheimer <ken.manheimer@gmail.com>
date Thu, 16 Dec 2010 17:33:13 -0500
parents faa4a1c986c6
children edfb54ff984c
files lisp/allout.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)