;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:19 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/nndir.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 "\302\303!\210\302\304!\210\302\305!\210\302\306!\210\307\236\203#\307\236A\310\311\312\"\240\210\202.\307\310\311\312\"\313\211FB\307	\236\204:\307\314D	B\313\207" [nnoo-definition-alist nnoo-state-alist require nnheader nnmh nnml nnoo nndir mapcar list (nnml nnmh) nil "*internal-non-initialized-backend*"] 4)
#@107 Where nndir will look for groups.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nndir-directory nil (#$ . 885))
(nnoo-define 'nndir-directory '(nnml-current-directory nnmh-current-directory))
#@132 *Non-nil means that nndir will never retrieve NOV headers.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nndir-nov-is-evil nil (#$ . -1118))
(nnoo-define 'nndir-nov-is-evil '(nnml-nov-is-evil))
(defvar nndir-current-group "")
(nnoo-define 'nndir-current-group '(nnml-current-group nnmh-current-group))
(defvar nndir-top-directory nil)
(nnoo-define 'nndir-top-directory '(nnml-directory nnmh-directory))
(defvar nndir-get-new-mail nil)
(nnoo-define 'nndir-get-new-mail '(nnml-get-new-mail nnmh-get-new-mail))
(defvar nndir-status-string "")
(nnoo-define 'nndir-status-string '(nnmh-status-string))
(defconst nndir-version "nndir 1.0")
(nnoo-define-basics-1 'nndir)
(defalias 'nndir-open-server #[(server &optional defs) "\303\236\211A@)\206\f\n\303\236\204\303\nDB\305\306\307!!DB\310\311\307!!DB\312\313\n#\210\314\315\316\317\217\204J\320 \210\321\313\f\206F\322\"\202e\323\324!!\204]\320 \210\321\313\325#\202e\321\313\326\n$\210\327)\207" [defs x server nndir-directory err nndir-current-group file-name-nondirectory directory-file-name nndir-top-directory file-name-directory nnoo-change-server nndir nil arg (file-exists-p nndir-directory) ((ftp-error (byte-code "\302\303\"\211\207" [arg err format "%s"] 3))) nndir-close-server nnheader-report "No such file or directory: %s" file-directory-p file-truename "Not a directory: %s" "Opened server %s using directory %s" t] 6])
(byte-code "\300\301!\210\302\303\304\"\210\305\303!\207" [nnoo-register-function nndir-open-server nnoo-map-functions-1 nndir ((nnml-retrieve-headers 0 nndir-current-group 0 0) (nnml-request-article 0 nndir-current-group 0 0) (nnmh-request-group nndir-current-group 0 0) (nnml-close-group nndir-current-group 0) (nnml-request-list (nnoo-current-server 'nndir) nndir-directory) (nnml-request-newsgroups (nnoo-current-server 'nndir) nndir-directory)) provide] 3)