From: ueno <ueno>
Date: Mon, 21 Feb 2000 11:49:56 +0000 (+0000)
Subject: * pgg-pgp5.el (pgg-scheme-verify-region): Copy the contents of
X-Git-Tag: emiko-1_13_11~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=409a9cd46b2403c5581c5f607afe821233aba8e7;p=elisp%2Fsemi.git

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