Mercurial > emacs
comparison lisp/obsolete/pgg-def.el @ 112005:62f897baec0a
Mark PGG obsolete.
* obsolete/pgg-parse.el, obsolete/pgg-pgp5.el, obsolete/pgg-pgp.el,
* obsolete/pgg-gpg.el, obsolete/pgg-def.el, obsolete/pgg.el: Move
from lisp/.
* gnus/mml1991.el (pgg-sign-region, pgg-encrypt-region):
* gnus/gnus-art.el (pgg-snarf-keys-region): Autoload since PGG is now
obsolete in Emacs.
author | Daiki Ueno <ueno@unixuser.org> |
---|---|
date | Tue, 21 Dec 2010 11:30:36 +0900 |
parents | lisp/pgg-def.el@8d09094063d0 |
children | 0258e50dbf90 |
comparison
equal
deleted
inserted
replaced
112004:7a4b15c4bbed | 112005:62f897baec0a |
---|---|
1 ;;; pgg-def.el --- functions/macros for defining PGG functions | |
2 | |
3 ;; Copyright (C) 1999, 2002, 2003, 2004, 2005, | |
4 ;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. | |
5 | |
6 ;; Author: Daiki Ueno <ueno@unixuser.org> | |
7 ;; Created: 1999/11/02 | |
8 ;; Keywords: PGP, OpenPGP, GnuPG | |
9 ;; Package: pgg | |
10 | |
11 ;; This file is part of GNU Emacs. | |
12 | |
13 ;; GNU Emacs is free software: you can redistribute it and/or modify | |
14 ;; it under the terms of the GNU General Public License as published by | |
15 ;; the Free Software Foundation, either version 3 of the License, or | |
16 ;; (at your option) any later version. | |
17 | |
18 ;; GNU Emacs is distributed in the hope that it will be useful, | |
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 ;; GNU General Public License for more details. | |
22 | |
23 ;; You should have received a copy of the GNU General Public License | |
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | |
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 (defcustom pgg-passphrase-coding-system nil | |
74 "Coding system to encode passphrase." | |
75 :group 'pgg | |
76 :type 'coding-system) | |
77 | |
78 (defvar pgg-messages-coding-system nil | |
79 "Coding system used when reading from a PGP external process.") | |
80 | |
81 (defvar pgg-status-buffer " *PGG status*") | |
82 (defvar pgg-errors-buffer " *PGG errors*") | |
83 (defvar pgg-output-buffer " *PGG output*") | |
84 | |
85 (defvar pgg-echo-buffer "*PGG-echo*") | |
86 | |
87 (defvar pgg-scheme nil | |
88 "Current scheme of PGP implementation.") | |
89 | |
90 (defvar pgg-text-mode nil | |
91 "If t, inform the recipient that the input is text.") | |
92 | |
93 (defmacro pgg-truncate-key-identifier (key) | |
94 `(if (> (length ,key) 8) (substring ,key -8) ,key)) | |
95 | |
96 (provide 'pgg-def) | |
97 | |
98 ;;; pgg-def.el ends here |