procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* pgg-gpg.el (pgg-gpg-possibly-cache-passphrase): Fix PIN caching,

Browse source 
tiny patch from "Georg C. F. Greve" <greve@gnu.org>.
This commit is contained in:
Simon Josefsson 2005-10-08 08:43:33 +00:00
parent 46f934722e
commit 82259e507d
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -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

4
lisp/gnus/pgg-gpg.el
View file

@ -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)))