Current File : //usr/local/share/emacs/27.2/lisp/epa-mail.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\300\302!\207" [require epa mail-utils] 2)
(defvar epa-mail-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\303#\210\301\317\305#\210\301\320\307#\210\301\321\311#\210\301\322\313#\210\301\323\315#\210\211\207" [make-sparse-keymap define-key "d" epa-mail-decrypt "v" epa-mail-verify "s" epa-mail-sign "e" epa-mail-encrypt "i" epa-mail-import-keys "o" epa-insert-keys "" "" "" "" " " ""] 5))
(defvar epa-mail-mode-hook nil)
(defvar epa-mail-mode-on-hook nil)
(defvar epa-mail-mode-off-hook nil)
#@95 Non-nil if epa-mail mode is enabled.
Use the command `epa-mail-mode' to change this variable.
(defvar epa-mail-mode nil (#$ . 1057))
(make-variable-buffer-local 'epa-mail-mode)
#@318 A minor-mode for composing encrypted/clearsigned mails.
If called interactively, enable epa-mail mode if ARG is positive, and
disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
(fn &optional ARG)
(defalias 'epa-mail-mode #[256 "\301 \302=\203
?\202 \303!\304V\305\306\203 \307\202 \310\"\210\311\312!\203B \301 \2032 \211\301 \232\203B \313\314\315\203= \316\202> \317#\266\210\320 \210\207" [epa-mail-mode current-message toggle prefix-numeric-value 0 run-hooks epa-mail-mode-hook epa-mail-mode-on-hook epa-mail-mode-off-hook called-interactively-p any " in current buffer" message "epa-mail mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 1241) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar epa-mail-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\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.)" add-minor-mode epa-mail-mode " epa-mail" nil] 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\202 0\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 (#$ . 2506)])
#@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 (#$ . 3036) 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 (#$ . 3329) 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 (#$ . 3641) (byte-code "\212eb\210\305\306\307#\203 \306y\210 \206 \310`d\" `d\205' \311\312\f!\313\306\307$\2030 \314 \2021 \315F\262)\207" [mail-header-separator coding-system-for-write epa-last-coding-system-specified current-prefix-arg epa-protocol search-forward nil t select-safe-coding-system epa-select-keys epg-make-context "Select keys for signing.\nIf no one is selected, default secret key is used. " 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 "\301\302!\303\211\212eb\210\214`\304\303\305#\203 \305\224\202 `}\210\306\307\310\311\303\211\312$\310\313\303\211\312$\244\310\314\303\211\312$\244\315#\262\316\317\320!r\211q\210\321\305\322\323\324!\325\"\326$\216\327\330\261\210\331ed\"\210\310\311\303\211\312$@*\262!\262)\332\315\312\333$\262\334\335\336\321\337\340\323\324\n!\341\"\342\343%\"\"\262\334\335\336\344\"\"\211\262)\207" [mail-header-separator epg-find-configuration OpenPGP nil search-forward 0 mapconcat identity mail-fetch-field "to" t "cc" "bcc" "," mail-strip-quoted-names generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "to: " "\n" expand-mail-aliases split-string "[ \n]*" apply nconc mapcar 257 "\301\300\"\206 \211C\207" [epg-expand-group] 4 "\n\n(fn RECIPIENT)" #[257 "\301\"\211\203 \302A!\202 C\207" [epa-mail-aliases assoc copy-sequence] 4 "\n\n(fn RECIPIENT)"]] 12 (#$ . 4531)])
#@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 "\304\211\211\212\305=\203 \304\202! \203 \202! \306 \262\307\310\311\312\"\"\262eb\210\313\304\305#\2031 \304y\210`\262 \206< \314`d\")\305\315d\211%)\207" [mail-header-separator coding-system-for-write epa-last-coding-system-specified inhibit-read-only nil t epa-mail-default-recipients apply nconc mapcar #[257 "\301\302\303!\304\305\"\203 \306\307Q\202 \"\310\"\211\204) \311\312\313\"!\204) \314\315\"\210\211\205/ \211C\207" [epa-protocol epa-mail--find-usable-key epg-list-keys epg-make-context string-match "@" "<" ">" encrypt y-or-n-p format "No public key for %s; skip it? " error "No public key for %s"] 7 "\n\n(fn RECIPIENT)"] search-forward select-safe-coding-system epa-encrypt-region] 11 (#$ . 5609) (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 (#$ . 7241) 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 :group epa-mail :type boolean :version "23.1"] 15)
#@311 Minor mode to hook EasyPG into Mail mode.
If called interactively, enable Epa-Global-Mail mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
(fn &optional ARG)
(defalias 'epa-global-mail-mode #[256 "\301 \302\300\303=\203 \304\300!?\202 \305!\306V\"\210\307\310\311\"\210\203& \312\310\311\"\210\313\314\304\300!\2032 \315\2023 \316\"\210\317\320!\203] \321\300!\210\301 \203K \211\301 \232\203] \322\323\324\304\300!\203X \325\202Y \326#\266\210\327 \210\304\300!\207" [epa-global-mail-mode current-message set-default toggle default-value prefix-numeric-value 0 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 "Epa-Global-Mail mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 8107) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar epa-global-mail-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312!\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.)" add-minor-mode epa-global-mail-mode nil boundp provide epa-mail] 6)
Mini Shell