HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/gnus/mml2015.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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@;\203A@\207\301\302A\"\207" [err format "%S"] 3])
(defalias 'mml2015-mailcrypt-decrypt #[(handle ctl) "\3062\364\307\211\211\310A\311\307\312$\211\2043\f\313\314\211\205,\315\316@G
@%+\210\317\306\"\210\320\321! r q\210\322\216\323\n!\210\3241v\3251S! 00\202\2220\"\f\326\327\"!\211\205o\315\316@G
@%+\210)\307\202\222\"\f\326\330\211\205\216\315\316@G
@%+\210)\307\211@\204\265\f\313\331\211\205\256\315\316@G
@%+\210\317\306\"\210\332\312!+\333!\210\f\313\334r#q\210\335 )$\336$P)P\211\205\344\315\316@G
@%+\210	@<\203\360	\202\362	C+0\207" [result handles child handle mm-security-handle value error nil mm-find-part-by-type "application/octet-stream" t gnus-info "Corrupted" put-text-property 0 throw generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] mm-insert-part (quit) (error) gnus-details mml2015-format-error "Quit." "Failed" mm-dissect-buffer mm-destroy-parts "OK" mml2015-gpg-extract-signature-details ", Signer: " parameter #1# mml2015-decrypt-function err mml2015-result-buffer sig] 7])
(defalias 'mml2015-gpg-pretty-print-fpr #[(fingerprint) "\305\306	!\307\310	\311\310\"\262	\2039\n\312Z\313	\n\"\312	\233T\314\267\2021\f\2024\315\fPP\202,\207" [result fingerprint fpr-length n-slice slice "" string-width 0 nil append 4 butlast #s(hash-table size 1 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (1 45)) " "] 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 "\306\30713\3101	 00\202O0\311\312\n!\211\205,\313\314@G
\f@%+\210)\306\202O\311\315\211\205K\313\314@G
\f@%+\210)\306\211@\203p\316\317\211\205l\313\314@G
\f@%+\202\210\316\320\211\205\207\313\314@G
\f@%+)\207" [result mml2015-decrypt-function err mm-security-handle value parameter nil (quit) (error) gnus-details mml2015-format-error put-text-property 0 "Quit." gnus-info "OK" "Failed" handle] 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) "\3062\230\307\310	\311\312\313	@#\206\314\315#\211\2044\n\316\317\211\205-\320\312
@G\f
@%+\210\321\306
\"\210\322\323!6r6q\210\324\216\325c\210\326\327\330\311\312\331	@#!\206Q\332\"c\210\214``}\210\333\261\210eb\210m\204t\334\335!\203n\336c\210\307y\210\202a)\337
A\314\307\315$\211\204\234\n\316\317\211\205\225\320\312
@G\f
@%+\210\321\306
\"\210\214``}\210\340!\210eb\210\341\342\307\315#\203\266\343\344\315\211#\210\341\345\307\315#\203\304\343\346\315\211#\210)\347\350!7\3511F\3521&8 \353\354!\203\367\n\355r\354q\210\356 )\211\205\365\320\312
@G\f
@%+\210\353\357!\203\360\357!\210\353\354!\203\360\354!\210\353\361!\203\360\361!\210\3537!\203!\3607!\21000\202`09\n\355\3629!\211\205@\320\312
@G\f
@%+\210)\202c9\n\355\363\211\205\\\320\312
@G\f
@%+\210)\307\204~\n\316\364\211\205w\320\312
@G\f
@%+\210\321\306
\"\210,\n\316\365\211\205\223\320\312
@G\f
@%+\210
)0\207" [part ctl mm-security-handle value parameter handle error nil mm-find-raw-part-by-type get-text-property 0 protocol "application/pgp-signature" t gnus-info "Corrupted" put-text-property throw generate-new-buffer " *temp*" #[nil "\301!\205	\302!\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*" (quit) (error) get-buffer " *mailcrypt stderr temp" gnus-details buffer-string " *mailcrypt stdout temp" kill-buffer " *mailcrypt status temp" mml2015-format-error "Quit." "Failed" "OK" #1# mc-gpg-debug-buffer mml2015-verify-function err] 8])
(defalias 'mml2015-mailcrypt-clear-verify #[nil "\306\307!\3101}\3111]	 \312\313!\2030\n\314r\313q\210\315 )\211\205.\316\317
@G\f
@%+\210\312\320!\203:\321\320!\210\312\313!\203D\321\313!\210\312\322!\203N\321\322!\210\312!\203X\321!\21000\202\2310\n\314\323!\211\205w\316\317
@G\f
@%+\210)\202\265\n\314\324\211\205\223\316\317
@G\f
@%+\210)\202\265\203\265\n\325\326\211\205\260\316\317
@G\f
@%+\210\202\313\n\325\327\211\205\311\316\317
@G\f
@%+\210)\330 \207" [mc-gpg-debug-buffer mml2015-verify-function mm-security-handle value parameter handle get-buffer-create " *gnus gpg debug*" (quit) (error) get-buffer " *mailcrypt stderr temp" gnus-details buffer-string put-text-property 0 " *mailcrypt stdout temp" kill-buffer " *mailcrypt status temp" mml2015-format-error "Quit." gnus-info "OK" "Failed" mml2015-extract-cleartext-signature err] 8])
(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) "\3062v\307\211\211\211\310$A\311\307\312$\211\204?%\313\314&'\211$\2057\315\316$@G'&$@%+\210\317\306$\"\210\320\321!(r(q\210\322\216\323\f!\210\3241\256\3251\206\326ed\"rq\210\327 )%\330	&'\211$\205\315\316$@G'&$@%+\21000\202\3220)%\330\331)!&'\211$\205\250\315\316$@G'&$@%+\210)\202P)%\330\332&'\211$\205\314\315\316$@G'&$@%+\210)\202P\203Pr*q\210eb\210\333\334\307\312#\203\356\335\336\312\211#\210\202\335\337\312!\340$!\210%\313\341&'\211$\205\315\316$@G'&$@%+\210%\330	@;\205%\342\316\330@#P&'\211$\205>\315\316$@G'&$@%+\210@<\203J\202LC)\202s%\313\343&'\211$\205l\315\316$@G'&$@%+\210\317\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 gnus-info "Corrupted" put-text-property 0 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 gnus-details mml2015-format-error "Quit." search-forward "
\n" replace-match "\n" mm-dissect-buffer mm-destroy-parts "OK" get-text-property "Failed" handle mm-security-handle value parameter #1# err pgg-output-buffer] 8])
(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\223\321\322!0r0q\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!!12\333\216r1q\210\334	!\210)r1q\210\335\306\2112\306\311%\210,\3361\3371\366\340ed\314$eb\210\341\342\306\314#\203\304\343\344\314\211#\210\202\263-\345r3q\210\346 )r\fq\210\346 )P./\211,\205\357\320\311,@G/.,@%+\21000\202B04-\345\3474!./\211,\205\320\311,@G/.,@%+\210)\202p4-\345\350./\211,\205<\320\311,@G/.,@%+\210)\202p\203p\351!\210-\316r\fq\210\352 )./\211,\205k\320\311,@G/.,@%+\210\202\222\351!\210-\316\353./\211,\205\220\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*" #[nil "\301!\205	\302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] 13 "
" make-temp-file "pgg" get-buffer-create generate-new-buffer-name " *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" gnus-details buffer-string mml2015-format-error "Quit." delete-file mml2015-gpg-extract-signature-details "Failed" handle mm-security-handle value parameter #1# #2# #3=#:temp-file pgg-output-buffer err] 8])
(defalias 'mml2015-pgg-clear-verify #[nil "\306 	\3071\227\3101o\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,\325rq\210\306 )r\fq\210\306 )P !\211\"\205h\326\327\"@G! \"@%+\21000\202\2730#\325\330#! !\211\"\205\221\326\327\"@G! \"@%+\210)\202\345#\325\331 !\211\"\205\265\326\327\"@G! \"@%+\210)\202\345\203\345\332r\fq\210\333 ) !\211\"\205\340\326\327\"@G! \"@%+\210\202\332\334 !\211\"\205\326\327\"@G! \"@%+\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" gnus-details put-text-property 0 mml2015-format-error "Quit." gnus-info mml2015-gpg-extract-signature-details "Failed" mml2015-extract-cleartext-signature mm-security-handle pgg-output-buffer value parameter handle err] 8])
(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)
#@35 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\312Oc\210\32217\323\324 \312\325#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 16 (error) gnus-create-image buffer-string t] 6 (#$ . 19591)])
(autoload 'gnus-rescale-image "gnus-util")
#@49 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 (#$ . 20293)])
(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\221\307\310\211\211\211\211\211,\311-A\312\310\307$\211\204D.\313\314/0\211-\205<\315\316-@G0/-@%+\210\317\306-\"\210\320 1\204Q2\203X\321
\322\323B\"\210\3241k\325
\326!\"\310\21130\202\336\327 \210.\313\330/0\211-\205\214\315\316-@G0/-@%+\210@\331=\203\267.\332\333/0\211-\205\262\315\316-@G0/-@%+\210\202\330.\332\334!/0\211-\205\326\315\316-@G0/-@%+\210\317\306-\")\210\335\336!4r4q\210\337\216\fc\210eb\210\340\341\310\307#\203\342\343\307\211#\210\202\361\344\307!\345-!\210\346
\347\"\203:.\313\350\351\346
\347\"!P/0\211-\2055\315\316-@G0/-@%+\210\202X.\313\352/0\211-\205V\315\316-@G0/-@%+\210\n@;\203\201.\332\353\316\332\n@#/0\211-\205\315\316-@G0/-@%+\210+\n@<\203\214\n\202\216\nC.0\207" [decrypt-status result handles child plain context error t nil mm-find-part-by-type "application/octet-stream" gnus-info "Corrupted" put-text-property 0 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 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 inhibit-redisplay handle mm-security-handle value parameter mml2015-cache-passphrase mml-secure-cache-passphrase mml-secure-secret-key-id-list #1#] 8])
(defalias 'mml2015-epg-clear-decrypt #[nil "\306\307 \310\204\f\203\311	\312\313B\"\210\3141'\315	\316 \"\310\2110\202\223\"\317 \210#\320\321$%\211&\205H\322\323&@G%$&@%+\210\"@\324=\203r#\325\326$%\211&\205n\322\323&@G%$&@%+\202\222#\325\327\"!$%\211&\205\221\322\323&@G%$&@%+)\210\205\374\330 \210\331 \210c\210eb\210\332\333\310\306#\203\265\334\335\306\211#\210\202\244#\320\336$%\211&\205\321\322\323&@G%$&@%+\210\337	\340\"\205\374#\325\341\337	\340\"!$%\211&\205\373\322\323&@G%$&@%++\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 gnus-info "Failed" put-text-property 0 quit 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 mm-security-handle value parameter handle] 7])
(defalias 'mml2015-epg-verify #[(handle ctl) "\3062\307\310\211\211\211\211\311\"\312\313\314\"@#\206\315\307#\211\2032\316#A\315\310\307$\211\204V$\317\320%&\211#\205N\321\313#@G&%#@%+\210\322\306#\"\210\323\324\325	#\326!\327 \3301r\331\f	#\2110\202\342$\317\332%&\211#\205\220\321\313#@G&%#@%+\210@\333=\203\273$\334\335%&\211#\205\266\321\313#@G&%#@%+\210\202\334$\334\336!%&\211#\205\332\321\313#@G&%#@%+\210\322\306#\")\210$\317\337\340\f\341\"!%&\211#\205\321\313#@G&%#@%+\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 gnus-info "Corrupted" put-text-property throw replace-regexp-in-string "\n" "
\n" mm-get-part epg-make-context (error) epg-verify-string "Failed" quit gnus-details "Quit." mml2015-format-error mml2015-epg-verify-result-to-string epg-context-result-for verify ctl handle mm-security-handle value parameter] 7])
(defalias 'mml2015-epg-clear-verify #[nil "\306\307 \310\311 \"\312\3131\314\n\"\2110\202\201\315\316\211\2058\317\320@G@%+\210
@\321=\203a\322\323\211\205]\317\320@G@%+\202\200\322\324
!\211\205\317\320@G@%+)\210	\203\266\315\325\326\327\"!\211\205\247\317\320@G@%+\210ed|\210\330	\"c\202\270\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 gnus-info "Failed" put-text-property 0 quit gnus-details "Quit." mml2015-format-error mml2015-epg-verify-result-to-string epg-context-result-for verify decode-coding-string mml2015-extract-cleartext-signature mm-security-handle value parameter handle coding-system-for-read] 7])
(defalias 'mml2015-epg-sign #[(cont) "\306\307!db\210n\204\310c\210\311\312\306\"\211@Aeb\210\313\314	\"c\210
\2033\313\315
\236A\227\"c\210\316c\210\313\317	\"c\210db\210\313\317	\"c\210\320c\210\fc\210db\210\313\321	\"c\210db-\207" [cont boundary inhibit-redisplay pair signature micalg t mml-compute-boundary "\n" mml-secure-epg-sign OpenPGP 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	!!)\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)