;ELC   
;;; Compiled by amu@daemon on Thu Jan 11 15:02:56 2001
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.8/lisp/gnus-bcklg.el
;;; in Emacs version 20.7.2
;;; with bytecomp version 2.56
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`gnus-bcklg.el' was compiled for Emacs 19.29 or later"))

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


(byte-code "\304\305!\210\306\300!\204\f \307\300	B\306\302!\204 \310\302	B\306\303!\204$ \310\303	B\310\207" [gnus-backlog-buffer current-load-list gnus-backlog-articles gnus-backlog-hashtb require gnus boundp " *Gnus Backlog*" nil] 2)
#@28 Return the backlog buffer.
(defalias 'gnus-backlog-buffer #[nil "\302!\206 \212\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 (#$ . 874)])
#@31 Initialize backlog variables.
(defalias 'gnus-backlog-setup #[nil "?\205\n \301\302!\211\207" [gnus-backlog-hashtb gnus-make-hashtable 1024] 2 (#$ . 1109)])
(gnus-add-shutdown 'gnus-backlog-shutdown 'gnus)
#@42 Clear all backlog variables and buffers.
(defalias 'gnus-backlog-shutdown #[nil "\303!\203\n \304!\210\305\305\211\207" [gnus-backlog-buffer gnus-backlog-hashtb gnus-backlog-articles get-buffer kill-buffer nil] 2 (#$ . 1323)])
(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 GY\2034 \315 \210\fB\212\316 q\210\314db\210n\204J \317c\210`\320!\210dV\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 "\212\303 q\210eb\210\304 \305U?\205* \306`\307\"\310\211\203  \311	\n\"`\312`T\307\310d$|*)\207" [buffer-read-only ident gnus-backlog-articles gnus-backlog-buffer buffer-size 0 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>\205F \212\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 (#$ . 2492)])
(defalias 'gnus-backlog-request-article #[(group number &optional buffer) "\247\205b \306\307	\"?\205b \310 \210\311	\312\313!Q\n\"\314\211\211>\205a \212\315 q\210\316ed\317$\211\204? \320\"\202G \321\fT\317pd$)\212\203R q\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)