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



(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\"\210\304\307\306\"\210\300\310!\210\311\312\313\314\315DD\316\317\320\321\322&\207" [require smime mm-decode mml-sec autoload message-narrow-to-headers "message" message-fetch-field epg custom-declare-variable mml-smime-use funcall function #[0 "\300\207" [epg] 1 ""] "Whether to use OpenSSL or EasyPG (EPG) to handle S/MIME messages.\nIf you're thinking about using OpenSSL, please first read the BUGS section\nin the manual for the `smime' command that comes with OpenSSL.\nWe recommend EasyPG." :group mime-security :type (choice (const :tag "EPG" epg) (const :tag "OpenSSL" openssl))] 8)
(defvar mml-smime-function-alist '((openssl mml-smime-openssl-sign mml-smime-openssl-encrypt mml-smime-openssl-sign-query mml-smime-openssl-encrypt-query mml-smime-openssl-verify mml-smime-openssl-verify-test) (epg mml-smime-epg-sign mml-smime-epg-encrypt nil nil mml-smime-epg-verify mml-smime-epg-verify-test)))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\301\313\314#\210\300\315\302\303\316DD\317\306\307\310\320&\210\312\315\321\314#\210\300\322\302\303\323DD\324\306\307\310\325&\210\300\326\302\303\327DD\330\306\307\331\332\310\311&	\210\300\333\302\303\334DD\335\306\307\331\332\310\311&	\207" [custom-declare-variable mml-smime-cache-passphrase funcall function #[0 "\207" [mml-secure-cache-passphrase] 1 #1=""] "If t, cache passphrase." :group mime-security :type boolean make-obsolete-variable mml-secure-cache-passphrase "25.1" mml-smime-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`mml-smime-cache-passphrase'." integer mml-secure-passphrase-cache-expiry mml-smime-signers #[0 "\300\207" [nil] 1 #1#] "A list of your own key ID which will be used to sign a message." (repeat (string :tag "Key ID")) mml-smime-sign-with-sender #[0 "\300\207" [nil] 1 #1#] "If t, use message sender so find a key to sign with." :version "24.4" mml-smime-encrypt-to-self #[0 "\300\207" [nil] 1 #1#] "If t, add your own key ID to recipient list when encryption."] 10)
#@13 

(fn CONT)
(defalias 'mml-smime-sign #[257 "	\236A@\211\203
\211!\207\302\303!\207" [mml-smime-use mml-smime-function-alist error "Cannot find sign function"] 4 (#$ . 2266)])
#@13 

(fn CONT)
(defalias 'mml-smime-encrypt #[257 "\302	\2368\211\203
\211!\207\303\304!\207" [mml-smime-use mml-smime-function-alist 2 error "Cannot find encrypt function"] 4 (#$ . 2451)])
(defalias 'mml-smime-sign-query #[0 "\302	\2368\211\205\211 \207" [mml-smime-use mml-smime-function-alist 3] 3])
(defalias 'mml-smime-encrypt-query #[0 "\302	\2368\211\205\211 \207" [mml-smime-use mml-smime-function-alist 4] 3])
#@19 

(fn HANDLE CTL)
(defalias 'mml-smime-verify #[514 "\302	\2368\211\203\211\"\207\207" [mml-smime-use mml-smime-function-alist 5] 6 (#$ . 2882)])
#@19 

(fn HANDLE CTL)
(defalias 'mml-smime-verify-test #[514 "\302	\2368\211\205
\211\"\207" [mml-smime-use mml-smime-function-alist 6] 6 (#$ . 3040)])
#@13 

(fn CONT)
(defalias 'mml-smime-openssl-sign #[257 "\204\f\301\300!\210\302\303!\210\304@A!\210eb\210\305\306\307\310#\203&\311\312\310\211#\210\202db\207" [smime-keys customize-variable error "No S/MIME keys configured, use customize to add your key" smime-sign-buffer search-forward "
\n" nil t replace-match "\n"] 5 (#$ . 3198)])
#@13 

(fn CONT)
(defalias 'mml-smime-openssl-encrypt #[257 "\301\211\211\211\211\211A\262\242\211\262\203&:\203@\302=\203AB\262\202\211A\262\242\211\262\203f\303!\204>\304!\204FB\262\202&\305\306\307\"!\262rq\210\310ed#\210)
B\262

B\262
\202&\311!\210\211
A\262\242\211\262\203}\312!\210\202j\266db\207" [mm-tmp-directory nil certfile file-exists-p get-buffer make-temp-file expand-file-name "mml." write-region smime-encrypt-buffer delete-file] 10 (#$ . 3544)])
(defalias 'mml-smime-openssl-sign-query #[0 "\204\f\301\300!\210\302\303!\210\304G\305U\203@A@\202N\306\212\214\307 \210\310\311!*\206)\312!A@\211\2053\313
!\262
\206N\313\314\315\316\317\"\320\211\211\242<\205K@@&!D\207" [smime-keys customize-variable error "No S/MIME keys configured, use customize to add your key" keyfile 1 mail-extract-address-components message-narrow-to-headers message-fetch-field "from" "" smime-get-key-by-email gnus-completing-read "Sign this part with what signature" mapcar car nil] 9])
(defalias 'mml-smime-get-file-cert #[0 "\3011\302\303\304\305\306\307%D0\207\210\305\207" [smime-certificate-directory (error) certfile read-file-name "File with recipient's S/MIME certificate: " nil t ""] 7])
(defalias 'mml-smime-get-dns-cert #[0 "\300\211\211\211\3011K?\205F\302\303\304\206\305\"\306\212\214\307 \210\310\311!*\206$\305!A@\"\262\312!\211\262\203=\313\314!D\262\202\315\316\"\262\2020\210\202L\210\207" [nil (quit) read-from-minibuffer format "%sLookup certificate for: " "" mail-extract-address-components message-narrow-to-headers message-fetch-field "to" smime-cert-by-dns certfile buffer-name format-message "`%s' not found. "] 9])
(defalias 'mml-smime-get-ldap-cert #[0 "\301\211\211\211\3021K?\205F\303\304\305\206\306\"\212\214\307 \210\310\311!*\206$\306!A@\"\262\312!\211\262\203=\313\314!D\262\202\315\316\"\262\2020\210\202L\210\207" [gnus-extract-address-components nil (quit) read-from-minibuffer format "%sLookup certificate for: " "" message-narrow-to-headers message-fetch-field "to" smime-cert-by-ldap certfile buffer-name format-message "`%s' not found. "] 9])
(autoload 'gnus-completing-read "gnus-util")
(defalias 'mml-smime-openssl-encrypt-query #[0 "\300\211\211\204H\301\302\303\304\305\300\211\306&!\211\307\267\2028\310\311 \"\262\210\202?\310\312 \"\262\210\202?\310\313 \"\262\210\202?\314\315\316#\266\317\320!?\262
\202
\207" [nil read gnus-completing-read "Fetch certificate from" ("dns" "ldap" "file") t "ldap" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (dns 23 ldap 34 file 45)) append mml-smime-get-dns-cert mml-smime-get-ldap-cert mml-smime-get-file-cert error "cl-ecase failed: %s, %s" (dns ldap file) y-or-n-p "Add more recipients? "] 10])
#@19 

(fn HANDLE CTL)
(defalias 'mml-smime-openssl-verify #[514 "\303\304\305\"r\211q\210\306\307\"\216\310\311\312\313@#!\210eb\210\314\315\211@;\203)\211@\262
\202/\211A@@\262
\"c\210\314\316\311\312\317@#\"c\210\314\320\311\312\321@#\"c\210\314\322\311\312\323@#\"c\210\324!\203`\325!\210p\326 	\204k\n\205m\327 \330\211rq\210\331 )\262
\204\211\332\333\334\335\336P$\266\202%
\337ed\"\203\323\340ed\"\203\323\303\304\305\"r\211q\210\306\341\"\216\310!\210eb\210\342\343\330\305#\203\313\344e`\"\203\304\345\346e`\"\"\262e`|\210\202\254\347\350\"\262*\210\311\312\351	@#\206\336\352\227\235\204\354\332\333\353\"\210\202\375\203\370\354\333\355\"\210\202\375\354\333\356\"\210\354\335\357\311\312\351\f@#\360\203
\361\362\363	\364#P\202
\365\366\367\331 \360\260	\"\266*\210
\207" [smime-details-buffer smime-CA-file smime-CA-directory generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-buffer-substring get-text-property 0 buffer format "Content-Type: %s; " "protocol=\"%s\"; " protocol "micalg=\"%s\"; " micalg "boundary=\"%s\"\n\n" boundary get-buffer kill-buffer smime-noverify-buffer smime-verify-buffer nil buffer-string mm-sec-error gnus-info "Failed" gnus-details "OpenSSL failed to verify message integrity:\n-------------------------------------------\n" smime-pkcs7-region smime-pkcs7-certificates-region #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] re-search-forward "-----END CERTIFICATE-----" smime-pkcs7-email-region append smime-buffer-as-string-region mapcar downcase from "" "Sender address forged" mm-sec-status "Ok (sender authenticated)" "Ok (sender not trusted)" "Sender claimed to be: " "\n" "Addresses in certificate: " mapconcat identity ", " "No addresses found in certificate. (Requires OpenSSL 0.9.6 or later.)" "\n\nOpenSSL output:\n---------------\n" "\nCertificate(s) inside S/MIME signature:\n---------------------------------------\n"] 19 (#$ . 6382)])
#@19 

(fn HANDLE CTL)
(defalias 'mml-smime-openssl-verify-test #[514 "\207" [smime-openssl-program] 3 (#$ . 8413)])
(autoload 'mml-compute-boundary "mml")
#@13 

(fn CONT)
(defalias 'mml-smime-epg-sign #[257 "\301
!eb\210\302\303\"\211@
A\304\305\"c\210\211\203\"\304\306\236A\227\"c\210\307c\210\304\310\"c\210db\210\304\310\"c\210\311c\210\312!\313\261\210db\210\304\314\"c\210db\207" [epg-digest-algorithm-alist mml-compute-boundary mml-secure-epg-sign CMS format "Content-Type: multipart/signed; boundary=\"%s\";\n" "	micalg=%s; " "  protocol=\"application/pkcs7-signature\"\n" "\n--%s\n" "Content-Type: application/pkcs7-signature; name=smime.p7s\nContent-Transfer-Encoding: base64\nContent-Disposition: attachment; filename=smime.p7s\n\n" base64-encode-string "\n" "--%s--\n"] 9 (#$ . 8571)])
#@13 

(fn CONT)
(defalias 'mml-smime-epg-encrypt #[257 "\300\301\"ed|\210eb\210\302c\210\303
!c\210db\207" [mml-secure-epg-encrypt CMS "Content-Type: application/pkcs7-mime;\n smime-type=enveloped-data;\n name=smime.p7m\nContent-Transfer-Encoding: base64\nContent-Disposition: attachment; filename=smime.p7m\n\n" base64-encode-string] 4 (#$ . 9226)])
#@19 

(fn HANDLE CTL)
(defalias 'mml-smime-epg-verify #[514 "\3002\210\301\211\211\302\303\304\305@#\206\306\307#\211\262\2033\310A\306\301\307$\206-\310A\311\301\307$\211\262\204>\312\313\314\"\210\315\300\"\210\316\317\320#\262\321\322!\262\3231Z\324\325!#0\210\202y\312\313\326\"\210\327\330@\331=\203l\332\202p\333\334\"\"\210\315\300\"\266\327\313\335\336\337\"!\"\210\266\2030\207" [error nil mm-find-raw-part-by-type get-text-property 0 protocol "application/pkcs7-signature" t mm-find-part-by-type "application/x-pkcs7-signature" mm-sec-error gnus-info "Corrupted" throw string-replace "\n" "
\n" epg-make-context CMS (error) epg-verify-string mm-get-part "Failed" mm-sec-status gnus-details quit "Quit." format "%S" epg-verify-result-to-string epg-context-result-for verify] 11 (#$ . 9580)])
#@19 

(fn HANDLE CTL)
(defalias 'mml-smime-epg-verify-test #[514 "\300\207" [t] 3 (#$ . 10416)])
(provide 'mml-smime)