Gecko [ 122.154.134.11 ]

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

Code Editor : gnus-group.elc

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

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

(byte-code "\300\301!\204\n�\301\302M\210\303\304!\210\303\305!\210\303\306!\210\303\307!\210\303\310!\210\303\311!\210\303\312!\210\303\313!\210\303\314!\210\303\315!\210\303\316!\210\317\320\321\"\210\317\322\323\"\207" [fboundp declare-function (macro . #[(&rest r) "\300\207" [nil] 1]) require gnus gnus-start nnmail gnus-spec gnus-int gnus-range gnus-win gnus-undo gmm-utils time-date gnus-ems autoload gnus-agent-total-fetched-for "gnus-agent" gnus-cache-total-fetched-for "gnus-cache"] 3)
#@38 *The address of the (ding) archives.
(custom-declare-variable 'gnus-group-archive-directory '"/ftp@ftp.hpc.uh.edu:/pub/emacs/ding-list/" '(#$ . -1112) :group 'gnus-group-foreign :type 'directory)
#@50 *The address of the most recent (ding) articles.
(custom-declare-variable 'gnus-group-recent-archive-directory '"/ftp@ftp.hpc.uh.edu:/pub/emacs/ding-list-recent/" '(#$ . -1314) :group 'gnus-group-foreign :type 'directory)
#@58 *Message displayed by Gnus when no groups are available.
(custom-declare-variable 'gnus-no-groups-message '"No Gnus is good news" '(#$ . -1542) :group 'gnus-start :type 'string)
#@603 *Non-nil means that the next newsgroup after the current will be on the same level.
When you type, for instance, `n' after reading the last article in the
current newsgroup, you will go to the next newsgroup.  If this variable
is nil, the next newsgroup will be the next from the group
buffer.
If this variable is non-nil, Gnus will either put you in the
next newsgroup with the same level, or, if no such newsgroup is
available, the next newsgroup with the lowest possible level higher
than the current level.
If this variable is `best', Gnus will make the next newsgroup the one
with the best level.
(custom-declare-variable 'gnus-keep-same-level 'nil '(#$ . -1727) :group 'gnus-group-levels :type '(choice (const nil) (const best) (sexp :tag "other" t)))
#@81 *If non-nil, movement commands will go to the next unread and subscribed group.
(custom-declare-variable 'gnus-group-goto-unread 't '(#$ . -2491) :link '(custom-manual "(gnus)Group Maneuvering") :group 'gnus-group-various :type 'boolean)
#@124 *If non-nil, the \<gnus-group-mode-map>\[gnus-group-get-new-news-this-group] command will advance point to the next group.
(custom-declare-variable 'gnus-goto-next-group-when-activating 't '(#$ . -2736) :link '(custom-manual "(gnus)Scanning New Messages") :group 'gnus-group-various :type 'boolean)
#@215 *Regexp to match groups that should always be listed in the group buffer.
This means that they will still be listed even when there are no
unread articles in the groups.

If nil, no groups are permanently visible.
(custom-declare-variable 'gnus-permanently-visible-groups 'nil '(#$ . -3042) :group 'gnus-group-listing :type '(choice regexp (const nil)))
#@110 *If non-nil, list groups that have only ticked articles.
If nil, only list groups that have unread articles.
(custom-declare-variable 'gnus-list-groups-with-ticked-articles 't '(#$ . -3403) :group 'gnus-group-listing :type 'boolean)
#@82 *Default listing level.
Ignored if `gnus-group-use-permanent-levels' is non-nil.
(custom-declare-variable 'gnus-group-default-list-level 'gnus-level-subscribed '(#$ . -3642) :group 'gnus-group-listing :type 'integer)
#@46 *If non-nil, inactive groups will be listed.
(custom-declare-variable 'gnus-group-list-inactive-groups 't '(#$ . -3865) :group 'gnus-group-listing :group 'gnus-group-levels :type 'boolean)
#@557 *Function used for sorting the group buffer.
This function will be called with group info entries as the arguments
for the groups to be sorted.  Pre-made functions include
`gnus-group-sort-by-alphabet', `gnus-group-sort-by-real-name',
`gnus-group-sort-by-unread', `gnus-group-sort-by-level',
`gnus-group-sort-by-score', `gnus-group-sort-by-method',
`gnus-group-sort-by-server', and `gnus-group-sort-by-rank'.

This variable can also be a list of sorting functions.  In that case,
the most significant sort function should be the last function in the
list.
(custom-declare-variable 'gnus-group-sort-function ''gnus-group-sort-by-alphabet '(#$ . -4061) :group 'gnus-group-listing :link '(custom-manual "(gnus)Sorting Groups") :type '(repeat :value-to-internal (lambda (widget value) (if (listp value) value (list value))) :match (lambda (widget value) (or (symbolp value) (widget-editable-list-match widget value))) (choice (function-item gnus-group-sort-by-alphabet) (function-item gnus-group-sort-by-real-name) (function-item gnus-group-sort-by-unread) (function-item gnus-group-sort-by-level) (function-item gnus-group-sort-by-score) (function-item gnus-group-sort-by-method) (function-item gnus-group-sort-by-server) (function-item gnus-group-sort-by-rank) (function :tag "other" nil))))
#@2482 *Format of group lines.
It works along the same lines as a normal formatting string,
with some simple extensions.

%M    Only marked articles (character, "*" or " ")
%S    Whether the group is subscribed (character, "U", "K", "Z" or " ")
%L    Level of subscribedness (integer)
%N    Number of unread articles (integer)
%I    Number of dormant articles (integer)
%i    Number of ticked and dormant (integer)
%T    Number of ticked articles (integer)
%R    Number of read articles (integer)
%U    Number of unseen articles (integer)
%t    Estimated total number of articles (integer)
%y    Number of unread, unticked articles (integer)
%G    Group name (string)
%g    Qualified group name (string)
%c    Short (collapsed) group name.  See `gnus-group-uncollapsed-levels'.
%C    Group comment (string)
%D    Group description (string)
%s    Select method (string)
%o    Moderated group (char, "m")
%p    Process mark (char)
%B    Whether a summary buffer for the group is open (char, "*")
%O    Moderated group (string, "(m)" or "")
%P    Topic indentation (string)
%m    Whether there is new(ish) mail in the group (char, "%")
%n    Select from where (string)
%z    A string that look like `<%s:%n>' if a foreign select method is used
%d    The date the group was last entered.
%E    Icon as defined by `gnus-group-icon-list'.
%F    The disk space used by the articles fetched by both the cache and agent.
%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 a
      single dummy parameter as argument.  The function should return a
      string, which will be inserted into the buffer just like information
      from any other group specifier.

Note that this format specification is not always respected.  For
reasons of efficiency, when listing killed groups, this specification
is ignored altogether.  If the spec is changed considerably, your
output may end up looking strange when listing both alive and killed
groups.

If you use %o or %O, reading the active file will be slower and quite
a bit of extra memory will be used.  %D and %F will also worsen
performance.  Also note that if you change the format specification to
include any of these specs, you must probably re-start Gnus to see
them go into effect.

General format specifiers can also be used.
See Info node `(gnus)Formatting Variables'.
(custom-declare-variable 'gnus-group-line-format '"%M%S%p%P%5y:%B%(%g%)%O\n" '(#$ . -5359) :link '(custom-manual "(gnus)Formatting Variables") :group 'gnus-group-visual :type 'string)
#@228 *The format specification for the group mode line.
It works along the same lines as a normal formatting string,
with some simple extensions:

%S   The native news server.
%M   The native select method.
%:   ":" if %S isn't "".
(custom-declare-variable 'gnus-group-mode-line-format '"Gnus: %%b {%M%:%S}" '(#$ . -8031) :group 'gnus-group-visual :type 'string)
#@53 Hook run after the creation of the group mode menu.
(custom-declare-variable 'gnus-group-menu-hook 'nil '(#$ . 8395) :group 'gnus-group-various :type 'hook)
#@58 Hook run when catching up a group from the group buffer.
(custom-declare-variable 'gnus-group-catchup-group-hook 'nil '(#$ . 8558) :group 'gnus-group-various :link '(custom-manual "(gnus)Group Data") :type 'hook)
#@40 Hook called when updating group lines.
(custom-declare-variable 'gnus-group-update-group-hook 'nil '(#$ . 8777) :group 'gnus-group-visual :type 'hook)
#@440 *A function that is called to generate the group buffer.
The function is called with three arguments: The first is a number;
all group with a level less or equal to that number should be listed,
if the second is non-nil, empty groups should also be displayed.  If
the third is non-nil, it is a number.  No groups with a level lower
than this number should be displayed.

The only current function implemented is `gnus-group-prepare-flat'.
(custom-declare-variable 'gnus-group-prepare-function ''gnus-group-prepare-flat '(#$ . -8935) :group 'gnus-group-listing :type 'function)
#@119 Hook called after the group buffer has been generated.
If you want to modify the group buffer, you can use this hook.
(custom-declare-variable 'gnus-group-prepare-hook 'nil '(#$ . 9519) :group 'gnus-group-listing :type 'hook)
#@49 Hook called when suspending (not exiting) Gnus.
(custom-declare-variable 'gnus-suspend-gnus-hook 'nil '(#$ . 9751) :group 'gnus-exit :type 'hook)
#@32 Hook called when exiting Gnus.
(custom-declare-variable 'gnus-exit-gnus-hook 'nil '(#$ . 9903) :group 'gnus-exit :type 'hook)
#@33 Hook called after exiting Gnus.
(custom-declare-variable 'gnus-after-exiting-gnus-hook 'nil '(#$ . 10035) :group 'gnus-exit :type 'hook)
#@220 Hook called when a group line is changed.
The hook will not be called if `gnus-visual' is nil.

The default function `gnus-group-highlight-line' will
highlight the line according to the `gnus-group-highlight'
variable.
(custom-declare-variable 'gnus-group-update-hook ''(gnus-group-highlight-line) '(#$ . 10179) :group 'gnus-group-visual :type 'hook)
#@38 *Alist of useful group-server pairs.
(custom-declare-variable 'gnus-useful-groups ''(("(ding) mailing list mirrored at gmane.org" "gmane.emacs.gnus.general" (nntp "Gmane" (nntp-address "news.gmane.org"))) ("Gnus bug archive" "gnus.gnus-bug" (nntp "news.gnus.org" (nntp-address "news.gnus.org"))) ("Local Gnus help group" "gnus-help" (nndoc "gnus-help" (nndoc-article-type mbox) (eval `(nndoc-address ,(let ((file (nnheader-find-etc-directory "gnus-tut.txt" t))) (unless file (error "Couldn't find doc group")) file)))))) '(#$ . -10536) :group 'gnus-group-listing :type '(repeat (list (string :tag "Description") (string :tag "Name") (sexp :tag "Method"))))
#@821 *Controls the highlighting of group buffer lines.

Below is a list of `Form'/`Face' pairs.  When deciding how a a
particular group line should be displayed, each form is
evaluated.  The content of the face field after the first true form is
used.  You can change how those group lines are displayed by
editing the face field.

It is also possible to change and add form fields, but currently that
requires an understanding of Lisp expressions.  Hopefully this will
change in a future release.  For now, you can use the following
variables in the Lisp expression:

group: The name of the group.
unread: The number of unread articles in the group.
method: The select method used.
mailp: Whether it's a mail group or not.
level: The level of the group.
score: The score of the group.
ticked: The number of ticked articles.
(custom-declare-variable 'gnus-group-highlight ''(((and mailp (= unread 0) (eq level 1)) . gnus-group-mail-1-empty) ((and mailp (eq level 1)) . gnus-group-mail-1) ((and mailp (= unread 0) (eq level 2)) . gnus-group-mail-2-empty) ((and mailp (eq level 2)) . gnus-group-mail-2) ((and mailp (= unread 0) (eq level 3)) . gnus-group-mail-3-empty) ((and mailp (eq level 3)) . gnus-group-mail-3) ((and mailp (= unread 0)) . gnus-group-mail-low-empty) ((and mailp) . gnus-group-mail-low) ((and (= unread 0) (eq level 1)) . gnus-group-news-1-empty) ((and (eq level 1)) . gnus-group-news-1) ((and (= unread 0) (eq level 2)) . gnus-group-news-2-empty) ((and (eq level 2)) . gnus-group-news-2) ((and (= unread 0) (eq level 3)) . gnus-group-news-3-empty) ((and (eq level 3)) . gnus-group-news-3) ((and (= unread 0) (eq level 4)) . gnus-group-news-4-empty) ((and (eq level 4)) . gnus-group-news-4) ((and (= unread 0) (eq level 5)) . gnus-group-news-5-empty) ((and (eq level 5)) . gnus-group-news-5) ((and (= unread 0) (eq level 6)) . gnus-group-news-6-empty) ((and (eq level 6)) . gnus-group-news-6) ((and (= unread 0)) . gnus-group-news-low-empty) (t . gnus-group-news-low)) '(#$ . -11200) :group 'gnus-group-visual :type '(repeat (cons (sexp :tag "Form") face)))
(put 'gnus-group-highlight 'risky-local-variable t)
#@37 Mark used for groups with new mail.
(custom-declare-variable 'gnus-new-mail-mark '37 '(#$ . 13329) :group 'gnus-group-visual :type 'character)
(custom-declare-group 'gnus-group-icons nil "Add Icons to your group buffer." :group 'gnus-group-visual)
#@977 *Controls the insertion of icons into group buffer lines.

Below is a list of `Form'/`File' pairs.  When deciding how a
particular group line should be displayed, each form is evaluated.
The icon from the file field after the first true form is used.  You
can change how those group lines are displayed by editing the file
field.  The File will either be found in the
`gnus-group-glyph-directory' or by designating absolute name of the
file.

group: The name of the group.
unread: The number of unread articles in the group.
method: The select method used.
mailp: Whether it's a mail group or not.
newsp: Whether it's a news group or not
level: The level of the group.
score: The score of the group.
ticked: The number of ticked articles.
(custom-declare-variable 'gnus-group-icon-list 'nil '(#$ . -13584) :group 'gnus-group-icons :type '(repeat (cons (sexp :tag "Form") file)))
(put 'gnus-group-icon-list 'risky-local-variable t)
#@106 Alist of method and the charset for group names.

For example:
    (((nntp "news.com.cn") . cn-gb-2312))
(custom-declare-variable 'gnus-group-name-charset-method-alist 'nil '(#$ . 14759) :version "21.1" :group 'gnus-charset :type '(repeat (cons (sexp :tag "Method") (symbol :tag "Charset"))))
#@104 Alist of group regexp and the charset for group names.

For example:
    (("\.com\.cn:" . cn-gb-2312))
(custom-declare-variable 'gnus-group-name-charset-group-alist '(if (or (and (fboundp 'find-coding-system) (find-coding-system 'utf-8)) (mm-coding-system-p 'utf-8)) '((".*" . utf-8)) nil) '(#$ . 15059) :group 'gnus-charset :type '(repeat (cons (regexp :tag "Group") (symbol :tag "Charset"))))
#@443 Default prompt for `gnus-group-jump-to-group'.

If non-nil, the value should be a string or an alist.  If it is a string,
e.g. "nnml:", in which case `gnus-group-jump-to-group' offers "Group:
nnml:" in the minibuffer prompt.

If it is an alist, it must consist of (NUMBER .  PROMPT) pairs, for example:
((1 .  "") (2 .  "nnfolder+archive:")).  The element with number 0 is
used when no prefix argument is given to `gnus-group-jump-to-group'.
(custom-declare-variable 'gnus-group-jump-to-group-prompt 'nil '(#$ . 15461) :version "22.1" :group 'gnus-group-various :type '(choice (string :tag "Prompt string") (const :tag "Empty" nil) (repeat (cons (integer :tag "Argument") (string :tag "Prompt string")))))
#@128 *A limit of the number of groups when listing.
If the number of groups is larger than the limit, list them in a
simple manner.
(defvar gnus-group-listing-limit 1000 (#$ . -16174))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\304\207" [current-load-list gnus-group-is-exiting-p default-boundp set-default nil gnus-group-is-exiting-without-update-p] 3)
#@40 Function for sorting the group buffer.
(defvar gnus-group-sort-alist-function 'gnus-group-sort-flat (#$ . 16579))
#@63 Function for sorting the selected groups in the group buffer.
(defvar gnus-group-sort-selected-function 'gnus-group-sort-selected-flat (#$ . 16699))
(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-group-indentation-function default-boundp set-default nil gnus-goto-missing-group-function gnus-group-update-group-function] 3)
#@67 Function to override finding the next group after listing groups.
(defvar gnus-group-goto-next-group-function nil (#$ . 17148))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204L�\303\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334BB\335BBBBBBBBBBBBBBBBBBBBB\"\210\336B\302\336!\204[�\303\336\337\"\210\304\207" [current-load-list gnus-group-edit-buffer default-boundp set-default nil gnus-group-line-format-alist (77 gnus-tmp-marked-mark 99) (83 gnus-tmp-subscribed 99) (76 gnus-tmp-level 100) (78 (cond ((eq number t) "*") ((numberp number) (int-to-string (+ number (gnus-range-length (cdr (assq 'dormant gnus-tmp-marked))) (gnus-range-length (cdr (assq 'tick gnus-tmp-marked)))))) (t number)) 115) (82 gnus-tmp-number-of-read 115) (85 (gnus-number-of-unseen-articles-in-group gnus-tmp-group) 100) (116 gnus-tmp-number-total 100) (121 gnus-tmp-number-of-unread 115) (73 (gnus-range-length (cdr (assq 'dormant gnus-tmp-marked))) 100) (84 (gnus-range-length (cdr (assq 'tick gnus-tmp-marked))) 100) (105 (+ (gnus-range-length (cdr (assq 'dormant gnus-tmp-marked))) (gnus-range-length (cdr (assq 'tick gnus-tmp-marked)))) 100) (103 (if (boundp 'gnus-tmp-decoded-group) gnus-tmp-decoded-group gnus-tmp-group) 115) (71 gnus-tmp-qualified-group 115) (99 (gnus-short-group-name (if (boundp 'gnus-tmp-decoded-group) gnus-tmp-decoded-group gnus-tmp-group)) 115) (67 gnus-tmp-comment 115) (68 gnus-tmp-newsgroup-description 115) (111 gnus-tmp-moderated 99) (79 gnus-tmp-moderated-string 115) (112 gnus-tmp-process-marked 99) (115 gnus-tmp-news-server 115) 110 gnus-tmp-news-method (115) ((80 gnus-group-indentation 115) (69 gnus-tmp-group-icon 115) (66 gnus-tmp-summary-live 99) (122 gnus-tmp-news-method-string 115) (109 (gnus-group-new-mail gnus-tmp-group) 99) (100 (gnus-group-timestamp-string gnus-tmp-group) 115) (117 gnus-tmp-user-defined 115) (70 (gnus-total-fetched-for gnus-tmp-group) 115)) gnus-group-mode-line-format-alist ((83 gnus-tmp-news-server 115) (77 gnus-tmp-news-method 115) (117 gnus-tmp-user-defined 115) (58 gnus-tmp-colon 115))] 25)
#@31 The complete topic hierarchy.
(defvar gnus-topic-topology nil (#$ . 19276))
#@33 The complete topic-group alist.
(defvar gnus-topic-alist nil (#$ . 19358))
(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\311\312\313\314#\210\315\316\317\"\210\315\320\321\"\210\315\322\323\"\210\315\324\325\"\210\315\326\327\"\210\315\330\331\"\210\315\332\333\"\210\315\334\335\"\210\315\336\337\"\210\315\340\341\"\210\315\342\343\"\210\315\344\345\"\210\315\346\347\"\210\315\350\351\"\207" [current-load-list gnus-group-marked default-boundp set-default nil gnus-group-list-mode gnus-group-icon-cache gnus-group-listed-groups gnus-group-list-option put gnus-group-mode mode-class special gnus-define-keys-1 gnus-group-mode-map (" " gnus-group-read-group "=" gnus-group-select-group "
" gnus-group-select-group "\215" gnus-group-quick-select-group "\240" gnus-group-visible-select-group [(meta control return)] gnus-group-select-group-ephemerally "j" gnus-group-jump-to-group "n" gnus-group-next-unread-group "p" gnus-group-prev-unread-group "" gnus-group-prev-unread-group [delete] gnus-group-prev-unread-group [backspace] gnus-group-prev-unread-group "N" gnus-group-next-group "P" gnus-group-prev-group "\356" gnus-group-next-unread-group-same-level "\360" gnus-group-prev-unread-group-same-level "," gnus-group-best-unread-group "." gnus-group-first-unread-group "u" gnus-group-unsubscribe-current-group "U" gnus-group-unsubscribe-group "c" gnus-group-catchup-current "C" gnus-group-catchup-current-all "\343" gnus-group-clear-data "l" gnus-group-list-groups "L" gnus-group-list-all-groups "m" gnus-group-mail "i" gnus-group-news "g" gnus-group-get-new-news "\347" gnus-group-get-new-news-this-group "R" gnus-group-restart "r" gnus-group-read-init-file "B" gnus-group-browse-foreign-server "b" gnus-group-check-bogus-groups "F" gnus-group-find-new-groups "" gnus-group-describe-group "\344" gnus-group-describe-all-groups "" gnus-group-apropos "\201" gnus-group-description-apropos "a" gnus-group-post-news "k" gnus-group-edit-local-kill "K" gnus-group-edit-global-kill "" gnus-group-kill-group "" gnus-group-yank-group "" gnus-group-kill-region "" gnus-group-transpose-groups "\f" gnus-group-list-killed "" gnus-group-expire-articles "\230" gnus-group-expire-all-groups "V" gnus-version "s" gnus-group-save-newsrc "z" gnus-group-suspend "q" gnus-group-exit "Q" gnus-group-quit "?" gnus-group-describe-briefly "	" gnus-info-find-node "\345" gnus-group-edit-group-method "^" gnus-group-enter-server-mode gnus-mouse-2 gnus-mouse-pick-group [follow-link] mouse-face "<" beginning-of-buffer ">" end-of-buffer "" gnus-bug "" gnus-group-sort-groups "t" gnus-topic-mode "\347" gnus-activate-all-groups "\246" gnus-group-universal-argument "#" gnus-group-mark-group "\243" gnus-group-unmark-group) (gnus-group-mark-map "M" gnus-group-mode-map) ("m" gnus-group-mark-group "u" gnus-group-unmark-group "w" gnus-group-mark-region "b" gnus-group-mark-buffer "r" gnus-group-mark-regexp "U" gnus-group-unmark-all-groups) (gnus-group-sieve-map "D" gnus-group-mode-map) ("u" gnus-sieve-update "g" gnus-sieve-generate) (gnus-group-group-map "G" gnus-group-mode-map) ("d" gnus-group-make-directory-group "h" gnus-group-make-help-group "u" gnus-group-make-useful-group "a" gnus-group-make-archive-group "k" gnus-group-make-kiboze-group "l" gnus-group-nnimap-edit-acl "m" gnus-group-make-group "E" gnus-group-edit-group "e" gnus-group-edit-group-method "p" gnus-group-edit-group-parameters "v" gnus-group-add-to-virtual "V" gnus-group-make-empty-virtual "D" gnus-group-enter-directory "f" gnus-group-make-doc-group "w" gnus-group-make-web-group "M" gnus-group-read-ephemeral-group "r" gnus-group-rename-group "R" gnus-group-make-rss-group "c" gnus-group-customize "z" gnus-group-compact-group "x" gnus-group-nnimap-expunge "" gnus-group-delete-group [delete] gnus-group-delete-group) (gnus-group-soup-map "s" gnus-group-group-map) ("b" gnus-group-brew-soup "w" gnus-soup-save-areas "s" gnus-soup-send-replies "p" gnus-soup-pack-packet "r" nnsoup-pack-replies) (gnus-group-sort-map "S" gnus-group-group-map) ("s" gnus-group-sort-groups "a" gnus-group-sort-groups-by-alphabet "u" gnus-group-sort-groups-by-unread "l" gnus-group-sort-groups-by-level "v" gnus-group-sort-groups-by-score "r" gnus-group-sort-groups-by-rank "m" gnus-group-sort-groups-by-method "n" gnus-group-sort-groups-by-real-name) (gnus-group-sort-selected-map "P" gnus-group-group-map) ("s" gnus-group-sort-selected-groups "a" gnus-group-sort-selected-groups-by-alphabet "u" gnus-group-sort-selected-groups-by-unread "l" gnus-group-sort-selected-groups-by-level "v" gnus-group-sort-selected-groups-by-score "r" gnus-group-sort-selected-groups-by-rank "m" gnus-group-sort-selected-groups-by-method "n" gnus-group-sort-selected-groups-by-real-name) (gnus-group-list-map "A" gnus-group-mode-map) ("k" gnus-group-list-killed "z" gnus-group-list-zombies "s" gnus-group-list-groups "u" gnus-group-list-all-groups "A" gnus-group-list-active "a" gnus-group-apropos "d" gnus-group-description-apropos "m" gnus-group-list-matching "M" gnus-group-list-all-matching "l" gnus-group-list-level "c" gnus-group-list-cached "?" gnus-group-list-dormant) (gnus-group-list-limit-map "/" gnus-group-list-map) ("k" gnus-group-list-limit "z" gnus-group-list-limit "s" gnus-group-list-limit "u" gnus-group-list-limit "A" gnus-group-list-limit "m" gnus-group-list-limit "M" gnus-group-list-limit "l" gnus-group-list-limit "c" gnus-group-list-limit "?" gnus-group-list-limit) (gnus-group-list-flush-map "f" gnus-group-list-map) ("k" gnus-group-list-flush "z" gnus-group-list-flush "s" gnus-group-list-flush "u" gnus-group-list-flush "A" gnus-group-list-flush "m" gnus-group-list-flush "M" gnus-group-list-flush "l" gnus-group-list-flush "c" gnus-group-list-flush "?" gnus-group-list-flush) (gnus-group-list-plus-map "p" gnus-group-list-map) ("k" gnus-group-list-plus "z" gnus-group-list-plus "s" gnus-group-list-plus "u" gnus-group-list-plus "A" gnus-group-list-plus "m" gnus-group-list-plus "M" gnus-group-list-plus "l" gnus-group-list-plus "c" gnus-group-list-plus "?" gnus-group-list-plus) (gnus-group-score-map "W" gnus-group-mode-map) ("f" gnus-score-flush-cache "e" gnus-score-edit-all-score) (gnus-group-help-map "H" gnus-group-mode-map) ("c" gnus-group-fetch-charter "C" gnus-group-fetch-control "d" gnus-group-describe-group "f" gnus-group-fetch-faq "v" gnus-version) (gnus-group-sub-map "S" gnus-group-mode-map) ("l" gnus-group-set-current-level "t" gnus-group-unsubscribe-current-group "s" gnus-group-unsubscribe-group "k" gnus-group-kill-group "y" gnus-group-yank-group "w" gnus-group-kill-region "" gnus-group-kill-level "z" gnus-group-kill-all-zombies)] 4)
#@38 Return non-nil in `gnus-topic-mode'.
(defalias 'gnus-topic-mode-p #[nil "\300\301!\205�\301J\207" [boundp gnus-topic-mode] 2 (#$ . 26153)])
(defalias 'gnus-group-make-menu-bar #[nil "\301\302!\210\303\304!?\205]\305\304\306\307#\210\310\304!\204�\311\304\312\"\210\313\304\307\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332BBBBBB\"\322\323\333\334\326\335\336BBBB\"\337\322\323\340\341\326\342\330\343\344BBBBBB\"\322\323\345\346\326\347\350BBBB\"\351\322\323\352\353\330\354\355BBBB\"\356\322\323\357\360\330\361\362BBBB\"\363\322\323\364\365\330\366\367BBBB\"\322\323\370\371\330\372\373BBBB\"\374BBBBBBBBBBBBBBBBBB$\210\305\375\306\307#\210\310\375!\204\270�\311\375\312\"\210\313\375\307\376$\210\305\377\306\307#\210\310\377!\204\320�\311\377\312\"\210\313\377\307\201@�\201A�\201B�\201C�\201D�\322\323\201E�\201F�\201G�BB\"\322\323\201H�\201I�\201J�BB\"\201K�\201L�\201M�\201N�\201O�\201P�\201Q�\201R�\201S�\201T�\201U�\201V�\201W�\201X�\201Y�\322\323\201Z�\201[�\201\\�BB\"\201]�BBBBBBBBBBBBBBBBBBBBBBB$\210\201^�\201_�!\207" [gnus-group-mode-map gnus-turn-off-edit-menu group boundp gnus-group-reading-menu put variable-documentation "" default-boundp set-default nil easy-menu-do-define "Group" ["Read" gnus-group-read-group :included (not (gnus-topic-mode-p)) :active (gnus-group-group-name)] ["Read " gnus-topic-read-group :included (gnus-topic-mode-p)] ["Select" gnus-group-select-group :included (not (gnus-topic-mode-p)) :active (gnus-group-group-name)] ["Select " gnus-topic-select-group :included (gnus-topic-mode-p)] ["See old articles" (gnus-group-select-group 'all) :keys "C-u SPC" :active (gnus-group-group-name)] apply vector "Catch up" gnus-group-catchup-current :included (not (gnus-topic-mode-p)) :active (gnus-group-group-name) (:help "Mark unread articles in the current group as read") "Catch up " gnus-topic-catchup-articles (gnus-topic-mode-p) (:help "Mark unread articles in the current group or topic as read") ["Catch up all articles" gnus-group-catchup-current-all (gnus-group-group-name)] "Check for new articles" gnus-group-get-new-news-this-group (not (gnus-topic-mode-p)) (gnus-group-group-name) (:help "Check for new messages in current group") "Check for new articles " gnus-topic-get-new-news-this-topic (gnus-topic-mode-p) (:help "Check for new messages in current group or topic") ["Toggle subscription" gnus-group-unsubscribe-current-group (gnus-group-group-name)] "Kill" gnus-group-kill-group (gnus-group-group-name) (:help "Kill (remove) current group") ["Yank" gnus-group-yank-group gnus-list-of-killed-groups] "Describe" gnus-group-describe-group (gnus-group-group-name) (:help "Display description of the current group") ["Fetch FAQ" gnus-group-fetch-faq (gnus-group-group-name)] "Fetch charter" gnus-group-fetch-charter (gnus-group-group-name) (:help "Display the charter of the current group") "Fetch control message" gnus-group-fetch-control (gnus-group-group-name) (:help "Display the archived control message for the current group") (["Expire articles" gnus-group-expire-articles :included (not (gnus-topic-mode-p)) :active (or (and (gnus-group-group-name) (gnus-check-backend-function 'request-expire-articles (gnus-group-group-name))) gnus-group-marked)] ["Expire articles " gnus-topic-expire-articles :included (gnus-topic-mode-p)] ["Set group level..." gnus-group-set-current-level (gnus-group-group-name)] ["Select quick" gnus-group-quick-select-group (gnus-group-group-name)] ["Customize" gnus-group-customize (gnus-group-group-name)] ["Compact" gnus-group-compact-group :active (gnus-group-group-name)] ("Edit" ["Parameters" gnus-group-edit-group-parameters :included (not (gnus-topic-mode-p)) :active (gnus-group-group-name)] ["Parameters " gnus-topic-edit-parameters :included (gnus-topic-mode-p)] ["Select method" gnus-group-edit-group-method (gnus-group-group-name)] ["Info" gnus-group-edit-group (gnus-group-group-name)] ["Local kill file" gnus-group-edit-local-kill (gnus-group-group-name)] ["Global kill file" gnus-group-edit-global-kill t])) gnus-group-group-menu ("Groups" ("Listing" ["List unread subscribed groups" gnus-group-list-groups t] ["List (un)subscribed groups" gnus-group-list-all-groups t] ["List killed groups" gnus-group-list-killed gnus-killed-list] ["List zombie groups" gnus-group-list-zombies gnus-zombie-list] ["List level..." gnus-group-list-level t] ["Describe all groups" gnus-group-describe-all-groups t] ["Group apropos..." gnus-group-apropos t] ["Group and description apropos..." gnus-group-description-apropos t] ["List groups matching..." gnus-group-list-matching t] ["List all groups matching..." gnus-group-list-all-matching t] ["List active file" gnus-group-list-active t] ["List groups with cached" gnus-group-list-cached t] ["List groups with dormant" gnus-group-list-dormant t]) ("Sort" ["Default sort" gnus-group-sort-groups t] ["Sort by method" gnus-group-sort-groups-by-method t] ["Sort by rank" gnus-group-sort-groups-by-rank t] ["Sort by score" gnus-group-sort-groups-by-score t] ["Sort by level" gnus-group-sort-groups-by-level t] ["Sort by unread" gnus-group-sort-groups-by-unread t] ["Sort by name" gnus-group-sort-groups-by-alphabet t] ["Sort by real name" gnus-group-sort-groups-by-real-name t]) ("Sort process/prefixed" ["Default sort" gnus-group-sort-selected-groups (not (gnus-topic-mode-p))] ["Sort by method" gnus-group-sort-selected-groups-by-method (not (gnus-topic-mode-p))] ["Sort by rank" gnus-group-sort-selected-groups-by-rank (not (gnus-topic-mode-p))] ["Sort by score" gnus-group-sort-selected-groups-by-score (not (gnus-topic-mode-p))] ["Sort by level" gnus-group-sort-selected-groups-by-level (not (gnus-topic-mode-p))] ["Sort by unread" gnus-group-sort-selected-groups-by-unread (not (gnus-topic-mode-p))] ["Sort by name" gnus-group-sort-selected-groups-by-alphabet (not (gnus-topic-mode-p))] ["Sort by real name" gnus-group-sort-selected-groups-by-real-name (not (gnus-topic-mode-p))]) ("Mark" ["Mark group" gnus-group-mark-group (and (gnus-group-group-name) (not (memq (gnus-group-group-name) gnus-group-marked)))] ["Unmark group" gnus-group-unmark-group (and (gnus-group-group-name) (memq (gnus-group-group-name) gnus-group-marked))] ["Unmark all" gnus-group-unmark-all-groups gnus-group-marked] ["Mark regexp..." gnus-group-mark-regexp t] ["Mark region" gnus-group-mark-region :active (gnus-mark-active-p)] ["Mark buffer" gnus-group-mark-buffer t] ["Execute command" gnus-group-universal-argument (or gnus-group-marked (gnus-group-group-name))]) ("Subscribe" ["Subscribe to a group..." gnus-group-unsubscribe-group t] ["Kill all newsgroups in region" gnus-group-kill-region :active (gnus-mark-active-p)] ["Kill all zombie groups" gnus-group-kill-all-zombies gnus-zombie-list] ["Kill all groups on level..." gnus-group-kill-level t]) ("Foreign groups" ["Make a foreign group..." gnus-group-make-group t] ["Add a directory group..." gnus-group-make-directory-group t] ["Add the help group" gnus-group-make-help-group t] ["Add the archive group" gnus-group-make-archive-group t] ["Make a doc group..." gnus-group-make-doc-group t] ["Make a web group..." gnus-group-make-web-group t] ["Make a kiboze group..." gnus-group-make-kiboze-group t] ["Make a virtual group..." gnus-group-make-empty-virtual t] ["Add a group to a virtual..." gnus-group-add-to-virtual t] ["Make an ephemeral group..." gnus-group-read-ephemeral-group t] ["Make an RSS group..." gnus-group-make-rss-group t] ["Rename group..." gnus-group-rename-group (gnus-check-backend-function 'request-rename-group (gnus-group-group-name))] ["Delete group" gnus-group-delete-group (gnus-check-backend-function 'request-delete-group (gnus-group-group-name))]) ("Move" ["Next" gnus-group-next-group t] ["Previous" gnus-group-prev-group t] ["Next unread" gnus-group-next-unread-group t] ["Previous unread" gnus-group-prev-unread-group t] ["Next unread same level" gnus-group-next-unread-group-same-level t] ["Previous unread same level" gnus-group-prev-unread-group-same-level t] ["Jump to group..." gnus-group-jump-to-group t] ["First unread group" gnus-group-first-unread-group t] ["Best unread group" gnus-group-best-unread-group t]) ("Sieve" ["Generate" gnus-sieve-generate t] ["Generate and update" gnus-sieve-update t]) ["Delete bogus groups" gnus-group-check-bogus-groups t] ["Find new newsgroups" gnus-group-find-new-groups t] ["Transpose" gnus-group-transpose-groups (gnus-group-group-name)] ["Read a directory as a group..." gnus-group-enter-directory t]) gnus-group-misc-menu "Gnus" ("SOUP" ["Pack replies" nnsoup-pack-replies (fboundp 'nnsoup-request-group)] ["Send replies" gnus-soup-send-replies (fboundp 'gnus-soup-pack-packet)] ["Pack packet" gnus-soup-pack-packet (fboundp 'gnus-soup-pack-packet)] ["Save areas" gnus-soup-save-areas (fboundp 'gnus-soup-pack-packet)] ["Brew SOUP" gnus-group-brew-soup (fboundp 'gnus-soup-pack-packet)]) ["Send a mail" gnus-group-mail t] ["Send a message (mail or news)" gnus-group-post-news t] ["Create a local message" gnus-group-news t] "Check for new news" gnus-group-get-new-news (:help "Get newly arrived articles") "Send queued messages" gnus-delay-send-queue (:help "Send all messages that are scheduled to be sent now") ["Activate all groups" gnus-activate-all-groups t] ["Restart Gnus" gnus-group-restart t] ["Read init file" gnus-group-read-init-file t] ["Browse foreign server..." gnus-group-browse-foreign-server t] ["Enter server buffer" gnus-group-enter-server-mode t] ["Expire all expirable articles" gnus-group-expire-all-groups t] ["Generate any kiboze groups" nnkiboze-generate-groups t] ["Gnus version" gnus-version t] ["Save .newsrc files" gnus-group-save-newsrc t] ["Suspend Gnus" gnus-group-suspend t] ["Clear dribble buffer" gnus-group-clear-dribble t] ["Read manual" gnus-info-find-node t] ["Flush score cache" gnus-score-flush-cache t] ["Toggle topics" gnus-topic-mode t] ["Send a bug report" gnus-bug t] "Exit from Gnus" gnus-group-exit (:help "Quit reading news") (["Exit without saving" gnus-group-quit t]) gnus-run-hooks gnus-group-menu-hook] 31])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list gnus-group-tool-bar-map default-boundp set-default nil] 3)
#@68 Update group buffer toolbar.
Setter function for custom variables.
(defalias 'gnus-group-tool-bar-update #[(&optional symbol value) "\203	�\303	\"\210\304 \205�r\nq\210\305\306!)\207" [symbol value gnus-group-buffer set-default gnus-alive-p gnus-group-make-tool-bar t] 3 (#$ . 36332)])
#@288 Specifies the Gnus group tool bar.

It can be either a list or a symbol refering to a list.  See
`gmm-tool-bar-from-list' for the format of the list.  The
default key map is `gnus-group-mode-map'.

Pre-defined symbols include `gnus-group-tool-bar-gnome' and
`gnus-group-tool-bar-retro'.
(custom-declare-variable 'gnus-group-tool-bar '(if (eq gmm-tool-bar-style 'gnome) 'gnus-group-tool-bar-gnome 'gnus-group-tool-bar-retro) '(#$ . 36628) :type '(choice (const :tag "GNOME style" gnus-group-tool-bar-gnome) (const :tag "Retro look" gnus-group-tool-bar-retro) (repeat :tag "User defined list" gmm-tool-bar-item) (symbol)) :version "23.1" :initialize 'custom-initialize-default :set 'gnus-group-tool-bar-update :group 'gnus-group)
#@115 List of functions for the group tool bar (GNOME style).

See `gmm-tool-bar-from-list' for the format of the list.
(custom-declare-variable 'gnus-group-tool-bar-gnome ''((gnus-group-post-news "mail/compose") (gnus-agent-toggle-plugged "disconnect" t :help "Gnus is currently unplugged.  Click to work online." :visible (and gnus-agent (not gnus-plugged))) (gnus-agent-toggle-plugged "connect" t :help "Gnus is currently plugged.  Click to work offline." :visible (and gnus-agent gnus-plugged)) (gnus-group-send-queue "mail/outbox" t :visible (and gnus-agent gnus-plugged) :help "Send articles from the queue group") (gnus-group-get-new-news "mail/inbox" nil :visible (or (not gnus-agent) gnus-plugged)) (gnus-topic-read-group "open" nil :visible (and (boundp 'gnus-topic-mode) gnus-topic-mode)) (gnus-group-read-group "open" nil :visible (not (and (boundp 'gnus-topic-mode) gnus-topic-mode))) (gnus-group-save-newsrc "save") (gnus-group-describe-group "describe") (gnus-group-unsubscribe-current-group "gnus/toggle-subscription") (gnus-group-prev-unread-group "left-arrow") (gnus-group-next-unread-group "right-arrow") (gnus-group-exit "exit") (gmm-customize-mode "preferences" t :help "Edit mode preferences") (gnus-info-find-node "help")) '(#$ . 37363) :type '(repeat gmm-tool-bar-item) :version "23.1" :initialize 'custom-initialize-default :set 'gnus-group-tool-bar-update :group 'gnus-group)
#@114 List of functions for the group tool bar (retro look).

See `gmm-tool-bar-from-list' for the format of the list.
(custom-declare-variable 'gnus-group-tool-bar-retro ''((gnus-group-get-new-news "gnus/get-news") (gnus-group-get-new-news-this-group "gnus/gnntg") (gnus-group-catchup-current "gnus/catchup") (gnus-group-describe-group "gnus/describe-group") (gnus-group-subscribe "gnus/subscribe" t :help "Subscribe to the current group") (gnus-group-unsubscribe "gnus/unsubscribe" t :help "Unsubscribe from the current group") (gnus-group-exit "gnus/exit-gnus" gnus-group-mode-map)) '(#$ . 38766) :type '(repeat gmm-tool-bar-item) :version "23.1" :initialize 'custom-initialize-default :set 'gnus-group-tool-bar-update :group 'gnus-group)
#@167 List of icon items from the global tool bar.
These items are not displayed in the Gnus group mode tool bar.

See `gmm-tool-bar-from-list' for the format of the list.
(custom-declare-variable 'gnus-group-tool-bar-zap-list 't '(#$ . 39509) :type 'gmm-tool-bar-zap-list :version "23.1" :initialize 'custom-initialize-default :set 'gnus-group-tool-bar-update :group 'gnus-group)
#@90 Make a group mode tool bar from `gnus-group-tool-bar'.
When FORCE, rebuild the tool bar.
(defalias 'gnus-group-make-tool-bar #[(&optional force) "\306\300!\2039�\2039�	\203�\n\2039�\307\310\311\312\313$\211@\306\304!\205\"�\fB\314
\315#\211\2038�\316\317!\210+	\207" [tool-bar-mode gnus-group-tool-bar-map force load-path image-load-path gnus-group-tool-bar boundp gmm-image-load-path-for-library "gnus" "gnus/toggle-subscription.xpm" nil t gmm-tool-bar-from-list gnus-group-mode-map make-local-variable tool-bar-map gnus-group-tool-bar-zap-list map] 6 (#$ . 39890)])
#@619 Major mode for reading news.

All normal editing commands are switched off.
\<gnus-group-mode-map>
The group buffer lists (some of) the groups available.  For instance,
`\[gnus-group-list-groups]' will list all subscribed groups with unread articles, while `\[gnus-group-list-zombies]'
lists all zombie groups.

Groups that are displayed can be entered with `\[gnus-group-read-group]'.  To subscribe
to a group not displayed, type `\[gnus-group-unsubscribe-group]'.

For more in-depth information on this mode, read the manual (`\[gnus-info-find-node]').

The following commands are available:

\{gnus-group-mode-map}
(defalias 'gnus-group-mode #[nil "\306 \210\307\310\311\"\203�\312 \210\313 \210\314 \210\315\316\317 \210\320\321!\210\322 \210\323\211\320\324 \210\325\320\326\327#\210\330 \210\203?�\331\332!\210 \203G�\333 \210\334\335!\207" [major-mode mode-name mode-line-process gnus-group-mode-map truncate-lines buffer-read-only kill-all-local-variables gnus-visual-p group-menu menu gnus-group-make-menu-bar gnus-group-make-tool-bar gnus-simplify-mode-line gnus-group-mode "Group" gnus-group-set-mode-line nil use-local-map buffer-disable-undo t gnus-set-default-directory gnus-update-format-specifications group group-mode gnus-update-group-mark-positions gnus-undo-mode 1 gnus-slave-mode gnus-run-mode-hooks gnus-group-mode-hook show-trailing-whitespace gnus-use-undo gnus-slave] 5 (#$ . 40477) nil])
(defalias 'gnus-update-group-mark-positions #[nil "\212\306\307\310\311\312\313\"\314\315\316	\"\317L\210\320 \210\321\316\313\307\313\307%\210eb\210\322\323\324\325!\307\326#\2053�\327`e\330#BC\211.\207" [topic gnus-active-hashtb gnus-group-marked gnus-group-update-hook gnus-process-mark gnus-group-mark-positions 128 nil ("dummy.group") make-vector 10 0 "" intern "dummy.group" (0 . 0) gnus-set-work-buffer gnus-group-insert-group-line process search-forward mm-string-to-multibyte "\200" t - 1] 6])
#@42 Enter the group under the mouse pointer.
(defalias 'gnus-mouse-pick-group #[(e) "\301!\210\302\303!\207" [e mouse-set-point gnus-group-read-group nil] 2 (#$ . 42419) "e"])
(defalias 'gnus-group-default-level #[(&optional level number-or-nil) "\203!�	\206�\247\203�\202�\n\206�\211\2060�\n\2060�\207\f\203'�	\207	\2060�\n\2060�\207" [gnus-group-use-permanent-levels level gnus-group-default-list-level gnus-level-subscribed number-or-nil] 2])
(defalias 'gnus-group-setup-buffer #[nil "\303!q\210	\304=?\205�\304 \210\n\205�\305\306!\207" [gnus-group-buffer major-mode gnus-carpal gnus-get-buffer-create gnus-group-mode gnus-carpal-setup-buffer group] 2])
(defalias 'gnus-group-name-charset #[(method group) "\204�\306	!\307\n\"\206 �:\205 �\307@\211A@)D\n\"\f\310\n\211\2031�A\202R�\n\211A\n@\211\203Q�\311@	\"\2031�\310\nA\2021�
+\207" [method group gnus-group-name-charset-method-alist x gnus-group-name-charset-group-alist result gnus-find-method-for-group assoc nil string-match alist item] 4])
(defalias 'gnus-group-name-decode #[(string charset) "\203�	\203�\302\303!\203�\304	\"\207\207" [string charset featurep mule mm-decode-coding-string] 3])
(defalias 'gnus-group-decoded-name #[(string) "\302\303\"\304	\")\207" [string charset gnus-group-name-charset nil gnus-group-name-decode] 3])
#@241 List newsgroups with level LEVEL or lower that have unread articles.
Default is all subscribed groups.
If argument UNREAD is non-nil, groups with no unread articles are also
listed.

Also see the `gnus-group-use-permanent-levels' variable.
(defalias 'gnus-group-list-groups #[(&optional level unread lowest) "\204\n�	@	A\306!\307 \210\310\311\304\312#\210\311\313\314 !edU\315 \311q\210\n#\211\247\203@�\316!\204G�\316\317 !\203M�\320\321 \"\210db\210!\203^�!\f\"\204\362�
\203h�eb\210\202\362�\f\204s�\322\323!\210\202\362�\324ed\325\326\f\"\"#\327#!\204\212�#\311L\210#)$\211$\205\227�$b)\204\362�\330\f%\"J\211&AA)A\211'\203\346�\324ed\325\326'\211&@@)\"\"#\327#!\204\314�#\311L\210#)$\211$\205\331�$b)\204\346�'A\211'\204\256�'\204\361�db\210\331y\210)\332 -\207" [level gnus-group-list-mode unread number group empty gnus-group-default-level gnus-group-setup-buffer gnus-update-format-specifications nil group-mode text-properties-at point-at-bol gnus-group-group-name zerop buffer-size gnus-message 5 gnus-group-search-forward t text-property-any gnus-group intern boundp intern-soft -1 gnus-group-position-point props case-fold-search gnus-group-buffer gnus-group-prepare-function lowest gnus-no-groups-message gnus-group-goto-next-group-function gnus-active-hashtb symbol point gnus-newsrc-hashtb x newsrc] 8 (#$ . 43770) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) (or (gnus-group-default-level nil t) gnus-group-default-list-level gnus-level-subscribed)))])
#@91 List groups on LEVEL.
If ALL (the prefix), also list groups that have no unread articles.
(defalias 'gnus-group-list-level #[(level &optional all) "\302	#\207" [level all gnus-group-list-groups] 4 (#$ . 45319) "nList groups on level: \nP"])
(defalias 'gnus-group-prepare-logic #[(group test) "\203�	\204�\n\235\206*�\204�\207	\204�\207\n\235\205*�	\304=\203)�?\207\207" [gnus-group-listed-groups gnus-group-list-option group test flush] 2])
#@395 List all newsgroups with unread articles of level LEVEL or lower.
If PREDICATE is a function, list groups that the function returns non-nil;
if it is t, list groups that have no unread articles.
If LOWEST is non-nil, list all newsgroups of level LOWEST or higher.
If REGEXP is a function, list dead groups that the function returns non-nil;
if it is a string, only list groups matching REGEXP.
(defalias 'gnus-group-prepare-flat #[(level &optional predicate lowest regexp) "q\210\306	A\n\206�\307\205�\310!\306\211\211\211\211 !\"#$%\311 \210\n&W\2044�\203$\203$@\211\"@\312\"8$A$\313
'\"J@ #\203`�\314
#\"#\315
 \205\352�(;\203u�\316(
\"\205\352�\"A@\211):\203\206�)@\202\210�))\211!*X\205\352�!\nY\205\352�\317+!\203\250�+\"!\202\352�+\203\261�\320\202\352� \320=\203\275�,\202\301� \321V\206\352�-\203\323�\322\323\"8\236A\206\352�.\203\340�\316.
\"\206\352�\324\f>\206\352�\324\f\236A\"\2034�\325
\"A@\211):\203)@\202))\323\"8 \326\"8%\210\2024�\204&*&Y\2036\n&X\2036\327\330/\331\"\211/&\332($\210#\203Z/\306\2110\203Y0@\314
#\"#0A\2110\204E*\204m*1Y\203\201\n1X\203\201\327\333#\3302\331\"\2112\"1\334($\210\335 \210*+B3\336\337!\210.	\320\207" [gnus-group-buffer gnus-newsrc-alist lowest gnus-group-listed-groups params group nil 1 copy-sequence erase-buffer 5 intern-soft delete gnus-group-prepare-logic string-match functionp t 0 tick 3 visible gnus-group-insert-group-line 4 gnus-group-prepare-flat-list-dead sort string< 90 gnus-union 75 gnus-group-set-mode-line gnus-run-hooks gnus-group-prepare-hook unread clevel info not-in-list newsrc buffer-read-only gnus-level-zombie gnus-newsrc-hashtb regexp rank level predicate gnus-group-list-inactive-groups gnus-list-groups-with-ticked-articles gnus-permanently-visible-groups gnus-zombie-list #1=#:--cl-dolist-temp-- gnus-level-killed gnus-killed-list gnus-group-list-mode] 10 (#$ . 45781)])
(defalias 'gnus-group-prepare-flat-list-dead #[(groups level mark regexp) "\306	G\nV\203c�	\205\274�	\211A@\307?\206/�;\203&�\310\"\206/�\311!\205/�!\"\203	�\312``T\313\f\314\315!\316\261\210\317\320
\"\321!\204T�\306L\210)\322\323\324\257#\210\202	�	\205\274�	\211A@\307?\206\211�;\203\200�\310\"\206\211�\311!\205\211�!\"\203c�\325\306\326
\"J\211\205\261�\327A!\203\251�\330\202\261�AT@Z)\331\332!!%\210\202c�)\207" [group groups gnus-group-listing-limit regexp mark gnus-active-hashtb nil gnus-group-prepare-logic string-match functionp gnus-add-text-properties " " "     *: " gnus-group-decoded-name "\n" gnus-group intern boundp gnus-unread t gnus-level gnus-group-insert-group-line intern-soft zerop 0 gnus-method-simplify gnus-find-method-for-group symbol level active] 10])
#@46 Update the current line in the group buffer.
(defalias 'gnus-group-update-group-line #[nil "\305\306 \211\205�\307	\n\"J\305	\205>�\203*�\310	!\204*�\311\312\313\3148!\315Q!\210\316 \317 \320y\210`|\210\321	!\210\322y\210\323 ,\207" [buffer-read-only group gnus-newsrc-hashtb entry gnus-group-indentation nil gnus-group-group-name intern-soft gnus-ephemeral-group-p gnus-dribble-enter "(gnus-group-set-info '" gnus-prin1-to-string 2 ")" gnus-group-group-indentation point-at-bol 1 gnus-group-insert-group-line-info -1 gnus-group-position-point] 6 (#$ . 48573)])
#@35 Insert GROUP on the current line.
(defalias 'gnus-group-insert-group-line-info #[(group) "\306	\"J\307 \310\211\211\203:�\311
8\312\nA@\211:\203'�@\202)�)\313\n8
@\2063�\314\315\n8%\202m�\312\211\235\203H�\202J�\310\306\"J\211\205g�\316A!\203a�\317\202g�AT@Z\320\321!!%,\207" [group gnus-newsrc-hashtb info active gnus-group-indentation entry intern-soft gnus-group-group-indentation nil 2 gnus-group-insert-group-line 3 t 4 zerop 0 gnus-method-simplify gnus-find-method-for-group rank gnus-zombie-list gnus-level-zombie gnus-level-killed gnus-active-hashtb] 9 (#$ . 49149)])
(defalias 'gnus-number-of-unseen-articles-in-group #[(group) "\306\307	\"J8\310\n8\304\236A\307
\"J\211\f\204 �\311\202.�\312\313\211\fC\306\n8\"\f\"!G,\207" [group gnus-newsrc-hashtb info marked seen gnus-active-hashtb 2 intern-soft 3 0 gnus-uncompress-range gnus-range-difference active] 7])
#@43 Force updating the group buffer tool bar.
(custom-declare-variable 'gnus-group-update-tool-bar '(and (not (featurep 'xemacs)) (boundp 'tool-bar-mode) tool-bar-mode (fboundp 'force-window-update)) '(#$ . 50061) :group 'gnus-group :version "22.1" :initialize 'custom-initialize-default :set #[(symbol value) "\303	\"\210\304 \205�r\nq\210\305\306!)\207" [symbol value gnus-group-buffer set-default gnus-alive-p gnus-group-get-new-news 0] 3] :type 'boolean)
#@42 Insert a group line in the group buffer.
(defalias 'gnus-group-insert-group-line #[(gnus-tmp-group gnus-tmp-level gnus-tmp-marked number gnus-tmp-method) "	\n;\203\370�\n\211\203�\f<\203�\f\206\364�\306\f
\"A\206\364�\f\307\232\203+�@\206\344�\306\fA\"A\206\344�\306\fB\"A\206\344�CDD\203l�\f\310\311D\211E@@)@D\211E@@)A@#\232\204l�D\211AD@\210\202A�D\211E@@*\206\344�FGG\203\244�\f\310\311G\211E@@)G\211E@A)@#\232\204\244�G\211AG@\210\202{�G@)\206\344�HA\312\211IJJ\203\341�\313J\211AJ@8\211;\204\265�\f\n\312K\314\315\215*\232\203\265�\nI\312\211J\204\272�I+\211L\203\361�\fLB
BL))\202h\n@\232\203@\202h\n@;\203\203\316\n\"\202h\n\203-\204-\n\211EA@)\317\232\203-\n\202h\n\320\n@!M\321\306MN\">\203f\322M\323P!\n\236\204f\324\n@N\236>\203f\325\n\322M\323P!\nA@DC\"\202g\n**\326	\"O\327P\"J\211Q\203\207QAQ@ZT\202\210\330RS\247\203\231\331\330S]!\202\232\332TS\247\203\256\331\330RSZ]!\202\257\332UVWX\203\275\333\202\326VXX\203\311\334\202\326VYU\203\325\335\202\326\336Z\337[\340\341[\"\203\355[\330\225\312O\202\357[)O\"\\\342\343\344#\206\376]^\203\337\327^\"JO\"\206\317\202\317_`\203+\327`\"J\203+\345\202,\333\211a\345=\2038\346\2029\317b\347c	\211EA@)\206I\317d	@\206Q\317e	\203f\310\350	@	\211EA@)#\202g\317fS\247\203\202\351S!\203\202\352g\236A\203\202\353\202\203\333hi\204\226\354\355!!\203\226\353\202\227\333jk\235\203\245l\202\246\333m\312\211no\312\211pq\312r\356 \210`o\357``T\337O\"s\360t!\210)\361\322P\"u\362u!\204\342u\312L\210u)\363S\247\203\363\364T!\202\364\344\365h\366v\367V\257\n#\210`pw\203\370op\371\372$\210\370op\373\372$\210\374y\210\375\376xyz\205Jy\2043z\202Jz<\203Iyz>\206Jxz>\202J\344*\203T\377\201{�!\210\312y\210\201|� .\207" [gnus-tmp-group gnus-tmp-method method group server gnus-server-method-cache 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@)#\211B\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-group-name-charset intern-soft 0 int-to-string "*" 32 85 90 75 gnus-group-name-decode string-match "^[^:]+:" gnus-group-get-parameter comment t 109 "(m)" "==&&==" "(%s:%s)" zerop tick 42 gnus-buffer-live-p gnus-summary-buffer-name beginning-of-line gnus-add-text-properties eval gnus-group boundp gnus-unread string-to-number gnus-marked gnus-indentation gnus-level gnus-put-text-property point-entered gnus-tool-bar-update point-left -1 group-highlight highlight gnus-run-hooks gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match alist nocache result method-name gnus-valid-select-methods group-name-charset gnus-active-hashtb gnus-tmp-active gnus-tmp-number-total number gnus-tmp-number-of-unread gnus-tmp-number-of-read gnus-tmp-level gnus-level-subscribed gnus-level-unsubscribed gnus-level-zombie gnus-tmp-subscribed gname gnus-tmp-qualified-group gnus-tmp-comment gnus-description-hashtb gnus-tmp-newsgroup-description gnus-moderated-hashtb gnus-tmp-moderated gnus-tmp-moderated-string gnus-tmp-group-icon gnus-tmp-news-server gnus-tmp-news-method gnus-tmp-news-method-string gnus-tmp-marked gnus-tmp-marked-mark gnus-group-is-exiting-p gnus-tmp-summary-live gnus-group-marked gnus-process-mark gnus-tmp-process-marked buffer-read-only beg end header gnus-tmp-header gnus-tmp-decoded-group gnus-group-line-format-spec symbol gnus-group-indentation gnus-group-update-tool-bar class type gnus-visual gnus-group-update-hook gnus-group-remove-excess-properties] 14 (#$ . 50524)])
#@65 Highlight the current line according to `gnus-group-highlight'.
(defalias 'gnus-group-highlight-line #[nil "`\306 \307 \210`\310 \311
+\"J\211,@\247\203#�,@\202$�\312-\311
.\"J\211/\203=�/A/@ZT\202>�\3120\313,81
\3141822;\203W2\2113\203g�3<\203g�3\206S\31534\"A\206S3\316\232\203}�5\206@\31536\"A\206@\31537\"A\206@899\203\301�3\317\3209\211:@@)@9\211:@@)A@#\232\204\301�9\211A9@\210\202\225�9\211:@@*\206@;<<\203\372�3\317\320<\211:@@)<\211:@A)@#\232\204\372�<\211A<@\210\202\320�<@)\206@=A\321\211>2??\203=\314?\211A?@8\2112;\204\f32\321@2\322\323\215*\232\203\f2>\321\211?\204>+\211A\203P3AB4B4A))\202\32525\232\203d5\202\3252@;\203w
\203w\324
2\"\202\3252\203\222
\204\2222\211:A@)\325\232\203\2222\202\32522\3262@!B\327\315BC\">\203\322\330B\331P!2\236\204\322\3322@C\236>\203\322\3332\330B\331P!2A@DC\"\202\3242**2\33418D\335\333\336\337\340\"\"E1A@\211F:\203\370F@\202\372F)\206�GH1A@\211F:\203FA\206\312)\206\312I\341\342D\236A!J\343
!K\344L	\203C\345	\211:@@)!\204C	A\211\2040	\211:@A)\211'\346\f\347\"=\204q\350\f\347\351'!\203f'J\202h'\211'$\210\352\f!\210)\nb.\207" [gnus-group-highlight list p end beg group point-at-eol beginning-of-line gnus-group-group-name intern-soft 0 2 4 assoc "native" format "%s:%s" nil 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@)#\211B\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 3 apply mapcar #[(x) "\304\305	\206�\n@!\">\207" [x method gnus-select-method gnus-valid-select-methods assoc symbol-name] 4] (mail post-mail) gnus-range-length tick gnus-group-timestamp-delta t eval get-text-property face gnus-put-text-property-excluding-characters-with-faces boundp gnus-extent-start-open gnus-newsrc-hashtb entry unread gnus-active-hashtb active total info method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match alist nocache result method-name gnus-valid-select-methods marked mailp rank gnus-level-killed level score ticked group-age inhibit-read-only] 7 (#$ . 54866)])
#@116 Update all lines where GROUP appear.
If VISIBLE-ONLY is non-nil, the group won't be displayed if it isn't
already.
(defalias 'gnus-group-update-group #[(group &optional visible-only) "p\306\nq\210\307 \214~\210\310\f\"\311
!\204�
\306L\210
)e\306\211\312 \"J\211!\203G�\313!\204G�\314\315\316\317!8!\320Q!\210)\321d\322$\211\203~�\323b\210\324 \"\325 \326y\210`|\210\327!\210\212\330y\210\331\332!\210*T\202H�\204\372�#\204\372�$\203\225�$!\210\202\351�\312 \"J\211%AA)\211!\203\340�!@\203\340�\321ed\322\310!\211%@@)\f\"\311
!\204\307�
\306L\210
)$\211&\205\323�&b)\204\340�!A\211!\204\247�!\204\350�db\210)\324 \"\327!\210\212\330y\210\331\332!\210*'\203'!\210\333 \210-b\210\306\211\223\210	q*\207" [mark buf gnus-group-buffer group gnus-active-hashtb symbol nil point-marker intern boundp intern-soft gnus-ephemeral-group-p gnus-dribble-enter "(gnus-group-set-info '" gnus-prin1-to-string 2 ")" text-property-any gnus-group t gnus-group-group-indentation point-at-bol 1 gnus-group-insert-group-line-info -1 gnus-run-hooks gnus-group-update-group-hook gnus-group-set-mode-line buffer-read-only found loc ident gnus-newsrc-hashtb entry gnus-group-indentation visible-only gnus-goto-missing-group-function x point gnus-group-update-group-function] 8 (#$ . 57747)])
#@43 Update the mode line in the group buffer.
(defalias 'gnus-group-set-mode-line #[nil "\306>\205\211�\212	q\210\n\206�\307\310!\f\211A@)\f@\311\232\203)�\311\202*�\312\313\314\205P�\315!\205P�\316!\205P�\212q\210\317\320 !)?\321!\203b�@\202e�AGV\203z�\322\323ZO\324C!\211 \325!\210.	\207" [gnus-updated-mode-lines gnus-group-buffer gnus-group-mode-line-format-spec gformat gnus-select-method x group gnus-set-format group-mode "" ":" 60 nil buffer-name buffer-modified-p zerop buffer-size eval 0 4 gnus-mode-line-buffer-identification set-buffer-modified-p gnus-tmp-news-server gnus-tmp-news-method gnus-tmp-colon max-len gnus-tmp-header gnus-dribble-buffer modified mode-string gnus-mode-line-modified mode-line-modified mode-line-buffer-identification] 5 (#$ . 59082)])
#@52 Get the name of the newsgroup on the current line.
(defalias 'gnus-group-group-name #[nil "\301\302 \303\"\211\205
�\304!)\207" [group get-text-property point-at-bol gnus-group symbol-name] 4 (#$ . 59910)])
#@53 Get the level of the newsgroup on the current line.
(defalias 'gnus-group-group-level #[nil "\300\301 \302\"\207" [get-text-property point-at-bol gnus-level] 3 (#$ . 60125)])
#@59 Get the indentation of the newsgroup on the current line.
(defalias 'gnus-group-group-indentation #[nil "\301\302 \303\"\206�\203� \206�\304\207" [gnus-group-indentation-function get-text-property point-at-bol gnus-indentation ""] 3 (#$ . 60306)])
#@73 Get the number of unread articles of the newsgroup on the current line.
(defalias 'gnus-group-group-unread #[nil "\300\301 \302\"\207" [get-text-property point-at-bol gnus-unread] 3 (#$ . 60565)])
(defalias 'gnus-group-new-mail #[(group) "\303\304\305	\"\203�	\306\225\307O\202�	)!\203�\n\207\310\207" [group gname gnus-new-mail-mark nnmail-new-mail-p string-match "^[^:]+:" 0 nil 32] 4])
#@38 Return the estimated level of GROUP.
(defalias 'gnus-group-level #[(group) "\306\307	\"J8A@\211:\203�\n@\202�\n)\206$�\235\203#�\f\206$�
\207" [group gnus-newsrc-hashtb rank gnus-zombie-list gnus-level-zombie gnus-level-killed 2 intern-soft] 5 (#$ . 60965)])
#@298 Find the next newsgroup with unread articles.
If BACKWARD is non-nil, find the previous newsgroup instead.
If ALL is non-nil, just find any newsgroup.
If LEVEL is non-nil, find group with level LEVEL, or higher if no such
group exists.
If FIRST-TOO, the current line is also eligible as a target.
(defalias 'gnus-group-search-forward #[(&optional backward all level first-too) "\203�\306\202	�\307	`\310\211\211\203#�\311 \203#�o\204\226�\204,�y\210m\204\226�\312`\313\"\205\211�\204_�\312`\314\"\211\247\205K�\315V)\205\211�\312`\316\"\211\205\211�\nX\205\211�?\206\211�\312`\316\"\211\205\211�\nU\206\211�\nW\205\211�\nW\205\211�\n`\310\211\204\226�\317y!\204,�\203\241�\320 \210\321\202\255�\f\206\246�
b\210\f\205\255�\321.\207" [backward gnus-level-killed lev found pos beg -1 1 nil beginning-of-line get-text-property gnus-group gnus-unread 0 gnus-level zerop gnus-group-position-point t low way first-too all unread gnus-level-subscribed level] 7 (#$ . 61237)])
(defalias 'gnus-total-fetched-for #[(group) "\306!\206�\307\310!\206�\307	\n\\\311\312\211

V\203,�
\245\fA\202�\313\314\f@#.\207" [group size-in-cache size-in-agent size suffix scale gnus-cache-total-fetched-for 0 gnus-agent-total-fetched-for ("B" "K" "M" "G") 1024.0 format "%5.1f%s" cutoff] 5])
(defalias 'gnus-group-mark-line-p #[nil "\212\302 \210\303\236A\206\f�\304u\210\305f	)=\207" [gnus-group-mark-positions gnus-process-mark beginning-of-line process 2 nil] 2])
#@25 Mark the current group.
(defalias 'gnus-group-mark-group #[(n &optional unmark no-advance) "\306\211\n\307V\203V�m\204V�\310 \211\203F�\311 \210\312\236A\206 �\313u\210\314\315!\210\f\2038�\316
\"\317\320\315\321#\210\202F�\316
\"B\317\315\321#\210\204O�\322\315!\210\nS\211\202�\323 \210\n*\207" [group buffer-read-only n gnus-group-mark-positions unmark gnus-group-marked nil 0 gnus-group-group-name beginning-of-line process 2 delete-char 1 delete insert-char 32 t gnus-group-next-group gnus-summary-position-point gnus-process-mark no-advance] 5 (#$ . 62745) "p"])
#@41 Remove the mark from the current group.
(defalias 'gnus-group-unmark-group #[(n) "\301\302\"\210\303 \207" [n gnus-group-mark-group unmark gnus-group-position-point] 3 (#$ . 63335) "p"])
#@20 Unmark all groups.
(defalias 'gnus-group-unmark-all-groups #[nil "\212\301\302\"\210)\303 \207" [gnus-group-marked mapc gnus-group-remove-mark gnus-group-position-point] 3 (#$ . 63529) nil])
#@77 Mark all groups between point and mark.
If UNMARK, remove the mark instead.
(defalias 'gnus-group-mark-region #[(unmark beg end) "\304	\"\212b\210\n\305\n\"Z*\207" [beg end num unmark count-lines gnus-group-mark-group] 4 (#$ . 63727) "P\nr"])
#@68 Mark all groups in the buffer.
If UNMARK, remove the mark instead.
(defalias 'gnus-group-mark-buffer #[(&optional unmark) "\301ed#\207" [unmark gnus-group-mark-region] 4 (#$ . 63980) "P"])
#@41 Mark all groups that match some regexp.
(defalias 'gnus-group-mark-regexp #[(regexp) "A\304\212\n\203#�\305\n\211A@@\211\"\203�\306	!\210\307	!\210\202�+\310 \207" [gnus-newsrc-alist group alist regexp nil string-match gnus-group-jump-to-group gnus-group-set-mark gnus-group-position-point] 4 (#$ . 64176) "sMark (regexp): "])
#@99 Remove the process mark from GROUP and move point there.
Return nil if the group isn't displayed.
(defalias 'gnus-group-remove-mark #[(group &optional test-marked) "\303\304	#\203�\212\305\306\307\310#\210)\310\207\311\n\"\304\207" [group test-marked gnus-group-marked gnus-group-goto-group nil gnus-group-mark-group 1 unmark t delete] 4 (#$ . 64517)])
#@32 Set the process mark on GROUP.
(defalias 'gnus-group-set-mark #[(group) "\302!\203�\212\303\304\305\306#)\207\307	\"B\211\207" [group gnus-group-marked gnus-group-goto-group gnus-group-mark-group 1 nil t delete] 4 (#$ . 64880)])
#@79 Perform any command on all groups according to the process/prefix convention.
(defalias 'gnus-group-universal-argument #[(arg &optional groups func) "\206�\302\303\304\305!!!\211\306=\203�\307\310\311\"\210\202�\312	\313\"\210\314 \207" [func arg key-binding read-key-sequence substitute-command-keys "\\<gnus-group-mode-map>\\[gnus-group-universal-argument]" undefined gnus-error 1 "Undefined key" gnus-group-iterate #[(group) "\301!\207" [func command-execute] 2] gnus-group-position-point] 4 (#$ . 65120) "P"])
#@107 Return a list of groups to work on.
Take into consideration N (the prefix) and the list of marked groups.
(defalias 'gnus-group-process-prefix #[(n) "\203=�\306!\211\307W\203�\310\202�\311\312!\313\211\212\307V\2038�\314 \211\203.�\n	BS\315!\210\202�)	\237,\207\316 \203p�\317 \203p�`\317 ]\313\212`\317 ^b\210\314 	B\211\203l�\320\315\311!!\203l�`\fW\204U�	\237+\207
\203x�\321
!\207\314 \211\205\201�\nC)\207" [n groups group way max gnus-group-marked prefix-numeric-value 0 -1 1 abs nil gnus-group-group-name gnus-group-next-group gnus-region-active-p mark zerop reverse] 5 (#$ . 65647)])
(byte-code "\304\305!\304\306!\304\307!\304\310!\311\312\313\314D\315\316	\317B\n\320BE\321	\322\323	D	\324	D\257\325\nD\326D\327\330\331EDD\257E\257!\210,\332\313\333\334#\207" [group groups window function make-symbol "gnus-group-iterate-function" "gnus-group-iterate-window" "gnus-group-iterate-groups" "gnus-group-iterate-group" eval defun gnus-group-iterate arg "Iterate FUNCTION over all process/prefixed groups.\nFUNCTION will be called with the group name as the parameter\nand with point over the group in question." let ((gnus-group-process-prefix arg)) ((selected-window)) while setq car cdr select-window gnus-group-remove-mark save-selected-window save-excursion funcall put lisp-indent-function 1] 17)
#@420 Read news in this newsgroup.
If the prefix argument ALL is non-nil, already read articles become
readable.

If ALL is a positive number, fetch this number of the latest
articles in the group.  If ALL is a negative number, fetch this
number of the earliest articles in the group.

If the optional argument NO-ARTICLE is non-nil, no article will
be auto-selected upon group entry.  If GROUP is non-nil, fetch
that group.
(defalias 'gnus-group-read-group #[(&optional all no-article group select-articles) "\306=	\206	�\307 \310\211\211\211\306=\203�\310	\204$�\311\312!\210\313\314\315	\"J\21188\247\203:�\202T�\n\203C�\n@\202T�\315	\"J\211\205T�\fAT\f@Z\316	\206q�
\247\205q�\317\320
\321\322\236A!\321\323\236A!#!\310\310&.\207" [all group entry marked active number 0 gnus-group-group-name nil error "No group on current line" 3 2 intern-soft gnus-summary-read-group zerop + gnus-range-length tick dormant no-display gnus-newsrc-hashtb gnus-active-hashtb no-article select-articles] 9 (#$ . 66996) "P"])
#@346 Select this newsgroup.
No article is selected automatically.
If the group is opened, just switch the summary buffer.
If ALL is non-nil, already read articles become readable.
If ALL is a positive number, fetch this number of the latest
articles in the group.
If ALL is a negative number, fetch this number of the earliest
articles in the group.
(defalias 'gnus-group-select-group #[(&optional all) "m\203\f�\301 \204\f�\302y\210\303\304\"\207" [all gnus-group-group-name -1 gnus-group-read-group t] 3 (#$ . 68040) "P"])
#@285 Select the GROUP "quickly".
This means that no highlighting or scoring will be performed.  If
ALL (the prefix argument) is 0, don't even generate the summary
buffer.  If GROUP is nil, use current group.

This might be useful if you want to toggle threading
before entering the group.
(defalias 'gnus-group-quick-select-group #[(&optional all group) "\306\307!\210\310\211\211\211\211\311
\312#-\207" [gnus-summary-expunge-below gnus-apply-kill-hook gnus-home-score-file gnus-score-find-score-files-function gnus-visual all require gnus-score nil gnus-group-read-group t group] 5 (#$ . 68568) "P"])
#@55 Select the current group without hiding any articles.
(defalias 'gnus-group-visible-select-group #[(&optional all) "\302\303	\302\")\207" [gnus-inhibit-limiting all t gnus-group-read-group] 3 (#$ . 69179) "P"])
#@204 Select the current group without doing any processing whatsoever.
You will actually be entered into a group that's a copy of
the current group; no changes you make while in this group will
be permanent.
(defalias 'gnus-group-select-group-ephemerally #[nil "\306\307!\210\310\211\310\211\310\211\310\211
\311 \312!\313\314\"\".\n\207" [gnus-visual gnus-score-find-score-files-function gnus-apply-kill-hook gnus-summary-expunge-below gnus-show-threads gnus-suppress-duplicates require gnus-score nil gnus-group-group-name gnus-find-method-for-group gnus-group-read-ephemeral-group gnus-group-prefixed-name gnus-summary-mode-hook gnus-select-group-hook group method] 5 (#$ . 69398) nil])
#@61 Return a group name from around point if it exists, or nil.
(defalias 'gnus-group-name-at-point #[nil "\306=\203�\307 \211\205�\310	!)\207\311`\312m\204+�\313\314!\204+�\315\316\317 x\210\204H�\313\320!\203>�\315\321\312x\210\316\317 x\210\204H�\322\323\317 `{\"\203T�\313\f!\205\220�\324\325!\202\220�\312\211\313\f!\203h�\324\325!\325\224\326\224Z\321\312x\210\316\317 x\210\313\f!\203\216�	\203\210�
\326\225ZX\203\210�	\202\217�\324\325!\202\217�	*b\210+\207" [major-mode group case-fold-search start regexp distance gnus-group-mode gnus-group-group-name gnus-group-decoded-name "[][�-	-*,/:-@\\^`{-]*\$nn[a-z]+\\(?:\\+[^][�-*,/:-@\\^`{-]+\$?:[^][�-*,./:-@\\^`{-]+\$?:\\.[^][�-*,./:-@\\^`{-]+\$*\\|[^][�-*,./:-@\\^`{-]+\$?:\\.[^][�-*,./:-@\\^`{-]+\$+\\)" nil looking-at "[][�-*,/;-@\\^`{-]" t "^][�-	-*,/;-@\\^`{-" point-at-bol "[][�-	-*,/;-@\\^`{-]*$" "][�-	-*,/;-@\\^`{-" string-match "\\`[][�-	-*,/;-@\\^`{-]*\\'" match-string 1 0] 5 (#$ . 70110)])
#@243 Read a group name with completion.  Non-ASCII group names are allowed.
The arguments are the same as `completing-read' except that COLLECTION
and HIST default to `gnus-active-hashtb' and `gnus-group-history'
respectively if they are omitted.
(defalias 'gnus-group-completing-read #[(prompt &optional collection predicate require-match initial-input hist def &rest args) "\306\307\310	\206�\n\206
�\311\211\312	G!\"\210\313\314	\f
\206$�\315&	\316	\"J\306\206<�\317\320\306\"\")\207" [group collection gnus-active-hashtb prompt predicate require-match nil mapatoms #[(symbol) "\303!\304\305\306	\"\203�\307	!\202�	\n\"	L\207" [symbol group collection symbol-name intern string-match "[^�-]" gnus-group-decoded-name] 4] [0] gnus-make-hashtable apply completing-read gnus-group-history intern-soft mm-encode-coding-string gnus-group-name-charset initial-input hist def args] 10 (#$ . 71108)])
#@131 Start Gnus if necessary and enter GROUP.
If ARTICLES, display those articles.
Returns whether the fetching was successful or not.
(defalias 'gnus-fetch-group #[(group &optional articles) "\302 \204�\303 \210\304?\205�\305\306	$\207" [articles group gnus-alive-p gnus-no-server gnus-group-read-group t nil] 5 (#$ . 72028) (list (gnus-group-completing-read "Group name: " nil nil nil (gnus-group-name-at-point)))])
#@33 Pop up a frame and enter GROUP.
(defalias 'gnus-fetch-group-other-frame #[(group) "\303!\211\203�\304\305	!!\210\202%�\306 G\307U\203!�\304\310 !\210\202%�\311\307!\210)\312\n!\207" [gnus-group-buffer window group get-buffer-window select-frame window-frame frame-list 1 make-frame other-frame gnus-fetch-group] 4 (#$ . 72451) "P"])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\301\207" [current-load-list gnus-ephemeral-group-server default-boundp set-default 0] 3)
#@309 The number of articles which indicates a large ephemeral newsgroup.
Same as `gnus-large-newsgroup', but only used for ephemeral newsgroups.

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-ephemeral-newsgroup '200 '(#$ . 72936) :version "22.1" :group 'gnus-group-select :type '(choice (const :tag "No limit" nil) integer))
#@75 Same as `gnus-fetch-old-headers', but only used for ephemeral newsgroups.
(custom-declare-variable 'gnus-fetch-old-ephemeral-headers 'nil '(#$ . 73421) :version "22.1" :group 'gnus-thread :type '(choice (const :tag "off" nil) (const some) number (sexp :menu-tag "other" t)))
#@434 Read GROUP from METHOD as an ephemeral group.
If ACTIVATE, request the group first.
If QUIT-CONFIG, use that window configuration when exiting from the
ephemeral group.
If REQUEST-ONLY, don't actually read the group; just request it.
If SELECT-ARTICLES, only select those articles.
If PARAMETERS, use those as the group parameters.
If NUMBER, fetch this number of articles.

Return the name of the group if selection was successful.
(defalias 'gnus-group-read-ephemeral-group #[(group method &optional activate quit-config request-only select-articles parameters number) ";\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,))@\211%A@)\316P\317\310\320@\"!\211%A@)D\211%AA)BBB\321-!\203 -\202;\322-.\323\324.\"\2036.\325\225\312O\2028.)\"-\317-/\"\326\312-0\312\211\203X\327B\202_\32712BB3B\257EL\2104B45q\210\330!\204~\331\332\333!\"\2106\203\230\334-\335\"\210\336-!\204\230\331\337\340@!\"\2107\203\242-\202\246\312\341\342\217)\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@)#\211B\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) "-ephemeral" intern "%s-address" gnus-group-foreign-p gnus-group-prefixed-name string-match "^[^:]+:" 0 -1 quit-config gnus-check-server error "Unable to contact server: %s" gnus-status-message gnus-activate-group scan gnus-request-group "Couldn't request group: %s" nnheader-get-report (byte-code "	\306\f\206\n�\307\307
$*\205�
\207" [gnus-large-ephemeral-newsgroup gnus-fetch-old-ephemeral-headers gnus-fetch-old-headers gnus-large-newsgroup number group gnus-group-read-group t select-articles] 5) ((quit (message "Quit reading the ephemeral group") nil)) gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match alist nocache result group gname gnus-newsrc-hashtb gnus-level-default-subscribed gnus-summary-buffer gnus-current-window-configuration parameters gnus-ephemeral-servers gnus-group-buffer activate request-only] 12 (#$ . 73703) (list (gnus-group-completing-read "Group: ") (gnus-read-method "From method: "))])
#@147 URL for downloading mbox files.
It must contain three "%s".  They correspond to the group, the
minimal and maximal article numbers, respectively.
(custom-declare-variable 'gnus-gmane-group-download-format '"http://download.gmane.org/%s/%s/%s" '(#$ . 76859) :group 'gnus-group-foreign :version "23.1" :type 'string)
(autoload 'url-insert-file-contents "url-handlers")
#@238 Read articles from Gmane group GROUP as an ephemeral group.
START is the first article.  RANGE specifies how many articles
are fetched.  The articles are downloaded via HTTP using the URL
specified by `gnus-gmane-group-download-format'.
(defalias 'gnus-read-ephemeral-gmane-group #[(group start &optional range) "\204�\306\307W\203�\310\311\"\210\312\313\314	\n$!\315\211\316\317\320!!\321\216r
q\210\322\313	\n\211\\$!\210\323ed\f#\210\324\313\325	\n$\326\f\327BB\"\210)r
q\210\323\330\211\330\331%\210,\332\f!*\207" [range group start gnus-thread-sort-functions tmpfile #1=#:temp-buffer 500 1 error "Invalid range: %s" make-temp-file format "%s.start-%s.range-%s." (gnus-thread-sort-by-number) get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) url-insert-file-contents write-region gnus-group-read-ephemeral-group "%s.start-%s.range-%s" nndoc ((nndoc-article-type mbox)) nil 0 delete-file #2=#:temp-file gnus-gmane-group-download-format] 8 (#$ . 77233) (list (gnus-group-completing-read "Gmane group: ") (read-number "Start article number: ") (read-number "How many articles: "))])
#@286 Create an ephemeral Gmane group from URL.

Valid input formats include:
"http://thread.gmane.org/gmane.foo.bar/12300/focus=12399",
"http://thread.gmane.org/gmane.foo.bar/12345/",
"http://article.gmane.org/gmane.foo.bar/12345/",
"http://news.gmane.org/group/gmane.foo.bar/thread=12345"
(defalias 'gnus-read-ephemeral-gmane-group-url #[(url) "\304\211\211\305\306\"\203'�\307\310\"\311\307\312\"!\313\311\307\314\"!	\315#\202P�\305\316\"\204<�\305\317\"\204<�\305\320\"\203K�\307\310\"\311\307\312\"!\202P�\321\322\"\210\323\n	#+\207" [range start group url nil string-match "^http://thread.gmane.org/\$[^/]+\$/\$[0-9]+\$/focus=\$[0-9]+\$$" match-string 1 string-to-number 2 - 3 -1 "^http://\$?:thread\\|article\\|permalink\$.gmane.org/\$[^/]+\$/\$[0-9]+\$" "^\$?:nntp\\|news\$://news.gmane.org/\$[^/]+\$/\$[0-9]+\$" "^http://news.gmane.org/group/\$[^/]+\$/thread=\$[0-9]+\$" error "Can't parse URL %s" gnus-read-ephemeral-gmane-group] 5 (#$ . 78430) (list (gnus-group-completing-read "Gmane URL: "))])
#@199 Alist of symbols for bug trackers and the corresponding URL format string.
The URL format string must contain a single "%s", specifying
the bug number, and browsing the URL must return mbox output.
(custom-declare-variable 'gnus-bug-group-download-format-alist ''((emacs . "http://emacsbugs.donarmstrong.com/cgi-bin/bugreport.cgi?mbox=yes;bug=%s") (debian . "http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=%s&mbox=yes")) '(#$ . 79479) :group 'gnus-group-foreign :version "23.1" :type '(repeat (cons (symbol) (string :tag "URL format string"))))
#@39 Browse bug NUMBER as ephemeral group.
(defalias 'gnus-read-ephemeral-bug-group #[(number mbox-url) ";\203	�\305!\306\307!\211\310\311\312!!\313\216r\nq\210\314\315\f\"!\210\316ed	#\210\317\320\321	\322BB\"\210)r\nq\210\316\323\211\323\324%\210,\325	!)\207" [number tmpfile #1=#:temp-buffer #2=#:temp-file mbox-url string-to-number make-temp-file "gnus-temp-group-" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) url-insert-file-contents format write-region gnus-group-read-ephemeral-group "gnus-read-ephemeral-bug" nndoc ((nndoc-article-type mbox)) nil 0 delete-file] 7 (#$ . 80032) (list (read-string "Enter bug number: " (thing-at-point 'word) nil) (cdr (assoc 'emacs gnus-bug-group-download-format-alist)))])
#@46 Browse Debian bug NUMBER as ephemeral group.
(defalias 'gnus-read-ephemeral-debian-bug-group #[(number) "\302\303\304	\"A\"\207" [number gnus-bug-group-download-format-alist gnus-read-ephemeral-bug-group assoc debian] 5 (#$ . 80849) (list (read-string "Enter bug number: " (thing-at-point 'word) nil))])
#@45 Browse Emacs bug NUMBER as ephemeral group.
(defalias 'gnus-read-ephemeral-emacs-bug-group #[(number) "\302\303\304	\"A\"\207" [number gnus-bug-group-download-format-alist gnus-read-ephemeral-bug-group assoc emacs] 5 (#$ . 81160) (list (read-string "Enter bug number: " (thing-at-point 'word) nil))])
#@126 Jump to newsgroup GROUP.

If PROMPT (the prefix) is a number, use the prompt specified in
`gnus-group-jump-to-group-prompt'.
(defalias 'gnus-group-jump-to-group #[(group &optional prompt) "\301\232\203\n�\302\303!\210\304!\204�\305!\204�\306!\210\305!\210\307 \207" [group "" error "Empty group name" gnus-ephemeral-group-p gnus-group-goto-group gnus-group-update-group gnus-group-position-point] 2 (#$ . 81469) (list (gnus-group-completing-read "Group: " nil nil (gnus-read-active-file-p) (if current-prefix-arg (cdr (assq current-prefix-arg gnus-group-jump-to-group-prompt)) (or (and (stringp gnus-group-jump-to-group-prompt) gnus-group-jump-to-group-prompt) (let ((p (cdr (assq 0 gnus-group-jump-to-group-prompt)))) (and (stringp p) p))))))])
#@131 Goto to newsgroup GROUP.
If FAR, it is likely that the group is not on the current line.
If TEST-MARKED, the line must be marked.
(defalias 'gnus-group-goto-group #[(group &optional far test-marked) "\205\365�\306 \210	\204/�\307`\310\"\311\n\"\312!\204�\313L\210)=\203/�\f\203-�\314 \203/�`\207	\204`�\212\315y\210\307`\310\"\311\n\"\312!\204J�\313L\210)=\205W�\f?\206W�\314 )\203`�\315y\210`\207	\204\221�\212\316y\210\307`\310\"\311\n\"\312!\204{�\313L\210)=\205\210�\f?\206\210�\314 )\203\221�\316y\210`\207\f\203\325�eb\210\313
\204\322�\317`d\310\311\n\"\312!\204\261�\313L\210)$\211\205\275�b)\203\322�\314 \203\314�\320\211\202\233�\316y\210\202\232�
)\207\317ed\310\311\n\"\312!\204\350�\313L\210)$\211\205\364�b)\207" [group far gnus-active-hashtb symbol test-marked found beginning-of-line get-text-property gnus-group intern boundp nil gnus-group-mark-line-p -1 1 text-property-any t point] 8 (#$ . 82229)])
#@143 Go to next N'th newsgroup.
If N is negative, search backward instead.
Returns the difference between N and the number of skips actually
done.
(defalias 'gnus-group-next-group #[(n &optional silent) "\302\303\304	$\207" [n silent gnus-group-next-unread-group t nil] 5 (#$ . 83193) "p"])
#@349 Go to next N'th unread newsgroup.
If N is negative, search backward instead.
If ALL is non-nil, choose any newsgroup, unread or not.
If LEVEL is non-nil, choose the next group with level LEVEL, or, if no
such group can be found, the next group with a level higher than
LEVEL.
Returns the difference between N and the number of skips actually
made.
(defalias 'gnus-group-next-unread-group #[(n &optional all level silent) "\306W\307!\306V\203\"�\310	\n?\206�\f#\203\"�S\211\202	�\306U\204C�
\204C�\311\312\313\2037�\314\2028�\315\f\203@�\316\202A�\314$\210*\207" [n backward gnus-group-goto-unread all level silent 0 abs gnus-group-search-forward gnus-message 7 "No more%s newsgroups%s" "" " unread" " on this level or higher"] 6 (#$ . 83487) "p"])
#@104 Go to previous N'th newsgroup.
Returns the difference between N and the number of skips actually
done.
(defalias 'gnus-group-prev-group #[(n) "\301[\302\"\207" [n gnus-group-next-unread-group t] 3 (#$ . 84254) "p"])
#@111 Go to previous N'th unread newsgroup.
Returns the difference between N and the number of skips actually
done.
(defalias 'gnus-group-prev-unread-group #[(n) "\301[!\207" [n gnus-group-next-unread-group] 2 (#$ . 84478) "p"])
#@168 Go to next N'th unread newsgroup on the same level.
If N is negative, search backward instead.
Returns the difference between N and the number of skips actually
done.
(defalias 'gnus-group-next-unread-group-same-level #[(n) "\301\302\303 #\210\304 \207" [n gnus-group-next-unread-group t gnus-group-group-level gnus-group-position-point] 4 (#$ . 84709) "p"])
#@125 Go to next N'th unread newsgroup on the same level.
Returns the difference between N and the number of skips actually
done.
(defalias 'gnus-group-prev-unread-group-same-level #[(n) "\301[\302\303 #\210\304 \207" [n gnus-group-next-unread-group t gnus-group-group-level gnus-group-position-point] 4 (#$ . 85076) "p"])
#@84 Go to the group with the highest level.
If EXCLUDE-GROUP, do not go to that group.
(defalias 'gnus-group-best-unread-group #[(&optional exclude-group) "eb\210\304\305\211m\204E�\306`\307\"\211\247\203?�	\310V\203?�\306`\311\"\203?�\306`\311\"\nW\203?�\2038�\312 \232\204?�\306`\311\"`\313y\210\202	�\203L�b\210\314 \210\205U�\312 +\207" [best-point unread best exclude-group 100000 nil get-text-property gnus-unread 0 gnus-level gnus-group-group-name 1 gnus-group-position-point] 4 (#$ . 85400) nil])
#@45 Go to the first group with unread articles.
(defalias 'gnus-group-first-unread-group #[nil "`\302eb\210\303 \211\304=\204#�\247\203�\305!\203#�\305\306\307!!\203'�`\202+�	b\210\302*\310 \210\207" [unread opoint nil gnus-group-group-unread t zerop gnus-group-next-unread-group 1 gnus-group-position-point] 3 (#$ . 85918) nil])
#@28 Jump to the server buffer.
(defalias 'gnus-group-enter-server-mode #[nil "\300 \207" [gnus-enter-server-buffer] 1 (#$ . 86256) nil])
#@59 Add a new newsgroup.
The user will be prompted for GROUP.
(defalias 'gnus-group-make-group-simple #[(&optional group) "\304\305\306	\"\203�	\307\225\310O\202�	)\305\311	\"\203/�\312\313\314\315	\"\314\316	\"\206+�\317#\202:�\312\313\n@\n\211A@)#)\310\211\320%\207" [group gname gnus-select-method x gnus-group-make-group string-match "^[^:]+:" 0 nil "^\$[^:+]+\$\$?:\\+\\([^:]*\$\\)?:" format "%s:%s" match-string 1 2 "" t] 9 (#$ . 86395) (list (gnus-group-completing-read "Group: "))])
#@228 Add a new newsgroup.
The user will be prompted for a NAME, for a select METHOD, and an
ADDRESS.  NAME should be a human-readable string (i.e., not be encoded
even if it contains non-ASCII characters) unless ENCODED is non-nil.
(defalias 'gnus-group-make-group #[(name &optional method address args encoded) ";\203\363�\211\203�	<\203�	\206\355�\306	\n\"A\206\355�	\307\232\203&�\206\335�\306	\f\"A\206\335�\306	
\"A\206\335�566\203e�	\310\3116\2117@@)@6\2117@@)A@#\232\204e�6\211A6@\210\202:�6\2117@@*\206\335�899\203\235�	\310\3119\2117@@)9\2117@A)@#\232\204\235�9\211A9@\210\202t�9@)\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>))\206\362�?\204\316@\317@\"\"@\320\205\321\"?\205)\203\322!)D\202!A\203/\323@A\"\2021@B\312\211CD\324BE\"J\203K\325\326\327B!\"\210\330\331BF\312\211A\257\211DFG\332 \205j\324\332 E\"J\331%\210\322BH\"\333\334BL\210\335@!\204\212\336\337\340DA!\341Q!\210\342B!\210\343y\210\344 \210\306\345\312AI;\203\216\211\203\261	<\203\261	\206\212\306	\n\"A\206\212	\307\232\203\303\206z\306	\f\"A\206z\306	
\"A\206z566\203	\310\3116\2117@@)@6\2117@@)A@#\232\2046\211A6@\210\202\3276\2117@@*\206z899\203:	\310\3119\2117@@)9\2117@A)@#\232\204:9\211A9@\210\2029@)\206z:A\312\211;<<\203w\313<\211A<@8\211;\204K	\312=\314\346\215*\232\203K;\312\211<\204P;+\211>\203\207	>B\nB>))\202\377\232\203\230\202\377@;\203\253I\203\253\347I\"\202\377\203\304I\204\304\2117A@)\350\232\203\304\202\377\345@!J\351\306JK\">\203\375\322J\352P!\236\204\375\353@K\236>\203\375\354\322J\352P!A@DC\"\202\376**@\211C!K\"\203\355C!\210\356A!\210\357BIL\312\360\361\217*\2036\362B\312M#\2046\325\363\364C!\"\210,\331\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@)#\211B\211\235\204H�B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#1=(name-method) "A	\232\205\f�\302\303@\"\207" [name-method method throw server-name] 3] #[#2=(server-alist) "\301\302\"\207" [server-alist mapc #[#3=(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] #4=(nil #5="") format #6="%s" #7="%s:%s" x name name-method] 5) mm-encode-coding-string gnus-group-name-charset gnus-method-simplify gnus-server-equal intern gnus-group-prefixed-name intern-soft error "Group %s already exists" gnus-group-decoded-name gnus-group-change-level t gnus-group-group-name 1 0 gnus-ephemeral-group-p gnus-dribble-enter "(gnus-group-set-info '" gnus-prin1-to-string ")" gnus-group-insert-group-line-info -1 gnus-group-position-point symbol-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@)#\211B\211\235\204H�B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#1# "A	\232\205\f�\302\303@\"\207" [name-method method throw server-name] 3] #[#2# "\301\302\"\207" [server-alist mapc #[#3# "\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] #4# format #6# #7# x name name-method] 5) gnus-server-extend-method #5# address "-address" physical-address append require gnus-check-server request-create-group (byte-code ";\203\f�\303!@\202
�\304	!\204�\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) gnus-request-create-group "Could not create group on server: %s" nnheader-get-report gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match alist nocache result encoded name meth nname backend info gnus-newsrc-hashtb gnus-level-default-subscribed gnus-level-killed gnus-active-hashtb group method-name gnus-valid-select-methods func args] 8 (#$ . 86900) (list (gnus-read-group "Group name: ") (gnus-read-method "From method: "))])
#@66 Delete the current group.  Only meaningful with editable groups.
(defalias 'gnus-group-delete-groups #[(&optional arg) "\302!G\303	\304U\203�\305\202�\306\307	\"!\205�\310\311\")\207" [arg n gnus-group-process-prefix gnus-yes-or-no-p 1 "Delete this 1 group? " format "Delete these %d groups? " gnus-group-iterate #[(group) "\301\302\303#\207" [group gnus-group-delete-group nil t] 4]] 4 (#$ . 91421) "P"])
#@407 Delete the current group.  Only meaningful with editable groups.
If FORCE (the prefix) is non-nil, all the articles in the group will
be deleted.  This is "deleted" as in "removed forever from the face
of the Earth".  There is no undo.  The user will be prompted before
doing the deletion.
Note that you also have to specify FORCE if you want the group to
be removed from the server, even when it's empty.
(defalias 'gnus-group-delete-group #[(group &optional force no-prompt) "\204�\306\307!\210\310\311\312\313\217*\204�\306\314!\210\315!?\2051�\316\317\320\n\f\203-�\321\202.�\322#!??\205a�\323\324\325\n#\210\326\f\"\204J�\327\330\331\n#\202a�\323\324\332\n#\210\333!\210\334\335\336\"\210\337
\"\311L\210\336)\340 \210\207" [group func group-decoded no-prompt force gnus-active-hashtb error "No group to delete" request-delete-group nil (byte-code ";\203\f�\303!@\202
�\304	!\204�\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) "This back end does not support group deletion" gnus-group-decoded-name gnus-yes-or-no-p format "Do you really want to delete %s%s? " " and all its contents" "" gnus-message 6 "Deleting group %s..." gnus-request-delete-group gnus-error 3 "Couldn't delete group %s" "Deleting group %s...done" gnus-group-goto-group gnus-group-kill-group 1 t intern gnus-group-position-point] 5 (#$ . 91841) (list (gnus-group-group-name) current-prefix-arg)])
#@129 Rename group from GROUP to NEW-NAME.
When used interactively, GROUP is the group under point
and NEW-NAME will be prompted for.
(defalias 'gnus-group-rename-group #[(group new-name) "\306\307\310\311\217*\204�\312\313!\210\204�\312\314!\210\315\316\n\"\203)�\n\317\225\307O\202*�\n)\232\2034�\312\320!\210\321!\203>�\202\\�\322\315\316\n\"\203P�\n\317\225\307O\202Q�\n)\323\324\325\f\"J88\"\326!\326!(\325)\"J\203t�\312\327
\"\210\330\331\332(
$\210\333!\210\334 *W\203\217�\335\"\204\231�\336\337\340(
$\202\300�\341 \210+\211,@A)\240\210\342 \210\343)\"\325)\"JL\210\330\331\344(
$\210\345-\"-\343)\"\307L\210\346 \210\347 \210*\207" [group func gname new-name gnus-newsrc-hashtb decoded-new-name request-rename-group nil (byte-code ";\203\f�\303!@\202
�\304	!\204�\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) error "This back end does not support renaming groups" "No group to rename" string-match "^[^:]+:" 0 "Can't rename to the same name" gnus-group-native-p gnus-group-prefixed-name 4 2 intern-soft gnus-group-decoded-name "The group %s already exists" gnus-message 6 "Renaming group %s to %s..." gnus-group-goto-group gnus-group-group-level gnus-request-rename-group gnus-error 3 "Couldn't rename group %s to %s" gnus-group-kill-group gnus-group-yank-group intern "Renaming group %s to %s...done" delete gnus-dribble-touch gnus-group-position-point decoded-group gnus-active-hashtb gnus-level-zombie gnus-list-of-killed-groups x gnus-killed-list] 8 (#$ . 93337) (let ((group (gnus-group-group-name)) method new-name) (unless (gnus-check-backend-function 'request-rename-group group) (error "This back end does not support renaming groups")) (setq new-name (gnus-read-group "Rename group to: " (gnus-group-real-name (gnus-group-decoded-name group))) method (gnus-info-method (gnus-get-info group))) (list group (mm-encode-coding-string new-name (gnus-group-name-charset method (gnus-group-prefixed-name new-name method)))))])
#@37 Edit the group on the current line.
(defalias 'gnus-group-edit-group #[(group &optional part) "\206�\301\304\n\204�\305\306!\210\307\310\n\"J8\211\204 �\305\311!\210\304\312\313\217\210\314\315=\2036�\316	8\206C�\317\202C�\320=\203B�\321	8\202C�	\322\323\315=\203O�\324\202Z�\320=\203Y�\325\202Z�\326\327\n!#\330\331\332\333D\n\334BBBE#\210\335\336\337\315=\203y�\340\202\204�\320=\203\203�\341\202\204�\342!\"*\207" [part info group gnus-newsrc-hashtb nil error "No group on current line" 2 intern-soft "Killed group; can't be edited" (gnus-close-group group) ((error)) gnus-edit-form method 4 "native" params 5 format "Editing the %s for `%s'." "select method" "group parameters" "group info" gnus-group-decoded-name lambda (form) gnus-group-edit-group-done quote (form) local-set-key "	" gnus-create-info-command "(gnus)Select Methods" "(gnus)Group Parameters" "(gnus)Group Info"] 9 (#$ . 95423) (list (gnus-group-group-name))])
#@34 Edit the select method of GROUP.
(defalias 'gnus-group-edit-group-method #[(group) "\301\302\"\207" [group gnus-group-edit-group method] 3 (#$ . 96376) (list (gnus-group-group-name))])
#@37 Edit the group parameters of GROUP.
(defalias 'gnus-group-edit-group-parameters #[(group) "\301\302\"\207" [group gnus-group-edit-group params] 3 (#$ . 96568) (list (gnus-group-group-name))])
#@19 Update variables.
(defalias 'gnus-group-edit-group-done #[(part group form) "\305=\203\f�\306	8\202�\302=\203�	\202�\307\305=\203\"�	\2023�\302=\2032�\310\311\f\"J8\2023�\307\211\205z�\n\203D�\312\n\"\203_�
@\313\314\"\203Y�\315\225\307O\202[�)\202z�\316
@\313\314\"\203u�\315\225\307O\202w�)\n\"\211\203\226�\232\204\226�\317!\203\221�\320\321!\210\322!\210
\203\237�\204\255�\323	\206\247�#\210\202\336�\324
!\211\240\210\312\n\325\"\204\332�\326
\233\204\311�
\307\211D\244\210\306
\233\204\324�
\307C\244\210\306
\233\n\240\210\323
!\210\327\206\345�!\210\330 +\207" [part form method group gnus-newsrc-hashtb info 4 nil 2 intern-soft gnus-server-equal string-match "^[^:]+:" 0 gnus-group-prefixed-name gnus-group-goto-group gnus-group-kill-group 1 gnus-activate-group gnus-group-set-info gnus-copy-sequence "native" 3 gnus-group-update-group gnus-group-position-point gnus-select-method gname new-group] 5 (#$ . 96767)])
#@61 Create one of the groups described in `gnus-useful-groups'.
(defalias 'gnus-group-make-useful-group #[(group method) "\304!\305\306\236>\211\203�	\306	\211@A)@!\240\210\202�)\307\"\207" [method entry x group gnus-copy-sequence nil eval gnus-group-make-group] 4 (#$ . 97747) (let ((entry (assoc (completing-read "Create group: " gnus-useful-groups nil t) gnus-useful-groups))) (list (cadr entry) (car (cddr entry))))])
#@236 Create the Gnus documentation group.
Optional argument NOERROR modifies the behavior of this function when the
group already exists:
- if not given, and error is signaled,
- if t, stay silent,
- if anything else, just print a message.
(defalias 'gnus-group-make-help-group #[(&optional noerror) "\305\306\307\"\310\311\312\"\313	\n\"J\203-�\314=\203�\315\316!\210\202X�\312=\204X�\317\320\316\"\210\202X�\2049�\317\320\321\"\210\202X�\322	\323\324\f\"\203K�\f\325\225\314O\202L�\f)\326\306\327D\330\331DF\"\210*\332 \207" [file name gnus-newsrc-hashtb noerror gname gnus-group-prefixed-name "gnus-help" (nndoc "gnus-help") nnheader-find-etc-directory "gnus-tut.txt" t intern-soft nil error "Documentation group already exists" gnus-message 1 "Couldn't find doc group" gnus-group-make-group string-match "^[^:]+:" 0 nndoc nndoc-address nndoc-article-type mbox gnus-group-position-point] 7 (#$ . 98183) nil])
#@113 Create a group that uses a single file as the source.

If called with a prefix argument, ask for the file type.
(defalias 'gnus-group-make-doc-group #[(file type) "\306=\203b�\307\310\211	\204_�\311\312\"\210\313 \211\314U\203\"�\315\202Z�\n\316U\203,�\317\202Z�\n\320U\2036�\321\202Z�\n\322U\203@�\323\202Z�\n\324U\203J�\325\202Z�\n\326U\203T�\327\202Z�\330\331\n\"\310\211\203�	+\332\f!\333\334\335\f!\336\"!\337\f\340\fD\341\206z�\327DF)\342)
\"*)A\343\f*\"\240\210\344\343
+\345\346+\"\203\245�+\347\225\310O\202\247�+)*\")\310\211\350%+\207" [type found char err file name ask #1="" nil message "%sFile type (mbox, babyl, digest, forward, mmdf, guess) [m, b, d, f, a, g]: " read-char 109 mbox 98 babyl 100 digest 102 forward 97 mmfd 103 guess format "%c unknown. " expand-file-name gnus-generate-new-group-name gnus-group-prefixed-name file-name-nondirectory (nndoc #1#) nndoc nndoc-address nndoc-article-type gnus-group-name-charset mm-encode-coding-string gnus-group-make-group string-match "^[^:]+:" 0 t method coding gname] 7 (#$ . 99105) (list (read-file-name "File name: ") (and current-prefix-arg 'ask))])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\304\207" [current-load-list gnus-group-web-type-history default-boundp set-default nil gnus-group-web-search-history] 3)
#@79 Create an ephemeral nnweb group.
If SOLID (the prefix), create a solid group.
(defalias 'gnus-group-make-web-group #[(&optional solid) "\306\307!\210\203�\310\311!\202�\312 \n@\206�\313\211@@)!\314\315!\316\317@\206-�\320\321B\322#\307	\323D\324\325!D\326BBBB \203\\�\327\330 \236 \" \331	 \"\202p�\332	 \333p!\334=\203m�\335\202n�\301B$-\207" [solid group gnus-group-web-type-history nnweb-type-definition x default-type require nnweb gnus-read-group "Group name: " message-unique-id symbol-name gnus-string-or-1 ((completing-read (format "Search engine type (default %s): " default-type) (mapcar (lambda (elem) (list (symbol-name (car elem)))) nnweb-type-definition) nil t nil 'gnus-group-web-type-history) default-type) read-string "Search string: " "" 0 gnus-group-web-search-history nnweb-search nnweb-type intern ((nnweb-ephemeral-p t)) delq nnweb-ephemeral-p gnus-group-make-group gnus-group-read-ephemeral-group t gnus-summary-mode summary type search method major-mode] 8 (#$ . 100467) "P"])
#@95 Given a URL, discover if there is an RSS feed.
If there is, use Gnus to create an nnrss group
(defalias 'gnus-group-make-rss-group #[(&optional url) "\306\307!\210\204\f�\310\311!\312!\211\203j�\313\310\314\313\315\316\317\320\302	\"A\206$�\321!\322#!\"!\310\323\315\316\317\320\324	\"A\2069�\321!\322#\"\320\304	\"A\325\326\n\"\211\203U�\327\330\n
\"
\"\331\n\332\"\210\n\fEB\333\334!,\202n�\335\336\")\207" [url feedinfo title desc href coding require nnrss read-from-minibuffer "URL to Search for RSS: " nnrss-discover-feed gnus-newsgroup-savable-name "Title: " mapconcat identity split-string assoc #1="" " " "Description: " description gnus-group-name-charset (nnrss #1#) mm-decode-coding-string mm-encode-coding-string gnus-group-make-group (nnrss #1#) nnrss-save-server-data nil error "No feeds found for %s" nnrss-group-alist] 11 (#$ . 101500) nil])
(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-group-warchive-type-history default-boundp set-default nil gnus-group-warchive-login-history gnus-group-warchive-address-history] 3)
#@28 Create a nnwarchive group.
(defalias 'gnus-group-make-warchive-group #[nil "\306\307!\210\310\311!	@\206�\312\n\211@@)!\313\314!\315\316\317\320#@\206)�\313\321!\307\322\323
!D\324DF\325\".\207" [group gnus-group-warchive-type-history nnwarchive-type-definition x default-type type require nnwarchive gnus-read-group "Group name: " symbol-name gnus-string-or-1 ((completing-read (format "Warchive type (default %s): " default-type) (mapcar (lambda (elem) (list (symbol-name (car elem)))) nnwarchive-type-definition) nil t nil 'gnus-group-warchive-type-history) default-type) read-string "Warchive address: " nil gnus-group-warchive-address-history ((read-string (format "Warchive login (default %s): " user-mail-address) default-login 'gnus-group-warchive-login-history) user-mail-address) nnwarchive-type intern nnwarchive-login gnus-group-make-group address gnus-group-warchive-login-history user-mail-address default-login login method] 6 (#$ . 102678) nil])
#@104 Create the (ding) Gnus archive group of the most recent articles.
Given a prefix, create a full group.
(defalias 'gnus-group-make-archive-group #[(&optional all) "\306\203	�\307\202\n�\310\311\"\312	\n\"J\203�\313\314!\210\315	\316\317\"\203+�\320\225\321O\202,�)\322\2036�\323\2027�\324\325\203@�\f\202A�
DE\"\210\326	\327\330B\")\207" [all group gnus-newsrc-hashtb gname gnus-group-archive-directory gnus-group-recent-archive-directory gnus-group-prefixed-name "ding.archives" "ding.recent" (nndir "") intern-soft error "Archive group already exists" gnus-group-make-group string-match "^[^:]+:" 0 nil nndir "hpc" "edu" nndir-directory gnus-group-add-parameter to-address "ding@gnus.org"] 6 (#$ . 103672) "P"])
#@223 Create an nndir group.
The user will be prompted for a directory.  The contents of this
directory will be used as a newsgroup.  The directory should contain
mail messages or news articles in files that have numeric names.
(defalias 'gnus-group-make-directory-group #[(dir) "\306!\204\n�\307\310!\210\311!\204�\307\312!\210\313\314\315	\203&�\316	\f\"J\2039�\317\320\"\321\"\322\323\nT\211\"\202�\324	\325\326
\"\203K�
\314\225\315O\202L�
)\327	\325\326
\"\203_�
\314\225\315O\202`�
)\330DE\"+\207" [dir group i ext gnus-newsrc-hashtb gname file-exists-p error "No such directory" file-directory-p "Not a directory" #1="" 0 nil intern-soft gnus-group-prefixed-name expand-file-name (nndir #1#) format "<%d>" gnus-group-make-group string-match "^[^:]+:" nndir nndir-directory] 6 (#$ . 104401) (list (read-file-name "Create group from directory: "))])
#@152 Create an nnkiboze group.
The user will be prompted for a name, a regexp to match groups, and
score file entries for articles to include in the group.
(defalias 'gnus-group-make-kiboze-group #[(group address scores) "\306\307	#\210\310\311!@\312!\313\f!\204�\314\f!\210\315\316\317!!\320\216r
q\210\321\322!*r
q\210\323\321\211\321\324%\210.\207" [group address nnkiboze-current-group score-file score-dir #1=#:temp-buffer gnus-group-make-group "nnkiboze" nnkiboze-score-file "" file-name-directory file-exists-p make-directory get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nil gnus-pp write-region 0 #2=#:temp-file emacs-lisp-mode-hook scores] 7 (#$ . 105272) (list (read-string "nnkiboze group name: ") (read-string "Source groups (regexp): ") (let ((headers (mapcar 'list '("subject" "from" "number" "date" "message-id" "references" "chars" "lines" "xref" "followup" "all" "body" "head"))) scores header regexp regexps) (while (not (equal #3="" (setq header (completing-read "Match on header: " headers nil t)))) (setq regexps nil) (while (not (equal #3# (setq regexp (read-string (format "Match on %s (regexp): " header))))) (push (list regexp nil nil 'r) regexps)) (push (cons header regexps) scores)) scores))])
#@43 Add the current group to a virtual group.
(defalias 'gnus-group-add-to-virtual #[(n vgroup) "\305!@\306=\204�\307\310\"\210\311!\210\312	!\313\314\315\"J88\211A\fA@\316\317\320\n\316#Q\240\210*\321 \207" [vgroup n groups gnus-newsrc-hashtb method gnus-find-method-for-group nnvirtual error "%s is not an nnvirtual group" gnus-close-group gnus-group-process-prefix 4 2 intern-soft "\\|" mapconcat #[(s) "\301!\210\302\303!\304Q\207" [s gnus-group-remove-mark "\$^" regexp-quote "$\$"] 3] gnus-group-position-point] 8 (#$ . 106606) (list current-prefix-arg (completing-read "Add to virtual group: " gnus-newsrc-hashtb nil t "nnvirtual:"))])
#@43 Create a new, fresh, empty virtual group.
(defalias 'gnus-group-make-empty-virtual #[(group) "\304\305D\306	\"\307\n\"J\203�\310\311\n\"\210\312\n\313 #\210\314\n!\210\315y\210\316 *\207" [method group pgroup gnus-newsrc-hashtb nnvirtual "^$" gnus-group-prefixed-name intern-soft error "Group %s already exists" gnus-subscribe-group gnus-group-group-name gnus-group-update-group -1 gnus-group-position-point] 4 (#$ . 107263) "sCreate new, empty virtual group: "])
#@37 Enter an ephemeral nneething group.
(defalias 'gnus-group-enter-directory #[(dir) "\305\306E\307\310\311!!	\"\312\n!\313	\314p\f\315=\203!�\316\202\"�\317B$?\205,�\320\321\"+\207" [dir method leaf name major-mode nneething (nneething-read-only t) gnus-group-prefixed-name file-name-nondirectory directory-file-name gnus-generate-new-group-name gnus-group-read-ephemeral-group t gnus-summary-mode summary group error "Couldn't enter %s"] 7 (#$ . 107739) "DDirectory to read: "])
(byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\207" [autoload nnimap-expunge "nnimap" nnimap-acl-get nnimap-acl-edit] 3)
#@51 Expunge deleted articles in current nnimap GROUP.
(defalias 'gnus-group-nnimap-expunge #[(group) "\306\307	\"\203�	\310\225\311O\202�	)\311\204�\312\313!\210\314\315\f\"J8\204,�\312\316!\210\317!\211@\320=\204<�\312\321\"\210\322\n\211A@)\"*\207" [group gname method mailbox gnus-newsrc-hashtb x string-match "^[^:]+:" 0 nil error "No group on current line" 2 intern-soft "Killed group; can't be edited" gnus-find-method-for-group nnimap "%s is not an nnimap group" nnimap-expunge] 5 (#$ . 108367) (list (gnus-group-group-name))])
#@55 Edit the Access Control List of current nnimap GROUP.
(defalias 'gnus-group-nnimap-edit-acl #[(group) "\306\307	\"\203�	\310\225\311O\202�	)\311\211\204 �\312\313!\210\314\315
\"J8\204.�\312\316!\210\317!\211@\320=\204>�\312\321\"\210\322\f\211A@)\"\211\204Q�\312\323!\210\324\n\325\326\"\327\330\331\f\332D\332\nD\333BBBBE#+\207" [group gname acl method mailbox gnus-newsrc-hashtb string-match "^[^:]+:" 0 nil error "No group on current line" 2 intern-soft "Killed group; can't be edited" gnus-find-method-for-group nnimap "%s is not an nnimap group" nnimap-acl-get "Server does not support ACL's" gnus-edit-form format "Editing the access control list for `%s'.\n\n   An access control list is a list of (identifier . rights) elements.\n\n   The identifier string specifies the corresponding user.  The\n   identifier \"anyone\" is reserved to refer to the universal identity.\n\n   Rights is a string listing a (possibly empty) set of alphanumeric\n   characters, each character listing a set of operations which is being\n   controlled.  Letters are reserved for ``standard'' rights, listed\n   below.  Digits are reserved for implementation or site defined rights.\n\n   l - lookup (mailbox is visible to LIST/LSUB commands)\n   r - read (SELECT the mailbox, perform CHECK, FETCH, PARTIAL,\n       SEARCH, COPY from mailbox)\n   s - keep seen/unseen information across sessions (STORE \\SEEN flag)\n   w - write (STORE flags other than \\SEEN and \\DELETED)\n   i - insert (perform APPEND, COPY into mailbox)\n   p - post (send mail to submission address for mailbox,\n       not enforced by IMAP4 itself)\n   c - create and delete mailbox (CREATE new sub-mailboxes in any\n       implementation-defined hierarchy, RENAME or DELETE mailbox)\n   d - delete messages (STORE \\DELETED flag, perform EXPUNGE)\n   a - administer (perform SETACL)" lambda (form) nnimap-acl-edit quote (form) x] 11 (#$ . 108918) (list (gnus-group-group-name))])
#@208 Sort the group buffer according to FUNC.
When used interactively, the sorting function used will be
determined by the `gnus-group-sort-function' variable.
If REVERSE (the prefix), reverse the sorting order.
(defalias 'gnus-group-sort-groups #[(func &optional reverse) "\303	!\n\"\210\304 \210\305 \210\306 \207" [gnus-group-sort-alist-function func reverse gnus-make-sort-function gnus-group-unmark-all-groups gnus-group-list-groups gnus-dribble-touch] 3 (#$ . 110886) (list gnus-group-sort-function current-prefix-arg)])
(defalias 'gnus-group-sort-flat #[(func reverse) "\205�	@@\303\232\203�	\210	A\304	\"\n\203�	\237\305 \207" [func gnus-newsrc-alist reverse "dummy.group" sort gnus-make-hashtable-from-newsrc-alist] 3])
#@88 Sort the group buffer alphabetically by group name.
If REVERSE, sort in reverse order.
(defalias 'gnus-group-sort-groups-by-alphabet #[(&optional reverse) "\301\302\"\207" [reverse gnus-group-sort-groups gnus-group-sort-by-alphabet] 3 (#$ . 111625) "P"])
#@106 Sort the group buffer alphabetically by real (unprefixed) group name.
If REVERSE, sort in reverse order.
(defalias 'gnus-group-sort-groups-by-real-name #[(&optional reverse) "\301\302\"\207" [reverse gnus-group-sort-groups gnus-group-sort-by-real-name] 3 (#$ . 111888) "P"])
#@88 Sort the group buffer by number of unread articles.
If REVERSE, sort in reverse order.
(defalias 'gnus-group-sort-groups-by-unread #[(&optional reverse) "\301\302\"\207" [reverse gnus-group-sort-groups gnus-group-sort-by-unread] 3 (#$ . 112170) "P"])
#@74 Sort the group buffer by group level.
If REVERSE, sort in reverse order.
(defalias 'gnus-group-sort-groups-by-level #[(&optional reverse) "\301\302\"\207" [reverse gnus-group-sort-groups gnus-group-sort-by-level] 3 (#$ . 112428) "P"])
#@74 Sort the group buffer by group score.
If REVERSE, sort in reverse order.
(defalias 'gnus-group-sort-groups-by-score #[(&optional reverse) "\301\302\"\207" [reverse gnus-group-sort-groups gnus-group-sort-by-score] 3 (#$ . 112670) "P"])
#@73 Sort the group buffer by group rank.
If REVERSE, sort in reverse order.
(defalias 'gnus-group-sort-groups-by-rank #[(&optional reverse) "\301\302\"\207" [reverse gnus-group-sort-groups gnus-group-sort-by-rank] 3 (#$ . 112912) "P"])
#@91 Sort the group buffer alphabetically by back end name.
If REVERSE, sort in reverse order.
(defalias 'gnus-group-sort-groups-by-method #[(&optional reverse) "\301\302\"\207" [reverse gnus-group-sort-groups gnus-group-sort-by-method] 3 (#$ . 113151) "P"])
#@89 Sort the group buffer alphabetically by server name.
If REVERSE, sort in reverse order.
(defalias 'gnus-group-sort-groups-by-server #[(&optional reverse) "\301\302\"\207" [reverse gnus-group-sort-groups gnus-group-sort-by-server] 3 (#$ . 113412) "P"])
#@35 Sort the process/prefixed groups.
(defalias 'gnus-group-sort-selected-groups #[(n func &optional reverse) "\305!\n	\306!\f#\210\307 \210\310 \210\311 )\207" [n groups gnus-group-sort-selected-function func reverse gnus-group-process-prefix gnus-make-sort-function gnus-group-unmark-all-groups gnus-group-list-groups gnus-dribble-touch] 4 (#$ . 113671) (list current-prefix-arg gnus-group-sort-function)])
(defalias 'gnus-group-sort-selected-flat #[(groups func reverse) "\306\211\n\203�\307\n\211A@\"JAA	B\202�\310\311\312	\237\211\"\f\"
\203+�\237\203A�	@\211A@\240\210	\211A@\210\202+�\313 *\207" [infos entries groups gnus-newsrc-hashtb func reverse nil intern-soft sort mapcar #[(entry) "@\207" [entry] 1] gnus-make-hashtable-from-newsrc-alist] 5])
#@148 Sort the group buffer alphabetically by group name.
Obeys the process/prefix convention.  If REVERSE (the symbolic prefix),
sort in reverse order.
(defalias 'gnus-group-sort-selected-groups-by-alphabet #[(&optional n reverse) "\302\303	#\207" [n reverse gnus-group-sort-selected-groups gnus-group-sort-by-alphabet] 4 (#$ . 114450) (gnus-interactive "P\ny")])
#@153 Sort the group buffer alphabetically by real group name.
Obeys the process/prefix convention.  If REVERSE (the symbolic prefix),
sort in reverse order.
(defalias 'gnus-group-sort-selected-groups-by-real-name #[(&optional n reverse) "\302\303	#\207" [n reverse gnus-group-sort-selected-groups gnus-group-sort-by-real-name] 4 (#$ . 114817) (gnus-interactive "P\ny")])
#@148 Sort the group buffer by number of unread articles.
Obeys the process/prefix convention.  If REVERSE (the symbolic prefix),
sort in reverse order.
(defalias 'gnus-group-sort-selected-groups-by-unread #[(&optional n reverse) "\302\303	#\207" [n reverse gnus-group-sort-selected-groups gnus-group-sort-by-unread] 4 (#$ . 115191) (gnus-interactive "P\ny")])
#@134 Sort the group buffer by group level.
Obeys the process/prefix convention.  If REVERSE (the symbolic prefix),
sort in reverse order.
(defalias 'gnus-group-sort-selected-groups-by-level #[(&optional n reverse) "\302\303	#\207" [n reverse gnus-group-sort-selected-groups gnus-group-sort-by-level] 4 (#$ . 115554) (gnus-interactive "P\ny")])
#@134 Sort the group buffer by group score.
Obeys the process/prefix convention.  If REVERSE (the symbolic prefix),
sort in reverse order.
(defalias 'gnus-group-sort-selected-groups-by-score #[(&optional n reverse) "\302\303	#\207" [n reverse gnus-group-sort-selected-groups gnus-group-sort-by-score] 4 (#$ . 115901) (gnus-interactive "P\ny")])
#@133 Sort the group buffer by group rank.
Obeys the process/prefix convention.  If REVERSE (the symbolic prefix),
sort in reverse order.
(defalias 'gnus-group-sort-selected-groups-by-rank #[(&optional n reverse) "\302\303	#\207" [n reverse gnus-group-sort-selected-groups gnus-group-sort-by-rank] 4 (#$ . 116248) (gnus-interactive "P\ny")])
#@151 Sort the group buffer alphabetically by back end name.
Obeys the process/prefix convention.  If REVERSE (the symbolic prefix),
sort in reverse order.
(defalias 'gnus-group-sort-selected-groups-by-method #[(&optional n reverse) "\302\303	#\207" [n reverse gnus-group-sort-selected-groups gnus-group-sort-by-method] 4 (#$ . 116592) (gnus-interactive "P\ny")])
#@22 Sort alphabetically.
(defalias 'gnus-group-sort-by-alphabet #[(info1 info2) "@	@\231\207" [info1 info2] 2 (#$ . 116957)])
#@49 Sort alphabetically on real (unprefixed) names.
(defalias 'gnus-group-sort-by-real-name #[(info1 info2) "@\303\304	\"\203�	\305\225\306O\202�	)\n@\303\304	\"\203&�	\305\225\306O\202'�	)\231\207" [info1 gname info2 string-match "^[^:]+:" 0 nil] 4 (#$ . 117086)])
#@36 Sort by number of unread articles.
(defalias 'gnus-group-sort-by-unread #[(info1 info2) "\305@	\"J@\305\n@	\"J@\211\247\203�\f\206�\306\247\203#�\206$�\306W*\207" [info1 gnus-newsrc-hashtb info2 n2 n1 intern-soft 0] 5 (#$ . 117359)])
#@16 Sort by level.
(defalias 'gnus-group-sort-by-level #[(info1 info2) "A@\211:\203�	@\202�	)\nA@\211:\203�	@\202�	)W\207" [info1 rank info2] 3 (#$ . 117606)])
#@39 Sort alphabetically by back end name.
(defalias 'gnus-group-sort-by-method #[(info1 info2) "\302@\"@\302	@	\"@\231\207" [info1 info2 gnus-find-method-for-group] 4 (#$ . 117775)])
#@37 Sort alphabetically by server name.
(defalias 'gnus-group-sort-by-server #[(info1 info2) "\303@\"\304\305	@	A@#)\303\n@\n\"\304\305	@	A@#)\231\207" [info1 method info2 gnus-find-method-for-group format "%s+%s"] 5 (#$ . 117962)])
#@22 Sort by group score.
(defalias 'gnus-group-sort-by-score #[(info1 info2) "A@\211:\203�	A\206�\303)\nA@\211:\203�	A\206�\303)V\207" [info1 rank info2 0] 3 (#$ . 118201)])
#@26 Sort by level and score.
(defalias 'gnus-group-sort-by-rank #[(info1 info2) "A@\211:\203�	@\202�	)\nA@\211:\203�	@\202�	)\211W\206O�\fU\205O�A@\211:\203<�	A\206=�\305)\nA@\211:\203L�	A\206M�\305)V*\207" [info1 rank info2 level2 level1 0] 3 (#$ . 118384)])
#@94 Clear all marks and read ranges from the current group.
Obeys the process/prefix convention.
(defalias 'gnus-group-clear-data #[(&optional arg) "\301\302\"\207" [arg gnus-group-iterate #[(group) "\304\305\306\307	\n\"J8\211!\210\310\307	\"J\311#\210\312	!\205 �\313 )\207" [info group gnus-newsrc-hashtb gnus-active-hashtb nil gnus-info-clear-data 2 intern-soft gnus-get-unread-articles-in-group t gnus-group-goto-group gnus-group-update-group-line] 5]] 3 (#$ . 118660) "P"])
#@57 Clear all marks and read ranges from all native groups.
(defalias 'gnus-group-clear-data-on-native-groups #[nil "\303\304!\2053�A\305\n\211A@\211\203#�\306	@!\203�\307	!\210\202�\310 \210\311 \210\312\313!\2052�\314\315!*\207" [gnus-newsrc-alist info alist gnus-yes-or-no-p "Really clear all data from almost all groups? " nil gnus-group-native-p gnus-info-clear-data gnus-get-unread-articles gnus-dribble-touch gnus-y-or-n-p "Move the cache away to avoid problems in the future? " call-interactively gnus-cache-move-cache] 2 (#$ . 119147) nil])
#@44 Clear all marks and read ranges from INFO.
(defalias 'gnus-info-clear-data #[(info) "@\306\3078\306\211\203#�\f@\211A\310@CE	B\fA\211\204�*\3118\312B	B\313\314\315\n\316	DE\317\316D\316\3078D\320BBB\321\316D\316\3118DE\322\323\nD\324\316D\316\325\n
\"JD\326BBB\327BBB\257!\210\330\331	\"\315\n	\"\210AA\306\240\210\3078\205\201�\307\233\306\240*\207" [info action group el #1=#:--cl-dolist-temp-- gnus-active-hashtb nil 3 add 2 (add (read)) gnus-undo-register progn gnus-request-set-mark quote gnus-info-set-marks (t) gnus-info-set-read when gnus-group-goto-group gnus-get-unread-articles-in-group intern-soft (t) ((gnus-group-update-group-line)) mapcar #[(el) "@\301\3028E\207" [el del 2] 4]] 13 (#$ . 119706)])
#@337 Mark all unread articles in the current newsgroup as read.
If prefix argument N is numeric, the next N newsgroups will be
caught up.  If ALL is non-nil, marked articles will also be marked as
read.  Cross references (Xref: header) of articles are ignored.
The number of newsgroups that this function was unable to catch
up is returned.
(defalias 'gnus-group-catchup-current #[(&optional n all) "\306!\307\310\211\204�\311\312!\210\f\203@�
\204@�\313\314 \203#�\315\202$�\316G\317U\2032�\320@!\2027�\314\321G\"\"!\204@�\202\251�\211A@\211\203\244�\322	!\210\323	!\211!@\324=\203z�\325	\"\326\327\"\"\203o�\"\307\225\310O\202q�\")!A@ #\210)\330	!#Y\203\214�\331\332\333\"\210\202@�\334	!\335	 \"\210\203\236�\336 \210\202@�\nT\202@�\337\317!\210\n+\207" [n group ret groups gnus-interactive-catchup gnus-expert-user gnus-group-process-prefix 0 nil error "No groups selected" gnus-y-or-n-p format "Do you really want to mark all articles in %s as read? " "Mark all unread articles in %s as read? " 1 gnus-group-decoded-name "these %d groups" gnus-group-remove-mark gnus-find-method-for-group nnvirtual nnvirtual-catchup-group string-match "^[^:]+:" gnus-group-level gnus-message 2 "Dead groups can't be caught up" gnus-group-goto-group gnus-group-catchup gnus-group-update-group-line gnus-group-next-unread-group all method gname gnus-level-zombie] 7 (#$ . 120451) "P"])
#@106 Mark all articles in current newsgroup as read.
Cross references (Xref: header) of articles are ignored.
(defalias 'gnus-group-catchup-current-all #[(&optional n) "\301\302\"\207" [n gnus-group-catchup-current all] 3 (#$ . 121849) "P"])
#@194 Mark all articles in GROUP as read.
If ALL is non-nil, all articles are marked as read.
The return value is the number of articles that were marked as read,
or nil if no action could be taken.
(defalias 'gnus-group-catchup #[(group &optional all) "\306	\"J\211@\307\310\n88\311!\312!\313\314!\"\203(�!\315\225\316O\202*�!)!\210\n@\247\204;�\317\320\321#\202\212�\322\316\"\210\"\203v�\323\324\f\236A\325\326E\327\f\236A\325\330ED\"\210\331\211
\327\f\236A\"\324\f\236A\"\332\324\316\211\333%\210\332\327\316\211\333%\210\334!\203\201�\335\336
\"\210#\337\340!\210),\207" [group gnus-newsrc-hashtb entry num marks unread intern-soft 3 2 gnus-sequence-of-unread-articles nnmail-purge-split-history string-match "^[^:]+:" 0 nil gnus-message 1 "Can't catch up %s; non-active group" gnus-update-read-articles gnus-request-set-mark tick del (tick) dormant (dormant) gnus-range-add gnus-add-marked-articles force gnus-group-auto-expirable-p gnus-range-map #[(article) "\302\303	C#\210\304	C\305\306EC\"\207" [group article gnus-add-marked-articles expire gnus-request-set-mark add (expire)] 5] gnus-run-hooks gnus-group-catchup-group-hook gname all gnus-newsgroup-name] 7 (#$ . 122094)])
#@93 Expire all expirable articles in the current newsgroup.
Uses the process/prefix convention.
(defalias 'gnus-group-expire-articles #[(&optional n) "\303!\304\211\204�\305\306!\210\n\211A@\211\205)�\307	!\210\310	!\210\311 \210\312 \210\202�*\207" [n group groups gnus-group-process-prefix nil error "No groups to expire" gnus-group-remove-mark gnus-group-expire-articles-1 gnus-dribble-touch gnus-group-position-point] 3 (#$ . 123305) "P"])
(defalias 'gnus-group-expire-articles-1 #[(group) "\306\307\310\311\217*\205x�\312\313\314\315!#\210\316\317\n\"J8\320!\203*�\307\321!B\202/�\322\3238\236\324\305\"\324\325\"\206>�\f\203m�\326!\210\f\327
\203_�\307
\330\331\fA!\"*\202f�\330\331\fA!\"!\241\210\332!\210\312\313\333\315!#\210\fA,\207" [group func gnus-newsrc-hashtb info expirable expiry-wait request-expire-articles nil (byte-code ";\203\f�\303!@\202
�\304	!\204�\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) gnus-message 6 "Expiring articles in %s..." gnus-group-decoded-name 2 intern-soft gnus-group-total-expirable-p gnus-list-of-read-articles expire 3 gnus-group-find-parameter expiry-target gnus-check-group gnus-compress-sequence gnus-request-expire-articles gnus-uncompress-sequence gnus-close-group "Expiring articles in %s...done" nnmail-expiry-target nnmail-expiry-wait nnmail-expiry-wait-function] 5])
#@50 Expire all expirable articles in all newsgroups.
(defalias 'gnus-group-expire-all-groups #[nil "\212\302\303\304\"\210\305\306A\"\307\310!\210*\311 \210\302\303\312\"\207" [gnus-newsrc-alist gnus-group-marked gnus-message 5 "Expiring..." mapcar #[(info) "@\207" [info] 1] gnus-group-expire-articles nil gnus-group-position-point "Expiring...done"] 3 (#$ . 124768) nil])
#@46 Set the level of the next N groups to LEVEL.
(defalias 'gnus-group-set-current-level #[(n level) "\305Y\203\f�	X\204�\306\307\"\210\310\n!\311\211\203F�\f@\312!\210\313\314\315\316!\317 \206.�	%\210\320\317 \206:�	#\210\321 \210\fA\211\204�*\322 \207" [level gnus-level-killed n group #1=#:--cl-dolist-temp-- 1 error "Invalid level: %d" gnus-group-process-prefix nil gnus-group-remove-mark gnus-message 6 "Changed level of %s from %d to %d" gnus-group-decoded-name gnus-group-group-level gnus-group-change-level gnus-group-update-group-line gnus-group-position-point] 7 (#$ . 125147) (list current-prefix-arg (progn (unless (gnus-group-process-prefix current-prefix-arg) (error "No group on the current line")) (string-to-number (let ((s (read-string (format "Level (default %s): " (or (gnus-group-group-level) gnus-level-default-subscribed))))) (if (string-match "^\\s-*$" s) (int-to-string (or (gnus-group-group-level) gnus-level-default-subscribed)) s)))))])
#@32 Unsubscribe the current group.
(defalias 'gnus-group-unsubscribe #[(&optional n) "\301\302\"\207" [n gnus-group-unsubscribe-current-group unsubscribe] 3 (#$ . 126129) "P"])
#@30 Subscribe the current group.
(defalias 'gnus-group-subscribe #[(&optional n) "\301\302\"\207" [n gnus-group-unsubscribe-current-group subscribe] 3 (#$ . 126309) "P"])
#@96 Toggle subscription of the current group.
If given numerical prefix, toggle the N next groups.
(defalias 'gnus-group-unsubscribe-current-group #[(&optional n do-sub) "\306!\307\211\203A�\n@\310	!\210\311	\312=\203�\f\2024�\313=\203'�
\2024�\314 X\2033�\f\2024�
\315#\210\316 \210\nA\211\204\n�*\317\320!\207" [n group #1=#:--cl-dolist-temp-- do-sub gnus-level-default-unsubscribed gnus-level-default-subscribed gnus-group-process-prefix nil gnus-group-remove-mark gnus-group-unsubscribe-group unsubscribe subscribe gnus-group-group-level t gnus-group-update-group-line gnus-group-next-group 1 gnus-level-subscribed] 5 (#$ . 126483) "P"])
#@113 Toggle subscription to GROUP.
Killed newsgroups are subscribed.  If SILENT, don't try to update the
group line.
(defalias 'gnus-group-unsubscribe-group #[(group &optional level silent) "\306	\"J\307\310\"\203�\311\312!\210\202\231�\n\203N�\313\n\203\"�\202@�\314\n8A@\211:\2032�\f@\2023�\f)
X\203>�
T\202@�\"\210\204\231�\315!\210\202\231�;\203\224�\316 \203a�\306\"J\203\224�\313\203k�\202m�\235\203y�\206{�\317 \205\206�\306\317 	\"J$\210\204\231�\315!\210\202\231�\311\320\"\210\321 )\207" [group gnus-newsrc-hashtb newsrc level rank gnus-level-subscribed intern-soft string-match "^[ 	]*$" error "Empty group name" gnus-group-change-level 2 gnus-group-update-group gnus-read-active-file-p gnus-group-group-name "No such newsgroup: %s" gnus-group-position-point gnus-level-default-subscribed silent gnus-active-hashtb gnus-zombie-list gnus-level-zombie gnus-level-killed] 8 (#$ . 127138) (list (gnus-group-completing-read "Group: " nil nil (gnus-read-active-file-p)))])
#@157 Move the current newsgroup up N places.
If given a negative prefix, move down instead.  The difference between
N and the number of steps taken is returned.
(defalias 'gnus-group-transpose-groups #[(n) "\301 \204	�\302\303!\210\304\305!\210[y\306 \210\307 \210\207" [n gnus-group-group-name error "No group on current line" gnus-group-kill-group 1 gnus-group-yank-group gnus-group-position-point] 2 (#$ . 128150) "p"])
#@70 Kill all zombie newsgroups.
The optional DUMMY should always be nil.
(defalias 'gnus-group-kill-all-zombies #[(&optional dummy) "?\205�	\n\244\303\304 \210\305 \207" [dummy gnus-zombie-list gnus-killed-list nil gnus-dribble-touch gnus-group-list-groups] 2 (#$ . 128575) (list (not (gnus-yes-or-no-p "Really kill all zombies? ")))])
#@133 Kill newsgroups in current region (excluding current point).
The killed newsgroups can be yanked by using \[gnus-group-yank-group].
(defalias 'gnus-group-kill-region #[(begin end) "\212\303b\210\304 	b\210\304 \")b\210\305 \210\306\n!)\207" [begin end lines count-lines point-at-bol beginning-of-line gnus-group-kill-group] 3 (#$ . 128918) "r"])
#@291 Kill the next N groups.
The killed newsgroups can be yanked by using \[gnus-group-yank-group].
However, only groups that were alive can be yanked; already killed
groups or zombie groups can't be yanked.
The return value is the name of the group that was killed, or a list
of groups killed.
(defalias 'gnus-group-kill-group #[(&optional n discard) "\306\307!\306\211\211\211
G\310W\203w�
\203�
\211A@\211	B\311\f!\210\312 \313 \314y\210`|\210\204Y�\315\f \"J\211\203Y�\316\317\320\321 D\322BB!\210@\3238B!B!\324\203b�\202c�\f\"?\205k�\n#\210\325\326\327\f!\"\210\202�
\237\306\211#\203\374�#@\311\f!\210\313 \314y\210`|\210\f$B$\330\331\f%\"%\"%&\203\257�&\f\"\332#\210\315\f \"J\211\203\324�@\3238B!B!A\211'AA)A\241\210\202\342�\f(\235\203\342�\333\f(\"(\320\f!\203\363�\313 \314y\210`|\210\202\342�#A\211#\204\201�*\334 \210\335 \210	G\323W\203	@\202	\237.\207" [n out level entry group groups nil gnus-group-process-prefix 10 gnus-group-remove-mark gnus-group-group-level point-at-bol 1 intern-soft gnus-undo-register progn gnus-group-goto-group gnus-group-group-name ((gnus-group-yank-group)) 2 gnus-group-change-level message "Killed group %s" gnus-group-decoded-name delq assoc 3 delete gnus-make-hashtable-from-newsrc-alist gnus-group-position-point buffer-read-only discard gnus-newsrc-hashtb gnus-list-of-killed-groups gnus-level-killed #1=#:--cl-dolist-temp-- gnus-killed-list gnus-newsrc-alist gnus-group-change-level-function x gnus-zombie-list] 6 (#$ . 129274) "P"])
#@289 Yank the last newsgroups killed with \[gnus-group-kill-group], inserting it before the current newsgroup.
The numeric ARG specifies how many newsgroups are to be yanked.  The
name of the newsgroup yanked is returned, or (if several groups are
yanked) a list of yanked groups is returned.
(defalias 'gnus-group-yank-group #[(&optional arg) "\206�\306\307\211\211\211S\211\310Y\203f�
\211A@\211\204%�\311\312!\210\fA@\211	B\313 \314\f\211AA@\211:\203C�@\202E�)\n\205R�\315\n\"J\316%\210\317!\210\320\321\322D\323BB!\210\202�\324y\210\325 \210	G\326W\203x�	@\202z�	\237,\207" [arg out prev group info gnus-list-of-killed-groups 1 nil 0 error "No more newsgroups to yank" gnus-group-group-name gnus-group-change-level intern-soft t gnus-group-insert-group-line-info gnus-undo-register when gnus-group-goto-group ((gnus-group-kill-group 1)) -1 gnus-group-position-point 2 rank gnus-level-killed gnus-newsrc-hashtb] 8 (#$ . 130817) "p"])
#@45 Kill all groups that is on a certain LEVEL.
(defalias 'gnus-group-kill-level #[(level) "	U\203�\n\244\306\211\207	W\203q�\307V\203q�\f\204'�\310\311\312\"!\203q�
\211A\211\203j�@A@\211:\203D�@\202F�)U\203]�@@BA\241\210\202a�A\211\2042�\313 \210\314 *\207\315\316\"\207" [level gnus-level-zombie gnus-zombie-list gnus-killed-list gnus-expert-user gnus-newsrc-alist nil 0 gnus-yes-or-no-p format "Do you really want to kill all groups on level %d? " gnus-make-hashtable-from-newsrc-alist gnus-group-list-groups error "Can't kill; invalid level: %d" prev alist rank] 5 (#$ . 131782) "nKill all groups on level: "])
#@141 List all newsgroups with level ARG or lower.
Default is `gnus-level-unsubscribed', which lists all subscribed and most
unsubscribed groups.
(defalias 'gnus-group-list-all-groups #[(&optional arg) "\302\206�	\303\"\207" [arg gnus-level-unsubscribed gnus-group-list-groups t] 3 (#$ . 132439) "P"])
#@157 List all killed newsgroups in the group buffer.
If ARG is non-nil, list ALL killed groups known to Gnus.  This may
entail asking the server for the groups.
(defalias 'gnus-group-list-killed #[(&optional arg) "\203�\305 \210	\204�\306\307\310\"\210\202�\311\f\312\f#\210)eb\210\313 \207" [arg gnus-killed-list gnus-group-list-mode gnus-group-prepare-function gnus-level-killed gnus-get-killed-groups gnus-message 6 "No killed groups" nil t gnus-group-position-point] 4 (#$ . 132744) "P"])
#@49 List all zombie newsgroups in the group buffer.
(defalias 'gnus-group-list-zombies #[nil "\204\f�\304\305\306\"\210\202�\307\n\310#\210)eb\210\311 \207" [gnus-zombie-list gnus-group-list-mode gnus-group-prepare-function gnus-level-zombie gnus-message 6 "No zombie groups" nil t gnus-group-position-point] 4 (#$ . 133244) nil])
#@56 List all groups that are available from the server(s).
(defalias 'gnus-group-list-active #[nil "\306 \204
�\307\302 \210*\310\311\312\313\f\"\210)\314\"\311\211\315 \210\203\212�\211A@\316``T\317\320
!\321\261\210\322\323
\f\"\324!\204O�\311L\210)\325\307\326
\327\330
\"J8A@\211:\203n�@\202p�)\206\202�
\235\203\200�\206\202� )\257#\210\202#�eb+\207" [gnus-plugged gnus-agent gnus-read-active-file list gnus-active-hashtb group gnus-read-active-file-p t sort nil mapatoms #[(sym) "\302!\205�J\205�\303!	B\211\207" [sym list boundp symbol-name] 2] string< erase-buffer gnus-add-text-properties "       *: " gnus-group-decoded-name "\n" gnus-group intern boundp gnus-unread gnus-level 2 intern-soft buffer-read-only groups symbol gnus-newsrc-hashtb rank gnus-zombie-list gnus-level-zombie gnus-level-killed] 13 (#$ . 133582) nil])
#@33 Activate absolutely all groups.
(defalias 'gnus-activate-all-groups #[(level) "\211\303 *\207" [level gnus-activate-foreign-newsgroups gnus-activate-level gnus-group-get-new-news] 2 (#$ . 134465) (list gnus-level-unsubscribed)])
#@219 Get newly arrived articles.
If ARG is a number, it specifies which levels you are interested in
re-scanning.  If ARG is non-nil and not a number, this will force
"hard" re-reading of the active files from all servers.
(defalias 'gnus-group-get-new-news #[(&optional arg) "\306\307!\210\310\211C\311\312!\210\311\313!\210\n\204�\314 \210\2033�\247\203,�\f\247\203,�\fY\2040�\f\2043�\315 \210\f\203N�\f\247\204N�\310\305 \210)\316\317=\203N�\320 \210\321\f\310\"
\203e�\f\204e�\305 \210\322\f!\210\202q�\f?\205k�
\322\f!\210)\323 \210\311\324!\210\325\f\247\205\203�@\f]!*\207" [nnmail-fetched-sources gnus-inhibit-demon gnus-slave gnus-use-nocem arg gnus-read-active-file require nnmail t gnus-run-hooks gnus-get-top-new-news-hook gnus-get-new-news-hook gnus-master-read-slave-newsrc gnus-nocem-scan-groups nil always gnus-find-new-newsgroups gnus-group-default-level gnus-get-unread-articles gnus-check-reasonable-setup gnus-after-getting-new-news-hook gnus-group-list-groups gnus-check-new-newsgroups gnus-group-list-mode] 3 (#$ . 134704) "P"])
#@286 Check for newly arrived news in the current group (and the N-1 next groups).
The difference between N and the number of newsgroup checked is returned.
If N is negative, this group and the N-1 previous groups will be checked.
If DONT-SCAN is non-nil, scan non-activated groups as well.
(defalias 'gnus-group-get-new-news-this-group #[(&optional n dont-scan) "\306!\247\203�	GZ\202�\307?\205�`\310\211\311\2110C1\312\313!\210	\211A@\211\203A\314\f!\210\315\316\f!\211!\210\317\f2?\205G�\320\310
$\203#\321\322\f3\"J8\322\f4\"J5\2116\203\3506
767;\203m7\2118\203\203�8<\203\203�8\206j\32389\"A\206j8\324\232\203\231�:\206W\3238;\"A\206W\3238<\"A\206W=>>\203\335�8\325\326>\211?@@)@>\211?@@)A@#\232\204\335�>\211A>@\210\202\261�>\211?@@*\206W@AA\2038\325\326A\211?@@)A\211?@A)@#\232\204A\211AA@\210\202\354�A@)\206WBA\310\211CDD\203T\327D\211AD@8\211;\204'8
\310E\330\331\215*\232\203'
C\310\211D\204,C+\211F\203g8FB9B9F))7\3327@G\310\333\334\217*\203\3476@\3357\332\"\fH\336\337H\"\203\231H\307\225\310O\202\233H)67A@#\203\346\322\f4\"J\2115@\211I\340V\203\342I\321U\203\303\340\202\310\340ISBJ\32168K\341KJC\"L6AAL\240\210+6\210*)*\34265\"\210\343\f!\204\371\344\f!\210M\203\345
\fH\336\337H\"\203H\307\225\310O\202H)5#\210\346\f!\210*\202(�\347\316\f!!\350=\2035\351\352\353\"\210\202(�\351\352\354\f\355\f!$\210\202(�\203Hb\210N\203R\356\340\311\"\210\357 \210\n.\207" [n groups ret beg group method gnus-group-process-prefix 0 nil t gnus-run-hooks gnus-get-new-news-hook gnus-group-remove-mark gnus-remove-denial gnus-find-method-for-group gnus-activate-group scan 2 intern-soft 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@)#\211B\211\235\204H�B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f�\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205�\n\235\204�\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" x name name-method] 5) request-update-info (byte-code ";\203\f�\303!@\202
�\304	!\204�\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) gnus-get-function string-match "^[^:]+:" 1 gnus-range-add gnus-get-unread-articles-in-group gnus-virtual-group-p gnus-close-group gnus-agent-save-group-info gnus-group-update-group gnus-server-status denied gnus-error 3 "Server denied access" "%s error: %s" gnus-status-message gnus-group-next-unread-group gnus-summary-position-point gnus-inhibit-demon nnmail-fetched-sources dont-scan gnus-newsrc-hashtb gnus-active-hashtb active info gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match alist nocache result func gname min range read new-read gnus-agent gnus-goto-next-group-when-activating] 7 (#$ . 135771) "P"])
#@97 Fetch the FAQ for the current group.
If given a prefix argument, prompt for the FAQ dir
to use.
(defalias 'gnus-group-fetch-faq #[(group &optional faq-dir) "\204�\306\307!\210	\206
�\n\310\211\211\211<\204�C\f?\205l�\211A@\211\205l�\311\312\"\203D�\313\225\310O\202F�)\314
\")\315!\204_�\316\317\320#\210\202�\310\321!\210\322)\202�,\207" [group faq-dir gnus-group-faq-directory file found dir error "No group name given" nil string-match "^[^:]+:" 0 expand-file-name file-exists-p gnus-message 1 "No such file: %s" find-file t dirs gname name enable-local-variables] 5 (#$ . 139178) (list (gnus-group-group-name) (when current-prefix-arg (completing-read "FAQ dir: " (and (listp gnus-group-faq-directory) (mapcar #'list gnus-group-faq-directory)))))])
#@90 Fetch the charter for the current group.
If given a prefix argument, prompt for a group.
(defalias 'gnus-group-fetch-charter #[(group) "\204�\306\307!\210\310\311!\210\312\313\314\217\210\315\316\317	\"\203#�	\320\225\312O\202$�	)!\312\211\316\321\f\"\205v�\322\323\f\"\324\n
\"A\211\203[�\325\326!\203O�\326\327!!\202P�\330\203[�\331\327!!\202v�\332\n\333\fR\325\326!\203s�\326!\203s�\331!\202v�\334!+\207" [group gname hierarchy url name gnus-group-charter-alist error "No group name given" require mm-url nil (byte-code "\300\301!\207" [require url-http] 2) ((error)) mm-url-form-encode-xwfu string-match "^[^:]+:" 0 "\$^[^\\.]+\$\\..*" match-string 1 assoc fboundp url-http-file-exists-p eval t browse-url "http://" ".news-admin.org/charters/" gnus-group-fetch-control] 4 (#$ . 139976) (list (or (when current-prefix-arg (gnus-group-completing-read "Group: ")) (gnus-group-group-name) gnus-newsgroup-name))])
#@108 Fetch the archived control messages for the current group.
If given a prefix argument, prompt for a group.
(defalias 'gnus-group-fetch-control #[(group) "\204�\306\307!\210\310\311	\"\203�	\312\225\313O\202�	)\313\310\314\"\205T�\315\316\"\f\203:�\317\320\n\321\322\260!\202T�\313\323\324\325\326\327\n\321\322\260!D\330BBB\331\313\211%)*\207" [group gname hierarchy name gnus-group-fetch-control-use-browse-url enable-local-variables error "No group name given" string-match "^[^:]+:" 0 nil "\$^[^\\.]+\$\\..*" match-string 1 browse-url "ftp://ftp.isc.org/usenet/control/" "/" ".gz" gnus-group-read-ephemeral-group nndoc nndoc-address find-file-noselect "/ftp@ftp.isc.org:/usenet/control/" ((nndoc-article-type mbox)) t] 11 (#$ . 140913) (list (or (when current-prefix-arg (gnus-group-completing-read "Group: ")) (gnus-group-group-name) gnus-newsgroup-name))])
#@49 Display a description of the current newsgroup.
(defalias 'gnus-group-describe-group #[(force &optional group) "\306!\307\310	\"\311\f\203�
\203�\312\n
\"\311L\210\204\"�\313\314!\210
\203.�\315\n
\"J\204<�\316!\211\204<�\317	!\205L�\320\321\206K�\315
\"J\206K�\322\"+\207" [group method mname desc force gnus-description-hashtb gnus-find-method-for-group gnus-group-prefixed-name "" nil intern error "No group name given" intern-soft gnus-group-get-description gnus-read-descriptions-file gnus-message 1 "No description available"] 5 (#$ . 141801) (list current-prefix-arg (gnus-group-group-name))])
#@54 Pop up a buffer with descriptions of all newsgroups.
(defalias 'gnus-group-describe-all-groups #[(&optional force) "\203�\304	\204�\305 \204�\306\307!\210\304\211\310 \210\311\312	\"\210eb\210\313 *\207" [force gnus-description-hashtb b buffer-read-only nil gnus-read-all-descriptions-files error "Couldn't request descriptions file" erase-buffer mapatoms #[(group) "`\304\305\306	!\"\307\310\311\306	!\n\"\311	J\n\"#c\210)\312\211T\313	\314\315\316\305\317T\257#\207" [b group charset gnus-level-subscribed gnus-group-name-charset nil symbol-name format "      *: %-20s %s\n" gnus-group-name-decode gnus-add-text-properties gnus-group gnus-unread t gnus-marked gnus-level] 11] gnus-group-position-point] 3 (#$ . 142419) "P"])
#@58 List all newsgroups that have names that match a regexp.
(defalias 'gnus-group-apropos #[(regexp &optional search-description) "\306p\307\211\310\311\f\"\210
\203�\310\312\"\210	\204%�\313\314\315#\210\202y�\212\316\317!\210\320 \210\321 \210\322	\323\"\211\203u�	@\230\204n�	@\324\307\"\325\"\326\261\210\203m�\327	@\"J\211\203m�\330\325\"\326\261\210)	A\211\2049�eb\210)\316\n!,\207" [des groups obuf prev gnus-active-hashtb search-description "" nil mapatoms #[(group) "\303!\205�\304	\303!\"\205�J\205�\303!\nB\211\207" [group regexp groups symbol-name string-match] 4] #[(group) "\303	J\"\205�\304	!\nB\211\207" [regexp group groups string-match symbol-name] 3] gnus-message 3 "No groups matched \"%s\"." pop-to-buffer "*Gnus Help*" buffer-disable-undo erase-buffer sort string< gnus-group-name-charset gnus-group-name-decode "\n" intern-soft "  " gnus-description-hashtb regexp charset] 5 (#$ . 143164) "sGnus apropos (regexp): "])
#@72 List all newsgroups that have names or descriptions that match REGEXP.
(defalias 'gnus-group-description-apropos #[(regexp) "\204
�\302 \204
�\303\304!\210\305	\306\"\207" [gnus-description-hashtb regexp gnus-read-all-descriptions-files error "Couldn't request descriptions file" gnus-group-apropos t] 3 (#$ . 144148) "sGnus description apropos (regexp): "])
#@309 List all groups with unread articles that match REGEXP.
If the prefix LEVEL is non-nil, it should be a number that says which
level to cut off listing groups.
If ALL, also list groups with no unread articles.
If LOWEST, don't list groups with level lower than LOWEST.

This command may read the active file.
(defalias 'gnus-group-list-matching #[(level regexp &optional all lowest) "\203�\306!	V\203�\307 \210\n\206�\f\205�\310
\206�\311$\210eb\210\312 \207" [level gnus-level-killed gnus-group-prepare-function gnus-level-subscribed all lowest prefix-numeric-value gnus-get-killed-groups t 1 gnus-group-position-point regexp] 5 (#$ . 144515) "P\nsList newsgroups matching: "])
#@198 List all groups that match REGEXP.
If the prefix LEVEL is non-nil, it should be a number that says which
level to cut off listing groups.
If LOWEST, don't list groups with level lower than LOWEST.
(defalias 'gnus-group-list-all-matching #[(level regexp &optional lowest) "\203�\304!\305\206�	\n\306$\207" [level gnus-level-killed regexp lowest prefix-numeric-value gnus-group-list-matching t] 5 (#$ . 145211) "P\nsList newsgroups matching: "])
#@85 Save the Gnus startup files.
If FORCE, force saving whether it is necessary or not.
(defalias 'gnus-group-save-newsrc #[(&optional force) "\301!\207" [force gnus-save-newsrc-file] 2 (#$ . 145668) "P"])
#@38 Force Gnus to read the .newsrc file.
(defalias 'gnus-group-restart #[(&optional arg) "\300\301\302!!\205�\303 \210\304 \210\305 \207" [gnus-yes-or-no-p format "Are you sure you want to restart Gnus? " gnus-save-newsrc-file gnus-clear-system gnus] 3 (#$ . 145877) "P"])
#@32 Read the Gnus elisp init file.
(defalias 'gnus-group-read-init-file #[nil "\301 \210\302\303\304#\207" [gnus-init-file gnus-read-init-file gnus-message 5 "Read %s"] 4 (#$ . 146153) nil])
#@102 Check bogus newsgroups.
If given a prefix, don't ask for confirmation before removing a bogus
group.
(defalias 'gnus-group-check-bogus-groups #[(&optional silent) "\302?\205�	?!\210\303 \207" [silent gnus-expert-user gnus-check-bogus-newsgroups gnus-group-list-groups] 2 (#$ . 146348) "P"])
#@309 Search for new groups and add them.
Each new group will be treated with `gnus-subscribe-newsgroup-method'.
With 1 C-u, use the `ask-server' method to query the server for new
groups.
With 2 C-u's, use most complete method possible to query the server
for new groups, and subscribe the new groups as zombies.
(defalias 'gnus-group-find-new-groups #[(&optional arg) "\301\206�\302!\210\303 \207" [arg gnus-find-new-newsgroups 1 gnus-group-list-groups] 2 (#$ . 146648) "p"])
#@73 Edit the global kill file.
If GROUP, edit that local kill file instead.
(defalias 'gnus-group-edit-global-kill #[(&optional article group) "\303\n!\210\304\305\306\307\310\n\203�\311\202�\312\"!\"\207" [article gnus-current-kill-article group gnus-kill-file-edit-file gnus-message 6 substitute-command-keys format "Editing a %s kill file (Type \\[gnus-kill-file-exit] to exit)" "local" "global"] 6 (#$ . 147128) "P"])
#@25 Edit a local kill file.
(defalias 'gnus-group-edit-local-kill #[(article group) "\302	\"\207" [article group gnus-group-edit-global-kill] 3 (#$ . 147556) (list nil (gnus-group-group-name))])
#@24 Update `.newsrc' file.
(defalias 'gnus-group-force-update #[nil "\300 \207" [gnus-save-newsrc-file] 1 (#$ . 147754) nil])
#@162 Suspend the current Gnus session.
In fact, cleanup buffers except for group mode buffer.
The hook `gnus-suspend-gnus-hook' is called before actually suspending.
(defalias 'gnus-group-suspend #[nil "\306\307!\210\310 \210\311!\312 \313\211\203^�@\211	=\204W�\n\f=\204W�r\nq\210
)\314=\204W�\n\211\211\205E�;\203A�\311\202B�\315!)\203V�\316\311\n!\n\"\n\317\n!\210)A\211\204�*\313\320 \210	\205q�\321	!\210\322	\323\")\207" [gnus-group-buffer group-buf buf #1=#:--cl-dolist-temp-- gnus-dribble-buffer major-mode gnus-run-hooks gnus-suspend-gnus-hook gnus-offer-save-summaries get-buffer gnus-buffers nil message-mode buffer-name delete kill-buffer gnus-kill-gnus-frames bury-buffer delete-windows-on t buffer gnus-backlog-articles] 4 (#$ . 147883) nil])
#@48 Clear all information from the dribble buffer.
(defalias 'gnus-group-clear-dribble #[nil "\300 \210\301\302\303\"\207" [gnus-dribble-clear gnus-message 7 "Cleared dribble buffer"] 3 (#$ . 148661) nil])
#@125 Quit reading news after updating .newsrc.eld and .newsrc.
The hook `gnus-exit-gnus-hook' is called before actually exiting.
(defalias 'gnus-group-exit #[nil "\204�	\203�\n\204�\303\304!\205%�\305\306!\210\307 \210\310 \210\311 \210\312 \210\305\313!\207" [noninteractive gnus-interactive-exit gnus-expert-user gnus-y-or-n-p "Are you sure you want to quit reading news? " gnus-run-hooks gnus-exit-gnus-hook gnus-offer-save-summaries gnus-save-newsrc-file gnus-close-backends gnus-clear-system gnus-after-exiting-gnus-hook] 2 (#$ . 148870) nil])
#@126 Quit reading news without updating .newsrc.eld or .newsrc.
The hook `gnus-exit-gnus-hook' is called before actually exiting.
(defalias 'gnus-group-quit #[nil "\204$�\306\307 !\204$�\310	!\203$�\n\204$�\203$�\311\312\313\314!\"!\205{�\315\316!\210\317\320\321\"\210\322\f!\203C�\306\212\fq\210\307 )!\204C�\323\324!\210\325 \210\326 \210\327 \210
\211\211\205d�;\203`�\330\202a�\331!)\203w�\332\330!\"\333!\210)\315\334!\207" [noninteractive gnus-select-method gnus-expert-user gnus-current-startup-file gnus-dribble-buffer gnus-group-buffer zerop buffer-size gnus-server-opened gnus-yes-or-no-p format "Quit reading news without saving %s? " file-name-nondirectory gnus-run-hooks gnus-exit-gnus-hook gnus-configure-windows group t gnus-buffer-live-p gnus-dribble-enter ";;; Gnus was exited on purpose without saving the .newsrc files." gnus-dribble-save gnus-close-backends gnus-clear-system get-buffer buffer-name delete kill-buffer gnus-after-exiting-gnus-hook buf buffer gnus-buffers] 6 (#$ . 149425) nil])
#@57 Give a one line description of the group mode commands.
(defalias 'gnus-group-describe-briefly #[nil "\300\301\302\303!\"\207" [gnus-message 7 substitute-command-keys "\\<gnus-group-mode-map>\\[gnus-group-read-group]:Select  \\[gnus-group-next-unread-group]:Forward  \\[gnus-group-prev-unread-group]:Backward  \\[gnus-group-exit]:Exit  \\[gnus-info-find-node]:Run Info  \\[gnus-group-describe-briefly]:This help"] 4 (#$ . 150460) nil])
#@275 Browse a foreign news server.
If called interactively, this function will ask for a select method
 (nntp, nnspool, etc.) and a server address (eg. nntp.some.where).
If not, METHOD should be a list where the first element is the method
and the second element is the address.
(defalias 'gnus-group-browse-foreign-server #[(method) "\301!\207" [method gnus-browse-foreign-server] 2 (#$ . 150903) (list (let ((how (completing-read "Which back end: " (append gnus-valid-select-methods gnus-server-alist) nil t (cons "nntp" 0) 'gnus-method-history))) (if (assoc how gnus-valid-select-methods) (list (intern how) (completing-read "Address: " (mapcar 'list gnus-secondary-servers))) how)))])
(defalias 'gnus-group-set-info #[(info &optional method-only-group part) "\204�	\205\"\306\n\206�@\"J\n\203�\307\f8\202 �\310\n\203a�\f\2041�\311\312\n\"\210G	\313=\203=�\314\202>�\315\211W\203X�S\233\316Z\310\"\241\210S\233
\240\210*\f\204\366�\212q\210\3178\320\321\"\203z�\310\212q\210\203\277�\322@ \323\324 \"\203\232� \325\225\310O\202\234� );\203\250�\202\255�\326@!:\205\270�\3178A@\310\327%\210\202\310�\322@\310\211\211\327%\210)\330\315\331\"\210\306\332@ \323\324 \"\203\345� \325\225\310O\202\347� )\3178\206\360�!\"\"J)\f\203\fAA\240\210\f@\327=?\205!\306@\"\"J\205!\f\333@!G\240\202!\311\334@\",\207" [info part method-only-group gnus-newsrc-hashtb entry part-info intern-soft 2 nil error "Trying to change non-existent group %s" method 5 6 make-list 4 gnus-server-equal "native" gnus-group-make-group string-match "^[^:]+:" 0 prin1-to-string t gnus-message "Note: New group created" gnus-group-prefixed-name gnus-list-of-unread-articles "No such group: %s" total len gnus-group-buffer gname gnus-select-method gnus-active-hashtb] 7])
(defalias 'gnus-group-set-method-info #[(group select-method) "\302	\303#\207" [select-method group gnus-group-set-info method] 4])
(defalias 'gnus-group-set-params-info #[(group params) "\302	\300#\207" [params group gnus-group-set-info] 4])
(defalias 'gnus-add-marked-articles #[(group type articles &optional info force) "\206�\306\307	\n\"J8\310\211\211?\206�\311\233\211\2042�
?\206�AA\312
\313\"BCC\241\206�\f@\236\211\204P�
?\206�\f\312
\313\"B\f@B\240\206�\203o�
\204f�\311\233\314\f@\"\240\202�\312
\313\"\241\202�\312\315\316A!\317
!\244\320\"\313\"\241+\207" [info group gnus-newsrc-hashtb m marked articles 2 intern-soft nil 3 gnus-compress-sequence t gnus-delete-alist sort gnus-uncompress-range copy-sequence < type force] 7])
#@73 Mark ARTICLE in GROUP with MARK, whether the group is displayed or not.
(defalias 'gnus-add-mark #[(group mark article) "\305!\306	!\203�\212\307	!q\210\310\n\")\202!�\311\f\236A\nC#)\207" [group buffer article mark gnus-article-mark-lists gnus-summary-buffer-name gnus-buffer-live-p get-buffer gnus-summary-add-mark gnus-add-marked-articles] 4 (#$ . 153495)])
#@165 Change the timestamp of the current group to the current time.
This function can be used in hooks like `gnus-select-group-hook'
or `gnus-group-catchup-group-hook'.
(defalias 'gnus-group-set-timestamp #[nil "\205�\302 \211A\303\241\210\304\305	#)\207" [gnus-newsgroup-name time current-time nil gnus-group-set-parameter timestamp] 5 (#$ . 153869)])
#@33 Return the timestamp for GROUP.
(defalias 'gnus-group-timestamp #[(group) "\301\302\303#\207" [group gnus-group-get-parameter timestamp t] 4 (#$ . 154227)])
(put 'gnus-group-timestamp 'byte-optimizer 'byte-compile-inline-expand)
#@108 Return the offset in seconds from the timestamp for GROUP to the current time, as a floating point number.
(defalias 'gnus-group-timestamp-delta #[(group) "\303\304\305#)\206�\306\211D\307\310 	\"\211@\311_\nA@\\*\207" [group time delta gnus-group-get-parameter timestamp t 0 subtract-time current-time 65536.0] 5 (#$ . 154464)])
#@45 Return a string of the timestamp for GROUP.
(defalias 'gnus-group-timestamp-string #[(group) "\302\303\304#)\211\204�\305\202�	\306\307	\"))\207" [group time gnus-group-get-parameter timestamp t "" format-time-string "%Y%m%dT%H%M%S"] 5 (#$ . 154806)])
#@241 List all groups with cached articles.
If the prefix LEVEL is non-nil, it should be a number that says which
level to cut off listing groups.
If LOWEST, don't list groups with level lower than LOWEST.

This command may read the active file.
(defalias 'gnus-group-list-cached #[(level &optional lowest) "\203�\305!\203�	Y\203�\306 \210\n\206�\307\f\310$\210eb\210\311 \207" [level gnus-level-zombie gnus-group-prepare-function gnus-level-subscribed lowest prefix-numeric-value gnus-cache-open #[(info) "\3028\303	\236)\207" [info marks 3 cache] 2] #[(group) "\302	\"J\206�\302\303\304\305\306\"\307#	\"J\207" [group gnus-cache-active-hashtb intern-soft mapconcat identity split-string ":" "."] 6] gnus-group-position-point] 5 (#$ . 155072) "P"])
#@242 List all groups with dormant articles.
If the prefix LEVEL is non-nil, it should be a number that says which
level to cut off listing groups.
If LOWEST, don't list groups with level lower than LOWEST.

This command may read the active file.
(defalias 'gnus-group-list-dormant #[(level &optional lowest) "\203�\305!\203�	Y\203�\306 \210\n\206�\307\f\310$\210eb\210\311 \207" [level gnus-level-zombie gnus-group-prepare-function gnus-level-subscribed lowest prefix-numeric-value gnus-cache-open #[(info) "\3028\303	\236)\207" [info marks 3 dormant] 2] ignore gnus-group-position-point] 5 (#$ . 155839) "P"])
#@33 Return a list of listed groups.
(defalias 'gnus-group-listed-groups #[nil "\302\211eb\210\303`d\304\302$\211\203$�	b\210\305\306	\304\"!B\307u\210\202�*\207" [groups point nil text-property-not-all gnus-group symbol-name get-text-property 1] 5 (#$ . 156464)])
#@41 List groups plus the current selection.
(defalias 'gnus-group-list-plus #[(&optional args) "\302 \306\fB\307\fB\306\211
\310\306!\311\312 
\"*	\203(�	\247\203-�\313 \2020�\314	!+\207" [gnus-group-list-mode func gnus-group-listed-groups last-command-event unread-command-events keys nil 65 read-key-sequence lookup-key current-local-map ding call-interactively gnus-pick-mode] 3 (#$ . 156737) "P"])
#@42 Flush groups from the current selection.
(defalias 'gnus-group-list-flush #[(&optional args) "\302\303	!)\207" [gnus-group-list-option args flush gnus-group-list-plus] 2 (#$ . 157152) "P"])
#@51 List groups limited within the current selection.
(defalias 'gnus-group-list-limit #[(&optional args) "\302\303	!)\207" [gnus-group-list-option args limit gnus-group-list-plus] 2 (#$ . 157349) "P"])
#@20 Mark ARTICLE read.
(defalias 'gnus-group-mark-article-read #[(group article) "\306!	\307\211\310
!\203r�r
q\210\311!\210\205n�\203/�\f>\203/�\312\f#\313\f\"\210\314\"J\205n�AT\211AX\203h�\n=\204a�\nB\nT\211\202M�\237\211)\202\212�\311!\210\315C\"\210\316!\205\212�\317\320C#,\207" [group gnus-read-mark n active mark buffer gnus-summary-buffer-name nil get-buffer gnus-activate-group gnus-request-update-mark gnus-mark-article-as-read intern-soft gnus-group-make-articles-read gnus-group-auto-expirable-p gnus-add-marked-articles expire gnus-newsgroup-active gnus-newsgroup-prepared gnus-newsgroup-auto-expire gnus-auto-expirable-marks gnus-expirable-mark article gnus-active-hashtb gnus-newsgroup-unselected] 5 (#$ . 157555)])
#@223 Compact the current group.
Compaction means removing gaps between article numbers.  Hence, this
operation is only meaningful for back ends using one file per article
(e.g. nnml).

Note: currently only implemented in nnml.
(defalias 'gnus-group-compact-group #[(group) "\204�\306\307!\210\310\311\312\313\217*\204�\306\314!\210\315!\316\317\320\n#\210\321!\2040�\322\323\324\n#\2027�\316\317\325\n#\210\326\327!\211\203h�\f\211\211\205V�;\203R�\327\202S�\330!)\203g�\331\327
!\"\332
!\210))\333 \210)\207" [group func group-decoded gnus-original-article-buffer original buf error "No group to compact" request-compact-group nil (byte-code ";\203\f�\303!@\202
�\304	!\204�\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) "This back end does not support group compaction" gnus-group-decoded-name gnus-message 6 "Compacting group %s... (this may take a long time)" gnus-request-compact-group gnus-error 3 "Couldn't compact group %s" "Compacting group %s...done" t get-buffer buffer-name delete kill-buffer gnus-group-update-group-line buffer gnus-buffers] 5 (#$ . 158343) (list (gnus-group-group-name))])
(provide 'gnus-group)

${this.title}

Code Editor : gnus-group.elc