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



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307DD\310\311\312\313\314&\210\303\315\305\306\316DD\317\311\320\313\314&\207" [require epa epa-hook custom-declare-variable epa-file-cache-passphrase-for-symmetric-encryption funcall function #[0 "\300\207" [nil] 1 #1=""] "If non-nil, cache passphrase for symmetric encryption.\n\nFor security reasons, this option is turned off by default and\nnot recommended to use.  Instead, consider using gpg-agent which\ndoes the same job in a safer way.  See Info node `(epa) Caching\nPassphrases' for more information.\n\nNote that this option has no effect if you use GnuPG 2.0." :type boolean :group epa-file epa-file-select-keys #[0 "\300\207" [nil] 1 #1#] "Control whether or not to pop up the key selection dialog.\n\nIf t, always ask user to select recipients.\nIf nil, query user only when `epa-file-encrypt-to' is not set.\nIf neither t nor nil, don't ask user.  In this case, symmetric\nencryption is used." (choice (const :tag "Ask always" t) (const :tag "Ask when recipients are not set" nil) (const :tag "Don't ask" silent))] 8)
(defvar epa-file-passphrase-alist nil)
#@28 

(fn CONTEXT KEY-ID FILE)
(defalias 'epa-file-passphrase-callback-function #[771 "\2036
\302=\2036\303
!\262
\304
	\"\305\306A!\2065
\204'C\262
	B\307#\262

\306!\241\210\211\207\307#\207" [epa-file-cache-passphrase-for-symmetric-encryption epa-file-passphrase-alist SYM file-truename assoc nil copy-sequence epa-passphrase-callback-function] 9 (#$ . 1214)])
#@71 Non-nil means don't try to decrypt .gpg files when operating on them.
(defvar epa-inhibit nil (#$ . 1596))
#@29 

(fn OPERATION &rest ARGS)
(defalias 'epa-file-handler #[385 "\301 \302\303\"\216\304N\211\203\204\305
\"\202\306\"\262
)\207" [epa-inhibit match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] epa-file apply epa-file-run-real-handler] 7 (#$ . 1709)])
#@23 

(fn OPERATION ARGS)
(defalias 'epa-file-run-real-handler #[514 "\302=\205	B\303\"*\207" [inhibit-file-name-operation inhibit-file-name-handlers epa-file-handler apply] 5 (#$ . 2008)])
#@42 

(fn STRING FILE VISIT BEG END REPLACE)
(defalias 'epa-file-decode-and-insert #[1542 "\214``}\210c\210\301ed\302\303\"O&\210db\210deZ)\207" [epa-file-name-regexp decode-coding-inserted-region 0 string-match] 14 (#$ . 2209)])
(defvar epa-file-error nil)
(defalias 'epa-file--find-file-not-found-function #[0 "\301 \302\303\"\216\304 \210)\210\305
8\203\306\307\3058\"\207\310\311\312AB\"\207" [epa-file-error current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] kill-buffer 3 user-error "Wrong passphrase: %s" signal file-missing "Opening input file"] 5])
#@16 

(fn CONTEXT)
(defalias 'epa--wrong-password-p #[257 "\301
!>\204\302\303\304D\"\210\211\305H\306\307\"\205\310\311\"\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 21 string-match "decryption failed: \\(Bad session key\\|No secret key\\)" match-string 1] 5 (#$ . 2834)])
#@45 

(fn FILE &optional VISIT BEG END REPLACE)
(defalias 'epa-file-insert-file-contents #[1281 "\304 \210\203\204
\203\305\306!\210\307!\262\3101&\311\312C\"0\202(\210\313\211\206-\314 p\313\211\211\n\203;\315\316B\"\210\317\320\321\322\"B\"\210\323\324\"\216\3251f\326\313#\211\2620\210\202\361\327
	\"\211\262\203u
\313\241\210\330
@\331N>\203\215\211A@\332\232\203\215\305\333\3348\"\210\335!\211\203\340\336!\211\203\250\337C\"\262\210\202\256\340!\266
AA@\341\232\203\323\342\343\344\"r\211q\210\323\345\"\216\346	!\210\347 *\262
\262\202\340\350\302!\210
\351\352\353\313\344$\210\354
\203\351\330\202\352\355\356AB\"\266q\210\350\303!\210\357\360\361\362\"\"	\204
\203
\n\206
\363\n\205
\nG^O\262\212\n?\205'
\203;
\364



%\202I
\365




&\262)\n\203T
\366 \210*D\207" [buffer-file-name epa-file-passphrase-alist epa-file-error epa-file-encrypt-to barf-if-buffer-read-only error "Attempt to visit less than an entire file" expand-file-name (error) epa-file-run-real-handler file-local-copy nil epg-make-context epg-context-set-passphrase-callback epa-file-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function format "Decrypting %s" make-closure #[0 "\300\205
\301\300!\205
\302\300!\207" [V0 file-exists-p delete-file] 2] (error) epg-decrypt-file assoc file-error error-conditions "Searching for program" "Decryption program `%s' not found" 3 file-exists-p epa--wrong-password-p append epa-display-error "Unexpected; Exit" generate-new-buffer " *temp*" t #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents-literally buffer-string make-local-variable add-hook find-file-not-found-functions epa-file--find-file-not-found-function signal file-missing "Opening input file" mapcar car epg-context-result-for encrypted-to 0 epa-file--replace-text epa-file-decode-and-insert set-visited-file-modtime] 19 (#$ . 3154)])
(put 'insert-file-contents 'epa-file 'epa-file-insert-file-contents)
#@34 

(fn STRING FILE VISIT BEG END)
(defalias 'epa-file--replace-text #[1285 "`\300\211db\210`\262\301\302&\262
e{d{\232\203*
d|\210\202Ue
W\203L\211dW\203L\303ff\"\203L
T\262\211T\262
\202,
|\210
|\266dW\203_b\210\207db\210\207" [nil epa-file-decode-and-insert t eql] 15 (#$ . 5228)])
#@65 

(fn START END FILE &optional APPEND VISIT LOCKNAME MUSTBENEW)
(defalias 'epa-file-write-region #[1795 "\203\306\307!\210\310!\262\206\"\311\312!\203!\312ed\")\202\"\n\313 \314\315\211<\2031\2028;\2058C\315\316\317
B\"\210\320\321\322\323\"B\"\210\324!\f>\204\\\325\326\327D\"\210\330
I\210\3311\336\332;\203v\333	\"\202\254\204\201e\262d\262p\262\334\335\336\"r\211q\210\337\340\"\216\341#\210\342rq\2104)!\210\333\343 \n\"*\262
5\336=\204\2775\204\311\344\303p\"\204\311\345\346#\202\325\205\325\347\350	\"!#\211\2620\210\202\374\351!\210\352\f6\"\211\262\203\363\315\241\210\325\353\354AB\"\266\355\356\315\257\"\210\357\360!\203
0\336=\203'
\n\361 \210\2023
;\2033
\361 \210\336=\204E
\203E
;\205I
\362\363	\")\207" [coding-system-for-write buffer-file-name buffer-file-coding-system epa-file-encrypt-to cl-struct-epg-context-tags epa-armor error "Can't append to the file" expand-file-name fboundp select-safe-coding-system epg-make-context binary nil epg-context-set-passphrase-callback epa-file-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function format "Encrypting %s" type-of signal wrong-type-argument epg-context 4 (error) epg-encrypt-string encode-coding-string generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-buffer-substring format-encode-buffer buffer-string local-variable-p epa-select-keys "Select recipients for encryption.\nIf no one is selected, symmetric encryption will be performed.  " epg--filter-revoked-keys epg-list-keys epa-display-error assoc file-error "Opening output file" epa-file-run-real-handler write-region boundp last-coding-system-used set-visited-file-modtime message "Wrote %s" buffer-file-format epa-file-select-keys epa-file-passphrase-alist] 22 (#$ . 5548)])
(put 'write-region 'epa-file 'epa-file-write-region)
#@35 Select recipients for encryption.
(defalias 'epa-file-select-keys #[0 "\301\300!\210\302\303\304\305 \306\"\"\211\207" [epa-file-encrypt-to make-local-variable mapcar #[257 "\302\211!>\204\303\304\305D\"\210
\306H@!	>\2044\303\304\307\302!>\204-\303\304\305D\"\210\306H@D\"\210\302
!>\204C\303\304\305D\"\210\211\306H@\310H\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags type-of signal wrong-type-argument epg-key 2 epg-sub-key 6] 8 "\n\n(fn KEY)"] epa-select-keys epg-make-context "Select recipients for encryption.\nIf no one is selected, symmetric encryption will be performed.  "] 5 (#$ . 7533) nil])
(defalias 'epa-file-enable #[0 "	>\203\n\304\305!\207	B\306\307\310\"\210\nB\304\311!\207" [epa-file-handler file-name-handler-alist epa-file-auto-mode-alist-entry auto-mode-alist message "`epa-file' already enabled" add-hook find-file-hook epa-file-find-file-hook "`epa-file' enabled"] 3 nil nil])
(defalias 'epa-file-disable #[0 "	>\203\304	\"\305\306\307\"\210\304\n\"\310\311!\207\310\312!\207" [epa-file-handler file-name-handler-alist epa-file-auto-mode-alist-entry auto-mode-alist delq remove-hook find-file-hook epa-file-find-file-hook message "`epa-file' disabled" "`epa-file' already disabled"] 3 nil nil])
(provide 'epa-file)