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 : gnus-async.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\307\310\301%\210\311\312\313\314\315DD\316\317\320%\210\311\305\313\314\321DD\322\317\323%\210\311\324\313\314\325DD\326\317\327%\210\311\330\313\314\331DD\332\317\323%\210\311\333\313\314\334DD\335\317\314%\210\311\336\313\314\337DD\340\341\342\317\314&\207" [require gnus gnus-sum nntp custom-declare-group gnus-asynchronous nil "Support for asynchronous operations." :group custom-declare-variable gnus-use-article-prefetch funcall function #[0 "\300\207" [30] 1] "If non-nil, prefetch articles in groups that allow this.\nIf a number, prefetch only that many articles forward;\nif t, prefetch as many articles as possible." :type (choice (const :tag "off" nil) (const :tag "all" t) (integer :tag "some" 0)) #[0 "\300\207" [nil] 1] "If nil, inhibit all Gnus asynchronicity.\nIf non-nil, let the other asynch variables be heeded." boolean gnus-prefetched-article-deletion-strategy #[0 "\300\207" [(read exit)] 1] "List of symbols that say when to remove articles from the prefetch buffer.\nPossible values in this list are `read', which means that\narticles are removed as they are read, and `exit', which means\nthat all articles belonging to a group are removed on exit\nfrom that group." (set (const read) (const exit)) gnus-use-header-prefetch #[0 "\300\207" [nil] 1] "If non-nil, prefetch the headers to the next group." gnus-async-prefetch-article-p #[0 "\300\207" [gnus-async-unread-p] 1] "Function called to say whether an article should be prefetched or not.\nThe function is called with one parameter -- the article data.\nIt should return non-nil if the article is to be prefetched." gnus-async-post-fetch-function #[0 "\300\207" [ignore] 1] "Function called after an article has been prefetched.\nThe function will be called narrowed to the region of the article\nthat was fetched." :version "27.1"] 8)
(defvar gnus-async-prefetch-article-buffer " *Async Prefetch Article*")
(defvar gnus-async-article-alist nil)
(defvar gnus-async-article-semaphore '(nil))
(defvar gnus-async-fetch-list nil)
(defvar gnus-async-current-prefetch-group nil)
(defvar gnus-async-current-prefetch-article nil)
(defvar gnus-async-timer nil)
(defvar gnus-async-prefetch-headers-buffer " *Async Prefetch Headers*")
(defvar gnus-async-header-prefetched nil)
#@86 Say whether GROUP is fetched from a server that supports asynchronicity.

(fn GROUP)
(defalias 'gnus-group-asynchronous-p #[257 "\300\301!!\207" [gnus-asynchronous-p gnus-find-method-for-group] 4 (#$ . 2720)])
#@51 Wait until SEMAPHORE is released.

(fn SEMAPHORE)
(defalias 'gnus-async-get-semaphore #[257 "\211J\300C\244G\301U?\205�\302\303!\210\202��\207" [nil 2 sleep-for 1] 3 (#$ . 2937)])
#@36 Release SEMAPHORE.

(fn SEMAPHORE)
(defalias 'gnus-async-release-semaphore #[257 "\211J\300\241\207" [nil] 3 (#$ . 3124)])
#@20

(fn &rest FORMS)
(defalias 'gnus-async-with-semaphore '(macro . #[128 "\300\301\302BB\303BB\207" [unwind-protect progn (gnus-async-get-semaphore 'gnus-async-article-semaphore) ((gnus-async-release-semaphore 'gnus-async-article-semaphore))] 5 (#$ . 3253)]))
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\311\"\207" [function-put gnus-async-with-semaphore lisp-indent-function 0 put edebug-form-spec t gnus-add-shutdown gnus-async-close gnus] 5)
(defalias 'gnus-async-close #[0 "\211\211\205�\305\306	!\211!\205�	)\203�\307!\210\310 \210\210\n\211\211\2050�\305\306	!\211!\2050�	)\203;�\307!\210\310 \210\210\311\211\211\207" [gnus-async-prefetch-article-buffer buffer gnus-async-prefetch-headers-buffer gnus-async-article-alist gnus-async-header-prefetched buffer-live-p get-buffer kill-buffer gnus-prune-buffers nil] 5])
(defalias 'gnus-async-set-buffer #[0 "\301\302\"\207" [gnus-async-prefetch-article-buffer nnheader-set-temp-buffer t] 3])
#@19 Stop prefetching.
(defalias 'gnus-async-halt-prefetch #[0 "\301\211\207" [gnus-async-fetch-list nil] 2 (#$ . 4231)])
#@105 Possibly prefetch several articles starting with the article after ARTICLE.

(fn GROUP ARTICLE SUMMARY)
(defalias 'gnus-async-prefetch-next #[771 "\211\211\205�\305\306!\211!\205�)\205_�	\205_�\307!\205_�r\nq\210\310\">\262A@\211\205\\�\f\203F�\3111A�\312\304!0\202E�\210\202F�\210\313\314\315\316\317\320\321\322\n\n#\323\"\324$#\211\262)\207" [buffer gnus-asynchronous gnus-summary-buffer gnus-newsgroup-data gnus-async-timer buffer-live-p get-buffer gnus-group-asynchronous-p gnus-data-find-in (error) cancel-timer run-with-idle-timer 0.1 nil make-byte-code 0 "\304\305\300\302@\301#)\207" vconcat vector [inhibit-quit nil gnus-async-prefetch-article] 4] 15 (#$ . 4356)])
#@102 Possibly prefetch several articles starting with ARTICLE.

(fn GROUP ARTICLE SUMMARY &optional NEXT)
(defalias 'gnus-async-prefetch-article #[1027 "\211\205�\306\307!\211!\205�)\204 �\310\216\311\312!\210\313\211)\207\n\205\314 \205\211\2039�\315\216\311\312!\210	\210	A)\211\316\317!\205\211\205S�\306\307!\211!\205S�)\205\203_�	\205\320\216\311\312!\210\204\300�	?\262\313\f\321\">\262\313\211A\262\242\211\262\203\273�\247\203\226�\322S\211\262!\202\227�\203\273�\323	@\211\262\"\204{�\322!\203{�
!\203{�	B\202{�	\237\266\203\310�	@\262)\205\205rq\210\313\324 \210db\210\325 \262\326%\307!\203�\327\330\331\n$\210\332\"*\262)\266\202\207" [buffer gnus-async-fetch-list gnus-asynchronous gnus-use-article-prefetch gnus-newsgroup-data gnus-async-prefetch-article-p buffer-live-p get-buffer #[0 "\300\301!\207" [gnus-async-release-semaphore gnus-async-article-semaphore] 2] gnus-async-get-semaphore gnus-async-article-semaphore nil gnus-alive-p #[0 "\300\301!\207" [gnus-async-release-semaphore gnus-async-article-semaphore] 2] t gnus-group-asynchronous-p #[0 "\300\301!\207" [gnus-async-release-semaphore gnus-async-article-semaphore] 2] gnus-data-find-in natnump gnus-async-prefetched-article-entry gnus-async-set-buffer point-marker gnus-make-async-article-function gnus-message 9 "Prefetching article %d in group %s" gnus-request-article gnus-async-prefetch-article-buffer nntp-server-buffer nnheader-callback-function gnus-async-current-prefetch-group gnus-async-current-prefetch-article] 14 (#$ . 5057)])
#@67 Return a callback function.

(fn GROUP ARTICLE MARK SUMMARY NEXT)
(defalias 'gnus-make-async-article-function #[1285 "\300\301\302\303\304					%\305\"\306\307%\207" [make-byte-code 257 "\305\300\301\302\303\304&\207" vconcat vector [gnus-async-article-callback] 8 "\n\n(fn ARG)"] 15 (#$ . 6670)])
#@104 Function called when an async article is done being fetched.

(fn ARG GROUP ARTICLE MARK SUMMARY NEXT)
(defalias 'gnus-async-article-callback #[1542 "\212\306\203S�\307 \210\212\214d}\210	\203&�\310!\203&�\214d}\210\311\"\210)\312\313!\2030�\313!\210\n\2038�\n!\210*\314\216\315\316!\210\317\320#\321 \257B)\211\205d�\322\323\f!\211!\205d�\f)\204u�\324\216\315\316!\210\306\211)\202{�\325\326$)\207" [gnus-async-current-prefetch-article gnus-agent gnus-async-post-fetch-function gnus-async-article-alist buffer gnus-async-fetch-list nil gnus-async-set-buffer gnus-agent-group-covered-p gnus-agent-store-article fboundp gnus-html-prefetch-images #[0 "\300\301!\207" [gnus-async-release-semaphore gnus-async-article-semaphore] 2] gnus-async-get-semaphore gnus-async-article-semaphore format "%s-%d" point-max-marker buffer-live-p get-buffer #[0 "\300\301!\207" [gnus-async-release-semaphore gnus-async-article-semaphore] 2] gnus-async-prefetch-article t] 12 (#$ . 6981)])
#@65 Return non-nil if DATA represents an unread article.

(fn DATA)
(defalias 'gnus-async-unread-p #[257 "\211A@U\207" [gnus-unread-mark] 3 (#$ . 7986)])
#@89 See whether we have ARTICLE from GROUP and put it in BUFFER.

(fn GROUP ARTICLE BUFFER)
(defalias 'gnus-async-request-fetched-article #[771 "\247\205:�\232\203�	=\203�\303!\210\304\"\211\2058�\212\305 \210\306A@AA@#\210\307\n>\2036�\310!\210)\311\262\207" [gnus-async-current-prefetch-group gnus-async-current-prefetch-article gnus-prefetched-article-deletion-strategy gnus-async-wait-for-article gnus-async-prefetched-article-entry gnus-async-set-buffer copy-to-buffer read gnus-async-delete-prefetched-entry t] 8 (#$ . 8143)])
#@84 Wait until ARTICLE is no longer the currently-being-fetched article.

(fn ARTICLE)
(defalias 'gnus-async-wait-for-article #[257 "\212\304 \210p;\203�\305!\202�\306\211\2036�\211A\262\242\211\262\2036�A@=\203�\211@\262\306\262\202�\205R�\307!\310>\203F�\202R�\311\312!!\210\313\"\306\266\204\262p\306\314\205\246�\3151\220�=\205\214�\211T\262\316!\203x�\314\262	\204e�\211\317U\203e�\320\321\322\"\210\323\202e�0\202\235�\210\211\317V\203\231�\306\324\325\306\"\210	\205\246�\320\321\326\"*\266\204)\207" [nntp-connection-alist nntp-have-messaged nntp-server-buffer gnus-async-current-prefetch-article gnus-async-set-buffer get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq 0 (quit) nntp-accept-process-output 3 gnus-message 5 "Waiting for async article..." t signal quit ""] 9 (#$ . 8692)])
#@49 Delete ENTRY from buffer and alist.

(fn ENTRY)
(defalias 'gnus-async-delete-prefetched-entry #[257 "\3011�\211A@AA@|\210\211A@\302\211\223\210\211AA@\302\211\2230\202#�\210\202$�\210\303\216\304\305!\210\306\"\211)\207" [gnus-async-article-alist (error) nil #[0 "\300\301!\207" [gnus-async-release-semaphore gnus-async-article-semaphore] 2] gnus-async-get-semaphore gnus-async-article-semaphore delete] 4 (#$ . 9553)])
#@78 Remove all articles belonging to GROUP from the prefetch buffer.

(fn GROUP)
(defalias 'gnus-async-prefetch-remove-group #[257 "\302!\205-�\303>\205-�\212\304 \210	\211\205*�\211@\3058\232\203#�\306!\210A\266\202\202�\262)\207" [gnus-prefetched-article-deletion-strategy gnus-async-article-alist gnus-group-asynchronous-p exit gnus-async-set-buffer 3 gnus-async-delete-prefetched-entry] 6 (#$ . 9984)])
#@86 Return the entry for ARTICLE in GROUP if it has been prefetched.

(fn GROUP ARTICLE)
(defalias 'gnus-async-prefetched-article-entry #[514 "\212\301 \210\302\303\304#\")\211\203@�\211A@AA@U\203@�\30512�\211A@\306\211\223\210\211AA@\306\211\2230\2026�\210\2027�\210\307\"\306\202A�\211\207" [gnus-async-article-alist gnus-async-set-buffer assoc format "%s-%d" (error) nil delete] 7 (#$ . 10401)])
#@51 Prefetch the headers for group GROUP.

(fn GROUP)
(defalias 'gnus-async-prefetch-headers #[257 "\212\306C\205B�	\205B�\307!\205B�\n<\205B�\211\310!\240\205B�\311\312\311\"\210\313 \210p\314\315\316\317\320\"\321\"\322\323%\324\242#*\262)\207" [gnus-use-header-prefetch gnus-asynchronous gnus-async-header-prefetched gnus-async-prefetch-headers-buffer nnheader-callback-function nntp-server-buffer nil gnus-group-asynchronous-p gnus-list-of-unread-articles t nnheader-set-temp-buffer erase-buffer make-byte-code 257 "\300\301\242B\211\207" vconcat vector [gnus-async-header-prefetched] 3 "\n\n(fn ARG)" gnus-retrieve-headers gnus-fetch-old-headers] 10 (#$ . 10809)])
#@62 See whether we have prefetched headers.

(fn ARTICLES GROUP)
(defalias 'gnus-async-retrieve-fetched-headers #[514 "\2053�\304!\2053�	<\2053�\211	@\232\2053�	A\232\2053�\212\305\n\306\"\210\307 \210\310ed#\210\311 \210\312)\306\207" [gnus-use-header-prefetch gnus-async-header-prefetched gnus-async-prefetch-headers-buffer nntp-server-buffer gnus-group-asynchronous-p nnheader-set-temp-buffer t nntp-decode-text copy-to-buffer erase-buffer nil] 6 (#$ . 11498)])
(provide 'gnus-async)

${this.title}

Code Editor : gnus-async.elc