1 |
|
;;; pgg-def.el --- functions/macros for defining PGG functions |
2 |
|
|
3 |
|
;; Copyright (C) 1999, 2003 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., 59 Temple Place - Suite 330, |
24 |
|
;; Boston, MA 02111-1307, USA. |
25 |
|
|
26 |
|
;;; Code: |
27 |
|
|
28 |
|
(require 'custom) |
29 |
|
|
30 |
|
(defgroup pgg () |
31 |
|
"Glue for the various PGP implementations." |
32 |
|
:group 'mime) |
33 |
|
|
34 |
|
(defcustom pgg-default-scheme 'gpg |
35 |
|
"Default PGP scheme." |
36 |
|
:group 'pgg |
37 |
|
:type '(choice (const :tag "GnuPG" gpg) |
38 |
|
(const :tag "PGP 5" pgp5) |
39 |
|
(const :tag "PGP" pgp))) |
40 |
|
|
41 |
|
(defcustom pgg-default-user-id (user-login-name) |
42 |
|
"User ID of your default identity." |
43 |
|
:group 'pgg |
44 |
|
:type 'string) |
45 |
|
|
46 |
|
(defcustom pgg-default-keyserver-address "subkeys.pgp.net" |
47 |
|
"Host name of keyserver." |
48 |
|
:group 'pgg |
49 |
|
:type 'string) |
50 |
|
|
51 |
|
(defcustom pgg-query-keyserver nil |
52 |
|
"Whether PGG queries keyservers for missing keys when verifying messages." |
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 |