;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:15:01 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/gnus/nndir.el
;;; in Emacs version 24.0.50.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 (#$ . 876))
(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 (#$ . -1109))
(byte-code "\301\302\303\"\210\304B\305\304!\204\306\304\307\"\210\301\304\310\"\210\311B\305\311!\204(\306\311\312\"\210\301\311\313\"\210\314B\305\314!\204<\306\314\312\"\210\301\314\315\"\210\316B\305\316!\204P\306\316\307\"\210\301\316\317\"\210\320B\321\322!\210\323\324!\207" [current-load-list nnoo-define nndir-nov-is-evil (nnml-nov-is-evil) nndir-current-group default-boundp set-default "" (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-version (lambda (#1=#:defconst-tmp-var) (defconst nndir-version #1#)) "nndir 1.0" nnoo-define-basics-1 nndir] 3)
(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)
