%PDF- %PDF- Mini Shell
Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/gnus/
Current File : //usr/local/share/emacs/27.2/lisp/gnus/mml2015.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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@;\203A@\207\301\302A\"\207" [err format "%S"] 3])
(defalias 'mml2015-mailcrypt-decrypt #[(handle ctl) "\3062\222\307\211\211\310A\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\202V0\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	\233T\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!rq\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\20207\316\355\3627!\"\210)\2027\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\202c0\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\225db\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\202n0'\313\330\331'!\"\210)\202\267'\313\330\332\"\210)\202\267\203\267r(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\263C)\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\33400\316\344\3460!\"\210)\202\3610\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\326rq\210\306 )r\fq\210\306 )P\"\21000\202p0\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\322rq\210\323 )!\236\211\203A\324A\236\317\325A\203Q\317\326A\"\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#!\211G\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 /\20480\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	)\203rq\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)
Zerion Mini Shell 1.0