Edit file

File name : gnus-bcklg.elc

Content :;ELC��� ;;; Compiled ;;; in Emacs version 26.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!\206�r\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 (#$ . 539)]) #@31 Initialize backlog variables. (defalias 'gnus-backlog-setup #[nil "?\205\n�\301\302!\211\207" [gnus-backlog-hashtb gnus-make-hashtable 1024] 2 (#$ . 771)]) (gnus-add-shutdown 'gnus-backlog-shutdown 'gnus) #@42 Clear all backlog variables and buffers. (defalias 'gnus-backlog-shutdown #[nil "\305!\203&�\211\211\205�\n;\203�\305\202�\306\n!)\203%�\307 !\210\310 \210)\311\211\211\207" [gnus-backlog-buffer buf buffer gnus-backlog-hashtb gnus-backlog-articles get-buffer buffer-name kill-buffer gnus-prune-buffers nil] 3 (#$ . 984) nil]) (defalias 'gnus-backlog-enter-article #[(group number buffer) "\247\205g�\306 !?\205g�\307 \210\310 \311\312!Q\n\"\313\211 >?\205f�\247\2033� GY\2033�\314 \210\f Br\315 q\210\313db\210n\204I�\316c\210`\317!\210dV\203`�\320\211T\321\f$\202e�\322\323\324#**\207" [number group gnus-backlog-hashtb b ident gnus-backlog-articles gnus-virtual-group-p gnus-backlog-setup intern ":" int-to-string 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" gnus-keep-backlog buffer-read-only buffer] 6]) (defalias 'gnus-backlog-remove-oldest-article #[nil "r\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�r\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 (#$ . 2236)]) (defalias 'gnus-backlog-request-article #[(group number &optional buffer) "\247\205`�\306 !?\205`�\307 \210\310 \311\312!Q\n\"\313\211\211>\205_�r\314 q\210\315ed\316 $\211\204>�\317 \"\202F�\320\fT\316pd$)r\206N�pq\210\321\322 \210\323\f\f#\210*\321+\207" [number group gnus-backlog-hashtb end beg ident gnus-virtual-group-p gnus-backlog-setup intern ":" int-to-string nil gnus-backlog-buffer text-property-any gnus-backlog delq next-single-property-change t erase-buffer insert-buffer-substring gnus-backlog-articles buffer inhibit-read-only] 6]) (provide 'gnus-bcklg)

Save