From a1fb4ce0da28e720e2a301e534edfc7851d3851f Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Wed, 5 Apr 2006 12:57:22 +0000 Subject: [PATCH] 2006-04-05 Daiki Ueno * pgg-gpg.el (pgg-gpg-process-filter): Fix. --- lisp/ChangeLog | 4 ++++ lisp/pgg-gpg.el | 10 ++++------ 2 files changed, 8 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3838aab29..c7f1b66c5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2006-04-05 Daiki Ueno + + * pgg-gpg.el (pgg-gpg-process-filter): Fix. + 2006-04-05 Simon Josefsson * password.el (password-reset): New function. diff --git a/lisp/pgg-gpg.el b/lisp/pgg-gpg.el index d8ceeabc2..5cc48c57b 100644 --- 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 -- 2.34.1