1#@!#!123s

file_get_contents 1#@!#!123s
: / usr / share / emacs / 24.3 / lisp / gnus /
Filename : mml2015.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:17 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/mml2015.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\204
�\302\301\303\304B\"\210\305\306!\203�\307\310!\210\202�\307\311!\210\307\312!\210\307\313!\210\307\314!\210\307\315!\207" [fboundp declare-function defalias macro #[(&rest r) "\300\207" [nil] 1] locate-library "password-cache" require password-cache password mm-decode mm-util mml mml-sec] 4)
#@85 The package used for PGP/MIME.
Valid packages include `epg', `pgg' and `mailcrypt'.
(defvar mml2015-use (byte-code "\301\302\303\217\206?�\304\305!\211\205#�\306\307\"?\205#�\301\310\311\217\210\312\313!\205#�\314)\206?�\301\315\316\217\210\312\317!\205?�\312\320!\205?�\312\321!\205?�\322\207" [abs-file nil (byte-code "\300\301!\210\302\303 !\210\304\207" [require epg-config epg-check-configuration epg-configuration epg] 2) ((error)) locate-library "pgg" string-match "/obsolete/[^/]*\\'" (byte-code "\300\301!\207" [require pgg] 2) ((error)) fboundp pgg-sign-region pgg (load "mc-toplev") ((error)) mc-encrypt-generic mc-sign-generic mc-cleanup-recipient-headers mailcrypt] 4) (#$ . 877))
#@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)) (#$ . 1579))
(defvar mml2015-result-buffer nil)
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\313\314\306\307\310\315&\210\300\316\317\320\306\307\310\321&\210\300\322\323\324\306\307\310\325&\210\300\326\323\327\306\307\310\315\304\330&	\210\300\331\323\332\306\307\310\315&\210\300\333\334\335\306\307\310\315&\207" [custom-declare-variable mml2015-unabbrev-trust-alist '(("TRUST_UNDEFINED") ("TRUST_NEVER") ("TRUST_MARGINAL" . t) ("TRUST_FULLY" . t) ("TRUST_ULTIMATE" . t)) "Map GnuPG trust output values to a boolean saying if you trust the key." :version "22.1" :group mime-security :type (repeat (cons (regexp :tag "GnuPG output regexp") (boolean :tag "Trust key"))) mml2015-cache-passphrase mml-secure-cache-passphrase "If t, cache passphrase." boolean mml2015-passphrase-cache-expiry mml-secure-passphrase-cache-expiry "How many seconds the passphrase is cached.\nWhether the passphrase is cached at all is controlled by\n`mml2015-cache-passphrase'." integer mml2015-signers nil "A list of your own key ID(s) which will be used to sign a message.\nIf set, it overrides the setting of `mml2015-sign-with-sender'." (repeat (string :tag "Key ID")) mml2015-sign-with-sender "If t, use message sender so find a key to sign with." "24.1" mml2015-encrypt-to-self "If t, add your own key ID to recipient list when encryption." mml2015-always-trust t "If t, GnuPG skip key validation on encryption."] 10)
(defalias 'mml2015-extract-cleartext-signature #[nil "eb\210\300y\210\301\302!\203�\300y\210\202�\301\303!\203�\300y\210e`|\210\304\305\300\306#\203,�\307\224d|\210eb\210\304\310\300\306#\205C�\311\312\306\211#\210\313y\210\202/�\207" [nil looking-at "Hash:" "[	 ]*$" re-search-forward "^-----BEGIN PGP SIGNATURE-----" t 0 "^- " replace-match "" 1] 4])
(byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\300\305\306\"\210\300\307\306\"\210\300\310\306\"\207" [autoload mailcrypt-decrypt "mailcrypt" mailcrypt-verify mc-pgp-always-sign mc-encrypt-generic "mc-toplev" mc-cleanup-recipient-headers mc-sign-generic] 3)
(defvar mml2015-decrypt-function 'mailcrypt-decrypt)
(defvar mml2015-verify-function 'mailcrypt-verify)
(defalias 'mml2015-format-error #[(err) "\211A@);\203�\211A@)\207\302\303A\"\207" [err x format "%S"] 4])
(defalias 'mml2015-mailcrypt-decrypt #[(handle ctl) "\300\301\215\207" [error (byte-code "\306\211\211\307A\310\306\311$\211\204/�\f\312\313\211\205(�\314\315@G
@%+\210\316\317\"\210\320\321!rq\210\322\216\323\n!\210\324\325\326\217\211@\204f�\f\312\327\211\205_�\314\315@G
@%+\210\316\317\"\210\330\311!+\331!\210\f\312\332rq\210\333 ) \334 P)P\211\205\225�\314\315@G
@%+\210	@<\203\241�	\202\243�	C+\207" [result handles child handle mm-security-handle value nil mm-find-part-by-type "application/octet-stream" t gnus-info "Corrupted" put-text-property 0 throw error generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) mm-insert-part err (funcall mml2015-decrypt-function) ((error (byte-code "\305\306	!\211\205�\307\310\f@G\n\f@%+\210\311\207" [mm-security-handle err value parameter handle gnus-details mml2015-format-error put-text-property 0 nil] 7)) (quit (byte-code "\304\305\211\205�\306\307@G\n	@%+\210\310\207" [mm-security-handle value parameter handle gnus-details "Quit." put-text-property 0 nil] 7))) "Failed" mm-dissect-buffer mm-destroy-parts "OK" mml2015-gpg-extract-signature-details ", Signer: " parameter #1# mml2015-result-buffer sig] 7)] 2])
(defalias 'mml2015-gpg-pretty-print-fpr #[(fingerprint) "\306\307	!\310\311	\312
\311\")	\203:�\n\313Z\314	\n\"\313	\233T\315\316\"\2032�\f\2025�\317\fPP\202�,\207" [result fingerprint fpr-length n-slice slice string "" string-width 0 nil append 4 butlast eql 1 " "] 4])
(defalias 'mml2015-gpg-extract-signature-details #[nil "eb\210\306\307\310\311#\306\312\310\311#\205�\313\314!\313\315!B\306\316\310\311#\205$�\313\314!\306\317\310\311#\2050�\313\314!\320\f\"A	\203X�\n\203X�	A
?\205K�\321\322\n!P\205T�\323\324	@\"Q\202g�\306\325\310\311#\203f�\313\315!\202g�\326-\207" [expired signer fprint trust mml2015-unabbrev-trust-alist trust-good-enough-p re-search-forward "^\\[GNUPG:\\] SIGEXPIRED$" nil t "^\\[GNUPG:\\] GOODSIG \\([0-9A-Za-z]*\\) \\(.*\\)$" match-string 1 2 "^\\[GNUPG:\\] VALIDSIG \\([0-9a-zA-Z]*\\) " "^\\[GNUPG:\\] \\(TRUST_.*\\)$" assoc "\nUntrusted, Fingerprint: " mml2015-gpg-pretty-print-fpr format "\nWARNING: Signature from expired key (%s)" "^\\(gpg: \\)?Good signature from \"\\(.*\\)\"$" "From unknown user"] 5])
(defalias 'mml2015-mailcrypt-clear-decrypt #[nil "\305\306\307\310\217\211@\203$�	\311\312\211\205 �\313\314\f@G\n\f@%+\2029�	\311\315\211\2058�\313\314\f@G\n\f@%+)\207" [result mm-security-handle value parameter handle nil err (funcall mml2015-decrypt-function) ((error (byte-code "\305\306	!\211\205�\307\310\f@G\n\f@%+\210\311\207" [mm-security-handle err value parameter handle gnus-details mml2015-format-error put-text-property 0 nil] 7)) (quit (byte-code "\304\305\211\205�\306\307@G\n	@%+\210\310\207" [mm-security-handle value parameter handle gnus-details "Quit." put-text-property 0 nil] 7))) gnus-info "OK" put-text-property 0 "Failed"] 7])
(defalias 'mml2015-fix-micalg #[(alg) "\205�\301\302\"\203�\303\225\304O\202�\226\207" [alg string-match "^p[gh]p-" 0 nil] 3])
(defalias 'mml2015-mailcrypt-verify #[(handle ctl) "\300\301\215\207" [error (byte-code "\306\307	\310\311\312	@#\206�\313\314#\211\2040�\n\315\316\211\205)�\317\311
@G\f
@%+\210\320\321
\"\210\322\323!.r.q\210\324\216\325c\210\326\327\330\310\311\331	@#!\206M�\332\"c\210\214``}\210\333\261\210eb\210m\204p�\334\335!\203j�\336c\210\306y\210\202]�)\337
A\313\306\314$\211\204\230�\n\315\316\211\205\221�\317\311
@G\f
@%+\210\320\321
\"\210\214``}\210\340!\210eb\210\341\342\306\314#\203\262�\343\344\314\211#\210\341\345\306\314#\203\300�\343\346\314\211#\210)\347\350!/\351\352\353\217\204\350�\n\315\354\211\205\341�\317\311
@G\f
@%+\210\320\321
\"\210,\n\315\355\211\205\375�\317\311
@G\f
@%+\210
)\207" [part ctl mm-security-handle value parameter handle nil mm-find-raw-part-by-type get-text-property 0 protocol "application/pgp-signature" t gnus-info "Corrupted" put-text-property throw error generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) "-----BEGIN PGP SIGNED MESSAGE-----\n" format "Hash: %s\n\n" mml2015-fix-micalg micalg "SHA1" "\n" looking-at "^-" "- " mm-find-part-by-type mm-insert-part re-search-forward "^-----BEGIN PGP [^-]+-----
?$" replace-match "-----BEGIN PGP SIGNATURE-----" "^-----END PGP [^-]+-----
?$" "-----END PGP SIGNATURE-----" get-buffer-create " *gnus gpg debug*" err (byte-code " \306\307!\203$�	\310r\307q\210\311 )\211\205\"�\312\313\f@G\n\f@%+\210\306\314!\203.�\315\314!\210\306\307!\2038�\315\307!\210\306\316!\203B�\315\316!\210\306
!\203L�\315
!\210\207" [mml2015-verify-function mm-security-handle value parameter handle mc-gpg-debug-buffer get-buffer " *mailcrypt stderr temp" gnus-details buffer-string put-text-property 0 " *mailcrypt stdout temp" kill-buffer " *mailcrypt status temp"] 8) ((error (byte-code "\305\306	!\211\205�\307\310\f@G\n\f@%+\210\311\207" [mm-security-handle err value parameter handle gnus-details mml2015-format-error put-text-property 0 nil] 7)) (quit (byte-code "\304\305\211\205�\306\307@G\n	@%+\210\310\207" [mm-security-handle value parameter handle gnus-details "Quit." put-text-property 0 nil] 7))) "Failed" "OK" #1# mc-gpg-debug-buffer] 8)] 2])
(defalias 'mml2015-mailcrypt-clear-verify #[nil "\305\306!\307\310\311\217\203$�	\312\313\211\205�\314\315\f@G\n\f@%+\210\202:�	\312\316\211\2058�\314\315\f@G\n\f@%+\210)\317 \207" [mc-gpg-debug-buffer mm-security-handle value parameter handle get-buffer-create " *gnus gpg debug*" err (byte-code " \306\307!\203$�	\310r\307q\210\311 )\211\205\"�\312\313\f@G\n\f@%+\210\306\314!\203.�\315\314!\210\306\307!\2038�\315\307!\210\306\316!\203B�\315\316!\210\306
!\203L�\315
!\210\207" [mml2015-verify-function mm-security-handle value parameter handle mc-gpg-debug-buffer get-buffer " *mailcrypt stderr temp" gnus-details buffer-string put-text-property 0 " *mailcrypt stdout temp" kill-buffer " *mailcrypt status temp"] 8) ((error (byte-code "\305\306	!\211\205�\307\310\f@G\n\f@%+\210\311\207" [mm-security-handle err value parameter handle gnus-details mml2015-format-error put-text-property 0 nil] 7)) (quit (byte-code "\304\305\211\205�\306\307@G\n	@%+\210\310\207" [mm-security-handle value parameter handle gnus-details "Quit." put-text-property 0 nil] 7))) gnus-info "OK" put-text-property 0 "Failed" mml2015-extract-cleartext-signature] 7])
(defalias 'mml2015-mailcrypt-sign #[(cont) "\304\305\306!\307\211\211\211%\210\310!\307\211eb\210\311\312\307\313#\204!�\314\315!\210\316\224b\210\317y\210\320\321!\2042�\314\322!\210\323\317!\311\324\307\313#\204B�\314\325!\210\317y\210e`|\210\326\327\"c\210\326\330\n\227\"c\210\326\331\"c\210`db\210\332\333\307\313#\204m�\314\334!\210\335\336\313\211#\210\316\224b\210\332\337\307\313#\204\203�\314\334!\210\335\340\313\211#\210\316\224b\210\214	`}\210	b\210\311\341\307\313#\203\246�\335\342\313\211#\210\202\225�db\210)\326\343\"c\210\344c\210db\210\326\345\"c\210db+\207" [cont point hash boundary mc-sign-generic message-options-get message-sender nil mml-compute-boundary re-search-forward "^-----BEGIN PGP SIGNED MESSAGE-----
?$" t error "Cannot find signed begin line" 0 1 looking-at "Hash:[ 	]*\\([a-zA-Z0-9]+\\)" "Cannot not find PGP hash" match-string "^$" "Cannot not find PGP message" format "Content-Type: multipart/signed; boundary=\"%s\";\n" "	micalg=pgp-%s; protocol=\"application/pgp-signature\"\n" "\n--%s\n" re-search-backward "^-----END PGP SIGNATURE-----
?$" "Cannot find signature part" replace-match "-----END PGP MESSAGE-----" "^-----BEGIN PGP SIGNATURE-----
?$" "-----BEGIN PGP MESSAGE-----" "^- -" "-" "--%s\n" "Content-Type: application/pgp-signature\n\n" "--%s--\n"] 6])
(defalias 'mml2015-mailcrypt-encrypt #[(cont &optional sign) "\206�	\206�\306\307!\206�\310\307\311\312!\206�\313\"\314=\206�\315\n\211\203)�\316\317!\210\320\306\321!\2068�\310\321\322\323\324!!\"\317\211\211\306\325!%\210\203H�\316\314!\210*eb\210\326\327!\204V�\330\331!\210\332\f!\333\334
\"c\210\335c\210\333\336
\"c\210\337c\210\340c\210\333\336
\"c\210\341c\210db\210\333\342
\"c\210db)\207" [mc-pgp-always-sign sign enable-multibyte-characters #1=#:multibyte cont boundary message-options-get message-sign-encrypt message-options-set y-or-n-p "Sign the message? " not t never set-buffer-multibyte nil mc-encrypt-generic message-recipients mc-cleanup-recipient-headers read-string "Recipients: " message-sender looking-at "-----BEGIN PGP MESSAGE-----" error "Fail to encrypt the message" mml-compute-boundary format "Content-Type: multipart/encrypted; boundary=\"%s\";\n" "	protocol=\"application/pgp-encrypted\"\n\n" "--%s\n" "Content-Type: application/pgp-encrypted\n\n" "Version: 1\n\n" "Content-Type: application/octet-stream\n\n" "--%s--\n"] 8])
(byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\300\305\302\"\210\300\306\307\"\207" [autoload pgg-decrypt-region "pgg" pgg-verify-region pgg-sign-region pgg-encrypt-region pgg-parse-armor "pgg-parse"] 3)
(defalias 'mml2015-pgg-decrypt #[(handle ctl) "\300\301\215\207" [error (byte-code "\306\211\211\211\307!A\310\306\311$\211\204;�\"\312\313#$\211!\2053�\314\315!@G$#!@%+\210\316\317!\"\210\320\321!%r%q\210\322\216\323\f!\210\324\325\326\217\203\315�r&q\210eb\210\327\330\306\311#\203k�\331\332\311\211#\210\202Z�\333\311!\334!!\210\"\312\335#$\211!\205\220�\314\315!@G$#!@%+\210\"\336	@;\205\242�\337\315\336@#P#$\211!\205\273�\314\315!@G$#!@%+\210@<\203\307�\202\311�C)\202\360�\"\312\340#$\211!\205\351�\314\315!@G$#!@%+\210\316\317!\".\207" [mml2015-result-buffer decrypt-status result handles child pgg-errors-buffer nil mm-find-part-by-type "application/octet-stream" t gnus-info "Corrupted" put-text-property 0 throw error generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) mm-insert-part err (byte-code "\306ed\"rq\210\307 )\n\310	\211\205 �\311\312
@G\f
@%+\210\207" [mml2015-result-buffer decrypt-status mm-security-handle value parameter handle pgg-decrypt-region buffer-string gnus-details put-text-property 0] 8) ((error (byte-code "\305\306	!\211\205�\307\310\f@G\n\f@%+\210\311\207" [mm-security-handle err value parameter handle gnus-details mml2015-format-error put-text-property 0 nil] 7)) (quit (byte-code "\304\305\211\205�\306\307@G\n	@%+\210\310\207" [mm-security-handle value parameter handle gnus-details "Quit." put-text-property 0 nil] 7))) search-forward "
\n" replace-match "\n" mm-dissect-buffer mm-destroy-parts "OK" gnus-details get-text-property "Failed" handle mm-security-handle value parameter #1# pgg-output-buffer] 8)] 2])
(defalias 'mml2015-pgg-clear-decrypt #[nil "\306ed\"\n\307rq\210\310 )\211\205 �\311\312
@G\f
@%+\210\203\\�\313 \210\314 \210\315!\210eb\210\316\317\320\321#\203D�\322\323\321\211#\210\2023�\n\324\325\211\205X�\311\312
@G\f
@%+\202q�\n\324\326\211\205p�\311\312
@G\f
@%+)\207" [mml2015-result-buffer pgg-errors-buffer mm-security-handle value parameter handle pgg-decrypt-region gnus-details buffer-string put-text-property 0 erase-buffer mm-disable-multibyte insert-buffer-substring search-forward "
\n" nil t replace-match "\n" gnus-info "OK" "Failed" pgg-output-buffer] 8])
(defalias 'mml2015-pgg-verify #[(handle ctl) "\306\211\211\307
\310\311\312
@#\206�\313\314#\211\203(�\315$A\313\306\314$\211\204L�%\316\317&'\211$\205D�\320\311$@G'&$@%+\210$\210\202\367�\321\322!(r(q\210\323\216\nc\210eb\210\306\210m\204y�`Sf\324=\204p�\325c\210\306y\210\306\210\202a�\326\327!\211\330\331\332!!)*\333\216r)q\210\334	!\210)r)q\210\335\306\211*\306\311%\210,\336\337\340\217\203\324�\341!\210%\316r\fq\210\342 )&'\211$\205\317�\320\311$@G'&$@%+\210\202\366�\341!\210%\316\343&'\211$\205\364�\320\311$@G'&$@%+\210+,$\207" [mml2015-result-buffer signature part signature-file pgg-errors-buffer ctl nil mm-find-raw-part-by-type get-text-property 0 protocol "application/pgp-signature" t mm-find-part-by-type gnus-info "Corrupted" put-text-property generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) 13 "
" mm-make-temp-file "pgg" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n�\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) mm-insert-part write-region err (byte-code "\306ed\307$eb\210\310\311\312\307#\203�\313\314\307\211#\210\202	�	\315r\nq\210\316 )rq\210\316 )P\211\205?�\317\320@G
\f@%+\210\207" [signature-file mm-security-handle pgg-output-buffer pgg-errors-buffer value parameter pgg-verify-region t search-forward "
\n" nil replace-match "\n" gnus-details buffer-string put-text-property 0 handle] 8) ((error (byte-code "\305\306	!\211\205�\307\310\f@G\n\f@%+\210\311\207" [mm-security-handle err value parameter handle gnus-details mml2015-format-error put-text-property 0 nil] 7)) (quit (byte-code "\304\305\211\205�\306\307@G\n	@%+\210\310\207" [mm-security-handle value parameter handle gnus-details "Quit." put-text-property 0 nil] 7))) delete-file mml2015-gpg-extract-signature-details "Failed" handle mm-security-handle value parameter #1# #2# #3=#:temp-file] 7])
(defalias 'mml2015-pgg-clear-verify #[nil "\306 	\307\310\311\217\2034�
\312r\fq\210\313 )\211\205/�\314\315@G@%+\210\202Q�
\312\316\211\205O�\314\315@G@%+\210+\317 \207" [mml2015-result-buffer buffer-file-coding-system coding-system text pgg-errors-buffer mm-security-handle buffer-string err (byte-code "\306\307!rq\210\310\216\311 \210\312	\n\"c\210\313ed\314\315$+eb\210\316\317\314\315#\203.�\320\321\315\211#\210\202�\322r\fq\210\323 )r
q\210\323 )P\211\205W�\324\325@G@%+\210\207" [#1=#:temp-buffer text coding-system mm-security-handle pgg-output-buffer pgg-errors-buffer generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-disable-multibyte mm-encode-coding-string pgg-verify-region nil t search-forward "
\n" replace-match "\n" gnus-details buffer-string put-text-property 0 value parameter handle] 8) ((error (byte-code "\305\306	!\211\205�\307\310\f@G\n\f@%+\210\311\207" [mm-security-handle err value parameter handle gnus-details mml2015-format-error put-text-property 0 nil] 7)) (quit (byte-code "\304\305\211\205�\306\307@G\n	@%+\210\310\207" [mm-security-handle value parameter handle gnus-details "Quit." put-text-property 0 nil] 7))) gnus-info mml2015-gpg-extract-signature-details put-text-property 0 "Failed" mml2015-extract-cleartext-signature value parameter handle] 7])
(defalias 'mml2015-pgg-sign #[(cont) "\306	!\307\310!\206�\n\311\312\313ed\"\204\"�\314!\210\315\316!\210eb\210\317\320
\"c\210\321\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\325\"\210\300\326\325\"\210\300\327\330\"\207" [autoload epg-make-context "epg" epg-context-set-armor epg-context-set-textmode epg-context-set-signers epg-context-result-for epg-new-signature-digest-algorithm epg-verify-result-to-string epg-list-keys epg-decrypt-string epg-verify-string epg-sign-string epg-encrypt-string epg-passphrase-callback-function epg-context-set-passphrase-callback epg-key-sub-key-list epg-sub-key-capability epg-sub-key-validity epg-sub-key-fingerprint epg-configuration "epg-config" epg-expand-group epa-select-keys "epa"] 3)
(defvar mml2015-epg-secret-key-id-list nil)
(defalias 'mml2015-epg-passphrase-callback #[(context key-id ignore) "\306=\203\f�\307	\310#\207\311=\203�\312\202�\310\313\311=\203%�\314\202;�\315\f\"\211\2037�\316\317A#\202;�\316\320\"\n\"\211\205U�\321\n
\"\210)\nB\322
!+\207" [key-id context password-cache-key-id entry epg-user-id-alist passphrase SYM epg-passphrase-callback-function nil PIN "PIN" password-read "Passphrase for PIN: " assoc format "Passphrase for %s %s: " "Passphrase for %s: " password-cache-add copy-sequence mml2015-passphrase-cache-expiry password-cache-expiry mml2015-epg-secret-key-id-list] 6])
(defalias 'mml2015-epg-find-usable-key #[(keys usage) "\300\301\215\207" [found (byte-code "\205>�\303@!\304\305	@!>\2045�	\2035�\n\305	@!>\203.�\306	@!\307>\204.�\310\311@\"\210	A\211\204�)A\211\204�\312\207" [keys pointer usage epg-key-sub-key-list disabled epg-sub-key-capability epg-sub-key-validity (revoked expired) throw found nil] 4)] 2])
(defalias 'mml2015-epg-find-usable-secret-key #[(context name usage) "\305	\306#\307\n\204.�\203.�\310\305\311\312@!@!\"\f\"\203(�@\307\202�A\202�\n*\207" [context name secret-key secret-keys usage epg-list-keys t nil mml2015-epg-find-usable-key epg-sub-key-fingerprint epg-key-sub-key-list] 6])
(defalias 'mml2015-epg-decrypt #[(handle ctl) "\300\301\215\207" [error (byte-code "\306\307\211\211\211\211\211%\310&A\311\307\306$\211\204@�'\312\313()\211&\2058�\314\315&@G)(&@%+\210\316\317&\"\210\320 *\203M�\321
\322\"\210\317\323\324\217\210\325\326!+r+q\210\327\216\fc\210eb\210\330\331\307\306#\203u�\332\333\306\211#\210\202d�\334\306!\335&!\210\336
\337\"\203\255�'\312\340\341\336
\337\"!P()\211&\205\250�\314\315&@G)(&@%+\210\202\313�'\312\342()\211&\205\311�\314\315&@G)(&@%+\210\n@;\203\364�'\343\344\315\343\n@#()\211&\205\362�\314\315&@G)(&@%+\210+\n@<\203\377�\n\202\nC.\207" [decrypt-status result handles child plain context t nil mm-find-part-by-type "application/octet-stream" gnus-info "Corrupted" put-text-property 0 throw error epg-make-context epg-context-set-passphrase-callback mml2015-epg-passphrase-callback (byte-code "\304\305	!\"\306\211\207" [context child plain mml2015-epg-secret-key-id-list epg-decrypt-string mm-get-part nil] 5) ((error (byte-code "\203�\306@!\210A\211\204�	\307\310\211\205$�\311\312\f@G\n\f@%+\210
@\313=\203F�	\314\315\211\205A�\311\312\f@G\n\f@%+\210\202^�	\314\316
!\211\205\\�\311\312\f@G\n\f@%+\210\317\305\f\"\207" [mml2015-epg-secret-key-id-list mm-security-handle value parameter handle error password-cache-remove gnus-info "Failed" put-text-property 0 quit gnus-details "Quit." mml2015-format-error throw] 7))) generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) search-forward "
\n" replace-match "\n" mm-dissect-buffer mm-destroy-parts epg-context-result-for verify "OK\n" epg-verify-result-to-string "OK" gnus-details get-text-property inhibit-redisplay handle mm-security-handle value parameter mml2015-cache-passphrase #1#] 8)] 2])
(defalias 'mml2015-epg-clear-decrypt #[nil "\306\307 \310\203�\311	\312\"\210\313\314\315\217\210\205w�\316 \210\317 \210c\210eb\210\320\321\310\306#\2036�\322\323\306\211#\210\202%�\f\324\325\211\205O�\326\327@G
@%+\210\330	\331\"\205w�\f\332\333\330	\331\"!\211\205v�\326\327@G
@%++\207" [plain context inhibit-redisplay mml2015-cache-passphrase mm-security-handle value t epg-make-context nil epg-context-set-passphrase-callback mml2015-epg-passphrase-callback error (byte-code "\303\304 \"\305\211\207" [context plain mml2015-epg-secret-key-id-list epg-decrypt-string buffer-string nil] 4) ((error (byte-code "\203�\306@!\210A\211\204�	\307\310\211\205$�\311\312\f@G\n\f@%+\210
@\313=\203F�	\314\315\211\205A�\311\312\f@G\n\f@%+\210\202^�	\314\316
!\211\205\\�\311\312\f@G\n\f@%+\210\306\207" [mml2015-epg-secret-key-id-list mm-security-handle value parameter handle error password-cache-remove gnus-info "Failed" put-text-property 0 quit gnus-details "Quit." mml2015-format-error] 7))) erase-buffer mm-disable-multibyte search-forward "
\n" replace-match "\n" gnus-info "OK" put-text-property 0 epg-context-result-for verify gnus-details epg-verify-result-to-string parameter handle] 7])
(defalias 'mml2015-epg-verify #[(handle ctl) "\300\301\215\207" [error (byte-code "\306\307\211\211\211\211\310\311\312\313@#\206�\314\306#\211\203.�\315A\314\307\306$\211\204R�\316\317 !\211\205J�\320\312@G! @%+\210\321\322\"\210\323	\324\325#\326!\327 \322\330\331\217\210\316\332\333\f\334\"! !\211\205\205�\320\312@G! @%+\210.\207" [signature part signature-file plain context inhibit-redisplay t nil mm-find-raw-part-by-type get-text-property 0 protocol "application/pgp-signature" mm-find-part-by-type gnus-info "Corrupted" put-text-property throw error mm-replace-in-string "\n" "
\n" mm-get-part epg-make-context (byte-code "\304	\n#\304\207" [context signature part plain epg-verify-string] 4) ((error (byte-code "\305\306\211\205�\307\310@G\n	@%+\210\f@\311=\2036�\312\313\211\2051�\307\310@G\n	@%+\210\202N�\312\314\f!\211\205L�\307\310@G\n	@%+\210\315\304\"\207" [mm-security-handle value parameter handle error gnus-info "Failed" put-text-property 0 quit gnus-details "Quit." mml2015-format-error throw] 7))) epg-verify-result-to-string epg-context-result-for verify ctl handle mm-security-handle value parameter] 7)] 2])
(defalias 'mml2015-epg-clear-verify #[nil "\306\307 \310\311 \"\312\313\314\315\217\210	\203E�
\316\317\320\321\"!\211\2056�\322\323@G@%+\210ed|\210\324	\"c\202G�\325 ,\207" [coding-system-for-write plain signature context inhibit-redisplay mm-security-handle t epg-make-context mm-encode-coding-string buffer-string nil error (byte-code "\303	\"\303\207" [context signature plain epg-verify-string] 3) ((error (byte-code "\305\306\211\205�\307\310@G\n	@%+\210\f@\311=\2036�\312\313\211\2051�\307\310@G\n	@%+\210\202N�\312\314\f!\211\205L�\307\310@G\n	@%+\210\305\207" [mm-security-handle value parameter handle error gnus-info "Failed" put-text-property 0 quit gnus-details "Quit." mml2015-format-error] 7))) gnus-info epg-verify-result-to-string epg-context-result-for verify put-text-property 0 mm-decode-coding-string mml2015-extract-cleartext-signature value parameter handle coding-system-for-read] 7])
(defalias 'mml2015-epg-sign #[(cont) "\306\307 \310\n!\311\312!
\206�(\205�\f\205�\313\f\314QC)\315*\311\316!\206N�\317\316+\320=\203=�\321	\322)\306$\202M�\f\204E�
\205M�\323\315\324\325)\"\"\",\315\211-.\326	\306\"\210\327	\306\"\210\330	,\"\210/\203p�\331	\332\"\210\333\334\335\217\210\336	\337\"\203\205�\340\336	\337\"@!.eb\210\341\342\"c\210.\203\237�\341\343.0\236A\227\"c\210\344c\210\341\345\"c\210db\210\341\345\"c\210\346c\210-c\210db\210\341\347\"c\210db.	\207" [inhibit-redisplay context cont boundary sender mml2015-signers t epg-make-context mml-compute-boundary message-options-get message-sender "<" ">" nil mml2015-epg-signers message-options-set guided epa-select-keys "Select keys for signing.\nIf no one is selected, default secret key is used.  " delq mapcar #[(signer) "\303	\304#\211\204�\305\306\307	\"!\204�\310\311	\"\210\n\207" [context signer signer-key mml2015-epg-find-usable-secret-key sign y-or-n-p format "No secret key for %s; skip it? " error "No secret key for %s"] 5] epg-context-set-armor epg-context-set-textmode epg-context-set-signers epg-context-set-passphrase-callback mml2015-epg-passphrase-callback error (byte-code "\303\304 \305#\306\211\207" [context signature mml2015-epg-secret-key-id-list epg-sign-string buffer-string t nil] 5) ((error (byte-code "\203�\302@!\210A\211\204�\303	@	A\"\207" [mml2015-epg-secret-key-id-list error password-cache-remove signal] 4))) epg-context-result-for sign epg-new-signature-digest-algorithm format "Content-Type: multipart/signed; boundary=\"%s\";\n" "	micalg=pgp-%s; " "protocol=\"application/pgp-signature\"\n" "\n--%s\n" "Content-Type: application/pgp-signature\n\n" "--%s--\n" mml2015-sign-with-sender signer-names signer-key mm-sign-option signers signature micalg mml2015-cache-passphrase epg-digest-algorithm-alist] 8])
(defalias 'mml2015-epg-encrypt #[(cont &optional sign) "\306\307 \310\n!\311 \312\313!\3144\312\315!56\206-�7\205-�5\205-�\3165\317QC8\314\2119:\314;
\204\212�\320\321\322\323\324\312\325!\206M�\326\325\327\330!\"\331\"\"\"<\203e�8\204`�\332\333!\210
8\244=\334=\203u�\335	\336
#\202\205�\337\314\322\340
\"\"\211\204\205�\332\341!\210\326\313
\"\210>\203\303�\312\342!\206\273�\326\342?\334=\203\250�\335	\3438\306$\202\272�5\204\262�6\205\272�\337\314\322\3448\"\"\"9\345	9\"\210\346	\306\"\210\347	\306\"\210@\203\327�\350	\351\"\210\332\352\353\217\210ed|\210eb\210\354\355\"c\210\356c\210\354\357\"c\210\360c\210\361c\210\354\357\"c\210\362c\2104c\210db\210\354\363\"c\210db.\207" [inhibit-redisplay context cont boundary config recipients t epg-make-context mml-compute-boundary epg-configuration message-options-get mml2015-epg-recipients nil message-sender "<" ">" apply nconc mapcar #[(recipient) "\302	\"\206\f�\303	\304QC\207" [config recipient epg-expand-group "<" ">"] 3] split-string message-recipients message-options-set read-string "Recipients: " "[ \f	\n
,]+" error "Neither message sender nor mml2015-signers are set" guided epa-select-keys "Select recipients for encryption.\nIf no one is selected, symmetric encryption will be performed.  " delq #[(recipient) "\303\304	\"\305\"\211\204�\306\307\310	\"!\204�\311\312	\"\210\n\207" [context recipient recipient-key mml2015-epg-find-usable-key epg-list-keys encrypt y-or-n-p format "No public key for %s; skip it? " error "No public key for %s"] 5] "No recipient specified" mml2015-epg-signers "Select keys for signing.\nIf no one is selected, default secret key is used.  " #[(signer) "\303	\304#\211\204�\305\306\307	\"!\204�\310\311	\"\210\n\207" [context signer signer-key mml2015-epg-find-usable-secret-key sign y-or-n-p format "No secret key for %s; skip it? " error "No secret key for %s"] 5] epg-context-set-signers epg-context-set-armor epg-context-set-textmode epg-context-set-passphrase-callback mml2015-epg-passphrase-callback (byte-code "\306\307 	\n%\310\211\207" [context recipients sign mml2015-always-trust cipher mml2015-epg-secret-key-id-list epg-encrypt-string buffer-string nil] 7) ((error (byte-code "\203�\302@!\210A\211\204�\303	@	A\"\207" [mml2015-epg-secret-key-id-list error password-cache-remove signal] 4))) format "Content-Type: multipart/encrypted; boundary=\"%s\";\n" "	protocol=\"application/pgp-encrypted\"\n\n" "--%s\n" "Content-Type: application/pgp-encrypted\n\n" "Version: 1\n\n" "Content-Type: application/octet-stream\n\n" "--%s--\n" cipher sender mml2015-signers mml2015-sign-with-sender signer-names signers recipient-key signer-key mml2015-encrypt-to-self mm-encrypt-option sign mm-sign-option mml2015-cache-passphrase] 10])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [autoload gnus-buffer-live-p "gnus-util" gnus-get-buffer-create "gnus"] 3)
(defalias 'mml2015-clean-buffer #[nil "\301!\203�rq\210\302 \210)\303\207\304\305!\306\207" [mml2015-result-buffer gnus-buffer-live-p erase-buffer t gnus-get-buffer-create " *MML2015 Result*" nil] 2])
(defalias 'mml2015-clear-decrypt-function #[nil "\302	\2368\207" [mml2015-use mml2015-function-alist 6] 3])
(put 'mml2015-clear-decrypt-function 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'mml2015-clear-verify-function #[nil "\302	\2368\207" [mml2015-use mml2015-function-alist 5] 3])
(put 'mml2015-clear-verify-function 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'mml2015-decrypt #[(handle ctl) "\305 \210\306	\2368\211\203�\n\f\"\202�)\207" [mml2015-use mml2015-function-alist func handle ctl mml2015-clean-buffer 4] 4])
(defalias 'mml2015-decrypt-test #[(handle ctl) "\207" [mml2015-use] 1])
(defalias 'mml2015-verify #[(handle ctl) "\305 \210\306	\2368\211\203�\n\f\"\202�)\207" [mml2015-use mml2015-function-alist func handle ctl mml2015-clean-buffer 3] 4])
(defalias 'mml2015-verify-test #[(handle ctl) "\207" [mml2015-use] 1])
(defalias 'mml2015-encrypt #[(cont &optional sign) "\305 \210\306	\2368\211\203�\n\f\"\202�\307\310!)\207" [mml2015-use mml2015-function-alist func cont sign mml2015-clean-buffer 2 error "Cannot find encrypt function"] 4])
(defalias 'mml2015-sign #[(cont) "\304 \210	\236A@\211\203�\n!\202�\305\306!)\207" [mml2015-use mml2015-function-alist func cont mml2015-clean-buffer error "Cannot find sign function"] 3])
(defalias 'mml2015-self-encrypt #[nil "\300\301!\207" [mml2015-encrypt nil] 2])
(provide 'mml2015)