Mercurial > hg > xemacs-beta

comparison lisp/mailcrypt/mc-pgp.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents ec9a17fef872
children 360340f9fd5f
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
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 message") 58 "Regular expression matching a PGP missing-key messsage")
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.")