;ELC   
;;; compiled by amu@mit.edu on Sat Sep 13 16:20:24 1997
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.4.67/lisp/nneething.el
;;; emacs version 19.30.1.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`nneething.el' was compiled for Emacs 19.29 or later"))


(byte-code "АБ!€АВ!€АГ!€АД!€ЕЖЗИ\"И‰F	B	ЕКDBИ‡" [require nnheader nnmail nnoo gnus-util nneething mapcar #[(p) "C‡" [p] 1] nil nnoo-definition-alist "*internal-non-initialized-backend*" nnoo-state-alist] 4)
#@39 Where nneething stores the map files.
(defvar nneething-map-file-directory "~/.nneething/" (#$ . 710))
(nnoo-define (quote nneething-map-file-directory) nil)
#@24 Name of the map files.
(defvar nneething-map-file ".nneething" (#$ . 874))
(nnoo-define (quote nneething-map-file) nil)
#@105 Regexp saying what files to exclude from the group.
If this variable is nil, no files will be excluded.
(defvar nneething-exclude-files nil (#$ . 1001))
(nnoo-define (quote nneething-exclude-files) nil)
#@20 nneething version.
(defconst nneething-version "nneething 1.0" (#$ . 1210))
#@31 Current news group directory.
(defvar nneething-current-directory nil (#$ . 1292))
(byte-code "АБВ\"€ГД!„ ЕДBАДВ\"€ГЗ!„! ИЗBАЗВ\"€ГЙ!„5 К	ЙBАЙВ\"€ГЛ!„I ВЛBАЛВ\"€ГМ!„] В\fМBАМВ\"€ГН!„q ВНBАНВ\"€ГО!„… ВОBАОВ\"€ПР!‡" [nnoo-define nneething-current-directory nil boundp nneething-status-string "" current-load-list nneething-message-id-number 0 nneething-work-buffer " *nneething work*" nneething-group nneething-map nneething-read-only nneething-active nnoo-define-basics-1 nneething] 3)
(defalias 'nneething-retrieve-headers #[(articles &optional group server fetch-old) "А	!€Љ\nq€Г €\fGЖ§… V	КК\f\f@;ѓ- Н‚‘ \f‰A@‰ѓ„ О!\fП\f!ѓd Р\f!„U С\f!ЖU„d ТУ\"c€Ф\f!€Хc€T	ѓ- Ц¦ЖUѓ- ЧШЩ_Ґ\"€‚- 	ѓЌ ЧЪ!€Ы €Н.‡" [nneething-possibly-change-directory group nntp-server-buffer erase-buffer articles number 0 count nnmail-large-newsgroup large nil article file headers nneething-file-name file-exists-p file-directory-p nnheader-file-size format "221 %d Article retrieved.\n" nneething-insert-head ".\n" 20 message "nneething: Receiving headers... %d%%" 100 "nneething: Receiving headers...done" nnheader-fold-continuation-lines] 4])
(nnoo-register-function (quote nneething-retrieve-headers))
(defalias 'nneething-request-article #[(id &optional group server buffer) "А	!€\n;?… Г\n!\f† ‰;…B З!…B И!?…B ЉЙ!€К „@ eb€Лp\"€Мc€)Н*‡" [nneething-possibly-change-directory group id nneething-file-name buffer nntp-server-buffer file file-exists-p file-directory-p nnmail-find-file nnheader-article-p nneething-make-head "\n" t] 4])
(nnoo-register-function (quote nneething-request-article))
(defalias 'nneething-request-group #[(group &optional server dont-check) "А	\n\"€„+ Д €@AVѓ ЖЗ	\"€‚+ ЖИAT@Z@A	%€Й‡" [nneething-possibly-change-directory group server dont-check nneething-create-mapping nneething-active nnheader-insert "211 0 1 0 %s\n" "211 %d %d %d %s\n" t] 6])
(nnoo-register-function (quote nneething-request-group))
(defalias 'nneething-request-list #[(&optional server dir) "АБВ\"‡" [nnheader-report nneething "LIST is not implemented."] 3])
(nnoo-register-function (quote nneething-request-list))
(defalias 'nneething-request-newgroups #[(date &optional server) "АБВ\"‡" [nnheader-report nneething "NEWSGROUPS is not implemented."] 3])
(nnoo-register-function (quote nneething-request-newgroups))
(defalias 'nneething-request-type #[(group &optional article) "А‡" [unknown] 1])
(nnoo-register-function (quote nneething-request-type))
(defalias 'nneething-close-group #[(group &optional server) "АВ‡" [nil nneething-current-directory t] 1])
(nnoo-register-function (quote nneething-close-group))
(defalias 'nneething-open-server #[(server &optional defs) "А €Б\n!ѓ Г‡Дћ„ ЖД\nDC\"ЗИ\n#‡" [nnheader-init-server-buffer nneething-server-opened server t nneething-directory defs append nnoo-change-server nneething] 4])
(nnoo-register-function (quote nneething-open-server))
(defalias 'nneething-possibly-change-directory #[(group &optional server) "ѓ Б!„ В!€…% \fљ?…% ЕЗИB	К ‡" [server nneething-server-opened nneething-open-server group nneething-group nil nneething-map 1 0 nneething-active nneething-create-mapping] 2])
(defalias 'nneething-map-file #[nil "А	!€В	!\fQ‡" [gnus-make-directory nneething-map-file-directory file-name-as-directory nneething-group nneething-map-file] 3])
(defalias 'nneething-create-mapping #[nil "А	!…ЂВ Г	!Д‰А!ѓ  ЙКЛЏ€\f„* НОB\f@Aѓ@ @A:„@ РС\"ѓ Д‰ѓ~ Х@\"ѓq ѓi AЎ€‚u A‚u A‰„P *Д‰ѓЩ @A@ќѓ№ ЧШЩ@A@!!8@AA@љѓ№ @A@B‚Р ЪѓЛ AЎ€‚Р AA‰„Љ *ѓ@ќ„Ъ\f‰ATЎ€\fA@ЧШЩ@!!8EBA‰„Я …?…ЉЭЯаб!!q\"Д#дЋеc€ж!€зc€ж\f!€иc#„M#‚}Ъ=ѓ]\"q€й ‚}\"q€кл!!„rмл!Ъ\"€нedДо%€#.,‡" [file-exists-p nneething-directory nneething-map-file directory-files nil map-files touched files map-file G77734 (byte-code "А	ВГ‰$‡" [load map-file nil t] 5) ((error)) nneething-active 1 0 nneething-map mapcar #[(n) "A@БВГ@!!8E‡" [n 5 file-attributes nneething-file-name] 6] nneething-exclude-files prev f string-match map 5 file-attributes nneething-file-name t nneething-read-only temp-file fundamental-mode default-major-mode get-buffer-create generate-new-buffer-name " *nnheader temp*" temp-buffer temp-results ((byte-code "А	!ѓ\n В	!€А‡" [buffer-name temp-buffer kill-buffer] 2)) "(setq nneething-map '" gnus-prin1 ")\n(setq nneething-active '" ")\n" buffer-string file-directory-p file-name-directory make-directory write-region nomesg] 7])
#@26 Insert the head of FILE.
(defalias 'nneething-insert-head #[(file) "А	!…\f В!€db‡" [nneething-get-head file insert-buffer-substring nneething-work-buffer] 2 (#$ . 5877)])
#@58 Create a head by looking at the file attributes of FILE.
(defalias 'nneething-make-head #[(file &optional buffer) "А	!ГД	!ЕЖЗT‰!ЙК ЛМ\n8Нљѓ\" О‚* ПРМ\n8!ЕQѓF Љq€ТУФХ#…B ЦЧШ!ЕQ)†L ЩЪ\n8	\"ЫЗЬ\n8!!ШVѓc ЭЗЬ\n8!ЕQ‚d Оѓ{ Љq€ЮЗЯed\"!ЕQ)‚| О±\f)‡" [file-attributes file atts "Subject: " file-name-nondirectory "\n" "Message-ID: <nneething-" int-to-string nneething-message-id-number "@" system-name ">\n" 5 (0 0) "" "Date: " current-time-string buffer re-search-forward "<[a-zA-Z0-9_]@[-a-zA-Z0-9_]>" 1000 t "From: " match-string 0 nneething-from-line 2 string-to-int 7 "Chars: " "Lines: " count-lines] 16 (#$ . 6055)])
#@36 Return a From header based of UID.
(defalias 'nneething-from-line #[(uid &optional file) "АБВЏАДЕЏЗИ	\"ѓ0 	К”К•OЗЛ	\"ѓ2 	М”М•OА‚2 Н ПРѓF СТQ‚G УФ°+‡" [nil (user-login-name uid) ((error (byte-code "Б Uѓ\n В ‡ГUѓ Д‡Е!‡" [uid user-uid user-login-name 0 "root" int-to-string] 2))) login (user-full-name uid) ((error (byte-code "Б Uѓ\n В ‡ГU… Д‡" [uid user-uid user-full-name 0 "Ms. Root"] 2))) name string-match "\\`/[^/@]*@\\([^:/]+\\):" file 1 "/\\(users\\|home\\)/\\([^/]+\\)/" 2 system-name host "From: " "@" " (" ")" "" "\n"] 7 (#$ . 6687)])
#@55 Either find the head in FILE or make a head for FILE.
(defalias 'nneething-get-head #[(file) "ЉА	!q€ВДp!€Е €Ж!„ В‚` И!„( Й!ѓ1 К!€Л‚` М!€Н ѓR eb€ОПВЛ#ѓK `S†L dd|€‚_ eb€Кp\"€`d|€Л)‡" [get-buffer-create nneething-work-buffer nil case-fold-search buffer-disable-undo erase-buffer file-exists-p file file-directory-p file-symlink-p nneething-make-head t nnheader-insert-head nnheader-article-p search-forward "\n\n"] 4 (#$ . 7263)])
#@34 Return the file name of ARTICLE.
(defalias 'nneething-file-name #[(article) "А	!\n§ѓ \nћA@‚ \nP‡" [file-name-as-directory nneething-directory article nneething-map] 3 (#$ . 7711)])
(provide (quote nneething))