From: yamaoka <yamaoka>
Date: Thu, 15 Apr 1999 22:47:18 +0000 (+0000)
Subject: * (mime-add-application/pgp-keys): Use `mime-insert-entity-content' to get
X-Git-Tag: semi-pgpgpg_12~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f37d4f20b1805d621d1e323c14ef4d1f6036a85f;p=elisp%2Fsemi.git

* (mime-add-application/pgp-keys): Use `mime-insert-entity-content' to get
public keys.
---

diff --git a/ChangeLog b/ChangeLog
index 26c4f1b..5ac033d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1999-04-15  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* mime-pgp.el (mime-add-application/pgp-keys): Use
+	`mime-insert-entity-content' to get public keys.
+
 1999-04-13  Hirokazu FUKUI    <fukui@atesoft.advantest.co.jp>
 
 	* mime-pgp.el (mime-add-application/pgp-keys): Call
diff --git a/mime-pgp.el b/mime-pgp.el
index f1327c8..08d53c9 100644
--- a/mime-pgp.el
+++ b/mime-pgp.el
@@ -491,20 +491,16 @@ key-ID if it is found."
 
 (defun mime-add-application/pgp-keys (entity situation)
   (let* ((start (mime-entity-point-min entity))
-	 (end (mime-entity-point-max entity))
 	 (entity-number (mime-raw-point-to-entity-number start entity))
 	 (new-name (format "%s-%s"
 			   (buffer-name (mime-entity-buffer entity))
 			   entity-number))
 	 (encoding (cdr (assq 'encoding situation)))
-	 str)
-    (setq str (save-excursion
-		(set-buffer (mime-entity-buffer entity))
-		(buffer-substring start end)))
+	 )
     (switch-to-buffer new-name)
     (setq buffer-read-only nil)
     (erase-buffer)
-    (insert str)
+    (mime-insert-entity-content entity)
     (goto-char (point-min))
     (if (re-search-forward "^\n" nil t)
 	(delete-region (point-min) (match-end 0))