/[emacs]/emacs/lisp/gnus/pgg-gpg.el
ViewVC logotype

Diff of /emacs/lisp/gnus/pgg-gpg.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by ttn, Sat Aug 6 19:51:42 2005 UTC revision 1.7 by jas, Sat Oct 8 08:43:33 2005 UTC
# Line 100  Line 100 
100    (if (and pgg-cache-passphrase    (if (and pgg-cache-passphrase
101             (progn             (progn
102               (goto-char (point-min))               (goto-char (point-min))
103               (re-search-forward "^\\[GNUPG:] GOOD_PASSPHRASE\\>" nil t)))               (re-search-forward "^\\[GNUPG:] \\(GOOD_PASSPHRASE\\>\\)\\|\\(SIG_CREATED\\)" nil t)))
104        (pgg-add-passphrase-cache        (pgg-add-passphrase-cache
105         (or key         (or key
106             (progn             (progn
107               (goto-char (point-min))               (goto-char (point-min))
108               (if (re-search-forward               (if (re-search-forward
109                    "^\\[GNUPG:] NEED_PASSPHRASE \\w+ ?\\w*" nil t)                    "^\\[GNUPG:] NEED_PASSPHRASE\\(_PIN\\)? \\w+ ?\\w*" nil t)
110                   (substring (match-string 0) -8))))                   (substring (match-string 0) -8))))
111         passphrase)))         passphrase)))
112    

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26