;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (require 'gnus) (defvar gnus-backlog-buffer " *Gnus Backlog*") (defvar gnus-backlog-articles nil)#@28 Return the backlog buffer. (defalias 'gnus-backlog-buffer #[0 "\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 (#$ . 181)]) (gnus-add-shutdown 'gnus-backlog-shutdown 'gnus)#@42 Clear all backlog variables and buffers. (defalias 'gnus-backlog-shutdown #[0 "\302!\210\303\211\207" [gnus-backlog-buffer gnus-backlog-articles gnus-kill-buffer nil] 2 (#$ . 459) nil])#@28 (fn GROUP NUMBER BUFFER) (defalias 'gnus-backlog-enter-article #[771 "\247\205]\303!?\205]\304\305#\306\235?\205[ \247\203(G Y\203(\307 \210Br\310 q\210\306db\210n\204=\311c\210`\262\312!\210dV\203T\313\211T\314$\202Z\315\316\317#*\266\202\207" [gnus-backlog-articles gnus-keep-backlog buffer-read-only gnus-virtual-group-p format "%s:%d" nil gnus-backlog-remove-oldest-article gnus-backlog-buffer "\n" insert-buffer-substring put-text-property gnus-backlog gnus-error 3 "Article %d is blank"] 10 (#$ . 652)]) (defalias 'gnus-backlog-remove-oldest-article #[0 "r\302 q\210eb\210\303 \304U?\205+\305`\306\"\307\211\203\310 \"`\311`T\306\307d$|)\262)\207" [buffer-read-only gnus-backlog-articles gnus-backlog-buffer buffer-size 0 get-text-property gnus-backlog nil delete next-single-property-change] 7])#@69 Remove article NUMBER in GROUP from the backlog. (fn GROUP NUMBER) (defalias 'gnus-backlog-remove-article #[514 "\211\247\205=\302\303#\304\235\205;r\305 q\210\212\304eb\210\306\307\"\211\262\2033\310T\307pd$b\210\211`|\210*\311\"\211)\266\202\207" [gnus-backlog-articles buffer-read-only format "%s:%d" nil gnus-backlog-buffer gnus-text-property-search gnus-backlog next-single-property-change delete] 9 (#$ . 1495)])#@38 (fn GROUP NUMBER &optional BUFFER) (defalias 'gnus-backlog-request-article #[770 "\247\205Q\303!?\205Q\304\305#\306\211\235\205Or\302 q\210\307\310\"\211\262\2040\311\"\2029\312T\310pd$\262)r\206@pq\210\313\314 \210\315\n#*\210\313\266\203\207" [gnus-backlog-articles inhibit-read-only gnus-backlog-buffer gnus-virtual-group-p format "%s:%d" nil gnus-text-property-search gnus-backlog delete next-single-property-change t erase-buffer insert-buffer-substring] 11 (#$ . 1934)]) (provide 'gnus-bcklg)