;ELC ;;; compiled by amu@tux.mit.edu on Sun Nov 15 14:41:50 1998 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.6.44/lisp/gnus-group.el ;;; emacs version 19.34.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`gnus-group.el' was compiled for Emacs 19.29 or later")) (byte-code "ﾀﾁ!安ﾂ!安ﾃ!安ﾄ!安ﾅ!安ﾆ!安ﾇ!安ﾈ!伊ﾊﾋﾌ ﾎﾐ&伊ﾑﾒﾓ ﾎﾐ&伊ﾔﾕﾖ ﾂﾗ&伊ﾘﾙﾚ ﾛﾜ&伊ﾝﾞﾟ  & 伊葯  & 伊釖 &伊ﾞ &伊 &伊ﾞ  ﾛ& 伊  & 伊 ﾗ&伊 ﾗ&伊ﾙ　 A。，& 伊．ﾙ・ ，&伊：ﾙ；  ？，& 伊！ﾙ゛ ，&伊゜´｀ ¨&伊＾ﾙ￣ ，&伊＿ﾙヽ ヾ，&伊ゝﾙゞ ヾ，&伊〃ﾙ仝 ヾ，&伊々〆〇 ，&伊ー―\‐ ／&伊＼〜‖ ｜&伊…‥‘ ’&" [require gnus gnus-start nnmail gnus-spec gnus-int gnus-range gnus-win gnus-undo custom-declare-variable gnus-group-archive-directory "*ftp@ftp.hpc.uh.edu:/pub/emacs/ding-list/" "*The address of the (ding) archives." :group gnus-group-foreign :type directory gnus-group-recent-archive-directory "*ftp@ftp.hpc.uh.edu:/pub/emacs/ding-list-recent/" "*The address of the most recent (ding) articles." gnus-no-groups-message "No news is no news" "*Message displayed by Gnus when no groups are available." string gnus-keep-same-level nil "*Non-nil means that the next newsgroup after the current will be on the same level.\nWhen you type, for instance, `n' after reading the last article in the\ncurrent newsgroup, you will go to the next newsgroup. If this variable\nis nil, the next newsgroup will be the next from the group\nbuffer.\nIf this variable is non-nil, Gnus will either put you in the\nnext newsgroup with the same level, or, if no such newsgroup is\navailable, the next newsgroup with the lowest possible level higher\nthan the current level.\nIf this variable is `best', Gnus will make the next newsgroup the one\nwith the best level." gnus-group-levels (choice (const nil) (const best) (sexp :tag "other" t)) gnus-group-goto-unread t "*If non-nil, movement commands will go to the next unread and subscribed group." :link (custom-manual "(gnus)Group Maneuvering") gnus-group-various boolean gnus-goto-next-group-when-activating "*If non-nil, the \\\\[gnus-group-get-new-news-this-group] command will advance point to the next group." (custom-manual "(gnus)Scanning New Messages") gnus-permanently-visible-groups "*Regexp to match groups that should always be listed in the group buffer.\nThis means that they will still be listed even when there are no\nunread articles in the groups.\n\nIf nil, no groups are permanently visible." gnus-group-listing regexp gnus-list-groups-with-ticked-articles "*If non-nil, list groups that have only ticked articles.\nIf nil, only list groups that have unread articles." gnus-group-default-list-level gnus-level-subscribed "*Default listing level.\nIgnored if `gnus-group-use-permanent-levels' is non-nil." integer gnus-group-list-inactive-groups "*If non-nil, inactive groups will be listed." gnus-group-sort-function (quote gnus-group-sort-by-alphabet) "*Function used for sorting the group buffer.\nThis function will be called with group info entries as the arguments\nfor the groups to be sorted. Pre-made functions include\n`gnus-group-sort-by-alphabet', `gnus-group-sort-by-real-name',\n`gnus-group-sort-by-unread', `gnus-group-sort-by-level',\n`gnus-group-sort-by-score', `gnus-group-sort-by-method', and\n`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") (radio (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-rank) (function :tag "other" nil)) gnus-group-line-format "%M%S%p%P%5y: %(%g%)%l\n" "*Format of group lines.\nIt works along the same lines as a normal formatting string,\nwith some simple extensions.\n\n%M Only marked articles (character, \"*\" or \" \")\n%S Whether the group is subscribed (character, \"U\", \"K\", \"Z\" or \" \")\n%L Level of subscribedness (integer)\n%N Number of unread articles (integer)\n%I Number of dormant articles (integer)\n%i Number of ticked and dormant (integer)\n%T Number of ticked articles (integer)\n%R Number of read articles (integer)\n%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%D Group description (string)\n%s Select method (string)\n%o Moderated group (char, \"m\")\n%p Process mark (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%l Whether there are GroupLens predictions for this group (string)\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%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 the\n current header as argument. The function should return a string, which\n will be inserted into the buffer just like information from any other\n group specifier.\n\nText between %( and %) will be highlighted with `gnus-mouse-face' when\nthe mouse point move inside the area. There can only be one such area.\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 will also worsen performance.\nAlso note that if you change the format specification to include any\nof these specs, you must probably re-start Gnus to see them go into\neffect." gnus-group-visual gnus-group-mode-line-format "Gnus: %%b {%M%:%S}" "*The format specification for the group mode line.\nIt works along the same lines as a normal formatting string,\nwith some simple extensions:\n\n%S The native news server.\n%M The native select method.\n%: \":\" if %S isn't \"\"." gnus-group-mode-hook "Hook for Gnus group mode." :options (gnus-topic-mode) hook gnus-group-menu-hook "Hook run after the creation of the group mode menu." gnus-group-catchup-group-hook "Hook run when catching up a group from the group buffer." (custom-manual "(gnus)Group Data") gnus-group-update-group-hook "Hook called when updating group lines." gnus-group-prepare-function (quote gnus-group-prepare-flat) "*A function that is called to generate the group buffer.\nThe function is called with three arguments: The first is a number;\nall group with a level less or equal to that number should be listed,\nif the second is non-nil, empty groups should also be displayed. If\nthe third is non-nil, it is a number. No groups with a level lower\nthan this number should be displayed.\n\nThe only current function implemented is `gnus-group-prepare-flat'." function gnus-group-prepare-hook "Hook called after the group buffer has been generated.\nIf you want to modify the group buffer, you can use this hook." gnus-suspend-gnus-hook "Hook called when suspending (not exiting) Gnus." gnus-exit gnus-exit-gnus-hook "Hook called when exiting Gnus." gnus-after-exiting-gnus-hook "Hook called after exiting Gnus." gnus-group-update-hook (quote (gnus-group-highlight-line)) "Hook called when a group line is changed.\nThe hook will not be called if `gnus-visual' is nil.\n\nThe default function `gnus-group-highlight-line' will\nhighlight the line according to the `gnus-group-highlight'\nvariable." gnus-useful-groups (quote (("(ding) mailing list mirrored at sunsite.auc.dk" "emacs.ding" (nntp "sunsite.auc.dk" (nntp-address "sunsite.auc.dk"))) ("gnus-bug archive" "gnus-bug" (nndir "/ftp@ftp.ifi.uio.no:/pub/emacs/gnus/gnus-bug/")) ("Gnus help group" "gnus-help" (nndoc "gnus-help" (nndoc-article-type mbox) (eval (\` (nndoc-address (\, (let ((file (nnheader-find-etc-directory "gnus-tut.txt" t))) (unless file (error "Couldn't find doc group")) file))))))))) "*Alist of useful group-server pairs." (repeat (list (string :tag "Description") (string :tag "Name") (sexp :tag "Method"))) gnus-group-highlight (quote (((and (= unread 0) (not mailp) (eq level 1)) . gnus-group-news-1-empty-face) ((and (not mailp) (eq level 1)) . gnus-group-news-1-face) ((and (= unread 0) (not mailp) (eq level 2)) . gnus-group-news-2-empty-face) ((and (not mailp) (eq level 2)) . gnus-group-news-2-face) ((and (= unread 0) (not mailp) (eq level 3)) . gnus-group-news-3-empty-face) ((and (not mailp) (eq level 3)) . gnus-group-news-3-face) ((and (= unread 0) (not mailp)) . gnus-group-news-low-empty-face) ((and (not mailp)) . gnus-group-news-low-face) ((and (= unread 0) (eq level 1)) . gnus-group-mail-1-empty-face) ((eq level 1) . gnus-group-mail-1-face) ((and (= unread 0) (eq level 2)) . gnus-group-mail-2-empty-face) ((eq level 2) . gnus-group-mail-2-face) ((and (= unread 0) (eq level 3)) . gnus-group-mail-3-empty-face) ((eq level 3) . gnus-group-mail-3-face) ((= unread 0) . gnus-group-mail-low-empty-face) (t . gnus-group-mail-low-face))) "*Controls the highlighting of group buffer lines.\n\nBelow is a list of `Form'/`Face' pairs. When deciding how a a\nparticular group line should be displayed, each form is\nevaluated. The content of the face field after the first true form is\nused. You can change how those group lines are displayed by\nediting the face field.\n\nIt is also possible to change and add form fields, but currently that\nrequires an understanding of Lisp expressions. Hopefully this will\nchange in a future release. For now, you can use the following\nvariables in the Lisp expression:\n\ngroup: The name of the group.\nunread: The number of unread articles in the group.\nmethod: The select method used.\nmailp: Whether it's a mail group or not.\nlevel: The level of the group.\nscore: The score of the group.\nticked: The number of ticked articles." (repeat (cons (sexp :tag "Form") face)) gnus-new-mail-mark 37 "Mark used for groups with new mail." character] 10) #@40 Function for sorting the group buffer. (defvar gnus-group-sort-alist-function (quote gnus-group-sort-flat) (#$ . 10893)) #@63 Function for sorting the selected groups in the group buffer. (defvar gnus-group-sort-selected-function (quote gnus-group-sort-selected-flat) (#$ . 11020)) (byte-code "ﾀﾁ!ﾂﾁ Bﾀﾄ!ﾂﾄ Bﾀﾅ! ﾂﾅ Bﾂ" [boundp gnus-group-indentation-function nil current-load-list gnus-goto-missing-group-function gnus-group-update-group-function] 2) #@67 Function to override finding the next group after listing groups. (defvar gnus-group-goto-next-group-function nil (#$ . 11366)) (byte-code "ﾀﾁ!ﾂﾁ Bﾀﾄ!ﾅﾄ Bﾀﾆ!!ﾇﾆ Bﾂ" [boundp gnus-group-edit-buffer nil current-load-list 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 (quote dormant) gnus-tmp-marked))) (gnus-range-length (cdr (assq (quote tick) gnus-tmp-marked)))))) (t number)) 115) (82 gnus-tmp-number-of-read 115) (116 gnus-tmp-number-total 100) (121 gnus-tmp-number-of-unread 115) (73 (gnus-range-length (cdr (assq (quote dormant) gnus-tmp-marked))) 100) (84 (gnus-range-length (cdr (assq (quote tick) gnus-tmp-marked))) 100) (105 (+ (gnus-range-length (cdr (assq (quote dormant) gnus-tmp-marked))) (gnus-range-length (cdr (assq (quote 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) (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) (108 gnus-tmp-grouplens 115) (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)) 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))] 2) #@31 The complete topic hierarchy. (defvar gnus-topic-topology nil (#$ . 13018)) #@33 The complete topic-group alist. (defvar gnus-topic-alist nil (#$ . 13100)) (byte-code "ﾀﾁ!ﾂﾁ Bﾀﾄ!ﾂﾄ Bﾅﾆﾇﾈ#伊ﾊﾋ\"伊ﾌﾍ\"伊ﾎﾏ\"伊ﾐﾑ\"伊ﾒﾓ\"伊ﾔﾕ\"伊ﾖﾗ\"伊ﾘﾙ\"伊ﾚﾛ\"伊ﾜﾝ\"" [boundp gnus-group-marked nil current-load-list gnus-group-list-mode put gnus-group-mode mode-class special gnus-define-keys-1 gnus-group-mode-map (" " gnus-group-read-group "=" gnus-group-select-group " " gnus-group-select-group "" gnus-group-quick-select-group [(meta control return)] gnus-group-select-group-ephemerally "j" gnus-group-jump-to-group "n" gnus-group-next-unread-group "p" gnus-group-prev-unread-group "" gnus-group-prev-unread-group [delete] gnus-group-prev-unread-group [backspace] gnus-group-prev-unread-group "N" gnus-group-next-group "P" gnus-group-prev-group "" gnus-group-next-unread-group-same-level "" gnus-group-prev-unread-group-same-level "," gnus-group-best-unread-group "." gnus-group-first-unread-group "u" gnus-group-unsubscribe-current-group "U" gnus-group-unsubscribe-group "c" gnus-group-catchup-current "C" gnus-group-catchup-current-all "" gnus-group-clear-data "l" gnus-group-list-groups "L" gnus-group-list-all-groups "m" gnus-group-mail "g" gnus-group-get-new-news "" 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 "" gnus-group-describe-all-groups "" gnus-group-apropos "" 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 "" 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 "" gnus-group-edit-group-method "^" gnus-group-enter-server-mode gnus-mouse-2 gnus-mouse-pick-group "<" beginning-of-buffer ">" end-of-buffer "" gnus-bug "" gnus-group-sort-groups "t" gnus-topic-mode "" gnus-activate-all-groups "ｦ" gnus-group-universal-argument "#" gnus-group-mark-group "｣" gnus-group-unmark-group) (gnus-group-mark-map "M" gnus-group-mode-map) ("m" gnus-group-mark-group "u" gnus-group-unmark-group "w" gnus-group-mark-region "b" gnus-group-mark-buffer "r" gnus-group-mark-regexp "U" gnus-group-unmark-all-groups) (gnus-group-group-map "G" gnus-group-mode-map) ("d" gnus-group-make-directory-group "h" gnus-group-make-help-group "u" gnus-group-make-useful-group "a" gnus-group-make-archive-group "k" gnus-group-make-kiboze-group "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 "r" gnus-group-rename-group "c" gnus-group-customize "" gnus-group-delete-group [delete] gnus-group-delete-group) (gnus-group-soup-map "s" gnus-group-group-map) ("b" gnus-group-brew-soup "w" gnus-soup-save-areas "s" gnus-soup-send-replies "p" gnus-soup-pack-packet "r" nnsoup-pack-replies) (gnus-group-sort-map "S" gnus-group-group-map) ("s" gnus-group-sort-groups "a" gnus-group-sort-groups-by-alphabet "u" gnus-group-sort-groups-by-unread "l" gnus-group-sort-groups-by-level "v" gnus-group-sort-groups-by-score "r" gnus-group-sort-groups-by-rank "m" gnus-group-sort-groups-by-method) (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) (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) (gnus-group-score-map "W" gnus-group-mode-map) ("f" gnus-score-flush-cache) (gnus-group-help-map "H" gnus-group-mode-map) ("d" gnus-group-describe-group "f" gnus-group-fetch-faq "v" gnus-version) (gnus-group-sub-map "S" gnus-group-mode-map) ("l" gnus-group-set-current-level "t" gnus-group-unsubscribe-current-group "s" gnus-group-unsubscribe-group "k" gnus-group-kill-group "y" gnus-group-yank-group "w" gnus-group-kill-region " " gnus-group-kill-level "z" gnus-group-kill-all-zombies)] 4) (defalias 'gnus-group-make-menu-bar #[nil "ﾀﾁ!按ﾃ!?^ﾂﾃ!ﾄﾃ Bﾆﾃﾇﾈ#伊ﾃ\nﾈﾋ$按ﾌ!.ﾄ\fﾌ Bﾆﾌﾇﾈ#伊ﾌ\nﾈﾍ$按ﾎ!Иﾄﾎ Bﾆﾎﾇﾈ#伊ﾎ\nﾈﾏ$威ﾑ!" [gnus-turn-off-edit-menu group boundp gnus-group-reading-menu nil current-load-list put variable-documentation "" easy-menu-do-define gnus-group-mode-map ("Group" ["Read" gnus-group-read-group (gnus-group-group-name)] ["Select" gnus-group-select-group (gnus-group-group-name)] ["See old articles" (gnus-group-select-group (quote all)) :keys "C-u SPC" :active (gnus-group-group-name)] ["Catch up" gnus-group-catchup-current (gnus-group-group-name)] ["Catch up all articles" gnus-group-catchup-current-all (gnus-group-group-name)] ["Check for new articles" gnus-group-get-new-news-this-group (gnus-group-group-name)] ["Toggle subscription" gnus-group-unsubscribe-current-group (gnus-group-group-name)] ["Kill" gnus-group-kill-group (gnus-group-group-name)] ["Yank" gnus-group-yank-group gnus-list-of-killed-groups] ["Describe" gnus-group-describe-group (gnus-group-group-name)] ["Fetch FAQ" gnus-group-fetch-faq (gnus-group-group-name)] ["Expire articles" gnus-group-expire-articles (or (and (gnus-group-group-name) (gnus-check-backend-function (quote request-expire-articles) (gnus-group-group-name))) gnus-group-marked)] ["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)] ("Edit" ["Parameters" gnus-group-edit-group-parameters (gnus-group-group-name)] ["Select method" gnus-group-edit-group-method (gnus-group-group-name)] ["Info" gnus-group-edit-group (gnus-group-group-name)] ["Local kill file" gnus-group-edit-local-kill (gnus-group-group-name)] ["Global kill file" gnus-group-edit-global-kill t])) gnus-group-group-menu ("Groups" ("Listing" ["List unread subscribed groups" gnus-group-list-groups t] ["List (un)subscribed groups" gnus-group-list-all-groups t] ["List killed groups" gnus-group-list-killed gnus-killed-list] ["List zombie groups" gnus-group-list-zombies gnus-zombie-list] ["List level..." gnus-group-list-level t] ["Describe all groups" gnus-group-describe-all-groups t] ["Group apropos..." gnus-group-apropos t] ["Group and description apropos..." gnus-group-description-apropos t] ["List groups matching..." gnus-group-list-matching t] ["List all groups matching..." gnus-group-list-all-matching t] ["List active file" gnus-group-list-active t]) ("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 process/prefixed" ["Default sort" gnus-group-sort-selected-groups (or (not (boundp (quote gnus-topic-mode))) (not gnus-topic-mode))] ["Sort by method" gnus-group-sort-selected-groups-by-method (or (not (boundp (quote gnus-topic-mode))) (not gnus-topic-mode))] ["Sort by rank" gnus-group-sort-selected-groups-by-rank (or (not (boundp (quote gnus-topic-mode))) (not gnus-topic-mode))] ["Sort by score" gnus-group-sort-selected-groups-by-score (or (not (boundp (quote gnus-topic-mode))) (not gnus-topic-mode))] ["Sort by level" gnus-group-sort-selected-groups-by-level (or (not (boundp (quote gnus-topic-mode))) (not gnus-topic-mode))] ["Sort by unread" gnus-group-sort-selected-groups-by-unread (or (not (boundp (quote gnus-topic-mode))) (not gnus-topic-mode))] ["Sort by name" gnus-group-sort-selected-groups-by-alphabet (or (not (boundp (quote gnus-topic-mode))) (not gnus-topic-mode))]) ("Mark" ["Mark group" gnus-group-mark-group (and (gnus-group-group-name) (not (memq (gnus-group-group-name) gnus-group-marked)))] ["Unmark group" gnus-group-unmark-group (and (gnus-group-group-name) (memq (gnus-group-group-name) gnus-group-marked))] ["Unmark all" gnus-group-unmark-all-groups gnus-group-marked] ["Mark regexp..." gnus-group-mark-regexp t] ["Mark region" gnus-group-mark-region t] ["Mark buffer" gnus-group-mark-buffer t] ["Execute command" gnus-group-universal-argument (or gnus-group-marked (gnus-group-group-name))]) ("Subscribe" ["Subscribe to a group" gnus-group-unsubscribe-group t] ["Kill all newsgroups in region" gnus-group-kill-region t] ["Kill all zombie groups" gnus-group-kill-all-zombies gnus-zombie-list] ["Kill all groups on level..." gnus-group-kill-level t]) ("Foreign groups" ["Make a foreign group" gnus-group-make-group t] ["Add a directory group" gnus-group-make-directory-group t] ["Add the help group" gnus-group-make-help-group t] ["Add the archive group" gnus-group-make-archive-group t] ["Make a doc group" gnus-group-make-doc-group t] ["Make a web group" gnus-group-make-web-group t] ["Make a kiboze group" gnus-group-make-kiboze-group t] ["Make a virtual group" gnus-group-make-empty-virtual t] ["Add a group to a virtual" gnus-group-add-to-virtual t] ["Rename group" gnus-group-rename-group (gnus-check-backend-function (quote request-rename-group) (gnus-group-group-name))] ["Delete group" gnus-group-delete-group (gnus-check-backend-function (quote 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]) ["Delete bogus groups" gnus-group-check-bogus-groups t] ["Find new newsgroups" gnus-group-find-new-groups t] ["Transpose" gnus-group-transpose-groups (gnus-group-group-name)] ["Read a directory as a group..." gnus-group-enter-directory t]) gnus-group-misc-menu ("Misc" ("SOUP" ["Pack replies" nnsoup-pack-replies (fboundp (quote nnsoup-request-group))] ["Send replies" gnus-soup-send-replies (fboundp (quote gnus-soup-pack-packet))] ["Pack packet" gnus-soup-pack-packet (fboundp (quote gnus-soup-pack-packet))] ["Save areas" gnus-soup-save-areas (fboundp (quote gnus-soup-pack-packet))] ["Brew SOUP" gnus-group-brew-soup (fboundp (quote gnus-soup-pack-packet))]) ["Send a bug report" gnus-bug t] ["Send a mail" gnus-group-mail t] ["Post an article..." gnus-group-post-news t] ["Check for new news" gnus-group-get-new-news t] ["Activate all groups" gnus-activate-all-groups t] ["Restart Gnus" gnus-group-restart t] ["Read init file" gnus-group-read-init-file t] ["Browse foreign server" gnus-group-browse-foreign-server t] ["Enter server buffer" gnus-group-enter-server-mode t] ["Expire all expirable articles" gnus-group-expire-all-groups t] ["Generate any kiboze groups" nnkiboze-generate-groups t] ["Gnus version" gnus-version t] ["Save .newsrc files" gnus-group-save-newsrc t] ["Suspend Gnus" gnus-group-suspend t] ["Clear dribble buffer" gnus-group-clear-dribble t] ["Read manual" gnus-info-find-node t] ["Flush score cache" gnus-score-flush-cache t] ["Toggle topics" gnus-topic-mode t] ["Send a bug report" gnus-bug t] ["Exit from Gnus" gnus-group-exit t] ["Exit without saving" gnus-group-quit t]) gnus-run-hooks gnus-group-menu-hook] 5]) #@618 Major mode for reading news. All normal editing commands are switched off. \ The group buffer lists (some of) the groups available. For instance, `\[gnus-group-list-groups]' will list all subscribed groups with unread articles, while `\[gnus-group-list-zombies]' lists all zombie groups. Groups that are displayed can be entered with `\[gnus-group-read-group]'. To subscribe to a group not displayed, type `\[gnus-group-unsubscribe-group]'. For more in-depth information on this mode, read the manual (`\[gnus-info-find-node]'). The following commands are available: \{gnus-group-mode-map} (defalias 'gnus-group-mode #[nil "ﾀﾁﾂ\"ソnﾃ 案 闇 鞍ﾈ ﾊ 依\fﾍ!委p!威ﾐﾓ 慰ﾋﾕﾖ#為 畏ﾙ!移ﾙﾛﾋﾐ$ガﾝﾞ!ゴ 違!" [gnus-visual-p group-menu menu gnus-group-make-menu-bar kill-all-local-variables gnus-simplify-mode-line gnus-group-mode major-mode "Group" mode-name gnus-group-set-mode-line nil mode-line-process use-local-map gnus-group-mode-map buffer-disable-undo t truncate-lines buffer-read-only gnus-set-default-directory gnus-update-format-specifications group group-mode gnus-update-group-mark-positions make-local-hook post-command-hook add-hook gnus-clear-inboxes-moved gnus-use-undo gnus-undo-mode 1 gnus-slave gnus-slave-mode gnus-run-hooks gnus-group-mode-hook] 5 (#$ . 25277) nil]) (defalias 'gnus-update-group-mark-positions #[nil "澗ﾁﾂﾃﾄ\"ﾅ ﾊﾋ\"ﾌL囲 夷ﾋﾄﾏﾄﾏ%eb威ﾑﾒﾏﾓ#2`ﾔZBC-" [128 ("dummy.group") make-vector 10 0 "" topic gnus-active-hashtb gnus-group-marked gnus-process-mark intern "dummy.group" (0 . 0) gnus-set-work-buffer gnus-group-insert-group-line nil process search-forward "" t 2 gnus-group-mark-positions] 6]) (defalias 'gnus-clear-inboxes-moved #[nil "ﾀ" [nil nnmail-moved-inboxes] 2]) #@42 Enter the group under the mouse pointer. (defalias 'gnus-mouse-pick-group #[(e) "ﾀ !按ﾃ!" [mouse-set-point e gnus-group-read-group nil] 2 (#$ . 27045) "e"]) (defalias 'gnus-group-default-level #[(&optional level number-or-nil) "! ｧ\n 0\n0 \f' 0\n0 " [gnus-group-use-permanent-levels level gnus-group-default-list-level gnus-level-subscribed number-or-nil] 2]) (defalias 'gnus-group-setup-buffer #[nil "ﾀ !q\nﾃ=?ﾃ \fﾅﾆ!" [gnus-get-buffer-create gnus-group-buffer major-mode gnus-group-mode gnus-carpal gnus-carpal-setup-buffer group] 2]) #@241 List newsgroups with level LEVEL or lower that have unread articles. Default is all subscribed groups. If argument UNREAD is non-nil, groups with no unread articles are also listed. Also see the `gnus-group-use-permanent-levels' variable. (defalias 'gnus-group-list-groups #[(&optional level unread lowest) "ﾀ \n@\nAﾄ !ﾅ 鞍ﾇﾈﾉ#杏ﾊﾋ !edUﾌ ﾇ q # ｧォ ﾔUОﾕ ﾔUザﾖﾗ\"dbト\"ビebнﾚﾛ!ﾜedﾝﾞ\"  ! ﾇL )$\"｣\"b)$\"JAAA%ﾜedﾝﾞ%@@\"  !ﾑ ﾇL )$\"ﾞ\"b)%A%┨%db域y) -" [gnus-clear-inboxes-moved level gnus-group-list-mode unread gnus-group-default-level gnus-group-setup-buffer gnus-update-format-specifications nil group group-mode text-properties-at gnus-point-at-bol gnus-group-group-name number empty props case-fold-search gnus-group-buffer gnus-group-prepare-function lowest 0 buffer-size gnus-message 5 gnus-no-groups-message gnus-group-goto-next-group-function gnus-group-search-forward t text-property-any gnus-group intern gnus-active-hashtb symbol boundp point intern-soft gnus-newsrc-hashtb newsrc -1 gnus-group-position-point] 8 (#$ . 27632) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) (or (gnus-group-default-level nil t) gnus-group-default-list-level gnus-level-subscribed)))]) #@91 List groups on LEVEL. If ALL (the prefix), also list groups that have no unread articles. (defalias 'gnus-group-list-level #[(level &optional all) "ﾀ \n #" [gnus-group-list-groups level all] 4 (#$ . 28962) "nList groups on level: \nP"]) #@242 List all newsgroups with unread articles of level LEVEL or lower. If ALL is non-nil, list groups that have no unread articles. If LOWEST is non-nil, list all newsgroups of level LOWEST or higher. If REGEXP, only list groups matching REGEXP. (defalias 'gnus-group-prepare-flat #[(level &optional all lowest regexp) "q庵\nA ﾄﾁ演演 \n ﾌ  W\n\n@ @ﾎ 8\nA\nﾏ\"J@(ソ\ﾒ\"( A@:ノ@Ｐ)X( Y(ﾂﾖ=ヱｕﾘVﾂΙﾚﾛ 8暸ﾂΨﾒ\"ﾂﾝ >ﾂﾝ 暸(ﾞ A@:ω@ぺ)ﾛ 8ﾟ 8%( Y  X珮\"綵"\" $%Y& %X&珮&綵"&%$郁 B)!.ﾖ" [gnus-group-buffer nil gnus-newsrc-alist lowest 1 params group unread clevel info newsrc buffer-read-only erase-buffer gnus-level-zombie 5 intern-soft gnus-newsrc-hashtb regexp string-match rank level all t gnus-group-list-inactive-groups 0 gnus-list-groups-with-ticked-articles tick 3 gnus-permanently-visible-groups visible gnus-group-insert-group-line 4 gnus-group-prepare-flat-list-dead sort gnus-zombie-list string< 90 gnus-level-killed gnus-killed-list 75 gnus-group-set-mode-line gnus-group-list-mode gnus-run-hooks gnus-group-prepare-hook] 9 (#$ . 29207)]) (defalias 'gnus-group-prepare-flat-list-dead #[(groups level mark regexp) "ﾀ\nエ 陰@ﾄ\n \"ﾅ``Tﾆﾈ ﾉｱ位ﾋ \f\" ﾎ !8 ﾀL )ﾏﾐﾑｯ# ﾅ``Tﾆﾈ 陰@ﾉｱ位ﾋ \f\" ﾎ !в ﾀL )ﾏﾐﾑｯ#G)" [nil group regexp groups string-match gnus-add-text-properties " " mark " *: " "\n" gnus-group intern gnus-active-hashtb symbol boundp gnus-unread t gnus-level level] 9]) #@46 Update the current line in the group buffer. (defalias 'gnus-group-update-group-line #[nil "ﾀﾂ ﾄ \"Jﾀ E.ﾈ !.ﾉﾊﾋﾌ8!ﾍQ!夷 ﾏy`ﾐy`|尉 !惟y意 ," [nil buffer-read-only gnus-group-group-name group intern-soft gnus-newsrc-hashtb entry gnus-group-indentation gnus-ephemeral-group-p gnus-dribble-enter "(gnus-group-set-info '" gnus-prin1-to-string 2 ")" gnus-group-group-indentation 0 1 gnus-group-insert-group-line-info -1 gnus-group-position-point] 6 (#$ . 30811)]) #@35 Insert GROUP on the current line. (defalias 'gnus-group-insert-group-line-info #[(group) "ﾀ \n\"Jﾃ ﾄ?ﾉ8ﾊ A@ :+ @- )ﾌ 8@8ﾍﾎ 8%Ｓﾊ 揀M０ﾄﾀ \"JpAﾓUドﾓＱAT@Zﾄ%," [intern-soft group gnus-newsrc-hashtb gnus-group-group-indentation nil info active gnus-group-indentation entry 2 gnus-group-insert-group-line rank 3 t 4 gnus-zombie-list gnus-level-zombie gnus-level-killed gnus-active-hashtb 0] 8 (#$ . 31301)]) #@42 Insert a group line in the group buffer. (defalias 'gnus-group-insert-group-line #[(gnus-tmp-group gnus-tmp-level gnus-tmp-marked number gnus-tmp-method) "ﾀ \n\"J A @ZTﾄｧ$ﾇﾄ]!%ﾈ ｧ8ﾇﾄ Z]!9ﾈ\n \fXエﾍＡ XゴﾏＡ UダﾑＡﾒ ﾕﾖ\"プﾄ勉OＹ)ロﾀ \"JﾚｎﾚΔﾀ \"JΔﾝぅﾍﾝ=Ρﾟげﾚ !\"#\";θ\"!C\"%噬ﾓ%C\"@;##\"\"C\"#\"A@ﾚ噬\"C\"\"\"@!(鳰(+\">ァ(P!\"桷@\"@+>ァ\"(P!\"A@DC\"B\"**!A@Mﾚ0!@Vﾚ1!ニ!@!A@#Ｌﾚ4ｧユﾄUユ6暸ユｇﾍ8 9揀:ｖﾍ;<Ε !､ﾚ>ﾗ?ﾗ@ﾗAﾄy。``T，D!・ \n\"F；F!ﾖFﾗLF)？ｧ！ !ゐ゛゜8´M¨ ｯ\n#＾￣QRS3RS3S<0RS>3QS>3゛*エゝyゞ〃!為y仝 ." [intern-soft gnus-tmp-group gnus-active-hashtb gnus-tmp-active 0 gnus-tmp-number-total number int-to-string "*" gnus-tmp-number-of-unread gnus-tmp-number-of-read gnus-tmp-level gnus-level-subscribed 32 gnus-level-unsubscribed 85 gnus-level-zombie 90 75 gnus-tmp-subscribed gname string-match "^[^:]+:" nil gnus-tmp-qualified-group gnus-description-hashtb "" gnus-tmp-newsgroup-description gnus-moderated-hashtb 109 gnus-tmp-moderated "(m)" gnus-tmp-moderated-string gnus-tmp-method method group gnus-server-to-method gnus-select-method gnus-server-extend-method symbol-name method-name address assoc gnus-valid-select-methods intern "-address" physical-address append gnus-tmp-news-server gnus-tmp-news-method format "(%s:%s)" gnus-tmp-news-method-string tick gnus-tmp-marked 42 gnus-tmp-marked-mark gnus-group-marked gnus-process-mark gnus-tmp-process-marked gnus-use-grouplens bbb-grouplens-group-p gnus-tmp-grouplens buffer-read-only header gnus-tmp-header gnus-add-text-properties eval gnus-group-line-format-spec gnus-group symbol boundp gnus-unread string-to-int t gnus-marked gnus-indentation gnus-group-indentation gnus-level group-highlight highlight class type gnus-visual -1 gnus-run-hooks gnus-group-update-hook gnus-group-remove-excess-properties] 14 (#$ . 31764)]) #@65 Highlight the current line according to `gnus-group-highlight'. (defalias 'gnus-group-highlight-line #[nil "`ﾃ`ﾅy`ﾇ ﾉ\n\"J @ｧ( @)ﾅ\fﾉ \"JイA@ZTDﾅﾐ 8ﾒ8;ツﾔ!も噬pも@;ュュﾖ\"もA@ﾗ噬もﾘ@!ﾚﾛ\">ﾝﾝﾞP!桷ﾝﾟ@>ﾝﾝﾞP!A@DC\"め**8\"聟ﾘ@!\">$A@%:ソf%@%)&'A@%:'%A(ﾅ)-ﾅ(鳰\"暸!+!-/ サ @@!У AЕ @A1\"=п\f1!ブ1JＸ11$員!)\nb." [gnus-group-highlight list p nil end 0 beg gnus-group-group-name group intern-soft gnus-newsrc-hashtb entry unread gnus-active-hashtb active total 2 info 4 method gnus-server-to-method gnus-select-method gnus-server-extend-method "" symbol-name method-name address assoc gnus-valid-select-methods intern "-address" physical-address append 3 marked mail mailp rank gnus-level-killed level score gnus-range-length tick ticked gnus-group-timestamp-delta group-age t inhibit-read-only eval face get-text-property gnus-put-text-property-excluding-characters-with-faces boundp gnus-extent-start-open] 7 (#$ . 33826)]) #@116 Update all lines where GROUP appear. If VISIBLE-ONLY is non-nil, the group won't be displayed if it isn't already. (defalias 'gnus-group-update-group #[(group &optional visible-only) "pﾀ q案 鯨闇\"ﾉ!!ﾀL)eﾀ\n \f ﾎ\"Jグﾑ!Оﾒﾓﾔﾕ8!ﾖQ!)ﾗ\fdﾘ $\fラﾙ \fb移 ﾜy`ﾝy`|萎!玩y謂!*\fT\f１ \"#Γ#!ﾎ\"JAA@ﾗedﾘﾅ@@\"ﾉ!ﾐﾀL)$$ﾝ$b)A┣db)ﾚ ﾞ!玩y謂!*%%!域 - b ﾀ遠\nq*" [nil mark buf gnus-group-buffer point-marker intern group gnus-active-hashtb symbol boundp buffer-read-only found loc ident intern-soft gnus-newsrc-hashtb entry gnus-ephemeral-group-p gnus-dribble-enter "(gnus-group-set-info '" gnus-prin1-to-string 2 ")" text-property-any gnus-group t gnus-group-group-indentation gnus-group-indentation 0 1 gnus-group-insert-group-line-info -1 gnus-run-hooks gnus-group-update-group-hook visible-only gnus-goto-missing-group-function point gnus-group-update-group-function gnus-group-set-mode-line] 8 (#$ . 34960)]) #@43 Update the mode line in the group buffer. (defalias 'gnus-group-set-mode-line #[nil "ﾀ >浬nq ﾄﾅ!A@@ ﾊ噬)ﾊ*ﾋ\fﾍﾏPﾒ!Pﾓ!Pq慰 ﾕU)?ﾗ!ツ@ＧAGVボﾕﾛZOﾜC!ﾞ!. " [group gnus-updated-mode-lines gnus-group-buffer gnus-group-mode-line-format-spec gnus-set-format group-mode gformat gnus-select-method gnus-tmp-news-server gnus-tmp-news-method "" ":" gnus-tmp-colon 60 max-len nil gnus-tmp-header gnus-dribble-buffer buffer-name buffer-modified-p buffer-size 0 modified eval mode-string gnus-mode-line-modified mode-line-modified 4 gnus-mode-line-buffer-identification mode-line-buffer-identification set-buffer-modified-p] 4 (#$ . 36004)]) #@52 Get the name of the newsgroup on the current line. (defalias 'gnus-group-group-name #[nil "ﾀﾁ ﾂ\" ﾄ !)" [get-text-property gnus-point-at-bol gnus-group group symbol-name] 4 (#$ . 36713)]) #@53 Get the level of the newsgroup on the current line. (defalias 'gnus-group-group-level #[nil "ﾀﾁ ﾂ\"" [get-text-property gnus-point-at-bol gnus-level] 3 (#$ . 36912)]) #@59 Get the indentation of the newsgroup on the current line. (defalias 'gnus-group-group-indentation #[nil "ﾀﾁ ﾂ\"  ﾄ" [get-text-property gnus-point-at-bol gnus-indentation gnus-group-indentation-function ""] 3 (#$ . 37086)]) #@73 Get the number of unread articles of the newsgroup on the current line. (defalias 'gnus-group-group-unread #[nil "ﾀﾁ ﾂ\"" [get-text-property gnus-point-at-bol gnus-unread] 3 (#$ . 37326)]) (defalias 'gnus-group-new-mail #[(group) "ﾀ ﾃﾄ\n\"\nﾅ僻O\n)!ﾈ" [nnmail-new-mail-p group gname string-match "^[^:]+:" 0 nil gnus-new-mail-mark 32] 4]) #@38 Return the estimated level of GROUP. (defalias 'gnus-group-level #[(group) "ﾀﾁ\n \"J8A@:\f@\f)&\n 揀$&" [2 intern-soft group gnus-newsrc-hashtb rank gnus-zombie-list gnus-level-zombie gnus-level-killed] 5 (#$ . 37686)]) #@298 Find the next newsgroup with unread articles. If BACKWARD is non-nil, find the previous newsgroup instead. If ALL is non-nil, just find any newsgroup. If LEVEL is non-nil, find group with level LEVEL, or higher if no such group exists. If FIRST-TOO, the current line is also eligible as a target. (defalias 'gnus-group-search-forward #[(&optional backward all level first-too) "ﾁ ﾂ `ﾄ演 \n ﾋy\f)\nymﾍ`ﾎ\"Ы\ﾍ`ﾐ\"ｧHﾋV)ﾍ`ﾒ\" X?ﾍ`ﾒ\" U  W W  `ﾄ\nyﾋU)Γﾕ 椅げｨbｰﾖ." [backward -1 1 gnus-level-killed nil lev found pos beg low way 0 first-too get-text-property gnus-group all gnus-unread unread gnus-level gnus-level-subscribed level gnus-group-position-point t] 7 (#$ . 37931)]) #@25 Mark the current group. (defalias 'gnus-group-mark-group #[(n &optional unmark no-advance) "ﾀ ﾄVザmФﾅ ウﾄy鞍暸!ﾈu伊``Tg\n8ﾋ \f\"\fﾍC ﾋ \f\"B\f$Нﾐﾑ! Sﾒ *" [nil group buffer-read-only n 0 gnus-group-group-name process gnus-group-mark-positions 2 subst-char-in-region unmark delete gnus-group-marked 32 gnus-process-mark no-advance gnus-group-next-group 1 gnus-summary-position-point] 9 (#$ . 38717) "p"]) #@41 Remove the mark from the current group. (defalias 'gnus-group-unmark-group #[(n) "ﾀ ﾂ\"暗 " [gnus-group-mark-group n unmark gnus-group-position-point] 3 (#$ . 39164) "p"]) #@20 Unmark all groups. (defalias 'gnus-group-unmark-all-groups #[nil " ﾂ 陰@!*ﾃ " [gnus-group-marked groups gnus-group-remove-mark gnus-group-position-point] 3 (#$ . 39343) nil]) #@77 Mark all groups between point and mark. If UNMARK, remove the mark instead. (defalias 'gnus-group-mark-region #[(unmark beg end) "ﾀ \n\" b ﾄ \"Z*" [count-lines beg end num gnus-group-mark-group unmark] 4 (#$ . 39536) "P\nr"]) #@68 Mark all groups in the buffer. If UNMARK, remove the mark instead. (defalias 'gnus-group-mark-buffer #[(&optional unmark) "ﾀ ed#" [gnus-group-mark-region unmark] 4 (#$ . 39773) "P"]) #@41 Mark all groups that match some regexp. (defalias 'gnus-group-mark-regexp #[(regexp) "Aﾁ ﾄ 陰@@\"ﾆ\n!*ﾇ " [gnus-newsrc-alist nil group alist string-match regexp gnus-group-set-mark gnus-group-position-point] 4 (#$ . 39963) "sMark (regexp): "]) #@99 Remove the process mark from GROUP and move point there. Return nil if the group isn't displayed. (defalias 'gnus-group-remove-mark #[(group) "ﾀ !環ﾃﾄﾅ#)ﾅﾆ \"ﾈ" [gnus-group-goto-group group gnus-group-mark-group 1 unmark t delete gnus-group-marked nil] 4 (#$ . 40231)]) #@32 Set the process mark on GROUP. (defalias 'gnus-group-set-mark #[(group) "ﾀ !環ﾃﾄﾅ#) ﾆ \"B" [gnus-group-goto-group group gnus-group-mark-group 1 nil t delete gnus-group-marked] 4 (#$ . 40517)]) #@79 Perform any command on all groups according to the process/prefix convention. (defalias 'gnus-group-universal-argument #[(arg &optional groups func) " ﾁﾂﾃﾄ!!!ﾅ=ﾆﾇﾈ\" ﾉ\nﾋ\"偉 " [func key-binding read-key-sequence substitute-command-keys "\\\\[gnus-group-universal-argument]" undefined gnus-error 1 "Undefined key" gnus-group-iterate arg #[(group) "ﾀ !" [command-execute func] 2] gnus-group-position-point] 4 (#$ . 40726) "P"]) #@107 Return a list of groups to work on. Take into consideration N (the prefix) and the list of marked groups. (defalias 'gnus-group-process-prefix #[(n) "ェﾁ!ﾂWﾃﾄﾅ!ﾆ ﾂVァﾊ 5BSﾋ ! ),ﾌ ホ`ﾍ ]ﾆ柿ﾍ ^b位 Bブﾋﾄ!ﾂUブ`WЪ+ヤﾐ!ﾊ C)" [n prefix-numeric-value 0 -1 1 abs nil groups group way gnus-group-group-name gnus-group-next-group gnus-region-active-p mark max gnus-group-marked reverse] 5 (#$ . 41195)]) (byte-code "ﾀﾁ!ﾀﾂ!ﾀﾃ!ﾀﾄ!ﾉﾊﾋﾌDﾍﾎﾏBﾐB Eﾑﾒ ﾓDEﾔDﾕ Dﾖﾗﾘ EDDｯEｯ!,ﾙﾋﾚﾛ#" [make-symbol "gnus-group-iterate-function" "gnus-group-iterate-window" "gnus-group-iterate-groups" "gnus-group-iterate-group" group groups window function eval defun gnus-group-iterate arg "Iterate FUNCTION over all process/prefixed groups.\nFUNCTION will be called with the group name as the paremeter\nand with point over the group in question." let ((gnus-group-process-prefix arg)) ((selected-window)) while setq pop select-window gnus-group-remove-mark save-selected-window save-excursion funcall put lisp-indent-function 1] 16) #@300 Read news in this newsgroup. If the prefix argument ALL is non-nil, already read articles become readable. IF ALL is a number, fetch this number of articles. If the optional argument NO-ARTICLE is non-nil, no article will be auto-selected upon group entry. If GROUP is non-nil, fetch that group. (defalias 'gnus-group-read-group #[(&optional all no-article group select-articles) "ﾁ=\n ﾃ ﾄ演 ﾁ=ﾄ\n'ﾊﾋ!偉ﾍﾎ\n\"J88ｧ>[ エ @[ﾎ\n\"J[AT@Zﾑ\n}ｧ}ﾒﾓ暸!\\ﾒﾔ暸!\\ﾁUﾄ ﾄ&." [all 0 group gnus-group-group-name nil entry marked active number no-display error "No group on current line" 3 2 intern-soft gnus-newsrc-hashtb gnus-active-hashtb gnus-summary-read-group gnus-range-length tick dormant no-article select-articles] 8 (#$ . 42297) "P"]) #@171 Select this newsgroup. No article is selected automatically. If ALL is non-nil, already read articles become readable. If ALL is a number, fetch this number of articles. (defalias 'gnus-group-select-group #[(&optional all) "ﾀ ﾂ\"" [gnus-group-read-group all t] 3 (#$ . 43105) "P"]) #@255 Select the current 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. This might be useful if you want to toggle threading before entering the group. (defalias 'gnus-group-quick-select-group #[(&optional all) "ﾀﾁ!按演演ﾈ ﾊ\"-" [require gnus-score nil gnus-summary-expunge-below gnus-apply-kill-hook gnus-home-score-file gnus-score-find-score-files-function gnus-visual gnus-group-read-group all t] 5 (#$ . 43395) "P"]) #@55 Select the current group without hiding any articles. (defalias 'gnus-group-visible-select-group #[(&optional all) "ﾀﾂ ﾀ\")" [t gnus-inhibit-limiting gnus-group-read-group all] 3 (#$ . 43933) "P"]) #@204 Select the current group without doing any processing whatsoever. You will actually be entered into a group that's a copy of the current group; no changes you make while in this group will be permanent. (defalias 'gnus-group-select-group-ephemerally #[nil "ﾀﾁ!按ﾂﾂﾂﾂﾂﾂ ﾂ\nﾋ \fﾍ\f!ﾏﾐ\f\"\".\n" [require gnus-score nil gnus-visual gnus-score-find-score-files-function gnus-apply-kill-hook gnus-summary-expunge-below gnus-show-threads gnus-suppress-duplicates gnus-summary-mode-hook gnus-select-group-hook gnus-group-group-name group gnus-find-method-for-group method gnus-group-read-ephemeral-group gnus-group-prefixed-name] 4 (#$ . 44140) nil]) #@94 Start Gnus if necessary and enter GROUP. Returns whether the fetching was successful or not. (defalias 'gnus-fetch-group #[(group) "ﾀ ! ﾂ 暗ﾄ #" [get-buffer gnus-group-buffer gnus-no-server gnus-group-read-group nil group] 4 (#$ . 44811) "sGroup name: "]) #@33 Pop up a frame and enter GROUP. (defalias 'gnus-fetch-group-other-frame #[(group) "ﾀ !ﾃﾄ\n!!%ﾅ GﾆU!ﾃﾇ !%ﾈﾆ!)ﾉ\n!" [get-buffer-window gnus-group-buffer window select-frame window-frame frame-list 1 make-frame other-frame gnus-fetch-group group] 4 (#$ . 45077) "P"]) (byte-code "ﾀﾁ!ﾂﾁ Bﾀ" [boundp gnus-ephemeral-group-server 0 current-load-list] 2) #@342 Read GROUP from METHOD as an ephemeral group. If ACTIVATE, request the group first. If QUIT-CONFIG, use that window configuration when exiting from the ephemeral group. If REQUEST-ONLY, don't actually read the group; just request it. If SELECT-ARTICLES, only select those articles. Return the name of the group is selection was successful. (defalias 'gnus-group-read-ephemeral-group #[(group method &optional activate quit-config request-only select-articles) "; ﾁ!@A@ﾂPﾃﾄﾅ@\"!A@DAABBBﾆ!.3ﾈ\"ﾃ \"ﾊﾋ\fﾋﾍ グ ５BBCｯELBq惟!вﾓﾔﾕ!\"レﾗﾘ\"異!ъﾓﾚﾛ@!\"ヶｚﾋﾝﾞ)" [method gnus-server-to-method "-ephemeral" intern format "%s-address" gnus-group-foreign-p group gnus-group-prefixed-name gnus-newsrc-hashtb -1 nil gnus-level-default-subscribed quit-config gnus-summary-buffer gnus-current-window-configuration gnus-ephemeral-servers gnus-group-buffer gnus-check-server error "Unable to contact server: %s" gnus-status-message activate gnus-activate-group scan gnus-request-group "Couldn't request group: %s" nnheader-get-report request-only (byte-code "ﾀﾁ噂n $\n\n" [gnus-group-read-group t group select-articles] 5) ((quit))] 11 (#$ . 45453)]) #@26 Jump to newsgroup GROUP. (defalias 'gnus-group-jump-to-group #[(group) "ﾁ噬\nﾂﾃ!案!ﾅ!ﾆ!闇!杏 " [group "" error "Empty group name" gnus-ephemeral-group-p gnus-group-goto-group gnus-group-update-group gnus-group-position-point] 2 (#$ . 46668) (list (completing-read "Group: " gnus-active-hashtb nil (gnus-read-active-file-p) nil (quote gnus-group-history)))]) #@90 Goto to newsgroup GROUP. If FAR, it is likely that the group is not on the current line. (defalias 'gnus-group-goto-group #[(group &optional far) "ｿ -ﾂedﾃﾄ \"ﾇ!ﾈL)$ + b)ﾊy依`ﾃ\"ﾄ \"ﾇ!ЁﾈL)=グ`肝y依`ﾃ\"ﾄ \"ﾇ!iﾈL*=ブﾌy`艦y依`ﾃ\"ﾄ \"ﾇ!эﾈL*=ﾍy`ﾂedﾃﾄ \"ﾇ!┳ﾈL)$ ｾ b)" [group far text-property-any gnus-group intern gnus-active-hashtb symbol boundp nil point 0 get-text-property -1 1] 8 (#$ . 47045)]) #@143 Go to next N'th newsgroup. If N is negative, search backward instead. Returns the difference between N and the number of skips actually done. (defalias 'gnus-group-next-group #[(n &optional silent) "ﾀ ﾂﾃ\f$" [gnus-group-next-unread-group n t nil silent] 5 (#$ . 47534) "p"]) #@349 Go to next N'th unread newsgroup. If N is negative, search backward instead. If ALL is non-nil, choose any newsgroup, unread or not. If LEVEL is non-nil, choose the next group with level LEVEL, or, if no such group can be found, the next group with a level higher than LEVEL. Returns the difference between N and the number of skips actually made. (defalias 'gnus-group-next-unread-group #[(n &optional all level silent) "ﾁWﾂ!ﾁV$ﾄ ?#$S ﾁUЗЗﾉﾊﾋ;ﾌ<ﾍウﾎFﾌ$*" [n 0 abs backward gnus-group-search-forward gnus-group-goto-unread all level silent gnus-message 7 "No more%s newsgroups%s" "" " unread" " on this level or higher"] 6 (#$ . 47817) "p"]) #@104 Go to previous N'th newsgroup. Returns the difference between N and the number of skips actually done. (defalias 'gnus-group-prev-group #[(n) "ﾀ [ﾂ\"" [gnus-group-next-unread-group n t] 3 (#$ . 48509) "p"]) #@111 Go to previous N'th unread newsgroup. Returns the difference between N and the number of skips actually done. (defalias 'gnus-group-prev-unread-group #[(n) "ﾀ [!" [gnus-group-next-unread-group n] 2 (#$ . 48724) "p"]) #@168 Go to next N'th unread newsgroup on the same level. If N is negative, search backward instead. Returns the difference between N and the number of skips actually done. (defalias 'gnus-group-next-unread-group-same-level #[(n) "ﾀ ﾂﾃ #案 " [gnus-group-next-unread-group n t gnus-group-group-level gnus-group-position-point] 4 (#$ . 48949) "p"]) #@125 Go to next N'th unread newsgroup on the same level. Returns the difference between N and the number of skips actually done. (defalias 'gnus-group-prev-unread-group-same-level #[(n) "ﾀ [ﾂﾃ #案 " [gnus-group-next-unread-group n t gnus-group-group-level gnus-group-position-point] 4 (#$ . 49298) "p"]) #@84 Go to the group with the highest level. If EXCLUDE-GROUP, do not go to that group. (defalias 'gnus-group-best-unread-group #[(&optional exclude-group) "eb安ﾁmЖﾅ`ﾆ\"ｧア ﾇVアﾅ`ﾈ\"アﾅ`ﾈ\"\fWア : ﾊ 噪Aﾅ`ﾈ\"`ﾋy \nク\nb偉 \nWﾊ +" [100000 nil best-point unread best get-text-property gnus-unread 0 gnus-level exclude-group gnus-group-group-name 1 gnus-summary-position-point] 4 (#$ . 49604) nil]) #@45 Go to the first group with unread articles. (defalias 'gnus-group-first-unread-group #[nil "`ﾀeb暗 ﾄ=# ｧ ﾅU#ﾆﾇ!ﾅU'`+\nb安*ﾈ " [nil unread opoint gnus-group-group-unread t 0 gnus-group-next-unread-group 1 gnus-group-position-point] 2 (#$ . 50027) nil]) #@28 Jump to the server buffer. (defalias 'gnus-group-enter-server-mode #[nil "ﾀ " [gnus-enter-server-buffer] 1 (#$ . 50302) nil]) #@97 Add a new newsgroup. The user will be prompted for a NAME, for a select METHOD, and an ADDRESS. (defalias 'gnus-group-make-group #[(name &optional method address args) "; ﾁ!\"ﾂ \"?\"\f!ﾅ!\fD\"1ﾇ\"3 ﾊ ﾊ\fﾍ \"Jガﾏﾐ \"尉ﾒ ﾊｯ\fﾕ jﾍﾕ \"Jﾒ%闇 \"ﾗﾘBL異!шﾚﾛﾜ\fA!ﾝQ!萎 !衣y謂 違簗#;Κﾁ! 噬ｲ @;η#η#\"ﾚ#ﾚA@蝴ﾚ@!&ﾄ&'\">ﾅ&鎹!桷@'>ﾅ&鎹!A@DC\"**@ !'\"& !溢!逸 #.*ィ ﾊ3#,ﾒ" [method gnus-server-to-method gnus-server-equal gnus-select-method address intern meth gnus-group-prefixed-name name nname nil backend info intern-soft gnus-newsrc-hashtb error "Group %s already exists" gnus-group-change-level t gnus-level-default-subscribed gnus-level-killed gnus-group-group-name gnus-active-hashtb 1 0 gnus-ephemeral-group-p gnus-dribble-enter "(gnus-group-set-info '" gnus-prin1-to-string ")" gnus-group-insert-group-line-info -1 gnus-group-position-point assoc symbol-name group gnus-server-extend-method "" method-name gnus-valid-select-methods "-address" physical-address append require gnus-check-server request-create-group func G99145 (byte-code ";ソfﾁ!@ ﾃ\n!ﾄ\n!闇ﾆﾇﾈ\n #!!)" [group gnus-find-method-for-group method featurep require fboundp intern format "%s-%s" func] 6) ((error)) gnus-request-create-group args] 7 (#$ . 50435) (list (gnus-read-group "Group name: ") (gnus-read-method "From method: "))]) #@287 Delete the current group. Only meaningful with mail 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. (defalias 'gnus-group-delete-group #[(group &optional force) "ﾁﾂ!暗ﾅﾆﾇ*ﾁﾈ!伊ﾊﾋ\f%ﾍ&ﾎ#!Yﾏﾐﾑ#惟\f\"Бﾓﾔﾕ#Yﾏﾐﾖ#為!畏ﾙﾚ\"維\"ﾝL移ﾞ " [group error "No group to rename" request-delete-group func G99146 (byte-code ";ソfﾁ!@ ﾃ\n!ﾄ\n!闇ﾆﾇﾈ\n #!!)" [group gnus-find-method-for-group method featurep require fboundp intern format "%s-%s" func] 6) ((error)) "This backend does not support group deletion" gnus-yes-or-no-p format "Do you really want to delete %s%s? " force " and all its contents" "" gnus-message 6 "Deleting group %s..." gnus-request-delete-group gnus-error 3 "Couldn't delete group %s" "Deleting group %s...done" gnus-group-goto-group gnus-group-kill-group 1 t intern gnus-active-hashtb nil gnus-group-position-point] 5 (#$ . 51903) (list (gnus-group-group-name) current-prefix-arg)]) #@129 Rename group from GROUP to NEW-NAME. When used interactively, GROUP is the group under point and NEW-NAME will be prompted for. (defalias 'gnus-group-rename-group #[(group new-name) "ﾀ ﾃﾄﾅ*ﾆﾇ! ﾆﾈ!  ﾊﾋ \", ﾌ箆O. )噬9ﾆﾏ!威 !ゥＩﾑ ﾊﾋ \"セ ﾌ箆O\\ )ﾒﾓﾔ \"J88\"ﾖﾗﾘ $異 \"тﾚﾛﾜ $ぐﾝ !萎 @A謂 違\"\"ﾔ \"\"JL椅ﾗ $ %\"% \"\"ﾍL域 育 " [request-rename-group group func G99147 (byte-code ";ソfﾁ!@ ﾃ\n!ﾄ\n!闇ﾆﾇﾈ\n #!!)" [group gnus-find-method-for-group method featurep require fboundp intern format "%s-%s" func] 6) ((error)) error "This backend does not support renaming groups" "No group to rename" gname string-match "^[^:]+:" 0 nil new-name "Can't rename to the same name" gnus-group-native-p gnus-group-prefixed-name 4 2 intern-soft gnus-newsrc-hashtb gnus-message 6 "Renaming group %s to %s..." gnus-request-rename-group gnus-error 3 "Couldn't rename group %s to %s" gnus-group-goto-group gnus-group-kill-group gnus-list-of-killed-groups gnus-group-yank-group intern gnus-active-hashtb "Renaming group %s to %s...done" delete gnus-killed-list gnus-dribble-touch gnus-group-position-point] 7 (#$ . 53031) (list (gnus-group-group-name) (progn (unless (gnus-check-backend-function (quote request-rename-group) (gnus-group-group-name)) (error "This backend does not support renaming groups")) (gnus-read-group "Rename group to: " (gnus-group-real-name (gnus-group-group-name)))))]) #@37 Edit the group on the current line. (defalias 'gnus-group-edit-group #[(group &optional part) "ﾁﾂ ﾄﾅ!鞍ﾇ \"J8!ﾄﾉ!位ﾋﾌ処ﾍﾎ=7ﾏ 8DﾐDﾑ=イﾒ 8D ﾓﾔﾎ=ケﾕ[ﾑ=セﾖ[ﾗ #ﾘﾙﾚﾛD ﾜBBBE#*" [part info nil group error "No group on current line" 2 intern-soft gnus-newsrc-hashtb "Killed group; can't be edited" G99148 (gnus-close-group group) ((error)) gnus-edit-form method 4 "native" params 5 format "Editing the %s for `%s'." "select method" "group parameters" "group info" lambda (form) gnus-group-edit-group-done quote (form)] 9 (#$ . 54490) (list (gnus-group-group-name))]) #@34 Edit the select method of GROUP. (defalias 'gnus-group-edit-group-method #[(group) "ﾀ ﾂ\"" [gnus-group-edit-group group method] 3 (#$ . 55090) (list (gnus-group-group-name))]) #@37 Edit the group parameters of GROUP. (defalias 'gnus-group-edit-group-parameters #[(group) "ﾀ ﾂ\"" [gnus-group-edit-group group params] 3 (#$ . 55273) (list (gnus-group-group-name))]) #@19 Update variables. (defalias 'gnus-group-edit-group-done #[(part group form) "ﾁ=ソfﾂ 8ﾄ= ﾅﾁ=ソ" 5ﾄ=4ﾆﾇ \"J85ﾅ|\fェﾊ \f\"ヂ @\fﾍﾎ\f\"ゼ\fﾏ頁O]\f)|ﾐ @\fﾍﾎ\f\"ヘ\fﾏ頁OＺ\f)\f\"噪ﾒ!ヵﾓﾔ!易! Ε┫ﾖ ｬ#ゅﾗ !位\fﾘ\"ﾟﾙ 寇ﾎ ﾅ吋､按 寇ﾙ ﾅC､按 媾f椅 !移!維 +" [part info 4 form method nil 2 intern-soft group gnus-newsrc-hashtb gnus-server-equal gnus-select-method gname string-match "^[^:]+:" 0 gnus-group-prefixed-name new-group gnus-group-goto-group gnus-group-kill-group 1 gnus-activate-group gnus-group-set-info gnus-copy-sequence "native" 3 gnus-group-update-group gnus-group-position-point] 5 (#$ . 55463)]) #@61 Create one of the groups described in `gnus-useful-groups'. (defalias 'gnus-group-make-useful-group #[(group method) "ﾀ !ﾂﾄ > ﾄ @A@!)ﾅ \"" [gnus-copy-sequence method nil entry eval gnus-group-make-group group] 3 (#$ . 56165) (let ((entry (assoc (completing-read "Create group: " gnus-useful-groups nil t) gnus-useful-groups))) (list (cadr entry) (caddr entry)))]) #@38 Create the Gnus documentation group. (defalias 'gnus-group-make-help-group #[nil "ﾀﾁﾂ\"ﾃﾄﾅ\"ﾈ \"Jﾊﾋ!'ﾌﾍﾎ\"Lﾏﾑﾒ\"=ﾓ返O?)ﾕﾁﾖDﾗﾘDF\"*ﾙ " [gnus-group-prefixed-name "gnus-help" (nndoc "gnus-help") nnheader-find-etc-directory "gnus-tut.txt" t file name intern-soft gnus-newsrc-hashtb error "Documentation group already exists" gnus-message 1 "Couldn't find doc group" gnus-group-make-group gname string-match "^[^:]+:" 0 nil nndoc nndoc-address nndoc-article-type mbox gnus-group-position-point] 7 (#$ . 56552) nil]) #@55 Create a group that uses a single file as the source. (defalias 'gnus-group-make-doc-group #[(file type) "ﾁ=ゼﾂﾃ\fЧﾇﾈ\"伊 ﾊU$ﾋ４ ﾌU.ﾍ４ ﾎU8ﾏ４ ﾐUィﾑ４ ﾒUキﾓ４ﾔﾕ \"ﾃ\f+ﾖ!ﾘﾙﾚ!ﾛ\"!ﾝﾟ\"モ癜ﾃOｄ)D薀F\"*" [type ask "" nil found char err message "%sFile type (mbox, babyl, digest, forward, mmdf, guess) [mbdfag]: " read-char 109 mbox 98 babyl 100 digest 102 forward 97 mmfd format "%c unknown. " expand-file-name file gnus-generate-new-group-name gnus-group-prefixed-name file-name-nondirectory (nndoc "") name gnus-group-make-group gname string-match "^[^:]+:" 0 nndoc nndoc-address nndoc-article-type guess] 8 (#$ . 57105) (list (read-file-name "File name: ") (and current-prefix-arg (quote ask)))]) (byte-code "ﾀ Bﾂﾃ!Ыfﾄﾃ Bﾂﾅ!ﾄﾅ Bﾄ" [nnweb-type-definition current-load-list boundp gnus-group-web-type-history nil gnus-group-web-search-history] 2) #@79 Create an ephemeral nnweb group. If SOLID (the prefix), create a solid group. (defalias 'gnus-group-make-web-group #[(&optional solid) "ﾀﾁ!\nﾃﾄ!ﾅ @ﾈ @@!\nﾋﾌ! ﾎﾏ@.ﾑﾒBﾐ#ﾁﾔDﾕﾖ !DﾗBBBB\nソ\ﾙﾚﾑﾖ !D$Ｒﾛﾜpﾞ=ハﾟＰﾆB$-" [require nnweb solid gnus-read-group "Group name: " message-unique-id group gnus-group-web-type-history symbol-name nnweb-type-definition default-type gnus-string-or-1 ((completing-read (format "Search engine type (default %s): " default-type) (mapcar (lambda (elem) (list (symbol-name (car elem)))) nnweb-type-definition) nil t nil (quote gnus-group-web-type-history)) default-type) type read-string "Search string: " gnus-group-web-search-history "" 0 search nnweb-search nnweb-type intern ((nnweb-ephemeral-p t)) method gnus-group-make-group "nnweb" gnus-group-read-ephemeral-group t major-mode gnus-summary-mode summary] 7 (#$ . 58032) "P"]) #@104 Create the (ding) Gnus archive group of the most recent articles. Given a prefix, create a full group. (defalias 'gnus-group-make-archive-group #[(&optional all) "ﾀ ﾂ\nﾃﾄ\"ﾆ \"Jﾈﾉ!位  ﾌﾍ \"/ ﾎ変O1 )ﾐ ;ﾑ<ﾒﾓ ェHDE\"椅 ﾗﾘB\")" [gnus-group-prefixed-name all "ding.archives" "ding.recent" (nndir "") group intern-soft gnus-newsrc-hashtb error "Archive group already exists" gnus-group-make-group gname string-match "^[^:]+:" 0 nil nndir "hpc" "edu" nndir-directory gnus-group-archive-directory gnus-group-recent-archive-directory gnus-group-add-parameter to-address "ding@gnus.org"] 6 (#$ . 58942) "P"]) #@222 Create an nndir group. The user will be prompted for a directory. The contents of this directory will be used as a newsgroup. The directory should contain mail messages or news articles in files that have numeric names. (defalias 'gnus-group-make-directory-group #[(dir) "ﾀ !Ыnﾂﾃ!案 !ﾂﾅ!鞍ﾇﾈ \n  ,ﾌ  \"Jエﾎﾏﾐ !! Pﾑ\" ﾒﾓ\nT\n\" ﾔ ﾖﾗ\"ゾﾇ癖O_)ﾘ ﾖﾗ\"プﾇ癖OＹ)ﾙ DE\"+" [file-exists-p dir error "No such directory" file-directory-p "Not a directory" "" 0 nil group i ext intern-soft gnus-newsrc-hashtb gnus-group-prefixed-name file-name-as-directory directory-file-name (nndir "") format "<%d>" gnus-group-make-group gname string-match "^[^:]+:" nndir nndir-directory] 6 (#$ . 59579) (list (read-file-name "Create group from directory: "))]) #@152 Create an nnkiboze group. The user will be prompted for a name, a regexp to match groups, and score file entries for articles to include in the group. (defalias 'gnus-group-make-kiboze-group #[(group address scores) "ﾀ ﾂ #監ﾅ P!ﾇﾉﾊﾋ!!q\fﾍﾏ赦ﾑp\")3Ｄﾓ=イ\fq慰 Ｄ\fq易ﾖ!!Чﾗﾖ!ﾓ\"畏edﾍﾙ%." [gnus-group-make-group group "nnkiboze" address gnus-score-file-name "nnkiboze:" temp-file fundamental-mode default-major-mode get-buffer-create generate-new-buffer-name " *nnheader temp*" temp-buffer nil temp-results ((byte-code "ﾀ !ソnﾂ !安" [buffer-name temp-buffer kill-buffer] 2)) emacs-lisp-mode-hook pp scores t buffer-string file-directory-p file-name-directory make-directory write-region nomesg] 6 (#$ . 60371) (list (read-string "nnkiboze group name: ") (read-string "Source groups (regexp): ") (let ((headers (mapcar (lambda (group) (list group)) (quote ("subject" "from" "number" "date" "message-id" "references" "chars" "lines" "xref" "followup" "all" "body" "head")))) scores header regexp regexps) (while (not (equal "" (setq header (completing-read "Match on header: " headers nil t)))) (setq regexps nil) (while (not (equal "" (setq regexp (read-string (format "Match on %s (string): " header))))) (push (list regexp nil nil (quote r)) regexps)) (push (cons header regexps) scores)) scores))]) #@43 Add the current group to a virtual group. (defalias 'gnus-group-add-to-virtual #[(n vgroup) "ﾀ !@ﾂ=ﾃﾄ \"闇 !鞍!ﾉﾊﾋ \f\"J88 A A@ﾎﾏﾐﾎ#Q*ﾑ " [gnus-find-method-for-group vgroup nnvirtual error "%s is not an nnvirtual group" gnus-close-group gnus-group-process-prefix n groups 4 2 intern-soft gnus-newsrc-hashtb method "\\|" mapconcat #[(s) "ﾀ !按ﾃ !ﾄQ" [gnus-group-remove-mark s "\\(^" regexp-quote "$\\)"] 3] gnus-group-position-point] 8 (#$ . 61717) (list current-prefix-arg (completing-read "Add to virtual group: " gnus-newsrc-hashtb nil t "nnvirtual:"))]) #@43 Create a new, fresh, empty virtual group. (defalias 'gnus-group-make-empty-virtual #[(group) "ﾀﾁDﾃ\f\n\"ﾆ \"Jﾈﾉ \"位 ﾋ \n#偉 !囲y夷 *" [nnvirtual "^$" method gnus-group-prefixed-name group pgroup intern-soft gnus-newsrc-hashtb error "Group %s already exists" gnus-subscribe-group gnus-group-group-name gnus-group-update-group -1 gnus-group-position-point] 4 (#$ . 62297) "sCreate new, empty virtual group: "]) #@37 Enter an ephemeral nneething group. (defalias 'gnus-group-enter-directory #[(dir) "ﾀ ﾂEﾄﾅﾆ !! \"ﾈ! ﾊ ﾋp\fﾍ=&ﾎ'ﾏB$?1ﾐﾑ \"+" [nneething dir (nneething-read-only t) method gnus-group-prefixed-name file-name-nondirectory directory-file-name leaf gnus-generate-new-group-name name gnus-group-read-ephemeral-group t major-mode gnus-summary-mode summary group error "Couldn't enter %s"] 7 (#$ . 62721) "DDirectory to read: "]) #@208 Sort the group buffer according to FUNC. When used interactively, the sorting function used will be determined by the `gnus-group-sort-function' variable. If REVERSE (the prefix), reverse the sorting order. (defalias 'gnus-group-sort-groups #[(func &optional reverse) "ﾁ\n! \"案 闇 " [gnus-group-sort-alist-function gnus-make-sort-function func reverse gnus-group-list-groups gnus-dribble-touch] 3 (#$ . 63164) (list gnus-group-sort-function current-prefix-arg)]) (defalias 'gnus-group-sort-flat #[(func reverse) " @@ﾂ噬 Aﾃ \"\f ﾅ " [func gnus-newsrc-alist "dummy.group" sort reverse gnus-make-hashtable-from-newsrc-alist] 3]) #@88 Sort the group buffer alphabetically by group name. If REVERSE, sort in reverse order. (defalias 'gnus-group-sort-groups-by-alphabet #[(&optional reverse) "ﾀﾁ\n\"" [gnus-group-sort-groups gnus-group-sort-by-alphabet reverse] 3 (#$ . 63814) "P"]) #@88 Sort the group buffer by number of unread articles. If REVERSE, sort in reverse order. (defalias 'gnus-group-sort-groups-by-unread #[(&optional reverse) "ﾀﾁ\n\"" [gnus-group-sort-groups gnus-group-sort-by-unread reverse] 3 (#$ . 64067) "P"]) #@74 Sort the group buffer by group level. If REVERSE, sort in reverse order. (defalias 'gnus-group-sort-groups-by-level #[(&optional reverse) "ﾀﾁ\n\"" [gnus-group-sort-groups gnus-group-sort-by-level reverse] 3 (#$ . 64316) "P"]) #@74 Sort the group buffer by group score. If REVERSE, sort in reverse order. (defalias 'gnus-group-sort-groups-by-score #[(&optional reverse) "ﾀﾁ\n\"" [gnus-group-sort-groups gnus-group-sort-by-score reverse] 3 (#$ . 64549) "P"]) #@73 Sort the group buffer by group rank. If REVERSE, sort in reverse order. (defalias 'gnus-group-sort-groups-by-rank #[(&optional reverse) "ﾀﾁ\n\"" [gnus-group-sort-groups gnus-group-sort-by-rank reverse] 3 (#$ . 64782) "P"]) #@90 Sort the group buffer alphabetically by backend name. If REVERSE, sort in reverse order. (defalias 'gnus-group-sort-groups-by-method #[(&optional reverse) "ﾀﾁ\n\"" [gnus-group-sort-groups gnus-group-sort-by-method reverse] 3 (#$ . 65012) "P"]) #@35 Sort the process/prefixed groups. (defalias 'gnus-group-sort-selected-groups #[(n func &optional reverse) "ﾀ ! \nﾄ !#杏 )" [gnus-group-process-prefix n groups gnus-group-sort-selected-function gnus-make-sort-function func reverse gnus-group-list-groups] 4 (#$ . 65263) (list current-prefix-arg gnus-group-sort-function)]) (defalias 'gnus-group-sort-selected-flat #[(groups func reverse) "ﾀ ﾄ 陰@ \"JAA\nBﾆﾇﾈ\n汢\" \"\n-  ア\n 陰@\n陰-ﾋ *" [nil infos entries groups intern-soft gnus-newsrc-hashtb sort mapcar #[(entry) "@" [entry] 1] func reverse gnus-make-hashtable-from-newsrc-alist] 5]) #@88 Sort the group buffer alphabetically by group name. If REVERSE, sort in reverse order. (defalias 'gnus-group-sort-selected-groups-by-alphabet #[(&optional reverse) "ﾀﾁ\n\"" [gnus-group-sort-selected-groups gnus-group-sort-by-alphabet reverse] 3 (#$ . 65892) "P"]) #@88 Sort the group buffer by number of unread articles. If REVERSE, sort in reverse order. (defalias 'gnus-group-sort-selected-groups-by-unread #[(&optional reverse) "ﾀﾁ\n\"" [gnus-group-sort-selected-groups gnus-group-sort-by-unread reverse] 3 (#$ . 66163) "P"]) #@74 Sort the group buffer by group level. If REVERSE, sort in reverse order. (defalias 'gnus-group-sort-selected-groups-by-level #[(&optional reverse) "ﾀﾁ\n\"" [gnus-group-sort-selected-groups gnus-group-sort-by-level reverse] 3 (#$ . 66430) "P"]) #@74 Sort the group buffer by group score. If REVERSE, sort in reverse order. (defalias 'gnus-group-sort-selected-groups-by-score #[(&optional reverse) "ﾀﾁ\n\"" [gnus-group-sort-selected-groups gnus-group-sort-by-score reverse] 3 (#$ . 66681) "P"]) #@73 Sort the group buffer by group rank. If REVERSE, sort in reverse order. (defalias 'gnus-group-sort-selected-groups-by-rank #[(&optional reverse) "ﾀﾁ\n\"" [gnus-group-sort-selected-groups gnus-group-sort-by-rank reverse] 3 (#$ . 66932) "P"]) #@90 Sort the group buffer alphabetically by backend name. If REVERSE, sort in reverse order. (defalias 'gnus-group-sort-selected-groups-by-method #[(&optional reverse) "ﾀﾁ\n\"" [gnus-group-sort-selected-groups gnus-group-sort-by-method reverse] 3 (#$ . 67180) "P"]) #@22 Sort alphabetically. (defalias 'gnus-group-sort-by-alphabet #[(info1 info2) "@ @刧" [info1 info2] 2 (#$ . 67449)]) #@49 Sort alphabetically on real (unprefixed) names. (defalias 'gnus-group-sort-by-real-name #[(info1 info2) "@ﾂﾃ \" ﾄ頁O )@ﾂﾃ \"' ﾄ頁O( )刧" [info1 gname string-match "^[^:]+:" 0 nil info2] 4 (#$ . 67571)]) #@36 Sort by number of unread articles. (defalias 'gnus-group-sort-by-unread #[(info1 info2) "ﾀ @\n\"J@ﾀ @\n\"J@ｧ ﾆ\fｧ#\f$ﾆW*" [intern-soft info1 gnus-newsrc-hashtb info2 n2 n1 0] 5 (#$ . 67795)]) #@16 Sort by level. (defalias 'gnus-group-sort-by-level #[(info1 info2) "A@: @ )\nA@: @ )W" [info1 rank info2] 3 (#$ . 68007)]) #@38 Sort alphabetically by backend name. (defalias 'gnus-group-sort-by-method #[(info1 info2) "ﾀﾁ\n@\n\"@!ﾀﾁ @ \"@!刧" [symbol-name gnus-find-method-for-group info1 info2] 5 (#$ . 68154)]) #@22 Sort by group score. (defalias 'gnus-group-sort-by-score #[(info1 info2) "A@: Aﾂ) A@: Aﾂ)W" [info1 rank 0 info2] 3 (#$ . 68345)]) #@26 Sort by level and score. (defalias 'gnus-group-sort-by-rank #[(info1 info2) "A@: @ )\nA@: @ ) WO\f UOA@:< A=ﾅ)\nA@:キ AMﾅ)V*" [info1 rank info2 level2 level1 0] 3 (#$ . 68499)]) #@57 Clear all marks and read ranges from the current group. (defalias 'gnus-group-clear-data #[(&optional arg) "ﾀ ﾂ\"" [gnus-group-iterate arg #[(group) "ﾀﾂﾃﾄ \"J8!杏 ﾄ \"Jﾉ#位 !\"ﾋ )" [nil info gnus-info-clear-data 2 intern-soft group gnus-newsrc-hashtb gnus-get-unread-articles-in-group gnus-active-hashtb t gnus-group-goto-group gnus-group-update-group-line] 5]] 3 (#$ . 68720) "P"]) #@57 Clear all marks and read ranges from all native groups. (defalias 'gnus-group-clear-data-on-native-groups #[nil "ﾀﾁ!3\nAﾃ 陰@#ﾆ\f@! ﾇ\f! ﾈ 伊 位ﾋ!2ﾌﾍ!*" [gnus-yes-or-no-p "Really clear all data from almost all groups? " gnus-newsrc-alist nil info alist gnus-group-native-p gnus-info-clear-data gnus-get-unread-articles gnus-dribble-touch gnus-y-or-n-p "Move the cache away to avoid problems in the future? " call-interactively gnus-cache-move-cache] 2 (#$ . 69120) nil]) #@44 Clear all marks and read ranges from INFO. (defalias 'gnus-info-clear-data #[(info) "@ﾂﾃﾄﾅDﾅﾆ8DﾇBBBﾈﾅDﾅﾉ8DEﾊﾋ DﾌBBF!AAﾍ鞍87ﾆ嶇)" [info group gnus-undo-register progn gnus-info-set-marks quote 3 (t) gnus-info-set-read 2 when gnus-group-goto-group ((gnus-group-update-group-line)) nil] 8 (#$ . 69614)]) #@347 Mark all articles not marked as unread in current newsgroup as read. If prefix argument N is numeric, the next N newsgroups will be caught up. If ALL is non-nil, marked articles will also be marked as read. Cross references (Xref: header) of articles are ignored. The number of newsgroups that this function was unable to catch up is returned. (defalias 'gnus-group-catchup-current #[(&optional n all) "ﾀ !ﾂﾅﾆ!>>ﾉﾊ #ﾌ$ﾍ\fGﾎU0\f@5ﾊﾏ\fG\"\"!> か\fΖﾐ\f@!@ﾒ=パﾓ\f@ﾕﾖ\"テﾂ勉OＨ)A@ #)ﾘ\f@!異 Yユﾛﾜﾝ\"ﾞ\f@!ﾟ\f@ \" T\fAВ睾! *" [gnus-group-process-prefix n 0 ret groups error "No groups selected" gnus-interactive-catchup gnus-expert-user gnus-y-or-n-p format all "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-find-method-for-group method nnvirtual nnvirtual-catchup-group gname string-match "^[^:]+:" nil gnus-group-remove-mark gnus-group-group-level gnus-level-zombie 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] 7 (#$ . 69937) "P"]) #@106 Mark all articles in current newsgroup as read. Cross references (Xref: header) of articles are ignored. (defalias 'gnus-group-catchup-current-all #[(&optional n) "ﾀ ﾂ\"" [gnus-group-catchup-current n all] 3 (#$ . 71128) "P"]) #@194 Mark all articles in GROUP as read. If ALL is non-nil, all articles are marked as read. The return value is the number of articles that were marked as read, or nil if no action could be taken. (defalias 'gnus-group-catchup #[(group &optional all) "ﾀ \n\"J@ @ｧﾅﾆﾇ #Ｒﾈ !カﾉ ﾊﾋ !#\fカﾍﾎ 88ﾉ ﾊﾐﾑ暸!#伊 ﾊﾐﾑ暸!#) qﾒ ﾓ\"\fドﾉ ﾑﾓ花%伊 ﾕﾓ花% ﾗﾘ!)\f*" [intern-soft group gnus-newsrc-hashtb entry num gnus-message 1 "Can't catch up %s; non-active group" gnus-group-auto-expirable-p gnus-add-marked-articles expire gnus-list-of-unread-articles all 3 2 marks gnus-uncompress-range tick gnus-update-read-articles nil force dormant gnus-newsgroup-name gnus-run-hooks gnus-group-catchup-group-hook] 7 (#$ . 71363)]) #@57 Expire all expirable articles in the current newsgroup. (defalias 'gnus-group-expire-articles #[(&optional n) "ﾀ !ﾂﾅﾆ!\f陰@ﾇ !以  ﾊﾋﾌ*ルﾍﾎﾏ #威ﾑ \"J8ﾔ !エﾂﾕ !BMﾖﾗ8ﾙ ﾚ\"ヤﾛブﾂﾞﾟA! \"*}ﾞﾟA! \"!｡謂 !囲ﾎ #+ 医 *" [gnus-group-process-prefix n nil group groups error "No groups to expire" gnus-group-remove-mark request-expire-articles func G99149 (byte-code ";ソfﾁ!@ ﾃ\n!ﾄ\n!闇ﾆﾇﾈ\n #!!)" [group gnus-find-method-for-group method featurep require fboundp intern format "%s-%s" func] 6) ((error)) gnus-message 6 "Expiring articles in %s..." 2 intern-soft gnus-newsrc-hashtb info gnus-group-total-expirable-p gnus-list-of-read-articles expire 3 expirable gnus-group-find-parameter expiry-wait gnus-compress-sequence nnmail-expiry-wait nnmail-expiry-wait-function gnus-request-expire-articles gnus-uncompress-sequence gnus-close-group "Expiring articles in %s...done" gnus-dribble-touch gnus-group-position-point] 6 (#$ . 72098) "P"]) #@50 Expire all expirable articles in all newsgroups. (defalias 'gnus-group-expire-all-groups #[nil "澗ﾁﾂ\"暗ﾄ A\"ﾇﾈ!*ﾉ 安ﾁﾊ\"" [gnus-message 5 "Expiring..." mapcar #[(info) "@" [info] 1] gnus-newsrc-alist gnus-group-marked gnus-group-expire-articles nil gnus-group-position-point "Expiring...done"] 3 (#$ . 73102) nil]) #@46 Set the level of the next N groups to LEVEL. (defalias 'gnus-group-set-current-level #[(n level) "ﾁYソf\nXﾃﾄ\"闇!ﾇ  陰 @キﾊ!依ﾌﾍﾎ 7\n%委ﾎ D\n#威 *ﾑ " [level 1 gnus-level-killed error "Illegal level: %d" gnus-group-process-prefix n nil group groups 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] 6 (#$ . 73430) (list current-prefix-arg (string-to-int (let ((s (read-string (format "Level (default %s): " (or (gnus-group-group-level) gnus-level-default-subscribed))))) (if (string-match "^\\s-*$" s) (int-to-string (or (gnus-group-group-level) gnus-level-default-subscribed)) s))))]) #@32 Unsubscribe the current group. (defalias 'gnus-group-unsubscribe #[(&optional n) "ﾀ ﾂ\"" [gnus-group-unsubscribe-current-group n unsubscribe] 3 (#$ . 74183) "P"]) #@30 Subscribe the current group. (defalias 'gnus-group-subscribe #[(&optional n) "ﾀ ﾂ\"" [gnus-group-unsubscribe-current-group n subscribe] 3 (#$ . 74353) "P"]) #@96 Toggle subscription of the current group. If given numerical prefix, toggle the N next groups. (defalias 'gnus-group-unsubscribe-current-group #[(&optional n do-sub) "ﾀ !ﾂ\fェ\f@\fAﾅ !鞍 ﾈ=ソ" =ﾊ=. =ﾌ  X; = ﾎ#委 ﾐﾑ!*" [gnus-group-process-prefix n nil group groups gnus-group-remove-mark gnus-group-unsubscribe-group do-sub unsubscribe gnus-level-default-unsubscribed subscribe gnus-level-default-subscribed gnus-group-group-level gnus-level-subscribed t gnus-group-update-group-line gnus-group-next-group 1] 4 (#$ . 74517) "P"]) #@113 Toggle subscription to GROUP. Killed newsgroups are subscribed. If SILENT, don't try to update the group line. (defalias 'gnus-group-unsubscribe-group #[(group &optional level silent) "ﾀ \n\"Jﾄﾅ \"ﾆﾇ!い ザﾈ  $ Gﾊ 8A@ :6 @8 )\fXウ\fTG \"┐ﾏ !い ;ﾐ ドﾀ \"Jﾈ  フ Ｗ 揀ﾕ ﾀﾕ \n\"J$┐ﾏ !いﾆﾖ \"為 )" [intern-soft group gnus-newsrc-hashtb newsrc string-match "^[ ]*$" error "Empty group name" gnus-group-change-level level 2 rank gnus-level-subscribed gnus-level-default-subscribed silent gnus-group-update-group gnus-read-active-file-p gnus-active-hashtb gnus-zombie-list gnus-level-zombie gnus-level-killed gnus-group-group-name "No such newsgroup: %s" gnus-group-position-point] 8 (#$ . 75083) (list (completing-read "Group: " gnus-active-hashtb nil (gnus-read-active-file-p) nil (quote gnus-group-history)))]) #@156 Move the current newsgroup up N places. If given a negative prefix, move down instead. The difference between N and the number of steps taken is returned. (defalias 'gnus-group-transpose-groups #[(n) "ﾀ ﾁﾂ!暗ﾄ! [yﾆ 杏 " [gnus-group-group-name error "No group on current line" gnus-group-kill-group 1 n gnus-group-yank-group gnus-group-position-point] 2 (#$ . 75968) "p"]) #@29 Kill all zombie newsgroups. (defalias 'gnus-group-kill-all-zombies #[nil " ､ﾂﾃ 案 " [gnus-zombie-list gnus-killed-list nil gnus-dribble-touch gnus-group-list-groups] 2 (#$ . 76352) nil]) #@133 Kill newsgroups in current region (excluding current point). The killed newsgroups can be yanked by using \[gnus-group-yank-group]. (defalias 'gnus-group-kill-region #[(begin end) "澗 b按y` b按y`\") b按y闇\f!)" [count-lines begin 0 end lines gnus-group-kill-group] 3 (#$ . 76550) "r"]) #@291 Kill the next N groups. The killed newsgroups can be yanked by using \[gnus-group-yank-group]. However, only groups that were alive can be yanked; already killed groups or zombie groups can't be yanked. The return value is the name of the group that was killed, or a list of groups killed. (defalias 'gnus-group-kill-group #[(&optional n discard) "ﾀﾁ\n!ﾀ演GﾉWポソn陰@ Bﾊ!依 ﾌy`ﾍy`|dﾏ\"Jヅﾑﾒﾓﾔ DﾕBB! @ﾖ 8BBﾘ ノ Ｐ ?w\f#ﾀﾊ陰@!偉y`ﾍy`|Bﾛﾜ\"\"βﾟ#委\"J @ﾖ 8BB A AAA｡ 揀 \" ﾓ!ャﾌy`ﾍy`| ) GﾖW @ ." [nil gnus-group-process-prefix n out level entry group groups buffer-read-only 10 gnus-group-remove-mark gnus-group-group-level 0 1 discard intern-soft gnus-newsrc-hashtb gnus-undo-register progn gnus-group-goto-group gnus-group-group-name ((gnus-group-yank-group)) 2 gnus-list-of-killed-groups gnus-group-change-level gnus-level-killed gnus-killed-list delq assoc gnus-newsrc-alist gnus-group-change-level-function 3 gnus-zombie-list delete gnus-make-hashtable-from-newsrc-alist gnus-group-position-point] 6 (#$ . 76847) "P"]) #@289 Yank the last newsgroups killed with \[gnus-group-kill-group], inserting it before the current newsgroup. The numeric ARG specifies how many newsgroups are to be yanked. The name of the newsgroup yanked is returned, or (if several groups are yanked) a list of yanked groups is returned. (defalias 'gnus-group-yank-group #[(&optional arg) "ﾁﾂ演SﾇYネ陰@)ﾉﾊ!A@ Bﾋ ﾌ陰A@ :オ @K )\fXﾏ\f\"Jﾑ%惟 !意ﾔﾕ DﾖBB!ﾗy畏 GﾙWミ @ ," [arg 1 nil out prev group info 0 gnus-list-of-killed-groups error "No more newsgroups to yank" gnus-group-group-name gnus-group-change-level rank gnus-level-killed intern-soft gnus-newsrc-hashtb t gnus-group-insert-group-line-info gnus-undo-register when gnus-group-goto-group ((gnus-group-kill-group 1)) -1 gnus-group-position-point 2] 8 (#$ . 78026) "p"]) #@45 Kill all groups that is on a certain LEVEL. (defalias 'gnus-group-kill-level #[(level) " U\n ､ﾄ WピﾅVピ(ﾇﾈﾉ\"!ピ\n A\fネ\f@A@ :ェ @H )Uダ\f@@ B \fA｡Ｄ\f \fA\f4ﾎ 委 *ﾐﾑ\"" [level gnus-level-zombie gnus-zombie-list gnus-killed-list nil 0 gnus-expert-user gnus-yes-or-no-p format "Do you really want to kill all groups on level %d? " gnus-newsrc-alist prev alist rank gnus-make-hashtable-from-newsrc-alist gnus-group-list-groups error "Can't kill; illegal level: %d"] 5 (#$ . 78865) "nKill all groups on level: "]) #@139 List all newsgroups with level ARG or lower. Default is gnus-level-unsubscribed, which lists all subscribed and most unsubscribed groups. (defalias 'gnus-group-list-all-groups #[(&optional arg) "ﾀ \nﾃ\"" [gnus-group-list-groups arg gnus-level-unsubscribed t] 3 (#$ . 79434) "P"]) #@157 List all killed newsgroups in the group buffer. If ARG is non-nil, list ALL killed groups known to Gnus. This may entail asking the server for the groups. (defalias 'gnus-group-list-killed #[(&optional arg) "ﾁ \nﾃﾄﾅ\"#ﾆ ﾊ #)eb依 " [arg gnus-get-killed-groups gnus-killed-list gnus-message 6 "No killed groups" nil gnus-group-list-mode gnus-group-prepare-function gnus-level-killed t gnus-group-position-point] 4 (#$ . 79725) "P"]) #@49 List all zombie newsgroups in the group buffer. (defalias 'gnus-group-list-zombies #[nil "Ыfﾁﾂﾃ\"ﾄﾈ#)eb伊 " [gnus-zombie-list gnus-message 6 "No zombie groups" nil gnus-group-list-mode gnus-group-prepare-function gnus-level-zombie t gnus-group-position-point] 4 (#$ . 80182) nil]) #@56 List all groups that are available from the server(s). (defalias 'gnus-group-list-active #[nil "ﾀ ﾁﾂ )ﾃﾄﾆﾇ\" )ﾉ\"ﾄ\n \fﾍ \fワﾎ``Tﾏ\f陰\f@\nﾐｱ尉ﾒ\n\"ﾔ!ПﾄL)ﾕﾁﾖ\n\nﾗﾘ\n\"J8A@:ビ@Ｕ)\n揀)ｯ##eb+" [gnus-read-active-file-p t gnus-read-active-file sort nil list mapatoms #[(sym) "ﾀ ! Jﾂ ! B" [boundp sym symbol-name list] 2] gnus-active-hashtb string< group buffer-read-only groups erase-buffer gnus-add-text-properties " *: " "\n" gnus-group intern symbol boundp gnus-unread gnus-level 2 intern-soft gnus-newsrc-hashtb rank gnus-zombie-list gnus-level-zombie gnus-level-killed] 13 (#$ . 80485) nil]) #@33 Activate absolutely all groups. (defalias 'gnus-activate-all-groups #[(level) "ﾃ *" [level gnus-activate-foreign-newsgroups gnus-activate-level gnus-group-get-new-news] 2 (#$ . 81168) (list gnus-level-unsubscribed)]) #@219 Get newly arrived articles. If ARG is a number, it specifies which levels you are interested in re-scanning. If ARG is non-nil and not a number, this will force "hard" re-reading of the active files from all servers. (defalias 'gnus-group-get-new-news #[(&optional arg) "ﾀﾂﾃ!\f ﾅ ﾈ 9ｧ9ﾀ ﾉ )ﾊ ﾌ=9ﾍ 夷ﾀ\" ザФﾉ 委!Ｆ?]  ﾏ!)ﾂﾐ!尉ｧv@]!)" [t gnus-inhibit-demon gnus-run-hooks gnus-get-new-news-hook gnus-slave gnus-master-read-slave-newsrc gnus-use-nocem arg gnus-nocem-scan-groups gnus-read-active-file nil gnus-check-new-newsgroups always gnus-find-new-newsgroups gnus-group-default-level gnus-get-unread-articles gnus-after-getting-new-news-hook gnus-group-list-groups gnus-group-list-mode] 3 (#$ . 81397) "P"]) #@226 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. (defalias 'gnus-group-get-new-news-this-group #[(&optional n dont-scan) "ﾀ ! ｧ \nGZﾃ ?`ﾆﾆ\n陰@Χﾉ!位ﾋ!!偉 ?Cﾎ\"ンﾏﾐﾑ\"J8ﾑ\"Jﾔ#易!gﾖ!為ﾙﾚ\"ﾃ僻Oａ)ﾑ\"J#維!ﾜﾋ!!ﾝ=Θﾞﾟ濬"ﾞﾟ!$ ｻ b#η蒟ﾔ\"域 \f-" [gnus-group-process-prefix n groups 0 ret beg nil group method gnus-group-remove-mark gnus-remove-denial gnus-find-method-for-group gnus-activate-group dont-scan scan gnus-get-unread-articles-in-group 2 intern-soft gnus-newsrc-hashtb gnus-active-hashtb t gnus-virtual-group-p gnus-close-group gnus-agent-save-group-info gname string-match "^[^:]+:" gnus-group-update-group gnus-server-status denied gnus-error 3 "Server denied access" "%s error: %s" gnus-status-message gnus-goto-next-group-when-activating gnus-group-next-unread-group 1 gnus-summary-position-point] 6 (#$ . 82177) "P"]) #@97 Fetch the FAQ for the current group. If given a prefix argument, prompt for the FAQ dir to use. (defalias 'gnus-group-fetch-faq #[(group &optional faq-dir) "ﾁﾂ! \fﾅ演 <Ы" C ?x 陰 @x\nﾋﾌ\n\"オ\nﾍ頁OK\n)ﾏ!P)ﾐ!iﾑﾒﾓ#\"ﾅﾕ!椅)\"," [group error "No group name given" faq-dir gnus-group-faq-directory nil file found dir dirs gname string-match "^[^:]+:" 0 name file-name-as-directory file-exists-p gnus-message 1 "No such file: %s" enable-local-variables find-file t] 5 (#$ . 83284) (list (gnus-group-group-name) (when current-prefix-arg (completing-read "Faq dir: " (and (listp gnus-group-faq-directory) (mapcar (lambda (file) (list file)) gnus-group-faq-directory)))))]) #@49 Display a description of the current newsgroup. (defalias 'gnus-group-describe-group #[(force &optional group) "ﾀ !ﾃﾄ\n\"ﾆ ﾊ  \"ﾆL &ﾋﾌ! 4ﾍ  \"JГﾎ !Гﾏ\n!UﾐﾑTﾍ  \"JTﾒ\"+" [gnus-find-method-for-group group method gnus-group-prefixed-name "" mname nil desc force gnus-description-hashtb intern error "No group name given" intern-soft gnus-group-get-description gnus-read-descriptions-file gnus-message 1 "No description available"] 5 (#$ . 84020) (list current-prefix-arg (gnus-group-group-name))]) #@54 Pop up a buffer with descriptions of all newsgroups. (defalias 'gnus-group-describe-all-groups #[(&optional force) "ﾁ\nﾃ ﾄﾅ!庵ﾈ 伊ﾊ\n\"eb依 *" [force nil gnus-description-hashtb gnus-read-all-descriptions-files error "Couldn't request descriptions file" b buffer-read-only erase-buffer mapatoms #[(group) "`ﾁﾂﾃ\f!\fJ#c闇欝ﾆ\fﾇﾈﾉﾊﾋ\fTｯ#" [b format " *: %-20s %s\n" symbol-name group gnus-add-text-properties gnus-group gnus-unread t gnus-marked nil gnus-level gnus-level-subscribed] 11] gnus-group-position-point] 3 (#$ . 84560) "P"]) #@58 List all newsgroups that have names that match a regexp. (defalias 'gnus-group-apropos #[(regexp &optional search-description) "ﾀpﾁﾆﾇ\" ﾆﾊ \" 'ﾌﾍﾎ#Ｎ諌ﾑ!惟p!意 慰 ﾕ\"ナ @ b @ﾖｱ ッﾗ @ \"Jッﾘ\nﾖｱ A<eb)ﾐ\f!," ["" nil des groups obuf prev mapatoms #[(group) "ﾀ !ﾂ ﾀ !\" Jﾀ !\fB" [symbol-name group string-match regexp groups] 4] gnus-active-hashtb search-description #[(group) "ﾀ \nJ\"ﾃﾄ\n! \"Jﾄ\n!B" [string-match regexp group intern-soft symbol-name gnus-active-hashtb groups] 3] gnus-description-hashtb gnus-message 3 "No groups matched \"%s\"." regexp pop-to-buffer "*Gnus Help*" buffer-disable-undo erase-buffer sort string< "\n" intern-soft " "] 5 (#$ . 85128) "sGnus apropos (regexp): "]) #@74 List all newsgroups that have names or descriptions that match a regexp. (defalias 'gnus-group-description-apropos #[(regexp) " ﾁ ﾂﾃ!案 ﾆ\"" [gnus-description-hashtb gnus-read-all-descriptions-files error "Couldn't request descriptions file" gnus-group-apropos regexp t] 3 (#$ . 85895) "sGnus description apropos (regexp): "]) #@309 List all groups with unread articles that match REGEXP. If the prefix LEVEL is non-nil, it should be a number that says which level to cut off listing groups. If ALL, also list groups with no unread articles. If LOWEST, don't list groups with level lower than LOWEST. This command may read the active file. (defalias 'gnus-group-list-matching #[(level regexp &optional all lowest) "ﾁ!\nVﾃ 案 ﾈ $eb位 " [level prefix-numeric-value gnus-level-killed gnus-get-killed-groups gnus-group-prepare-flat gnus-level-subscribed all lowest 1 regexp gnus-group-position-point] 5 (#$ . 86236) "P\nsList newsgroups matching: "]) #@198 List all groups that match REGEXP. If the prefix LEVEL is non-nil, it should be a number that says which level to cut off listing groups. If LOWEST, don't list groups with level lower than LOWEST. (defalias 'gnus-group-list-all-matching #[(level regexp &optional lowest) "ﾁ!ﾂ \fﾅ$" [level prefix-numeric-value gnus-group-list-matching gnus-level-killed regexp t lowest] 5 (#$ . 86880) "P\nsList newsgroups matching: "]) #@85 Save the Gnus startup files. If FORCE, force saving whether it is necessary or not. (defalias 'gnus-group-save-newsrc #[(&optional force) "ﾀ !" [gnus-save-newsrc-file force] 2 (#$ . 87319) "P"]) #@38 Force Gnus to read the .newsrc file. (defalias 'gnus-group-restart #[(&optional arg) "ﾀﾁﾂ!!ﾃ 案 闇 " [gnus-yes-or-no-p format "Are you sure you want to restart Gnus? " gnus-save-newsrc-file gnus-clear-system gnus] 3 (#$ . 87521) "P"]) #@32 Read the Gnus elisp init file. (defalias 'gnus-group-read-init-file #[nil "ﾀ 庵ﾂﾃ\f#" [gnus-read-init-file gnus-message 5 "Read %s" gnus-init-file] 4 (#$ . 87766) nil]) #@102 Check bogus newsgroups. If given a prefix, don't ask for confirmation before removing a bogus group. (defalias 'gnus-group-check-bogus-groups #[(&optional silent) "ﾀ ?\n?!暗 " [gnus-check-bogus-newsgroups silent gnus-expert-user gnus-group-list-groups] 2 (#$ . 87943) "P"]) #@309 Search for new groups and add them. Each new group will be treated with `gnus-subscribe-newsgroup-method.' With 1 C-u, use the `ask-server' method to query the server for new groups. With 2 C-u's, use most complete method possible to query the server for new groups, and subscribe the new groups as zombies. (defalias 'gnus-group-find-new-groups #[(&optional arg) "ﾀ ﾂ!暗 " [gnus-find-new-newsgroups arg 1 gnus-group-list-groups] 2 (#$ . 88228) "p"]) #@73 Edit the global kill file. If GROUP, edit that local kill file instead. (defalias 'gnus-group-edit-global-kill #[(&optional article group) "ﾂ !案ﾅﾆﾇﾈ ﾉﾊ\"!\"" [article gnus-current-kill-article gnus-kill-file-edit-file group gnus-message 6 substitute-command-keys format "Editing a %s kill file (Type \\[gnus-kill-file-exit] to exit)" "local" "global"] 6 (#$ . 88689) "P"]) #@25 Edit a local kill file. (defalias 'gnus-group-edit-local-kill #[(article group) "ﾀ \n\"" [gnus-group-edit-global-kill article group] 3 (#$ . 89078) (list nil (gnus-group-group-name))]) #@24 Update `.newsrc' file. (defalias 'gnus-group-force-update #[nil "ﾀ " [gnus-save-newsrc-file] 1 (#$ . 89270) nil]) #@160 Suspend the current Gnus session. In fact, cleanup buffers except for group mode buffer. The hook gnus-suspend-gnus-hook is called before actually suspending. (defalias 'gnus-group-suspend #[nil "ﾀﾁ!按 !ﾅﾆﾇ \"以 \fﾉ\f!位\fﾋ\")" [gnus-run-hooks gnus-suspend-gnus-hook get-buffer gnus-group-buffer group-buf mapcar #[(buf) " \nD?\fﾃ!" [buf group-buf gnus-dribble-buffer kill-buffer] 3] gnus-buffers gnus-kill-gnus-frames bury-buffer delete-windows-on t] 3 (#$ . 89392) nil]) #@48 Clear all information from the dribble buffer. (defalias 'gnus-group-clear-dribble #[nil "ﾀ 庵ﾂﾃ\"" [gnus-dribble-clear gnus-message 7 "Cleared dribble buffer"] 3 (#$ . 89883) nil]) #@125 Quit reading news after updating .newsrc.eld and .newsrc. The hook `gnus-exit-gnus-hook' is called before actually exiting. (defalias 'gnus-group-exit #[nil " \nﾃﾄ!%ﾅﾆ!杏 以 伊 位 闇ﾋ!" [noninteractive gnus-interactive-exit gnus-expert-user gnus-y-or-n-p "Are you sure you want to quit reading news? " gnus-run-hooks gnus-exit-gnus-hook gnus-offer-save-summaries gnus-save-newsrc-file gnus-close-backends gnus-clear-system gnus-after-exiting-gnus-hook] 2 (#$ . 90073) nil]) #@126 Quit reading news without updating .newsrc.eld or .newsrc. The hook `gnus-exit-gnus-hook' is called before actually exiting. (defalias 'gnus-group-quit #[nil "&ﾁ ﾂU&ﾃ\f!& &&ﾇﾈﾉﾊ!\"!^ﾋﾌ!囲ﾎﾏ\"威 尉 惟 Q;ギﾖNﾗ!)セﾘ!)ﾋﾙ!" [noninteractive buffer-size 0 gnus-server-opened gnus-select-method gnus-expert-user gnus-current-startup-file gnus-yes-or-no-p format "Quit reading news without saving %s? " file-name-nondirectory gnus-run-hooks gnus-exit-gnus-hook gnus-configure-windows group t gnus-dribble-save gnus-close-backends gnus-clear-system gnus-group-buffer buf buffer get-buffer buffer-name kill-buffer gnus-after-exiting-gnus-hook] 6 (#$ . 90567) nil]) #@57 Give a one line description of the group mode commands. (defalias 'gnus-group-describe-briefly #[nil "ﾀﾁﾂﾃ!\"" [gnus-message 7 substitute-command-keys "\\\\[gnus-group-read-group]:Select \\[gnus-group-next-unread-group]:Forward \\[gnus-group-prev-unread-group]:Backward \\[gnus-group-exit]:Exit \\[gnus-info-find-node]:Run Info \\[gnus-group-describe-briefly]:This help"] 4 (#$ . 91267) nil]) #@275 Browse a foreign news server. If called interactively, this function will ask for a select method (nntp, nnspool, etc.) and a server address (eg. nntp.some.where). If not, METHOD should be a list where the first element is the method and the second element is the address. (defalias 'gnus-group-browse-foreign-server #[(method) "ﾀ !" [gnus-browse-foreign-server method] 2 (#$ . 91694) (list (let ((how (completing-read "Which backend: " (append gnus-valid-select-methods gnus-server-alist) nil t (cons "nntp" 0) (quote gnus-method-history)))) (if (assoc how gnus-valid-select-methods) (list (intern how) (completing-read "Address: " (mapcar (lambda (server) (list server)) gnus-secondary-servers))) how)))]) (defalias 'gnus-group-set-info #[(info &optional method-only-group part) "ﾀ \n@ \"J\n ﾆ\f8\nﾇ セ\f)ﾉﾊ \"\nG ﾈ=6ﾌ7ﾍWゲS\n嶢Zﾇ\"｡S\n *\fq惟\n8ﾓﾔ\"ピﾇqΩﾕ\n@ﾗﾘ\"ンﾙ壁Oｕ);Γえﾚ@!:ｱﾒ\n8A@#そﾕ\n@!)ﾛﾍﾜ\"安ﾝ\n@ﾗﾘ\"ﾘﾙ壁Oぼ)ﾒ\n8\" \"J)\f\fAA\n\f@ﾟ=?ﾀ\n@ \"J\f畚n@!Gﾉ秉n@\"," [intern-soft method-only-group info gnus-newsrc-hashtb entry part-info 2 nil method error "Trying to change non-existent group %s" part 5 6 total len make-list gnus-group-buffer 4 gnus-server-equal "native" gnus-group-make-group gname string-match "^[^:]+:" 0 prin1-to-string gnus-message "Note: New group created" gnus-group-prefixed-name gnus-select-method t gnus-active-hashtb gnus-list-of-unread-articles "No such group: %s"] 6]) (defalias 'gnus-group-set-method-info #[(group select-method) "ﾀ \nﾃ#" [gnus-group-set-info select-method group method] 4]) (defalias 'gnus-group-set-params-info #[(group params) "ﾀ \nﾁ#" [gnus-group-set-info params group] 4]) (defalias 'gnus-add-marked-articles #[(group type articles &optional info force) " ﾁﾂ \f\"J8ﾅ?ﾈ實7 ?AA\nﾋ ﾌ\"BCC｡\n@梔Ъ ?\nﾋ ﾌ\"B@B ミ гﾈ嶄\n@\"ｑﾋ ﾌ\"｡ｑﾋﾏﾐA!ﾑ !､ﾒ\"ﾌ\"｡+" [info 2 intern-soft group gnus-newsrc-hashtb nil m marked 3 articles type gnus-compress-sequence t force gnus-delete-alist sort gnus-uncompress-range copy-sequence <] 7]) #@165 Change the timestamp of the current group to the current time. This function can be used in hooks like `gnus-select-group-hook' or `gnus-group-catchup-group-hook'. (defalias 'gnus-group-set-timestamp #[nil "ﾁ Aﾃ｡案ﾅ\n#)" [gnus-newsgroup-name current-time time nil gnus-group-set-parameter timestamp] 5 (#$ . 93876)]) #@33 Return the timestamp for GROUP. (defalias 'gnus-group-timestamp #[(group) "ﾀ ﾂﾃ#" [gnus-group-get-parameter group timestamp t] 4 (#$ . 94207)]) (put (quote gnus-group-timestamp) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@108 Return the offset in seconds from the timestamp for GROUP to the current time, as a floating point number. (defalias 'gnus-group-timestamp-delta #[(group) "ﾁﾂﾃ#)ﾄ吋ﾆﾇ \"@ﾉ_A@\\*" [group gnus-group-get-parameter timestamp t 0 time gnus-time-minus current-time delta 65536.0] 5 (#$ . 94452)]) #@45 Return a string of the timestamp for GROUP. (defalias 'gnus-group-timestamp-string #[(group) "ﾁﾂﾃ#)ﾅ\fﾆﾇ\f\"))" [group gnus-group-get-parameter timestamp t time "" format-time-string "%Y%m%dT%H%M%S"] 5 (#$ . 94763)]) (provide (quote gnus-group))