Current File : //usr/local/share/emacs/27.2/lisp/obsolete/pgg-def.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\304\301\314\315&\210\310\316\317\320\304\301\314\321&\210\310\322\323\324\304\301\314\321&\210\310\325\302\326\306\307\304\301\314\327& \210\310\330\331\332\304\301\314\327&\210\310\333\331\334\304\301\314\327&\210\310\335\336\337\304\301\314\340&\210\310\341\302\342\304\301\314\343&\207" [custom-declare-group pgg nil "Glue for the various PGP implementations." :group mime :version "22.1" custom-declare-variable pgg-default-scheme 'gpg "Default PGP scheme." :type (choice (const :tag "GnuPG" gpg) (const :tag "PGP 5" pgp5) (const :tag "PGP" pgp)) pgg-default-user-id (user-login-name) "User ID of your default identity." string pgg-default-keyserver-address "subkeys.pgp.net" "Host name of keyserver." pgg-query-keyserver "Whether PGG queries keyservers for missing keys when verifying messages." boolean pgg-encrypt-for-me t "If t, encrypt all outgoing messages with user's public key." pgg-cache-passphrase "If t, cache passphrase." pgg-passphrase-cache-expiry 16 "How many seconds the passphrase is cached.\nWhether the passphrase is cached at all is controlled by\n`pgg-cache-passphrase'." integer pgg-passphrase-coding-system "Coding system to encode passphrase." coding-system] 10)
#@62 Coding system used when reading from a PGP external process.
(defvar pgg-messages-coding-system nil (#$ . 1674))
(defvar pgg-status-buffer " *PGG status*")
(defvar pgg-errors-buffer " *PGG errors*")
(defvar pgg-output-buffer " *PGG output*")
(defvar pgg-echo-buffer "*PGG-echo*")
#@39 Current scheme of PGP implementation.
(defvar pgg-scheme nil (#$ . 1960))
#@52 If t, inform the recipient that the input is text.
(defvar pgg-text-mode nil (#$ . 2040))
(defalias 'pgg-truncate-key-identifier '(macro . #[(key) "\301\302\303D\304BB\305\306BBF\207" [key if > length (8) substring (-8)] 5]))
(provide 'pgg-def)
Mini Shell