;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@;\203 A@\207\301\302A\"\207" [err format "%S"] 3])
(defalias 'mml2015-mailcrypt-decrypt #[(handle ctl) "\3062\364 \307\211\211\310 A\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\222 0 \"\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 \233 T \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\202O 0 \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`0 9\n\355\3629! \211 \205@\320\312
@G\f
@%+\210)\202c 9\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\231 0 \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\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 \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\322 0 )%\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 \202L C)\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!! 1 2\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\202B0 4-\345\3474! . /\211 ,\205\320\311,@G/.,@%+\210)\202p 4-\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, \325r q\210\306 )r\fq\210\306 )P !\211 \"\205h \326\327\"@G! \"@%+\21000\202\273 0 # \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\322r q\210\323 )!\236\211\203A \324 A\236\317\325 A\203Q \317\326 A\"\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#!\211 G\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\204Q 2\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@ A eb\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 !!)\203 rq\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)
|