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

public keys.

diff --git a/ChangeLog b/ChangeLog
index 26c4f1b..5ac033d 100644 (file)
--- 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 (file)
--- 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))