Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
gnus /
Delete
Unzip
Name
Size
Permission
Date
Action
.dir-locals.el
105
B
-rw-r--r--
2012-04-13 21:33
auth-source.elc
51.28
KB
-rw-r--r--
2023-06-07 04:09
canlock.elc
5.89
KB
-rw-r--r--
2023-06-07 04:09
compface.elc
1.34
KB
-rw-r--r--
2023-06-07 04:09
deuglify.elc
8.04
KB
-rw-r--r--
2023-06-07 04:09
ecomplete.elc
4.59
KB
-rw-r--r--
2023-06-07 04:09
flow-fill.elc
4.74
KB
-rw-r--r--
2023-06-07 04:09
gmm-utils.elc
7.46
KB
-rw-r--r--
2023-06-07 04:09
gnus-agent.elc
121.05
KB
-rw-r--r--
2023-06-07 04:09
gnus-art.elc
256.06
KB
-rw-r--r--
2023-06-07 04:09
gnus-async.elc
12.05
KB
-rw-r--r--
2023-06-07 04:09
gnus-bcklg.elc
3.42
KB
-rw-r--r--
2023-06-07 04:09
gnus-bookmark.elc
24.2
KB
-rw-r--r--
2023-06-07 04:09
gnus-cache.elc
25.68
KB
-rw-r--r--
2023-06-07 04:09
gnus-cite.elc
27.02
KB
-rw-r--r--
2023-06-07 04:09
gnus-cus.elc
38.53
KB
-rw-r--r--
2023-06-07 04:09
gnus-delay.elc
4.79
KB
-rw-r--r--
2023-06-07 04:09
gnus-demon.elc
7.77
KB
-rw-r--r--
2023-06-07 04:09
gnus-diary.elc
8.86
KB
-rw-r--r--
2023-06-07 04:09
gnus-dired.elc
7.65
KB
-rw-r--r--
2023-06-07 04:09
gnus-draft.elc
11.72
KB
-rw-r--r--
2023-06-07 04:09
gnus-dup.elc
4.45
KB
-rw-r--r--
2023-06-07 04:09
gnus-eform.elc
3.43
KB
-rw-r--r--
2023-06-07 04:09
gnus-ems.elc
5.94
KB
-rw-r--r--
2023-06-07 04:09
gnus-fun.elc
8.5
KB
-rw-r--r--
2023-06-07 04:09
gnus-gravatar.elc
4.09
KB
-rw-r--r--
2023-06-07 04:09
gnus-group.elc
151.52
KB
-rw-r--r--
2023-06-07 04:09
gnus-html.elc
14.29
KB
-rw-r--r--
2023-06-07 04:09
gnus-int.elc
63.73
KB
-rw-r--r--
2023-06-07 04:10
gnus-kill.elc
17.78
KB
-rw-r--r--
2023-06-07 04:10
gnus-logic.elc
5.07
KB
-rw-r--r--
2023-06-07 04:10
gnus-mh.elc
2.83
KB
-rw-r--r--
2023-06-07 04:10
gnus-ml.elc
5.57
KB
-rw-r--r--
2023-06-07 04:10
gnus-mlspl.elc
6.3
KB
-rw-r--r--
2023-06-07 04:10
gnus-msg.elc
85.35
KB
-rw-r--r--
2023-06-07 04:10
gnus-notifications.elc
5.29
KB
-rw-r--r--
2023-06-07 04:10
gnus-picon.elc
8.41
KB
-rw-r--r--
2023-06-07 04:10
gnus-range.elc
12.41
KB
-rw-r--r--
2023-06-07 04:10
gnus-registry.elc
31.31
KB
-rw-r--r--
2023-06-07 04:10
gnus-salt.elc
24.04
KB
-rw-r--r--
2023-06-07 04:10
gnus-score.elc
73.99
KB
-rw-r--r--
2023-06-07 04:10
gnus-setup.elc
4.95
KB
-rw-r--r--
2023-06-07 04:10
gnus-sieve.elc
8.35
KB
-rw-r--r--
2023-06-07 04:10
gnus-spec.elc
14.81
KB
-rw-r--r--
2023-06-07 04:10
gnus-srvr.elc
48.21
KB
-rw-r--r--
2023-06-07 04:10
gnus-start.elc
144.43
KB
-rw-r--r--
2023-06-07 04:10
gnus-sum.elc
414.15
KB
-rw-r--r--
2023-06-07 04:10
gnus-sync.elc
21.49
KB
-rw-r--r--
2023-06-07 04:10
gnus-topic.elc
46.05
KB
-rw-r--r--
2023-06-07 04:10
gnus-undo.elc
4.29
KB
-rw-r--r--
2023-06-07 04:10
gnus-util.elc
52.93
KB
-rw-r--r--
2023-06-07 04:10
gnus-uu.elc
55.72
KB
-rw-r--r--
2023-06-07 04:10
gnus-vm.elc
2.57
KB
-rw-r--r--
2023-06-07 04:10
gnus-win.elc
10.58
KB
-rw-r--r--
2023-06-07 04:10
gnus.elc
156.43
KB
-rw-r--r--
2023-06-07 04:10
gravatar.elc
4.26
KB
-rw-r--r--
2023-06-07 04:10
gssapi.elc
2.41
KB
-rw-r--r--
2023-06-07 04:10
html2text.elc
10.47
KB
-rw-r--r--
2023-06-07 04:10
ietf-drums.elc
7.64
KB
-rw-r--r--
2023-06-07 04:10
legacy-gnus-agent.elc
6.54
KB
-rw-r--r--
2023-06-07 04:10
mail-parse.elc
2.39
KB
-rw-r--r--
2023-06-07 04:10
mail-prsvr.elc
1.23
KB
-rw-r--r--
2023-06-07 04:10
mail-source.elc
28.49
KB
-rw-r--r--
2023-06-07 04:10
mailcap.elc
24.93
KB
-rw-r--r--
2023-06-07 04:10
message.elc
227.03
KB
-rw-r--r--
2023-06-07 04:10
messcompat.elc
2.69
KB
-rw-r--r--
2023-06-07 04:10
mm-archive.elc
2.85
KB
-rw-r--r--
2023-06-07 04:10
mm-bodies.elc
5.99
KB
-rw-r--r--
2023-06-07 04:10
mm-decode.elc
50.6
KB
-rw-r--r--
2023-06-07 04:10
mm-encode.elc
6.2
KB
-rw-r--r--
2023-06-07 04:10
mm-extern.elc
4.28
KB
-rw-r--r--
2023-06-07 04:10
mm-partial.elc
3.37
KB
-rw-r--r--
2023-06-07 04:10
mm-url.elc
8.73
KB
-rw-r--r--
2023-06-07 04:10
mm-util.elc
39.65
KB
-rw-r--r--
2023-06-07 04:10
mm-uu.elc
18.9
KB
-rw-r--r--
2023-06-07 04:10
mm-view.elc
18.51
KB
-rw-r--r--
2023-06-07 04:10
mml-sec.elc
12.41
KB
-rw-r--r--
2023-06-07 04:10
mml-smime.elc
14.44
KB
-rw-r--r--
2023-06-07 04:10
mml.elc
42.01
KB
-rw-r--r--
2023-06-07 04:10
mml1991.elc
11.5
KB
-rw-r--r--
2023-06-07 04:10
mml2015.elc
33.95
KB
-rw-r--r--
2023-06-07 04:10
nnagent.elc
10.93
KB
-rw-r--r--
2023-06-07 04:10
nnbabyl.elc
17.15
KB
-rw-r--r--
2023-06-07 04:10
nndiary.elc
39.54
KB
-rw-r--r--
2023-06-07 04:10
nndir.elc
2.95
KB
-rw-r--r--
2023-06-07 04:11
nndoc.elc
30.11
KB
-rw-r--r--
2023-06-07 04:11
nndraft.elc
10.94
KB
-rw-r--r--
2023-06-07 04:11
nneething.elc
11.83
KB
-rw-r--r--
2023-06-07 04:11
nnfolder.elc
32.19
KB
-rw-r--r--
2023-06-07 04:11
nngateway.elc
3.04
KB
-rw-r--r--
2023-06-07 04:11
nnheader.elc
31.94
KB
-rw-r--r--
2023-06-07 04:11
nnimap.elc
68.59
KB
-rw-r--r--
2023-06-07 04:11
nnir.elc
56.96
KB
-rw-r--r--
2023-06-07 04:11
nnmail.elc
53.02
KB
-rw-r--r--
2023-06-07 04:11
nnmaildir.elc
97.58
KB
-rw-r--r--
2023-06-07 04:11
nnmairix.elc
72.67
KB
-rw-r--r--
2023-06-07 04:11
nnmbox.elc
18.82
KB
-rw-r--r--
2023-06-07 04:11
nnmh.elc
15.52
KB
-rw-r--r--
2023-06-07 04:11
nnml.elc
39.81
KB
-rw-r--r--
2023-06-07 04:11
nnnil.elc
1.77
KB
-rw-r--r--
2023-06-07 04:11
nnoo.elc
8.72
KB
-rw-r--r--
2023-06-07 04:11
nnregistry.elc
1.85
KB
-rw-r--r--
2023-06-07 04:11
nnrss.elc
30.01
KB
-rw-r--r--
2023-06-07 04:11
nnspool.elc
15.88
KB
-rw-r--r--
2023-06-07 04:11
nntp.elc
121.29
KB
-rw-r--r--
2023-06-07 04:11
nnvirtual.elc
18.42
KB
-rw-r--r--
2023-06-07 04:11
nnweb.elc
17.61
KB
-rw-r--r--
2023-06-07 04:11
plstore.elc
14.75
KB
-rw-r--r--
2023-06-07 04:11
pop3.elc
14.53
KB
-rw-r--r--
2023-06-07 04:11
qp.elc
4.35
KB
-rw-r--r--
2023-06-07 04:11
registry.elc
9.3
KB
-rw-r--r--
2023-06-07 04:11
rfc1843.elc
5.35
KB
-rw-r--r--
2023-06-07 04:11
rfc2045.elc
971
B
-rw-r--r--
2023-06-07 04:11
rfc2047.elc
24.75
KB
-rw-r--r--
2023-06-07 04:11
rfc2104.elc
1.43
KB
-rw-r--r--
2023-06-07 04:11
rfc2231.elc
6.84
KB
-rw-r--r--
2023-06-07 04:11
rtree.elc
4.3
KB
-rw-r--r--
2023-06-07 04:11
score-mode.elc
3.32
KB
-rw-r--r--
2023-06-07 04:11
shr-color.elc
9.11
KB
-rw-r--r--
2023-06-07 04:11
shr.elc
33.2
KB
-rw-r--r--
2023-06-07 04:11
sieve-manage.elc
17.1
KB
-rw-r--r--
2023-06-07 04:11
sieve-mode.elc
7.73
KB
-rw-r--r--
2023-06-07 04:11
sieve.elc
11.08
KB
-rw-r--r--
2023-06-07 04:11
smiley.elc
5.39
KB
-rw-r--r--
2023-06-07 04:11
smime.elc
19.61
KB
-rw-r--r--
2023-06-07 04:11
spam-report.elc
11.53
KB
-rw-r--r--
2023-06-07 04:11
spam-stat.elc
19.64
KB
-rw-r--r--
2023-06-07 04:11
spam-wash.elc
1.37
KB
-rw-r--r--
2023-06-07 04:11
spam.elc
83.9
KB
-rw-r--r--
2023-06-07 04:11
starttls.elc
6.42
KB
-rw-r--r--
2023-06-07 04:11
utf7.elc
5.83
KB
-rw-r--r--
2023-06-07 04:11
yenc.elc
3.62
KB
-rw-r--r--
2023-06-07 04:11
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:10:56 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/mml2015.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!\204 \302\301\303\304B\"\210\305\306!\203 \307\310!\210\202 \307\311!\210\307\312!\210\307\313!\210\307\314!\210\307\315!\207" [fboundp declare-function defalias macro #[(&rest r) "\300\207" [nil] 1] locate-library "password-cache" require password-cache password mm-decode mm-util mml mml-sec] 4) #@85 The package used for PGP/MIME. Valid packages include `epg', `pgg' and `mailcrypt'. (defvar mml2015-use (byte-code "\301\302\303\217\206? \304\305!\211\205# \306\307\"?\205# \301\310\311\217\210\312\313!\205# \314)\206? \301\315\316\217\210\312\317!\205? \312\320!\205? \312\321!\205? \322\207" [abs-file nil (byte-code "\300\301!\210\302\303 !\210\304\207" [require epg-config epg-check-configuration epg-configuration epg] 2) ((error)) locate-library "pgg" string-match "/obsolete/[^/]*\\'" (byte-code "\300\301!\207" [require pgg] 2) ((error)) fboundp pgg-sign-region pgg (load "mc-toplev") ((error)) mc-encrypt-generic mc-sign-generic mc-cleanup-recipient-headers mailcrypt] 4) (#$ . 873)) #@30 Alist of PGP/MIME functions. (defvar mml2015-function-alist '((mailcrypt mml2015-mailcrypt-sign mml2015-mailcrypt-encrypt mml2015-mailcrypt-verify mml2015-mailcrypt-decrypt mml2015-mailcrypt-clear-verify mml2015-mailcrypt-clear-decrypt) (pgg mml2015-pgg-sign mml2015-pgg-encrypt mml2015-pgg-verify mml2015-pgg-decrypt mml2015-pgg-clear-verify mml2015-pgg-clear-decrypt) (epg mml2015-epg-sign mml2015-epg-encrypt mml2015-epg-verify mml2015-epg-decrypt mml2015-epg-clear-verify mml2015-epg-clear-decrypt)) (#$ . 1575)) (defvar mml2015-result-buffer nil) (byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\306\307\310\315&\210\300\316\317\320\306\307\310\321&\210\300\322\323\324\306\307\310\325&\210\300\326\323\327\306\307\310\315\304\330& \210\300\331\323\332\306\307\310\315&\210\300\333\334\335\306\307\310\315&\207" [custom-declare-variable mml2015-unabbrev-trust-alist '(("TRUST_UNDEFINED") ("TRUST_NEVER") ("TRUST_MARGINAL" . t) ("TRUST_FULLY" . t) ("TRUST_ULTIMATE" . t)) "Map GnuPG trust output values to a boolean saying if you trust the key." :version "22.1" :group mime-security :type (repeat (cons (regexp :tag "GnuPG output regexp") (boolean :tag "Trust key"))) mml2015-cache-passphrase mml-secure-cache-passphrase "If t, cache passphrase." boolean mml2015-passphrase-cache-expiry mml-secure-passphrase-cache-expiry "How many seconds the passphrase is cached.\nWhether the passphrase is cached at all is controlled by\n`mml2015-cache-passphrase'." integer mml2015-signers nil "A list of your own key ID(s) which will be used to sign a message.\nIf set, it overrides the setting of `mml2015-sign-with-sender'." (repeat (string :tag "Key ID")) mml2015-sign-with-sender "If t, use message sender so find a key to sign with." "24.1" mml2015-encrypt-to-self "If t, add your own key ID to recipient list when encryption." mml2015-always-trust t "If t, GnuPG skip key validation on encryption."] 10) (defalias 'mml2015-extract-cleartext-signature #[nil "eb\210\300y\210\301\302!\203 \300y\210\202 \301\303!\203 \300y\210e`|\210\304\305\300\306#\203, \307\224d|\210eb\210\304\310\300\306#\205C \311\312\306\211#\210\313y\210\202/ \207" [nil looking-at "Hash:" "[ ]*$" re-search-forward "^-----BEGIN PGP SIGNATURE-----" t 0 "^- " replace-match "" 1] 4]) (byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\300\305\306\"\210\300\307\306\"\210\300\310\306\"\207" [autoload mailcrypt-decrypt "mailcrypt" mailcrypt-verify mc-pgp-always-sign mc-encrypt-generic "mc-toplev" mc-cleanup-recipient-headers mc-sign-generic] 3) (defvar mml2015-decrypt-function 'mailcrypt-decrypt) (defvar mml2015-verify-function 'mailcrypt-verify) (defalias 'mml2015-format-error #[(err) "\211A@);\203 \211A@)\207\302\303A\"\207" [err x format "%S"] 4]) (defalias 'mml2015-mailcrypt-decrypt #[(handle ctl) "\300\301\215\207" [error (byte-code "\306\211\211\307 A\310\306\311$\211\204/ \f\312\313 \211\205( \314\315 @G @%+\210\316\317 \"\210\320\321! r q\210\322\216\323\n!\210\324\325\326\217\211@\204f \f\312\327 \211\205_ \314\315 @G @%+\210\316\317 \"\210\330\311!+\331 !\210\f\312\332r q\210\333 ) \334 P)P \211\205\225 \314\315 @G @%+\210 @<\203\241 \202\243 C+\207" [result handles child handle mm-security-handle value nil mm-find-part-by-type "application/octet-stream" t gnus-info "Corrupted" put-text-property 0 throw error generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) mm-insert-part err (funcall mml2015-decrypt-function) ((error (byte-code "\305\306 !\211 \205 \307\310\f@G \n\f@%+\210\311\207" [mm-security-handle err value parameter handle gnus-details mml2015-format-error put-text-property 0 nil] 7)) (quit (byte-code "\304\305\211\205 \306\307 @G\n @%+\210\310\207" [mm-security-handle value parameter handle gnus-details "Quit." put-text-property 0 nil] 7))) "Failed" mm-dissect-buffer mm-destroy-parts "OK" mml2015-gpg-extract-signature-details ", Signer: " parameter #1# mml2015-result-buffer sig] 7)] 2]) (defalias 'mml2015-gpg-pretty-print-fpr #[(fingerprint) "\306\307 !\310\311 \312 \311\") \203: \n\313Z\314 \n\"\313 \233 T\315 \316\"\2032 \f\2025 \317\fPP\202 ,\207" [result fingerprint fpr-length n-slice slice string "" string-width 0 nil append 4 butlast eql 1 " "] 4]) (defalias 'mml2015-gpg-extract-signature-details #[nil "eb\210\306\307\310\311#\306\312\310\311#\205 \313\314!\313\315!B\306\316\310\311#\205$ \313\314!\306\317\310\311#\2050 \313\314!\320 \f\"A \203X \n\203X A ?\205K \321\322\n!P\205T \323\324 @\"Q\202g \306\325\310\311#\203f \313\315!\202g \326-\207" [expired signer fprint trust mml2015-unabbrev-trust-alist trust-good-enough-p re-search-forward "^\\[GNUPG:\\] SIGEXPIRED$" nil t "^\\[GNUPG:\\] GOODSIG \\([0-9A-Za-z]*\\) \\(.*\\)$" match-string 1 2 "^\\[GNUPG:\\] VALIDSIG \\([0-9a-zA-Z]*\\) " "^\\[GNUPG:\\] \\(TRUST_.*\\)$" assoc "\nUntrusted, Fingerprint: " mml2015-gpg-pretty-print-fpr format "\nWARNING: Signature from expired key (%s)" "^\\(gpg: \\)?Good signature from \"\\(.*\\)\"$" "From unknown user"] 5]) (defalias 'mml2015-mailcrypt-clear-decrypt #[nil "\305\306\307\310\217\211@\203$ \311\312\211 \205 \313\314\f@G \n\f@%+\2029 \311\315\211 \2058 \313\314\f@G \n\f@%+)\207" [result mm-security-handle value parameter handle nil err (funcall mml2015-decrypt-function) ((error (byte-code "\305\306 !\211 \205 \307\310\f@G \n\f@%+\210\311\207" [mm-security-handle err value parameter handle gnus-details mml2015-format-error put-text-property 0 nil] 7)) (quit (byte-code "\304\305\211\205 \306\307 @G\n @%+\210\310\207" [mm-security-handle value parameter handle gnus-details "Quit." put-text-property 0 nil] 7))) gnus-info "OK" put-text-property 0 "Failed"] 7]) (defalias 'mml2015-fix-micalg #[(alg) "\205 \301\302\"\203 \303\225\304O\202 \226\207" [alg string-match "^p[gh]p-" 0 nil] 3]) (defalias 'mml2015-mailcrypt-verify #[(handle ctl) "\300\301\215\207" [error (byte-code "\306\307 \310\311\312 @#\206 \313\314#\211\2040 \n\315\316 \211 \205) \317\311 @G\f @%+\210\320\321 \"\210\322\323! .r.q\210\324\216\325c\210\326\327\330\310\311\331 @#!\206M \332\"c\210\214``}\210\333\261\210eb\210m\204p \334\335!\203j \336c\210\306y\210\202] )\337 A\313\306\314$\211\204\230 \n\315\316 \211 \205\221 \317\311 @G\f @%+\210\320\321 \"\210\214``}\210\340!\210eb\210\341\342\306\314#\203\262 \343\344\314\211#\210\341\345\306\314#\203\300 \343\346\314\211#\210)\347\350! /\351\352\353\217\204\350 \n\315\354 \211 \205\341 \317\311 @G\f @%+\210\320\321 \"\210,\n\315\355 \211 \205\375 \317\311 @G\f @%+\210 )\207" [part ctl mm-security-handle value parameter handle nil mm-find-raw-part-by-type get-text-property 0 protocol "application/pgp-signature" t gnus-info "Corrupted" put-text-property throw error generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) "-----BEGIN PGP SIGNED MESSAGE-----\n" format "Hash: %s\n\n" mml2015-fix-micalg micalg "SHA1" "\n" looking-at "^-" "- " mm-find-part-by-type mm-insert-part re-search-forward "^-----BEGIN PGP [^-]+----- ?$" replace-match "-----BEGIN PGP SIGNATURE-----" "^-----END PGP [^-]+----- ?$" "-----END PGP SIGNATURE-----" get-buffer-create " *gnus gpg debug*" err (byte-code " \306\307!\203$ \310r\307q\210\311 )\211 \205\" \312\313\f@G \n\f@%+\210\306\314!\203. \315\314!\210\306\307!\2038 \315\307!\210\306\316!\203B \315\316!\210\306 !\203L \315 !\210\207" [mml2015-verify-function mm-security-handle value parameter handle mc-gpg-debug-buffer get-buffer " *mailcrypt stderr temp" gnus-details buffer-string put-text-property 0 " *mailcrypt stdout temp" kill-buffer " *mailcrypt status temp"] 8) ((error (byte-code "\305\306 !\211 \205 \307\310\f@G \n\f@%+\210\311\207" [mm-security-handle err value parameter handle gnus-details mml2015-format-error put-text-property 0 nil] 7)) (quit (byte-code "\304\305\211\205 \306\307 @G\n @%+\210\310\207" [mm-security-handle value parameter handle gnus-details "Quit." put-text-property 0 nil] 7))) "Failed" "OK" #1# mc-gpg-debug-buffer] 8)] 2]) (defalias 'mml2015-mailcrypt-clear-verify #[nil "\305\306!\307\310\311\217\203$ \312\313\211 \205 \314\315\f@G \n\f@%+\210\202: \312\316\211 \2058 \314\315\f@G \n\f@%+\210)\317 \207" [mc-gpg-debug-buffer mm-security-handle value parameter handle get-buffer-create " *gnus gpg debug*" err (byte-code " \306\307!\203$ \310r\307q\210\311 )\211 \205\" \312\313\f@G \n\f@%+\210\306\314!\203. \315\314!\210\306\307!\2038 \315\307!\210\306\316!\203B \315\316!\210\306 !\203L \315 !\210\207" [mml2015-verify-function mm-security-handle value parameter handle mc-gpg-debug-buffer get-buffer " *mailcrypt stderr temp" gnus-details buffer-string put-text-property 0 " *mailcrypt stdout temp" kill-buffer " *mailcrypt status temp"] 8) ((error (byte-code "\305\306 !\211 \205 \307\310\f@G \n\f@%+\210\311\207" [mm-security-handle err value parameter handle gnus-details mml2015-format-error put-text-property 0 nil] 7)) (quit (byte-code "\304\305\211\205 \306\307 @G\n @%+\210\310\207" [mm-security-handle value parameter handle gnus-details "Quit." put-text-property 0 nil] 7))) gnus-info "OK" put-text-property 0 "Failed" mml2015-extract-cleartext-signature] 7]) (defalias 'mml2015-mailcrypt-sign #[(cont) "\304\305\306!\307\211\211\211%\210\310!\307\211eb\210\311\312\307\313#\204! \314\315!\210\316\224b\210\317y\210\320\321!\2042 \314\322!\210\323\317!\311\324\307\313#\204B \314\325!\210\317y\210e`|\210\326\327 \"c\210\326\330\n\227\"c\210\326\331 \"c\210`db\210\332\333\307\313#\204m \314\334!\210\335\336\313\211#\210\316\224b\210\332\337\307\313#\204\203 \314\334!\210\335\340\313\211#\210\316\224b\210\214 `}\210 b\210\311\341\307\313#\203\246 \335\342\313\211#\210\202\225 db\210)\326\343 \"c\210\344c\210db\210\326\345 \"c\210db+\207" [cont point hash boundary mc-sign-generic message-options-get message-sender nil mml-compute-boundary re-search-forward "^-----BEGIN PGP SIGNED MESSAGE----- ?$" t error "Cannot find signed begin line" 0 1 looking-at "Hash:[ ]*\\([a-zA-Z0-9]+\\)" "Cannot not find PGP hash" match-string "^$" "Cannot not find PGP message" format "Content-Type: multipart/signed; boundary=\"%s\";\n" " micalg=pgp-%s; protocol=\"application/pgp-signature\"\n" "\n--%s\n" re-search-backward "^-----END PGP SIGNATURE----- ?$" "Cannot find signature part" replace-match "-----END PGP MESSAGE-----" "^-----BEGIN PGP SIGNATURE----- ?$" "-----BEGIN PGP MESSAGE-----" "^- -" "-" "--%s\n" "Content-Type: application/pgp-signature\n\n" "--%s--\n"] 6]) (defalias 'mml2015-mailcrypt-encrypt #[(cont &optional sign) "\206 \206 \306\307!\206 \310\307\311\312!\206 \313\"\314=\206 \315\n\211\203) \316\317!\210\320\306\321!\2068 \310\321\322\323\324!!\"\317\211\211\306\325!%\210 \203H \316\314!\210*eb\210\326\327!\204V \330\331!\210\332\f! \333\334 \"c\210\335c\210\333\336 \"c\210\337c\210\340c\210\333\336 \"c\210\341c\210db\210\333\342 \"c\210db)\207" [mc-pgp-always-sign sign enable-multibyte-characters #1=#:multibyte cont boundary message-options-get message-sign-encrypt message-options-set y-or-n-p "Sign the message? " not t never set-buffer-multibyte nil mc-encrypt-generic message-recipients mc-cleanup-recipient-headers read-string "Recipients: " message-sender looking-at "-----BEGIN PGP MESSAGE-----" error "Fail to encrypt the message" mml-compute-boundary format "Content-Type: multipart/encrypted; boundary=\"%s\";\n" " protocol=\"application/pgp-encrypted\"\n\n" "--%s\n" "Content-Type: application/pgp-encrypted\n\n" "Version: 1\n\n" "Content-Type: application/octet-stream\n\n" "--%s--\n"] 8]) (byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\300\305\302\"\210\300\306\307\"\207" [autoload pgg-decrypt-region "pgg" pgg-verify-region pgg-sign-region pgg-encrypt-region pgg-parse-armor "pgg-parse"] 3) (defalias 'mml2015-pgg-decrypt #[(handle ctl) "\300\301\215\207" [error (byte-code "\306\211\211\211 \307!A\310\306\311$\211\204; \"\312\313 # $\211 !\2053 \314\315!@G$#!@%+\210\316\317!\"\210\320\321! %r%q\210\322\216\323\f!\210\324\325\326\217\203\315 r&q\210eb\210\327\330\306\311#\203k \331\332\311\211#\210\202Z \333\311!\334!!\210\"\312\335 # $\211 !\205\220 \314\315!@G$#!@%+\210\"\336 @;\205\242 \337\315\336 @#P # $\211 !\205\273 \314\315!@G$#!@%+\210 @<\203\307 \202\311 C)\202\360 \"\312\340 # $\211 !\205\351 \314\315!@G$#!@%+\210\316\317!\".\207" [mml2015-result-buffer decrypt-status result handles child pgg-errors-buffer nil mm-find-part-by-type "application/octet-stream" t gnus-info "Corrupted" put-text-property 0 throw error generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) mm-insert-part err (byte-code "\306ed\"rq\210\307 )\n\310 \211 \205 \311\312 @G\f @%+\210\207" [mml2015-result-buffer decrypt-status mm-security-handle value parameter handle pgg-decrypt-region buffer-string gnus-details put-text-property 0] 8) ((error (byte-code "\305\306 !\211 \205 \307\310\f@G \n\f@%+\210\311\207" [mm-security-handle err value parameter handle gnus-details mml2015-format-error put-text-property 0 nil] 7)) (quit (byte-code "\304\305\211\205 \306\307 @G\n @%+\210\310\207" [mm-security-handle value parameter handle gnus-details "Quit." put-text-property 0 nil] 7))) search-forward " \n" replace-match "\n" mm-dissect-buffer mm-destroy-parts "OK" gnus-details get-text-property "Failed" handle mm-security-handle value parameter #1# pgg-output-buffer] 8)] 2]) (defalias 'mml2015-pgg-clear-decrypt #[nil "\306ed\"\n\307rq\210\310 ) \211 \205 \311\312 @G\f @%+\210\203\\ \313 \210\314 \210\315!\210eb\210\316\317\320\321#\203D \322\323\321\211#\210\2023 \n\324\325 \211 \205X \311\312 @G\f @%+\202q \n\324\326 \211 \205p \311\312 @G\f @%+)\207" [mml2015-result-buffer pgg-errors-buffer mm-security-handle value parameter handle pgg-decrypt-region gnus-details buffer-string put-text-property 0 erase-buffer mm-disable-multibyte insert-buffer-substring search-forward " \n" nil t replace-match "\n" gnus-info "OK" "Failed" pgg-output-buffer] 8]) (defalias 'mml2015-pgg-verify #[(handle ctl) "\306\211\211 \307 \310\311\312 @#\206 \313\314#\211\203( \315$A\313\306\314$\211\204L %\316\317 & '\211 $\205D \320\311$@G'&$@%+\210$\210\202\367 \321\322! (r(q\210\323\216\nc\210eb\210\306\210m\204y `Sf\324=\204p \325c\210\306y\210\306\210\202a \326\327!\211\330\331\332!! ) *\333\216r)q\210\334 !\210)r)q\210\335\306\211*\306\311%\210,\336\337\340\217\203\324 \341 !\210%\316r\fq\210\342 ) & '\211 $\205\317 \320\311$@G'&$@%+\210\202\366 \341 !\210%\316\343 & '\211 $\205\364 \320\311$@G'&$@%+\210+,$\207" [mml2015-result-buffer signature part signature-file pgg-errors-buffer ctl nil mm-find-raw-part-by-type get-text-property 0 protocol "application/pgp-signature" t mm-find-part-by-type gnus-info "Corrupted" put-text-property generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) 13 " " mm-make-temp-file "pgg" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n \302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) mm-insert-part write-region err (byte-code "\306ed\307$eb\210\310\311\312\307#\203 \313\314\307\211#\210\202 \315r\nq\210\316 )r q\210\316 )P \211 \205? \317\320@G \f@%+\210\207" [signature-file mm-security-handle pgg-output-buffer pgg-errors-buffer value parameter pgg-verify-region t search-forward " \n" nil replace-match "\n" gnus-details buffer-string put-text-property 0 handle] 8) ((error (byte-code "\305\306 !\211 \205 \307\310\f@G \n\f@%+\210\311\207" [mm-security-handle err value parameter handle gnus-details mml2015-format-error put-text-property 0 nil] 7)) (quit (byte-code "\304\305\211\205 \306\307 @G\n @%+\210\310\207" [mm-security-handle value parameter handle gnus-details "Quit." put-text-property 0 nil] 7))) delete-file mml2015-gpg-extract-signature-details "Failed" handle mm-security-handle value parameter #1# #2# #3=#:temp-file] 7]) (defalias 'mml2015-pgg-clear-verify #[nil "\306 \307\310\311\217\2034 \312r\fq\210\313 ) \211 \205/ \314\315@G@%+\210\202Q \312\316 \211 \205O \314\315@G@%+\210+\317 \207" [mml2015-result-buffer buffer-file-coding-system coding-system text pgg-errors-buffer mm-security-handle buffer-string err (byte-code "\306\307!rq\210\310\216\311 \210\312 \n\"c\210\313ed\314\315$+eb\210\316\317\314\315#\203. \320\321\315\211#\210\202 \322r\fq\210\323 )r q\210\323 )P \211 \205W \324\325@G@%+\210\207" [#1=#:temp-buffer text coding-system mm-security-handle pgg-output-buffer pgg-errors-buffer generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-disable-multibyte mm-encode-coding-string pgg-verify-region nil t search-forward " \n" replace-match "\n" gnus-details buffer-string put-text-property 0 value parameter handle] 8) ((error (byte-code "\305\306 !\211 \205 \307\310\f@G \n\f@%+\210\311\207" [mm-security-handle err value parameter handle gnus-details mml2015-format-error put-text-property 0 nil] 7)) (quit (byte-code "\304\305\211\205 \306\307 @G\n @%+\210\310\207" [mm-security-handle value parameter handle gnus-details "Quit." put-text-property 0 nil] 7))) gnus-info mml2015-gpg-extract-signature-details put-text-property 0 "Failed" mml2015-extract-cleartext-signature value parameter handle] 7]) (defalias 'mml2015-pgg-sign #[(cont) "\306 !\307\310!\206 \n\311\312 \313ed\"\204\" \314!\210\315\316!\210eb\210\317\320 \"c\210\321\322r q\210\323 )!\236\211\203A \324 A\236\317\325 A\203Q \317\326 A\"\227\202R \327\"c\210\330c\210\317\331 \"c\210db\210\317\331 \"c\210\332c\210\333 !\210db\210\317\334 \"c\210db-\207" [mml2015-result-buffer cont pgg-default-user-id entry pgg-text-mode boundary mml-compute-boundary message-options-get mml-sender t nil pgg-sign-region pop-to-buffer error "Sign error" format "Content-Type: multipart/signed; boundary=\"%s\";\n" 2 pgg-parse-armor buffer-string hash-algorithm " micalg=%s; " "pgp-%s" "pgp-sha1" "protocol=\"application/pgp-signature\"\n" "\n--%s\n" "Content-Type: application/pgp-signature\n\n" insert-buffer-substring "--%s--\n" pgg-errors-buffer pgg-output-buffer] 5]) (defalias 'mml2015-pgg-encrypt #[(cont &optional sign) "\306\307 ! \310ed\311\312\313!\206 \314\313\315\316!\"\317\" $\204' \320!\210\321\322!\210ed|\210eb\210\323\324\n\"c\210\325c\210\323\326\n\"c\210\327c\210\330c\210\323\326\n\"c\210\331c\210\332 !\210db\210\323\333\n\"c\210db+\207" [mml2015-result-buffer cont boundary pgg-text-mode pgg-errors-buffer sign t mml-compute-boundary pgg-encrypt-region split-string message-options-get message-recipients message-options-set read-string "Recipients: " "[ \f \n ,]+" pop-to-buffer error "Encrypt error" format "Content-Type: multipart/encrypted; boundary=\"%s\";\n" " protocol=\"application/pgp-encrypted\"\n\n" "--%s\n" "Content-Type: application/pgp-encrypted\n\n" "Version: 1\n\n" "Content-Type: application/octet-stream\n\n" insert-buffer-substring "--%s--\n" pgg-output-buffer] 8]) (byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\300\305\302\"\210\300\306\302\"\210\300\307\302\"\210\300\310\302\"\210\300\311\302\"\210\300\312\302\"\210\300\313\302\"\210\300\314\302\"\210\300\315\302\"\210\300\316\302\"\210\300\317\302\"\210\300\320\302\"\210\300\321\302\"\210\300\322\302\"\210\300\323\302\"\210\300\324\325\"\210\300\326\325\"\210\300\327\330\"\207" [autoload epg-make-context "epg" epg-context-set-armor epg-context-set-textmode epg-context-set-signers epg-context-result-for epg-new-signature-digest-algorithm epg-verify-result-to-string epg-list-keys epg-decrypt-string epg-verify-string epg-sign-string epg-encrypt-string epg-passphrase-callback-function epg-context-set-passphrase-callback epg-key-sub-key-list epg-sub-key-capability epg-sub-key-validity epg-sub-key-fingerprint epg-configuration "epg-config" epg-expand-group epa-select-keys "epa"] 3) (defvar mml2015-epg-secret-key-id-list nil) (defalias 'mml2015-epg-passphrase-callback #[(context key-id ignore) "\306=\203\f \307 \310#\207\311=\203 \312\202 \310\313\311=\203% \314\202; \315\f\"\211\2037 \316\317 A#\202; \316\320\"\n\"\211 \205U \321\n \"\210)\nB\322 !+\207" [key-id context password-cache-key-id entry epg-user-id-alist passphrase SYM epg-passphrase-callback-function nil PIN "PIN" password-read "Passphrase for PIN: " assoc format "Passphrase for %s %s: " "Passphrase for %s: " password-cache-add copy-sequence mml2015-passphrase-cache-expiry password-cache-expiry mml2015-epg-secret-key-id-list] 6]) (defalias 'mml2015-epg-find-usable-key #[(keys usage) "\300\301\215\207" [found (byte-code "\205> \303@!\304\305 @!>\2045 \2035 \n\305 @!>\203. \306 @!\307>\204. \310\311@\"\210 A\211\204 )A\211\204 \312\207" [keys pointer usage epg-key-sub-key-list disabled epg-sub-key-capability epg-sub-key-validity (revoked expired) throw found nil] 4)] 2]) (defalias 'mml2015-epg-find-usable-secret-key #[(context name usage) "\305 \306#\307\n\204. \203. \310\305\311\312 @!@!\"\f\"\203( @\307\202 A\202 \n*\207" [context name secret-key secret-keys usage epg-list-keys t nil mml2015-epg-find-usable-key epg-sub-key-fingerprint epg-key-sub-key-list] 6]) (defalias 'mml2015-epg-decrypt #[(handle ctl) "\300\301\215\207" [error (byte-code "\306\307\211\211\211\211\211 %\310&A\311\307\306$\211\204@ '\312\313 ( )\211 &\2058 \314\315&@G)(&@%+\210\316\317&\"\210\320 *\203M \321 \322\"\210\317\323\324\217\210\325\326! +r+q\210\327\216\fc\210eb\210\330\331\307\306#\203u \332\333\306\211#\210\202d \334\306!\335&!\210\336 \337\"\203\255 '\312\340\341\336 \337\"!P ( )\211 &\205\250 \314\315&@G)(&@%+\210\202\313 '\312\342 ( )\211 &\205\311 \314\315&@G)(&@%+\210\n@;\203\364 '\343\344\315\343\n@# ( )\211 &\205\362 \314\315&@G)(&@%+\210+\n@<\203\377 \n\202\nC.\207" [decrypt-status result handles child plain context t nil mm-find-part-by-type "application/octet-stream" gnus-info "Corrupted" put-text-property 0 throw error epg-make-context epg-context-set-passphrase-callback mml2015-epg-passphrase-callback (byte-code "\304\305 !\"\306\211\207" [context child plain mml2015-epg-secret-key-id-list epg-decrypt-string mm-get-part nil] 5) ((error (byte-code "\203 \306@!\210A\211\204 \307\310\211 \205$ \311\312\f@G \n\f@%+\210 @\313=\203F \314\315\211 \205A \311\312\f@G \n\f@%+\210\202^ \314\316 !\211 \205\\ \311\312\f@G \n\f@%+\210\317\305\f\"\207" [mml2015-epg-secret-key-id-list mm-security-handle value parameter handle error password-cache-remove gnus-info "Failed" put-text-property 0 quit gnus-details "Quit." mml2015-format-error throw] 7))) generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) search-forward " \n" replace-match "\n" mm-dissect-buffer mm-destroy-parts epg-context-result-for verify "OK\n" epg-verify-result-to-string "OK" gnus-details get-text-property inhibit-redisplay handle mm-security-handle value parameter mml2015-cache-passphrase #1#] 8)] 2]) (defalias 'mml2015-epg-clear-decrypt #[nil "\306\307 \310 \203 \311 \312\"\210\313\314\315\217\210\205w \316 \210\317 \210c\210eb\210\320\321\310\306#\2036 \322\323\306\211#\210\202% \f\324\325 \211 \205O \326\327 @G @%+\210\330 \331\"\205w \f\332\333\330 \331\"! \211 \205v \326\327 @G @%++\207" [plain context inhibit-redisplay mml2015-cache-passphrase mm-security-handle value t epg-make-context nil epg-context-set-passphrase-callback mml2015-epg-passphrase-callback error (byte-code "\303\304 \"\305\211\207" [context plain mml2015-epg-secret-key-id-list epg-decrypt-string buffer-string nil] 4) ((error (byte-code "\203 \306@!\210A\211\204 \307\310\211 \205$ \311\312\f@G \n\f@%+\210 @\313=\203F \314\315\211 \205A \311\312\f@G \n\f@%+\210\202^ \314\316 !\211 \205\\ \311\312\f@G \n\f@%+\210\306\207" [mml2015-epg-secret-key-id-list mm-security-handle value parameter handle error password-cache-remove gnus-info "Failed" put-text-property 0 quit gnus-details "Quit." mml2015-format-error] 7))) erase-buffer mm-disable-multibyte search-forward " \n" replace-match "\n" gnus-info "OK" put-text-property 0 epg-context-result-for verify gnus-details epg-verify-result-to-string parameter handle] 7]) (defalias 'mml2015-epg-verify #[(handle ctl) "\300\301\215\207" [error (byte-code "\306\307\211\211\211\211 \310 \311\312\313 @#\206 \314\306#\211\203. \315 A\314\307\306$\211\204R \316\317 !\211 \205J \320\312 @G! @%+\210\321\322 \"\210\323 \324\325#\326!\327 \322\330\331\217\210 \316\332\333\f\334\"! !\211 \205\205 \320\312 @G! @%+\210 .\207" [signature part signature-file plain context inhibit-redisplay t nil mm-find-raw-part-by-type get-text-property 0 protocol "application/pgp-signature" mm-find-part-by-type gnus-info "Corrupted" put-text-property throw error mm-replace-in-string "\n" " \n" mm-get-part epg-make-context (byte-code "\304 \n#\304\207" [context signature part plain epg-verify-string] 4) ((error (byte-code "\305\306\211\205 \307\310 @G\n @%+\210\f@\311=\2036 \312\313\211\2051 \307\310 @G\n @%+\210\202N \312\314\f!\211\205L \307\310 @G\n @%+\210\315\304 \"\207" [mm-security-handle value parameter handle error gnus-info "Failed" put-text-property 0 quit gnus-details "Quit." mml2015-format-error throw] 7))) epg-verify-result-to-string epg-context-result-for verify ctl handle mm-security-handle value parameter] 7)] 2]) (defalias 'mml2015-epg-clear-verify #[nil "\306\307 \310\311 \"\312 \313\314\315\217\210 \203E \316\317\320 \321\"! \211 \2056 \322\323@G@%+\210ed|\210\324 \"c\202G \325 ,\207" [coding-system-for-write plain signature context inhibit-redisplay mm-security-handle t epg-make-context mm-encode-coding-string buffer-string nil error (byte-code "\303 \"\303\207" [context signature plain epg-verify-string] 3) ((error (byte-code "\305\306\211\205 \307\310 @G\n @%+\210\f@\311=\2036 \312\313\211\2051 \307\310 @G\n @%+\210\202N \312\314\f!\211\205L \307\310 @G\n @%+\210\305\207" [mm-security-handle value parameter handle error gnus-info "Failed" put-text-property 0 quit gnus-details "Quit." mml2015-format-error] 7))) gnus-info epg-verify-result-to-string epg-context-result-for verify put-text-property 0 mm-decode-coding-string mml2015-extract-cleartext-signature value parameter handle coding-system-for-read] 7]) (defalias 'mml2015-epg-sign #[(cont) "\306\307 \310\n!\311\312! \206 (\205 \f\205 \313\f\314QC )\315 *\311\316!\206N \317\316+\320=\203= \321 \322)\306$\202M \f\204E \205M \323\315\324\325)\"\"\" ,\315\211 - .\326 \306\"\210\327 \306\"\210\330 ,\"\210/\203p \331 \332\"\210\333\334\335\217\210\336 \337\"\203\205 \340\336 \337\"@!.eb\210\341\342 \"c\210.\203\237 \341\343.0\236A\227\"c\210\344c\210\341\345 \"c\210db\210\341\345 \"c\210\346c\210-c\210db\210\341\347 \"c\210db. \207" [inhibit-redisplay context cont boundary sender mml2015-signers t epg-make-context mml-compute-boundary message-options-get message-sender "<" ">" nil mml2015-epg-signers message-options-set guided epa-select-keys "Select keys for signing.\nIf no one is selected, default secret key is used. " delq mapcar #[(signer) "\303 \304#\211\204 \305\306\307 \"!\204 \310\311 \"\210\n\207" [context signer signer-key mml2015-epg-find-usable-secret-key sign y-or-n-p format "No secret key for %s; skip it? " error "No secret key for %s"] 5] epg-context-set-armor epg-context-set-textmode epg-context-set-signers epg-context-set-passphrase-callback mml2015-epg-passphrase-callback error (byte-code "\303\304 \305#\306\211\207" [context signature mml2015-epg-secret-key-id-list epg-sign-string buffer-string t nil] 5) ((error (byte-code "\203 \302@!\210A\211\204 \303 @ A\"\207" [mml2015-epg-secret-key-id-list error password-cache-remove signal] 4))) epg-context-result-for sign epg-new-signature-digest-algorithm format "Content-Type: multipart/signed; boundary=\"%s\";\n" " micalg=pgp-%s; " "protocol=\"application/pgp-signature\"\n" "\n--%s\n" "Content-Type: application/pgp-signature\n\n" "--%s--\n" mml2015-sign-with-sender signer-names signer-key mm-sign-option signers signature micalg mml2015-cache-passphrase epg-digest-algorithm-alist] 8]) (defalias 'mml2015-epg-encrypt #[(cont &optional sign) "\306\307 \310\n!\311 \312\313! \314 4\312\315! 56\206- 7\205- 5\205- \3165\317QC 8\314\211 9 :\314 ; \204\212 \320\321\322\323\324\312\325!\206M \326\325\327\330!\"\331\"\"\"<\203e 8\204` \332\333!\210 8\244=\334=\203u \335 \336 #\202\205 \337\314\322\340 \"\"\211\204\205 \332\341!\210\326\313 \"\210>\203\303 \312\342!\206\273 \326\342?\334=\203\250 \335 \3438\306$\202\272 5\204\262 6\205\272 \337\314\322\3448\"\"\"9\345 9\"\210\346 \306\"\210\347 \306\"\210@\203\327 \350 \351\"\210\332\352\353\217\210ed|\210eb\210\354\355 \"c\210\356c\210\354\357 \"c\210\360c\210\361c\210\354\357 \"c\210\362c\2104c\210db\210\354\363 \"c\210db. \207" [inhibit-redisplay context cont boundary config recipients t epg-make-context mml-compute-boundary epg-configuration message-options-get mml2015-epg-recipients nil message-sender "<" ">" apply nconc mapcar #[(recipient) "\302 \"\206\f \303 \304QC\207" [config recipient epg-expand-group "<" ">"] 3] split-string message-recipients message-options-set read-string "Recipients: " "[ \f \n ,]+" error "Neither message sender nor mml2015-signers are set" guided epa-select-keys "Select recipients for encryption.\nIf no one is selected, symmetric encryption will be performed. " delq #[(recipient) "\303\304 \"\305\"\211\204 \306\307\310 \"!\204 \311\312 \"\210\n\207" [context recipient recipient-key mml2015-epg-find-usable-key epg-list-keys encrypt y-or-n-p format "No public key for %s; skip it? " error "No public key for %s"] 5] "No recipient specified" mml2015-epg-signers "Select keys for signing.\nIf no one is selected, default secret key is used. " #[(signer) "\303 \304#\211\204 \305\306\307 \"!\204 \310\311 \"\210\n\207" [context signer signer-key mml2015-epg-find-usable-secret-key sign y-or-n-p format "No secret key for %s; skip it? " error "No secret key for %s"] 5] epg-context-set-signers epg-context-set-armor epg-context-set-textmode epg-context-set-passphrase-callback mml2015-epg-passphrase-callback (byte-code "\306\307 \n %\310\211\207" [context recipients sign mml2015-always-trust cipher mml2015-epg-secret-key-id-list epg-encrypt-string buffer-string nil] 7) ((error (byte-code "\203 \302@!\210A\211\204 \303 @ A\"\207" [mml2015-epg-secret-key-id-list error password-cache-remove signal] 4))) format "Content-Type: multipart/encrypted; boundary=\"%s\";\n" " protocol=\"application/pgp-encrypted\"\n\n" "--%s\n" "Content-Type: application/pgp-encrypted\n\n" "Version: 1\n\n" "Content-Type: application/octet-stream\n\n" "--%s--\n" cipher sender mml2015-signers mml2015-sign-with-sender signer-names signers recipient-key signer-key mml2015-encrypt-to-self mm-encrypt-option sign mm-sign-option mml2015-cache-passphrase] 10]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [autoload gnus-buffer-live-p "gnus-util" gnus-get-buffer-create "gnus"] 3) (defalias 'mml2015-clean-buffer #[nil "\301!\203 rq\210\302 \210)\303\207\304\305!\306\207" [mml2015-result-buffer gnus-buffer-live-p erase-buffer t gnus-get-buffer-create " *MML2015 Result*" nil] 2]) (defalias 'mml2015-clear-decrypt-function #[nil "\302 \2368\207" [mml2015-use mml2015-function-alist 6] 3]) (put 'mml2015-clear-decrypt-function 'byte-optimizer 'byte-compile-inline-expand) (defalias 'mml2015-clear-verify-function #[nil "\302 \2368\207" [mml2015-use mml2015-function-alist 5] 3]) (put 'mml2015-clear-verify-function 'byte-optimizer 'byte-compile-inline-expand) (defalias 'mml2015-decrypt #[(handle ctl) "\305 \210\306 \2368\211\203 \n \f\"\202 )\207" [mml2015-use mml2015-function-alist func handle ctl mml2015-clean-buffer 4] 4]) (defalias 'mml2015-decrypt-test #[(handle ctl) "\207" [mml2015-use] 1]) (defalias 'mml2015-verify #[(handle ctl) "\305 \210\306 \2368\211\203 \n \f\"\202 )\207" [mml2015-use mml2015-function-alist func handle ctl mml2015-clean-buffer 3] 4]) (defalias 'mml2015-verify-test #[(handle ctl) "\207" [mml2015-use] 1]) (defalias 'mml2015-encrypt #[(cont &optional sign) "\305 \210\306 \2368\211\203 \n \f\"\202 \307\310!)\207" [mml2015-use mml2015-function-alist func cont sign mml2015-clean-buffer 2 error "Cannot find encrypt function"] 4]) (defalias 'mml2015-sign #[(cont) "\304 \210 \236A@\211\203 \n !\202 \305\306!)\207" [mml2015-use mml2015-function-alist func cont mml2015-clean-buffer error "Cannot find sign function"] 3]) (defalias 'mml2015-self-encrypt #[nil "\300\301!\207" [mml2015-encrypt nil] 2]) (provide 'mml2015)