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



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312&\210\313\314\315\316\317DD\320\321\322\311\304&\210\313\323\315\316\324DD\325\311\304\321\326&\210\313\327\315\316\330DD\331\311\304\332\333\321\334&	\207" [require org-macs org-compat custom-declare-group org-crypt nil "Org Crypt." :tag "Org Crypt" :group org custom-declare-variable org-crypt-tag-matcher funcall function #[0 "\300\207" ["crypt"] 1 #1=""] "The tag matcher used to find headings whose contents should be encrypted.\n\nSee the \"Match syntax\" section of the org manual for more details." :type string org-crypt-key #[0 "\300\207" [#1#] 1 #1#] "The default key to use when encrypting the contents of a heading.\n\nIf this variable is nil, always use symmetric encryption, unconditionally.\n\nOtherwise, The string is matched against all keys in the key ring.\nIn particular, the empty string matches no key.  If no key is found,\nlook for the `epa-file-encrypt-to' local variable.  Ultimately fall back\nto symmetric encryption.\n\nThis setting can be overridden in the CRYPTKEY property." (choice (string :tag "Public key(s) matching") (const :tag "Symmetric encryption" nil)) org-crypt-disable-auto-save #[0 "\300\207" [ask] 1 #1#] "What org-decrypt should do if `auto-save-mode' is enabled.\n\nt        : Disable auto-save-mode for the current buffer\n           prior to decrypting an entry.\n\nnil      : Leave auto-save-mode enabled.\n           This may cause data to be written to disk unencrypted!\n\n`ask'    : Ask user whether or not to disable auto-save-mode\n           for the current buffer.\n\n`encrypt': Leave auto-save-mode enabled for the current buffer,\n           but automatically re-encrypt all decrypted entries\n           *before* auto-saving.\n           NOTE: This only works for entries which have a tag\n           that matches `org-crypt-tag-matcher'." :version "24.1" (choice (const :tag "Always" t) (const :tag "Never" nil) (const :tag "Ask" ask) (const :tag "Encrypt" encrypt))] 10)
#@61 Return encrypted text in between BEG and END.

(fn BEG END)
(defalias 'org-crypt--encrypted-text #[514 "\300\301\302\303\"#\207" [replace-regexp-in-string "^[ 	]*" "" buffer-substring-no-properties] 8 (#$ . 2093)])
#@158 Is the current entry encrypted?
When the entry is encrypted, return a pair (BEG . END) where BEG
and END are buffer positions delimiting the encrypted area.
(defalias 'org-at-encrypted-entry-p #[0 "\212\214~\210\301 ?\2051\302\303!\210\304\305!\210\306\307\310!\2050`\311\312\306\303#\205.\313\314!\205.\211\315\316!B\262
)*\207" [case-fold-search org-before-first-heading-p org-back-to-heading t org-end-of-meta-data standard nil looking-at "^[	 ]*-----BEGIN PGP MESSAGE-----$" re-search-forward "^\\(?:\\([	 ]*-----END PGP MESSAGE-----$\\)\\|\\*+ \\)" match-string 1 line-beginning-position 2] 5 (#$ . 2317)])
#@225 Check whether auto-save-mode is enabled for the current buffer.

`auto-save-mode' may cause leakage when decrypting entries, so
check whether it's enabled, and decide what to do about it.

See `org-crypt-disable-auto-save'.
(defalias 'org-crypt-check-auto-save #[0 "\205:	\302=\204	\303=\203$\304\305!\203$\306\307\310 \206p\"\210\311\312!\207	\313\267\2029\306\314!\207\306\315!\210\316\317\320\321\302$\207\321\207" [buffer-auto-save-file-name org-crypt-disable-auto-save t ask y-or-n-p "org-decrypt: auto-save-mode may cause leakage.  Disable it for current buffer? " message "org-decrypt: Disabling auto-save-mode for %s" buffer-file-name auto-save-mode -1 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 42 encrypt 46)) "org-decrypt: Decrypting entry with auto-save-mode enabled.  This may cause leakage." "org-decrypt: Enabling re-encryption on auto-save." add-hook auto-save-hook #[0 "\300\301!\210\302 \207" [message "org-crypt: Re-encrypting all decrypted entries due to auto-save." org-encrypt-entries] 2] nil] 5 (#$ . 2941)])
#@84 Return the encryption key(s) for the current heading.
Assume `epg-context' is set.
(defalias 'org-crypt-key-for-heading #[0 "\205\"\303	\304\305\306\307#\206\"\206\"\310\302!\203\n\206\"\311\312!\210\305\207" [org-crypt-key epg-context epa-file-encrypt-to epg-list-keys org-entry-get nil "CRYPTKEY" selective boundp message "No crypt key set, using symmetric encryption."] 6 (#$ . 4035)])
#@46 Encrypt the content of the current headline.
(defalias 'org-encrypt-entry #[0 "\301 ?\205\215\302\303!\210\304\300!\210\305\306\307\211#\212\214~\210\310\307!\210`\311 \312\313 !\314\315!\210`
\2053\212\316\317!\210`)b\210\320\307\211\"\210\321 \210\322`\"\323\324\325#\323\324\326#\3271t\232\203g\211\330!\230\203g\323\324\331#\202m\332	#c0\266\202~c\210\333\334!!\266\211\203\211\211b\210\335\307!\210\266*\306\207" [epg-context org-at-encrypted-entry-p require epg make-local-variable epg-make-context nil t org-back-to-heading org-crypt-key-for-heading org-invisible-p line-beginning-position org-end-of-meta-data standard org-previous-visible-heading 1 org-end-of-subtree org-back-over-empty-lines delete-and-extract-region get-text-property 0 org-crypt-key org-crypt-checksum (error) sha1 org-crypt-text epg-encrypt-string error error-message-string org-flag-subtree] 12 (#$ . 4439) nil])
#@46 Decrypt the content of the current headline.
(defalias 'org-decrypt-entry #[0 "\301 \211:\205r\211\242
\243\302\303!\210\304\300!\210\305\306\307\211#\212\310!\203%\311!q\210\212\214~\210
\206.`b\210\312 \210\313 \205?\212\314\315!\210`)\316\"\317\320\"\321\"`S|\210\322\323\324\325!\326\327 \330	&\261\210\203lb\210\331\307!\210\266+\266\306\207" [epg-context org-at-encrypted-entry-p require epg make-local-variable epg-make-context nil t markerp marker-buffer org-crypt-check-auto-save org-invisible-p org-previous-visible-heading 1 org-crypt--encrypted-text decode-coding-string epg-decrypt-string utf-8 "\n" propertize org-crypt-checksum sha1 org-crypt-key org-crypt-key-for-heading org-crypt-text org-flag-subtree] 15 (#$ . 5366) nil])
#@54 Encrypt all top-level entries in the current buffer.
(defalias 'org-encrypt-entries #[0 "\302\303\304\305	!A#)\207" [org--matcher-tags-todo-only org-crypt-tag-matcher nil org-scan-tags org-encrypt-entry org-make-tags-matcher] 4 (#$ . 6136) nil])
#@44 Decrypt all entries in the current buffer.
(defalias 'org-decrypt-entries #[0 "\302\303\304\305	!A#)\207" [org--matcher-tags-todo-only org-crypt-tag-matcher nil org-scan-tags org-decrypt-entry org-make-tags-matcher] 4 (#$ . 6390) nil])
#@77 Add a hook to automatically encrypt entries before a file is saved to disk.
(defalias 'org-crypt-use-before-save-magic #[0 "\300\301\302\"\207" [add-hook org-mode-hook #[0 "\300\301\302\303\304$\207" [add-hook before-save-hook org-encrypt-entries nil t] 5]] 3 (#$ . 6634)])
(byte-code "\300\301\302\"\210\303\304!\207" [add-hook org-reveal-start-hook org-decrypt-entry provide org-crypt] 3)