From da420726395ea72464a331df07ad91ffea03f217 Mon Sep 17 00:00:00 2001 From: Ken Manheimer Date: Thu, 16 Dec 2010 17:33:13 -0500 Subject: [PATCH] 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. --- lisp/allout.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/allout.el b/lisp/allout.el index b497c82f0b3..93d6544b18e 100644 --- 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) -- 2.39.5