;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require epa mail-utils] 2) (defvar epa-mail-mode-map (define-keymap "C-c C-e d" 'epa-mail-decrypt "C-c C-e v" 'epa-mail-verify "C-c C-e s" 'epa-mail-sign "C-c C-e e" 'epa-mail-encrypt "C-c C-e i" 'epa-mail-import-keys "C-c C-e o" 'epa-insert-keys "C-c C-e C-d" 'epa-mail-decrypt "C-c C-e C-v" 'epa-mail-verify "C-c C-e C-s" 'epa-mail-sign "C-c C-e C-e" 'epa-mail-encrypt "C-c C-e C-i" 'epa-mail-import-keys "C-c C-e C-o" 'epa-insert-keys)) (defvar epa-mail-mode-hook nil) (defvar epa-mail-mode-on-hook nil) (defvar epa-mail-mode-off-hook nil) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable epa-mail-offer-skip funcall function #[0 "\300\207" [t] 1 ""] "If non-nil, when a recipient has no key, ask whether to skip it.\nOtherwise, signal an error." :type boolean :version "28.1" :group epa-mail] 10)#@95 Non-nil if epa-mail mode is enabled. Use the command `epa-mail-mode' to change this variable. (defvar epa-mail-mode nil (#$ . 971)) (make-variable-buffer-local 'epa-mail-mode)#@607 A minor-mode for composing encrypted/clearsigned mails. This is a minor mode. If called interactively, toggle the `epa-mail mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `epa-mail-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'epa-mail-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311\312\203;\313\202<\314\"\210\315\316!\203_\302 \203P\211\302 \232\203_\317\320\321\203[\322\202\\\323\324$\210\210\325 \210\207" [epa-mail-mode local-minor-modes current-message toggle 1 nil t boundp delq run-hooks epa-mail-mode-hook epa-mail-mode-on-hook epa-mail-mode-off-hook called-interactively-p any message "%s %sabled%s" "epa-mail mode" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 1153) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar epa-mail-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\207" [epa-mail-mode-map epa-mail-mode-hook variable-documentation put "Hook run after entering or leaving `epa-mail-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode epa-mail-mode " epa-mail" boundp] 6)#@93 Find a usable key from KEYS for USAGE. USAGE would be `sign' or `encrypt'. (fn KEYS USAGE) (defalias 'epa-mail--find-usable-key #[514 "\3022k\205j\303@!>\204\304\305\306@D\"\210@\307H\211\203b\303@! >\2043\304\305\310@D\"\210@\307H>\203[\303@! >\204L\304\305\310@D\"\210\211@\311H\312>\204[\313\302@\"\210\211A\262\202\210A\262\2020\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags found type-of signal wrong-type-argument epg-key 2 epg-sub-key 1 (revoked expired) throw] 8 (#$ . 2927)])#@97 Decrypt OpenPGP armors in the current buffer. The buffer is expected to contain a mail message. (defalias 'epa-mail-decrypt #[0 "\300ed\"\207" [epa-decrypt-armor-in-region] 3 (#$ . 3456) nil]) (byte-code "\300\301\302\303#\300\207" [function-put epa-mail-decrypt interactive-only t] 4)#@115 Verify OpenPGP cleartext signed messages in the current buffer. The buffer is expected to contain a mail message. (defalias 'epa-mail-verify #[0 "\300ed\"\207" [epa-verify-cleartext-in-region] 3 (#$ . 3748) nil]) (byte-code "\300\301\302\303#\300\207" [function-put epa-mail-verify interactive-only t] 4)#@243 Sign the current buffer. The buffer is expected to contain a mail message, and signing is performed with your default key. With prefix argument, asks you to select interactively the key to use from your key ring. (fn START END SIGNERS MODE) (defalias 'epa-mail-sign #[1028 "\301\302$)\207" [inhibit-read-only t epa-sign-region] 9 (#$ . 4059) (byte-code "\212eb\210\304 \210m\204\305y\210\206\306`d\"\n`d\205&\307\310 !\311\305\312$\203/\313 \2020\314)F\207" [coding-system-for-write epa-last-coding-system-specified current-prefix-arg epa-protocol rfc822-goto-eoh nil select-safe-coding-system epa-select-keys epg-make-context "Select keys for signing.\nIf no one is selected, default secret key is used. " t epa--read-signature-type clear] 8)]) (byte-code "\300\301\302\303#\300\207" [function-put epa-mail-sign interactive-only t] 4)#@69 Return the default list of encryption recipients for a mail buffer. (defalias 'epa-mail-default-recipients #[0 "\300\301!\302\211\212eb\210\214`\303 \210`}\210\304\305\306\307\302\211\310$\306\311\302\211\310$\244\306\312\302\211\310$\244\313#\262\314\315\316\310\"r\211q\210\317\320\"\216\321\322\261\210\323ed\"\210\306\307\302\211\310$@*\262!)\262\324\313\310\325$\262\326\327\330\317\331\"\"\"\262\326\327\330\332\"\")\211\262\207" [epg-find-configuration OpenPGP nil rfc822-goto-eoh mapconcat identity mail-fetch-field "to" t "cc" "bcc" "," mail-strip-quoted-names generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] "to: " "\n" expand-mail-aliases split-string "[ \n]*" apply nconc mapcar #[257 "\301\300\"\206 \211C\207" [V0 epg-expand-group] 4 "\n\n(fn RECIPIENT)"] #[257 "\301\227\"\211\203\302A!\207C\207" [epa-mail-aliases assoc copy-sequence] 4 "\n\n(fn RECIPIENT)"]] 11 (#$ . 4918)])#@511 Encrypt the outgoing mail message in the current buffer. Takes the recipients from the text in the header in the buffer and translates them through `epa-mail-aliases'. With prefix argument, asks you to select among them interactively and also whether and how to sign. Called from Lisp, the optional argument RECIPIENTS is a list of recipient addresses, t to perform symmetric encryption, or nil meaning use the defaults. SIGNERS is a list of keys to sign the message with. (fn &optional RECIPIENTS SIGNERS) (defalias 'epa-mail-encrypt #[512 "\305\211\211\212\306=\203\305\202!\203\202!\307 \262\310\311\312\313\"\"\262eb\210\314 \210m\2040\305y\210`\262\206;\315`d\")\n\316=\203L \203L\317 \210\305\306\320d\211%)\207" [coding-system-for-write epa-last-coding-system-specified major-mode mail-encode-mml inhibit-read-only nil t epa-mail-default-recipients apply nconc mapcar #[257 "\302\303\304!\305\306\"\203\307\310Q\202\"\311\"\211\204- \203(\312\313\314\"!\204-\315\316\"\210\211\2053\211C\207" [epa-protocol epa-mail-offer-skip epa-mail--find-usable-key epg-list-keys epg-make-context string-search "@" "<" ">" encrypt y-or-n-p format "No public key for %s; skip it? " error "No public key for %s"] 7 "\n\n(fn RECIPIENT)"] rfc822-goto-eoh select-safe-coding-system mail-mode mml-to-mime epa-encrypt-region] 11 (#$ . 5902) (byte-code "\302 !\205\303\304\305 #\206\306\205 \307\310!\205 \303\311\"D\207" [current-prefix-arg epa-protocol epg-make-context epa-select-keys "Select recipients for encryption.\nIf no one is selected, symmetric encryption will be performed. " epa-mail-default-recipients t y-or-n-p "Sign? " "Select keys for signing. "] 6)])#@114 Import keys in the OpenPGP armor format in the current buffer. The buffer is expected to contain a mail message. (defalias 'epa-mail-import-keys #[0 "\300ed\"\207" [epa-import-armor-in-region] 3 (#$ . 7619) nil]) (byte-code "\300\301\302\303#\304\305\306\307\310DD\311\312\313\314\315\316\317\320\321\322\323& \207" [function-put epa-mail-import-keys interactive-only t custom-declare-variable epa-global-mail-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Epa-Global-Mail mode is enabled.\nSee the `epa-global-mail-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `epa-global-mail-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group epa-mail :version "23.1"] 15)#@633 Minor mode to hook EasyPG into Mail mode. This is a global minor mode. If called interactively, toggle the `Epa-Global-Mail mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value \='epa-global-mail-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'epa-global-mail-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B\313\314\315\"\210 \203F\316\314\315\"\210\317\320\305\301!\203R\321\202S\322\"\210\323\324!\203|\325\301!\210\302 \203k\211\302 \232\203|\326\327\330\305\301!\203x\331\202y\332\333$\210\210\334 \210\305\301!\207" [global-minor-modes epa-global-mail-mode current-message set-default toggle default-value 1 nil t boundp delq remove-hook mail-mode-hook epa-mail-mode add-hook run-hooks epa-global-mail-mode-hook epa-global-mail-mode-on-hook epa-global-mail-mode-off-hook called-interactively-p any customize-mark-as-set message "%s %sabled%s" "Epa-Global-Mail mode" "en" "dis" "" force-mode-line-update] 7 (#$ . 8487) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar epa-global-mail-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315!\207" [epa-global-mail-mode-map epa-global-mail-mode-hook variable-documentation put "Hook run after entering or leaving `epa-global-mail-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode epa-global-mail-mode boundp provide epa-mail] 6)