Mercurial > hg > xemacs-beta

comparison lisp/mailcrypt/mc-pgp.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 376386a54a3c
children 131b0175ea99
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
53 "Regular expression matching a PGP signature validation message") 53 "Regular expression matching a PGP signature validation message")
54 (defconst mc-pgp-newkey-re "^[ \t]*\\(No\\|[0-9]+\\) +new [ku].*" 54 (defconst mc-pgp-newkey-re "^[ \t]*\\(No\\|[0-9]+\\) +new [ku].*"
55 "Regular expression matching a PGP key snarf message") 55 "Regular expression matching a PGP key snarf message")
56 (defconst mc-pgp-nokey-re 56 (defconst mc-pgp-nokey-re
57 "Cannot find the public key matching userid '\\(.+\\)'$" 57 "Cannot find the public key matching userid '\\(.+\\)'$"
58 "Regular expression matching a PGP missing-key messsage") 58 "Regular expression matching a PGP missing-key message")
59 (defconst mc-pgp-key-expected-re 59 (defconst mc-pgp-key-expected-re
60 "Key matching expected Key ID \\(\\S +\\) not found") 60 "Key matching expected Key ID \\(\\S +\\) not found")
61 61
62 (defvar mc-pgp-keydir nil 62 (defvar mc-pgp-keydir nil
63 "Directory in which keyrings are stored.") 63 "Directory in which keyrings are stored.")