Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
gnus /
[ HOME SHELL ]
Name
Size
Permission
Action
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--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : gnus-int.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:30 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/gnus/gnus-int.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 "`gnus-int.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\"\210\304\307\306\"\210\304\310\306\"\210\304\311\306\"\207" [require gnus message gnus-range autoload gnus-agent-expire "gnus-agent" gnus-agent-regenerate-group gnus-agent-read-servers-validate-native gnus-agent-possibly-synchronize-flags-server] 3) #@64 Hook called just before opening connection to the news server. (custom-declare-variable 'gnus-open-server-hook 'nil '(#$ . 927) :group 'gnus-start :type 'hook) #@270 The default status if the server is not able to open. If the server is covered by Gnus agent, the possible values are `denied', set the server denied; `offline', set the server offline; nil, ask user. If the server is not covered by Gnus agent, set the server denied. (custom-declare-variable 'gnus-server-unopen-status 'nil '(#$ . 1094) :version "22.1" :group 'gnus-start :type '(choice (const :tag "Ask" nil) (const :tag "Deny server" denied) (const :tag "Unplug Agent" offline))) #@39 The current method, for the registry. (defvar gnus-internal-registry-spool-current-method nil (#$ . 1584)) #@68 Check whether a connection to GNUS-COMMAND-METHOD has been opened. (defalias 'gnus-server-opened #[(gnus-command-method) "\306!\307=?\205;\203\375 \211\203 <\203 \206\373 \310 \n\"A\206\373 \311\232\203/ \206\353 \310 \f\"A\206\353 \310 \"A\206\353 \203n \312\313\211 @@)@\211 @@)A@#\232\204n \211A@\210\202C \211 @@*\206\353 \203\246 \312\313\211 @@)\211 @A)@#\232\204\246 \211A@\210\202} @)\206\353 A\314\211 \203\350 \315\211A@8\211;\204\270 \314 \316\317\215*\232\203\270 \314\211\204\275 +\211 \203\370 B\nB ))\320\321\"A@!\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-server-status denied assoc "native" format "%s:%s" nil 4 server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" x name name-method] 5) gnus-get-function server-opened gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist nocache result] 6 (#$ . 1697)]) #@169 Return the status message from GNUS-COMMAND-METHOD. If GNUS-COMMAND-METHOD is a string, it is interpreted as a group name. The method this group uses will be queried. (defalias 'gnus-status-message #[(gnus-command-method) ";\203 \301!\202\f \302\303\"A@!)\207" [gnus-command-method gnus-find-method-for-group gnus-get-function status-message] 3 (#$ . 3322)]) #@99 Open a method for getting news. If CONFIRM is non-nil, the user will be asked for an NNTP server. (defalias 'gnus-start-news-server #[(&optional confirm) "\306 ?\205\320 \n\204 \306\f\203 \307\310\311\312 C B\"\306\211 % \203a ;\203a \313\230\204a \313\230\204: \314\230\203A \315\316 D\202_ \317\320 \"\203\\ \321 \322\323\324 \325\306O\326\"!D\327\306DF\202_ \330 D))@\211\315=\203w \331\315!\210\332\333\334\"\210\202\215 \321=\203\211 \331\321!\210\332\333\335\"\210\202\215 \331\330!\210)\336\337!\210*\203\236 \340)!\210\341)!\206\320 \342)!\206\320 +\206\320 \343\344\345)@)\211 ,A@)\346)!$!\206\320 \347\325\350)A@#)\207" [how gnus-current-select-method gnus-nntp-service gnus-nntp-server confirm gnus-secondary-servers nil completing-read "NNTP server: " mapcar list "" "::" nnspool system-name string-match "^:" nnmh nnmh-directory file-name-as-directory expand-file-name 1 "~/" nnmh-get-new-mail nntp require gnus-message 5 "Looking up local news spool..." "Looking up mh spool..." gnus-run-hooks gnus-open-server-hook gnus-agent-read-servers-validate-native gnus-server-opened gnus-open-server gnus-y-or-n-p format "%s (%s) open error: '%s'. Continue? " gnus-status-message gnus-error "Couldn't open server on %s" gnus-select-method gnus-agent gnus-batch-mode x] 9 (#$ . 3695)]) #@63 Try to make sure that the server where GROUP exists is alive. (defalias 'gnus-check-group #[(group) "\302!\303 !\206 \304 !)\207" [group method gnus-find-method-for-group gnus-server-opened gnus-open-server] 2 (#$ . 5017)]) #@129 Check whether the connection to METHOD is down. If METHOD is nil, use `gnus-select-method'. If it is down, start it up (again). (defalias 'gnus-check-server #[(&optional method silent) "\206 \306\211;\203\365 \211\203 <\203 \206\363 \307 \f\"A\206\363 \310\232\203. \206\346 \307 \"A\206\346 \307 \"A\206\346 \203n \311\312 \211 @@)@ \211 @@)A@#\232\204n \211A @\210\202C \211 @@*\206\346 !!\203\246 \311\312!\211 @@)!\211 @A)@#\232\204\246 !\211A!@\210\202} !@)\206\346 \"A\306\211 # $$\203\343 \313$\211A$@8\211;\204\267 \306 %\314\315\215*\232\203\267 #\306\211$\204\274 #+\211\203\361 \nB\fB\n))\316!\203\377 \317\202L&\204 \320\321\322@A@\323\232\203\323\202\311\324A@\"$\210\325\326!\210\306\327\330\217&\204L\320\321\331@A@\323\232\203;\323\202A\311\324A@\"\n\203I\332\202J\333%\210*\207" [method gnus-select-method result server gnus-server-method-cache gnus-server-alist nil assoc "native" format "%s:%s" 4 server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1="") format "%s" "%s:%s" x name name-method] 5) gnus-server-opened t gnus-message 5 "Opening %s server%s..." #1# " on %s" gnus-run-hooks gnus-open-server-hook (byte-code "\302!\211\207" [method result gnus-open-server] 2) ((quit (message "Quit gnus-check-server") nil)) "Opening %s server%s...%s" "done" "failed" gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match alist nocache silent] 9 (#$ . 5251)]) #@56 Return a function symbol based on METHOD and FUNCTION. (defalias 'gnus-get-function #[(method function &optional noerror) "\204 \306\307!\210;\203\367 \211\203 <\203 \206\365 \310 \n\"A\206\365 \311\232\203. \206\345 \310 \f\"A\206\345 \310 \"A\206\345 \203m \312\313\211 @@)@\211 @@)A@#\232\204m \211A@\210\202B \211 @@*\206\345 \203\245 \312\313 \211 @@) \211 @A)@#\232\204\245 \211A @\210\202| @)\206\345 A\314\211 !!\203\342 \315!\211A!@8\211;\204\266 \314 \"\316\317\215*\232\203\266 \314\211!\204\273 +\211 #\203\362 #B\nB#))$\203\320!\203 @\202\321\322!\210\322)\202@\211 %\323N &'&\236\211 (\204?'\324\312\325%'#!B(\326%\323(&B#\210(A) )\327)!\204r@\204U\306\330!\210\321@!\210\327)!\204r*\203l\314)\202r\306\331)\"\210)+\207" [method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist error "Attempted use of a nil select method" assoc "native" format "%s:%s" nil 4 server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" x name name-method] 5) gnus-online require nnagent gnus-method-functions intern "%s-%s" put fboundp "Trying to require a method that doesn't exist" "No such function: %s" gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match alist nocache result gnus-agent method-sym method-fns function method-fnlist-elt func noerror] 7 (#$ . 7328)]) #@43 Open a connection to GNUS-COMMAND-METHOD. (defalias 'gnus-open-server #[(gnus-command-method) ";\203\364 \211\203 <\203 \206\362 \306 \n\"A\206\362 \307\232\203& \206\342 \306 \f\"A\206\342 \306 \"A\206\342 & ''\203e \310\311'\211 (@@)@'\211 (@@)A@#\232\204e '\211A'@\210\202: '\211 (@@*\206\342 ) **\203\235 \310\311*\211 (@@)*\211 (@A)@#\232\204\235 *\211A*@\210\202t *@)\206\342 +A\312\211 , - ..\203\337 \313.\211A.@8\211-;\204\257 -\312 / -\314\315\215*\232\203\257 -,\312\211.\204\264 ,+\211 0\203\357 0B\nB0))\306&\" -\310\316-@\"\306\310\316-@\"\317\320!\"\204\321-1\"\2050-A@\2050-A@\322\230?\2050\323-A@PP)\211 2A@\324=\203G\325\326\327 #\210\312\202\344\330\331\" 3\332\333\334\217 0\312 42\204f\312D\2112&B&2A0\203}3\335=\203y\336\202\262\337\202\2625\203\261\340!\203\2616\203\2306\336=46\202\2627\204\255\341\310\342 \"!\203\255\3434\336\202\262\324\202\262\324\240\2104\203\303\324 6\344!)\202\3432\211 (A@)\337=\203\3415\203\341\340!\203\341\212\345!\210)0+*\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1="") format "%s" "%s:%s" x name name-method] 5) "%s" gnus-methods-using address gnus-server-equal #1# "+" denied gnus-message 1 "Denied server %s" gnus-get-function open-server err (byte-code " A@ AA\"\207" [open-server-function gnus-command-method] 3) ((error (byte-code "\302\303\304\305\306 !#\"\210\307\207" [server err gnus-message 1 format "Unable to open server %s due to: %s" error-message-string nil] 7)) (quit (gnus-message 1 "Quit trying to open server %s" server) nil)) nnagent-open-server offline ok gnus-agent-method-p gnus-y-or-n-p "Unable to open server %s, go offline? " t gnus-open-server gnus-agent-possibly-synchronize-flags-server gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist nocache result gnus-message-archive-method elem open-server-function open-offline gnus-agent gnus-server-unopen-status gnus-batch-mode] 7 (#$ . 9359)]) #@46 Close the connection to GNUS-COMMAND-METHOD. (defalias 'gnus-close-server #[(gnus-command-method) ";\203\364 \211\203 <\203 \206\362 \306 \n\"A\206\362 \307\232\203& \206\342 \306 \f\"A\206\342 \306 \"A\206\342 \203e \310\311\211 @@)@\211 @@)A@#\232\204e \211A@\210\202: \211 @@*\206\342 \203\235 \310\311\211 @@)\211 @A)@#\232\204\235 \211A@\210\202t @)\206\342 A\312\211 \203\337 \313\211A@8\211;\204\257 \312 \314\315\215*\232\203\257 \312\211\204\264 +\211 \203\357 B\nB))\316\317\"A@!\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" x name name-method] 5) gnus-get-function close-server gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist nocache result] 6 (#$ . 12112)]) #@51 Request the active file from GNUS-COMMAND-METHOD. (defalias 'gnus-request-list #[(gnus-command-method) ";\203\364 \211\203 <\203 \206\362 \306 \n\"A\206\362 \307\232\203& \206\342 \306 \f\"A\206\342 \306 \"A\206\342 \203e \310\311\211 @@)@\211 @@)A@#\232\204e \211A@\210\202: \211 @@*\206\342 \203\235 \310\311\211 @@)\211 @A)@#\232\204\235 \211A@\210\202t @)\206\342 A\312\211 \203\337 \313\211A@8\211;\204\257 \312 \314\315\215*\232\203\257 \312\211\204\264 +\211 \203\357 B\nB))\316\317\"A@!\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" x name name-method] 5) gnus-get-function request-list gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist nocache result] 6 (#$ . 13669)]) #@55 Request the newsgroups file from GNUS-COMMAND-METHOD. (defalias 'gnus-request-list-newsgroups #[(gnus-command-method) ";\203\364 \211\203 <\203 \206\362 \306 \n\"A\206\362 \307\232\203& \206\342 \306 \f\"A\206\342 \306 \"A\206\342 \203e \310\311\211 @@)@\211 @@)A@#\232\204e \211A@\210\202: \211 @@*\206\342 \203\235 \310\311\211 @@)\211 @A)@#\232\204\235 \211A@\210\202t @)\206\342 A\312\211 \203\337 \313\211A@8\211;\204\257 \312 \314\315\215*\232\203\257 \312\211\204\264 +\211 \203\357 B\nB))\316\317\"A@!\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" x name name-method] 5) gnus-get-function request-list-newsgroups gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist nocache result] 6 (#$ . 15231)]) #@61 Request all new groups since DATE from GNUS-COMMAND-METHOD. (defalias 'gnus-request-newgroups #[(date gnus-command-method) ";\203\364 \211\203 <\203 \206\362 \306 \n\"A\206\362 \307\232\203& \206\342 \306 \f\"A\206\342 \306 \"A\206\342 \203e \310\311\211 @@)@\211 @@)A@#\232\204e \211A@\210\202: \211 @@*\206\342 \203\235 \310\311\211 @@)\211 @A)@#\232\204\235 \211A@\210\202t @)\206\342 A\312\211 \203\337 \313\211A@8\211;\204\257 \312 \314\315\215*\232\203\257 \312\211\204\264 +\211 \203\357 B\nB))\316\317\320#\211 \205 A@\")\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" x name name-method] 5) gnus-get-function request-newgroups t gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist nocache result func date] 6 (#$ . 16819)]) #@53 Request a data generation from GNUS-COMMAND-METHOD. (defalias 'gnus-request-regenerate #[(gnus-command-method) ";\203\364 \211\203 <\203 \206\362 \306 \n\"A\206\362 \307\232\203& \206\342 \306 \f\"A\206\342 \306 \"A\206\342 \203e \310\311\211 @@)@\211 @@)A@#\232\204e \211A@\210\202: \211 @@*\206\342 \203\235 \310\311\211 @@)\211 @A)@#\232\204\235 \211A@\210\202t @)\206\342 A\312\211 \203\337 \313\211A@8\211;\204\257 \312 \314\315\215*\232\203\257 \312\211\204\264 +\211 \203\357 B\nB))\316\317\"A@!\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" x name name-method] 5) gnus-get-function request-regenerate gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist nocache result] 6 (#$ . 18439)]) (defalias 'gnus-request-compact-group #[(group) "\304!\211\305\n\306\"\307\310 \"\203 \311\225\312O\202 )\nA@\313#*\207" [group method gnus-command-method gname gnus-find-method-for-group gnus-get-function request-compact-group string-match "^[^:]+:" 0 nil t] 5]) #@54 Request groups compaction from GNUS-COMMAND-METHOD. (defalias 'gnus-request-compact #[(gnus-command-method) ";\203\364 \211\203 <\203 \206\362 \306 \n\"A\206\362 \307\232\203& \206\342 \306 \f\"A\206\342 \306 \"A\206\342 \203e \310\311\211 @@)@\211 @@)A@#\232\204e \211A@\210\202: \211 @@*\206\342 \203\235 \310\311\211 @@)\211 @A)@#\232\204\235 \211A@\210\202t @)\206\342 A\312\211 \203\337 \313\211A@8\211;\204\257 \312 \314\315\215*\232\203\257 \312\211\204\264 +\211 \203\357 B\nB))\316\317\"A@!\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" x name name-method] 5) gnus-get-function request-compact gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist nocache result] 6 (#$ . 20288)]) #@60 Request GROUP. If DONT-CHECK, no information is required. (defalias 'gnus-request-group #[(group &optional dont-check gnus-command-method) "\206\224 \306 \206\223 \204 \f\206\223\307 \"J\204N /\310\311/\"\203; \312\313\314\315/\"\314\316/\"\2067 \317#\202G \312\313\f@\f\211 0A@)#)\211 1\203Y 1<\203Y 1\206D\32012\"A\206D1\321\232\203n \f\2061\32013\"A\2061\32014\"A\20615 66\203\262 1\312\3136\211 0@@)@6\211 0@@)A@#\232\204\262 6\211A6@\210\202\206 6\211 0@@*\20617 88\203\353 1\312\3138\211 0@@)8\211 0@A)@#\232\204\353 8\211A8@\210\202\301 8@)\20619A\306\211 : ; <<\203.\322<\211A<@8\211;;\204\375 1;\306 = ;\323\324\215*\232\203\375 ;:\306\211<\204:+\211 >\203A1>B2B2>))\206\223\325 !\206\223\n\206Y\316\307 \"J8\306 ;\211\203q\322\n8\211;\203q;\321\232\203u\f\202\222;;\203};\211 1\203\2161<\203\2161\206y\32012\"A\206y1\321\232\203\243\f\206f\32013\"A\206f\32014\"A\206f5 66\203\3471\312\3136\211 0@@)@6\211 0@@)A@#\232\204\3476\211A6@\210\202\2736\211 0@@*\206f7 88\203 1\312\3138\211 0@@)8\211 0@A)@#\232\204 8\211A8@\210\202\3668@)\206f9A\306\211 : ; <<\203c\322<\211A<@8\211;;\20421;\306 = ;\323\326\215*\232\2032;:\306\211<\2047:+\211 >\203v1>B2B2>))\202);\211 0A@);\203' ; ;; ;5 6;\203\3436\203\343;\211 0A@)6\211 0@@)A@\232\203\330;@6\211 0@@)@\232\203\330;6\211 0@@)\232\204\330\306;6\211A6@\210\202\227;*\204\364;\211 0AA)\204\371;\202#;@;\211 0A@)\327 Q\330\312\331;@\"!;\211 0A@)D;\211 0AA)BBB*\202);\211;\211 0A@)\317\232\203<;\202\222;\211 0A@)\204O;@\317D\202\222; ;\332;@! ?\333\320?@\">\203\217\330?\334P!;\236\204\217\335;@@\236>\203\217\336;\330?\334P!;A@DC\"\202\221;***\211;\203\231\211 1\203\2541<\203\2541\206\227\32012\"A\206\2271\321\232\203\301\f\206\204\32013\"A\206\204\32014\"A\206\2045 66\2031\312\3136\211 0@@)@6\211 0@@)A@#\232\2046\211A6@\210\202\3316\211 0@@*\206\2047 88\203>1\312\3138\211 0@@)8\211 0@A)@#\232\204>8\211A8@\210\2028@)\206\2049A\306\211 : ; <<\203\201\322<\211A<@8\211;;\204P1;\306 = ;\323\337\215*\232\203P;:\306\211<\204U:+\211 >\203\2241>B2B2>))\340\306 A B\211 ;\204\252\341\342!\210;;\203\261;\211 1\203\3031<\203\3031\206\256\32012\"A\206\2561\321\232\203\330\f\206\233\32013\"A\206\233\32014\"A\206\2335 66\203 1\312\3136\211 0@@)@6\211 0@@)A@#\232\204 6\211A6@\210\202\3606\211 0@@*\206\2337 88\203U1\312\3138\211 0@@)8\211 0@A)@#\232\204U8\211A8@\210\202+8@)\206\2339A\306\211 : ; <<\203\230\322<\211A<@8\211;;\204g1;\306 = ;\323\343\215*\232\203g;:\306\211<\204l:+\211 >\203\2531>B2B2>));C\203\320; ;\344;!\203\307;@\202\314\345\346!\210\346)\202\323;@\211 D\347N EBE\236\211 F\204\376B\330\312\350DB#!BF\351D\347FEB#\210FA) G\352G!\2043;@\204\341\353!\210\345;@!\210\352G!\2043A\203-\306G\2023\341\354G\"\210G. /\310\355/\"\203K/\356\225\306O\202M/)A@H#)\207" [gnus-command-method group info gnus-override-method gnus-select-method gnus-newsrc-hashtb nil intern-soft string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 #1="" assoc "native" 4 server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2=(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[#3=(server-alist) "\301\302\"\207" [server-alist mapc #[#4=(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5=(nil #1#) format #6="%s" #7="%s:%s" x name name-method] 5) gnus-group-name-to-method (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2# "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[#3# "\301\302\"\207" [server-alist mapc #[#4# "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5# format #6# #7# x name name-method] 5) "+" intern "%s-address" symbol-name address "-address" physical-address append (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2# "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[#3# "\301\302\"\207" [server-alist mapc #[#4# "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5# format #6# #7# x name name-method] 5) request-group error "Attempted use of a nil select method" (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2# "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[#3# "\301\302\"\207" [server-alist mapc #[#4# "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5# format #6# #7# x name name-method] 5) gnus-online require nnagent gnus-method-functions "%s-%s" put fboundp "Trying to require a method that doesn't exist" "No such function: %s" "^[^:]+:" 0 gname x server gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist nocache result method-name gnus-valid-select-methods noerror function gnus-agent method-sym method-fns method-fnlist-elt func dont-check] 8 (#$ . 21859)]) #@38 Request active information on GROUP. (defalias 'gnus-list-active-group #[(group) "\304!\305 \306\307\310\217*\205- \311\n \"\312\313 \"\203' \314\225\306O\202( )\nA@\"*\207" [group func gnus-command-method gname gnus-find-method-for-group list-active-group nil (byte-code ";\203\f \303!@\202 \304 !\204 \305 !\210\306\307\310\311 \n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) gnus-get-function string-match "^[^:]+:" 0] 4 (#$ . 28292)]) #@33 Request a description of GROUP. (defalias 'gnus-request-group-description #[(group) "\304!\305 \306\307\310\217*\205- \311\n \"\312\313 \"\203' \314\225\306O\202( )\nA@\"*\207" [group func gnus-command-method gname gnus-find-method-for-group request-group-description nil (byte-code ";\203\f \303!@\202 \304 !\204 \305 !\210\306\307\310\311 \n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) gnus-get-function string-match "^[^:]+:" 0] 4 (#$ . 28824)]) #@47 Request a list of existing articles in GROUP. (defalias 'gnus-request-group-articles #[(group) "\304!\305 \306\307\310\217*\205- \311\n \"\312\313 \"\203' \314\225\306O\202( )\nA@\"*\207" [group func gnus-command-method gname gnus-find-method-for-group request-group-articles nil (byte-code ";\203\f \303!@\202 \304 !\204 \305 !\210\306\307\310\311 \n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) gnus-get-function string-match "^[^:]+:" 0] 4 (#$ . 29367)]) #@30 Request the GROUP be closed. (defalias 'gnus-close-group #[(group) "\306\n\206\213\204 \206\213\307\f\"J\204F \310\311 \"\2033 \312\313\314\315 \"\314\316 \"\206/ \317#\202? \312\313 @ \211 #A@)#)\211 $\203Q $<\203Q $\206<\320$%\"A\206<$\321\232\203f \206)\320$&\"A\206)\320$'\"A\206)( ))\203\252 $\312\313)\211 #@@)@)\211 #@@)A@#\232\204\252 )\211A)@\210\202~ )\211 #@@*\206)* ++\203\343 $\312\313+\211 #@@)+\211 #@A)@#\232\204\343 +\211A+@\210\202\271 +@)\206),A\306\211 - . //\203&\322/\211A/@8\211.;\204\365 $.\306 0 .\323\324\215*\232\203\365 .-\306\211/\204\372 -+\211 1\2039$1B%B%1))\206\213\325!\206\213 \206Q\316\307\f\"J8\306 .\211\203i\322 8\211.\203i.\321\232\203m \202\212.;\203u.\211 $\203\206$<\203\206$\206q\320$%\"A\206q$\321\232\203\233 \206^\320$&\"A\206^\320$'\"A\206^( ))\203\337$\312\313)\211 #@@)@)\211 #@@)A@#\232\204\337)\211A)@\210\202\263)\211 #@@*\206^* ++\203$\312\313+\211 #@@)+\211 #@A)@#\232\204+\211A+@\210\202\356+@)\206^,A\306\211 - . //\203[\322/\211A/@8\211.;\204*$.\306 0 .\323\326\215*\232\203*.-\306\211/\204/-+\211 1\203n$1B%B%1))\202!.\211 #A@);\203 . .. .( ).\203\333)\203\333.\211 #A@))\211 #@@)A@\232\203\320.@)\211 #@@)@\232\203\320.)\211 #@@)\232\204\320\306.)\211A)@\210\202\217.*\204\354.\211 #AA)\204\361.\202.@.\211 #A@)\327Q\330\312\331.@\"!.\211 #A@)D.\211 #AA)BBB*\202!.\211.\211 #A@)\317\232\2034.\202\212.\211 #A@)\204G.@\317D\202\212. .\332.@! 2\333\32023\">\203\207\3302\334P!.\236\204\207\335.@3\236>\203\207\336.\3302\334P!.A@DC\"\202\211.*** 4\3374\340\" \310\341 \"\203\244 \342\225\306O\202\245 )4A@\")\207" [group info gnus-override-method gnus-select-method gnus-newsrc-hashtb gname nil intern-soft string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 #1="" assoc "native" 4 server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2=(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[#3=(server-alist) "\301\302\"\207" [server-alist mapc #[#4=(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5=(nil #1#) format #6="%s" #7="%s:%s" x name name-method] 5) gnus-group-name-to-method (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2# "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[#3# "\301\302\"\207" [server-alist mapc #[#4# "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5# format #6# #7# x name name-method] 5) "+" intern "%s-address" symbol-name address "-address" physical-address append gnus-get-function close-group "^[^:]+:" 0 x server gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist nocache result method-name gnus-valid-select-methods gnus-command-method] 7 (#$ . 29918)]) #@114 Request headers for ARTICLES in GROUP. If FETCH-OLD, retrieve all headers (or some subset thereof) in the group. (defalias 'gnus-retrieve-headers #[(articles group &optional fetch-old) "\306!\n\203 @\247\203 \307 \f#\202O \203. \310 !\203. \311 !\203. \312 \f#\202O \313 \314\" \315\316\"\203G \317\225\320O\202I ) A@\f$)\207" [group gnus-command-method gnus-use-cache articles fetch-old gnus-agent gnus-find-method-for-group gnus-cache-retrieve-headers gnus-online gnus-agent-method-p gnus-agent-retrieve-headers gnus-get-function retrieve-headers string-match "^[^:]+:" 0 nil gname] 5 (#$ . 33584)]) #@28 Request ARTICLES in GROUP. (defalias 'gnus-retrieve-articles #[(articles group) "\304!\305 \306\"\n\307\310 \"\203 \311\225\312O\202 ) A@#)\207" [group gnus-command-method articles gname gnus-find-method-for-group gnus-get-function retrieve-articles string-match "^[^:]+:" 0 nil] 5 (#$ . 34209)]) #@64 Request active information on GROUPS from GNUS-COMMAND-METHOD. (defalias 'gnus-retrieve-groups #[(groups gnus-command-method) ";\203\364 \211\203 <\203 \206\362 \306 \n\"A\206\362 \307\232\203& \206\342 \306 \f\"A\206\342 \306 \"A\206\342 \203e \310\311\211 @@)@\211 @@)A@#\232\204e \211A@\210\202: \211 @@*\206\342 \203\235 \310\311\211 @@)\211 @A)@#\232\204\235 \211A@\210\202t @)\206\342 A\312\211 \203\337 \313\211A@8\211;\204\257 \312 \314\315\215*\232\203\257 \312\211\204\264 +\211 \203\357 B\nB))\316\317\"A@\"\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" x name name-method] 5) gnus-get-function retrieve-groups gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist nocache result groups] 6 (#$ . 34520)]) #@60 Return the type (`post' or `mail') of GROUP (and ARTICLE). (defalias 'gnus-request-type #[(group &optional article) "\305!\306 @\307\310\311\217*\204 \312\202. \313 \306\"\314\315 \"\203* \316\225\307O\202+ )\f\")\207" [group gnus-command-method func gname article gnus-find-method-for-group request-type nil (byte-code ";\203\f \303!@\202 \304 !\204 \305 !\210\306\307\310\311 \n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) unknown gnus-get-function string-match "^[^:]+:" 0] 4 (#$ . 36118)]) #@40 Set marks on articles in the back end. (defalias 'gnus-request-set-mark #[(group action) "\305!\306 @\307\310\311\217*\204 \2021 \312 \306\" \313\314\f\"\203* \f\315\225\307O\202+ \f) A@#)\207" [group gnus-command-method func action gname gnus-find-method-for-group request-set-mark nil (byte-code ";\203\f \303!@\202 \304 !\204 \305 !\210\306\307\310\311 \n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) gnus-get-function string-match "^[^:]+:" 0] 4 (#$ . 36705)]) #@76 Allow the back end to change the mark the user tries to put on an article. (defalias 'gnus-request-update-mark #[(group article mark) "\306!\307 @\310\311\312\217*\204 \202/ \313 \307\" \314\315\f\"\203* \f\316\225\310O\202+ \f) #)\207" [group gnus-command-method func mark gname article gnus-find-method-for-group request-update-mark nil (byte-code ";\203\f \303!@\202 \304 !\204 \305 !\210\306\307\310\311 \n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) gnus-get-function string-match "^[^:]+:" 0] 4 (#$ . 37261)]) #@142 Request the ARTICLE in GROUP. ARTICLE can either be an article number or an article Message-ID. If BUFFER, insert the article in that group. (defalias 'gnus-request-article #[(article group &optional buffer) "\305!\306 \307\"\n\310\311 \"\203 \312\225\313O\202 ) A@\f$)\207" [group gnus-command-method article gname buffer gnus-find-method-for-group gnus-get-function request-article string-match "^[^:]+:" 0 nil] 5 (#$ . 37870)]) #@39 Request the head of ARTICLE in GROUP. (defalias 'gnus-request-head #[(article group) "\306!\307 \310\311#\312\211 \203* \247\203* \313\"\203* B\311\202l \314\"\203< B\311\202l \315\n!\203d \n \316\317\"\203Y \320\225\312O\202[ ) A@#\202l \321\"\311\f\203\211 \212q\210eb\210\322\323\312\311#\203\205 `Sd|\210\324 \210) ,\207" [group gnus-command-method head res clean-up gnus-use-cache gnus-find-method-for-group gnus-get-function request-head t nil gnus-cache-request-article gnus-agent-request-article fboundp string-match "^[^:]+:" 0 gnus-request-article search-forward "\n\n" nnheader-fold-continuation-lines article gname nntp-server-buffer] 6 (#$ . 38315)]) #@39 Request the body of ARTICLE in GROUP. (defalias 'gnus-request-body #[(article group) "\306!\307 \310\311#\312\211 \203* \247\203* \313\"\203* B\311\202l \314\"\203< B\311\202l \315\n!\203d \n \316\317\"\203Y \320\225\312O\202[ ) A@#\202l \321\"\311\f\203\206 \212q\210eb\210\322\323\312\311#\203\205 e`S|\210) ,\207" [group gnus-command-method head res clean-up gnus-use-cache gnus-find-method-for-group gnus-get-function request-body t nil gnus-cache-request-article gnus-agent-request-article fboundp string-match "^[^:]+:" 0 gnus-request-article search-forward "\n\n" article gname nntp-server-buffer] 6 (#$ . 39026)]) #@52 Post the current buffer using GNUS-COMMAND-METHOD. (defalias 'gnus-request-post #[(gnus-command-method) ";\203\364 \211\203 <\203 \206\362 \306 \n\"A\206\362 \307\232\203& \206\342 \306 \f\"A\206\342 \306 \"A\206\342 \203e \310\311\211 @@)@\211 @@)A@#\232\204e \211A@\210\202: \211 @@*\206\342 \203\235 \310\311\211 @@)\211 @A)@#\232\204\235 \211A@\210\202t @)\206\342 A\312\211 \203\337 \313\211A@8\211;\204\257 \312 \314\315\215*\232\203\257 \312\211\204\264 +\211 \203\357 B\nB))\316\317\"A@!\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" x name name-method] 5) gnus-get-function request-post gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist nocache result] 6 (#$ . 39695)]) #@131 Request a SCAN being performed in GROUP from GNUS-COMMAND-METHOD. If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned. (defalias 'gnus-request-scan #[(group gnus-command-method) "\203\n \306!\202 \307\n \n\204 \310 !?\205@ \311 \312\"\205< \313\314\"\2039 \315\225\316O\202; ) A@\"+\207" [group gnus-command-method gnus-plugged mail-source-plugged gnus-inhibit-demon gnus-internal-registry-spool-current-method gnus-find-method-for-group t gnus-agent-method-p gnus-get-function request-scan string-match "^[^:]+:" 0 nil gname] 4 (#$ . 41259)]) #@47 Request that GNUS-COMMAND-METHOD update INFO. (defalias 'gnus-request-update-info #[(info gnus-command-method) ";\203\364 \211\203 <\203 \206\362 \306 \n\"A\206\362 \307\232\203& \206\342 \306 \f\"A\206\342 \306 \"A\206\342 \203e \310\311\211 @@)@\211 @@)A@#\232\204e \211A@\210\202: \211 @@*\206\342 \203\235 \310\311 \211 @@) \211 @A)@#\232\204\235 \211A @\210\202t @)\206\342 A\312\211 !!\203\337 \313!\211A!@8\211 ;\204\257 \312 \" \314\315\215*\232\203\257 \312\211!\204\264 +\211 #\203\357 #B\nB#))\316@ $ %\312\317\320\217*\205n&@ $\321\316\"$ '\322\323'\"\203!'\324\225\312O\202#')&A@#\205m\325$(\"J\211 )@\211 *\326V\203j*\327U\203K\326\202P\326*SB +\327&8 ,\330,+C\" -&AA-\240\210+&*)\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" x name name-method] 5) request-update-info (byte-code ";\203\f \303!@\202 \304 !\204 \305 !\210\306\307\310\311 \n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) gnus-get-function string-match "^[^:]+:" 0 intern-soft 1 2 gnus-range-add gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist nocache result group func info gname gnus-active-hashtb active min range read new-read] 6 (#$ . 41839)]) (put 'gnus-request-update-info 'byte-optimizer 'byte-compile-inline-expand) (defalias 'gnus-request-expire-articles #[(articles group &optional force) "\306!\307 \310\"\n\311\312 \"\203 \313\225\314O\202 ) A@\f$ \203? \315 !\203? \316\n \"\211 \203> \317\304#\210) *\207" [group gnus-command-method articles gname force not-deleted gnus-find-method-for-group gnus-get-function request-expire-articles string-match "^[^:]+:" 0 nil gnus-agent-method-p gnus-sorted-difference gnus-agent-expire gnus-agent expired-articles] 6]) (defalias 'gnus-request-move-article #[(article group server accept-function &optional last move-is-internal) "\306!\307 \310\"\n\311\312 \"\203 \313\225\314O\202 ) A@\f &\211 \203< \203< \315 !\203< \316\nC\"\210*\207" [group gnus-command-method article gname accept-function last gnus-find-method-for-group gnus-get-function request-move-article string-match "^[^:]+:" 0 nil gnus-agent-method-p gnus-agent-unfetch-articles move-is-internal result gnus-agent] 8]) (defalias 'gnus-request-accept-article #[(group &optional gnus-command-method last no-encode) ";\203\364 \211\203 <\203 \206\362 \306 \n\"A\206\362 \307\232\203& \206\342 \306 \f\"A\206\342 \306 \"A\206\342 \203e \310\311 \211 @@)@ \211 @@)A@#\232\204e \211A @\210\202: \211 @@*\206\342 \203\235 \310\311 \211 @@) \211 @A)@#\232\204\235 \211A @\210\202t @)\206\342 !A\312\211 \" # $$\203\337 \313$\211A$@8\211#;\204\257 #\312 % #\314\315\215*\232\203\257 #\"\312\211$\204\264 \"+\211 &\203\357 &B\nB&))\204\n';\203\n\316'!\206 \317'!db\210n\204\320c\210(\2040) )\321 \210\214\322 \210* +\323 \210*\324 \210)\2068\316'!\325\326\"';\203]' ,\327\330,\"\203W,\331\225\312O\202Y,)\202_'\211 A@)-# &.\203\200\332!\203\200\333'&AC\"\210&*\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" x name name-method] 5) gnus-find-method-for-group gnus-group-name-to-method "\n" message-options-set-recipient message-narrow-to-head mail-encode-encoded-word-buffer message-encode-message-body gnus-get-function request-accept-article string-match "^[^:]+:" 0 gnus-agent-method-p gnus-agent-regenerate-group gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist nocache result group no-encode message-options message-default-charset mail-parse-charset gname last gnus-agent] 6]) (defalias 'gnus-request-replace-article #[(article group buffer &optional no-encode) "\204 \306 \210\214\307 \210\n\310 \210*\311 \210)\312\f!@ \313\314\315 \"!\f \316\317\"\2038 \320\225\321O\202: )# \203S \322!\203S \323\fC\"\210*\207" [no-encode message-options message-default-charset mail-parse-charset group func message-options-set-recipient message-narrow-to-head mail-encode-encoded-word-buffer message-encode-message-body gnus-group-name-to-method intern format "%s-request-replace-article" string-match "^[^:]+:" 0 nil gnus-agent-method-p gnus-agent-regenerate-group article gname buffer result gnus-agent gnus-command-method] 5]) (defalias 'gnus-request-associate-buffer #[(group) "\303!\304 \305\"\306\307\n\"\203 \n\310\225\311O\202 \n)!)\207" [group gnus-command-method gname gnus-find-method-for-group gnus-get-function request-associate-buffer string-match "^[^:]+:" 0 nil] 4]) #@56 Request a new buffer restored to the state of ARTICLE. (defalias 'gnus-request-restore-buffer #[(article group) "\304!\305 \306\"\n\307\310 \"\203 \311\225\312O\202 ) A@#)\207" [group gnus-command-method article gname gnus-find-method-for-group gnus-get-function request-restore-buffer string-match "^[^:]+:" 0 nil] 5 (#$ . 48027)]) (defalias 'gnus-request-create-group #[(group &optional gnus-command-method args) ";\203\364 \211\203 <\203 \206\362 \306 \n\"A\206\362 \307\232\203& \206\342 \306 \f\"A\206\342 \306 \"A\206\342 \203e \310\311\211 @@)@\211 @@)A@#\232\204e \211A@\210\202: \211 @@*\206\342 \203\235 \310\311\211 @@)\211 @A)@#\232\204\235 \211A@\210\202t @)\206\342 A\312\211 \203\337 \313 \211A @8\211;\204\257 \312 \314\315\215*\232\203\257 \312\211 \204\264 +\211 \203\357 B\nB ))\206\374 \316 !\317\320\" \321\322 \"\203 \323\225\312O\202 )A@!#)\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" x name name-method] 5) gnus-find-method-for-group gnus-get-function request-create-group string-match "^[^:]+:" 0 gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist nocache result group gname args] 6]) (defalias 'gnus-request-delete-group #[(group &optional force) "\305!\306 \307\"\310\311\n\"\203 \n\312\225\313O\202 \n) A@#\211 \203- \314!\210\315!\210\f*\207" [group gnus-command-method gname force result gnus-find-method-for-group gnus-get-function request-delete-group string-match "^[^:]+:" 0 nil gnus-cache-delete-group gnus-agent-delete-group] 5]) (defalias 'gnus-request-rename-group #[(group new-name) "\305!\306 \307\"\310\311\n\"\203 \n\312\225\313O\202 \n) \310\311\n\"\203, \n\312\225\313O\202- \n) A@#\211 \203A \314 \"\210\315 \"\210\f*\207" [group gnus-command-method gname new-name result gnus-find-method-for-group gnus-get-function request-rename-group string-match "^[^:]+:" 0 nil gnus-cache-rename-group gnus-agent-rename-group] 6]) (defalias 'gnus-close-backends #[nil "\305\306\211 \f\211A@\211\205% \307\310 @\311P!\211!\203 \n \210\202 ,\207" [gnus-valid-select-methods gnus-command-method func gnus-inhibit-demon methods t nil fboundp intern "-request-close"] 4]) (defalias 'gnus-asynchronous-p #[(gnus-command-method) "\302\303\304#\305 !\205 )\207" [gnus-command-method func gnus-get-function asynchronous-p t fboundp] 4]) (defalias 'gnus-remove-denial #[(gnus-command-method) ";\203\364 \211\203 <\203 \206\362 \306 \n\"A\206\362 \307\232\203& \206\342 \306 \f\"A\206\342 \306 \"A\206\342 \203e \310\311\211 @@)@\211 @@)A@#\232\204e \211A@\210\202: \211 @@*\206\342 \203\235 \310\311\211 @@)\211 @A)@#\232\204\235 \211A@\210\202t @)\206\342 A\312\211 \203\337 \313\211A@8\211;\204\257 \312 \314\315\215*\232\203\257 \312\211\204\264 +\211 \203\357 B\nB))\306\"\211 \211 A@)\211 \316=\205A\317\240*\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" x name name-method] 5) denied closed gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist nocache result elem status] 6]) (provide 'gnus-int)
Close
