Current File : //usr/local/share/emacs/27.2/lisp/epg-config.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@23 Name of this package.
(defconst epg-package-name "epg" (#$ . 408))
#@33 Version number of this package.
(defconst epg-version-number "1.0.0" (#$ . 481))
(byte-code "\302\303\304\305#\210\306\305\211\203, @\303N\203% \304N\204% \307\304\303N#\210 A\211\204 *\310\303\304\311#\210\312\313\305\314\315\316\317\320\321\322\321\323& \210\324\325\326\327\317\330\331\332&\210\324\333\334\335\331\332%\210\324\336\337\340\317\330\331\332&\210\324\341\305\342\331\343%\210\324\344\305\345\331\346%\210\302\347\350\305#\210\306\305\211\203\234 @\347N\203\225 \350N\204\225 \307\350\347N#\210 A\211\204~ *\310\347\350\311#\210\324\350\305\351\331\352\317\311&\210\324\353\305\354\331\355%\207" [prop --dolist-tail-- defvaralias epg-bug-report-address report-emacs-bug-address nil (saved-value saved-variable-comment) put make-obsolete-variable "27.1" custom-declare-group epg "Interface to the GNU Privacy Guard (GnuPG)." :tag "EasyPG" :version "23.1" :group data external custom-declare-variable epg-gpg-program (if (executable-find "gpg2") "gpg2" "gpg") "Say what gpg program to prefer (if it satisfies minimum requirements).\n\nIf this variable is \"gpg2\", but the version of gpg2 installed\nis less than `epg-gpg2-minimum-version', then version 1 of\nGnuPG (i.e., \"gpg\") will be used instead. If the version of\nversion 1 is less than `epg-gpg-minimum-version', then that won't\nbe used either.\n\nIf you want to explicitly specify what gpg program to use, you\nhave to use \\[customize] instead (see the info node `Easy\nCustomization'). Setting this variable without \\[customize] has\nno effect." "25.1" :type string epg-gpgsm-program "gpgsm" "The `gpgsm' executable.\nSetting this variable directly does not take effect;\ninstead use \\[customize] (see the info node `Easy Customization')." epg-gpgconf-program "gpgconf" "The `gpgconf' executable." epg-gpg-home-directory "The directory which contains the configuration files of `epg-gpg-program'." (choice (const :tag "Default" nil) directory) epg-passphrase-coding-system "Coding system to use with messages from `epg-gpg-program'." symbol epa-pinentry-mode epg-pinentry-mode "The pinentry mode.\n\nGnuPG 2.1 or later has an option to control the behavior of\nPinentry invocation. The value should be the symbol `error',\n`ask', `cancel', or `loopback'. See the GnuPG manual for the\nmeanings.\n\nA particularly useful mode is `loopback', which redirects all\nPinentry queries to the caller, so Emacs can query passphrase\nthrough the minibuffer, instead of external Pinentry program." (choice (const nil) (const ask) (const cancel) (const error) (const loopback)) epg-debug "If non-nil, debug output goes to the \" *epg-debug*\" buffer.\nNote that the buffer name starts with a space." boolean] 13)
(defconst epg-gpg-minimum-version "1.4.3")
(defconst epg-gpg2-minimum-version "2.1.6")
#@349 Alist used to obtain the usable configuration of executables.
The first element of each entry is protocol symbol, which is
either `OpenPGP' or `CMS'. The second element is a symbol where
the executable name is remembered. The rest of the entry is an
alist mapping executable names to the minimum required version
suitable for the use with Emacs.
(defconst epg-config--program-alist (byte-code "\302\303\304B\305 \306BEF\307B\207" [epg-gpg2-minimum-version epg-gpg-minimum-version OpenPGP epg-gpg-program "gpg2" "gpg" "2.0" ((CMS epg-gpgsm-program ("gpgsm" . "2.0.4")))] 6) (#$ . 3282))
#@245 Alist used to obtain the usable configuration of executables.
The first element of each entry is protocol symbol, which is
either `OpenPGP' or `CMS'. The second element is a function
which constructs a configuration object (actually a plist).
(defconst epg-config--configuration-constructor-alist '((OpenPGP . epg-config--make-gpg-configuration) (CMS . epg-config--make-gpgsm-configuration)) (#$ . 3879))
(defvar epg--configurations nil)
#@435 Find or create a usable configuration to handle PROTOCOL.
This function first looks at the existing configuration found by
the previous invocation of this function, unless NO-CACHE is non-nil.
Then it walks through PROGRAM-ALIST or
`epg-config--program-alist'. If `epg-gpg-program' or
`epg-gpgsm-program' is already set with custom, use it.
Otherwise, it tries the programs listed in the entry until the
version requirement is met.
(defalias 'epg-find-configuration #[(protocol &optional no-cache program-alist) "\204 \n\236\211\204 \306\307\n\"\210 A\211 \203\" \f\211A\242\202) \310\311\312\fGD\" \313\n\" \204> \313\n\"\206\303
\203d
\314N\204N
\315N\203d
J! \nBB)\202\303 \3162\303 \f\317 \211 \205\301 @\320@!\211 \203\266 ! \3211\232 \322A\"\210\3230\202\236 \210\202\265 \203\265 \204\257 \nBB\324\316\"\210))A\211\204r \317*0,\207" [program-alist epg-config--program-alist protocol entry alist symbol error "Unknown protocol %S" signal wrong-number-of-arguments (symbol . alist) alist-get saved-value customized-value found nil executable-find (error) epg-check-configuration t throw epg-config--configuration-constructor-alist constructor no-cache epg--configurations configuration program-version --dolist-tail-- executable] 5 (#$ . 4325)])
(defalias 'epg-config--make-gpg-configuration #[(program) "\306\211\211\211\307\310! r\fq\210\311\216\312\211 '\313\314&\306\315\306D\306\316(\205* \317(D\320\"&\210*eb\210\321\322\306\315#\203\246 \323\324\325!!\324\326! \327\267\202\235 \330\331\"\203i \324\325\"\227\332\333\334\335\336\225\"\337\"\"B\nB\2023 )\2033 \340\341\"\210\2023 \330\342\"\203\217 \343\344\332\333\334\337\"\"\"B B\2023 )\2033 \340\345 #\210\2023 B B\2023 +\346&B B\n\203\272 \302\nB B\202\273 ,\207" [args type groups config #1=#:temp-buffer coding-system-for-write nil generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] undecided apply call-process t append "--homedir" ("--with-colons" "--list-config") re-search-forward "^cfg:\\([^:]+\\):\\(.*\\)" intern match-string 1 2 #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (group 75 pubkey 118 cipher 118 digest 118 compress 118)) string-match "\\`\\([^:]+\\):" delete "" split-string substring 0 ";" message "Invalid group configuration: %S" "\\`\\([0-9]+\\)\\(;[0-9]+\\)*" mapcar string-to-number "Invalid %S algorithm configuration: %S" program coding-system-for-read epg-gpg-home-directory epg-debug] 9])
(defalias 'epg-config--make-gpgsm-configuration #[(program) "\302\303!rq\210\304\216\305 \306\307\306D\306\310%\210eb\210\311\312!\2057 \313\225b\210\314u\210\315 \210\316\317\320 \"\210\301 B\321`\320 {BD+\207" [#1=#:temp-buffer program generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] call-process nil t "--version" looking-at "\\S-+ (" 0 -1 forward-sexp skip-syntax-forward "-" point-at-eol version] 6])
#@74 Return a list of internal configuration parameters of `epg-gpg-program'.
(defalias 'epg-configuration #[nil "\301!\207" [epg-gpg-program epg-config--make-gpg-configuration] 2 (#$ . 7347)])
(make-obsolete 'epg-configuration 'epg-find-configuration "25.1")
#@332 Verify that a sufficient version of GnuPG is installed.
CONFIG should be a `epg-configuration' object (a plist).
REQ-VERSIONS should be a list with elements of the form (MIN
. MAX) where MIN and MAX are version strings indicating a
semi-open range of acceptable versions. REQ-VERSIONS may also be
a single minimum version string.
(defalias 'epg-check-configuration #[(config &optional req-versions) "\306\301\"\211;\204 \307\310 \"\210\3112U \n<\203 \n\202 \nC\312\211 \203O \f@\313 :\203B @
A
\"\210*\202G
\312 \"\210)\fA\211\204% *\307\314 \"0)\207" [config version req-versions #1=#:x119 --dolist-tail-- #2=#:pcase-0 alist-get error "Undetermined version: %S" version-ok nil #[(max min) "\304\206 \n\"\205 \203 \305\n \"\205 \306\307\310\"\207" [min epg-gpg-minimum-version version max version<= version< throw version-ok t] 3] "Unsupported version: %s" #3=#:x120 #4=#:x121] 4 (#$ . 7610)])
#@234 Verify a sufficient version of GnuPG for specific protocol.
PROTOCOL is symbol, either `OpenPGP' or `CMS'. REQUIRED-VERSION
is a string containing the required version number. Return
non-nil if that version or higher is installed.
(defalias 'epg-required-version-p #[(protocol required-version) "\301\303!\236A\211;\205 \304\n \")\207" [protocol version required-version epg-find-configuration version<=] 4 (#$ . 8538)])
#@41 Look at CONFIG and try to expand GROUP.
(defalias 'epg-expand-group #[(config group) "\303\236\211\205 \304\n\227 A\"\211\205 A)\207" [config entry group groups assoc] 4 (#$ . 8970)])
(provide 'epg-config)
Mini Shell