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 : nnslashdot.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:03 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/gnus/nnslashdot.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 "`nnslashdot.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\302\303!\210\302\304!\210\302\305!\210\302\306!\210\302\307!\210\302\310!\210\302\311!\210\312\236\203/�\312\236A\313\314\315\"\240\210\202:�\312\313\314\315\"\315\211FB\312	\236\204F�\312\316D	B\315\207" [nnoo-definition-alist nnoo-state-alist require nnoo message gnus-util gnus nnmail mm-util mm-url nnslashdot mapcar list nil "*internal-non-initialized-backend*"] 4)
#@111 Where nnslashdot will save its files.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnslashdot-directory (nnheader-concat gnus-directory "slashdot/") (#$ . 1006))
(nnoo-define 'nnslashdot-directory nil)
#@123 Where nnslashdot will fetch the active file from.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnslashdot-active-url "http://slashdot.org/search.pl?section=&min=%d" (#$ . 1250))
(nnoo-define 'nnslashdot-active-url nil)
#@116 Where nnslashdot will fetch comments from.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnslashdot-comments-url "http://slashdot.org/comments.pl?sid=%s&threshold=%d&commentsort=%d&mode=flat&startat=%d" (#$ . 1511))
(nnoo-define 'nnslashdot-comments-url nil)
#@119 Where nnslashdot will fetch the article from.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnslashdot-article-url "http://slashdot.org/article.pl?sid=%s&mode=nocomment" (#$ . 1811))
(nnoo-define 'nnslashdot-article-url nil)
#@119 Where nnslashdot will fetch the stories from.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnslashdot-backslash-url "http://slashdot.org/slashdot.xml" (#$ . 2077))
(nnoo-define 'nnslashdot-backslash-url nil)
#@127 Use the front page in addition to the backslash page.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnslashdot-use-front-page nil (#$ . 2327))
(nnoo-define 'nnslashdot-use-front-page nil)
#@96 The article threshold.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnslashdot-threshold -1 (#$ . 2555))
(nnoo-define 'nnslashdot-threshold nil)
#@130 Whether the nnslashdot groups should be threaded or not.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnslashdot-threaded t (#$ . 2742))
(nnoo-define 'nnslashdot-threaded nil)
#@121 The number of non-fresh groups to keep updated.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnslashdot-group-number 0 (#$ . 2960))
(nnoo-define 'nnslashdot-group-number nil)
#@109 The login name to use when posting.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnslashdot-login-name "" (#$ . 3177))
(nnoo-define 'nnslashdot-login-name nil)
#@107 The password to use when posting.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnslashdot-password "" (#$ . 3379))
(byte-code "\301\302\303\"\210\304B\305\304!\204�\306\304\303\"\210\307B\305\307!\204#�\306\307\303\"\210\310B\305\310!\2042�\306\310\303\"\210\311\312!\207" [current-load-list nnoo-define nnslashdot-password nil nnslashdot-groups default-boundp set-default nnslashdot-buffer nnslashdot-headers nnoo-define-basics-1 nnslashdot] 3)
(defalias 'nnslashdot-retrieve-headers #[(articles &optional group server fetch-old) "\302	\"\210\303\304\305\217\207" [group server nnslashdot-possibly-change-server why (byte-code "?\205	�\303	\n\"\207" [gnus-nov-is-evil articles group nnslashdot-retrieve-headers-1] 3) ((search-failed (nnslashdot-lose why)))] 3])
(nnoo-register-function 'nnslashdot-retrieve-headers)
(defalias 'nnslashdot-retrieve-headers-1 #[(articles group) "\301!@\n\203
�\306\202�\211A@\307\f
\"=\310=8>\311?\312\211@A\312\211BC\312\211DE\312\211FG\312\211HI\312\211JK\312L\212Mq\210\311N\313 \210\306U\203\353�\314\315O>\"\311\"\210eb\210m\203o�\316\317!\210\320\321!\210\322\323!\203\200�\324\325\310!!D\326\327!\210\330`\326\331!S{!E`\306y\210`Z\332\245F\306\211\fDE\331>\333Q\334\335F\312\211PQFRSTEDBU\336UBDETSRFQP&\n.\nB@B@\n\203\345�\310\202\352�\211A@\203\217	X\203\217dbH\314\315V>W\335\310Z%\311\"\210\n\203??\203?\312?db\210\337\340\312\311#\2038\341\325\306!!\211JK>\204JKBK\202\342K\343\"KA\203PAW\203PA\202QAHb\210\320\344\312\311#\203m\325\306!I\325\310!B\325\345!CA\346=8\236\204\213\346=\233AIB\346=8B\240\210\311L\347\350B\"\203\235\351B\335\225\312OPB\324B!B\334D\320\352\312\311#\203\267\324\325\306!!\353PD\326\327!\210\330`\354\312w\210`{!E\355\326\356!\326\357!Z!\360\245F\320\361\312\311#\204\341\312G\202\357\325\306!\211G\362\230\203\357\312GA\211B\363C\364RDE\331>\365I\366\260G\203\331>\365G\366\260\202\334\335F\312\211PQFRSTEDBU\336UBDETSRFQP&\n.\nB@B@\203e@AX\203e\211A@\210\202PATA\202W\n\203\205K\211AK@\211\203\353�\310\\\211\202\354�\211A@\211\204\357�*L\203\230\367 \210\342@\370\"X\212Yq\210\313 \210Z\203\340[p\\]\371\216\312^\372\312!\210X\312_\211`\203\333`@_\373_A!\210`A\211`\204\307.\202\312^X\312_\211a\203a@_\373_A!\210aA\211a\204\356+.\374\207" [articles last nnslashdot-threaded start group nnslashdot-groups 1 assoc 2 t nil erase-buffer mm-url-insert format error "Couldn't open connection to slashdot" re-search-forward "Posted by[ 	
\n]+" looking-at "\$<a[^>]+>\$?[ 	
\n]*\$[^<
\n]+\$" mm-url-decode-entities-string match-string search-forward "on " nnslashdot-date-to-date "<" 60 "%1@slashdot>" "" 0 vector re-search-backward "startat=\$[0-9]+\$" string-to-number sort < "<a name=\"\$[0-9]+\$\">\$[^<]+\$\$?:.*\n\$\\{2,10\\}.*score:\$[^)]+\$)" 3 4 string-match "^Re: *" "Re: " "by[ 	\n]+<[^>]+>\$[^<(]+\$" " <nobody@slashdot.org>" "^()<>\n
" abs "<div" "</div>" 70 ".*cid=\$[0-9]+\$\">Parent</A>" "0" " (" ")" "%" "@slashdot>" nnslashdot-write-groups car-less-than-car ((byte-code "q\210\302	!\207" [#1=#:buffer #2=#:multibyte set-buffer-multibyte] 2)) set-buffer-multibyte nnheader-insert-nov nov entry sid first-comments headers article subject score from date lines parent point cid s startats changed nnslashdot-buffer case-fold-search nnslashdot-article-url extra xref chars references id number nnslashdot-comments-url nnslashdot-threshold nnslashdot-headers nntp-server-buffer mm-emacs-mule enable-multibyte-characters #1# #2# default-enable-multibyte-characters header #3=#:--cl-dolist-temp-- #4=#:--cl-dolist-temp--] 13])
(nnoo-register-function 'nnslashdot-retrieve-headers-1)
(defalias 'nnslashdot-request-group #[(group &optional server dont-check) "\305\306\"\210\307	\n\"\211\204�\310\311\312\"\202.�\310\311\313	#\210\314\315\211A@)\316\211A@)\317	!%)\207" [server group nnslashdot-groups elem x nnslashdot-possibly-change-server nil assoc nnheader-report nnslashdot "Group does not exist" "Opened group %s" nnheader-insert "211 %d %d %d %s\n" 1 prin1-to-string] 8])
(nnoo-register-function 'nnslashdot-request-group)
(defalias 'nnslashdot-close-group #[(group &optional server) "\303	\"\210\304\n!\203�\212\nq\210\305\n!\210)\306\207" [group server nnslashdot-buffer nnslashdot-possibly-change-server gnus-buffer-live-p kill-buffer t] 3])
(nnoo-register-function 'nnslashdot-close-group)
(defalias 'nnslashdot-request-article #[(article &optional group server buffer) "\306	\"\210\307\211\310\311\312\217\210\205\305�\212\f\206�
q\210\313 \210\203y�p\314\216\307\315\307!\210c\210eb\210\316\317\307\320#\203I�\321\322\320\211#\210\2028�eb\210\323c\210\324\325 \"\211!AA)@\326\261\210\"#\236A$\327$!\210)\330\331\332\"#\210,\202\300�\307c\210eb\210\316\317\307\320#\203\223�\321\322\320\211#\210\202\202�eb\210\323c\210\324\325 \"\211!AA)@\326\261\210\"#\236A$\327$!\210)\330\331\332\"#\210)\")B*\207" [group server cid contents buffer nntp-server-buffer nnslashdot-possibly-change-server nil why (byte-code "\212q\210\306eb\210\n;\203M�\307\310\n\"\203M�\311\312\n\"\313\314\f
\"8\211\203L�\211@A)\232\203C�\211@@)\315\211\202#�A\211\204&�)\n\247\203\212�\n\312U\203m�\316\317!\210\316\320!\210`\316\321!\210\322\224{\202\212�\n\313\314\f
\"8\236A\316\323\324\"!\210\316\325!\316\326!\210\322\224{*\315\207" [nnslashdot-buffer case-fold-search article cid group nnslashdot-groups t string-match "%\$[0-9]+\$@" match-string 1 4 assoc nil search-forward "Posted by" "<div class=\"intro\">" "commentwrap" 0 format "<a name=\"%s\">" "<div class=\"commentBody\">" "<div class=\"commentSub\"" map x contents] 6) ((search-failed (nnslashdot-lose why))) erase-buffer ((byte-code "q\210\302	!\207" [#1=#:buffer #2=#:multibyte set-buffer-multibyte] 2)) set-buffer-multibyte re-search-forward "\$<br>
?\$+" t replace-match "<p>" "Content-Type: text/html\nMIME-Version: 1.0\n" "Newsgroups: " assoc "\n" nnheader-insert-header nnheader-report nnslashdot "Fetched article %s" mm-emacs-mule enable-multibyte-characters #1# #2# default-enable-multibyte-characters nnslashdot-groups x article nnslashdot-headers header] 5])
(nnoo-register-function 'nnslashdot-request-article)
(defalias 'nnslashdot-close-server #[(&optional server) "\302!\203�\303	!\203�\212	q\210\304	!\210)\305\306\"\207" [server nnslashdot-buffer nnslashdot-server-opened gnus-buffer-live-p kill-buffer nnoo-close-server nnslashdot] 3])
(nnoo-register-function 'nnslashdot-close-server)
(defalias 'nnslashdot-request-list #[(&optional server) "\306\307\"\210\310	\307\211\211\211\211\311\312\313\217\210\314 \210\315 \210.\316\207" [server nnslashdot-use-front-page gname articles description elem nnslashdot-possibly-change-server nil 0 why (byte-code "\306\307!rq\210\310\216\311 \210\312	\313\"\210eb\210m\203�\314\315!\210\316\317\320\313#\203\203�`\316\321!}\210eb\210\322\323!\210\324\325\326!!\322\327!\210\325\326!\330\331\"\210\325\326\"\322\332!\210\333\325\326!!\n\334\335R\336
'\"\211(\203n�(A\f\240\210\202{�
\f\337 \320\257'B'db\210~\210\202�+)\204\223�*+Z\340V\203
\320)\306\307!,r,q\210\341\216\311 \210\313-\312\342.+\"\313\"\210eb\210\322\343\320\313#\203\325\326!\324\325\344!!\326y\210\322\345\320\313#\203\331�\333\325\326!!T\n\334\335R\336
'\"\211(\203\363�(A\f\240\210\202\265�
\f\337 \320\257'B'\202\265�,+\346\\+\202\204�\320\207" [#1=#:temp-buffer nnslashdot-backslash-url description sid articles gname generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-disable-multibyte mm-url-insert t error "Couldn't open connection to slashdot" search-forward "<story>" nil "</story>" re-search-forward "<title>\$[^<]+\$</title>" mm-url-decode-entities-string match-string 1 "<url>\$[^<]+\$</url>" string-match "sid=\$[0-9/]+\$\$.shtml\\|$\$" "<comments>\$[^<]+\$</comments>" string-to-number " (" ")" assoc current-time 0 ((byte-code "\301!\203\n�\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) format "article.pl\\?sid=\$[^&]+\$.*>\$[^<]+\$</a>" 2 "with \$[0-9]+\$ comment" 30 nnslashdot-groups elem first nnslashdot-group-number number #2# case-fold-search nnslashdot-active-url] 5) ((search-failed (nnslashdot-lose why))) nnslashdot-write-groups nnslashdot-generate-active t sid first number] 7])
(nnoo-register-function 'nnslashdot-request-list)
(defalias 'nnslashdot-request-newgroups #[(date &optional server) "\301\302\"\210\303 \210\304\207" [server nnslashdot-possibly-change-server nil nnslashdot-generate-active t] 3])
(nnoo-register-function 'nnslashdot-request-newgroups)
(defalias 'nnslashdot-request-post #[(&optional server) "\306\307\"\210\310\311!\310\312!\313\314\310\315!!!@\307\211\211,\316\317\f\"\210\320\321\f\"\322 \210`\323 \210`}\210eb\210m\204_�\324\325!\203P�``\326\\|\210\n\204K�\327c\210\330\202Y�\n\203Y�\331c\210\307\321y\210\2024�eb\210\332\333\307\330#\203q�\334\335!\210\202b�~\210\323 \203\216�\336y\210\335c\210m\204\216�\307\210\337c\210\321y\210\202~�\322 \210`d{\340 \210\341\342\343,B\344	B\345\346-B\347.B\350
B\351\352B\353BBBBBBBB\".\207" [server pid quoted body references subject nnslashdot-possibly-change-server nil message-fetch-field "newsgroups" "subject" last split-string "references" string-match "%\$[0-9]+\$@slashdot" match-string 1 message-goto-body message-goto-signature looking-at "> " 2 "<blockquote>\n" t "</blockquote>\n" re-search-forward "^ *\n" replace-match "<p>\n" -1 "<br>" erase-buffer mm-url-fetch-form "http://slashdot.org/comments.pl" "sid" "pid" ("rlogin" . "userlogin") "unickname" "upasswd" "postersubj" ("op" . "Submit") "postercomment" (("posttype" . "html")) sid nnslashdot-login-name nnslashdot-password] 11])
(nnoo-register-function 'nnslashdot-request-post)
(defalias 'nnslashdot-request-delete-group #[(group &optional force server) "\303	\"\210\304\305\n\"\n\"\306 \207" [group server nnslashdot-groups nnslashdot-possibly-change-server delq assoc nnslashdot-write-groups] 4])
(nnoo-register-function 'nnslashdot-request-delete-group)
(defalias 'nnslashdot-request-close #[nil "\302\211\211\207" [nnslashdot-headers nnslashdot-groups nil] 3])
(nnoo-register-function 'nnslashdot-request-close)
(defalias 'nnslashdot-request-expire-articles #[(articles group &optional server force) "\306	\"\210\307\n\"\211\203P�\211AA)A@\203B�
G\211A@)Y\203P�\310\211AA)A@
#\203P�\311\n\"\312 \210\313\202P�\211AA)\314 C\241\210\312 \210)
\207" [group server nnslashdot-groups item x articles nnslashdot-possibly-change-server assoc nnmail-expired-article-p delq nnslashdot-write-groups nil current-time force] 5])
(byte-code "\300\301!\210\302\303!\207" [nnoo-register-function nnslashdot-request-expire-articles nnoo-define-skeleton-1 nnslashdot] 2)
(defalias 'nnslashdot-possibly-change-server #[(&optional group server) "\302!\210\203�\303!\204�\304!\210	?\205�\305 \207" [server nnslashdot-groups nnslashdot-init nnslashdot-server-opened nnslashdot-open-server nnslashdot-read-groups] 2])
(defalias 'nnslashdot-make-tuple #[(tuple n) "	\302V\203�A\204�\303C\241\210A	S\211\202�\207" [tuple n 1 nil] 4])
(defalias 'nnslashdot-read-groups #[nil "\306\307\"\310	!\205I�\311\312!r\nq\210\313\216\314 \210\315	!\210eb\210\316p!+\205I�@G\317W\205I�\320\211\203G�
@\321\f\317\"\210
A\211\2048�*\320)\207" [nnslashdot-directory file #1=#:temp-buffer nnslashdot-groups group #2=#:--cl-dolist-temp-- expand-file-name "groups" file-exists-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-disable-multibyte insert-file-contents read 5 nil nnslashdot-make-tuple] 4])
(defalias 'nnslashdot-write-groups #[nil "\304\305\"\306\307\310!!\311\216r	q\210\312!)r	q\210\313\314\211\n\314\315%\210,\207" [nnslashdot-directory #1=#:temp-buffer #2=#:temp-file nnslashdot-groups expand-file-name "groups" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) gnus-prin1 write-region nil 0] 7])
#@30 Initialize buffers and such.
(defalias 'nnslashdot-init #[(server) "\304!\204\n�\305!\210\306	!?\205�\212\307\310\311\n\"!)\211B\211\207" [nnslashdot-directory nnslashdot-buffer server gnus-buffers file-exists-p gnus-make-directory gnus-buffer-live-p nnheader-set-temp-buffer format " *nnslashdot %s*"] 5 (#$ . 15731)])
(defalias 'nnslashdot-date-to-date #[(sdate) "\300\301\302\217\207" [err (byte-code "\302\303\304!\"\211@\305\306O\307	A@\305\306O\307\310	8\305\310O\307\306	8\311\312O\307\313\314!\307\315	8\260)\207" [sdate elem delete #1="" split-string 0 3 " " 2 1 6 format-time-string "%Y" 4] 13) ((error #1#))] 3])
(defalias 'nnslashdot-generate-active #[nil "\212q\210\305 \210	\306\211\2034�@\211\211A@)\247\203-�\307\n@!\310\311\n\211A@)!\312\261\210A\211\204�+\306\207" [nntp-server-buffer nnslashdot-groups elem #1=#:--cl-dolist-temp-- x erase-buffer nil prin1-to-string " " number-to-string " 1 y\n"] 5])
(defalias 'nnslashdot-lose #[(why) "\300\301!\207" [error "Slashdot HTML has changed; please get a new version of nnslashdot"] 2])
(provide 'nnslashdot)

${this.title}

Code Editor : nnslashdot.elc