From f37d4f20b1805d621d1e323c14ef4d1f6036a85f Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 15 Apr 1999 22:47:18 +0000 Subject: [PATCH] * (mime-add-application/pgp-keys): Use `mime-insert-entity-content' to get public keys. --- ChangeLog | 5 +++++ mime-pgp.el | 8 ++------ 2 files changed, 7 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index 26c4f1b..5ac033d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1999-04-15 Katsumi Yamaoka + + * mime-pgp.el (mime-add-application/pgp-keys): Use + `mime-insert-entity-content' to get public keys. + 1999-04-13 Hirokazu FUKUI * 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)) -- 1.7.10.4