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 : canlock.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\302\303\304\305\306\307%\210\310\311\304\312\313\314\306\303&\210\310\315\311\316\313\317\306\303&\210\310\320\304\321\313\322\306\303&\207" [require sha1 custom-declare-group canlock nil "The Cancel-Lock feature." :group news custom-declare-variable canlock-password "Password to use when signing a Cancel-Lock or a Cancel-Key header." :type (radio (const :format "Not specified " nil) (string :tag "Password")) canlock-password-for-verify "Password to use when verifying a Cancel-Lock or a Cancel-Key header." (radio (const :format "Not specified " nil) (string :tag "Password")) canlock-force-insert-header "If non-nil, insert a Cancel-Lock or a Cancel-Key header even if the\nbuffer does not look like a news message." boolean] 8)
#@72 Make a SHA-1 digest of MESSAGE as a unibyte string of length 20 bytes.
(defalias 'canlock-sha1 #[(message) "\301\302\211\303$\207" [message sha1 nil binary] 5 (#$ . 1172)])
#@27 Make a Cancel-Key header.
(defalias 'canlock-make-cancel-key #[(message-id password) "G\304V\203�\305!\306\307GZ\310\"P\311\312\313#\311\314\313#\315\305	\305\nP!P!!*\207" [password opad ipad message-id 20 canlock-sha1 make-string 64 0 mapconcat #[(byte) "\301\302\303\"!\207" [byte char-to-string logxor 54] 4] "" #[(byte) "\301\302\303\"!\207" [byte char-to-string logxor 92] 4] base64-encode-string] 6 (#$ . 1352)])
#@47 Narrow the buffer to the head of the message.
(defalias 'canlock-narrow-to-header #[nil "\302eb\303\304\305\306	!\"\302\307#\203�\310\224\202�db})\207" [case-fold-search mail-header-separator nil re-search-forward format "^$\\|^%s$" regexp-quote t 0] 6 (#$ . 1791)])
#@66 Delete Cancel-Key or Cancel-Lock headers in the narrowed buffer.
(defalias 'canlock-delete-headers #[nil "\301eb\210\302\303\304\301#\205#�\305\224\302\306\304\301#\203�\305\224b\202�d|\210\202�)\207" [case-fold-search t re-search-forward "^Cancel-\$Key\\|Lock\$:" nil 0 "^[^	 ]"] 5 (#$ . 2067)])
#@184 Return a list of the values of Cancel-Lock header.
If KEY is non-nil, look for a Cancel-Key header instead.  The buffer
is expected to be narrowed to just the headers of the message.
(defalias 'canlock-fetch-fields #[(&optional key) "\305\203	�\306\202\n�\307!\310\211\311\211\2058�\312\f\313\"\2036�\314\315\211A\242\211\"\203�\316\f\317\"\nB\202�\n\237,\207" [key case-fold-search rest fields field mail-fetch-field "Cancel-Key" "Cancel-Lock" nil t split-string "[	\n
 ,]+" string-match "^sha1:" substring 5] 5 (#$ . 2377)])
#@137 Return a Message-ID in Cancel, Supersedes or Replaces header.
The buffer is expected to be narrowed to just the headers of the
message.
(defalias 'canlock-fetch-id-for-key #[nil "\301\302!\211\205�\303\304\"\205�\305\306\")\206 �\301\307!\206 �\301\310!\207" [cancel mail-fetch-field "Control" string-match "^cancel[	 ]+\$<[^	\n @<>]+@[^	\n @<>]+>\$" match-string 1 "Supersedes" "Replaces"] 4 (#$ . 2924)])
#@62 Insert a Cancel-Key and/or a Cancel-Lock header if possible.
(defalias 'canlock-insert-header #[(&optional id-for-key id-for-lock password) "\306\211\211\211\212\214\307 \210\f\206�\310\311!\211\203E�
\204 �\312 \310\313!\211\2035�\314\315\n\"\2035�\306\202?�\204?�\310\316!\317 \210db\210)\205\267�
\204Y�\204Y�\320\321!\202\267�\204h�\206f�\322\323!;\203v�G\324U\203|�\320\325!\202\267�
\205\205�\326
\"\205\221�\326\"	\204\240�\204\240�\320\327!\202\267�	\203\252�\330	\331\261\210\205\267�\332\333\334!!\331\261-\207" [key-for-lock key-for-key control news canlock-force-insert-header id-for-key nil canlock-narrow-to-header mail-fetch-field "Newsgroups" canlock-fetch-id-for-key "Control" string-match "^cancel[	 ]+<[^	\n @<>]+@[^	\n @<>]+>" "Message-ID" canlock-delete-headers message "There are no Message-ID(s)" read-passwd "Password for Canlock: " 0 "Password for Canlock is bad" canlock-make-cancel-key "Couldn't insert Canlock header" "Cancel-Key: sha1:" "\n" "Cancel-Lock: sha1:" base64-encode-string canlock-sha1 id-for-lock password canlock-password] 4 (#$ . 3344)])
#@124 Verify Cancel-Lock or Cancel-Key in BUFFER.
If BUFFER is nil, the current buffer is assumed.  Signal an error if
it fails.
(defalias 'canlock-verify #[(&optional buffer) "\306\211\211\211\211\211\211\211\211 \212!\203�!q\210\214~\210\307 \210\310\311! \310  \204>�\204>�\312\202P�\313 \314\315!
\204P�\f\204P�\316*\203^�\317\320\"\202\"\206f�\321\322!\211;\203s�G\323U\203y�\317\324!\202 \203\250�
\203\235�\325
\" \203\235�\204\235�\n \211A \242\230\202\207�\203\245�\326\202\246�\327 \306\203\332�\f\203\317�\330\331\325\f\"!!\203\317�\204\317�	\211A\242\230\203\327�\326\202\330�\327\327 D\235\205\345�\327 \203\372�\203\372�\332\333 #\210\202\203\332\334\"\210\202 \203\332\335 \"\210.	\207" [match key-for-lock key-for-key password id-for-lock id-for-key nil canlock-narrow-to-header canlock-fetch-fields key "There are neither Cancel-Lock nor Cancel-Key headers" canlock-fetch-id-for-key mail-fetch-field "Message-ID" "There are no Message-ID(s)" error "%s" read-passwd "Password for Canlock: " 0 "Password for Canlock is bad" canlock-make-cancel-key "good" "bad" base64-encode-string canlock-sha1 message "Cancel-Key is %s, Cancel-Lock is %s" "Cancel-Lock is %s" "Cancel-Key is %s" errmsg locks keys buffer canlock-password-for-verify] 10 (#$ . 4474) nil])
(provide 'canlock)

${this.title}

Code Editor : canlock.elc