From 3bea7eadde408606bbc163ce788d7fae141f830b Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Mon, 9 May 2005 19:18:02 +0000 Subject: [PATCH] (pgg-gpg-possibly-cache-passphrase): Fix PIN caching, tiny patch from "Georg C. F. Greve" . --- lisp/ChangeLog | 5 +++++ lisp/pgg-gpg.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 197aec393..d06c3a6cc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-05-09 Simon Josefsson + + * pgg-gpg.el (pgg-gpg-possibly-cache-passphrase): Fix PIN caching, + tiny patch from "Georg C. F. Greve" . + 2005-05-01 Lars Magne Ingebrigtsen * gnus.el (gnus-version-number): Bump version. diff --git a/lisp/pgg-gpg.el b/lisp/pgg-gpg.el index 2b3e521c6..432f04f35 100644 --- a/lisp/pgg-gpg.el +++ b/lisp/pgg-gpg.el @@ -99,13 +99,13 @@ (if (and pgg-cache-passphrase (progn (goto-char (point-min)) - (re-search-forward "^\\[GNUPG:] GOOD_PASSPHRASE\\>" nil t))) + (re-search-forward "^\\[GNUPG:] \\(GOOD_PASSPHRASE\\>\\)\\|\\(SIG_CREATED\\)" nil t))) (pgg-add-passphrase-cache (or key (progn (goto-char (point-min)) (if (re-search-forward - "^\\[GNUPG:] NEED_PASSPHRASE \\w+ ?\\w*" nil t) + "^\\[GNUPG:] NEED_PASSPHRASE\\(_PIN\\)? \\w+ ?\\w*" nil t) (substring (match-string 0) -8)))) passphrase))) -- 2.25.1