;ELC ;;; Compiled ;;; in Emacs version 27.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/") (#$ . 760)) (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" (#$ . 1020)) (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 (#$ . 1213)) (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 (#$ . 1488)) (nnoo-define 'nneething-include-files nil) #@20 nneething version. (defconst nneething-version "nneething 1.0" (#$ . 1787)) #@103 Current news group directory. This is a Gnus server variable. See Info node `(gnus)Select Methods'. (defvar nneething-current-directory nil (#$ . 1870)) (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\215\n\211A\242\211\203\313!\314!\203a\315!\204R\316!\310U\204a\317\320\"c\210\321!\210\322c\210\fT\203*\f\323\246\310U\203*\324\325\326\327\f\330_ \"#\210\202*\203\211\324\325\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 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 large article file] 7]) (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 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 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\310 AT @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\206\307 \310!\311\211\306\f!\203*\3121%\313\f\311\314\211$0\202)\210\202*\210 \2042\315\316B@A\203H@A:\204H\317\320\"\203\204 \311\211 \203\203\321 @\"\203v\203p A\241\210\202z A\202z  A\211 \204W*!\203\300 \311\211 \203\277\321! @\"\204\262\203\254 A\241\210\202\266 A\202\266  A\211 \204\223*\311\211\"\203\"@A@ \235\203\374\322\323\"@A@!!\3248\262\"@AA@\232\203\374\"@A@ B\"\202\314\203 \"A\241\210\202A\"A\211\"\204\313* \203K @ \235\204D\314 \211AT\241\210 A @\322\323 @!!\3248\262EB A\211\204 \n\205\205#?\205\205\f\325\326!$%\327\216r$q\210\330c\210\331!\210\332c\210\331 !\210\333c)r$q\210\334\311\211%\311\316%\210,,\207" [nneething-address map-files touched files map-file nneething-active file-exists-p nneething-map-file directory-files nil (error) load t 1 0 mapcar #[(n) "A@\301\302@!!\3038\262E\207" [n file-attributes nneething-file-name 5] 5] string-match file-attributes nneething-file-name 5 generate-new-buffer " *temp file*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] "(setq nneething-map '" gnus-prin1 ")\n(setq nneething-active '" ")\n" write-region nneething-map 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 (#$ . 7620)]) #@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\"\314\n \305\224#BB\305\225\202 \315\316\314\n \"B\237\"*\207" [buf pos file coding-system nnmail-pathname-coding-system 0 nil encode-coding-string string-match "[^-0-9a-zA-Z_:/.]" format "%%%02x" substring apply concat] 5 (#$ . 7813)]) #@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\"!\316\n \305\224#BB\305\225\202\317\320\321\316\n \"B\237\" \2065\f\"*\207" [buf pos file coding-system nnmail-pathname-coding-system 0 nil string-match "%\\([[:xdigit:]][[:xdigit:]]\\)" string string-to-number match-string 1 16 substring decode-coding-string apply concat] 6 (#$ . 8245)]) #@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-decode-file-name match-string 1] 4 (#$ . 8731)]) #@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\321 \3228\262\"\203&\311\2021\323\324 \3228\262!\312Q \203Kr q\210\325\326\327\330#\205G\331\332\321!\312Q)\206T\333 \3348\262\" \3358\262\321V\203m\336\337 \3358\262!\312Q\202n\311 \203\203r q\210\340\337\341ed\"!\312Q)\202\204\311\f\203\263\342\f \203\237\343 ;\203\230 \202\233\344 !P\202\240\311'\203\254\345'P\202\255\311\346\260\202\264\311\261)\207" [file atts extra-msg buffer mime-type mime-charset file-attributes "Subject: " file-name-nondirectory "" "\n" "Message-ID: \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" mime-encoding] 18 (#$ . 8980)]) #@36 Return a From header based of UID. (defalias 'nneething-from-line #[(uid &optional file) "\3051 \306!0\202%\210\307 U\203\306 \202%\310U\203\"\311\202%\312!\31311\314!0\202E\210\307 U\203>\314 \202E\310U\205E\315\316\317 \"\203h\320 \321\224\321\225#\316\322 \"\203j\320 \323\224\323\225#\324\202j\325 \326 \327\f\n\203z\330\n\331Q\202{\332\333\260+\207" [uid login name file host (error) user-login-name user-uid 0 "root" int-to-string (error) user-full-name "Ms. Root" string-match "\\`/[^/@]*@\\([^:/]+\\):" substring 1 "/\\(users\\|home\\)/\\([^/]+\\)/" 2 nil system-name "From: " "@" " (" ")" "" "\n"] 7 (#$ . 10107)]) #@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\202f\310\n!\204$\311\n!\203,\312\n!\210\313\202f\3141^\315\n!\210\316 \203Oeb\210\317\320\304\313#\203I`S\206Jdd|\202Zeb\210\312\np\"\210`d|0\202d\210\312\np\321#\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 (file-error) nnheader-insert-head nnheader-article-p search-forward "\n\n" " (unreadable)"] 4 (#$ . 10767)]) #@34 Return the file name of ARTICLE. (defalias 'nneething-file-name #[(article) "\305!\306 \247\203% \f\236A@\211\203\307 \n\"\202)\310\307\311\n\"!\202)\307 \n\"*\207" [nneething-address fname dir article nneething-map file-name-as-directory nil expand-file-name make-temp-name "nneething"] 4 (#$ . 11384)]) (provide 'nneething)