Mercurial > emacs
comparison lisp/pgg-def.el @ 90261:7beb78bc1f8e
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-97
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 616-696)
- Add lisp/mh-e/.arch-inventory
- Update from CVS
- Merge from gnus--rel--5.10
- Update from CVS: lisp/smerge-mode.el: Add 'tools' to file keywords.
- lisp/gnus/ChangeLog: Remove duplicate entry
* gnus--rel--5.10 (patch 147-181)
- Update from CVS
- Merge from emacs--cvs-trunk--0
- Update from CVS: lisp/mml.el (mml-preview): Doc fix.
- Update from CVS: texi/message.texi: Fix default values.
- Update from CVS: texi/gnus.texi (RSS): Addition.
author | Miles Bader <miles@gnu.org> |
---|---|
date | Mon, 16 Jan 2006 08:37:27 +0000 |
parents | c82982d6cbc4 |
children | 3bd95f4f2941 |
comparison
equal
deleted
inserted
replaced
90260:0ca0d9181b5e | 90261:7beb78bc1f8e |
---|---|
1 ;;; pgg-def.el --- functions/macros for defining PGG functions | |
2 | |
3 ;; Copyright (C) 1999, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. | |
4 | |
5 ;; Author: Daiki Ueno <ueno@unixuser.org> | |
6 ;; Created: 1999/11/02 | |
7 ;; Keywords: PGP, OpenPGP, GnuPG | |
8 | |
9 ;; This file is part of GNU Emacs. | |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
13 ;; the Free Software Foundation; either version 2, or (at your option) | |
14 ;; any later version. | |
15 | |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, | |
24 ;; Boston, MA 02110-1301, USA. | |
25 | |
26 ;;; Code: | |
27 | |
28 (defgroup pgg () | |
29 "Glue for the various PGP implementations." | |
30 :group 'mime | |
31 :version "22.1") | |
32 | |
33 (defcustom pgg-default-scheme 'gpg | |
34 "Default PGP scheme." | |
35 :group 'pgg | |
36 :type '(choice (const :tag "GnuPG" gpg) | |
37 (const :tag "PGP 5" pgp5) | |
38 (const :tag "PGP" pgp))) | |
39 | |
40 (defcustom pgg-default-user-id (user-login-name) | |
41 "User ID of your default identity." | |
42 :group 'pgg | |
43 :type 'string) | |
44 | |
45 (defcustom pgg-default-keyserver-address "subkeys.pgp.net" | |
46 "Host name of keyserver." | |
47 :group 'pgg | |
48 :type 'string) | |
49 | |
50 (defcustom pgg-query-keyserver nil | |
51 "Whether PGG queries keyservers for missing keys when verifying messages." | |
52 :version "22.1" | |
53 :group 'pgg | |
54 :type 'boolean) | |
55 | |
56 (defcustom pgg-encrypt-for-me t | |
57 "If t, encrypt all outgoing messages with user's public key." | |
58 :group 'pgg | |
59 :type 'boolean) | |
60 | |
61 (defcustom pgg-cache-passphrase t | |
62 "If t, cache passphrase." | |
63 :group 'pgg | |
64 :type 'boolean) | |
65 | |
66 (defcustom pgg-passphrase-cache-expiry 16 | |
67 "How many seconds the passphrase is cached. | |
68 Whether the passphrase is cached at all is controlled by | |
69 `pgg-cache-passphrase'." | |
70 :group 'pgg | |
71 :type 'integer) | |
72 | |
73 (defvar pgg-messages-coding-system nil | |
74 "Coding system used when reading from a PGP external process.") | |
75 | |
76 (defvar pgg-status-buffer " *PGG status*") | |
77 (defvar pgg-errors-buffer " *PGG errors*") | |
78 (defvar pgg-output-buffer " *PGG output*") | |
79 | |
80 (defvar pgg-echo-buffer "*PGG-echo*") | |
81 | |
82 (defvar pgg-scheme nil | |
83 "Current scheme of PGP implementation.") | |
84 | |
85 (defmacro pgg-truncate-key-identifier (key) | |
86 `(if (> (length ,key) 8) (substring ,key 8) ,key)) | |
87 | |
88 (provide 'pgg-def) | |
89 | |
90 ;;; arch-tag: c425f3ab-ed75-4055-bb46-431a418c94b7 | |
91 ;;; pgg-def.el ends here |