;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:20 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/nneething.el
;;; in Emacs version 24.3.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\302\307!\210\310\236\203'\310\236A\311\312\313\"\240\210\2022\310\311\312\313\"\313\211FB\310	\236\204>\310\314D	B\313\207" [nnoo-definition-alist nnoo-state-alist require mailcap nnheader nnmail nnoo gnus-util nneething mapcar list nil "*internal-non-initialized-backend*"] 4)
#@111 Where nneething stores the map files.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nneething-map-file-directory (nnheader-concat gnus-directory ".nneething/") (#$ . 909))
(nnoo-define 'nneething-map-file-directory nil)
#@96 Name of the map files.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nneething-map-file ".nneething" (#$ . 1169))
(nnoo-define 'nneething-map-file nil)
#@177 Regexp saying what files to exclude from the group.
If this variable is nil, no files will be excluded.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nneething-exclude-files nil (#$ . 1362))
(nnoo-define 'nneething-exclude-files nil)
#@202 Regexp saying what files to include in the group.
If this variable is non-nil, only files matching this regexp will be
included.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nneething-include-files nil (#$ . 1637))
(nnoo-define 'nneething-include-files nil)
#@20 nneething version.
(defconst nneething-version "nneething 1.0" (#$ . 1936))
#@103 Current news group directory.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nneething-current-directory nil (#$ . 2019))
(nnoo-define 'nneething-current-directory nil)
(defvar nneething-status-string "")
(nnoo-define 'nneething-status-string nil)
(defvar nneething-work-buffer " *nneething work*")
(nnoo-define 'nneething-work-buffer nil)
(defvar nneething-group nil)
(nnoo-define 'nneething-group nil)
(defvar nneething-map nil)
(nnoo-define 'nneething-map nil)
(defvar nneething-read-only nil)
(nnoo-define 'nneething-read-only nil)
(defvar nneething-active nil)
(nnoo-define 'nneething-active nil)
(defvar nneething-address nil)
(byte-code "\300\301\302\"\210\303\304!\207" [nnoo-define nneething-address nil nnoo-define-basics-1 nneething] 3)
(defalias 'nneething-retrieve-headers #[(articles &optional group server fetch-old) "\306!\210r	q\210\307 \210\nG\310
\247\205
V\311\211\n@;\203*\312\202\214\n\211A@\211\203~\313!\314!\203a\315!\204R\316\317!!\204a\320\321\"c\210\322!\210\323c\210\fT\203*\316\f\324\246!\203*\325\326\327\f\330_\245#\210\202*\203\210\325\326\331\"\210\332 \210\312.\207" [group nntp-server-buffer articles number count nnmail-large-newsgroup nneething-possibly-change-directory erase-buffer 0 nil headers nneething-file-name file-exists-p file-directory-p zerop nnheader-file-size format "221 %d Article retrieved.\n" nneething-insert-head ".\n" 20 nnheader-message 5 "nneething: Receiving headers... %d%%" 100 "nneething: Receiving headers...done" nnheader-fold-continuation-lines large article file] 6])
(nnoo-register-function 'nneething-retrieve-headers)
(defalias 'nneething-request-article #[(id &optional group server buffer) "\306!\210	;?\205
\307	!\n\206\211;\205y\310\f!\205y\311\f!?\205y\212\312\313\f!\210)\314 \204w\311\f!?\205H\315\316\317\f!P\"A\206H\320\321ed\"\322\323\324\"\204c\325ed\"\210\326eb\210\327\fp\322&\210+\330c\210)\331*\207" [group id buffer nntp-server-buffer file nnmail-file-coding-system nneething-possibly-change-directory nneething-file-name file-exists-p file-directory-p binary nnmail-find-file nnheader-article-p assoc "." file-name-extension "text/plain" mm-detect-mime-charset-region nil string-match "\\`text/" base64-encode-region "base64" nneething-make-head "\n" t mailcap-mime-extensions encoding charset type] 8])
(nnoo-register-function 'nneething-request-article)
(defalias 'nneething-request-group #[(group &optional server dont-check info) "\304	\"\210\n\204+\305 \210@AV\203\306\307\"\210\202+\306\310AT@Z@A%\210\311\207" [group server dont-check nneething-active nneething-possibly-change-directory nneething-create-mapping nnheader-insert "211 0 1 0 %s\n" "211 %d %d %d %s\n" t] 6])
(nnoo-register-function 'nneething-request-group)
(defalias 'nneething-request-list #[(&optional server dir) "\300\301\302\"\207" [nnheader-report nneething "LIST is not implemented."] 3])
(nnoo-register-function 'nneething-request-list)
(defalias 'nneething-request-newgroups #[(date &optional server) "\300\301\302\"\207" [nnheader-report nneething "NEWSGROUPS is not implemented."] 3])
(nnoo-register-function 'nneething-request-newgroups)
(defalias 'nneething-request-type #[(group &optional article) "\300\207" [unknown] 1])
(nnoo-register-function 'nneething-request-type)
(defalias 'nneething-close-group #[(group &optional server) "\301\302\207" [nneething-current-directory nil t] 1])
(nnoo-register-function 'nneething-close-group)
(defalias 'nneething-open-server #[(server &optional defs) "\302 \210\303!\203\304\207\305	\236\204\306	\305DC\"\307\310	#\207" [server defs nnheader-init-server-buffer nneething-server-opened t nneething-address append nnoo-change-server nneething] 4])
(nnoo-register-function 'nneething-open-server)
(defalias 'nneething-possibly-change-directory #[(group &optional server) "\203\305!\204\306!\210	\205#\n	\232?\205#	\307\310\311B\312 \207" [server group nneething-group nneething-map nneething-active nneething-server-opened nneething-open-server nil 1 0 nneething-create-mapping] 2])
(defalias 'nneething-map-file #[nil "\303!\210\304!	\nQ\207" [nneething-map-file-directory nneething-group nneething-map-file gnus-make-directory file-name-as-directory] 3])
(defalias 'nneething-create-mapping #[nil "\306!\205\220
\307 \310!\311\211\306\f!\203\311\312\313\217\210
\204$\314\315B\211@A)\203B\211@A):\204B\316\317\" \203~\311!\211\"\203}\320 \"@\"\203p!\203j!\"A\241\210\202tA\202t\"!\"A\211\"\204Q*#\203\272\311!\211\"\203\271\320#\"@\"\204\254!\203\246!\"A\241\210\202\260A\202\260\"!\"A\211\"\204\215*\311!\211$\203&
$@\211A@)\235\203
\321\322\323$@\211A@)!!8$\211@A)\211A@)\232\203
$@\211A@)	B$!\202
\324!\203
!$A\241\210\202
A$A\211$\204\305*\203S
@	\235\204L
\324
\211AT\241\210
A@\321\322\323@!!8EBA\211\204+
\n\205\217
%?\205\217
\f\325\326\327!!&'\330\216r&q\210\331c\210\332!\210\333c\210\332
!\210\334c)r&q\210\335\311\211'\311\315%\210,,\207" [nneething-address map-files touched files map-file nneething-active file-exists-p nneething-map-file directory-files nil (byte-code "\301\302\303\211$\207" [map-file load nil t] 5) ((error)) 1 0 mapcar #[(n) "A@\301\302\303@!!8E\207" [n 5 file-attributes nneething-file-name] 6] string-match 5 file-attributes nneething-file-name t get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) "(setq nneething-map '" gnus-prin1 ")\n(setq nneething-active '" ")\n" write-region nneething-map x nneething-exclude-files prev f nneething-include-files map nneething-read-only #1# #2=#:temp-file] 8])
#@26 Insert the head of FILE.
(defalias 'nneething-insert-head #[(file) "\302!\205\f\303	!\210db\207" [file nneething-work-buffer nneething-get-head insert-buffer-substring] 2 (#$ . 7859)])
#@47 Encode the name of the FILE in CODING-SYSTEM.
(defalias 'nneething-encode-file-name #[(file &optional coding-system) "\305\306\307\n\206\f\"\310\311\n	#\203+\312\313\n\305\224H\"\n	\305\224OBB\305\225\202
\314\315\n	\306OB\237\"*\207" [buf pos file coding-system nnmail-pathname-coding-system 0 nil mm-encode-coding-string string-match "[^-0-9a-zA-Z_:/.]" format "%%%02x" apply concat] 5 (#$ . 8052)])
#@58 Decode the name of the FILE is encoded in CODING-SYSTEM.
(defalias 'nneething-decode-file-name #[(file &optional coding-system) "\305\306\307\310\n	#\203$\311\312\313\314\n\"\315\"!\n	\305\224OBB\305\225\202\316\317\320\n	\306OB\237\"\2064\f\"*\207" [buf pos file coding-system nnmail-pathname-coding-system 0 nil string-match "%\\([0-9a-fA-F][0-9a-fA-F]\\)" string string-to-number match-string 1 16 mm-decode-coding-string apply concat] 6 (#$ . 8472)])
#@51 Extract the file name from the message ID string.
(defalias 'nneething-get-file-name #[(id) "\301\302\"\205
\303\304\305\"!\207" [id string-match "\\`<nneething-\\([^@]+\\)@.*>\\'" nneething-decode-file-name match-string 1] 4 (#$ . 8944)])
#@58 Create a head by looking at the file attributes of FILE.
(defalias 'nneething-make-head #[(file &optional buffer extra-msg mime-type mime-charset mime-encoding) "\306!\307\310!\n\206
\311\312\313\314!\315\316 \317\320	8\321\232\203\"\311\202*\322\323\320	8!\312Q\203Drq\210\324\325\326\327#\205@\330\331\332!\312Q)\206J\333\334	8\"\335\336\337	8!!\332V\203a\340\336\337	8!\312Q\202b\311\203wrq\210\341\336\342ed\"!\312Q)\202x\311\f\203\247\343\f
\203\223\344
;\203\214
\202\217\345
!P\202\224\311(\203\240\346(P\202\241\311\347\260\202\250\311\261)\207" [file atts extra-msg buffer mime-type mime-charset file-attributes "Subject: " file-name-nondirectory "" "\n" "Message-ID: <nneething-" nneething-encode-file-name "@" system-name ">\n" 5 (0 0) "Date: " current-time-string re-search-forward "<[a-zA-Z0-9_]@[-a-zA-Z0-9_]>" 1000 t "From: " match-string 0 nneething-from-line 2 string-to-number int-to-string 7 "Chars: " "Lines: " count-lines "Content-Type: " "; charset=" symbol-name "\nContent-Transfer-Encoding: " "\nMIME-Version: 1.0\n" mime-encoding] 18 (#$ . 9193)])
#@36 Return a From header based of UID.
(defalias 'nneething-from-line #[(uid &optional file) "\304\305\306\217\304\307\310\217\311\312\n\"\203*\n\313\224\313\225O\311\314\n\"\203,\n\315\224\315\225O\304\202,\316 \317\320	\203<\321	\322Q\202=\323\324\260+\207" [login name file host nil (user-login-name uid) ((error (byte-code "\301 U\203\n\302 \207\303!\203\304\207\305!\207" [uid user-uid user-login-name zerop "root" int-to-string] 2))) (user-full-name uid) ((error (byte-code "\301 U\203\n\302 \207\303!\205\304\207" [uid user-uid user-full-name zerop "Ms. Root"] 2))) string-match "\\`/[^/@]*@\\([^:/]+\\):" 1 "/\\(users\\|home\\)/\\([^/]+\\)/" 2 system-name "From: " "@" " (" ")" "" "\n"] 7 (#$ . 10303)])
#@55 Either find the head in FILE or make a head for FILE.
(defalias 'nneething-get-head #[(file) "r\303!q\210\304\305 \210\306 \210\307\n!\204\304\2022\310\n!\204$\311\n!\203,\312\n!\210\313\2022\304\314\315\217\210\313)\207" [nneething-work-buffer case-fold-search file get-buffer-create nil buffer-disable-undo erase-buffer file-exists-p file-directory-p file-symlink-p nneething-make-head t (byte-code "\301!\210\302 \203 eb\210\303\304\305\306#\203`S\206dd|\210\202,eb\210\307p\"\210`d|\210\305\207" [file nnheader-insert-head nnheader-article-p search-forward "\n\n" nil t nneething-make-head] 4) ((file-error (byte-code "\301p\302#\207" [file nneething-make-head " (unreadable)"] 4)))] 3 (#$ . 11041)])
#@34 Return the file name of ARTICLE.
(defalias 'nneething-file-name #[(article) "\306!\307\247\203(\f\236\211A@)\211\203\310	\n\"\202,\311\310\312\n\"!\202,\310\n\"*\207" [nneething-address fname dir article nneething-map x file-name-as-directory nil expand-file-name make-temp-name "nneething"] 5 (#$ . 11769)])
(provide 'nneething)