| Server IP : 217.160.0.212 / Your IP : 216.73.216.71 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/gnus/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
(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\322\"\210\314\324\325\"\210\326\327\330\331\332DD\333\334\303\335\336&\210\326\337\330\331\340DD\341\334\342\335\343&\210\326\344\330\331\345DD\346\347\350\334\351\335\352& \210\326\353\330\331\354DD\355\347\356\334\351\335\352& \210\326\357\330\331\360DD\361\334\362\335\363&\210\326\364\330\331\365DD\366\367\370\334\351\335\371& \210\326\372\330\331\373DD\374\334\362\335\352&\210\326\375\330\331\376DD\377\334\362\335\201@ &\210\326\201A \330\331\201B DD\201C \334\362\334\342\335\352& \210\326\201D \330\331\201E DD\201F \334\362\347\201G \335\201H & \210\326\201I \330\331\201J DD\201K \347\201L \334\201M \335\336& \210\326\201N \330\331\201O DD\201P \334\201M \335\336&\210\326\201Q \330\331\201R DD\201S \334\351\335\201T &\210\326\201U \330\331\201V DD\201W \334\351\347\201X \335\201T & \210\326\201Y \330\331\201Z DD\201[ \334\201M \335\201T &\210\326\201\\ \330\331\201] DD\201^ \334\362\335\331&\210\326\201_ \330\331\201` DD\201a \334\362\335\201T &\210\326\201b \330\331\201c DD\201d \334\201e \335\201T &\210\326\201f \330\331\201g DD\201h \334\201e \335\201T &\210\326\201i \330\331\201j DD\201k \334\201e \335\201T &\210\326\201l \330\331\201m DD\201n \334\201M \367\201o \335\201T & \210\326\201p \330\331\201q DD\201r \334\362\335\201s &\210\326\201t \330\331\201u DD\201v \334\201M \335\201w &\210\201x \201t \201y \201z #\210\326\201{ \330\331\201| DD\201} \334\201M \335\201~ &\210\201 \201\200 \201\201 \201\202 \334\201M %\210\326\201\203 \330\331\201\204 DD\201\205 \334\201\200 \335\201\206 &\210\201x \201\203 \201y \201z #\210\326\201\207 \330\331\201\210 DD\201\211 \367\201\212 \334\201\213 \335\201\214 & \210\326\201\215 \330\331\201\216 DD\201\217 \334\201\213 \335\201\220 &\210\326\201\221 \330\331\201\222 DD\201\223 \367\201\224 \334\351\335\201\225 & \210\326\201\226 \330\331\201\227 DD\201\230 \334\362\335\201\231 &\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-cloud-upload-all-data "gnus-cloud" gnus-cloud-download-all-data gnus-topic-find-groups "gnus-topic" custom-declare-variable gnus-no-groups-message funcall function #[0 "\300\207" ["No news is good news"] 1 #1=""] "Message displayed by Gnus when no groups are available." :group :type string gnus-keep-same-level #[0 "\300\207" [nil] 1 #1#] "Non-nil means that the newsgroup after this one 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 #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" ["\\`nnrss[+:]"] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "If non-nil, list groups that have only ticked articles.\nIf nil, only list groups that have unread articles." gnus-group-default-list-level #[0 "\207" [gnus-level-subscribed] 1 #1#] "Default listing level.\nWhen `gnus-group-use-permanent-levels' is non-nil, this level is\nused as the starting level until the user sets a different level,\nand is ignored afterwards." (choice (integer :tag "Level") (function :tag "Function returning level")) gnus-group-list-inactive-groups #[0 "\300\207" [t] 1 #1#] "If non-nil, inactive groups will be listed." gnus-group-sort-function #[0 "\300\207" [gnus-group-sort-by-alphabet] 1 #1#] "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 #[0 "\300\207" ["%M%S%p%P%5y:%B%(%g%)\n"] 1 #1#] "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 #[0 "\300\207" ["Gnus: %%b {%M%:%S}"] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "Hook run after the creation of the group mode menu." hook gnus-group-catchup-group-hook #[0 "\300\207" [nil] 1 #1#] "Hook run when catching up a group from the group buffer." (custom-manual "(gnus)Group Data") gnus-group-update-group-hook #[0 "\300\207" [nil] 1 #1#] "Hook called when updating group lines." gnus-group-prepare-function #[0 "\300\207" [gnus-group-prepare-flat] 1 #1#] "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'." gnus-group-prepare-hook #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "Hook called when suspending (not exiting) Gnus." gnus-exit gnus-exit-gnus-hook #[0 "\300\207" [nil] 1 #1#] "Hook called when exiting Gnus." gnus-after-exiting-gnus-hook #[0 "\300\207" [nil] 1 #1#] "Hook called after exiting Gnus." gnus-group-update-hook #[0 "\300\207" [nil] 1 #1#] "Hook called when a group line is changed." "24.1" gnus-useful-groups #[0 "\300\207" [(("(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))))))] 1 #1#] "Alist of useful group-server pairs." (repeat (list (string :tag "Description") (string :tag "Name") (sexp :tag "Method"))) gnus-group-highlight #[0 "\300\207" [(((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))] 1 #1#] "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\n`group': The name of the group.\n`unread': The number of unread articles in the group.\n`method': The select method used.\n`total': The total number of articles in the group.\n`mailp': Whether it's a mail group or not.\n`level': The level of the group.\n`score': The score of the group.\n`ticked': The number of ticked articles.\n`group-age': Time in seconds since the group was last read\n (see info node `(gnus)Group Timestamp')." (repeat (cons (sexp :tag "Form") face)) put risky-local-variable t gnus-new-mail-mark #[0 "\300\207" [37] 1 #1#] "Mark used for groups with new mail." character custom-declare-group gnus-group-icons nil "Add Icons to your group buffer." gnus-group-icon-list #[0 "\300\207" [nil] 1 #1#] "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 same\nvariables in the Lisp expression as in `gnus-group-highlight'." (repeat (cons (sexp :tag "Form") file)) gnus-group-name-charset-method-alist #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\301!\205 \302\207" [mm-coding-system-p utf-8 ((".*" . utf-8))] 2 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [1000] 1 #1#] "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 (#$ . 16314))
#@63 Function for sorting the selected groups in the group buffer.
(defvar gnus-group-sort-selected-function 'gnus-group-sort-selected-flat (#$ . 16434))
(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 (#$ . 16726))
(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 (#$ . 18491))
#@33 The complete topic-group alist.
(defvar gnus-topic-alist nil (#$ . 18573))
(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 "\301\302\"\210\301\303\304\"\210\301\305\306\"\210\301\307\310\"\210\301\311\312\"\210\301\313\314\"\210\301\315\316\"\210\301\317\320\"\210\301\321\322\"\210\301\323\324\"\210\301\325\326\"\210\301\327\330\"\210\301\331\332\"\210\301\333\334\"\207" [gnus-group-mode-map gnus-define-keys-1 (" " 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-toggle-subscription-at-point "U" gnus-group-toggle-subscription "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-read-ephemeral-search-group "g" gnus-group-make-search-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-toggle-subscription-at-point "s" gnus-group-toggle-subscription "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 #[0 "\300\301!\205 \301J\207" [boundp gnus-topic-mode] 2 (#$ . 25082)])
(defalias 'gnus-group-make-menu-bar #[0 "\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-toggle-subscription-at-point (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" ["Toggle/Set mark" gnus-group-mark-group (and (gnus-group-group-name) (not (memq (gnus-group-group-name) gnus-group-marked)))] ["Remove mark" gnus-group-unmark-group (and (gnus-group-group-name) (memq (gnus-group-group-name) gnus-group-marked))] ["Remove all marks" gnus-group-unmark-all-groups gnus-group-marked] ["Mark by 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" ["Toggle subscription..." gnus-group-toggle-subscription 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] ["Read a search group..." gnus-group-read-ephemeral-search-group t] ["Make a search group..." gnus-group-make-search-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)
#@97 Update group buffer toolbar.
Setter function for custom variables.
(fn &optional SYMBOL VALUE)
(defalias 'gnus-group-tool-bar-update #[512 "\203 \301\"\210\302 \205 rq\210\303\304!)\207" [gnus-group-buffer set-default gnus-alive-p gnus-group-make-tool-bar t] 5 (#$ . 33885)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317&
\210\300\320\302\303\321DD\322\306\323\310\311\312\313\314\315\316\317&
\210\300\324\302\303\325DD\326\306\327\310\311\312\313\314\315\316\317&
\210\300\330\302\303\331DD\332\306\333\310\311\312\313\314\315\316\317&
\207" [custom-declare-variable gnus-group-tool-bar funcall function #[0 "\301=\203 \302\207\303\207" [gmm-tool-bar-style gnome gnus-group-tool-bar-gnome gnus-group-tool-bar-retro] 2 #1=""] "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 #[0 "\300\207" [((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-toggle-subscription-at-point "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"))] 1 #1#] "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 #[0 "\300\207" [((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))] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "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)
#@112 Make a group mode tool bar from `gnus-group-tool-bar'.
When FORCE, rebuild the tool bar.
(fn &optional FORCE)
(defalias 'gnus-group-make-tool-bar #[256 "\306\300!\2035 \2035 \307 \2035 \203 \211\2035 \310\311\312\313\314$\211@ B\315\f
\316#\211\2033 \317\320!\210\211*\210 \207" [tool-bar-mode gnus-group-tool-bar-map load-path image-load-path gnus-group-tool-bar gnus-group-tool-bar-zap-list 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] 7 (#$ . 37373)])
(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)
#@794 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-toggle-subscription]'.
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 #[0 "\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\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
,=\204R \326
\325,C#\210\327 !\210\330\f!\210
,\331\332\333\"\203j \334 \210\335 \210\336 \210\337 \210\340-\341 \210\307.\340/\342 \210\343\340\344\345#\210\346 \2100\203\221 \347\350!\2101\203\231 \351 \210)\352\353!\207" [delay-mode-hooks major-mode mode-name gnus-group-mode-map gnus-group-mode-syntax-table gnus-group-mode-abbrev-table 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-child-mode run-mode-hooks gnus-group-mode-hook local-abbrev-table mode-line-process truncate-lines show-trailing-whitespace gnus-use-undo gnus-child] 5 (#$ . 39165) nil])
(defalias 'gnus-update-group-mark-positions #[0 "\212\305\306\307\310\311\312\206\f \313\314\315$\262\316\317\320#\210\321 \210\322\317\323\306\323\306%\210eb\210\324\325\326 !\306\327#\2058 `eZSBC\211-\207" [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] 9])
#@50 Enter the group under the mouse pointer.
(fn E)
(defalias 'gnus-mouse-pick-group #[257 "\300!\210\301\302!\207" [mouse-set-point gnus-group-read-group nil] 3 (#$ . 41755) ["e" (gnus-group-mode)]])
#@60 Return the real value for `gnus-group-default-list-level'.
(defalias 'gnus-group-default-list-level #[0 "\301!\203 \207\207" [gnus-group-default-list-level functionp] 2 (#$ . 41960)])
#@38
(fn &optional LEVEL NUMBER-OR-NIL)
(defalias 'gnus-group-default-level #[512 "\203! \2061 \247\203 \202 \302 \2061 \2061 \302 \2061 \207\211\203' \207\2061 \302 \2061 \207" [gnus-group-use-permanent-levels gnus-level-subscribed gnus-group-default-list-level] 3 (#$ . 42155)])
(defalias 'gnus-group-setup-buffer #[0 "\301!q\210\302\303!?\205 \303 \207" [gnus-group-buffer gnus-get-buffer-create derived-mode-p gnus-group-mode] 2])
#@21
(fn METHOD GROUP)
(defalias 'gnus-group-name-charset #[514 "\204 \306!\262;\203;\211\203 \211<\203 \211\2067\307\"A\2067\211\310\232\203. \206#\307\n\"A\206#\307 \"A\206#\f\211\203[ \311\312@@@@@A@#\232\204[ \211A\262\202? \211@@\262\206#
\211\203~ \311\312@@@A@#\232\204~ \211A\262\202d \211@\262\206#A\313\211\203!\211A\262\242\3148\262\262;\204\212 \313\315C\3162\211\242\206\261 \240\210\204\277 \317\320\321\"\"\210\n D\211\203\327 \211@\317\320\322\"\"\210A\266\202\202\302 \210\211\242A@\323\235\203\352 \311\324\242@\"\202\364 \311\312\242@\242A@#\211\242B\204\211\235\204\307@\"\204\211B\266\2020\266\204\232\203\212 \262\313\262\202\212 \266\202\211\2034\307\"\2044BB\211\262\262\262@\325=\203D\326\207\307\"\206[:\205[\307@A@D\"\313\203eA\207\211A\262\242\211\262\203\203\327@\"\203e\313\262A\262\202e\207" [gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-find-method-for-group assoc "native" format "%s:%s" nil 4 t server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil "") "%s" nnimap utf-8 string-match gnus-newsrc-alist gnus-group-name-charset-method-alist gnus-group-name-charset-group-alist] 17 (#$ . 42606)])
#@23
(fn STRING CHARSET)
(defalias 'gnus-group-name-decode #[514 "\203
\211\203
\300\"\207\207" [decode-coding-string] 5 (#$ . 44193)])
#@15
(fn STRING)
(defalias 'gnus-group-decoded-name #[257 "\300\301\"\302\"\207" [gnus-group-name-charset nil gnus-group-name-decode] 5 (#$ . 44338)])
#@426 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. If this
variable is non-nil, and UPDATE-LEVEL is non-nil (which is the
case interactively), the level will be updated by this command.
(fn &optional LEVEL UNREAD LOWEST UPDATE-LEVEL)
(defalias 'gnus-group-list-groups #[1024 "\204\f @\262A\262\306!\262\307 \210\310\311\312\313#\210\311\314\315 !edU\316 \311\nq\210 #\262\211\247\203? \211\317U\204F \320 \317U\203L \321\322\323\f#\210db\210
\203Z
\"\204\235 \203d eb\210\202\235 \204o \324\325!\210\202\235 \326\327\311\330$\204\235 \235\243\211\203\222 \326\327@\331\330$\204\222 \211A\262\202} \211\204\234 db\210\332y\210\210\333 \210\205\256 \205\256 \211 )\207" [gnus-group-list-mode case-fold-search gnus-group-buffer gnus-group-prepare-function gnus-no-groups-message gnus-group-goto-next-group-function gnus-group-default-level gnus-group-setup-buffer gnus-update-format-specifications nil group 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 gnus-group-list gnus-group-use-permanent-levels] 15 (#$ . 44496) [(byte-code "\203\n \302!\202 \303\304\305\"\206 \306 \206 \304\211\305F\207" [current-prefix-arg gnus-level-subscribed prefix-numeric-value gnus-group-default-level nil t gnus-group-default-list-level] 4) (gnus-group-mode)]])
#@117 List groups on LEVEL.
If ALL (the prefix), also list groups that have no unread articles.
(fn LEVEL &optional ALL)
(defalias 'gnus-group-list-level #[513 "\300#\207" [gnus-group-list-groups] 6 (#$ . 46136) ["nList groups on level: \nP" (gnus-group-mode)]])
#@19
(fn GROUP TEST)
(defalias 'gnus-group-prepare-logic #[514 "\203 \204 \235\206( \204 \207 \204 \207\235\205( \302=\203' \211?\207\211\207" [gnus-group-listed-groups gnus-group-list-option flush] 4 (#$ . 46403)])
#@441 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.
(fn LEVEL &optional PREDICATE LOWEST REGEXP)
(defalias 'gnus-group-prepare-flat #[1025 "q\210\306\206 \307 \205 \310 !\306\211\211\211\211\311 \210 W\204& \203\"\fA\211\203!\211@\211\312
\"A@\262\262@\262\3138\262\312
\"@\262\203W \314 \"\262\315\204c \205\365 \f;\203r \316
\"\205\365 \211A@\211:\203\203 \211@\266\202\202\205 \262\211\262 X\205\365 Y\205\365 \317!\203\245 !\202\365 \203\256 \320\202\365 \320=\203\272 \"\202\304 \247\203\307 \321V\206\365 #\203\326 \322\323\n8\236A\206\365 $\203\344 \316$\"\206\365 %\235\206\365 \324>\206\365 \324\236A\"\203\325\211A@\211:\203\f\211@\266\202\202\262\323\n8\326\f8%\210A\266\202\202( \210 \2044 Y\203C X\203C\327\330&\331\"\211& \332\f$\210\203^&\211\203]\211@\314 \"\262A\266\202\202I\210 \204r 'Y\203\210'X\203\210\327\333\330(\331\"\211(\334\335$'\336\f$\210\337 \210 B)\340\341!\210)\320\207" [gnus-group-buffer gnus-group-listed-groups buffer-read-only gnus-level-zombie gnus-group-list gnus-newsrc-hashtb 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 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] 21 (#$ . 46635)])
#@33
(fn GROUPS LEVEL MARK REGEXP)
(defalias 'gnus-group-prepare-flat-list-dead #[1028 "\233\203W \211\205V \211@\303?\2062 ;\203) \304\305\306#)\266\203\2022 \307!\2052 !\"\203O \310``T\311\312\313\261\210\314\315\305\316\f\257#\210A\266\202\202 \207\211\205\266 \211@\303?\206\203 ;\203z \304\305\306#)\266\203\202\203 \307!\205\203 !\"\203\257 \317\304\320\n\"\211\205\245 \211A\321U\203\237 \321\202\245 \211A@ZT\262\322\323!!%\210A\266\202\202X \207" [gnus-group-listing-limit inhibit-changing-match-data gnus-active-hashtb gnus-group-prepare-logic nil t string-match functionp add-text-properties " " " *: " "\n" gnus-group gnus-unread gnus-level gnus-group-insert-group-line gethash 0 gnus-method-simplify gnus-find-method-for-group] 15 (#$ . 48622)])
#@46 Update the current line in the group buffer.
(defalias 'gnus-group-update-group-line #[0 "\303\304 \211\205\f \305 \"\303\205A \211\203- \306!\204- \307\310\311A@!\312Q\313\314!\315Q\"\210\316 \317 \320y\210`|\210\321!\210\322y\210\323 *\207" [buffer-read-only gnus-newsrc-hashtb 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] 7 (#$ . 49431)])
#@47 Insert GROUP on the current line.
(fn GROUP)
(defalias 'gnus-group-insert-group-line-info #[257 "\306\"\307 \310\211\2039 A@\262\311\211A@\211:\203% \211@\266\202\202' \262\3128@\2061 \313\3148%\202k \311\211\n\235\203E \202F \f\310\306
\"\211\262\205d A\315U\203] \315\202d AT@Z\316\317 !!%)\207" [gnus-newsrc-hashtb gnus-group-indentation gnus-zombie-list gnus-level-zombie gnus-level-killed gnus-active-hashtb gethash gnus-group-group-indentation nil gnus-group-insert-group-line 3 t 4 0 gnus-method-simplify gnus-find-method-for-group] 13 (#$ . 50047)])
#@14
(fn GROUP)
(defalias 'gnus-number-of-unseen-articles-in-group #[257 "\302\"A@\3038\304\236A\302 \"\211\204 \305\207\306\307\211C\3108\"\"!G\207" [gnus-newsrc-hashtb gnus-active-hashtb gethash 3 seen 0 gnus-uncompress-range gnus-range-difference 2] 11 (#$ . 50637)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317&
\207" [custom-declare-variable gnus-group-update-tool-bar funcall function #[0 "\301\300!\205 \207" [tool-bar-mode boundp] 2 ""] "Force updating the group buffer tool bar." :group gnus-group :version "22.1" :initialize custom-initialize-default :set #[514 "\301\"\210\302 \205 rq\210\303\304!)\207" [gnus-group-buffer set-default gnus-alive-p gnus-group-get-new-news 0] 5 "\n\n(fn SYMBOL VALUE)"] :type boolean] 14)
#@81 Insert a group line in the group buffer.
(fn GROUP LEVEL MARKED NUMBER METHOD)
(defalias 'gnus-group-insert-group-line #[1285 "\211\211;\203C\211\211\203 \211<\203 \211\206>\306\f\"A\206>\211\307\232\203/
\206*\306@\"A\206*\306A\"A\206*B\211\203_ \310\311@@@@@A@#\232\204_ \211A\262\202C \211@@\262\206*C\211\203\203 \310\311@@@A@#\232\204\203 \211A\262\202i \211@\262\206*DA\312\211\203(\211A\262\242\3138\262\262;\204\217 \312\314C\3152\211\242\206\266
\240\210\204\304 \316\317\320\"\f\"\210@AD\211\203\336 \211@\316\317\321\"\"\210A\266\202\202\311 \210\211\242A@\322\235\203\361 \310\323\242@\"\202\373 \310\311\242@\242A@#\211\242B\204\211\f\235\204\306@\f\"\204\211\fB\266\2020\266\204\232\203\217 \262\312\262\202\217 \266\202\211\203;\306\f\"\204;B\fB\211\262\266\203\202\257\211
\232\203O
\266\202\202\257\203b\211@;\203b\324\"\266\202\202\257\211\203w\204w\211A@\325\232\203w\262\202\257\211\326@!\327\306E\">\203\254\330\331P!\236\204\254\332@E\236>\203\254\333\330\331P!A@DC\"\266\204\202\257\266\204 F\334 G\"\211 H\203\307HAH@ZT\202\310\335 I\247\203\327\336\335]!\202\330\337 J\247\203\352\336\335IZ]!\202\353\337 K LX\203\370\340\202 MX\203\341\202 NU\203\342\202\343 O \344\345\"\203!\211\335\225\312O\202\"\211\262 P\346 \347\314#\206/ QR\203B\334 R\"\206C\325\202C\325 ST\203V\334 T\"\203V\350\202W\340\211 U\350=\203c\351\202d\325 V\352 ! WFA@\206s\325 XF@\206|\325 YF\203\220\310\353F@FA@#\202\221\325 Z\247\203\251\335U\203\251\354\n\236A\203\251\355\202\252\340 [\\\204\315\356 !\211\205\304\357\360!\211\262!\205\304\211\262\203\315\355\202\316\340 ] ^\235\203\334_\202\335\340 `\312\211 a\312\211 b\361 \210`\262\362``T\363c\314\"\210\364 \365\247\203\366J!\202\314\367[\370d\371 \257\n#\210`\262\372\"\210\373y\210\374\375e\205G\2040e\266\202\202Ie<\203Fe>\206G\211e>\266\202\202I\314\266\202\203R\376 #\210\377\201f !\210\312y.\207" [number gnus-tmp-level gnus-tmp-marked gnus-tmp-group gnus-server-method-cache gnus-select-method assoc "native" format "%s:%s" nil 4 t server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (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 "^[^:]+:" 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-level gnus-group--setup-tool-bar-update -1 group-highlight highlight gnus-group-highlight-line gnus-run-hooks gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist gnus-valid-select-methods gnus-tmp-method gnus-active-hashtb gnus-tmp-active gnus-tmp-number-total gnus-tmp-number-of-unread gnus-tmp-number-of-read gnus-level-subscribed gnus-level-unsubscribed gnus-level-zombie gnus-tmp-subscribed 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-mark gnus-group-is-exiting-p gnus-tmp-summary-live gnus-group-marked gnus-process-mark gnus-tmp-process-marked buffer-read-only gnus-tmp-header gnus-group-line-format-spec gnus-group-indentation gnus-visual gnus-group-update-hook] 23 (#$ . 51423)])
#@16
(fn BEG END)
(defalias 'gnus-group--setup-tool-bar-update #[514 "\205, \302\301!\203 \303\301!\203 \204 \301\304!\210\305\306\307$\207\305\310\311$\210\305\312\311$\207" [gnus-group-update-tool-bar cursor-sensor-mode fboundp boundp 1 put-text-property cursor-sensor-functions (gnus-tool-bar-update) point-entered gnus-tool-bar-update point-left] 7 (#$ . 55333)])
#@137 Eval `car' of each element of LIST, and return the first that return t.
Some value are bound so the form can use them.
(fn GROUP LIST)
(defalias 'gnus-group-update-eval-form #[514 "\211\205L\306\"\306 \"A@\3078\211;\203H\211\211\203& \211<\203& \211\206C\310\n\"A\206C\211\311\232\2038 \206/\310\f\"A\206/\310
\"A\206/0\211\203f \312\313@@@@@A@#\232\204f \211A\262\202J \211@@\262\206/1\211\203\212 \312\313@@@A@#\232\204\212 \211A\262\202p \211@\262\206/2A\314\211\203-\211A\262\242\3078\262\262;\204\226 \314\315C\3162 \211\242\206\275 \240\210\204\313 \317\320\321\"\n\"\210\f
D\211\203\343 \211@\317\320\322\"\"\210A\266\202\202\316 \210\211\242A@\323\235\203\366 \312\324\242@\"\202 \312\313\242@\242A@#\211\242B\204\211\n\235\204\310@\n\"\204\211\nB\266\2020\266\204\232\203\226 \262\314\262\202\226 \266\202\211\203@\310\n\"\204@B\nB\211\262\266\203\202\264\211 \232\203T \266\202\202\264\203g\211@;\203g\325\"\266\202\202\264\211\203|\204|\211A@\326\232\203|\262\202\264\211\327@!\330\3103\">\203\261\331\332P!\236\204\261\333@3\236>\203\261\334\331\332P!A@DC\"\266\204\202\264\266\204\3358\336B\337@\247\203\311@\202\312\340B\341B\342\203\337A@ZT\202\340\340B\343\344\334\345\320\346 \"\347\"\"B\350\211A@\211:\203 \211@\266\202\202\262\2064B\351 \211A@\211:\203\211A\206\340\266\202\206 \340B\352\353\354\n\236A!B\355\356!B\257 \203H\357@@\"\204HA\262\2021\266\206\207" [gnus-newsrc-hashtb gnus-active-hashtb gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gethash 4 assoc "native" format "%s:%s" nil t server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil #1="") "%s" gnus-server-extend-method #1# symbol-name address intern "-address" physical-address append 3 group unread 0 method total mailp apply mapcar #[257 "\211\303\304\300\206 @!\n\">\207" [V0 gnus-select-method gnus-valid-select-methods assoc symbol-name] 5 "\n\n(fn X)"] (mail post-mail) level score ticked gnus-range-length tick group-age gnus-group-timestamp-delta eval gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist gnus-valid-select-methods gnus-level-killed] 22 (#$ . 55716)])
#@166 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.
(fn GROUP BEG END)
(defalias 'gnus-group-highlight-line #[771 "\302\"@A\211\303\304\"=?\205$ \305\306\304\307!\203! J\202\" $)\207" [gnus-group-highlight inhibit-read-only gnus-group-update-eval-form gnus-get-text-property-excluding-characters-with-faces face t gnus-put-text-property-excluding-characters-with-faces boundp] 10 (#$ . 58244)])
#@75 Return an icon for GROUP according to `gnus-group-icon-list'.
(fn GROUP)
(defalias 'gnus-group-get-icon #[257 "\203 \301\"@A\211\203 \302\303\304\305\306\307!!\310\"#\207\303\207\303\207" [gnus-group-icon-list gnus-group-update-eval-form propertize " " display append gnus-create-image expand-file-name (:ascent center)] 9 (#$ . 58748)])
#@14
(fn GROUP)
(defalias 'gnus-group-refresh-group #[257 "\302!\210\303\304\"A@\262\304 \"\"\210\305!\207" [gnus-newsrc-hashtb gnus-active-hashtb gnus-activate-group gnus-get-unread-articles-in-group gethash gnus-group-update-group] 6 (#$ . 59100)])
#@228 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.
(fn GROUP &optional VISIBLE-ONLY INFO-UNCHANGED)
(defalias 'gnus-group-update-group #[769 "rq\210\212\214~\210\306\211\2040 \307\n\"\211\203/ \310!\204/ \311\312\313A@!\314Q\315\316!\317Q\"\210\210eb\210\320\321\322\323$\203Z \324\262\325 \326 \327y\210`|\210\330!\210\212\331y\210\332\333!\210*\2023 \211\204\242 \204\242 \f\203m \f!\210\202\222
\235Aeb\210\211\242\203\212 \320\321@\322\323$\204\212 \211A\262\202t \211\204\221 db\210\210\325 \330!\210\212\331y\210\332\333!\210* \203\254 !\210\334 )\262+\207" [gnus-group-buffer buffer-read-only gnus-newsrc-hashtb gnus-group-indentation gnus-goto-missing-group-function gnus-group-list 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 gnus-group-update-group-function] 10 (#$ . 59362)])
#@43 Update the mode line in the group buffer.
(defalias 'gnus-group-set-mode-line #[0 "\306>\205p r q\210\n\206 \307\310! A@ @ \f\311\232\203\" \311\202# \312 \313 \314 !\205A \315 !\205A r q\210\316 \317U)?\320\321\"\203M \322\202N \323 \211G\324V\203] \211\317\325O\262\326\327\330\331#C!\211 \332!\210,\266\203)\207" [gnus-updated-mode-lines gnus-group-buffer gnus-group-mode-line-format-spec gnus-select-method gnus-tmp-news-server gnus-tmp-news-method group gnus-set-format group-mode "" ":" nil buffer-live-p buffer-modified-p buffer-size 0 eval t "**" "--" 60 56 gnus-mode-line-buffer-identification propertize face mode-line-buffer-id set-buffer-modified-p gnus-tmp-colon gnus-tmp-header gnus-dribble-buffer mode-line-modified mode-line-buffer-identification] 8 (#$ . 60616)])
#@52 Get the name of the newsgroup on the current line.
(defalias 'gnus-group-group-name #[0 "\300\301 \302\"\211;\203 \207\211\205 \303!\207" [get-text-property point-at-bol gnus-group symbol-name] 3 (#$ . 61418)])
#@53 Get the level of the newsgroup on the current line.
(defalias 'gnus-group-group-level #[0 "\300\301 \302\"\207" [get-text-property point-at-bol gnus-level] 3 (#$ . 61638)])
#@59 Get the indentation of the newsgroup on the current line.
(defalias 'gnus-group-group-indentation #[0 "\301\302 \303\"\206 \203 \206 \304\207" [gnus-group-indentation-function get-text-property point-at-bol gnus-indentation ""] 3 (#$ . 61817)])
#@73 Get the number of unread articles of the newsgroup on the current line.
(defalias 'gnus-group-group-unread #[0 "\300\301 \302\"\207" [get-text-property point-at-bol gnus-unread] 3 (#$ . 62074)])
#@14
(fn GROUP)
(defalias 'gnus-group-new-mail #[257 "\301!\203 \207\302\207" [gnus-new-mail-mark nnmail-new-mail-p 32] 3 (#$ . 62275)])
#@50 Return the estimated level of GROUP.
(fn GROUP)
(defalias 'gnus-group-level #[257 "\211\304\"A@\262\211A@\211:\203 \211@\266\202\202 \262\206( \211 \235\203' \n\206( \207" [gnus-newsrc-hashtb gnus-zombie-list gnus-level-zombie gnus-level-killed gethash] 5 (#$ . 62418)])
#@343 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.
(fn &optional BACKWARD ALL LEVEL FIRST-TOO)
(defalias 'gnus-group-search-forward #[1024 "\203 \302\202 \303`\304\211\211 \203 \305 \203 o\204\215 \204$ y\210m\204\215 \306`\307\"\205\200 \204U \306`\310\"\211\247\205@ \211\311V\262\205\200 \306`\312\"\211\262\205\200 \211 X\205\200 ?\206\200 \306`\312\"\211\262\205\200 \211U\206\200 \211W\205\200 W\205\200 \211\262`\262\304\211\262\204\215 y\311U\204$ \203\226 \313 \210\314\207\206\233 b\210\205\242 \314\207" [gnus-level-killed gnus-level-subscribed -1 1 nil beginning-of-line get-text-property gnus-group gnus-unread 0 gnus-level gnus-group-position-point t] 13 (#$ . 62704)])
#@14
(fn GROUP)
(defalias 'gnus-total-fetched-for #[257 "\300!\206 \301\302!\206 \301\\\303\304V\203$ \304\245\262\211A\262\202 \305\306@#\207" [gnus-cache-total-fetched-for 0 gnus-agent-total-fetched-for ("B" "K" "M" "G") 1024.0 format "%5.1f%s"] 9 (#$ . 63672)])
(defalias 'gnus-group-mark-line-p #[0 "\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])
#@71 Mark the current group.
(fn N &optional UNMARK NO-ADVANCE NO-TOGGLE)
(defalias 'gnus-group-mark-group #[1025 "\304\211\305V\203Y m\204Y \306 \211\262\203J \307 \210\310 \236A\206! \311u\210\312\313!\210\n\203D \204D \211 >\203= \314\315\"\210\202J \314!\210\202J \314\"\210\204R \316\313!\210S\262\202 \317 \210)\207" [buffer-read-only gnus-group-mark-positions gnus-process-mark-toggle gnus-group-marked nil 0 gnus-group-group-name beginning-of-line process 2 delete-char 1 gnus-group-mark-update t gnus-group-next-group gnus-group-position-point] 9 (#$ . 64127) ["p" (gnus-group-mode)]])
#@91 Set the process mark on current group and update the group line.
(fn N &optional UNMARK)
(defalias 'gnus-group-mark-update #[513 "\211\203 \302\"\303\304\305\306#\207\302\"B\303 \305\306#\207" [gnus-group-marked gnus-process-mark delete insert-char 32 1 t] 6 (#$ . 64739)])
#@49 Remove the mark from the current group.
(fn N)
(defalias 'gnus-group-unmark-group #[257 "\300\301\302\303$\210\304 \207" [gnus-group-mark-group unmark nil t gnus-group-position-point] 6 (#$ . 65028) ["p" (gnus-group-mode)]])
#@20 Unmark all groups.
(defalias 'gnus-group-unmark-all-groups #[0 "\212\301\302\"\210)\303 \207" [gnus-group-marked mapc gnus-group-remove-mark gnus-group-position-point] 3 (#$ . 65261) [nil (gnus-group-mode)]])
#@98 Mark all groups between point and mark.
If UNMARK, remove the mark instead.
(fn UNMARK BEG END)
(defalias 'gnus-group-mark-region #[771 "\300\"\212b\210\211\301\302\303$Z)\207" [count-lines gnus-group-mark-group nil t] 10 (#$ . 65477) ["P\nr" (gnus-group-mode)]])
#@91 Mark all groups in the buffer.
If UNMARK, remove the mark instead.
(fn &optional UNMARK)
(defalias 'gnus-group-mark-buffer #[256 "\300ed#\207" [gnus-group-mark-region] 5 (#$ . 65754) ["P" (gnus-group-mode)]])
#@54 Mark all groups that match some regexp.
(fn REGEXP)
(defalias 'gnus-group-mark-regexp #[257 "A\301\212\203& \302\211A\262\242\211@\262\211\262\"\203 \303!\210\304!\210\202 )\266\305 \207" [gnus-newsrc-alist nil string-match gnus-group-jump-to-group gnus-group-set-mark gnus-group-position-point] 7 (#$ . 65971) ["sMark (regexp): " (gnus-group-mode)]])
#@133 Remove the process mark from GROUP and move point there.
Return nil if the group isn't displayed.
(fn GROUP &optional TEST-MARKED)
(defalias 'gnus-group-remove-mark #[513 "\301\302#\203 \212\303\304\305\306\211$\210)\306\207\307\"\302\207" [gnus-group-marked gnus-group-goto-group nil gnus-group-mark-group 1 unmark t delete] 7 (#$ . 66343)])
#@44 Set the process mark on GROUP.
(fn GROUP)
(defalias 'gnus-group-set-mark #[257 "\301!\203 \212\302\303\304\305\211$)\207\211\306\"B\211\207" [gnus-group-marked gnus-group-goto-group gnus-group-mark-group 1 nil t delete] 6 (#$ . 66699)])
#@111 Perform any command on all groups according to the process/prefix convention.
(fn ARG &optional GROUPS FUNC)
(defalias 'gnus-group-universal-argument #[769 "\211C\211\242\206 \300\301\302\303!!!\240\304=\203 \305\306\307\"\210\202% \310\311\312\"\"\210\313 \207" [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 make-closure #[257 "\301\300\242!\207" [V0 command-execute] 3 "\n\n(fn GROUP)"] gnus-group-position-point] 9 (#$ . 66949) "P"])
#@115 Return a list of groups to work on.
Take into consideration N (the prefix) and the list of marked groups.
(fn N)
(defalias 'gnus-group-process-prefix #[257 "\211\203< \303!\262\211\304W\203 \305\202 \306\307!\310\211\212\304V\2038 \311 \211\262\203- B\262S\262\312!\210\202 )\211\237\207\203q \203q \313 \203q `\313 ]\310\212`\313 ^b\210\311 B\211\262\203m \312\306!\304U\203m `W\204U \211\237)\207\n\203y \314\n!\207\311 \211\205\201 \211C\207" [transient-mark-mode mark-active gnus-group-marked prefix-numeric-value 0 -1 1 abs nil gnus-group-group-name gnus-group-next-group mark reverse] 7 (#$ . 67525)])
#@175 Iterate FUNCTION over all process/prefixed groups.
FUNCTION will be called with the group name as the parameter
and with point over the group in question.
(fn ARG FUNCTION)
(defalias 'gnus-group-iterate #[514 "\300 \301!\211\205) \211@\302!\210\303!\210\304 r\305\306\"\216\212!\210+\210A\266\202\202 \207" [selected-window gnus-group-process-prefix select-window gnus-group-remove-mark internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2]] 9 (#$ . 68160)])
(byte-code "\300\301\302\303#\300\207" [function-put gnus-group-iterate lisp-indent-function 1] 4)
#@473 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.
(fn &optional ALL NO-ARTICLE GROUP SELECT-ARTICLES)
(defalias 'gnus-group-read-group #[1024 "\302=\206 \303 \304\211\211\211 \302=\203 \304\262\n\204 \305\306!\210\307\"\211\262A@\3108\262\262 \247\203: \202S \211\203C \211@\202S \307 \"\211\262\205S AT@Z\262\311 \206t \247\205t \312\313\236A!\\\312\314\236A!\\\302U \304\n\304
&\207" [gnus-newsrc-hashtb gnus-active-hashtb 0 gnus-group-group-name nil error "No group on current line" gethash 3 gnus-summary-read-group gnus-range-length tick dormant] 18 (#$ . 68796) ["P" (gnus-group-mode)]])
#@366 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.
(fn &optional ALL)
(defalias 'gnus-group-select-group #[256 "m\203\f \300 \204\f \301y\210\302\303\"\207" [gnus-group-group-name -1 gnus-group-read-group t] 4 (#$ . 69800) ["P" (gnus-group-mode)]])
#@311 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.
(fn &optional ALL GROUP)
(defalias 'gnus-group-quick-select-group #[512 "\305\306!\210\307\211\211\211\211 \310\311#-\207" [gnus-summary-expunge-below gnus-apply-kill-hook gnus-home-score-file gnus-score-find-score-files-function gnus-visual require gnus-score nil gnus-group-read-group t] 7 (#$ . 70352) ["P" (gnus-group-mode)]])
#@75 Select the current group without hiding any articles.
(fn &optional ALL)
(defalias 'gnus-group-visible-select-group #[256 "\301\302\301\")\207" [gnus-inhibit-limiting t gnus-group-read-group] 4 (#$ . 70980) ["P" (gnus-group-mode)]])
#@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 #[0 "\306\307!\210\310\211\310\211\310\211 \310\211
\311 \312!\313\314\"\".\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] 7 (#$ . 71223) [nil (gnus-group-mode)]])
#@61 Return a group name from around point if it exists, or nil.
(defalias 'gnus-group-name-at-point #[0 "\301\302!\203 \303 \207`\304m\204 \305\306!\204 \307\310 x\210\202: \305\311!\2030 \312\304x\210\307\310 x\210\202: \313\314\310 `{\"\203F \305\315!\205\207 \316\317!\202\207 \304\211\305\315!\203Z \316\317!\262\317\224\320\224Z\262\312\304x\210\307\310 x\210\305\315!\203\204 \203| \211\320\225ZX\203| \266\202\202\207 \316\317!\266\202\202\207 \266\202b\210)\207" [case-fold-search derived-mode-p gnus-group-mode gnus-group-group-name nil looking-at "[][ -*,/;-@\\^`{-]" "^][ - -*,/;-@\\^`{-" point-at-bol "[][ - -*,/;-@\\^`{-]*$" "][ - -*,/;-@\\^`{-" string-match "\\`[][ - -*,/;-@\\^`{-]*\\'" "[][ - -*,/:-@\\^`{-]*\\(nn[a-z]+\\(?:\\+[^][ -*,/:-@\\^`{-]+\\)?:[^][ -*,./:-@\\^`{-]+\\(?:\\.[^][ -*,./:-@\\^`{-]+\\)*\\|[^][ -*,./:-@\\^`{-]+\\(?:\\.[^][ -*,./:-@\\^`{-]+\\)+\\)" match-string 1 0] 6 (#$ . 71931)])
#@335 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.
(fn &optional PROMPT COLLECTION REQUIRE-MATCH INITIAL-INPUT HIST DEF)
(defalias 'gnus-group-completing-read #[1536 "\204 \262<\203 \2024 \301!\203 \302\303\"\2024 \304!\2054 \305C\306\307\310\"\"\210\211\242\237\266\202\311\206; \312\313!\206H \314&\315\316\317#\207" [gnus-active-hashtb vectorp mapatoms symbol-name hash-table-p nil maphash make-closure #[514 "\300\300\242B\240\207" [V0] 5 "\n\n(fn K --CL-VAR--)"] gnus-completing-read "Group" reverse gnus-group-history string-replace "\n" ""] 14 (#$ . 72880)])
#@162 Start Gnus if necessary and enter GROUP.
If ARTICLES, display those articles.
Returns whether the fetching was successful or not.
(fn GROUP &optional ARTICLES)
(defalias 'gnus-fetch-group #[513 "\300 \204 \301 \210\302?\205 \303\304$\207" [gnus-alive-p gnus-no-server gnus-group-read-group t nil] 7 (#$ . 73695) (byte-code "\300\301\211\211\302 $C\207" [gnus-group-completing-read nil gnus-group-name-at-point] 5)])
#@45 Pop up a frame and enter GROUP.
(fn GROUP)
(defalias 'gnus-fetch-group-other-frame #[257 "\301!\211\203 \302\303!!\266\202' \304 G\305U\203\" \302\306 !\266\202' \307\305!\266\310!\207" [gnus-group-buffer get-buffer-window select-frame window-frame frame-list 1 make-frame other-frame gnus-fetch-group] 5 (#$ . 74123) "P"])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\307\310\317\312\320& \207" [custom-declare-variable gnus-large-ephemeral-newsgroup funcall function #[0 "\300\207" [200] 1 #1=""] "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 #[0 "\300\207" [nil] 1 #1#] "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)
#@541 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.
(fn GROUP METHOD &optional ACTIVATE QUIT-CONFIG REQUEST-ONLY SELECT-ARTICLES PARAMETERS NUMBER)
(defalias 'gnus-group-read-ephemeral-group #[2050 "\306 \204( \307 \210\310\311!\210\312\313\314\206 \315\316\317$\262\312\313\314\206\" \315\316\317$\262;\203^\211\203= \211<\203= \211\206Z\320\n\"A\206Z\211\321\232\203O \206F\320\f\"A\206F\320
\"A\206F;\211\203} \322\323@@@@@A@#\232\204} \211A\262\202a \211@@\262\206F<\211\203\241 \322\323@@@A@#\232\204\241 \211A\262\202\207 \211@\262\206F=A\324\211\203D\211A\262\242\3258\262\262;\204\255 \324\326C\32725\211\242\206\324 \240\210\204\342 \330\331\332\"\n\"\210\f
D\211\203\372 \211@\330\331\333\"\"\210A\266\202\202\345 \210\211\242A@\334\235\203
\322\335\242@\"\202\322\323\242@\242A@#\211\242B\2041\211\n\235\2041\320@\n\"\2041\211\nB\266\2020\266\204\232\203\255 \262\324\262\202\255 \266\202\211\203W\320\n\"\204WB\nB\211\262\262\262\336\322\337 @\"!\211AA\236\203\201@A@\340P AABB\202\227@A@\340P\nA@D\nAABBB\262\210\341!\203\246\202\275\342\343\344\n\"\203\270\345\225\324O\202\272\"\346\324 #\210\346\347>\324\211\350\203\330\202\354?@\236\203\350A?B\202\354p\351 BB B\257D#\210BBBC\211\205\352\353!\211\262!\205\211\262\203Cq\210\354!\204'\355\356\357\n!\"\210\203@\360\361\"\210\362!\204@\355\363\364\n@!\"\210\203E\207\3651cDE F G\366\206W\326\326$*\205a\2110\207\210H\203p\367\370!\210\202t\371\372!\210\324\207" [gnus-newsrc-hashtb gnus-active-hashtb gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist 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-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil "") "%s" intern "%s-address" "-ephemeral" gnus-group-foreign-p gnus-group-prefixed-name string-match "^[^:]+:" 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" message "Quit reading the ephemeral group" gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist gnus-level-default-subscribed gnus-current-window-configuration gnus-buffer-configuration gnus-summary-buffer gnus-ephemeral-servers gnus-group-buffer gnus-large-ephemeral-newsgroup gnus-fetch-old-ephemeral-headers gnus-fetch-old-headers gnus-large-newsgroup debug-on-quit] 23 (#$ . 75331) (byte-code "\300 \301\302!D\207" [gnus-group-completing-read gnus-read-method "From method"] 3)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\314\315\316\"\207" [custom-declare-variable gnus-gmane-group-download-format funcall function #[0 "\300\207" ["http://download.gmane.org/%s/%s/%s"] 1 ""] "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)
#@272 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'.
(fn GROUP START &optional RANGE)
(defalias 'gnus-read-ephemeral-gmane-group #[770 "\211\204 \303\262\211\304W\203 \305\306\"\210\307\310\311$!\312\313\314\315\"\316\317\"\216r\211q\210\320\310 \211\\$\315\"\210\321\322ed#\210\323\310\324$\325\326BB\"\210)r\211q\210\322\321\211\321\327%\210*\210\330!)\207" [gnus-thread-sort-functions gnus-gmane-group-download-format buffer-file-name 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*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] url-insert-file-contents nil write-region gnus-group-read-ephemeral-group "nndoc+ephemeral:%s.start-%s.range-%s" nndoc ((nndoc-article-type mbox)) 0 delete-file] 12 (#$ . 79282) [(byte-code "\300\301!\302\303!\302\304!E\207" [gnus-group-completing-read "Gmane group" read-number "Start article number: " "How many articles: "] 4) (gnus-group-mode)]])
#@296 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"
(fn URL)
(defalias 'gnus-read-ephemeral-gmane-group-url #[257 "\300\211\211\301\302\"\203( \303\304\"\262\305\303\306\"!\262\305\303\307\"!ZT\262\202T \301\310\"\204= \301\311\"\204= \301\312\"\203O \303\304\"\262\305\303\306\"!\262\202T \313\314\"\210\315#\207" [nil string-match "^http://thread\\.gmane\\.org/\\([^/]+\\)/\\([0-9]+\\)/focus=\\([0-9]+\\)$" match-string 1 string-to-number 2 3 "^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] 8 (#$ . 80513) [(byte-code "\300\301!C\207" [gnus-group-completing-read "Gmane URL"] 2) (gnus-group-mode)]])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\314\315\316\"\207" [custom-declare-variable gnus-bug-group-download-format-alist funcall function #[0 "\300\207" [((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"))] 1 ""] "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 #[0 "\301\302!\210\303\304\"\203 \305\306!\202 \307 \205 \310\307 !\311\312\313\"\205( \314\315\"C\"\206- \211\207" [bug-reference-bug-regexp require bug-reference thing-at-point-looking-at 500 match-string 2 number-at-point abs completing-read-multiple format-prompt "Bug IDs" format "%s"] 6 (#$ . 82343)])
#@495 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.
(fn IDS MBOX-URL &optional WINDOW-CONF)
(defalias 'gnus-read-ephemeral-bug-group #[770 "\204 \306\307!\210\310\311:\203 \202 C\"\262\312\313!\314\315\"\216\316\317@\320!\321!>\2047 \322\323\324D\"\210\211\325H\262#\326\327!\330Q\331 P\332\211\333\334\335\"\314\336\"\216r\211q\210\337 \210\211\203\215 \211@\340\341\342!\"\f\204z \343!\203z \344!\266\202\206 \345\316 \"\335\"\210\346\210A\266\202\202\\ \210eb\210\212\347\346\335#)\204\251 \350\351 \352\353\354#\266\202\"\210\347\346\335#\203`\355\356\346\335#\203\277 `S\202\300 d}\210\357\360!\361\357\362!Q\346\335 @\363#)\266\203\204\372 eb\210\347\364\346\335#\204\356 \365\366\261\210\202\372 \367 \210\370\346x\210\352\261\210db\210~\210\202\251 )r\211q\210\371\346\211\346\372%\210*\210*\373\374\375\353\354#\266\202P\376\377BB\346$\266\203)\207" [cl-struct-url-tags message-unix-mail-delimiter coding-system-for-read coding-system-for-write gnus-plugged buffer-file-name user-error "No bug IDs specified" mapcar #[257 "\300\301\"\207" [format "%s"] 4 "\n\n(fn ID)"] make-temp-file "gnus-temp-group-" make-closure #[0 "\301\300!\207" [V0 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*" t #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] mm-disable-multibyte expand-file-name locate-user-emacs-file "debbugs-cache" file-exists-p insert-file-contents url-insert-file-contents nil 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)) inhibit-changing-match-data] 16 (#$ . 82750) (byte-code "\301 \302\303\"D\207" [gnus-bug-group-download-format-alist gnus-group--read-bug-ids alist-get emacs] 4)])
#@183 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.
(fn IDS &optional WINDOW-CONF)
(defalias 'gnus-read-ephemeral-debian-bug-group #[513 "\301\302\303\"#\207" [gnus-bug-group-download-format-alist gnus-read-ephemeral-bug-group alist-get debian] 7 (#$ . 85246) (byte-code "\300 C\207" [gnus-group--read-bug-ids] 1)])
#@182 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.
(fn IDS &optional WINDOW-CONF)
(defalias 'gnus-read-ephemeral-emacs-bug-group #[513 "\302\303\304\"#\210\305\306\307\310#\205< \311\312!\205< r\313\314 !q\210\312\315!\210\242\206( \211;\2032 \316!\262\317\301!\210\211\211\262)\207" [gnus-bug-group-download-format-alist 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] 7 (#$ . 85671) (byte-code "\300 C\207" [gnus-group--read-bug-ids] 1)])
#@155 Jump to newsgroup GROUP.
If PROMPT (the prefix) is a number, use the prompt specified in
`gnus-group-jump-to-group-prompt'.
(fn GROUP &optional PROMPT)
(defalias 'gnus-group-jump-to-group #[513 "\300\232\203\n \301\302!\210\303!?\205 \304!?\205 \305!\210\304!\306 \210\207" ["" error "Empty group name" gnus-ephemeral-group-p gnus-group-goto-group gnus-group-update-group gnus-group-position-point] 4 (#$ . 86377) [(byte-code "\302\303\211\211\203 \236A\202$ ;\203 \206$ \304 \236A\211;\205\" \211\262$C\207" [current-prefix-arg gnus-group-jump-to-group-prompt gnus-group-completing-read nil 0] 6) (gnus-group-mode)]])
#@202 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.
(fn GROUP &optional FAR TEST-MARKED)
(defalias 'gnus-group-goto-group #[769 "\205\250 `\300 \210\204\" \301`\302\"\232\203\" \203 \303 \203\" `\202\246 \204E \212\304y\210\301`\302\"\232\205: ?\206: \303 )\203E \304y\210`\202\246 \204h \212\305y\210\301`\302\"\232\205] ?\206] \303 )\203h \305y\210`\202\246 \203\225 eb\210\306\211\204\217 \307\302\310\311$\203\217 \303 \203\211 \312\262\202p \305y\210\202p \211\262\202\246 \307\302\306\311$\203\242 `\202\246 \211b\210\306\262\207" [beginning-of-line get-text-property gnus-group gnus-group-mark-line-p -1 1 nil gnus-text-property-search forward goto t] 10 (#$ . 87020)])
#@168 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.
(fn N &optional SILENT)
(defalias 'gnus-group-next-group #[513 "\300\301\302$\207" [gnus-group-next-unread-group t nil] 7 (#$ . 87834) ["p" (gnus-group-mode)]])
#@384 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.
(fn N &optional ALL LEVEL SILENT)
(defalias 'gnus-group-next-unread-group #[1025 "\301W\302!\211\301V\203\" \303?\206 #\203\" \211S\262\202 \211\301U\204E \204E \304\305\306\2038 \307\2029 \310\203B \311\202C \307$\210\207" [gnus-group-goto-unread 0 abs gnus-group-search-forward gnus-message 7 "No more%s newsgroups%s" "" " unread" " on this level or higher"] 11 (#$ . 88147) ["p" (gnus-group-mode)]])
#@112 Go to previous N'th newsgroup.
Returns the difference between N and the number of skips actually
done.
(fn N)
(defalias 'gnus-group-prev-group #[257 "\300[\301\"\207" [gnus-group-next-unread-group t] 4 (#$ . 88922) ["p" (gnus-group-mode)]])
#@119 Go to previous N'th unread newsgroup.
Returns the difference between N and the number of skips actually
done.
(fn N)
(defalias 'gnus-group-prev-unread-group #[257 "\300[!\207" [gnus-group-next-unread-group] 3 (#$ . 89172) ["p" (gnus-group-mode)]])
#@176 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.
(fn N)
(defalias 'gnus-group-next-unread-group-same-level #[257 "\300\301\302 #\210\303 \207" [gnus-group-next-unread-group t gnus-group-group-level gnus-group-position-point] 5 (#$ . 89429) ["p" (gnus-group-mode)]])
#@133 Go to next N'th unread newsgroup on the same level.
Returns the difference between N and the number of skips actually
done.
(fn N)
(defalias 'gnus-group-prev-unread-group-same-level #[257 "\300[\301\302 #\210\303 \207" [gnus-group-next-unread-group t gnus-group-group-level gnus-group-position-point] 5 (#$ . 89822) ["p" (gnus-group-mode)]])
#@114 Go to the group with the highest level.
If EXCLUDE-GROUP, do not go to that group.
(fn &optional EXCLUDE-GROUP)
(defalias 'gnus-group-best-unread-group #[256 "eb\210\300\301\211m\204E \302`\303\"\262\247\203? \304V\203? \302`\305\"\203? \302`\305\"W\203? \2036 \306 \232\204? \302`\305\"\262`\262\307y\210\202 \211\203L \211b\210\310 \210\211\205U \306 \207" [100000 nil get-text-property gnus-unread 0 gnus-level gnus-group-group-name 1 gnus-group-position-point] 7 (#$ . 90173) [nil (gnus-group-mode)]])
#@45 Go to the first group with unread articles.
(defalias 'gnus-group-first-unread-group #[0 "`\300eb\210\301 \211\262\302=\204\" \211\247\203 \211\303U\203\" \304\305!\303U\203( `\266\202\202- b\266\300\306 \210\207" [nil gnus-group-group-unread t 0 gnus-group-next-unread-group 1 gnus-group-position-point] 4 (#$ . 90695) [nil (gnus-group-mode)]])
#@28 Jump to the server buffer.
(defalias 'gnus-group-enter-server-mode #[0 "\300 \207" [gnus-enter-server-buffer] 1 (#$ . 91051) [nil (gnus-group-mode)]])
#@81 Add a new newsgroup.
The user will be prompted for GROUP.
(fn &optional GROUP)
(defalias 'gnus-group-make-group-simple #[256 "\301\302\303\"\203 \304\225\305O\202 \302\306\"\203, \307\310\311\312\"\311\313\"\206( \314#\2024 \307\310@A@#\305\211$\207" [gnus-select-method gnus-group-make-group string-match "^[^:]+:" 0 nil "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 ""] 9 (#$ . 91208) [(byte-code "\300 C\207" [gnus-group-completing-read] 1) (gnus-group-mode)]])
#@318 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.
(fn NAME &optional METHOD ADDRESS ARGS)
(defalias 'gnus-group-make-group #[1025 ";\2036\211\203 \211<\203 \211\206.\306\"A\206.\211\307\232\203% \206\306\n\"A\206\306 \"A\206\f\211\203R \310\311@@@@@A@#\232\204R \211A\262\2026 \211@@\262\206
\211\203u \310\311@@@A@#\232\204u \211A\262\202[ \211@\262\206=A\312\211\203\211A\262\242\3138\262\262;\204\201 \312\314C\3152 \211\242\206\250 \240\210\204\266 \316\317\320\"\"\210\n D\211\203\316 \211@\316\317\321\"\"\210A\266\202\202\271 \210\211\242A@\322\235\203\341 \310\323\242@\"\202\353 \310\311\242@\242A@#\211\242B\204\211\235\204\306@\"\204\211B\266\2020\266\204\232\203\201 \262\312\262\202\201 \266\202\211\203+\306\"\204+BB\211\262\262\2064\262\324\205P\325 \"?\205P\203O\326!D\202P!\203\\\327\"\202]\312\211\330>\"\203l\331\332\"\210\333\314?\312\211 \257\211\262?@\334 \314%\210\335\336\337BA#\210\340!\204\244\341\342\343A!\344Q\345\346 !\347Q\"\210\350!\210\351y\210\352 \210\306\353\312\211;\203\346\211\211\203\306\211<\203\306\211\206\341\306\"A\206\341\211\307\232\203\330 \206\315\306\n\"A\206\315\306 \"A\206\315\f\211\203\310\311@@@@@A@#\232\204\211A\262\202\351\211@@\262\206\315
\211\203(\310\311@@@A@#\232\204(\211A\262\202\211@\262\206\315=A\312\211\203\313\211A\262\242\3138\262\262;\2044\312\314C\3152\274\211\242\206[ \240\210\204i\316\317\320\"\"\210\n D\211\203\201\211@\316\317\321\"\"\210A\266\202\202l\210\211\242A@\322\235\203\224\310\323\242@\"\202\236\310\311\242@\242A@#\211\242B\204\270\211\235\204\270\306@\"\204\270\211B\266\2020\266\204\232\2034\262\312\262\2024\266\202\211\203\336\306\"\204\336BB\211\262\266\203\202R\211 \232\203\362 \266\202\202R\203\211@;\203\354\"\266\202\202R\211\203\204\211A@\355\232\203\262\202R\211\353@!\356\306B\">\203O\326\357P!\236\204O\360@B\236>\203O\361\326\357P!A@DC\"\266\204\202R\266\204@\211\262!B\"\203a\362!\210\363!\210\364\3651\224\211;\203w\366!@\202x\211\367!\204\202\362!\210\370\326\310\371#!!\2620\266\202\202\227\266\312\203\252\372\312#\204\252\331\373\374!\"\210\314\207" [gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods assoc "native" format "%s:%s" nil 4 t server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (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 gnus-server-extend-method #1# address "-address" physical-address append require gnus-check-server request-create-group (error) gnus-find-method-for-group featurep fboundp "%s-%s" gnus-request-create-group "Could not create group on server: %s" nnheader-get-report gnus-newsrc-alist gnus-newsrc-hashtb gnus-level-default-subscribed gnus-level-killed gnus-active-hashtb gnus-valid-select-methods] 27 (#$ . 91719) [(byte-code "\300\301!\302\303!D\207" [gnus-read-group "Group name: " gnus-read-method "Select method for new group (use tab for completion)"] 3) (gnus-group-mode)]])
#@86 Delete the current group. Only meaningful with editable groups.
(fn &optional ARG)
(defalias 'gnus-group-delete-groups #[256 "\300!G\301\302U\203 \303\202 \304\305\"!\205 \306\307\"\207" [gnus-group-process-prefix gnus-yes-or-no-p 1 "Delete this 1 group? " format "Delete these %d groups? " gnus-group-iterate #[257 "\300\301\302#\207" [gnus-group-delete-group nil t] 5 "\n\n(fn GROUP)"]] 6 (#$ . 95736) ["P" (gnus-group-mode)]])
#@224 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.
(fn GROUP &optional OLDP)
(defalias 'gnus-group-delete-articles #[513 "\301\302\"!\303\304\305G\"!\205 \306?\205 \307#\207" [gnus-active-hashtb 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] 7 (#$ . 96183) [(byte-code "\301 D\207" [current-prefix-arg gnus-group-group-name] 2) (gnus-group-mode)]])
#@446 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.
(fn GROUP &optional FORCE NO-PROMPT)
(defalias 'gnus-group-delete-group #[769 "\204 \301\302!\210\303\30417 \211;\203 \305!@\202 \211\306!\204% \307!\210\310\311\312\313#!!\2620\266\202\202: \266\314\204A \301\315!\210\211\204W \316\312\317\203Q \320\202R \321#!\205\202 \322\323\324#\210\325\"\204l \326\327\330#\202\202 \322\323\331#\210\332!\210\333\334\335\"\210\336\314#\210\335\337 \210\207" [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] 12 (#$ . 96796) [(byte-code "\301 D\207" [current-prefix-arg gnus-group-group-name] 2) (gnus-group-mode)]])
#@150 Rename group from GROUP to NEW-NAME.
When used interactively, GROUP is the group under point
and NEW-NAME will be prompted for.
(fn GROUP NEW-NAME)
(defalias 'gnus-group-rename-group #[514 "\305\3061/ \211;\203 \307!@\202 \211\310!\204 \311!\210\312\313\314\315#!!\2620\266\202\2022 \266\316\2049 \317\320!\210\204A \317\321!\210\322\323\"\203P \324\225\316O\202Q \232\203Z \317\325!\210\326!\203d \211\202\204 \327\322\323\"\203t \324\225\316O\202u \330\"A@\262\3318\262\"\262\330 \"\203\222 \317\332\"\210\333\334\335$\210\336!\210\337 \nW\203\253 \340\"\204\264 \341\342\343$\202\321 \344 \210 @A\240\210\345 \210\346\330 \" #\210\333\334\347$\210\211\350\f\"\346\316 #\210\351 \210\352 \210\207" [gnus-newsrc-hashtb gnus-active-hashtb gnus-level-zombie gnus-list-of-killed-groups gnus-killed-list 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 "^[^:]+:" 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] 11 (#$ . 98239) [(byte-code "\301 \302\211\303\30413 \211;\203 \305!@\202 \211\306!\204! \307!\210\310\311\312\313#!!\2620\266\202\2026 \266\302\204= \314\315!\210\316\317\320\321\"\203O \322\225\302O\202P \"\262\323\"A@\262\3248\262\262\325\"D\207" [gnus-newsrc-hashtb gnus-group-group-name nil request-rename-group (error) gnus-find-method-for-group featurep require fboundp intern format "%s-%s" error "This back end does not support renaming groups" gnus-read-group "Rename group to: " string-match "^[^:]+:" 0 gethash 4 gnus-group-prefixed-name] 12) (gnus-group-mode)]])
#@64 Edit the group on the current line.
(fn GROUP &optional PART)
(defalias 'gnus-group-edit-group #[513 "\211\206 \301\302\204 \303\304!\210\305\"A@\262\211\262\204! \303\306!\210\3071- \310!0\210\2022 \210\2022 \210\311\312\267\202I \3138\206J \314\202J \3158\202J \316\317\320\267\202Z \321\202[ \322\202[ \323#\324\325##\210\326\327\330\331\267\202x \332\202y \333\202y \334!\"\207" [gnus-newsrc-hashtb info 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" make-closure #[257 "\302\301\300#\207" [V0 V1 gnus-group-edit-group-done] 5 "\n\n(fn 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 112 params 116)) "(gnus)Select Methods" "(gnus)Group Parameters" "(gnus)Group Info"] 11 (#$ . 100318) [(byte-code "\300 C\207" [gnus-group-group-name] 1) (gnus-group-mode)]])
#@46 Edit the select method of GROUP.
(fn GROUP)
(defalias 'gnus-group-edit-group-method #[257 "\300\301\"\207" [gnus-group-edit-group method] 4 (#$ . 101596) [(byte-code "\300 C\207" [gnus-group-group-name] 1) (gnus-group-mode)]])
#@49 Edit the group parameters of GROUP.
(fn GROUP)
(defalias 'gnus-group-edit-group-parameters #[257 "\300\301\"\207" [gnus-group-edit-group params] 4 (#$ . 101831) [(byte-code "\300 C\207" [gnus-group-group-name] 1) (gnus-group-mode)]])
#@41 Update variables.
(fn PART GROUP FORM)
(defalias 'gnus-group-edit-group-done #[771 "\302\267\202 \3038\202 \211\202 \304\305\267\202' \202( \306\"A@\262\202( \304\211\205e \2037 \307 \"\203N \211@\310\311\"\203H \211\312\225\304O\202I \211\262\202e \313@\310\311\"\203` \211\312\225\304O\202a \211\262\"\211\203} \211\232\204} \314!\203y \315\316!\210\317!\210\203\205 \211\204\224 \320\206\215 #\210\202\274 \321!\262\240\210\307\322\"\204\270 \323\211\203\260 \324\303\"\210\303\233\211\240\266\320!\210\325\206\302 !\210\326 \207" [gnus-newsrc-hashtb gnus-select-method #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 23 method 27)) gethash gnus-server-equal string-match "^[^:]+:" 0 gnus-group-prefixed-name gnus-group-goto-group gnus-group-kill-group 1 gnus-activate-group gnus-group-set-info copy-tree "native" t gnus-info--grow-entry gnus-group-update-group gnus-group-position-point] 12 (#$ . 102073)])
#@80 Create one of the groups described in `gnus-useful-groups'.
(fn GROUP METHOD)
(defalias 'gnus-group-make-useful-group #[514 "\300!\262\301\302\236>\211\262\203 \211\302@A@\303\"\240\210\202 \210\304\"\207" [copy-tree nil eval t gnus-group-make-group] 7 (#$ . 103188) [(byte-code "\301\302\303\304\305\"\306#\"\211A@AA@D\207" [gnus-useful-groups assoc gnus-completing-read "Create group" mapcar car t] 6) (gnus-group-mode)]])
#@260 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.
(fn &optional NOERROR)
(defalias 'gnus-group-make-help-group #[256 "\301\302\303\"\304\305\306\"\307\"\203+ \310\267\202\" \311\312!\266\202U \266\202U \313\314\312\"\266\202U \211\2048 \313\314\315\"\266\202U \316\317\320\"\203H \321\225\322O\202I \323\302\324D\325\326DF\"\266\327 \207" [gnus-newsrc-hashtb 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 21 t 29)) error "Documentation group already exists" gnus-message 1 "Couldn't find doc group" gnus-group-make-group string-match "^[^:]+:" 0 nil nndoc nndoc-address nndoc-article-type mbox gnus-group-position-point] 10 (#$ . 103634) [nil (gnus-group-mode)]])
#@129 Create a group that uses a single file as the source.
If called with a prefix argument, ask for the file type.
(fn FILE TYPE)
(defalias 'gnus-group-make-doc-group #[514 "\211\300=\203` \301\302\211\211\204^ \303\304\"\210\305 \211\262\306U\203 \307\202Y \310U\203* \311\202Y \312U\2034 \313\202Y \314U\203> \315\202Y \316U\203H \317\202Y \320U\203R \321\202Y \322\323\"\262\302\262\202 \266\203\324!\262\325\326\327!\330\"!\331\332D\333\206x \321DF\334\"A\335\"\240\210\336\337\340\"\203\227 \341\225\302O\202\230 \302\211$\207" [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 "^[^:]+:" 0] 10 (#$ . 104657) [(byte-code "\301\302!\205 \303D\207" [current-prefix-arg read-file-name "File name: " ask] 2) (gnus-group-mode)]])
(defvar gnus-group-web-type-history nil)
(defvar gnus-group-web-search-history nil)
#@101 Create an ephemeral nnweb group.
If SOLID (the prefix), create a solid group.
(fn &optional SOLID)
(defalias 'gnus-group-make-web-group #[256 "\303\304!\210\211\203 \305\306!\202 \307 @\206 \310 @@!\311\312\313\314\315 \"\316\317\300%D!\320\321\n@\2060 \322\323B\302#\304\324D\325\326!D\327BBBB\203U \330\331\236\"\262\332\"\207\333\316p\334\335!\203d \336\202e \337B$\207" [gnus-group-web-type-history nnweb-type-definition gnus-group-web-search-history require nnweb gnus-read-group "Group name: " message-unique-id symbol-name gnus-string-or-1 gnus-completing-read "Search engine type" mapcar #[257 "\300@!\207" [symbol-name] 3 "\n\n(fn ELEM)"] t nil read-string "Search string: " "" 0 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 group] 13 (#$ . 105873) ["P" (gnus-group-mode)]])
#@115 Given a URL, discover if there is an RSS feed.
If there is, use Gnus to create an nnrss group
(fn &optional URL)
(defalias 'gnus-group-make-rss-group #[256 "\301\302!\210\211\204
\303\304!\262\305!\211\203a \306\303\307\306\310\311\312\313\236A\206$ \314!\315#!\"!\303\316\310\311\312\317\236A\2068 \314!\315#\"\320\236A\321\322\"\211\203Q \323\324\"\"\262\325\326\"\210EB\327\330!\207\331\332\"\207" [nnrss-group-alist require nnrss read-from-minibuffer "URL to Search for RSS: " nnrss-discover-feed gnus-newsgroup-savable-name "Title: " mapconcat identity split-string title #1="" " " "Description: " description href 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"] 11 (#$ . 106811) [nil (gnus-group-mode)]])
#@233 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.
(fn DIR)
(defalias 'gnus-group-make-directory-group #[257 "\301!\204\n \302\303!\210\304!\204 \302\305!\210\306\307\310\211\203\" \311\"\2039 \312\313\"\314\"\262\315\316T\211\262\"\262\202 \317\320\321\"\203I \307\225\310O\202J \322\320\321\"\203Z \307\225\310O\202[ \323DE\"\207" [gnus-newsrc-hashtb 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 "^[^:]+:" nndir nndir-directory] 10 (#$ . 107672) [(byte-code "\300\301!C\207" [read-directory-name "Create group from directory: "] 2) (gnus-group-mode)]])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [autoload gnus-group-topic-name "gnus-topic" gnus-search-make-spec "gnus-search"] 3)
#@614 Make a group based on a search.
Prompt for a search query and determine the groups to search as
follows: if called from the *Server* buffer search all groups
belonging to the server on the current line; if called from the
*Group* buffer search any marked groups, or the group on the
current line, or all the groups under the current topic. A
prefix arg NO-PARSE means that Gnus should not parse the search
query before passing it to the underlying search engine. A
non-nil SPECS arg must be an alist with `search-query-spec' and
`search-group-spec' keys, and skips all prompting.
(fn NO-PARSE &optional SPECS)
(defalias 'gnus-group-make-search-group #[513 "\302\303!rq\210\304\236A\206> \305\236A\206> \306 \203! \306 CC\202> \307\310 \206= \311 \2032 \311 C\202= \312\313\314\315 \316\317\316\320%\"\"\321\236A\206O \322\236A\206O \323!\322\236\203n \324\236\211\203d \211\320\241\266\202n \324\320B\211\262B\266\202\325\326\327D\316\330\331\332B\333\321B\304\nBDBDB\334CD$\266\202)\207" [gnus-group-buffer gnus-group-marked gnus-read-group "Group name: " search-group-spec nnir-group-spec gnus-server-server-name seq-group-by #[257 "\301\302\"\203 \303\304\305\306\"\305\307\"\206 \310#\207\303\304@A@#\207" [gnus-select-method string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 ""] 7 "\n\n(fn ELT)"] gnus-group-group-name mapcar caadr gnus-topic-find-groups gnus-group-topic-name nil all t search-query-spec nnir-query-spec gnus-search-make-spec raw gnus-group-make-group nnselect "nnselect" nnselect-specs nnselect-function gnus-search-run-query nnselect-args nnselect-artlist] 15 (#$ . 108715) ["P" (gnus-group-mode)]])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias gnus-group-make-nnir-group gnus-group-read-ephemeral-search-group nil make-obsolete "28.1"] 4)
#@624 Read an nnselect group based on a search.
Prompt for a search query and determine the groups to search as
follows: if called from the *Server* buffer search all groups
belonging to the server on the current line; if called from the
*Group* buffer search any marked groups, or the group on the
current line, or all the groups under the current topic. A
prefix arg NO-PARSE means that Gnus should not parse the search
query before passing it to the underlying search engine. A
non-nil SPECS arg must be an alist with `search-query-spec' and
`search-group-spec' keys, and skips all prompting.
(fn NO-PARSE &optional SPECS)
(defalias 'gnus-group-read-ephemeral-search-group #[513 "\302\236A\2067 \303\236A\2067 \304 \203 \304 CC\2027 \305\306\2066 \307 \203+ \307 C\2026 \310\311\312\313 \314\315\314\316%\"\"\317\236A\206H \320\236A\206H \321!\320\236\203g \322\236\211\203] \211\316\241\266\202g \322\316B\211\262B\266\202\323\324\325 P\326\327D\314p B\314\211\330\331\332B\333\317 B\302
BDBDB\334CD&\207" [gnus-group-marked gnus-current-window-configuration search-group-spec nnir-group-spec gnus-server-server-name seq-group-by #[257 "\301\302\"\203 \303\304\305\306\"\305\307\"\206 \310#\207\303\304@A@#\207" [gnus-select-method string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 ""] 7 "\n\n(fn ELT)"] gnus-group-group-name mapcar caadr gnus-topic-find-groups gnus-group-topic-name nil all t search-query-spec nnir-query-spec gnus-search-make-spec raw gnus-group-read-ephemeral-group "nnselect-" message-unique-id nnselect "nnselect" nnselect-specs nnselect-function gnus-search-run-query nnselect-args nnselect-artlist] 17 (#$ . 110567) ["P" (gnus-group-mode)]])
#@58 Add the current group to a virtual group.
(fn N VGROUP)
(defalias 'gnus-group-add-to-virtual #[514 "\301!@\302=\204 \303\304\"\210\305!\210\306!\307\"A@\262\3108\262\211AA@\311\312\313\311#Q\240\266\314 \207" [gnus-newsrc-hashtb gnus-find-method-for-group nnvirtual error "%s is not an nnvirtual group" gnus-close-group gnus-group-process-prefix gethash 4 "\\|" mapconcat #[257 "\300!\210\301\302!\303Q\207" [gnus-group-remove-mark "\\(^" regexp-quote "$\\)"] 4 "\n\n(fn S)"] gnus-group-position-point] 11 (#$ . 112297) [(byte-code "\301\302\303\304\305$D\207" [current-prefix-arg gnus-group-completing-read "Add to virtual group" nil t "nnvirtual:"] 6) (gnus-group-mode)]])
#@55 Create a new, fresh, empty virtual group.
(fn GROUP)
(defalias 'gnus-group-make-empty-virtual #[257 "\301\302D\303\"\304\"\203 \305\306\"\210\307\310 #\210\311!\210\312y\210\313 \207" [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] 7 (#$ . 112997) ["sCreate new, empty virtual group: " (gnus-group-mode)]])
#@47 Enter an ephemeral nneething group.
(fn DIR)
(defalias 'gnus-group-enter-directory #[257 "\300\301E\302\303\304!!\"\305!\306\307p\310\311!\203 \312\202 \313B$?\205) \314\315\"\207" [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"] 11 (#$ . 113470) ["DDirectory to read: " (gnus-group-mode)]])
#@63 Expunge deleted articles in current nnimap GROUP.
(fn GROUP)
(defalias 'gnus-group-expunge-group #[257 "\300!\301@\30213 \211;\203 \300!@\202 \211\303!\204! \304!\210\305\306\307\310#!!\2620\266\202\2026 \266\311\204? \312\313@\"\207\314\"\207" [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] 11 (#$ . 113969) [(byte-code "\300 C\207" [gnus-group-group-name] 1) (gnus-group-mode)]])
(byte-code "\300\301\302\"\210\300\303\302\"\207" [autoload nnimap-acl-get "nnimap" nnimap-acl-edit] 3)
#@67 Edit the Access Control List of current nnimap GROUP.
(fn GROUP)
(defalias 'gnus-group-nnimap-edit-acl #[257 "\301\302\"\203 \211\303\225\304O\202 \211\304C\304C\204 \305\306!\210\307\"A@\262\204, \305\310!\210\311!\240@\312=\204< \305\313\"\210\211\314\242A@\"\240\204L \305\315!\210\316\242\317\320\"\321\322$#\207" [gnus-newsrc-hashtb string-match "^[^:]+:" 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)" make-closure #[257 "\303\300\301\242\302\242$\207" [V0 V1 V2 nnimap-acl-edit] 6 "\n\n(fn FORM)"]] 12 (#$ . 114605) [(byte-code "\300 C\207" [gnus-group-group-name] 1) (gnus-group-mode)]])
#@237 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.
(fn FUNC &optional REVERSE)
(defalias 'gnus-group-sort-groups #[513 "\301!\"\210\302 \210\303 \210\304 \207" [gnus-group-sort-alist-function gnus-make-sort-function gnus-group-unmark-all-groups gnus-group-list-groups gnus-dribble-touch] 5 (#$ . 116630) [(list gnus-group-sort-function current-prefix-arg) (gnus-group-mode)]])
#@211 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.
(fn FUNC REVERSE)
(defalias 'gnus-group-sort-flat #[514 "\205\" \301\302\"\303\304\305\"\"\304\306\"\203 \237\302B\211\266\202\207" [gnus-group-list remove "dummy.group" sort mapcar #[257 "\211\301\"A@\207" [gnus-newsrc-hashtb gethash] 5 "\n\n(fn G)"] #[257 "\211@\207" [] 2 "\n\n(fn I)"]] 7 (#$ . 117174)])
#@112 Sort the group buffer alphabetically by group name.
If REVERSE, sort in reverse order.
(fn &optional REVERSE)
(defalias 'gnus-group-sort-groups-by-alphabet #[256 "\300\301\"\207" [gnus-group-sort-groups gnus-group-sort-by-alphabet] 4 (#$ . 117695) ["P" (gnus-group-mode)]])
#@130 Sort the group buffer alphabetically by real (unprefixed) group name.
If REVERSE, sort in reverse order.
(fn &optional REVERSE)
(defalias 'gnus-group-sort-groups-by-real-name #[256 "\300\301\"\207" [gnus-group-sort-groups gnus-group-sort-by-real-name] 4 (#$ . 117978) ["P" (gnus-group-mode)]])
#@112 Sort the group buffer by number of unread articles.
If REVERSE, sort in reverse order.
(fn &optional REVERSE)
(defalias 'gnus-group-sort-groups-by-unread #[256 "\300\301\"\207" [gnus-group-sort-groups gnus-group-sort-by-unread] 4 (#$ . 118281) ["P" (gnus-group-mode)]])
#@98 Sort the group buffer by group level.
If REVERSE, sort in reverse order.
(fn &optional REVERSE)
(defalias 'gnus-group-sort-groups-by-level #[256 "\300\301\"\207" [gnus-group-sort-groups gnus-group-sort-by-level] 4 (#$ . 118559) ["P" (gnus-group-mode)]])
#@98 Sort the group buffer by group score.
If REVERSE, sort in reverse order.
(fn &optional REVERSE)
(defalias 'gnus-group-sort-groups-by-score #[256 "\300\301\"\207" [gnus-group-sort-groups gnus-group-sort-by-score] 4 (#$ . 118821) ["P" (gnus-group-mode)]])
#@97 Sort the group buffer by group rank.
If REVERSE, sort in reverse order.
(fn &optional REVERSE)
(defalias 'gnus-group-sort-groups-by-rank #[256 "\300\301\"\207" [gnus-group-sort-groups gnus-group-sort-by-rank] 4 (#$ . 119083) ["P" (gnus-group-mode)]])
#@115 Sort the group buffer alphabetically by back end name.
If REVERSE, sort in reverse order.
(fn &optional REVERSE)
(defalias 'gnus-group-sort-groups-by-method #[256 "\300\301\"\207" [gnus-group-sort-groups gnus-group-sort-by-method] 4 (#$ . 119343) ["P" (gnus-group-mode)]])
#@113 Sort the group buffer alphabetically by server name.
If REVERSE, sort in reverse order.
(fn &optional REVERSE)
(defalias 'gnus-group-sort-groups-by-server #[256 "\300\301\"\207" [gnus-group-sort-groups gnus-group-sort-by-server] 4 (#$ . 119625) ["P" (gnus-group-mode)]])
#@66 Sort the process/prefixed groups.
(fn N FUNC &optional REVERSE)
(defalias 'gnus-group-sort-selected-groups #[770 "\301!\302!#\210\303 \210\304 \210\305 \207" [gnus-group-sort-selected-function gnus-group-process-prefix gnus-make-sort-function gnus-group-unmark-all-groups gnus-group-list-groups gnus-dribble-touch] 8 (#$ . 119904) [(list current-prefix-arg gnus-group-sort-function) (gnus-group-mode)]])
#@114 Sort only the selected GROUPS, using FUNC.
If REVERSE is non-nil, reverse the sorting.
(fn GROUPS FUNC REVERSE)
(defalias 'gnus-group-sort-selected-flat #[771 "\301\302\303\"\"\304\203 \237\262\302\305\"\262\301\302\306\"\307\"\211\2058 \211@\211\233\211\211A\262\242\240\266A\266\202\202 \207" [gnus-group-list sort mapcar gnus-get-info nil gnus-info-group #[257 "\301\"\207" [gnus-group-list seq-position] 4 "\n\n(fn G)"] <] 11 (#$ . 120321)])
#@174 Sort the group buffer alphabetically by group name.
Obeys the process/prefix convention. If REVERSE (the symbolic prefix),
sort in reverse order.
(fn &optional N REVERSE)
(defalias 'gnus-group-sort-selected-groups-by-alphabet #[512 "\300\301#\207" [gnus-group-sort-selected-groups gnus-group-sort-by-alphabet] 6 (#$ . 120793) [(gnus-interactive "P\ny") (gnus-group-mode)]])
#@179 Sort the group buffer alphabetically by real group name.
Obeys the process/prefix convention. If REVERSE (the symbolic prefix),
sort in reverse order.
(fn &optional N REVERSE)
(defalias 'gnus-group-sort-selected-groups-by-real-name #[512 "\300\301#\207" [gnus-group-sort-selected-groups gnus-group-sort-by-real-name] 6 (#$ . 121178) [(gnus-interactive "P\ny") (gnus-group-mode)]])
#@174 Sort the group buffer by number of unread articles.
Obeys the process/prefix convention. If REVERSE (the symbolic prefix),
sort in reverse order.
(fn &optional N REVERSE)
(defalias 'gnus-group-sort-selected-groups-by-unread #[512 "\300\301#\207" [gnus-group-sort-selected-groups gnus-group-sort-by-unread] 6 (#$ . 121570) [(gnus-interactive "P\ny") (gnus-group-mode)]])
#@160 Sort the group buffer by group level.
Obeys the process/prefix convention. If REVERSE (the symbolic prefix),
sort in reverse order.
(fn &optional N REVERSE)
(defalias 'gnus-group-sort-selected-groups-by-level #[512 "\300\301#\207" [gnus-group-sort-selected-groups gnus-group-sort-by-level] 6 (#$ . 121951) [(gnus-interactive "P\ny") (gnus-group-mode)]])
#@160 Sort the group buffer by group score.
Obeys the process/prefix convention. If REVERSE (the symbolic prefix),
sort in reverse order.
(fn &optional N REVERSE)
(defalias 'gnus-group-sort-selected-groups-by-score #[512 "\300\301#\207" [gnus-group-sort-selected-groups gnus-group-sort-by-score] 6 (#$ . 122316) [(gnus-interactive "P\ny") (gnus-group-mode)]])
#@159 Sort the group buffer by group rank.
Obeys the process/prefix convention. If REVERSE (the symbolic prefix),
sort in reverse order.
(fn &optional N REVERSE)
(defalias 'gnus-group-sort-selected-groups-by-rank #[512 "\300\301#\207" [gnus-group-sort-selected-groups gnus-group-sort-by-rank] 6 (#$ . 122681) [(gnus-interactive "P\ny") (gnus-group-mode)]])
#@177 Sort the group buffer alphabetically by back end name.
Obeys the process/prefix convention. If REVERSE (the symbolic prefix),
sort in reverse order.
(fn &optional N REVERSE)
(defalias 'gnus-group-sort-selected-groups-by-method #[512 "\300\301#\207" [gnus-group-sort-selected-groups gnus-group-sort-by-method] 6 (#$ . 123043) [(gnus-interactive "P\ny") (gnus-group-mode)]])
#@40 Sort alphabetically.
(fn INFO1 INFO2)
(defalias 'gnus-group-sort-by-alphabet #[514 "@@\231\207" [] 4 (#$ . 123426)])
#@67 Sort alphabetically on real (unprefixed) names.
(fn INFO1 INFO2)
(defalias 'gnus-group-sort-by-real-name #[514 "@\300\301\"\203 \211\302\225\303O\202 \211\262@\300\301\"\203% \211\302\225\303O\202& \211\262\231\207" [string-match "^[^:]+:" 0 nil] 7 (#$ . 123552)])
#@54 Sort by number of unread articles.
(fn INFO1 INFO2)
(defalias 'gnus-group-sort-by-unread #[514 "\301@\"@\301@\"@\247\203 \206 \302\247\203 \206 \302W\207" [gnus-newsrc-hashtb gethash 0] 6 (#$ . 123832)])
#@34 Sort by level.
(fn INFO1 INFO2)
(defalias 'gnus-group-sort-by-level #[514 "\211A@\211:\203 \211@\266\202\202 \262\211A@\211:\203\" \211@\266\202\202$ \262W\207" [] 6 (#$ . 124055)])
#@57 Sort alphabetically by back end name.
(fn INFO1 INFO2)
(defalias 'gnus-group-sort-by-method #[514 "\300@\"@\300@\"@\231\207" [gnus-find-method-for-group] 6 (#$ . 124250)])
#@55 Sort alphabetically by server name.
(fn INFO1 INFO2)
(defalias 'gnus-group-sort-by-server #[514 "\300@\"\301\302@A@#\262\300@\"\301\302@A@#\262\231\207" [gnus-find-method-for-group format "%s+%s"] 8 (#$ . 124433)])
#@40 Sort by group score.
(fn INFO1 INFO2)
(defalias 'gnus-group-sort-by-score #[514 "\211A@\211:\203 \211A\206 \300\266\202\211A@\211:\203 \211A\206 \300\266\202V\207" [0] 6 (#$ . 124665)])
#@44 Sort by level and score.
(fn INFO1 INFO2)
(defalias 'gnus-group-sort-by-rank #[514 "\211A@\211:\203 \211@\266\202\202 \262\211A@\211:\203\" \211@\266\202\202$ \262W\206S U\205S \211A@\211:\203> \211A\206? \300\266\202\211A@\211:\203O \211A\206P \300\266\202V\207" [0] 8 (#$ . 124864)])
#@114 Clear all marks and read ranges from the current group.
Obeys the process/prefix convention.
(fn &optional ARG)
(defalias 'gnus-group-clear-data #[256 "\300\301!\205\n \302\303\"\207" [gnus-y-or-n-p "Really clear data? " gnus-group-iterate #[257 "\302\303\304\"A@\262\211\262!\210\305\304 \"\306#\210\307!\205! \310 \207" [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] 7 "\n\n(fn GROUP)"]] 4 (#$ . 125170) ["P" (gnus-group-mode)]])
#@57 Clear all marks and read ranges from all native groups.
(defalias 'gnus-group-clear-data-on-native-groups #[0 "\301\302!\2054 A\303\211A\262\242\211\262\203# \304@!\203 \305!\210\202 \306 \210\307 \210\310\311!\2052 \312\313!\266\202\207" [gnus-newsrc-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] 4 (#$ . 125731) [nil (gnus-group-mode)]])
#@55 Clear all marks and read ranges from INFO.
(fn INFO)
(defalias 'gnus-info-clear-data #[257 "\211@\301\3028\211\203 \211@\211A\303@CEB\262A\266\202\202 \210\3048\305BB\262\306\307\310\311DE\312\311D\311\302 8D\313BBB\314\315\311 DD\311\304\n8DE\316\317D\320\311 D\311\321\f\"D\322BBB\323BBB\257!\210\324\325\"\262\310\"\210AA\211\301\240\266\3028\205\213 \302\233\211\301\240\262\207" [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 #[257 "\211@\300\3018E\207" [del 2] 5 "\n\n(fn EL)"]] 16 (#$ . 126312)])
#@359 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.
(fn &optional N ALL)
(defalias 'gnus-group-catchup-current #[512 "\303!\304\305\204
\306\307!\210\2039 \2049 \310\311\203 \312\202 \313G\314U\203, @\2022 \311\315G\"\"!\2049 \207\211A\262\242\211\262\203\225 \316!\210\317!\211@\320=\203k \321\322\323\"\203c \304\225\305O\202d A@#\210\210\324!\nY\203| \325\326\327\"\210\2029 \330!\331\"\210\203\216 \332 \210\2029 T\262\2029 \333\314!\210\207" [gnus-interactive-catchup gnus-expert-user gnus-level-zombie 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 "^[^:]+:" 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] 11 (#$ . 127068) ["P" (gnus-group-mode)]])
#@124 Mark all articles in current newsgroup as read.
Cross references (Xref: header) of articles are ignored.
(fn &optional N)
(defalias 'gnus-group-catchup-current-all #[256 "\300\301\"\207" [gnus-group-catchup-current all] 4 (#$ . 128416) ["P" (gnus-group-mode)]])
#@220 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.
(fn GROUP &optional ALL)
(defalias 'gnus-group-catchup #[513 "\302\"\211@\303A@8\304!\305!\210@\247\204 \306\307\310#\207\311\312\"\210\203_ \313\314\236A\315\316E\317\236A\315\320ED\"\210\321\211\317\236A\"\314\236A\"\262\322\314\312\211\323%\210\322\317\312\211\323%\210\324!\203v \325!\204v \326\327\330\"\"\210\331\332!\210)\207" [gnus-newsrc-hashtb gnus-newsgroup-name gethash 3 gnus-sequence-of-unread-articles nnmail-purge-split-history 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 make-closure #[257 "\301\300\302C#\210\303\300C\304\305EC\"\207" [V0 gnus-add-marked-articles expire gnus-request-set-mark add (expire)] 6 "\n\n(fn ARTICLE)"] gnus-run-hooks gnus-group-catchup-group-hook] 12 (#$ . 128687)])
#@111 Expire all expirable articles in the current newsgroup.
Uses the process/prefix convention.
(fn &optional N)
(defalias 'gnus-group-expire-articles #[256 "\300!\301\204\f \302\303!\210\211A\262\242\211\262\205) \304!\210\305!\210\306 \210\307 \210\202\f \207" [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] 5 (#$ . 129844) ["P" (gnus-group-mode)]])
#@14
(fn GROUP)
(defalias 'gnus-group-expire-articles-1 #[257 "\304\3051/ \211;\203 \306!@\202 \211\307!\204 \310!\210\311\312\313\314#!!\2620\266\202\2022 \266\315\205\243 \316\317\320#\210\211\321\"A@\262\322!\203R \315\323!B\202W \324\3258\236\326\327A!\330\3258\236A\"\331\332\"\331\333\"\206o \203\227 \334!\210\335\203\213 \315\336\"*\202\220 \336\"!\241\210\337!\210\316\317\340#\210A)\266\204\207" [gnus-newsrc-hashtb nnmail-expiry-target nnmail-expiry-wait nnmail-expiry-wait-function 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-wait expiry-target gnus-check-group gnus-compress-sequence gnus-request-expire-articles gnus-close-group "Expiring articles in %s...done"] 10 (#$ . 130316)])
#@50 Expire all expirable articles in all newsgroups.
(defalias 'gnus-group-expire-all-groups #[0 "\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 #[257 "\211@\207" [] 2 "\n\n(fn INFO)"] gnus-group-expire-articles nil gnus-group-position-point "Expiring...done"] 3 (#$ . 131333) [nil (gnus-group-mode)]])
#@60 Set the level of the next N groups to LEVEL.
(fn N LEVEL)
(defalias 'gnus-group-set-current-level #[514 "\211\301Y\203\f \211X\204 \302\303\"\210\304!\211\203A \211@\305!\210\306\307\310\311 \206( %\210\312\311 \2065 #\210\313 \210A\266\202\202 \210\314 \207" [gnus-level-killed 1 error "Invalid level: %d" gnus-group-process-prefix 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] 10 (#$ . 131742) [(byte-code "\302!\204 \303\304!\210\305\306\307\310\311 \206 \"!\312\313\"\203) \314\311 \206% !\202* \211\262!D\207" [current-prefix-arg gnus-level-default-subscribed gnus-group-process-prefix error "No group on the current line" string-to-number read-string format-prompt "Level" gnus-group-group-level string-match "^\\s-*$" int-to-string] 6) (gnus-group-mode)]])
#@50 Unsubscribe the current group.
(fn &optional N)
(defalias 'gnus-group-unsubscribe #[256 "\300\301\"\207" [gnus-group-set-subscription-at-point unsubscribe] 4 (#$ . 132666) ["P" (gnus-group-mode)]])
#@48 Subscribe the current group.
(fn &optional N)
(defalias 'gnus-group-subscribe #[256 "\300\301\"\207" [gnus-group-set-subscription-at-point subscribe] 4 (#$ . 132872) ["P" (gnus-group-mode)]])
#@27
(fn &optional N DO-SUB)
(defalias 'gnus-group-unsubscribe-current-group #[512 "\211\203 \300\"\207\301!\207" [gnus-group-set-subscription-at-point gnus-group-toggle-subscription-at-point] 5 (#$ . 133072)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-group-unsubscribe-current-group speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@37
(fn GROUP &optional LEVEL SILENT)
(defalias 'gnus-group-unsubscribe-group #[769 "\203\n \300#\207\301\"\207" [gnus-group-set-subscription gnus-group-toggle-subscription] 7 (#$ . 133452)])
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\311\312#\210\307\301\313\312#\207" [function-put gnus-group-unsubscribe-group speed -1 put byte-optimizer byte-compile-inline-expand make-obsolete gnus-group-unsubscribe-current-group gnus-group-toggle-subscription-at-point "28.1" gnus-group-toggle-subscription] 5)
#@114 Toggle subscription of the current group.
If given numerical prefix, toggle the N next groups.
(fn &optional N)
(defalias 'gnus-group-toggle-subscription-at-point #[256 "\300\301\"\207" [gnus-group-set-subscription-at-point toggle] 4 (#$ . 133980) ["P" (gnus-group-mode)]])
#@73 Set subscription of the current group for next N groups.
(fn N DO-SUB)
(defalias 'gnus-group-set-subscription-at-point #[514 "\303!\211\203> \211@\304!\210\305\306\267\202, \2021 \2021 \307 \nX\203( \2021 \2021 \310\311\"\312#\210\313 \210A\266\202\202 \210\314\315!\207" [gnus-level-default-unsubscribed gnus-level-default-subscribed gnus-level-subscribed gnus-group-process-prefix gnus-group-remove-mark gnus-group-set-subscription #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (unsubscribe 21 subscribe 25 toggle 29)) gnus-group-group-level error "Unknown subscription setting %s" t gnus-group-update-group-line gnus-group-next-group 1] 9 (#$ . 134262)])
#@31
(fn GROUP &optional SILENT)
(defalias 'gnus-group-toggle-subscription #[513 "\304\"\211\203* \211A@\211A@\211:\203 \211@\266\202\202 \262 X\203& T\202@ \n\202@ ;\203? \305 \203; \304 \"\203? \n\202@ \306\307#\207" [gnus-newsrc-hashtb gnus-level-subscribed gnus-level-default-subscribed gnus-active-hashtb gethash gnus-read-active-file-p unsubscribe gnus-group-set-subscription] 8 (#$ . 134978) [(byte-code "\300\301\211\302 #C\207" [gnus-group-completing-read nil gnus-read-active-file-p] 4) (gnus-group-mode)]])
#@154 Set subscription of GROUP to LEVEL.
Killed newsgroups are subscribed. If SILENT, don't try to update the
group line.
(fn GROUP LEVEL &optional SILENT)
(defalias 'gnus-group-set-subscription #[770 "\305\"\306\307\"\203 \310\311!\210\202Z \211\203& \312\"\210\204Z \313!\210\202Z ;\203U \314 \2037 \305 \"\203U \312\n\235\203E \206F \f\315 $\210\204Z \313!\210\202Z \310\316\"\210\317 \207" [gnus-newsrc-hashtb gnus-active-hashtb gnus-zombie-list gnus-level-zombie gnus-level-killed 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] 9 (#$ . 135511)])
#@165 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.
(fn N)
(defalias 'gnus-group-transpose-groups #[257 "\300 \204 \301\302!\210\303\304!\210\211[y\305 \210\306 \210\207" [gnus-group-group-name error "No group on current line" gnus-group-kill-group 1 gnus-group-yank-group gnus-group-position-point] 3 (#$ . 136242) ["p" (gnus-group-mode)]])
#@92 Kill all zombie newsgroups.
The optional DUMMY should always be nil.
(fn &optional DUMMY)
(defalias 'gnus-group-kill-all-zombies #[256 "\211?\205 \244\302\303 \210\304 \207" [gnus-zombie-list gnus-killed-list nil gnus-dribble-touch gnus-group-list-groups] 3 (#$ . 136696) [(byte-code "\300\301!?C\207" [gnus-yes-or-no-p "Really kill all zombies? "] 2) (gnus-group-mode)]])
#@149 Kill newsgroups in current region (excluding current point).
The killed newsgroups can be yanked by using \[gnus-group-yank-group].
(fn BEGIN END)
(defalias 'gnus-group-kill-region #[514 "\212\300b\210\301 b\210\301 \")b\210\302 \210\303!\207" [count-lines point-at-bol beginning-of-line gnus-group-kill-group] 5 (#$ . 137082) ["r" (gnus-group-mode)]])
#@317 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.
(fn &optional N DISCARD)
(defalias 'gnus-group-kill-group #[512 "\306\307!\306\211\211\211G\310W\203~ \203 \211A\262\242\211\262B\262\311!\210\312 \262\313 \314y\210`|\210\204U \315 \"\211\262\203U \316\317\320\321 D\322BB!\210@A@B\nB\323\203^ \202_ ?\205f #\210\315 \"@\247\203v \324\325\"\210\326\327\"\210\202 \237\211\203\374 \211@\311!\210\313 \314y\210`|\210\211\fB\330\331
\"
\" \203\252 \332#\210\315 \"\211\262\203\310 @A@B\nBAAAA\241\210\202\326 \211 \235\203\326 \333 \" \320!\203\347 \313 \314y\210`|\210\202\326 \315 \"@\247\203\365 \324\325\"\210A\266\202\202\200 \210\334 \210\335 \210\211G\336W\203\211@\202\211\237)\207" [buffer-read-only gnus-newsrc-hashtb gnus-list-of-killed-groups gnus-level-killed gnus-killed-list gnus-newsrc-alist 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 gnus-group-change-level-function gnus-zombie-list] 14 (#$ . 137447) ["P" (gnus-group-mode)]])
#@309 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.
(fn &optional ARG)
(defalias 'gnus-group-yank-group #[256 "\211\206 \302\262\303\211\211\211S\211\262\304Y\203b \211A\242\211\262\204$ \305\306!\210A@\211\262B\262\307 \262\310\211A\211A@\211:\203E \211@\266\202\202G \262 \311%\210\312!\210\313\314\"\210\315\316\317D\320BB!\210\202 \321y\210\322 \210\211G\323W\203r \211@\207\211\237\207" [gnus-list-of-killed-groups gnus-level-killed 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] 11 (#$ . 139031) ["p" (gnus-group-mode)]])
#@57 Kill all groups that is on a certain LEVEL.
(fn LEVEL)
(defalias 'gnus-group-kill-level #[257 "\211U\203 \n\244\305\211\207\211W\203d \211\306V\203d \204' \307\310\311\"!\203d \f\211A\211\203^ \211@\211A@\211:\203? \211@\266\202\202A \262U\203T \211@@\nBA\241\210\202W \211\262\211A\262\202* \312 \210\313 \207\314\315\"\207" [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"] 6 (#$ . 140048) ["nKill all groups on level: " (gnus-group-mode)]])
#@161 List all newsgroups with level ARG or lower.
Default is `gnus-level-unsubscribed', which lists all subscribed and most
unsubscribed groups.
(fn &optional ARG)
(defalias 'gnus-group-list-all-groups #[256 "\301\206 \302\"\207" [gnus-level-unsubscribed gnus-group-list-groups t] 4 (#$ . 140738) ["P" (gnus-group-mode)]])
#@177 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.
(fn &optional ARG)
(defalias 'gnus-group-list-killed #[256 "\211\203 \304 \210\204 \305\306\307\"\210\202 \310\n \311 #\210)eb\210\312 \207" [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] 5 (#$ . 141067) ["P" (gnus-group-mode)]])
#@49 List all zombie newsgroups in the group buffer.
(defalias 'gnus-group-list-zombies #[0 "\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 (#$ . 141593) [nil (gnus-group-mode)]])
#@56 List all groups that are available from the server(s).
(defalias 'gnus-group-list-active #[0 "\306 \204
\307\302 \210*\310\311 \210\312\f\310C\313\314\315\"\"\210\211\242\237\266\202\316\"\211\203t \211@\317``T\320\321\261\210\322\323\307\324\211\325
\"A@\262\211A@\211:\203T \211@\266\202\202V \262\206g \211\235\203e \206g \262\257#\210A\266\202\202% \210eb)\207" [gnus-plugged gnus-agent gnus-read-active-file buffer-read-only gnus-active-hashtb gnus-newsrc-hashtb gnus-read-active-file-p t nil erase-buffer sort maphash make-closure #[514 "\300\300\242B\240\207" [V0] 5 "\n\n(fn K --CL-VAR--)"] string< add-text-properties " *: " "\n" gnus-group gnus-unread gnus-level gethash gnus-zombie-list gnus-level-zombie gnus-level-killed] 15 (#$ . 141949) [nil (gnus-group-mode)]])
#@45 Activate absolutely all groups.
(fn LEVEL)
(defalias 'gnus-activate-all-groups #[257 "\211\302 *\207" [gnus-activate-foreign-newsgroups gnus-activate-level gnus-group-get-new-news] 3 (#$ . 142764) [(list gnus-level-unsubscribed) (gnus-group-mode)]])
#@365 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.
(fn &optional ARG ONE-LEVEL)
(defalias 'gnus-group-get-new-news #[512 "\305\306!\210\307\211C\310\311!\210\310\312!\210\n\204 \313 \210\314\315\307\"\316#\210 \317=\203* \320 \210\321 \210\310\322!\210\323\247\2058 !\210\f\205C \315!\211*\207" [nnmail-fetched-sources gnus-inhibit-demon gnus-child gnus-check-new-newsgroups gnus-group-use-permanent-levels require nnmail t gnus-run-hooks gnus-get-top-new-news-hook gnus-get-new-news-hook gnus-parent-read-child-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] 6 (#$ . 143025) ["P" (gnus-group-mode)]])
#@314 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.
(fn &optional N DONT-SCAN)
(defalias 'gnus-group-get-new-news-this-group #[512 "\306!\247\203 GZ\202 \307?\205 \310 \311\211\312\211C\313\314!\210\211A\262\242\211\262\203\357 \315!\210\316\317!\211\262!\210\204\212 \320\3211n \211;\203Q \317!@\202R \211\322!\204\\ \323!\210\324\325\326\327#!!\2620\266\202\202q \266\311\203\212 \330\311\211$\210\331\211\332\n\"A@\262\"\202\226 \330?\205\223 \333\311$\203\342 \332\n\"A@\262\332 \"\203\257 \334\"\210\335\"\210\336!\204\276 \337!\210\f\203\330 \340\341\342\"\203\324 \307\225\311O\202\325 #\210\343\311\312#\266\202\" \344\345\346\347!$\210\202\" \313\350!\210\203\372 b\210
\203\351\352\312\"\210\353 \210*\207" [gnus-inhibit-demon nnmail-fetched-sources gnus-newsrc-hashtb gnus-active-hashtb gnus-agent gnus-goto-next-group-when-activating 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 "^[^:]+:" 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] 17 (#$ . 144057) ["P" (gnus-group-mode)]])
#@77 Display a description of the current newsgroup.
(fn FORCE &optional GROUP)
(defalias 'gnus-group-describe-group #[513 "\301!\302\303\"\304\203 \203 \305\"\210\204 \306\307!\210\203( \310\"\2047 \311!\211\262\2047 \312!\205H \313\314\315\206G \310\"\206G \316#\207" [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"] 11 (#$ . 145843) [(byte-code "\301 D\207" [current-prefix-arg gnus-group-group-name] 2) (gnus-group-mode)]])
#@76 Pop up a buffer with descriptions of all newsgroups.
(fn &optional FORCE)
(defalias 'gnus-group-describe-all-groups #[256 "\211\203 \303\204 \304 \204 \305\306!\210\303\307 \210\310\303C\311\312\313\"\"\210\211\242\237\266\202\314\"\211\203b \211@`\315\"\316\303\"\317\320\321\"\321\"#c\210\322\211T\323\324\325\326\303\327\nT\257#\266A\266\202\202+ \210eb\210\330 )\207" [gnus-description-hashtb buffer-read-only gnus-level-subscribed nil gnus-read-all-descriptions-files error "Couldn't request descriptions file" erase-buffer sort maphash make-closure #[514 "\300\300\242B\240\207" [V0] 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] 17 (#$ . 146476) ["P" (gnus-group-mode)]])
#@100 List all newsgroups that have names that match a regexp.
(fn REGEXP &optional SEARCH-DESCRIPTION)
(defalias 'gnus-group-apropos #[513 "\302p\303C\303\304\305\306#\"\210\203@ \303C\304\305\307\"\"\210\211\242\237\266\202\211\203? \211@\310\"\2038 \242B\240\210A\266\202\202# \210\242\204O \311\312\313#\210\202\247 \212\314\315!\210\316 \210\317 \210\320\242\321\"\240\210\242\203\243 \242@\230\204\232 \242@\262\322\303\"\323\"\324\261\210 \203\231 \325\242@ \"\211\262\203\231 \326\323\"\324\261\210\210\211\242A\240\210\202b eb\210)\314!\207" [gnus-active-hashtb gnus-description-hashtb "" nil maphash make-closure #[514 "\302\300\"\205
\301\301\242B\240\207" [V0 V1 string-match] 5 "\n\n(fn G-NAME _)"] #[514 "\300\300\242B\240\207" [V0] 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 " "] 12 (#$ . 147355) ["sGnus apropos (regexp): " (gnus-group-mode)]])
#@85 List all newsgroups that have names or descriptions that match REGEXP.
(fn REGEXP)
(defalias 'gnus-group-description-apropos #[257 "\204
\301 \204
\302\303!\210\304\305\"\207" [gnus-description-hashtb gnus-read-all-descriptions-files error "Couldn't request descriptions file" gnus-group-apropos t] 4 (#$ . 148432) ["sGnus description apropos (regexp): " (gnus-group-mode)]])
#@349 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.
(fn LEVEL REGEXP &optional ALL LOWEST)
(defalias 'gnus-group-list-matching #[1026 "\203 \303!V\203 \304 \210 \206 \n\205 \305\206 \306$\210eb\210\307 \207" [gnus-level-killed gnus-group-prepare-function gnus-level-subscribed prefix-numeric-value gnus-get-killed-groups t 1 gnus-group-position-point] 9 (#$ . 148820) ["P\nsList newsgroups matching: " (gnus-group-mode)]])
#@234 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.
(fn LEVEL REGEXP &optional LOWEST)
(defalias 'gnus-group-list-all-matching #[770 "\203 \301!\262\302\206 \303$\207" [gnus-level-killed prefix-numeric-value gnus-group-list-matching t] 8 (#$ . 149520) ["P\nsList newsgroups matching: " (gnus-group-mode)]])
#@107 Save the Gnus startup files.
If FORCE, force saving whether it is necessary or not.
(fn &optional FORCE)
(defalias 'gnus-group-save-newsrc #[256 "\300!\207" [gnus-save-newsrc-file] 3 (#$ . 149989) ["P" (gnus-group-mode)]])
#@58 Force Gnus to read the .newsrc file.
(fn &optional ARG)
(defalias 'gnus-group-restart #[256 "\300\301!\205 \302 \210\303 \210\304 \207" [gnus-yes-or-no-p "Are you sure you want to restart Gnus? " gnus-save-newsrc-file gnus-clear-system gnus] 3 (#$ . 150220) [nil (gnus-group-mode)]])
#@32 Read the Gnus elisp init file.
(defalias 'gnus-group-read-init-file #[0 "\301 \210\302\303\304#\207" [gnus-init-file gnus-read-init-file gnus-message 5 "Read %s"] 4 (#$ . 150512) [nil (gnus-group-mode)]])
#@125 Check bogus newsgroups.
If given a prefix, don't ask for confirmation before removing a bogus
group.
(fn &optional SILENT)
(defalias 'gnus-group-check-bogus-groups #[256 "\301?\205 ?!\210\302 \207" [gnus-expert-user gnus-check-bogus-newsgroups gnus-group-list-groups] 3 (#$ . 150725) ["P" (gnus-group-mode)]])
#@365 Search for new groups and add them.
Each new group will be treated with `gnus-subscribe-newsgroup-method'.
With 1 \[universal-argument], use the `ask-server' method to query the server for new
groups.
With 2 \[universal-argument]'s, use most complete method possible to query the server
for new groups, and subscribe the new groups as zombies.
(fn &optional ARG)
(defalias 'gnus-group-find-new-groups #[256 "\300\206 \301!\302\303 \210\304 \262\211\203! \211@\305!\210A\266\202\202 \210\211\205) \305!\207" [gnus-find-new-newsgroups 1 nil gnus-group-list-groups gnus-group-group-name gnus-group-jump-to-group] 7 (#$ . 151046) ["p" (gnus-group-mode)]])
#@103 Edit the global kill file.
If GROUP, edit that local kill file instead.
(fn &optional ARTICLE GROUP)
(defalias 'gnus-group-edit-global-kill #[512 "\301!\210\302\303\304\203 \305\202 \306\307\310!$\207" [gnus-current-kill-article 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]"] 8 (#$ . 151714) ["P" (gnus-group-mode)]])
#@45 Edit a local kill file.
(fn ARTICLE GROUP)
(defalias 'gnus-group-edit-local-kill #[514 "\300\"\207" [gnus-group-edit-global-kill] 5 (#$ . 152149) [(byte-code "\300\301 D\207" [nil gnus-group-group-name] 2) (gnus-group-mode)]])
#@24 Update `.newsrc' file.
(defalias 'gnus-group-force-update #[0 "\300 \207" [gnus-save-newsrc-file] 1 (#$ . 152385) [nil (gnus-group-mode)]])
#@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 #[0 "\304\305!\210\306 \210\307!\310 \211\203M \211@\211=\204F \211 =\204F r\211q\210\311\312!)\204F \211\211\205: \313\307!\211\262!\205: \211\262\203F \314!\210\315 \210A\266\202\202\f \210\316\317 \210 \211\203f \211@\320@!\210A\266\202\202T \210\211\205s \321!\210\322\323\"\207" [gnus-group-buffer gnus-dribble-buffer gnus-backlog-articles gnus-opened-servers gnus-run-hooks gnus-suspend-gnus-hook gnus-offer-save-summaries get-buffer gnus-buffers derived-mode-p message-mode buffer-live-p kill-buffer gnus-prune-buffers nil gnus-kill-gnus-frames gnus-close-server bury-buffer delete-windows-on t] 7 (#$ . 152532) [nil (gnus-group-mode)]])
#@48 Clear all information from the dribble buffer.
(defalias 'gnus-group-clear-dribble #[0 "\300 \210\301\302\303\"\207" [gnus-dribble-clear gnus-message 7 "Cleared dribble buffer"] 3 (#$ . 153386) [nil (gnus-group-mode)]])
#@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 #[0 "\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 (#$ . 153613) [nil (gnus-group-mode)]])
(defalias 'gnus--abort-on-unsaved-message-buffers #[0 "\300 \211\205- \211@r\211q\210\301\302!\203% \303 \203% \304\305\306\"!\204% \307\310\"\210)A\266\202\202 \207" [gnus-buffers 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"] 6])
#@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 #[0 "\204$ \306 \307U\204$ \310 !\203$ \n\204$ \203$ \311\312\313\314 !\"!\205~ \315\316!\210\317\320\321\"\210\f\211\205> \322\323!\211\262!\205> \211\262\203S r\fq\210\306 )\307U\204S \324\325!\210\326 \210\327 \210\330 \210
\211\211\205n \322\323!\211\262!\205n \211\262\203z \331!\210\332 \210\210\315\333!\207" [noninteractive gnus-select-method gnus-expert-user gnus-current-startup-file gnus-dribble-buffer gnus-group-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] 5 (#$ . 154582) [nil (gnus-group-mode)]])
#@57 Give a one line description of the group mode commands.
(defalias 'gnus-group-describe-briefly #[0 "\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 (#$ . 155637) [nil (gnus-group-mode)]])
#@290 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.
(fn METHOD)
(defalias 'gnus-group-browse-foreign-server #[257 "\300!\207" [gnus-browse-foreign-server] 3 (#$ . 156106) [(byte-code "\304\305\306\307\310 \"\"\311\312\313B\314%\315\"\203, \316!\304\317\320\302!\203% \n\202' A\"D\202- \211\262C\207" [gnus-valid-select-methods gnus-server-alist gnus-secondary-servers gnus-select-method gnus-completing-read "Which back end" mapcar car append t "nntp" 0 gnus-method-history assoc intern "Address" boundp] 7) (gnus-group-mode)]])
#@46
(fn INFO &optional METHOD-ONLY-GROUP PART)
(defalias 'gnus-group-set-info #[769 "\204 \211\205\305\206 @\"\203 \211A@\202 \306\203S \204+ \307\310\"\210G\311=\2037 \312\2028 \313W\203J S\233\314Z\306\"\241\210\211S\233\240\266\204\325 r q\210\3158\262\316\317\"\203j \306\262r q\210\211\203\244 \320@\321\322\"\203\204 \211\323\225\306O\202\205 \211\262;\203\220 \202\224 \324@!:\205\236 \3158A@\306$\210\202\254 \320@\306\211\211$\210)\325\313\326\"\210\305\327@\321\322\"\203\305 \211\323\225\306O\202\306 \211\262\3158\206\317 \n\"\"\262)\203\nA\240\210@\330=\204\365 \305@ \"\203\365 \331@!G\240\210\f\205\332\333@\f\"\f\"\211\211AB\241\207\307\334@\"\266\203\207" [gnus-newsrc-hashtb gnus-group-buffer gnus-select-method gnus-active-hashtb gnus-newsrc-alist 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 "^[^:]+:" 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"] 12 (#$ . 156873)])
#@13
(fn FILE)
(defalias 'gnus-import-other-newsrc-file #[257 "\301\302\303\"r\211q\210\304\305\"\216\306!\210\307\3101 \311p!\211\2620\202% \210\307\202` \205` \211:\203 \211A@\312=\203 \3138A@\211\211\203[ \211@\211@\314\"A@\262\203T \315@\"\210A\266\202\202; \266\202 \262*\207" [gnus-newsrc-hashtb generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents nil (error) read gnus-newsrc-alist 2 gethash gnus-set-info] 10 (#$ . 158034)])
#@49
(fn GROUP TYPE ARTICLES &optional INFO FORCE)
(defalias 'gnus-add-marked-articles #[1283 "\206
\301\"A@\262\302\211?\206 \303\233\211\262\2043 ?\206 AA\304\305\"BCC\241\206 @\236\211\262\204S ?\206 \304\305\"B@B\240\206 \203n \204f \303\233\306@\"\240\207\211\304\305\"\241\207\211\304\307\310A!\311\n!\244\312\"\305\"\241\207" [gnus-newsrc-hashtb gethash nil 3 gnus-compress-sequence t assq-delete-all sort gnus-uncompress-range copy-sequence <] 14 (#$ . 158567)])
#@98 Mark ARTICLE in GROUP with MARK, whether the group is displayed or not.
(fn GROUP MARK ARTICLE)
(defalias 'gnus-add-mark #[771 "\301!\211\211\205 \302\303!\211\262!\205 \211\262\203% r\303!q\210\304\")\207\305\236AC#\207" [gnus-article-mark-lists gnus-summary-buffer-name buffer-live-p get-buffer gnus-summary-add-mark gnus-add-marked-articles] 8 (#$ . 159082)])
#@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 #[0 "\205 \301\302\303\"\304\305#\262\207" [gnus-newsgroup-name time-convert nil integer gnus-group-set-parameter timestamp] 5 (#$ . 159466)])
#@45 Return the timestamp for GROUP.
(fn GROUP)
(defalias 'gnus-group-timestamp #[257 "\300\301\302#\207" [gnus-group-get-parameter timestamp t] 5 (#$ . 159820)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-group-timestamp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@133 Return the offset in seconds from the timestamp for GROUP to the current time.
Return value is a floating point number.
(fn GROUP)
(defalias 'gnus-group-timestamp-delta #[257 "\211\300\301\302#\262\206\f \303\304!\305!\207" [gnus-group-get-parameter timestamp t 0 time-since float-time] 6 (#$ . 160133)])
#@57 Return a string of the timestamp for GROUP.
(fn GROUP)
(defalias 'gnus-group-timestamp-string #[257 "\211\300\301\302#\262\211\204 \303\207\211\304\305\"\207" [gnus-group-get-parameter timestamp t "" format-time-string "%Y%m%dT%H%M%S"] 6 (#$ . 160449)])
#@270 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.
(fn LEVEL &optional LOWEST)
(defalias 'gnus-group-list-cached #[513 "\203 \303!\262\203 Y\203 \304 \210 \206 \n\305\306$\210eb\210\307 \207" [gnus-level-zombie gnus-group-prepare-function gnus-level-subscribed prefix-numeric-value gnus-cache-open #[257 "\3008\301\236\207" [3 cache] 4 "\n\n(fn INFO)"] #[257 "\301\"\206 \301\302\303\304\305\"\306#\"\207" [gnus-cache-active-hashtb gethash mapconcat identity split-string ":" "."] 7 "\n\n(fn GROUP)"] gnus-group-position-point] 7 (#$ . 160715) ["P" (gnus-group-mode)]])
#@271 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.
(fn LEVEL &optional LOWEST)
(defalias 'gnus-group-list-dormant #[513 "\203 \303!\262\203 Y\203 \304 \210 \206 \n\305\306$\210eb\210\307 \207" [gnus-level-zombie gnus-group-prepare-function gnus-level-subscribed prefix-numeric-value gnus-cache-open #[257 "\3008\301\236\207" [3 dormant] 4 "\n\n(fn INFO)"] ignore gnus-group-position-point] 7 (#$ . 161501) ["P" (gnus-group-mode)]])
#@270 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.
(fn LEVEL &optional LOWEST)
(defalias 'gnus-group-list-ticked #[513 "\203 \303!\262\203 Y\203 \304 \210 \206 \n\305\306$\210eb\210\307 \207" [gnus-level-zombie gnus-group-prepare-function gnus-level-subscribed prefix-numeric-value gnus-cache-open #[257 "\3008\301\236\207" [3 tick] 4 "\n\n(fn INFO)"] ignore gnus-group-position-point] 7 (#$ . 162145) ["P" (gnus-group-mode)]])
#@33 Return a list of listed groups.
(defalias 'gnus-group-listed-groups #[0 "\300\211eb\210\301`d\302\300$\211\262\203\" b\210\303\302\"B\262\304u\210\202 \207" [nil text-property-not-all gnus-group get-text-property 1] 7 (#$ . 162783)])
#@62 List groups plus the current selection.
(fn &optional ARGS)
(defalias 'gnus-group-list-plus #[256 "\301 \305\n B\306 B\305\211 \307\305!\262\310\311 \"\262)\266\211\203, \211\247\2031 \312 \2024 \313!*\207" [gnus-group-list-mode gnus-group-listed-groups last-command-event unread-command-events gnus-pick-mode nil 65 read-key-sequence lookup-key current-local-map ding call-interactively] 9 (#$ . 163029) [nil (gnus-group-mode)]])
#@63 Flush groups from the current selection.
(fn &optional ARGS)
(defalias 'gnus-group-list-flush #[256 "\301\302!)\207" [gnus-group-list-option flush gnus-group-list-plus] 3 (#$ . 163480) ["P" (gnus-group-mode)]])
#@396 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.
(fn &optional ARGS)
(defalias 'gnus-group-list-limit #[256 "\301\302!)\207" [gnus-group-list-option limit gnus-group-list-plus] 3 (#$ . 163701) ["P" (gnus-group-mode)]])
#@40 Mark ARTICLE read.
(fn GROUP ARTICLE)
(defalias 'gnus-group-mark-article-read #[514 "\306!\307\211\310!\203w rq\210 \262\311!\210\n\205u \203) \f>\203)
\262\312#\262\313C\314\315EC\"\210\316\"\210\317\"\205u AT\262\211 AX\203m \211=\204f \211B\211T\262\202S \320\321\"\211)\207\311!\210\322C\"\210\323!\205\233 \324!?\205\233 \325\326C#\207" [gnus-read-mark gnus-newsgroup-active gnus-newsgroup-prepared gnus-newsgroup-auto-expire gnus-auto-expirable-marks gnus-expirable-mark 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-active-hashtb gnus-newsgroup-unselected] 11 (#$ . 164254)])
#@235 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.
(fn GROUP)
(defalias 'gnus-group-compact-group #[257 "\211\204 \301\302!\210\303\30417 \211;\203 \305!@\202 \211\306!\204% \307!\210\310\311\312\313#!!\2620\266\202\202: \266\314\204A \301\315!\210\316\317\320#\210\321!\204U \322\323\324#\202\\ \316\317\325#\210\326\211\211\205n \327\330!\211\262!\205n \211\262\203z \331!\210\332 \210\210\333 \210\207" [gnus-original-article-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 (#$ . 165131) [(byte-code "\300 C\207" [gnus-group-group-name] 1) (gnus-group-mode)]])
(provide 'gnus-group)