;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:07:03 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-crypt.el
;;; in Emacs version 24.3.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\302\303\304\305\306\307\310\301&\210\311\312\313\314\315\316\310\303&\210\311\317\320\321\315\316\310\303&\210\311\322\323\324\310\303\325\326\315\327&	\207" [require org custom-declare-group org-crypt nil "Org Crypt." :tag "Org Crypt" :group custom-declare-variable org-crypt-tag-matcher "crypt" "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 "" "The default key to use when encrypting the contents of a heading.\n\nThis setting can also be overridden in the CRYPTKEY property." org-crypt-disable-auto-save 'ask "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)
#@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 #[nil "\205A	\302=\204	\303=\203%\304\305!\203%\306\307\310 \206pP!\210\311\312!\207	\313=\203/\306\314!\207	\315=\203@\306\316!\210\317\320\321\313\302$\207\313\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 " buffer-file-name auto-save-mode -1 nil "org-decrypt: Decrypting entry with auto-save-mode enabled.  This may cause leakage." encrypt "org-decrypt: Enabling re-encryption on auto-save." add-hook auto-save-hook #[nil "\300\301!\210\302 \207" [message "org-crypt: Re-encrypting all decrypted entries due to auto-save." org-encrypt-entries] 2]] 5 (#$ . 2011)])
#@52 Return the encryption key for the current heading.
(defalias 'org-crypt-key-for-heading #[nil "\212\302\303!\210\304\305\306\307#\206\206\310\301!\203	\206\311\312!)\207" [org-crypt-key epa-file-encrypt-to org-back-to-heading t org-entry-get nil "CRYPTKEY" selective boundp message "No crypt key set, using symmetric encryption."] 4 (#$ . 3018)])
#@38 Return STR encrypted with CRYPT-KEY.
(defalias 'org-encrypt-string #[(str crypt-key) "\303\304\305	#\230\203\306	!\303\304\307	#\230\203\303\304\310	#\207\311\312\313\211#\314\n	\315\n\"#)\207" [crypt-key str epg-context get-text-property 0 org-crypt-key sha1 org-crypt-checksum org-crypt-text epg-make-context nil t epg-encrypt-string epg-list-keys] 6 (#$ . 3380)])
#@46 Encrypt the content of the current headline.
(defalias 'org-encrypt-entry #[nil "\306\307!\210\212\310\311!\210`\312y\210\313\314!?\205[\312\315	\206`\316\")\317\312\311\211#\320 `\312\211b\210\321\311\211\"\210\322 \210`\323\f{
\"\f|\210\nc\210\203Xb\210\324 \210.\312*\207" [start-heading pos encrypted-text end beg crypt-key require epg org-back-to-heading t nil looking-at "-----BEGIN PGP MESSAGE-----" get-char-property invisible epg-make-context org-crypt-key-for-heading org-end-of-subtree org-back-over-empty-lines org-encrypt-string hide-subtree epg-context folded] 6 (#$ . 3760) nil])
#@46 Decrypt the content of the current headline.
(defalias 'org-decrypt-entry #[nil "\306\307!\210\310 ?\205r\212\311\312!\210`\212\313 \210\314\315\206`\316\"*\314y\210\317\320!\205q\321 \210\212\322\323!\210\314y\210`)\324\314\312\211#\325`\"\326\327\f
\"\330\"!`S|\210\331\332!\333\334!!\335\336 \337
&\261\210	\203o\nb\210\340\312!\210,\314+\207" [pos heading-was-invisible-p heading-point end epg-context encrypted-text require epg org-before-first-heading-p org-back-to-heading t outline-end-of-heading nil get-char-property invisible looking-at "-----BEGIN PGP MESSAGE-----" org-crypt-check-auto-save search-forward "-----END PGP MESSAGE-----" epg-make-context buffer-substring-no-properties 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 decrypted-text] 9 (#$ . 4384) nil])
#@54 Encrypt all top-level entries in the current buffer.
(defalias 'org-encrypt-entries #[nil "\302\303\304\305	!A#)\207" [todo-only org-crypt-tag-matcher nil org-scan-tags org-encrypt-entry org-make-tags-matcher] 4 (#$ . 5298) nil])
#@44 Decrypt all entries in the current buffer.
(defalias 'org-decrypt-entries #[nil "\302\303\304\305	!A#)\207" [todo-only org-crypt-tag-matcher nil org-scan-tags org-decrypt-entry org-make-tags-matcher] 4 (#$ . 5536) nil])
#@33 Is the current entry encrypted?
(defalias 'org-at-encrypted-entry-p #[nil "\300 ?\205\212\301\302!\210\303\304\212\305 )\302#)\207" [org-before-first-heading-p org-back-to-heading t search-forward "-----BEGIN PGP MESSAGE-----" outline-next-heading] 4 (#$ . 5764)])
#@77 Add a hook to automatically encrypt entries before a file is saved to disk.
(defalias 'org-crypt-use-before-save-magic #[nil "\300\301\302\"\207" [add-hook org-mode-hook #[nil "\300\301\302\303\304$\207" [add-hook before-save-hook org-encrypt-entries nil t] 5]] 3 (#$ . 6037)])
(byte-code "\300\301\302\"\210\303\304!\207" [add-hook org-reveal-start-hook org-decrypt-entry provide org-crypt] 3)