From: yamaoka <yamaoka>
Date: Wed, 28 Jul 1999 23:22:19 +0000 (+0000)
Subject: (mime-add-application/pgp-keys): Decode the entity body before snarfing keys.
X-Git-Tag: semi-pgpgpg_20~31
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b74d242b6f5cd44ec60442649912ce43c98e6e6c;p=elisp%2Fsemi.git

(mime-add-application/pgp-keys): Decode the entity body before snarfing keys.
---

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))
       )))