* pgg-pgp5.el (pgg-scheme-verify-region): Copy the contents of

`pgg-errors-buffer' to `pgg-output-buffer'.

diff --git a/ChangeLog b/ChangeLog
index 1606cac..fb579ed 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2000-02-02  Nakagawa, Makoto  <Makoto.Nakagawa@jp.compaq.com>
+
+       * pgg-pgp5.el (pgg-scheme-verify-region): Copy the contents of
+       `pgg-errors-buffer' to `pgg-output-buffer'.
+
 2000-02-21   Daiki Ueno  <ueno@ueda.info.waseda.ac.jp>
 
        * 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 (file)
--- 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))