Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
.dir-locals.el	105 B	-rw-r--r--
canlock.elc	5.71 KB	-rw-r--r--
deuglify.elc	7.85 KB	-rw-r--r--
gmm-utils.elc	5.79 KB	-rw-r--r--
gnus-agent.elc	119.17 KB	-rw-r--r--
gnus-art.elc	262.11 KB	-rw-r--r--
gnus-async.elc	11.71 KB	-rw-r--r--
gnus-bcklg.elc	2.85 KB	-rw-r--r--
gnus-bookmark.elc	25.33 KB	-rw-r--r--
gnus-cache.elc	24.08 KB	-rw-r--r--
gnus-cite.elc	26.28 KB	-rw-r--r--
gnus-cloud.elc	18.45 KB	-rw-r--r--
gnus-cus.elc	39.5 KB	-rw-r--r--
gnus-delay.elc	4.61 KB	-rw-r--r--
gnus-demon.elc	7.52 KB	-rw-r--r--
gnus-diary.elc	8.41 KB	-rw-r--r--
gnus-dired.elc	8.03 KB	-rw-r--r--
gnus-draft.elc	12.03 KB	-rw-r--r--
gnus-dup.elc	4.59 KB	-rw-r--r--
gnus-eform.elc	4.76 KB	-rw-r--r--
gnus-fun.elc	9.93 KB	-rw-r--r--
gnus-gravatar.elc	4.15 KB	-rw-r--r--
gnus-group.elc	154.92 KB	-rw-r--r--
gnus-html.elc	13.41 KB	-rw-r--r--
gnus-icalendar.elc	40.93 KB	-rw-r--r--
gnus-int.elc	58.83 KB	-rw-r--r--
gnus-kill.elc	19.24 KB	-rw-r--r--
gnus-logic.elc	5.15 KB	-rw-r--r--
gnus-mh.elc	2.96 KB	-rw-r--r--
gnus-ml.elc	6.08 KB	-rw-r--r--
gnus-mlspl.elc	6.48 KB	-rw-r--r--
gnus-msg.elc	84.49 KB	-rw-r--r--
gnus-notifications.elc	5.38 KB	-rw-r--r--
gnus-picon.elc	8.06 KB	-rw-r--r--
gnus-range.elc	11.97 KB	-rw-r--r--
gnus-registry.elc	34.53 KB	-rw-r--r--
gnus-rfc1843.elc	1.59 KB	-rw-r--r--
gnus-salt.elc	27.54 KB	-rw-r--r--
gnus-score.elc	74.27 KB	-rw-r--r--
gnus-sieve.elc	8.14 KB	-rw-r--r--
gnus-spec.elc	12.88 KB	-rw-r--r--
gnus-srvr.elc	50.09 KB	-rw-r--r--
gnus-start.elc	138.21 KB	-rw-r--r--
gnus-sum.elc	431.26 KB	-rw-r--r--
gnus-topic.elc	46.53 KB	-rw-r--r--
gnus-undo.elc	4.69 KB	-rw-r--r--
gnus-util.elc	49.29 KB	-rw-r--r--
gnus-uu.elc	55.9 KB	-rw-r--r--
gnus-vm.elc	2.42 KB	-rw-r--r--
gnus-win.elc	10.95 KB	-rw-r--r--
gnus.elc	158.84 KB	-rw-r--r--
gssapi.elc	2.27 KB	-rw-r--r--
legacy-gnus-agent.elc	6.35 KB	-rw-r--r--
mail-source.elc	28.21 KB	-rw-r--r--
message.elc	237.92 KB	-rw-r--r--
mm-archive.elc	2.95 KB	-rw-r--r--
mm-bodies.elc	5.84 KB	-rw-r--r--
mm-decode.elc	55.66 KB	-rw-r--r--
mm-encode.elc	6.13 KB	-rw-r--r--
mm-extern.elc	4.25 KB	-rw-r--r--
mm-partial.elc	3.05 KB	-rw-r--r--
mm-url.elc	9.75 KB	-rw-r--r--
mm-util.elc	24.33 KB	-rw-r--r--
mm-uu.elc	21.99 KB	-rw-r--r--
mm-view.elc	16.82 KB	-rw-r--r--
mml-sec.elc	35.2 KB	-rw-r--r--
mml-smime.elc	10.44 KB	-rw-r--r--
mml.elc	44.72 KB	-rw-r--r--
mml1991.elc	7.59 KB	-rw-r--r--
mml2015.elc	25.61 KB	-rw-r--r--
nnagent.elc	10.44 KB	-rw-r--r--
nnbabyl.elc	16.84 KB	-rw-r--r--
nndiary.elc	38.56 KB	-rw-r--r--
nndir.elc	2.67 KB	-rw-r--r--
nndoc.elc	30.1 KB	-rw-r--r--
nndraft.elc	10.55 KB	-rw-r--r--
nneething.elc	11.45 KB	-rw-r--r--
nnfolder.elc	32.39 KB	-rw-r--r--
nngateway.elc	2.88 KB	-rw-r--r--
nnheader.elc	34.72 KB	-rw-r--r--
nnimap.elc	73.06 KB	-rw-r--r--
nnir.elc	62.86 KB	-rw-r--r--
nnmail.elc	52.09 KB	-rw-r--r--
nnmaildir.elc	90.83 KB	-rw-r--r--
nnmairix.elc	72.33 KB	-rw-r--r--
nnmbox.elc	18.57 KB	-rw-r--r--
nnmh.elc	15.14 KB	-rw-r--r--
nnml.elc	33.63 KB	-rw-r--r--
nnnil.elc	1.63 KB	-rw-r--r--
nnoo.elc	8.63 KB	-rw-r--r--
nnregistry.elc	1.72 KB	-rw-r--r--
nnrss.elc	29.02 KB	-rw-r--r--
nnspool.elc	15.72 KB	-rw-r--r--
nntp.elc	111.69 KB	-rw-r--r--
nnvirtual.elc	18.31 KB	-rw-r--r--
nnweb.elc	16.67 KB	-rw-r--r--
score-mode.elc	4.93 KB	-rw-r--r--
smiley.elc	5.31 KB	-rw-r--r--
smime.elc	18.76 KB	-rw-r--r--
spam-report.elc	11.41 KB	-rw-r--r--
spam-stat.elc	19.39 KB	-rw-r--r--
spam-wash.elc	1.23 KB	-rw-r--r--
spam.elc	80.84 KB	-rw-r--r--

Code Editor : mml-smime.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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\304\305\306\"\210\304\307\306\"\210\300\310!\210\311\312\313\314\315\316\317\320&\207" [require smime mm-decode mml-sec autoload message-narrow-to-headers "message" message-fetch-field epg custom-declare-variable mml-smime-use 'epg "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\304\305\306\307&\210\310\301\302\311#\210\300\312\313\314\304\305\306\315&\210\310\312\313\311#\210\300\316\317\320\304\305\306\321&\210\300\322\317\323\304\305\324\325\306\307&	\210\300\326\317\327\304\305\324\325\306\307&	\207" [custom-declare-variable mml-smime-cache-passphrase mml-secure-cache-passphrase "If t, cache passphrase." :group mime-security :type boolean make-obsolete-variable "25.1" mml-smime-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`mml-smime-cache-passphrase'." integer mml-smime-signers nil "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 "If t, use message sender so find a key to sign with." :version "24.4" mml-smime-encrypt-to-self "If t, add your own key ID to recipient list when encryption."] 10)
(defalias 'mml-smime-sign #[(cont) "	\236A@\211\203�\n!\202�\304\305!)\207" [mml-smime-use mml-smime-function-alist func cont error "Cannot find sign function"] 3])
(defalias 'mml-smime-encrypt #[(cont) "\304	\2368\211\203�\n!\202�\305\306!)\207" [mml-smime-use mml-smime-function-alist func cont 2 error "Cannot find encrypt function"] 4])
(defalias 'mml-smime-sign-query #[nil "\303	\2368\211\205\f�\n )\207" [mml-smime-use mml-smime-function-alist func 3] 4])
(defalias 'mml-smime-encrypt-query #[nil "\303	\2368\211\205\f�\n )\207" [mml-smime-use mml-smime-function-alist func 4] 4])
(defalias 'mml-smime-verify #[(handle ctl) "\305	\2368\211\203�\n\f\"\202�)\207" [mml-smime-use mml-smime-function-alist func handle ctl 5] 4])
(defalias 'mml-smime-verify-test #[(handle ctl) "\305	\2368\211\205�\n\f\")\207" [mml-smime-use mml-smime-function-alist func handle ctl 6] 4])
(defalias 'mml-smime-openssl-sign #[(cont) "\204\f�\301\300!\210\302\303!\210\304@A!\210eb\210\305\306\307\310#\203&�\311\312\310\211#\210\202�db\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"] 4])
(defalias 'mml-smime-openssl-encrypt #[(cont) "\306\211\211\211\211
\211A\242\211\203(�\n:\203\n�\n@\307=\203\n�\nA\fB\202\n�\f\211A\242\211\203c�\310\n!\204>�\311\n!\204E�\nB\202(�\312\313\314\"!r\nq\210\315ed	#\210)	B	B\202(�\316!\203z�\211A\242\211\203\213�\317\n!\210\202i�\211A\242\211\203\213�\317\n!\210\202z�-db\207" [tmpfiles file tmp certfiles certnames cont nil certfile file-exists-p get-buffer make-temp-file expand-file-name "mml." write-region smime-encrypt-buffer delete-file mm-tmp-directory] 5])
(defalias 'mml-smime-openssl-sign-query #[nil "\204\f�\302\300!\210\303\304!\210\305G\306U\203�@A@\202N�\307\212\214\310 \210\311\312!*\206)�\313!A@\211\2054�\314	!)\206N�\314\315\316\317\320\"\321\211\211\242<\205K�@@&!D\207" [smime-keys from 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] 10])
(defalias 'mml-smime-get-file-cert #[nil "\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 #[nil "\304\211\211\211\3051K�?\205G�\306\307\310	\206�\311\"\312\212\214\313 \210\314\315!*\206(�\311!A@\"\316\n!\211\203?�\317\320!D\211\202
�\321\322\n\"\202\f�0\202O�\210\202P�\210,\207" [cert bad who result 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. "] 6])
(defalias 'mml-smime-get-ldap-cert #[nil "\305\211\211\211\3061K�?\205G�\307\310\311	\206�\312\"\f\212\214\313 \210\314\315!*\206(�\312!A@\"\316\n!\211\203?�\317\320!D\211\202
�\321\322\n\"\202\f�0\202O�\210\202P�\210,\207" [cert bad who result 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. "] 6])
(autoload 'gnus-completing-read "gnus-util")
(defalias 'mml-smime-openssl-encrypt-query #[nil "\303\211\204E�\304\305\306\307\310\303\211\311&!\211\312\267\2025�\313	\314 \"\202;�\313	\315 \"\202;�\313	\316 \"\202;�\317\320\n\321#\210)\322\323!?\211\203�	*\207" [done certs #1=#:temp 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 26 ldap 35 file 44)) 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? "] 9])
(defalias 'mml-smime-openssl-verify #[(handle ctl) "\306\307!rq\210\310\216\311\312\313\314	@#!\210eb\210\315\316	\211@;\203&�\211@\262\202,�\211A@@\262\"c\210\315\317\312\313\320	@#\"c\210\315\321\312\313\322	@#\"c\210\315\323\312\313\324	@#\"c\210\325\n!\203Z�\326\n!\210p\327 \204e�\f\205g�\330 \331\211:;<=r\nq\210\332 )<\204\213�\333\334\335\336\337
P$\210\202%\340ed\"\203\325�\341ed\"\203\325�\306\307!>r>q\210\342\216\311=!\210eb\210\343\344\331\345#\203\315�\346e`\"\203\306�\347\350e`\":\":e`|\210\202\255�\351\352:\":+\312\313\353	@#\206\337�\354\227:\235\204\356�\333\334\355\"\210\202�;\203\373�\356\334\357\"\210\202�\356\334\360\"\210\356\336\361\312\313\353	@#\362:\203\363\364\365:\366#P\202\367\370
\371\332 \362\260	\"\210.?\207" [#1=#:temp-buffer ctl smime-details-buffer smime-CA-file smime-CA-directory openssl-output generate-new-buffer " *temp*" #[nil "\301!\205	�\302!\207" [#1# 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 #[nil "\301!\205	�\302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] re-search-forward "-----END CERTIFICATE-----" t 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" addresses good-certificate good-signature buf #2# handle] 11])
(defalias 'mml-smime-openssl-verify-test #[(handle ctl) "\207" [smime-openssl-program] 1])
(autoload 'mml-compute-boundary "mml")
(defalias 'mml-smime-epg-sign #[(cont) "\306!eb\210\307\310\"\211@\nA\311\312	\"c\210\f\203&�\311\313\f
\236A\227\"c\210\314c\210\311\315	\"c\210db\210\311\315	\"c\210\316c\210\317!\320\261\210db\210\311\321	\"c\210db,\207" [cont boundary pair signature micalg 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"] 5])
(defalias 'mml-smime-epg-encrypt #[(cont) "\304\305	!\306\307	\"ed|\210eb\210\310c\210\311!c\210db+\207" [inhibit-redisplay cont boundary cipher t mml-compute-boundary 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] 3])
(defalias 'mml-smime-epg-verify #[(handle ctl) "\3062\231�\307\310\211\211\211\211\311&\312\313\314&@#\206�\315\307#\211\203=�\316'A\315\310\307$\2068�\316'A\317\310\307$\211\204H�\320\321\322\"\210\323\306'\"\210\324\325\326	#\327\330!\3311c�\332\f\333!	#\2110\202\211�\320\321\334\"\210@\335=\203z�\336\337\340\"\210\202\203�\336\337\341\342\"\"\210\323\306'\")\210\336\321\343\344\f\345\"!\"\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/pkcs7-signature" mm-find-part-by-type "application/x-pkcs7-signature" mm-sec-error gnus-info "Corrupted" throw replace-regexp-in-string "\n" "
\n" epg-make-context CMS (error) epg-verify-string mm-get-part "Failed" quit mm-sec-status gnus-details "Quit." format "%S" epg-verify-result-to-string epg-context-result-for verify ctl handle] 6])
(defalias 'mml-smime-epg-verify-test #[(handle ctl) "\300\207" [t] 1])
(provide 'mml-smime)

${this.title}

Code Editor : mml-smime.elc