Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
gnus /
[ HOME SHELL ]
Name
Size
Permission
Action
.dir-locals.el
105
B
-rw-r--r--
canlock.elc
5.71
KB
-rw-r--r--
deuglify.elc
7.85
KB
-rw-r--r--
gmm-utils.elc
5.79
KB
-rw-r--r--
gnus-agent.elc
119.17
KB
-rw-r--r--
gnus-art.elc
262.11
KB
-rw-r--r--
gnus-async.elc
11.71
KB
-rw-r--r--
gnus-bcklg.elc
2.85
KB
-rw-r--r--
gnus-bookmark.elc
25.33
KB
-rw-r--r--
gnus-cache.elc
24.08
KB
-rw-r--r--
gnus-cite.elc
26.28
KB
-rw-r--r--
gnus-cloud.elc
18.45
KB
-rw-r--r--
gnus-cus.elc
39.5
KB
-rw-r--r--
gnus-delay.elc
4.61
KB
-rw-r--r--
gnus-demon.elc
7.52
KB
-rw-r--r--
gnus-diary.elc
8.41
KB
-rw-r--r--
gnus-dired.elc
8.03
KB
-rw-r--r--
gnus-draft.elc
12.03
KB
-rw-r--r--
gnus-dup.elc
4.59
KB
-rw-r--r--
gnus-eform.elc
4.76
KB
-rw-r--r--
gnus-fun.elc
9.93
KB
-rw-r--r--
gnus-gravatar.elc
4.15
KB
-rw-r--r--
gnus-group.elc
154.92
KB
-rw-r--r--
gnus-html.elc
13.41
KB
-rw-r--r--
gnus-icalendar.elc
40.93
KB
-rw-r--r--
gnus-int.elc
58.83
KB
-rw-r--r--
gnus-kill.elc
19.24
KB
-rw-r--r--
gnus-logic.elc
5.15
KB
-rw-r--r--
gnus-mh.elc
2.96
KB
-rw-r--r--
gnus-ml.elc
6.08
KB
-rw-r--r--
gnus-mlspl.elc
6.48
KB
-rw-r--r--
gnus-msg.elc
84.49
KB
-rw-r--r--
gnus-notifications.elc
5.38
KB
-rw-r--r--
gnus-picon.elc
8.06
KB
-rw-r--r--
gnus-range.elc
11.97
KB
-rw-r--r--
gnus-registry.elc
34.53
KB
-rw-r--r--
gnus-rfc1843.elc
1.59
KB
-rw-r--r--
gnus-salt.elc
27.54
KB
-rw-r--r--
gnus-score.elc
74.27
KB
-rw-r--r--
gnus-sieve.elc
8.14
KB
-rw-r--r--
gnus-spec.elc
12.88
KB
-rw-r--r--
gnus-srvr.elc
50.09
KB
-rw-r--r--
gnus-start.elc
138.21
KB
-rw-r--r--
gnus-sum.elc
431.26
KB
-rw-r--r--
gnus-topic.elc
46.53
KB
-rw-r--r--
gnus-undo.elc
4.69
KB
-rw-r--r--
gnus-util.elc
49.29
KB
-rw-r--r--
gnus-uu.elc
55.9
KB
-rw-r--r--
gnus-vm.elc
2.42
KB
-rw-r--r--
gnus-win.elc
10.95
KB
-rw-r--r--
gnus.elc
158.84
KB
-rw-r--r--
gssapi.elc
2.27
KB
-rw-r--r--
legacy-gnus-agent.elc
6.35
KB
-rw-r--r--
mail-source.elc
28.21
KB
-rw-r--r--
message.elc
237.92
KB
-rw-r--r--
mm-archive.elc
2.95
KB
-rw-r--r--
mm-bodies.elc
5.84
KB
-rw-r--r--
mm-decode.elc
55.66
KB
-rw-r--r--
mm-encode.elc
6.13
KB
-rw-r--r--
mm-extern.elc
4.25
KB
-rw-r--r--
mm-partial.elc
3.05
KB
-rw-r--r--
mm-url.elc
9.75
KB
-rw-r--r--
mm-util.elc
24.33
KB
-rw-r--r--
mm-uu.elc
21.99
KB
-rw-r--r--
mm-view.elc
16.82
KB
-rw-r--r--
mml-sec.elc
35.2
KB
-rw-r--r--
mml-smime.elc
10.44
KB
-rw-r--r--
mml.elc
44.72
KB
-rw-r--r--
mml1991.elc
7.59
KB
-rw-r--r--
mml2015.elc
25.61
KB
-rw-r--r--
nnagent.elc
10.44
KB
-rw-r--r--
nnbabyl.elc
16.84
KB
-rw-r--r--
nndiary.elc
38.56
KB
-rw-r--r--
nndir.elc
2.67
KB
-rw-r--r--
nndoc.elc
30.1
KB
-rw-r--r--
nndraft.elc
10.55
KB
-rw-r--r--
nneething.elc
11.45
KB
-rw-r--r--
nnfolder.elc
32.39
KB
-rw-r--r--
nngateway.elc
2.88
KB
-rw-r--r--
nnheader.elc
34.72
KB
-rw-r--r--
nnimap.elc
73.06
KB
-rw-r--r--
nnir.elc
62.86
KB
-rw-r--r--
nnmail.elc
52.09
KB
-rw-r--r--
nnmaildir.elc
90.83
KB
-rw-r--r--
nnmairix.elc
72.33
KB
-rw-r--r--
nnmbox.elc
18.57
KB
-rw-r--r--
nnmh.elc
15.14
KB
-rw-r--r--
nnml.elc
33.63
KB
-rw-r--r--
nnnil.elc
1.63
KB
-rw-r--r--
nnoo.elc
8.63
KB
-rw-r--r--
nnregistry.elc
1.72
KB
-rw-r--r--
nnrss.elc
29.02
KB
-rw-r--r--
nnspool.elc
15.72
KB
-rw-r--r--
nntp.elc
111.69
KB
-rw-r--r--
nnvirtual.elc
18.31
KB
-rw-r--r--
nnweb.elc
16.67
KB
-rw-r--r--
score-mode.elc
4.93
KB
-rw-r--r--
smiley.elc
5.31
KB
-rw-r--r--
smime.elc
18.76
KB
-rw-r--r--
spam-report.elc
11.41
KB
-rw-r--r--
spam-stat.elc
19.39
KB
-rw-r--r--
spam-wash.elc
1.23
KB
-rw-r--r--
spam.elc
80.84
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : mml2015.elc
;ELC ;;; Compiled ;;; in Emacs version 27.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!\210\300\303!\210\300\304!\210\300\305!\207" [require mm-decode mm-util mml mml-sec epg-config] 2) #@85 The package used for PGP/MIME. Valid packages include `epg', `pgg' and `mailcrypt'. (defvar mml2015-use 'epg (#$ . 541)) #@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)) (#$ . 668)) (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\316\312\313\317#\210\300\320\321\322\306\307\310\323&\210\316\320\321\317#\210\300\324\325\326\306\307\310\327&\210\300\330\325\331\306\307\310\315\304\332& \210\300\333\325\334\306\307\310\315&\210\300\335\336\337\306\307\310\315&\210\300\340\341\342\304\343\306\307\310\323& \210\300\344\336\345\304\346\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 make-obsolete-variable "25.1" 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." mml2015-maximum-key-image-dimension 64 "The maximum dimension (width or height) of any key images." "24.4" mml2015-display-key-image "If t, try to display key images." "24.5"] 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) "A@;\203 A@\207\301\302A\"\207" [err format "%S"] 3]) (defalias 'mml2015-mailcrypt-decrypt #[(handle ctl) "\3062\222 \307\211\211\310 A\311\307\312$\211\204 \313\314\315\"\210\316\306 \"\210\317\320! r\fq\210\321\216\322\n!\210\3231M \3241= 00\202V 0 \313\325\326 !\"\210)\307\202V \313\325\327\"\210)\307\211@\204f \313\314\330\"\210\316\306 \"\210\331\312!+\332 !\210\333\314\334r q\210\335 ) !\336!P)P\"\210 @<\203\216 \202\220 C+0\207" [result handles child handle #1=#:temp-buffer mml2015-decrypt-function error nil mm-find-part-by-type "application/octet-stream" t mm-sec-error gnus-info "Corrupted" throw generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] mm-insert-part (quit) (error) gnus-details mml2015-format-error "Quit." "Failed" mm-dissect-buffer mm-destroy-parts mm-sec-status "OK" mml2015-gpg-extract-signature-details ", Signer: " err mml2015-result-buffer sig] 6]) (defalias 'mml2015-gpg-pretty-print-fpr #[(fingerprint) "\305\306 !\307\310 \311\310\"\262 \203: \n\312Z\313 \n\"\312 \233 T\314 \315\"\2032 \f\2025 \316\fPP\202 ,\207" [result fingerprint fpr-length n-slice slice "" 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 "\303\3041 \3051 00\202' 0\306\307\310\n!\"\210)\303\202' \306\307\311\"\210)\303\211@\2034 \312\313\314\"\2028 \306\313\315\")\207" [result mml2015-decrypt-function err nil (quit) (error) mm-sec-error gnus-details mml2015-format-error "Quit." mm-sec-status gnus-info "OK" "Failed"] 5]) (defalias 'mml2015-fix-micalg #[(alg) "\205 \301\302\"\203 \303\304\225\"\202 \226\207" [alg string-match "^p[gh]p-" substring 0] 3]) (defalias 'mml2015-mailcrypt-verify #[(handle ctl) "\3062\307\310 \311\312\313 @#\206 \314\315#\211\204# \316\317\320\"\210\321\306\n\"\210\322\323!r q\210\324\216\325c\210\326\327\330\311\312\331 @#!\206> \332\"c\210\214``}\210\333\261\210eb\210m\204a \334\335!\203[ \336c\210\307y\210\202N )\337\nA\314\307\315$\211\204x \316\317\320\"\210\321\306\n\"\210\214``}\210\340!\210eb\210\341\342\307\315#\203\222 \343\344\315\211#\210\341\345\307\315#\203\240 \343\346\315\211#\210)\347\350! \3511\374 \3521\355 \353\354!\203\300 \316\355r\354q\210\356 )\"\210\353\357!\203\312 \360\357!\210\353\354!\203\324 \360\354!\210\353\361!\203\336 \360\361!\210\353\f!\203\350 \360\f!\21000\2020 7\316\355\3627!\"\210)\202 7\316\355\363\"\210)\307\204\316\317\364\"\210\321\306\n\"\210,\365\317\366\"\210\n)0\207" [part ctl handle #1=#:temp-buffer mc-gpg-debug-buffer mml2015-verify-function error nil mm-find-raw-part-by-type get-text-property 0 protocol "application/pgp-signature" t mm-sec-error gnus-info "Corrupted" throw generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# 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*" (quit) (error) get-buffer " *mailcrypt stderr temp" gnus-details buffer-string " *mailcrypt stdout temp" kill-buffer " *mailcrypt status temp" mml2015-format-error "Quit." "Failed" mm-sec-status "OK" err] 7]) (defalias 'mml2015-mailcrypt-clear-verify #[nil "\303\304!\3051Y \3061L \307\310!\203 \311\312r\310q\210\313 )\"\210\307\314!\203) \315\314!\210\307\310!\2033 \315\310!\210\307\316!\203= \315\316!\210\307!\203G \315!\21000\202c 0\311\312\317\n!\"\210)\202n \311\312\320\"\210)\202n \203n \321\322\323\"\210\202s \311\322\324\"\210)\325 \207" [mc-gpg-debug-buffer mml2015-verify-function err get-buffer-create " *gnus gpg debug*" (quit) (error) get-buffer " *mailcrypt stderr temp" mm-sec-error gnus-details buffer-string " *mailcrypt stdout temp" kill-buffer " *mailcrypt status temp" mml2015-format-error "Quit." mm-sec-status gnus-info "OK" "Failed" mml2015-extract-cleartext-signature] 4]) (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 \305\306!\206 \307\306\310\311!\206 \312\"\313=\206 \314\315\316!r\nq\210\317\216\320\321!\210\322\305\323!\206< \307\323\324\325\326!!\"\321\211\211\305\327!%\210\330 +c\210)eb\210\331\332!\204W \333\334!\210\335 ! \336\337\f\"c\210\340c\210\336\341\f\"c\210\342c\210\343c\210\336\341\f\"c\210\344c\210db\210\336\345\f\"c\210db)\207" [mc-pgp-always-sign sign #1=#:temp-buffer cont boundary message-options-get message-sign-encrypt message-options-set y-or-n-p "Sign the message? " not t never generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] set-buffer-multibyte nil mc-encrypt-generic message-recipients mc-cleanup-recipient-headers read-string "Recipients: " message-sender buffer-string 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"] 7]) (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) "\3062\304 \307\211\211\211 \310%A\311\307\312$\211\204& \313\314\315\"\210\316\306%\"\210\317\320! &r&q\210\321\216\322\f!\210\3231c \3241T \325ed\"rq\210\326 )\327\330 \"\21000\202n 0 '\313\330\331'!\"\210)\202\267 '\313\330\332\"\210)\202\267 \203\267 r(q\210eb\210\333\334\307\312#\203\212 \335\336\312\211#\210\202y \337\312!\340%!\210\327\314\341\330 @;\205\244 \342\343\330 @#P$\210 @<\203\261 \202\263 C)\202\301 \313\314\344\"\210\316\306%\".0\207" [mml2015-result-buffer decrypt-status result handles child pgg-errors-buffer error nil mm-find-part-by-type "application/octet-stream" t mm-sec-error gnus-info "Corrupted" throw generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] mm-insert-part (quit) (error) pgg-decrypt-region buffer-string mm-sec-status gnus-details mml2015-format-error "Quit." search-forward " \n" replace-match "\n" mm-dissect-buffer mm-destroy-parts "OK" get-text-property 0 "Failed" handle #1# err pgg-output-buffer] 9]) (defalias 'mml2015-pgg-clear-decrypt #[nil "\303ed\"\304\305rq\210\306 )\"\210\2039 \307 \210\310 \210\311\n!\210eb\210\312\313\314\315#\2032 \316\317\315\211#\210\202! \304\320\321\"\202= \322\320\323\")\207" [mml2015-result-buffer pgg-errors-buffer pgg-output-buffer pgg-decrypt-region mm-sec-status gnus-details buffer-string erase-buffer mm-disable-multibyte insert-buffer-substring search-forward " \n" nil t replace-match "\n" gnus-info "OK" mm-sec-error "Failed"] 4]) (defalias 'mml2015-pgg-verify #[(handle ctl) "\306\211\211 \307 \310\311\312 @#\206 \313\314#\211\203( \315+A\313\306\314$\211\2043 \316\317\320\"\210+\210\202\373 \321\322! ,r,q\210\323\216\nc\210eb\210\306\210m\204` `Sf\324=\204W \325c\210\306y\210\306\210\202H \326\327!\211\321\330! - .\331\216r-q\210\332 !\210)r-q\210\333\306\211.\306\311%\210,\3341\321 \3351\302 \336ed \314$eb\210\337\340\306\314#\203\251 \341\342\314\211#\210\202\230 \343\344r/q\210\345 )r\fq\210\345 )P\"\21000\202\334 0 0\316\344\3460!\"\210)\202\361 0\316\344\347\"\210)\202\361 \203\361 \350 !\210\316\317r\fq\210\351 )\"\210\202\372 \350 !\210\316\317\352\"\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 mm-sec-error gnus-info "Corrupted" generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] 13 " " make-temp-file "pgg" " *temp file*" #[nil "\301!\205 \302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] mm-insert-part write-region (quit) (error) pgg-verify-region search-forward " \n" replace-match "\n" mm-sec-status gnus-details buffer-string mml2015-format-error "Quit." delete-file mml2015-gpg-extract-signature-details "Failed" handle #1# #2# #3=#:temp-file pgg-output-buffer err] 6]) (defalias 'mml2015-pgg-clear-verify #[nil "\306 \3071e \3101V \311\312! r q\210\313\216\314 \210\315 \n\"c\210\316ed\317\320$+eb\210\321\322\317\320#\203= \323\324\320\211#\210\202, \325\326r q\210\306 )r\fq\210\306 )P\"\21000\202p 0 \327\326\330 !\"\210)\202\201 \327\326\331\"\210)\202\201 \203\201 \325\332r\fq\210\333 )\"\210\202\206 \327\332\334\"\210+\335 \207" [mml2015-result-buffer buffer-file-coding-system coding-system text pgg-errors-buffer #1=#:temp-buffer buffer-string (quit) (error) generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte encode-coding-string pgg-verify-region nil t search-forward " \n" replace-match "\n" mm-sec-status gnus-details mm-sec-error mml2015-format-error "Quit." gnus-info mml2015-gpg-extract-signature-details "Failed" mml2015-extract-cleartext-signature pgg-output-buffer err] 5]) (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\302\"\210\300\325\302\"\210\300\326\302\"\210\300\327\302\"\210\300\330\331\"\210\300\332\331\"\210\300\333\334\"\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-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-signature-key-id epg-signature-to-string epg-key-user-id-list epg-user-id-string epg-user-id-validity epg-configuration "epg-config" epg-expand-group epa-select-keys "epa"] 3) #@36 Return the image of a key, if any. (defalias 'mml2015-epg-key-image #[(key-id) "\306\307!rq\210\310\216\311\312!\210\313\211\314\315\316\317 !\f#!\211 G\320V\2059 \321 \322\"c\210\32317 \324\325 \312\326#0\2029 \210\312.\207" [#1=#:temp-buffer coding-system-for-write coding-system-for-read epg-gpg-program key-id data generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] set-buffer-multibyte nil binary shell-command-to-string format "%s --list-options no-show-photos --attribute-fd 3 --list-keys %s 3>&1 >/dev/null 2>&1" shell-quote-argument 0 substring 16 (error) gnus-create-image buffer-string t] 6 (#$ . 17887)]) (autoload 'gnus-rescale-image "gnus-util") #@50 Return a string with the image of a key, if any. (defalias 'mml2015-epg-key-image-to-string #[(key-id) "\304!\211\204\f \305\202' \3061% \307\310\311\312\313\314 \211B\"\n%\210\n)0\202' \210\305)\207" [key-id key-image result mml2015-maximum-key-image-dimension mml2015-epg-key-image "" (error) " " put-text-property 1 2 display gnus-rescale-image] 9 (#$ . 18601)]) (defalias 'mml2015-epg-signature-to-string #[(signature) "\303! \205 \304\305!\n>\204 \306\307\310D\"\210\311H!P\207" [signature mml2015-display-key-image cl-struct-epg-signature-tags epg-signature-to-string mml2015-epg-key-image-to-string type-of signal wrong-type-argument epg-signature 2] 6]) (defalias 'mml2015-epg-verify-result-to-string #[(verify-result) "\301\302\303#\207" [verify-result mapconcat mml2015-epg-signature-to-string "\n"] 4]) (defalias 'mml2015-epg-decrypt #[(handle ctl) "\3062\342 \307\310\211\211\211\211\211 -\311.A\312\310\307$\211\204+ \313\314\315\"\210\316\306.\"\210\317 /\2048 0\203? \320 \321\322B\"\210\3231R \324 \325 !\"\310\21110\202z \326 \210\313\314\327\"\210@\330=\203l \331\332\333\"\210\202t \331\332\334!\"\210\316\306.\")\210\335\336! 2r2q\210\337\216\fc\210eb\210\340\341\310\307#\203\236 \342\343\307\211#\210\202\215 \344\307!\345.!\210\346 \347\"\203\275 \331\314\350\351\346 \347\"!P\"\210\202\302 \331\314\352\"\210\n@;\203\322 \331\332\353\354\332\n@#\"\210+\n@<\203\335 \n\202\337 \nC.0\207" [decrypt-status result handles child plain context error t nil mm-find-part-by-type "application/octet-stream" mm-sec-error gnus-info "Corrupted" throw epg-make-context epg-context-set-passphrase-callback mml-secure-passphrase-callback OpenPGP (error) epg-decrypt-string mm-get-part mml-secure-clear-secret-key-id-list "Failed" quit mm-sec-status gnus-details "Quit." mml2015-format-error generate-new-buffer " *temp*" #[nil "\301!\205 \302!\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" mml2015-epg-verify-result-to-string "OK" get-text-property 0 inhibit-redisplay handle mml2015-cache-passphrase mml-secure-cache-passphrase mml-secure-secret-key-id-list #1#] 7]) (defalias 'mml2015-epg-clear-decrypt #[nil "\306\307 \310 \204 \f\203 \311 \312\313B\"\210\3141' \315 \316 \"\310\2110\202H \"\317 \210\320\321\322\"\210\"@\323=\203@ \324\325\326\"\202G \324\325\327\"!\")\210\205 \330 \210\331 \210c\210eb\210\332\333\310\306#\203j \334\335\306\211#\210\202Y \324\321\336\"\210\337 \340\"\205 \324\325\341\337 \340\"!\"+\207" [plain context inhibit-redisplay mml2015-cache-passphrase mml-secure-cache-passphrase mml-secure-secret-key-id-list t epg-make-context nil epg-context-set-passphrase-callback mml-secure-passphrase-callback OpenPGP (error) epg-decrypt-string buffer-string mml-secure-clear-secret-key-id-list mm-sec-error gnus-info "Failed" quit mm-sec-status gnus-details "Quit." mml2015-format-error erase-buffer mm-disable-multibyte search-forward " \n" replace-match "\n" "OK" epg-context-result-for verify mml2015-epg-verify-result-to-string error] 6]) (defalias 'mml2015-epg-verify #[(handle ctl) "\3062\216 \307\310\211\211\211\211 \311#\312\313\314#@#\206 \315\307#\211\2032 \316$A\315\310\307$\211\204= \317\320\321\"\210\322\306$\"\210\323\324\325 #\326!\327 \3301Y \331\f #\2110\202~ \317\320\332\"\210@\333=\203p \334\335\336\"\210\202x \334\335\337!\"\210\322\306$\")\210\334\320\340\341\f\342\"!\"\210$.0\207" [signature part signature-file plain context inhibit-redisplay error t nil mm-find-raw-part-by-type get-text-property 0 protocol "application/pgp-signature" mm-find-part-by-type mm-sec-error gnus-info "Corrupted" throw replace-regexp-in-string "\n" " \n" mm-get-part epg-make-context (error) epg-verify-string "Failed" quit mm-sec-status gnus-details "Quit." mml2015-format-error mml2015-epg-verify-result-to-string epg-context-result-for verify ctl handle] 6]) (defalias 'mml2015-epg-clear-verify #[nil "\306\307 \310\311 \"\312 \3131 \314 \n\"\2110\2026 \315\316\317\"\210 @\320=\203/ \321\322\323\"\2025 \321\322\324 !\")\210 \203R \321\316\325\326 \327\"!\"\210ed|\210\330 \"c\202T \331 ,\207" [coding-system-for-write plain signature context inhibit-redisplay error t epg-make-context encode-coding-string buffer-string nil (error) epg-verify-string mm-sec-error gnus-info "Failed" quit mm-sec-status gnus-details "Quit." mml2015-format-error mml2015-epg-verify-result-to-string epg-context-result-for verify decode-coding-string mml2015-extract-cleartext-signature coding-system-for-read] 6]) (defalias 'mml2015-epg-sign #[(cont) "\306\307!db\210n\204 \310c\210\311\312\306\"\211@ A \f;\204$ \313\314!\210eb\210\315\316 \"c\210 \203< \315\317 \236A\227\"c\210\320c\210\315\321 \"c\210db\210\315\321 \"c\210\322c\210\fc\210db\210\315\323 \"c\210db-\207" [cont boundary inhibit-redisplay pair signature micalg t mml-compute-boundary "\n" mml-secure-epg-sign OpenPGP error "Signature failed" format "Content-Type: multipart/signed; boundary=\"%s\";\n" " micalg=pgp-%s; " "protocol=\"application/pgp-signature\"\n" "\n--%s\n" "Content-Type: application/pgp-signature; name=\"signature.asc\"\n\n" "--%s--\n" epg-digest-algorithm-alist] 5]) (defalias 'mml2015-epg-encrypt #[(cont &optional sign) "\305\306 !\307\310 # ed|\210eb\210\311\312\n\"c\210\313c\210\311\314\n\"c\210\315c\210\316c\210\311\314\n\"c\210\317c\210\fc\210db\210\311\320\n\"c\210db+\207" [inhibit-redisplay cont boundary sign cipher t mml-compute-boundary mml-secure-epg-encrypt OpenPGP 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"] 4]) (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 "\211\205 \302\303 !\211!\205 )\203 rq\210\304 \210)\305\207\306\307!\310\207" [mml2015-result-buffer buffer buffer-live-p get-buffer erase-buffer t gnus-get-buffer-create " *MML2015 Result*" nil] 4]) (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)
Close
