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