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.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:48 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/gnus/gnus.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.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (run-hooks 'gnus-load-hook) (byte-code "\300\301!\204\n \301\302M\210\303\304!\210\303\305!\210\303\306!\210\307\310\311\312\313\314\313\315&\210\307\316\311\317\313\310%\210\307\320\311\321\313\310%\210\307\322\311\323\324\325\326\327\313\310& \210\307\330\311\331\324\332\313\310&\210\307\333\311\334\313\310%\210\307\335\311\336\313\316%\210\307\337\311\340\324\341\313\310&\210\307\342\311\343\324\344\313\337&\210\307\345\311\346\313\337%\210\307\347\311\350\324\351\313\337&\210\307\352\311\353\324\354\313\337&\210\307\355\311\356\324\357\313\337&\210\307\360\311\361\324\362\313\337\313\363& \210\307\364\311\365\324\366\313\337&\210\307\367\311\370\324\371\313\310&\210\307\372\311\373\324\374\313\367&\210\307\375\311\376\324\377\313\367&\210\307\201@ \311\201A \324\201B \313\367&\210\307\201C \311\201D \324\201E \313\367&\210\307\201F \311\201G \324\201H \313\367&\210\307\201I \311\201J \324\201K \313\367&\210\307\201L \311\201M \313\363%\210\307\201N \311\201O \324\201P \313\367&\210\307\201Q \311\201R \324\201S \313\367&\210\307\201T \311\201U \324\201V \313\363\313\367& \210\307\201W \311\201X \324\201Y \313\367&\210\307\201Z \311\201[ \324\201\\ \201] \201^ \313\367& \210\307\201_ \311\201` \324\201a \201] \201b \313\367& \210\307\201c \311\201d \324\201e \313\201f &\210\307\201g \311\201h \313\310%\210\307\201i \311\201j \313\201g %\210\307\201k \311\201l \313\201g %\210\307\201m \311\201n \313\201g %\210\307\201o \311\201p \313\201g %\210\307\201q \311\201r \313\201g %\210\307\201s \311\201t \313\201g \313\201u &\210\307\201v \311\201w \313\201g %\210\307\363\311\201x \313\310\313\201y &\210\307\201z \311\201{ \313\310%\210\307\201u \311\201| \313\310%\210\307\201} \311\201~ \324\201 \313\201u &\210\307\201\200 \311\201\201 \313\201u %\210\307\201\202 \311\201\203 \313\310%\210\307\201\204 \311\201\205 \313\363\313\201\202 &\210\307\201\206 \201\207 \201\210 \313\310%\210\307\201\211 \311\201\212 \313\310%\210\307\201\213 \311\201\214 \324\201\215 \313\310&\210\307\201\216 \311\201\217 \324\201\220 \313\310&\210\307\201\221 \311\201\222 \324\201\223 \313\310&\207" [fboundp declare-function (macro . #[(&rest r) "\300\207" [nil] 1]) require wid-edit mm-util nnheader custom-declare-group gnus nil "The coffee-brewing, all singing, all dancing, kitchen sink newsreader." :group news mail gnus-start "Starting your favorite newsreader." gnus-format "Dealing with formatting issues." gnus-charset "Group character set issues." :link (custom-manual "(gnus)Charsets") :version "21.1" gnus-cache "Cache interface." (custom-manual "(gnus)Article Caching") gnus-registry "Article Registry." gnus-start-server "Server options at startup." gnus-group "Group buffers." (custom-manual "(gnus)Group Buffer") gnus-group-foreign "Foreign groups." (custom-manual "(gnus)Foreign Groups") gnus-group-new "Automatic subscription of new groups." gnus-group-levels "Group levels." (custom-manual "(gnus)Group Levels") gnus-group-select "Selecting a Group." (custom-manual "(gnus)Selecting a Group") gnus-group-listing "Showing slices of the group list." (custom-manual "(gnus)Listing Groups") gnus-group-visual "Sorting the group buffer." (custom-manual "(gnus)Group Buffer Format") gnus-visual gnus-group-various "Various group options." (custom-manual "(gnus)Scanning New Messages") gnus-summary "Summary buffers." (custom-manual "(gnus)Summary Buffer") gnus-summary-exit "Leaving summary buffers." (custom-manual "(gnus)Exiting the Summary Buffer") gnus-summary-marks "Marks used in summary buffers." (custom-manual "(gnus)Marking Articles") gnus-thread "Ordering articles according to replies." (custom-manual "(gnus)Threading") gnus-summary-format "Formatting of the summary buffer." (custom-manual "(gnus)Summary Buffer Format") gnus-summary-choose "Choosing Articles." (custom-manual "(gnus)Choosing Articles") gnus-summary-maneuvering "Summary movement commands." (custom-manual "(gnus)Summary Maneuvering") gnus-picon "Show pictures of people, domains, and newsgroups." gnus-summary-mail "Mail group commands." (custom-manual "(gnus)Mail Group Commands") gnus-summary-sort "Sorting the summary buffer." (custom-manual "(gnus)Sorting the Summary Buffer") gnus-summary-visual "Highlighting and menus in the summary buffer." (custom-manual "(gnus)Summary Highlighting") gnus-summary-various "Various summary buffer options." (custom-manual "(gnus)Various Summary Stuff") gnus-summary-pick "Pick mode in the summary buffer." (custom-manual "(gnus)Pick and Read") :prefix "gnus-pick-" gnus-summary-tree "Tree display of threads in the summary buffer." (custom-manual "(gnus)Tree Display") "gnus-tree-" gnus-extract-view "Viewing extracted files." (custom-manual "(gnus)Viewing Files") gnus-extract gnus-score "Score and kill file handling." gnus-score-kill "Kill files." gnus-score-adapt "Adaptive score files." gnus-score-default "Default values for score files." gnus-score-expire "Expiring score rules." gnus-score-decay "Decaying score rules." gnus-score-files "Score and kill file names." gnus-files gnus-score-various "Various scoring and killing options." "Options controlling the visual fluff." faces gnus-agent "Offline support for Gnus." "Files used by Gnus." gnus-dribble-file "Auto save file." (custom-manual "(gnus)Auto Save") gnus-newsrc "Storing Gnus state." gnus-server "Options related to newsservers and other servers used by Gnus." gnus-server-visual "Highlighting and menus in the server buffer." gnus-message ((message custom-group)) "Composing replies and followups in Gnus." gnus-meta "Meta variables controlling major portions of Gnus.\nIn general, modifying these variables does not take affect until Gnus\nis restarted, and sometimes reloaded." gnus-various "Other Gnus options." (custom-manual "(gnus)Various Various") gnus-exit "Exiting Gnus." (custom-manual "(gnus)Exiting Gnus") gnus-fun "Frivolous Gnus extensions." (custom-manual "(gnus)Exiting Gnus")] 10) #@42 Version number for this version of Gnus. (defconst gnus-version-number "5.13" (#$ . 6546)) #@42 Version string for this version of Gnus. (defconst gnus-version (format "Gnus v%s" gnus-version-number) (#$ . 6643)) #@148 If non-nil, the startup message will not be displayed. This variable is used before `.gnus.el' is loaded, so it should be set in `.emacs' instead. (custom-declare-variable 'gnus-inhibit-startup-message 'nil '(#$ . 6767) :group 'gnus-start :type 'boolean) #@46 If non-nil, play the Gnus jingle at startup. (custom-declare-variable 'gnus-play-startup-jingle 'nil '(#$ . 7028) :group 'gnus-start :type 'boolean) (byte-code "\301\302!\204 \303\302\304\"\210\305\306!\204\215 \303\307\310\"\210\303\311\312\"\210\303\313\314\"\210\303\315\316\"\210\303\317\320\"\210\303\321\322\"\210\303\323\324\"\210\303\325\304\"\210\303\326\304\"\210\303\327\330\"\210\303\331\332\"\210\303\333\334\"\210\303\335\336\"\210\303\337\340\"\210\341B\342\341!\204f \343\341\344\"\210\301\345!\203t \303\346\347\"\210\202y \303\346\332\"\210\303\350\351\"\210\303\352\353\"\210\303\354\355\"\210\303\356\351\"\210\357\360\361\362\363\364%\210\365\366\367\360#\210\357\370\371\372\363\364%\210\365\373\367\370#\210\357\374\375\376\363\364%\210\365\377\367\374#\210\357\201@ \201A \201B \363\364%\210\365\201C \367\201@ #\210\357\201D \201E \201F \363\364%\210\365\201G \367\201D #\210\357\201H \201I \201J \363\364%\210\365\201K \367\201H #\210\357\201L \201M \201N \363\364%\210\365\201O \367\201L #\210\357\201P \201Q \201R \363\364%\210\365\201S \367\201P #\210\357\201T \201U \201V \363\364%\210\365\201W \367\201T #\210\357\201X \201Y \201Z \363\364%\210\365\201[ \367\201X #\210\357\201\\ \201] \201^ \363\364%\210\365\201_ \367\201\\ #\210\357\201` \201a \201b \363\364%\210\365\201c \367\201` #\210\357\201d \201e \201f \363\364%\210\365\201g \367\201d #\210\357\201h \201i \201j \363\364%\210\365\201k \367\201h #\210\357\201l \201m \201n \363\364%\210\365\201o \367\201l #\210\357\201p \201q \201r \363\364%\210\365\201s \367\201p #\210\357\201t \201u \201v \363\364%\210\365\201w \367\201t #\210\357\201x \201y \201z \363\364%\210\365\201{ \367\201x #\210\357\201| \201} \201~ \363\364%\210\365\201 \367\201| #\210\357\201\200 \201\201 \201\202 \363\364%\210\365\201\203 \367\201\200 #\210\357\201\204 \201\205 \201\206 \363\364%\210\365\201\207 \367\201\204 #\210\357\201\210 \201\211 \201\212 \363\364%\210\365\201\213 \367\201\210 #\210\357\201\214 \201\215 \201\216 \363\201\217 %\210\365\201\220 \367\201\214 #\210\357\201\221 \201\222 \201\223 \363\201\217 %\210\365\201\224 \367\201\221 #\210\357\201\225 \201\226 \201\227 \363\201\217 %\210\365\201\230 \367\201\225 #\210\357\201\231 \201\232 \201\233 \363\201\217 %\210\365\201\234 \367\201\231 #\210\357\201\235 \201\236 \201\237 \363\201\217 %\210\365\201\240 \367\201\235 #\210\357\201\241 \201\242 \201\243 \363\201\217 %\210\365\201\244 \367\201\241 #\210\357\201\245 \201\246 \201\247 \363\201\217 %\210\365\201\250 \367\201\245 #\210\357\201\251 \201\252 \201\253 \363\201\217 %\210\365\201\254 \367\201\251 #\210\357\201\255 \201\256 \201\257 \363\201\217 %\210\365\201\260 \367\201\255 #\210\357\201\261 \201\262 \201\263 \363\201\217 %\210\365\201\264 \367\201\261 #\210\357\201\265 \201\266 \201\267 \363\201\217 %\210\365\201\270 \367\201\265 #\210\357\201\271 \201\272 \201\273 \363\201\217 %\210\365\201\274 \367\201\271 #\210\357\201\275 \201\276 \201\277 \363\201\217 %\210\365\201\300 \367\201\275 #\210\357\201\301 \201\302 \201\303 \363\201\217 %\210\365\201\304 \367\201\301 #\210\357\201\305 \201\306 \201\307 \363\201\217 %\210\365\201\310 \367\201\305 #\210\357\201\311 \201\312 \201\313 \363\201\217 %\210\365\201\314 \367\201\311 #\210\357\201\315 \201\316 \201\317 \363\201\217 %\210\365\201\320 \367\201\315 #\210\201\321 B\342\201\321 !\204P\343\201\321 \201\322 \"\210\201\322 \207" [current-load-list fboundp gnus-group-remove-excess-properties defalias ignore featurep gnus-xmas gnus-make-overlay make-overlay gnus-delete-overlay delete-overlay gnus-overlay-put overlay-put gnus-move-overlay move-overlay gnus-overlay-buffer overlay-buffer gnus-overlay-start overlay-start gnus-overlay-end overlay-end gnus-extent-detached-p gnus-extent-start-open gnus-mail-strip-quoted-names mail-strip-quoted-names gnus-character-to-event identity gnus-assq-delete-all assq-delete-all gnus-add-text-properties add-text-properties gnus-put-text-property put-text-property gnus-mode-line-image-cache default-boundp set-default t find-image gnus-mode-line-buffer-identification #[(line) "\242\305 \211;\2035 \306\307\n\"\2035 \310\311\312\313 \314=\203$ \315\316!\211\202% \317\320\321\f\322 #F\n$\210\nC\2026 *\207" [line load-path str gnus-mode-line-image-cache gnus-version mm-image-load-path string-match "^Gnus:" add-text-properties 0 5 display t find-image ((:type xpm :file "gnus-pointer.xpm" :ascent center) (:type xbm :file "gnus-pointer.xbm" :ascent center)) help-echo format "This is %s, %s." gnus-emacs-version] 11] gnus-characterp numberp gnus-deactivate-mark deactivate-mark gnus-window-edges window-edges gnus-key-press-event-p custom-declare-face gnus-group-news-1 ((((class color) (background dark)) (:foreground "PaleTurquoise" :bold t)) (((class color) (background light)) (:foreground "ForestGreen" :bold t)) (t nil)) "Level 1 newsgroup face." :group gnus-group put gnus-group-news-1-face face-alias gnus-group-news-1-empty ((((class color) (background dark)) (:foreground "PaleTurquoise")) (((class color) (background light)) (:foreground "ForestGreen")) (t nil)) "Level 1 empty newsgroup face." gnus-group-news-1-empty-face gnus-group-news-2 ((((class color) (background dark)) (:foreground "turquoise" :bold t)) (((class color) (background light)) (:foreground "CadetBlue4" :bold t)) (t nil)) "Level 2 newsgroup face." gnus-group-news-2-face gnus-group-news-2-empty ((((class color) (background dark)) (:foreground "turquoise")) (((class color) (background light)) (:foreground "CadetBlue4")) (t nil)) "Level 2 empty newsgroup face." gnus-group-news-2-empty-face gnus-group-news-3 ((((class color) (background dark)) (:bold t)) (((class color) (background light)) (:bold t)) (t nil)) "Level 3 newsgroup face." gnus-group-news-3-face gnus-group-news-3-empty ((((class color) (background dark)) nil) (((class color) (background light)) nil) (t nil)) "Level 3 empty newsgroup face." gnus-group-news-3-empty-face gnus-group-news-4 ((((class color) (background dark)) (:bold t)) (((class color) (background light)) (:bold t)) (t nil)) "Level 4 newsgroup face." gnus-group-news-4-face gnus-group-news-4-empty ((((class color) (background dark)) nil) (((class color) (background light)) nil) (t nil)) "Level 4 empty newsgroup face." gnus-group-news-4-empty-face gnus-group-news-5 ((((class color) (background dark)) (:bold t)) (((class color) (background light)) (:bold t)) (t nil)) "Level 5 newsgroup face." gnus-group-news-5-face gnus-group-news-5-empty ((((class color) (background dark)) nil) (((class color) (background light)) nil) (t nil)) "Level 5 empty newsgroup face." gnus-group-news-5-empty-face gnus-group-news-6 ((((class color) (background dark)) (:bold t)) (((class color) (background light)) (:bold t)) (t nil)) "Level 6 newsgroup face." gnus-group-news-6-face gnus-group-news-6-empty ((((class color) (background dark)) nil) (((class color) (background light)) nil) (t nil)) "Level 6 empty newsgroup face." gnus-group-news-6-empty-face gnus-group-news-low ((((class color) (background dark)) (:foreground "DarkTurquoise" :bold t)) (((class color) (background light)) (:foreground "DarkGreen" :bold t)) (t nil)) "Low level newsgroup face." gnus-group-news-low-face gnus-group-news-low-empty ((((class color) (background dark)) (:foreground "DarkTurquoise")) (((class color) (background light)) (:foreground "DarkGreen")) (t nil)) "Low level empty newsgroup face." gnus-group-news-low-empty-face gnus-group-mail-1 ((((class color) (background dark)) (:foreground "#e1ffe1" :bold t)) (((class color) (background light)) (:foreground "DeepPink3" :bold t)) (t (:bold t))) "Level 1 mailgroup face." gnus-group-mail-1-face gnus-group-mail-1-empty ((((class color) (background dark)) (:foreground "#e1ffe1")) (((class color) (background light)) (:foreground "DeepPink3")) (t (:italic t :bold t))) "Level 1 empty mailgroup face." gnus-group-mail-1-empty-face gnus-group-mail-2 ((((class color) (background dark)) (:foreground "DarkSeaGreen1" :bold t)) (((class color) (background light)) (:foreground "HotPink3" :bold t)) (t (:bold t))) "Level 2 mailgroup face." gnus-group-mail-2-face gnus-group-mail-2-empty ((((class color) (background dark)) (:foreground "DarkSeaGreen1")) (((class color) (background light)) (:foreground "HotPink3")) (t (:bold t))) "Level 2 empty mailgroup face." gnus-group-mail-2-empty-face gnus-group-mail-3 ((((class color) (background dark)) (:foreground "aquamarine1" :bold t)) (((class color) (background light)) (:foreground "magenta4" :bold t)) (t (:bold t))) "Level 3 mailgroup face." gnus-group-mail-3-face gnus-group-mail-3-empty ((((class color) (background dark)) (:foreground "aquamarine1")) (((class color) (background light)) (:foreground "magenta4")) (t nil)) "Level 3 empty mailgroup face." gnus-group-mail-3-empty-face gnus-group-mail-low ((((class color) (background dark)) (:foreground "aquamarine2" :bold t)) (((class color) (background light)) (:foreground "DeepPink4" :bold t)) (t (:bold t))) "Low level mailgroup face." gnus-group-mail-low-face gnus-group-mail-low-empty ((((class color) (background dark)) (:foreground "aquamarine2")) (((class color) (background light)) (:foreground "DeepPink4")) (t (:bold t))) "Low level empty mailgroup face." gnus-group-mail-low-empty-face gnus-summary-selected ((t (:underline t))) "Face used for selected articles." gnus-summary gnus-summary-selected-face gnus-summary-cancelled ((((class color)) (:foreground "yellow" :background "black"))) "Face used for cancelled articles." gnus-summary-cancelled-face gnus-summary-high-ticked ((((class color) (background dark)) (:foreground "pink" :bold t)) (((class color) (background light)) (:foreground "firebrick" :bold t)) (t (:bold t))) "Face used for high interest ticked articles." gnus-summary-high-ticked-face gnus-summary-low-ticked ((((class color) (background dark)) (:foreground "pink" :italic t)) (((class color) (background light)) (:foreground "firebrick" :italic t)) (t (:italic t))) "Face used for low interest ticked articles." gnus-summary-low-ticked-face gnus-summary-normal-ticked ((((class color) (background dark)) (:foreground "pink")) (((class color) (background light)) (:foreground "firebrick")) (t nil)) "Face used for normal interest ticked articles." gnus-summary-normal-ticked-face gnus-summary-high-ancient ((((class color) (background dark)) (:foreground "SkyBlue" :bold t)) (((class color) (background light)) (:foreground "RoyalBlue" :bold t)) (t (:bold t))) "Face used for high interest ancient articles." gnus-summary-high-ancient-face gnus-summary-low-ancient ((((class color) (background dark)) (:foreground "SkyBlue" :italic t)) (((class color) (background light)) (:foreground "RoyalBlue" :italic t)) (t (:italic t))) "Face used for low interest ancient articles." gnus-summary-low-ancient-face gnus-summary-normal-ancient ((((class color) (background dark)) (:foreground "SkyBlue")) (((class color) (background light)) (:foreground "RoyalBlue")) (t nil)) "Face used for normal interest ancient articles." gnus-summary-normal-ancient-face gnus-summary-high-undownloaded ((((class color) (background light)) (:bold t :foreground "cyan4")) (((class color) (background dark)) (:bold t :foreground "LightGray")) (t (:inverse-video t :bold t))) "Face used for high interest uncached articles." gnus-summary-high-undownloaded-face gnus-summary-low-undownloaded ((((class color) (background light)) (:italic t :foreground "cyan4" :bold nil)) (((class color) (background dark)) (:italic t :foreground "LightGray" :bold nil)) (t (:inverse-video t :italic t))) "Face used for low interest uncached articles." gnus-summary-low-undownloaded-face gnus-summary-normal-undownloaded ((((class color) (background light)) (:foreground "cyan4" :bold nil)) (((class color) (background dark)) (:foreground "LightGray" :bold nil)) (t (:inverse-video t))) "Face used for normal interest uncached articles." gnus-summary-normal-undownloaded-face gnus-summary-high-unread ((t (:bold t))) "Face used for high interest unread articles." gnus-summary-high-unread-face gnus-summary-low-unread ((t (:italic t))) "Face used for low interest unread articles." gnus-summary-low-unread-face gnus-summary-normal-unread ((t nil)) "Face used for normal interest unread articles." gnus-summary-normal-unread-face gnus-summary-high-read ((((class color) (background dark)) (:foreground "PaleGreen" :bold t)) (((class color) (background light)) (:foreground "DarkGreen" :bold t)) (t (:bold t))) "Face used for high interest read articles." gnus-summary-high-read-face gnus-summary-low-read ((((class color) (background dark)) (:foreground "PaleGreen" :italic t)) (((class color) (background light)) (:foreground "DarkGreen" :italic t)) (t (:italic t))) "Face used for low interest read articles." gnus-summary-low-read-face gnus-summary-normal-read ((((class color) (background dark)) (:foreground "PaleGreen")) (((class color) (background light)) (:foreground "DarkGreen")) (t nil)) "Face used for normal interest read articles." gnus-summary-normal-read-face gnus-buffers nil] 6) #@67 Do the same as `get-buffer-create', but store the created buffer. (defalias 'gnus-get-buffer-create #[(name) "\302!\206 \303! B\211@\207" [name gnus-buffers get-buffer get-buffer-create] 2 (#$ . 20086)]) #@53 Add the current buffer to the list of Gnus buffers. (defalias 'gnus-add-buffer #[nil "pB\211\207" [gnus-buffers] 2 (#$ . 20300)]) #@55 Kill BUFFER and remove from the list of Gnus buffers. (defalias 'gnus-kill-buffer '(macro . #[(buffer) "\301\302DC\303BB\207" [buffer let buf ((when (gnus-buffer-exists-p buf) (setq gnus-buffers (delete (get-buffer buf) gnus-buffers)) (kill-buffer buf)))] 3 (#$ . 20438)])) #@37 Return a list of live Gnus buffers. (defalias 'gnus-buffers #[nil "\203 \303@!\204 \211A@\210\202 A\203; \303 \211A@)!\203/ \211A@\210\202 \211\211AA)\241\210\202 )\207" [gnus-buffers buffers x buffer-name] 3 (#$ . 20719)]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305\306\307\"\210\310\311\312\313\314\315%\210\316\317\320\311#\207" [current-load-list gnus-group-buffer default-boundp set-default "*Group*" autoload gnus-play-jingle "gnus-audio" custom-declare-face gnus-splash ((((class color) (background dark)) (:foreground "#cccccc")) (((class color) (background light)) (:foreground "#888888")) (t nil)) "Face for the splash screen." :group gnus-start put gnus-splash-face face-alias] 6) (defalias 'gnus-splash #[nil "\212\304\305!!\210\306\307 \210\n?\205 \310 \210\311\312!\210 \205 \313 *\207" [gnus-group-buffer buffer-read-only gnus-inhibit-startup-message gnus-play-startup-jingle switch-to-buffer gnus-get-buffer-create nil erase-buffer gnus-group-startup-message sit-for 0 gnus-play-jingle] 3]) #@47 Indent rigidly using only spaces and no tabs. (defalias 'gnus-indent-rigidly #[(start end arg) "\212\214 }\210\304\305 #\210eb\210\306\307\310\311#\205\" \312\313\311\211#\210\202 +\207" [start end tab-width arg 8 indent-rigidly search-forward " " nil t replace-match " "] 4 (#$ . 21768)]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list gnus-simple-splash default-boundp set-default nil] 3) #@37 Color alist used for the Gnus logo. (defvar gnus-logo-color-alist '((flame "#cc3300" "#ff2200") (pine "#c0cc93" "#f8ffb8") (moss "#a1cc93" "#d2ffb8") (irish "#04cc90" "#05ff97") (sky "#049acc" "#05deff") (tin "#6886cc" "#82b6ff") (velvet "#7c68cc" "#8c82ff") (grape "#b264cc" "#cf7df") (labia "#cc64c2" "#fd7dff") (berry "#cc6485" "#ff7db5") (dino "#724214" "#1e3f03") (oort "#cccccc" "#888888") (storm "#666699" "#99ccff") (pdino "#9999cc" "#99ccff") (purp "#9999cc" "#666699") (no "#ff0000" "#ffff00") (neutral "#b4b4b4" "#878787") (september "#bf9900" "#ffcc00")) (#$ . 22211)) #@39 *Color styles used for the Gnus logo. (custom-declare-variable 'gnus-logo-color-style ''no '(#$ . -22798) :type (byte-code "\301\302\303\"B\207" [gnus-logo-color-alist choice mapcar #[(elem) "\301@D\207" [elem const] 2]] 4) :group 'gnus-xmas) #@32 Colors used for the Gnus logo. (defvar gnus-logo-colors (byte-code " \236A\207" [gnus-logo-color-style gnus-logo-color-alist] 2) (#$ . 23049)) #@43 Insert startup message in current buffer. (defalias 'gnus-group-startup-message #[(&optional x y) "\306 \210\307\310!\203\250 \311 \203\250 \310\312!\210\313\314!\211\203 C\202+ \315\302!\203* \302J\202+ \310\316\317\320\321\322\323\324\325 @B\326 \211 A@)B\327\330\331\332!BF\257\320\333\322\334\335\336\337!\340\331\332!\257\320\341\322\342\335\336\337!\340\331\332!\257\257!\211 \205\244 \343 ! =\344\345\346\347\350\351 >\206\201 =A\352#\353\"]\"\210\344\354\346\347\355 \f\206\225 =@Z\353\"]\"\210\356 !\210)\357?\360+\204\355 \361\362\363\"c\210\364ed\355 \f\206\270 \365Z\346]\353\245#\210eb\210\352y\210\366ed\" @\351 \211 A@Z B\367\346B\370\245\353_]\345\"c\210+\371ed\372\337$\210\360?eb\210\373CPD\374\360!\207" [data-directory load-path image-load-path gnus-logo-colors x image erase-buffer fboundp find-image display-graphic-p (nil (:type xpm :file "gnus.xpm")) nnheader-find-etc-directory "images/gnus" boundp (:type svg :file "gnus.svg") (:type png :file "gnus.png") :type xpm :file "gnus.xpm" :color-symbols "thing" "shadow" ("oort" . "#eeeeee") "background" face-background default pbm "gnus.pbm" :background face-foreground gnus-splash :foreground xbm "gnus.xbm" image-size insert-char 10 0 round - window-height 1 2 32 window-width insert-image nil t format " %s\n _ ___ _ _\n _ ___ __ ___ __ _ ___\n __ _ ___ __ ___\n _ ___ _\n _ _ __ _\n ___ __ _\n __ _\n _ _ _\n _ _ _\n _ _ _\n __ ___\n _ _ _ _\n _ _\n _ _\n _ _\n _\n __\n\n" "" gnus-indent-rigidly 46 count-lines make-string 3 put-text-property face " " set-buffer-modified-p size y gnus-simple-splash pheight wheight rest gnus-version mode-line-buffer-identification] 15 (#$ . 23199)]) (byte-code "\303\304\"\305\306 \"\203 \305\307 \"\203 \310\n!\210\202 \311 \210)\312\313!\210\312\314!\207" [this-command command gnus-group-buffer format "%s" string-match "gnus" "gnus-other-frame" gnus-get-buffer-create gnus-splash require gnus-util nnheader] 3) #@329 Alist of group parameters. For example: (("mail\\..*" (gnus-show-threads nil) (gnus-use-scoring nil) (gnus-summary-line-format "%U%R%z%I%(%[%d:%ub%-23,23f%]%) %s\n") (gcc-self . t) (display . all)) ("mail\\.me" (gnus-use-scoring t)) ("list\\..*" (total-expire . t) (broken-reply-to . t))) (custom-declare-variable 'gnus-parameters 'nil '(#$ . 25347) :version "22.1" :group 'gnus-group-various :type '(repeat (cons regexp (repeat sexp)))) #@204 If it is t, ignore case of group names specified in `gnus-parameters'. If it is nil, don't ignore case. If it is `default', which is for the backward compatibility, use the value of `case-fold-search'. (custom-declare-variable 'gnus-parameters-case-fold-search ''default '(#$ . 25831) :version "22.1" :group 'gnus-group-various :type '(choice :format "%{%t%}:\n %[Value Menu%] %v" (const :tag "Use `case-fold-search'" default) (const nil) (const t))) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list gnus-group-parameters-more default-boundp set-default nil] 3) #@607 Define a group parameter PARAM. REST is a plist of following: :type One of `bool', `list' or nil. :function The name of the function. :function-document The documentation of the function. :parameter-type The type for customizing the parameter. :parameter-document The documentation for the parameter. :variable The name of the variable. :variable-document The documentation for the variable. :variable-group The group for customizing the variable. :variable-type The type for customizing the variable. :variable-default The default value of the variable. (defalias 'gnus-define-group-parameter '(macro . #[(param &rest rest) "\306\307\"\306\310\"\306\311\"\306\312\"\206 \313\314\315\f\"! \306\316\"\206% \317 @\306\320\"\2064 \313\314\321\f\"! A\306\322\"\206> \317 B\306\323\" C\306\324\"\206W \325\326\327\330\nA@EDD D\306\331\" E\332\333AEB\334\335\334\325CD\307D\257\n\336\337\340\341\325\fD\342BB\343BBE\344\345\327\325\fD\n FE \346=\203\316 \347 \350@\351\352\353\354\325\fD\355BB\356B\336\357\341\325\fD\360BBE\361B\362AD\363A\364BBDA\351\365AD\366B\367BBD\257E\257\202\373 \347 \370@\371\372\373\374\372\325\fD \205\340 \375F\351\365AD\376B\377 \203\363 \201F \202\366 \201G FEE\257\257.\n\207" [rest type parameter-type parameter-document param function plist-get :type :parameter-type :parameter-document :function intern format "gnus-parameter-%s" :function-document "" :variable "gnus-parameter-%s-alist" :variable-document :variable-group :variable-type quote repeat list (regexp :tag "Group") :variable-default progn defcustom :group 'gnus-group-parameter setq gnus-group-parameters-more delq assq (gnus-group-parameters-more) (gnus-group-parameters-more) add-to-list 'gnus-group-parameters-more bool defun (name) let ((params (gnus-group-find-parameter name)) val) cond memq (params) (t) val (params) ((cdr val)) stringp string-match (name) alist (elem value) ((while (setq elem (pop alist)) (when (and name (string-match (car elem) name)) (setq alist nil value (cdr elem)))) (if (consp value) (car value) value)) (name) and name or gnus-group-find-parameter t (elem value) (while (setq elem (pop alist)) (when (and name (string-match (car elem) name)) (setq alist nil value (cdr elem)))) function-document variable variable-document variable-group variable-type variable-default value (if (consp value) (car value) value)] 18 (#$ . 26433)])) #@137 Directory variable that specifies the "home" directory. All other Gnus file and directory variables are initialized from this variable. (custom-declare-variable 'gnus-home-directory '"~/" '(#$ . 28880) :group 'gnus-files :type 'directory) #@325 *Directory variable from which all other Gnus file variables are derived. Note that Gnus is mostly loaded when the `.gnus.el' file is read. This means that other directory variables that are initialized from this variable won't be set properly if you set this variable in `.gnus.el'. Set this variable in `.emacs' instead. (custom-declare-variable 'gnus-directory '(or (getenv "SAVEDIR") (nnheader-concat gnus-home-directory "News/")) '(#$ . -29126) :group 'gnus-files :type 'directory) #@42 *Default directory for all Gnus buffers. (custom-declare-variable 'gnus-default-directory 'nil '(#$ . -29620) :group 'gnus-files :type '(choice (const :tag "current" nil) directory)) #@222 Specify a default NNTP server. This variable should be defined in paths.el, and should never be set by the user. If you want to change servers, you should use `gnus-select-method'. See the documentation to that variable. (defvar gnus-default-nntp-server nil (#$ . 29810)) #@303 NNTP service name ("nntp" or 119). This is an obsolete variable, which is scarcely used. If you use an nntp server for your newsgroup and want to change the port number used to 899, you would say something along these lines: (setq gnus-select-method '(nntp "my.nntp.server" (nntp-port-number 899))) (defvar gnus-nntp-service "nntp" (#$ . 30089)) #@53 A file with only the name of the nntp server in it. (custom-declare-variable 'gnus-nntpserver-file '"/etc/nntpserver" '(#$ . 30444) :group 'gnus-files :group 'gnus-server :type 'file) #@106 Find default nntp server. Check the NNTPSERVER environment variable and the `gnus-nntpserver-file' file. (defalias 'gnus-getenv-nntpserver #[nil "\302\303!\206& \304!\205& \305\306!r q\210\307\216\310!\210\311\312\313\314#\205% \315\316!+\207" [gnus-nntpserver-file #1=#:temp-buffer getenv "NNTPSERVER" file-readable-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents re-search-forward "[^ \n ]+" nil t match-string 0] 4 (#$ . 30635)]) #@569 Default method for selecting a newsgroup. This variable should be a list, where the first element is how the news is to be fetched, the second is the address. For instance, if you want to get your news via "flab.flab.edu" using NNTP, you could say: (setq gnus-select-method '(nntp "flab.flab.edu")) If you want to use your local spool, say: (setq gnus-select-method (list 'nnspool (system-name))) If you use this variable, you must set `gnus-nntp-server' to nil. There is a lot more to know about select methods and virtual servers - see the manual for details. (custom-declare-variable 'gnus-select-method '(condition-case nil (nconc (list 'nntp (or (condition-case nil (gnus-getenv-nntpserver) (error nil)) (when (and gnus-default-nntp-server (not (string= gnus-default-nntp-server ""))) gnus-default-nntp-server) "news")) (if (or (null gnus-nntp-service) (equal gnus-nntp-service "nntp")) nil (list gnus-nntp-service))) (error nil)) '(#$ . 31164) :group 'gnus-server :group 'gnus-start :initialize 'custom-initialize-default :type 'gnus-select-method) #@128 *Method used for archiving messages you've sent. This should be a mail method. See also `gnus-update-message-archive-method'. (custom-declare-variable 'gnus-message-archive-method '"archive" '(#$ . -32232) :group 'gnus-server :group 'gnus-message :type '(choice (const :tag "Default archive method" "archive") gnus-select-method)) #@602 Non-nil means always update the saved "archive" method. The archive method is initially set according to the value of `gnus-message-archive-method' and is saved in the "~/.newsrc.eld" file so that it may be used as a real method of the server which is named "archive" ever since. If it once has been saved, it will never be updated if the value of this variable is nil, even if you change the value of `gnus-message-archive-method' afterward. If you want the saved "archive" method to be updated whenever you change the value of `gnus-message-archive-method', set this variable to a non-nil value. (custom-declare-variable 'gnus-update-message-archive-method 'nil '(#$ . 32571) :version "23.1" :group 'gnus-server :group 'gnus-message :type 'boolean) #@820 *Name of the group in which to save the messages you've written. This can either be a string; a list of strings; or an alist of regexps/functions/forms to be evaluated to return a string (or a list of strings). The functions are called with the name of the current group (or nil) as a parameter. If you want to save your mail in one group and the news articles you write in another group, you could say something like: (setq gnus-message-archive-group '((if (message-news-p) "misc-news" "misc-mail"))) Normally the group names returned by this variable should be unprefixed -- which implicitly means "store on the archive server". However, you may wish to store the message on some other server. In that case, just return a fully prefixed name of the group -- "nnml+private:mail.misc", for instance. (custom-declare-variable 'gnus-message-archive-group 'nil '(#$ . -33332) :group 'gnus-message :type '(choice (const :tag "none" nil) function sexp string)) #@180 List of NNTP servers that the user can choose between interactively. To make Gnus query you for a server, you have to give `gnus' a non-numeric prefix - `C-u M-x gnus', in short. (custom-declare-variable 'gnus-secondary-servers 'nil '(#$ . 34314) :group 'gnus-server :type '(repeat string)) #@128 *The name of the host running the NNTP server. This variable is semi-obsolete. Use the `gnus-select-method' variable instead. (custom-declare-variable 'gnus-nntp-server 'nil '(#$ . -34612) :group 'gnus-server :type '(choice (const :tag "disable" nil) string)) #@305 A list of secondary methods that will be used for reading news. This is a list where each element is a complete select method (see `gnus-select-method'). If, for instance, you want to read your mail with the nnml back end, you could set this variable: (setq gnus-secondary-select-methods '((nnml ""))) (custom-declare-variable 'gnus-secondary-select-methods 'nil '(#$ . 34880) :group 'gnus-server :type '(repeat gnus-select-method)) #@125 Default default new newsgroups the first time Gnus is run. Should be set in paths.el, and shouldn't be touched by the user. (defvar gnus-backup-default-subscribed-newsgroups '("news.announce.newusers" "news.groups.questions" "gnu.emacs.gnus") (#$ . 35322)) #@211 Local domain name without a host name. The DOMAINNAME environment variable is used instead if it is defined. If the function `system-name' returns the full Internet name, there is no need to set this variable. (custom-declare-variable 'gnus-local-domain 'nil '(#$ . 35586) :group 'gnus-message :type '(choice (const :tag "default" nil) string)) #@138 String with a description of what organization (if any) the user belongs to. Obsolete variable; use `message-user-organization' instead. (defvar gnus-local-organization nil (#$ . 35938)) #@576 Preferred method for fetching an article by Message-ID. If you are reading news from the local spool (with nnspool), fetching articles by Message-ID is painfully slow. By setting this method to an nntp method, you might get acceptable results. The value of this variable must be a valid select method as discussed in the documentation of `gnus-select-method'. It can also be a list of select methods, as well as the special symbol `current', which means to use the current select method. If it is a list, Gnus will try all the methods in the list until it finds a match. (custom-declare-variable 'gnus-refer-article-method 'nil '(#$ . 36132) :group 'gnus-server :type '(choice (const :tag "default" nil) (const current) (const :tag "Google" (nnweb "refer" (nnweb-type google))) gnus-select-method (repeat :menu-tag "Try multiple" :tag "Multiple" :value (current (nnweb "refer" (nnweb-type google))) (choice :tag "Method" (const current) (const :tag "Google" (nnweb "refer" (nnweb-type google))) gnus-select-method)))) #@979 *Directory where the group FAQs are stored. This will most commonly be on a remote machine, and the file will be fetched by ange-ftp. This variable can also be a list of directories. In that case, the first element in the list will be used by default. The others can be used when being prompted for a site. Note that Gnus uses an aol machine as the default directory. If this feels fundamentally unclean, just think of it as a way to finally get something of value back from them. If the default site is too slow, try one of these: North America: mirrors.aol.com /pub/rtfm/usenet ftp.seas.gwu.edu /pub/rtfm rtfm.mit.edu /pub/usenet Europe: ftp.uni-paderborn.de /pub/FAQ src.doc.ic.ac.uk /usenet/news-FAQS ftp.sunet.se /pub/usenet ftp.pasteur.fr /pub/FAQ Asia: nctuccca.nctu.edu.tw /pub/Documents/rtfm/usenet-by-group/ hwarang.postech.ac.kr /pub/usenet ftp.hk.super.net /mirror/faqs (custom-declare-variable 'gnus-group-faq-directory ''("/ftp@mirrors.aol.com:/pub/rtfm/usenet/" "/ftp@sunsite.doc.ic.ac.uk:/pub/usenet/news-faqs/" "/ftp@src.doc.ic.ac.uk:/usenet/news-FAQS/" "/ftp@ftp.seas.gwu.edu:/pub/rtfm/" "/ftp@ftp.pasteur.fr:/pub/FAQ/" "/ftp@rtfm.mit.edu:/pub/usenet/" "/ftp@ftp.uni-paderborn.de:/pub/FAQ/" "/ftp@ftp.sunet.se:/pub/usenet/" "/ftp@nctuccca.nctu.edu.tw:/pub/Documents/rtfm/usenet-by-group/" "/ftp@hwarang.postech.ac.kr:/pub/usenet/" "/ftp@ftp.hk.super.net:/mirror/faqs/") '(#$ . -37161) :group 'gnus-group-various :type '(choice directory (repeat directory))) #@144 *An alist of (HIERARCHY . FORM) pairs used to construct the URL of a charter. When FORM is evaluated `name' is bound to the name of the group. (custom-declare-variable 'gnus-group-charter-alist ''(("no" concat "http://no.news-admin.org/charter/" name ".txt") ("de" concat "http://purl.net/charta/" name ".html") ("dk" concat "http://www.usenet.dk/grupper.pl?get=" name) ("england" concat "http://england.news-admin.org/charters/" name) ("fr" concat "http://www.usenet-fr.net/fur/chartes/" name ".html") ("europa" concat "http://www.europa.usenet.eu.org/chartas/charta-en-" (gnus-replace-in-string name "europa\\." #1="") ".html") ("nl" concat "http://www.xs4all.nl/~sister/usenet/charters/" name) ("aus" concat "http://aus.news-admin.org/groupinfo.cgi/" name) ("pl" concat "http://www.usenet.pl/opisy/" name) ("ch" concat "http://www.use-net.ch/Usenet/charter.html#" name) ("at" concat "http://www.usenet.at/chartas/" name "/charta") ("uk" concat "http://www.usenet.org.uk/" name ".html") ("dfw" concat "http://www.cirr.com/dfw/charters/" name ".html") ("se" concat "http://www.usenet-se.net/Reglementen/" (gnus-replace-in-string name "\\." "_") ".html") ("milw" concat "http://usenet.mil.wi.us/" (gnus-replace-in-string name "milw\\." #1#) "-charter") ("ca" concat "http://www.sbay.org/ca/charter-" name ".html") ("netins" concat "http://www.netins.net/usenet/charter/" (gnus-replace-in-string name "\\." "-") "-charter.html")) '(#$ . -38740) :version "22.1" :group 'gnus-group-various :type '(repeat (cons (string :tag "Hierarchy") (sexp :tag "Form")))) (put 'gnus-group-charter-alist 'risky-local-variable t) #@150 *Non-nil means that control messages are displayed using `browse-url'. Otherwise they are fetched with ange-ftp and displayed in an ephemeral group. (custom-declare-variable 'gnus-group-fetch-control-use-browse-url 'nil '(#$ . -40359) :version "22.1" :group 'gnus-group-various :type 'boolean) #@214 *Non-nil means that cross referenced articles will be marked as read. If nil, ignore cross references. If t, mark articles as read in subscribed newsgroups. If neither t nor nil, mark as read in all newsgroups. (custom-declare-variable 'gnus-use-cross-reference 't '(#$ . -40660) :group 'gnus-server :type '(choice (const :tag "off" nil) (const :tag "subscribed" t) (sexp :format "all" :value always))) #@16 *Process mark. (custom-declare-variable 'gnus-process-mark '35 '(#$ . -41071) :group 'gnus-group-visual :group 'gnus-summary-marks :type 'character) #@226 *The number of articles which indicates a large newsgroup. If the number of articles in a newsgroup is greater than this value, confirmation is required for selecting the newsgroup. If it is nil, no confirmation is required. (custom-declare-variable 'gnus-large-newsgroup '200 '(#$ . -41227) :group 'gnus-group-select :type '(choice (const :tag "No limit" nil) integer)) #@652 *Non-nil means that the default name of a file to save articles in is the group name. If it's nil, the directory form of the group name is used instead. If this variable is a list, and the list contains the element `not-score', long file names will not be used for score files; if it contains the element `not-save', long file names will not be used for saving; and if it contains the element `not-kill', long file names will not be used for kill files. Note that the default for this variable varies according to what system type you're using. On `usg-unix-v' and `xenix' this variable defaults to nil while on all other systems it defaults to t. (custom-declare-variable 'gnus-use-long-file-name '(not (memq system-type '(usg-unix-v))) '(#$ . -41605) :group 'gnus-start :type '(radio (sexp :format "Non-nil\n" :match (lambda (widget value) (and value (not (listp value)))) :value t) (const nil) (checklist (const :format "%v " not-score) (const :format "%v " not-save) (const not-kill)))) #@76 *Name of the directory where kill files will be stored (default "~/News"). (custom-declare-variable 'gnus-kill-files-directory 'gnus-directory '(#$ . -42605) :group 'gnus-score-files :group 'gnus-score-kill :type 'directory) #@39 *If non-nil, save group scoring info. (custom-declare-variable 'gnus-save-score 'nil '(#$ . -42836) :group 'gnus-score-various :group 'gnus-start :type 'boolean) #@56 *If non-nil, allow undoing in Gnus group mode buffers. (custom-declare-variable 'gnus-use-undo 't '(#$ . -43004) :group 'gnus-meta :type 'boolean) #@240 *If non-nil, use some adaptive scoring scheme. If a list, then the values `word' and `line' are meaningful. The former will perform adaption on individual words in the subject header while `line' will perform adaption on several headers. (custom-declare-variable 'gnus-use-adaptive-scoring 'nil '(#$ . -43158) :group 'gnus-meta :group 'gnus-score-adapt :type '(set (const word) (const line))) #@205 *If nil, Gnus will ignore the article cache. If `passive', it will allow entering (and reading) articles explicitly entered into the cache. If anything else, use the cache to the full extent of the law. (custom-declare-variable 'gnus-use-cache ''passive '(#$ . -43559) :group 'gnus-meta :group 'gnus-cache :type '(choice (const :tag "off" nil) (const :tag "passive" passive) (const :tag "active" t))) #@44 *If non-nil, display a thread tree buffer. (custom-declare-variable 'gnus-use-trees 'nil '(#$ . -43967) :group 'gnus-meta :type 'boolean) #@235 *If non-nil, Gnus will keep read articles for later re-retrieval. If it is a number N, then Gnus will only keep the last N articles read. If it is neither nil nor a number, Gnus will keep all read articles. This is not a good idea. (custom-declare-variable 'gnus-keep-backlog '20 '(#$ . -44112) :group 'gnus-meta :type '(choice (const :tag "off" nil) integer (sexp :format "all" :value t))) #@426 *If non-nil, Gnus will read NoCeM cancel messages. You can also set this variable to a positive number as a group level. In that case, Gnus scans NoCeM messages when checking new news if this value is not exceeding a group level that you specify as the prefix argument to some commands, e.g. `gnus', `gnus-group-get-new-news', etc. Otherwise, Gnus does not scan NoCeM messages if you specify a group level to those commands. (custom-declare-variable 'gnus-use-nocem 'nil '(#$ . -44512) :group 'gnus-meta :type '(choice (const :tag "off" nil) (const :tag "on" t) (list :convert-widget (lambda (widget) (list 'integer :tag "group level" :value (if (boundp 'gnus-level-default-subscribed) gnus-level-default-subscribed 3)))))) #@75 *If non-nil, Gnus will mark duplicate copies of the same article as read. (custom-declare-variable 'gnus-suppress-duplicates 'nil '(#$ . -45242) :group 'gnus-meta :type 'boolean) #@30 *If non-nil, enable scoring. (custom-declare-variable 'gnus-use-scoring 't '(#$ . -45427) :group 'gnus-meta :type 'boolean) #@116 *A hook called when preparing to exit from the summary buffer. It calls `gnus-summary-expire-articles' by default. (custom-declare-variable 'gnus-summary-prepare-exit-hook ''(gnus-summary-expire-articles) '(#$ . -45558) :group 'gnus-summary-exit :type 'hook) #@127 *Non-nil means that you are a Usenet novice. If non-nil, verbose messages may be displayed and confirmations may be required. (custom-declare-variable 'gnus-novice-user 't '(#$ . -45824) :group 'gnus-meta :type 'boolean) #@181 *Non-nil means that you will never be asked for confirmation about anything. That doesn't mean *anything* anything; particularly destructive commands will still require prompting. (custom-declare-variable 'gnus-expert-user 'nil '(#$ . -46052) :group 'gnus-meta :type 'boolean) #@66 *If non-nil, require your confirmation when catching up a group. (custom-declare-variable 'gnus-interactive-catchup 't '(#$ . -46335) :group 'gnus-group-select :type 'boolean) #@59 *If non-nil, require your confirmation when exiting Gnus. (custom-declare-variable 'gnus-interactive-exit 't '(#$ . -46517) :group 'gnus-exit :type 'boolean) #@274 *Function for extracting address components from a From header. Two pre-defined function exist: `gnus-extract-address-components', which is the default, quite fast, and too simplistic solution, and `mail-extract-address-components', which works much better, but is slower. (custom-declare-variable 'gnus-extract-address-components ''gnus-extract-address-components '(#$ . -46682) :group 'gnus-summary-format :type '(radio (function-item gnus-extract-address-components) (function-item mail-extract-address-components) (function :tag "Other"))) #@39 *If non-nil, display clickable icons. (custom-declare-variable 'gnus-carpal 'nil '(#$ . -47232) :group 'gnus-meta :type 'boolean) #@41 String used to separate shell commands. (custom-declare-variable 'gnus-shell-command-separator '";" '(#$ . 47368) :group 'gnus-files :type 'string) #@390 *An alist of valid select methods. The first element of each list lists should be a string with the name of the select method. The other elements may be the category of this method (i. e., `post', `mail', `none' or whatever) or other properties that this method has (like being respoolable). If you implement a new select method, all you should have to change is this variable. I think. (custom-declare-variable 'gnus-valid-select-methods ''(("nntp" post address prompt-address physical-address) ("nnspool" post address) ("nnvirtual" post-mail virtual prompt-address) ("nnmbox" mail respool address) ("nnml" post-mail respool address) ("nnmh" mail respool address) ("nndir" post-mail prompt-address physical-address) ("nneething" none address prompt-address physical-address) ("nndoc" none address prompt-address) ("nnbabyl" mail address respool) ("nnkiboze" post virtual) ("nnsoup" post-mail address) ("nndraft" post-mail) ("nnfolder" mail respool address) ("nngateway" post-mail address prompt-address physical-address) ("nnweb" none) ("nngoogle" post) ("nnslashdot" post) ("nnultimate" none) ("nnrss" none) ("nnwfm" none) ("nnwarchive" none) ("nnlistserv" none) ("nnagent" post-mail) ("nnimap" post-mail address prompt-address physical-address) ("nnmaildir" mail respool address) ("nnnil" none)) '(#$ . -47523) :group 'gnus-server :type '(repeat (group (string :tag "Name") (radio-button-choice (const :format "%v " post) (const :format "%v " mail) (const :format "%v " none) (const post-mail)) (checklist :inline t (const :format "%v " address) (const :format "%v " prompt-address) (const :format "%v " physical-address) (const :format "%v " virtual) (const respool))))) #@88 Recomputes the select-method widget based on the value of `gnus-valid-select-methods'. (defalias 'gnus-redefine-select-method-widget #[nil "\301\302\303\304\305\306\307\310\311\312\307\313\314\315\316\"\317\"BBB\320B& \207" [gnus-valid-select-methods define-widget gnus-select-method list "Widget for entering a select method." :value (nntp "") :tag "Select Method" :args choice "Method" append mapcar #[(entry) "\301\302\303\304@!F\207" [entry const :format "%v\n" intern] 5] ((symbol :tag "other")) ((string :tag "Address") (repeat :tag "Options" :inline t (list :format "%v" variable (sexp :tag "Value"))))] 16 (#$ . 49206)]) (gnus-redefine-select-method-widget) #@304 List of buffers that should update their mode lines. The list may contain the symbols `group', `article', `tree' and `summary'. If the corresponding symbol is present, Gnus will keep that mode line updated with information that may be pertinent. If this variable is nil, screen refresh may be quicker. (custom-declare-variable 'gnus-updated-mode-lines ''(group article summary tree) '(#$ . 49881) :group 'gnus-various :type '(set (const group) (const article) (const summary) (const tree))) #@235 *Max length of mode-line non-string contents. If this is nil, Gnus will take space as is needed, leaving the rest of the mode line intact. Note that the default of nil is unlikely to be desirable; see the manual for further details. (custom-declare-variable 'gnus-mode-non-string-length 'nil '(#$ . -50380) :group 'gnus-various :type '(choice (const nil) integer)) (define-widget 'gnus-email-address 'string "An email address.") #@57 *Alist of group regexps and correspondent to-addresses. (custom-declare-variable 'gnus-parameter-to-address-alist 'nil '(#$ . -50816) :group 'gnus-group-parameter :group 'gnus-group-parameter :type '(repeat (list (regexp :tag "Group") (gnus-email-address :tag "To Address")))) (byte-code "\301\302\236\"\303\300\302\304\305E\"\207" [gnus-group-parameters-more delq to-address add-to-list (gnus-email-address :tag "To Address") "This will be used when doing followups and posts.\n\nThis is primarily useful in mail groups that represent closed\nmailing lists--mailing lists where it's expected that everybody that\nwrites to the mailing list is subscribed to it. Since using this\nparameter ensures that the mail only goes to the mailing list itself,\nit means that members won't receive two copies of your followups.\n\nUsing `to-address' will actually work whether the group is foreign or\nnot. Let's say there's a group on the server that is called\n`fa.4ad-l'. This is a real newsgroup, but the server has gotten the\narticles from a mail-to-news gateway. Posting directly to this group\nis therefore impossible--you have to send mail to the mailing list\naddress instead.\n\nThe gnus-group-split mail splitting mechanism will behave as if this\naddress was listed in gnus-group-split Addresses (see below)."] 5) #@28 Return GROUP's to-address. (defalias 'gnus-parameter-to-address #[(name) "\205< \305\306\307#\206< \307\211 \f\211A@\211\2030 \203 \310 @\"\203 \307 A\202 \n:\203: \n@\202; \n+\207" [name gnus-parameter-to-address-alist value elem alist gnus-group-find-parameter to-address nil string-match] 4 (#$ . 52145)]) #@53 *Alist of group regexps and correspondent to-lists. (custom-declare-variable 'gnus-parameter-to-list-alist 'nil '(#$ . -52474) :group 'gnus-group-parameter :group 'gnus-group-parameter :type '(repeat (list (regexp :tag "Group") (gnus-email-address :tag "To List")))) (byte-code "\301\302\236\"\303\300\302\304\305E\"\207" [gnus-group-parameters-more delq to-list add-to-list (gnus-email-address :tag "To List") "This address will be used when doing a `a' in the group.\n\nIt is totally ignored when doing a followup--except that if it is\npresent in a news group, you'll get mail group semantics when doing\n`f'.\n\nThe gnus-group-split mail splitting mechanism will behave as if this\naddress was listed in gnus-group-split Addresses (see below)."] 5) #@25 Return GROUP's to-list. (defalias 'gnus-parameter-to-list #[(name) "\205< \305\306\307#\206< \307\211 \f\211A@\211\2030 \203 \310 @\"\203 \307 A\202 \n:\203: \n@\202; \n+\207" [name gnus-parameter-to-list-alist value elem alist gnus-group-find-parameter to-list nil string-match] 4 (#$ . 53236)]) #@56 *Groups which are automatically considered subscribed. (custom-declare-variable 'gnus-parameter-subscribed-alist 'nil '(#$ . -53553) :group 'gnus-group-parameter :group 'gnus-group-parameter :type '(repeat (list (regexp :tag "Group") (const :tag "Subscribed" t)))) (byte-code "\301\302\236\"\303\300\302\304\305E\"\207" [gnus-group-parameters-more delq subscribed add-to-list (const :tag "Subscribed" t) "Gnus assumed that you are subscribed to the To/List address.\n\nWhen constructing a list of subscribed groups using\n`gnus-find-subscribed-addresses', Gnus includes the To address given\nabove, or the list address (if the To address has not been set)."] 5) #@37 Return GROUP's subscription status. (defalias 'gnus-parameter-subscribed #[(name) "\306!\307\310\n>\203 \311\202a \310\n\236\211\203 A\202a ;\203) \312 \"\202a \205a \307\211 \211A @\211\203U \2034 \312 @\"\2034 \307 A\2024 \f:\203_ \f@\202` \f+*\207" [name val params gnus-parameter-subscribed-alist value elem gnus-group-find-parameter nil subscribed t string-match alist] 3 (#$ . 54224)]) #@206 *Groups in which to automatically mark read articles as expirable. If non-nil, this should be a regexp that should match all groups in which to perform auto-expiry. This only makes sense for mail groups. (custom-declare-variable 'gnus-auto-expirable-newsgroups 'nil '(#$ . -54646) :group 'gnus-group-parameter :group 'nnmail-expire :type '(choice (const nil) regexp)) (byte-code "\301\302\236\"\303\300\302\304\305E\"\207" [gnus-group-parameters-more delq auto-expire add-to-list (const :tag "Automatic Expire" t) "All articles that are read will be marked as expirable."] 5) #@47 Check whether GROUP is auto-expirable or not. (defalias 'gnus-group-auto-expirable-p #[(name) "\306!\307\310\n>\203 \311\202a \310\n\236\211\203 A\202a ;\203) \312 \"\202a \205a \307\211 \211A @\211\203U \2034 \312 @\"\2034 \307 A\2024 \f:\203_ \f@\202` \f+*\207" [name val params gnus-auto-expirable-newsgroups value elem gnus-group-find-parameter nil auto-expire t string-match alist] 3 (#$ . 55232)]) #@270 *Groups in which to perform expiry of all read articles. Use with extreme caution. All groups that match this regexp will be expiring - which means that all read articles will be deleted after (say) one week. (This only goes for mail groups and the like, of course.) (custom-declare-variable 'gnus-total-expirable-newsgroups 'nil '(#$ . -55666) :group 'gnus-group-parameter :group 'nnmail-expire :type '(choice (const nil) regexp)) (byte-code "\301\302\236\"\303\300\302\304\305E\"\207" [gnus-group-parameters-more delq total-expire add-to-list (const :tag "Total Expire" t) "All read articles will be put through the expiry process\n\nThis happens even if they are not marked as expirable.\nUse with caution."] 5) #@48 Check whether GROUP is total-expirable or not. (defalias 'gnus-group-total-expirable-p #[(name) "\306!\307\310\n>\203 \311\202a \310\n\236\211\203 A\202a ;\203) \312 \"\202a \205a \307\211 \211A @\211\203U \2034 \312 @\"\2034 \307 A\2024 \f:\203_ \f@\202` \f+*\207" [name val params gnus-total-expirable-newsgroups value elem gnus-group-find-parameter nil total-expire t string-match alist] 3 (#$ . 56392)]) #@87 Alist of regexps (to match group names) and default charsets to be used when reading. (custom-declare-variable 'gnus-group-charset-alist ''(("\\(^\\|:\\)hk\\>\\|\\(^\\|:\\)tw\\>\\|\\<big5\\>" cn-big5) ("\\(^\\|:\\)cn\\>\\|\\<chinese\\>" cn-gb-2312) ("\\(^\\|:\\)fj\\>\\|\\(^\\|:\\)japan\\>" iso-2022-jp-2) ("\\(^\\|:\\)tnn\\>\\|\\(^\\|:\\)pin\\>\\|\\(^\\|:\\)sci.lang.japan" iso-2022-7bit) ("\\(^\\|:\\)relcom\\>" koi8-r) ("\\(^\\|:\\)fido7\\>" koi8-r) ("\\(^\\|:\\)\\(cz\\|hun\\|pl\\|sk\\|hr\\)\\>" iso-8859-2) ("\\(^\\|:\\)israel\\>" iso-8859-1) ("\\(^\\|:\\)han\\>" euc-kr) ("\\(^\\|:\\)alt.chinese.text.big5\\>" chinese-big5) ("\\(^\\|:\\)soc.culture.vietnamese\\>" vietnamese-viqr) ("\\(^\\|:\\)\\(comp\\|rec\\|alt\\|sci\\|soc\\|news\\|gnu\\|bofh\\)\\>" iso-8859-1)) '(#$ . 56829) :group 'gnus-group-parameter :group 'gnus-charset :type '(repeat (list (regexp :tag "Group") (symbol :tag "Charset")))) (byte-code "\301\302\236\"\303\300\302\304\305E\"\207" [gnus-group-parameters-more delq charset add-to-list (symbol :tag "Charset") "The default charset to use in the group."] 5) #@38 Return the default charset of GROUP. (defalias 'gnus-parameter-charset #[(name) "\205< \305\306\307#\206< \307\211 \f\211A@\211\2030 \203 \310 @\"\203 \307 A\202 \n:\203: \n@\202; \n+\207" [name gnus-group-charset-alist value elem alist gnus-group-find-parameter charset nil string-match] 4 (#$ . 57923)]) #@88 Alist of regexps (to match group names) and method to be used when posting an article. (custom-declare-variable 'gnus-post-method-alist 'nil '(#$ . 58249) :group 'gnus-group-parameter :group 'gnus-group-foreign :type '(repeat (list (regexp :tag "Group") (choice :tag "Posting Method" (const :tag "Use native server" native) (const :tag "Use current server" current) (list :convert-widget (lambda (widget) (list 'sexp :tag "Methods" :value gnus-select-method))))))) (byte-code "\301\302\236\"\303\300\302\304\305E\"\207" [gnus-group-parameters-more delq post-method add-to-list (choice :tag "Posting Method" (const :tag "Use native server" native) (const :tag "Use current server" current) (list :convert-widget (lambda (widget) (list 'sexp :tag "Methods" :value gnus-select-method)))) "Posting method for this group."] 5) #@36 Return a posting method for GROUP. (defalias 'gnus-parameter-post-method #[(name) "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-post-method-alist value elem alist gnus-group-find-parameter post-method t nil string-match] 4 (#$ . 59080)]) #@74 *Alist of group regexps and its initial input of the number of articles. (custom-declare-variable 'gnus-parameter-large-newsgroup-initial-alist 'nil '(#$ . -59394) :group 'gnus-group-parameter :group 'gnus-group-parameter :type '(repeat (list (regexp :tag "Group") (choice :tag "Initial Input for Large Newsgroup" (const :tag "All" nil) (integer))))) (byte-code "\301\302\236\"\303\300\302\304\305E\"\207" [gnus-group-parameters-more delq large-newsgroup-initial add-to-list (choice :tag "Initial Input for Large Newsgroup" (const :tag "All" nil) (integer)) "\nThis number will be prompted as the initial value of the number of\narticles to list when the group is a large newsgroup (see\n`gnus-large-newsgroup'). If it is nil, the default value is the\ntotal number of articles in the group."] 5) #@57 Return GROUP's initial input of the number of articles. (defalias 'gnus-parameter-large-newsgroup-initial #[(name) "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-parameter-large-newsgroup-initial-alist value elem alist gnus-group-find-parameter large-newsgroup-initial t nil string-match] 4 (#$ . 60201)]) #@53 *Groups in which the registry should be turned off. (custom-declare-variable 'gnus-registry-ignored-groups 'nil '(#$ . -60582) :group 'gnus-group-parameter :group 'gnus-registry :type '(repeat (list (regexp :tag "Group Name Regular Expression") (boolean :tag "Ignored")))) (byte-code "\301\302\236\"\303\300\302\304\305E\"\207" [gnus-group-parameters-more delq registry-ignore add-to-list (boolean :tag "Group Ignored by the Registry") "Whether the Gnus Registry should ignore this group."] 5) #@55 Whether this group should be ignored by the registry. (defalias 'gnus-parameter-registry-ignore #[(name) "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-registry-ignored-groups value elem alist gnus-group-find-parameter registry-ignore t nil string-match] 4 (#$ . 61085)]) #@138 *Disable the group parameters for spam detection. Enable if `G c' in XEmacs is giving you trouble, and make sure to submit a bug report. (custom-declare-variable 'gnus-install-group-spam-parameters 't '(#$ . -61433) :version "22.1" :type 'boolean :group 'gnus-start) (byte-code "\203S\303 B\304\303\305\306#\210\307\303!\204 \310\303\311\"\210\312 B\304\312\305\313#\210\307\312!\204. \310\312\314\"\210\315\316\317\320\321\322\321\323\324\325& \210\326\327\n\236\n\"\330\302\327\331\332E\"\210\333\334\335\"\210\315\336\317\337\321\322\321\323\324\340& \210\326\341\n\236\n\"\330\302\341\342\337E\"\210\333\343\344\"\210\315\345\317\346\321\322\321\323\324\347& \210\326\350\n\236\n\"\330\302\350\342\346E\"\210\333\351\352\"\210\353 B\304\353\305\354#\210\307\353!\204\246 \310\353\355\"\210\356 B\304\356\305\357#\210\307\356!\204\273 \310\356\360\"\210\361 B\304\361\305\362#\210\307\361!\204\320 \310\361\363\"\210\364 B\304\364\305\365#\210\307\364!\204\345 \310\364\366\"\210\367 B\304\367\305\370#\210\307\367!\204\372 \310\367\371\"\210\372 B\304\372\305\373#\210\307\372!\204\310\372\374\"\210\375 B\304\375\305\376#\210\307\375!\204$\310\375\377\"\210\201@ B\304\201@ \305\201A #\210\307\201@ !\204E\310\201@ \201B \"\210\201C B\304\201C \305\201D #\210\307\201C !\204f\310\201C \201E \"\210\201F B\304\201F \305\201G #\210\307\201F !\204\207\310\201F \201H \"\210\201I B\304\201I \305\201J #\210\307\201I !\204\250\310\201I \201K \"\210\201L B\304\201L \305\201M #\210\307\201L !\204\311\310\201L \201N \"\210\201O B\304\201O \305\201P #\210\307\201O !\204\352\310\201O \201Q \"\210\315\201R \317\201S \321\322\321\323\324\201T & \210\326\201U \n\236\n\"\330\302\201U \201V \201W E\"\210\333\201X \201Y \"\210\315\201Z \317\201[ \321\322\321\323\324\201\\ & \210\326\201] \n\236\n\"\330\302\201] \201^ \201_ E\"\210\333\201` \201a \"\210\315\201b \317\201c \321\322\321\323\324\201d & \210\326\201e \n\236\n\"\330\302\201e \201f \201g E\"\210\333\201h \201i \"\210\315\201j \317\201k \321\322\321\323\324\201l & \210\326\201m \n\236\n\"\330\302\201m \201n \201o E\"\210\333\201p \201q \"\210\315\201r \317\201s \321\322\321\323\324\201t & \210\326\201u \n\236\n\"\330\302\201u \201v \201w E\"\210\333\201x \201y \"\210\315\201z \201{ \201| \321\322\321\323\324\201} & \210\326\201~ \n\236\n\"\330\302\201~ \201 \201\200 E\"\210\333\201\201 \201\202 \"\210\315\201\203 \201\204 \201\205 \321\322\321\323\324\201\206 & \210\326\201\207 \n\236\n\"\330\302\201\207 \201\210 \201\211 E\"\210\333\201\212 \201\213 \"\210\317\207" [gnus-install-group-spam-parameters current-load-list gnus-group-parameters-more gnus-group-spam-classification-spam put variable-documentation "Spam group classification (requires spam.el).\nThis group contains spam messages. On summary entry, unread messages\nwill be marked as spam. On summary exit, the specified spam\nprocessors will be invoked on spam-marked messages, then those\nmessages will be expired, so the spam processor will only see a\nspam-marked message once." default-boundp set-default t gnus-group-spam-classification-ham "The ham value for the spam group parameter (requires spam.el).\nOn summary exit, the specified ham processors will be invoked on\nham-marked messages. Exercise caution, since the ham processor will\nsee the same message more than once because there is no ham message\nregistry." ask custom-declare-variable gnus-spam-newsgroup-contents nil "*Group classification (spam, ham, or neither). Only\nmeaningful when spam.el is loaded. If non-nil, this should be a\nlist of group name regexps associated with a classification for\neach one. In spam groups, new articles are marked as spam on\nsummary entry. There is other behavior associated with ham and\nno classification when spam.el is loaded - see the manual." :group gnus-group-parameter spam :type (repeat (list :tag "Group contents spam/ham classification" (regexp :tag "Group") (choice (variable-item gnus-group-spam-classification-spam) (variable-item gnus-group-spam-classification-ham) (const :tag "Unclassified" nil)))) delq spam-contents add-to-list (list :tag "Group contents spam/ham classification" (choice :tag "Group contents classification for spam sorting" (variable-item gnus-group-spam-classification-spam) (variable-item gnus-group-spam-classification-ham) (const :tag "Unclassified" nil))) "The spam classification (spam, ham, or neither) of this group.\nWhen a spam group is entered, all unread articles are marked as\nspam. There is other behavior associated with ham and no\nclassification when spam.el is loaded - see the manual." defalias gnus-parameter-spam-contents #[#1=(name) "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-spam-newsgroup-contents value elem alist gnus-group-find-parameter spam-contents t nil string-match] 4 "The spam type (spam, ham, or neither) of the group."] gnus-spam-resend-to "The address to get spam resent (through spam-report-resend)." (repeat (list :tag "Group address for resending spam" (regexp :tag "Group") (string :tag "E-mail address for resending spam (requires the spam-use-resend exit processor)"))) spam-resend-to string gnus-parameter-spam-resend-to #[#1# "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-spam-resend-to value elem alist gnus-group-find-parameter spam-resend-to t nil string-match] 4 "The address to get spam resent (through spam-report-resend)."] gnus-ham-resend-to "The address to get ham resent (through spam-report-resend)." (repeat (list :tag "Group address for resending ham" (regexp :tag "Group") (string :tag "E-mail address for resending ham (requires the spam-use-resend exit processor)"))) ham-resend-to gnus-parameter-ham-resend-to #[#1# "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-ham-resend-to value elem alist gnus-group-find-parameter ham-resend-to t nil string-match] 4 "The address to get ham resent (through spam-report-resend)."] gnus-group-spam-exit-processor-ifile "OBSOLETE: The ifile summary exit spam processor." "ifile" gnus-group-spam-exit-processor-stat "OBSOLETE: The spam-stat summary exit spam processor." "stat" gnus-group-spam-exit-processor-bogofilter "OBSOLETE: The Bogofilter summary exit spam processor." "bogofilter" gnus-group-spam-exit-processor-blacklist "OBSOLETE: The Blacklist summary exit spam processor." "blacklist" gnus-group-spam-exit-processor-report-gmane "OBSOLETE: The Gmane reporting summary exit spam processor.\nOnly applicable to NNTP groups with articles from Gmane. See spam-report.el" "report-gmane" gnus-group-spam-exit-processor-spamoracle "OBSOLETE: The spamoracle summary exit spam processor." "spamoracle-spam" gnus-group-ham-exit-processor-ifile "OBSOLETE: The ifile summary exit ham processor.\nOnly applicable to non-spam (unclassified and ham) groups." "ifile-ham" gnus-group-ham-exit-processor-bogofilter "OBSOLETE: The Bogofilter summary exit ham processor.\nOnly applicable to non-spam (unclassified and ham) groups." "bogofilter-ham" gnus-group-ham-exit-processor-stat "OBSOLETE: The spam-stat summary exit ham processor.\nOnly applicable to non-spam (unclassified and ham) groups." "stat-ham" gnus-group-ham-exit-processor-whitelist "OBSOLETE: The whitelist summary exit ham processor.\nOnly applicable to non-spam (unclassified and ham) groups." "whitelist" gnus-group-ham-exit-processor-BBDB "OBSOLETE: The BBDB summary exit ham processor.\nOnly applicable to non-spam (unclassified and ham) groups." "bbdb" gnus-group-ham-exit-processor-copy "OBSOLETE: The ham copy exit ham processor.\nOnly applicable to non-spam (unclassified and ham) groups." "copy" gnus-group-ham-exit-processor-spamoracle "OBSOLETE: The spamoracle summary exit ham processor.\nOnly applicable to non-spam (unclassified and ham) groups." "spamoracle-ham" gnus-spam-process-newsgroups "*Groups in which to automatically process spam or ham articles with\na backend on summary exit. If non-nil, this should be a list of group\nname regexps that should match all groups in which to do automatic\nspam processing, associated with the appropriate processor." (repeat :tag "Spam/Ham Processors" (list :tag "Spam Summary Exit Processor Choices" (regexp :tag "Group Regexp") (set :tag "Spam/Ham Summary Exit Processor" (const :tag "Spam: Bogofilter" (spam spam-use-bogofilter)) (const :tag "Spam: Blacklist" (spam spam-use-blacklist)) (const :tag "Spam: Bsfilter" (spam spam-use-bsfilter)) (const :tag "Spam: Gmane Report" (spam spam-use-gmane)) (const :tag "Spam: Resend Message" (spam spam-use-resend)) (const :tag "Spam: ifile" (spam spam-use-ifile)) (const :tag "Spam: Spam-stat" (spam spam-use-stat)) (const :tag "Spam: Spam Oracle" (spam spam-use-spamoracle)) (const :tag "Spam: SpamAssassin" (spam spam-use-spamassassin)) (const :tag "Spam: CRM114" (spam spam-use-crm114)) (const :tag "Ham: BBDB" (ham spam-use-BBDB)) (const :tag "Ham: Bogofilter" (ham spam-use-bogofilter)) (const :tag "Ham: Bsfilter" (ham spam-use-bsfilter)) (const :tag "Ham: Copy" (ham spam-use-ham-copy)) (const :tag "Ham: Resend Message" (ham spam-use-resend)) (const :tag "Ham: ifile" (ham spam-use-ifile)) (const :tag "Ham: Spam-stat" (ham spam-use-stat)) (const :tag "Ham: Spam Oracle" (ham spam-use-spamoracle)) (const :tag "Ham: SpamAssassin" (ham spam-use-spamassassin)) (const :tag "Ham: CRM114" (ham spam-use-crm114)) (const :tag "Ham: Whitelist" (ham spam-use-whitelist)) (variable-item gnus-group-spam-exit-processor-ifile) (variable-item gnus-group-spam-exit-processor-stat) (variable-item gnus-group-spam-exit-processor-bogofilter) (variable-item gnus-group-spam-exit-processor-blacklist) (variable-item gnus-group-spam-exit-processor-spamoracle) (variable-item gnus-group-spam-exit-processor-report-gmane) (variable-item gnus-group-ham-exit-processor-bogofilter) (variable-item gnus-group-ham-exit-processor-ifile) (variable-item gnus-group-ham-exit-processor-stat) (variable-item gnus-group-ham-exit-processor-whitelist) (variable-item gnus-group-ham-exit-processor-BBDB) (variable-item gnus-group-ham-exit-processor-spamoracle) (variable-item gnus-group-ham-exit-processor-copy)))) spam-process (choice :tag "Spam Summary Exit Processor" :value nil (list :tag "Spam Summary Exit Processor Choices" (set (const :tag "Spam: Bogofilter" (spam spam-use-bogofilter)) (const :tag "Spam: Blacklist" (spam spam-use-blacklist)) (const :tag "Spam: Bsfilter" (spam spam-use-bsfilter)) (const :tag "Spam: Gmane Report" (spam spam-use-gmane)) (const :tag "Spam: Resend Message" (spam spam-use-resend)) (const :tag "Spam: ifile" (spam spam-use-ifile)) (const :tag "Spam: Spam Oracle" (spam spam-use-spamoracle)) (const :tag "Spam: Spam-stat" (spam spam-use-stat)) (const :tag "Spam: SpamAssassin" (spam spam-use-spamassassin)) (const :tag "Spam: CRM114" (spam spam-use-crm114)) (const :tag "Ham: BBDB" (ham spam-use-BBDB)) (const :tag "Ham: Bogofilter" (ham spam-use-bogofilter)) (const :tag "Ham: Bsfilter" (ham spam-use-bsfilter)) (const :tag "Ham: Copy" (ham spam-use-ham-copy)) (const :tag "Ham: Resend Message" (ham spam-use-resend)) (const :tag "Ham: ifile" (ham spam-use-ifile)) (const :tag "Ham: Spam Oracle" (ham spam-use-spamoracle)) (const :tag "Ham: Spam-stat" (ham spam-use-stat)) (const :tag "Ham: SpamAssassin" (ham spam-use-spamassassin)) (const :tag "Ham: CRM114" (ham spam-use-crm114)) (const :tag "Ham: Whitelist" (ham spam-use-whitelist)) (variable-item gnus-group-spam-exit-processor-ifile) (variable-item gnus-group-spam-exit-processor-stat) (variable-item gnus-group-spam-exit-processor-bogofilter) (variable-item gnus-group-spam-exit-processor-blacklist) (variable-item gnus-group-spam-exit-processor-spamoracle) (variable-item gnus-group-spam-exit-processor-report-gmane) (variable-item gnus-group-ham-exit-processor-bogofilter) (variable-item gnus-group-ham-exit-processor-ifile) (variable-item gnus-group-ham-exit-processor-stat) (variable-item gnus-group-ham-exit-processor-whitelist) (variable-item gnus-group-ham-exit-processor-BBDB) (variable-item gnus-group-ham-exit-processor-spamoracle) (variable-item gnus-group-ham-exit-processor-copy)))) "Which spam or ham processors will be applied when the summary is exited." gnus-parameter-spam-process #[#1# "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-spam-process-newsgroups value elem alist gnus-group-find-parameter spam-process t nil string-match] 4 "Which spam or ham processors will be applied when the summary is exited."] gnus-spam-autodetect "*Groups in which spam should be autodetected when they are entered.\n Only unseen articles will be examined, unless\n spam-autodetect-recheck-messages is set." (repeat :tag "Autodetection setting" (list (regexp :tag "Group Regexp") boolean)) spam-autodetect (boolean :tag "Spam autodetection") "Spam autodetection.\nOnly unseen articles will be examined, unless\nspam-autodetect-recheck-messages is set." gnus-parameter-spam-autodetect #[#1# "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-spam-autodetect value elem alist gnus-group-find-parameter spam-autodetect t nil string-match] 4 "Should spam be autodetected (with spam-split) in this group?"] gnus-spam-autodetect-methods "*Methods for autodetecting spam per group.\nRequires the spam-autodetect parameter. Only unseen articles\nwill be examined, unless spam-autodetect-recheck-messages is\nset." (repeat :tag "Autodetection methods" (list (regexp :tag "Group Regexp") (choice (const none) (const default) (set :tag "Use specific methods" (variable-item spam-use-blacklist) (variable-item spam-use-gmane-xref) (variable-item spam-use-regex-headers) (variable-item spam-use-regex-body) (variable-item spam-use-whitelist) (variable-item spam-use-BBDB) (variable-item spam-use-ifile) (variable-item spam-use-spamoracle) (variable-item spam-use-crm114) (variable-item spam-use-stat) (variable-item spam-use-blackholes) (variable-item spam-use-hashcash) (variable-item spam-use-spamassassin) (variable-item spam-use-spamassassin-headers) (variable-item spam-use-bsfilter) (variable-item spam-use-bsfilter-headers) (variable-item spam-use-bogofilter-headers) (variable-item spam-use-bogofilter))))) spam-autodetect-methods (choice :tag "Spam autodetection-specific methods" (const none) (const default) (set :tag "Use specific methods" (variable-item spam-use-blacklist) (variable-item spam-use-gmane-xref) (variable-item spam-use-regex-headers) (variable-item spam-use-regex-body) (variable-item spam-use-whitelist) (variable-item spam-use-BBDB) (variable-item spam-use-ifile) (variable-item spam-use-spamoracle) (variable-item spam-use-crm114) (variable-item spam-use-spamassassin) (variable-item spam-use-spamassassin-headers) (variable-item spam-use-bsfilter) (variable-item spam-use-bsfilter-headers) (variable-item spam-use-stat) (variable-item spam-use-blackholes) (variable-item spam-use-hashcash) (variable-item spam-use-bogofilter-headers) (variable-item spam-use-bogofilter))) "Spam autodetection methods.\nRequires the spam-autodetect parameter. Only unseen articles\nwill be examined, unless spam-autodetect-recheck-messages is\nset." gnus-parameter-spam-autodetect-methods #[#1# "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-spam-autodetect-methods value elem alist gnus-group-find-parameter spam-autodetect-methods t nil string-match] 4 "Methods to be used for autodetection in each group"] gnus-spam-process-destinations "*Groups in which to explicitly send spam-processed articles to\nanother group, or expire them (the default). If non-nil, this should\nbe a list of group name regexps that should match all groups in which\nto do spam-processed article moving, associated with the destination\ngroup or nil for explicit expiration. This only makes sense for\nmail groups." (repeat :tag "Spam-processed articles destination" (list (regexp :tag "Group Regexp") (choice :tag "Destination for spam-processed articles at summary exit" (string :tag "Move to a group") (repeat :tag "Move to multiple groups" (string :tag "Destination group")) (const :tag "Expire" nil)))) spam-process-destination (choice :tag "Destination for spam-processed articles at summary exit" (string :tag "Move to a group") (repeat :tag "Move to multiple groups" (string :tag "Destination group")) (const :tag "Expire" nil)) "Where spam-processed articles will go at summary exit." gnus-parameter-spam-process-destination #[#1# "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-spam-process-destinations value elem alist gnus-group-find-parameter spam-process-destination t nil string-match] 4 "Where spam-processed articles will go at summary exit."] gnus-ham-process-destinations "*Groups in which to explicitly send ham articles to\nanother group, or do nothing (the default). If non-nil, this should\nbe a list of group name regexps that should match all groups in which\nto do ham article moving, associated with the destination\ngroup or nil for explicit ignoring. This only makes sense for\nmail groups, and only works in spam groups." (repeat :tag "Ham articles destination" (list (regexp :tag "Group Regexp") (choice :tag "Destination for ham articles at summary exit from spam group" (string :tag "Move to a group") (repeat :tag "Move to multiple groups" (string :tag "Destination group")) (const :tag "Respool" respool) (const :tag "Expire" nil)))) ham-process-destination (choice :tag "Destination for ham articles at summary exit from a spam group" (string :tag "Move to a group") (repeat :tag "Move to multiple groups" (string :tag "Destination group")) (const :tag "Respool" respool) (const :tag "Do nothing" nil)) "Where ham articles will go at summary exit from a spam group." gnus-parameter-ham-process-destination #[#1# "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-ham-process-destinations value elem alist gnus-group-find-parameter ham-process-destination t nil string-match] 4 "Where ham articles will go at summary exit from a spam group."] gnus-parameter-ham-marks-alist '((".*" ((gnus-del-mark gnus-read-mark gnus-killed-mark gnus-kill-file-mark gnus-low-score-mark)))) "*Groups in which to explicitly set the ham marks to some value." (repeat (list #2=(regexp :tag "Group") #3=(list :tag "Ham mark choices" (set (variable-item gnus-del-mark) (variable-item gnus-read-mark) (variable-item gnus-ticked-mark) (variable-item gnus-killed-mark) (variable-item gnus-kill-file-mark) (variable-item gnus-low-score-mark))))) ham-marks #3# "Marks considered ham (positively not spam). Such articles will be\nprocessed as ham (non-spam) on group exit. When nil, the global\nspam-ham-marks variable takes precedence." gnus-parameter-ham-marks #[#1# "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-parameter-ham-marks-alist value elem alist gnus-group-find-parameter ham-marks t nil string-match] 4 #4=""] gnus-parameter-spam-marks-alist '((".*" ((gnus-spam-mark)))) "*Groups in which to explicitly set the spam marks to some value." (repeat (list #2# #5=(list :tag "Spam mark choices" (set (variable-item gnus-spam-mark) (variable-item gnus-killed-mark) (variable-item gnus-kill-file-mark) (variable-item gnus-low-score-mark))))) spam-marks #5# "Marks considered spam.\nSuch articles will be processed as spam on group exit. When nil, the global\nspam-spam-marks variable takes precedence." gnus-parameter-spam-marks #[#1# "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-parameter-spam-marks-alist value elem alist gnus-group-find-parameter spam-marks t nil string-match] 4 #4#]] 10) #@78 Number of group name elements to leave alone when making a short group name. (custom-declare-variable 'gnus-group-uncollapsed-levels '1 '(#$ . 81497) :group 'gnus-group-visual :type 'integer) #@62 *If non-nil, once you set a level, Gnus will use this level. (custom-declare-variable 'gnus-group-use-permanent-levels 'nil '(#$ . -81695) :group 'gnus-group-levels :type 'boolean) #@34 A hook run while Gnus is loaded. (custom-declare-variable 'gnus-load-hook 'nil '(#$ . 81882) :group 'gnus-start :type 'hook) #@629 A hook called to apply kill files to a group. This hook is intended to apply a kill file to the selected newsgroup. The function `gnus-apply-kill-file' is called by default. Since a general kill file is too heavy to use only for a few newsgroups, I recommend you to use a lighter hook function. For example, if you'd like to apply a kill file to articles which contains a string `rmgroup' in subject in newsgroup `control', you can use the following hook: (setq gnus-apply-kill-hook (list (lambda () (cond ((string-match "control" gnus-newsgroup-name) (gnus-kill "Subject" "rmgroup") (gnus-expunge "X")))))) (custom-declare-variable 'gnus-apply-kill-hook ''(gnus-apply-kill-file) '(#$ . 82014) :group 'gnus-score-kill :options '(gnus-apply-kill-file) :type 'hook) #@110 Function run when a group level is changed. It is called with three parameters -- GROUP, LEVEL and OLDLEVEL. (custom-declare-variable 'gnus-group-change-level-function 'nil '(#$ . 82805) :group 'gnus-group-levels :type '(choice (const nil) function)) #@652 *Enable visual features. If `visual' is disabled, there will be no menus and few faces. Most of the visual customization options below will be ignored. Gnus will use less space and be faster as a result. This variable can also be a list of visual elements to switch on. For instance, to switch off all visual things except menus, you can say: (setq gnus-visual '(menu)) Valid elements include `summary-highlight', `group-highlight', `article-highlight', `mouse-face', `summary-menu', `group-menu', `article-menu', `tree-highlight', `menu', `highlight', `browse-menu', `server-menu', `page-marker', `tree-menu', `binary-menu', and`pick-menu'. (custom-declare-variable 'gnus-visual ''(summary-highlight group-highlight article-highlight mouse-face summary-menu group-menu article-menu tree-highlight menu highlight browse-menu server-menu page-marker tree-menu binary-menu pick-menu) '(#$ . -83063) :group 'gnus-meta :group 'gnus-visual :type '(set (const summary-highlight) (const group-highlight) (const article-highlight) (const mouse-face) (const summary-menu) (const group-menu) (const article-menu) (const tree-highlight) (const menu) (const highlight) (const browse-menu) (const server-menu) (const page-marker) (const tree-menu) (const binary-menu) (const pick-menu))) (defalias 'gnus-visual-p #[(&optional type class) "\205 \204\n \207<\203 >\206 \n>\207\303\207" [gnus-visual type class t] 2]) #@131 *Face used for group or summary buffer mouse highlighting. The line beneath the mouse pointer will be highlighted with this face. (custom-declare-variable 'gnus-mouse-face '(condition-case nil (if (gnus-visual-p 'mouse-face 'highlight) (if (boundp 'gnus-mouse-face) (or gnus-mouse-face 'highlight) 'highlight) 'default) (error 'highlight)) '(#$ . -84491) :group 'gnus-visual :type 'face) #@70 *Name of the directory articles will be saved in (default "~/News"). (custom-declare-variable 'gnus-article-save-directory 'gnus-directory '(#$ . -84885) :group 'gnus-article-saving :type 'directory) #@33 Whether Gnus is plugged or not. (defvar gnus-plugged t (#$ . 85091)) #@219 Controls use of the agent cache while plugged. When set, Gnus will prefer using the locally stored content rather than re-fetching it from the server. You also need to enable `gnus-agent' for this to have any affect. (custom-declare-variable 'gnus-agent-cache 't '(#$ . 85167) :version "22.1" :group 'gnus-agent :type 'boolean) #@225 Default charset assumed to be used when viewing non-ASCII characters. This variable is overridden on a group-to-group basis by the `gnus-group-charset-alist' variable and is only used on groups not covered by that variable. (custom-declare-variable 'gnus-default-charset ''undecided '(#$ . 85503) :type 'symbol :group 'gnus-charset) #@242 Whether we want to use the Gnus agent or not. You may customize gnus-agent to disable its use. However, some back ends have started to use the agent as a client-side cache. Disabling the agent may result in noticeable loss of performance. (custom-declare-variable 'gnus-agent 't '(#$ . 85843) :version "22.1" :group 'gnus-agent :type 'boolean) #@52 Function called by the command `gnus-other-frame'. (custom-declare-variable 'gnus-other-frame-function ''gnus '(#$ . 86195) :group 'gnus-start :type '(choice (function-item gnus) (function-item gnus-no-server) (function-item gnus-slave) (function-item gnus-slave-no-server))) #@127 Frame parameters used by `gnus-other-frame' to create a Gnus frame. This should be an alist for Emacs, or a plist for XEmacs. (custom-declare-variable 'gnus-other-frame-parameters 'nil '(#$ . 86478) :group 'gnus-start :type '(repeat (cons :format "%v" (symbol :tag "Parameter") (sexp :tag "Value")))) #@416 Which information should be exposed in the User-Agent header. Can be a list of symbols or a string. Valid symbols are `gnus' (show Gnus version) and `emacs' (show Emacs version). In addition to the Emacs version, you can add `codename' (show (S)XEmacs codename) or either `config' (show system configuration) or `type' (show system type). If you set it to a string, be sure to use a valid format, see RFC 2616. (custom-declare-variable 'gnus-user-agent ''(emacs gnus type) '(#$ . 86786) :version "22.1" :group 'gnus-message :type '(choice (list (set :inline t (const gnus :tag "Gnus version") (const emacs :tag "Emacs version") (choice :tag "system" (const type :tag "system type") (const config :tag "system configuration")) (const codename :tag "Emacs codename"))) (string))) (byte-code "9\203P \302=\203 \303\202. \304=\203 \305\202. \306=\203# \307\202. \310=\203- \311\202. \312\313\314#\210\315\313!\210\300\316N\203G \317\300\"\210\202P \312\313\320\"\210\315\321!\210\322 B\323\322!\204_ \324\322\325\"\210\326 B\323\326!\204n \324\326\327\"\210\330 B\323\330!\204} \324\330\331\"\210\332 B\323\332!\204\214 \324\332\333\"\210\334 B\323\334!\204\233 \324\334\335\"\210\336 B\323\336!\204\252 \324\336\337\"\210\340 B\323\340!\204\271 \324\340\341\"\210\342 B\323\342!\204\310 \324\342\331\"\210\343 B\323\343!\204\327 \324\343\331\"\210\344 B\323\344!\204\346 \324\344\331\"\210\331\207" [gnus-user-agent current-load-list emacs-gnus-config (emacs gnus config) emacs-gnus-type (emacs gnus type) emacs-gnus (emacs gnus) gnus (gnus) gnus-message 1 "Converted `gnus-user-agent' to `%s'." sit-for saved-value customize-save-variable "Edit your init file to make this change permanent." 2 gnus-agent-gcc-header default-boundp set-default "X-Gnus-Agent-Gcc" gnus-agent-meta-information-header "X-Gnus-Agent-Meta-Information" gnus-agent-method-p-cache nil gnus-agent-target-move-group-header "X-Gnus-Agent-Move-To" gnus-draft-meta-information-header "X-Draft-From" gnus-group-get-parameter-function gnus-group-get-parameter gnus-original-article-buffer " *Original Article*" gnus-newsgroup-name gnus-ephemeral-servers gnus-server-method-cache] 4) #@41 Whether Gnus agent is in fetching mode. (defvar gnus-agent-fetching nil (#$ . 88965)) #@81 A list of servers, NOT methods, showing which servers are covered by the agent. (defvar gnus-agent-covered-methods nil (#$ . 89057)) #@68 Dynamically bound variable that says what the current back end is. (defvar gnus-command-method nil (#$ . 89196)) #@47 The current method for selecting a newsgroup. (defvar gnus-current-select-method nil (#$ . 89315)) #@47 Buffer where Gnus thread trees are displayed. (defvar gnus-tree-buffer "*Tree*" (#$ . 89420)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\306B\302\306!\204- \303\306\304\"\210\307B\302\307!\204< \303\307\304\"\210\304\207" [current-load-list gnus-use-generic-from default-boundp set-default nil gnus-method-history gnus-mail-method-history gnus-group-history] 3) #@28 List of available servers. (defvar gnus-server-alist nil (#$ . 89842)) #@54 *The directory where cached articles will be stored. (custom-declare-variable 'gnus-cache-directory '(nnheader-concat gnus-directory "cache/") '(#$ . -89919) :group 'gnus-cache :type 'directory) #@43 List of predefined (convenience) servers. (defvar gnus-predefined-server-alist (byte-code "\301\302\301\303D\304D\305\306\307\"D\257C\207" [gnus-cache-directory "cache" nnspool nnspool-spool-directory nnspool-nov-directory nnspool-active-file nnheader-concat "active"] 9) (#$ . 90120)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\306\307!\210\310B\311\312!\207" [current-load-list gnus-topic-indentation default-boundp set-default "" gnus-article-mark-lists (lambda (#1=#:defconst-tmp-var) (defconst gnus-article-mark-lists #1#)) ((marked . tick) (replied . reply) (expirable . expire) (killed . killed) (bookmarks . bookmark) (dormant . dormant) (scored . score) (saved . save) (cached . cache) (downloadable . download) (unsendable . unsend) (forwarded . forward) (recent . recent) (seen . seen)) gnus-article-special-mark-lists (lambda (#2=#:defconst-tmp-var) (defconst gnus-article-special-mark-lists #2#)) ((seen range) (killed range) (bookmark tuple) (score tuple))] 3) #@239 Marks that shouldn't be propagated to back ends. Typical marks are those that make no sense in a standalone back end, such as a mark that says whether an article is stored in the cache (which doesn't make sense in a standalone back end). (defconst gnus-article-unpropagated-mark-lists '(seen cache download unsend score bookmark) (#$ . 91125)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\306B\302\306!\204- \303\306\304\"\210\307B\302\307!\204< \303\307\304\"\210\310B\302\310!\204K \303\310\304\"\210\311B\302\311!\204Z \303\311\304\"\210\304\207" [current-load-list gnus-headers-retrieved-by default-boundp set-default nil gnus-article-reply gnus-override-method gnus-opened-servers gnus-current-kill-article gnus-have-read-active-file] 3) #@43 The mail address of the Gnus maintainers. (defconst gnus-maintainer "bugs@gnus.org (The Gnus Bugfixing Girls + Boys)" (#$ . 91930)) #@46 Alist of major modes and related Info nodes. (defvar gnus-info-nodes '((gnus-group-mode "(gnus)Group Buffer") (gnus-summary-mode "(gnus)Summary Buffer") (gnus-article-mode "(gnus)Article Buffer") (gnus-server-mode "(gnus)Server Buffer") (gnus-browse-mode "(gnus)Browse Foreign Server") (gnus-tree-mode "(gnus)Tree Display")) (#$ . 92068)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\306\"\210\307B\302\307!\204- \303\307\310\"\210\311B\302\311!\204< \303\311\312\"\210\301\207" [current-load-list gnus-group-buffer default-boundp set-default "*Group*" gnus-summary-buffer "*Summary*" gnus-article-buffer "*Article*" gnus-server-buffer "*Server*"] 3) #@38 Whether this Gnus is a slave or not. (defvar gnus-slave nil (#$ . 92767)) #@52 Whether this Gnus is running in batch mode or not. (defvar gnus-batch-mode nil (#$ . 92847)) #@49 Gnus variables saved in the quick startup file. (defvar gnus-variable-list '(gnus-newsrc-options gnus-newsrc-options-n gnus-newsrc-last-checked-date gnus-newsrc-alist gnus-server-alist gnus-killed-list gnus-zombie-list gnus-topic-topology gnus-topic-alist gnus-format-specs) (#$ . 92946)) #@106 Assoc list of read articles. `gnus-newsrc-hashtb' should be kept so that both hold the same information. (defvar gnus-newsrc-alist nil (#$ . 93242)) #@82 Assoc list of registry data. gnus-registry.el will populate this if it's loaded. (defvar gnus-registry-alist nil (#$ . 93397)) #@35 Hashtable of `gnus-newsrc-alist'. (defvar gnus-newsrc-hashtb nil (#$ . 93530)) #@28 List of killed newsgroups. (defvar gnus-killed-list nil (#$ . 93615)) #@46 Hash table equivalent of `gnus-killed-list'. (defvar gnus-killed-hashtb nil (#$ . 93691)) #@33 List of almost dead newsgroups. (defvar gnus-zombie-list nil (#$ . 93787)) #@29 Descriptions of newsgroups. (defvar gnus-description-hashtb nil (#$ . 93868)) #@64 List of newsgroups that have recently been killed by the user. (defvar gnus-list-of-killed-groups nil (#$ . 93952)) #@31 Hashtable of active articles. (defvar gnus-active-hashtb nil (#$ . 94074)) #@36 Hashtable of moderated newsgroups. (defvar gnus-moderated-hashtb nil (#$ . 94155)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\306B\302\306!\204- \303\306\304\"\210\304\207" [current-load-list gnus-prev-winconf default-boundp set-default nil gnus-reffed-article-number gnus-dead-summary] 3) #@33 Regexp matching invalid groups. (defvar gnus-invalid-group-regexp "[: `'\"/]\\|^$" (#$ . 94503)) #@61 A frame object which will be created by `gnus-other-frame'. (defvar gnus-other-frame-object nil (#$ . 94606)) (mapc #[(package) "\302>A@\303\304A@\302=\203 \305\233\202 A\")\207" [package interactive :interactive mapcar #[(function) "\304 :\203 \300 >@ @\305 !?\205 \306 \n@\304 %)\207" [keymap function package interactive nil fboundp autoload] 6] 3] 4] '(("info" :interactive t Info-goto-node) ("pp" pp-to-string) ("qp" quoted-printable-decode-region quoted-printable-decode-string) ("ps-print" ps-print-preprint) ("message" :interactive t message-send-and-exit message-yank-original) ("babel" babel-as-string) ("nnmail" nnmail-split-fancy nnmail-article-group) ("nnvirtual" nnvirtual-catchup-group nnvirtual-convert-headers) ("rmailout" rmail-output) ("rmail" rmail-count-new-messages rmail-show-message rmail-summary-exists rmail-select-summary) ("rmailsum" rmail-update-summary) ("gnus-audio" :interactive t gnus-audio-play) ("gnus-xmas" gnus-xmas-splash) ("gnus-soup" :interactive t gnus-group-brew-soup gnus-brew-soup gnus-soup-add-article gnus-soup-send-replies gnus-soup-save-areas gnus-soup-pack-packet) ("nnsoup" nnsoup-pack-replies) ("score-mode" :interactive t gnus-score-mode) ("gnus-mh" gnus-summary-save-article-folder gnus-Folder-save-name gnus-folder-save-name) ("gnus-mh" :interactive t gnus-summary-save-in-folder) ("gnus-demon" gnus-demon-add-nocem gnus-demon-add-scanmail gnus-demon-add-rescan gnus-demon-add-scan-timestamps gnus-demon-add-disconnection gnus-demon-add-handler gnus-demon-remove-handler) ("gnus-demon" :interactive t gnus-demon-init gnus-demon-cancel) ("gnus-fun" gnus-convert-gray-x-face-to-xpm gnus-display-x-face-in-from gnus-convert-image-to-gray-x-face gnus-convert-face-to-png gnus-face-from-file) ("gnus-salt" gnus-highlight-selected-tree gnus-possibly-generate-tree gnus-tree-open gnus-tree-close gnus-carpal-setup-buffer) ("gnus-nocem" gnus-nocem-scan-groups gnus-nocem-close gnus-nocem-unwanted-article-p) ("gnus-srvr" gnus-enter-server-buffer gnus-server-set-info gnus-server-server-name) ("gnus-srvr" gnus-browse-foreign-server) ("gnus-cite" :interactive t gnus-article-highlight-citation gnus-article-hide-citation-maybe gnus-article-hide-citation gnus-article-fill-cited-article gnus-article-hide-citation-in-followups) ("gnus-kill" gnus-kill gnus-apply-kill-file-internal gnus-kill-file-edit-file gnus-kill-file-raise-followups-to-author gnus-execute gnus-expunge gnus-batch-kill gnus-batch-score) ("gnus-cache" gnus-cache-possibly-enter-article gnus-cache-save-buffers gnus-cache-possibly-remove-articles gnus-cache-request-article gnus-cache-retrieve-headers gnus-cache-possibly-alter-active gnus-cache-enter-remove-article gnus-cached-article-p gnus-cache-open gnus-cache-close gnus-cache-update-article gnus-cache-articles-in-group) ("gnus-cache" :interactive t gnus-jog-cache gnus-cache-enter-article gnus-cache-remove-article gnus-summary-insert-cached-articles) ("gnus-score" :interactive t gnus-summary-increase-score gnus-summary-set-score gnus-summary-raise-thread gnus-summary-raise-same-subject gnus-summary-raise-score gnus-summary-raise-same-subject-and-select gnus-summary-lower-thread gnus-summary-lower-same-subject gnus-summary-lower-score gnus-summary-lower-same-subject-and-select gnus-summary-current-score gnus-score-delta-default gnus-score-flush-cache gnus-score-close gnus-possibly-score-headers gnus-score-followup-article gnus-score-followup-thread) ("gnus-score" (gnus-summary-score-map keymap) gnus-score-save gnus-score-headers gnus-current-score-file-nondirectory gnus-score-adaptive gnus-score-find-trace gnus-score-file-name) ("gnus-cus" :interactive t gnus-group-customize gnus-score-customize) ("gnus-topic" :interactive t gnus-topic-mode) ("gnus-topic" gnus-topic-remove-group gnus-topic-set-parameters gnus-subscribe-topics) ("gnus-salt" :interactive t gnus-pick-mode gnus-binary-mode) ("gnus-uu" (gnus-uu-extract-map keymap) (gnus-uu-mark-map keymap)) ("gnus-uu" :interactive t gnus-uu-digest-mail-forward gnus-uu-digest-post-forward gnus-uu-mark-series gnus-uu-mark-region gnus-uu-mark-buffer gnus-uu-mark-by-regexp gnus-uu-mark-all gnus-uu-mark-sparse gnus-uu-mark-thread gnus-uu-decode-uu gnus-uu-decode-uu-and-save gnus-uu-decode-unshar gnus-uu-decode-unshar-and-save gnus-uu-decode-save gnus-uu-decode-binhex gnus-uu-decode-uu-view gnus-uu-decode-uu-and-save-view gnus-uu-decode-unshar-view gnus-uu-decode-unshar-and-save-view gnus-uu-decode-save-view gnus-uu-decode-binhex-view gnus-uu-unmark-thread gnus-uu-mark-over gnus-uu-post-news gnus-uu-invert-processable) ("gnus-uu" gnus-uu-delete-work-dir gnus-uu-unmark-thread) ("gnus-msg" (gnus-summary-send-map keymap) gnus-article-mail gnus-copy-article-buffer gnus-extended-version) ("gnus-msg" :interactive t gnus-group-post-news gnus-group-mail gnus-group-news gnus-summary-post-news gnus-summary-news-other-window gnus-summary-followup gnus-summary-followup-with-original gnus-summary-cancel-article gnus-summary-supersede-article gnus-post-news gnus-summary-reply gnus-summary-reply-with-original gnus-summary-mail-forward gnus-summary-mail-other-window gnus-summary-resend-message gnus-summary-resend-bounced-mail gnus-summary-wide-reply gnus-summary-followup-to-mail gnus-summary-followup-to-mail-with-original gnus-bug gnus-summary-wide-reply-with-original gnus-summary-post-forward gnus-summary-wide-reply-with-original gnus-summary-post-forward) ("gnus-picon" :interactive t gnus-treat-from-picon) ("smiley" :interactive t smiley-region) ("gnus-win" gnus-configure-windows gnus-add-configuration) ("gnus-sum" gnus-summary-insert-line gnus-summary-read-group gnus-list-of-unread-articles gnus-list-of-read-articles gnus-offer-save-summaries gnus-make-thread-indent-array gnus-summary-exit gnus-update-read-articles gnus-summary-last-subject gnus-summary-skip-intangible gnus-summary-article-number gnus-data-header gnus-data-find) ("gnus-group" gnus-group-insert-group-line gnus-group-quit gnus-group-list-groups gnus-group-first-unread-group gnus-group-set-mode-line gnus-group-set-info gnus-group-save-newsrc gnus-group-setup-buffer gnus-group-get-new-news gnus-group-make-help-group gnus-group-update-group gnus-group-iterate gnus-group-group-name) ("gnus-bcklg" gnus-backlog-request-article gnus-backlog-enter-article gnus-backlog-remove-article) ("gnus-art" gnus-article-read-summary-keys gnus-article-save gnus-article-prepare gnus-article-set-window-start gnus-article-next-page gnus-article-prev-page gnus-request-article-this-buffer gnus-article-mode gnus-article-setup-buffer gnus-narrow-to-page gnus-article-delete-invisible-text gnus-treat-article) ("gnus-art" :interactive t gnus-article-hide-headers gnus-article-hide-boring-headers gnus-article-treat-overstrike gnus-article-remove-cr gnus-article-remove-trailing-blank-lines gnus-article-display-x-face gnus-article-de-quoted-unreadable gnus-article-de-base64-unreadable gnus-article-decode-HZ gnus-article-wash-html gnus-article-unsplit-urls gnus-article-hide-pem gnus-article-hide-signature gnus-article-strip-leading-blank-lines gnus-article-date-local gnus-article-date-original gnus-article-date-lapsed gnus-article-edit-mode gnus-article-edit-article gnus-article-edit-done gnus-article-decode-encoded-words gnus-start-date-timer gnus-stop-date-timer gnus-mime-view-all-parts) ("gnus-int" gnus-request-type) ("gnus-start" gnus-newsrc-parse-options gnus-1 gnus-no-server-1 gnus-dribble-enter gnus-read-init-file gnus-dribble-touch gnus-check-reasonable-setup) ("gnus-dup" gnus-dup-suppress-articles gnus-dup-unsuppress-article gnus-dup-enter-articles) ("gnus-range" gnus-copy-sequence) ("gnus-eform" gnus-edit-form) ("gnus-move" :interactive t gnus-group-move-group-to-server gnus-change-server) ("gnus-logic" gnus-score-advanced) ("gnus-undo" gnus-undo-mode gnus-undo-register) ("gnus-async" gnus-async-request-fetched-article gnus-async-prefetch-next gnus-async-prefetch-article gnus-async-prefetch-remove-group gnus-async-halt-prefetch) ("gnus-agent" gnus-open-agent gnus-agent-get-function gnus-agent-save-active gnus-agent-method-p gnus-agent-get-undownloaded-list gnus-agent-fetch-session gnus-summary-set-agent-mark gnus-agent-save-group-info gnus-agent-request-article gnus-agent-retrieve-headers) ("gnus-agent" :interactive t gnus-unplugged gnus-agentize gnus-agent-batch) ("gnus-vm" :interactive t gnus-summary-save-in-vm gnus-summary-save-article-vm) ("compface" uncompface) ("gnus-draft" :interactive t gnus-draft-mode gnus-group-send-queue) ("gnus-mlspl" gnus-group-split gnus-group-split-fancy) ("gnus-mlspl" :interactive t gnus-group-split-setup gnus-group-split-update) ("gnus-delay" gnus-delay-initialize))) #@2952 *The format specification of the lines in the summary buffer. It works along the same lines as a normal formatting string, with some simple extensions. %N Article number, left padded with spaces (string) %S Subject (string) %s Subject if it is at the root of a thread, and "" otherwise (string) %n Name of the poster (string) %a Extracted name of the poster (string) %A Extracted address of the poster (string) %F Contents of the From: header (string) %f Contents of the From: or To: headers (string) %x Contents of the Xref: header (string) %D Date of the article (string) %d Date of the article (string) in DD-MMM format %o Date of the article (string) in YYYYMMDD`T'HHMMSS format %M Message-id of the article (string) %r References of the article (string) %c Number of characters in the article (integer) %k Pretty-printed version of the above (string) For example, "1.2k" or "0.4M". %L Number of lines in the article (integer) %I Indentation based on thread level (a string of spaces) %B A complex trn-style thread tree (string) The variables `gnus-sum-thread-*' can be used for customization. %T A string with two possible values: 80 spaces if the article is on thread level two or larger and 0 spaces on level one %R "A" if this article has been replied to, " " otherwise (character) %U Status of this article (character, "R", "K", "-" or " ") %[ Opening bracket (character, "[" or "<") %] Closing bracket (character, "]" or ">") %> Spaces of length thread-level (string) %< Spaces of length (- 20 thread-level) (string) %i Article score (number) %z Article zcore (character) %t Number of articles under the current thread (number). %e Whether the thread is empty or not (character). %V Total thread score (number). %P The line number (number). %O Download mark (character). %* If present, indicates desired cursor position (instead of after first colon). %u User defined specifier. The next character in the format string should be a letter. Gnus will call the function gnus-user-format-function-X, where X is the letter following %u. The function will be passed the current header as argument. The function should return a string, which will be inserted into the summary just like information from any other summary specifier. The %U (status), %R (replied) and %z (zcore) specs have to be handled with care. For reasons of efficiency, Gnus will compute what column these characters will end up in, and "hard-code" that. This means that it is invalid to have these specs after a variable-length spec. Well, you might not be arrested, but your summary buffer will look strange, which is bad enough. The smart choice is to have these specs as far to the left as possible. This restriction may disappear in later versions of Gnus. General format specifiers can also be used. See Info node `(gnus)Formatting Variables'. (custom-declare-variable 'gnus-summary-line-format '"%U%R%z%I%(%[%4L: %-23,23f%]%) %s\n" '(#$ . -103276) :link '(custom-manual "(gnus)Formatting Variables") :type 'string :group 'gnus-summary-format) (defalias 'gnus-suppress-keymap #[(keymap) "\302!\210\303 \205 \304 \211A@\305#\210\202 )\207" [keymap keys suppress-keymap ([backspace] [delete] "" "\365") define-key undefined] 4]) (byte-code "\302B\303\302!\204 \304\302\305 \306 !\210 )\"\210\307B\303\307!\204. \304\307\310 \306 !\210 )\"\210\311B\303\311!\204E \304\311\310 \306 !\210 )\"\210\312\313\314\"\210\312\315\314\"\207" [current-load-list keymap gnus-article-mode-map default-boundp set-default make-sparse-keymap gnus-suppress-keymap gnus-summary-mode-map make-keymap gnus-group-mode-map defalias gnus-summary-position-point gnus-goto-colon gnus-group-position-point] 4) (defalias 'gnus-header-from #[(header) "\301H\207" [header 2] 2]) #@40 Get hash value of STRING in HASHTABLE. (defalias 'gnus-gethash '(macro . #[(string hashtable) "\302\303 ED\207" [string hashtable symbol-value intern-soft] 4 (#$ . 107154)])) #@67 Get hash value of STRING in HASHTABLE. Return nil if not defined. (defalias 'gnus-gethash-safe '(macro . #[(string hashtable) "\302\303\304 EDC\305BB\207" [string hashtable let sym intern-soft ((and (boundp sym) (symbol-value sym)))] 5 (#$ . 107336)])) #@62 Set hash value. Arguments are STRING, VALUE, and HASHTABLE. (defalias 'gnus-sethash '(macro . #[(string value hashtable) "\303\304 E\nE\207" [string hashtable value set intern] 4 (#$ . 107596)])) (put 'gnus-sethash 'edebug-form-spec '(form form form)) #@64 Get the currently computed number of unread articles in GROUP. (defalias 'gnus-group-unread '(macro . #[(group) "\301\302\303BBD\207" [group car gnus-gethash (gnus-newsrc-hashtb)] 4 (#$ . 107856)])) #@33 Get the newsrc entry for GROUP. (defalias 'gnus-group-entry '(macro . #[(group) "\301\302BB\207" [group gnus-gethash (gnus-newsrc-hashtb)] 3 (#$ . 108062)])) #@27 Get active info on GROUP. (defalias 'gnus-active '(macro . #[(group) "\301\302BB\207" [group gnus-gethash (gnus-active-hashtb)] 3 (#$ . 108227)])) #@26 Set GROUP's active info. (defalias 'gnus-set-active '(macro . #[(group active) "\302 \303BBB\207" [group active gnus-sethash (gnus-active-hashtb)] 4 (#$ . 108381)])) (defalias 'gnus-info-group '(macro . #[(info) "\301\302E\207" [info nth 0] 3])) (defalias 'gnus-info-rank '(macro . #[(info) "\301\302E\207" [info nth 1] 3])) (defalias 'gnus-info-read '(macro . #[(info) "\301\302E\207" [info nth 2] 3])) (defalias 'gnus-info-marks '(macro . #[(info) "\301\302E\207" [info nth 3] 3])) (defalias 'gnus-info-method '(macro . #[(info) "\301\302E\207" [info nth 4] 3])) (defalias 'gnus-info-params '(macro . #[(info) "\301\302E\207" [info nth 5] 3])) (defalias 'gnus-info-level '(macro . #[(info) "\301\302\303DDC\304BB\207" [info let rank gnus-info-rank ((if (consp rank) (car rank) rank))] 4])) (defalias 'gnus-info-score '(macro . #[(info) "\301\302\303DDC\304BB\207" [info let rank gnus-info-rank ((or (and (consp rank) (cdr rank)) 0))] 4])) (defalias 'gnus-info-set-group '(macro . #[(info group) "\302 E\207" [info group setcar] 3])) (defalias 'gnus-info-set-rank '(macro . #[(info rank) "\302\303\304E E\207" [info rank setcar nthcdr 1] 4])) (defalias 'gnus-info-set-read '(macro . #[(info read) "\302\303\304E E\207" [info read setcar nthcdr 2] 4])) (defalias 'gnus-info-set-marks '(macro . #[(info marks &optional extend) "\203\f \303 \n\304BBB\207\305\306\307 E\nE\207" [extend info marks gnus-info-set-entry (3) setcar nthcdr 3] 4])) (defalias 'gnus-info-set-method '(macro . #[(info method &optional extend) "\203\f \303 \n\304BBB\207\305\306\307 E\nE\207" [extend info method gnus-info-set-entry (4) setcar nthcdr 4] 4])) (defalias 'gnus-info-set-params '(macro . #[(info params &optional extend) "\203\f \303 \n\304BBB\207\305\306\307 E\nE\207" [extend info params gnus-info-set-entry (5) setcar nthcdr 5] 4])) (defalias 'gnus-info-set-entry #[(info entry number) "G X\203 \303C\244\210\202 \233\n\240\207" [info number entry nil] 2]) (defalias 'gnus-info-set-level '(macro . #[(info level) "\302\303\304DDC\305\306\307\310 E\307\303 EFE\207" [info level let rank cdr if (consp (car rank)) setcar (car rank)] 8])) (defalias 'gnus-info-set-score '(macro . #[(info score) "\302\303\304DDC\305\306\307\310 E\311\303\312\313 EEFE\207" [info score let rank cdr if (consp (car rank)) setcdr (car rank) setcar cons (car rank)] 10])) (defalias 'gnus-get-info '(macro . #[(group) "\301\302\303\304BBE\207" [group nth 2 gnus-gethash (gnus-newsrc-hashtb)] 5])) (byte-code "\301\302!\210\303B\304\303!\204 \305\303\306\"\210\306\207" [current-load-list require gnus-ems gnus-shutdown-alist default-boundp set-default nil] 3) #@52 Run FUNCTION whenever one of SYMBOLS is shut down. (defalias 'gnus-add-shutdown #[(function &rest symbols) " B\nB\211\207" [function symbols gnus-shutdown-alist] 2 (#$ . 111036)]) #@45 Shut down everything that waits for SYMBOL. (defalias 'gnus-shutdown #[(symbol) "\304\211\203 \n@ A>\203 @ \210\nA\211\204 *\304\207" [gnus-shutdown-alist entry #1=#:--cl-dolist-temp-- symbol nil] 3 (#$ . 111224)]) #@171 Return a regexp matching the addresses of all subscribed mail groups. It consists of the `to-address' or `to-list' parameter of all groups with a `subscribed' parameter. (defalias 'gnus-find-subscribed-addresses #[nil "\306\211\211 A\306 \211 \2039 @\211@\307\n!\2032 \310\311\n\312\"\206' \311\n\313\"!\211\2032 \314\300 \"\210 A\211\204 *\205D \315\316\317#C+\207" [addresses address group gnus-newsrc-alist entry #1=#:--cl-dolist-temp-- nil gnus-parameter-subscribed mail-strip-quoted-names gnus-group-fast-parameter to-address to-list add-to-list mapconcat regexp-quote "\\|"] 5 (#$ . 111456)]) #@113 Return the first element of STRINGS that is a non-blank string. STRINGS will be evaluated in normal `or' order. (defalias 'gnus-string-or '(macro . #[(&rest strings) "\301\302DD\207" [strings gnus-string-or-1 quote] 3 (#$ . 112073)])) (defalias 'gnus-string-or-1 #[(strings) "\302 \203 \303 \211A@!\304\305\"\203 \302\202 \302\211\204 )\207" [string strings nil eval string-match "^[ ]*$"] 4]) #@73 Version number of this version of Gnus. If ARG, insert string at point. (defalias 'gnus-version #[(&optional arg) "\203 \302 !c\207\302 !\207" [arg gnus-version message] 2 (#$ . 112486) "P"]) #@44 Return VERSION as a floating point number. (defalias 'gnus-continuum-version #[(&optional version) "\204 \306\307\"\204 \306\310\"\205\211 \311\224\205 \312\311\"\312\313\"\314\211\211 \306\315 \"\2046 \316\317\"\210\320\312\311 \"!\320\312\313 \"!\321\224\203R \320\312\321 \"!\202S \322\320\323\f!\203\201 \324\325 \326\235\203h \327\202{ \330\331\332\333\334 \227\322H!\334\335!Z!_\336# \n$\202\207 \324\337\f \n$!-\207" [version gnus-version least minor major number string-match "^\\([^ ]+\\)? ?Gnus v?\\([0-9.]+\\)$" "^\\(.?\\)gnus-\\([0-9.]+\\)$" 1 match-string 2 nil "\\([0-9]\\)\\.\\([0-9]+\\)\\.?\\([0-9]+\\)?" error "Invalid version string: %s" string-to-number 3 0 zerop format "%s00%02d%02d" ("(ding)" "d") "4.99" + 5 0.02 abs mm-char-int 116 -0.01 "%d.%02d%02d" alpha] 10 (#$ . 112686) nil]) #@34 Find Info documentation of Gnus. (defalias 'gnus-info-find-node #[(&optional nodename) "\305\306 \206 \n \236\211 A@)!\210p\307\310!)\207" [gnus-info-buffer nodename major-mode gnus-info-nodes x nil Info-goto-node gnus-configure-windows info] 4 (#$ . 113519) nil]) #@24 Current prefix symbol. (defvar gnus-current-prefix-symbol nil (#$ . 113793)) #@33 List of current prefix symbols. (defvar gnus-current-prefix-symbols nil (#$ . 113876)) #@260 Return a list that can be fed to `interactive'. See `interactive' for full documentation. Adds the following specs: y -- The current symbolic prefix. Y -- A list of the current symbolic prefix(es). A -- Article number. H -- Article header. g -- Group name. (defalias 'gnus-interactive #[(string &optional params) "\306\307\211\211 \fGW\203\312\310\311\f #\210\f H\312\225\203# \313\312\f\"\306\225 \314U\2035 \315 \316\317$\202\236 \320U\203C \321p\317#\202\236 \322U\203R \321\323p!\"\202\236 \324U\203] \325 \202\236 \326U\203l \315 \327\317$\202\236 \330U\203v `\202\236 \331U\203\206 \332\307@\333$\202\236 \334U\203\225 \332\307\211\333$\202\236 \335U\203\241 \332!\202\236 \336U\203\255 \337!\202\236 \340U\203\271 \341\342!\202\236 \343U\203\305 \341\342!\202\236 \344U\203\320 \345 \202\236 \346U\203\334 \341\342!\202\236 \347U\203\352 \350\351!!\202\236 \352U\203\367 \353A!\202\236 \354U\203A\202\236 \355U\203\f\356\202\236 \357U\203\360!\202\236 \361U\203&\362\360!!\202\236 \363U\2032\364!\202\236 \365U\203>\366!\202\236 \365U\203J\367!\202\236 \370U\203UB\202\236 \371U\203`C\202\236 \372U\203k\373 \202\236 \374U\203\202\375 \210\376`\377\"\206\236\201D \202\236 \201E U\203\231\201F \201G \201H !!\202\236\341\201I !\nB \355U\203 `\345 W\203\262`\202\264\345 \nB`\345 V\203\302`\202\304\345 \nB\202 \201J \356\n\"\211\237,\207" [prompt c out i string obarray 0 nil string-match ".\\([^\n]*\\)\n?" 1 match-string 97 completing-read fboundp t 98 read-buffer 66 other-buffer 99 read-char 67 commandp 100 68 read-file-name lambda 102 70 107 read-key-sequence 75 error "Not implemented spec" 101 109 mark 78 110 string-to-number read-from-minibuffer 112 prefix-numeric-value 80 114 gnus-prefix-nil 115 read-string 83 intern 118 read-variable 120 read-minibuffer eval-minibuffer 121 89 103 gnus-group-group-name 65 gnus-summary-skip-intangible get-text-property gnus-number default-directory current-prefix-arg gnus-current-prefix-symbol gnus-current-prefix-symbols gnus-summary-last-subject 72 gnus-data-header gnus-data-find gnus-summary-article-number "Non-implemented spec" delq] 6 (#$ . 113970)]) #@67 Read a symbolic argument and a command, and then execute command. (defalias 'gnus-symbolic-argument #[(&optional arg) "\305 \211\306\211\306 \232\203* \307\310\311\305 !\"\210\312\313\314 !!\fB\315\306\316\"\202 \f\237\211@\317\320 \316\"!-\207" [in-command command gnus-current-prefix-symbols gnus-current-prefix-symbol syms this-command-keys nil message "%s-" key-description intern char-to-string read-char read-key-sequence t call-interactively key-binding] 5 (#$ . 116174) "P"]) #@109 Check whether GROUP supports function FUNC. GROUP can either be a string (a group name) or a select method. (defalias 'gnus-check-backend-function #[(func group) "\300\301\302\217\207" [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))] 3 (#$ . 116676)]) (put 'gnus-check-backend-function 'byte-optimizer 'byte-compile-inline-expand) #@175 Check whether GROUP supports editing or not. If GROUP is nil, `gnus-newsgroup-name' will be checked instead. Note that that variable is buffer-local to the summary buffers. (defalias 'gnus-group-read-only-p #[(&optional group) "\206 \303\304\305\306\217+?\207" [group gnus-newsgroup-name func request-replace-article 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))] 3 (#$ . 117165)]) #@38 Say whether GROUP is virtual or not. (defalias 'gnus-virtual-group-p #[(group) "\302\303\304\305!@! \">\207" [group gnus-valid-select-methods virtual assoc symbol-name gnus-find-method-for-group] 5 (#$ . 117713)]) #@64 Return non-nil if GROUP (and ARTICLE) come from a news server. (defalias 'gnus-news-group-p #[(group &optional article) "\302\303\"\203 \304\207\302\305\"\204 \306\207\307 !\203! \310 \311H\"\312=\207 \204+ \310!\312=\207 \313W\2033 \306\207\310 \"\312=\207" [group article gnus-member-of-valid post t post-mail nil vectorp gnus-request-type 4 news 0] 4 (#$ . 117934)]) (defalias 'gnus-writable-groups #[nil "\304\211 \211A@@\211\203 \305 !\204 \nB\202 \n\237+\207" [gnus-newsrc-alist group groups alist nil gnus-group-read-only-p] 3]) (defalias 'gnus-use-long-file-name #[(symbol) "\205 <?\206 >?\207" [gnus-use-long-file-name symbol] 2]) (defalias 'gnus-generate-new-group-name #[(leaf) "\304\305\n \"J\203 \306\307 T\211!\310R\202 \n*\207" [leaf num name gnus-newsrc-hashtb 0 intern-soft "<" int-to-string ">"] 5]) #@40 Say whether GROUP is ephemeral or not. (defalias 'gnus-ephemeral-group-p #[(group) "\301\302\303#\207" [group gnus-group-get-parameter quit-config t] 4 (#$ . 118790)]) #@34 Return the quit-config of GROUP. (defalias 'gnus-group-quit-config #[(group) "\301\302\303#\207" [group gnus-group-get-parameter quit-config t] 4 (#$ . 118965)]) #@50 Remove ephemeral GROUP from relevant structures. (defalias 'gnus-kill-ephemeral-group #[(group) "\302 \"\303L\207" [group gnus-newsrc-hashtb intern nil] 3 (#$ . 119134)]) #@32 Make mode lines a bit simpler. (defalias 'gnus-simplify-mode-line #[nil "A\n<\205 \303\302!\210\304\n!\305\n8\306\232\205 \305\n\233\307\240\207" [gnus-mode-line-modified mode-line-modified mode-line-format make-local-variable copy-sequence 3 " " " "] 2 (#$ . 119312)]) (defalias 'gnus-server-add-address #[(method) "\303@!\304\305 \n\">\2031 \306 \307P!\236\2041 \310@\n\236>\2031 \311\306 \307P!A@DC\"\2022 )\207" [method method-name gnus-valid-select-methods symbol-name address assoc intern "-address" physical-address append] 5]) (put 'gnus-server-add-address 'byte-optimizer 'byte-compile-inline-expand) (defalias 'gnus-method-to-server #[(method &optional nocache) "\300\301\215\207" [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)] 2]) (put 'gnus-method-to-server 'byte-optimizer 'byte-compile-inline-expand) #@45 Map virtual server names to select methods. (defalias 'gnus-server-to-method #[(server) "\203 <\203 \206\352 \306 \"A\206\352 \307\232\203 \n\206\332 \306 \"A\206\332 \306\f\"A\206\332 \203] \310\311\211 @@)@\211 @@)A@#\232\204] \211A@\210\2022 \211 @@*\206\332 \203\225 \310\311\211 @@)\211 @A)@#\232\204\225 \211A@\210\202l @)\206\332 A\312\211 \203\327 \313\211A@8\211;\204\247 \312 \314\315\215*\232\203\247 \312\211\204\254 +\211 \203\347 B B)\207" [server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers 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) opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist nocache result] 6 (#$ . 120747)]) (put 'gnus-server-to-method 'byte-optimizer 'byte-compile-inline-expand) (defalias 'gnus-server-get-method #[(group method) ";\203\357 \211\203 <\203 \206\355 \306 \n\"A\206\355 \307\232\203& \206\335 \306 \f\"A\206\335 \306 \"A\206\335 \203e \310\311\211 @@)@\211 @@)A@#\232\204e \211A@\210\202: \211 @@*\206\335 \203\235 \310\311\211 @@)\211 @A)@#\232\204\235 \211A@\210\202t @)\206\335 A\312\211 \203\332 \313 \211A @8\211;\204\256 \312 \314\315\215*\232\203\256 \312\211 \204\263 +\211 \203\352 B\nB ))\207 \232\203\367 \207@;\203 \203\316 \"\207\203 \204 \211 A@)\317\232\203 \207\320@! !\321\306!\"\">\203X\322!\323P!\236\204X\324@\"\236>\203X\325\322!\323P!A@DC\"\202Y*\207" [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) gnus-server-extend-method #1# symbol-name address intern "-address" physical-address append gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match alist nocache result group method-name gnus-valid-select-methods] 7]) (put 'gnus-server-get-method 'byte-optimizer 'byte-compile-inline-expand) #@36 Say whether two servers are equal. (defalias 'gnus-method-equal '(macro . #[(ss1 ss2) "\302\303D\304 DD\305BB\207" [ss1 ss2 let s1 s2 ((or (equal s1 s2) (and (= (length s1) (length s2)) (progn (while (and s1 (member (car s1) s2)) (setq s1 (cdr s1))) (null s1)))))] 4 (#$ . 124120)])) (defalias 'gnus-methods-equal-p #[(m1 m2) "\206 \n\206\n \211\n\232\206. @\n@=\205. \304\305\306@! \">?\206. A@\nA@\232*\207" [m1 gnus-select-method m2 gnus-valid-select-methods address assoc symbol-name] 5]) #@36 Say whether two methods are equal. (defalias 'gnus-server-equal #[(m1 m2) "\204 \202\377 ;\203\376 \211\203 \n<\203 \n\206\372 \306\n \"A\206\372 \n\307\232\203. \206\352 \306\n\f\"A\206\352 \306\n \"A\206\352 \203m \n\310\311\211 @@)@\211 @@)A@#\232\204m \211A@\210\202B \211 @@*\206\352 \203\245 \n\310\311\211 @@)\211 @A)@#\232\204\245 \211A@\210\202| @)\206\352 A\312\211 \203\347 \313\211A@8\211;\204\267 \n\312 \314\315\215*\232\203\267 \312\211\204\274 +\211 \203\367 \nB B))\202\377 \204 \202;\203 \211\203 \n<\203 \n\206\374\306\n \"A\206\374\n\307\232\2030 \206\354\306\n\f\"A\206\354\306\n \"A\206\354 \203o\n\310\311\211 @@)@\211 @@)A@#\232\204o\211A@\210\202D\211 @@*\206\354 \203\247\n\310\311\211 @@)\211 @A)@#\232\204\247\211A@\210\202~@)\206\354A\312\211 \203\351\313\211A@8\211;\204\271\n\312 \314\315\215*\232\203\271\312\211\204\276+\211 \203\371\nB B))\202 \211 \211 \232\2067GGU\2057\2034@\235\2034A\211\204\"?,\207" [m1 gnus-select-method server gnus-server-method-cache 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-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist nocache result m2 s2 s1] 8 (#$ . 124629)]) #@47 Return a list of known servers using BACKEND. (defalias 'gnus-servers-using-backend #[(backend) "\305\n\203& \n\211 @@)@=\203 \n\211 @@) B\n\211A@\210\202 *\207" [gnus-opened-servers out opened backend x nil] 3 (#$ . 126720)]) #@55 Say whether the user wants to use the archive server. (defalias 'gnus-archive-server-wanted-p #[nil "\203 \204\n \304\207\203 \203 \305\207\306\236\211A@)\211\205$ \307 !)\207" [gnus-message-archive-method gnus-message-archive-group x active nil t nnfolder-active-file file-exists-p] 3 (#$ . 126962)]) (defalias 'gnus-method-to-server-name #[(method) "\302\303@\"\304\302\303@\"\305\306!\"\204 \307 \"\205- A@\205- A@\310\230?\205- \311A@PP\207" [method gnus-message-archive-method format "%s" assoc gnus-methods-using address gnus-server-equal "" "+"] 5]) (put 'gnus-method-to-server-name 'byte-optimizer 'byte-compile-inline-expand) (defalias 'gnus-method-to-full-server-name #[(method) "\301\302@A@#\207" [method format "%s+%s"] 4]) (put 'gnus-method-to-full-server-name 'byte-optimizer 'byte-compile-inline-expand) #@135 Return the whole name from GROUP and METHOD. Call with full set to get the fully qualified group name (even if the server is native). (defalias 'gnus-group-prefixed-name #[(group method &optional full) ";\203\357 \211\203 <\203 \206\355 \306 \n\"A\206\355 \307\232\203& \206\335 \306 \f\"A\206\335 \306 \"A\206\335 \203e \310\311\211 @@)@\211 @@)A@#\232\204e \211A@\210\202: \211 @@*\206\335 \203\235 \310\311\211 @@)\211 @A)@#\232\204\235 \211A@\210\202t @)\206\335 A\312\211 \203\332 \313 \211A @8\211;\204\256 \312 \314\315\215*\232\203\256 \312\211 \204\263 +\211 \203\352 B\nB ))\203\377 \204\316\307\"\203 \207\310\317@\"\306\310\317@\"\320\321!\"\204 \316!\"\2052A@\2052A@\322\230?\2052\323A@PP)\324 Q\207" [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) gnus-server-equal "%s" gnus-methods-using address #1# "+" ":" gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match alist nocache result full group gnus-message-archive-method] 7 (#$ . 127807)]) #@45 Guess the whole name from GROUP and METHOD. (defalias 'gnus-group-guess-prefixed-name #[(group) "\301\302!\"\207" [group gnus-group-prefixed-name gnus-find-method-for-group] 4 (#$ . 129649)]) #@75 Return the full name from GROUP and METHOD, even if the method is native. (defalias 'gnus-group-full-name #[(group method) "\302 \303#\207" [group method gnus-group-prefixed-name t] 4 (#$ . 129849)]) #@63 Guess the full name from GROUP, even if the method is native. (defalias 'gnus-group-guess-full-name #[(group) "\301!\203 \207\302\303!\"\207" [group gnus-group-prefixed-p gnus-group-full-name gnus-find-method-for-group] 4 (#$ . 130056)]) #@63 Guess the full name from GROUP, even if the method is native. (defalias 'gnus-group-guess-full-name-from-command-method #[(group) "\302!\203 \207\303 \"\207" [group gnus-command-method gnus-group-prefixed-p gnus-group-full-name] 3 (#$ . 130305)]) #@46 Return the prefix of the current group name. (defalias 'gnus-group-real-prefix #[(group) ";\205 \301\302\"\203 \303\211\225O\207\304\207" [group string-match "^[^:]+:" 0 ""] 3 (#$ . 130562)]) #@30 Return the short group name. (defalias 'gnus-group-short-name #[(group) "\302!\303 GW\203 G\304O\202 )\207" [group prefix gnus-group-real-prefix 0 nil] 3 (#$ . 130765)]) #@46 Return the prefix of the current group name. (defalias 'gnus-group-prefixed-p #[(group) "\301\302!GW\207" [group 0 gnus-group-real-prefix] 3 (#$ . 130948)]) #@42 Return the summary buffer name of GROUP. (defalias 'gnus-summary-buffer-name #[(group) "\301\302!\303Q\207" [group "*Summary " gnus-group-decoded-name "*"] 3 (#$ . 131112)]) #@117 Return the server or method used for selecting GROUP. You should probably use `gnus-find-method-for-group' instead. (defalias 'gnus-group-method #[(group) "\306!\211\307\232\203 \n\202\243 \307\310\211\211 \311\312 \"\2038 \313 \314\211\225SO! \314\225 GSO\202B \313 \314 GSO!\203\203 \211 @@)@=\203x \211 @@)\211 @@)A@\232\203x \211 @@)\211A@\210\202B \315\f\"@\206\242 \f\206\242 \315 \"@\206\242 \206\242 D-)\207" [group prefix gnus-select-method gnus-opened-servers found possible gnus-group-real-prefix "" nil string-match "^[^\\+]+\\+" intern 0 rassoc backend server servers x gnus-server-alist] 6 (#$ . 131294)]) #@52 Return whether METHOD is the native select method. (defalias 'gnus-native-method-p #[(method) " \211\n\232\206& G\nGU\205& \203$ @\n\235\203$ A\211\204 ?*\207" [method gnus-select-method s2 s1] 3 (#$ . 131970)]) (put 'gnus-native-method-p 'byte-optimizer 'byte-compile-inline-expand) #@53 Return whether METHOD is a secondary select method. (defalias 'gnus-secondary-method-p #[(method) "\306 ;\203\367 \211\203 <\203 \206\363 \307 \f\"A\206\363 \310\232\203+ \206\343 \307 \"A\206\343 \307 \"A\206\343 \203l \311\312\211 @@)@\211 @@)A@#\232\204l \211A@\210\202A \211 @@*\206\343 \203\243 \311\312\211 @@)\211 @A)@#\232\204\243 \211A@\210\202z @)\206\343 A\306\211 \203\340 \313 \211A @8\211;\204\264 \306 \314\315\215*\232\203\264 \306\211 \204\271 +\211 \203\360 B\fB ))\202e \232\203 \202e @;\203\n\203\316\n \"\202e \203*\n\204* \211 A@)\317\232\203* \202e \320 @! !\321\307!\"\">\203c\322!\323P! \236\204c\324 @\"\236>\203c\325 \322!\323P! A@DC\"\202d ** #\211 $\203\306$@ ;\203f \211\203\210 <\203\210 \206b\307 \f\"A\206b \310\232\203\232 \206R\307 \"A\206R\307 \"A\206R \203\333 \311\312\211 @@)@\211 @@)A@#\232\204\333\211A@\210\202\260\211 @@*\206R \203 \311\312\211 @@)\211 @A)@#\232\204\211A@\210\202\351@)\206R A\306\211 \203O\313 \211A @8\211;\204# \306 \314\315\215*\232\203# \306\211 \204( +\211 \203_ B\fB ))\202\324 \232\203p \202\324 @;\203\201\n\203\201\316\n \"\202\324 \203\231\n\204\231 \211 A@)\317\232\203\231 \202\324 \320 @! !\321\307!\"\">\203\322\322!\323P! \236\204\322\324 @\"\236>\203\322\325 \322!\323P! A@DC\"\202\323 **# %\211 &%\232\206&G%GU\205&\203&@%\235\203&A\211&\204\361&?*\204$A\211$\204n$*\207" [gnus-secondary-select-methods method group server gnus-server-method-cache gnus-select-method 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-extend-method #1# symbol-name address intern "-address" physical-address append gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x servers gnus-newsrc-alist match alist nocache result method-name gnus-valid-select-methods gmethod methods s2 s1] 9 (#$ . 132270)]) (put 'gnus-secondary-method-p 'byte-optimizer 'byte-compile-inline-expand) #@71 Return the shortest uniquely identifying string or method for METHOD. (defalias 'gnus-method-simplify #[(method) ";\203 \207\211 \211\n\232\206/ G\nGU\205/ \203- @\n\235\203- A\211\204 ?+\2035 \306\207\f\306 ;\203<\211 \203S <\203S \2068\307\"A\2068\310\232\203h \206%\307\"A\206%\307\"A\206% \203\254 \311\312\211 @@)@\211 @@)A@#\232\204\254 \211A@\210\202\200 \211 @@*\206%\f \203\344 \311\312 \211 @@) \211 @A)@#\232\204\344 \211A @\210\202\272 @)\206% A\306\211 \203\"\313 \211A @8\211;\204\365 \306 !\314\315\215*\232\203\365 \306\211 \204\372 +\211 \"\2035\"BB\"))\202\252 \232\203F \202\252@;\203W \203W\316 \"\202\252\203o \204o\211 A@)\317\232\203o\202\252\320@! #\321\307#$\">\203\250\322#\323P!\236\204\250\324@$\236>\203\250\325\322#\323P!A@DC\"\202\251** %\211 &\203[\306&@ ;\203\271\211 \203\320<\203\320\206\265\307\"A\206\265\310\232\203\345 \206\242\307\"A\206\242\307\"A\206\242 \203)\311\312\211 @@)@\211 @@)A@#\232\204)\211A@\210\202\375\211 @@*\206\242\f \203a\311\312 \211 @@) \211 @A)@#\232\204a \211A @\210\2027 @)\206\242 A\306\211 \203\237\313 \211A @8\211;\204r\306 !\314\315\215*\232\203r \306\211 \204w +\211 \"\203\262\"BB\"))\202' \232\203\303 \202'@;\203\324 \203\324\316 \"\202'\203\354 \204\354\211 A@)\317\232\203\354\202'\320@! #\321\307#$\">\203%\322#\323P!\236\204%\324@$\236>\203%\325\322#\323P!A@DC\"\202&**%\211\n\232\206N G\nGU\205N \203L @\n\235\203L A\211\204> ?*\204[&A\211&\204\263&+\203j\311\312@A@#\207\207" [method gnus-select-method s2 s1 gnus-secondary-select-methods group 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-extend-method #1# symbol-name address intern "-address" physical-address append server gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x servers gnus-newsrc-alist match alist nocache result method-name gnus-valid-select-methods gmethod methods] 10 (#$ . 135023)]) #@59 Return a list of all groups that are fetched from SERVER. (defalias 'gnus-groups-from-server #[(server) "A\305\211 \211A@\211\203\" \306\307\n8\f\"\203 \n@ B\202 \310 \311\"+\207" [gnus-newsrc-alist groups info alist server nil gnus-server-equal 4 sort string<] 3 (#$ . 137867)]) #@40 Say whether a group is foreign or not. (defalias 'gnus-group-foreign-p #[(group) "\301!?\205 \302!?\207" [group gnus-group-native-p gnus-group-secondary-p] 2 (#$ . 138162)]) #@41 Say whether the group is native or not. (defalias 'gnus-group-native-p #[(group) "\301\302\"?\207" [group string-match ":"] 3 (#$ . 138345)]) #@44 Say whether the group is secondary or not. (defalias 'gnus-group-secondary-p #[(group) "\306!\n\307 ;\203\373 \211\203 <\203 \206\367 \310 \f\"A\206\367 \311\232\203/ \206\347 \310 \"A\206\347 \310 \"A\206\347 \203p \312\313\211 @@)@\211 @@)A@#\232\204p \211A@\210\202E \211 @@*\206\347 \n \203\247 \312\313 \211 @@) \211 @A)@#\232\204\247 \211A @\210\202~ @)\206\347 A\307\211 \203\344 \314 \211A @8\211;\204\270 \307 \315\316\215*\232\203\270 \307\211 \204\275 +\211 !\203\364 !B\fB!))\202i \232\203 \202i @;\203\203\317 \"\202i \203.\204. \211 A@)\320\232\203. \202i \321 @! \"\322\310\"#\">\203g\323\"\324P! \236\204g\325 @#\236>\203g\326 \323\"\324P! A@DC\"\202h ** $\211 %\203\307%@ ;\203j \211\203\214 <\203\214 \206f\310 \f\"A\206f \311\232\203\236 \206V\310 \"A\206V\310 \"A\206V \203\337 \312\313\211 @@)@\211 @@)A@#\232\204\337\211A@\210\202\264\211 @@*\206V\n \203 \312\313 \211 @@) \211 @A)@#\232\204 \211A @\210\202\355 @)\206V A\307\211 \203S\314 \211A @8\211;\204' \307 \315\316\215*\232\203' \307\211 \204, +\211 !\203c !B\fB!))\202\330 \232\203t \202\330 @;\203\205\203\205\317 \"\202\330 \203\235\204\235 \211 A@)\320\232\203\235 \202\330 \321 @! \"\322\310\"#\">\203\326\323\"\324P! \236\204\326\325 @#\236>\203\326\326 \323\"\324P! A@DC\"\202\327 **$ &\211 '&\232\206\n'G&GU\205\n'\203'@&\235\203'A\211'\204\365'?*\204%A\211%\204r%+\207" [group method gnus-secondary-select-methods server gnus-server-method-cache gnus-select-method gnus-find-method-for-group 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-extend-method #1# symbol-name address intern "-address" physical-address append gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x servers gnus-newsrc-alist match alist nocache result method-name gnus-valid-select-methods gmethod methods s2 s1] 9 (#$ . 138494)]) #@63 Return the group parameters for GROUP from `gnus-parameters'. (defalias 'gnus-parameters-get-parameter #[(group) "\306=\203\n \202 \307 \307 \211 \2034 @\310\f@\n\"\203- \311\f@\fA\n#\n\244 A\211\204 *\n*\207" [gnus-parameters-case-fold-search case-fold-search params-list gnus-parameters elem #1=#:--cl-dolist-temp-- default nil string-match gnus-expand-group-parameters group] 5 (#$ . 141198)]) #@37 Use MATCH to expand VALUE in GROUP. (defalias 'gnus-expand-group-parameter #[(match value group) "\304\305!rq\210\306\216 c\210eb\210\307\n\310\311#\203 \312 !\210\202 \313 +\207" [#1=#:temp-buffer group match value generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) re-search-forward nil t replace-match buffer-string] 4 (#$ . 141614)]) #@68 Go through PARAMETERS and expand them according to the match data. (defalias 'gnus-expand-group-parameters #[(match parameters group) "\306 \306\211\2035 @\211A;\203* \307\310\nA\"\203* \n@\311\f\nA #BB\202. \nB A\211\204\n *)\207" [new parameters elem #1=#:--cl-dolist-temp-- match group nil string-match "\\\\[0-9&]" gnus-expand-group-parameter] 6 (#$ . 142021)]) #@160 For GROUP, return the value of SYMBOL. You should call this in the `gnus-group-buffer' buffer. The function `gnus-group-find-parameter' will do that for you. (defalias 'gnus-group-fast-parameter #[(group symbol &optional allow-list) " !\306\n \f\307$\211 \203 @\202e \310\211\f \203b @ A \311@ \"\203 \306A \f#\211\203 ;\203[ \311\312\"\203[ \313@ #\310\211 \204# +*\207" [gnus-group-get-parameter-function group params symbol allow-list simple-results gnus-group-parameter-value t nil string-match "\\\\[0-9&]" gnus-expand-group-parameter gnus-parameters tail head result] 6 (#$ . 142405)]) #@213 Return the group parameters for GROUP. If SYMBOL, return the value of that symbol in the group parameters. If you call this function inside a loop, consider using the faster `gnus-group-fast-parameter' instead. (defalias 'gnus-group-find-parameter #[(group &optional symbol allow-list) "\212q\210 \203 \305\n #\202 \306\f\n!!\307\n!\244)\207" [gnus-group-buffer symbol group allow-list gnus-group-get-parameter-function gnus-group-fast-parameter copy-sequence gnus-parameters-get-parameter] 4 (#$ . 143044)]) #@249 Return the group parameters for GROUP. If SYMBOL, return the value of that symbol in the group parameters. If ALLOW-LIST, also allow list as a result. Most functions should use `gnus-group-find-parameter', which also examines the topic parameters. (defalias 'gnus-group-get-parameter #[(group &optional symbol allow-list) "\305\306\307 \"J88 \203 \310\n \f#\202 \n)\207" [group gnus-newsrc-hashtb params symbol allow-list 5 2 intern-soft gnus-group-parameter-value] 5 (#$ . 143565)]) #@89 Return the value of SYMBOL in group PARAMS. If ALLOW-LIST, also allow list as a result. (defalias 'gnus-group-parameter-value #[(params symbol &optional allow-list present-p) " >@\206 \303\304\305\215)\207" [symbol params elem nil found (byte-code "\211A@\211\2053 :\203 @\n=\203 \204 A:\204 \305\306\f\203, AC\202. A\"\210\202 \207" [params elem symbol allow-list present-p throw found] 3)] 2 (#$ . 144059)]) #@31 Add parameter PARAM to GROUP. (defalias 'gnus-group-add-parameter #[(group param) "\304\305 \"J8\211\205$ \306 :\203 @\202 \"\210\307 \310\n8B\311#)\207" [group gnus-newsrc-hashtb info param 2 intern-soft gnus-group-remove-parameter gnus-group-set-info 5 params] 5 (#$ . 144492)]) #@39 Set parameter NAME to VALUE in GROUP. (defalias 'gnus-group-set-parameter #[(group name value) "\306\307 \"J8\211\205J \310 \"\210\311\n8 \fBC \211 \203D @<\2033 \211 @@) =\204; \312 @C\" A\211 \204 \313 \314#*)\207" [group gnus-newsrc-hashtb info name value new-params 2 intern-soft gnus-group-remove-parameter 5 append gnus-group-set-info params old-params x] 5 (#$ . 144787)]) #@35 Remove parameter NAME from GROUP. (defalias 'gnus-group-remove-parameter #[(group name) "\305\306 \"J8\211\205/ \307\n8\211\205. \310\f \"\f \236\203) \310\f \236 \"\202 \307\n\233 \240))\207" [group gnus-newsrc-hashtb info params name 2 intern-soft 5 delq] 5 (#$ . 145189)]) #@77 Add SCORE to the GROUP score. If SCORE is nil, add 1 to the score of GROUP. (defalias 'gnus-group-add-score #[(group &optional score) "\305\306 \"J8\211\205M \nA\211@:\2031 @\nA@\211:\203% A\206& \307)\f\206, \310\\\241\202L \211@\nA@\211:\203B A\206C \307)\f\206I \310\\B\240))\207" [group gnus-newsrc-hashtb info rank score 2 intern-soft 0 1] 5 (#$ . 145477)]) #@122 Collapse GROUP name LEVELS. Select methods are stripped and any remote host name is stripped down to just the host name. (defalias 'gnus-short-group-name #[(group &optional levels) "\306\211\307\310\f\206# \206# \311\312 #\203\" \307\225\nT\202 \n \311\313\"\211 \2055 \307O\211 \205@ \311\314\" \203t \203d T\311\312\"OT\315O\202p T\315O \313P\316\317\"\211 G \316\312\"\211 G \315\211 \315\211 V\203\254 \317 \202\267 \320 \fZ \315 \211 !\203\371 !@ \fS\211\307Y\203\351 \321 G!\203\341 \306\202\353 \307\310O\202\353 B !A\211!\204\307 * \322\323 \237 #P.\207" [name foreign depth skip levels gnus-group-uncollapsed-levels "" 0 1 string-match "\\." ":" "+" nil split-string "/" "." zerop mapconcat identity group colon server plus slist slen dlist dlen glist glen gsep res g #1=#:--cl-dolist-temp--] 6 (#$ . 145856)]) #@35 Narrow to the body of an article. (defalias 'gnus-narrow-to-body #[nil "eb\210\300\301\302\303#\206\f dd}\207" [search-forward "\n\n" nil t] 4 (#$ . 146787)]) #@92 Apply a kill file to the current newsgroup. Returns the number of articles marked as read. (defalias 'gnus-apply-kill-file #[nil "\301\302\303!!\204 \301\302!!\203 \304 \207\305\207" [gnus-newsgroup-name file-exists-p gnus-newsgroup-kill-file nil gnus-apply-kill-file-internal 0] 3 (#$ . 146952)]) (defalias 'gnus-kill-save-kill-buffer #[nil "\302!\303 !\205 \212\303 !q\210\304 \203 \305 \210\306p!))\207" [gnus-newsgroup-name file gnus-newsgroup-kill-file get-file-buffer buffer-modified-p save-buffer kill-buffer] 2]) #@27 Suffix of the kill files. (custom-declare-variable 'gnus-kill-file-name '"KILL" '(#$ . 147486) :group 'gnus-score-kill :group 'gnus-score-files :type 'string) #@115 Return the name of a kill file name for NEWSGROUP. If NEWSGROUP is nil, return the global kill file name instead. (defalias 'gnus-newsgroup-kill-file #[(newsgroup) "\203\n \303\230\203 \304 \n\"\207\305\306!\203 \304\307!\310 Q\n\"\207\304\311!\312 Q\n\"\207" [newsgroup gnus-kill-file-name gnus-kill-files-directory "" expand-file-name gnus-use-long-file-name not-kill gnus-newsgroup-savable-name "." gnus-newsgroup-directory-form "/"] 4 (#$ . 147652)]) #@59 Find out if GROUP has SYMBOL as part of its "valid" spec. (defalias 'gnus-member-of-valid #[(symbol group) "\303\304\305 !@!\n\">\207" [symbol group gnus-valid-select-methods assoc symbol-name gnus-find-method-for-group] 5 (#$ . 148119)]) #@60 Return non-nil if select METHOD has OPTION as a parameter. (defalias 'gnus-method-option-p #[(method option) ";\203\357 \211\203 <\203 \206\355 \306 \n\"A\206\355 \307\232\203& \206\335 \306 \f\"A\206\335 \306 \"A\206\335 \203e \310\311\211 @@)@\211 @@)A@#\232\204e \211A@\210\202: \211 @@*\206\335 \203\235 \310\311\211 @@)\211 @A)@#\232\204\235 \211A@\210\202t @)\206\335 A\312\211 \203\332 \313\211A@8\211;\204\256 \312 \314\315\215*\232\203\256 \312\211\204\263 +\211 \203\352 B\nB))\306\310\316@\"\">\207" [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) "%s" gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match alist nocache result option gnus-valid-select-methods] 7 (#$ . 148365)]) (defalias 'gnus-similar-server-opened #[(method) "\n\203? \203? \n\211A@) \211@@)A@\232\2036 \n@ \211@@)@\232\2036 \n \211@@)\232\2046 \304 \211A@\210\202 \n)?\207" [gnus-opened-servers opened method x nil] 3]) (defalias 'gnus-server-extend-method #[(group method) " \203A \n\203A \211A@)\n\211@@)A@\232\2038 @\n\211@@)@\232\2038 \n\211@@)\232\2048 \305\n\211A@\210\202 *\204O \211AA)\204Q \207@\211A@)\306\fQ\307\310\311@\"!\211A@)D\211AA)BBB\207" [method gnus-opened-servers opened x group nil "+" intern format "%s-address"] 7]) #@30 Return the status of METHOD. (defalias 'gnus-server-status #[(method) "\302 \"A@\207" [method gnus-opened-servers assoc] 3 (#$ . 150492)]) #@39 Guess a select method based on GROUP. (defalias 'gnus-group-name-to-method #[(group) "\303\304\"\203+ \305\211\224O\303\306 \"\203$ \307 \305\211\224O! \305\225\310OD\202) \307 !\311D)\207\n\207" [group server gnus-select-method string-match ":" 0 "\\+" intern nil ""] 4 (#$ . 150638)]) #@49 Return a readable string that describes SERVER. (defalias 'gnus-server-string #[(server) "\211\203 <\203 \206\354 \306 \"A\206\354 \307\232\203! \n\206\334 \306 \"A\206\334 \306\f\"A\206\334 \203_ \310\311\211 @@)@\211 @@)A@#\232\204_ \211A@\210\2024 \211 @@*\206\334 \203\227 \310\311\211 @@)\211 @A)@#\232\204\227 \211A@\210\202n @)\206\334 A\312\211 \203\331 \313\211A@8\211;\204\251 \312 \314\315\215*\232\203\251 \312\211\204\256 +\211 \203\351 B B))\211A@\211 \203 \316G!\204 \310\317@#\202\310\320@\"*\207" [server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers 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) zerop "%s using %s" "%s" opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist nocache result address] 7 (#$ . 150934)]) #@41 Find the select method that GROUP uses. (defalias 'gnus-find-method-for-group #[(group &optional info) "\206t \204\f \n\206t\306 \"J\204< \307\310\f\"\203/ \311\312\313\314\f\"\313\315\f\"\206+ \316#\202: \311\312\n@\n\211 A@)#)\211 \203L <\203L \2062\317 \"A\2062 \320\232\203a \n\206 \317 \"A\206 \317 !\"A\206 \" ##\203\243 \311\312#\211 @@)@#\211 @@)A@#\232\204\243 #\211A#@\210\202y #\211 @@*\206 $ %%\203\331 \311\312%\211 @@)%\211 @A)@#\232\204\331 %\211A%@\210\202\261 %@)\206 &A\321\211 ' ( ))\203 \322)\211A)@8\211(;\204\353 (\321 * (\323\324\215*\232\203\353 ('\321\211)\204\360 '+\211 +\203/ +B B +))\206t\325 !\206t,\206H\315\306 \"J8\321 (\211 ,\203b\322,8\211(\203b(\320\232\203f\n\202s(;\203i(\211 \203 <\203 \206e\317 \"A\206e \320\232\203\224\n\206R\317 \"A\206R\317 !\"A\206R\" ##\203\326 \311\312#\211 @@)@#\211 @@)A@#\232\204\326#\211A#@\210\202\254#\211 @@*\206R$ %%\203\f \311\312%\211 @@)%\211 @A)@#\232\204\f%\211A%@\210\202\344%@)\206R&A\321\211 ' ( ))\203O\322)\211A)@8\211(;\204 (\321 * (\323\324\215*\232\203 ('\321\211)\204#'+\211 +\203b +B B +))\202\f(\211 A@);\203\n ( (( (\" #(\203\312#\203\312(\211 A@)#\211 @@)A@\232\203\277(@#\211 @@)@\232\203\277(#\211 @@)\232\204\277\321(#\211A#@\210\202\202(*\204\332(\211 AA)\204\337(\202(@(\211 A@)\326 Q\327\311\330(@\"!(\211 A@)D(\211 AA)BBB*\202\f(\211(\211 A@)\316\232\203 (\202s(\211 A@)\2040(@\316D\202s( (\331(@! -\332\317-.\">\203p\327-\333P!(\236\204p\334(@.\236>\203p\335(\327-\333P!(A@DC\"\202r(**\207" [gnus-override-method group gnus-select-method gnus-newsrc-hashtb gname x intern-soft string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 #1="" assoc "native" 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) gnus-group-name-to-method "+" intern "%s-address" symbol-name address "-address" physical-address append 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 info method-name gnus-valid-select-methods] 8 (#$ . 152501)]) #@37 Find all methods that have FEATURE. (defalias 'gnus-methods-using #[(feature) "\304\211\203 \n@>\203 \n@ B\nA\211\204 *\207" [gnus-valid-select-methods outs valids feature nil] 3 (#$ . 155412)]) (byte-code "\300\301\302\303\211\304%\207" [autoload message-y-or-n-p "message" nil macro] 6) #@65 Prompt the user for a group name. Disallow invalid group names. (defalias 'gnus-read-group #[(prompt &optional default) "\306\307\204D \310\n\311 P\f\206 \306\312B\313#\211\"\203 \314\312\" \310\315 \"\2049 \316\317\320\321\322\323 \324\n\325&\n\204@ \326\327\"\307)\202 *\207" [group prefix gnus-invalid-group-regexp prompt default match "" nil string-match read-string 0 gnus-group-history match-string "^$\\|:" message-talkative-question y-or-n-p "Proceed and create group anyway? " t "The group name \"" "\" contains a forbidden character: \"" "\".\n\nUsually, it's dangerous to create a group with this name, because it's not\nsupported by all back ends and servers. On IMAP servers it should work,\nthough. If you are really sure, you can proceed anyway and create the group.\n\nYou may customize the variable `gnus-invalid-group-regexp', which currently is\nset to \"" "\", if you want to get rid of this query permanently." format "Invalid group name: \"%s\". "] 11 (#$ . 155717)]) #@70 Prompt the user for a method. Allow completion over sensible values. (defalias 'gnus-read-method #[(prompt) "\306\307\"\310 \310 \211 \203. @\311\f>\204# \312\313\314\f@\" \"\204' \f\nB A\211\204 *\n) \315 $ \316\310\317\310\320&\211 \321\232\203W \211\202\235 \312\f \"\203\214 \311\312\f \">\203m \322\323!\202n \321 \312\313\324\f # \"\211 A@)\206\210 \325\f! D)\202\235 \312\f\"\203\230 \f\202\235 \325\f!\321D,\207" [gnus-opened-servers open-servers methods gnus-valid-select-methods method #1=#:--cl-dolist-temp-- mapcar #[(i) "\302\303\211@@)\211@A)@#B\207" [i x format "%s:%s"] 5] nil prompt-address assoc format "%s:" append completing-read t gnus-method-history "" read-string "Address: " "%s:%s" intern valid-methods gnus-predefined-server-alist gnus-server-alist servers prompt gnus-select-method address x] 8 (#$ . 156730)]) #@45 Say whether METHOD is covered by the agent. (defalias 'gnus-agent-method-p #[(method-or-server) "@ =\204 ;\203\376 \211\203 \n<\203 \n\206\372 \306\n \"A\206\372 \n\307\232\203- \f\206\352 \306\n \"A\206\352 \306\n\"A\206\352 \203m \n\310\311\211 @@)@\211 @@)A@#\232\204m \211A@\210\202B \211 @@*\206\352 \203\245 \n\310\311\211 @@)\211 @A)@#\232\204\245 \211A@\210\202| @)\206\352 A\312\211 \203\347 \313\211A@8\211;\204\267 \n\312 \314\315\215*\232\203\267 \312\211\204\274 +\211 \203\367 \nB B))\202\377 \211 \316 \314\315\215* \n\235B*A\207" [gnus-agent-method-p-cache method-or-server server gnus-server-method-cache gnus-select-method gnus-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) t gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist nocache result gnus-agent-covered-methods] 7 (#$ . 157609)]) (defalias 'gnus-online #[(method) "\203 \304 \n\"\211A@)\305=\202 \306 !?\207" [gnus-plugged method gnus-opened-servers x assoc offline gnus-agent-method-p] 4]) #@71 Read network news as a slave, without connecting to the local server. (defalias 'gnus-slave-no-server #[(&optional arg) "\301\302\"\207" [arg gnus-no-server t] 3 (#$ . 159406) "P"]) #@322 Read network news. If ARG is a positive number, Gnus will use that as the startup level. If ARG is nil, Gnus will be started at level 2. If ARG is non-nil and not a positive number, Gnus will prompt the user for the name of an NNTP server to use. As opposed to `gnus', this command will not connect to the local server. (defalias 'gnus-no-server #[(&optional arg slave) "\302 \"\207" [arg slave gnus-no-server-1] 3 (#$ . 159596) "P"]) #@23 Read news as a slave. (defalias 'gnus-slave #[(&optional arg) "\301\302\303#\207" [arg gnus nil slave] 4 (#$ . 160039) "P"]) #@472 Pop up a frame to read news. This will call one of the Gnus commands which is specified by the user option `gnus-other-frame-function' (default `gnus') with the argument ARG if Gnus is not running, otherwise just pop up a Gnus frame. The optional second argument DISPLAY should be a standard display string such as "unix:0" to specify where to pop up a frame. If DISPLAY is omitted or the function `make-frame-on-display' is not available, the current display is used. (defalias 'gnus-other-frame #[(&optional arg display) "\306\307!\203 \204 \310\311 !\202 \312\313 \211\205 \314\315\215?\205H \316\203. \307\n\"\2021 \317\n!\211!\210 \203? \320\f!\202H !\210\321\322\323\")\207" [display alive gnus-other-frame-parameters gnus-other-frame-object gnus-group-buffer gnus-other-frame-function fboundp make-frame-on-display gnus-frame-or-window-display-name selected-frame nil gnus-alive-p found (byte-code "\300\301\302\303#\207" [walk-windows #[(window) "\203\f \304 !\232\205, r\305 !q\210\306\307\310\n!\")\205, \311\312 !\211!\210\313 !\210\314\315\316\"\207" [display window major-mode gnus-other-frame-object gnus-frame-or-window-display-name window-buffer string-match "\\`gnus-" symbol-name gnus-select-frame-set-input-focus window-frame select-window throw found t] 4] ignore t] 4) gnus-select-frame-set-input-focus make-frame switch-to-buffer add-hook gnus-exit-gnus-hook (lambda nil (when (and (frame-live-p gnus-other-frame-object) (cdr (frame-list))) (delete-frame gnus-other-frame-object)) (setq gnus-other-frame-object nil)) arg] 5 (#$ . 160172) "P"]) #@213 Read network news. If ARG is non-nil and a positive number, Gnus will use that as the startup level. If ARG is non-nil and not a positive number, Gnus will prompt the user for the name of an NNTP server to use. (defalias 'gnus #[(&optional arg dont-connect slave) "\303\304K!\204 \305\306!\210\307\310!\210\311 \n#\207" [arg dont-connect slave byte-code-function-p gnus message "You should byte-compile Gnus" sit-for 2 gnus-1] 4 (#$ . 161764) "P"]) (byte-code "\300 \210\301\302!\207" [gnus-ems-redefine provide gnus] 2)
Close
