HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/epg-config.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; 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))
#@30 Report bugs to this address.
(defconst epg-bug-report-address "ueno@unixuser.org" (#$ . 568))
(byte-code "\300\301\302\303\304\305\306\307\310\311\310\312&\210\313\314\315\316\306\317\310\301\320\321&	\210\313\322\323\324\310\301\320\321&\210\313\325\326\327\306\317\310\301\320\321&	\210\313\330\302\331\310\301\320\332&\210\313\333\302\334\310\301\320\335&\210\313\336\302\337\310\301\320\340&\207" [custom-declare-group epg nil "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") "The `gpg' executable.\nSetting this variable directly does not take effect;\ninstead use \\[customize] (see the info node `Easy Customization')." "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 epg-debug "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")
#@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 "\301\302\303\304BF\305B\207" [epg-gpg-minimum-version OpenPGP epg-gpg-program ("gpg2" . "2.1.6") "gpg" ((CMS epg-gpgsm-program ("gpgsm" . "2.0.4")))] 5) (#$ . 2012))
#@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)) (#$ . 2582))
(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\"\210A\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\312\211\205\301@\317@!\211\203\266!\3201\232\321A\"\210\3220\202\236\210\202\265\203\265\204\257\nBB\323\316\"\210))A\211\204r\312*0,\207" [program-alist epg-config--program-alist protocol entry alist symbol error "Unknown protocol %S" signal wrong-number-of-arguments nil alist-get saved-value customized-value found 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 (#$ . 3028)])
(defalias 'epg-config--make-gpg-configuration #[(program) "\306\211\211\211\307\310!r\fq\210\311\216\312\313
\306\314\306D\306\315%\205$\316%D\317\"&\210eb\210\320\321\306\314#\203\245\322\323\324!!\323\325!	\326=\203o\327\330\"\203b\323\324\"\227\331\332\333\334\225\306O\335\"\"B\nB\202,&\203,\336\337\"\210\202,	\340>\203\234\327\341\"\203\216	\342\343\331\332\333\335\"\"\"BB\202,&\203,\336\344	#\210\202,	BB\202,+\305
BB\n\203\270\302\nBB\202\271,\207" [args type groups config #1=#:temp-buffer program nil generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] apply call-process t append "--homedir" ("--with-colons" "--list-config") re-search-forward "^cfg:\\([^:]+\\):\\(.*\\)" intern match-string 1 2 group string-match "\\`\\([^:]+\\):" delete "" split-string 0 ";" message "Invalid group configuration: %S" (pubkey cipher digest compress) "\\`\\([0-9]+\\)\\(;[0-9]+\\)*" mapcar string-to-number "Invalid %S algorithm configuration: %S" 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 (#$ . 5855)])
(make-obsolete 'epg-configuration 'epg-find-configuration "25.1")
#@57 Verify that a sufficient version of GnuPG is installed.
(defalias 'epg-check-configuration #[(config &optional minimum-version) "\304\301\"\211;\204\305\306	\"\210\307\n\206	\"?\205\305\310	\")\207" [config version minimum-version epg-gpg-minimum-version alist-get error "Undetermined version: %S" version<= "Unsupported version: %s"] 4 (#$ . 6117)])
#@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 (#$ . 6483)])
(provide 'epg-config)