;ELC   
;;; compiled by larsi@ifi.uio.no on Fri Jun 28 20:34:05 1996
;;; from file /gd/gnu/emacs/19.0/lisp/nneething.el
;;; emacs version 19.31.4.
;;; 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Ǉ" [require nnheader nnmail nnoo nneething mapcar #[(p) "C" [p] 1] nil nnoo-definition-alist] 4)
#@40 *Where nneething stores the map files.
(defvar nneething-map-file-directory "~/.nneething/" (#$ . -605))
(nnoo-define (quote nneething-map-file-directory) nil)
#@25 *Name of the map files.
(defvar nneething-map-file ".nneething" (#$ . -771))
(nnoo-define (quote nneething-map-file) nil)
#@106 *Regexp saying what files to exclude from the group.
If this variable is nil, no files will be excluded.
(defvar nneething-exclude-files nil (#$ . -900))
(nnoo-define (quote nneething-exclude-files) nil)
#@20 nneething version.
(defconst nneething-version "nneething 1.0" (#$ . 1110))
#@31 Current news group directory.
(defvar nneething-current-directory nil (#$ . 1192))
(byte-code "\"! B\"!! B\"!5 B\"!I \nB\"!] \fB\"!q B\"! B\"! B\"! B\"!" [nnoo-define nneething-current-directory nil boundp nneething-status-string "" current-load-list nneething-group-alist nneething-message-id-number 0 nneething-work-buffer " *nneething work*" nneething-directory 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@;- ͂ \fA@ !\f\f!d \f!U \f!Ud \"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 dir dont-check) "	\n\"+  @AV 	\"+ AT@Z@A	%ɇ" [nneething-possibly-change-directory group dir 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-possibly-change-directory #[(group &optional dir) "Q 	 	 \"1 \fA@\f8	\f8P \f	B \f	FB)" [group nneething-group t nil entry assoc nneething-group-alist nneething-directory 2 nneething-map 3 nneething-active dir 1 0 nneething-create-mapping] 4])
(defalias 'nneething-map-file #[nil "	! 	\"	!Q" [file-exists-p nneething-map-file-directory make-directory parents file-name-as-directory nneething-group nneething-map-file] 3])
(defalias 'nneething-create-mapping #[nil " \n!É! ʏ# B@A9 @A:9 \"x w @\"j b An An AI * @A@ @A@!!8@AA@ @A@\fB  A AA *@\f ATA@@!!8EBA 1?1!!!߱ed%p!)," [nneething-map-file directory-files nneething-directory nil map-files touched files map-file file-exists-p (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 nnheader-set-temp-buffer " *nneething map*" "(setq nneething-map '" prin1-to-string ")\n" "(setq nneething-active '" write-region nomesg kill-buffer] 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 (#$ . 5356)])
#@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!!Vc \n8!Qd { qed\"!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 (#$ . 5534)])
#@36 Return a From header based of UID.
(defalias 'nneething-from-line #[(uid &optional file) "ŏ	\"0 	ʔʕO	\"2 	̔̕O2  F QG ԰+" [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 (#$ . 6166)])
#@55 Either find the head in FILE or make a head for FILE.
(defalias 'nneething-get-head #[(file) "	!qp! ! ` !( !1 !˂` ! R eb#K `SL 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 (#$ . 6742)])
#@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 (#$ . 7190)])
(provide (quote nneething))
