HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/epa-mail.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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\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)
#@231 A minor-mode for composing encrypted/clearsigned mails.
With a prefix argument ARG, enable the mode if ARG is positive,
and disable it otherwise.  If called from Lisp, enable the mode
if ARG is omitted or nil.

(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\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 (#$ . 2419)])
#@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 (#$ . 2949) 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 (#$ . 3242) nil])
(byte-code "\300\301\302\303#\300\207" [function-put epa-mail-verify interactive-only t] 4)
#@105 Sign the current buffer.
The buffer is expected to contain a mail message.

(fn START END SIGNERS MODE)
(defalias 'epa-mail-sign #[1028 "\301\302$)\207" [inhibit-read-only t epa-sign-region] 9 (#$ . 3554) (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 epa--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\211\212eb\210\214`\303\302\304#\203\304\224\202`}\210\305\306\307\310\302\211\311$\307\312\302\211\311$\244\307\313\302\211\311$\244\314#\262\315\316\317!r\211q\210\320\304\321\322\323!\324\"\325$\216\326\327\261\210\330ed\"\210\307\310\302\211\311$@*\262!\262)\331\314\311\332$\262\333\334\335\320\336\337\322\323\n!\340\"\341\342%\"\"\262\333\334\335\343\"\"\211\262)\207" [mail-header-separator epg-configuration 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
\211A\202C\207" [epa-mail-aliases assoc] 4 "\n\n(fn RECIPIENT)"]] 12 (#$ . 4311)])
#@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 epa--select-safe-coding-system epa-encrypt-region] 11 (#$ . 5356) (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 (#$ . 6993) 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)
#@217 Minor mode to hook EasyPG into Mail mode.
With a prefix argument ARG, enable the mode if ARG is positive,
and disable it otherwise.  If called from Lisp, enable the mode
if ARG is omitted or nil.

(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 (#$ . 7859) (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)