%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/gnus/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/gnus/gnus-bcklg.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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)
#@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 (#$ . 506)])
(gnus-add-shutdown 'gnus-backlog-shutdown 'gnus)
#@42 Clear all backlog variables and buffers.
(defalias 'gnus-backlog-shutdown #[nil "\211\211\205\304\305\n!\211!\205\n)\203\306	!\210\307 \210)\310\211\207" [gnus-backlog-buffer buf buffer gnus-backlog-articles buffer-live-p get-buffer kill-buffer gnus-prune-buffers nil] 4 (#$ . 787) nil])
(defalias 'gnus-backlog-enter-article #[(group number buffer) "\247\205^\306	!?\205^\307\310	#\311\211\f\235?\205]
\247\203*\fG
Y\203*\312 \210\fBr\313 q\210\311db\210n\204@\314c\210`\315!\210d\nV\203W\316\n\211T\317$\202\\\320\321\322#**\207" [number group b ident gnus-backlog-articles gnus-keep-backlog 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" 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 delete next-single-property-change] 7])
#@50 Remove article NUMBER in GROUP from the backlog.
(defalias 'gnus-backlog-remove-article #[(group number) "\247\205=\306\307	#\310\211\f\235\205<r\311 q\210\212\310eb\210\312\313\"\211\2034\314\nT\313pd$b\210\n`|\210*\315\f\"\211)*\207" [number group beg ident gnus-backlog-articles buffer-read-only format "%s:%d" nil gnus-backlog-buffer gnus-text-property-search gnus-backlog next-single-property-change delete] 6 (#$ . 1943)])
(defalias 'gnus-backlog-request-article #[(group number &optional buffer) "\247\205T\306	!?\205T\307\310	#\311\211\211
\235\205Sr\312 q\210\313\314\f\"\211\2042\315\f
\"\202:\316T\314pd$)r\206Bpq\210\317\320 \210\321\n\n#\210*\317+\207" [number group end beg ident gnus-backlog-articles gnus-virtual-group-p format "%s:%d" nil gnus-backlog-buffer gnus-text-property-search gnus-backlog delete next-single-property-change t erase-buffer insert-buffer-substring buffer inhibit-read-only] 6])
(provide 'gnus-bcklg)

Zerion Mini Shell 1.0