;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@23 Name of this package.
(defconst epg-package-name "epg" (#$ . 84))
#@33 Version number of this package.
(defconst epg-version-number "1.0.0" (#$ . 156))
(byte-code "\300\301\302\303#\210\304\211\203(\211@\301
N\203!\302
N\204!\305\302\301N#\210
A\266\202\202\210\306\301\302\307#\210\310\311\303\312\313\314\315\316\317\320\317\321&\210\322\323\324\325\326DD\327\315\330\331\332&\210\322\333\324\325\334DD\335\331\332%\210\322\336\324\325\337DD\340\315\330\331\332&\210\322\341\324\325\342DD\343\331\344%\210\322\345\324\325\346DD\347\331\350%\210\300\351\352\303#\210\304\211\203\250\211@\351
N\203\241\352
N\204\241\305\352\351N#\210
A\266\202\202\207\210\306\351\352\307#\210\322\352\324\325\353DD\354\331\355\315\307&\210\322\356\324\325\357DD\360\331\361%\207" [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 funcall function #[0 "\300\301!\203\301\207\302\207" [executable-find "gpg2" "gpg"] 2 #1=""] "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 #[0 "\300\207" ["gpgsm"] 1 #1#] "The `gpgsm' executable.\nSetting this variable directly does not take effect;\ninstead use \\[customize] (see the info node `Easy Customization')." epg-gpgconf-program #[0 "\300\207" ["gpgconf"] 1 #1#] "The `gpgconf' executable." epg-gpg-home-directory #[0 "\300\207" [nil] 1 #1#] "The directory which contains the configuration files of `epg-gpg-program'." (choice (const :tag "Default" nil) directory) epg-passphrase-coding-system #[0 "\300\207" [nil] 1 #1#] "Coding system to use with messages from `epg-gpg-program'." symbol epa-pinentry-mode epg-pinentry-mode #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "If non-nil, debug output goes to the \" *epg-debug*\" buffer.\nNote that the buffer name starts with a space." boolean] 12)
(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) (#$ . 3225))
#@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)) (#$ . 3822))
(defvar epg--configurations nil)
#@483 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.

(fn PROTOCOL &optional NO-CACHE PROGRAM-ALIST)
(defalias 'epg-find-configuration #[769 "\211\204\262

\236\211\204\303\304\"\210\211A\211\203\"\211
A\262\242\202)\305\306\307GD\"\310	\"\204:\310\n\"\206\240
\203V
\311N\204J
\312N\203V\211J!
B\nB\207\3132\240\211\205\235\211@\314
@!\211\203\225
!\3151{\316
A\"\210\3170\202\200\266\202\226\203\224	\204\217\n
B\nB\320\313\"\210\210\210
A\266\202\202[\262
0\207" [epg-config--program-alist epg-config--configuration-constructor-alist epg--configurations error "Unknown protocol `%S'" signal wrong-number-of-arguments (symbol . alist) alist-get saved-value customized-value found executable-find (error) epg-check-configuration t throw] 14 (#$ . 4268)])
#@16 

(fn PROGRAM)
(defalias 'epg-config--make-gpg-configuration #[257 "\304\211\211\211\305\306\307\"r\211q\210\310\311\"\216\312\211\313\314\304\307\304D\304\315\n\205&\316\nD\317\"&\210*eb\210\320\321\304\307#\203\246\322\323\324!!\262\323\325!\262\326\267\202\234\327\330\"\203h\323\324\"\227\331\332\333\334\225\304O\335\"\"BB\262\202/\203/\336\337\"\210\202/\327\340\"\203\217\341\342\331\332\333\335\"\"\"BB\262\202/\203/\336\343#\210\202/BB\262\202/*\210\344BB\262\203\271\345BB\207\207" [coding-system-for-write coding-system-for-read epg-gpg-home-directory epg-debug nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] undecided apply call-process 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 73 pubkey 116 cipher 116 digest 116 compress 116)) string-match "\\`\\([^:]+\\):" delete "" split-string 0 ";" message "Invalid group configuration: %S" "\\`\\([0-9]+\\)\\(;[0-9]+\\)*" mapcar string-to-number "Invalid %S algorithm configuration: %S" program groups] 15 (#$ . 5453)])
#@16 

(fn PROGRAM)
(defalias 'epg-config--make-gpgsm-configuration #[257 "\300\301\302\"r\211q\210\303\304\"\216\305\306\302\306D\306\307%\210eb\210\310\311!\205:\312\225b\210\313u\210\314 \210\315\316\317 \"\210\320B\321`\317 {BD*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] call-process nil "--version" looking-at "\\S-+ (" 0 -1 forward-sexp skip-syntax-forward "-" point-at-eol program version] 8 (#$ . 6724)])
#@74 Return a list of internal configuration parameters of `epg-gpg-program'.
(defalias 'epg-configuration #[0 "\301!\207" [epg-gpg-program epg-config--make-gpg-configuration] 2 (#$ . 7218)])
(make-obsolete 'epg-configuration 'epg-find-configuration "25.1")
#@368 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.

(fn CONFIG &optional REQ-VERSIONS)
(defalias 'epg-check-configuration #[513 "\300\301\"\211;\204\302\303\"\210\3042M
<\203
\202
C\211\203G\211@\305
:\2038
\242\243#\266\202@\306
#\266
A\266\202\202\210\302\307\"0\207" [alist-get version error "Undetermined version: %S" version-ok #[771 "\301\206\"\205\211\203\302\"\205\303\304\305\"\207" [epg-gpg-minimum-version version<= version< throw version-ok t] 6 "\n\n(fn VERSION MIN MAX)"] nil "Unsupported version: %s"] 12 (#$ . 7479)])
#@266 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.

(fn PROTOCOL REQUIRED-VERSION)
(defalias 'epg-required-version-p #[514 "\300\301!\236A\211;\205\302\"\207" [version epg-find-configuration version<=] 6 (#$ . 8339)])
#@60 Look at CONFIG and try to expand GROUP.

(fn CONFIG GROUP)
(defalias 'epg-expand-group #[514 "\300\236\211\205\301\227A\"\211\262\205\211A\207" [groups assoc] 6 (#$ . 8750)])
(provide 'epg-config)