ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/nndir.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 742))
(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 (#$ . -975))
(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)
Kontol Shell Bypass