;ELC   
;;; compiled by gsstark@lola-granola.MIT.EDU on Tue Jul 23 13:36:17 1996
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.2.37/lisp/nndir.el
;;; emacs version 19.30.1.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`nndir.el' was compiled for Emacs 19.29 or later"))


(byte-code "АБ!€АВ!€АГ!€АД!€ЕЖЗИ\"Й‰F\nB\nЙ‡" [require nnheader nnmh nnml nnoo nndir mapcar #[(p) "C‡" [p] 1] (nnml nnmh) nil nnoo-definition-alist] 4)
#@35 Where nndir will look for groups.
(defvar nndir-directory nil (#$ . 660))
(nnoo-define (quote nndir-directory) (quote (nnml-current-directory nnmh-current-directory)))
#@60 *Non-nil means that nndir will never retrieve NOV headers.
(defvar nndir-nov-is-evil nil (#$ . -834))
(byte-code "АБВ\"€ГД!„ ЕДBАДЗ\"€ГИ!„! ЙИBАИК\"€ГЛ!„5 ЙЛBАЛМ\"€ГН!„I ЕНBАНО\"€ПРBСТ!‡" [nnoo-define nndir-nov-is-evil (nnml-nov-is-evil) boundp nndir-current-group "" current-load-list (nnml-current-group nnmh-current-group) nndir-top-directory nil (nnml-directory nnmh-directory) nndir-get-new-mail (nnml-get-new-mail nnmh-get-new-mail) nndir-status-string (nnmh-status-string) "nndir 1.0" nndir-version nnoo-define-basics-1 nndir] 3)
(defalias 'nndir-open-server #[(server &optional defs) "А	ћA@†	 \nА	ћ„ А\nD	BГДЕ!!D	BЖЗЕ!!D	BИЙ\n	#€КМНОЏ„I П €РЙ†E С\"‚d ТУ!!„\\ П €РЙФ#‚d РЙХ\n$€Ц)‡" [nndir-directory defs server nndir-current-group file-name-nondirectory directory-file-name nndir-top-directory file-name-directory nnoo-change-server nndir nil err arg (file-exists-p nndir-directory) ((ftp-error (byte-code "АБ\n\"‰‡" [format "%s" arg err] 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] 5])
(byte-code "АБ!€ВГД\"€ЕГ!‡" [nnoo-register-function nndir-open-server nnoo-map-functions-1 nndir ((nnml-retrieve-headers 0 nndir-current-group 0 0) (nnmh-request-article 0 nndir-current-group 0 0) (nnmh-request-group nndir-current-group 0 0) (nnmh-close-group nndir-current-group 0) (nnmh-request-list (nnoo-current-server (quote nndir)) nndir-directory) (nnmh-request-newsgroups (nnoo-current-server (quote nndir)) nndir-directory)) provide] 3)