|
Server IP : 111.118.215.189 / Your IP : 18.117.158.174 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/gnus/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:51 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-group.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\204
\302\301\303\304B\"\210\305\306!\210\305\307!\210\305\310!\210\305\311!\210\305\312!\210\305\313!\210\305\314!\210\305\315!\210\305\316!\210\305\317!\210\305\320!\210\321\322\323\"\210\321\324\325\"\210\321\326\327\"\210\330\331\332\333\334\307\335\336&\210\330\337\340\341\334\342\335\343&\210\330\344\345\346\347\350\334\351\335\352& \210\330\353\345\354\347\355\334\351\335\352& \210\330\356\340\357\334\360\335\361&\210\330\362\363\364\365\366\334\351\335\367& \210\330\370\345\371\334\360\335\352&\210\330\372\373\374\334\360\335\375&\210\330\376\345\377\334\360\334\342\335\352& \210\330\201@ \201A \201B \334\360\347\201C \335\201D & \210\330\201E \201F \201G \347\201H \334\201I \335\336& \210\330\201J \201K \201L \334\201I \335\336&\210\330\201M \340\201N \334\351\335\201O &\210\330\201P \340\201Q \334\351\347\201R \335\201O & \210\330\201S \340\201T \334\201I \335\201O &\210\330\201U \201V \201W \334\360\335\201X &\210\330\201Y \340\201Z \334\360\335\201O &\210\330\201[ \340\201\\ \334\201] \335\201O &\210\330\201^ \340\201_ \334\201] \335\201O &\210\330\201` \340\201a \334\201] \335\201O &\210\330\201b \340\201c \334\201I \365\201d \335\201O & \210\330\201e \201f \201g \334\360\335\201h &\210\330\201i \201j \201k \334\201I \335\201l &\210\201m \201i \201n \345#\210\330\201o \201p \201q \334\201I \335\201r &\210\201s \201t \340\201u \334\201I %\210\330\201v \340\201w \334\201t \335\201x &\210\201m \201v \201n \345#\210\330\201y \340\201z \365\201{ \334\201| \335\201} & \210\330\201~ \201 \201\200 \334\201| \335\201\201 &\210\330\201\202 \340\201\203 \365\201\204 \334\351\335\201\205 & \207" [fboundp declare-function defalias 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" gnus-group-make-nnir-group "nnir" custom-declare-variable gnus-no-groups-message "No news is good news" "*Message displayed by Gnus when no groups are available." :group :type string gnus-keep-same-level nil "*Non-nil means that the next newsgroup after the current will be on the same level.\nWhen you type, for instance, `n' after reading the last article in the\ncurrent newsgroup, you will go to the next newsgroup. If this variable\nis nil, the next newsgroup will be the next from the group\nbuffer.\nIf this variable is non-nil, Gnus will either put you in the\nnext newsgroup with the same level, or, if no such newsgroup is\navailable, the next newsgroup with the lowest possible level higher\nthan the current level.\nIf this variable is `best', Gnus will make the next newsgroup the one\nwith the best level." gnus-group-levels (choice (const nil) (const best) (sexp :tag "other" t)) gnus-group-goto-unread t "*If non-nil, movement commands will go to the next unread and subscribed group." :link (custom-manual "(gnus)Group Maneuvering") gnus-group-various boolean gnus-goto-next-group-when-activating "*If non-nil, the \\<gnus-group-mode-map>\\[gnus-group-get-new-news-this-group] command will advance point to the next group." (custom-manual "(gnus)Scanning New Messages") gnus-permanently-visible-groups "*Regexp to match groups that should always be listed in the group buffer.\nThis means that they will still be listed even when there are no\nunread articles in the groups.\n\nIf nil, no groups are permanently visible." gnus-group-listing (choice regexp (const nil)) gnus-safe-html-newsgroups "\\`nnrss[+:]" "Groups in which links in html articles are considered all safe.\nThe value may be a regexp matching those groups, a list of group names,\nor nil. This overrides `mm-w3m-safe-url-regexp' (which see). This is\neffective only when emacs-w3m renders html articles, i.e., in the case\n`mm-text-html-renderer' is set to `w3m'." :version "23.2" (choice regexp (repeat :tag "List of group names" (string :tag "Group")) (const nil)) gnus-list-groups-with-ticked-articles "*If non-nil, list groups that have only ticked articles.\nIf nil, only list groups that have unread articles." gnus-group-default-list-level gnus-level-subscribed "Default listing level.\nIgnored if `gnus-group-use-permanent-levels' is non-nil." (choice (integer :tag "Level") (function :tag "Function returning level")) gnus-group-list-inactive-groups "*If non-nil, inactive groups will be listed." gnus-group-sort-function 'gnus-group-sort-by-alphabet "*Function used for sorting the group buffer.\nThis function will be called with group info entries as the arguments\nfor the groups to be sorted. Pre-made functions include\n`gnus-group-sort-by-alphabet', `gnus-group-sort-by-real-name',\n`gnus-group-sort-by-unread', `gnus-group-sort-by-level',\n`gnus-group-sort-by-score', `gnus-group-sort-by-method',\n`gnus-group-sort-by-server', and `gnus-group-sort-by-rank'.\n\nThis variable can also be a list of sorting functions. In that case,\nthe most significant sort function should be the last function in the\nlist." (custom-manual "(gnus)Sorting Groups") (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))) gnus-group-line-format "%M%S%p%P%5y:%B%(%g%)\n" "*Format of group lines.\nIt works along the same lines as a normal formatting string,\nwith some simple extensions.\n\n%M Only marked articles (character, \"*\" or \" \")\n%S Whether the group is subscribed (character, \"U\", \"K\", \"Z\" or \" \")\n%L Level of subscribedness (integer)\n%N Number of unread articles (integer)\n%I Number of dormant articles (integer)\n%i Number of ticked and dormant (integer)\n%T Number of ticked articles (integer)\n%R Number of read articles (integer)\n%U Number of unseen articles (integer)\n%t Estimated total number of articles (integer)\n%y Number of unread, unticked articles (integer)\n%G Group name (string)\n%g Qualified group name (string)\n%c Short (collapsed) group name. See `gnus-group-uncollapsed-levels'.\n%C Group comment (string)\n%D Group description (string)\n%s Select method (string)\n%o Moderated group (char, \"m\")\n%p Process mark (char)\n%B Whether a summary buffer for the group is open (char, \"*\")\n%O Moderated group (string, \"(m)\" or \"\")\n%P Topic indentation (string)\n%m Whether there is new(ish) mail in the group (char, \"%\")\n%n Select from where (string)\n%z A string that look like `<%s:%n>' if a foreign select method is used\n%d The date the group was last entered.\n%E Icon as defined by `gnus-group-icon-list'.\n%F The disk space used by the articles fetched by both the cache and agent.\n%u User defined specifier. The next character in the format string should\n be a letter. Gnus will call the function gnus-user-format-function-X,\n where X is the letter following %u. The function will be passed a\n single dummy parameter as argument. The function should return a\n string, which will be inserted into the buffer just like information\n from any other group specifier.\n\nNote that this format specification is not always respected. For\nreasons of efficiency, when listing killed groups, this specification\nis ignored altogether. If the spec is changed considerably, your\noutput may end up looking strange when listing both alive and killed\ngroups.\n\nIf you use %o or %O, reading the active file will be slower and quite\na bit of extra memory will be used. %D and %F will also worsen\nperformance. Also note that if you change the format specification to\ninclude any of these specs, you must probably re-start Gnus to see\nthem go into effect.\n\nGeneral format specifiers can also be used.\nSee Info node `(gnus)Formatting Variables'." (custom-manual "(gnus)Formatting Variables") gnus-group-visual gnus-group-mode-line-format "Gnus: %%b {%M%:%S}" "*The format specification for the group mode line.\nIt works along the same lines as a normal formatting string,\nwith some simple extensions:\n\n%S The native news server.\n%M The native select method.\n%: \":\" if %S isn't \"\"." gnus-group-menu-hook "Hook run after the creation of the group mode menu." hook gnus-group-catchup-group-hook "Hook run when catching up a group from the group buffer." (custom-manual "(gnus)Group Data") gnus-group-update-group-hook "Hook called when updating group lines." gnus-group-prepare-function 'gnus-group-prepare-flat "*A function that is called to generate the group buffer.\nThe function is called with three arguments: The first is a number;\nall group with a level less or equal to that number should be listed,\nif the second is non-nil, empty groups should also be displayed. If\nthe third is non-nil, it is a number. No groups with a level lower\nthan this number should be displayed.\n\nThe only current function implemented is `gnus-group-prepare-flat'." function gnus-group-prepare-hook "Hook called after the group buffer has been generated.\nIf you want to modify the group buffer, you can use this hook." gnus-suspend-gnus-hook "Hook called when suspending (not exiting) Gnus." gnus-exit gnus-exit-gnus-hook "Hook called when exiting Gnus." gnus-after-exiting-gnus-hook "Hook called after exiting Gnus." gnus-group-update-hook "Hook called when a group line is changed." "24.1" 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)))))) "*Alist of useful group-server pairs." (repeat (list (string :tag "Description") (string :tag "Name") (sexp :tag "Method"))) 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)) "*Controls the highlighting of group buffer lines.\n\nBelow is a list of `Form'/`Face' pairs. When deciding how a\nparticular group line should be displayed, each form is\nevaluated. The content of the face field after the first true form is\nused. You can change how those group lines are displayed by\nediting the face field.\n\nIt is also possible to change and add form fields, but currently that\nrequires an understanding of Lisp expressions. Hopefully this will\nchange in a future release. For now, you can use the following\nvariables in the Lisp expression:\n\ngroup: The name of the group.\nunread: The number of unread articles in the group.\nmethod: The select method used.\nmailp: Whether it's a mail group or not.\nlevel: The level of the group.\nscore: The score of the group.\nticked: The number of ticked articles." (repeat (cons (sexp :tag "Form") face)) put risky-local-variable gnus-new-mail-mark 37 "Mark used for groups with new mail." character custom-declare-group gnus-group-icons "Add Icons to your group buffer." gnus-group-icon-list "*Controls the insertion of icons into group buffer lines.\n\nBelow is a list of `Form'/`File' pairs. When deciding how a\nparticular group line should be displayed, each form is evaluated.\nThe icon from the file field after the first true form is used. You\ncan change how those group lines are displayed by editing the file\nfield. The File will either be found in the\n`gnus-group-glyph-directory' or by designating absolute name of the\nfile.\n\nIt is also possible to change and add form fields, but currently that\nrequires an understanding of Lisp expressions. Hopefully this will\nchange in a future release. For now, you can use the following\nvariables in the Lisp expression:\n\ngroup: The name of the group.\nunread: The number of unread articles in the group.\nmethod: The select method used.\nmailp: Whether it's a mail group or not.\nlevel: The level of the group.\nscore: The score of the group.\nticked: The number of ticked articles." (repeat (cons (sexp :tag "Form") file)) gnus-group-name-charset-method-alist "Alist of method and the charset for group names.\n\nFor example:\n (((nntp \"news.com.cn\") . cn-gb-2312))" "21.1" gnus-charset (repeat (cons (sexp :tag "Method") (symbol :tag "Charset"))) 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) "Alist of group regexp and the charset for group names.\n\nFor example:\n ((\"\\.com\\.cn:\" . cn-gb-2312))" (repeat (cons (regexp :tag "Group") (symbol :tag "Charset"))) gnus-group-jump-to-group-prompt "Default prompt for `gnus-group-jump-to-group'.\n\nIf non-nil, the value should be a string or an alist. If it is a string,\ne.g. \"nnml:\", in which case `gnus-group-jump-to-group' offers \"Group:\nnnml:\" in the minibuffer prompt.\n\nIf it is an alist, it must consist of (NUMBER . PROMPT) pairs, for example:\n((1 . \"\") (2 . \"nnfolder+archive:\")). The element with number 0 is\nused when no prefix argument is given to `gnus-group-jump-to-group'." "22.1" (choice (string :tag "Prompt string") (const :tag "Empty" nil) (repeat (cons (integer :tag "Argument") (string :tag "Prompt string"))))] 10)
#@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 (#$ . -15357))
(defvar gnus-group-is-exiting-p nil)
(defvar gnus-group-is-exiting-without-update-p nil)
#@40 Function for sorting the group buffer.
(defvar gnus-group-sort-alist-function 'gnus-group-sort-flat (#$ . 15632))
#@63 Function for sorting the selected groups in the group buffer.
(defvar gnus-group-sort-selected-function 'gnus-group-sort-selected-flat (#$ . 15752))
(defvar gnus-group-indentation-function nil)
(defvar gnus-goto-missing-group-function nil)
(defvar gnus-group-update-group-function nil)
#@67 Function to override finding the next group after listing groups.
(defvar gnus-group-goto-next-group-function nil (#$ . 16044))
(defvar gnus-group-edit-buffer nil)
(defvar gnus-group-line-format-alist (byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326BB\327BBBBBBBBBBBBBBBBBBBBB\207" [(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 (if (gnus-active gnus-tmp-group) (gnus-number-of-unseen-articles-in-group gnus-tmp-group) "*") 115) (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))] 23))
(defvar 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)))
#@31 The complete topic hierarchy.
(defvar gnus-topic-topology nil (#$ . 18073))
#@33 The complete topic-group alist.
(defvar gnus-topic-alist nil (#$ . 18155))
(defvar gnus-group-marked nil)
(defvar gnus-group-list-mode nil)
(defvar gnus-group-listed-groups nil)
(defvar gnus-group-list-option nil)
(byte-code "\300\301\302\303#\210\304\305\306\"\210\304\307\310\"\210\304\311\312\"\210\304\313\314\"\210\304\315\316\"\210\304\317\320\"\210\304\321\322\"\210\304\323\324\"\210\304\325\326\"\210\304\327\330\"\210\304\331\332\"\210\304\333\334\"\210\304\335\336\"\207" [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 "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 "G" gnus-group-make-nnir-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-expunge-group "" gnus-group-delete-group [delete] gnus-group-delete-group) (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-ticked) (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-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-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-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) ("d" gnus-group-describe-group "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 (#$ . 24521)])
(defalias 'gnus-group-make-menu-bar #[nil "\301\302!?\205\366 \303\304!\210\305\302\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325BBBBBB\"\315\316\326\327\321\330\331BBBB\"\332\315\316\333\334\321\335\323\336\337BBBBBB\"\315\316\340\341\321\342\343BBBB\"\344\315\316\345\346\323\347\350BBBB\"\351\315\316\352\353\323\354\355BBBB\"\356BBBBBBBBBBBBBBB$\210\357\304!\210\305\360\306\361$\210\362\304!\210\305\363\306\364\365\366\367\315\316\370\371\372BB\"\315\316\373\374\375BB\"\376\377\201@ \201A \201B \201C \201D \201E \201F \201G \201H \201I \201J \201K \315\316\201L \201M \201N BB\"\201O BBBBBBBBBBBBBBBBBBBBB$\210\201P \201Q !\207" [gnus-group-mode-map boundp gnus-group-reading-menu (lambda (#1=#:def-tmp-var) (defvar gnus-group-reading-menu #1# #2="")) nil easy-menu-do-define #2# "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") (["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])) (lambda (#1#) (defvar gnus-group-group-menu #1# #2#)) 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] ["List groups with ticked" gnus-group-list-ticked 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] ["Make a doc group..." gnus-group-make-doc-group t] ["Make a web group..." gnus-group-make-web-group t] ["Make a search group..." gnus-group-make-nnir-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]) (lambda (#1#) (defvar gnus-group-misc-menu #1# #2#)) gnus-group-misc-menu "Gnus" ["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] ["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] 29])
(defvar gnus-group-tool-bar-map nil)
#@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 (#$ . 33698)])
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315&
\210\300\316\317\320\304\321\306\307\310\311\312\313\314\315&
\210\300\322\323\324\304\325\306\307\310\311\312\313\314\315&
\210\300\326\327\330\304\331\306\307\310\311\312\313\314\315&
\207" [custom-declare-variable gnus-group-tool-bar (if (eq gmm-tool-bar-style 'gnome) 'gnus-group-tool-bar-gnome 'gnus-group-tool-bar-retro) "Specifies the Gnus group tool bar.\n\nIt can be either a list or a symbol referring to a list. See\n`gmm-tool-bar-from-list' for the format of the list. The\ndefault key map is `gnus-group-mode-map'.\n\nPre-defined symbols include `gnus-group-tool-bar-gnome' and\n`gnus-group-tool-bar-retro'." :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 gnus-group-tool-bar-gnome '((gnus-group-post-news "mail/compose") (gnus-agent-toggle-plugged "unplugged" t :help "Gnus is currently unplugged. Click to work online." :visible (and gnus-agent (not gnus-plugged))) (gnus-agent-toggle-plugged "plugged" 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")) "List of functions for the group tool bar (GNOME style).\n\nSee `gmm-tool-bar-from-list' for the format of the list." (repeat gmm-tool-bar-item) 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)) "List of functions for the group tool bar (retro look).\n\nSee `gmm-tool-bar-from-list' for the format of the list." (repeat gmm-tool-bar-item) gnus-group-tool-bar-zap-list t "List of icon items from the global tool bar.\nThese items are not displayed in the Gnus group mode tool bar.\n\nSee `gmm-tool-bar-from-list' for the format of the list." gmm-tool-bar-zap-list] 14)
#@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!\203> \203> \307 \203> \203 \n\203> \310\311\312\313\314$\211@\306\304!\205' \fB \315
\316#\211 \203= \317\320!\210+ \207" [tool-bar-mode gnus-group-tool-bar-map force load-path image-load-path gnus-group-tool-bar boundp display-graphic-p 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 (#$ . 37028)])
#@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 (#$ . 37643) 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 (#$ . 39585) "e"])
#@60 Return the real value for `gnus-group-default-list-level'.
(defalias 'gnus-group-default-list-level #[nil "\301!\203 \207\207" [gnus-group-default-list-level functionp] 2 (#$ . 39764)])
(defalias 'gnus-group-default-level #[(&optional level number-or-nil) "\203# \206 \247\203 \202 \304 \206 \n\211\2063 \304 \2063 \n\207 \203) \207 \2063 \304 \2063 \n\207" [gnus-group-use-permanent-levels level gnus-level-subscribed number-or-nil gnus-group-default-list-level] 2])
(defalias 'gnus-group-setup-buffer #[nil "\302!q\210 \303=?\205 \303 \207" [gnus-group-buffer major-mode gnus-get-buffer-create gnus-group-mode] 2])
(defalias 'gnus-group-name-charset #[(method group) "\204 \306 !;\203\366 \211\203 \n<\203 \n\206\364 \307\n \"A\206\364 \n\310\232\203. \f\206\335 \307\n
\"A\206\335 \307\n\"A\206\335 \203f \n\311\312@@@@@A@#\232\204f \211A@\210\202C \211 @@*\206\335 \203\232 \n\311\312\211 @@)@A@#\232\204\232 \211A@\210\202u @)\206\335 A\313\211 \203\332 \314\211A@8\211;\204\253 \n\313\315 \316\317\215+\232\203\253 \313\211\204\260 +\211 \203\361 \307\n \"\204\361 \n B B ))@\320=\203\377 \321\207\307 \"\206:\205\307@\211 A@)D \" \313 \211 !\203-!A\202P\211A@\211!\203N\322!@ \"\203-\313!A \202- +\207" [method group server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-find-method-for-group assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f
D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V 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" assoc x name name-method no-enter-cache] 5) nnimap utf-8 string-match gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match alist no-enter-cache nocache result gnus-group-name-charset-method-alist gnus-group-name-charset-group-alist item] 6])
(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 \311 q\210 \n #\211\247\203@ \316 !\204G \316\317 !\203N \320\321\322!#\210db\210\"\203_ \"\f \"\204\357
\203i eb\210\202\357 \f\204t \323\324!\210\202\357 \325ed\326\327\f#\" $\330$!\204\213 $\311L\210$)$\211 %\205\230 %b)\204\357 \331\f&\"JAAA\211 '\203\343 \325ed\326\327'\211 (@@)#\" $\330$!\204\311 $\311L\210$)$\211 %\205\326 %b)\204\343 'A\211'\204\253 '\204\356 db\210\332y\210)\333 -\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 "%s" 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 newsrc x] 8 (#$ . 42515) (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 (#$ . 44067) "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
\204l (\205\365 );\203z \316)
\"\205\365 \"A@\211 *:\203\213 *@\202\215 *)\211!+X\205\365 !\nY\205\365 \317(!\203\255 (\"!\202\365 (\203\266 \320\202\365 \320=\203\302 ,\202\314 \247\203\317 \321V\206\365 -\203\336 \322\323\"8\236A\206\365 .\203\353 \316.
\"\206\365 \324\f>\206\365 \324\f\236A\"\2034 \325
\"A@\211 *:\203\f*@\202*)\323\"8 \326\"8%\210\2024 \2041+&Y\203A\n&X\203A\327\330/\331\"\211/&\332)$\210#\203e/\306 \211 0\203d0@\314
#\"#0A\2110\204P* \204x+1Y\203\214\n1X\203\214\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 predicate regexp rank level gnus-group-list-inactive-groups gnus-list-groups-with-ticked-articles gnus-permanently-visible-groups gnus-zombie-list --dolist-tail-- gnus-level-killed gnus-killed-list gnus-group-list-mode] 10 (#$ . 44529)])
(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 \327 A!\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 \205D \2030 \310 !\2040 \311\312\313\314 8!\315Q\316\317 !\320Q\"\210\321 \322 \323y\210`|\210\324 !\210\325y\210\326 ,\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-set-info '(\"" regexp-quote "\"" gnus-group-group-indentation point-at-bol 1 gnus-group-insert-group-line-info -1 gnus-group-position-point] 6 (#$ . 47337)])
#@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 \316 A!\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 (#$ . 47976)])
(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)) '(#$ . 48888) :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\366 \n\211 \203 \f<\203 \f\206\362 \306\f
\"A\206\362 \f\307\232\203+ @\206\333 \306\fA\"A\206\333 \306\fB\"A\206\333 C DD\203d \f\310\311D@@@D@@A@#\232\204d D\211AD@\210\202A D\211 E@@*\206\333 F GG\203\230 \f\310\311G\211 E@@)G@A@#\232\204\230 G\211AG@\210\202s G@)\206\333 HA\312\211 I JJ\203\330 \313J\211AJ@8\211;\204\251 \f\n\312\314 K L\315\316\215+\232\203\251 \nI\312\211J\204\256 I+\211 M\203\357 \306\f
\"\204\357 \fMB
BM))\202f\n@\232\203@\202f\n@;\203 \203\317 \n\"\202f\n\203+ \204+\n\211 EA@)\320\232\203+\n\202f\n\321\n@! N\322\306NO\">\203d\323N\324P!\n\236\204d\325\n@O\236>\203d\326\n\323N\324P!\nA@DC\"\202e\n**\327 \" P\330Q\"J\211 R\203\205RAR@ZT\202\206\331 ST\247\203\227\332\331T]!\202\230\333 UT\247\203\254\332\331STZ]!\202\255\333 VWXX\203\273\334\202\324WYX\203\307\335\202\324WZU\203\323\336\202\324\337 [\340 \\\341\342\\\"\203\353\\\331\225\312O\202\355\\)P\" ]\343\344\314#\206\374 ^_\203\340\330_\"JP\"\206\320\202\320 `a\203)\330a\"J\203)\345\202*\334\211 b\345=\2036\346\2027\320 c\347! d \211 EA@)\206I\320 e @\206Q\320 f \203f\310\350 @ \211 EA@)#\202g\320 gT\247\203\202\351T!\203\202\352h\236A\203\202\353\202\203\334 ij\204\241\354!\211 k\205\231\355\356k!!)\203\241\353\202\242\334 lm\235\203\260n\202\261\334 o\312\211 p q\312\211 r s\312 t\357 \210`q\360``T\340P\" u\361v!\210)\362\323Q\" w\363w!\204\355w\312L\210w)\364T\247\203\376\365U!\202\377\314\366i\367x\370W\257\n#\210`ry\203&\371qr\372\373$\210\371qr\374\373$\210\375y\210\376\377 z {|\205U{\204>|\202U|<\203T{|>\206Uz|>\202U\314*\203c\201} qr#\210\201~ \201 !\210\312y.\207" [gnus-tmp-group gnus-tmp-method method group server gnus-server-method-cache assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f
D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V 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" assoc x name name-method no-enter-cache] 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 109 "(m)" gnus-group-get-icon "(%s:%s)" zerop tick 42 gnus-summary-buffer-name buffer-live-p get-buffer 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-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match alist no-enter-cache 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 buffer 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-highlight-line gnus-run-hooks gnus-group-update-hook] 14 (#$ . 49351)])
#@120 Eval `car' of each element of LIST, and return the first that return t.
Some value are bound so the form can use them.
(defalias 'gnus-group-update-eval-form #[(group list) "\2052\306 \n\"J\211@\247\203 @\202 \307 \306
\"J\211 #\203- #A#@ZT\202. \307 $\310 8 % \311%8 &&;\203F&\211 '\203V '<\203V '\206B\312'(\"A\206B'\313\232\203l )\206&\312'*\"A\206&\312'+\"A\206&, --\203\250 '\314\315-@@@-@@A@#\232\204\250 -\211A-@\210\202\204 -\211 .@@*\206&/ 00\203\335 '\314\3150\211 .@@)0@A@#\232\204\335 0\211A0@\210\202\267 0@)\206&1A\316\211 2 & 33\203#\3113\211A3@8\211&;\204\357 '&\316\317 4 5 &\320\321\215+\232\203\357 &2\316\2113\204\364 2+\211 6\203?\312'(\"\204?'6B(B(6))\202\304&)\232\203S)\202\304&@;\203f \203f\322 &\"\202\304&\203\201 \204\201&\211 .A@)\323\232\203\201&\202\304& &\324&@! 7\325\31278\">\203\301\3267\327P!&\236\204\301\330&@8\236>\203\301\331&\3267\327P!&A@DC\"\202\303&** &\332%8 9\333\331\334\335\336\"\" :%A@\211 ;:\203\347;@\202\351;)\206\357< =%A@\211 ;:\203;A\206\307)\206\307 >\337\3409\236A! ?\341 ! @\203/\342\211 .@@)!\204/A\211\204 .\f\207" [list group gnus-newsrc-hashtb entry unread gnus-active-hashtb intern-soft 0 2 4 assoc "native" format "%s:%s" nil t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f
D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V 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" assoc x name name-method no-enter-cache] 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 eval 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 no-enter-cache nocache result method-name gnus-valid-select-methods marked mailp rank gnus-level-killed level score ticked group-age] 6 (#$ . 53806)])
#@146 Highlight the current line according to `gnus-group-highlight'.
GROUP is current group, and the line to highlight starts at BEG
and ends at END.
(defalias 'gnus-group-highlight-line #[(group beg end) "\306 \"\211@A)\211\307\f\303\"=?\205- \310 \311\f\f\303\312 !\203& J\202' $\210)\313\f!)\207" [group gnus-group-highlight x face beg inhibit-read-only gnus-group-update-eval-form get-text-property t gnus-put-text-property-excluding-characters-with-faces boundp gnus-extent-start-open end] 7 (#$ . 56489)])
#@63 Return an icon for GROUP according to `gnus-group-icon-list'.
(defalias 'gnus-group-get-icon #[(group) "\203$ \304 \"\211@A)\211\203! \305\306\307\310\311\312 !!\313\"#\202\" \306)\207\306\207" [gnus-group-icon-list group x image-path gnus-group-update-eval-form propertize " " display append gnus-create-image expand-file-name (:ascent center)] 8 (#$ . 57008)])
(defalias 'gnus-group-refresh-group #[(group) "\303!\210\304\305\306 \"J8\306\n\"J\"\210\307!\207" [group gnus-newsrc-hashtb gnus-active-hashtb gnus-activate-group gnus-get-unread-articles-in-group 2 intern-soft gnus-group-update-group] 5])
#@178 Update all lines where GROUP appear.
If VISIBLE-ONLY is non-nil, the group won't be displayed if it isn't
already. If INFO-UNCHANGED is non-nil, dribble buffer is not updated.
(defalias 'gnus-group-update-group #[(group &optional visible-only info-unchanged) "rq\210\212\214~\210\306 \n\"\307 !\204 \310L\210 )e\310\211 \204L \311 !\"J\211 \"\203K \312 !\204K \313\314\315\316\"8!\317Q\320\321 !\322Q\"\210)\323 d\324 $\211 \203\201 \325 b\210\326 #\327 \330y\210`|\210\331 !\210\212\332y\210\333\334!\210* T \202L
\204\374 $\204\374 %\203\227 % !\210\202\353 \311 !\"J\211 &AA)\211 \"\203\342 \"@\203\342 \323ed\324\306\"\211 &@@)\n\"\307 !\204\311 \310L\210 )$\211 '\205\325 'b)\204\342 \"A\211\"\204\251 \"\204\352 db\210)\326 #\331 !\210\212\332y\210\333\334!\210*(\203( !\210\335 .\207" [gnus-group-buffer group gnus-active-hashtb symbol buffer-read-only found intern boundp nil intern-soft gnus-ephemeral-group-p gnus-dribble-enter "(gnus-group-set-info '" gnus-prin1-to-string 2 ")" "^(gnus-group-set-info '(\"" regexp-quote "\"" 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 loc ident info-unchanged gnus-newsrc-hashtb entry gnus-group-indentation visible-only gnus-goto-missing-group-function x point gnus-group-update-group-function] 8 (#$ . 57627)])
#@43 Update the mode line in the group buffer.
(defalias 'gnus-group-set-mode-line #[nil "\306>\205\211 r q\210\n\206 \307\310!\f\211 A@) \f@ \311\232\203) \311\202* \312 \313 \314 \205P \315!\205P \316!\205P rq\210\317\320 !)? \321 ! \203b @\202e A GV\203z \322\323ZO \324 C!\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 (#$ . 59070)])
#@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 (#$ . 59892)])
#@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 (#$ . 60107)])
#@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 (#$ . 60288)])
#@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 (#$ . 60547)])
(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 (#$ . 60947)])
#@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 (#$ . 61219)])
(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-group-position-point gnus-process-mark no-advance] 5 (#$ . 62727) "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 (#$ . 63315) "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 (#$ . 63509) 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 (#$ . 63707) "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 (#$ . 63960) "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 (#$ . 64156) "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 (#$ . 64497)])
#@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 (#$ . 64860)])
#@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 (#$ . 65100) "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 (#$ . 65627)])
(byte-code "\304\305!\304\306!\304\307!\304\310!\311\312\313\314 D\315\316 \317B\n\320BE\321 \322\323 D \324 D\257\325\nD\326D\327\330\331 EDD\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 (#$ . 66976) "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 (#$ . 68020) "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 (#$ . 68548) "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 (#$ . 69159) "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 (#$ . 69378) 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`\312 m\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 (#$ . 70090)])
#@300 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. Regards COLLECTION as a hash table
if it is not a list.
(defalias 'gnus-group-completing-read #[(&optional prompt collection require-match initial-input hist def) "\204 \306\211<\203: \306 \211 \2036
@\307\f!\310\311\n\"\203+ \312\n!\202, \n B
A\211\204 *\202? \313\314\"\210\315\206F \316 \237\206R \317&<\203e \n\320\307\"\235\202j \321\n\"J\204u \322\n\323\306\n\"\"\324\n\325\326#*\207" [collection gnus-active-hashtb group choices symbol --dolist-tail-- nil symbol-name string-match "[^ -]" gnus-group-decoded-name mapatoms #[(symbol) "\303!\304\305 \"\203 \306 !\202 \nB\211\207" [symbol group choices symbol-name string-match "[^ -]" gnus-group-decoded-name] 3] gnus-completing-read "Group" gnus-group-history mapcar intern-soft mm-encode-coding-string gnus-group-name-charset gnus-replace-in-string "\n" "" prompt require-match initial-input hist def] 8 (#$ . 71088)])
#@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 (#$ . 72254) (list (gnus-group-completing-read 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 (#$ . 72662) "P"])
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\304\305\306\315\310\316& \207" [custom-declare-variable gnus-large-ephemeral-newsgroup 200 "The number of articles which indicates a large ephemeral newsgroup.\nSame as `gnus-large-newsgroup', but only used for ephemeral newsgroups.\n\nIf the number of articles in a newsgroup is greater than this value,\nconfirmation is required for selecting the newsgroup. If it is nil, no\nconfirmation is required." :version "22.1" :group gnus-group-select :type (choice (const :tag "No limit" nil) integer) gnus-fetch-old-ephemeral-headers nil "Same as `gnus-fetch-old-headers', but only used for ephemeral newsgroups." gnus-thread (choice (const :tag "off" nil) (const some) number (sexp :menu-tag "other" t))] 10)
#@444 Read GROUP from METHOD as an ephemeral group.
If ACTIVATE, request the group first.
If QUIT-CONFIG, use that Gnus window configuration name 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) "\306 \204 \307 \210\310\311!\210\312 ;\203\375 \211\203# \n<\203# \n\206\373 \313\n \"A\206\373 \n\314\232\2035 \f\206\344 \313\n
\"A\206\344 \313\n,\"A\206\344 - ..\203m \n\315\316.@@@.@@A@#\232\204m .\211A.@\210\202J .\211 /@@*\206\344 0 11\203\241 \n\315\3161\211 /@@)1@A@#\232\204\241 1\211A1@\210\202| 1@)\206\344 2A\317\211 3 44\203\341 \3204\211A4@8\211;\204\262 \n \317\321 5 6\322\323\215+\232\203\262 3\317\2114\204\267 3+\211 7\203\370 \313\n \"\204\370 \n7B B7))\324\315\325 @\"!\211 8 \211 /AA)\236\203) @ \211 /A@)\326P \211 /AA)BB\202H @ \211 /A@)\326P8 \211 /A@)D \211 /AA)BBB)\3279!\203V9\202q\3309 :\331\332:\"\203l:\333\225\317O\202n:) \" 9\3249\"\334\3179;\317\211 \335 \203\214 \202\240<=\236\203\234><B\202\240p\336 BB?B\257EL\210 @B@A\211 B\205\275\337\340B!!)\203\305Aq\210\341 !\204\322\342\343\344 !\"\210C\203\354\3459\346\"\210\3479!\204\354\342\350\351 @!\"\210D\203\3669\202\372\317\352\353\217)\207" [gnus-newsrc-hashtb method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-alive-p nnheader-init-server-buffer require gnus-cache gnus-make-hashtable assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f
D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V 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" assoc x name name-method no-enter-cache] 5) intern "%s-address" "-ephemeral" gnus-group-foreign-p gnus-group-prefixed-name string-match "^[^:]+:" 0 -1 quit-config current-window-configuration buffer-live-p get-buffer 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 (byte-code "\203 \301\302!\210\202 \303\304!\210\305\207" [debug-on-quit debug "Quit" message "Quit reading the ephemeral group" nil] 2))) gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match alist no-enter-cache nocache result address-slot group gname gnus-level-default-subscribed gnus-current-window-configuration gnus-buffer-configuration gnus-summary-buffer parameters gnus-ephemeral-servers gnus-group-buffer buffer activate request-only] 12 (#$ . 73787) (list (gnus-group-completing-read) (gnus-read-method "From method"))])
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\312\313\314\"\207" [custom-declare-variable gnus-gmane-group-download-format "http://download.gmane.org/%s/%s/%s" "URL for downloading mbox files.\nIt must contain three \"%s\". They correspond to the group, the\nminimal and maximal article numbers, respectively." :group gnus-group-foreign :version "23.1" :type string autoload url-insert-file-contents "url-handlers"] 10)
#@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" mm-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 "nndoc+ephemeral:%s.start-%s.range-%s" nndoc ((nndoc-article-type mbox)) nil 0 delete-file #2=#:temp-file gnus-gmane-group-download-format] 8 (#$ . 77898) (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 (#$ . 79112) (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://debbugs.gnu.org/%s;mboxmaint=yes;mboxstat=yes") (debian . "http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=%s&mbox=yes;mboxmaint=yes")) '(#$ . 80159) :group 'gnus-group-foreign :version "24.1" :type '(repeat (cons (symbol) (string :tag "URL format string"))))
#@39 Browse bug NUMBER as ephemeral group.
(defalias 'gnus-read-ephemeral-bug-group #[(ids mbox-url &optional window-conf) ";\203 \306!<\204 C\307\310!\311\211\211\312\313\314!! \315\216r\fq\210\316 #\211 $\203H $@#\317\320%#\"!\210$A\211$\2041 *eb\210\321\322\316\323#\203k \316\210\320\324@\325\211%\326\327#\330\327##c\210\202L \331ed #\210\332\320\333\334\335\336#\"\337 \340BB\316&$\210)r\fq\210\331\316\211
\316\341%\210,\342 !+\207" [ids coding-system-for-read coding-system-for-write tmpfile #1=#:temp-buffer #2=#:temp-file string-to-number mm-make-temp-file "gnus-temp-group-" binary 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 url-insert-file-contents format re-search-forward "^To: " t ", %s@%s" gnus-replace-in-string "^http://" "" "/.*$" write-region gnus-group-read-ephemeral-group "nndoc+ephemeral:bug#%s" mapconcat number-to-string "," nndoc ((nndoc-article-type mbox)) 0 delete-file id --dolist-tail-- mbox-url window-conf] 9 (#$ . 80707) (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 (#$ . 81915) (list (read-string "Enter bug number: " (thing-at-point 'word) nil))])
#@46 Browse Emacs bugs IDS as an ephemeral group.
(defalias 'gnus-read-ephemeral-emacs-bug-group #[(ids &optional window-conf) "<\204 C\304\305\306 \"A\n#\210\307\310!\205, r\311\312 !q\210\310\313!\210\314\303!\210@\211)\207" [ids gnus-bug-group-download-format-alist window-conf debbugs-gnu-bug-number gnus-read-ephemeral-bug-group assoc emacs fboundp debbugs-gnu-summary-mode window-buffer selected-window 1 make-local-variable] 5 (#$ . 82226) (list (string-to-number (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 (#$ . 82772) (list (gnus-group-completing-read nil nil nil (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 (#$ . 83500)])
#@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 (#$ . 84464) "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 (#$ . 84758) "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 (#$ . 85525) "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 (#$ . 85749) "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 (#$ . 85980) "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 (#$ . 86347) "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 (#$ . 86671) 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 (#$ . 87189) nil])
#@28 Jump to the server buffer.
(defalias 'gnus-group-enter-server-mode #[nil "\300 \207" [gnus-enter-server-buffer] 1 (#$ . 87527) 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 (#$ . 87666) (list (gnus-group-completing-read))])
#@303 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.
If the backend supports it, the group will also be created on the
server.
(defalias 'gnus-group-make-group #[(name &optional method address args encoded) ";\203\361 \211\203 <\203 \206\353 \306 \n\"A\206\353 \307\232\203& \206\324 \306 \f\"A\206\324 \306
\"A\206\324 8 99\203] \310\3119@@@9@@A@#\232\204] 9\211A9@\210\202: 9\211 :@@*\206\324 ; <<\203\221 \310\311<\211 :@@)<@A@#\232\204\221 <\211A<@\210\202l <@)\206\324 =A\312\211 > ??\203\321 \313?\211A?@8\211;\204\242 \312\314 @ A\315\316\215+\232\203\242 >\312\211?\204\247 >+\211 B\203\350 \306 \n\"\204\350 BB\nBB))\206\360 C\204\317D\320D\"\"D\321\205 \322 \"?\205 ,\203 \323!,D\202 ! E\203-\324DE\"\202/D F\312\211 G H\325FI\"J\203I\326\327\330F!\"\210\331\314FJ\312\211E\257\211HJK\332 \205h\325\332 I\"J\314%\210\323FL\"\333\334BL\210\335D!\204\217\336\337\340HA!\341Q\342\343D!\344Q\"\210\345F!\210\346y\210\347 \210\306\350\312E M;\203\221\211\203\266 <\203\266 \206\215\306 \n\"A\206\215 \307\232\203\310 \206v\306 \f\"A\206v\306
\"A\206v8 99\203\377 \310\3119@@@9@@A@#\232\204\3779\211A9@\210\202\3349\211 :@@*\206v; <<\2033 \310\311<\211 :@@)<@A@#\232\2043<\211A<@\210\202<@)\206v=A\312\211 > ??\203s\313?\211A?@8\211;\204D \312\314 @ A\315\351\215+\232\203D>\312\211?\204I>+\211 B\203\212\306 \n\"\204\212 BB\nBB))\202 \232\203\233 \202@;\203\256M\203\256\352M\"\202\203\307M\204\307\211 :A@)\353\232\203\307\202\350@! N\354\306NO\">\203 \323N\355P!\236\204 \356@O\236>\203 \357\323N\355P!A@DC\"\202**@\211G!O\"\203\360G!\210\361E!\210\362F M P\312\363\364\217*\2039\365F\312Q#\2049\326\366\367G!\"\210,\314\207" [method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f
D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V 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 #7="") format #5="%s" #6="%s:%s" assoc x name name-method no-enter-cache] 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 gnus-group-group-name 1 0 gnus-ephemeral-group-p gnus-dribble-enter "(gnus-group-set-info '" gnus-prin1-to-string ")" "^(gnus-group-set-info '(\"" regexp-quote "\"" 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@)#\211 B\211 \235\204V \204V \315@ \"\204V 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 #5# #6# assoc x name name-method no-enter-cache] 5) gnus-server-extend-method #7# 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 no-enter-cache 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 (#$ . 88161) (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 (#$ . 92912) "P"])
#@43 Delete all articles in the current group.
(defalias 'gnus-group-delete-articles #[(group) "\303\304 \"J!\305\306\307\nG\"!\205 \310\n\311#)\207" [group gnus-active-hashtb articles gnus-uncompress-range intern-soft gnus-yes-or-no-p format "Do you really want to delete these %d articles forever? " gnus-request-expire-articles force] 4 (#$ . 93331) (list (gnus-group-group-name))])
#@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 (#$ . 93723) (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 (#$ . 95219) (let ((group (gnus-group-group-name)) method new-name) (if (gnus-check-backend-function 'request-rename-group group) nil (error "This back end does not support renaming groups")) (setq new-name (gnus-read-group "Rename group to: " (let ((gname (gnus-group-decoded-name group))) (if (string-match "^[^:]+:" gname) (substring gname (match-end 0)) gname))) method (nth 4 (nth 2 (symbol-value (intern-soft group gnus-newsrc-hashtb))))) (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 (#$ . 97401) (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 (#$ . 98354) (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 (#$ . 98546) (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 (#$ . 98745)])
#@61 Create one of the groups described in `gnus-useful-groups'.
(defalias 'gnus-group-make-useful-group #[(group method) "\303!\304\305\236>\211\203 \305 @A@!\240\210\202 )\306\n\"\207" [method entry group gnus-copy-sequence nil eval gnus-group-make-group] 3 (#$ . 99725) (let ((entry (assoc (gnus-completing-read "Create group" (mapcar 'car gnus-useful-groups) 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 (#$ . 100167) 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 (#$ . 101090) (list (read-file-name "File name: ") (and current-prefix-arg 'ask))])
(defvar gnus-group-web-type-history nil)
(defvar gnus-group-web-search-history nil)
#@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\320 \"\321\322\302%
D! \"\323\324@\2068 \325\326B\327# #\307 \330#D\331\332\"!D\333BBBB $\203g \334\335$\236$\"$\336 $\"\202{ \337 $\321p%\340=\203x \341\202y \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 gnus-completing-read "Search engine type" mapcar #[(elem) "\301@!\207" [elem symbol-name] 2] t nil 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 gnus-summary-mode summary type search method major-mode] 8 (#$ . 102323) "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\f E B \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 (#$ . 103276) nil])
#@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 (#$ . 104156) (list (read-directory-name "Create group from directory: "))])
#@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\211 A\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 (#$ . 105031) (list current-prefix-arg (gnus-group-completing-read "Add to virtual group" 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 (#$ . 105678) "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 (#$ . 106154) "DDirectory to read: "])
#@51 Expunge deleted articles in current nnimap GROUP.
(defalias 'gnus-group-expunge-group #[(group) "\303!\304 @\305\306\307\217*\204 \310\311 @\"\202 \312 \")\207" [group method func gnus-find-method-for-group request-expunge-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 "%s does not support expunging" gnus-request-expunge-group] 3 (#$ . 106645) (list (gnus-group-group-name))])
(byte-code "\300\301\302\"\210\300\303\302\"\207" [autoload nnimap-acl-get "nnimap" nnimap-acl-edit] 3)
#@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 \211 A@)\"\211\204Q \312\323!\210\324\n\325\326\"\327\330\331\f\332 D\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 (#$ . 107304) (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 (#$ . 109272) (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 (#$ . 110011) "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 (#$ . 110274) "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 (#$ . 110556) "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 (#$ . 110814) "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 (#$ . 111056) "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 (#$ . 111298) "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 (#$ . 111537) "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 (#$ . 111798) "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 (#$ . 112057) (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 (#$ . 112836) (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 (#$ . 113203) (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 (#$ . 113577) (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 (#$ . 113940) (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 (#$ . 114287) (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 (#$ . 114634) (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 (#$ . 114978) (gnus-interactive "P\ny")])
#@22 Sort alphabetically.
(defalias 'gnus-group-sort-by-alphabet #[(info1 info2) "@ @\231\207" [info1 info2] 2 (#$ . 115343)])
#@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 (#$ . 115472)])
#@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 (#$ . 115745)])
#@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 (#$ . 115992)])
#@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 (#$ . 116161)])
#@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 (#$ . 116348)])
#@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 (#$ . 116587)])
#@26 Sort by level and score.
(defalias 'gnus-group-sort-by-rank #[(info1 info2) "A@\211:\203 @\202 )\nA@\211:\203 @\202 )\211 W\206O \f U\205O A@\211:\203< A\206= \305)\nA@\211:\203L A\206M \305)V*\207" [info1 rank info2 level2 level1 0] 3 (#$ . 116770)])
#@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!\205\n \303\304\"\207" [arg gnus-y-or-n-p "Really clear data? " 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 (#$ . 117046) "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 (#$ . 117585) 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 --dolist-tail-- 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]] 14 (#$ . 118144)])
#@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$ \316 G\317U\2032 \320 @!\2027 \314\321 G\"\"!\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 (#$ . 118881) "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 (#$ . 120279) "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\220 \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\207 \335!\204\207 \336\337
\"\210 $\340\341!\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-group-read-only-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 (#$ . 120524)])
#@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 (#$ . 121776) "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\323 8\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 (#$ . 123239) 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 --dolist-tail-- 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 (#$ . 123618) (list current-prefix-arg (progn (if (gnus-group-process-prefix current-prefix-arg) nil (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 (#$ . 124592) "P"])
#@30 Subscribe the current group.
(defalias 'gnus-group-subscribe #[(&optional n) "\301\302\"\207" [n gnus-group-unsubscribe-current-group subscribe] 3 (#$ . 124772) "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 --dolist-tail-- 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 (#$ . 124946) "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 (#$ . 125593) (list (gnus-group-completing-read 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 (#$ . 126595) "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 (#$ . 127020) (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 (#$ . 127363) "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\203\207
\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 @\323 8B#B#\324 \203b \202c \f$ ?\205k \n#\210\315\f\"\"J@\247\203} \325\f\326\"\210\327\330\331\f!\"\210\202
\237\306 \211 %\203%@\311\f!\210\313 \314y\210`|\210\f&B&\332\333\f'\"'\"'(\203\277 (\f$\334#\210\315\f\"\"J\211\203\340 @\323 8B#B# A AAA\241\210\202\356 \f)\235\203\356 \335\f)\")\320\f!\203\377 \313 \314y\210`|\210\202\356 \315\f\"\"J@\247\203\325\f\326\"\210%A\211%\204\221 *\336 \210\337 \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 gnus-request-update-group-status unsubscribe 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 --dolist-tail-- gnus-killed-list gnus-newsrc-alist gnus-group-change-level-function gnus-zombie-list] 7 (#$ . 127719) "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\211 S\211\310Y\203k
\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\"\210\322\323\324 D\325BB!\210\202 \326y\210\327 \210 G\330W\203} @\202 \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-request-update-group-status subscribe 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 (#$ . 129368) "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
\211 A\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 (#$ . 130391) "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 (#$ . 131048) "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 (#$ . 131353) "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 (#$ . 131853) 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] 12 (#$ . 132191) 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 (#$ . 133074) (list gnus-level-unsubscribed)])
#@335 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.
If ONE-LEVEL is not nil, then re-scan only the specified level,
otherwise all levels below ARG will be scanned too.
(defalias 'gnus-group-get-new-news #[(&optional arg one-level) "\306\307!\210\310\211C\311\312!\210\311\313!\210\n\204 \314 \210\315\316 \310\"\317\f#\210
\320=\203* \321 \210\322 \210\311\323!\210\324 \247\205< @ ]!*\207" [nnmail-fetched-sources gnus-inhibit-demon gnus-slave arg one-level gnus-check-new-newsgroups require nnmail t gnus-run-hooks gnus-get-top-new-news-hook gnus-get-new-news-hook gnus-master-read-slave-newsrc gnus-get-unread-articles gnus-group-default-level nil always gnus-find-new-newsgroups gnus-check-reasonable-setup gnus-after-getting-new-news-hook gnus-group-list-groups gnus-group-list-mode] 4 (#$ . 133313) "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 \311\211 \312\211 #C $\313\314!\210 \211A@\211\203\263 \315\f!\210\316\317\f!\211!\210\320\f%?\205H \321\311
$\203\247 \322\323\f&\"J8\323\f'\"J (\211 )\203j \324)
\"\210\325)(\"\210\326\f!\204{ \327\f!\210*\203\235 \330
\f +\331\332+\"\203\226 +\307\225\311O\202\230 +)(#\210\333\f\311\312#\210*\202) \334\335\336\f\337\f!$\210\202) \203\272 b\210,\203\304 \340\341\312\"\210\342 \210\n.\207" [n groups ret beg group method gnus-group-process-prefix 0 point-marker 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 gnus-request-update-info gnus-get-unread-articles-in-group gnus-virtual-group-p gnus-close-group gnus-agent-save-group-info string-match "^[^:]+:" gnus-group-update-group gnus-error 3 "%s error: %s" gnus-status-message gnus-group-next-unread-group 1 gnus-group-position-point gnus-inhibit-demon nnmail-fetched-sources dont-scan gnus-newsrc-hashtb gnus-active-hashtb active info gnus-agent gname gnus-goto-next-group-when-activating] 7 (#$ . 134302) "P"])
#@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 !\205M \320\321\322 \206L \315
\"J\206L \323#+\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 "%s" "No description available"] 6 (#$ . 135805) (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\317 T\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 (#$ . 136431) "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 (#$ . 137176) "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 (#$ . 138160) "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 (#$ . 138527) "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 (#$ . 139223) "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 (#$ . 139680) "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 (#$ . 139889) "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 (#$ . 140165) 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 (#$ . 140360) "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) "\305\206 \306!\307\310 \210\311 \n\307\211 \203& \f@\312 !\210\fA\211\204 * \205. \312 !*\207" [arg current-group new-groups group --dolist-tail-- gnus-find-new-newsgroups 1 nil gnus-group-list-groups gnus-group-group-name gnus-group-jump-to-group] 3 (#$ . 140660) "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\n\203 \307\202 \310\311\312!$\207" [article gnus-current-kill-article group gnus-kill-file-edit-file gnus-message 6 "Editing a %s kill file (Type %s to exit)" "local" "global" substitute-command-keys "\\[gnus-kill-file-exit]"] 6 (#$ . 141311) "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 (#$ . 141734) (list nil (gnus-group-group-name))])
#@24 Update `.newsrc' file.
(defalias 'gnus-group-force-update #[nil "\300 \207" [gnus-save-newsrc-file] 1 (#$ . 141932) 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 --dolist-tail-- 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 (#$ . 142061) 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 (#$ . 142831) 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 (#$ . 143040) 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\202 \315\316!\210\317\320\321\"\210\f\211 \2058 \322\323
!!)\203L \306r\fq\210\307 )!\204L \324\325!\210\326 \210\327 \210\330 \210 \211 \211 \205k
;\203h \323\202i \331
!)\203~ \332\323 ! \" \333 !\210)\315\334!\207" [noninteractive gnus-select-method gnus-expert-user gnus-current-startup-file gnus-dribble-buffer 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 buffer-live-p get-buffer gnus-dribble-enter ";;; Gnus was exited on purpose without saving the .newsrc files." gnus-dribble-save gnus-close-backends gnus-clear-system buffer-name delete kill-buffer gnus-after-exiting-gnus-hook gnus-group-buffer buf gnus-buffers] 6 (#$ . 143595) nil])
#@57 Give a one line description of the group mode commands.
(defalias 'gnus-group-describe-briefly #[nil "\300\301\302\303\304!#\207" [gnus-message 7 "%s" 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"] 5 (#$ . 144641) nil])
#@277 Browse a foreign news server.
If called interactively, this function will ask for a select method
(nntp, nnspool, etc.) and a server address (e.g., 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 (#$ . 145092) (list (let ((how (gnus-completing-read "Which back end" (mapcar 'car (append gnus-valid-select-methods gnus-server-alist)) t (cons "nntp" 0) 'gnus-method-history))) (if (assoc how gnus-valid-select-methods) (list (intern how) (gnus-completing-read "Address" 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 \211 W\203X S\233\316 Z\310\"\241\210 S\233
\240\210*\f\204\366 r q\210\3178 \320 \321\"\203z \310 r q\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-import-other-newsrc-file #[(file) "\306\307!rq\210\310\216\311 !\210\312\312\313\314\217\205\\ \n:\203 \n\211A@)\315=\203 \316\n8\211A@)\211 \312 \211 \203X @\316\317
@\"J8\203O \320
@
\"\210A\211\2049 +\202 ,\207" [#1=#:temp-buffer file form x infos info generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents nil (byte-code "\301p!\211\207" [form read] 2) ((error)) gnus-newsrc-alist 2 intern-soft gnus-set-info --dolist-tail-- gnus-newsrc-hashtb] 5])
(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\316 A!\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!\211\211\205 \306\307 !!)\203! r\307 !q\210\310\n \")\202* \311 \f\236A\nC#)\207" [group buffer article mark gnus-article-mark-lists gnus-summary-buffer-name buffer-live-p get-buffer gnus-summary-add-mark gnus-add-marked-articles] 5 (#$ . 148001)])
#@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 (#$ . 148388)])
#@33 Return the timestamp for GROUP.
(defalias 'gnus-group-timestamp #[(group) "\301\302\303#\207" [group gnus-group-get-parameter timestamp t] 4 (#$ . 148746)])
(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 (#$ . 148983)])
#@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 (#$ . 149325)])
#@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 (#$ . 149591) "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 (#$ . 150358) "P"])
#@241 List all groups with ticked 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-ticked #[(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 tick] 2] ignore gnus-group-position-point] 5 (#$ . 150984) "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 (#$ . 151604)])
#@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 (#$ . 151877) "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 (#$ . 152292) "P"])
#@375 List groups limited within the current selection.
If you've limited the groups, you can further limit the selection
with this command. If you've first limited to groups with
dormant articles with `A ?', you can then further limit with
`A / c', which will then limit to groups with cached articles, giving
you the groups that have both dormant articles and cached articles.
(defalias 'gnus-group-list-limit #[(&optional args) "\302\303 !)\207" [gnus-group-list-option args limit gnus-group-list-plus] 2 (#$ . 152490) "P"])
#@20 Mark ARTICLE read.
(defalias 'gnus-group-mark-article-read #[(group article) "\306! \307\211 \310
!\203 r
q\210\311!\210\205{ \203/ \f>\203/ \312 \f#\313 C\314\315EC\"\210\316 \f\"\210\317 \"J \205{ AT\211AX\203s \n =\204l \n B \nT\211\202X \320 \321\"\211 )\202\236 \311!\210\322 C\"\210\323!\205\236 \324!?\205\236 \325\326 C#,\207" [group gnus-read-mark n active mark buffer gnus-summary-buffer-name nil get-buffer gnus-activate-group gnus-request-update-mark gnus-request-set-mark add (read) gnus-mark-article-as-read intern-soft sort < gnus-group-make-articles-read gnus-group-auto-expirable-p gnus-group-read-only-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] 6 (#$ . 153020)])
#@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 (#$ . 153917) (list (gnus-group-group-name))])
(provide 'gnus-group)