;ELC ;;; compiled by gutnik@multics.mit.edu on Thu Jun 10 13:06:53 2004 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/xemacs-gnus-5.10.6/lisp/mml2015.el ;;; emacs version 21.4 (patch 4) "Artificial Intelligence" XEmacs Lucid. ;;; bytecomp version 2.27 XEmacs; 2000-09-12. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 19. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`mml2015.el' was compiled for Emacs 20")) (or (boundp 'current-load-list) (setq current-load-list nil)) (byte-code "!!!" [require mm-decode mm-util mml] 2) #@32 The package used for PGP/MIME. (defvar mml2015-use (byte-code "!ŇǏ!ɇˏ!!!χ" [nil (byte-code "!" [require pgg] 2) ((error)) fboundp pgg-sign-region pgg (byte-code "!" [require gpg] 2) ((error)) gpg-sign-detached gpg (load "mc-toplev") ((error)) mc-encrypt-generic mc-sign-generic mc-cleanup-recipient-headers mailcrypt] 3) (#$ . 681)) #@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) (gpg mml2015-gpg-sign mml2015-gpg-encrypt mml2015-gpg-verify mml2015-gpg-decrypt mml2015-gpg-clear-verify mml2015-gpg-clear-decrypt) (pgg mml2015-pgg-sign mml2015-pgg-encrypt mml2015-pgg-verify mml2015-pgg-decrypt mml2015-pgg-clear-verify mml2015-pgg-clear-decrypt)) (#$ . 1062)) (byte-code " B!Ç" [mml2015-result-buffer current-load-list boundp nil] 2) (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." :type '(repeat (cons (regexp :tag "GnuPG output regexp") (boolean :tag "Trust key")))) (byte-code "\"\"\"\"\"\"\nB!\nB!Ç" [mml2015-verify-function mml2015-decrypt-function current-load-list autoload mailcrypt-decrypt "mailcrypt" mailcrypt-verify mc-pgp-always-sign mc-encrypt-generic "mc-toplev" mc-cleanup-recipient-headers mc-sign-generic boundp] 3) (defalias 'mml2015-format-error #[(err) "A@;A@A\"" [err format "%S"] 3]) (defalias 'mml2015-mailcrypt-decrypt #[(handle ctl) "" [error (byte-code "Ɖ A$ @G @%+ \"!!ӎrq !׏@ @G @%+ \"!+ !r!q )  P)P @G @%+\n@<\n\nC+" [mm-security-handle child handles parameter value handle nil mm-find-part-by-type "application/octet-stream" t gnus-info "Corrupted" put-text-property 0 throw error get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "!!" [#1=#:temp-buffer buffer-name kill-buffer] 2)) mm-insert-part err (funcall mml2015-decrypt-function) ((error (byte-code " ! @G\n @%+ɇ" [err mm-security-handle parameter value handle gnus-details mml2015-format-error put-text-property 0 nil] 7)) (quit (byte-code " @G \n @%+ȇ" [mm-security-handle parameter value handle gnus-details "Quit." put-text-property 0 nil] 7))) "Failed" mm-dissect-buffer mm-destroy-parts "OK" mml2015-gpg-extract-signature-details ", Signer: " result #1# sig mml2015-result-buffer] 7)] 2]) (defalias 'mml2015-mailcrypt-clear-decrypt #[nil "ȏ@ @G\n @%+ @G\n @%+)" [mm-security-handle result parameter value handle nil err (funcall mml2015-decrypt-function) ((error (byte-code " ! @G\n @%+ɇ" [err mm-security-handle parameter value handle gnus-details mml2015-format-error put-text-property 0 nil] 7)) (quit (byte-code " @G \n @%+ȇ" [mm-security-handle parameter value handle gnus-details "Quit." put-text-property 0 nil] 7))) gnus-info "OK" put-text-property 0 "Failed"] 7]) (defalias 'mml2015-fix-micalg #[(alg) "\"ÕO" [alg string-match "^p[gh]p-" 0 nil] 3]) (defalias 'mml2015-mailcrypt-verify #[(handle ctl) "" [error (byte-code "@##  @G @%+ \"!!.Վr.qc@#!\"c``}\nܱebm!cyp) A$  @G @%+ \"``}\n!eb#̉##̉#)!/돬  @G @%+ \",  @G @%+ )" [ctl mm-security-handle part parameter value 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 get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "!!" [#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-----" " *gnus gpg debug*" err (byte-code " !rq ) @G @%+!!!!!!\n!\n!" [mm-security-handle mml2015-verify-function mc-gpg-debug-buffer parameter value handle 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 " ! @G\n @%+ɇ" [err mm-security-handle parameter value handle gnus-details mml2015-format-error put-text-property 0 nil] 7)) (quit (byte-code " @G \n @%+ȇ" [mm-security-handle parameter value 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 "!ɏ  @G\n @%+  @G\n @%+)" [mc-gpg-debug-buffer mm-security-handle parameter value handle get-buffer-create " *gnus gpg debug*" err (byte-code " !rq ) @G @%+!!!!!!\n!\n!" [mm-security-handle mml2015-verify-function mc-gpg-debug-buffer parameter value handle 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 " ! @G\n @%+ɇ" [err mm-security-handle parameter value handle gnus-details mml2015-format-error put-text-property 0 nil] 7)) (quit (byte-code " @G \n @%+ȇ" [mm-security-handle parameter value handle gnus-details "Quit." put-text-property 0 nil] 7))) gnus-info "OK" put-text-property 0 "Failed"] 7]) (defalias 'mml2015-mailcrypt-sign #[(cont) "!lj%!ljeb#!Δby!!!#!ye`| \"c \"c \"c`db#!ˉ#Δb#!ˉ#Δb\n`}\nb#ˉ#qdb) \"ccdb \"cdb+" [cont hash point 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) " \n!!\"a p$%Ύ!!!!\"ω!%,!!!\"ω!%))eb!!&! \"cc \"ccc \"ccdb \"cdb)" [enable-multibyte-characters mm-emacs-mule sign default-enable-multibyte-characters mc-pgp-always-sign boundary message-options-get message-sign-encrypt message-options-set y-or-n-p "Sign the message? " not t never ((byte-code " q!" [#1=#:multibyte #2=#:buffer set-buffer-multibyte] 2)) nil set-buffer-multibyte 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" #2# #1# cont] 7]) (byte-code "\"\"\"\"\"\"\"" [autoload gpg-decrypt "gpg" gpg-verify gpg-verify-cleartext gpg-sign-detached gpg-sign-encrypt gpg-encrypt gpg-passphrase-read] 3) (defalias 'mml2015-gpg-passphrase #[nil "! \"" [message-options-get gpg-passphrase message-options-set gpg-passphrase-read] 3]) (defalias 'mml2015-gpg-decrypt-1 #[nil "pƉ!!ʎr\nq p $r q ) @G @%+ q !eb#ԉ#q+תdeV+" [value mml2015-result-buffer #1=#:temp-buffer handle cipher plain nil get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "!!" [#1# buffer-name kill-buffer] 2)) gpg-decrypt gnus-details buffer-string put-text-property 0 erase-buffer insert-buffer-substring search-forward " \n" t replace-match "\n" (t) (t) parameter result mm-security-handle] 8]) (defalias 'mml2015-gpg-decrypt #[(handle ctl) " \")" [ctl handle mml2015-decrypt-function mml2015-gpg-decrypt-1 mml2015-mailcrypt-decrypt] 3]) (defalias 'mml2015-gpg-clear-decrypt #[nil " @ @G\n @%+ @G\n @%+)" [mm-security-handle result parameter value handle nil mml2015-gpg-decrypt-1 gnus-info "OK" put-text-property 0 "Failed"] 7]) (defalias 'mml2015-gpg-pretty-print-fpr #[(fingerprint) " ! ! \nZ \n\"  T aPP] ," [slice n-slice fpr-length result fingerprint "" string-width 0 nil string-to-list 4 butlast 1 " "] 3]) (defalias 'mml2015-gpg-extract-signature-details #[nil "eb##!!B#!#!\n\"A A ? !P @\"Q#!-" [mml2015-unabbrev-trust-alist trust-good-enough-p trust expired fprint signer 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-gpg-verify #[(handle ctl) "" [error (byte-code "Ɖ !\"\"@##  @G @%+ \"!!#Վr#qp!\ncebm`Sfacyk!!$؎r$qp A$  @G @%+ \"\n!ݏ  @G @%+ \"+ r%q ) @G @%. ," [info-is-set-p mm-security-handle part parameter value 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 get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "!!" [#1=#:temp-buffer buffer-name kill-buffer] 2)) ?\r " " ((byte-code "!!" [#2=#:temp-buffer buffer-name kill-buffer] 2)) mm-find-part-by-type mm-insert-part err (byte-code "  # r q ) @G\n @%+" [signature message parameter value mml2015-result-buffer handle gpg-verify gnus-details buffer-string put-text-property 0 mm-security-handle] 8) ((error (byte-code "\n ! @G @%+\n @G @%+͇" [info-is-set-p err mm-security-handle parameter value handle gnus-details mml2015-format-error put-text-property 0 gnus-info "Error." t nil] 7)) (quit (byte-code "  @G\n @%+  @G\n @%+ˇ" [info-is-set-p mm-security-handle parameter value handle gnus-details "Quit." put-text-property 0 gnus-info t nil] 7))) "Failed" mml2015-gpg-extract-signature-details signature message ctl #1# #2# mml2015-result-buffer] 7)] 2]) (defalias 'mml2015-gpg-clear-verify #[nil "Ǐ rq ) @G\n @%+  @G\n @%+" [mml2015-result-buffer mm-security-handle parameter value handle err (byte-code "p \"r q ) @G \n @%+" [mm-security-handle parameter value mml2015-result-buffer handle gpg-verify-cleartext gnus-details buffer-string put-text-property 0] 8) ((error (byte-code " ! @G\n @%+ɇ" [err mm-security-handle parameter value handle gnus-details mml2015-format-error put-text-property 0 nil] 7)) (quit (byte-code " @G \n @%+ȇ" [mm-security-handle parameter value handle gnus-details "Quit." put-text-property 0 nil] 7))) gnus-info mml2015-gpg-extract-signature-details put-text-property 0 "Failed"] 7]) (defalias 'mml2015-gpg-sign #[(cont) "!pdbnc!!̎r\nq p !Љ&deV !!eb#Љ#q qeb \"cc \"cdb \"cc !db \"cdb." [cont mml2015-result-buffer #1=#:temp-buffer text signature boundary mml-compute-boundary nil "\n" get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "!!" [#1# buffer-name kill-buffer] 2)) gpg-sign-detached message-options-get message-sender t pop-to-buffer error "Sign error" re-search-forward " +$" replace-match "" format "Content-Type: multipart/signed; boundary=\"%s\";\n" " micalg=pgp-sha1; protocol=\"application/pgp-signature\"\n" "\n--%s\n" "Content-Type: application/pgp-signature\n\n" insert-buffer-substring "--%s--\n"] 8]) (defalias 'mml2015-gpg-encrypt #[(cont &optional sign) "0!p12p34Ȏ!!!͎rq!5K6ЎM. p\n!!\"\"!ډ& deV\n!!+eb#ډ#q qed| \"cc \"ccc \"cc !db \"cdb.K!!/r/q!7K8M. p\n!!\"\"!ډ& deV\n!!+eb#ډ#q qed| \"cc \"ccc \"cc !db \"cdb,+" [#1=#:temp-buffer default-enable-multibyte-characters mml2015-result-buffer text cipher boundary mml-compute-boundary nil ((byte-code " q!" [#2=#:multibyte #3=#:buffer set-buffer-multibyte] 2)) set-buffer-multibyte get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "!!" [#1# buffer-name kill-buffer] 2)) fboundp gpg-encrypt-func ((byte-code " M!‡" [#4=#:--letf-save--11624 #5=#:--letf-bound--11625 gpg-encrypt-func fmakunbound] 2)) #[(sign plaintext ciphertext result recipients &optional passphrase sign-with-key armor textmode) " \n \n& \n &" [armor passphrase recipients result ciphertext plaintext gpg-sign-encrypt gpg-encrypt textmode sign sign-with-key] 9 "\nCommon Lisp lambda list:\n (cl-none SIGN PLAINTEXT CIPHERTEXT RESULT RECIPIENTS &optional PASSPHRASE SIGN-WITH-KEY ARMOR TEXTMODE)\n\n"] split-string message-options-get message-recipients message-options-set read-string "Recipients: " "[ \n ,]+" message-sender t pop-to-buffer error "Encrypt error" re-search-forward " +$" replace-match "" 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" ((byte-code "!!" [#6=#:temp-buffer buffer-name kill-buffer] 2)) ((byte-code " M!‡" [#7=#:--letf-save--11628 #8=#:--letf-bound--11629 gpg-encrypt-func fmakunbound] 2)) #[(sign plaintext ciphertext result recipients &optional passphrase sign-with-key armor textmode) " \n \n& \n &" [armor passphrase recipients result ciphertext plaintext gpg-sign-encrypt gpg-encrypt textmode sign sign-with-key] 9 "\nCommon Lisp lambda list:\n (cl-none SIGN PLAINTEXT CIPHERTEXT RESULT RECIPIENTS &optional PASSPHRASE SIGN-WITH-KEY ARMOR TEXTMODE)\n\n"] sign #6# cont mm-emacs-mule enable-multibyte-characters #3# #2# #5# #4# #8# #7#] 11]) (byte-code "\"\"\"\"" [autoload pgg-decrypt-region "pgg" pgg-verify-region pgg-sign-region pgg-encrypt-region] 3) (defalias 'mml2015-pgg-decrypt #[(handle ctl) "" [error (byte-code "$Ɖ\"%& A$  @G @%+ \"!!#ӎr#q!׏r'qeb#ɉ#q! !  @G @%+ \"\n@;\n@#P @G @%+\n@<\n\nC)  @G @%+ \"." [child mm-security-handle handles parameter value handle nil mm-find-part-by-type "application/octet-stream" t gnus-info "Corrupted" put-text-property 0 throw error get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "!!" [#1=#:temp-buffer buffer-name kill-buffer] 2)) mm-insert-part err (byte-code "ed\"r q )  @G\n @%+" [mm-security-handle mml2015-result-buffer parameter value decrypt-status handle pgg-decrypt-region buffer-string gnus-details put-text-property 0] 8) ((error (byte-code " ! @G\n @%+ɇ" [err mm-security-handle parameter value handle gnus-details mml2015-format-error put-text-property 0 nil] 7)) (quit (byte-code " @G \n @%+ȇ" [mm-security-handle parameter value 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" decrypt-status #1# mml2015-result-buffer result pgg-errors-buffer pgg-output-buffer] 8)] 2]) (defalias 'mml2015-pgg-clear-decrypt #[nil " ed\"\nr q ) @G @%+ !eb#Љ#q\n @G @%+\n @G @%+)" [pgg-errors-buffer mml2015-result-buffer mm-security-handle parameter value handle pgg-decrypt-region gnus-details buffer-string put-text-property 0 erase-buffer 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) ")Ɖ%&&@## A$# @G @%+!!'Ԏr'qcebm`Sfacyk!!!$(ڎr$q !)r$q~ed(%,ߏ\n!#r%q ) @G @%+\n!# @G @%++, " [part signature signature-file parameter value handle 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 get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "!!" [#1=#:temp-buffer buffer-name kill-buffer] 2)) ?\r " " mm-make-temp-file "pgg" " *temp file*" ((byte-code "!!" [#2=#:temp-buffer buffer-name kill-buffer] 2)) mm-insert-part write-region err (byte-code "ed\n$eb#lj#q rq )rq )P @G @%+" [pgg-output-buffer mm-security-handle signature-file parameter value handle pgg-verify-region t search-forward " \n" nil replace-match "\n" gnus-details buffer-string put-text-property 0 pgg-errors-buffer] 8) ((error (byte-code " ! @G\n @%+ɇ" [err mm-security-handle parameter value handle gnus-details mml2015-format-error put-text-property 0 nil] 7)) (quit (byte-code " @G \n @%+ȇ" [mm-security-handle parameter value handle gnus-details "Quit." put-text-property 0 nil] 7))) delete-file mml2015-gpg-extract-signature-details "Failed" mm-security-handle #2# pgg-errors-buffer ctl #1# #3=#:temp-file mml2015-result-buffer] 7]) (defalias 'mml2015-pgg-clear-verify #[nil " ɏ r\nq ) @G @%+  @G @%++" [mml2015-result-buffer mm-security-handle pgg-errors-buffer parameter value handle buffer-string err (byte-code "!!ʎr q\"ced$,eb#͉#qrq )rq )P @G\n @%+" [text default-enable-multibyte-characters parameter value #1=#:temp-buffer handle nil get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "!!" [#1# buffer-name kill-buffer] 2)) encode-coding-string pgg-verify-region t search-forward " \n" replace-match "\n" gnus-details buffer-string put-text-property 0 coding-system mm-security-handle pgg-output-buffer pgg-errors-buffer] 8) ((error (byte-code " ! @G\n @%+ɇ" [err mm-security-handle parameter value handle gnus-details mml2015-format-error put-text-property 0 nil] 7)) (quit (byte-code " @G \n @%+ȇ" [mm-security-handle parameter value handle gnus-details "Quit." put-text-property 0 nil] 7))) gnus-info mml2015-gpg-extract-signature-details put-text-property 0 "Failed" buffer-file-coding-system coding-system text] 7]) (defalias 'mml2015-pgg-sign #[(cont) " \n!! ed\" !!eb \"cc \"cdb \"cc!db \"cdb+" [pgg-output-buffer pgg-errors-buffer cont pgg-default-user-id mml2015-result-buffer boundary mml-compute-boundary message-options-get mml-sender pgg-sign-region pop-to-buffer error "Sign error" format "Content-Type: multipart/signed; boundary=\"%s\";\n" " micalg=pgp-sha1; protocol=\"application/pgp-signature\"\n" "\n--%s\n" "Content-Type: application/pgp-signature\n\n" insert-buffer-substring "--%s--\n"] 4]) (defalias 'mml2015-pgg-encrypt #[(cont &optional sign) " !ed!!\"\" $ !!ed|eb \"cc \"ccc \"cc!db \"cdb*" [pgg-output-buffer sign pgg-errors-buffer cont mml2015-result-buffer boundary mml-compute-boundary pgg-encrypt-region split-string message-options-get message-recipients message-options-set read-string "Recipients: " "[ \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"] 8]) (defalias 'mml2015-clean-buffer #[nil "!rq )Ç!Ƈ" [mml2015-result-buffer gnus-buffer-live-p erase-buffer t gnus-get-buffer-create "*MML2015 Result*" nil] 2]) (defalias 'mml2015-clear-decrypt-function #[nil " 8" [mml2015-function-alist mml2015-use 6] 3]) (byte-code "Ns\"#" [mml2015-clear-decrypt-function byte-optimizer (nil byte-compile-inline-expand) error "%s already has a byte-optimizer, can't make it inline" put byte-compile-inline-expand] 4) (defalias 'mml2015-clear-verify-function #[nil " 8" [mml2015-function-alist mml2015-use 5] 3]) (byte-code "Ns\"#" [mml2015-clear-verify-function byte-optimizer (nil byte-compile-inline-expand) error "%s already has a byte-optimizer, can't make it inline" put byte-compile-inline-expand] 4) (defalias 'mml2015-decrypt #[(handle ctl) " \n 8 \" )" [ctl mml2015-function-alist mml2015-use handle func mml2015-clean-buffer 4] 4]) (defalias 'mml2015-decrypt-test #[(handle ctl) "" [mml2015-use] 1]) (defalias 'mml2015-verify #[(handle ctl) " \n 8 \" )" [ctl mml2015-function-alist mml2015-use handle func mml2015-clean-buffer 3] 4]) (defalias 'mml2015-verify-test #[(handle ctl) "" [mml2015-use] 1]) (defalias 'mml2015-encrypt #[(cont &optional sign) " \n8 \"!)" [sign cont mml2015-function-alist mml2015-use func mml2015-clean-buffer 2 error "Cannot find encrypt function"] 4]) (defalias 'mml2015-sign #[(cont) " \n A@ !!)" [cont mml2015-function-alist mml2015-use func mml2015-clean-buffer error "Cannot find sign function"] 3]) (defalias 'mml2015-self-encrypt #[nil "!" [mml2015-encrypt nil] 2]) (provide 'mml2015)