Mercurial > hg > xemacs-beta

comparison lisp/mailcrypt/mc-pgp.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
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.")