;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:38 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-bcklg.el
;;; in Emacs version 24.3.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'gnus)
(defvar gnus-backlog-buffer " *Gnus Backlog*")
(defvar gnus-backlog-articles nil)
(defvar gnus-backlog-hashtb nil)
#@28 Return the backlog buffer.
(defalias 'gnus-backlog-buffer #[nil "\302!\206r\303!q\210\304 \210\305\302!)\207" [gnus-backlog-buffer buffer-read-only get-buffer gnus-get-buffer-create buffer-disable-undo t] 2 (#$ . 689)])
#@31 Initialize backlog variables.
(defalias 'gnus-backlog-setup #[nil "?\205\n\301\302!\211\207" [gnus-backlog-hashtb gnus-make-hashtable 1024] 2 (#$ . 921)])
(gnus-add-shutdown 'gnus-backlog-shutdown 'gnus)
#@42 Clear all backlog variables and buffers.
(defalias 'gnus-backlog-shutdown #[nil "\306!\203*\211\211\205\n;\203\306\202\307\n!)\203)\310\306	!\"\311	!\210)\312\211\211\207" [gnus-backlog-buffer buf buffer gnus-buffers gnus-backlog-hashtb gnus-backlog-articles get-buffer buffer-name delete kill-buffer nil] 4 (#$ . 1134) nil])
(defalias 'gnus-backlog-enter-article #[(group number buffer) "\247\205h\306\307	\"?\205h\310 \210\311	\312\313!Q\n\"\314\211
>?\205g\247\2034
GY\2034\315 \210\f
Br\316 q\210\314db\210n\204J\317c\210`\320!\210dV\203a\321\211T\322\f$\202f\323\324\325#**\207" [number group gnus-backlog-hashtb b ident gnus-backlog-articles string-match "^nnvirtual" gnus-backlog-setup intern ":" int-to-string nil gnus-backlog-remove-oldest-article gnus-backlog-buffer "\n" insert-buffer-substring gnus-put-text-property gnus-backlog gnus-error 3 "Article %d is blank" gnus-keep-backlog buffer-read-only buffer] 6])
(defalias 'gnus-backlog-remove-oldest-article #[nil "r\303 q\210eb\210\304\305 !?\205*\306`\307\"\310\211\203 \311	\n\"`\312`T\307\310d$|*)\207" [buffer-read-only ident gnus-backlog-articles gnus-backlog-buffer zerop buffer-size get-text-property gnus-backlog nil delq next-single-property-change] 7])
#@50 Remove article NUMBER in GROUP from the backlog.
(defalias 'gnus-backlog-remove-article #[(group number) "\247\205G\306 \210\307	\310\311!Q\n\"\312\211\211>\205Fr\313 q\210\312\314ed\315
$\211\203<\316\fT\315pd$\f|\210)\317
\"\211)+\207" [number group gnus-backlog-hashtb end beg ident gnus-backlog-setup intern ":" int-to-string nil gnus-backlog-buffer text-property-any gnus-backlog next-single-property-change delq gnus-backlog-articles buffer-read-only] 6 (#$ . 2412)])
(defalias 'gnus-backlog-request-article #[(group number &optional buffer) "\247\205a\306\307	\"?\205a\310 \210\311	\312\313!Q\n\"\314\211\211>\205`r\315 q\210\316ed\317
$\211\204?\320
\"\202G\321\fT\317pd$)rp\206Oq\210\314\322 \210\323
\f#\210*\324+\207" [number group gnus-backlog-hashtb end beg ident string-match "^nnvirtual" gnus-backlog-setup intern ":" int-to-string nil gnus-backlog-buffer text-property-any gnus-backlog delq next-single-property-change erase-buffer insert-buffer-substring t gnus-backlog-articles buffer buffer-read-only] 6])
(provide 'gnus-bcklg)