;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(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/") (#$ . 436))
(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" (#$ . 696))
(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 (#$ . 888))
(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 (#$ . 1162))
(nnoo-define 'nneething-include-files nil)
#@20 nneething version.
(defconst nneething-version "nneething 1.0" (#$ . 1461))
#@103 Current news group directory.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nneething-current-directory nil (#$ . 1544))
(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\305\"\210\306\304!\210\303\307\310\"\210\306\307!\210\303\311\312\"\210\306\311!\210\303\313\314\"\210\306\313!\207" [nnoo-define nneething-address nil defalias nneething-server-opened #[256 "\300\301\"\207" [nnoo-server-opened nneething] 4 "\n\n(fn &optional SERVER)"] nnoo-register-function nneething-status-message #[256 "\300\301\"\207" [nnoo-status-message nneething] 4 "\n\n(fn &optional SERVER)"] nneething-close-server #[512 "\300\301\"\207" [nnoo-close-server nneething] 5 "\n\n(fn &optional SERVER DEFS)"] nneething-open-server #[513 "\300\301#\207" [nnoo-change-server nneething] 6 "\n\n(fn SERVER &optional DEFS)"]] 3)
#@50 

(fn ARTICLES &optional GROUP SERVER FETCH-OLD)
(defalias 'nneething-retrieve-headers #[1025 "\302!\210rq\210\303 \210G\304	\247\205
	V\305\211@;\203%\266\306\202\206\211A\262\n\242\211\262\203x\307!\262
\310
!\203X\311
!\204K\312
!\304U\204X\313\314\"c\210\315
!\210\316c\210T\262\203%\317\246\304U\203%\320\321\322\323\324_	\"#\210\202%\203\201\320\321\325\"\210\326 \266\306)\207" [nntp-server-buffer nnmail-large-newsgroup nneething-possibly-change-directory erase-buffer 0 nil headers nneething-file-name file-exists-p file-directory-p nnheader-file-size format "221 %d Article retrieved.\n" nneething-insert-head ".\n" 20 nnheader-message 5 "nneething: Receiving headers... %d%%" floor 100.0 "nneething: Receiving headers...done" nnheader-fold-continuation-lines] 15 (#$ . 2891)])
(nnoo-register-function 'nneething-retrieve-headers)
#@41 

(fn ID &optional GROUP SERVER BUFFER)
(defalias 'nneething-request-article #[1025 "\303!\210;?\205
\304!
\206\211;\205p\305
!\205p\306
!?\205p\212\307\310
!\210)\311 \204n\306
!?\205F\312\313\314!P\n\"A\206F\315\316ed\"\317\320\321\"\204Z\322ed\"\210\323\262
eb\210\324p\317&\266\325c\210)\326)\207" [nntp-server-buffer nnmail-file-coding-system mailcap-mime-extensions nneething-possibly-change-directory nneething-file-name file-exists-p file-directory-p raw-text 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] 15 (#$ . 3770)])
(nnoo-register-function 'nneething-request-article)
#@47 

(fn GROUP &optional SERVER DONT-CHECK INFO)
(defalias 'nneething-request-group #[1025 "\301\"\210
\204,\302 \210@AV\203\303\304\"\210\202,\303\305AT@Z@A%\210\306\207" [nneething-active nneething-possibly-change-directory nneething-create-mapping nnheader-insert "211 0 1 0 %s\n" "211 %d %d %d %s\n" t] 10 (#$ . 4535)])
(nnoo-register-function 'nneething-request-group)
#@29 

(fn &optional SERVER DIR)
(defalias 'nneething-request-list #[512 "\300\301\302\"\207" [nnheader-report nneething "LIST is not implemented."] 5 (#$ . 4927)])
(nnoo-register-function 'nneething-request-list)
#@30 

(fn DATE &optional SERVER)
(defalias 'nneething-request-newgroups #[513 "\300\301\302\"\207" [nnheader-report nneething "NEWSGROUPS is not implemented."] 5 (#$ . 5142)])
(nnoo-register-function 'nneething-request-newgroups)
#@32 

(fn GROUP &optional ARTICLE)
(defalias 'nneething-request-type #[513 "\300\207" [unknown] 3 (#$ . 5374)])
(nnoo-register-function 'nneething-request-type)
#@31 

(fn GROUP &optional SERVER)
(defalias 'nneething-close-group #[513 "\301\302\207" [nneething-current-directory nil t] 3 (#$ . 5537)])
(nnoo-register-function 'nneething-close-group)
#@30 

(fn SERVER &optional DEFS)
(defalias 'nneething-open-server #[513 "\300 \210\301!\203\302\207\303
\236\204\304
\303DC\"\262
\305\306#\207" [nnheader-init-server-buffer nneething-server-opened t nneething-address append nnoo-change-server nneething] 6 (#$ . 5728)])
(nnoo-register-function 'nneething-open-server)
#@31 

(fn GROUP &optional SERVER)
(defalias 'nneething-possibly-change-directory #[513 "\211\203\303
!\204\304
!\210
\205#\232?\205#
\305\306\307B\310 \207" [nneething-group nneething-map nneething-active nneething-server-opened nneething-open-server nil 1 0 nneething-create-mapping] 4 (#$ . 6057)])
(defalias 'nneething-map-file #[0 "\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 #[0 "\306!\205U
\307 \310!\311\211\306!\203#\3121\"\313\311\314\211$0\210\202#\210	\204+\315\316B\n@A\203=\n@A:\204=\317\320\n\"\203n\311
\203l\321@\"\203b\211\203[\211A\241\210\202eA\262\202e
\262

A\262\202C\266\f\203\237\311
\203\235\321\f@\"\204\223\211\203\214\211A\241\210\202\226A\262\202\226
\262

A\262\202t\266\n\311
\203\353
@A@\235\203\322\322\323@A@!!\324
8\262
@AA@\232\203\322
@A@B\262
\262
\202\344\314\262\211\203\341\211A\241\210\202\344\nA
A\262\202\241\266\203
@
\235\204
\314\262	\211AT\241\210	A@\322\323@!!\324
8\262
E\nBA\262\202\355
\205S

?\205S
\325\326\314\"\327\330\"\216r\211q\210\331c\210\332\n!\210\333c\210\332	!\210\334c)r
q\210\335\311\211\311\316%\210*\262
\266\204\207" [nneething-address nneething-active nneething-map nneething-exclude-files nneething-include-files nneething-read-only file-exists-p nneething-map-file directory-files nil (error) load t 1 0 mapcar #[257 "\211A
@\300\301@!!\302
8\262
E\207" [file-attributes nneething-file-name 5] 6 "\n\n(fn N)"] string-match file-attributes nneething-file-name 5 generate-new-buffer " *temp file*" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] "(setq nneething-map '" gnus-prin1 ")\n(setq nneething-active '" ")\n" write-region] 12])
#@37 Insert the head of FILE.

(fn FILE)
(defalias 'nneething-insert-head #[257 "\301
!\205\f\302!\210db\207" [nneething-work-buffer nneething-get-head insert-buffer-substring] 3 (#$ . 7915)])
#@82 Encode the name of the FILE in CODING-SYSTEM.

(fn FILE &optional CODING-SYSTEM)
(defalias 'nneething-encode-file-name #[513 "\301\302\303\206	\"\262\304\305#\203,\306\307\301\224H\"\301\224OBB\262
\301\225\262\202\f\310\311\302OB\237\"\207" [nnmail-pathname-coding-system 0 nil encode-coding-string string-match "[^-0-9a-zA-Z_:/.]" format "%%%02x" apply concat] 9 (#$ . 8111)])
#@93 Decode the name of the FILE is encoded in CODING-SYSTEM.

(fn FILE &optional CODING-SYSTEM)
(defalias 'nneething-decode-file-name #[513 "\301\302\303\304#\203%\305\306\307\310\"\311\"!\301\224OBB\262
\301\225\262\202\312\313\314\302OB\237\"\2066\"\207" [nnmail-pathname-coding-system 0 nil string-match "%\\([[:xdigit:]][[:xdigit:]]\\)" string string-to-number match-string 1 16 decode-coding-string apply concat] 10 (#$ . 8513)])
#@60 Extract the file name from the message ID string.

(fn ID)
(defalias 'nneething-get-file-name #[257 "\300\301\"\205
\302\303\304\"!\207" [string-match "\\`<nneething-\\([^@]+\\)@.*>\\'" nneething-decode-file-name match-string 1] 5 (#$ . 8968)])
#@133 Create a head by looking at the file attributes of FILE.

(fn FILE &optional BUFFER EXTRA-MSG MIME-TYPE MIME-CHARSET MIME-ENCODING)
(defalias 'nneething-make-head #[1537 "\300!\301\302!\206\303\304\305\306\f!\307\310 \311\312\313\314
8\262
\"\203*\303\2026\315\316\314
8\262
!\304Q\203Rrq\210\317\320\321\322#\205N\323\324\313!\304Q)\206]\325\326
8\262
\"\327
8\262
\313V\203x\330\331
\327
8\262
!\304Q\202y\303\203\220rq\210\332\331\333ed\"!\304Q)\202\221\303\203\306\334\203\262\335;\203\252\202\256\336!P\202\263\303\203\277\337P\202\300\303\340\260\202\307\303\261\207" [file-attributes "Subject: " file-name-nondirectory "" "\n" "Message-ID: <nneething-" nneething-encode-file-name "@" system-name ">\n" time-equal-p 0 5 "Date: " current-time-string re-search-forward "<[a-zA-Z0-9_]@[-a-zA-Z0-9_]>" 1000 t "From: " match-string nneething-from-line 2 7 "Chars: " int-to-string "Lines: " count-lines "Content-Type: " "; charset=" symbol-name "\nContent-Transfer-Encoding: " "\nMIME-Version: 1.0\n"] 25 (#$ . 9223)])
#@61 Return a From header based of UID.

(fn UID &optional FILE)
(defalias 'nneething-from-line #[513 "\3001\301!0\202%\210
\302 U\203\301 \202%
\303U\203\"\304\202%\305!\30610\307!0\202D\210\302 U\203=\307 \202D\303U\205D\310\311\312\"\203f\313\224\313\225O\311\314\"\203h\315\224\315\225O\262\316\262\202h\317 \320\321\203x\322\323Q\202y\324\325\260\207" [(error) user-login-name user-uid 0 "root" int-to-string (error) user-full-name "Ms. Root" string-match "\\`/[^/@]*@\\([^:/]+\\):" 1 "/\\(users\\|home\\)/\\([^/]+\\)/" 2 nil system-name "From: " "@" " (" ")" "" "\n"] 12 (#$ . 10311)])
#@66 Either find the head in FILE or make a head for FILE.

(fn FILE)
(defalias 'nneething-get-head #[257 "r\302!q\210\303\304 \210\305 \210\306
!\204\303\202g\307
!\204$\310
!\203,\311
!\210\312\202g\3131_\314
!\210\315 \203Oeb\210\316\317\303\312#\203I`S\206Jdd|\202Zeb\210\311
p\"\210`d|0\210\202f\210\311
p\320#\210\312)\207" [nneething-work-buffer case-fold-search gnus-get-buffer-create nil buffer-disable-undo erase-buffer file-exists-p file-directory-p file-symlink-p nneething-make-head t (file-error) nnheader-insert-head nnheader-article-p search-forward "\n\n" " (unreadable)"] 5 (#$ . 10939)])
#@48 Return the file name of ARTICLE.

(fn ARTICLE)
(defalias 'nneething-file-name #[257 "\302!\303\247\203 	\236A@\211\262\203\304
\"\207\305\304\306\"!\207\304\"\207" [nneething-address nneething-map file-name-as-directory nil expand-file-name make-temp-name "nneething"] 7 (#$ . 11561)])
(provide 'nneething)