From b74d242b6f5cd44ec60442649912ce43c98e6e6c Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 28 Jul 1999 23:22:19 +0000 Subject: [PATCH] (mime-add-application/pgp-keys): Decode the entity body before snarfing keys. --- mime-pgp.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/mime-pgp.el b/mime-pgp.el index b953c12..b2cebc7 100644 --- a/mime-pgp.el +++ b/mime-pgp.el @@ -547,9 +547,11 @@ list of expected key-ID, start position and lines to be shown a result." ;;; It is based on RFC 2015 (PGP/MIME) and ;;; draft-yamamoto-openpgp-mime-00.txt (OpenPGP/MIME). -(defun mime-add-application/pgp-keys (entity &optional situation) +(defun mime-add-application/pgp-keys (entity situation) (with-temp-buffer (mime-insert-entity-content entity) + (mime-decode-region (point-min) (point-max) + (cdr (assq 'encoding situation))) (let ((pgp-version (mime-pgp-detect-version))) (funcall (pgp-function 'snarf-keys)) ))) -- 1.7.10.4