From 4a8ebf5b621de5305d805aa632b9121ad136c26c Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 5 Nov 1999 20:26:55 +0000 Subject: [PATCH] * pgg-gpg.el (verify-region): Fill errors buffer whether verification has succeeded or not. --- pgg-gpg.el | 28 +++++++++++++++------------- 1 file changed, 15 insertions(+), 13 deletions(-) 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)) -- 1.7.10.4