;ELC ;;; compiled by gsstark@lola-granola.MIT.EDU on Tue Jul 23 13:36:21 1996 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.2.37/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 "!!!\"ljFBLJ" [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/" (#$ . -651)) (nnoo-define (quote nneething-map-file-directory) nil) #@25 *Name of the map files. (defvar nneething-map-file ".nneething" (#$ . -817)) (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 (#$ . -946)) (nnoo-define (quote nneething-exclude-files) nil) #@20 nneething version. (defconst nneething-version "nneething 1.0" (#$ . 1156)) #@31 Current news group directory. (defvar nneething-current-directory nil (#$ . 1238)) (byte-code "\"! B\"!!B\"!5B\"!I\nB\"!]\fB\"!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!cT -֦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! @ebp\"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  FB)" [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\"xw@\"jbAnAnAI*@A@@A@!!8@AA@@A@\fBAAA*@\f AT A@@!!8EBA 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 (#$ . 5402)]) #@58 Create a head by looking at the file attributes of FILE. (defalias 'nneething-make-head #[(file &optional buffer) " ! !T! \n8͚\"΂*\n8!QFq#B!Q)L\n8 \"\n8!!Vc\n8!Qd{qed\"!Q)|α\f)" [file-attributes file atts "Subject: " file-name-nondirectory "\n" "Message-ID: \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 (#$ . 5580)]) #@36 Return a From header based of UID. (defalias 'nneething-from-line #[(uid &optional file) "ŏ \"0 ʔʕO \"2 ̔̕O2  FQG԰+" [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 (#$ . 6212)]) #@55 Either find the head in FILE or make a head for FILE. (defalias 'nneething-get-head #[(file) " !qp! !‚`!(!1!˂`! Reb#K`SLdd|_ebp\"`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 (#$ . 6788)]) #@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 (#$ . 7236)]) (provide (quote nneething))