ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/epa-mail.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 1059))
(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 (#$ . 1243) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@178 Hook run after entering or leaving `epa-mail-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar epa-mail-mode-hook nil (#$ . 2018))
(byte-code "\301\302\303\304\211%\207" [epa-mail-mode-map 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 @\303H>\204 \304\305\306@D\"\210@\307H\211\203b @\303H >\2043 \304\305\310@D\"\210@\307H>\203[ \211@\303H >\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 0 signal wrong-type-argument epg-key 2 epg-sub-key 1 (revoked expired) throw] 8 (#$ . 2353)])
#@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 (#$ . 2880) nil])
(function-put 'epa-mail-decrypt 'interactive-only t)
#@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 (#$ . 3133) nil])
(function-put 'epa-mail-verify 'interactive-only t)
#@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 (#$ . 3405) (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)])
(function-put 'epa-mail-sign 'interactive-only t)
#@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\202 C\207" [epa-mail-aliases assoc] 4 "\n\n(fn RECIPIENT)"]] 12 (#$ . 4122)])
#@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 (#$ . 5167) (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 (#$ . 6804) nil])
(byte-code "\300\301\302\303#\210\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"] 14)
#@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 (#$ . 7674) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@185 Hook run after entering or leaving `epa-global-mail-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar epa-global-mail-mode-hook nil (#$ . 8658))
(byte-code "\301\302\303\304\300!\205\n \303\211%\210\305\306!\207" [epa-global-mail-mode-map add-minor-mode epa-global-mail-mode nil boundp provide epa-mail] 6)
Kontol Shell Bypass