;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(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 (#$ . 217))
#@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)) (#$ . 344))
(defvar mml2015-result-buffer nil)
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\210\300\314\302\303\315DD\316\310\311\312\317&\210\320\314\321\322#\210\300\323\302\303\324DD\325\310\311\312\326&\210\320\323\327\322#\210\300\330\302\303\331DD\332\310\311\312\333&\210\300\334\302\303\335DD\336\310\311\312\317\306\337&	\210\300\340\302\303\341DD\342\310\311\312\317&\210\300\343\302\303\344DD\345\310\311\312\317&\210\300\346\302\303\347DD\350\306\351\310\311\312\326&	\210\300\352\302\303\353DD\354\306\355\310\311\312\317&	\207" [custom-declare-variable mml2015-unabbrev-trust-alist funcall function #[0 "\300\207" [(("TRUST_UNDEFINED") ("TRUST_NEVER") ("TRUST_MARGINAL" . t) ("TRUST_FULLY" . t) ("TRUST_ULTIMATE" . t))] 1 #1=""] "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 #[0 "\207" [mml-secure-cache-passphrase] 1 #1#] "If t, cache passphrase." boolean make-obsolete-variable mml-secure-cache-passphrase "25.1" mml2015-passphrase-cache-expiry #[0 "\207" [mml-secure-passphrase-cache-expiry] 1 #1#] "How many seconds the passphrase is cached.\nWhether the passphrase is cached at all is controlled by\n`mml2015-cache-passphrase'." integer mml-secure-passphrase-cache-expiry mml2015-signers #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "If t, use message sender so find a key to sign with." "24.1" mml2015-encrypt-to-self #[0 "\300\207" [nil] 1 #1#] "If t, add your own key ID to recipient list when encryption." mml2015-always-trust #[0 "\300\207" [t] 1 #1#] "If t, GnuPG skip key validation on encryption." mml2015-maximum-key-image-dimension #[0 "\300\207" [64] 1 #1#] "The maximum dimension (width or height) of any key images." "24.4" mml2015-display-key-image #[0 "\300\207" [t] 1 #1#] "If t, try to display key images." "24.5"] 10)
(defalias 'mml2015-extract-cleartext-signature #[0 "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)
#@12 

(fn ERR)
(defalias 'mml2015-format-error #[257 "\211A@;\203\211A@\207\300\301A\"\207" [format "%S"] 4 (#$ . 3749)])
#@19 

(fn HANDLE CTL)
(defalias 'mml2015-mailcrypt-decrypt #[514 "\3022\225\303\211\211\304A\305\303\306$\211\262\204\307\310\311\"\210\312\302\"\210\313\314\306\"r\211q\210\315\316\"\216\317!\210\3201M\3211? 00\202U0\307\322\323!\"\210\303\262
\202U\307\322\324\"\210\303\262
\262
@\204g\307\310\325\"\210\312\302\"\210\326\306!\262*\210\327!\210\330\310\331r	q\210\332 )\333
P\262
P\"\210
@<\203\220
\266\203\202\224
C\266\2030\207" [mml2015-decrypt-function mml2015-result-buffer error nil mm-find-part-by-type "application/octet-stream" t mm-sec-error gnus-info "Corrupted" throw generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 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: "] 11 (#$ . 3876)])
#@20 

(fn FINGERPRINT)
(defalias 'mml2015-gpg-pretty-print-fpr #[257 "\300\301!\302\303\304
\303\"\262
\262\203;\305Z\262\306\"\262
\305\233\262
T\262\307=\2032
\2025\310PP\262\202\207" ["" string-width 0 nil append 4 butlast 1 " "] 9 (#$ . 4799)])
(defalias 'mml2015-gpg-extract-signature-details #[0 "eb\210\301\302\303\304#\301\305\303\304#\205\306\307!\306\310!B\301\311\303\304#\205\"\306\307!\301\312\303\304#\205-\306\307!\313
\"A\203S\203SA
?\205F\314\315!P\205Q\316\317@\"Q\207\301\320\303\304#\203_\306\310!\207\321\207" [mml2015-unabbrev-trust-alist 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"] 10])
(defalias 'mml2015-mailcrypt-clear-decrypt #[0 "\301\3021\3031 00\202&0\304\305\306!\"\210\301\262
\202&\304\305\307\"\210\301\262
\262
\211@\2032\310\311\312\"\207\304\311\313\"\207" [mml2015-decrypt-function nil (quit) (error) mm-sec-error gnus-details mml2015-format-error "Quit." mm-sec-status gnus-info "OK" "Failed"] 6])
#@12 

(fn ALG)
(defalias 'mml2015-fix-micalg #[257 "\211\205\300\301\"\203\211\302\225\303O\202\211\226\207" [string-match "^p[gh]p-" 0 nil] 4 (#$ . 6127)])
(autoload 'gnus-get-buffer-create "gnus")
#@19 

(fn HANDLE CTL)
(defalias 'mml2015-mailcrypt-verify #[514 "\3012\"
\302\303\304\305\306@#\206\307\310#\211\262\204$\311\312\313\"\210\314\301\"\210\315\316\310\"r\211q\210\317\320\"\216\321c\210\322\323\324\304\305\325@#!\206C\326\"c\210\214``}\210
\327\261\210eb\210m\204f\330\331!\203`\332c\210\302y\210\202S)\333A\307\302\310$\211\262\204~\311\312\313\"\210\314\301\"\210\214``}\210\334!\210eb\210\335\336\302\310#\203\230\337\340\310\211#\210\335\341\302\310#\203\246\337\342\310\211#\210)\343\344!\3451
\3461\362 \347\350!\203\305\311\351r\350q\210\352 )\"\210\347\353!\203\317\354\353!\210\347\350!\203\331\354\350!\210\347\355!\203\343\354\355!\210\347!\203\355\354!\21000\202
0\311\351\356!\"\210\302\262
\202
\311\351\357\"\210\302\262
\204
\311\312\360\"\210\314\301\"\210\210*\210\361\312\362\"\210\262
0\207" [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*" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 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-----" gnus-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"] 11 (#$ . 6335)])
(defalias 'mml2015-mailcrypt-clear-verify #[0 "\301\302!\3031Y\3041K \305\306!\203\307\310r\306q\210\311 )\"\210\305\312!\203(\313\312!\210\305\306!\2032\313\306!\210\305\314!\203<\313\314!\210\305!\203F\313!\21000\202a0\307\310\315!\"\210\316\262
\202a\307\310\317\"\210\316\262
\203m\320\321\322\"\266\202s\307\321\323\"\266\324 \207" [mml2015-verify-function gnus-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 nil "Quit." mm-sec-status gnus-info "OK" "Failed" mml2015-extract-cleartext-signature] 6])
#@13 

(fn CONT)
(defalias 'mml2015-mailcrypt-sign #[257 "\300\301\302!\303\211\211\211%\210\304
!\303\211eb\210\305\306\303\307#\204\310\311!\210\312\224b\210\313y\210\314\315!\204/\310\316!\210\317\313!\262\305\320\303\307#\204@\310\321!\210\313y\210e`|\210\322\323\"c\210\322\324\227\"c\210\322\325\"c\210`\262
db\210\326\327\303\307#\204l\310\330!\210\331\332\307\211#\210\312\224b\210\326\333\303\307#\204\202\310\330!\210\331\334\307\211#\210\312\224b\210\214\211`}\210\211b\210\305\335\303\307#\203\245\331\336\307\211#\210\202\224db\210)\322\337\"c\210\340c\210db\210\322\341\"c\210db\207" [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"] 8 (#$ . 8738)])
#@28 

(fn CONT &optional SIGN)
(defalias 'mml2015-mailcrypt-encrypt #[513 "\206\211\206\301\302!\206\303\302\304\305!\206\306\"\307=\206\310\311\312\307\"r\211q\210\313\314\"\216\315\316!\210\317\301\320!\206?\303\320\321\322\323!!\"\316\211\211\301\324!%\210\325 *\262
c\210)eb\210\326\327!\204\\\330\331!\210\332!\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 message-options-get message-sign-encrypt message-options-set y-or-n-p "Sign the message? " not t never generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 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"] 10 (#$ . 10062)])
(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)
#@19 

(fn HANDLE CTL)
(defalias 'mml2015-pgg-decrypt #[514 "\3032\305\304\211\211\305A\306\304\307$\211\262\204#\310\311\312\"\210\313\303\"\210\314\315\307\"r\211q\210\316\317\"\216\320!\210\3211a\3221S\323ed\"rq\210\324 )\262\325\326\"\21000\202i0\310\326\327!\"\210\304\262
\202i\310\326\330\"\210\304\262
\203\264r\nq\210eb\210\331\332\304\307#\203\204\333\334\307\211#\210\202s\335\307!\262\336!\210\325\311\337\326@;\205\241\340\341\326\n@#P$\210@<\203\256\202\260C)\202\276\310\311\342\"\210\313\303\"*\262
)\266\2040\207" [mml2015-result-buffer pgg-errors-buffer pgg-output-buffer error nil mm-find-part-by-type "application/octet-stream" t mm-sec-error gnus-info "Corrupted" throw generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 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"] 16 (#$ . 11468)])
(defalias 'mml2015-pgg-clear-decrypt #[0 "\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])
#@19 

(fn HANDLE CTL)
(defalias 'mml2015-pgg-verify #[514 "\303\211\211\304\305\306\307	@#\206\310\311#\211\262\203)\312A\310\303\311$\211\262\2041\313\314\315\"\210\202\367\316\317\311\"r\211q\210\320\321\"\216c\210eb\210\303\210m\204_`Sf\322=\204V\323c\210\303y\210\303\210\202G\324\325!\211\262\316\326\311\"\320\327\"\216r\211q\210\330!\210)r\211q\210\331\303\211\303\306%\210*\266\3321\317\3331\301\334ed\311$eb\210\335\336\303\311#\203\251\337\340\311\211#\210\202\230\341\342r\nq\210\343 )r	q\210\343 )P\"\21000\202\3270\313\342\344!\"\210\303\262
\202\327\313\342\345\"\210\303\262
\203\354\346!\210\313\314r	q\210\347 )\"\210\202\365\346!\210\313\314\350\"\210*\210)\266
\207" [mml2015-result-buffer pgg-errors-buffer pgg-output-buffer 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*" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] 13 "
" make-temp-file "pgg" " *temp file*" #[0 "\301\300!\205	\302\300!\207" [V0 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"] 15 (#$ . 13032)])
(defalias 'mml2015-pgg-clear-verify #[0 "\304 	\3051g\3061Y\307\310\311\"r\211q\210\312\313\"\216\314 \210\315\"c\210\316ed\317\311$*\262
eb\210\320\321\317\311#\203A\322\323\311\211#\210\2020\324\325rq\210\304 )r\nq\210\304 )P\"\21000\202o0\326\325\327!\"\210\317\262
\202o\326\325\330\"\210\317\262
\203\200\324\331r\nq\210\332 )\"\210\202\205\326\331\333\"\210)\266\334 \207" [mml2015-result-buffer buffer-file-coding-system pgg-errors-buffer pgg-output-buffer buffer-string (quit) (error) generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] mm-disable-multibyte encode-coding-string pgg-verify-region nil 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] 9])
#@13 

(fn CONT)
(defalias 'mml2015-pgg-sign #[257 "\305!\306\307!\206	\310\311
\312ed\"\204\"\313!\210\314\315!\210eb\210\316\317\"c\210\320\321r\fq\210\322 )!\236\211\262\203B\323
A\236\262
\316\324A\203R\316\325A\"\227\202S\326\"c\210\327c\210\316\330\"c\210db\210\316\330\"c\210\331c\210\332\f!\210db\210\316\333\"c\210db+\207" [mml2015-result-buffer pgg-default-user-id pgg-text-mode pgg-errors-buffer pgg-output-buffer 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"] 11 (#$ . 15325)])
#@28 

(fn CONT &optional SIGN)
(defalias 'mml2015-pgg-encrypt #[513 "\304\305!
\306ed\307\310\311!\206\312\311\313\314!\"\315\"$\204)\316!\210\317\320!\210ed|\210eb\210\321\322\"c\210\323c\210\321\324\"c\210\325c\210\326c\210\321\324\"c\210\327c\210\330!\210db\210\321\331\"c\210db*\207" [mml2015-result-buffer pgg-text-mode pgg-errors-buffer pgg-output-buffer 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"] 13 (#$ . 16175)])
(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\330\"\210\300\331\330\"\210\300\332\333\"\210\300\334\335\"\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-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" gnus-create-image "gnus-util"] 3)
#@49 Return the image of a key, if any.

(fn KEY-ID)
(defalias 'mml2015-epg-key-image #[257 "\304\305\306\"r\211q\210\307\310\"\216\311\312!\210\313\211\314\315\316\317\n!$!\211G\320V\205<\211\321\312Oc\210\3221:\323\324 \312\306#0\202<\210\312*\262
*\207" [coding-system-for-write coding-system-for-read epg-gpg-program null-device generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 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 >%s 2>&1" shell-quote-argument 0 16 (error) gnus-create-image buffer-string] 9 (#$ . 18073)])
(autoload 'gnus-rescale-image "gnus-util")
#@63 Return a string with the image of a key, if any.

(fn KEY-ID)
(defalias 'mml2015-epg-key-image-to-string #[257 "\301
!\211\204	\302\207\3031\304\305\306\307\310\211B\"\311%\210\3110\207\210\302\207" [mml2015-maximum-key-image-dimension mml2015-epg-key-image "" (error) put-text-property 1 2 display gnus-rescale-image "  "] 10 (#$ . 18798)])
#@18 

(fn SIGNATURE)
(defalias 'mml2015-epg-signature-to-string #[257 "\302
!\205\303\304!	>\204\305\306\307D\"\210\310H!P\207" [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] 7 (#$ . 19151)])
#@22 

(fn VERIFY-RESULT)
(defalias 'mml2015-epg-verify-result-to-string #[257 "\300\301\302#\207" [mapconcat mml2015-epg-signature-to-string "\n"] 5 (#$ . 19470)])
#@19 

(fn HANDLE CTL)
(defalias 'mml2015-epg-decrypt #[514 "\3032\333\304\211\211\211\305A\306\304\307$\211\262\204!\310\311\312\"\210\313\303\"\210\314 \262\204-	\2034\315\316\317B\"\210\3201H\321\322!\"\262\304\2110\210\202m\323 \210\310\311\324\"\210\211@\325=\203_\326\327\330\"\210\202f\326\327\331!\"\210\313\303\"\266\332\333\307\"r\211q\210\334\335\"\216c\210eb\210\336\337\304\307#\203\221\340\341\307\211#\210\202\200\342\307!\262\343!\210\344\345\"\203\262\326\311\346\347\344	\345\"!P\"\210\202\267\326\311\350\"\210
@;\203\310\326\327\351\352\327@#\"\210*\210\211@<\203\326\211\266\204\202\332\211C\266\2040\207" [mml2015-cache-passphrase mml-secure-cache-passphrase mml-secure-secret-key-id-list error nil mm-find-part-by-type "application/octet-stream" t 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*" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 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] 14 (#$ . 19637)])
(defalias 'mml2015-epg-clear-decrypt #[0 "\303 \304\204	\203\305\306\307B\"\210\3101%\311\312 \"\262
\304\2110\210\202C\313 \210\314\315\316\"\210\211@\317=\203;\320\321\322\"\202A\320\321\323!\"\266\211\205y\324 \210\325 \210\211c\210eb\210\326\327\304\330#\203d\331\332\330\211#\210\202S\320\315\333\"\210\334\335\"\205y\320\321\336\334\335\"!\"\207" [mml2015-cache-passphrase mml-secure-cache-passphrase mml-secure-secret-key-id-list 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" t replace-match "\n" "OK" epg-context-result-for verify mml2015-epg-verify-result-to-string] 8])
#@19 

(fn HANDLE CTL)
(defalias 'mml2015-epg-verify #[514 "\3002\301\211\211\302\303\304\305@#\206\306\307#\211\262\203)\310A\306\301\307$\211\262\2044\311\312\313\"\210\314\300\"\210\315\316\317#\262\320
!\262
\321 \262\3221R\323#0\210\202p\311\312\324\"\210\325\326@\327=\203d\330\202g\331!\"\210\314\300\"\266\325\312\332\333\334\"!\"\210\266\2030\207" [error 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" throw string-replace "\n" "
\n" mm-get-part epg-make-context (error) epg-verify-string "Failed" mm-sec-status gnus-details quit "Quit." mml2015-format-error mml2015-epg-verify-result-to-string epg-context-result-for verify] 11 (#$ . 21904)])
(defalias 'mml2015-epg-clear-verify #[0 "\302 \303\304 \"\305\3061\307\"\211\2620\210\2025\310\311\312\"\210\211@\313=\203-\314\315\316\"\266\2025\314\315\317!\"\266\211\203N\314\311\320\321\322\"!\"\210ed|\210\323
	\"c\207\324 \207" [coding-system-for-write coding-system-for-read 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] 9])
#@13 

(fn CONT)
(defalias 'mml2015-epg-sign #[257 "\301
!db\210n\204
\302c\210\303\304\305\"\211@
A
;\204\306\307!\210eb\210\310\311\"c\210\211\2035\310\312\236A\227\"c\210\313c\210\310\314\"c\210db\210\310\314\"c\210\315c\210
c\210db\210\310\316\"c\210db\207" [epg-digest-algorithm-alist mml-compute-boundary "\n" mml-secure-epg-sign OpenPGP t 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"] 9 (#$ . 23287)])
#@28 

(fn CONT &optional SIGN)
(defalias 'mml2015-epg-encrypt #[513 "\300!\301\302#ed|\210eb\210\303\304\"c\210\305c\210\303\306\"c\210\307c\210\310c\210\303\306\"c\210\311c\210\211c\210db\210\303\312\"c\210db\207" [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"] 7 (#$ . 23901)])
(autoload 'gnus-buffer-live-p "gnus-util")
(defalias 'mml2015-clean-buffer #[0 "\211\205\301\302!\211\262!\205\211\262
\203 rq\210\303 \210)\304\207\305\306!\307\207" [mml2015-result-buffer buffer-live-p get-buffer erase-buffer t gnus-get-buffer-create " *MML2015 Result*" nil] 4])
(defalias 'mml2015-clear-decrypt-function #[0 "\302	\2368\207" [mml2015-use mml2015-function-alist 6] 3])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put mml2015-clear-decrypt-function speed -1 put byte-optimizer byte-compile-inline-expand] 5)
(defalias 'mml2015-clear-verify-function #[0 "\302	\2368\207" [mml2015-use mml2015-function-alist 5] 3])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put mml2015-clear-verify-function speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@19 

(fn HANDLE CTL)
(defalias 'mml2015-decrypt #[514 "\302 \210\303	\2368\211\203\211\"\207\207" [mml2015-use mml2015-function-alist mml2015-clean-buffer 4] 6 (#$ . 25249)])
#@19 

(fn HANDLE CTL)
(defalias 'mml2015-decrypt-test #[514 "\207" [mml2015-use] 3 (#$ . 25433)])
#@19 

(fn HANDLE CTL)
(defalias 'mml2015-verify #[514 "\302 \210\303	\2368\211\203\211\"\207\207" [mml2015-use mml2015-function-alist mml2015-clean-buffer 3] 6 (#$ . 25534)])
#@19 

(fn HANDLE CTL)
(defalias 'mml2015-verify-test #[514 "\207" [mml2015-use] 3 (#$ . 25717)])
#@28 

(fn CONT &optional SIGN)
(defalias 'mml2015-encrypt #[513 "\302 \210\303	\2368\211\203\211\"\207\304\305!\207" [mml2015-use mml2015-function-alist mml2015-clean-buffer 2 error "Cannot find encrypt function"] 6 (#$ . 25817)])
#@13 

(fn CONT)
(defalias 'mml2015-sign #[257 "\302 \210	\236A@\211\203\211!\207\303\304!\207" [mml2015-use mml2015-function-alist mml2015-clean-buffer error "Cannot find sign function"] 4 (#$ . 26055)])
(defalias 'mml2015-self-encrypt #[0 "\300\301!\207" [mml2015-encrypt nil] 2])
(provide 'mml2015)