;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\"\207" [require nnheader nntp nnoo defvaralias news-path news-directory] 3)
#@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) (#$ . 224))
#@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) (#$ . 425))
(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 (#$ . 1005))
(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") (#$ . 1253))
(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) (#$ . 1572))
(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/") (#$ . 1877))
(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) (#$ . 2112))
(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") (#$ . 2430))
(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") (#$ . 2647))
(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") (#$ . 2880))
(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") (#$ . 3123))
(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") (#$ . 3344))
(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 (#$ . 3584))
(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 (#$ . 3928))
(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 (#$ . 4166))
#@146 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 (#$ . 4376))
(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 (#$ . 4632))
(nnoo-define 'nnspool-file-coding-system nil)
#@45 Version numbers of this version of NNSPOOL.
(defconst nnspool-version "nnspool 2.0" (#$ . 4859))
#@103 Current news group directory.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnspool-current-directory nil (#$ . 4963))
(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\305\"\210\306\304!\210\303\307\310\"\210\306\307!\210\303\311\312\"\210\306\311!\210\303\313\314\"\210\306\313!\207" [nnoo-define nnspool-status-string nil defalias nnspool-server-opened #[256 "\300\301\"\207" [nnoo-server-opened nnspool] 4 "\n\n(fn &optional SERVER)"] nnoo-register-function nnspool-status-message #[256 "\300\301\"\207" [nnoo-status-message nnspool] 4 "\n\n(fn &optional SERVER)"] nnspool-close-server #[512 "\300\301\"\207" [nnoo-close-server nnspool] 5 "\n\n(fn &optional SERVER DEFS)"] nnspool-open-server #[513 "\300\301#\207" [nnoo-change-server nnspool] 6 "\n\n(fn SERVER &optional DEFS)"]] 3)
#@83 Retrieve the headers of ARTICLES.

(fn ARTICLES &optional GROUP SERVER FETCH-OLD)
(defalias 'nnspool-retrieve-headers #[1025 "rq\210\306 \210\307!\205+
G\310	\247\205
V\f\311\211\211\211\n@\247\2034\312	\"\2034\313\202(
\n\211A\262\f\242\211\262\203

;\203^\314!\262
\211\205U\315
@A\"\262\211A\262\202c\316!\262\203\373\317!\203\373\320c\210\321p\"\210\322c\210`\262\317
!\205\321)\323=\203\220\324
!\210\202\320\310`\325*+\326\311\211+\\\211\262$A@=\203\301\327\330\311\323#?db\210\203\301)\203\225
)W\204\225\331
!\203\315\332
d
#\210)\266\323\266b\210\333\334\311\323#\203\347\335u\210\336c\210\202\367db\210n\203\364\336c\210\202\367\337c\210`d|\210\2034T\211\262\340\246\310U\2034\341\342\343\344	\345_\"#\210\2024\203$
\341\342\346\"\210\347 \210\350*\266\207)\207" [nntp-server-buffer nnspool-current-directory default-directory nnspool-large-newsgroup nnspool-file-coding-system nnheader-file-coding-system 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 decode-coding-region search-forward "\n\n" -1 ".\n" "\n.\n" 20 nnheader-message 5 "nnspool: Receiving headers... %d%%" floor 100.0 "nnspool: Receiving headers...done" nnheader-fold-continuation-lines headers nnheader-max-head-length coding-system-for-read nnheader-head-chop-length] 21 (#$ . 5940)])
(nnoo-register-function 'nnspool-retrieve-headers)
#@30 

(fn SERVER &optional DEFS)
(defalias 'nnspool-open-server #[513 "\302\303#\210\304!\204\305 \210\306\303\307#\207\310\311\312!!!\204(\305 \210\306\303\313#\207\304	!\2044\306\303\314	#\207\306\303\315$\210\316\207" [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] 7 (#$ . 7592)])
(nnoo-register-function 'nnspool-open-server)
#@82 Select article by message ID (or number).

(fn ID &optional GROUP SERVER BUFFER)
(defalias 'nnspool-request-article #[1025 "\302!\210\211\206	\303\211;\203(\304!\211\262\203/\305
@A\"\262\202/\305	\"\262
\205V\306!\205V\307!?\205V\212\310!)\205V\247\203U	B\202V\211)\207" [nntp-server-buffer nnspool-current-group nnspool-possibly-change-directory nil nnspool-find-id nnspool-article-pathname file-exists-p file-directory-p nnspool-find-file] 10 (#$ . 8198)])
(nnoo-register-function 'nnspool-request-article)
#@80 Select article body by message ID (or number).

(fn ID &optional GROUP SERVER)
(defalias 'nnspool-request-body #[769 "\301!\210\302!\211\205 rq\210eb\210\303\304\305\306#\203e`|\210)\211\207" [nntp-server-buffer nnspool-possibly-change-directory nnspool-request-article search-forward "\n\n" nil t] 8 (#$ . 8745)])
(nnoo-register-function 'nnspool-request-body)
#@80 Select article head by message ID (or number).

(fn ID &optional GROUP SERVER)
(defalias 'nnspool-request-head #[769 "\301!\210\302!\211\203#rq\210eb\210\303\304\305\306#\203`Sd|\210\307 \210)\207" [nntp-server-buffer nnspool-possibly-change-directory nnspool-request-article search-forward "\n\n" nil t nnheader-fold-continuation-lines] 8 (#$ . 9119)])
(nnoo-register-function 'nnspool-request-head)
#@65 Select news GROUP.

(fn GROUP &optional SERVER DONT-CHECK INFO)
(defalias 'nnspool-request-group #[1025 "\301!\302\303!\204\304\305\306#\207
\304\305\307#\210\203'\304\305\307#\210\310\207\311\302\312\310$\211\262\203<\313\314\315\"\316\"\262
\211\203N\317\320G@\321!@\n%\207\304\305\322#\210\317\323\"\207" [nnspool-current-directory 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"] 12 (#$ . 9532)])
(nnoo-register-function 'nnspool-request-group)
#@32 

(fn GROUP &optional ARTICLE)
(defalias 'nnspool-request-type #[513 "\300\207" [news] 3 (#$ . 10239)])
(nnoo-register-function 'nnspool-request-type)
#@31 

(fn GROUP &optional SERVER)
(defalias 'nnspool-close-group #[513 "\300\207" [t] 3 (#$ . 10396)])
(nnoo-register-function 'nnspool-close-group)
#@48 List active newsgroups.

(fn &optional SERVER)
(defalias 'nnspool-request-list #[256 "\212\301!\206
\302\303\304!\")\207" [nnspool-active-file nnspool-find-file nnheader-report nnspool nnheader-file-error] 5 (#$ . 10547)])
(nnoo-register-function 'nnspool-request-list)
#@60 List newsgroups (defined in NNTP2).

(fn &optional SERVER)
(defalias 'nnspool-request-list-newsgroups #[256 "\212\301!\206
\302\303\304!\")\207" [nnspool-newsgroups-file nnspool-find-file nnheader-report nnspool nnheader-file-error] 5 (#$ . 10826)])
(nnoo-register-function 'nnspool-request-list-newsgroups)
#@63 List distributions (defined in NNTP2).

(fn &optional SERVER)
(defalias 'nnspool-request-list-distributions #[256 "\212\301!\206
\302\303\304!\")\207" [nnspool-distributions-file nnspool-find-file nnheader-report nnspool nnheader-file-error] 5 (#$ . 11143)])
(nnoo-register-function 'nnspool-request-list-distributions)
#@61 List groups created after DATE.

(fn DATE &optional SERVER)
(defalias 'nnspool-request-newgroups #[513 "\301!\205Z\212db\210\302\303!\204\304y\305U\204\n\306\307!\310\"\311\302\312!\203@\313\225b\210
\314p!W\203@\313\224\313\225{
B\262
\304y\305U\204\315 \210\211\211\203V\211@\211\316\261\210
A\266\202\202D\266)\317\207" [nnspool-active-times-file nnspool-find-file looking-at "\\([^ ]+\\) +\\([0-9]+\\)[0-9][0-9][0-9] " -1 0 time-convert date-to-time integer nil "\\([^ ]+\\) +[0-9]+ " 1 read erase-buffer " 0 0 y\n" t] 8 (#$ . 11472)])
(nnoo-register-function 'nnspool-request-newgroups)
#@59 Post a new news in current buffer.

(fn &optional SERVER)
(defalias 'nnspool-request-post #[256 "\212\304\305\306!p\3071\310\311\312	\n%0\202\313\314\315#\262
\211\205\\\313\314\316\"\210\317
\320\"\210\305\321\322\"r\211q\210\323\324\"\216\325\304!\210\326!\210\327ed#\210\330ed#\210*\210\3311Z\332
!0\210\202[\210\322)\266\203)\207" [process-connection-type nnspool-inews-program nnspool-inews-switches nnspool-file-coding-system nil generate-new-buffer " *nnspool post*" (error) apply start-process "*nnspool inews*" nnheader-report nnspool "inews error: %S" "" set-process-sentinel nnspool-inews-sentinel " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte insert-buffer-substring encode-coding-region process-send-region (error) process-send-eof] 9 (#$ . 12084)])
(nnoo-register-function 'nnspool-request-post)
#@20 

(fn PROC STATUS)
(defalias 'nnspool-inews-sentinel #[514 "r\301!q\210eb\210\302 \303U\204\304\305\306\307#\203\310p!\202B\311\312\306\307#\203/\313\314\307\211#\210\202\315\316\317\320 #\210\321\322\323#\210\324 \210\325\326!)\207" [nnspool-status-string process-buffer buffer-size 0 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] 6 (#$ . 12981)])
#@37 

(fn ARTICLES &optional FETCH-OLD)
(defalias 'nnspool-retrieve-headers-with-nov #[513 "\206	?\205\233\306\n\307#\f\310
\311!\205\230rq\210\312 \210\203.\313\"\202\227\314!\210\203?\247\204?\315\202\227\3161\225\317\203S\320@Z]\202V@\321!@\"\210\322 \323U?\205\221\324y\210\325p!\262
\211@U\203y\315\202\221\203\213\211@X\203\213A\262\202y\326\327\"\210\3150\202\227\210\310))\266\204\207" [gnus-nov-is-evil nnspool-nov-is-evil nnspool-current-group nnspool-nov-directory nnspool-file-coding-system nnheader-file-coding-system nnheader-group-pathname ".overview" nil file-exists-p erase-buffer nnspool-sift-nov-with-sed nnheader-insert-file-contents t (error) nnheader-nov-delete-outside-range 1 last buffer-size 0 -1 read mapc nnspool-insert-nov-head nntp-server-buffer] 10 (#$ . 13511)])
#@77 Read the head of ARTICLE, convert to NOV headers, and insert.

(fn ARTICLE)
(defalias 'nnspool-insert-nov-head #[257 "\212p\301\302\303!\262
\304\305\"!\203'\306!\210eb\210\307\301\310\"q\210db\210\311
!\266\312
!\266\202)\207" [nnspool-current-group nil nnheader-set-temp-buffer " *nnspool head*" nnheader-insert-head nnspool-article-pathname nnheader-insert-article-line nnheader-parse-head t nnheader-insert-nov kill-buffer] 7 (#$ . 14357)])
#@22 

(fn ARTICLES FILE)
(defalias 'nnspool-sift-nov-with-sed #[514 "
@\300!@\301\302\303\304\303\305\306ST#&\207" [last call-process "awk" nil t format "BEGIN {firstmsg=%d; lastmsg=%d;}\n $1 >= firstmsg && $1 <= lastmsg {print;}"] 13 (#$ . 14814)])
#@11 

(fn ID)
(defalias 'nnspool-find-id #[257 "\301\302\303\"r\211q\210\304\305\"\216\3061\"\307\310\311\303\311\312!&0\210\202#\210eb\210\313\314!\2055\315\316!\317\315\320!!B*\207" [nnspool-history-file generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] (error) call-process "grep" nil regexp-quote looking-at "<[^>]+>[ 	]+[-0-9~]+[ 	]+\\([^ /	\n]+\\)/\\([0-9]+\\)[ 	\n]" match-string 1 string-to-number 2] 9 (#$ . 15074)])
#@49 Insert FILE in server buffer safely.

(fn FILE)
(defalias 'nnspool-find-file #[257 "q\210\303 \210\3041	\305
!\210)\3060\207\210\307\207" [nntp-server-buffer nnspool-file-coding-system coding-system-for-read erase-buffer (file-error) mm-insert-file-contents t nil] 3 (#$ . 15572)])
#@14 

(fn GROUP)
(defalias 'nnspool-possibly-change-directory #[257 "\211\204\302\207\303
!\304
!\203\211
\211\207\305\306\307#\207" [nnspool-current-directory nnspool-current-group t nnspool-article-pathname file-directory-p nnheader-report nnspool "No such newsgroup: %s"] 6 (#$ . 15864)])
#@61 Find the file name for GROUP.

(fn GROUP &optional ARTICLE)
(defalias 'nnspool-article-pathname #[513 "\301#\207" [nnspool-spool-directory nnheader-group-pathname] 6 (#$ . 16165)])
(provide 'nnspool)