diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2005-10-24 09:46:27 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2005-10-24 09:46:27 +0000 |
| commit | ad1fd53533fef1ba272aba42d6dd990c9ee9c899 (patch) | |
| tree | 6aabe09a98e38fd79ecb2ebc90b3c9a1773d9f08 /lisp/pgg-def.el | |
| parent | ea35bfd3bd03912e24e0ac9e6e0da29dd1f62ac7 (diff) | |
| download | emacs-ad1fd53533fef1ba272aba42d6dd990c9ee9c899.tar.gz emacs-ad1fd53533fef1ba272aba42d6dd990c9ee9c899.tar.bz2 emacs-ad1fd53533fef1ba272aba42d6dd990c9ee9c899.zip | |
Moved pgg*.el files from lisp/gnus to lisp.
Diffstat (limited to 'lisp/pgg-def.el')
| -rw-r--r-- | lisp/pgg-def.el | 91 |
1 files changed, 91 insertions, 0 deletions
diff --git a/lisp/pgg-def.el b/lisp/pgg-def.el new file mode 100644 index 00000000000..c6197db447d --- /dev/null +++ b/lisp/pgg-def.el @@ -0,0 +1,91 @@ +;;; pgg-def.el --- functions/macros for defining PGG functions + +;; Copyright (C) 1999, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. + +;; Author: Daiki Ueno <ueno@unixuser.org> +;; Created: 1999/11/02 +;; Keywords: PGP, OpenPGP, GnuPG + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Code: + +(defgroup pgg () + "Glue for the various PGP implementations." + :group 'mime + :version "22.1") + +(defcustom pgg-default-scheme 'gpg + "Default PGP scheme." + :group 'pgg + :type '(choice (const :tag "GnuPG" gpg) + (const :tag "PGP 5" pgp5) + (const :tag "PGP" pgp))) + +(defcustom pgg-default-user-id (user-login-name) + "User ID of your default identity." + :group 'pgg + :type 'string) + +(defcustom pgg-default-keyserver-address "subkeys.pgp.net" + "Host name of keyserver." + :group 'pgg + :type 'string) + +(defcustom pgg-query-keyserver nil + "Whether PGG queries keyservers for missing keys when verifying messages." + :version "22.1" + :group 'pgg + :type 'boolean) + +(defcustom pgg-encrypt-for-me t + "If t, encrypt all outgoing messages with user's public key." + :group 'pgg + :type 'boolean) + +(defcustom pgg-cache-passphrase t + "If t, cache passphrase." + :group 'pgg + :type 'boolean) + +(defcustom pgg-passphrase-cache-expiry 16 + "How many seconds the passphrase is cached. +Whether the passphrase is cached at all is controlled by +`pgg-cache-passphrase'." + :group 'pgg + :type 'integer) + +(defvar pgg-messages-coding-system nil + "Coding system used when reading from a PGP external process.") + +(defvar pgg-status-buffer " *PGG status*") +(defvar pgg-errors-buffer " *PGG errors*") +(defvar pgg-output-buffer " *PGG output*") + +(defvar pgg-echo-buffer "*PGG-echo*") + +(defvar pgg-scheme nil + "Current scheme of PGP implementation.") + +(defmacro pgg-truncate-key-identifier (key) + `(if (> (length ,key) 8) (substring ,key 8) ,key)) + +(provide 'pgg-def) + +;;; arch-tag: c425f3ab-ed75-4055-bb46-431a418c94b7 +;;; pgg-def.el ends here |