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

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


(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require nnheader nntp nnoo] 2)
#@59 The root directory below which all news files are stored.
(defvar news-directory (byte-code "\300\301!\203\301\207\302\207" [file-exists-p "/usr/spool/news/" "/var/spool/news/"] 2) (#$ . 640))
(defvaralias 'news-path 'news-directory)
#@23 Program to post news.
(defvar news-inews-program (byte-code "\300\301!\203\301\207\300\302!\203\302\207\300\303!\203\303\207\300\304!\203 \304\207\300\305!\203(\305\207\306\207" [file-exists-p "/usr/bin/inews" "/usr/local/inews" "/usr/local/bin/inews" "/usr/contrib/lib/news/inews" "/usr/lib/news/inews" "inews"] 2) (#$ . 882))
(byte-code "\302\236\203\302\236A\303\304\305\"\240\210\202\302\303\304\305\"\305\211FB\302	\236\204*\302\306D	B\305\207" [nnoo-definition-alist nnoo-state-alist nnspool mapcar list nil "*internal-non-initialized-backend*"] 4)
#@139 Program to post news.
This is most commonly `inews' or `injnews'.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnspool-inews-program news-inews-program (#$ . 1462))
(nnoo-define 'nnspool-inews-program nil)
#@214 Switches for nnspool-request-post to pass to `inews' for posting news.
If you are using Cnews, you probably should set this variable to nil.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnspool-inews-switches '("-h" "-S") (#$ . 1710))
(nnoo-define 'nnspool-inews-switches nil)
#@101 Local news spool directory.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnspool-spool-directory (byte-code "\301\302\303!\203\f\303J\202
!\207" [news-path file-name-as-directory boundp news-directory] 3) (#$ . 2029))
(nnoo-define 'nnspool-spool-directory nil)
#@99 Local news nov directory.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnspool-nov-directory (concat nnspool-spool-directory "over.view/") (#$ . 2334))
(nnoo-define 'nnspool-nov-directory nil)
#@120 Where the local news library files are stored.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnspool-lib-dir (byte-code "\300\301!\203\302\207\303\207" [file-exists-p "/usr/lib/news/active" "/usr/lib/news/" "/var/lib/news/"] 2) (#$ . 2569))
(nnoo-define 'nnspool-lib-dir nil)
#@97 Local news active file.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnspool-active-file (concat nnspool-lib-dir "active") (#$ . 2887))
(nnoo-define 'nnspool-active-file nil)
#@101 Local news newsgroups file.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnspool-newsgroups-file (concat nnspool-lib-dir "newsgroups") (#$ . 3104))
(nnoo-define 'nnspool-newsgroups-file nil)
#@104 Local news distributions file.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnspool-distributions-file (concat nnspool-lib-dir "distribs.pat") (#$ . 3337))
(nnoo-define 'nnspool-distributions-file nil)
#@98 Local news history file.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnspool-history-file (concat nnspool-lib-dir "history") (#$ . 3580))
(nnoo-define 'nnspool-history-file nil)
#@102 Local news active date file.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnspool-active-times-file (concat nnspool-lib-dir "active.times") (#$ . 3801))
(nnoo-define 'nnspool-active-times-file nil)
#@247 The number of articles which indicates a large newsgroup.
If the number of articles is greater than the value, verbose
messages will be shown to indicate the current status.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnspool-large-newsgroup 50 (#$ . 4041))
(nnoo-define 'nnspool-large-newsgroup nil)
#@148 Non-nil means that nnspool will never return NOV lines instead of headers.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnspool-nov-is-evil nil (#$ . 4385))
(nnoo-define 'nnspool-nov-is-evil nil)
#@151 If non-nil, use sed to get the relevant portion from the overview file.
If nil, nnspool will load the entire file into a buffer and process it
there.
(defconst nnspool-sift-nov-with-sed nil (#$ . 4623))
#@147 *A hook that will be run when an article has been rejected by the server.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnspool-rejected-article-hook nil (#$ . -4833))
(nnoo-define 'nnspool-rejected-article-hook nil)
#@100 Coding system for nnspool.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnspool-file-coding-system nnheader-file-coding-system (#$ . 5091))
(nnoo-define 'nnspool-file-coding-system nil)
#@45 Version numbers of this version of NNSPOOL.
(defconst nnspool-version "nnspool 2.0" (#$ . 5318))
#@103 Current news group directory.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnspool-current-directory nil (#$ . 5422))
(nnoo-define 'nnspool-current-directory nil)
(defvar nnspool-current-group nil)
(nnoo-define 'nnspool-current-group nil)
(defvar nnspool-status-string "")
(byte-code "\300\301\302\"\210\303\304!\207" [nnoo-define nnspool-status-string nil nnoo-define-basics-1 nnspool] 3)
#@35 Retrieve the headers of ARTICLES.
(defalias 'nnspool-retrieve-headers #[(articles &optional group server fetch-old) "rq\210\306 \210\307	!\205L
\nG\310
)*\247\205*V+,-\311\211./\311\21101\n@\247\203C\312\n2\"\203C\313\202J
\n\211A@\2110\203<
0;\203p\3140!\2111\205f\3151@1A\".1A0\202v\3160!..\203
\317.!\203
\320c\210\3210p\"\210\322c\210`/..\317.!\205\3643\323=\203\253\324.!\210\202\363\310`\32545/6\326.\311/\2116\\\211/$A@=\203\343\327\330\311\323#?db\210\203\3433\203\264/3W\204\264\331-!\203\362\3325d-#\210+\323)\210/b\210\333\334\311\323#\203
\335u\210\336c\210\202
db\210n\203
\336c\210\202
\337c\210`d|\210+\203C\340\fT\211\341\246!\203C\342\343\344\f\345_\245#\210\202C+\203F
\342\343\346\"\210\347 \210\350.	)\207" [nntp-server-buffer group articles number count nnspool-current-directory erase-buffer nnspool-possibly-change-directory 0 nil nnspool-retrieve-headers-with-nov nov nnspool-find-id nnspool-article-pathname int-to-string file-exists-p "221 " princ " Article retrieved.\n" t nnheader-insert-file-contents binary mm-insert-file-contents re-search-forward "\n
?\n\\|

" mm-coding-system-p mm-decode-coding-region search-forward "\n\n" -1 ".\n" "\n.\n" zerop 20 nnheader-message 5 "nnspool: Receiving headers... %d%%" 100 "nnspool: Receiving headers...done" nnheader-fold-continuation-lines headers default-directory nnspool-large-newsgroup do-message nnspool-file-coding-system nnheader-file-coding-system file beg article ag fetch-old nnheader-max-head-length coding-system-for-read start nnheader-head-chop-length] 8 (#$ . 5853)])
(nnoo-register-function 'nnspool-retrieve-headers)
(defalias 'nnspool-open-server #[(server &optional defs) "\304\305	#\210\306\n!\204\307 \210\310\305\311\n#\207\312\313\314\n!!!\204(\307 \210\310\305\315\n#\207\306!\2044\310\305\316#\207\310\305\317\n$\210\320\207" [server defs nnspool-spool-directory nnspool-active-file nnoo-change-server nnspool file-exists-p nnspool-close-server nnheader-report "Spool directory doesn't exist: %s" file-directory-p directory-file-name file-truename "Not a directory: %s" "The active file doesn't exist: %s" "Opened server %s using directory %s" t] 5])
(nnoo-register-function 'nnspool-open-server)
#@43 Select article by message ID (or number).
(defalias 'nnspool-request-article #[(id &optional group server buffer) "\306!\210	\206	\n\307\211
;\203%\310
!\211\203+\311@A\"\202+\311

\"\f\205Q\312\f!\205Q\313\f!?\205Q\212\314\f!)\205Q
\247\203P

B\202Q+\207" [group buffer nntp-server-buffer ag file id nnspool-possibly-change-directory nil nnspool-find-id nnspool-article-pathname file-exists-p file-directory-p nnspool-find-file nnspool-current-group] 3 (#$ . 8141)])
(nnoo-register-function 'nnspool-request-article)
#@48 Select article body by message ID (or number).
(defalias 'nnspool-request-body #[(id &optional group server) "\304!\210\305	!\211\205!rq\210eb\210\306\307\310\311#\203e`|\210\n))\207" [group id res nntp-server-buffer nnspool-possibly-change-directory nnspool-request-article search-forward "\n\n" nil t] 5 (#$ . 8687)])
(nnoo-register-function 'nnspool-request-body)
#@48 Select article head by message ID (or number).
(defalias 'nnspool-request-head #[(id &optional group server) "\304!\210\305	!\211\203$rq\210eb\210\306\307\310\311#\203 `Sd|\210\312 \210)\n)\207" [group id res nntp-server-buffer nnspool-possibly-change-directory nnspool-request-article search-forward "\n\n" nil t nnheader-fold-continuation-lines] 5 (#$ . 9066)])
(nnoo-register-function 'nnspool-request-head)
#@20 Select news GROUP.
(defalias 'nnspool-request-group #[(group &optional server dont-check info) "\305!\306\307\n!\204\310\311\312#\202Z\n\310\311\313#\210\f\203*\310\311\313#\210\314\202Z\315\n\306\316\314$\211\203=\317\320\321	\"\322\"	\203P\323\324	G	@\325	!@%\202Z\310\311\326#\210\323\327\"*\207" [group dir pathname nnspool-current-directory dont-check nnspool-article-pathname nil file-directory-p nnheader-report nnspool "Invalid group name (no such directory): %s" "Selected group %s" t directory-files "^[0-9]+$" sort mapcar string-to-number < nnheader-insert "211 %d %d %d %s\n" last "Empty group %s" "211 0 0 0 %s\n"] 6 (#$ . 9488)])
(nnoo-register-function 'nnspool-request-group)
(defalias 'nnspool-request-type #[(group &optional article) "\300\207" [news] 1])
(nnoo-register-function 'nnspool-request-type)
(defalias 'nnspool-close-group #[(group &optional server) "\300\207" [t] 1])
(nnoo-register-function 'nnspool-close-group)
#@25 List active newsgroups.
(defalias 'nnspool-request-list #[(&optional server) "\212\301!\206
\302\303\304!\")\207" [nnspool-active-file nnspool-find-file nnheader-report nnspool nnheader-file-error] 4 (#$ . 10458)])
(nnoo-register-function 'nnspool-request-list)
#@37 List newsgroups (defined in NNTP2).
(defalias 'nnspool-request-list-newsgroups #[(&optional server) "\212\301!\206
\302\303\304!\")\207" [nnspool-newsgroups-file nnspool-find-file nnheader-report nnspool nnheader-file-error] 4 (#$ . 10729)])
(nnoo-register-function 'nnspool-request-list-newsgroups)
#@40 List distributions (defined in NNTP2).
(defalias 'nnspool-request-list-distributions #[(&optional server) "\212\301!\206
\302\303\304!\")\207" [nnspool-distributions-file nnspool-find-file nnheader-report nnspool nnheader-file-error] 4 (#$ . 11038)])
(nnoo-register-function 'nnspool-request-list-distributions)
#@33 List groups created after DATE.
(defalias 'nnspool-request-newgroups #[(date &optional server) "\306!\205h\212db\210\307\310!\204\311\312y!\204\n\313\314	!!\315\307\316!\203L\317\225Sb\210\320c\210\321\225b\210\322p!V\203L\321\224\321\225{\nB\211\203L\311\312y!\204\323 \210\n\315\211\203f
@\211\324\261\210
A\211\204W-\325\207" [nnspool-active-times-file date groups seconds group --dolist-tail-- nnspool-find-file looking-at "\\([^ ]+\\) +\\([0-9]+\\)[0-9][0-9][0-9] " zerop -1 gnus-float-time date-to-time nil "\\([^ ]+\\) +[0-9]+ " 0 ".0" 1 read erase-buffer " 0 0 y\n" t] 4 (#$ . 11359)])
(nnoo-register-function 'nnspool-request-newgroups)
#@36 Post a new news in current buffer.
(defalias 'nnspool-request-post #[(&optional server) "\212\305\306\307!\310\311\312\217\211\2059\313\314\315\"\210\316\n\317\"\210\211\203$\320\305!\210\321\ned#\210\f\2032\320\322!\210)\305\323\324\217\210\322,\207" [process-connection-type inews-buffer proc enable-multibyte-characters #1=#:multibyte nil generate-new-buffer " *nnspool post*" err (byte-code "\303\304\305	\n%\207" [inews-buffer nnspool-inews-program nnspool-inews-switches apply start-process "*nnspool inews*"] 6) ((error (byte-code "\301\302\303#\207" [err nnheader-report nnspool "inews error: %S"] 4))) nnheader-report nnspool "" set-process-sentinel nnspool-inews-sentinel set-buffer-multibyte process-send-region t (process-send-eof proc) ((error))] 5 (#$ . 12032)])
(nnoo-register-function 'nnspool-request-post)
(defalias 'nnspool-inews-sentinel #[(proc status) "r\302!q\210eb\210\303\304 !\204\305\306\307\310#\203\311p!\202B\312\313\307\310#\203/\314\315\310\211#\210\202\316\317\320\321 #\210\322\323\324	#\210\325 \210\326\327!)\207" [proc nnspool-status-string process-buffer zerop buffer-size search-forward "spooled" nil t kill-buffer re-search-forward "[ 	\n]+" replace-match " " nnheader-report nnspool "%s" buffer-string nnheader-message 5 "nnspool: %s" ding run-hooks nnspool-rejected-article-hook] 4])
(defalias 'nnspool-retrieve-headers-with-nov #[(articles &optional fetch-old) "\206	?\205O\306\n\307#\f
\310\311!\205Nrq\210\312 \210\2035\313\f\"\202M\314!\210\203I\247\204I\315\202M\310\316\317\217),\207" [gnus-nov-is-evil nnspool-nov-is-evil nnspool-current-group nnspool-nov-directory articles nnspool-file-coding-system nnheader-group-pathname ".overview" nil file-exists-p erase-buffer nnspool-sift-nov-with-sed nnheader-insert-file-contents t (byte-code "\304\203\305	@Z]\202	@\302	!@\"\210\306\307 !?\205H\310y\210\311p!\211	@U\203.\312\207\203B\n@X\203B\211A@\210\202.\313\314\"\210\312\207" [fetch-old articles last arts nnheader-nov-delete-outside-range 1 zerop buffer-size -1 read t mapc nnspool-insert-nov-head] 5) ((error)) last nnheader-file-coding-system arts nov nntp-server-buffer fetch-old] 4])
#@63 Read the head of ARTICLE, convert to NOV headers, and insert.
(defalias 'nnspool-insert-nov-head #[(article) "\212p\305\306\307!\310\311\n\"!\203'\312!\210eb\210\313 	q\210db\210\314\f!\210)\315!+\207" [buf cur nnspool-current-group article headers nil nnheader-set-temp-buffer " *nnspool head*" nnheader-insert-head nnspool-article-pathname nnheader-insert-article-line nnheader-parse-head nnheader-insert-nov kill-buffer] 4 (#$ . 14247)])
(defalias 'nnspool-sift-nov-with-sed #[(articles file) "@\301!@\304\305\306\307\306\310\311\nS	T#&*\207" [articles last first file call-process "awk" nil t format "BEGIN {firstmsg=%d; lastmsg=%d;}\n $1 >= firstmsg && $1 <= lastmsg {print;}"] 9])
(defalias 'nnspool-find-id #[(id) "\301\302!rq\210\303\216\304\305\306\217\210eb\210\307\310!\205!\311\312!\313\311\314!!B+\207" [#1=#:temp-buffer generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nil (byte-code "\302\303\304\305\304\306!	&\207" [id nnspool-history-file call-process "grep" nil t regexp-quote] 7) ((error)) looking-at "<[^>]+>[ 	]+[-0-9~]+[ 	]+\\([^ /	\n]+\\)/\\([0-9]+\\)[ 	\n]" match-string 1 string-to-number 2] 4])
#@38 Insert FILE in server buffer safely.
(defalias 'nnspool-find-file #[(file) "q\210\301 \210\302\303\304\217\207" [nntp-server-buffer erase-buffer nil (byte-code "\303\n!\210)\304\207" [nnspool-file-coding-system coding-system-for-read file mm-insert-file-contents t] 2) ((file-error))] 3 (#$ . 15455)])
(defalias 'nnspool-possibly-change-directory #[(group) "\204\304\207\305!\306	!\203	\211\202\307\310\311#)\207" [group pathname nnspool-current-directory nnspool-current-group t nnspool-article-pathname file-directory-p nnheader-report nnspool "No such newsgroup: %s"] 4])
#@31 Find the file name for GROUP.
(defalias 'nnspool-article-pathname #[(group &optional article) "\303	\n#\207" [group nnspool-spool-directory article nnheader-group-pathname] 4 (#$ . 16052)])
(provide 'nnspool)