From: ueno <ueno>
Date: Fri, 5 Nov 1999 20:26:55 +0000 (+0000)
Subject: * pgg-gpg.el (verify-region): Fill errors buffer whether
X-Git-Tag: emiko-1_13_7~51
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4a8ebf5b621de5305d805aa632b9121ad136c26c;p=elisp%2Fsemi.git

* pgg-gpg.el (verify-region): Fill errors buffer whether
verification has succeeded or not.
---

diff --git a/pgg-gpg.el b/pgg-gpg.el
index edb8706..a879e9f 100644
--- a/pgg-gpg.el
+++ b/pgg-gpg.el
@@ -230,21 +230,23 @@
       (setq args (append args (list signature))))
     (pgg-gpg-process-region start end nil pgg-gpg-program args)
     (save-excursion
+      (set-buffer pgg-errors-buffer)
+      (goto-char (point-min))
+      (while (re-search-forward "^gpg: " nil t)
+	(replace-match ""))
+      (goto-char (point-min))
+      (let ((case-fold-search t))
+	(while (re-search-forward "^warning: " nil t)
+	  (delete-region (match-beginning 0)
+			 (progn (beginning-of-line 2) (point)))))
       (set-buffer pgg-status-buffer)
       (goto-char (point-min))
-      (when (re-search-forward "^\\[GNUPG:] +GOODSIG +" nil t)
-	(set-buffer pgg-errors-buffer)
-	(goto-char (point-min))
-	(while (re-search-forward "^gpg: " nil t)
-	  (replace-match ""))
-	(goto-char (point-min))
-	(let ((case-fold-search t))
-	  (while (re-search-forward "^warning: " nil t)
-	    (delete-region (match-beginning 0)
-			   (progn (beginning-of-line 2) (point)))))
-	(append-to-buffer pgg-output-buffer
-			  (point-min)(point-max))
-	t))
+      (if (re-search-forward "^\\[GNUPG:] +GOODSIG +" nil t)
+	  (progn
+	    (set-buffer pgg-output-buffer)
+	    (insert-buffer-substring pgg-errors-buffer)
+	    t)
+	nil))
     ))
 
 (luna-define-method insert-key ((scheme pgg-scheme-gpg))