ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/nnregistry.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\306\236\203 \306\236A\307\310\311\"\240\210\202* \306\307\310\311\"\311\211FB\306 \236\2046 \306\312D B\311\207" [nnoo-definition-alist nnoo-state-alist require nnoo gnus-registry gnus-int nnregistry mapcar list nil "*internal-non-initialized-backend*"] 4)
(defalias 'nnregistry-server-opened #[(server) "\207" [gnus-registry-enabled] 1])
(nnoo-register-function 'nnregistry-server-opened)
(defalias 'nnregistry-close-server #[(server) "\300\207" [t] 1])
(nnoo-register-function 'nnregistry-close-server)
(defalias 'nnregistry-status-message #[(server) "\300\207" [nil] 1])
(nnoo-register-function 'nnregistry-status-message)
(defalias 'nnregistry-open-server #[(server &optional defs) "\207" [gnus-registry-enabled] 1])
(nnoo-register-function 'nnregistry-open-server)
(defvar nnregistry-within-nnregistry nil)
(defalias 'nnregistry-request-article #[(id &optional group server buffer) "?\205% \305\306 \302\"@\307\310\311 \n#\210\n\205$ \312\n!\205$ \313 \n\f#+\207" [nnregistry-within-nnregistry id group gnus-override-method buffer t gnus-registry-get-id-key nil message "nnregistry: requesting article `%s' in group `%s'" gnus-check-group gnus-request-article] 4])
(byte-code "\300\301!\210\302\303!\207" [nnoo-register-function nnregistry-request-article provide nnregistry] 2)
Kontol Shell Bypass