| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/epa-mail.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:16 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/epa-mail.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\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 (#$ . 1200))
(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!\203? \301 \2032 \211\301 \232\203? \313\314\203< \315\202= \316\"\210\210\317 \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 message "epa-mail mode %sabled" "en" "dis" force-mode-line-update] 5 (#$ . 1384) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(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 "C\300\301\302\303\304\305\306 \"\307\"\310\311%D\215\207" [found funcall make-byte-code 0 "\300@\2058 \302\300@@!\211\203. \301\303@!>\203' \304@!\305>\204' \306\307\300@@\"\210\211A\262\202\n \210\300\211@A\240\210\202 \207" vconcat vector [epg-key-sub-key-list epg-sub-key-capability epg-sub-key-validity (revoked expired) throw found] 4 "\n\n(fn)"] 12 (#$ . 2238)])
#@145 Decrypt OpenPGP armors in the current buffer.
The buffer is expected to contain a mail message.
Don't use this command in Lisp programs!
(fn)
(defalias 'epa-mail-decrypt #[0 "\300ed\"\207" [epa-decrypt-armor-in-region] 3 (#$ . 2758) nil])
#@163 Verify OpenPGP cleartext signed messages in the current buffer.
The buffer is expected to contain a mail message.
Don't use this command in Lisp programs!
(fn)
(defalias 'epa-mail-verify #[0 "\300ed\"\207" [epa-verify-cleartext-in-region] 3 (#$ . 3006) nil])
#@147 Sign the current buffer.
The buffer is expected to contain a mail message.
Don't use this command in Lisp programs!
(fn START END SIGNERS MODE)
(defalias 'epa-mail-sign #[1028 "\300$\207" [epa-sign-region] 9 (#$ . 3274) (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)])
#@161 Encrypt the current buffer.
The buffer is expected to contain a mail message.
Don't use this command in Lisp programs!
(fn START END RECIPIENTS SIGN SIGNERS)
(defalias 'epa-mail-encrypt #[1285 "\301\302%)\207" [inhibit-read-only t epa-encrypt-region] 11 (#$ . 3958) (byte-code "\212\305 \306 !\307\211\211C\307eb\210\214`\310\n\307\311#\203 \311\224\202 `}\210\312\313\314\315\307\211\316$\314\317\307\211\316$\244\314\320\307\211\316$\244\321#\262\322\323\324!r\211q\210\325\326\311\327\330\331!\332\"\333\334%DC\216\335\336\261\210\337ed\"\210\314\315\307\211\316$@*\262!\262)\203{ \340\341\342\343\"\"\262\344\345\346\326\347\350\330\331
!\351\"\352\353%\"\"\262eb\210\310\n\307\316#\203\237 \307y\210 \206\247 \354`d\"`d\203\271 \355\356#\202\321 \205\321 \344\345\346\326\347\357\330\331 !\360\"\361\353%\"\" \205\331 \362\363!\211\262\205\345 \355 \364\"\257\266\207)\207" [current-prefix-arg epa-protocol mail-header-separator coding-system-for-write epa-last-coding-system-specified epg-configuration epg-make-context nil search-forward 0 mapconcat identity mail-fetch-field "to" t "cc" "bcc" "," mail-strip-quoted-names generate-new-buffer " *temp*" funcall make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" "to: " "\n" expand-mail-aliases delete "" split-string "[ \n]*,[ \n]*" apply nconc mapcar 257 "\301\300\"\206 \211C\207" [epg-expand-group] 4 "\n\n(fn RECIPIENT)" epa--select-safe-coding-system epa-select-keys "Select recipients for encryption.\nIf no one is selected, symmetric encryption will be performed. " "\300\302\303\304 !\305\306\"\203 \307\310Q\202 \"\311\"\240\210\300@\204. \312\313\314\"!\204. \315\316\"\210\300@\2056 \300@C\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"] 8 y-or-n-p "Sign? " "Select keys for signing. "] 18)])
#@162 Import keys in the OpenPGP armor format in the current buffer.
The buffer is expected to contain a mail message.
Don't use this command in Lisp programs!
(fn)
(defalias 'epa-mail-import-keys #[0 "\300ed\"\207" [epa-import-armor-in-region] 3 (#$ . 5971) nil])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317&
\207" [custom-declare-variable epa-global-mail-mode funcall function #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Non-nil if Epa-Global-Mail mode is enabled.\nSee the command `epa-global-mail-mode' for 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=\203
?\202 \303!\304V\305\306\307\"\210\203! \310\306\307\"\210\311\312\203+ \313\202, \314\"\210\315\316!\203Q \317\300!\210\301 \203D \211\301 \232\203Q \320\321\203N \322\202O \323\"\210\210\324 \210\207" [epa-global-mail-mode current-message toggle 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" "en" "dis" force-mode-line-update] 5 (#$ . 6825) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(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)