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