Current File : //usr/local/share/emacs/27.2/lisp/gnus/gnus-group.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\300\312!\210\300\313!\210\314\315\316\"\210\314\317\320\"\210\314\321\322\"\210\314\323\324\"\210\314\325\324\"\210\326\327\330\331\332\303\333\334&\210\326\335\336\337\332\340\333\341&\210\326\342\343\344\345\346\332\347\333\350& \210\326\351\343\352\345\353\332\347\333\350& \210\326\354\336\355\332\356\333\357&\210\326\360\361\362\363\364\332\347\333\365& \210\326\366\343\367\332\356\333\350&\210\326\370\371\372\332\356\333\373&\210\326\374\343\375\332\356\332\340\333\350& \210\326\376\377\201@ \332\356\345\201A \333\201B & \210\326\201C \201D \201E \345\201F \332\201G \333\334& \210\326\201H \201I \201J \332\201G \333\334&\210\326\201K \336\201L \332\347\333\201M &\210\326\201N \336\201O \332\347\345\201P \333\201M & \210\326\201Q \336\201R \332\201G \333\201M &\210\326\201S \201T \201U \332\356\333\201V &\210\326\201W \336\201X \332\356\333\201M &\210\326\201Y \336\201Z \332\201[ \333\201M &\210\326\201\\ \336\201] \332\201[ \333\201M &\210\326\201^ \336\201_ \332\201[ \333\201M &\210\326\201` \336\201a \332\201G \363\201b \333\201M & \210\326\201c \201d \201e \332\356\333\201f &\210\326\201g \201h \201i \332\201G \333\201j &\210\201k \201g \201l \343#\210\326\201m \201n \201o \332\201G \333\201p &\210\201q \201r \336\201s \332\201G %\210\326\201t \336\201u \332\201r \333\201v &\210\201k \201t \201l \343#\210\326\201w \336\201x \363\201y \332\201z \333\201{ & \210\326\201| \201} \201~ \332\201z \333\201 &\210\326\201\200 \336\201\201 \363\201\202 \332\347\333\201\203 & \210\326\201\204 \201\205 \201\206 \332\356\333\201\207 &\207" [require cl-lib gnus gnus-start nnmail gnus-spec gnus-int gnus-range gnus-win gnus-undo gmm-utils time-date autoload gnus-agent-total-fetched-for "gnus-agent" gnus-cache-total-fetched-for "gnus-cache" gnus-group-make-nnir-group "nnir" gnus-cloud-upload-all-data "gnus-cloud" gnus-cloud-download-all-data 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 (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")))) gnus-group-listing-limit 1000 "A limit of the number of groups when listing.\nIf the number of groups is larger than the limit, list them in a\nsimple manner." integer] 10)
(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 (#$ . 15421))
#@63 Function for sorting the selected groups in the group buffer.
(defvar gnus-group-sort-selected-function 'gnus-group-sort-selected-flat (#$ . 15541))
(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 (#$ . 15833))
(defvar gnus-group-edit-buffer nil)
(defvar gnus-group-line-format-alist '((77 gnus-tmp-marked-mark 99) (83 gnus-tmp-subscribed 99) (76 gnus-tmp-level 100) (78 (cond ((eq number t) "*") ((numberp number) (int-to-string (+ number (gnus-range-length (cdr (assq 'dormant gnus-tmp-marked))) (gnus-range-length (cdr (assq 'tick gnus-tmp-marked)))))) (t number)) 115) (82 gnus-tmp-number-of-read 115) (85 (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 gnus-tmp-group 115) (71 gnus-tmp-qualified-group 115) (99 (gnus-short-group-name 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)))
(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 (#$ . 17598))
#@33 The complete topic-group alist.
(defvar gnus-topic-alist nil (#$ . 17680))
(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\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\210\300\313\314\"\210\300\315\316\"\210\300\317\320\"\210\300\321\322\"\210\300\323\324\"\210\300\325\326\"\210\300\327\330\"\210\300\331\332\"\210\300\333\334\"\207" [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 "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 [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-cloud-map "~" gnus-group-mode-map) ("u" gnus-cloud-upload-all-data "~" gnus-cloud-upload-all-data "d" gnus-cloud-download-all-data "
" gnus-cloud-download-all-data) (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)] 3)
#@38 Return non-nil in `gnus-topic-mode'.
(defalias 'gnus-topic-mode-p #[nil "\300\301!\205 \301J\207" [boundp gnus-topic-mode] 2 (#$ . 24137)])
(defalias 'gnus-group-make-menu-bar #[nil "\301\302!?\205+ \303\304!\210\305\302\306\307$\210\310\304!\210\305\311\306\312$\210\313\304!\210\305\314\306\315$\210\316\317!\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)] ["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 :included (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 :included (not (gnus-topic-mode-p)) :active (gnus-group-group-name) :help "Check for new messages in current group"] ["Check for new articles " gnus-topic-get-new-news-this-topic :included (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 :active (gnus-group-group-name) :help "Kill (remove) current group"] ["Yank" gnus-group-yank-group gnus-list-of-killed-groups] ["Describe" gnus-group-describe-group :active (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 mark-active] ["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 mark-active] ["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] 5])
(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 (#$ . 32857)])
(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!\2038 \2038 \307 \2038 \203 \n\2038 \310\311\312\313\314$\211@\fB \315
\316#\211 \2037 \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 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 (#$ . 36187)])
(defvar gnus-group-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [gnus-group-mode-hook variable-documentation put "Hook run after entering Group mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp gnus-group-mode-map definition-name gnus-group-mode] 4)
(defvar gnus-group-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [gnus-group-mode-abbrev-table gnus-group-mode-map variable-documentation put purecopy "Keymap for `gnus-group-mode'." boundp gnus-group-mode-syntax-table definition-name gnus-group-mode (lambda (#1=#:def-tmp-var) (defvar gnus-group-mode-syntax-table #1#)) make-syntax-table "Syntax table for `gnus-group-mode'." (lambda (#1#) (defvar gnus-group-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `gnus-group-mode'." derived-mode-parent gnus-mode] 5)
#@792 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}
In addition to any hooks its parent mode `gnus-mode' might have run,
this mode runs the hook `gnus-group-mode-hook', as the final or penultimate step
during initialization.
(defalias 'gnus-group-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036
\321 =\203< \322\f\323 \"\210)\324,\325\"\204V ,-=\204V \326,\325-C#\210\327 !\210\330\f!\210,-\331\332\333\"\203o \334 \210\335 \210\336 \210\337 \210\340.\341 \210\307/\3400\342 \210\343\340\344\345#\210\346 \2101\203\226 \347\350!\2102\203\236 \351 \210)\352\353!\207" [delay-mode-hooks major-mode mode-name gnus-group-mode-map gnus-group-mode-syntax-table parent make-local-variable t gnus-mode gnus-group-mode "Group" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table gnus-visual-p group-menu menu gnus-group-make-menu-bar gnus-group-make-tool-bar gnus-simplify-mode-line gnus-group-set-mode-line nil buffer-disable-undo gnus-set-default-directory gnus-update-format-specifications group group-mode gnus-update-group-mark-positions gnus-undo-mode 1 gnus-slave-mode run-mode-hooks gnus-group-mode-hook gnus-group-mode-abbrev-table local-abbrev-table mode-line-process truncate-lines show-trailing-whitespace gnus-use-undo gnus-slave] 6 (#$ . 37976) nil])
(defalias 'gnus-update-group-mark-positions #[nil "\212\306\307\310\311\312\313\206
\314\315\316$) \317\320\321 #\210\322 \210\323\320\324\307\324\307%\210eb\210\325\326\327\f!\307\330#\2059 \331`e\332#BC\211-\207" [size gnus-active-hashtb gnus-group-marked gnus-group-update-hook gnus-process-mark gnus-group-mark-positions 128 nil ("dummy.group") 10 make-hash-table :size 300 :test equal puthash "dummy.group" (0 . 0) gnus-set-work-buffer gnus-group-insert-group-line 0 process search-forward string t - 1] 8])
#@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 (#$ . 40587) "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 (#$ . 40766)])
(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 "\301!q\210\302\303!?\205 \303 \207" [gnus-group-buffer gnus-get-buffer-create derived-mode-p gnus-group-mode] 2])
(defalias 'gnus-group-name-charset #[(method group) "\204 \306 !;\203O\211\203 \211<\203 \211\206L\307\n\"A\206L\211\310\232\203- \2068\307\f\"A\2068\307
\"A\2068 \211\203\\ \311\312@@@@@A@#\232\204\\ \211A\266\202\202? \211@@\262\2068 \211\203\201 \311\312@@@A@#\232\204\201 \211A\266\202\202f \211@\262\2068 A\313\211\2036\211A\262\242\3148\262\262;\204\215 \313\315C\3162'\211\242\206\264 \240\210\204\313 \317\320\321\322\323\324!\325\"\314\326%\n\"\210\f
D\211\203\354 \211@\317\320\321\327\323\324!\330\"\314\326%\"\210A\266\202\202\316 \210\211\242A@\331\235\203\377 \311\332\242@\"\202 \311\312\242@\242A@#\211\242B\211\n\235\204#\204#\307@\n\"\204#\211\nB\266\2020\266\204\232\203\215 \262\313\262\202\215 \266\202\211\203I\307\n\"\204IB\nB\211\262\262@\333=\203X\334\207\307!\"\206o:\205o\307@A@D!\"\"\313 # $\211 %\203\202%A\202\245$\211A$\242\211%\203\243\335%@ \"\203\202\313$%A#\202\202#+\207" [method group gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-find-method-for-group assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" nnimap utf-8 string-match gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist gnus-group-name-charset-method-alist gnus-group-name-charset-group-alist result alist item] 19])
(defalias 'gnus-group-name-decode #[(string charset) "\203
\203
\302 \"\207\207" [string charset 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@ \316U\204G \317 \316U\203N \320\321\322 #\210db\210!\203_ !\f\"\204\250
\203i eb\210\202\250 \f\204t \323\324!\210\202\250 \325\326\f\311\327$\204\250 \f\"\235\243\211 #\203\234 \325\326#@\330\327$\204\234 #A\211#\204\210 #\204\247 db\210\331y\210)\332 -\207" [level gnus-group-list-mode unread number group empty gnus-group-default-level gnus-group-setup-buffer gnus-update-format-specifications nil group-mode text-properties-at point-at-bol gnus-group-group-name 0 buffer-size gnus-message 5 "%s" gnus-group-search-forward t gnus-text-property-search gnus-group goto forward -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-group-list groups] 6 (#$ . 43339) (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 (#$ . 44728) "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 \206 \307\n\205 \310\n!\306\211\211\211\211 \" # $ %\311 \210 &W\204/ \n\203*'A\306 (\211 )\203))@\211(\312*\"A@\262\211#@\313#8\312\f*\"@$\203g \314\f$\"$\315\f
\204r +\205\375 ,;\203\200 \316,\f\"\205\375 #\211A@\211:\203\217 \211@\202\220 \211\266\202\211\"-X\205\375 \" Y\205\375 \317+!\203\261 +#!\202\375 +\203\272 \320\202\375
\320=\203\305 .\202\315
\247\203\320
\321V\206\375 /\203\337 \322\323#8\236A\206\375 0\203\354 \3160\f\"\206\375 \f1\235\206\375 \324 >\206\375 \324 \236A\"\203 \325\f#\211A@\211:\203\211@\202\211\266\202\323#8
\326#8%\210)A\211)\204; *\n\204=-&Y\203M &X\203M\327\3302\331\"\2112&\332,$\210$\203q2\306 \211 )\203p)@\314\f$\"$)A\211)\204\\*\n\204\204-3Y\203\232 3X\203\232\327\333$\3304\331\"\2114\334\335$3\336,$\210\337 \210-+B5\340\341!\210.\320\207" [gnus-group-buffer lowest gnus-group-listed-groups params group unread nil 1 copy-sequence erase-buffer gethash 5 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 cl-union :test equal 75 gnus-group-set-mode-line gnus-run-hooks gnus-group-prepare-hook clevel info not-in-list buffer-read-only gnus-level-zombie gnus-group-list g --dolist-tail-- gnus-newsrc-hashtb predicate regexp level gnus-group-list-inactive-groups gnus-list-groups-with-ticked-articles gnus-permanently-visible-groups gnus-group-marked gnus-zombie-list gnus-level-killed gnus-killed-list gnus-group-list-mode] 9 (#$ . 45190)])
(defalias 'gnus-group-prepare-flat-list-dead #[(groups level mark regexp) " \233\203\\ \306\211\205Z @\307\n\f?\2066 \f;\203- \f\n\306\310 \311#)\266\203\2026 \312\f!\2056 \f\n!\"\203R \313``T\314\315\n\316\261\210\317\n\320\310\321\257#\210 A\211\204 \306*\207 \306\211\205\305 @\307\n\f?\206\214 \f;\203\203 \f\n\306\310 \311#)\266\203\202\214 \312\f!\205\214 \f\n!\"\203\275 \322\n\306\323\n\"\211 \205\265 A\324U\203\254 \324\202\265 \325 A @\326#)\327\330\n!!%\210 A\211\204d \306*\207" [gnus-group-listing-limit groups group --dolist-tail-- regexp inhibit-changing-match-data nil gnus-group-prepare-logic t string-match functionp add-text-properties " " " *: " "\n" gnus-group gnus-unread gnus-level gnus-group-insert-group-line gethash 0 - -1 gnus-method-simplify gnus-find-method-for-group mark level gnus-active-hashtb active] 10])
#@46 Update the current line in the group buffer.
(defalias 'gnus-group-update-group-line #[nil "\305\306 \211\205
\307 \n\"\305 \205C \203/ \310 !\204/ \311\312\313 A@!\314Q\315\316 !\317Q\"\210\320 \321 \322y\210`|\210\323 !\210\324y\210\325 ,\207" [buffer-read-only group gnus-newsrc-hashtb entry gnus-group-indentation nil gnus-group-group-name gethash gnus-ephemeral-group-p gnus-dribble-enter "(gnus-group-set-info '" gnus-prin1-to-string ")" "^(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 (#$ . 48136)])
#@35 Insert GROUP on the current line.
(defalias 'gnus-group-insert-group-line-info #[(group) "\306 \"\307 \310\211 \211 \2037
A@\311\n\211A@\211:\203$ \211@\202% \211\266\202\312\n8
@\2060 \313\314\n8%\202i \311\211\235\203E \202G \310\306\"\211\205c A\315U\203] \315\202c AT @Z\316\317!!%,\207" [group gnus-newsrc-hashtb info active gnus-group-indentation entry gethash gnus-group-group-indentation nil gnus-group-insert-group-line 3 t 4 0 gnus-method-simplify gnus-find-method-for-group gnus-zombie-list gnus-level-zombie gnus-level-killed gnus-active-hashtb] 9 (#$ . 48765)])
(defalias 'gnus-number-of-unseen-articles-in-group #[(group) "\306 \"A@\307\n8\304 \236A \306
\"\211 \f\204 \310\202, \311\312\211\fC\313\n8\"\f\"!G,\207" [group gnus-newsrc-hashtb info marked seen gnus-active-hashtb gethash 3 0 gnus-uncompress-range gnus-range-difference 2 active] 7])
#@43 Force updating the group buffer tool bar.
(custom-declare-variable 'gnus-group-update-tool-bar '(and (boundp 'tool-bar-mode) tool-bar-mode) '(#$ . 49659) :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) " \211;\203K\211\211\203 \211<\203 \211\206F\306\n\"A\206F\211\307\232\203' \2062\306\f\"A\2062\306
\"A\2062@\211\203V \310\311@@@@@A@#\232\204V \211A\266\202\2029 \211@@\262\2062A\211\203{ \310\311@@@A@#\232\204{ \211A\266\202\202` \211@\262\2062BA\312\211\2030\211A\262\242\3138\262\262;\204\207 \312\314C\3152!\211\242\206\256 \240\210\204\305 \316\317\320\321\322\323!\324\"\313\325%\n\"\210\f
D\211\203\346 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\310 \210\211\242A@\330\235\203\371 \310\331\242@\"\202\310\311\242@\242A@#\211\242B\211\n\235\204 \204 \306@\n\"\204 \211\nB\266\2020\266\204\232\203\207 \262\312\262\202\207 \266\202\211\203C\306\n\"\204CB\nB\211\262\266\203\202\265\211 \232\203W \266\202\202\265\211@;\203j\203j\332\"\266\202\202\265\211\203\204\211A@\333\232\203\262\202\265\211\334@!\335\306C\">\203\262\336\337P!\236\204\262\340@C\236>\203\262\341\336\337P!A@DC\"\202\263\266\204\342D\"\211 E\203\314EAE@ZT\202\315\343 FG\247\203\336\344\343G]!\202\337\345 HG\247\203\363\344\343FGZ]!\202\364\345 IJKX\203\346\202JLX\203\347\202JMU\203\350\202\351 N O\352\353O\"\2031\354O\343\225\"\2023O) P\355\356\314#\206? QR\203R\342R\"\206S\333\202S\333 ST\203f\342T\"\203f\357\202g\346\211 U\357=\203s\360\202t\333 V\361! W A@\206\202\333 X @\206\212\333 Y \203\233\310\362 @ A@#\202\234\333 ZG\247\203\267G\343U\203\267\363[\236A\203\267\364\202\270\346 \\]\204\336\365!\211 ^\205\326\366\367^!\211^!\205\326^)\203\336\364\202\337\346 _`\235\203\355a\202\356\346 b\312\211 c d\312\211 e f\370 \210`d\371``T\372g!\210\373\374G\247\203\375H!\202 \314\376\\\377h\201j J\257\n#\210`e\201k de\"\210\201l y\210\201m \201n i\205i\204Ri\266\202\202ki<\203hi>\206i\211i>\266\202\202k\314\266\202\203x\201o de#\210\201p \201q !\210\312y.\207" [gnus-tmp-group gnus-tmp-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1="") "%s" gnus-server-extend-method #1# symbol-name address intern "-address" physical-address append gethash 0 int-to-string "*" 32 85 90 75 string-match "^[^:]+:" substring gnus-group-get-parameter comment 109 "(m)" gnus-group-get-icon "(%s:%s)" tick 42 gnus-summary-buffer-name buffer-live-p get-buffer beginning-of-line add-text-properties eval gnus-group gnus-unread string-to-number gnus-marked gnus-indentation gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist gnus-valid-select-methods 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 gnus-tmp-header gnus-group-line-format-spec gnus-group-indentation gnus-visual gnus-level gnus-group--setup-tool-bar-update -1 group-highlight highlight gnus-group-highlight-line gnus-run-hooks gnus-group-update-hook] 21 (#$ . 50066)])
(defalias 'gnus-group--setup-tool-bar-update #[(beg end) "\205, \304\301!\203 \305\301!\203 \204 \301\306!\210\307\n \310\311$\207\307\n \312\313$\210\307\n \314\313$\207" [gnus-group-update-tool-bar cursor-sensor-mode beg end fboundp boundp 1 put-text-property cursor-sensor-functions (gnus-tool-bar-update) point-entered gnus-tool-bar-update point-left] 5])
#@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) "\205f\306 \n\"\306 \f\" A@ 4 \30748\211;\203p\211\211\203+ \211<\203+ \211\206k\3105\"A\206k\211\311\232\203? 6\206T\3107\"A\206T\3108\"A\206T9\211\203p \312\313@@@@@A@#\232\204p \211A\266\202\202S \211@@\262\206T:\211\203\225 \312\313@@@A@#\232\204\225 \211A\266\202\202z \211@\262\206T;A\314\211\203R\211A\262\242\3078\262\262;\204\241 \314\315C\3162C\211\242\206\311 6\240\210\204\341 \317\320\321\322\323\324!\325\"\307\326%5\"\21078D\211\203\211@\317\320\321\327\323\324!\330\"\307\326%\"\210A\266\202\202\346 \210\211\242A@\331\235\203\312\332\242@\"\202!\312\313\242@\242A@#\211\242B\2115\235\204?\204?\310@5\"\204?\2115B5\266\2020\266\204\232\203\241 \262\314\262\202\241 \266\202\211\203h\3105\"\204hB5B5\211\262\266\203\202\334\2116\232\203~6\266\202\202\334\211@;\203\221\203\221\333\"\266\202\202\334\211\203\246\204\246\211A@\334\232\203\246\262\202\334\211\335@!\336\310<\">\203\331\337\340P!\236\204\331\341@<\236>\203\331\342\337\340P!A@DC\"\202\332\266\204 =\34348 >\344 @\247\203\360 @\202\361\345B\346
\203
A
@ZT\202\345B\347\350\342\351\352\353\"\"B\3544\211A@\211:\203\211@\202 \211\266\202\206#?B\3554\211A@\211:\2034\211A\2065\345\266\202\206;\345B\356\357\360>\236A!B\361\362 !B\257 @\203c\363@@@\"\204cA\211\204R.\207" [list group gnus-newsrc-hashtb entry gnus-active-hashtb active gethash 4 assoc "native" format "%s:%s" nil t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1="") "%s" gnus-server-extend-method #1# symbol-name address intern "-address" physical-address append 3 unread 0 total mailp apply mapcar #[(x) "\304\305 \206 \n@! \">\207" [x method gnus-select-method gnus-valid-select-methods assoc symbol-name] 4] (mail post-mail) level score ticked gnus-range-length tick group-age gnus-group-timestamp-delta eval info gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist gnus-valid-select-methods method marked gnus-level-killed env] 21 (#$ . 54415)])
#@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 \"@A\211\307 \302\"=?\205% \310 \311
\302\312\n!\203\" \nJ\202# \n$))\207" [group gnus-group-highlight face beg inhibit-read-only end gnus-group-update-eval-form gnus-get-text-property-excluding-characters-with-faces t gnus-put-text-property-excluding-characters-with-faces boundp] 7 (#$ . 56968)])
#@63 Return an icon for GROUP according to `gnus-group-icon-list'.
(defalias 'gnus-group-get-icon #[(group) "\203! \303 \"@A\211\203 \304\305\306\307\310\311\n!!\312\"#\202 \305)\207\305\207" [gnus-group-icon-list group image-path gnus-group-update-eval-form propertize " " display append gnus-create-image expand-file-name (:ascent center)] 8 (#$ . 57482)])
(defalias 'gnus-group-refresh-group #[(group) "\303!\210\304\305 \"A@\262\305\n\"\"\210\306!\207" [group gnus-newsrc-hashtb gnus-active-hashtb gnus-activate-group gnus-get-unread-articles-in-group gethash 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\211 \2043 \307\f
\"\211 \2032 \310\f!\2042 \311\312\313 A@!\314Q\315\316\f!\317Q\"\210)eb\210\320\321\f\322\323$\203] \324\325 \326 \327y\210`|\210\330\f!\210\212\331y\210\332\333!\210*\2026 \n\204\261 \204\261 \203s \f!\210\202\240 \f!\235A eb\210 \242\203\227 \320\321 @\322\323$\204\227 A\211 \202 \204\237 db\210)\325 \330\f!\210\212\331y\210\332\333!\210*\"\203\273 \"\f!\210\334 -\207" [gnus-group-buffer buffer-read-only found info-unchanged group gnus-newsrc-hashtb nil gethash gnus-ephemeral-group-p gnus-dribble-enter "(gnus-group-set-info '" gnus-prin1-to-string ")" "^(gnus-group-set-info '(\"" regexp-quote "\"" gnus-text-property-search gnus-group forward goto 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 entry gnus-group-indentation visible-only gnus-goto-missing-group-function gnus-group-list gnus-group-update-group-function] 6 (#$ . 58088)])
#@43 Update the mode line in the group buffer.
(defalias 'gnus-group-set-mode-line #[nil "\306>\205| r q\210\n\206 \307\310!\fA@ \f@
\311\232\203$ \311\202% \312 \313 \314 \315 !\205F \316 !\205F r q\210\317 \320U)? \321 ! \203V \322\202W \323 GV\203m \324 \320\325Z# \326 C!\211 \327 !\210. \207" [gnus-updated-mode-lines gnus-group-buffer gnus-group-mode-line-format-spec gformat gnus-select-method gnus-tmp-news-server group gnus-set-format group-mode "" ":" 60 nil buffer-live-p buffer-modified-p buffer-size 0 eval "**" "--" substring 4 gnus-mode-line-buffer-identification set-buffer-modified-p gnus-tmp-news-method gnus-tmp-colon max-len gnus-tmp-header gnus-dribble-buffer modified mode-string mode-line-modified mode-line-buffer-identification] 5 (#$ . 59376)])
#@52 Get the name of the newsgroup on the current line.
(defalias 'gnus-group-group-name #[nil "\301\302 \303\"\211;\203 \202 \205 \304!)\207" [group get-text-property point-at-bol gnus-group symbol-name] 4 (#$ . 60175)])
#@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 (#$ . 60405)])
#@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 (#$ . 60586)])
#@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 (#$ . 60845)])
(defalias 'gnus-group-new-mail #[(group) "\303\304\305 \"\203 \306 \307\225\"\202 )!\203 \n\207\310\207" [group gname gnus-new-mail-mark nnmail-new-mail-p string-match "^[^:]+:" substring 0 32] 4])
#@38 Return the estimated level of GROUP.
(defalias 'gnus-group-level #[(group) "\305 \"A@\262\211A@\211:\203 \211@\202 \211\266\202\206' \n\235\203& \206' \f\207" [group gnus-newsrc-hashtb gnus-zombie-list gnus-level-zombie gnus-level-killed gethash] 4 (#$ . 61252)])
#@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 y\315U\204, \203\241 \317 \210\320\202\255 \f\206\246
b\210\f\205\255 \320.\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 gnus-group-position-point t low way first-too all unread gnus-level-subscribed level] 7 (#$ . 61530)])
(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 (#$ . 63032) "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 (#$ . 63620) "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 (#$ . 63814) 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 (#$ . 64012) "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 (#$ . 64265) "P"])
#@41 Mark all groups that match some regexp.
(defalias 'gnus-group-mark-regexp #[(regexp) "A\305\212\n\203& \306 \n\211A\242\211 @)\211\"\203 \307 !\210\310 !\210\202 +\311 \207" [gnus-newsrc-alist group alist regexp cl-x nil string-match gnus-group-jump-to-group gnus-group-set-mark gnus-group-position-point] 5 (#$ . 64461) "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 (#$ . 64816)])
#@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 (#$ . 65179)])
#@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 (#$ . 65419) "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\f\203u
\203u \316 \203u `\316 ]\313 \212`\316 ^b\210\314 B\211\203q \315\311!\307U\203q `W\204Y \237+\207\203 \317!\207\314 \211\205\210 \nC)\207" [n groups group way transient-mark-mode mark-active prefix-numeric-value 0 -1 1 abs nil gnus-group-group-name gnus-group-next-group mark reverse max gnus-group-marked] 5 (#$ . 65946)])
(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 \"\211A@ \3148)\247\203> \202W \n\203G \n@\202W \313 \"\211\205W \fAT\f@Z\315 \206t
\247\205t \316
\317\320 \236A!\317\321 \236A!#\306U\310\310&.\207" [all group entry marked active number 0 gnus-group-group-name nil error "No group on current line" gethash 3 gnus-summary-read-group + gnus-range-length tick dormant no-display gnus-newsrc-hashtb cl-x gnus-active-hashtb no-article select-articles] 8 (#$ . 67307) "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 (#$ . 68344) "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 (#$ . 68872) "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 (#$ . 69483) "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 (#$ . 69702) nil])
#@61 Return a group name from around point if it exists, or nil.
(defalias 'gnus-group-name-at-point #[nil "\305\306!\203 \307 \207\310`\311m\204\" \312\313!\204\" \314\315\316 x\210\204? \312\317!\2035 \314\320\311x\210\315\316 x\210\204? \321\322\316 `{\"\203K \312\n!\205\207 \323\324!\202\207 \311\211 \312\n!\203_ \323\324!\324\224\325\224Z\320\311x\210\315\316 x\210\312\n!\203\205 \f\203 \325\225ZX\203 \f\202\206 \323\324!\202\206 \f* b\210+\207" [case-fold-search start regexp distance group derived-mode-p gnus-group-mode gnus-group-group-name "[][ - -*,/:-@\\^`{-]*\\(nn[a-z]+\\(?:\\+[^][ -*,/:-@\\^`{-]+\\)?:[^][ -*,./:-@\\^`{-]+\\(?:\\.[^][ -*,./:-@\\^`{-]+\\)*\\|[^][ -*,./:-@\\^`{-]+\\(?:\\.[^][ -*,./:-@\\^`{-]+\\)+\\)" nil looking-at "[][ -*,/;-@\\^`{-]" t "^][ - -*,/;-@\\^`{-" point-at-bol "[][ - -*,/;-@\\^`{-]*$" "][ - -*,/;-@\\^`{-" string-match "\\`[][ - -*,/;-@\\^`{-]*\\'" match-string 1 0] 4 (#$ . 70414)])
#@264 Read a group name with completion.
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. Can
handle COLLECTION as a list, hash table, or vector.
(defalias 'gnus-group-completing-read #[(&optional prompt collection require-match initial-input hist def) "\204 <\203 \202; \306!\203 \307\310\"\202; \311!\205; \312C\313\314\315\316\317\320!\321\"\322\323%\"\210\211\242\237\266\202\324 \206B \325\326\n!\f
\206M \327 & \330\331\332 #*\207" [collection gnus-active-hashtb choices prompt require-match initial-input vectorp mapatoms symbol-name hash-table-p nil maphash make-byte-code 514 "\300\300\242B\240\207" vconcat vector [] 5 "\n\n(fn K --CL-VAR--)" gnus-completing-read "Group" reverse gnus-group-history replace-regexp-in-string "\n" "" hist def group] 9 (#$ . 71376)])
#@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 (#$ . 72298) (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 (#$ . 72706) "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\313\314\206 \315\316\317$)\312\313\314\206# \315\316\317$) ;\203s \211\203; \211<\203; \211\206p\320\f\"A\206p\211\321\232\203M
\206\\\320@\"A\206\\\320A\"A\206\\B\211\203~ \322\323@@@@@A@#\232\204~ \211A\266\202\202a \211@@\262\206\\C\211\203\243 \322\323@@@A@#\232\204\243 \211A\266\202\202\210 \211@\262\206\\DA\324\211\203Z\211A\262\242\3258\262\262;\204\257 \324\326C\3272K\211\242\206\326
\240\210\204\355 \330\331\332\333\334\335!\336\"\325\337%\f\"\210@AD\211\203\211@\330\331\332\340\334\335!\341\"\325\337%\"\210A\266\202\202\362 \210\211\242A@\342\235\203#\322\343\242@\"\202-\322\323\242@\242A@#\211\242B\211\f\235\204G\204G\320@\f\"\204G\211\fB\266\2020\266\204\232\203\257 \262\324\262\202\257 \266\202\211\203m\320\f\"\204mB\fB\211\262\262\344\322\345 @\"!\211 E AA\236\203\223 @ A@\346P AABB\202\246 @ A@\346PE A@D AABBB)\347F!\203\264F\202\317\350F G\351\352G\"\203\312\353G\354\225\"\202\314G) \" F\355F\324\n#\210\355F\356FH\324\211 \357/\203\356/\202IJ\236\203\376KIB\202p\360 BBLB\257D #\210 MBMN\211 O\205(\361\362O!\211O!\205(O)\2030Nq\210\363 !\204=\364\365\366 !\"\210P\203W\367F\370\"\210\371F!\204W\364\372\373 @!\"\210Q\203aF\202\232\3741\204RS T U\375V\206t\326\326FW$*\205\200F0\202\232\210X\203\221\376\377!\210\202\231\201Y \201Z !\210\324)\207" [size gnus-newsrc-hashtb gnus-active-hashtb method gnus-server-method-cache gnus-select-method gnus-alive-p nnheader-init-server-buffer require gnus-cache 100 make-hash-table :size 300 :test equal assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" intern "%s-address" "-ephemeral" gnus-group-foreign-p gnus-group-prefixed-name string-match "^[^:]+:" substring 0 puthash -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 (quit) gnus-group-read-group debug "Quit" gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist 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 gnus-large-ephemeral-newsgroup gnus-fetch-old-ephemeral-headers gnus-fetch-old-headers gnus-large-newsgroup number select-articles debug-on-quit message "Quit reading the ephemeral group"] 19 (#$ . 73831) (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\216r
q\210\321\313 \n\211\\$\322\"\210\323 \324ed\f#\210\325\313\326 \n$\327\f\330BB\"\210)r
q\210\324\323\211\323\331%\210,\332\f!*\207" [range group start gnus-thread-sort-functions tmpfile #1=#:temp-buffer 500 1 error "Invalid range: %s" make-temp-file format "%s.start-%s.range-%s." (gnus-thread-sort-by-number) generate-new-buffer " *temp file*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] url-insert-file-contents t nil write-region gnus-group-read-ephemeral-group "nndoc+ephemeral:%s.start-%s.range-%s" nndoc ((nndoc-article-type mbox)) 0 delete-file #2=#:temp-file gnus-gmane-group-download-format buffer-file-name] 8 (#$ . 77841) (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 (#$ . 79038) (list (gnus-group-completing-read "Gmane URL"))])
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\312\313\314\"\207" [custom-declare-variable gnus-bug-group-download-format-alist '((emacs . "https://debbugs.gnu.org/cgi/bugreport.cgi?bug=%s;mboxmaint=yes;mboxstat=yes") (debian . "https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=%s&mbox=yes;mboxmaint=yes")) "Alist of symbols for bug trackers and the corresponding URL format string.\nThe URL format string must contain a single \"%s\", specifying\nthe bug number, and browsing the URL must return mbox output." :group gnus-group-foreign :version "24.1" :type (repeat (cons (symbol) (string :tag "URL format string"))) autoload thing-at-point-looking-at "thingatpt"] 10)
#@50 Return a list of bug IDs read in the minibuffer.
(defalias 'gnus-group--read-bug-ids #[nil "\302\303!\210\304\305\"\203 \306\307!\202 \310 \311\312\313 \203\" \312\314 \"\202# \315\" \205- \312\316 \"C\"\2062 )\207" [bug-reference-bug-regexp def require bug-reference thing-at-point-looking-at 500 match-string 2 number-at-point completing-read-multiple format "Bug IDs%s: " " (default %s)" "" "%s"] 6 (#$ . 80783)])
#@454 Browse bug reports with IDS in an ephemeral group.
IDS can be either a single bug ID (a number or string), or a list
thereof. MBOX-URL is a URL format string identifying the bug
tracker; see `gnus-bug-group-download-format-alist' for details.
Interactively, read multiple bug IDS in the minibuffer and
default to the MBOX-URL for the Emacs bug tracker. WINDOW-CONF
is the name of the Gnus window configuration to use when exiting
the ephemeral group.
(defalias 'gnus-read-ephemeral-bug-group #[(ids mbox-url &optional window-conf) "\204 \306\307!\210\310\311:\203 \202 C\"\312\313!\314\216\315\316@\317\n!\320 !\f>\2044 \321\322\323 D\"\210 \324H)# \325\326
!\327Q =\330>P ?\331\211 @ A \332\333! B C\334\216rBq\210\335 \210\336 D\211 E\203\237 E@D\337DP FG\204\211 \340F!\203\211 \341F!\210\202\225 \342\315\nD\"\343\"\210\336H)EA\211E\204j *eb\210\212\344?\336\343#)\204\273 \345\346\347\350\351#\266\202\"\210\344?\336\343#\203`\352\353\336\343#\203\322 `S\202\323 d}\210=\354\355!\356\354\357!Q\336\343 I\360#)\266\203\204eb\210\344\361\336\343#\204\362
\363\261\210\202\364 \210\365\336x\210\347
\261\210db\210~\210\202\273 )rBq\210\366\336\211C\336\367%\210.\370\371\372\350\351#\266\202P\373 \374BB\336J$-\207" [ids tmpfile mbox-url cl-x cl-struct-url-tags address user-error "No bug IDs specified" mapcar #[(id) "\301\302\"\207" [id format "%s"] 3] make-temp-file "gnus-temp-group-" #[nil "\301!\207" [tmpfile delete-file] 2] format "%s@%s" url-generic-parse-url type-of signal wrong-type-argument url 4 "\\(?:\\`\\|[ ,<]\\)" regexp-quote "\\(?:\\'\\|[ ,>]\\)" "^" binary generate-new-buffer " *temp file*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] mm-disable-multibyte nil "~/.emacs.d/debbugs-cache/" file-exists-p insert-file-contents url-insert-file-contents t re-search-forward error "Invalid mbox format for bug IDs: %s" ", " mapconcat identity search-forward "\n\n" message-fetch-field "to" " " "cc" string-match "^To:" "To: " "\n" message-next-header " \n " write-region 0 gnus-group-read-ephemeral-group "nndoc+ephemeral:bug#" "," nndoc ((nndoc-article-type mbox)) address-re message-unix-mail-delimiter delim coding-system-for-read coding-system-for-write #1# #2=#:temp-file id --dolist-tail-- file gnus-plugged buffer-file-name inhibit-changing-match-data window-conf] 9 (#$ . 81212) (list (gnus-group--read-bug-ids) (alist-get 'emacs gnus-bug-group-download-format-alist))])
#@151 Browse Debian bug reports with IDS in an ephemeral group.
The arguments have the same meaning as those of
`gnus-read-ephemeral-bug-group', which see.
(defalias 'gnus-read-ephemeral-debian-bug-group #[(ids &optional window-conf) "\303\304\305 \"\n#\207" [ids gnus-bug-group-download-format-alist window-conf gnus-read-ephemeral-bug-group alist-get debian] 5 (#$ . 83702) (list (gnus-group--read-bug-ids))])
#@150 Browse Emacs bug reports with IDS in an ephemeral group.
The arguments have the same meaning as those of
`gnus-read-ephemeral-bug-group', which see.
(defalias 'gnus-read-ephemeral-emacs-bug-group #[(ids &optional window-conf) "\305\306\307 \"\n#\210\310\311\312\313#\205: \314\315!\205: r\316\317 !q\210\315\320!\210\242\206( \211;\2032 \321 !\322\304!\210 \211*\207" [ids gnus-bug-group-download-format-alist window-conf id debbugs-gnu-bug-number gnus-read-ephemeral-bug-group alist-get emacs require debbugs-gnu nil t fboundp debbugs-gnu-summary-mode window-buffer selected-window 1 string-to-number make-local-variable] 6 (#$ . 84116) (list (gnus-group--read-bug-ids))])
#@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!?\205 \305!?\205 \306!\210\305!\307 \210\207" [group "" error "Empty group name" gnus-ephemeral-group-p gnus-group-goto-group gnus-group-update-group gnus-group-position-point] 2 (#$ . 84803) (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))))))])
#@164 Go 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.
Return nil if GROUP is not found.
(defalias 'gnus-group-goto-group #[(group &optional far test-marked) "\205\247 `\305 \210\n\204# \306`\307\"\232\203# \203 \310 \203# `\202\246 \n\204F \212\311y\210\306`\307\"\232\205; ?\206; \310 )\203F \311y\210`\202\246 \n\204i \212\312y\210\306`\307\"\232\205^ ?\206^ \310 )\203i \312y\210`\202\246 \203\225 eb\210\313 \f\204\220 \314\307\315\316$\203\220 \310 \203\212 \317\211\202s \312y\210\202r \f)\202\246 \314\307\313\316$\203\242 `\202\246 b\210\313)\207" [group start far test-marked found beginning-of-line get-text-property gnus-group gnus-group-mark-line-p -1 1 nil gnus-text-property-search forward goto t] 6 (#$ . 85533)])
#@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 (#$ . 86358) "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 (#$ . 86652) "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 (#$ . 87419) "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 (#$ . 87643) "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 (#$ . 87874) "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 (#$ . 88241) "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 (#$ . 88565) 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 \305U\203# \306\307!\305U\203' `\202+ b\210\302*\310 \210\207" [unread opoint nil gnus-group-group-unread t 0 gnus-group-next-unread-group 1 gnus-group-position-point] 2 (#$ . 89083) nil])
#@28 Jump to the server buffer.
(defalias 'gnus-group-enter-server-mode #[nil "\300 \207" [gnus-enter-server-buffer] 1 (#$ . 89417) nil])
#@59 Add a new newsgroup.
The user will be prompted for GROUP.
(defalias 'gnus-group-make-group-simple #[(&optional group) "\303\304\305 \"\203 \306 \307\225\"\202 )\304\310 \"\203/ \311\312\313\314 \"\313\315 \"\206+ \316#\2027 \311\312\n@\nA@#)\317\211$\207" [group gname gnus-select-method gnus-group-make-group string-match "^[^:]+:" substring 0 "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 "" nil] 8 (#$ . 89556) (list (gnus-group-completing-read))])
#@277 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).
If the backend supports it, the group will also be created on the
server.
(defalias 'gnus-group-make-group #[(name &optional method address args) ";\203J\211\203 \211<\203 \211\206C\306 \"A\206C\211\307\232\203% \n\206/\306 \"A\206/\306\f\"A\206/
\211\203S \310\311@@@@@A@#\232\204S \211A\266\202\2026 \211@@\262\206/@\211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\206/AA\312\211\203-\211A\262\242\3138\262\262;\204\204 \312\314C\3152 \211\242\206\253 \n\240\210\204\302 \316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\343 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\305 \210\211\242A@\330\235\203\366 \310\331\242@\"\202 \310\311\242@\242A@#\211\242B\211 \235\204\204\306@ \"\204\211 B\266\2020\266\204\232\203\204 \262\312\262\202\204 \266\202\211\203@\306 \"\204@B B\211\262\262\206I\332\205f\333\n\"?\205f7\203e\334!7D\202f! B\203v\335CB\"\202xC D\312\211 E F\336DG\"\203\217\337\340D\"\210\341\314DH\312\211B\257\211FHI\342 \314%\210\343D\344\345BJ#\210\346C!\204\312\347\350\351FA!\352Q\353\354C!\355Q\"\210\356D!\210\357y\210\360 \210\306\361\312B\211;\203\"\211\211\203\355\211<\203\355\211\206 \306 \"A\206 \211\307\232\203\377\n\206 \306 \"A\206 \306\f\"A\206
\211\203-\310\311@@@@@A@#\232\204-\211A\266\202\202\211@@\262\206 @\211\203R\310\311@@@A@#\232\204R\211A\266\202\2027\211@\262\206 AA\312\211\203\211A\262\242\3138\262\262;\204^\312\314C\3152\370\211\242\206\205\n\240\210\204\234\316\317\320\321\322\323!\362\"\313\325% \"\210 \fD\211\203\275\211@\316\317\320\326\322\323!\363\"\313\325%\"\210A\266\202\202\237\210\211\242A@\364\235\203\320\310\331\242@\"\202\332\310\311\242@\242A@#\211\242B\211 \235\204\364\204\364\306@ \"\204\364\211 B\266\2020\266\204\232\203^\262\312\262\202^\266\202\211\203\306 \"\204B B\211\262\266\203\202\214\211\n\232\203.\n\266\202\202\214\211@;\203A\203A\365\"\266\202\202\214\211\203V\204V\211A@\366\232\203V\262\202\214\211\361@!\367\306K\">\203\211\334\370P!\236\204\211\371@K\236>\203\211\372\334\370P!A@DC\"\202\212\266\204@\211E!K\"\203\234\373E!\210\374B!\210\375D\3761\327\211;\203\264\377!@\202\265\211\201M !\204\301\373!\210\201N \334\310\201O #!!\2620\266\202\202\333\210\312\266\202\203\366\201P D\312L#\204\366\337\201Q \201R E!\"\210,\314\207" [method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1="") "%s" gnus-method-simplify gnus-server-equal intern gnus-group-prefixed-name gethash error "Group %s already exists" gnus-group-change-level gnus-group-group-name puthash 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 [throw server-name] [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) gnus-server-extend-method #1# address "-address" physical-address append require gnus-check-server request-create-group (error) gnus-find-method-for-group gnus-secondary-select-methods gnus-newsrc-alist meth name nname backend info gnus-newsrc-hashtb gnus-level-default-subscribed gnus-level-killed gnus-active-hashtb gnus-valid-select-methods args featurep fboundp "%s-%s" gnus-request-create-group "Could not create group on server: %s" nnheader-get-report] 23 (#$ . 90048) (list (gnus-read-group "Group name: ") (gnus-read-method "Select method for new group (use tab for completion)"))])
#@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 (#$ . 94276) "P"])
#@197 Delete all articles in the current group.
If OLDP (the prefix), only delete articles that are "old",
according to the expiry settings. Note that this will delete old
not-expirable articles, too.
(defalias 'gnus-group-delete-articles #[(group &optional oldp) "\304\305 \"!\306\307\310\nG\"!\205 \311\n ?\205 \312#)\207" [group gnus-active-hashtb articles current-prefix-arg gnus-uncompress-range gethash gnus-yes-or-no-p format "Do you really want to delete these %d articles forever? " gnus-request-expire-articles force] 4 (#$ . 94696) (list (gnus-group-group-name) current-prefix-arg)])
#@408 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 \304\305!\210\306\30717 \211;\203 \310!@\202 \211\311!\204% \312!\210\313\314\315\316#!!\2620\266\202\202; \210\317\266\202\204B \304\320!\210 \204X \321\315\322\n\203R \323\202S \324#!\205\203 \325\326\327#\210\330\n\"\204m \331\332\333#\202\203 \325\326\334#\210\335!\210\336\337\340\"\210\341\317 #\210\340\342 \210\207" [group no-prompt force gnus-active-hashtb error "No group to delete" request-delete-group (error) gnus-find-method-for-group featurep require fboundp intern format "%s-%s" nil "This back end does not support group deletion" gnus-yes-or-no-p "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 puthash gnus-group-position-point] 9 (#$ . 95298) (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\3071/ \211;\203 \310!@\202 \211\311!\204 \312!\210\313\314\315\316#!!\2620\266\202\2023 \210\317\266\202\204: \320\321!\210\204B \320\322!\210\323\324 \"\203S \325 \326\225\"\202T )\n\232\203^ \320\327!\210\330!\203h \n\202\213 \331\n\323\324 \"\203z \325 \326\225\"\202{ )\332 \"A@\262 \333\f8)\"\332\n
\"\203\230 \320\334\n\"\210\335\336\337\n$\210\340!\210\341 -W\203\262 \342\n\"\204\273 \343\344\345\n$\202\331 \346 \210.@A\n\240\210\347 \210\350\n\332
\"
#\210\335\336\351\n$\210\n\352/\"/\350\317
#\210\353 \210\354 \210\207" [group gname new-name gnus-newsrc-hashtb cl-x gnus-active-hashtb request-rename-group (error) gnus-find-method-for-group featurep require fboundp intern format "%s-%s" nil error "This back end does not support renaming groups" "No group to rename" string-match "^[^:]+:" substring 0 "Can't rename to the same name" gnus-group-native-p gnus-group-prefixed-name gethash 4 "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 puthash "Renaming group %s to %s...done" delete gnus-dribble-touch gnus-group-position-point gnus-level-zombie gnus-list-of-killed-groups gnus-killed-list] 9 (#$ . 96719) (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 group)) (if (string-match "^[^:]+:" gname) (substring gname (match-end 0)) gname))) method (let ((cl-x (gnus-get-info group))) (progn (progn (nth 4 cl-x))))) (list group (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\n\307 \"A@\262\211\204\" \305\310!\210\3111- \312\n!0\2021 \210\2022 \210\313\314\267\202I \315 8\206J \316\202J \317 8\202J \320\321\322\267\202Z \323\202[ \324\202[ \325\n#\326\327\330\331D\n\332BBBE#\210\333\334\335\336\267\202| \337\202} \340\202} \341!\"*\207" [part info group gnus-newsrc-hashtb nil error "No group on current line" gethash "Killed group; can't be edited" (error) gnus-close-group gnus-edit-form #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (method 57 params 67)) 4 "native" 5 format-message "Editing the %s for `%s'." #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (method 82 params 86)) "select method" "group parameters" "group info" lambda (form) gnus-group-edit-group-done quote (form) local-set-key " " gnus-create-info-command #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (method 116 params 120)) "(gnus)Select Methods" "(gnus)Group Parameters" "(gnus)Group Info"] 9 (#$ . 98717) (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 (#$ . 99927) (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 (#$ . 100119) (list (gnus-group-group-name))])
#@19 Update variables.
(defalias 'gnus-group-edit-group-done #[(part group form) "\306\267\202 \307 8\202 \202 \310\311\267\202( \202) \312\f\"A@\262\202) \310\211 \205p \n\203: \313 \n\"\203U
@ \314\315 \"\203O \316 \317\225\"\202Q )\202p \320
@ \314\315 \"\203k \316 \317\225\"\202m )\n\"\211 \203\214 \232\204\214 \321 !\203\207 \322\323!\210\324 !\210
\203\225 \204\243 \325 \206\235 #\210\202\313 \326
!\211 \240\210\313\n\327\"\204\307
\n\330\211\203\277 \331\307\"\210\307\233\211\240\266\325
!\210\332 \206\322 !\210\333 +\207" [part form method group gnus-newsrc-hashtb info #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (info 6 method 12)) 4 nil #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (info 24 method 28)) gethash gnus-server-equal string-match "^[^:]+:" substring 0 gnus-group-prefixed-name gnus-group-goto-group gnus-group-kill-group 1 gnus-activate-group gnus-group-set-info copy-tree "native" t gnus-info--grow-entry gnus-group-update-group gnus-group-position-point gnus-select-method gname new-group] 7 (#$ . 100319)])
#@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 copy-tree nil eval gnus-group-make-group] 3 (#$ . 101483) (let ((entry (assoc (gnus-completing-read "Create group" (mapcar 'car gnus-useful-groups) t) gnus-useful-groups))) (list (car (cdr entry)) (car (cdr (cdr 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\"\203) \314\267\202! \315\316!\210\202T \202T \317\320\316\"\210\202T \2045 \317\320\321\"\210\202T \322 \323\324\f\"\203G \325\f\326\225\"\202H \f)\327\306\330D\331\332DF\"\210*\333 \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 gethash #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 23 t 30)) error "Documentation group already exists" gnus-message 1 "Couldn't find doc group" gnus-group-make-group string-match "^[^:]+:" substring 0 nndoc nndoc-address nndoc-article-type mbox gnus-group-position-point] 7 (#$ . 101927) 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
+\345\346+\"\203\244 \347+\350\225\"\202\246 +))\310\211$+\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 encode-coding-string gnus-group-make-group string-match "^[^:]+:" substring 0 method coding gname] 6 (#$ . 102949) (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 @@! \314\315\316\317\320 \"\321\322\302%\fD! \323\324@\2064 \325\326B\327# #\307 \330#D\331\332
!D\333BBBB $\203b \334\335$\236$\"$\336 $\"\202u \337 $\321p\340\341!\203r \342\202s \301B$-\207" [solid group gnus-group-web-type-history nnweb-type-definition default-type 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 derived-mode-p gnus-summary-mode summary search method] 7 (#$ . 104176) "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#) decode-coding-string encode-coding-string gnus-group-make-group (nnrss #1#) nnrss-save-server-data nil error "No feeds found for %s" nnrss-group-alist] 11 (#$ . 105124) 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\"\2038 \317\320 \"\321\"\322\323\nT\211\"\202 \324 \325\326
\"\203J \327
\314\225\"\202K
)\330 \325\326
\"\203^ \327
\314\225\"\202_
)\331DE\"+\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 gethash gnus-group-prefixed-name expand-file-name (nndir #1#) format "<%d>" gnus-group-make-group string-match "^[^:]+:" substring nndir nndir-directory] 6 (#$ . 105998) (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) "\306!@\307=\204 \310\311\"\210\312!\210\313 !\314 \"A@\262 \315\f8)\211 A
A@\316\317\320\n\316#Q\240\210*\321 \207" [vgroup n groups gnus-newsrc-hashtb cl-x method gnus-find-method-for-group nnvirtual error "%s is not an nnvirtual group" gnus-close-group gnus-group-process-prefix gethash 4 "\\|" mapconcat #[(s) "\301!\210\302\303!\304Q\207" [s gnus-group-remove-mark "\\(^" regexp-quote "$\\)"] 3] gnus-group-position-point] 8 (#$ . 106880) (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 \"\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 gethash error "Group %s already exists" gnus-subscribe-group gnus-group-group-name gnus-group-update-group nil gnus-group-position-point] 4 (#$ . 107531) "sCreate new, empty virtual group: "])
#@37 Enter an ephemeral nneething group.
(defalias 'gnus-group-enter-directory #[(dir) "\304\305E\306\307\310!! \"\311\n!\312 \313p\314\315!\203! \316\202\" \317B$?\205, \320\321\"+\207" [dir method leaf name 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 derived-mode-p gnus-summary-mode summary group error "Couldn't enter %s"] 7 (#$ . 108003) "DDirectory to read: "])
#@51 Expunge deleted articles in current nnimap GROUP.
(defalias 'gnus-group-expunge-group #[(group) "\302!\303 @\30414 \211;\203 \302!@\202 \211\305!\204\" \306!\210\307\310\311\312#!!\2620\266\202\2028 \210\313\266\202\204C \314\315 @\"\202G \316 \")\207" [group method gnus-find-method-for-group request-expunge-group (error) featurep require fboundp intern format "%s-%s" nil error "%s does not support expunging" gnus-request-expunge-group] 9 (#$ . 108500) (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 \311\225\"\202 )\312\211 \204 \313\314!\210\315
\"A@\262\2040 \313\316!\210\317!\211@\320=\204@ \313\321\"\210\322\f A@\"\211\204O \313\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 "^[^:]+:" substring 0 nil error "No group on current line" gethash "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-message "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)] 10 (#$ . 109112) (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 (#$ . 111086) (list gnus-group-sort-function current-prefix-arg)])
#@192 Sort groups in a flat list using sorting function FUNC.
If REVERSE is non-nil, reverse the sort order.
This function sets a new value for `gnus-group-list'; its return
value is disregarded.
(defalias 'gnus-group-sort-flat #[(func reverse) "\205# \305\306 \"\307\310\311\n\"\"\310\312 \"\f\203 \237\306 B\211*\207" [func gnus-group-list groups sorted-infos reverse remove "dummy.group" sort mapcar #[(g) "\302 \"A@\207" [g gnus-newsrc-hashtb gethash] 4] #[(i) "@\207" [i] 1]] 4 (#$ . 111616)])
#@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 (#$ . 112128) "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 (#$ . 112391) "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 (#$ . 112673) "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 (#$ . 112931) "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 (#$ . 113173) "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 (#$ . 113415) "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 (#$ . 113654) "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 (#$ . 113915) "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 (#$ . 114174) (list current-prefix-arg gnus-group-sort-function)])
#@88 Sort only the selected GROUPS, using FUNC.
If REVERSE is non-nil, reverse the sorting.
(defalias 'gnus-group-sort-selected-flat #[(groups func reverse) "\306\307\310\" \"\311\f\203 \237\307\312 \"\306\307\313\"\314\"\311 \211
\205B
@\211\233\211 \n\211A\242\240\210)
A\211
\204% \311,\207" [groups func sorted-groups infos reverse i sort mapcar gnus-get-info nil gnus-info-group #[(g) "\302 \"\207" [gnus-group-list g seq-position] 3] < --dolist-tail-- gnus-group-list #1=#:c] 5 (#$ . 114588)])
#@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 (#$ . 115109) (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 (#$ . 115476) (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 (#$ . 115850) (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 (#$ . 116213) (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 (#$ . 116560) (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 (#$ . 116907) (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 (#$ . 117251) (gnus-interactive "P\ny")])
#@22 Sort alphabetically.
(defalias 'gnus-group-sort-by-alphabet #[(info1 info2) "@ @\231\207" [info1 info2] 2 (#$ . 117616)])
#@49 Sort alphabetically on real (unprefixed) names.
(defalias 'gnus-group-sort-by-real-name #[(info1 info2) "@\303\304 \"\203 \305 \306\225\"\202 )\n@\303\304 \"\203& \305 \306\225\"\202' )\231\207" [info1 gname info2 string-match "^[^:]+:" substring 0] 4 (#$ . 117745)])
#@36 Sort by number of unread articles.
(defalias 'gnus-group-sort-by-unread #[(info1 info2) "\305@ \"@\305\n@ \"@\211 \247\203 \f\206 \306 \247\203! \206\" \306W*\207" [info1 gnus-newsrc-hashtb info2 n2 n1 gethash 0] 5 (#$ . 118026)])
#@16 Sort by level.
(defalias 'gnus-group-sort-by-level #[(info1 info2) "\211A@\211:\203 \211@\202 \211\266\202 \211A@\211:\203 \211@\202 \211\266\202W\207" [info1 info2] 4 (#$ . 118268)])
#@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 (#$ . 118463)])
#@37 Sort alphabetically by server name.
(defalias 'gnus-group-sort-by-server #[(info1 info2) "\302@\"\303\304@A@#\262\302 @ \"\303\304@A@#\262\231\207" [info1 info2 gnus-find-method-for-group format "%s+%s"] 6 (#$ . 118650)])
#@22 Sort by group score.
(defalias 'gnus-group-sort-by-score #[(info1 info2) "\211A@\211:\203 \211A\206 \302\266\202 \211A@\211:\203 \211A\206 \302\266\202V\207" [info1 info2 0] 4 (#$ . 118886)])
#@26 Sort by level and score.
(defalias 'gnus-group-sort-by-rank #[(info1 info2) "\211A@\211:\203 \211@\202 \211\266\202 \211A@\211:\203 \211@\202 \211\266\202\211\nW\206S \nU\205S \211A@\211:\203> \211A\206? \304\266\202 \211A@\211:\203O \211A\206P \304\266\202V*\207" [info1 info2 level2 level1 0] 5 (#$ . 119089)])
#@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\n\"A@\262\211!\210\307\306 \"\310#\210\311 !\205! \312 )\207" [info group gnus-newsrc-hashtb gnus-active-hashtb nil gnus-info-clear-data gethash gnus-get-unread-articles-in-group t gnus-group-goto-group gnus-group-update-group-line] 5]] 3 (#$ . 119417) "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\242\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 (#$ . 119951) 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\322\316DD\316\3118DE\323\324\nD\325\316D\316\326\n
\"D\327BBB\330BBB\257!\210\331\332 \"\315\n \"\210AA\211 \306\240\210)\3078\205\212 \307\233\211 \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) setf gnus-info-read when gnus-group-jump-to-group gnus-get-unread-articles-in-group gethash (t) ((gnus-group-update-group-line)) mapcar #[(el) "@\301\3028E\207" [el del 2] 4] #1=#:c #2=#:c] 14 (#$ . 120513)])
#@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\2030 @\2025 \314\320 G\"\"!\204> \202\247 \211A\242\211\203\242 \321 !\210\322 !\211 !@\323=\203x \324 \"\325\326\"\"\203m \327\"\307\225\"\202o \")!A@ #\210)\330 !#Y\203\212 \331\332\333\"\210\202> \334 !\335 \"\210\203\234 \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 "these %d groups" gnus-group-remove-mark gnus-find-method-for-group nnvirtual nnvirtual-catchup-group string-match "^[^:]+:" substring 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 (#$ . 121282) "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 (#$ . 122665) "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 \"\211@\307\nA@8 \310! \311 \"\312\313\"\"\203' \314\"\315\225\"\202) \")!\210\n@\247\204: \316\317\320#\202\217 \321\322\"\210#\203u \323\324\f\236A\325\326E\327\f\236A\325\330ED\"\210\331\211
\327\f\236A\"\324\f\236A\"\332\324\322\211\333%\210\332\327\322\211\333%\210\334!\203\206 \335!\204\206 \336\337
\"\210 $\340\341!\210) ,\207" [group gnus-newsrc-hashtb entry num marks unread gethash 3 gnus-sequence-of-unread-articles nnmail-purge-split-history string-match "^[^:]+:" substring 0 gnus-message 1 "Can't catch up %s; non-active group" gnus-update-read-articles nil 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 (#$ . 122910)])
#@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\242\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 (#$ . 124163) "P"])
(defalias 'gnus-group-expire-articles-1 #[(group) "\306\3071/ \211;\203 \310!@\202 \211\311!\204 \312!\210\313\314\315\316#!!\2620\266\202\2023 \210\317\266\202\205\247 \320\321\322#\210\323 \"A@\262\324!\203T \317\325!B\202Y \326\327\n8\236\330\331 A!\332\327\n8\236A\" \333\305\" \333\334\"\206u \" \" \203\236 \335!\210 \336
\203\223 \317
# $\337\f\"*\202\227 \337\f\"!\241\210\340!\210\320\321\341#\210 A-\207" [group gnus-newsrc-hashtb info expirable articles-to-expire expiry-wait request-expire-articles (error) gnus-find-method-for-group featurep require fboundp intern format "%s-%s" nil gnus-message 6 "Expiring articles in %s..." gethash gnus-group-total-expirable-p gnus-list-of-read-articles expire 3 gnus-list-range-difference gnus-uncompress-sequence unexist gnus-group-find-parameter expiry-target gnus-check-group gnus-compress-sequence gnus-request-expire-articles gnus-close-group "Expiring articles in %s...done" nnmail-expiry-target nnmail-expiry-wait nnmail-expiry-wait-function] 9])
#@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 (#$ . 125653) 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 \203D \f@\312 !\210\313\314\315 \316 \206, %\210\317 \316 \2068 #\210\320 \210\fA\211\204 *\321 \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-group-level gnus-group-change-level gnus-group-update-group-line gnus-group-position-point] 7 (#$ . 126032) (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 (#$ . 126977) "P"])
#@30 Subscribe the current group.
(defalias 'gnus-group-subscribe #[(&optional n) "\301\302\"\207" [n gnus-group-unsubscribe-current-group subscribe] 3 (#$ . 127157) "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\203; \n@\310 !\210\311 \312\267\202! \f\202.
\202. \313 X\203- \f\202.
\314#\210\315 \210\nA\211\204\n *\316\317!\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 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (unsubscribe 25 subscribe 29)) gnus-group-group-level t gnus-group-update-group-line gnus-group-next-group 1 gnus-level-subscribed] 5 (#$ . 127331) "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 \"\307\310\"\203 \311\312!\210\202\215 \n\203M \313\n \203! \202? \nA@\211A@\211:\2031 \211@\2022 \211\266\202\fX\203> \fT\202?
\"\210\204\215 \314!\210\202\215 ;\203\210 \315 \203_ \306\"\203\210 \313 \203i \202j
\235\203v \206x \316 $\210\204\215 \314!\210\202\215 \311\317\"\210\320 )\207" [group gnus-newsrc-hashtb newsrc level gnus-level-subscribed gnus-level-default-subscribed gethash string-match "\\`[ ]*\\'" error "Empty group name" gnus-group-change-level gnus-group-update-group gnus-read-active-file-p gnus-group-group-name "No such newsgroup: %s" gnus-group-position-point silent gnus-active-hashtb gnus-zombie-list gnus-level-zombie gnus-level-killed] 5 (#$ . 128063) (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 (#$ . 129044) "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 (#$ . 129469) (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 (#$ . 129812) "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\203
\203
\211A\242\211 B\311\f!\210\312 \313 \314y\210`|\210 \204X \315\f!\"\211\203X \316\317\320\321 D\322BB!\210 @ A@B\"B\"\323 \203a \202b \f# ?\205j \n#\210\315\f!\"@\247\203{ \324\f\325\"\210\326\327\f\"\210\202
\237\306 \211 $\203$@\311\f!\210\313 \314y\210`|\210\f%B%\330\331\f&\"&\"&'\203\273 '\f#\332#\210\315\f!\"\211\203\333 @ A@B\"B\" A AAA\241\210\202\351 \f(\235\203\351 \333\f(\"(\320\f!\203\372 \313 \314y\210`|\210\202\351 \315\f!\"@\247\203 \324\f\325\"\210$A\211$\204\215 *\334 \210\335 \210 G\336W\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 gethash gnus-undo-register progn gnus-group-goto-group gnus-group-group-name ((gnus-group-yank-group)) gnus-group-change-level gnus-request-update-group-status unsubscribe message "Killed group %s" delq assoc 3 delete gnus-make-hashtable-from-newsrc-alist gnus-group-position-point 2 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 (#$ . 130168) "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\203`
\211A\242\211\204% \311\312!\210\fA@\211 B\313 \314\f\211A\211A@\211:\203A \211@\202B \211\266\202\n\315%\210\316 !\210\317 \320\"\210\321\322\323 D\324BB!\210\202 \325y\210\326 \210 G\327W\203r @\202t \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 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 gnus-level-killed] 6 (#$ . 131777) "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\203o \307V\203o \f\204' \310\311\312\"!\203o
\211 A\211 \203h @\211A@\211:\203B \211@\202C \211\266\202U\203[ @@ BA\241\210\202_ 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] 5 (#$ . 132763) "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 (#$ . 133428) "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 (#$ . 133733) "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 (#$ . 134233) 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 \210\312\f\310C\313\314\315\316\317\320!\321\"\322\323%\"\210\211\242\237\266\202\324\"\310 \211 \203\204 @\325``T\326
\327\261\210\330
\331\307\332
\211 \333 \"A@\262\211A@\211:\203b \211@\202c \211\266\202\206v
\235\203t \206v )\257#\210 A\211 \2046 *eb)\207" [gnus-plugged gnus-agent gnus-read-active-file buffer-read-only gnus-active-hashtb group gnus-read-active-file-p t nil erase-buffer sort maphash make-byte-code 514 "\300\300\242B\240\207" vconcat vector [] 5 "\n\n(fn K --CL-VAR--)" string< add-text-properties " *: " "\n" gnus-group gnus-unread gnus-level gethash --dolist-tail-- gnus-newsrc-hashtb gnus-zombie-list gnus-level-zombie gnus-level-killed] 13 (#$ . 134571) 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 (#$ . 135427) (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 (#$ . 135666) "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\242\211\203\315\f!\210\316\317\f!\211!\210/\204\221 \320\f\3211s \211;\203V \317!@\202W \211\322!\204a \323!\210\324\325\326\327#!!\2620\266\202\202w \210\311\266\202\203\221 \330\f\311\211
$\210\331\f\211\3320\"A@\262\"\202\235 \330\f/?\205\232 \333\311
$\203\372 \f\3320\"A@\262\332\f1\" 2\211 3\203\275 \3343
\"\210\33532\"\210\336\f!\204\316 \337\f!\2104\203\360 \340
\f 5\341\3425\"\203\351 \3435\307\225\"\202\353 5)2#\210\344\f\311\312#\210*\202) \345\346\347\f\350\f!$\210\202) \313\351!\210 \203 b\2106\203\352\353\312\"\210\354 \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 request-group-scan (error) featurep require fboundp intern format "%s-%s" gnus-activate-group gnus-request-group-scan gethash scan gnus-request-update-info gnus-get-unread-articles-in-group gnus-virtual-group-p gnus-close-group gnus-agent-save-group-info string-match "^[^:]+:" substring gnus-group-update-group gnus-error 3 "%s error: %s" gnus-status-message gnus-after-getting-new-news-hook 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] 10 (#$ . 136655) "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
\"\210\204 \313\314!\210
\203+ \315\n
\"\2049 \316!\211\2049 \317 !\205I \320\321\322 \206H \315
\"\206H \323#+\207" [group method mname desc force gnus-description-hashtb gnus-find-method-for-group gnus-group-prefixed-name "" nil remhash error "No group name given" gethash gnus-group-get-description gnus-read-descriptions-file gnus-message 1 "%s" "No description available"] 6 (#$ . 138510) (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 \306 \204 \307 \204 \310\311!\210\306\312 \210\313 \306C\314\315\316\317\320\321!\322\"\323\324%\"\210\211\242\237\266\202\325\"\306\211 \203u \f@`\326 \"\327\306 \" \" #\330\331\332
\"\332\"
\"#c\210\333#\211T\334 \335\336\337\306\340$T\257#\210+\fA\211\204; *eb\210\341 )\207" [force gnus-description-hashtb buffer-read-only group --dolist-tail-- charset nil gnus-read-all-descriptions-files error "Couldn't request descriptions file" erase-buffer sort maphash make-byte-code 514 "\300\300\242B\240\207" vconcat vector [] 5 "\n\n(fn K --CL-VAR--)" string< gethash gnus-group-name-charset format " *: %-20s %s\n" gnus-group-name-decode add-text-properties gnus-group gnus-unread t gnus-marked gnus-level gnus-group-position-point desc b gnus-level-subscribed] 12 (#$ . 139125) "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
\203Q !\307C\310\312\313\314\315\316!\317\"\320\321%\"\210\211\242\237\266\202\307 \"\211 #\203P #@\"\322$\"\"\203G \" B#A\211#\2044 * \204_ \323\324\325$#\210\202\262 \212\326\327!\210\330 \210\331 \210\332 \333\"\211\203\256 @ \230\204\247 @\334\307 \" %\335 %\"\336\261\210!\203\246 \337 @!\"\211\203\246 \340\335%\"\336\261\210) A\211\204s eb\210)\326\n!,\207" [des groups obuf prev gnus-active-hashtb search-description "" nil maphash #[(g-name _) "\303 \"\205\f \nB\211\207" [regexp g-name groups string-match] 3] make-byte-code 514 "\300\300\242B\240\207" vconcat vector [] 5 "\n\n(fn K --CL-VAR--)" string-match 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" gethash " " gnus-description-hashtb g-name --dolist-tail-- regexp charset] 10 (#$ . 140061) "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 (#$ . 141170) "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 (#$ . 141537) "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 (#$ . 142233) "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 (#$ . 142690) "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 (#$ . 142899) "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 (#$ . 143175) 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 (#$ . 143370) "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 (#$ . 143670) "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 (#$ . 144321) "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 (#$ . 144744) (list nil (gnus-group-group-name))])
#@24 Update `.newsrc' file.
(defalias 'gnus-group-force-update #[nil "\300 \207" [gnus-save-newsrc-file] 1 (#$ . 144942) 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\203T @\211 =\204M \n\f=\204M r\nq\210\314\315!)\204M \n\211\211 \205A \316\311
!\211!\205A
)\203L \317\n!\210\320 \210) A\211\204 *\313\321 \210\313 \211\203| @\322@!\210A\323\240\210 A\211\204e * \205\211 \324 !\210\325 \326\")\207" [gnus-group-buffer group-buf buf --dolist-tail-- gnus-dribble-buffer buffer gnus-run-hooks gnus-suspend-gnus-hook gnus-offer-save-summaries get-buffer gnus-buffers nil derived-mode-p message-mode buffer-live-p kill-buffer gnus-prune-buffers gnus-kill-gnus-frames gnus-close-server closed bury-buffer delete-windows-on t gnus-backlog-articles gnus-opened-servers elem] 4 (#$ . 145071) 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 (#$ . 145965) 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\313 \210\305\314!\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--abort-on-unsaved-message-buffers gnus-offer-save-summaries gnus-save-newsrc-file gnus-close-backends gnus-clear-system gnus-after-exiting-gnus-hook] 2 (#$ . 146174) nil])
(defalias 'gnus--abort-on-unsaved-message-buffers #[nil "\302 \303\211\2052 @rq\210\304\305!\203) \306 \203) \307\310\311\"!\204) \312\313\"\210) A\211\204 \303*\207" [buffer --dolist-tail-- gnus-buffers nil derived-mode-p message-mode buffer-modified-p y-or-n-p format "Message buffer %s unsaved, continue exit? " error "Gnus exit aborted due to unsaved buffer %s"] 5])
#@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 \307U\204$ \310 !\203$ \n\204$ \203$ \311\312\313\314 !\"!\205\200 \315\316!\210\317\320\321\"\210\f\211 \205> \322\323
!\211!\205>
)\203R r\fq\210\306 )\307U\204R \324\325!\210\326 \210\327 \210\330 \210 \211 \211 \205p \322\323
!\211!\205p
)\203| \331 !\210\332 \210)\315\333!\207" [noninteractive gnus-select-method gnus-expert-user gnus-current-startup-file gnus-dribble-buffer buffer buffer-size 0 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 kill-buffer gnus-prune-buffers gnus-after-exiting-gnus-hook gnus-group-buffer buf] 6 (#$ . 147157) 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 (#$ . 148189) 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 (#$ . 148640) (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" (if (boundp 'gnus-secondary-servers) gnus-secondary-servers (cdr gnus-select-method)))) how)))])
(defalias 'gnus-group-set-info #[(info &optional method-only-group part) "\204 \2058\306\n\206 @ \" \n\203 \fA@\202 \307 \n\n\203` \f\2040 \310\311\n\"\210G \312=\203< \313\202= \314 \211 W\203W S\233\315 Z\307\"\241\210 S\233
\240\210*\f\204\362 r!q\210\3168\n\317\n\320\"\203y \307\nr!q\210\n\203\275 \321@ \"\322\323\"\"\203\231 \324\"\325\225\"\202\233 \")\n;\203\247 \n\202\254 \326\n@!\n:\205\267 \3168A@\307$\210\202\305 \321@\307\211\211$\210)\327\314\330\"\210\306\331@ \"\322\323\"\"\203\342 \324\"\325\225\"\202\344 \")\3168\206\355 #\" \")\f\2032\fA\240\210\f@\332=\204\306@$\"\203\f\333@!G\240\210%\2057\334\335@%\"%\"\211%\211 &&AB\241)\2027\310\336@\",\207" [info part method-only-group gnus-newsrc-hashtb entry part-info gethash 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 "^[^:]+:" substring 0 prin1-to-string gnus-message "Note: New group created" gnus-group-prefixed-name t gnus-list-of-unread-articles remove assoc-string "No such group: %s" total len gnus-group-buffer gname gnus-select-method gnus-active-hashtb gnus-newsrc-alist #1=#:v] 6])
(defalias 'gnus-import-other-newsrc-file #[(file) "\306\307!rq\210\310\216\311 !\210\312\3131 \314p!\2110\202\" \210\312\202b \205b \n:\203 \nA@\315=\203 \316\n8A@\211\312 \211 \203^
@\211@\317\"A@\262\203W \320\f@\f\"\210
A\211\204@ +\202 ,\207" [#1=#:temp-buffer file form infos info --dolist-tail-- generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents nil (error) read gnus-newsrc-alist 2 gethash gnus-set-info gnus-newsrc-hashtb] 5])
(defalias 'gnus-add-marked-articles #[(group type articles &optional info force) "\206
\306\n\"A@\262\307\211 \211?\206\201 \310\233\211\2044
?\206\201 AA\311
\312\"BCC\241\206\201 \f@\236\211\204R
?\206\201 \f\311
\312\"B\f@B\240\206\201 \203q
\204h \310\233\313\f@\"\240\202\201 \311
\312\"\241\202\201 \311\314\315 A!\316
!\244\317\"\312\"\241+\207" [info group gnus-newsrc-hashtb m marked articles gethash nil 3 gnus-compress-sequence t assq-delete-all 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 !\211!\205 )\203' r\307 !q\210\310\n \")\2020 \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 (#$ . 151680)])
#@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\303\304\"\305\306 #)\207" [gnus-newsgroup-name time time-convert nil integer gnus-group-set-parameter timestamp] 4 (#$ . 152079)])
#@33 Return the timestamp for GROUP.
(defalias 'gnus-group-timestamp #[(group) "\301\302\303#\207" [group gnus-group-get-parameter timestamp t] 4 (#$ . 152437)])
(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\f \306\307 !\310\n!*\207" [group time delta gnus-group-get-parameter timestamp t 0 time-since float-time] 4 (#$ . 152674)])
#@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 (#$ . 152984)])
#@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 \"\206 \302\303\304\305\306\"\307# \"\207" [group gnus-cache-active-hashtb gethash mapconcat identity split-string ":" "."] 6] gnus-group-position-point] 5 (#$ . 153250) "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 (#$ . 154011) "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 (#$ . 154637) "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 \304\"B\306u\210\202 *\207" [groups point nil text-property-not-all gnus-group get-text-property 1] 5 (#$ . 155257)])
#@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 (#$ . 155514) "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 (#$ . 155929) "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 (#$ . 156127) "P"])
#@20 Mark ARTICLE read.
(defalias 'gnus-group-mark-article-read #[(group article) "\306! \307\211 \310
!\203~ r
q\210\311!\210\205z \203/ \f>\203/ \312 \f#\313 C\314\315EC\"\210\316 \f\"\210\317 \" \205z AT\211AX\203r \n =\204k \n B \nT\211\202W \320 \321\"\211 )\202\235 \311!\210\322 C\"\210\323!\205\235 \324!?\205\235 \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 gethash 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 (#$ . 156657)])
#@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 \304\305!\210\306\30717 \211;\203 \310!@\202 \211\311!\204% \312!\210\313\314\315\316#!!\2620\266\202\202; \210\317\266\202\204B \304\320!\210\321\322\323#\210\324!\204V \325\326\327#\202] \321\322\330#\210\331 \211\211\205p \332\333 !\211!\205p )\203{ \334\n!\210\335 \210)\336 \210\207" [group gnus-original-article-buffer buf buffer error "No group to compact" request-compact-group (error) gnus-find-method-for-group featurep require fboundp intern format "%s-%s" nil "This back end does not support group compaction" 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 buffer-live-p get-buffer kill-buffer gnus-prune-buffers gnus-group-update-group-line] 10 (#$ . 157549) (list (gnus-group-group-name))])
(provide 'gnus-group)
Mini Shell