From 409a9cd46b2403c5581c5f607afe821233aba8e7 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 21 Feb 2000 11:49:56 +0000 Subject: [PATCH] * pgg-pgp5.el (pgg-scheme-verify-region): Copy the contents of `pgg-errors-buffer' to `pgg-output-buffer'. --- ChangeLog | 5 +++++ pgg-pgp5.el | 7 ++++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 1606cac..fb579ed 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2000-02-02 Nakagawa, Makoto + + * pgg-pgp5.el (pgg-scheme-verify-region): Copy the contents of + `pgg-errors-buffer' to `pgg-output-buffer'. + 2000-02-21 Daiki Ueno * mime-pgp.el: When it is compiled, define `smime-output-buffer' diff --git a/pgg-pgp5.el b/pgg-pgp5.el index b683d96..89aeda9 100644 --- a/pgg-pgp5.el +++ b/pgg-pgp5.el @@ -216,7 +216,12 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"." (if signature (delete-file signature)) (with-current-buffer pgg-errors-buffer (goto-char (point-min)) - (re-search-forward "^Good signature" nil t)))) + (if (re-search-forward "^Good signature" nil t) + (progn + (set-buffer pgg-output-buffer) + (insert-buffer-substring pgg-errors-buffer) + t) + nil)))) (luna-define-method pgg-scheme-insert-key ((scheme pgg-scheme-pgp5)) (let* ((pgg-pgp5-user-id (or pgg-pgp5-user-id pgg-default-user-id)) -- 1.7.10.4