2006-04-05 Daiki Ueno <ueno@unixuser.org>

	* pgg-gpg.el (pgg-gpg-process-filter): Fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3838aab..c7f1b66 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-04-05  Daiki Ueno  <ueno@unixuser.org>
+
+       * pgg-gpg.el (pgg-gpg-process-filter): Fix.
+
 2006-04-05  Simon Josefsson  <jas@extundo.com>
 
        * password.el (password-reset): New function.

diff --git a/lisp/pgg-gpg.el b/lisp/pgg-gpg.el
index d8ceeab..5cc48c5 100644 (file)
--- a/lisp/pgg-gpg.el
+++ b/lisp/pgg-gpg.el
@@ -122,12 +122,10 @@
          (save-excursion
            (if (looking-at "\\[GNUPG:] \\([A-Z_]+\\)\\>.*")
                (let* ((status (match-string 1))
-                      (symbol (intern-soft (concat "pgg-gpg-status-" status)))
-                      (entry (member status pgg-gpg-pending-status-list)))
-                 (if entry
-                     (setq pgg-gpg-pending-status-list
-                           (delq (car entry)
-                                 pgg-gpg-pending-status-list)))
+                      (symbol (intern-soft (concat "pgg-gpg-status-"
+                                                   status))))
+                 (if (member status pgg-gpg-pending-status-list)
+                     (setq pgg-gpg-pending-status-list nil))
                  (if (and symbol
                           (fboundp symbol))
                      (funcall symbol process (buffer-substring