Gecko [ 122.154.134.11 ]

Name	Size	Permission
auth-source.elc	5.49 KB	-rw-r--r--
canlock.elc	6.03 KB	-rw-r--r--
compface.elc	1.35 KB	-rw-r--r--
deuglify.elc	8.31 KB	-rw-r--r--
earcon.elc	5.67 KB	-rw-r--r--
ecomplete.elc	4.45 KB	-rw-r--r--
flow-fill.elc	4.57 KB	-rw-r--r--
gmm-utils.elc	7.68 KB	-rw-r--r--
gnus-agent.elc	122.37 KB	-rw-r--r--
gnus-art.elc	258.37 KB	-rw-r--r--
gnus-async.elc	12.09 KB	-rw-r--r--
gnus-audio.elc	2.48 KB	-rw-r--r--
gnus-bcklg.elc	3.67 KB	-rw-r--r--
gnus-bookmark.elc	24.54 KB	-rw-r--r--
gnus-cache.elc	26.11 KB	-rw-r--r--
gnus-cite.elc	27.6 KB	-rw-r--r--
gnus-cus.elc	38.4 KB	-rw-r--r--
gnus-delay.elc	4.98 KB	-rw-r--r--
gnus-demon.elc	8.65 KB	-rw-r--r--
gnus-diary.elc	9 KB	-rw-r--r--
gnus-dired.elc	6.56 KB	-rw-r--r--
gnus-draft.elc	10.7 KB	-rw-r--r--
gnus-dup.elc	4.77 KB	-rw-r--r--
gnus-eform.elc	3.68 KB	-rw-r--r--
gnus-ems.elc	7.21 KB	-rw-r--r--
gnus-fun.elc	8.91 KB	-rw-r--r--
gnus-group.elc	155.85 KB	-rw-r--r--
gnus-int.elc	51.53 KB	-rw-r--r--
gnus-kill.elc	18.37 KB	-rw-r--r--
gnus-logic.elc	5.2 KB	-rw-r--r--
gnus-mh.elc	2.89 KB	-rw-r--r--
gnus-ml.elc	5.22 KB	-rw-r--r--
gnus-mlspl.elc	6.37 KB	-rw-r--r--
gnus-move.elc	3.63 KB	-rw-r--r--
gnus-msg.elc	84.07 KB	-rw-r--r--
gnus-nocem.elc	12.08 KB	-rw-r--r--
gnus-picon.elc	8.63 KB	-rw-r--r--
gnus-range.elc	11.92 KB	-rw-r--r--
gnus-registry.elc	32.46 KB	-rw-r--r--
gnus-salt.elc	29.77 KB	-rw-r--r--
gnus-score.elc	76.25 KB	-rw-r--r--
gnus-setup.elc	5.01 KB	-rw-r--r--
gnus-sieve.elc	8.54 KB	-rw-r--r--
gnus-soup.elc	16.29 KB	-rw-r--r--
gnus-spec.elc	17 KB	-rw-r--r--
gnus-srvr.elc	43.88 KB	-rw-r--r--
gnus-start.elc	142.13 KB	-rw-r--r--
gnus-sum.elc	406.63 KB	-rw-r--r--
gnus-topic.elc	46.81 KB	-rw-r--r--
gnus-undo.elc	4.07 KB	-rw-r--r--
gnus-util.elc	48.22 KB	-rw-r--r--
gnus-uu.elc	57.87 KB	-rw-r--r--
gnus-vm.elc	2.63 KB	-rw-r--r--
gnus-win.elc	12.56 KB	-rw-r--r--
gnus.elc	158.49 KB	-rw-r--r--
html2text.elc	10.59 KB	-rw-r--r--
ietf-drums.elc	7.85 KB	-rw-r--r--
legacy-gnus-agent.elc	6.67 KB	-rw-r--r--
mail-parse.elc	2.44 KB	-rw-r--r--
mail-prsvr.elc	1.29 KB	-rw-r--r--
mail-source.elc	30.28 KB	-rw-r--r--
mailcap.elc	25.11 KB	-rw-r--r--
message.elc	223.29 KB	-rw-r--r--
messcompat.elc	2.83 KB	-rw-r--r--
mm-bodies.elc	6.06 KB	-rw-r--r--
mm-decode.elc	46.1 KB	-rw-r--r--
mm-encode.elc	5.96 KB	-rw-r--r--
mm-extern.elc	4.65 KB	-rw-r--r--
mm-partial.elc	3.44 KB	-rw-r--r--
mm-url.elc	9.94 KB	-rw-r--r--
mm-util.elc	39.83 KB	-rw-r--r--
mm-uu.elc	18.57 KB	-rw-r--r--
mm-view.elc	17.58 KB	-rw-r--r--
mml-sec.elc	12.58 KB	-rw-r--r--
mml-smime.elc	14.58 KB	-rw-r--r--
mml.elc	40.35 KB	-rw-r--r--
mml1991.elc	14.71 KB	-rw-r--r--
mml2015.elc	41.93 KB	-rw-r--r--
nnagent.elc	10.86 KB	-rw-r--r--
nnbabyl.elc	17.45 KB	-rw-r--r--
nndb.elc	29.58 KB	-rw-r--r--
nndiary.elc	39.38 KB	-rw-r--r--
nndir.elc	3.2 KB	-rw-r--r--
nndoc.elc	28.12 KB	-rw-r--r--
nndraft.elc	9.95 KB	-rw-r--r--
nneething.elc	11.98 KB	-rw-r--r--
nnfolder.elc	38.93 KB	-rw-r--r--
nngateway.elc	3.1 KB	-rw-r--r--
nnheader.elc	30.94 KB	-rw-r--r--
nnimap.elc	61.12 KB	-rw-r--r--
nnir.elc	45.26 KB	-rw-r--r--
nnkiboze.elc	11.79 KB	-rw-r--r--
nnlistserv.elc	4.42 KB	-rw-r--r--
nnmail.elc	52.92 KB	-rw-r--r--
nnmaildir.elc	98.94 KB	-rw-r--r--
nnmairix.elc	72.84 KB	-rw-r--r--
nnmbox.elc	19.03 KB	-rw-r--r--
nnmh.elc	15.64 KB	-rw-r--r--
nnml.elc	45.05 KB	-rw-r--r--
nnnil.elc	1.94 KB	-rw-r--r--
nnoo.elc	8.95 KB	-rw-r--r--
nnrss.elc	33.15 KB	-rw-r--r--
nnslashdot.elc	16.43 KB	-rw-r--r--
nnsoup.elc	21.22 KB	-rw-r--r--
nnspool.elc	15.55 KB	-rw-r--r--
nntp.elc	135.97 KB	-rw-r--r--
nnultimate.elc	13.85 KB	-rw-r--r--
nnvirtual.elc	18.99 KB	-rw-r--r--
nnwarchive.elc	21.92 KB	-rw-r--r--
nnweb.elc	18.3 KB	-rw-r--r--
nnwfm.elc	12.56 KB	-rw-r--r--
pop3.elc	13.01 KB	-rw-r--r--
qp.elc	4.12 KB	-rw-r--r--
rfc1843.elc	5.74 KB	-rw-r--r--
rfc2045.elc	1.01 KB	-rw-r--r--
rfc2047.elc	25.24 KB	-rw-r--r--
rfc2104.elc	1.71 KB	-rw-r--r--
rfc2231.elc	6.9 KB	-rw-r--r--
score-mode.elc	3.56 KB	-rw-r--r--
sieve-manage.elc	19.88 KB	-rw-r--r--
sieve-mode.elc	7.1 KB	-rw-r--r--
sieve.elc	10.77 KB	-rw-r--r--
smiley.elc	5.37 KB	-rw-r--r--
smime.elc	18.81 KB	-rw-r--r--
spam-report.elc	11.77 KB	-rw-r--r--
spam-stat.elc	19.88 KB	-rw-r--r--
spam-wash.elc	1.43 KB	-rw-r--r--
spam.elc	87.54 KB	-rw-r--r--
starttls.elc	6.63 KB	-rw-r--r--
utf7.elc	6.08 KB	-rw-r--r--
webmail.elc	28.79 KB	-rw-r--r--
yenc.elc	3.85 KB	-rw-r--r--

Code Editor : nneething.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:56 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/gnus/nneething.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (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 "\302\303!\210\302\304!\210\302\305!\210\302\306!\210\307\236\203#�\307\236A\310\311\312\"\240\210\202.�\307\310\311\312\"\312\211FB\307	\236\204:�\307\313D	B\312\207" [nnoo-definition-alist nnoo-state-alist require 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/") (#$ . 945))
(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" (#$ . 1205))
(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 (#$ . 1398))
(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 (#$ . 1673))
(nnoo-define 'nneething-include-files nil)
#@20 nneething version.
(defconst nneething-version "nneething 1.0" (#$ . 1972))
#@103 Current news group directory.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nneething-current-directory nil (#$ . 2055))
(byte-code "\301\302\303\"\210\304B\305\304!\204�\306\304\307\"\210\301\304\303\"\210\310B\305\310!\204(�\306\310\311\"\210\301\310\303\"\210\312B\305\312!\204<�\306\312\303\"\210\301\312\303\"\210\313B\305\313!\204P�\306\313\303\"\210\301\313\303\"\210\314B\305\314!\204d�\306\314\303\"\210\301\314\303\"\210\315B\305\315!\204x�\306\315\303\"\210\301\315\303\"\210\316B\305\316!\204\214�\306\316\303\"\210\301\316\303\"\210\317\320!\207" [current-load-list nnoo-define nneething-current-directory nil nneething-status-string default-boundp set-default "" nneething-work-buffer " *nneething work*" nneething-group nneething-map nneething-read-only nneething-active nneething-address nnoo-define-basics-1 nneething] 3)
(defalias 'nneething-retrieve-headers #[(articles &optional group server fetch-old) "\306!\210\212	q\210\307 \210\nG\310
\247\205�
V\311\211\n@;\203*�\312\202\214�\n\211A@\211\203~�\313!\314!\203a�\315!\204R�\316\317!!\204a�\320\321\"c\210\322!\210\323c\210\fT\203*�\316\f\324\246!\203*�\325\326\327\f\330_\245#\210\202*�\203\210�\325\326\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 zerop nnheader-file-size format "221 %d Article retrieved.\n" nneething-insert-head ".\n" 20 nnheader-message 5 "nneething: Receiving headers... %d%%" 100 "nneething: Receiving headers...done" nnheader-fold-continuation-lines large article file] 6])
(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 binary 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) "\304	\"\210\n\204+�\305 \210@AV\203�\306\307\"\210\202+�\306\310AT@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\220\307 \310!\311\211\306\f!\203�\311\312\313\217\210
\204$�\314\315B\211@A)\203B�\211@A):\204B�\316\317\" \203~�\311!\211\"\203}�\320 \"@\"\203p�!\203j�!\"A\241\210\202t�A\202t�\"!\"A\211\"\204Q�*#\203\272�\311!\211\"\203\271�\320#\"@\"\204\254�!\203\246�!\"A\241\210\202\260�A\202\260�\"!\"A\211\"\204\215�*\311!\211$\203&$@\211A@)\235\203\321\322\323$@\211A@)!!8$\211@A)\211A@)\232\203$@\211A@)	B$!\202\324!\203!$A\241\210\202A$A\211$\204\305�*\203S@	\235\204L\324
\211AT\241\210
A@\321\322\323@!!8EBA\211\204+\n\205\217%?\205\217\f\325\326\327!!&'\330\216r&q\210\331c\210\332!\210\333c\210\332
!\210\334c)r&q\210\335\311\211'\311\315%\210,,\207" [nneething-address map-files touched files map-file nneething-active file-exists-p nneething-map-file directory-files nil (byte-code "\301\302\303\211$\207" [map-file load nil t] 5) ((error)) 1 0 mapcar #[(n) "A@\301\302\303@!!8E\207" [n 5 file-attributes nneething-file-name] 6] string-match 5 file-attributes nneething-file-name t get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) "(setq nneething-map '" gnus-prin1 ")\n(setq nneething-active '" ")\n" write-region nneething-map x 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 (#$ . 8000)])
#@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\"\n	\305\224OBB\305\225\202
�\314\315\n	\306OB\237\"*\207" [buf pos file coding-system nnmail-pathname-coding-system 0 nil mm-encode-coding-string string-match "[^-0-9a-zA-Z_:/.]" format "%%%02x" apply concat] 5 (#$ . 8193)])
#@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\"!\n	\305\224OBB\305\225\202�\316\317\320\n	\306OB\237\"\2064�\f\"*\207" [buf pos file coding-system nnmail-pathname-coding-system 0 nil string-match "%\$[0-9a-fA-F][0-9a-fA-F]\$" string string-to-number match-string 1 16 mm-decode-coding-string apply concat] 6 (#$ . 8613)])
#@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-\$[^@]+\$@.*>\\'" nneething-decode-file-name match-string 1] 4 (#$ . 9085)])
#@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	8\321\232\203\"�\311\202*�\322\323\320	8!\312Q\203D�\212q\210\324\325\326\327#\205@�\330\331\332!\312Q)\206J�\333\334	8\"\335\336\337	8!!\332V\203a�\340\336\337	8!\312Q\202b�\311\203w�\212q\210\341\336\342ed\"!\312Q)\202x�\311\f\203\247�\343\f
\203\223�\344
;\203\214�
\202\217�\345
!P\202\224�\311(\203\240�\346(P\202\241�\311\347\260\202\250�\311\261)\207" [file atts extra-msg buffer mime-type mime-charset file-attributes "Subject: " file-name-nondirectory "" "\n" "Message-ID: <nneething-" nneething-encode-file-name "@" system-name ">\n" 5 (0 0) "Date: " current-time-string re-search-forward "<[a-zA-Z0-9_]@[-a-zA-Z0-9_]>" 1000 t "From: " match-string 0 nneething-from-line 2 string-to-number int-to-string 7 "Chars: " "Lines: " count-lines "Content-Type: " "; charset=" symbol-name "\nContent-Transfer-Encoding: " "\nMIME-Version: 1.0\n" mime-encoding] 18 (#$ . 9334)])
#@36 Return a From header based of UID.
(defalias 'nneething-from-line #[(uid &optional file) "\304\305\306\217\304\307\310\217\311\312\n\"\203*�\n\313\224\313\225O\311\314\n\"\203,�\n\315\224\315\225O\304\202,�\316 \317\320	\203<�\321	\322Q\202=�\323\324\260+\207" [login name file host nil (user-login-name uid) ((error (byte-code "\301 U\203\n�\302 \207\303!\203�\304\207\305!\207" [uid user-uid user-login-name zerop "root" int-to-string] 2))) (user-full-name uid) ((error (byte-code "\301 U\203\n�\302 \207\303!\205�\304\207" [uid user-uid user-full-name zerop "Ms. Root"] 2))) string-match "\\`/[^/@]*@\$[^:/]+\$:" 1 "/\$users\\|home\$/\$[^/]+\$/" 2 system-name "From: " "@" " (" ")" "" "\n"] 7 (#$ . 10450)])
#@55 Either find the head in FILE or make a head for FILE.
(defalias 'nneething-get-head #[(file) "\212\303!q\210\304\305 \210\306 \210\307\n!\204�\304\2022�\310\n!\204$�\311\n!\203,�\312\n!\210\313\2022�\304\314\315\217\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 (byte-code "\301!\210\302 \203 �eb\210\303\304\305\306#\203�`S\206�dd|\210\202,�eb\210\307p\"\210`d|\210\305\207" [file nnheader-insert-head nnheader-article-p search-forward "\n\n" nil t nneething-make-head] 4) ((file-error (byte-code "\301p\302#\207" [file nneething-make-head " (unreadable)"] 4)))] 3 (#$ . 11188)])
#@34 Return the file name of ARTICLE.
(defalias 'nneething-file-name #[(article) "\306!\307\247\203(�\f\236\211A@)\211\203�\310	\n\"\202,�\311\310\312\n\"!\202,�\310\n\"*\207" [nneething-address fname dir article nneething-map x file-name-as-directory nil expand-file-name make-temp-name "nneething"] 5 (#$ . 11919)])
(provide 'nneething)

${this.title}

Code Editor : nneething.elc