# HG changeset patch
# User Simon Josefsson <jas@extundo.com>
# Date 1128761013 0
# Node ID 03ce3b2e47a2f76722bb7c3a14d1b8f441bbdae3
# Parent  194850eac491c9232535fe291111c604111a7d1f
* pgg-gpg.el (pgg-gpg-possibly-cache-passphrase): Fix PIN caching,
tiny patch from "Georg C. F. Greve" <greve@gnu.org>.

diff -r 194850eac491 -r 03ce3b2e47a2 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Sat Oct 08 08:40:34 2005 +0000
+++ b/lisp/gnus/ChangeLog	Sat Oct 08 08:43:33 2005 +0000
@@ -1,3 +1,8 @@
+2005-05-09  Simon Josefsson  <jas@extundo.com>
+
+	* pgg-gpg.el (pgg-gpg-possibly-cache-passphrase): Fix PIN caching,
+	tiny patch from "Georg C. F. Greve" <greve@gnu.org>.
+
 2005-10-08  Simon Josefsson  <jas@extundo.com>
 
 	* pgg-def.el (top-level): Don't require custom, it is
diff -r 194850eac491 -r 03ce3b2e47a2 lisp/gnus/pgg-gpg.el
--- a/lisp/gnus/pgg-gpg.el	Sat Oct 08 08:40:34 2005 +0000
+++ b/lisp/gnus/pgg-gpg.el	Sat Oct 08 08:43:33 2005 +0000
@@ -100,13 +100,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)))