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

[elisp/semi.git] / mime-pgp.el

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