Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/gnus/nndir.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 (#$ . 740))
(nnoo-define 'nndir-directory '(nnml-current-directory nnmh-current-directory))
#@131 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 (#$ . 973))
(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) "\302\236A@\206		\302\236\204\302	DB\305\306\307\n!!DB\310\311\307\n!!DB\312\313	#\210\314\3151=\316\n!0\202E\317\320\f\"\211)\204V\321 \210\322\313\206R\323\"\202q\324\325\n!!\204i\321 \210\322\313\326\n#\202q\322\313\327	\n$\210\330)\207" [defs server nndir-directory err arg nndir-current-group file-name-nondirectory directory-file-name nndir-top-directory file-name-directory nnoo-change-server nndir nil (ftp-error) file-exists-p format "%s" 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 "\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))) provide] 3)