;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:07 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-sum.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

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


(byte-code "\300\301!\204
\302\301\303\304B\"\210\305\306!\210\305\307!\210\305\310!\210\305\311!\210\305\312!\210\305\313!\210\305\314!\210\305\315!\210\305\316!\210\305\317!\210\320\321\322\323\324$\210\320\325\322\"\210\320\326\327\323\324$\210\320\330\327\323\324$\210\320\331\332\323\324$\210\320\333\334\"\207" [fboundp declare-function defalias macro #[(&rest r) "\300\207" [nil] 1] require gnus gnus-group gnus-spec gnus-range gnus-int gnus-undo gnus-util gmm-utils mm-decode nnoo autoload gnus-summary-limit-include-cached "gnus-cache" nil t gnus-cache-write-active gnus-mailing-list-insinuate "gnus-ml" turn-on-gnus-mailing-list-mode gnus-pick-line-number "gnus-salt" mm-uu-dissect "mm-uu"] 5)
#@59 Deuglify broken Outlook (Express) articles and redisplay.
(autoload 'gnus-article-outlook-deuglify-article "deuglify" '(#$ . 1261) t)
(byte-code "\300\301\302\303\304$\210\300\305\302\303\304$\210\300\306\302\303\304$\210\300\307\310\303\211\311%\210\300\312\310\303\211\311%\210\313\314\304\315\316\317\320\321&\210\313\322\304\323\324\325\316\317\326\327\320\321&\210\313\330\303\331\324\332\316\333\326\334\320\321&\210\313\335\303\336\316\337\320\340&\210\313\341\342\343\316\337\320\344&\210\313\345\303\346\326\334\316\337\320\321&	\210\313\347\350\351\316\337\320\352&\210\313\353\303\354\326\355\316\337\320\321&	\210\313\356\357\360\316\337\320\361&\210\313\362\303\363\316\337\320\364&\210\313\365\303\366\316\337\320\367&\210\313\370\303\371\316\337\320\372&\210\313\373\303\374\316\337\320\375&\210\313\376\377\201@\316\337\320\201A&\210\313\201B\201C\201D\316\201E\320\201F&\210\313\201G\303\201H\326\334\316\201I\324\201J\320\201K&\210\313\201L\201M\201N\316\201O\320\201P&\210\313\201Q\201M\201R\326\355\316\201O\320\201S&	\210\313\201T\201M\201U\326\355\316\201O\320\201S&	\210\313\201V\201M\201W\316\201E\320\201S&\210\313\201X\303\201Y\316\337\320\201Z&\210\313\201[\304\201\\\316\337\320\321&\210\313\201]\303\201^\316\337\320\201_&\210\313\201`\304\201a\316\337\320\321&\210\313\201b\304\201c\316\337\320\321&\210\313\201d\304\201e\316\337\320\201f&\210\313\201g\201h\201i\316\337\320\201S&\210\313\201j\304\201k\316\201l\320\321&\210\313\201m\304\201n\316\201o\320\201p&\210\313\201q\201r\201s\326\334\316\201o\320\201t&	\210\313\201u\304\201v\316\333\320\201w&\210\313\201x\303\201y\316\333\320\321&\210\313\201z\201{\201|\326\327\316\333\320\201}&	\210\313\201~\201\201\200\326\355\316\333\320\201\201&	\210\313\201\202\303\201\203\316\333\320\321&\210\313\201\204\201\205\201\206\316\333\320\201\207&\210\313\201\210\304\201\211\316\333\320\321&\210\313\201\212\303\201\213\316\201\214\316\201\215\320\321&	\210\313\201\216\303\201\217\316\201\220\320\321&\210\313\201\221\303\201\222\326\334\316\201\223\320\321&	\210\313\201\224\303\201\225\326\334\316\201\223\320\321&	\210\313\201\226\304\201\227\316\201\223\320\321&\210\313\201\230\303\201\231\316\201\232\320\201\233&\210\313\201\234\201\235\201\236\316\201\232\320\201\237&\210\313\201\240\201\241\201\242\316\201I\320\201\243&\210\313\201\244\201\245\201\246\316\201I\320\201\243&\210\313\201\247\201\250\201\251\316\201I\320\201\243&\210\313\201\252\201\253\201\254\316\201I\320\201\243&\210\313\201\255\201\256\201\257\316\201I\320\201\243&\210\313\201\260\201\261\201\262\316\201I\320\201\243&\210\313\201\263\201\264\201\265\316\201I\320\201\243&\210\313\201\266\201\267\201\270\326\355\316\201I\320\201\243&	\210\313\201\271\201\272\201\273\316\201I\320\201\243&\210\313\201\274\201\275\201\276\316\201I\320\201\243&\210\313\201\277\201\300\201\301\316\201I\320\201\243&\210\313\201\302\201\303\201\304\316\201I\320\201\243&\210\313\201\305\201\306\201\307\326\355\316\201I\320\201\243&	\210\313\201\310\201\311\201\312\326\355\316\201I\320\201\243&	\210\313\201\313\201\314\201\315\316\201I\320\201\243&\210\313\201\316\201\317\201\320\316\201I\320\201\243&\210\313\201\321\201\322\201\323\326\355\316\201I\320\201\243&	\210\313\201\324\201\241\201\325\326\355\316\201I\320\201\243&	\210\313\201\326\201\327\201\330\316\201I\320\201\243&\210\313\201\331\201\332\201\333\316\201I\320\201\243&\210\313\201\334\201\335\201\336\316\201I\320\201\243&\210\313\201\337\201\340\201\341\316\201I\320\201\243&\210\313\201\342\201\343\201\344\326\355\316\201I\320\201\243&	\210\313\201\345\201\346\201\347\316\201I\320\201\243&\210\313\201\350\201\351\201\352\316\201I\320\201\243&\210\313\201\353\201\354\201\355\316\201I\320\201\243&\210\313\201\356\201\346\201\357\316\201I\320\201\243&\210\313\201\360\201\343\201\361\316\201I\320\201\243&\210\313\201\362\201\241\201\363\316\201I\320\201\243&\210\313\201\364\201\354\201\365\316\201I\320\201\243&\210\313\201\366\303\201\367\316\201\370\320\321&\210\313\201\371\201\372\201\373\326\334\316\201\220\320\201\374&	\210\313\201\375\304\201\376\326\201\377\316\201\220\320\321&	\210\313\201
\303\201

\326\201
\320\321\316\201I&	\210\313\201
\303\201
\316\201\370\320\201
&\210\313\201
\304\201
\316\201\370\320\321&\210\313\201
\304\201	
\316\201\370\320\321&\210\313\201\n
\201
\201\f
\324\201

\316\201
\320\201F&	\210\313\201
\201
\201
\316\201E\320\201F&\210\313\201
\303\201
\326\201\377\316\201E\316\201\214\320\201
&\210\313\201
\201M\201
\316\201O\320\201S&\207" [autoload gnus-article-outlook-unwrap-lines "deuglify" nil t gnus-article-outlook-repair-attribution gnus-article-outlook-rearrange-citation nnir-article-rsv "nnir" macro nnir-article-group custom-declare-variable gnus-kill-summary-on-exit "*If non-nil, kill the summary buffer when you exit from it.\nIf nil, the summary will become a \"*Dead Summary*\" buffer, and\nit will be killed sometime later." :group gnus-summary-exit :type boolean gnus-summary-next-group-on-exit "If non-nil, go to the next unread newsgroup on summary exit.\nSee `gnus-group-goto-unread'." :link (custom-manual "(gnus)Group Maneuvering") :version "23.1" gnus-summary-stop-at-end-of-message "If non-nil, don't select the next message when using `SPC'." (custom-manual "(gnus)Group Maneuvering") gnus-summary-maneuvering "24.1" gnus-fetch-old-headers "*Non-nil means that Gnus will try to build threads by grabbing old headers.\nIf an unread article in the group refers to an older, already\nread (or just marked as read) article, the old article will not\nnormally be displayed in the Summary buffer.  If this variable is\nt, Gnus will attempt to grab the headers to the old articles, and\nthereby build complete threads.  If it has the value `some', all\nold headers will be fetched but only enough headers to connect\notherwise loose threads will be displayed.  This variable can\nalso be a number.  In that case, no more than that number of old\nheaders will be fetched.  If it has the value `invisible', all\nold headers will be fetched, but none will be displayed.\n\nThe server has to support NOV for any of this to work.\n\nThis feature can seriously impact performance it ignores all\nlocally cached header entries.  Setting it to t for groups for a\nserver that doesn't expire articles (such as news.gmane.org),\nleads to very slow summary generation." gnus-thread (choice (const :tag "off" nil) (const :tag "on" t) (const some) (const invisible) number (sexp :menu-tag "other" t)) gnus-refer-thread-limit 500 "*The number of old headers to fetch when doing \\<gnus-summary-mode-map>\\[gnus-summary-refer-thread].\nIf t, fetch all the available old headers." (choice number (sexp :menu-tag "other" t)) gnus-refer-thread-use-nnir "*Use nnir to search an entire server when referring threads. A\nnil value will only search for thread-related articles in the\ncurrent group." gnus-summary-make-false-root 'adopt "*nil means that Gnus won't gather loose threads.\nIf the root of a thread has expired or been read in a previous\nsession, the information necessary to build a complete thread has been\nlost.  Instead of having many small sub-threads from this original thread\nscattered all over the summary buffer, Gnus can gather them.\n\nIf non-nil, Gnus will try to gather all loose sub-threads from an\noriginal thread into one large thread.\n\nIf this variable is non-nil, it should be one of `none', `adopt',\n`dummy' or `empty'.\n\nIf this variable is `none', Gnus will not make a false root, but just\npresent the sub-threads after another.\nIf this variable is `dummy', Gnus will create a dummy root that will\nhave all the sub-threads as children.\nIf this variable is `adopt', Gnus will make one of the \"children\"\nthe parent and mark all the step-children as such.\nIf this variable is `empty', the \"children\" are printed with empty\nsubject fields.  (Or rather, they will be printed with a string\ngiven by the `gnus-summary-same-subject' variable.)" (choice (const :tag "off" nil) (const none) (const dummy) (const adopt) (const empty)) gnus-summary-make-false-root-always "Always make a false dummy root." "22.1" gnus-summary-gather-exclude-subject "^ *$\\|^(none)$" "*A regexp to match subjects to be excluded from loose thread gathering.\nAs loose thread gathering is done on subjects only, that means that\nthere can be many false gatherings performed.  By rooting out certain\ncommon subjects, gathering might become saner." regexp gnus-summary-gather-subject-limit "*Maximum length of subject comparisons when gathering loose threads.\nUse nil to compare full subjects.  Setting this variable to a low\nnumber will help gather threads that have been corrupted by\nnewsreaders chopping off subject lines, but it might also mean that\nunrelated articles that have subject that happen to begin with the\nsame few characters will be incorrectly gathered.\n\nIf this variable is `fuzzy', Gnus will use a fuzzy algorithm when\ncomparing subjects." (choice (const :tag "off" nil) (const fuzzy) (sexp :menu-tag "on" t)) gnus-simplify-subject-functions "List of functions taking a string argument that simplify subjects.\nThe functions are applied recursively.\n\nUseful functions to put in this list include:\n`gnus-simplify-subject-re', `gnus-simplify-subject-fuzzy',\n`gnus-simplify-whitespace', and `gnus-simplify-all-whitespace'." (repeat function) gnus-simplify-ignored-prefixes "*Remove matches for this regexp from subject lines when simplifying fuzzily." (choice (const :tag "off" nil) regexp) gnus-build-sparse-threads "*If non-nil, fill in the gaps in threads.\nIf `some', only fill in the gaps that are needed to tie loose threads\ntogether.  If `more', fill in all leaf nodes that Gnus can find.  If\nnon-nil and non-`some', fill in all gaps that Gnus manages to guess." (choice (const :tag "off" nil) (const some) (const more) (sexp :menu-tag "all" t)) gnus-summary-thread-gathering-function 'gnus-gather-threads-by-subject "*Function used for gathering loose threads.\nThere are two pre-defined functions: `gnus-gather-threads-by-subject',\nwhich only takes Subjects into consideration; and\n`gnus-gather-threads-by-references', which compared the References\nheaders of the articles to find matches." (radio (function-item gnus-gather-threads-by-subject) (function-item gnus-gather-threads-by-references) (function :tag "other")) gnus-summary-same-subject #1="" "*String indicating that the current article has the same subject as the previous.\nThis variable will only be used if the value of\n`gnus-summary-make-false-root' is `empty'." gnus-summary-format string gnus-summary-goto-unread "*If t, many commands will go to the next unread article.\nThis applies to marking commands as well as other commands that\n\"naturally\" select the next article, like, for instance, `SPC' at\nthe end of an article.\n\nIf nil, the marking commands do NOT go to the next unread article\n(they go to the next article instead).  If `never', commands that\nusually go to the next unread article, will go to the next article,\nwhether it is read or not." gnus-summary-marks (custom-manual "(gnus)Setting Marks") (choice (const :tag "off" nil) (const never) (sexp :menu-tag "on" t)) gnus-summary-default-score 0 "*Default article score level.\nAll scores generated by the score files will be added to this score.\nIf this variable is nil, scoring will be disabled." gnus-score-default (choice (const :tag "disable") integer) gnus-summary-default-high-score "*Default threshold for a high scored article.\nAn article will be highlighted as high scored if its score is greater\nthan this score." integer gnus-summary-default-low-score "*Default threshold for a low scored article.\nAn article will be highlighted as low scored if its score is smaller\nthan this score." gnus-summary-zcore-fuzz "*Fuzziness factor for the zcore in the summary buffer.\nArticles with scores closer than this to `gnus-summary-default-score'\nwill not be marked." gnus-simplify-subject-fuzzy-regexp "*Strings to be removed when doing fuzzy matches.\nThis can either be a regular expression or list of regular expressions\nthat will be removed from subject strings if fuzzy subject\nsimplification is selected." (repeat regexp) gnus-show-threads "*If non-nil, display threads in summary mode." gnus-thread-hide-subtree "*If non-nil, hide all threads initially.\nThis can be a predicate specifier which says which threads to hide.\nIf threads are hidden, you have to run the command\n`gnus-summary-show-thread' by hand or select an article." (radio (sexp :format "Non-nil\n" :match (lambda (widget value) (not (or (consp value) (functionp value)))) :value t) (const nil) (sexp :tag "Predicate specifier")) gnus-thread-hide-killed "*If non-nil, hide killed threads automatically." gnus-thread-ignore-subject "*If non-nil, which is the default, ignore subjects and do all threading based on the Reference header.\nIf nil, articles that have different subjects from their parents will\nstart separate threads." gnus-thread-operation-ignore-subject "*If non-nil, subjects will be ignored when doing thread commands.\nThis affects commands like `gnus-summary-kill-thread' and\n`gnus-summary-lower-thread'.\n\nIf this variable is nil, articles in the same thread with different\nsubjects will not be included in the operation in question.  If this\nvariable is `fuzzy', only articles that have subjects that are fuzzily\nequal will be included." (choice (const :tag "off" nil) (const fuzzy) (sexp :tag "on" t)) gnus-thread-indent-level 4 "*Number that says how much each sub-thread should be indented." gnus-auto-extend-newsgroup "*If non-nil, extend newsgroup forward and backward when requested." gnus-summary-choose gnus-auto-select-first "If non-nil, select an article on group entry.\nAn article is selected automatically when entering a group\ne.g. with \\<gnus-group-mode-map>\\[gnus-group-read-group], or via `gnus-summary-next-page' or\n`gnus-summary-catchup-and-goto-next-group'.\n\nWhich article is selected is controlled by the variable\n`gnus-auto-select-subject'.\n\nIf you want to prevent automatic selection of articles in some\nnewsgroups, set the variable to nil in `gnus-select-group-hook'." gnus-group-select (choice (const :tag "none" nil) (sexp :menu-tag "first" t)) gnus-auto-select-subject 'unseen-or-unread "*Says what subject to place under point when entering a group.\n\nThis variable can either be the symbols `first' (place point on the\nfirst subject), `unread' (place point on the subject line of the first\nunread article), `best' (place point on the subject line of the\nhighest-scored article), `unseen' (place point on the subject line of\nthe first unseen article), `unseen-or-unread' (place point on the subject\nline of the first unseen article or, if all articles have been seen, on the\nsubject line of the first unread article), or a function to be called to\nplace point on some subject line." (choice (const best) (const unread) (const first) (const unseen) (const unseen-or-unread) (function :tag "Function to call")) gnus-auto-select-next "*If non-nil, offer to go to the next group from the end of the previous.\nIf the value is t and the next newsgroup is empty, Gnus will exit\nsummary mode and go back to group mode.  If the value is neither nil\nnor t, Gnus will select the following unread newsgroup.  In\nparticular, if the value is the symbol `quietly', the next unread\nnewsgroup will be selected without any confirmation, and if it is\n`almost-quietly', the next group will be selected without any\nconfirmation if you are located on the last article in the group.\nFinally, if this variable is `slightly-quietly', the `\\<gnus-summary-mode-map>\\[gnus-summary-catchup-and-goto-next-group]' command\nwill go to the next group without confirmation." (choice (const :tag "off" nil) (const quietly) (const almost-quietly) (const slightly-quietly) (sexp :menu-tag "on" t)) gnus-auto-select-same "*If non-nil, select the next article with the same subject.\nIf there are no more articles with the same subject, go to\nthe first unread article." gnus-auto-select-on-ephemeral-exit 'next-noselect "What article should be selected after exiting an ephemeral group.\nValid values include:\n\n`next'\n  Select the next article.\n`next-unread'\n  Select the next unread article.\n`next-noselect'\n  Move the cursor to the next article.  This is the default.\n`next-unread-noselect'\n  Move the cursor to the next unread article.\n\nIf it has any other value or there is no next (unread) article, the\narticle selected before entering to the ephemeral group will appear." (choice :format "%{%t%}:\n %[Value Menu%] %v" (const next) (const next-unread) (const next-noselect) (const next-unread-noselect) (sexp :tag "other" :value nil)) gnus-auto-goto-ignores 'unfetched "*Says how to handle unfetched articles when maneuvering.\n\nThis variable can either be the symbols nil (maneuver to any\narticle), `undownloaded' (maneuvering while unplugged ignores articles\nthat have not been fetched), `always-undownloaded' (maneuvering always\nignores articles that have not been fetched), `unfetched' (maneuvering\nignores articles whose headers have not been fetched).\n\nNOTE: The list of unfetched articles will always be nil when plugged\nand, when unplugged, a subset of the undownloaded article list." (choice (const :tag "None" nil) (const :tag "Undownloaded when unplugged" undownloaded) (const :tag "Undownloaded" always-undownloaded) (const :tag "Unfetched" unfetched)) gnus-summary-check-current "*If non-nil, consider the current article when moving.\nThe \"unread\" movement commands will stay on the same line if the\ncurrent article is unread." gnus-auto-center-summary (max (or (bound-and-true-p scroll-margin) 0) 2) "*If non-nil, always center the current summary buffer.\nIn particular, if `vertical' do only vertical recentering.  If non-nil\nand non-`vertical', do both horizontal and vertical recentering." (choice (const :tag "none" nil) (const vertical) (integer :tag "height") (sexp :menu-tag "both" t)) gnus-auto-center-group "If non-nil, always center the group buffer." gnus-show-all-headers "*If non-nil, don't hide any headers." gnus-article-hiding gnus-article-headers gnus-summary-ignore-duplicates "*If non-nil, ignore articles with identical Message-ID headers." gnus-summary gnus-single-article-buffer "*If non-nil, display all articles in the same buffer.\nIf nil, each group will get its own article buffer." gnus-article-various gnus-widen-article-window "If non-nil, selecting the article buffer will display only the article buffer." gnus-break-pages "*If non-nil, do page breaking on articles.\nThe page delimiter is specified by the `gnus-page-delimiter'\nvariable." gnus-move-split-methods "*Variable used to suggest where articles are to be moved to.\nIt uses the same syntax as the `gnus-split-methods' variable.\nHowever, whereas `gnus-split-methods' specifies file names as targets,\nthis variable specifies group names." gnus-summary-mail (repeat (choice (list :value (fun) function) (cons :value (#1# #1#) regexp (repeat string)) (sexp :value nil))) gnus-move-group-prefix-function 'gnus-group-real-prefix "Function used to compute default prefix for article move/copy/etc prompts.\nThe function should take one argument, a group name, and return a\nstring with the suggested prefix." function gnus-unread-mark 32 "*Mark used for unread articles." character gnus-ticked-mark 33 "*Mark used for ticked articles." gnus-dormant-mark 63 "*Mark used for dormant articles." gnus-del-mark 114 "*Mark used for del'd articles." gnus-read-mark 82 "*Mark used for read articles." gnus-expirable-mark 69 "*Mark used for expirable articles." gnus-killed-mark 75 "*Mark used for killed articles." gnus-spam-mark 36 "*Mark used for spam articles." gnus-kill-file-mark 88 "*Mark used for articles killed by kill files." gnus-low-score-mark 89 "*Mark used for articles with a low score." gnus-catchup-mark 67 "*Mark used for articles that are caught up." gnus-replied-mark 65 "*Mark used for articles that have been replied to." gnus-forwarded-mark 70 "*Mark used for articles that have been forwarded." gnus-recent-mark 78 "*Mark used for articles that are recent." gnus-cached-mark 42 "*Mark used for articles that are in the cache." gnus-saved-mark 83 "*Mark used for articles that have been saved." gnus-unseen-mark 46 "*Mark used for articles that haven't been seen." gnus-no-mark "*Mark used for articles that have no other secondary mark." gnus-ancient-mark 79 "*Mark used for ancient articles." gnus-sparse-mark 81 "*Mark used for sparsely reffed articles." gnus-canceled-mark 71 "*Mark used for canceled articles." gnus-duplicate-mark 77 "*Mark used for duplicate articles." gnus-undownloaded-mark 45 "*Mark used for articles that weren't downloaded." gnus-downloaded-mark 43 "*Mark used for articles that were downloaded." gnus-downloadable-mark 37 "*Mark used for articles that are to be downloaded." gnus-unsendable-mark 61 "*Mark used for articles that won't be sent." gnus-score-over-mark "*Score mark used for articles with high scores." gnus-score-below-mark "*Score mark used for articles with low scores." gnus-empty-thread-mark "*There is no thread under the article." gnus-not-empty-thread-mark "*There is a thread under the article." gnus-view-pseudo-asynchronously "*If non-nil, Gnus will view pseudo-articles asynchronously." gnus-extract-view gnus-auto-expirable-marks (list gnus-killed-mark gnus-del-mark gnus-catchup-mark gnus-low-score-mark gnus-ancient-mark gnus-read-mark gnus-duplicate-mark) "*The list of marks converted into expiration if a group is auto-expirable." (repeat character) gnus-inhibit-user-auto-expire "*If non-nil, user marking commands will not mark an article as expirable, even if the group has auto-expire turned on." "21.1" gnus-mark-copied-or-moved-articles-as-expirable "If non-nil, mark articles copied or moved to auto-expire group as expirable.\nIf nil, the expirable marks will be unchanged except that the marks\nwill be removed when copying or moving articles to a group that has\nnot turned auto-expire on.  If non-nil, articles that have been read\nwill be marked as expirable when being copied or moved to a group in\nwhich auto-expire is turned on." "23.2" gnus-view-pseudos "*If `automatic', pseudo-articles will be viewed automatically.\nIf `not-confirm', pseudos will be viewed automatically, and the user\nwill not be asked to confirm the command." (choice (const :tag "off" nil) (const automatic) (const not-confirm)) gnus-view-pseudos-separately "*If non-nil, one pseudo-article will be created for each file to be viewed.\nIf nil, all files that use the same viewing command will be given as a\nlist of parameters to that command." gnus-insert-pseudo-articles "*If non-nil, insert pseudo-articles when decoding articles." gnus-summary-dummy-line-format "   %(:                             :%) %S\n" "*The format specification for the dummy roots in the summary buffer.\nIt works along the same lines as a normal formatting string,\nwith some simple extensions.\n\n%S  The subject\n\nGeneral format specifiers can also be used.\nSee `(gnus)Formatting Variables'." (custom-manual "(gnus)Formatting Variables") gnus-threading gnus-summary-mode-line-format "Gnus: %g [%A] %Z" "*The format specification for the summary mode line.\nIt works along the same lines as a normal formatting string,\nwith some simple extensions:\n\n%G  Group name\n%p  Unprefixed group name\n%A  Current article number\n%z  Current article score\n%V  Gnus version\n%U  Number of unread articles in the group\n%e  Number of unselected articles in the group\n%Z  A string with unread/unselected article counts\n%g  Shortish group name\n%S  Subject of the current article\n%u  User-defined spec\n%s  Current score file name\n%d  Number of dormant articles\n%r  Number of articles that have been marked as read in this session\n%E  Number of articles expunged by the score files" gnus-list-identifiers "Regexp that matches list identifiers to be removed from subject.\nThis can also be a list of regexps." (choice (const :tag "none" nil) (regexp :value ".*") (repeat :value (".*") regexp)) gnus-summary-mark-below "*Mark all articles with a score below this variable as read.\nThis variable is local to each summary buffer and usually set by the\nscore file."] 12)
#@123 Ignoring WIDGET, convert VALUE to internal form.
VALUE should have the form `FOO' or `(not FOO)', where FOO is an symbol.
(defalias 'gnus-widget-reversible-match #[(widget value) "9\206<\205G\301=\205@\302=\205A@9\207" [value 2 not] 2 (#$ . 25973)])
#@190 Ignoring WIDGET, convert VALUE to internal form.
VALUE should have the form `FOO' or `(not FOO)', where FOO is an atom.
FOO is converted to (FOO nil) and (not FOO) is converted to (FOO t).
(defalias 'gnus-widget-reversible-to-internal #[(widget value) ":\204	\301D\207A@\302D\207" [value nil t] 2 (#$ . 26243)])
#@195 Ignoring WIDGET, convert VALUE to external form.
VALUE should have the form `(FOO nil)' or `(FOO t)', where FOO is an atom.
(FOO  nil) is converted to FOO and (FOO t) is converted to (not FOO).
(defalias 'gnus-widget-reversible-to-external #[(widget value) "A@\203\301@D\207@\207" [value not] 2 (#$ . 26566)])
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\312\313\314\315\316\317\320\321&\210\312\322\323\324\316\317\320\325&\210\312\326\327\330\316\317\320\331&\210\312\332\333\334\316\335\320\336&\210\312\337\333\340\316\341\316\335\320\342&	\210\312\343\333\344\345\346\316\347\320\350&	\210\312\351\333\352\316\353\320\350&\210\312\354\333\355\316\356\320\350&\210\312\357\333\360\316\347\320\350&\210\312\361\333\362\316\347\320\350&\210\312\363\333\364\316\347\320\350&\210\312\365\333\366\316\367\320\350&\210\312\370\333\371\316\372\345\373\320\350&	\210\312\374\375\376\316\353\320\350&\210\312\377\333\201@\316\201A\320\350&\210\312\201B\333\201C\316\201A\320\350&\210\312\201D\333\201E\316\353\320\350&\210\312\201F\201G\201H\316\372\320\350&\210\312\201I\333\201J\316\367\320\350&\210\312\201K\333\201L\316\201M\320\350&\210\312\201N\333\201O\201P\201Q\316\201M\320\350&	\210\312\201R\333\201S\201P\201Q\316\201M\320\350&	\210\312\201T\333\201U\201P\201Q\316\201M\320\350&	\210\312\201V\201W\201X\201P\201Q\316\201M\320\201Y&	\210\312\201Z\201[\201\\\316\353\320\201]&\207" [define-widget gnus-widget-reversible group "A `group' that convert values." :match gnus-widget-reversible-match :value-to-internal gnus-widget-reversible-to-internal :value-to-external gnus-widget-reversible-to-external custom-declare-variable gnus-article-sort-functions '(gnus-article-sort-by-number) "*List of functions used for sorting articles in the summary buffer.\n\nEach function takes two articles and returns non-nil if the first\narticle should be sorted before the other.  If you use more than one\nfunction, the primary sort function should be the last.  You should\nprobably always include `gnus-article-sort-by-number' in the list of\nsorting functions -- preferably first.  Also note that sorting by date\nis often much slower than sorting by number, and the sorting order is\nvery similar.  (Sorting by date means sorting by the time the message\nwas sent, sorting by number means sorting by arrival time.)\n\nEach item can also be a list `(not F)' where F is a function;\nthis reverses the sort order.\n\nReady-made functions include `gnus-article-sort-by-number',\n`gnus-article-sort-by-author', `gnus-article-sort-by-subject',\n`gnus-article-sort-by-date', `gnus-article-sort-by-random'\nand `gnus-article-sort-by-score'.\n\nWhen threading is turned on, the variable `gnus-thread-sort-functions'\ncontrols how articles are sorted." :group gnus-summary-sort :type (repeat (gnus-widget-reversible (choice (function-item gnus-article-sort-by-number) (function-item gnus-article-sort-by-author) (function-item gnus-article-sort-by-subject) (function-item gnus-article-sort-by-date) (function-item gnus-article-sort-by-score) (function-item gnus-article-sort-by-random) (function :tag "other")) (boolean :tag "Reverse order"))) gnus-thread-sort-functions '(gnus-thread-sort-by-number) "*List of functions used for sorting threads in the summary buffer.\nBy default, threads are sorted by article number.\n\nEach function takes two threads and returns non-nil if the first\nthread should be sorted before the other.  If you use more than one\nfunction, the primary sort function should be the last.  You should\nprobably always include `gnus-thread-sort-by-number' in the list of\nsorting functions -- preferably first.  Also note that sorting by date\nis often much slower than sorting by number, and the sorting order is\nvery similar.  (Sorting by date means sorting by the time the message\nwas sent, sorting by number means sorting by arrival time.)\n\nEach list item can also be a list `(not F)' where F is a\nfunction; this specifies reversed sort order.\n\nReady-made functions include `gnus-thread-sort-by-number',\n`gnus-thread-sort-by-author', `gnus-thread-sort-by-recipient'\n`gnus-thread-sort-by-subject', `gnus-thread-sort-by-date',\n`gnus-thread-sort-by-score', `gnus-thread-sort-by-most-recent-number',\n`gnus-thread-sort-by-most-recent-date', `gnus-thread-sort-by-random',\nand `gnus-thread-sort-by-total-score' (see\n`gnus-thread-score-function').\n\nWhen threading is turned off, the variable\n`gnus-article-sort-functions' controls how articles are sorted." (repeat (gnus-widget-reversible (choice (function-item gnus-thread-sort-by-number) (function-item gnus-thread-sort-by-author) (function-item gnus-thread-sort-by-recipient) (function-item gnus-thread-sort-by-subject) (function-item gnus-thread-sort-by-date) (function-item gnus-thread-sort-by-score) (function-item gnus-thread-sort-by-most-recent-number) (function-item gnus-thread-sort-by-most-recent-date) (function-item gnus-thread-sort-by-random) (function-item gnus-thread-sort-by-total-score) (function :tag "other")) (boolean :tag "Reverse order"))) gnus-thread-score-function '+ "*Function used for calculating the total score of a thread.\n\nThe function is called with the scores of the article and each\nsubthread and should then return the score of the thread.\n\nSome functions you can use are `+', `max', or `min'." function gnus-summary-expunge-below nil "All articles that have a score less than this variable will be expunged.\nThis variable is local to the summary buffers." gnus-score-default (choice (const :tag "off" nil) integer) gnus-thread-expunge-below "All threads that have a total score less than this variable will be expunged.\nSee `gnus-thread-score-function' for en explanation of what a\n\"thread score\" is.\n\nThis variable is local to the summary buffers." gnus-threading (choice (const :tag "off" nil) integer) gnus-summary-mode-hook "*A hook for Gnus summary mode.\nThis hook is run before any variables are set in the summary buffer." :options (turn-on-gnus-mailing-list-mode gnus-pick-mode) gnus-summary-various hook gnus-summary-menu-hook "*Hook run after the creation of the summary mode menu." gnus-summary-visual gnus-summary-exit-hook "*A hook called on exit from the summary buffer.\nIt will be called with point in the group buffer." gnus-summary-exit gnus-summary-prepare-hook "*A hook called after the summary buffer has been generated.\nIf you want to modify the summary buffer, you can use this hook." gnus-summary-prepared-hook "*A hook called as the last thing after the summary buffer has been generated." gnus-summary-generate-hook "*A hook run just before generating the summary buffer.\nThis hook is commonly used to customize threading variables and the\nlike." gnus-select-group-hook "*A hook called when a newsgroup is selected.\n\nIf you'd like to simplify subjects like the\n`gnus-summary-next-same-subject' command does, you can use the\nfollowing hook:\n\n (add-hook gnus-select-group-hook\n	   (lambda ()\n	     (mapcar (lambda (header)\n		       (mail-header-set-subject\n			header\n			(gnus-simplify-subject\n			 (mail-header-subject header) 're-only)))\n		     gnus-newsgroup-headers)))" gnus-group-select gnus-select-article-hook "*A hook called when an article is selected." gnus-summary-choose (gnus-agent-fetch-selected-article) gnus-visual-mark-article-hook (list 'gnus-highlight-selected-summary) "*Hook run after selecting an article in the summary buffer.\nIt is meant to be used for highlighting the article in some way.  It\nis not run if `gnus-visual' is nil." gnus-parse-headers-hook "*A hook called before parsing the headers." gnus-various gnus-exit-group-hook "*A hook called when exiting summary mode.\nThis hook is not called from the non-updating exit commands like `Q'." gnus-summary-update-hook "*A hook called when a summary line is changed.\nThe hook will not be called if `gnus-visual' is nil.\n\nThe default function `gnus-summary-highlight-line' will\nhighlight the line according to the `gnus-summary-highlight'\nvariable." gnus-mark-article-hook '(gnus-summary-mark-read-and-unread-as-read) "*A hook called when an article is selected for the first time.\nThe hook is intended to mark an article as read (or unread)\nautomatically when it is selected." gnus-group-no-more-groups-hook "*A hook run when returning to group mode having no more (unread) groups." gnus-ps-print-hook "*A hook run before ps-printing something from Gnus." gnus-summary gnus-summary-article-move-hook "*A hook called after an article is moved, copied, respooled, or crossposted." :version "22.1" gnus-summary-article-delete-hook "*A hook called after an article is deleted." gnus-summary-article-expire-hook "*A hook called after an article is expired." gnus-summary-display-arrow (and (fboundp 'display-graphic-p) (display-graphic-p)) "*If non-nil, display an arrow highlighting the current article." boolean gnus-summary-selected-face 'gnus-summary-selected "Face used for highlighting the current article in the summary buffer." face] 10)
(defvar gnus-tmp-downloaded nil)
(byte-code "\300\301\302\303\304\305\306\307&\210\310\301\311\312#\210\300\313\314\315\306\316\304\317&\207" [custom-declare-variable gnus-summary-highlight '(((eq mark gnus-canceled-mark) . gnus-summary-cancelled) ((and uncached (> score default-high)) . gnus-summary-high-undownloaded) ((and uncached (< score default-low)) . gnus-summary-low-undownloaded) (uncached . gnus-summary-normal-undownloaded) ((and (> score default-high) (or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark))) . gnus-summary-high-ticked) ((and (< score default-low) (or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark))) . gnus-summary-low-ticked) ((or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark)) . gnus-summary-normal-ticked) ((and (> score default-high) (eq mark gnus-ancient-mark)) . gnus-summary-high-ancient) ((and (< score default-low) (eq mark gnus-ancient-mark)) . gnus-summary-low-ancient) ((eq mark gnus-ancient-mark) . gnus-summary-normal-ancient) ((and (> score default-high) (eq mark gnus-unread-mark)) . gnus-summary-high-unread) ((and (< score default-low) (eq mark gnus-unread-mark)) . gnus-summary-low-unread) ((eq mark gnus-unread-mark) . gnus-summary-normal-unread) ((> score default-high) . gnus-summary-high-read) ((< score default-low) . gnus-summary-low-read) (t . gnus-summary-normal-read)) "*Controls the highlighting of summary buffer lines.\n\nA list of (FORM . FACE) pairs.  When deciding how a particular\nsummary line should be displayed, each form is evaluated.  The content\nof the face field after the first true form is used.  You can change\nhow those summary lines are displayed, by editing the face field.\n\nYou can use the following variables in the FORM field.\n\nscore:        The article's score.\ndefault:      The default article score.\ndefault-high: The default score for high scored articles.\ndefault-low:  The default score for low scored articles.\nbelow:        The score below which articles are automatically marked as read.\nmark:         The article's mark.\nuncached:     Non-nil if the article is uncached." :group gnus-summary-visual :type (repeat (cons (sexp :tag "Form" nil) face)) put risky-local-variable t gnus-alter-header-function nil "Function called to allow alteration of article header structures.\nThe function is called with one parameter, the article header vector,\nwhich it may alter in any way." (choice (const :tag "None" nil) function) gnus-summary] 8)
#@54 Function used to decode a string with encoded words.
(defvar gnus-decode-encoded-word-function 'mail-decode-encoded-word-string (#$ . 38109))
#@55 Function used to decode addresses with encoded words.
(defvar gnus-decode-encoded-address-function 'mail-decode-encoded-address-string (#$ . 38257))
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\313\314\304\315\306\307\310\316&	\207" [custom-declare-variable gnus-extra-headers '(To Cc Keywords Gcc Newsgroups) "*Extra headers to parse." :version "24.1" :group gnus-summary :type (repeat symbol) gnus-ignored-from-addresses (and user-mail-address (not (string= user-mail-address "")) (regexp-quote user-mail-address)) "*From headers that may be suppressed in favor of To headers.\nThis can be a regexp or a list of regexps." "21.1" (choice regexp (repeat :tag "Regexp List" regexp))] 10)
(defalias 'gnus-ignored-from-addresses #[nil "\301!\207" [gnus-ignored-from-addresses gmm-regexp-concat] 2])
(byte-code "\301\302\303\304#\210\305\306\307\310\311\312\313\314\315\316&	\210\305\317\320\321\311\312\313\314\315\316&	\210\305\322\323\324\311\325\315\326\313\327&	\210\305\330\331\332\313\333\311\334\315\335&	\210\305\336\337\340\313\341\313\327\315\342&	\210\343\344\236\"\345\300\344\346\347E\"\207" [gnus-group-parameters-more put gnus-ignored-from-addresses byte-optimizer byte-compile-inline-expand custom-declare-variable gnus-summary-to-prefix "-> " "*String prefixed to the To field in the summary line when\nusing `gnus-ignored-from-addresses'." :version "22.1" :group gnus-summary :type string gnus-summary-newsgroup-prefix "=> " "*String prefixed to the Newsgroup field in the summary\nline when using `gnus-ignored-from-addresses'." gnus-newsgroup-ignored-charsets '(unknown-8bit x-unknown) "List of charsets that should be ignored.\nWhen these charsets are used in the \"charset\" parameter, the\ndefault charset will be used instead." "21.1" (repeat symbol) gnus-charset gnus-newsgroup-maximum-articles nil "The maximum number of articles a newsgroup.\nIf this is a number, old articles in a newsgroup exceeding this number\nare silently ignored.  If it is nil, no article is ignored.  Note that\nsetting this variable to a number might prevent you from reading very\nold articles." gnus-group-select "22.2" (choice (const :tag "No limit" nil) integer) gnus-group-ignored-charsets-alist '(("alt\\.chinese\\.text" iso-8859-1)) "Alist of regexps (to match group names) and charsets that should be ignored.\nWhen these charsets are used in the \"charset\" parameter, the\ndefault charset will be used instead." gnus-group-parameter (repeat (cons (regexp :tag "Group") (repeat symbol))) delq ignored-charsets add-to-list (choice :tag "Ignored charsets" :value nil (repeat (symbol))) "List of charsets that should be ignored.\n\nWhen these charsets are used in the \"charset\" parameter, the\ndefault charset will be used instead."] 10)
#@39 Return the ignored charsets of GROUP.
(defalias 'gnus-parameter-ignored-charsets #[(name) "\2052\305\306\307#\2062	\310\211\f\211A@\211\2030\203\311@\"\203\310A\202\n+\207" [name gnus-group-ignored-charsets-alist value elem alist gnus-group-find-parameter ignored-charsets t nil string-match] 4 (#$ . 41035)])
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\302\313\304\305\306\314\310\315&	\210\300\316\317\320\304\305\306\321\310\322&	\210\300\323\302\324\306\325\310\326&\210\300\327\302\330\310\331\306\332&\210\300\333\334\335\310\326\306\336&\210\300\337\302\340\304\341\310\326\306\342&	\210\300\343\302\344\304\345\310\326\306\346&	\210\300\347\350\351\304\341\310\326\306\352&	\210\300\353\317\354\304\341\306\321\310\355&	\210\300\356\317\357\304\341\306\321\310\355&	\207" [custom-declare-variable gnus-group-highlight-words-alist nil "Alist of group regexps and highlight regexps.\nThis variable uses the same syntax as `gnus-emphasis-alist'." :version "21.1" :type (repeat (cons (regexp :tag "Group") (repeat (list (regexp :tag "Highlight regexp") (number :tag "Group for entire word" 0) (number :tag "Group for displayed part" 0) (symbol :tag "Face" gnus-emphasis-highlight-words))))) :group gnus-summary-visual gnus-summary-show-article-charset-alist "Alist of number and charset.\nThe article will be shown with the charset corresponding to the\nnumbered argument.\nFor example: ((1 . cn-gb-2312) (2 . big5))." (repeat (cons (number :tag "Argument" 1) (symbol :tag "Charset"))) gnus-charset gnus-preserve-marks t "Whether marks are preserved when moving, copying and respooling messages." boolean gnus-summary-marks gnus-alter-articles-to-read-function "Function to be called to alter the list of articles to be selected." (choice (const nil) function) gnus-summary gnus-orphan-score "*All orphans get this score added.  Set in the score file." gnus-score-default (choice (const nil) integer) gnus-summary-save-parts-default-mime "image/.*" "*A regexp to match MIME parts when saving multiple parts of a\nmessage with `gnus-summary-save-parts' (\\<gnus-summary-mode-map>\\[gnus-summary-save-parts]).\nThis regexp will be used by default when prompting the user for which\ntype of files to save." regexp gnus-read-all-available-headers "Whether Gnus should parse all headers made available to it.\nThis is mostly relevant for slow back ends where the user may\nwish to widen the summary buffer to include all headers\nthat were fetched." "22.1" (choice boolean regexp) gnus-summary-pipe-output-default-command "Command (and optional arguments) used to pipe article to subprocess.\nThis will be used as the default command if it is non-nil.  The value\nwill be updated if you modify it when executing the command\n`gnus-summary-pipe-output' or the function `gnus-summary-save-in-pipe'." "23.1" (radio (const :tag "None" nil) (string :tag "Command")) gnus-summary-muttprint-program "muttprint" "Command (and optional arguments) used to run Muttprint.\nThe value will be updated if you modify it when executing the command\n`gnus-summary-muttprint'." string gnus-article-loose-mime "If non-nil, don't require MIME-Version header.\nSome brain-damaged MUA/MTA, e.g. Lotus Domino 5.0.6 clients, does not\nsupply the MIME-Version header or deliberately strip it from the mail.\nIf non-nil (the default), Gnus will treat some articles as MIME\neven if the MIME-Version header is missing." gnus-article-mime gnus-article-emulate-mime "If non-nil, use MIME emulation for uuencode and the like.\nThis means that Gnus will search message bodies for text that look\nlike uuencoded bits, yEncoded bits, and so on, and present that using\nthe normal Gnus MIME machinery."] 10)
(defvar gnus-summary-display-cache nil)
(defvar gnus-article-mime-handles nil)
(defvar gnus-article-decoded-p nil)
(defvar gnus-article-charset nil)
(defvar gnus-article-ignored-charsets nil)
(defvar gnus-scores-exclude-files nil)
(defvar gnus-page-broken nil)
(defvar gnus-original-article nil)
(defvar gnus-article-internal-prepare-hook nil)
(defvar gnus-newsgroup-process-stack nil)
(defvar gnus-thread-indent-array nil)
(defvar gnus-thread-indent-array-level gnus-thread-indent-level)
#@91 Function called to sort the articles within a thread after it has been gathered together.
(defvar gnus-sort-gathered-threads-function 'gnus-thread-sort-by-number (#$ . 45251))
(defvar gnus-summary-save-parts-type-history nil)
(defvar gnus-summary-save-parts-last-directory mm-default-directory)
(defvar gnus-summary-inhibit-highlight nil)
(defvar gnus-newsgroup-selected-overlay nil)
(defvar gnus-inhibit-limiting nil)
(defvar gnus-newsgroup-adaptive-score-file nil)
(defvar gnus-current-score-file nil)
(defvar gnus-current-move-group nil)
(defvar gnus-current-copy-group nil)
(defvar gnus-current-crosspost-group nil)
(defvar gnus-newsgroup-display nil)
(defvar gnus-newsgroup-dependencies nil)
(defvar gnus-newsgroup-adaptive nil)
(defvar gnus-summary-display-article-function nil)
#@52 Function called after highlighting a summary line.
(defvar gnus-summary-highlight-line-function nil (#$ . 46042))
#@199 An alist of format specifications that can appear in summary lines.
These are paired with what variables they correspond with, along with
the type of the variable (string, integer, character, etc).
(defvar gnus-summary-line-format-alist (byte-code "\300\301\302!\303BB\304\301\305!\306BB\307\310\311\312\313\314\301\315!\316BB\317\301\320!\321BB\322\323\324\301\325!\326BB\327\301\330!\331BB\332\333\334\335\336\337\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357\360\361\362\363\301\364!D\365BB\257&\207" [78 macroexpand (mail-header-number gnus-tmp-header) (100) 83 (mail-header-subject gnus-tmp-header) (115) (115 gnus-tmp-subject-or-nil 115) (110 gnus-tmp-name 115) (65 (car (cdr (funcall gnus-extract-address-components gnus-tmp-from))) 115) (97 (or (car (funcall gnus-extract-address-components gnus-tmp-from)) gnus-tmp-from) 115) (70 gnus-tmp-from 115) 120 (mail-header-xref gnus-tmp-header) (115) 68 (mail-header-date gnus-tmp-header) (115) (100 (gnus-dd-mmm (mail-header-date gnus-tmp-header)) 115) (111 (gnus-date-iso8601 (mail-header-date gnus-tmp-header)) 115) 77 (mail-header-id gnus-tmp-header) (115) 114 (mail-header-references gnus-tmp-header) (115) (99 (or (mail-header-chars gnus-tmp-header) 0) 100) (107 (gnus-summary-line-message-size gnus-tmp-header) 115) (76 gnus-tmp-lines 115) (90 (or (nnir-article-rsv (mail-header-number gnus-tmp-header)) 0) 100) (71 (or (nnir-article-group (mail-header-number gnus-tmp-header)) #1="") 115) (103 (or (gnus-group-short-name (nnir-article-group (mail-header-number gnus-tmp-header))) #1#) 115) (79 gnus-tmp-downloaded 99) (73 gnus-tmp-indentation 115) (84 (if (= gnus-tmp-level 0) #1# (make-string (frame-width) 32)) 115) (82 gnus-tmp-replied 99) (91 gnus-tmp-opening-bracket 99) (93 gnus-tmp-closing-bracket 99) (62 (make-string gnus-tmp-level 32) 115) (60 (make-string (max 0 (- 20 gnus-tmp-level)) 32) 115) (105 gnus-tmp-score 100) (122 gnus-tmp-score-char 99) (86 (gnus-thread-total-score (and (boundp 'thread) (car thread))) 100) (85 gnus-tmp-unread 99) (102 (gnus-summary-from-or-to-or-newsgroups gnus-tmp-header gnus-tmp-from) 115) (116 (gnus-summary-number-of-articles-in-thread (and (boundp 'thread) (car thread)) gnus-tmp-level) 100) (101 (gnus-summary-number-of-articles-in-thread (and (boundp 'thread) (car thread)) gnus-tmp-level t) 99) (117 gnus-tmp-user-defined 115) (80 (gnus-pick-line-number) 100) (66 gnus-tmp-thread-tree-header-string 115) user-date gnus-user-date (mail-header-date gnus-tmp-header) (115)] 41) (#$ . 46163))
(defvar gnus-summary-dummy-line-format-alist '((83 gnus-tmp-subject 115) (78 gnus-tmp-number 100) (117 gnus-tmp-user-defined 115)))
(defvar gnus-summary-mode-line-format-alist '((71 gnus-tmp-group-name 115) (103 (gnus-short-group-name gnus-tmp-group-name) 115) (112 (gnus-group-real-name gnus-tmp-group-name) 115) (65 gnus-tmp-article-number 100) (90 gnus-tmp-unread-and-unselected 115) (86 gnus-version 115) (85 gnus-tmp-unread-and-unticked 100) (83 gnus-tmp-subject 115) (101 gnus-tmp-unselected 100) (117 gnus-tmp-user-defined 115) (100 (length gnus-newsgroup-dormant) 100) (116 (length gnus-newsgroup-marked) 100) (104 (length gnus-newsgroup-spam-marked) 100) (114 (length gnus-newsgroup-reads) 100) (122 (gnus-summary-article-score gnus-tmp-article-number) 100) (69 gnus-newsgroup-expunged-tally 100) (115 (gnus-current-score-file-nondirectory) 115)))
(defvar gnus-article-mode-line-format-alist (nconc '((119 (gnus-article-wash-status) 115) (109 (gnus-article-mime-part-status) 115)) gnus-summary-mode-line-format-alist))
#@44 Default regexp for article search command.
(defvar gnus-last-search-regexp nil (#$ . 49715))
#@35 Default shell command on article.
(defvar gnus-last-shell-command nil (#$ . 49814))
#@89 Locally bound in each summary buffer to indicate whether the server has been agentized.
(defvar gnus-newsgroup-agentized nil (#$ . 49904))
(defvar gnus-newsgroup-begin nil)
(defvar gnus-newsgroup-end nil)
(defvar gnus-newsgroup-last-rmail nil)
(defvar gnus-newsgroup-last-mail nil)
(defvar gnus-newsgroup-last-folder nil)
(defvar gnus-newsgroup-last-file nil)
(defvar gnus-newsgroup-last-directory nil)
(defvar gnus-newsgroup-auto-expire nil)
(defvar gnus-newsgroup-active nil)
(defvar gnus-newsgroup-highest nil)
(defvar gnus-newsgroup-data nil)
(defvar gnus-newsgroup-data-reverse nil)
(defvar gnus-newsgroup-limit nil)
(defvar gnus-newsgroup-limits nil)
(defvar gnus-summary-use-undownloaded-faces nil)
#@58 Sorted list of unread articles in the current newsgroup.
(defvar gnus-newsgroup-unreads nil (#$ . 50616))
#@69 Sorted list of unselected unread articles in the current newsgroup.
(defvar gnus-newsgroup-unselected nil (#$ . 50728))
#@68 Alist of read articles and article marks in the current newsgroup.
(defvar gnus-newsgroup-reads nil (#$ . 50854))
(defvar gnus-newsgroup-expunged-tally nil)
#@83 Sorted list of ticked articles in the current newsgroup (a subset of unread art).
(defvar gnus-newsgroup-marked nil (#$ . 51017))
#@59 List of ranges of articles that have been marked as spam.
(defvar gnus-newsgroup-spam-marked nil (#$ . 51153))
#@72 List of ranges of articles that have been through the scoring process.
(defvar gnus-newsgroup-killed nil (#$ . 51270))
#@59 Sorted list of articles that come from the article cache.
(defvar gnus-newsgroup-cached nil (#$ . 51395))
#@40 List of articles that have been saved.
(defvar gnus-newsgroup-saved nil (#$ . 51507))
(defvar gnus-newsgroup-kill-headers nil)
#@70 List of articles that have been replied to in the current newsgroup.
(defvar gnus-newsgroup-replied nil (#$ . 51640))
#@69 List of articles that have been forwarded in the current newsgroup.
(defvar gnus-newsgroup-forwarded nil (#$ . 51764))
#@71 Sorted list of articles in the current newsgroup that can be expired.
(defvar gnus-newsgroup-expirable nil (#$ . 51889))
#@66 List of articles in the current newsgroup that can be processed.
(defvar gnus-newsgroup-processable nil (#$ . 52016))
#@73 Sorted list of articles in the current newsgroup that can be processed.
(defvar gnus-newsgroup-downloadable nil (#$ . 52140))
#@169 Sorted list of articles in the current newsgroup whose headers have
not been fetched into the agent.

This list will always be a subset of gnus-newsgroup-undownloaded.
(defvar gnus-newsgroup-unfetched nil (#$ . 52273))
#@73 List of articles in the current newsgroup that haven't been downloaded.
(defvar gnus-newsgroup-undownloaded nil (#$ . 52498))
#@63 List of articles in the current newsgroup that won't be sent.
(defvar gnus-newsgroup-unsendable nil (#$ . 52630))
#@64 List of articles in the current newsgroup that have bookmarks.
(defvar gnus-newsgroup-bookmarks nil (#$ . 52750))
#@59 Sorted list of dormant articles in the current newsgroup.
(defvar gnus-newsgroup-dormant nil (#$ . 52870))
#@51 List of unseen articles in the current newsgroup.
(defvar gnus-newsgroup-unseen nil (#$ . 52983))
#@50 Range of seen articles in the current newsgroup.
(defvar gnus-newsgroup-seen nil (#$ . 53087))
#@44 List of articles in the current newsgroup.
(defvar gnus-newsgroup-articles nil (#$ . 53188))
#@51 List of scored articles in the current newsgroup.
(defvar gnus-newsgroup-scored nil (#$ . 53287))
#@51 List of article headers in the current newsgroup.
(defvar gnus-newsgroup-headers nil (#$ . 53391))
(defvar gnus-newsgroup-threads nil)
#@55 Whether the current group has been prepared properly.
(defvar gnus-newsgroup-prepared nil (#$ . 53532))
#@69 List of `gnus-fetch-old-headers' articles in the current newsgroup.
(defvar gnus-newsgroup-ancient nil (#$ . 53642))
(defvar gnus-newsgroup-sparse nil)
(defvar gnus-current-article nil)
(defvar gnus-article-current nil)
(defvar gnus-current-headers nil)
(defvar gnus-have-all-headers nil)
(defvar gnus-last-article nil)
(defvar gnus-newsgroup-history nil)
(defvar gnus-newsgroup-charset nil)
(defvar gnus-newsgroup-ephemeral-charset nil)
(defvar gnus-newsgroup-ephemeral-ignored-charsets nil)
(defvar gnus-article-before-search nil)
#@57 Variables that are buffer-local to the summary buffers.
(defvar gnus-summary-local-variables '(gnus-newsgroup-name gnus-newsgroup-unreads gnus-newsgroup-unselected gnus-newsgroup-marked gnus-newsgroup-spam-marked gnus-newsgroup-reads gnus-newsgroup-saved gnus-newsgroup-replied gnus-newsgroup-forwarded gnus-newsgroup-expirable gnus-newsgroup-killed gnus-newsgroup-unseen gnus-newsgroup-seen gnus-newsgroup-cached gnus-newsgroup-downloadable gnus-newsgroup-undownloaded gnus-newsgroup-unsendable gnus-newsgroup-begin gnus-newsgroup-end gnus-newsgroup-last-rmail gnus-newsgroup-last-mail gnus-newsgroup-last-folder gnus-newsgroup-last-file gnus-newsgroup-last-directory gnus-newsgroup-auto-expire gnus-newsgroup-processable gnus-newsgroup-unfetched gnus-newsgroup-articles gnus-newsgroup-bookmarks gnus-newsgroup-dormant gnus-newsgroup-headers gnus-newsgroup-threads gnus-newsgroup-prepared gnus-summary-highlight-line-function gnus-current-article gnus-current-headers gnus-have-all-headers gnus-last-article gnus-article-internal-prepare-hook (gnus-summary-article-delete-hook . global) (gnus-summary-article-move-hook . global) gnus-newsgroup-dependencies gnus-newsgroup-selected-overlay gnus-newsgroup-scored gnus-newsgroup-kill-headers gnus-thread-expunge-below gnus-score-alist gnus-current-score-file (gnus-summary-expunge-below . global) (gnus-summary-mark-below . global) (gnus-orphan-score . global) gnus-newsgroup-active gnus-scores-exclude-files gnus-newsgroup-highest gnus-newsgroup-history gnus-newsgroup-ancient gnus-newsgroup-sparse gnus-newsgroup-process-stack (gnus-newsgroup-adaptive . gnus-use-adaptive-scoring) gnus-newsgroup-adaptive-score-file (gnus-reffed-article-number . -1) (gnus-newsgroup-expunged-tally . 0) gnus-cache-removable-articles gnus-newsgroup-data gnus-newsgroup-data-reverse gnus-newsgroup-limit gnus-newsgroup-limits gnus-newsgroup-charset gnus-newsgroup-display gnus-summary-use-undownloaded-faces) (#$ . 54181))
#@893 A list of variables that have separate values in different newsgroups.
A list of newsgroup (summary buffer) local variables, or cons of
variables and their default expressions to be evalled (when the default
values are not nil), that should be made global while the summary buffer
is active.

Note: The default expressions will be evaluated (using function `eval')
before assignment to the local variable rather than just assigned to it.
If the default expression is the symbol `global', that symbol will not
be evaluated but the global value of the local variable will be used
instead.

These variables can be used to set variables in the group parameters
while still allowing them to affect operations done in other buffers.
For example:

(setq gnus-newsgroup-variables
     '(message-use-followup-to
       (gnus-visible-headers .
	 "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^To:")))

(defvar gnus-newsgroup-variables nil (#$ . 56142))
#@422 List of methods used to decode encoded words.

This variable is a list of FUNCTION or (REGEXP . FUNCTION).  If item
is FUNCTION, FUNCTION will be apply to all newsgroups.  If item is a
(REGEXP . FUNCTION), FUNCTION will be applied only to the newsgroups
whose names match REGEXP.

For example:
(("chinese" . gnus-decode-encoded-word-string-by-guess)
 mail-decode-encoded-word-string
 ("chinese" . rfc1843-decode-string))
(defvar gnus-decode-encoded-word-methods '(mail-decode-encoded-word-string) (#$ . 57092))
(defvar gnus-decode-encoded-word-methods-cache nil)
#@66 Apply the functions from `gnus-encoded-word-methods' that match.
(defalias 'gnus-multi-decode-encoded-word-string #[(string) "\203	@=\204@	C\n\306\211\203?\f@\2119\203&C\244\210\2028	\2038\307@	\"\2038AC\244\210\fA\211\204*A\306\211\203W\f@\211
!\fA\211\204I\306
*\207" [gnus-decode-encoded-word-methods-cache gnus-newsgroup-name gnus-decode-encoded-word-methods method --dolist-tail-- string nil string-match] 4 (#$ . 57661)])
#@39 Remove excessive whitespace from STR.
(defalias 'gnus-simplify-whitespace #[(str) "\301\302\"\203\303\211\224O\304\303\225\305OQ\202\301\306\"\203$\303\225\305O\301\307\"\2031\303\211\224O\207" [str string-match "[ 	][ 	]+" 0 " " nil "^[ 	]+" "[ 	]+$"] 5 (#$ . 58126)])
#@33 Remove all whitespace from STR.
(defalias 'gnus-simplify-all-whitespace #[(str) "\301\302\"\203\303\304\305\211$\202\207" [str string-match "[ 	\n]+" replace-match "" nil] 5 (#$ . 58419)])
#@34 Remove "Re:" from subject lines.
(defalias 'gnus-simplify-subject-re #[(subject) "\302	\"\203
	\303\225\304O\207	\207" [message-subject-re-regexp subject string-match 0 nil] 3 (#$ . 58622)])
(put 'gnus-simplify-subject-re 'byte-optimizer 'byte-compile-inline-expand)
#@90 Remove `Re:' and words in parentheses.
If RE-ONLY is non-nil, strip leading `Re:'s only.
(defalias 'gnus-simplify-subject #[(subject &optional re-only) "\304\305\306	\"\203	\307\225\310O\n\204$\203$\305	\"\203$	\307\225\310O\n\2048\305\311	\"\2038	\307\211\224O\202(	)\207" [case-fold-search subject re-only gnus-simplify-ignored-prefixes t string-match "\\`\\(re\\([[(^][0-9]+[])]?\\)?:[ 	]*\\)+" 0 nil "[ 	\n]*([^()]*)[ 	\n]*\\'"] 3 (#$ . 58897)])
(defalias 'gnus-simplify-buffer-fuzzy-step #[(regexp &optional newtext) "eb\210\302\303\304#\205\305	\206\306!\210\202\207" [regexp newtext re-search-forward nil t replace-match ""] 4])
(put 'gnus-simplify-buffer-fuzzy-step 'byte-optimizer 'byte-compile-inline-expand)
#@330 Simplify string in the buffer fuzzily.
The string in the accessible portion of the current buffer is simplified.
It is assumed to be a single-line subject.
Whitespace is generally cleaned up, and miscellaneous leading/trailing
matter is removed.  Additional things can be deleted by setting
`gnus-simplify-subject-fuzzy-regexp'.
(defalias 'gnus-simplify-buffer-fuzzy #[(regexp) "\304\305\306\307eb\210\310\305\304#\205\311\n\206\312!\210\202*\210\313 =\204\256\313 <\2037\314\315\"\210\202W\203W\305eb\210\310\305\304#\205U\311\n\206P\312!\210\202B*\210\316\305eb\210\310\305\304#\205q\311\n\206l\312!\210\202^*\210\317\305eb\210\310\305\304#\205\215\311\n\206\210\312!\210\202z*\210\320\321eb\210\310\305\304#\205\251\311\n\206\244\312!\210\202\226*\210\202 \322\305eb\210\310\305\304#\205\310\311\n\206\303\312!\210\202\265*\210\323\307eb\210\310\305\304#\205\344\311\n\206\337\312!\210\202\321*\210\324\305eb\210\310\305\304#\205
\311\n\206\373\312!\210\202\355*\210\325\305eb\210\310\305\304#\205
\311\n\206
\312!\210\202	
,\207" [modified-tick case-fold-search newtext regexp t nil "	" " " re-search-forward replace-match "" buffer-modified-tick mapc gnus-simplify-buffer-fuzzy-step "^ *\\[[-+?*!][-+?*!]\\] *" "^ *\\(re\\|fw\\|fwd\\)[[{(^0-9]*[])}]?[:;] *" "^[[].*:\\( .*\\)[]]$" "\\1" " *[[{(][^()\n]*[]})] *$" "  +" " $" "^ +"] 4 (#$ . 59644)])
#@82 Simplify a subject string fuzzily.
See `gnus-simplify-buffer-fuzzy' for details.
(defalias 'gnus-simplify-subject-fuzzy #[(subject) "\212\306 \210\307\203\310\f\"\203\f\311\225\312O\fc\210	\307\312\313\314eb\210\315	\312\307#\205>\316\2069\317!\210\202**\210
\320 =\204\326\320 	<\203W\321\322	\"\210\202y	\203y	\312eb\210\315	\312\307#\205w\316\206r\317!\210\202c*\210\323\312eb\210\315	\312\307#\205\225\316\206\220\317!\210\202\201*\210\324\312eb\210\315	\312\307#\205\263\316\206\256\317!\210\202\237*\210\325\326eb\210\315	\312\307#\205\321\316\206\314\317!\210\202\275*\210\202@\327\312eb\210\315	\312\307#\205\362\316\206\355\317!\210\202\336*\210\330\314eb\210\315	\312\307#\205
\316\206
\317!\210\202\374*\210\331\312eb\210\315	\312\307#\205.
\316\206)
\317!\210\202
*\210\332\312eb\210\315	\312\307#\205L
\316\206G
\317!\210\2028
-\210\333 +\207" [gnus-simplify-subject-fuzzy-regexp regexp case-fold-search gnus-simplify-ignored-prefixes subject modified-tick gnus-set-work-buffer t string-match 0 nil "	" " " re-search-forward replace-match "" buffer-modified-tick mapc gnus-simplify-buffer-fuzzy-step "^ *\\[[-+?*!][-+?*!]\\] *" "^ *\\(re\\|fw\\|fwd\\)[[{(^0-9]*[])}]?[:;] *" "^[[].*:\\( .*\\)[]]$" "\\1" " *[[{(][^()\n]*[]})] *$" "  +" " $" "^ +" buffer-string newtext] 4 (#$ . 61072)])
#@77 Simplify a subject string according to `gnus-summary-gather-subject-limit'.
(defalias 'gnus-simplify-subject-fully #[(subject) "\203	\304	\"\207\n\204!	\305	\"\203	\306\225\307O\202	)\207\n\310=\203+\311	!\207\n\247\203G\312	\305	\"\203B	\306\225\307O\202C	)\n\"\207	\207" [gnus-simplify-subject-functions subject gnus-summary-gather-subject-limit message-subject-re-regexp gnus-map-function string-match 0 nil fuzzy gnus-simplify-subject-fuzzy truncate-string-to-width] 4 (#$ . 62464)])
(put 'gnus-simplify-subject-fully 'byte-optimizer 'byte-compile-inline-expand)
#@117 Check whether two subjects are equal.
If optional argument SIMPLE-FIRST is t, first argument is already
simplified.
(defalias 'gnus-subject-equal #[(s1 s2 &optional simple-first) "\204\255	\203\306\n\"\202V\f\204+\n\307
\n\"\203&\n\310\225\311O\202'\n)\202V\f\312=\2037\313\n!\202V\f\247\203U\314\n\307
\n\"\203N\n\310\225\311O\202O\n)\f\"\202V\n)
\203e\306\n\"\202\252\f\204\n\307
\n\"\203z\n\310\225\311O\202{\n)\202\252\f\312=\203\213\313\n!\202\252\f\247\203\251\314\n\307
\n\"\203\242\n\310\225\311O\202\243\n)\f\"\202\252\n)\232\207	
\203\274\306\n\"\202

\f\204\326\n\307
\n\"\203\321\n\310\225\311O\202\322\n)\202

\f\312=\203\342\313\n!\202

\f\247\203
\314\n\307
\n\"\203\371\n\310\225\311O\202\372\n)\f\"\202

\n)\232\207" [simple-first s1 subject gnus-simplify-subject-functions gnus-summary-gather-subject-limit message-subject-re-regexp gnus-map-function string-match 0 nil fuzzy gnus-simplify-subject-fuzzy truncate-string-to-width s2] 5 (#$ . 63054)])
(put 'gnus-subject-equal 'byte-optimizer 'byte-compile-inline-expand)
#@148 Increase the score of the current group.
This is a handy function to add to `gnus-summary-exit-hook' to
increase the score of each group you read.
(defalias 'gnus-summary-bubble-group #[nil "\301!\207" [gnus-newsgroup-name gnus-group-add-score] 2 (#$ . 64152)])
(byte-code "\300\301\302\303#\210\304\305\306\"\210\304\307\310\"\210\304\311\312\"\210\304\313\314\"\210\304\315\316\"\210\304\317\320\"\210\304\321\322\"\210\304\323\324\"\210\304\325\326\"\210\304\327\330\"\210\304\331\332\"\210\304\333\334\"\210\304\335\336\"\210\304\337\340\"\210\304\341\342\"\210\304\343\344\"\210\304\345\346\"\210\304\347\350\"\210\304\351\352\"\210\304\353\354\"\210\304\355\356\"\210\304\357\360\"\210\304\361\362\"\210\304\363\364\"\210\304\365\366\"\207" [put gnus-summary-mode mode-class special gnus-define-keys-1 gnus-summary-mode-map (" " gnus-summary-next-page "" gnus-summary-prev-page [delete] gnus-summary-prev-page [backspace] gnus-summary-prev-page "
" gnus-summary-scroll-up "\215" gnus-summary-scroll-down "n" gnus-summary-next-unread-article "p" gnus-summary-prev-unread-article "N" gnus-summary-next-article "P" gnus-summary-prev-article "\216" gnus-summary-next-same-subject "\220" gnus-summary-prev-same-subject "\356" gnus-summary-next-unread-subject "\360" gnus-summary-prev-unread-subject "." gnus-summary-first-unread-article "," gnus-summary-best-unread-article "\363" gnus-summary-search-article-forward "\362" gnus-summary-search-article-backward "\323" gnus-summary-repeat-search-article-forward "\322" gnus-summary-repeat-search-article-backward "<" gnus-summary-beginning-of-article ">" gnus-summary-end-of-article "j" gnus-summary-goto-article "^" gnus-summary-refer-parent-article "\336" gnus-summary-refer-article "u" gnus-summary-tick-article-forward "!" gnus-summary-tick-article-forward "U" gnus-summary-tick-article-backward "d" gnus-summary-mark-as-read-forward "D" gnus-summary-mark-as-read-backward "E" gnus-summary-mark-as-expirable "\365" gnus-summary-clear-mark-forward "\325" gnus-summary-clear-mark-backward "k" gnus-summary-kill-same-subject-and-select "" gnus-summary-kill-same-subject "\213" gnus-summary-kill-thread "\214" gnus-summary-lower-thread "e" gnus-summary-edit-article "#" gnus-summary-mark-as-processable "\243" gnus-summary-unmark-as-processable "\224" gnus-summary-toggle-threads "\223" gnus-summary-show-thread "\210" gnus-summary-hide-thread "\206" gnus-summary-next-thread "\202" gnus-summary-prev-thread [(meta down)] gnus-summary-next-thread [(meta up)] gnus-summary-prev-thread "\225" gnus-summary-up-thread "\204" gnus-summary-down-thread "&" gnus-summary-execute-command "c" gnus-summary-catchup-and-exit "" gnus-summary-mark-region-as-read "" gnus-summary-toggle-truncation "?" gnus-summary-mark-as-dormant "\223" gnus-summary-limit-include-expunged "" gnus-summary-sort-by-number "
" gnus-summary-sort-by-most-recent-number "\f" gnus-summary-sort-by-lines "" gnus-summary-sort-by-chars "
" gnus-summary-sort-by-author "" gnus-summary-sort-by-recipient "" gnus-summary-sort-by-subject "" gnus-summary-sort-by-date "
" gnus-summary-sort-by-most-recent-date "	" gnus-summary-sort-by-score "" gnus-summary-sort-by-original "" gnus-summary-sort-by-random "=" gnus-summary-expand-window "" gnus-summary-reselect-current-group "\347" gnus-summary-rescan-group "" gnus-summary-caesar-message "f" gnus-summary-followup "F" gnus-summary-followup-with-original "C" gnus-summary-cancel-article "r" gnus-summary-reply "R" gnus-summary-reply-with-original "" gnus-summary-mail-forward "o" gnus-summary-save-article "" gnus-summary-save-article-mail "|" gnus-summary-pipe-output "\353" gnus-summary-edit-local-kill "\313" gnus-summary-edit-global-kill "" gnus-summary-describe-group "q" gnus-summary-exit "Q" gnus-summary-exit-no-update "	" gnus-info-find-node gnus-mouse-2 gnus-mouse-pick-article [follow-link] mouse-face "m" gnus-summary-mail-other-window "a" gnus-summary-post-news "x" gnus-summary-limit-to-unread "s" gnus-summary-isearch-article "	" gnus-summary-widget-forward [backtab] gnus-summary-widget-backward "t" gnus-summary-toggle-header "g" gnus-summary-show-article "l" gnus-summary-goto-last-article "" gnus-uu-decode-uu-view "" gnus-summary-enter-digest-group "\204" gnus-summary-read-document "\205" gnus-summary-edit-parameters "\201" gnus-summary-customize-parameters "" gnus-bug "*" gnus-cache-enter-article "\252" gnus-cache-remove-article "\246" gnus-summary-universal-argument "\f" gnus-recenter "I" gnus-summary-increase-score "L" gnus-summary-lower-score "\351" gnus-symbolic-argument "h" gnus-summary-select-article-buffer "b" gnus-article-view-part "\364" gnus-summary-toggle-display-buttonized "V" gnus-summary-score-map "X" gnus-uu-extract-map "S" gnus-summary-send-map) (gnus-summary-mark-map "M" gnus-summary-mode-map) ("t" gnus-summary-tick-article-forward "!" gnus-summary-tick-article-forward "d" gnus-summary-mark-as-read-forward "r" gnus-summary-mark-as-read-forward "c" gnus-summary-clear-mark-forward " " gnus-summary-clear-mark-forward "e" gnus-summary-mark-as-expirable "x" gnus-summary-mark-as-expirable "?" gnus-summary-mark-as-dormant "b" gnus-summary-set-bookmark "B" gnus-summary-remove-bookmark "#" gnus-summary-mark-as-processable "\243" gnus-summary-unmark-as-processable "S" gnus-summary-limit-include-expunged "C" gnus-summary-catchup "H" gnus-summary-catchup-to-here "h" gnus-summary-catchup-from-here "" gnus-summary-catchup-all "k" gnus-summary-kill-same-subject-and-select "K" gnus-summary-kill-same-subject "P" gnus-uu-mark-map) (gnus-summary-mscore-map "V" gnus-summary-mark-map) ("c" gnus-summary-clear-above "u" gnus-summary-tick-above "m" gnus-summary-mark-above "k" gnus-summary-kill-below) (gnus-summary-limit-map "/" gnus-summary-mode-map) ("/" gnus-summary-limit-to-subject "n" gnus-summary-limit-to-articles "b" gnus-summary-limit-to-bodies "h" gnus-summary-limit-to-headers "w" gnus-summary-pop-limit "s" gnus-summary-limit-to-subject "a" gnus-summary-limit-to-author "u" gnus-summary-limit-to-unread "m" gnus-summary-limit-to-marks "M" gnus-summary-limit-exclude-marks "v" gnus-summary-limit-to-score "*" gnus-summary-limit-include-cached "D" gnus-summary-limit-include-dormant "T" gnus-summary-limit-include-thread "d" gnus-summary-limit-exclude-dormant "t" gnus-summary-limit-to-age "." gnus-summary-limit-to-unseen "x" gnus-summary-limit-to-extra "p" gnus-summary-limit-to-display-predicate "E" gnus-summary-limit-include-expunged "c" gnus-summary-limit-exclude-childless-dormant "C" gnus-summary-limit-mark-excluded-as-read "o" gnus-summary-insert-old-articles "N" gnus-summary-insert-new-articles "S" gnus-summary-limit-to-singletons "r" gnus-summary-limit-to-replied "R" gnus-summary-limit-to-recipient "A" gnus-summary-limit-to-address) (gnus-summary-goto-map "G" gnus-summary-mode-map) ("n" gnus-summary-next-unread-article "p" gnus-summary-prev-unread-article "N" gnus-summary-next-article "P" gnus-summary-prev-article "" gnus-summary-next-same-subject "" gnus-summary-prev-same-subject "\356" gnus-summary-next-unread-subject "\360" gnus-summary-prev-unread-subject "f" gnus-summary-first-unread-article "b" gnus-summary-best-unread-article "j" gnus-summary-goto-article "g" gnus-summary-goto-subject "l" gnus-summary-goto-last-article "o" gnus-summary-pop-article) (gnus-summary-thread-map "T" gnus-summary-mode-map) ("k" gnus-summary-kill-thread "E" gnus-summary-expire-thread "l" gnus-summary-lower-thread "i" gnus-summary-raise-thread "T" gnus-summary-toggle-threads "t" gnus-summary-rethread-current "^" gnus-summary-reparent-thread "\336" gnus-summary-reparent-children "s" gnus-summary-show-thread "S" gnus-summary-show-all-threads "h" gnus-summary-hide-thread "H" gnus-summary-hide-all-threads "n" gnus-summary-next-thread "p" gnus-summary-prev-thread "u" gnus-summary-up-thread "o" gnus-summary-top-thread "d" gnus-summary-down-thread "#" gnus-uu-mark-thread "\243" gnus-uu-unmark-thread) (gnus-summary-buffer-map "Y" gnus-summary-mode-map) ("g" gnus-summary-prepare "c" gnus-summary-insert-cached-articles "d" gnus-summary-insert-dormant-articles "t" gnus-summary-insert-ticked-articles) (gnus-summary-exit-map "Z" gnus-summary-mode-map) ("c" gnus-summary-catchup-and-exit "C" gnus-summary-catchup-all-and-exit "E" gnus-summary-exit-no-update "Q" gnus-summary-exit "Z" gnus-summary-exit "n" gnus-summary-catchup-and-goto-next-group "p" gnus-summary-catchup-and-goto-prev-group "R" gnus-summary-reselect-current-group "G" gnus-summary-rescan-group "N" gnus-summary-next-group "s" gnus-summary-save-newsrc "P" gnus-summary-prev-group) (gnus-summary-article-map "A" gnus-summary-mode-map) (" " gnus-summary-next-page "n" gnus-summary-next-page "" gnus-summary-prev-page [delete] gnus-summary-prev-page "p" gnus-summary-prev-page "
" gnus-summary-scroll-up "\215" gnus-summary-scroll-down "<" gnus-summary-beginning-of-article ">" gnus-summary-end-of-article "b" gnus-summary-beginning-of-article "e" gnus-summary-end-of-article "^" gnus-summary-refer-parent-article "r" gnus-summary-refer-parent-article "C" gnus-summary-show-complete-article "D" gnus-summary-enter-digest-group "R" gnus-summary-refer-references "T" gnus-summary-refer-thread "W" gnus-warp-to-article "g" gnus-summary-show-article "s" gnus-summary-isearch-article "	" gnus-summary-widget-forward [backtab] gnus-summary-widget-backward "P" gnus-summary-print-article "S" gnus-sticky-article "M" gnus-mailing-list-insinuate "t" gnus-article-babel) (gnus-summary-wash-map "W" gnus-summary-mode-map) ("b" gnus-article-add-buttons "B" gnus-article-add-buttons-to-head "o" gnus-article-treat-overstrike "e" gnus-article-emphasize "w" gnus-article-fill-cited-article "Q" gnus-article-fill-long-lines "L" gnus-article-toggle-truncate-lines "C" gnus-article-capitalize-sentences "c" gnus-article-remove-cr "q" gnus-article-de-quoted-unreadable "6" gnus-article-de-base64-unreadable "Z" gnus-article-decode-HZ "A" gnus-article-treat-ansi-sequences "h" gnus-article-wash-html "u" gnus-article-unsplit-urls "s" gnus-summary-force-verify-and-decrypt "f" gnus-article-display-x-face "l" gnus-summary-stop-page-breaking "r" gnus-summary-caesar-message "m" gnus-summary-morse-message "t" gnus-summary-toggle-header "g" gnus-treat-smiley "v" gnus-summary-verbose-headers "a" gnus-article-strip-headers-in-body "p" gnus-article-verify-x-pgp-sig "d" gnus-article-treat-dumbquotes "U" gnus-article-treat-non-ascii "i" gnus-summary-idna-message) (gnus-summary-wash-deuglify-map "Y" gnus-summary-wash-map) ("u" gnus-article-outlook-unwrap-lines "a" gnus-article-outlook-repair-attribution "c" gnus-article-outlook-rearrange-citation "f" gnus-article-outlook-deuglify-article) (gnus-summary-wash-hide-map "W" gnus-summary-wash-map) ("a" gnus-article-hide "h" gnus-article-hide-headers "b" gnus-article-hide-boring-headers "s" gnus-article-hide-signature "c" gnus-article-hide-citation "C" gnus-article-hide-citation-in-followups "l" gnus-article-hide-list-identifiers "B" gnus-article-strip-banner "P" gnus-article-hide-pem "" gnus-article-hide-citation-maybe) (gnus-summary-wash-highlight-map "H" gnus-summary-wash-map) ("a" gnus-article-highlight "h" gnus-article-highlight-headers "c" gnus-article-highlight-citation "s" gnus-article-highlight-signature) (gnus-summary-wash-header-map "G" gnus-summary-wash-map) ("f" gnus-article-treat-fold-headers "u" gnus-article-treat-unfold-headers "n" gnus-article-treat-fold-newsgroups) (gnus-summary-wash-display-map "D" gnus-summary-wash-map) ("x" gnus-article-display-x-face "d" gnus-article-display-face "s" gnus-treat-smiley "D" gnus-article-remove-images "W" gnus-article-show-images "f" gnus-treat-from-picon "m" gnus-treat-mail-picon "n" gnus-treat-newsgroups-picon "g" gnus-treat-from-gravatar "h" gnus-treat-mail-gravatar) (gnus-summary-wash-mime-map "M" gnus-summary-wash-map) ("w" gnus-article-decode-mime-words "c" gnus-article-decode-charset "v" gnus-mime-view-all-parts "b" gnus-article-view-part) (gnus-summary-wash-time-map "T" gnus-summary-wash-map) ("z" gnus-article-date-ut "u" gnus-article-date-ut "l" gnus-article-date-local "p" gnus-article-date-english "e" gnus-article-date-lapsed "o" gnus-article-date-original "i" gnus-article-date-iso8601 "s" gnus-article-date-user) (gnus-summary-wash-empty-map "E" gnus-summary-wash-map) ("t" gnus-article-remove-trailing-blank-lines "l" gnus-article-strip-leading-blank-lines "m" gnus-article-strip-multiple-blank-lines "a" gnus-article-strip-blank-lines "A" gnus-article-strip-all-blank-lines "s" gnus-article-strip-leading-space "e" gnus-article-strip-trailing-space "w" gnus-article-remove-leading-whitespace) (gnus-summary-help-map "H" gnus-summary-mode-map) ("v" gnus-version "d" gnus-summary-describe-group "h" gnus-summary-describe-briefly "i" gnus-info-find-node) (gnus-summary-backend-map "B" gnus-summary-mode-map) ("e" gnus-summary-expire-articles "\205" gnus-summary-expire-articles-now "" gnus-summary-delete-article [delete] gnus-summary-delete-article [backspace] gnus-summary-delete-article "m" gnus-summary-move-article "r" gnus-summary-respool-article "w" gnus-summary-edit-article "c" gnus-summary-copy-article "B" gnus-summary-crosspost-article "q" gnus-summary-respool-query "t" gnus-summary-respool-trace "i" gnus-summary-import-article "I" gnus-summary-create-article "p" gnus-summary-article-posted-p) (gnus-summary-save-map "O" gnus-summary-mode-map) ("o" gnus-summary-save-article "m" gnus-summary-save-article-mail "F" gnus-summary-write-article-file "r" gnus-summary-save-article-rmail "f" gnus-summary-save-article-file "b" gnus-summary-save-article-body-file "B" gnus-summary-write-article-body-file "h" gnus-summary-save-article-folder "v" gnus-summary-save-article-vm "p" gnus-summary-pipe-output "P" gnus-summary-muttprint) (gnus-summary-mime-map "K" gnus-summary-mode-map) ("b" gnus-summary-display-buttonized "m" gnus-summary-repair-multipart "v" gnus-article-view-part "o" gnus-article-save-part "O" gnus-article-save-part-and-strip "r" gnus-article-replace-part "d" gnus-article-delete-part "t" gnus-article-view-part-as-type "j" gnus-article-jump-to-part "c" gnus-article-copy-part "C" gnus-article-view-part-as-charset "e" gnus-article-view-part-externally "H" gnus-article-browse-html-article "E" gnus-article-encrypt-body "i" gnus-article-inline-part "|" gnus-article-pipe-part) (gnus-uu-mark-map "P" gnus-summary-mark-map) ("p" gnus-summary-mark-as-processable "u" gnus-summary-unmark-as-processable "U" gnus-summary-unmark-all-processable "v" gnus-uu-mark-over "s" gnus-uu-mark-series "r" gnus-uu-mark-region "g" gnus-uu-unmark-region "R" gnus-uu-mark-by-regexp "G" gnus-uu-unmark-by-regexp "t" gnus-uu-mark-thread "T" gnus-uu-unmark-thread "a" gnus-uu-mark-all "b" gnus-uu-mark-buffer "S" gnus-uu-mark-sparse "k" gnus-summary-kill-process-mark "y" gnus-summary-yank-process-mark "w" gnus-summary-save-process-mark "i" gnus-uu-invert-processable) (gnus-uu-extract-map "X" gnus-summary-mode-map) ("m" gnus-summary-save-parts "u" gnus-uu-decode-uu "U" gnus-uu-decode-uu-and-save "s" gnus-uu-decode-unshar "S" gnus-uu-decode-unshar-and-save "o" gnus-uu-decode-save "O" gnus-uu-decode-save "b" gnus-uu-decode-binhex "B" gnus-uu-decode-binhex "Y" gnus-uu-decode-yenc "p" gnus-uu-decode-postscript "P" gnus-uu-decode-postscript-and-save) (gnus-uu-extract-view-map "v" gnus-uu-extract-map) ("u" gnus-uu-decode-uu-view "U" gnus-uu-decode-uu-and-save-view "s" gnus-uu-decode-unshar-view "S" gnus-uu-decode-unshar-and-save-view "o" gnus-uu-decode-save-view "O" gnus-uu-decode-save-view "b" gnus-uu-decode-binhex-view "B" gnus-uu-decode-binhex-view "p" gnus-uu-decode-postscript-view "P" gnus-uu-decode-postscript-and-save-view)] 4)
(defvar gnus-article-post-menu nil)
(defconst gnus-summary-menu-maxlen 20)
(defalias 'gnus-summary-menu-split #[(menu) "G	\305_\306\245V\203E\307\211\310\211\203A	\233\211\203&	S\233\307\241\210\311\312@\313H\314!@\313H#B\fB\nT\211\204\f\237,\207\207" [menu gnus-summary-menu-maxlen i next sublists 3 2 nil 1 format "%s ... %s" 0 last] 6])
(defalias 'gnus-summary-make-menu-bar #[nil "\306\307!\210\310\311!?\205I\312\313!\210\314\315\316\317\320C\321\322!\244\321\323!\244\324\244B$\210\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\345BBBB\"\346\347\350\351\352\353\337\340\341\342\343\354\355BBBB\"\356BBBBBB\257\357\360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\377!\203n\377 \202t\373\201B	\"\201C\"\"!B\257\n\201D\201E\201F\201G\201H\201I\201J\201K\201L\201M\201N\201O\201P\337\340\201Q\201R\201SBB\"\201TBBBBBBBBBBBBBB\201U\337\340\201V\201W\201XBB\"\337\340\201Y\201Z\201[BB\"\201\\\201]\201^\201_\201`\201a\201b\337\340\201c\201d\201eBB\"\257\201f\201g\201h\201i\"B\201j\337\340\201k\201l\201mBB\"\201nBB\201oBBBBBBBBB\201p\313!\210\314\303\316\201q\nB$\210\201r!\204e
\201s\313!\210\314\305\f\316\201t\nB$\210\202y
\201u!\201v\f\201w\201t
B#\210)\201x\313!\210\314\201y\316\201z$\210\201{\313!\210\314\201@\316\201|\337\340\201}\201~\201BB\"\337\340\201\200\201\201\201\202BB\"\337\340\201\203\201\204\201\205BB\"\201\206\337\340\201\207\201\210\201\211BB\"\201\212\201\213\201\214\337\340\201\215\201\216\201\217BB\"\201\220\337\340\201\221\201\222\201\223BB\"\201\224\201\225\201\226\201\227\201\230\201\231\201\232\201\233\201\234\337\340\201\235\201\236\201\237BB\"\201\240\201\241\337\340\201\242\201\243\201g\201\244\201\245\201\246#BB\"\257$\210\201r@!\204X@A\202eA\204e\201u@!A\201v\f\201\247\201|AB#\210\201\250\313!\210\314\311\316\201\251\201\252\201\253\201\254\201\255\337\340\201\256\201\257\201\260BB\"\201\261BBBBB\201\262\201\263\201\264\201\265\201\266\337\340\201\267\201\270\201\271BB\"\337\340\201\272\201\273\201\274BB\"\201\275BBB\201\276\201\277\201\300\201\301\201\302\201\303\201\304\201\305\201\306\201\307\201\310\201\311\201\312\201\313\201\314\201\315\201\316\201\317\201\320\201\321\337\340\201\322\201\323\201\324BB\"\201\325\201\326\201\327\337\340\201\330\201\331\201\332BB\"\201\333BBBBBB\257$\210\201\334\201\335!\207" [gnus-summary-mode-map mm-mime-mule-charset-alist innards gnus-summary-article-menu gnus-article-mode-map gnus-article-commands-menu gnus-turn-off-edit-menu summary boundp gnus-summary-misc-menu (lambda (#1=#:def-tmp-var) (defvar gnus-summary-kill-menu #1# #2="")) nil easy-menu-do-define gnus-summary-kill-menu #2# "Score" ["Customize" gnus-score-customize t] gnus-make-score-map increase lower (("Mark" ["Kill below" gnus-summary-kill-below t] ["Mark above" gnus-summary-mark-above t] ["Tick above" gnus-summary-tick-above t] ["Clear above" gnus-summary-clear-above t]) ["Current score" gnus-summary-current-score t] ["Set score" gnus-summary-set-score t] ["Switch current score file..." gnus-score-change-score-file t] ["Set mark below..." gnus-score-set-mark-below t] ["Set expunge below..." gnus-score-set-expunge-below t] ["Edit current score file" gnus-score-edit-current-scores t] ["Edit score file..." gnus-score-edit-file t] ["Trace score" gnus-score-find-trace t] ["Find words" gnus-score-find-favourite-words t] ["Rescore buffer" gnus-summary-rescore t] ["Increase score..." gnus-summary-increase-score t] ["Lower score..." gnus-summary-lower-score t]) ("Hide" ["All" gnus-article-hide t] ["Headers" gnus-article-hide-headers t] ["Signature" gnus-article-hide-signature t] ["Citation" gnus-article-hide-citation t] ["List identifiers" gnus-article-hide-list-identifiers t] ["Banner" gnus-article-strip-banner t] ["Boring headers" gnus-article-hide-boring-headers t]) ("Highlight" ["All" gnus-article-highlight t] ["Headers" gnus-article-highlight-headers t] ["Signature" gnus-article-highlight-signature t] ["Citation" gnus-article-highlight-citation t]) "MIME" ["Words" gnus-article-decode-mime-words t] ["Charset" gnus-article-decode-charset t] ["QP" gnus-article-de-quoted-unreadable t] ["Base64" gnus-article-de-base64-unreadable t] ["View MIME buttons" gnus-summary-display-buttonized t] ["View all" gnus-mime-view-all-parts t] ["Verify and Decrypt" gnus-summary-force-verify-and-decrypt t] apply vector "Encrypt body" gnus-article-encrypt-body :active (not (gnus-group-read-only-p)) (:help "Encrypt the message body on disk") ["Extract all parts..." gnus-summary-save-parts t] "Multipart" ["Repair multipart" gnus-summary-repair-multipart t] ["Pipe part..." gnus-article-pipe-part t] ["Inline part" gnus-article-inline-part t] ["View part as type..." gnus-article-view-part-as-type t] (not (gnus-group-read-only-p)) (:help "Encrypt the message body on disk") (["View part externally" gnus-article-view-part-externally t] ["View HTML parts in browser" gnus-article-browse-html-article t] ["View part with charset..." gnus-article-view-part-as-charset t] ["Copy part" gnus-article-copy-part t] ["Save part..." gnus-article-save-part t] ["View part" gnus-article-view-part t]) ("Date" ["Local" gnus-article-date-local t] ["ISO8601" gnus-article-date-iso8601 t] ["UT" gnus-article-date-ut t] ["Original" gnus-article-date-original t] ["Lapsed" gnus-article-date-lapsed t] ["User-defined" gnus-article-date-user t]) "Display" ["Remove images" gnus-article-remove-images t] ["Toggle smiley" gnus-treat-smiley t] ["Show X-Face" gnus-article-display-x-face t] ["Show picons in From" gnus-treat-from-picon t] ["Show picons in mail headers" gnus-treat-mail-picon t] ["Show picons in news headers" gnus-treat-newsgroups-picon t] ["Show Gravatars in From" gnus-treat-from-gravatar t] ["Show Gravatars in mail headers" gnus-treat-mail-gravatar t] "View as different encoding" gnus-summary-menu-split mapcar #[(cs) "\302\303\304\"!\211\305\306\307\310\311\312\313BCDDC\314BBFM\210\315\316\317!	\320BB\")\207" [cs command intern format "gnus-summary-show-article-from-menu-as-charset-%s" lambda nil (interactive) let gnus-summary-show-article-charset-alist quote 1 ((gnus-summary-show-article 1)) apply vector symbol-name (t)] 10] sort fboundp coding-system-list gnus-summary-post-menu gnus-article-post-menu car string< "Washing" ("Remove Blanks" ["Leading" gnus-article-strip-leading-blank-lines t] ["Multiple" gnus-article-strip-multiple-blank-lines t] ["Trailing" gnus-article-remove-trailing-blank-lines t] ["All of the above" gnus-article-strip-blank-lines t] ["All" gnus-article-strip-all-blank-lines t] ["Leading space" gnus-article-strip-leading-space t] ["Trailing space" gnus-article-strip-trailing-space t] ["Leading space in headers" gnus-article-remove-leading-whitespace t]) ["Overstrike" gnus-article-treat-overstrike t] ["Dumb quotes" gnus-article-treat-dumbquotes t] ["Non-ASCII" gnus-article-treat-non-ascii t] ["Emphasis" gnus-article-emphasize t] ["Word wrap" gnus-article-fill-cited-article t] ["Fill long lines" gnus-article-fill-long-lines t] ["Toggle truncate long lines" gnus-article-toggle-truncate-lines t] ["Capitalize sentences" gnus-article-capitalize-sentences t] ["Remove CR" gnus-article-remove-cr t] ["Quoted-Printable" gnus-article-de-quoted-unreadable t] ["Base64" gnus-article-de-base64-unreadable t] "Rot 13" gnus-summary-caesar-message (:help "\"Caesar rotate\" article by 13") (["De-IDNA" gnus-summary-idna-message t] ["Morse decode" gnus-summary-morse-message t] ["Unix pipe..." gnus-summary-pipe-message t] ["Add buttons" gnus-article-add-buttons t] ["Add buttons to head" gnus-article-add-buttons-to-head t] ["Stop page breaking" gnus-summary-stop-page-breaking t] ["Verbose header" gnus-summary-verbose-headers t] ["Toggle header" gnus-summary-toggle-header t] ["Unfold headers" gnus-article-treat-unfold-headers t] ["Fold newsgroups" gnus-article-treat-fold-newsgroups t] ["Html" gnus-article-wash-html t] ["Unsplit URLs" gnus-article-unsplit-urls t] ["Verify X-PGP-Sig" gnus-article-verify-x-pgp-sig t] ["Decode HZ" gnus-article-decode-HZ t] ["ANSI sequences" gnus-article-treat-ansi-sequences t] ("(Outlook) Deuglify" ["Unwrap lines" gnus-article-outlook-unwrap-lines t] ["Repair attribution" gnus-article-outlook-repair-attribution t] ["Rearrange citation" gnus-article-outlook-rearrange-citation t] ["Full (Outlook) deuglify" gnus-article-outlook-deuglify-article t])) "Output" "Save in default format..." gnus-summary-save-article (:help "Save article using default method") "Save in file..." gnus-summary-save-article-file (:help "Save article in file") ["Save in Unix mail format..." gnus-summary-save-article-mail t] ["Save in MH folder..." gnus-summary-save-article-folder t] ["Save in VM folder..." gnus-summary-save-article-vm t] ["Save in RMAIL mbox..." gnus-summary-save-article-rmail t] ["Save body in file..." gnus-summary-save-article-body-file t] ["Pipe through a filter..." gnus-summary-pipe-output t] ["Print with Muttprint..." gnus-summary-muttprint t] "Print" gnus-summary-print-article (:help "Generate and print a PostScript image") "Copy, move,... (Backend)" append (:help "Copying, moving, expiring articles...") (["Respool article..." gnus-summary-respool-article t] ["Move article..." gnus-summary-move-article (gnus-check-backend-function 'request-move-article gnus-newsgroup-name)] ["Copy article..." gnus-summary-copy-article t] ["Crosspost article..." gnus-summary-crosspost-article (gnus-check-backend-function 'request-replace-article gnus-newsgroup-name)] ["Import file..." gnus-summary-import-article (gnus-check-backend-function 'request-accept-article gnus-newsgroup-name)] ["Create article..." gnus-summary-create-article (gnus-check-backend-function 'request-accept-article gnus-newsgroup-name)] ["Check if posted" gnus-summary-article-posted-p t] ["Edit article" gnus-summary-edit-article (not (gnus-group-read-only-p))] ["Delete article" gnus-summary-delete-article (gnus-check-backend-function 'request-expire-articles gnus-newsgroup-name)] ["Query respool" gnus-summary-respool-query t] ["Trace respool" gnus-summary-respool-trace t] ["Delete expirable articles" gnus-summary-expire-articles-now (gnus-check-backend-function 'request-expire-articles gnus-newsgroup-name)]) "Extract" "Uudecode" gnus-uu-decode-uu (:help "Decode uuencoded article(s)") (["Uudecode and save" gnus-uu-decode-uu-and-save t] ["Unshar" gnus-uu-decode-unshar t] ["Unshar and save" gnus-uu-decode-unshar-and-save t] ["Save" gnus-uu-decode-save t] ["Binhex" gnus-uu-decode-binhex t] ["PostScript" gnus-uu-decode-postscript t] ["All MIME parts" gnus-summary-save-parts t]) (("Cache" ["Enter article" gnus-cache-enter-article t] ["Remove article" gnus-cache-remove-article t]) ["Translate" gnus-article-babel t] ["Select article buffer" gnus-summary-select-article-buffer t] ["Make article buffer sticky" gnus-sticky-article t] ["Enter digest buffer" gnus-summary-enter-digest-group t] ["Isearch article..." gnus-summary-isearch-article t] ["Beginning of the article" gnus-summary-beginning-of-article t] ["End of the article" gnus-summary-end-of-article t] ["Fetch parent of article" gnus-summary-refer-parent-article t] ["Fetch referenced articles" gnus-summary-refer-references t] ["Fetch current thread" gnus-summary-refer-thread t] ["Fetch article with id..." gnus-summary-refer-article t] ["Setup Mailing List Params" gnus-mailing-list-insinuate t] ["Redisplay" gnus-summary-show-article t] ["Raw article" gnus-summary-show-raw-article :keys "C-u g"]) (lambda (#1#) (defvar gnus-summary-article-menu #1# #2#)) "Article" keymapp (lambda (#1#) (defvar gnus-article-commands-menu #1# #2#)) "Commands" copy-keymap define-key [menu-bar commands] (lambda (#1#) (defvar gnus-summary-thread-menu #1# #2#)) gnus-summary-thread-menu ("Threads" ["Find all messages in thread" gnus-summary-refer-thread t] ["Toggle threading" gnus-summary-toggle-threads t] ["Hide threads" gnus-summary-hide-all-threads t] ["Show threads" gnus-summary-show-all-threads t] ["Hide thread" gnus-summary-hide-thread t] ["Show thread" gnus-summary-show-thread t] ["Go to next thread" gnus-summary-next-thread t] ["Go to previous thread" gnus-summary-prev-thread t] ["Go down thread" gnus-summary-down-thread t] ["Go up thread" gnus-summary-up-thread t] ["Top of thread" gnus-summary-top-thread t] ["Mark thread as read" gnus-summary-kill-thread t] ["Mark thread as expired" gnus-summary-expire-thread t] ["Lower thread score" gnus-summary-lower-thread t] ["Raise thread score" gnus-summary-raise-thread t] ["Rethread current" gnus-summary-rethread-current t]) (lambda (#1#) (defvar gnus-summary-post-menu #1# #2#)) "Post" "Send a message (mail or news)" gnus-summary-post-news (:help "Compose a new message (mail or news)") "Followup" gnus-summary-followup (:help "Post followup to this article") "Followup and yank" gnus-summary-followup-with-original (:help "Post followup to this article, quoting its contents") ["Supersede article" gnus-summary-supersede-article t] "Cancel article" gnus-summary-cancel-article (:help "Cancel an article you posted") ["Reply" gnus-summary-reply t] ["Reply and yank" gnus-summary-reply-with-original t] ["Wide reply" gnus-summary-wide-reply t] "Wide reply and yank" gnus-summary-wide-reply-with-original (:help "Mail a reply, quoting this article") ["Very wide reply" gnus-summary-very-wide-reply t] "Very wide reply and yank" gnus-summary-very-wide-reply-with-original (:help "Mail a very wide reply, quoting this article") ["Mail forward" gnus-summary-mail-forward t] ["Post forward" gnus-summary-post-forward t] ["Digest and mail" gnus-uu-digest-mail-forward t] ["Digest and post" gnus-uu-digest-post-forward t] ["Resend message" gnus-summary-resend-message t] ["Resend message edit" gnus-summary-resend-message-edit t] ["Send bounced mail" gnus-summary-resend-bounced-mail t] ["Send a mail" gnus-summary-mail-other-window t] ["Create a local message" gnus-summary-news-other-window t] "Uuencode and post" gnus-uu-post-news (:help "Post a uuencoded article") ["Followup via news" gnus-summary-followup-to-mail t] ["Followup via news and yank" gnus-summary-followup-to-mail-with-original t] "Strip signature on reply" (lambda nil (interactive) (if (not (memq message-cite-function '(message-cite-original-without-signature message-cite-original))) (message "Can't toggle this value of `message-cite-function'") (setq message-cite-function (if (eq message-cite-function 'message-cite-original-without-signature) 'message-cite-original 'message-cite-original-without-signature)))) (:visible (memq message-cite-function '(message-cite-original-without-signature message-cite-original))) (:style toggle :selected (eq message-cite-function 'message-cite-original-without-signature)) (:help "Strip signature from cited article when replying.") [menu-bar post] (lambda (#1#) (defvar gnus-summary-misc-menu #1# #2#)) "Gnus" "Mark Read" ["Mark as read" gnus-summary-mark-as-read-forward t] ["Mark same subject and select" gnus-summary-kill-same-subject-and-select t] ["Mark same subject" gnus-summary-kill-same-subject t] "Catchup" gnus-summary-catchup (:help "Mark unread articles in this group as read") (["Catchup all" gnus-summary-catchup-all t] ["Catchup to here" gnus-summary-catchup-to-here t] ["Catchup from here" gnus-summary-catchup-from-here t] ["Catchup region" gnus-summary-mark-region-as-read (gnus-mark-active-p)] ["Mark excluded" gnus-summary-limit-mark-excluded-as-read t]) ("Mark Various" ["Tick" gnus-summary-tick-article-forward t] ["Mark as dormant" gnus-summary-mark-as-dormant t] ["Remove marks" gnus-summary-clear-mark-forward t] ["Set expirable mark" gnus-summary-mark-as-expirable t] ["Set bookmark" gnus-summary-set-bookmark t] ["Remove bookmark" gnus-summary-remove-bookmark t]) ("Limit to" ["Marks..." gnus-summary-limit-to-marks t] ["Subject..." gnus-summary-limit-to-subject t] ["Author..." gnus-summary-limit-to-author t] ["Recipient..." gnus-summary-limit-to-recipient t] ["Address..." gnus-summary-limit-to-address t] ["Age..." gnus-summary-limit-to-age t] ["Extra..." gnus-summary-limit-to-extra t] ["Score..." gnus-summary-limit-to-score t] ["Display Predicate" gnus-summary-limit-to-display-predicate t] ["Unread" gnus-summary-limit-to-unread t] ["Unseen" gnus-summary-limit-to-unseen t] ["Singletons" gnus-summary-limit-to-singletons t] ["Replied" gnus-summary-limit-to-replied t] ["Non-dormant" gnus-summary-limit-exclude-dormant t] ["Next or process marked articles" gnus-summary-limit-to-articles t] ["Pop limit" gnus-summary-pop-limit t] ["Show dormant" gnus-summary-limit-include-dormant t] ["Hide childless dormant" gnus-summary-limit-exclude-childless-dormant t] ["Hide marked" gnus-summary-limit-exclude-marks t] ["Show expunged" gnus-summary-limit-include-expunged t]) ("Process Mark" ["Set mark" gnus-summary-mark-as-processable t] ["Remove mark" gnus-summary-unmark-as-processable t] ["Remove all marks" gnus-summary-unmark-all-processable t] ["Invert marks" gnus-uu-invert-processable t] ["Mark above" gnus-uu-mark-over t] ["Mark series" gnus-uu-mark-series t] ["Mark region" gnus-uu-mark-region (gnus-mark-active-p)] ["Unmark region" gnus-uu-unmark-region (gnus-mark-active-p)] ["Mark by regexp..." gnus-uu-mark-by-regexp t] ["Unmark by regexp..." gnus-uu-unmark-by-regexp t] ["Mark all" gnus-uu-mark-all t] ["Mark buffer" gnus-uu-mark-buffer t] ["Mark sparse" gnus-uu-mark-sparse t] ["Mark thread" gnus-uu-mark-thread t] ["Unmark thread" gnus-uu-unmark-thread t] ("Process Mark Sets" ["Kill" gnus-summary-kill-process-mark t] ["Yank" gnus-summary-yank-process-mark gnus-newsgroup-process-stack] ["Save" gnus-summary-save-process-mark t] ["Run command on marked..." gnus-summary-universal-argument t])) ("Registry Marks") "Scroll article" "Page forward" gnus-summary-next-page (:help "Show next page of article") "Page backward" gnus-summary-prev-page (:help "Show previous page of article") (["Line forward" gnus-summary-scroll-up t]) ("Move" ["Next unread article" gnus-summary-next-unread-article t] ["Previous unread article" gnus-summary-prev-unread-article t] ["Next article" gnus-summary-next-article t] ["Previous article" gnus-summary-prev-article t] ["Next unread subject" gnus-summary-next-unread-subject t] ["Previous unread subject" gnus-summary-prev-unread-subject t] ["Next article same subject" gnus-summary-next-same-subject t] ["Previous article same subject" gnus-summary-prev-same-subject t] ["First unread article" gnus-summary-first-unread-article t] ["Best unread article" gnus-summary-best-unread-article t] ["Go to subject number..." gnus-summary-goto-subject t] ["Go to article number..." gnus-summary-goto-article t] ["Go to the last article" gnus-summary-goto-last-article t] ["Pop article off history" gnus-summary-pop-article t]) ("Sort" ["Sort by number" gnus-summary-sort-by-number t] ["Sort by most recent number" gnus-summary-sort-by-most-recent-number t] ["Sort by author" gnus-summary-sort-by-author t] ["Sort by recipient" gnus-summary-sort-by-recipient t] ["Sort by subject" gnus-summary-sort-by-subject t] ["Sort by date" gnus-summary-sort-by-date t] ["Sort by most recent date" gnus-summary-sort-by-most-recent-date t] ["Sort by score" gnus-summary-sort-by-score t] ["Sort by lines" gnus-summary-sort-by-lines t] ["Sort by characters" gnus-summary-sort-by-chars t] ["Randomize" gnus-summary-sort-by-random t] ["Original sort" gnus-summary-sort-by-original t]) ("Help" ["Describe group" gnus-summary-describe-group t] ["Read manual" gnus-info-find-node t]) ("Modes" ["Pick and read" gnus-pick-mode t] ["Binary" gnus-binary-mode t]) ("Regeneration" ["Regenerate" gnus-summary-prepare t] ["Insert cached articles" gnus-summary-insert-cached-articles t] ["Insert dormant articles" gnus-summary-insert-dormant-articles t] ["Insert ticked articles" gnus-summary-insert-ticked-articles t] ["Toggle threading" gnus-summary-toggle-threads t]) ["See old articles" gnus-summary-insert-old-articles t] ["See new articles" gnus-summary-insert-new-articles t] ["Filter articles..." gnus-summary-execute-command t] ["Run command on articles..." gnus-summary-universal-argument t] ["Search articles forward..." gnus-summary-search-article-forward t] ["Search articles backward..." gnus-summary-search-article-backward t] ["Toggle line truncation" gnus-summary-toggle-truncation t] ["Expand window" gnus-summary-expand-window t] ["Expire expirable articles" gnus-summary-expire-articles (gnus-check-backend-function 'request-expire-articles gnus-newsgroup-name)] ["Edit local kill file" gnus-summary-edit-local-kill t] ["Edit main kill file" gnus-summary-edit-global-kill t] ["Edit group parameters" gnus-summary-edit-parameters t] ["Customize group parameters" gnus-summary-customize-parameters t] ["Send a bug report" gnus-bug t] "Exit" "Catchup and exit" gnus-summary-catchup-and-exit (:help "Mark unread articles in this group as read, then exit") ["Catchup all and exit" gnus-summary-catchup-all-and-exit t] ["Catchup and goto next" gnus-summary-catchup-and-goto-next-group t] ["Catchup and goto prev" gnus-summary-catchup-and-goto-prev-group t] "Exit group" gnus-summary-exit (:help "Exit current group, return to group selection mode") (["Exit group without updating" gnus-summary-exit-no-update t] ["Exit and goto next group" gnus-summary-next-group t] ["Exit and goto prev group" gnus-summary-prev-group t] ["Reselect group" gnus-summary-reselect-current-group t] ["Rescan group" gnus-summary-rescan-group t] ["Update dribble" gnus-summary-save-newsrc t]) gnus-run-hooks gnus-summary-menu-hook] 40])
(defvar gnus-summary-tool-bar-map nil)
#@68 Update summary mode toolbar.
Setter function for custom variables.
(defalias 'gnus-summary-tool-bar-update #[(&optional symbol value) "\304\305\306\"\210\203\304	\"\210\n\211\205\307\310!!)\205$r\nq\210\311 )\207" [symbol value gnus-summary-buffer buffer set-default gnus-summary-tool-bar-map nil buffer-live-p get-buffer gnus-summary-make-tool-bar] 4 (#$ . 101566)])
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315&
\210\300\316\317\320\304\321\306\307\310\311\312\313\314\315&
\210\300\322\323\324\304\325\306\307\310\311\312\313\314\315&
\210\300\326\327\330\304\331\306\307\310\311\312\313\314\315&
\207" [custom-declare-variable gnus-summary-tool-bar (if (eq gmm-tool-bar-style 'gnome) 'gnus-summary-tool-bar-gnome 'gnus-summary-tool-bar-retro) "Specifies the Gnus summary 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-summary-mode-map'.\n\nPre-defined symbols include `gnus-summary-tool-bar-gnome' and\n`gnus-summary-tool-bar-retro'." :type (choice (const :tag "GNOME style" gnus-summary-tool-bar-gnome) (const :tag "Retro look" gnus-summary-tool-bar-retro) (repeat :tag "User defined list" gmm-tool-bar-item) (symbol)) :version "23.1" :initialize custom-initialize-default :set gnus-summary-tool-bar-update :group gnus-summary gnus-summary-tool-bar-gnome '((gnus-summary-post-news "mail/compose" nil) (gnus-summary-insert-new-articles "mail/inbox" nil :visible (or (not gnus-agent) gnus-plugged)) (gnus-summary-reply-with-original "mail/reply") (gnus-summary-reply "mail/reply" nil :visible nil) (gnus-summary-followup-with-original "mail/reply-all") (gnus-summary-followup "mail/reply-all" nil :visible nil) (gnus-summary-mail-forward "mail/forward") (gnus-summary-save-article "mail/save") (gnus-summary-search-article-forward "search" nil :visible nil) (gnus-summary-print-article "print") (gnus-summary-tick-article-forward "flag-followup" nil :visible nil) (gnus-summary-save-newsrc "save" nil :visible nil) (gnus-summary-prev-article "left-arrow") (gnus-summary-next-article "right-arrow") (gnus-summary-next-page "next-page") (gnus-summary-mark-as-expirable "delete" nil :visible (gnus-check-backend-function 'request-expire-articles gnus-newsgroup-name)) (gnus-summary-mark-as-spam "mail/spam" t :visible (and (fboundp 'spam-group-ham-contents-p) (spam-group-ham-contents-p gnus-newsgroup-name)) :help "Mark as spam") (gnus-summary-mark-as-read-forward "mail/not-spam" nil :visible (and (fboundp 'spam-group-spam-contents-p) (spam-group-spam-contents-p gnus-newsgroup-name))) (gnus-summary-exit "exit") (gmm-customize-mode "preferences" t :help "Edit mode preferences") (gnus-info-find-node "help")) "List of functions for the summary tool bar (GNOME style).\n\nSee `gmm-tool-bar-from-list' for the format of the list." (repeat gmm-tool-bar-item) gnus-summary-tool-bar-retro '((gnus-summary-prev-unread-article "gnus/prev-ur") (gnus-summary-next-unread-article "gnus/next-ur") (gnus-summary-post-news "gnus/post") (gnus-summary-followup-with-original "gnus/fuwo") (gnus-summary-followup "gnus/followup") (gnus-summary-reply-with-original "gnus/reply-wo") (gnus-summary-reply "gnus/reply") (gnus-summary-caesar-message "gnus/rot13") (gnus-uu-decode-uu "gnus/uu-decode") (gnus-summary-save-article-file "gnus/save-aif") (gnus-summary-save-article "gnus/save-art") (gnus-uu-post-news "gnus/uu-post") (gnus-summary-catchup "gnus/catchup") (gnus-summary-catchup-and-exit "gnus/cu-exit") (gnus-summary-exit "gnus/exit-summ") (gnus-summary-print-article "gnus/print" nil :visible nil) (gnus-summary-mark-as-expirable "gnus/close" nil :visible nil) (gnus-summary-save-newsrc "gnus/save" nil :visible nil) (gnus-summary-search-article-forward "gnus/search" nil :visible nil) (gnus-info-find-node "gnus/help" nil :visible nil)) "List of functions for the summary tool bar (retro look).\n\nSee `gmm-tool-bar-from-list' for the format of the list." (repeat gmm-tool-bar-item) gnus-summary-tool-bar-zap-list t "List of icon items from the global tool bar.\nThese items are not displayed in the Gnus summary mode tool bar.\n\nSee `gmm-tool-bar-from-list' for the format of the list." gmm-tool-bar-zap-list] 14)
#@94 Make a summary mode tool bar from `gnus-summary-tool-bar'.
When FORCE, rebuild the tool bar.
(defalias 'gnus-summary-make-tool-bar #[(&optional force) "\306\300!\2034\2034	\203\n\2034\307\310\311\312\313$\211@\306\304!\205\"\fB\314
\315#\211\2033+\316\317!\210	\211\207" [tool-bar-mode gnus-summary-tool-bar-map force load-path image-load-path gnus-summary-tool-bar boundp gmm-image-load-path-for-library "gnus" "mail/save.xpm" nil t gmm-tool-bar-from-list gnus-summary-mode-map make-local-variable tool-bar-map gnus-summary-tool-bar-zap-list map] 6 (#$ . 105828)])
#@40 Make a summary score map of type TYPE.
(defalias 'gnus-make-score-map #[(type) "\300\207" [nil] 1 (#$ . 106419)])
#@795 Major mode for reading articles.

All normal editing commands are switched off.
\<gnus-summary-mode-map>
Each line in this buffer represents one article.  To read an
article, you can, for instance, type `\[gnus-summary-next-page]'.  To move forwards
and backwards while displaying articles, type `\[gnus-summary-next-unread-article]' and `\[gnus-summary-prev-unread-article]',
respectively.

You can also post articles and send mail from this buffer.  To
follow up an article, type `\[gnus-summary-followup]'.  To mail a reply to the author
of an article, type `\[gnus-summary-reply]'.

There are approx. one gazillion commands you can execute in this
buffer; read the info pages for more information (`\[gnus-info-find-node]').

The following commands are available:

\{gnus-summary-mode-map}
(defalias 'gnus-summary-mode #[(&optional group) "\306 \210\307 \210)\307 \210\n\310\311\312\"\203\313 \210\314 \210\315 \210\316 \210\317\320\3210!\210\322 \210\3231\3242\3233\325\326!\210\327\330\331!\210\332 \210\333 \210\325\334!\210\325\335!\210\325\336!\210\325\337!\210\325\340!\210\341\342!\210\343\342\344\324\323$\210\345\346!\210\347 \210\350 \210\325\351!\210\352)\353\324\354\355\356$\210\357 \207" [gnus-newsgroup-variables gnus-summary-local-variables group gnus-newsgroup-name major-mode mode-name kill-all-local-variables gnus-summary-make-local-variables gnus-visual-p summary-menu menu gnus-summary-make-menu-bar gnus-summary-make-tool-bar gnus-make-thread-indent-array gnus-simplify-mode-line gnus-summary-mode "Summary" use-local-map buffer-disable-undo t nil make-local-variable bidi-paragraph-direction left-to-right add-to-invisibility-spec (gnus-sum . t) gnus-summary-set-display-table gnus-set-default-directory gnus-summary-line-format gnus-summary-line-format-spec gnus-summary-dummy-line-format gnus-summary-dummy-line-format-spec gnus-summary-mark-positions gnus-make-local-hook pre-command-hook add-hook gnus-set-global-variables gnus-run-mode-hooks gnus-summary-mode-hook turn-on-gnus-mailing-list-mode mm-enable-multibyte bookmark-make-record-function gnus-summary-bookmark-make-record gnus-update-format-specifications summary summary-mode summary-dummy gnus-update-summary-mark-positions gnus-summary-mode-map buffer-read-only show-trailing-whitespace truncate-lines] 5 (#$ . 106540) nil])
#@46 Make all the local summary buffer variables.
(defalias 'gnus-summary-make-local-variables #[nil "\304	\304\211\205=@\211:\203/\nA\300=\203 \n@J\202%\305\nA!\306\n@!L\210\2025\306\n!\304L\210A\211\204\n\304+\207" [global gnus-summary-local-variables local --dolist-tail-- nil eval make-local-variable] 3 (#$ . 108879)])
(defalias 'gnus-data-number '(macro . #[(data) "\301D\207" [data car] 2]))
(defalias 'gnus-data-set-number '(macro . #[(data number) "\302	E\207" [data number setcar] 3]))
(defalias 'gnus-data-mark '(macro . #[(data) "\301\302E\207" [data nth 1] 3]))
(defalias 'gnus-data-set-mark '(macro . #[(data mark) "\302\303\304E	E\207" [data mark setcar nthcdr 1] 4]))
(defalias 'gnus-data-pos '(macro . #[(data) "\301\302E\207" [data nth 2] 3]))
(defalias 'gnus-data-set-pos '(macro . #[(data pos) "\302\303\304E	E\207" [data pos setcar nthcdr 2] 4]))
(defalias 'gnus-data-header '(macro . #[(data) "\301\302E\207" [data nth 3] 3]))
(defalias 'gnus-data-set-header '(macro . #[(data header) "\302\303\304E	E\207" [data header setf nth 3] 4]))
(defalias 'gnus-data-level '(macro . #[(data) "\301\302E\207" [data nth 4] 3]))
(defalias 'gnus-data-unread-p '(macro . #[(data) "\301\302\303E\304BB\207" [data = nth 1 (gnus-unread-mark)] 4]))
(defalias 'gnus-data-read-p '(macro . #[(data) "\301\302\303E\304BB\207" [data /= nth 1 (gnus-unread-mark)] 4]))
(defalias 'gnus-data-pseudo-p '(macro . #[(data) "\301\302\303ED\207" [data consp nth 3] 4]))
(defalias 'gnus-data-find '(macro . #[(number) "\301\302BB\207" [number assq (gnus-newsgroup-data)] 3]))
(defalias 'gnus-data-find-list '(macro . #[(number &optional data) "\302\303\206\304DC\305\306	\307BB\310BBE\207" [data number let bdata gnus-newsgroup-data memq assq (bdata) (bdata)] 6]))
(defalias 'gnus-data-make '(macro . #[(number mark pos header level) "\305	\n\f\257\207" [number mark pos header level list] 6]))
(defalias 'gnus-data-enter #[(after-article number mark pos header level offset) "\n	\236	>)\211\204\306\307\n\"\210\f
\n\f\257AB\241\210\310
\311\211AA)\")\207" [gnus-newsgroup-data bdata after-article data number mark error "No such article: %d" nil gnus-data-update-list pos header level gnus-newsgroup-data-reverse x offset] 7])
(defalias 'gnus-data-enter-list #[(after-article list &optional offset) "\205i	\205\n	\236>)\211\2042	\2042\n	\n\244\n\203.\306	\n\"\210)\202d\307!
\204O\n\241\210\f\n\203d\306A\n\"\210\202d
A\241\210
\f\241\210\n\203d\306A\n\"\210\310\211*\207" [list after-article gnus-newsgroup-data bdata ilist data gnus-data-update-list last nil odata offset gnus-newsgroup-data-reverse] 4])
(defalias 'gnus-data-remove #[(article &optional offset) "\211@@\nU\203A\306\f\205I\307\f\"\202I	A\205I	\211A@)@\nU\203B	\211\211AA)\241\210\f\203>\307	A\f\"\210\306\211	A\211\202)\207" [gnus-newsgroup-data data article gnus-newsgroup-data-reverse offset x nil gnus-data-update-list] 4])
(defalias 'gnus-data-list '(macro . #[(backward) "\301\302BB\207" [backward if ((or gnus-newsgroup-data-reverse (setq gnus-newsgroup-data-reverse (reverse gnus-newsgroup-data))) gnus-newsgroup-data)] 3]))
#@52 Add OFFSET to the POS of all data entries in DATA.
(defalias 'gnus-data-update-list #[(data offset) "\303	\205	@AA\n\304	@8\\\240\210	A\211\204\303\207" [gnus-newsgroup-data-reverse data offset nil 2] 5 (#$ . 112081)])
#@54 Say whether this article is a pseudo article or not.
(defalias 'gnus-summary-article-pseudo-p #[(article) "\302\303	\2368!?\207" [article gnus-newsgroup-data vectorp 3] 4 (#$ . 112312)])
#@54 Say whether this article is a sparse article or not.
(defalias 'gnus-summary-article-sparse-p '(macro . #[(article) "\301\302BB\207" [article memq (gnus-newsgroup-sparse)] 3 (#$ . 112506)]))
#@54 Say whether this article is a sparse article or not.
(defalias 'gnus-summary-article-ancient-p '(macro . #[(article) "\301\302BB\207" [article memq (gnus-newsgroup-ancient)] 3 (#$ . 112704)]))
#@42 Return a list of all children to NUMBER.
(defalias 'gnus-article-children #[(number) "\n	\236	>)\306@8\307A\211\203.\306@8\fTU\203.@@
BA\211\204
+\207" [gnus-newsgroup-data bdata number data level children 4 nil] 3 (#$ . 112904)])
#@73 If the current article is intangible, then jump to a different article.
(defalias 'gnus-summary-skip-intangible '(macro . #[nil "\300\207" [(let ((to (get-text-property (point) 'gnus-intangible))) (and to (gnus-summary-goto-subject to)))] 1 (#$ . 113158)]))
#@48 Say whether this article is intangible or not.
(defalias 'gnus-summary-article-intangible-p '(macro . #[nil "\300\207" [(get-text-property (point) 'gnus-intangible)] 1 (#$ . 113422)]))
#@138 The article number of the article on the current line.
If there isn't an article number here, then we return the current
article number.
(defalias 'gnus-summary-article-number '(macro . #[nil "\300\207" [(progn (gnus-summary-skip-intangible) (or (get-text-property (point) 'gnus-number) (gnus-summary-last-subject)))] 1 (#$ . 113614)]))
#@38 Return the header of article NUMBER.
(defalias 'gnus-summary-article-header '(macro . #[(&optional number) "\301\302\206\303DD\207" [number gnus-data-header gnus-data-find (gnus-summary-article-number)] 3 (#$ . 113957)]))
#@61 Return the level of thread that starts with article NUMBER.
(defalias 'gnus-summary-thread-level '(macro . #[(&optional number) "\301\302\303\304\305\206\n\306DDF\207" [number if (and (eq gnus-summary-make-false-root 'dummy) (get-text-property (point) 'gnus-intangible)) 0 gnus-data-level gnus-data-find (gnus-summary-article-number)] 6 (#$ . 114188)]))
#@36 Return the mark of article NUMBER.
(defalias 'gnus-summary-article-mark '(macro . #[(&optional number) "\301\302\206\303DD\207" [number gnus-data-mark gnus-data-find (gnus-summary-article-number)] 3 (#$ . 114550)]))
#@52 Return the position of the line of article NUMBER.
(defalias 'gnus-summary-article-pos '(macro . #[(&optional number) "\301\302\206\303DD\207" [number gnus-data-pos gnus-data-find (gnus-summary-article-number)] 3 (#$ . 114775)]))
(defalias 'gnus-summary-subject-string 'gnus-summary-article-subject)
#@50 Return current subject string or nil if nothing.
(defalias 'gnus-summary-article-subject '(macro . #[(&optional number) "\301\302\203\303\304\305BBD\202\306DC\307BB\207" [number let headers gnus-data-header assq (gnus-newsgroup-data) (gnus-data-header (assq (gnus-summary-article-number) gnus-newsgroup-data)) ((and headers (vectorp headers) (mail-header-subject headers)))] 6 (#$ . 115084)]))
#@31 Return current article score.
(defalias 'gnus-summary-article-score '(macro . #[(&optional number) "\301\302\303\206\304\305BBD\306BB\207" [number or cdr assq (gnus-summary-article-number) (gnus-newsgroup-scored) (gnus-summary-default-score 0)] 5 (#$ . 115490)]))
#@71 Return a list of article numbers that are children of article NUMBER.
(defalias 'gnus-summary-article-children #[(&optional number) "\n\206\306`\307\"\211\203\310!\210)\306`\311\"\206\312 	\236	>)\313\f@8\314\211
\fA\211\203T\313\f@8\211

V\203T
T
U\203.\f@@B\202.\237,\207" [gnus-newsgroup-data bdata number to data level get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 4 nil l children] 4 (#$ . 115763)])
#@60 Return the article number of the parent of article NUMBER.
(defalias 'gnus-summary-article-parent #[(&optional number) "\206	\306	!\211\206%\307`\310\"\211\203\311\f!\210)\307`\312\"\206%\313 \n\236\n>)\314
@8\315!?\205Q
A\211\203J\314
@8W\2039
\205Q
@@*\207" [gnus-newsgroup-data-reverse gnus-newsgroup-data bdata number to data reverse get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 4 zerop level] 4 (#$ . 116254)])
#@38 Say whether MARK is the unread mark.
(defalias 'gnus-unread-mark-p #[(mark) "	U\207" [mark gnus-unread-mark] 2 (#$ . 116751)])
#@122 Say whether MARK is one of the marks that mark as read.
This is all marks except unread, ticked, dormant, and expirable.
(defalias 'gnus-read-mark-p #[(mark) "	U\206\nU\206U\206\fU\206
U?\207" [mark gnus-unread-mark gnus-ticked-mark gnus-spam-mark gnus-dormant-mark gnus-expirable-mark] 2 (#$ . 116886)])
#@240 Return the MARK of article NUMBER.
This macro should only be used when computing the mark the "first"
time; i.e., when generating the summary lines.  After that,
`gnus-summary-article-mark' should be used to examine the
marks of articles.
(defalias 'gnus-article-mark '(macro . #[(number) "\301\302\303BB\304B\302\305BB\306B\302\307BB\310B\302\311BB\312B\302\313BB\314B\302\315BB\316B\302\317BB\320B\321\322\323\324\325BBD\326BBD\257	\207" [number cond memq (gnus-newsgroup-unsendable) (gnus-unsendable-mark) (gnus-newsgroup-downloadable) (gnus-downloadable-mark) (gnus-newsgroup-unreads) (gnus-unread-mark) (gnus-newsgroup-marked) (gnus-ticked-mark) (gnus-newsgroup-spam-marked) (gnus-spam-mark) (gnus-newsgroup-dormant) (gnus-dormant-mark) (gnus-newsgroup-expirable) (gnus-expirable-mark) t or cdr assq (gnus-newsgroup-reads) (gnus-ancient-mark)] 14 (#$ . 117212)]))
#@66 Save hidden threads, eval FORMS, and restore the hidden threads.
(defalias 'gnus-save-hidden-threads '(macro . #[(&rest forms) "\302\303!\304\305BC\306\307	B\310DEE)\207" [config forms make-symbol "config" let ((gnus-hidden-threads-configuration)) unwind-protect save-excursion gnus-restore-hidden-threads-configuration] 6 (#$ . 118095)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put gnus-save-hidden-threads lisp-indent-function 0 edebug-form-spec (body)] 4)
#@40 Compute the positions of all articles.
(defalias 'gnus-data-compute-positions #[nil "\304	\212\305 \306\216\212\307 \210eb\210\n\2054\310`\311\"\203\"\312y\210\202\n@AA`\313\\\240\210\nA\312y\210\202-\207" [gnus-newsgroup-data-reverse gnus-newsgroup-data data #1=#:config nil gnus-hidden-threads-configuration ((gnus-restore-hidden-threads-configuration #1#)) gnus-summary-show-all-threads get-text-property gnus-intangible 1 3] 3 (#$ . 118581)])
#@50 Return the current hidden threads configuration.
(defalias 'gnus-hidden-threads-configuration #[nil "\212\301eb\210m\204#\302\303 \304\"\305=\203\212\306y\210`)B\307y\210\202*\207" [config nil get-char-property point-at-eol invisible gnus-sum 0 1] 3 (#$ . 119044)])
#@51 Restore hidden threads configuration from CONFIG.
(defalias 'gnus-restore-hidden-threads-configuration #[(config) "\212\303\304\n\211A@\211\205	b\210\305 \210\202+\207" [inhibit-read-only point config nil t gnus-summary-hide-thread] 2 (#$ . 119325)])
(defalias 'gnus-mouse-pick-article #[(e) "\301!\210\302\303\304\"\207" [e mouse-set-point gnus-summary-next-page nil t] 3 nil "e"])
#@158 Change the display table.
Odd characters have a tendency to mess
up nicely formatted displays - we make all possible glyphs
display only a single character.
(defalias 'gnus-summary-set-display-table #[nil "\304!\206\305 \306	S\211\307Y\203\n	\310I\210\202\n\311\312I\210\n\313\312I\210\n\314\312I\210\312\315\316\217\2036\317\2027\320	S\211\321Y\203O\n	H\2048\n	\322I\210\2028)\n\211*\207" [standard-display-table i table buffer-display-table copy-sequence make-display-table 32 0 [63] 10 nil 13 9 (byte-code "\300\301\302\"\302U\207" [make-char latin-iso8859-1 160] 3) ((error)) 160 256 127 [63]] 3 (#$ . 119724)])
#@60 Update the overlay arrow to point to line at position POS.
(defalias 'gnus-summary-set-article-display-arrow #[(pos) "\205#\304\302!\210\304\303!\210\212	b\210\305 \210\n\204\306 \307\n`p\223\211)\207" [gnus-summary-display-arrow pos overlay-arrow-position overlay-arrow-string make-local-variable beginning-of-line make-marker "=>"] 3 (#$ . 120364)])
#@78 Initialize summary buffer.
If the setup was successful, non-nil is returned.
(defalias 'gnus-summary-setup-buffer #[(group) "\306!\307\310!\311Q	\211\205\312\313\n!!)\203>	\211\211\205.\n;\203+\313\202,\314\n!)\203=\315\313!\f\"\316!\210)\313\n!\203O\nq\210p?\202z\317\n!q\320!\210\321!\203e\322\323!\210\324\322\325!\210\322\326!\210\322\327!\210\330!\210\331*\207" [group dead-name buffer buf gnus-buffers gnus-summary-buffer gnus-summary-buffer-name "*Dead Summary " gnus-group-decoded-name "*" buffer-live-p get-buffer buffer-name delete kill-buffer gnus-get-buffer-create gnus-summary-mode gnus-group-quit-config make-local-variable gnus-single-article-buffer nil gnus-article-buffer gnus-article-current gnus-original-article-buffer gnus-summary-set-local-parameters t gnus-newsgroup-prepared gnus-newsgroup-name] 5 (#$ . 120729)])
#@191 Set the global equivalents of the buffer-local variables.
They are set to the latest values they had.  These reflect the summary
buffer that was in action when the last article was fetched.
(defalias 'gnus-set-global-variables #[nil "\306=\205
p\n\f
	\307 !\"#$\211%\203n%@:\203[\310%\211&@@)!B\202e\310%@!B%A\211%\204B\237)\311\312!'r'q\210\313\216#\"! $\211%\203\347%@:\203\322%\211&@@)\211A@L\210\202\336%@\211A@L\210%A\211%\204\267)\211(\205\366\314\315(!!)\205
q\210\211.\207" [major-mode gnus-summary-buffer gnus-newsgroup-name gnus-newsgroup-marked gnus-newsgroup-spam-marked gnus-newsgroup-unreads gnus-summary-mode nil eval generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) buffer-live-p get-buffer gnus-current-headers gnus-newsgroup-data gnus-article-buffer gnus-original-article-buffer gnus-article-current gnus-reffed-article-number gnus-current-score-file gnus-newsgroup-charset vlist default-charset score-file reffed gac original article-buffer summary data headers unread spam marked name gnus-newsgroup-variables locals x #1# buffer] 15 (#$ . 121607)])
#@39 Say whether ARTICLE is unread or not.
(defalias 'gnus-summary-article-unread-p #[(article) "	>\207" [article gnus-newsgroup-unreads] 2 (#$ . 122902)])
#@60 Return whether ARTICLE is the first article in the buffer.
(defalias 'gnus-summary-first-article-p #[(&optional article) "\206\304`\305\"\211\203\306	!\210)\304`\307\"\206\310 \211\205(\n\211@@)=\207" [article to gnus-newsgroup-data x get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject] 4 (#$ . 123060)])
#@59 Return whether ARTICLE is the last article in the buffer.
(defalias 'gnus-summary-last-article-p #[(&optional article) "\206\304`\305\"\211\203\306	!\210)\304`\307\"\206\310 \211\204\"\311\207\n\236>)A?\207" [article to gnus-newsgroup-data bdata get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject t] 4 (#$ . 123430)])
(defalias 'gnus-make-thread-indent-array #[(&optional n) "\204\304	\203\nU?\2050\305T\306\"\n\307Y\2050	\310\n_\311\"I\210S\211\202\207" [n gnus-thread-indent-array gnus-thread-indent-level gnus-thread-indent-array-level 200 make-vector "" 0 make-string 32] 6])
#@44 Compute where the summary marks are to go.
(defalias 'gnus-update-summary-mark-positions #[nil "\212\211\205	;\203\306\202\307	!)\203q\210\n\310\212\311 \210\312\211\211\211\211\f\313\314\310\211#$%&'()*\315$\316\310\317*\317\310\320\310\321&\n\210eb\210\322\323\310\317#\203``
B\202Q\324 \210\325*\326)\327\211('\330&\315$\316\310\317*\317\310\320\310\321&\n\210
\310+\211,\203\244,@\211+Sb+|\210\312c\210,A\211,\204\214*eb\210\331\332\333\310\317#\205\266\334`e\321#BCeb\210\335\332\336\310\317#\205\312\334`e\321#BBeb\210\337\332\340\310\317#\205\337\334`e\321#BBeb\210\341\332\342\310\317#\205\364\334`e\321#BB.\211-+\207" [gnus-summary-buffer buffer gnus-summary-line-format-spec pos spec ignores get-buffer buffer-name nil gnus-set-work-buffer 90 (0) [0 #1="" #1# "05 Apr 2001 23:33:09 +0400" #1# #1# 0 0 #1# nil] gnus-summary-insert-line 0 t #1# 1 re-search-forward "[A-D]" erase-buffer 65 66 67 68 unread search-forward "A" - replied "B" score "C" download "D" case-fold-search header gnus-newsgroup-downloadable gnus-undownloaded-mark gnus-score-over-mark gnus-score-below-mark gnus-replied-mark gnus-tmp-unread p --dolist-tail-- gnus-summary-mark-positions] 12 (#$ . 124096)])
#@44 Insert a dummy root in the summary buffer.
(defalias 'gnus-summary-insert-dummy-line #[(gnus-tmp-subject gnus-tmp-number) "\302 \210\303`\304!\210`\305	\306	F#\207" [gnus-summary-dummy-line-format-spec gnus-tmp-number beginning-of-line gnus-add-text-properties eval gnus-number gnus-intangible] 7 (#$ . 125347)])
(defalias 'gnus-summary-extract-address-component #[(from) "	!@\206	\207" [gnus-extract-address-components from] 2])
(defalias 'gnus-summary-from-or-to-or-newsgroups #[(header gnus-tmp-from) "\306	!r\nq\210)
\203\212\307
\"\203\212\310H\311\211\312\236A\211\203J!!@\206E)P\202\206\313\236A\206{\313>\205{\314!@\315=\205{\307\316\"\203x\317\225\311O\202z)\211\205\206P+\206\234\320!@\206\232)!+\207" [gnus-newsgroup-charset gnus-ignored-from-addresses gnus-summary-buffer gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets ignored-from-addresses gmm-regexp-concat string-match 9 nil To Newsgroups gnus-find-method-for-group nntp "^[^:]+:" 0 bidi-string-mark-left-to-right mail-parse-charset gnus-tmp-from header newsgroups to extra-headers gnus-summary-to-prefix gnus-decode-encoded-address-function from gnus-extract-address-components gnus-extra-headers gnus-newsgroup-name gname gnus-summary-newsgroup-prefix] 3])
(defalias 'gnus-summary-insert-line #[(gnus-tmp-header gnus-tmp-level gnus-tmp-current undownloaded gnus-tmp-unread gnus-tmp-replied gnus-tmp-expirable gnus-tmp-subject-or-nil &optional gnus-tmp-dummy gnus-tmp-score gnus-tmp-process) "	GY\203\306	G\307_]!\210	H\310H
\206\"#\206\"\311#\2034\312
#Z!$X\2038\313\202F
#W\203D%\202F&'\311H()\203W*\202\227+,>\203d-\202\227.\203n/\202\227+0>\203{1\202\227+2>\203\2103\202\227(4>\203\2255\202\2276.7\203\2438\202\2579\203\255:\202\2576;\307H<\314\315<\"\203\336\311\224=\314\316<\"\203\324<\317\311\225SO\206\332<\311=O)\202\364\314\320<\"\203\362<\311\224T\311\225SO\202\364<>\317H?@\203
\321\202
\322A@\203
\323\202
\324B\325C>\326\230\203!
<>\f\247\204(
\327\f\327U\2033
\330\2027
\331\f!\332\333\334\217\210\335\336\337\"\205O
\327y\210\340 \210\341\342!\210\317y.
\207" [gnus-tmp-level gnus-thread-indent-array gnus-tmp-indentation gnus-tmp-header gnus-tmp-lines gnus-tmp-score gnus-make-thread-indent-array 2 7 0 abs 32 string-match "<[^>]+> *$" "^\".+\"" 1 "(.+)" 60 91 62 93 t "" -1 "?" number-to-string nil (byte-code "\302`\303!\210`\304	$\207" [gnus-summary-line-format-spec gnus-tmp-number gnus-put-text-property eval gnus-number] 5) ((error (gnus-message 5 "Error updating the summary line"))) gnus-visual-p summary-highlight highlight gnus-summary-highlight-line gnus-run-hooks gnus-summary-update-hook gnus-summary-default-score gnus-summary-zcore-fuzz gnus-score-below-mark gnus-score-over-mark gnus-tmp-score-char gnus-tmp-number gnus-tmp-process gnus-process-mark gnus-tmp-current gnus-newsgroup-cached gnus-cached-mark gnus-tmp-replied gnus-replied-mark gnus-newsgroup-forwarded gnus-forwarded-mark gnus-newsgroup-saved gnus-saved-mark gnus-newsgroup-unseen gnus-unseen-mark gnus-no-mark undownloaded gnus-undownloaded-mark gnus-newsgroup-agentized gnus-downloaded-mark gnus-tmp-downloaded gnus-tmp-from beg gnus-tmp-name gnus-tmp-subject gnus-tmp-dummy gnus-tmp-opening-bracket gnus-tmp-closing-bracket inhibit-read-only] 3])
#@35 Update summary line after change.
(defalias 'gnus-summary-update-line #[(&optional dont-update) "\205\312	?\205\312\306\307`\310\"\211\203\311\n!\210)\307`\312\"\206\"\313 \211\f\236A\206/\206/\314\204\274\203q\307`\310\"\211\203G\311\n!\210)\307`\312\"\206Q\313 \f\236A\206\\\206\\\314W\203q>\203\230\315!\210\202\230\307`\310\"\211\203~\311\n!\210)\307`\312\"\206\210\313 \236A@=\203\230\316!\210\317\203\250\320
Z!X\203\254\321\202\271
W\203\267\202\271 \305\"\210\322\323\324\"\205\311\325 \210\326\327!+\207" [gnus-summary-default-score gnus-summary-inhibit-highlight to article gnus-newsgroup-scored score t get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 0 gnus-summary-mark-article-as-read gnus-summary-mark-article-as-unread gnus-summary-update-mark abs 32 gnus-visual-p summary-highlight highlight gnus-summary-highlight-line gnus-run-hooks gnus-summary-update-hook dont-update gnus-summary-mark-below gnus-newsgroup-unreads gnus-low-score-mark gnus-newsgroup-data gnus-unread-mark gnus-summary-zcore-fuzz gnus-score-below-mark gnus-score-over-mark] 5 (#$ . 128766)])
(defvar gnus-tmp-new-adopts nil)
#@132 Return the number of articles in THREAD.
This may be 0 in some cases -- if none of the articles in
the thread are to be displayed.
(defalias 'gnus-summary-number-of-articles-in-thread #[(thread &optional level char) "<\204	\306\2025:\203A\203\307\310\306\311\312A\"#\2025\204'\306\2025@\313H	>\2034\306\2025\313\203N\314!\203N\f\203N\n\307\310\311\312\f\"\"\\
\203b\n\306V\203]
\202c\202c\n)\207" [thread gnus-newsgroup-limit number level gnus-tmp-new-adopts char 1 apply + mapcar gnus-summary-number-of-articles-in-thread 0 zerop gnus-not-empty-thread-mark gnus-empty-thread-mark] 6 (#$ . 129993)])
#@122 Return pretty-printed version of message size.
This function is intended to be used in
`gnus-summary-line-format-alist'.
(defalias 'gnus-summary-line-message-size #[(head) "\302H\206\303\211\304W\203\305\202E	\306W\203!\307\310	\311\245\"\202E	\312W\2030\307\313	\314\245\"\202E	\315W\203?\307\316	\317\245\"\202E\307\320	\321\245\")\207" [head c 6 -1 0 "n/a" 10000 format "%1.1fk" 1024.0 100000 "%dk" 1024.0 10000000 "%1.1fM" 1048576.0 "%dM" 1048576.0] 5 (#$ . 130631)])
(byte-code "\300\301\302\303#\210\304\305\306\307\310\311\312\313\314\315&	\207" [put gnus-summary-line-message-size byte-optimizer byte-compile-inline-expand custom-declare-variable gnus-user-date-format-alist '(((gnus-seconds-today) . "Today, %H:%M") ((+ 86400 (gnus-seconds-today)) . "Yesterday, %H:%M") (604800 . "%A %H:%M") ((gnus-seconds-month) . "%A %d") ((gnus-seconds-year) . "%B %d") (t . "%b %d %Y")) "Specifies date format depending on age of article.\nThis is an alist of items (AGE . FORMAT).  AGE can be a number (of\nseconds) or a Lisp expression evaluating to a number.  When the age of\nthe article is less than this number, then use `format-time-string'\nwith the corresponding FORMAT for displaying the date of the article.\nIf AGE is not a number or a Lisp expression evaluating to a\nnon-number, then the corresponding FORMAT is used as a default value.\n\nNote that the list is processed from the beginning, so it should be\nsorted by ascending AGE.  Also note that items following the first\nnon-number AGE will be ignored.\n\nYou can use the functions `gnus-seconds-today', `gnus-seconds-month'\nand `gnus-seconds-year' in the AGE spec.  They return the number of\nseconds passed since the start of today, of this month, of this year,\nrespectively." :version "24.1" :group gnus-summary-format :type (alist :key-type sexp :value-type string)] 10)
#@196 Format the messy-date according to `gnus-user-date-format-alist'.
Returns "  ?  " if there's bad input or if another error occurs.
Input should look like this: "Sun, 14 Oct 2001 13:34:39 +0200".
(defalias 'gnus-user-date #[(messy-date) "\300\301\302\217\207" [nil (byte-code "\306\211\307\232\203
\310\202#\311\312\313	#\206#\314	!\315\312\316\313\n	%\210\n))!\306 \317Z\320\211@@)!\211\247\203K
W\202N?\203fA\320\211@@)!\211\202@@A;\203s@A+\321\320\f!\322!\"+\207" [messy-date d time now my-format difference gnus-float-time "" (0 0) get-text-property 0 gnus-time safe-date-to-time put-text-property 1 "%b %d '%y" eval format-time-string seconds-to-time gnus-user-date-format-alist templist x top] 8) ((error "  ?   "))] 3 (#$ . 132495)])
#@79 Go through the local params of GROUP and set all variable specs in that list.
(defalias 'gnus-summary-set-local-parameters #[(group) "\304\305	!\306\211\2054@\211:\203,\nA:\203,\n@9\203,\n@>\204,\306\307\310\217\210A\211\204\f\306+\207" [vars group elem --dolist-tail-- (quit-config active) gnus-group-find-parameter nil (byte-code "@	B\302@!\203\303@!\304A@!L\210\202 \304A@!\210\302\207" [elem vars boundp make-local-variable eval] 3) ((error))] 4 (#$ . 133288)])
#@447 Start reading news in newsgroup GROUP.
If SHOW-ALL is non-nil, already read articles are also listed.
If NO-ARTICLE is non-nil, no article is selected initially.
If NO-DISPLAY, don't generate the summary buffer contents.
If KILL-BUFFER, it should be a buffer that's killed once the new
summary buffer has been generated.
If BACKWARD, move point to the previous group in the group buffer
If SELECT-ARTICLES, only select those articles from GROUP.
(defalias 'gnus-summary-read-group #[(group &optional show-all no-article kill-buffer no-display backward select-articles) "\306	\203I\306\307	\f
\f
&\206\306\211\211
)\211\204I\n\310=\203Iq\210\2035\311\312!\210	\313 \232\204C\313 \211\202\306\211\204)\207" [result group gnus-auto-select-next show-all no-article kill-buffer nil gnus-summary-read-group-1 quietly gnus-group-prev-unread-group 2 gnus-group-group-name no-display select-articles gnus-group-buffer backward] 8 (#$ . 133784)])
(defalias 'gnus-summary-read-group-1 #[(group show-all no-article kill-buffer no-display &optional select-articles) "\306\307\310\311!#\210\312!\313!	\205\314\f#	\204?\315 \210\203+\316!\210\317\320\321\"\210\322\320!\210\323 \210\324\325!\210\326\2022
\204\207@\327=\203op\232\204o\330p!\210\n\204k\331 \210Aq\210\332!\210\333\334!\210\202o\335\n!\210\336!\204~\306\337\340#\210\202\203\306\337\341\"\210\342\2022
\343=\203\310@\327=\203\237p\232\204\237\330p!\210\203\251\316!\210\n\204\275Aq\210\332!\210\317\300\321\"\210\202\301\335\n!\210\344\343\342\"\2022\315 \210\345\346BC\"J!\211DAE\347\350!\210\320\351\342\320\352\353$>\203\354\354 \210F\203\364\355 \210.\203\374\356 \210\203
\342G\357!\210)\202
\357!\210H\204
\360 \210I\203#
\361!\210\362J\363\364 !\203G
H\204G
G\203:
\365 \210\202G
K\203G
\203G
\366\326!\210\347\367!\210\363\364 !\203o
H\204o
\370\342\326\"\210\306\371\372\"\210\203k
\316!\210\342\2022\373 \210\317\320!\210\203\200
\316!\210\374 \210L\204\326
H\204\326
M\203\326
N\203\326
\375`\376\"\211O\203\246
\377O!\210)\375`\201W\"\206\264
\201X PQ\204\313
PR>\204\322
PS>\204\322
\201YP!\210)\202\342
\323 \210\317\320\321\"\210\322\320!\210T\203\201ZA\326\"\203\201[ U\201\\\201ZA\326\"!\210\201]!\203\201^ \210\201\\U!\210)\326V\347\201_!\210\201`!\2041\201a\342\326#\210\326+\207" [group new-group quit-config show-all select-articles did-select gnus-message 7 "Retrieving newsgroup: %s..." gnus-group-decoded-name gnus-summary-setup-buffer gnus-group-quit-config gnus-select-newsgroup gnus-set-global-variables gnus-kill-or-deaden-summary gnus-configure-windows summary force gnus-set-mode-line gnus-summary-position-point message "" t gnus-summary-mode kill-buffer gnus-summary-update-info gnus-group-jump-to-group gnus-group-next-unread-group 1 gnus-handle-ephemeral-exit gnus-list-of-unread-articles 3 "Group %s contains no messages" "Can't select group" nil quit signal gnus-copy-sequence intern-soft gnus-run-hooks gnus-select-group-hook gnus-update-format-specifications summary-mode summary-dummy gnus-update-summary-mark-positions gnus-possibly-score-headers gnus-build-sparse-threads gnus-summary-initial-limit gnus-summary-prepare gnus-tree-open gnus-tree-highlight-article zerop buffer-size gnus-summary-limit-include-dormant gnus-summary-limit-include-expunged gnus-apply-kill-hook gnus-summary-catchup-and-exit 6 "No unread news" gnus-summary-maybe-hide-threads gnus-summary-auto-select-subject get-text-property gnus-intangible gnus-summary-goto-subject major-mode gnus-group-buffer gnus-newsgroup-name gnus-active-hashtb gnus-newsgroup-active gnus-newsgroup-highest gnus-use-scoring gnus-newsgroup-dormant no-display gnus-use-trees gnus-summary-highlight-line-function gnus-newsgroup-scored no-article gnus-newsgroup-unreads gnus-auto-select-first to art gnus-plugged gnus-newsgroup-undownloaded gnus-newsgroup-downloadable gnus-auto-center-group owin gnus-newsgroup-prepared gnus-number gnus-summary-last-subject gnus-summary-goto-article get-buffer-window selected-window select-window gnus-group-goto-group recenter gnus-summary-prepared-hook gnus-ephemeral-group-p gnus-group-update-group] 7])
#@49 Select the subject line on initial group entry.
(defalias 'gnus-summary-auto-select-subject #[nil "eb\210\301=\203\f\302 \207\303=\203\304 \207\305=\203\306 \207\307=\203'\310 \207\311=\2065\312!\2055 \207" [gnus-auto-select-subject best gnus-summary-best-unread-subject unread gnus-summary-first-unread-subject unseen gnus-summary-first-unseen-subject unseen-or-unread gnus-summary-first-unseen-or-unread-subject first functionp] 2 (#$ . 138024)])
#@30 Generate the summary buffer.
(defalias 'gnus-summary-prepare #[nil "\306\307 \210\310\211\311\312!\210\203(\313\f\203#\314
\315\316\317 !!!!\202&\320!!\210	\237eb\210\311\321!)\207" [inhibit-read-only gnus-newsgroup-data gnus-newsgroup-data-reverse gnus-newsgroup-headers gnus-show-threads gnus-summary-thread-gathering-function t erase-buffer nil gnus-run-hooks gnus-summary-generate-hook gnus-summary-prepare-threads gnus-sort-gathered-threads gnus-sort-threads gnus-cut-threads gnus-make-threads gnus-sort-articles gnus-summary-prepare-hook] 7 (#$ . 138494) nil])
#@73 Simplify subject by the same rules as `gnus-gather-threads-by-subject'.
(defalias 'gnus-general-simplify-subject #[(subject) "\203\305	\"\202U\n\247\2036	\306	\"\203!	\307\225\310O\202\"	)\211G\nV\2032	\307\nO\202U	\202U\n\311=\203B\312	!\202U	\306	\"\203S	\307\225\310O\202T	)\f\205^\306\f	\"?\205c	\207" [gnus-simplify-subject-functions subject gnus-summary-gather-subject-limit message-subject-re-regexp gnus-summary-gather-exclude-subject gnus-map-function string-match 0 nil fuzzy gnus-simplify-subject-fuzzy] 4 (#$ . 139076)])
(put 'gnus-general-simplify-subject 'byte-optimizer 'byte-compile-inline-expand)
#@59 Query where the respool algorithm would put this article.
(defalias 'gnus-summary-simplify-subject-query #[nil "\306 \210\307\310\311\312`\313\"\211\203\314!\210)\312`\315\"\206\316 	\2368\211\205.\317\n!\205.\n\320H)\f\203;\321\f\"\202\207
\247\203g\322\"\203R\323\225\324O\202S)\211G
V\203c\323
O\202\207\202\207
\325=\203s\326!\202\207\322\"\203\205\323\225\324O\202\206)\205\222\322\"?\205\227)\"\207" [to gnus-newsgroup-data headers subject gnus-simplify-subject-functions gnus-summary-gather-subject-limit gnus-summary-select-article message "%s" 3 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject vectorp 1 gnus-map-function string-match 0 nil fuzzy gnus-simplify-subject-fuzzy message-subject-re-regexp gnus-summary-gather-exclude-subject] 7 (#$ . 139719) nil])
#@47 Gather threads by looking at Subject headers.
(defalias 'gnus-gather-threads-by-subject #[(threads) "\204	\207\306\307!	\211\310\211\211	\203\363	\211@@)\311H\211\2033\312\f\"\202\203\247\203b\f\313\f\"\203K\f\314\225\310O\202L\f)\211GV\203^\f\314O\202\203\f\202\203\315=\203o\316\f!\202\203\f\313\f\"\203\201\f\314\225\310O\202\202\f)\205\216\313\f\"?\205\223\f)\211\203\351\317\f\"J\211\203\321\211@@);\204\266\n@D\240\210@\211@A)	@C\244\241\210	A\241\210\202\351\320\f\"\203\346	\n	@D\240\210	\202\347	L\210		A\211\204
.\207" [gnus-summary-make-false-root threads whole-subject hthread subject result gnus-make-hashtable 1024 nil 1 gnus-map-function string-match 0 fuzzy gnus-simplify-subject-fuzzy intern-soft intern prev hashtb x gnus-simplify-subject-functions gnus-summary-gather-subject-limit message-subject-re-regexp gnus-summary-gather-exclude-subject gnus-summary-make-false-root-always] 7 (#$ . 140594)])
#@50 Gather threads by looking at References headers.
(defalias 'gnus-gather-threads-by-references #[(threads) "\306\307!\306\307!\211\310\211\211\211\211\211\211\203\372\211@@)\311H\211\203\360\211@@)\312H\313\314\206I\315!\310\316\317#\203m\313\224\313\225\211OB\202Q\237,\310\211A@\211\203\360\320	\"\321	\"J\211\204\246\322	\"
L\210\322
\"L\210\202u\321\"J\n\204\332\f\211@@);\204\313\f\211\211@@)\323H\f@D\240\210\f@\f\211@A)@C\244\241\210\322
\"\fL\210\324A\241\210\202uA\211\204$.\207" [threads ref entered gid gthread id gnus-make-hashtable 1024 nil 5 4 0 mail-header-remove-comments "" string-match "<[^<]+[^< 	]" delete intern-soft intern 1 t references ids result prev thhashtb idhashtb x beg] 12 (#$ . 141606)])
#@87 Sort subthreads inside each gathered thread by `gnus-sort-gathered-threads-function'.
(defalias 'gnus-sort-gathered-threads #[(threads) "\203$\211@@);\203@\304\211@A)\"\241\210A\211\204	)\207" [threads result x gnus-sort-gathered-threads-function sort] 5 (#$ . 142445)])
#@32 Say whether ROOT is in THREAD.
(defalias 'gnus-thread-loop-p #[(root thread) "C\306\307\211A@\211\203rA	\203,	\211@@)
=\204,	\211A@\210\202	\203i\307
\310	@A\"\241\210\311\312\313\"\211
!\203Y
J
JA	@C\244\241\210\202a
\307	@DL\210\314\307)\202AB\211\202\n+\207" [thread th infloop stack x root 0 nil delq boundp intern "none" 1 ref-dep gnus-newsgroup-dependencies] 5 (#$ . 142738)])
#@75 Go through the dependency hashtb and find the roots.  Return all threads.
(defalias 'gnus-make-threads #[nil "\301\302\303\215\204)\207" [threads nil infloop (mapatoms #[(refs) "J@\203\302\303\304\305\306JA\"\"!\204\307\310\311\312\"\210J@?\205*\313JA	\"\211\207" [refs threads zerop apply + mapcar #[(thread) "\302J@	\"\207" [refs thread gnus-thread-loop-p] 3] nil throw infloop t append] 6] gnus-newsgroup-dependencies)] 2 (#$ . 143164)])
#@460 Enter HEADER into the DEPENDENCIES table if it is not already there.

If FORCE-NEW is not nil, enter HEADER into the DEPENDENCIES table even
if it was already present.

If `gnus-summary-ignore-duplicates' is nil then duplicate Message-IDs
will not be entered in the DEPENDENCIES table.  Otherwise duplicate
Message-IDs will be renamed to a unique Message-ID before being
entered.

Returns HEADER if it was entered in the DEPENDENCIES.  Returns nil otherwise.
(defalias 'gnus-dependencies-add-header #[(header dependencies force-new) "\306H\211\205\f\307	\n\"\310\211\310\211\310\204#\310\202\202\311!\2041CL\210\202\202J@\204?J\240\210\202\202\203OJ\240\210\312\202\202\204i\307\313 \211\n\"\211CL\210\306	I\210\202\202J@\314J@\314H\206v\315\314H\206}\315PI\210\310\203\350
\204\350
\316H\310\211\205
\317G!?\205
\203\362\320\321\206\261\315!\310 !\322\323!#\203\325\320\224\320\225\211!O B \202\271 \237,  \233\203\353 A \202\333 @)\202
\321!\322\324\"\205
\325\326\")*\211
\203\277
\327
\n\"\211\203\277
\311!\203\277
J@\211\203\277
	
\230\203=
J@\316\330I\210\310\211\202\n
\316H\310\211\205\271
\317G!?\205\271
\203\245
\320\321\206d
\315!\310 !\322\323!#\203\210
\320\224\320\225\211!O B \202l
 \237,  \233\203\236
 A \202\216
 @)\202\271
\321!\322\324\"\205\270
\325\326\")*\211\204
\307\f\206\305
\330\n\"\311!\203\340
JJAJC\244\241\210\202\350
\310JDL\210.\207" [header id dependencies id-dep parent-id ref 4 intern nil boundp t nnmail-message-id 8 "" 5 zerop 0 mail-header-remove-comments string-match "<[^<]+[^< 	]" "\\(<[^<]+>\\)[ 	]*\\'" match-string 1 intern-soft "none" ref-dep ref-header replaced force-new gnus-summary-ignore-duplicates n references ids beg] 6 (#$ . 143628)])
(put 'gnus-dependencies-add-header 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'gnus-extract-message-id-from-in-reply-to #[(string) "\301\302\"\205
\303\224\303\225O\207" [string string-match "<[^>]+>" 0] 3])
(defalias 'gnus-build-sparse-threads #[nil "	\306\307\211\211\211\211\211\211\211\211)*+,-./0\310\311\312\"\210\212\313\314!\2100\211A0@\211-\203\244-\315H\211,\203*,\316\230\204*,c\210-\317H-\320H)-\321H\322+\323\324\307\306#\203\215`T\323\325\307\306#\203_`\f{+T\211+
\211)\n\257*B*\202_
\203\236+T
\307)F*B*\326 \210\202*\327p!\210)\330*\331\"\3071\2112\203O2@13\32118\316\31718\206\313\3161A@\33218\206\327\316\322\211\316\3074567,89):\333:)9\n8,7654&\n.\n;\307<=\211-\317H\2118\205
\3348=\">\307\211?@\307\211AB\307C>\204:
\307-\202\253
\335>!\204K
>-CL\210\202\253
>J@\204\\
>J-\240\210\202\253
<\203n
>J-\240\210\306C\202\253
.\204\216
\334\336 \2118=\"\211>-CL\210-\3178I\210\202\253
>J@\337>J@\337H\206\235
\316-\337H\206\245
\316PI\210\307--\203\"C\204\"-\315H\307D\211,\2051\340,G!?\2051D\203,,\322\341,\206\334
\316!\307E,F\342\343,F#\203,\322\224\322\225\211FOEBE\202\344
E\237,EDE\233\203EAE\202E@)\2021\341,!,\342\344,\"\2050\345\320,\")*\211?@@\203\365\346@=\"\211A\203\365\335A!\203\365AJ@\211B\203\3658@\230\203r>J@\315\347I\210\307\211@?\2027B\315H\307D\211,\205\356\340,G!?\205\356D\203\332,,\322\341,\206\231\316!\307E,F\342\343,F#\203\275,\322\224\322\225\211FOEBE\202\241E\237,EDE\233\203\323EAE\202\303E@)\202\356\341,!,\342\344,\"\205\355\345\320,\")*\211@\204<\334?\206\374\347=\"A\335A!\203AJAJA>JC\244\241\210\202\"A\307>JDL\210-.\n\203F3GBG3HBH3IBJBJ3S32A\2112\204\267*\310\311\350\".\f\207" [gnus-newsgroup-headers gnus-newsgroup-charset date new-child end child t nil gnus-message 7 "Making sparse threads..." nnheader-set-temp-buffer " *gnus sparse threads*" 5 "" 4 1 3 0 search-backward ">" "<" erase-buffer kill-buffer sort car-less-than-car 2 vector intern boundp nnmail-message-id 8 zerop mail-header-remove-comments string-match "<[^<]+[^< 	]" "\\(<[^<]+>\\)[ 	]*\\'" match-string intern-soft "none" "Making sparse threads...done" subject relations generation references header gnus-summary-ignore-duplicates mail-parse-charset headers relation --dolist-tail-- gnus-reffed-article-number extra xref lines chars id from number gnus-newsgroup-dependencies force-new dependencies id-dep parent-id ref ref-dep ref-header replaced n ids beg gnus-newsgroup-limit gnus-newsgroup-sparse gnus-sparse-mark gnus-newsgroup-reads] 13])
(defalias 'gnus-build-old-threads #[nil "\305\211\306\307\f\"+\207" [gnus-newsgroup-charset heads id mail-parse-charset gnus-newsgroup-dependencies nil mapatoms #[(refs) "J@?\205=JA\211\205=	\211@@)\305H>\203#	A\211\202\f\306!\307\f!\211\2036\310\f!@\203'\311\211\204\311\207" [refs heads x gnus-newsgroup-dormant id 0 symbol-name gnus-build-get-header gnus-id-to-thread nil] 3]] 3])
#@72 Translate STRING into something that doesn't contain weird characters.
(defalias 'gnus-remove-odd-characters #[(string) "\301\302\303\301\304\303\305$\305$\207" [string mm-subst-char-in-string 13 45 10 t] 8 (#$ . 148645)])
(put 'gnus-remove-odd-characters 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'gnus-nov-parse-line #[(number dependencies &optional force-new) "\306 p\307\211\211\310\216\307`\f}\210m\204\307u\2103\307\311\312\217\307\313\314\217`\315\316\f\317#\2032`S\2023\f{`\315\316\f\317#\203B`S\202C\f{4\320\3214\"\203S4\202t3\2113\247\203f\322\32353#\202s\322\3245\3256T\2116!#))`\315\316\f\317#\203\203`S\202\204\f{\211\307f\326=\203\222\327\202\244\307\330\331\217\2117\247\203\2427\202\243\327)m\204\253\332u\210\307f\326=\203\266\327\202\310\307\333\334\217\2117\247\203\3067\202\307\327)m\204\317\332u\210m?\205\356\335\336!\203\336\327\225b\210`\315\316\f\317#\203\354`S\202\355\f{\307\21189\307f\337>\204+
`\315\316\f\317#\203	
`S\202\n
\f{8\320\3408\"\203\364\341\342\3328\"!8\327\225\307OB9B9\202\3649*:;<=4>?@3\3433@?>4	=<;:&\n.\n*	\344\230\203y
\n\326H\211\203y
\345\236A\211\203y
\n\346\347!I\210A\203\203
A\n!\210\nBCCB\211\350H\2114\205\234
\3414B\"D\307\211EF\307\211GH\307ID\204\267
\307\202!\351D!\204\307
D\nCL\210\202!DJ@\204\327
DJ\n\240\210\202!C\203\350
DJ\n\240\210\352I\202!J\204\341\353 \2114B\"\211D\nCL\210\n\3504I\210\202!DJ@\354DJ@\354H\206\344\n\354H\206\344PI\210\307\n\203~I\204~\n\346H\307K\211\205\231\355	G!?\205\231K\203\211	\327\356	\206K\344!\307LM\320\357	M#\203l	\327\224\327\225\211MOLBL\202RL\237,LKL\233\203\202LAL\202rL@)\202\231\356	!\320\360	\"\205\230\342\332	\")*\211EFF\203Q\361FB\"\211G\203Q\351G!\203QGJ@\211H\203Q4F\230\203\332DJ@\346\362I\210\307\211FE\202\237H\346H\307K\211\205J\355	G!?\205JK\203:	\327\356	\206\374\344!\307LM\320\357	M#\203	\327\224\327\225\211MOLBL\202L\237,LKL\233\2033LAL\202#L@)\202J\356	!\320\360	\"\205I\342\332	\")*\211F\204\244\341E\206X\362B\"G\351G!\203uGJGJADJC\244\241\210\202~G\307DJDL\210\n.\207" [in-reply-to references header buffer eol x point-at-eol nil ((widen)) (byte-code "`\304\305	\306#\203`S\202	{\211!\307\310\311\307\312\311\313$\313$)\207" [gnus-decode-encoded-word-function eol x string search-forward #1="	" move mm-subst-char-in-string 13 45 10 t] 8) ((error x)) (byte-code "`\304\305	\306#\203`S\202	{\211!\307\310\311\307\312\311\313$\313$)\207" [gnus-decode-encoded-address-function eol x string search-forward #1# move mm-subst-char-in-string 13 45 10 t] 8) ((error x)) search-forward #1# move string-match "^<[^>]+>$" format "fake+none+%s+%d" "fake+none+%s+%s" int-to-string 9 0 (byte-code "\300p!\207" [read] 2) ((error)) 1 (byte-code "\300p!\207" [read] 2) ((error)) looking-at "Xref: " (10 nil) "^\\([^ :]+\\): " intern match-string vector "" In-Reply-To 5 gnus-extract-message-id-from-in-reply-to 4 boundp t nnmail-message-id 8 zerop mail-header-remove-comments "<[^<]+[^< 	]" "\\(<[^<]+>\\)[ 	]*\\'" intern-soft "none" number id gnus-newsgroup-name nnheader-fake-message-id num string out extra xref lines chars date from subject gnus-alter-header-function dependencies force-new id-dep parent-id ref ref-dep ref-header replaced gnus-summary-ignore-duplicates n ids beg] 15])
(put 'gnus-nov-parse-line 'byte-optimizer 'byte-compile-inline-expand)
#@165 Look through the buffer of NOV lines and find the header to ID.
Enter this line into the dependencies hash table, and return
the id of the parent article (if any).
(defalias 'gnus-build-get-header #[(id) "\306\211r\fq\210\306eb\210\n\2044\307:\306\310#\2034\311 \210\312\313\314\315:!\"!\211\204\311\316!\210\202\n\205x\311 \210\317p!\306;<=\320 p\306\211\211>?@A\321\216\306B`A}\210m\204f\306u\210=\306\322\323\217\306\324\325\217`\307\326A\327#\203`S\202\201A{`\307\326A\327#\203\221`S\202\223A{:\330\331:\"\203\243:\202\304=\211=\247\203\266\313\332C=#\202\303\313\333C\334DT\211D!#))`\307\326A\327#\203\324`S\202\326A{\211?\306f\335=\203\345\336\202\367\306\337\340\217\211E\247\203\365E\202\366\336)m\204\376\341u\210\306f\335=\203	
\336\202
\306\342\343\217\211E\247\203
E\202
\336)m\204\"
\341u\210m?\205C
\312\344!\2031
\336\225b\210`\307\326A\327#\203@
`S\202B
A{\306\211FG\306f\345>\204\202
`\307\326A\327#\203_
`S\202a
A{F\330\346F\"\203I
\347\350\341F\"!F\336\225\306OBGBG\202I
G*HIJK?:LMN=\351=NML:?KJIH&\n.\n*?\352\230\203\327
	\335H\211>\203\327
\353>\236A\211>\203\327
	\354\355>!I\210O\203\341
O	!\210	<;;<\211\356H\211:\205\372
\347:<\"P\306\211QR\306\211ST\306UP\204\306\202\357P!\204%P	CL\210\202PJ@\2045PJ	\240\210\202;\203FPJ	\240\210\310U\202V\204d\347\360 \211:<\"\211P	CL\210	\356:I\210\202PJ@\361PJ@\361H\206s\352	\361H\206z\352PI\210\306	\203\364U\204\364	\354H\306W\211?\205\362?G!?\205W\203\357??\336\363?\206\256\352!\306X?Y\330\364?Y#\203\322?\336\224\336\225\211YOXBX\202\266X\237,XWX\233\203\350XAX\202\330X@)\202\363?!?\330\365?\"\205\350\341?\")*\211QRR\203\307\366R<\"\211S\203\307\357S!\203\307SJ@\211T\203\307:R\230\203DPJ@\354\367I\210\306\211RQ\202	T\354H\306W\211?\205\300\362?G!?\205\300W\203\254??\336\363?\206k\352!\306X?Y\330\364?Y#\203\217?\336\224\336\225\211YOXBX\202sX\237,XWX\233\203\245XAX\202\225X@)\202\300\363?!?\330\365?\"\205\277\350\341?\")*\211R\204\347Q\206\316\367<\"S\357S!\203\353SJSJAPJC\244\241\210\202\364S\306PJDL\210	.\211\205x	\354H\306W\211?\205w\362?G!?\205wW\203c??\336\363?\206\"\352!\306X?Y\330\364?Y#\203F?\336\224\336\225\211YOXBX\202*X\237,XWX\233\203\\XAX\202LX@)\202w\363?!?\330\365?\"\205v\350\341?\")**	\203\261	\336H\211=ZBZ	[B[=\\>\203\251\370]=\"]\371=\\\"\\\202\260=^B^)+\207" [gnus-newsgroup-dependencies header found deps nntp-server-buffer case-fold-search nil search-forward t beginning-of-line looking-at format "^[^	]*	[^	]*	[^	]*	[^	]*	%s" regexp-quote 2 read point-at-eol ((widen)) (byte-code "`\304\305	\306#\203`S\202	{\211!\307\310\311\307\312\311\313$\313$)\207" [gnus-decode-encoded-word-function eol x string search-forward #1="	" move mm-subst-char-in-string 13 45 10 t] 8) ((error x)) (byte-code "`\304\305	\306#\203`S\202	{\211!\307\310\311\307\312\311\313$\313$)\207" [gnus-decode-encoded-address-function eol x string search-forward #1# move mm-subst-char-in-string 13 45 10 t] 8) ((error x)) #1# move string-match "^<[^>]+>$" "fake+none+%s+%d" "fake+none+%s+%s" int-to-string 9 0 (byte-code "\300p!\207" [read] 2) ((error)) 1 (byte-code "\300p!\207" [read] 2) ((error)) "Xref: " (10 nil) "^\\([^ :]+\\): " intern match-string vector "" In-Reply-To 5 gnus-extract-message-id-from-in-reply-to 4 boundp nnmail-message-id 8 zerop mail-header-remove-comments "<[^<]+[^< 	]" "\\(<[^<]+>\\)[ 	]*\\'" intern-soft "none" gnus-add-to-sorted-list delq id force-new dependencies number in-reply-to references buffer eol x gnus-newsgroup-name nnheader-fake-message-id num string out extra xref lines chars date from subject gnus-alter-header-function id-dep parent-id ref ref-dep ref-header replaced gnus-summary-ignore-duplicates n ids beg gnus-newsgroup-limit gnus-newsgroup-headers gnus-newsgroup-unselected gnus-newsgroup-unreads gnus-newsgroup-ancient] 15 (#$ . 152178)])
#@23 Read all the headers.
(defalias 'gnus-build-all-threads #[nil "\306	\307\211rq\210\307eb\210m?\205X\307\310\311\217\210\203rq\210B\312H\211>\203K\313\n\"\314\n\"\202Q\nB)\315y\210\202.\207" [gnus-newsgroup-charset gnus-newsgroup-dependencies article header dependencies mail-parse-charset t nil (byte-code "\306p!\211	\307\310 p\311\211\211456\312\216\3117`6}\210m\204)\311u\210\311\313\314\217\311\315\316\217`\317\3206\321#\203A`S\202C6{`\317\3206\321#\203S`S\202U6{8\322\3238\"\203e8\202\203\211\247\203u\324\3259#\202\202\324\3269\327:T\211:!#))`\317\3206\321#\203\223`S\202\2256{\211\311f\330=\203\243\331\202\265\311\332\333\217\211;\247\203\263;\202\264\331)m\204\274\334u\210\311f\330=\203\307\331\202\331\311\335\336\217\211;\247\203\327;\202\330\331)m\204\340\334u\210m?\205

\337\340!\203\357\331\225b\210`\317\3206\321#\203\376`S\202
6{\311\211<=\311f\341>\204@
`\317\3206\321#\203
`S\202
6{<\322\342<\"\203
\343\344\334<\"!<\331\225\311OB=B=\202
=*>?@A8BCD\345DCB8
A@?>&\n.\n4*
\346\230\203\217
4\330H\211\203\217
\347\f\236A\211\203\217
4\350\351\f!I\210E\203\232
E4!\2104	\n\2114\352H\2118\205\260
\3438	\"F\311\211GH\311\211IJ\311KF\204\314
\3114\202;\353F!\204\335
F4CL\210\202;FJ@\204\356
FJ4\240\210\202;\n\203\377
FJ4\240\210\307K\202;L\204\343\354 \2118	\"\211F4CL\2104\3528I\210\202;FJ@\355FJ@\355H\206-\3464\355H\2065\346PI\210\31144\203\230K\204\2304\350H\311M\211\205\265\356
G!?\205\265M\203\245
\331\357
\206g\346!\311NO\322\360
O#\203\210
\331\224\331\225\211OONBN\202nN\237,NMN\233\203\236NAN\202\216N@)\202\265\357
!\322\361
\"\205\264\344\334
\")*\211GHH\203l\362H	\"\211I\203l\353I!\203lIJ@\211J\203l8H\230\203\365FJ@\350\363I\210\311\211HG\202\273J\350H\311M\211\205e\356
G!?\205eM\203U
\331\357
\206\346!\311NO\322\360
O#\2038
\331\224\331\225\211OONBN\202N\237,NMN\233\203NNAN\202>N@)\202e\357
!\322\361
\"\205d\344\334
\")*\211H\204\300\343G\206s\363	\"I\353I!\203\217IJIJAFJC\244\241\210\202\230I\311FJDL\2104.4\311\207" [article dependencies force-new number in-reply-to references read t point-at-eol nil ((widen)) (byte-code "`\304\305	\306#\203`S\202	{\211!\307\310\311\307\312\311\313$\313$)\207" [gnus-decode-encoded-word-function eol x string search-forward #1="	" move mm-subst-char-in-string 13 45 10 t] 8) ((error x)) (byte-code "`\304\305	\306#\203`S\202	{\211!\307\310\311\307\312\311\313$\313$)\207" [gnus-decode-encoded-address-function eol x string search-forward #1# move mm-subst-char-in-string 13 45 10 t] 8) ((error x)) search-forward #1# move string-match "^<[^>]+>$" format "fake+none+%s+%d" "fake+none+%s+%s" int-to-string 9 0 (byte-code "\300p!\207" [read] 2) ((error)) 1 (byte-code "\300p!\207" [read] 2) ((error)) looking-at "Xref: " (10 nil) "^\\([^ :]+\\): " intern match-string vector "" In-Reply-To 5 gnus-extract-message-id-from-in-reply-to 4 boundp nnmail-message-id 8 zerop mail-header-remove-comments "<[^<]+[^< 	]" "\\(<[^<]+>\\)[ 	]*\\'" intern-soft "none" header buffer eol x id gnus-newsgroup-name nnheader-fake-message-id num string out extra xref lines chars date from subject gnus-alter-header-function id-dep parent-id ref ref-dep ref-header replaced gnus-summary-ignore-duplicates n ids beg] 15) ((error)) 0 gnus-add-to-sorted-list delq 1 gnus-summary-ignore-duplicates nntp-server-buffer case-fold-search gnus-summary-buffer gnus-newsgroup-headers gnus-newsgroup-unselected gnus-newsgroup-unreads gnus-newsgroup-ancient] 5 (#$ . 156302)])
#@43 Update the line for ARTICLE using HEADER.
(defalias 'gnus-summary-update-article-line #[(article header) "\306H\307	!\211\204\310\311!\210\n\240\210\312!\210\f
\236
>)\211!@\"\313#$\314=\203;\315`\316\"\203;\317\202X\306\315`\316\"\211%\203K\312%!\210)\315`\320\"\206U\321 \f\2368&\322 \323y\210`|\210`\324&\325'>(>\203x)\202\312*>\203\204+\202\312,>\203\220-\202\312.>\203\234/\202\3120>\203\2501\202\3122>\203\2643\202\3124>\203\3005\202\3126\236A\206\31278>4>9\2037\325\326\327\217\323H\325:;<:\204\302
<=>\203\374\330>=\"\202S
?\204
==\331@=\"\203
=\317\225\325O\202
=)\202S
?\332=\203+
\333=!\202S
?\247\203Q
\334==\331@=\"\203H
=\317\225\325O\202J
=)?\"\202S
=);=>\203f
\330>=\"\202\275
?\204\207
==\331@=\"\203\201
=\317\225\325O\202\203
=)\202\275
?\332=\203\225
\333=!\202\275
?\247\203\273
\334==\331@=\"\203\262
=\317\225\325O\202\264
=)?\"\202\275
=)\232\202/<;=>\203\326
\330>=\"\202-?\204\367
==\331@=\"\203\361
=\317\225\325O\202\363
=)\202-?\332=\203\333=!\202-?\247\203+\334==\331@=\"\203\"=\317\225\325O\202$=)?\"\202-=)\232+\2037\335\202:\323H\325A\236AB>&\210`ZC!A\205h\336!A\337\340\"8\340!\211DA@)8C#\".\207" [header id thread article gnus-newsgroup-data bdata 4 gnus-id-to-thread error "Article in no thread" gnus-summary-goto-subject t dummy get-text-property gnus-intangible 0 gnus-number gnus-summary-last-subject point-at-bol 1 gnus-summary-insert-line nil (byte-code "\305\206\n\306	!\211\n\236\n>)\211A@)8\307H\207" [gnus-newsgroup-data-reverse gnus-newsgroup-data bdata article x 3 reverse 1] 4) ((error #1="")) gnus-map-function string-match fuzzy gnus-simplify-subject-fuzzy truncate-string-to-width #1# gnus-data-update-list - 2 datal data inhibit-read-only gnus-summary-make-false-root to level gnus-newsgroup-undownloaded gnus-newsgroup-unsendable gnus-unsendable-mark gnus-newsgroup-downloadable gnus-downloadable-mark gnus-newsgroup-unreads gnus-unread-mark gnus-newsgroup-marked gnus-ticked-mark gnus-newsgroup-spam-marked gnus-spam-mark gnus-newsgroup-dormant gnus-dormant-mark gnus-newsgroup-expirable gnus-expirable-mark gnus-newsgroup-reads gnus-ancient-mark gnus-newsgroup-replied gnus-show-threads simple-first s2 s1 subject gnus-simplify-subject-functions gnus-summary-gather-subject-limit message-subject-re-regexp gnus-newsgroup-scored gnus-newsgroup-processable inserted x] 15 (#$ . 160030)])
#@39 Update ARTICLE in the summary buffer.
(defalias 'gnus-summary-update-article #[(article &optional iheader) "q\210\306	\n\2368\211\307H	\n\236\310\f!\311H\310\205+\312\232?\205+\313\211\205\243\314G!?\205\243\203\217\315\316\206N\312!\313\317\320#\203r\315\224\315\225\211OB\202V\237,\233\203\210A\202x@)\202\243\316!\317\321\"\205\242\322\323\")*\206\250\324!\325@ \205\344!\204\316\313\240\210\203\316\326\"\210\327\f\"\203\335
\330\f!\240\202\344 \240\210\313.\207" [gnus-summary-buffer article gnus-newsgroup-data header id data 3 4 gnus-id-to-thread 5 "" nil zerop 0 mail-header-remove-comments string-match "<[^<]+[^< 	]" "\\(<[^<]+>\\)[ 	]*\\'" match-string 1 "none" t delq gnus-summary-insert-subject gnus-id-to-article thread references n ids beg parent inhibit-read-only old iheader] 6 (#$ . 162559)])
#@93 Rebuild the thread containing ID.
If LINE, insert the rebuilt thread starting on line LINE.
(defalias 'gnus-rebuild-thread #[(id &optional line) "\306\307\211\211\211
\204\310!@C\202\311!\312 \212\313\314\307\306#\205B\315`\316\"\211\2038\317!\210)\315`\320\"\206B\321 )	@;\203\227	@\307\211	A\211\203\310\322	\211 @@)\323H!!\211>\204xB	A\211\204[G\324U\203\216@\202\226\325!B+\307!\"\203\247eb\210\"Sy\210\307\211#$
\203\273\326\327	C!!\210\202\277\330	!\210$\237#!*\331\"?\205\320\n`Z#\210!#\244#\332 .\207" [data thread current old-pos inhibit-read-only gnus-show-threads t nil gnus-id-to-thread gnus-remove-thread point-at-bol re-search-backward "[
\n]" get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-root-id 4 1 gnus-sort-threads gnus-summary-prepare-threads gnus-cut-threads gnus-summary-prepare-unthreaded gnus-data-enter-list gnus-data-compute-positions id to thr roots subject x threads line gnus-newsgroup-threads gnus-newsgroup-data] 6 (#$ . 163486)])
#@39 Return the header for article NUMBER.
(defalias 'gnus-number-to-header #[(number) "	\203\n	@\303HU\204	\211A@\210\202	\205	@)\207" [gnus-newsgroup-headers headers number 0] 3 (#$ . 164591)])
#@59 Return the headers of the GENERATIONth parent of HEADERS.
(defalias 'gnus-parent-headers #[(in-headers &optional generation) "\204\306\307	\310\f\203\235\311!\204\235\312H\211\203\235\n\205\226\n\310\211\205\214\311\nG!?\205\214
\203|\n\313\314\n\206?\315!\310\316\317\n#\203`\n\313\224\313\225\211OB\202F\237,
\233\203uA\202f@)\202\214\314\n!\316\320\n\"\205\213\321\306\n\")*\211\205\226\322\f!@S\202\f	=?\205\245+\207" [generation in-headers references headers parent n 1 t nil zerop 5 0 mail-header-remove-comments "" string-match "<[^<]+[^< 	]" "\\(<[^<]+>\\)[ 	]*\\'" match-string gnus-id-to-thread ids beg] 5 (#$ . 164799)])
#@43 Return the (sub-)thread where ID appears.
(defalias 'gnus-id-to-thread #[(id) "\302	\"J\207" [id gnus-newsgroup-dependencies intern-soft] 3 (#$ . 165499)])
#@34 Return the article number of ID.
(defalias 'gnus-id-to-article #[(id) "\302!\211\205	@\205	@\303H)\207" [id thread gnus-id-to-thread 0] 3 (#$ . 165662)])
#@35 Return the article headers of ID.
(defalias 'gnus-id-to-header #[(id) "\301!@\207" [id gnus-id-to-thread] 2 (#$ . 165828)])
#@45 Say whether ARTICLE is a root(ish) article.
(defalias 'gnus-article-displayed-root-p #[(article) "\306=\203\307`\310\"\203\311\202\312	\n\2368\313	\n\2368\314H\315\211\204)\315\202[
\316
!\2033\317\202[
\f\204;\317\202[
\f\315\211\205\264\316G!?\205\264\203\240\311\320\206_\321!\315\322\323#\203\203\311\224\311\225\211OB\202g\237,\233\203\231A\202\211@)\202\264\320!\322\324\"\205\263\325\326\")*\204\274\317\202[

\326U\205[
\327\f\315\211\205<
\316G!?\205<
\203(
\311\320\206\347\321!\315\322\323#\203
\311\224\311\225\211OB\202\357\237,\233\203!
A\202
@)\202<
\320!\322\324\"\205;
\325\326\")*!\211?\205[
\306=\203U
\307`\310\"\203U
\311\202Z
\312\n\2368?+\207" [gnus-summary-make-false-root article gnus-newsgroup-data particle refs level dummy get-text-property gnus-intangible 0 4 3 5 nil zerop t mail-header-remove-comments "" string-match "<[^<]+[^< 	]" "\\(<[^<]+>\\)[ 	]*\\'" match-string 1 gnus-id-to-article n references ids beg] 6 (#$ . 165959)])
#@59 Return the id of the root of the thread where ID appears.
(defalias 'gnus-root-id #[(id) "\306\211\n\203|\307\n!@\211\203|\n\310H\306\211\205v\311\fG!?\205v\203f\f\312\313\f\2062\314!\306\315\316\f#\203P\f\312\224\312\225\211O
B\2028
\237,
\233\203`
A\202T
@)\202v\313\f!\315\317\f\"\205u\320\321\f\")*\211\204	*\207" [prev last-id id n references ids nil gnus-id-to-thread 5 zerop 0 mail-header-remove-comments "" string-match "<[^<]+[^< 	]" "\\(<[^<]+>\\)[ 	]*\\'" match-string 1 beg] 5 (#$ . 167066)])
#@40 Return the list of articles in THREAD.
(defalias 'gnus-articles-in-thread #[(thread) "@\301H\302\303\304\305A\"\"B\207" [thread 0 apply nconc mapcar gnus-articles-in-thread] 6 (#$ . 167614)])
#@38 Remove the thread that has ID in it.
(defalias 'gnus-remove-thread #[(id &optional dont-remove) "\306\211\211\307!\310\311!!\f\306\211\203\\@\211@;\203F
A\211\203S
\211@@)\n\235\203?@\306\211
A\211\202'
@\n@=\203S
\306A\211\204	\203m\204q\312	\f\"\202q\311!	\205\266	\204\266	@;\203\262\313=\203\237\314	A@@\315H!\210\316y\210\317 \320y\210`|\210\321 \210	A\211\203\266\322	@!\210	A\211\202\243\322	!\210-\207" [last-id thread headers id gnus-newsgroup-threads sub nil gnus-root-id message-flatten-list gnus-id-to-thread delq dummy gnus-summary-goto-article 0 -1 point-at-bol 1 gnus-data-compute-positions gnus-remove-thread-1 threads x dont-remove gnus-summary-make-false-root] 5 (#$ . 167814)])
#@39 Remove the thread THREAD recursively.
(defalias 'gnus-remove-thread-1 #[(thread) "\211A@\304H\305\306!\203\307\211A@!\210\202\n\236\211\205>\310	8b\210\311 \210\312\n\313 \314 T\313 \315y\210`|\210Z\"*\207" [thread d number gnus-newsgroup-data 0 nil reverse gnus-remove-thread-1 2 gnus-summary-show-thread gnus-data-remove point-at-bol point-at-eol 1] 6 (#$ . 168575)])
(defalias 'gnus-sort-threads-recursive #[(threads func) "\302\303\304\"	\"\207" [threads func sort mapcar #[(thread) "@A\205\f\302A	\"B\207" [thread func gnus-sort-threads-recursive] 4]] 4])
(defalias 'gnus-sort-threads-loop #[(threads func) "\306B\211BC\306\211\n\203K\n@A\211\2032@\n@A\241\210\fA\203
\f\211AB\nB\211\202\n\211@@)\211\307\fA\"\241\210\n\211A@\210\202
	A,\207" [threads superthread stack remaining-threads thread x nil sort func] 5])
#@15 Sort THREADS.
(defalias 'gnus-sort-threads #[(threads) "\204	\207\302\303\304\"\210\305\306\307\217\302\303\310\"\210\207" [gnus-thread-sort-functions threads gnus-message 8 "Sorting threads..." nil (byte-code "\303]\304	\305\n!\")\207" [max-lisp-eval-depth threads gnus-thread-sort-functions 5000 gnus-sort-threads-recursive gnus-make-sort-function] 4) ((error (byte-code "\302\303\304\"\210\305\306	!\"\207" [threads gnus-thread-sort-functions gnus-message 9 "Sorting threads with loop..." gnus-sort-threads-loop gnus-make-sort-function] 4))) "Sorting threads...done"] 4 (#$ . 169445)])
#@16 Sort ARTICLES.
(defalias 'gnus-sort-articles #[(articles) "\205\303\304\305\"\210\306	\307!\"\211\303\304\310\"\210\207" [gnus-article-sort-functions articles gnus-newsgroup-headers gnus-message 7 "Sorting articles..." sort gnus-make-sort-function "Sorting articles...done"] 4 (#$ . 170046)])
#@164 Return header of first article in THREAD.
Note that THREAD must never, ever be anything else than a variable -
using some other form will lead to serious barfage.
(defalias 'gnus-thread-header '(macro . #[(thread) "9\204\n\301\302\303\"\210\304\305\306!\307F\207" [thread signal wrong-type-argument (symbolp thread) byte-code "\211:\203\211@;\203A@@\207" vector 2] 4 (#$ . 170351)]))
#@34 Sort articles by article number.
(defalias 'gnus-article-sort-by-number #[(h1 h2) "\302H	\302HW\207" [h1 h2 0] 3 (#$ . 170749)])
(put 'gnus-article-sort-by-number 'byte-optimizer 'byte-compile-inline-expand)
#@38 Sort threads by root article number.
(defalias 'gnus-thread-sort-by-number #[(h1 h2) "\302\303\304\305#\302\303\306\305#\211\307H\307HW*\207" [h2 h1 byte-code "\211:\203\211@;\203A@@\207" [h1] 2 [h2] 0] 6 (#$ . 170964)])
#@25 Sort articles randomly.
(defalias 'gnus-article-sort-by-random #[(h1 h2) "\300\301\302!!\207" [zerop random 2] 3 (#$ . 171199)])
(put 'gnus-article-sort-by-random 'byte-optimizer 'byte-compile-inline-expand)
#@24 Sort threads randomly.
(defalias 'gnus-thread-sort-by-random #[(h1 h2) "\302\303\304\305#\302\303\306\305#\307\310\305!!*\207" [h2 h1 byte-code "\211:\203\211@;\203A@@\207" [h1] 2 [h2] zerop random] 5 (#$ . 171413)])
#@40 Sort articles by article Lines header.
(defalias 'gnus-article-sort-by-lines #[(h1 h2) "\302H	\302HW\207" [h1 h2 7] 3 (#$ . 171643)])
(put 'gnus-article-sort-by-lines 'byte-optimizer 'byte-compile-inline-expand)
#@44 Sort threads by root article Lines header.
(defalias 'gnus-thread-sort-by-lines #[(h1 h2) "\302\303\304\305#\302\303\306\305#\211\307H\307HW*\207" [h2 h1 byte-code "\211:\203\211@;\203A@@\207" [h1] 2 [h2] 7] 6 (#$ . 171862)])
#@32 Sort articles by octet length.
(defalias 'gnus-article-sort-by-chars #[(h1 h2) "\302H	\302HW\207" [h1 h2 6] 3 (#$ . 172102)])
(put 'gnus-article-sort-by-chars 'byte-optimizer 'byte-compile-inline-expand)
#@44 Sort threads by root article octet length.
(defalias 'gnus-thread-sort-by-chars #[(h1 h2) "\302\303\304\305#\302\303\306\305#\211\307H\307HW*\207" [h2 h1 byte-code "\211:\203\211@;\203A@@\207" [h1] 2 [h2] 6] 6 (#$ . 172313)])
#@31 Sort articles by root author.
(defalias 'gnus-article-sort-by-author #[(h1 h2) "\305	\306H!\211@\206\n\211A@)\206\307)\f\306H!\211@\206,\n\211A@)\206,\307)\"\207" [gnus-extract-address-components h1 extract x h2 gnus-string< 2 ""] 6 (#$ . 172553)])
(put 'gnus-article-sort-by-author 'byte-optimizer 'byte-compile-inline-expand)
#@30 Sort threads by root author.
(defalias 'gnus-thread-sort-by-author #[(h1 h2) "\305\306\307\310#\305\306\311\310#\312\n	\310H!\211@\206\"\211A@)\206\"\313)\n\310H!\211@\2068\211A@)\2068\313)\"*\207" [h2 h1 gnus-extract-address-components extract x byte-code "\211:\203\211@;\203A@@\207" [h1] 2 [h2] gnus-string< ""] 5 (#$ . 172899)])
#@29 Sort articles by recipient.
(defalias 'gnus-article-sort-by-recipient #[(h1 h2) "\305\306	\307H\236A\206\f\310!\211@\206\n\211A@))\306\f\307H\236A\206%\310!\211@\2062\n\211A@))\"\207" [gnus-extract-address-components h1 extract x h2 gnus-string< To 9 ""] 7 (#$ . 173256)])
(put 'gnus-article-sort-by-recipient 'byte-optimizer 'byte-compile-inline-expand)
#@33 Sort threads by root recipient.
(defalias 'gnus-thread-sort-by-recipient #[(h1 h2) "\305\306\307\310#\305\306\311\310#\312\n\313	\314H\236A\206\315!\211@\206%\211A@))\n\313\314H\236A\2061\315!\211@\206>\211A@))\"*\207" [h2 h1 gnus-extract-address-components extract x byte-code "\211:\203\211@;\203A@@\207" [h1] 2 [h2] gnus-string< To 9 ""] 6 (#$ . 173628)])
#@32 Sort articles by root subject.
(defalias 'gnus-article-sort-by-subject #[(h1 h2) "\304\305H\306\n	\"\203	\307\225\310O\202	)\227\305H\306\n	\"\203*	\307\225\310O\202+	)\227\"\207" [h1 subject message-subject-re-regexp h2 gnus-string< 1 string-match 0 nil] 5 (#$ . 174012)])
(put 'gnus-article-sort-by-subject 'byte-optimizer 'byte-compile-inline-expand)
#@31 Sort threads by root subject.
(defalias 'gnus-thread-sort-by-subject #[(h1 h2) "\304\305\306\307#\304\305\310\307#\311	\312H\313\n\"\203 \n\314\225\315O\202!\n)\227\312H\313\n\"\2036\n\314\225\315O\2027\n)\227\"*\207" [h2 h1 subject message-subject-re-regexp byte-code "\211:\203\211@;\203A@@\207" [h1] 2 [h2] gnus-string< 1 string-match 0 nil] 5 (#$ . 174382)])
#@37 Sort articles by root article date.
(defalias 'gnus-article-sort-by-date #[(h1 h2) "\304\305H\211\306\232\203\307\202%\310\311\312	#\206%\313	!\314\311\315\312\n	%\210\n))\305H\211\306\232\2034\307\202J\310\311\312	#\206J\313	!\314\311\315\312\n	%\210\n))\"\207" [h1 d time h2 time-less-p 3 "" (0 0) get-text-property 0 gnus-time safe-date-to-time put-text-property 1] 9 (#$ . 174767)])
(put 'gnus-article-sort-by-date 'byte-optimizer 'byte-compile-inline-expand)
#@36 Sort threads by root article date.
(defalias 'gnus-thread-sort-by-date #[(h1 h2) "\304\305\306\307#\304\305\310\307#\311	\312H\211\313\232\203\314\2021\315\316\317\n#\2061\320\n!\321\316\322\317\n%\210))\312H\211\313\232\203@\314\202V\315\316\317\n#\206V\320\n!\321\316\322\317\n%\210))\"*\207" [h2 h1 d time byte-code "\211:\203\211@;\203A@@\207" [h1] 2 [h2] time-less-p 3 "" (0 0) get-text-property 0 gnus-time safe-date-to-time put-text-property 1] 8 (#$ . 175250)])
#@99 Sort articles by root article score.
Unscored articles will be counted as having a score of zero.
(defalias 'gnus-article-sort-by-score #[(h1 h2) "\304H	\236A\206\n\206\304\304H	\236A\206\n\206\304V\207" [h1 gnus-newsgroup-scored gnus-summary-default-score h2 0] 3 (#$ . 175749)])
(put 'gnus-article-sort-by-score 'byte-optimizer 'byte-compile-inline-expand)
#@37 Sort threads by root article score.
(defalias 'gnus-thread-sort-by-score #[(h1 h2) "\304\305\306\307#\304\305\310\307#\211\311H\n\236A\206\206\311\311H\n\236A\206(\206(\311V*\207" [h2 h1 gnus-newsgroup-scored gnus-summary-default-score byte-code "\211:\203\211@;\203A@@\207" [h1] 2 [h2] 0] 6 (#$ . 176124)])
#@115 Sort threads by the sum of all scores in the thread.
Unscored articles will be counted as having a score of zero.
(defalias 'gnus-thread-sort-by-total-score #[(h1 h2) "\302!\302	!V\207" [h1 h2 gnus-thread-total-score] 3 (#$ . 176455)])
(defalias 'gnus-thread-total-score #[(thread) "\204\302\207:\203@;\203\303	\302\304\305A\"#\207\305!\207\305C!\207" [thread gnus-thread-score-function 0 apply mapcar gnus-thread-total-score-1] 6])
#@26 Sort articles by number.
(defalias 'gnus-article-sort-by-most-recent-number #[(h1 h2) "	\211\302H	\302HW*\207" [h1 h2 0] 4 (#$ . 176907)])
#@87 Sort threads such that the thread with the most recently arrived article comes first.
(defalias 'gnus-thread-sort-by-most-recent-number #[(h1 h2) "\302!\302	!V\207" [h1 h2 gnus-thread-highest-number] 3 (#$ . 177055)])
#@46 Return the highest article number in THREAD.
(defalias 'gnus-thread-highest-number #[(thread) "\301\302\303\304\305!\"\"\207" [thread apply max mapcar #[(header) "\301H\207" [header 0] 2] message-flatten-list] 6 (#$ . 177280)])
#@26 Sort articles by number.
(defalias 'gnus-article-sort-by-most-recent-date #[(h1 h2) "	\304\305H\211\306\232\203\307\202)\310\311\312\n#\206)\313\n!\314\311\315\312\n%\210))	\305H\211\306\232\2038\307\202N\310\311\312\n#\206N\313\n!\314\311\315\312\n%\210))\"*\207" [h1 h2 d time time-less-p 3 "" (0 0) get-text-property 0 gnus-time safe-date-to-time put-text-property 1] 8 (#$ . 177516)])
#@85 Sort threads such that the thread with the most recently dated article comes first.
(defalias 'gnus-thread-sort-by-most-recent-date #[(h1 h2) "\302!\302	!V\207" [h1 h2 gnus-thread-latest-date] 3 (#$ . 177930)])
#@44 Return the highest article date in THREAD.
(defalias 'gnus-thread-latest-date #[(thread) "\301\302\303\304\305!\"\"\207" [thread apply max mapcar #[(header) "\303\304H\211\305\232\203\306\202%\307\310\311	#\206%\312	!\313\310\314\311\n	%\210\n))!\207" [header d time gnus-float-time 3 "" (0 0) get-text-property 0 gnus-time safe-date-to-time put-text-property 1] 8] message-flatten-list] 6 (#$ . 178148)])
(defalias 'gnus-thread-total-score-1 #[(root) "@\304	\305\306\307\310\311H!A\"\312H\312V\205&\312H\n\236A\206%\206%\312C\"\2060C\2060\313\"\207" [root gnus-thread-score-function gnus-newsgroup-scored gnus-summary-default-score apply append mapcar gnus-thread-total-score gnus-id-to-thread 4 0 (0)] 8])
(defvar gnus-tmp-prev-subject nil)
(defvar gnus-tmp-false-parent nil)
(defvar gnus-tmp-root-expunged nil)
(defvar gnus-tmp-dummy-line nil)
#@34 Return the extra header of TYPE.
(defalias 'gnus-extra-header #[(type &optional header) "	\206\n\303H\236A\206\304\207" [type header gnus-tmp-header 9 ""] 3 (#$ . 179021)])
(defvar gnus-tmp-thread-tree-header-string "")
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\302\313\304\305\306\314\310\311&	\210\300\315\316\317\304\305\306\320\310\311&	\210\300\321\322\323\304\305\306\324\310\311&	\210\300\325\326\327\304\305\306\324\310\311&	\210\300\330\331\332\304\305\306\324\310\311&	\210\300\333\334\335\304\305\306\324\310\311&	\210\300\336\337\340\304\305\310\311\306\341&	\207" [custom-declare-variable gnus-sum-thread-tree-root "> " "With %B spec, used for the root of a thread.\nIf nil, use subject instead." :version "22.1" :type (radio (const :format "%v  " nil) string) :group gnus-thread gnus-sum-thread-tree-false-root "With %B spec, used for a false root of a thread.\nIf nil, use subject instead." (radio (const :format "%v  " nil) string) gnus-sum-thread-tree-single-indent "" "With %B spec, used for a thread with just one message.\nIf nil, use subject instead." (radio (const :format "%v  " nil) string) gnus-sum-thread-tree-vertical "| " "With %B spec, used for drawing a vertical line." string gnus-sum-thread-tree-indent "  " "With %B spec, used for indenting." gnus-sum-thread-tree-leaf-with-other "+-> " "With %B spec, used for a leaf with brothers." gnus-sum-thread-tree-single-leaf "\\-> " "With %B spec, used for a leaf without brothers." gnus-summary-display-while-building nil "If non-nil, show and update the summary buffer as it's being built.\nIf the value is t, update the buffer after every line is inserted.  If\nthe value is an integer (N), update the display every N lines." (choice (const :tag "off" nil) number (const :tag "frequently" t))] 10)
#@166 Prepare summary buffer from THREADS and indentation LEVEL.
THREADS is either a list of `(PARENT [(CHILD1 [(GRANDCHILD ...]...) ...])'
or a straight list of headers.
(defalias 'gnus-summary-prepare-threads #[(threads) "\306\307\310\"\210\311 \210\312\n\206\312\313\314\315\"\211\250\316\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\\316]\317^\320@!\203\204\321!\210\202d\203\215\322\323 !\210\204\240U\204\240P\204\240Q\203d\\\312U\203\f
U\203\271U\211_@@)\312U\203\f
`\204\f
P\204\310Q\203\f
P\203\360a\203\326\312\202\327\324\\P@C\211X\211_@@)MPAP\202G
Q\203G
Q@C\211X\211_@@)MQAQ\202G
\203
\211X\211_@@)M\202G
U@\211T@\\T\211_A@)TAA@XUAUX\211_@@)M\316\211`a\316OM;\203\303
b\325=\203\221
PX@AA\244P\326\327X@AA\"S\244SX\211_@@)X@A@DXABX\330\\\331`\202\372b\332=\203\253
\326\333X@AA\"S\244S\330\\\202\372b\334=\203\275
McM]\202\372\330\\\202\372M\312HWM\324H\211VVd\203\340
\335dV\"\2027e\204
VV\336fV\"\203\373
V\312\225\316O\202\375
V)\2027e\337=\203\340V!\2027e\247\2035\341VV\336fV\"\203,V\312\225\316O\202.V)e\"\2027V)Ng\204e\342\\!\204e]\203e]N\230\204eQX@C\244Q\331O\316M\202\366Wh>\204\256\326\343X\211_@A)\"S\244SX\211_@A)\203\227\344PX\211_@A)\"\202\231PP\331O\316M\342\\!\203\366\331a\202\366i\203\366Wj\236A\206\276[iW\203\366Wk>\204\366Wl>\204\366\345Wm\"mn\203\354\346oW\"o\202\366WpBqBqM\203\372c\203gcM\324H\316rstr\204\352tVd\203$\335dV\"\202{e\204EVV\336fV\"\203?V\312\225\316O\202AV)\202{e\337=\203S\340V!\202{e\247\203y\341VV\336fV\"\203pV\312\225\316O\202rV)e\"\202{V)sVd\203\216\335dV\"\202\345e\204\257VV\336fV\"\203\251V\312\225\316O\202\253V)\202\345e\337=\203\275\340V!\202\345e\247\203\343\341VV\336fV\"\203\332V\312\225\316O\202\334V)e\"\202\345V)\232\202WtsVd\203\376\335dV\"\202Ue\204VV\336fV\"\203V\312\225\316O\202V)\202Ue\337=\203-\340V!\202Ue\247\203S\341VV\336fV\"\203JV\312\225\316O\202LV)e\"\202UV)\232+\203g\347cM\312H\"\210\316cWu>\203tv\202\315Ww>\203\201x\202\315Wm>\203\216y\202\315Wz>\203\233{\202\315W|>\203\250}\202\315W~>\203\265\202\315Wo>\203\302\200\202\315Wq\236A\206\315\201LWL`TM\\\257\202B\202g\203\367]\203\367]N\230\204\367V\202&\342\\!\203$b\332=\203WS>\203]\203]N\230\203\203\202&V\202&\203Ib\325=\203F\\\324U\203FWS>\203F\350@\351\202K\352@\353\\\204GY\203_\354\204G\355_\\]!\210\204\\HGM\307HFWj\236A\206z\n\206z\312E\n\203\214\356E\nZ!\205X\203\220\357\202\236E\nW\203\234\206\202\236\207DW\210>\203\255\211\202\360W\212>\203\272\213\202\360W\214>\203\307\215\202\360W\216>\203\324\217\202\360W\220>\203\341\221\202\360W\222>\203\356\223\202\360\224JW\225>\203\377\226\202\227\203	\230\202\224KM\355HC\336\360C\"\203:\312\224R\336\361C\"\2031C\324\312\225SO\206PC\312RO\202P\336\362C\"\203NC\312\224T\312\225SO\202PCB\231\204[\317\202\251\342\\!\203\220X\211_@A)\203w\232\206\251V\202\251P\203\206\233\206\251V\202\251\234\206\251V\202\251\363\364\326\365\366\f!A\"\"XA@\203\246\235\202\250\236P^B\317\230\203\266CBF\247\204\277\330FF\330U\203\314\367F\202\322\370F!F\371`\372\237!\210`\373W$\210\203\366\330y\210\374 \210>\203\363\375\376!\210\324y\210N]XA@\203\312\\]\377\f!XAEUBUXA@\203\324\202\312\fB\\T\\O?\2053X\211_@A)\203ZY\203TZS\211Z\312U\203Z\201\240\312!\210Z\202Z\201\240\312!\210\204\215\312\\\202\215. \306\307\201\241\"\207" [threads gnus-newsgroup-threads gnus-summary-default-score gnus-summary-display-while-building tree-stack gnus-tmp-closing-bracket gnus-message 7 "Generating summary..." beginning-of-line 0 gnus-visual-p summary-highlight highlight nil "" vectorp gnus-summary-prepare-unthreaded switch-to-buffer buffer-name 1 adopt mapcar #[(h) "@\301H\207" [h 0] 2] -1 t empty #[(h) "@\301H\207" [h 0] 2] dummy gnus-map-function string-match fuzzy gnus-simplify-subject-fuzzy truncate-string-to-width zerop #[(h) "@\301H\207" [h 0] 2] append delq gnus-add-to-sorted-list gnus-summary-insert-dummy-line 60 62 91 93 gnus-make-thread-indent-array 2 abs 32 "<[^>]+> *$" "^\".+\"" "(.+)" apply concat #[(item) "\303U\203	\207\n\207" [item gnus-sum-thread-tree-vertical gnus-sum-thread-tree-indent 1] 2] reverse "?" number-to-string gnus-put-text-property eval gnus-number gnus-summary-highlight-line gnus-run-hooks gnus-summary-update-hook copy-sequence gnus-tmp-opening-bracket gnus-tmp-number gnus-tmp-name gnus-tmp-from gnus-tmp-score-char gnus-tmp-score gnus-tmp-lines gnus-tmp-indentation gnus-tmp-dummy gnus-tmp-subject-or-nil gnus-tmp-replied gnus-tmp-downloaded gnus-tmp-unread gnus-tmp-header simp-subject thread-end gnus-tmp-new-adopts new-roots beg-match gnus-tmp-gathered state stack subject number thread building-count building-line-count default-score gnus-tmp-level gnus-tmp-prev-subject gnus-tmp-thread-tree-header-string x gnus-tmp-false-parent gnus-tmp-root-expunged gnus-summary-make-false-root gnus-tmp-dummy-line gnus-simplify-subject-functions gnus-summary-gather-subject-limit message-subject-re-regexp gnus-thread-ignore-subject gnus-newsgroup-limit gnus-summary-mark-below gnus-newsgroup-scored gnus-newsgroup-sparse gnus-newsgroup-ancient gnus-newsgroup-unreads gnus-newsgroup-auto-expire gnus-newsgroup-expirable gnus-low-score-mark gnus-newsgroup-reads simple-first s2 s1 gnus-newsgroup-unsendable gnus-unsendable-mark gnus-newsgroup-downloadable gnus-downloadable-mark gnus-unread-mark gnus-newsgroup-marked gnus-ticked-mark gnus-newsgroup-spam-marked gnus-spam-mark gnus-newsgroup-dormant gnus-dormant-mark gnus-expirable-mark gnus-ancient-mark gnus-newsgroup-data gnus-summary-same-subject gnus-thread-indent-array gnus-summary-zcore-fuzz gnus-score-below-mark gnus-score-over-mark gnus-newsgroup-processable gnus-process-mark gnus-newsgroup-cached gnus-cached-mark gnus-newsgroup-replied gnus-replied-mark gnus-newsgroup-forwarded gnus-forwarded-mark gnus-newsgroup-saved gnus-saved-mark gnus-newsgroup-unseen gnus-unseen-mark gnus-no-mark gnus-newsgroup-undownloaded gnus-undownloaded-mark gnus-newsgroup-agentized gnus-downloaded-mark gnus-show-threads gnus-sum-thread-tree-root gnus-sum-thread-tree-false-root gnus-sum-thread-tree-single-indent gnus-sum-thread-tree-leaf-with-other gnus-sum-thread-tree-single-leaf gnus-summary-line-format-spec sit-for "Generating summary...done"] 33 (#$ . 180834)])
#@57 Generate an unthreaded summary buffer based on HEADERS.
(defalias 'gnus-summary-prepare-unthreaded #[(headers) "\306\211\211\307 \210\205\351\211A@\211\310H\211\f>\203	
\203Y	\f\236A\206/
\206/\310
W\203Y	>\204Y\311	\"\203P	B\202Y	BB	>\203e\202\267	>\203q\202\267	>\203}\202\267	>\203\211\202\267	>\203\225\202\267	>\203\241\202\267	>\203\255\202\267	\236A\206\267 	`T\n\310\257!B!\312\n\310	\211\">	#>	>\n\313H\306	\f\236A	$>&\210\202	+\207" [mark number header headers gnus-newsgroup-limit gnus-summary-mark-below nil beginning-of-line 0 delq gnus-summary-insert-line 1 gnus-newsgroup-scored gnus-summary-default-score gnus-newsgroup-ancient gnus-newsgroup-unreads gnus-newsgroup-auto-expire gnus-newsgroup-expirable gnus-low-score-mark gnus-newsgroup-reads gnus-newsgroup-unsendable gnus-unsendable-mark gnus-newsgroup-downloadable gnus-downloadable-mark gnus-unread-mark gnus-newsgroup-marked gnus-ticked-mark gnus-newsgroup-spam-marked gnus-spam-mark gnus-newsgroup-dormant gnus-dormant-mark gnus-expirable-mark gnus-ancient-mark gnus-newsgroup-data gnus-newsgroup-undownloaded gnus-newsgroup-replied gnus-newsgroup-processable] 13 (#$ . 187681)])
#@39 Get list identifier regexp for GROUP.
(defalias 'gnus-group-get-list-identifiers #[(group) "\302!\206	:\203\303\304	\305#\207	\207" [group gnus-list-identifiers gnus-parameter-list-identifier mapconcat identity " *\\|"] 4 (#$ . 188937)])
#@88 Remove list identifiers in `gnus-list-identifiers' from articles in the current group.
(defalias 'gnus-summary-remove-list-identifiers #[nil "\306!\307\211\211\205c\310\311Q\f\307\211\205b@\211\312H\307\313	\"\203<	\314\312\224O	\314\225\307OP\315\202$\n\203X\313\316	\"\203S	\314\312\224O	\312\225\307OP
\312	I\210A\211\204\307*+\207" [gnus-newsgroup-name subject changed regexp gnus-newsgroup-headers header gnus-group-get-list-identifiers nil "^\\(?:R[Ee]: +\\)*\\(" " *\\)" 1 string-match 0 t "^\\(\\(?:R[Ee]: +\\)+\\)R[Ee]: +" --dolist-tail--] 5 (#$ . 189186)])
#@28 Fetch headers of ARTICLES.
(defalias 'gnus-fetch-headers #[(articles &optional limit force-new dependencies) "\306!\307\310\311	#\210\312\n\206$\f\313=\204\f\247\203#\nG\314V\205$\f#\211\315=\2038\316\n\317%\202>\320\"\307\310\321	#\210)\207" [gnus-newsgroup-name name articles limit gnus-fetch-old-headers gnus-headers-retrieved-by gnus-group-decoded-name gnus-message 7 "Fetching headers for %s..." gnus-retrieve-headers some 1 nov gnus-get-newsgroup-headers-xover t gnus-get-newsgroup-headers "Fetching headers for %s...done" force-new dependencies] 6 (#$ . 189789)])
#@148 Select newsgroup GROUP.
If READ-ALL is non-nil, all articles in the group are selected.
If SELECT-ARTICLES, only select those articles from GROUP.
(defalias 'gnus-select-newsgroup #[(group &optional read-all select-articles) "\306	\"J\307!@\310=\203\311\202\312\n8\313\211@\313\211AB\314\315\316!\210\307!\211!\2047\317\320!\210\321\"\n\203H\n@\311=\203\217\322!\204\217C\323\232\203\201p\211D\211E\205mE;\203i\324\202j\325E!)\203\200\326\324D!F\"F\327D!\210)\317\330\331
\"\331\332!
\"#\210\333\311\"\204\327C\323\232\203\311p\211D\211E\205\265E;\203\261\324\202\262\325E!)\203\310\326\324D!F\"F\327D!\210)\317\334\331
\"\331\332!
\"#\210G\203\366\306H\"J\203\366\335\306H\"J\f#\210\336\337\"I9\313J\340!K\341\342\"\"\343L\242\206
\344!\204
\345\202c
\"\346=\203\"
\345\202c
\347\"!\2033
\350\351\352\"\"!\202c
\"\247\203b
\353\306H\"JA\"Z\211M\344V\203Q
M\202R
\354)\306H\"JAB!N\313\202c
\313O)\355 \210\356!\203s
PB\357\211KQ\"R\"K\313S\360K\311#\210\f\203\221
\361\f!\210N\211@\203\244
\362K@\"J\202\253
\363L\"@@\204\264
\364\202\223@\344=\203\277
\313\202\223\365@G!TU\211E\205\324
\366\324E!!)\203\336
\367 \210\202\344
\370\3719\"\210\372@!VB\203\363
BPW\203\373
\373 \210\374@!X\351\375V\"\211AY\376KA\"K\377 \210\201a\362@A\"!\210Z\203E[\201b=\203EZ\201c=\203@\201d \210\202E\201e \210G\203O\201f \210\201g \210\201h!\205b\201i!?\\]\203r^\201j\232\204w\201k \210V\203\215V@\344H_\201lV!\344H`V\206\223\311.\207" [group gnus-newsrc-hashtb entry gnus-summary-ignore-duplicates info charset intern-soft gnus-find-method-for-group nnvirtual t 2 nil gnus-check-server make-local-variable gnus-current-select-method error "Couldn't open server" gnus-group-name-charset gnus-activate-group gnus-summary-mode get-buffer buffer-name delete kill-buffer "Couldn't activate group %s: %s" mm-decode-coding-string gnus-status-message gnus-request-group "Couldn't request group %s: %s" gnus-agent-possibly-alter-active gnus-agent-find-parameter agent-enable-undownloaded-faces gnus-list-of-unread-articles gnus-group-find-parameter display zerop 0 gnus-not-ignore all arrayp gnus-summary-display-make-predicate mapcar identity gnus-uncompress-range 1 gnus-summary-setup-default-charset gnus-virtual-group-p gnus-sorted-ndifference gnus-update-read-articles gnus-adjust-marked-articles gnus-sorted-difference gnus-articles-to-read quit gnus-make-hashtable buffer-live-p gnus-set-global-variables set-default gnus-newsgroup-name gnus-fetch-headers gnus-dup-suppress-articles copy-sequence #[(headers) "\301H\207" [headers 0] 2] gnus-sorted-nintersection gnus-compute-unseen-list articles fetched-articles cached major-mode buf buffer gnus-buffers gnus-agent gnus-active-hashtb gnus-summary-use-undownloaded-faces gnus-newsgroup-unselected gnus-newsgroup-unreads read-all tmp select-articles gnus-newsgroup-display gnus-newsgroup-cached gnus-newsgroup-marked gnus-newsgroup-dormant gnus-newsgroup-processable gnus-newsgroup-dependencies gnus-group-buffer gnus-newsgroup-headers gnus-suppress-duplicates gnus-newsgroup-limit gnus-newsgroup-articles gnus-fetch-old-headers gnus-headers-retrieved-by gnus-newsgroup-auto-expire gnus-single-article-buffer gnus-article-buffer gnus-newsgroup-begin gnus-newsgroup-end gnus-update-missing-marks nov invisible gnus-build-all-threads gnus-build-old-threads gnus-agent-get-undownloaded-list gnus-summary-remove-list-identifiers gnus-group-auto-expirable-p gnus-group-read-only-p "*Article*" gnus-article-setup-buffer gnus-last-element] 7 (#$ . 190388)])
(defalias 'gnus-compute-unseen-list #[nil "\204	\211\207\303	\"\211\207" [gnus-newsgroup-seen gnus-newsgroup-articles gnus-newsgroup-unseen gnus-inverse-list-range-intersection] 3])
(defalias 'gnus-summary-display-make-predicate #[(display) "\306\307!\210G\310U\203@	\2049\311\312\n\"\313\211\2038\f@\211A\314\315\313\316\317ADDE!B	B\fA\211\204*	\211\320!*\207" [display gnus-summary-display-cache gnus-article-mark-lists elem --dolist-tail-- gnus-category-predicate-cache require gnus-agent 1 append ((unread . unread) (read . read) (unseen . unseen)) nil gnus-byte-compile lambda gnus-article-marked-p quote gnus-get-predicate gnus-category-predicate-alist] 8])
(defalias 'gnus-article-marked-p #[(type &optional article) "\206	\n\306=\203>\202\342\n\307=\203\f>\202\342\n\310=\203*
>\202\342\n\311=\2037>\202\342\n\312=\203D>\202\342\n\313=\203Q>\202\342\n\314=\203^>\202\342\n\315=\203k>\202\342\n\316=\203x>\202\342\n\317=\203\205>\202\342\n\320=\203\222>\202\342\n\321=\203\237 \236\202\342\n\322=\203\254!\236\202\342\n\323=\203\271\">\202\342\n\324=\203\306#>\202\342\n\325=\203\323$>\202\342\n\326=\203\341%>?\202\342\327)\207" [article gnus-number type gnus-newsgroup-marked gnus-newsgroup-spam-marked gnus-newsgroup-unsendable tick spam unsend undownload download unread read dormant expire reply killed bookmark score save cache forward seen t gnus-newsgroup-undownloaded gnus-newsgroup-downloadable gnus-newsgroup-unreads gnus-newsgroup-reads gnus-newsgroup-dormant gnus-newsgroup-expirable gnus-newsgroup-replied gnus-newsgroup-killed gnus-newsgroup-bookmarks gnus-newsgroup-scored gnus-newsgroup-saved gnus-newsgroup-cached gnus-newsgroup-forwarded gnus-newsgroup-unseen] 2])
#@48 Find out what articles the user wants to read.
(defalias 'gnus-articles-to-read #[(group &optional read-all) "\306	\204\307\nG!\203\307G!\204\f\203M
\203:\310\"J\311@\312A
\313#]AB!)\202C\311\310\"J!\206W\314!\202W\315\316\317\n\"\"\320\"\211 G!G\"\nGG\\#	\247\203{	\202\210\f\247\203\204\f\202\210\315\321\322\217\211$;\203\226\323$!\202\230$\211$\203\245\307$!\203\252$\202
\307!!\204\311\324$!!X\203\311\325 \326\"\211G\"\202\317\327!\324$!\"W\203\370$\330W\203\356\324$!S\233\315\241\210\202\370\"$Z\233\331\"%&\203
\325&'\"\326\".\207" [only-read-p read-all gnus-newsgroup-marked gnus-newsgroup-unreads gnus-newsgroup-display gnus-newsgroup-maximum-articles t zerop intern-soft gnus-uncompress-range - -1 gnus-cache-articles-in-group nil gnus-sorted-nunion gnus-sorted-union gnus-killed-articles (byte-code "	X\204\f\nU\203\216\247\203\216\nV\203\216\306\307
!\203,\206-\202-\n\310\203W\311\312\313
\314\315\"\203L\316\225\306O\202N)!\n$\202u\311\317\313
\314\315\"\203n\316\225\306O\202p)!#\306\211\320!$\314\321\"\203\212\n\202\214,\207	V\203\325\nW\203\325\nZ\322V\203\325\310\311\323\324\313
\314\315\"\203\273\316\225\306O\202\275)!\n%!\314\321\"\203\321\n\202\323)\207\n\207" [scored marked number gnus-large-newsgroup cursor-in-echo-area gnus-newsgroup-name nil gnus-parameter-large-newsgroup-initial read-string format "How many articles from %s (available %d, default %d): " gnus-group-decoded-name string-match "^[^:]+:" 0 "How many articles from %s (%d default): " number-to-string "^[ 	]*$" 20 "%s %s (%d scored, %d total): " "How many articles from" initial only-read-p default gname input] 8) ((quit (message "Quit getting the articles to read") nil)) string-to-number abs sort < copy-sequence 0 gnus-sorted-difference group gnus-active-hashtb active gnus-newsgroup-dormant articles gnus-newsgroup-killed scored-list scored number marked select gnus-newsgroup-unselected gnus-alter-articles-to-read-function gnus-newsgroup-name] 7 (#$ . 195851)])
(defalias 'gnus-killed-articles #[(killed articles) "\306	\203\203	@\nA<\204\f@Y\205s\fAX\202s\307\203p@\247\2032\f@Y\202;\f\211@@)Y\203p
\203p@\247\203O\f@U\202d\f\211@@)Y\203i\f\211@A)X\203i\306A\211\204%
)?*\203|	@B	A\211\204)\207" [out articles killed ranges number not-stop nil t x] 4])
#@26 Return the type of MARK.
(defalias 'gnus-article-mark-to-type #[(mark) "	\236\211A@)\206\f\303\207" [mark gnus-article-special-mark-lists x list] 3 (#$ . 198353)])
#@55 Return whether MARK should be propagated to back end.
(defalias 'gnus-article-unpropagatable-p #[(mark) "	>\207" [mark gnus-article-unpropagated-mark-lists] 2 (#$ . 198526)])
#@70 Set all article lists and remove all marks that are no longer valid.
(defalias 'gnus-adjust-marked-articles #[(info) "\3068\307@\n\"J\211@A\310\211\310\211\310\211\310\211\311@!@\312=\2039\313	\310\211 \205\306
 @\211@\314!\315\316\317\320\"@\"!\321=\203
\310\211!\"\211#A@)\204\200\310L\210\202\374\211#AA)\247\203\223AC\202\226A\310\211B\211!\"\211A@\211\203\365:\203\333@\f]A
^X\203\240\"\310B\241\"T\211\202\303\fX\203\240
Y\203\240\"\310B\241\"\202\240!AL\210*\202\274
\322=\203]
A\211L\210JA<\204 
\211JCL\210A<\204,
C\203\274
\211A@\211:\203O
@\fW\204O
@
V\203,
\323J\"L\210\202,
\324=\203\274
\325=\203\274
\211#AA)\247\203~
\211AC\241\210A\203\266
@:\203\234
\f\211#@A)V\204\253
@\247\203\266
\f@V\203\266
\211A@\210\202\203
L\210 A\211 \204C\310.\207" [info marked-lists gnus-active-hashtb active min max 3 intern-soft nil gnus-find-method-for-group nnimap 1 gnus-article-mark-to-type intern format "gnus-newsgroup-%s" rassq list tuple delq range seen gnus-article-mark-lists types marks var articles article mark mark-type bgn end --dolist-tail-- lh l x] 7 (#$ . 198708)])
#@78 Go through the list of MISSING articles and remove them from the mark lists.
(defalias 'gnus-update-missing-marks #[(missing) "\205G\306\211\306\211\205F
@\307\fA!\310=\203>\311\312\313\f@\"!\211J\203>	\203>\n\314	\211A@\nJ\"L\210\202+
A\211\204\306,\207" [missing m var gnus-article-mark-lists elem --dolist-tail-- nil gnus-article-mark-to-type list intern format "gnus-newsgroup-%s" delq] 5 (#$ . 199989)])
#@74 Enter the various lists of marked articles into the newsgroup info list.
(defalias 'gnus-update-marks #[nil "\306\307	\n\"J8\310\211\211\211\211%&'&\205\214
'\211A'@\211%\2030
\311\312\313%@\"!\211J\211\203\221%A\314=\203\221(\203\221\203\221)\310B\211*+)\203\213)@:\203t)\211,@A)-U\203~*)A\241\210\202\202)*)A\211)\204_+A+%A\315=\203\241\316.\"\317%A!\320=\203\267\321\f\322\323\"L\324\"\325	/0\310\326\327\217*\203
\330%A!\204
%A\331&8\236A1\3322\333\3341!\"\"\3322\333\334!1\"\"\211\203
\335%ACEB\203
\336\307	3\"J\"\211\337%ACEB+\203%AB
B\202\203D
\340	!\204?
\341\342	\"\210\343	\"\210\331&\233\203U
\331&\233
\240\210\202a

\203a
&AA
C\241\210\34444\306V\205\213
4&8?\205\213
4S\2114&\233\203d
4&\233\310\241\210\202d
).\207" [gnus-article-mark-lists gnus-newsgroup-name gnus-newsrc-hashtb delta-marks symbol newmarked 2 intern-soft nil intern format "gnus-newsgroup-%s" score seen gnus-range-add gnus-article-mark-to-type list gnus-compress-sequence sort < t request-set-mark (byte-code ";\203\f\303!@\202
\304	!\204\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) gnus-article-unpropagatable-p 3 gnus-list-range-intersection gnus-remove-from-range gnus-copy-sequence add gnus-sorted-range-intersection del gnus-check-group error "Can't open server for %s" gnus-request-set-mark 5 type info types gnus-save-score arts prev all x gnus-summary-default-score gnus-newsgroup-unseen group func old gnus-newsgroup-articles gnus-active-hashtb i] 8 (#$ . 200424)])
#@120 Set the mode line of the article or summary buffers.
If WHERE is `summary', the summary mode line format will be used.
(defalias 'gnus-set-mode-line #[(where) "	>\205\333\306\307\310\"!J\205\333\311rq\210\306\307\310\"!J\312\313
!!#$\206+\314%&'&G()G*\315(!\203M\315*!\203M\316\202c\315*!\203\\\307\317(\"\202c\307\320(*#+,\203z\321,!\203z\312,\322H!\202{\316-\311\211./\3110\323\f!\324\325\n\"\203\244\326\327=?\205\235\3301!!G\331Z\202\245\314.\3322\203\270\333\334 2.#\202\272\nG]/\nG/V\203\317\335\n/\336Z\"\337P.\f\340\nC!3\341\342!)\207" [where gnus-updated-mode-lines mode-string gnus-summary-buffer mformat gnus-newsgroup-name intern format "gnus-%s-mode-line-format-spec" nil gnus-mode-string-quote gnus-group-decoded-name 0 zerop "" "{%d more}" "{%d(+%d) more}" vectorp 1 eval string-match "%b" buffer-name summary get-buffer 2 4 - window-width truncate-string-to-width 3 "..." gnus-mode-line-buffer-identification set-buffer-modified-p t gnus-tmp-group-name gnus-current-article gnus-tmp-article-number gnus-newsgroup-unreads gnus-tmp-unread gnus-tmp-unread-and-unticked gnus-newsgroup-unselected gnus-tmp-unselected gnus-tmp-unread-and-unselected gnus-current-headers gnus-tmp-subject bufname-length max-len gnus-tmp-header gnus-article-buffer gnus-mode-non-string-length mode-line-buffer-identification] 6 (#$ . 202126)])
#@133 Go through the HEADERS list and add all Xrefs to a hash table.
The resulting hash table is returned, or nil if no Xrefs were found.
(defalias 'gnus-create-xref-hashtb #[(from-newsgroup headers unreads) "\306!\211\203\f\307\202\310!\311 \312\211\312\211\312\211\203\235\211A@\211\313H\211\203#\314H\211>\204#\314\315\316\f#\203#\314\225\n\203e\n\317\224\317\225OP\202l\317\224\317\225O\320\321\224\321\225O!\322
\"J\211\203\220AB\241\210\202I\323
\"\312BL\210\202I\f\205\242.	\207" [from-newsgroup virtual prefix xref-hashtb start group gnus-virtual-group-p "" gnus-group-real-prefix gnus-make-hashtable nil 8 0 string-match "\\([^ ]+\\)[:/]\\([0-9]+\\)" 1 string-to-number 2 intern-soft intern entry number xrefs header headers unreads] 5 (#$ . 203526)])
#@58 Look through all the headers and mark the Xrefs as read.
(defalias 'gnus-mark-xrefs-as-read #[(from-newsgroup headers unreads) "\306!\307\211\211\211\211\211\fr
q\210\310#\211\205'\311\312\f\".\207" [from-newsgroup nth4 method idlist xref-hashtb info gnus-virtual-group-p nil gnus-create-xref-hashtb mapatoms #[(group) "\306	!\211\230?\205\205
	J\307\310\n\f\"J8\211\311
8\211;\203#
\211\2034<\2034\206 
\312\"A\206 
\313\232\203J\206
\312\"A\206
\312\"A\206
\203\206\314\315@@@@@A@#\232\204\206\211A@\210\202b\211@@*\206
\203\273\314\315\211@@)@A@#\232\204\273\211A@\210\202\225@)\206
 A\316\211!\"##\203

\311#\211A#@8\211\";\204\315\"\316\317$%\"\320\321\215+\232\203\315\"!\316\211#\204\322!+\211&\203
\312\"\204
&BB&))\205\205
\322\323!\"\204W
'\204W
\323!\211\"\232\204W
@\"@\232\205\205
A@\"A@\232\205\205
(\205\205
(\317=\203\201
'\204\201

A@\211):\203x
)@\202z
))*X\205\205
\324\n\"\207" [from-newsgroup group name idlist gnus-newsrc-hashtb info symbol-name 2 intern-soft 4 assoc "native" format "%s:%s" nil t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-methods-equal-p gnus-find-method-for-group gnus-group-make-articles-read nth4 server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result virtual gnus-use-cross-reference rank gnus-level-subscribed] 7] name virtual gnus-group-buffer headers unreads] 7 (#$ . 204357)])
(defalias 'gnus-compute-read-articles #[(group articles) "\306	\"J\307\n8\306\f\"J\310\n\205\217
\203c\310\211\211A@\211\203b\203G
AV\203G\311!\206F

AV\204W
@W\203%\312\"\202%+
\203~\3078\204~
@\313V\203~\313
@SB\202\203\3078\314\315\316\"\211\",\207" [group gnus-newsrc-hashtb entry info gnus-active-hashtb active intern-soft 2 nil gnus-activate-group delq 1 gnus-add-to-range sort < ninfo articles first id ids] 5])
#@57 Update the info of GROUP to say that ARTICLES are read.
(defalias 'gnus-group-make-articles-read #[(group articles) "\306\307	\n\"J\3108\307	
\"J%\311\312	!\313\"&\314'\2048&\205
\315	\316\317(\320\"!\321\322EC\"\202
\323	(\"'r)q\210\324\325\326\327\fD\327\330\f8D\331BBB\332\327\fD\327\310\f8DE\333\327\fD\334	DE\335&\315	\336\211\327'D\337BBDEE\340	\341BB\257!\210)\fAA'\240\210&\203\226\315	'\321\342EC\"\210%\205
'\204\254%AT%@Z\202\371'A<\204\303%A'AT'@ZZ\202\371'\203\363'@\247\203\325T\202\352'\211*@A)T'\211*@@)Z\\'A\211'\204\310%AZ\240\210\343	!?\205
\340	\344\".\207" [num group gnus-newsrc-hashtb entry info gnus-active-hashtb 0 intern-soft 2 gnus-method-option-p gnus-find-method-for-group server-marks nil gnus-request-set-mark gnus-compress-sequence sort < add (read) gnus-compute-read-articles gnus-undo-register progn gnus-info-set-marks quote 3 (t) gnus-info-set-read gnus-get-unread-articles-in-group gnus-active when list ('del '(read)) gnus-group-update-group (t) (read) gnus-ephemeral-group-p t active set-marks range articles gnus-group-buffer x] 14 (#$ . 207161)])
(defalias 'gnus-get-newsgroup-headers #[(&optional dependencies force-new) "	\206r\nq\210)\306\211\211\211\211\fr\306\307\310\217\210
)@ABCDEFGrq\210\311ed\312\313\314%\210\311ed\315\313\314%\210\316 \210\317\320!\210\314\306\211\211\211\211HIJKLMeb\210\321\322\306\314#\203\306\211EC\323\324G!\211B\306\210`J`\325\326\306\314#\203\205`\327Z\206\206`}\210Jb\210\325\330\306\314#\203\242N\331\306w\210`\332 {!\202\243\333Jb\210\325\334\306\314#\203\275O\331\306w\210`\332 {!\202\276\335Jb\210\325\336\306\314#\203\325\331\306w\210`\332 {\202\326\337Jb\210\321\340\306\314#\203\352\341\224\341\225{\202
B\211B\247\203\375\342\343PB#\202\n
\342\344P\345QT\211Q!#)\211EJb\210\325\346\306\314#\203?
`D\331\306w\210`\332 {\306\210\347\350D\314#\210`T\347\351D\314#\210`{C\202\226
\325\352\306\314#\203\222
\331\306w\210`\332 {\211L\203\222
\353\354L\"\203\222
\306RL\355\224\355\225OC\353\354L\355\225#\203\214
L\355\224\355\225O\211RGCGV\203i
RC\202i
C)\202\226
\306\211CJb\210\325\356\306\314#\203\266
\306\357\360\217\211H\247\203\262
H\202\267
\361\202\267
\361Jb\210\325\362\306\314#\203\327
\306\363\364\217\211I\247\203\323
I\202\330
\361\202\330
\361Jb\210\325\365\306\314#\205\354
\331\306w\210`\332 {S\205/S\306TUU\203,Jb\210\325\366\367U@!\370Q\306\314#\203!U@\331\306w\210`\332 {BTBTU\211AU@\210\202\370
T*&\nKEC\232\203>\306CV\203\316VK!\210K\371HEK\372H\306W\211X\205\313\373XG!?\205\313W\203\267XX\355\374X\206v\337!\306YXZ\353\375XZ#\203\232X\355\224\355\225\211ZOYBY\202~Y\237,YWY\233\203\260YAY\202\240Y@)\202\313\374X!X\353\376X\"\205\312\377\341X\")*CK	[[\211K\371H\211E\205\350\201bE	\"\\\306\211]C\306\211^_\306`\\\204\306K\202\200\201c\\!\204\\KCL\210\202\200\\J@\204(\\JK\240\210\202\200[\203:\\JK\240\210\314`\202\200a\204]\201b\201d \211E	\"\211\\KCL\210K\371EI\210\202\200\\J@\201e\\J@\201eH\206p\337K\201eH\206z\337PI\210\306KK\203
`\204
K\372H\306W\211X\205\373XG!?\205W\203\362XX\355\374X\206\261\337!\306YXZ\353\375XZ#\203\325X\355\224\355\225\211ZOYBY\202\271Y\237,YWY\233\203\353YAY\202\333Y@)\202\374X!X\353\376X\"\205\377\341X\")*\211]CC\203\317\201fC	\"\211^\203\317\201c^!\203\317^J@\211_\203\317EC\230\203L\\J@\372\201gI\210\306\211C]\202\f_\372H\306W\211X\205\310\373XG!?\205\310W\203\264XX\355\374X\206s\337!\306YXZ\353\375XZ#\203\227X\355\224\355\225\211ZOYBY\202{Y\237,YWY\233\203\255YAY\202\235Y@)\202\310\374X!X\353\376X\"\205\307\377\341X\")*\211C\204\201b]\206\332\201g	\"^\201c^!\203\370^J^JA\\JC\244\241\210\202
^\306\\JDL\210K.\n\211K\203KFBFdb\210~\210\202ZF\237.\207" [nntp-server-buffer dependencies gnus-summary-buffer gnus-newsgroup-dependencies gnus-newsgroup-charset gnus-newsgroup-ignored-charsets nil (set-buffer gnus-summary-buffer) ((error)) subst-char-in-region 9 32 t 13 ietf-drums-unfold-fws gnus-run-hooks gnus-parse-headers-hook re-search-forward "^[23][0-9]+ " vector read search-forward "\n.\n" 2 "\nsubject:" " 	" point-at-eol "(none)" "\nfrom:" "(nobody)" "\ndate:" "" "^message-id: *\\(<[^\n	> ]+>\\)" 1 format "fake+none+%s+%d" "fake+none+%s+%s" int-to-string "\nreferences:" search-backward ">" "<" "\nin-reply-to:" string-match "<[^>]+>" 0 "\nchars: " (read cur) ((error)) -1 "\nlines: " (read cur) ((error)) "\nxref:" "\n" symbol-name ":" 4 5 zerop mail-header-remove-comments "<[^<]+[^< 	]" "\\(<[^<]+>\\)[ 	]*\\'" match-string mail-parse-ignored-charsets mail-parse-charset number ref end id headers cur chars lines p header in-reply-to case-fold-search gnus-decode-encoded-word-function gnus-decode-encoded-address-function gnus-newsgroup-name nnheader-fake-message-id ref2 gnus-extra-headers out extra gnus-alter-header-function n references ids beg force-new id-dep parent-id ref-dep ref-header replaced gnus-summary-ignore-duplicates intern boundp nnmail-message-id 8 intern-soft "none"] 15])
#@128 Parse the news overview data in the server buffer.
Return a list of headers that match SEQUENCE (see
`nntp-retrieve-headers').
(defalias 'gnus-get-newsgroup-headers-xover #[(sequence &optional force-new dependencies group also-fetch-heads) "\306	\n\f\206\n
\307=\203\307\202*;\203)\203)\310\"\202*\311\311\211\211rq\210\312ed\313\314\307%\210\315\316!\210eb\210m\204[\311\317\320\217\210\202O\203e\204k\237\202\200\307\237\321\"\322=\205~\323 \244).	\207" [gnus-article-internal-prepare-hook gnus-newsgroup-charset gnus-newsgroup-ignored-charsets nntp-server-buffer dependencies gnus-newsgroup-dependencies (gnus-article-get-xrefs) t string-match nil subst-char-in-region 13 32 gnus-run-hooks gnus-parse-headers-hook (byte-code "\204	\203m\204\306\n!	\204&\203&@W\203&A\211\204	\2045\203\377@=\203\377A\f
\307 p\310\211\21145678\311\216\3109`8}\210m\204_\310u\210\310\312\313\217\310\314\315\217`\316\3178\320#\203w`S\202y8{`\316\3178\320#\203\211`S\202\2138{:\321\322:\"\203\233:\202\271\211\247\203\253\323\324;#\202\270\323\325;\326<T\211<!#))`\316\3178\320#\203\311`S\202\3138{\2115\310f\327=\203\332\330\202\354\310\331\332\217\211=\247\203\352=\202\353\330)m\204\363\333u\210\310f\327=\203\376\330\202
\310\334\335\217\211=\247\203
=\202
\330)m\204
\333u\210m?\2058
\336\337!\203&
\330\225b\210`\316\3178\320#\2035
`S\2027
8{\310\211>?\310f\340>\204w
`\316\3178\320#\203T
`S\202V
8{>\321\341>\"\203>
\342\343\333>\"!>\330\225\310OB?B?\202>
?*@ABC5:DEF\344FED:5CBA@&\n.\n6*5\345\230\203\315
6\327H\2114\203\315
\3464\236A\2114\203\315
6\347\3504!I\210G\203\330
G6!\2106\f
\2116\351H\211:\205\356
\342:\f\"H\310\211IJ\310\211KL\310MH\204\n\3106\202y\352H!\204H6CL\210\202yHJ@\204,HJ6\240\210\202y
\203=HJ6\240\210\353M\202yN\204\\\342\354 \211:\f\"\211H6CL\2106\351:I\210\202yHJ@\355HJ@\355H\206k\3456\355H\206s\345PI\210\31066\203\356M\204\3566\347H\310O\2115\205\377\3565G!?\205\377O\203\35355\330\3575\206\252\345!\310P5Q\321\3605Q#\203\3165\330\224\330\225\211QOPBP\202\262P\237,POP\233\203\344PAP\202\324P@)\202\377\3575!5\321\3615\"\205\376\343\3335\")*\211IJJ\203\302\362J\f\"\211K\203\302\352K!\203\302KJ@\211L\203\302:J\230\203?HJ@\347\363I\210\310\211JI\202L\347H\310O\2115\205\273\3565G!?\205\273O\203\24755\330\3575\206f\345!\310P5Q\321\3605Q#\203\2125\330\224\330\225\211QOPBP\202nP\237,POP\233\203\240PAP\202\220P@)\202\273\3575!5\321\3615\"\205\272\343\3335\")*\211J\204\n\342I\206\311\363\f\"K\352K!\203\345KJKJAHJC\244\241\210\202\356K\310HJDL\2106.\2116\203\3776RBR\333y\210\202db\207" [sequence allp cur number dependencies force-new read point-at-eol nil ((widen)) (byte-code "`\304\305	\306#\203`S\202	{\211!\307\310\311\307\312\311\313$\313$)\207" [gnus-decode-encoded-word-function eol x string search-forward #1="	" move mm-subst-char-in-string 13 45 10 t] 8) ((error x)) (byte-code "`\304\305	\306#\203`S\202	{\211!\307\310\311\307\312\311\313$\313$)\207" [gnus-decode-encoded-address-function eol x string search-forward #1# move mm-subst-char-in-string 13 45 10 t] 8) ((error x)) search-forward #1# move string-match "^<[^>]+>$" format "fake+none+%s+%d" "fake+none+%s+%s" int-to-string 9 0 (byte-code "\300p!\207" [read] 2) ((error)) 1 (byte-code "\300p!\207" [read] 2) ((error)) looking-at "Xref: " (10 nil) "^\\([^ :]+\\): " intern match-string vector "" In-Reply-To 5 gnus-extract-message-id-from-in-reply-to 4 boundp t nnmail-message-id 8 zerop mail-header-remove-comments "<[^<]+[^< 	]" "\\(<[^<]+>\\)[ 	]*\\'" intern-soft "none" in-reply-to references header buffer eol x id gnus-newsgroup-name nnheader-fake-message-id num string out extra xref lines chars date from subject gnus-alter-header-function id-dep parent-id ref ref-dep ref-header replaced gnus-summary-ignore-duplicates n ids beg headers] 15) ((error (byte-code "\300\301\302\303e`\"#\210\304y\207" [gnus-error 4 "Invalid data on line %d" count-lines 1] 6))) gnus-retrieve-headers headers gnus-get-newsgroup-headers gnus-read-all-available-headers group header number allp cur mail-parse-ignored-charsets mail-parse-charset also-fetch-heads sequence gnus-nov-is-evil] 8 (#$ . 212419)])
#@133 Fill in the Xref value in `gnus-current-headers', if necessary.
This is meant to be called in `gnus-article-internal-prepare-hook'.
(defalias 'gnus-article-get-xrefs #[nil "rq\210	)?\206T\n?\206T\n\306H\203 \n\306H\307\230?\206T\310\311\214\312 \210eb\210m\204=\311f\227\313=\203=\314\315!\204E\316\317\311\310#\205S\320\225Tb\210`\321 {\n\306\fI+)\207" [gnus-summary-buffer gnus-current-headers headers gnus-use-cross-reference xref case-fold-search 8 "" t nil nnheader-narrow-to-headers 120 looking-at "Xref:" search-forward "\nXref:" 0 point-at-eol] 4 (#$ . 216875)])
#@319 Find article ID and insert the summary line for that article.
OLD-HEADER can either be a header or a line number to insert
the subject line on.
If USE-OLD-HEADER is non-nil, then OLD-HEADER should be a header,
and OLD-HEADER will be used when the summary line is inserted,
too, instead of trying to fetch new headers.
(defalias 'gnus-summary-insert-subject #[(id &optional old-header use-old-header) "\247\205\306!\205\211\203\n\203\202/\247\203,\307!\203,\307!\202/\310!\247\2056\311\f\203\247\204o\203o
\203o\312H\236\211\203o\3138b\210\314
\315 \316 T\315 \317y\210`|\210Z\"\210\fC\320 \210)\203\202\f\312\312HI\210\321\f\312H\211\"\321
\"
B\322\f\323H	\"\210\324
\311\325#\210
\247\203\327
\312V\203\327\203\276
W\204\301
\203\315
V\204\320
\321
\"\f\205\336\f\312H-\207" [old-header line use-old-header id header number vectorp gnus-number-to-header gnus-read-header nil 0 2 gnus-data-remove point-at-bol point-at-eol 1 gnus-summary-remove-list-identifiers delq gnus-rebuild-thread 4 gnus-summary-goto-subject t d gnus-show-threads gnus-newsgroup-data gnus-newsgroup-headers gnus-newsgroup-sparse gnus-newsgroup-ancient gnus-newsgroup-limit gnus-newsgroup-end gnus-newsgroup-begin gnus-newsgroup-unselected] 7 (#$ . 217467)])
#@162 Return a list of articles to be worked upon.
The prefix argument, the list of process marked articles, and the
current article will be taken into consideration.
(defalias 'gnus-summary-work-articles #[(n) "rq\210	\203a\306	!\211\307W\310\306	!!\311\211\212	\307V\203Z\312`\313\"\211\203.\314
!\210)\312`\315\"\2068\316 \211B\211\203Z\f\203L\317\311\n\"\202P\320\311\n\"\203Z	S\211\202)\237,\202\333\321 \203\264\322 \203\264\323\324!\210`\322 ]\311\211\212`\322 ^b\210\312`\313\"\211\203\215\314
!\210)\312`\315\"\206\227\316 \211B\211\203\256\320\311\n\"\203\256`W\204\200\237,\202\333\203\303\325 \210\326!\202\333\312`\313\"\211\203\320\314
!\210)\312`\315\"\206\332\316 C)\207" [gnus-summary-buffer n article articles backward to prefix-numeric-value 0 abs nil get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-find-prev gnus-summary-find-next gnus-region-active-p mark message "region active" gnus-summary-save-process-mark reverse max gnus-newsgroup-processable] 5 (#$ . 218791)])
#@184 Iterate over the process/prefixed articles and do FORMS.
ARG is the interactive prefix given to the command.  FORMS will be
executed with point over the summary line of the articles.
(defalias 'gnus-summary-iterate '(macro . #[(arg &rest forms) "\303\304!\305\306	DDC\307\310\311DD\312\n\313DC\"BBBE)\207" [articles arg forms make-symbol "gnus-summary-iterate-articles" let gnus-summary-work-articles while gnus-summary-goto-subject car append pop] 9 (#$ . 219897)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put gnus-summary-iterate lisp-indent-function 1 edebug-form-spec (form body)] 4)
#@63 Push the current set of process marked articles on the stack.
(defalias 'gnus-summary-save-process-mark #[nil "\302!	B\211\207" [gnus-newsgroup-processable gnus-newsgroup-process-stack copy-sequence] 2 (#$ . 220514) nil])
#@74 Push the current set of process marked articles on the stack and unmark.
(defalias 'gnus-summary-kill-process-mark #[nil "\300 \210\301 \207" [gnus-summary-save-process-mark gnus-summary-unmark-all-processable] 1 (#$ . 220744) nil])
#@63 Pop the last process mark state off the stack and restore it.
(defalias 'gnus-summary-yank-process-mark #[nil "\204\301\302!\210\303\211A@!\207" [gnus-newsgroup-process-stack error "Empty mark stack" gnus-summary-process-mark-set] 3 (#$ . 220983) nil])
#@52 Make SET into the current process marked articles.
(defalias 'gnus-summary-process-mark-set #[(set) "\301 \210\302\303\"\207" [set gnus-summary-unmark-all-processable mapc gnus-summary-set-process-mark] 3 (#$ . 221247)])
#@102 Search for next unread newsgroup.
If optional argument BACKWARD is non-nil, search backward instead.
(defalias 'gnus-summary-search-group #[(&optional backward use-level) "rq\210\303	\304\n\205
\305 #\205\306 )\207" [gnus-group-buffer backward use-level gnus-group-search-forward nil gnus-group-group-level gnus-group-group-name] 4 (#$ . 221476)])
#@84 Find the name of the best unread group.
If EXCLUDE-GROUP, do not go to this group.
(defalias 'gnus-summary-best-group #[(&optional exclude-group) "rq\210\212\302	!*\207" [gnus-group-buffer exclude-group gnus-group-best-unread-group] 2 (#$ . 221834)])
(defalias 'gnus-summary-find-next #[(&optional unread article backward) "\203	\306	\n\"\207\307`\310\"\n\206)\307`\310\"\211\203\311\f!\210)\307`\312\"\206)\313 
\n\236>)\314\204W\203R	\203R@A@U\204WA	\203\263\203\256@@\315=\203p\202\216\203y\314\202\216\316=\203\205\202\216\317=\205\216>\204\245@A@U\203\245@\314A\211\204`\202\266@\211\205\305\3208b\210@,\207" [backward unread article dummy to gnus-newsgroup-data gnus-summary-find-prev get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject nil always-undownloaded unfetched undownloaded 2 bdata data result gnus-summary-check-current gnus-unread-mark gnus-auto-goto-ignores gnus-newsgroup-undownloaded gnus-plugged gnus-newsgroup-unfetched] 4])
(defalias 'gnus-summary-find-prev #[(&optional unread article) "m	\206\306`\307\"\211\203\310\n!\210)\306`\311\"\206\312 \206'\313\f!\211	
\236
>)\314\204Q\203L\203L@A@U\204QA\203\256\203\251@@\315=\203k\202\211\203t\314\202\211\316=\203\200\202\211\317=\205\211>\204\240@A@U\203\240@\314A\211\204[\202\261@\211\205\300\3208b\210@,\207" [eobp article to gnus-newsgroup-data-reverse gnus-newsgroup-data bdata get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject reverse nil always-undownloaded unfetched undownloaded 2 data result gnus-summary-check-current unread gnus-unread-mark gnus-auto-goto-ignores gnus-newsgroup-undownloaded gnus-plugged gnus-newsgroup-unfetched] 4])
(defalias 'gnus-summary-find-subject #[(subject &optional unread backward article) "	\203
\306	\"\202R\n\204'\307\"\203\"\310\225\311O\202#)\202R\n\312=\2033\313!\202R\n\247\203Q\314\307\"\203J\310\225\311O\202K)\n\"\202R)
\206q\315`\316\"\211\203g\317!\210)\315`\320\"\206q\321 \203\206\206\210\322!\211\202\210\211
\236>)\311 \203\257!\203\257@A@\"U\204\264A\203\377
!\203\311@A@\"U\203\366
\323\324@8!\203\366
\f\324@8\325H\326#$%#\204\223
%	\203\365\306	\"\202:
\n\204
\307\"\203\n
\310\225\311O\202
)\202:
\n\312=\203
\313!\202:
\n\247\2039
\314\307\"\2032
\310\225\311O\2023
)\n\"\202:
)$	\203I
\306	\"\202\216
\n\204c
\307\"\203^
\310\225\311O\202_
)\202\216
\n\312=\203o
\313!\202\216
\n\247\203\215
\314\307\"\203\206
\310\225\311O\202\207
)\n\"\202\216
)\232\202\352
%$	\203\243
\306	\"\202\350
\n\204\275
\307\"\203\270
\310\225\311O\202\271
)\202\350
\n\312=\203\311
\313!\202\350
\n\247\203\347
\314\307\"\203\340
\310\225\311O\202\341
)\n\"\202\350
)\232+\203\366
@\311A\211\204\271\205\3278b\205@-\207" [subject gnus-simplify-subject-functions gnus-summary-gather-subject-limit message-subject-re-regexp simp-subject article gnus-map-function string-match 0 nil fuzzy gnus-simplify-subject-fuzzy truncate-string-to-width get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject reverse vectorp 3 1 t 2 to backward gnus-newsgroup-data-reverse gnus-newsgroup-data articles bdata arts result gnus-summary-check-current unread gnus-unread-mark simple-first s2 s1] 6])
#@158 Search forward for an article.
If UNREAD, look for unread articles.  If SUBJECT, look for
articles with that subject.  If BACKWARD, search backward instead.
(defalias 'gnus-summary-search-forward #[(&optional unread subject backward) "\203\n\303	\n#\207\n\203\304	!\207\305	!\207" [subject unread backward gnus-summary-find-subject gnus-summary-find-prev gnus-summary-find-next] 4 (#$ . 225425)])
#@77 Center point in window and redisplay frame.
Also do horizontal recentering.
(defalias 'gnus-recenter #[(&optional n) "\203
\302=\204
\303 \210\304\305!\203\305	!\207\306	!\207" [gnus-auto-center-summary n vertical gnus-horizontal-recenter fboundp recenter-top-bottom recenter] 2 (#$ . 225833) "P"])
(put 'gnus-recenter 'isearch-scroll t)
#@119 Move N lines forward (backward if N is negative).
Like forward-line, but skip over (and don't count) invisible lines.
(defalias 'gnus-forward-line-ignore-invisible #[(n) "\302	\303V\203-\204-\304`!\203\305`!b\210\202\f\306y\210m\203&\307\202	S\211\202	\303W\205Z?\205Z\310y\210o\203D\307\202-	To\204-\304`S!\203-\311`!b\210\202G)\207" [done n nil 0 gnus-invisible-p gnus-next-char-property-change 1 t -1 gnus-previous-char-property-change] 3 (#$ . 226184)])
#@146 Center point in the summary window.
If `gnus-auto-center-summary' is nil, or the article buffer isn't
displayed, no centering will be performed.
(defalias 'gnus-summary-recenter #[nil "\205\255\306 \307W\203\310\202(\306 \311W\203\312\202(\247\203#\202(\306 S\313\245\306 S\212db\210\314\n[!\210`)\315p!\315
!\203\210\212\314	[!\210`)V\203]\316\f\"\210\202\207\212db\210\314\317!\210`b\210\316\f`\320#\210\321\f\"\204\206\314\312!\210\316\f`^\320#\210*)\315p\320\"\205\254\322=?\205\254\323 \324\315p\320\"!\210\325 \210\326 \210\324!),\207" [gnus-auto-center-summary top height bottom window gnus-article-buffer window-height 4 0 7 1 2 gnus-forward-line-ignore-invisible get-buffer-window set-window-start -1 t pos-visible-in-window-p vertical selected-window select-window gnus-summary-position-point gnus-horizontal-recenter top-pos last-line-start selected] 4 (#$ . 226673) nil])
#@47 Move point to NEWSGROUP in group mode buffer.
(defalias 'gnus-summary-jump-to-group #[(newsgroup) "p\303!=\203\304 \305\216\306!\203\307!\210\310\n!*\207\212\306\311\"\203+\307!\210\202.q\210\310\n!)\207" [gnus-group-buffer #1=#:wconfig newsgroup get-buffer current-window-configuration ((set-window-configuration #1#)) get-buffer-window pop-to-buffer gnus-group-jump-to-group 0] 3 (#$ . 227604)])
(defalias 'gnus-list-of-unread-articles #[(group) "\306\211\307	\"J88\307\"J\206\310!\211A\206\311\312\"\2031\f@\313
\314#]\2023\f@\315\211\315\n\204I\202\336\nA<\204h\n@W\204]\nC\202h\nAT]\202\336\n@\247\203s\n@\206z\n\211@@)\211\316U\204\206\n\203\336\203\247W\203\247BT\211\202\221\n@:\204\262\n@\202\271\n\211@A)T\n\211A@):\204\321\n\211A@)\202\325\nA@@\nA\211\204\212
X\203\365BT\211\202\340\317\320\237\".\207" [group gnus-newsrc-hashtb read gnus-active-hashtb active last 2 intern-soft gnus-activate-group error "Group %s couldn't be activated " - -1 nil 1 delq 0 gnus-newsgroup-maximum-articles bottom first nlast unread x] 6])
#@61 Return a list of unread, unticked and non-dormant articles.
(defalias 'gnus-list-of-read-articles #[(group) "\306\307	\"J8\310\n8\307\f\"J\n\205C
\205C\311\211\312\313\2033
@\314
A\315#]
AB\2024
!\316!\"\317\236A\"\320\236A\"+\207" [group gnus-newsrc-hashtb info marked gnus-active-hashtb active 2 intern-soft 3 gnus-list-range-difference gnus-sorted-complement gnus-uncompress-range - -1 gnus-list-of-unread-articles dormant tick gnus-newsgroup-maximum-articles] 9 (#$ . 228764)])
(defalias 'gnus-sequence-of-unread-articles #[(group) "\306\211\307	\"J88\307\"J\206\310!\211A\203*\f@\311
\312#]\202,\f@\313\211\313\n\204B\202\311\nA<\204a\n@W\204V\nC\202a\nAT]\202\311\n@\247\203l\n@\206s\n\211@@)\211\314U\204\n\203\311\203\222BB\n@:\204\235\n@\202\244\n\211@A)T\n\211A@):\204\274\n\211A@)\202\300\nA@@\nA\211\204\203\203\363
\203\363
W\203\345
BB\202\363
U\203\363B\315\316\237\".\207" [group gnus-newsrc-hashtb read gnus-active-hashtb active last 2 intern-soft gnus-activate-group - -1 nil 1 delq 0 gnus-newsgroup-maximum-articles bottom first nlast unread x] 6])
#@118 Reconfigure windows to show the article buffer.
If `gnus-widen-article-window' is set, show only the article
buffer.
(defalias 'gnus-summary-select-article-buffer #[nil "\211\205\303\304	!!)\204\305\306!\207\307!\204\310 \210\311\n\203%\312\202&\313\314\"\210\315\307!!\207" [gnus-article-buffer buffer gnus-widen-article-window buffer-live-p get-buffer error "There is no article buffer for this summary buffer" get-buffer-window gnus-summary-show-article gnus-configure-windows only-article article t select-window] 4 (#$ . 229961) nil])
#@66 Perform any operation on all articles that are process/prefixed.
(defalias 'gnus-summary-universal-argument #[(arg) "\305!\306\211\307\310\311\312!!!\211\313=\203\314\315\316\"\210\202<\212\203;\317\211A@\211!\210\306\320\n!\210)\321	!\210\202)+\322 \207" [arg article func articles gnus-newsgroup-processable gnus-summary-work-articles nil key-binding read-key-sequence substitute-command-keys "\\<gnus-summary-mode-map>\\[gnus-summary-universal-argument]" undefined gnus-error 1 "Undefined key" gnus-summary-goto-subject command-execute gnus-summary-remove-process-mark gnus-summary-position-point] 4 (#$ . 230519) "P"])
#@91 Toggle truncation of summary lines.
With ARG, turn line truncation on if ARG is positive.
(defalias 'gnus-summary-toggle-truncation #[(&optional arg) "\204		?\202\302!\303V\304 \207" [arg truncate-lines prefix-numeric-value 0 redraw-display] 2 (#$ . 231164) "P"])
#@286 Return the number of an article to stay on across a reselect.
The current article is considered, then following articles, then previous
articles.  An article is sought which is not canceled and isn't a temporary
insertion from another group.  If there's no such then return a dummy 0.
(defalias 'gnus-summary-find-for-reselect #[nil "\306\307\306\211\203u\n@\204n	\203!\206\"\310\f!\211\202\"\f\311`\312\"\211\2032\313!\210)\311`\314\"\206<\315 
\236
>)\211\203m\204m\316@@W\203d@A@=\204d@@A\211\204G)\nA\211\204\n*\206{\316)\207" [found rev --dolist-tail-- gnus-newsgroup-data-reverse gnus-newsgroup-data bdata nil (nil t) reverse get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 0 to data gnus-canceled-mark] 4 (#$ . 231441)])
#@101 Exit and then reselect the current newsgroup.
The prefix argument ALL means to select all articles.
(defalias 'gnus-summary-reselect-current-group #[(&optional all rescan) "\306!\203\n\307\310!\210\311 \312\313\312\314\"\210\315	!\210\f\203$\212\316\317!\210)\320
\321\"\210\322\n\312\321#*\207" [gnus-newsgroup-name group current-subject gnus-newsgroup-begin rescan all gnus-ephemeral-group-p error "Ephemeral groups can't be reselected" gnus-summary-find-for-reselect nil gnus-summary-exit leave-hidden gnus-summary-jump-to-group gnus-group-get-new-news-this-group 1 gnus-group-read-group t gnus-summary-goto-subject] 4 (#$ . 232270) "P"])
#@69 Exit the newsgroup, ask for new articles, and select the newsgroup.
(defalias 'gnus-summary-rescan-group #[(&optional all) "\303\n\304\"\210\305	!\210	\306=\205\307 )\207" [gnus-current-window-configuration config all gnus-summary-reselect-current-group t gnus-configure-windows article gnus-summary-select-article] 3 (#$ . 232925) "P"])
(defalias 'gnus-summary-update-info #[(&optional non-destructive) "\212\211\205\242\n\203\306\307\310\f\"
\"\311\"\fA<\204\fC\312	!\313\204F\314\315\316	\"J8!\317\3208\"rq\210\321 \210)\322	\307
\"\"\210?\205`??\205f\212\323 \210*\203y\324	
#\210q\210?\205\241\325	\313\314\315\316	\"J8!\317\3208\"\211\232#+*\207" [gnus-newsgroup-name group gnus-newsgroup-kill-headers gnus-newsgroup-unselected gnus-newsgroup-killed gnus-newsgroup-unreads gnus-compress-sequence gnus-sorted-union gnus-list-range-intersection t gnus-ephemeral-group-p nil copy-sequence 2 intern-soft delq 5 gnus-undo-force-boundary gnus-update-read-articles gnus-update-marks gnus-mark-xrefs-as-read gnus-group-update-group gnus-newsgroup-headers info ephemeral-p headers gnus-newsrc-hashtb gnus-group-buffer gnus-save-score non-destructive gnus-newsgroup-scored gnus-use-cross-reference] 10])
#@165 Save the current number of read/marked articles in the dribble buffer.
The dribble buffer will then be saved.
If FORCE (the prefix), also save the .newsrc file(s).
(defalias 'gnus-summary-save-newsrc #[(&optional force) "\301\302!\210\203\303 \207\304 \207" [force gnus-summary-update-info t gnus-save-newsrc-file gnus-dribble-save] 2 (#$ . 234202) "P"])
#@151 Exit reading current newsgroup, and then return to group selection mode.
`gnus-exit-group-hook' is called with no arguments if that value is non-nil.
(defalias 'gnus-summary-exit #[(&optional temporary leave-hidden) "\306 \210\211\205\307\310	!!)\203rq\210\311\n!\210\312\211)\313 \210\314 \210\f\315\f!1\316234567\3128p9:;1\204Y<\203Q\317 \210=\203Y\320 \210\321\322!\210>\203h\323 \210\324 \210\325
!\210?\203t\326 \210@\203}\327
!\210>\203\205\330 \210\331
A\332\333A\"\203\232A\334\225\312O\202\234A)!\2101\204\253\321\335!\210\336 \210\337
!\210\307\310B!!\203\274Bq\2101\204\305\340
!\210\321\341!\2101\204\336C\203\336
\342 \230\203\336\343\344!\210`8D?\205\372
9q\210E\204\371\345 \210\3127\2024
\310!\203
\346!\2107\347=\2034
9\2119\211\205 
	;\203
\310\202
\350	!)\2033
\351\3109!F\"F\3529!\210)GHB\211\205D
\307\310	!!)\203L
Bq\2101\203Y
\3531!\210\202x
8b\210\354p\334\"\211I\203m
\355I`\"\210)J\204x
\356\305\357\"\210;\204\361
3\211\205\211
\307\310	!!)\203\307
r3q\2106\360=\204\306
3\2119\211\205\257
	;\203\254
\310\202\255
\350	!)\203\302
\351\3109!F\"F\3529!\210)\312K)5\2119\211\205\335
	;\203\332
\310\202\333
\350	!)\203\360
\351\3109!F\"F\3529!\210)1?\205\372
\312\211.	\207" [gnus-article-buffer buffer gnus-article-mime-handles gnus-article-mime-handle-alist gnus-newsgroup-name group gnus-set-global-variables buffer-live-p get-buffer mm-destroy-parts nil gnus-kill-save-kill-buffer gnus-async-halt-prefetch gnus-group-quit-config t gnus-score-adaptive gnus-score-save gnus-run-hooks gnus-summary-prepare-exit-hook gnus-cache-possibly-remove-articles gnus-cache-save-buffers gnus-async-prefetch-remove-group gnus-dup-enter-articles gnus-tree-close gnus-cache-write-active nnmail-purge-split-history string-match "^[^:]+:" 0 gnus-exit-group-hook gnus-summary-update-info gnus-close-group gnus-group-jump-to-group gnus-summary-exit-hook gnus-group-group-name gnus-group-next-unread-group 1 gnus-deaden-summary bury-buffer gnus-summary-mode buffer-name delete kill-buffer gnus-handle-ephemeral-exit get-buffer-window set-window-point gnus-configure-windows force gnus-sticky-article-mode quit-config gnus-group-is-exiting-p article-buffer gnus-original-article-buffer original-article-buffer major-mode mode group-point buf gnus-single-article-buffer single-article-buffer gnus-newsgroup-adaptive gnus-use-scoring gnus-use-cache gnus-suppress-duplicates gnus-use-trees gname gnus-group-buffer gnus-summary-next-group-on-exit temporary gnus-kill-summary-on-exit gnus-buffers gnus-select-method gnus-current-select-method win leave-hidden gnus-article-current] 5 (#$ . 234567) nil])
(defalias 'gnus-summary-quit 'gnus-summary-exit-no-update)
#@68 Quit reading current newsgroup without updating read article info.
(defalias 'gnus-summary-exit-no-update #[(&optional no-questions) "\306\211\307	!
\204#\204\310\311!\2052
\312 \210\313\314!\210$\211%\205.\315\316%!!)\203Ir$q\210\317 \210\320 \210\321&!\210\322\211'&)(\204\253$\211)\211%\205g%;\203c\316\202d\323%!)\203z\324\316)!*\"*\325)!\210)+\211)\211%\205\224%;\203\220\316\202\221\323%!)\203\247\324\316)!*\"*\325)!\210)\322,-\204\273\326 \210\327\301\330\"\210\202\361\327\301\330\"\210\331	!\210.\211)\211%\205\335%;\203\331\316\202\332\323%!)\203\360\324\316)!*\"*\325)!\210)(\204\371\322,/\203
\332	!\210\333	!\210\316$!\203
\334$!\210\322\335	!\204 
\336	\322\306#\210\337 	\232\203+
\340\341!\210\f\2052
\342\f!,\207" [gnus-newsgroup-name group gnus-group-is-exiting-p gnus-group-is-exiting-without-update-p quit-config no-questions t gnus-group-quit-config gnus-y-or-n-p "Discard changes to this group and exit? " gnus-async-halt-prefetch run-hooks gnus-summary-prepare-exit-hook buffer-live-p get-buffer gnus-article-stop-animations gnus-stop-downloads mm-destroy-parts nil buffer-name delete kill-buffer gnus-deaden-summary gnus-configure-windows force gnus-close-group gnus-tree-close gnus-async-prefetch-remove-group bury-buffer gnus-ephemeral-group-p gnus-group-update-group gnus-group-group-name gnus-group-next-unread-group 1 gnus-handle-ephemeral-exit gnus-expert-user gnus-article-buffer buffer gnus-article-mime-handles gnus-article-mime-handle-alist gnus-single-article-buffer buf gnus-buffers gnus-original-article-buffer gnus-article-current gnus-kill-summary-on-exit gnus-summary-buffer gnus-use-trees] 5 (#$ . 237342) nil])
#@112 Handle movement when leaving an ephemeral group.
The state which existed when entering the ephemeral is reset.
(defalias 'gnus-handle-ephemeral-exit #[(quit-config) "\306@!\204	\211\205\306\307\n!!)\205\334\310\311\312\"\207@q\210A\311=\204*\313!
\314=\2036\315 \210\202X
\316=\203Xr \211\205I\306\307\n!!)\204P	q\210 q\210\315 \210)A\317=\204fA\320=\203\202\321\322!\203y\322J\203y\310\320\312\"\210\202\210\310A\312\"\210\202\210\310A\312\"\210
\314=\205\334!\323>\203\275\324!\325=\203\245\326\327\330\331#\202\261!\332=\205\261\326\327\331\211#!\203\327\310\333\312\"\210\202\327!\334=\203\313\326\327!\210\202\327!\335=\203\327\326\327\331\"\210\336 \210\337 \207" [quit-config gnus-group-buffer buffer gnus-newsgroup-name gnus-current-select-method major-mode buffer-live-p get-buffer gnus-configure-windows group force gnus-find-method-for-group gnus-summary-mode gnus-set-global-variables gnus-article-mode article pick boundp gnus-pick-mode (next-noselect next-unread-noselect) zerop next-noselect gnus-summary-next-subject 1 nil t next-unread-noselect summary next next-unread gnus-summary-recenter gnus-summary-position-point gnus-summary-buffer gnus-auto-select-on-ephemeral-exit] 6 (#$ . 239076)])
(defvar gnus-dead-summary-mode-map (byte-code "\303 \304!\210\305\306\307#\210\310\311\211\203%\n@\312	\307#\210\nA\211\204*\313\311\211\203>\n@\312	\314#\210\nA\211\204.*)\207" [map key --dolist-tail-- make-keymap suppress-keymap substitute-key-definition undefined gnus-summary-wake-up-the-dead ("" "
" "" [delete]) nil define-key ("q" "Q") bury-buffer] 5))
#@113 Non-nil if Gnus-Dead-Summary mode is enabled.
Use the command `gnus-dead-summary-mode' to change this variable.
(defvar gnus-dead-summary-mode nil (#$ . 240720))
(make-variable-buffer-local 'gnus-dead-summary-mode)
#@38 Minor mode for Gnus summary buffers.
(defalias 'gnus-dead-summary-mode #[(&optional arg) "\303 	\304=\203\n?\202\305	!\306V\307\310!\204\311\312\313\n\203&\314\202'\315\"\210\316\317!\203H\303 \203;\303 \232\203H\320\321\n\203E\322\202F\323\"\210)\324 \210\n\207" [#1=#:last-message arg gnus-dead-summary-mode current-message toggle prefix-numeric-value 0 derived-mode-p gnus-summary-mode nil run-hooks gnus-dead-summary-mode-hook gnus-dead-summary-mode-on-hook gnus-dead-summary-mode-off-hook called-interactively-p any message "Gnus-Dead-Summary mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 240941) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\211%\207" [gnus-dead-summary-mode-map add-minor-mode gnus-dead-summary-mode " Dead" nil] 6)
#@61 Make the current summary buffer into a dead summary buffer.
(defalias 'gnus-deaden-summary #[nil "\203\303!\203rq\210	\203\304p!\210)p\301\305!\210\303 \306\307\n\"\2059\310\n\311\211\224O\312\n\311\224\313OQ\314\"\210\315 )\207" [gnus-dead-summary gnus-dead-summary-mode name buffer-name kill-buffer 1 string-match "Summary" rename-buffer 0 "Dead " nil t bury-buffer] 6 (#$ . 241740)])
#@36 Kill or deaden the summary BUFFER.
(defalias 'gnus-kill-or-deaden-summary #[(buffer) "\212\306!\203W	\204Wrq\210\n\211\211\205#;\203 \307\202!\306!)\2032\310\307!\f\"\311!\210)
\211\211\205G;\203D\307\202E\306!)\203V\310\307!\f\"\311!\210*\f\203\247
\203\201\211\205s;\203p\307\202q\306!)\203\201rq\210\312!\210)\211\211\205\225;\203\222\307\202\223\306!)\205\243\310\307!\f\"\311!)\202\304\211\205\271;\203\266\307\202\267\306!)\205\304rq\210\313 ))\207" [buffer gnus-single-article-buffer gnus-article-buffer buf gnus-buffers gnus-original-article-buffer buffer-name get-buffer delete kill-buffer gnus-tree-close gnus-deaden-summary gnus-kill-summary-on-exit gnus-use-trees gnus-newsgroup-name] 4 (#$ . 242145)])
#@34 Wake up the dead summary buffer.
(defalias 'gnus-summary-wake-up-the-dead #[(&rest args) "\301\302!\210\303 \304\305\"\203\306\307\211\224O\307\225\310OP\311\"\210)\312\313\314\"\207" [name gnus-dead-summary-mode -1 buffer-name string-match "Dead " rename-buffer 0 nil t gnus-message 3 "This dead summary is now alive again"] 5 (#$ . 242929) nil])
#@33 Describe the current newsgroup.
(defalias 'gnus-summary-describe-group #[(&optional force) "\302	\"\207" [force gnus-newsgroup-name gnus-group-describe-group] 3 (#$ . 243289) "P"])
#@41 Describe summary mode commands briefly.
(defalias 'gnus-summary-describe-briefly #[nil "\300\301\302\303\304!#\207" [gnus-message 6 "%s" substitute-command-keys "\\<gnus-summary-mode-map>\\[gnus-summary-next-page]:Select  \\[gnus-summary-next-unread-article]:Forward  \\[gnus-summary-prev-unread-article]:Backward  \\[gnus-summary-exit]:Exit  \\[gnus-info-find-node]:Run Info	 \\[gnus-summary-describe-briefly]:This help"] 5 (#$ . 243477) nil])
#@219 Exit current newsgroup and then select next unread newsgroup.
If prefix argument NO-ARTICLE is non-nil, no article is selected
initially.  If TARGET-GROUP, go to this group.  If BACKWARD, go to
previous group instead.
(defalias 'gnus-summary-next-group #[(&optional no-article target-group backward) "\306 \210p\307\310\311!\210	?\205\225\fq\210\312!\210
\2060\313=\203*\314!\2020\315\"\211\204Z\316\317\320\"\210\311\n\211\205I\321\322!!)\203S\nq\210\310 \210\323\324!\210\202
\312
!\210\325 \211\311=\204t\203\215\326!\204\215\327
\307\330\n!\205\200\n\307&\203\215\311\202\221
\307)\202
+\207" [gnus-newsgroup-name entered current-buffer current-group gnus-group-buffer target-group gnus-async-halt-prefetch nil gnus-summary-exit t gnus-group-jump-to-group best gnus-summary-best-group gnus-summary-search-group gnus-message 5 "Returning to the group buffer" buffer-live-p get-buffer gnus-run-hooks gnus-group-no-more-groups-hook gnus-group-group-unread zerop gnus-summary-read-group buffer-name gnus-keep-same-level backward buffer unreads no-article] 8 (#$ . 243929) "P"])
#@143 Exit current newsgroup and then select previous unread newsgroup.
If prefix argument NO-ARTICLE is non-nil, no article is selected initially.
(defalias 'gnus-summary-prev-group #[(&optional no-article) "\301\302\303#\207" [no-article gnus-summary-next-group nil t] 4 (#$ . 245061) "P"])
#@317 Go to the first subject satisfying any non-nil constraint.
If UNREAD is non-nil, the article should be unread.
If UNDOWNLOADED is non-nil, the article should be undownloaded.
If UNSEEN is non-nil, the article should be unseen as well as unread.
Returns the article selected or nil if there are no matching articles.
(defalias 'gnus-summary-first-subject #[(&optional unread undownloaded unseen) "\204\306\307\310\"\210\311\207	\204!\n\204!\204!\312@8b\210@@\207\211\203c\f@@\211>\206X	\203=
>\206W\n\203H
>\206W\205W
>\205W
>?)\203c\fA\211\204'\f\203s\312\f@8b\210\f@@\202\326\306\307\313	\205{\314\n\205\202\315\205\211\316\317\311E\"\211G\307U\203\253\320\321\260\202\322G\312U\203\303@\321\211A@)Q\202\322G\322U\203\321@\202\322\323,#\210\311\324 \210)\207" [gnus-newsgroup-data unread undownloaded unseen data num gnus-message 3 "No articles in the group" nil 2 "No more%s articles" " unread" " undownloaded" " unseen" delq "," ", or" 1 "" gnus-summary-position-point gnus-newsgroup-unfetched gnus-newsgroup-unreads gnus-newsgroup-undownloaded gnus-newsgroup-unseen r d s l x] 9 (#$ . 245356) "P"])
#@219 Go to next N'th summary line.
If N is negative, go to the previous N'th subject line.
If UNREAD is non-nil, only unread articles are selected.
The difference between N and the actual number of steps taken is
returned.
(defalias 'gnus-summary-next-subject #[(n &optional unread dont-display) "\304W\305!\304V\203-	\203\306\n!\202\307\n!\203-\310S\211!\204\311 \210\202\304U\204A\312\313\314\n\203>\315\202?\316#\210\204K\317 \210\320 \210*\207" [n backward unread dont-display 0 abs gnus-summary-find-prev gnus-summary-find-next zerop gnus-summary-show-thread gnus-message 7 "No more%s articles" " unread" "" gnus-summary-recenter gnus-summary-position-point] 4 (#$ . 246545) "p"])
#@38 Go to next N'th unread summary line.
(defalias 'gnus-summary-next-unread-subject #[(n) "\301\302\"\207" [n gnus-summary-next-subject t] 3 (#$ . 247256) "p"])
#@108 Go to previous N'th summary line.
If optional argument UNREAD is non-nil, only unread article is selected.
(defalias 'gnus-summary-prev-subject #[(n &optional unread) "\302[	\"\207" [n unread gnus-summary-next-subject] 3 (#$ . 247422) "p"])
#@42 Go to previous N'th unread summary line.
(defalias 'gnus-summary-prev-unread-subject #[(n) "\301[\302\"\207" [n gnus-summary-next-subject t] 3 (#$ . 247670) "p"])
#@63 Insert the subject header for ARTICLES in the current buffer.
(defalias 'gnus-summary-goto-subjects #[(articles) "\212\304\211\203\n@\305	\306\"\210\nA\211\204	+\307\310\"!\210\311 \207" [articles article --dolist-tail-- gnus-newsgroup-limit nil gnus-summary-goto-subject t gnus-summary-limit append gnus-summary-position-point] 5 (#$ . 247840)])
#@98 Go to the subject line of ARTICLE.
If FORCE, also allow jumping to articles not currently shown.
(defalias 'gnus-summary-goto-subject #[(article &optional force silent) "\247\204\n\306\307\"\210`	\236\n\204/\f\203/\310\f\247\204%\311\f!\205&\f\312#\203/	\236b\210\n\204D
\204@\313\314\315#\210\316\202V\317\n8\211b\210\320!\210)\321 \210*\207" [article gnus-newsgroup-data data b force silent error "Article %s is not a number" gnus-summary-insert-subject vectorp t gnus-message 3 "Can't find article %d" nil 2 gnus-summary-set-article-display-arrow gnus-summary-position-point pt] 5 (#$ . 248203) "nArticle number: "])
#@119 Make the summary buffer take up the entire Emacs frame.
Given a prefix, will force an `article' buffer configuration.
(defalias 'gnus-summary-expand-window #[(&optional arg) "\203	\301\302\303\"\207\301\304\303\"\207" [arg gnus-configure-windows article force summary] 3 (#$ . 248854) "P"])
#@36 Display ARTICLE in article buffer.
(defalias 'gnus-summary-display-article #[(article &optional all-header) "\211\205\306\307	!!)\203rq\210\n)\310=\204\311 \210\312 \210rq\210
\313 \210)\205|\203A\"\202G\314\"\315\316!\210\203\\\317!\204\\\320!\210\321 \210\203s\203s\322!\210\323!\210\324\236A!\210\207" [gnus-article-buffer buffer major-mode gnus-newsgroup-charset gnus-article-charset gnus-newsgroup-ignored-charsets buffer-live-p get-buffer gnus-article-mode gnus-article-setup-buffer gnus-set-global-variables mm-enable-multibyte gnus-article-prepare gnus-run-hooks gnus-select-article-hook zerop gnus-summary-goto-subject gnus-summary-recenter gnus-possibly-generate-tree gnus-highlight-selected-tree gnus-article-set-window-start gnus-article-ignored-charsets article gnus-summary-display-article-function all-header gnus-current-article gnus-use-trees gnus-show-threads gnus-newsgroup-bookmarks] 5 (#$ . 249153)])
#@246 Select the current article.
If ALL-HEADERS is non-nil, show all header fields.  If FORCE is
non-nil, the article will be re-fetched even if it already present in
the article buffer.  If PSEUDO is non-nil, pseudo-articles will also
be displayed.
(defalias 'gnus-summary-select-article #[(&optional all-headers force pseudo article) "\306=\204		q\210\n\206$\307`\310\"\211\203\311!\210)\307`\312\"\206$\313 \f??\314\204:\315\n!\203:\316\317!\210r	q\210\203l\203\211\203\211\320!\203\211\nA=\203\211@\232\203\211\320!\203\211\204\204\203\211\320!\203\211\n=\203\211\203\272\321\n\f\"\210\211\205\234\322\320!!)\203\256rq\210\204\255\323 \210)\324\n \236A!\210\n\202\273\325,\207" [major-mode gnus-summary-buffer article to all-headers gnus-summary-display-article-function gnus-summary-mode get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject nil gnus-summary-article-pseudo-p error "This is a pseudo-article" get-buffer gnus-summary-display-article buffer-live-p mm-disable-multibyte gnus-article-set-window-start old pseudo gnus-single-article-buffer gnus-current-article gnus-article-current gnus-article-buffer gnus-newsgroup-name gnus-original-article-buffer force buffer gnus-article-decoded-p gnus-newsgroup-bookmarks] 4 (#$ . 250135)])
#@69 Display buttons for signed/encrypted parts and verify/decrypt them.
(defalias 'gnus-summary-force-verify-and-decrypt #[nil "\304\211\305\306\307\310D\"\311\312\313\",\207" [gnus-buttonized-mime-types gnus-article-emulate-mime mm-decrypt-option mm-verify-option known t append "multipart/signed" "multipart/encrypted" gnus-summary-select-article nil force] 6 (#$ . 251496) nil])
#@192 Select the next article.
If UNREAD, only unread articles are selected.
If SUBJECT, only articles with SUBJECT are selected.
If BACKWARD, the previous article is selected instead of the next.
(defalias 'gnus-summary-next-article #[(&optional unread subject backward push) "\306=\204		q\210\307\n\f#\203R\310\311`\312\"\211\203\313
!\210)\311`\314\"\206)\315 !\204O\311`\312\"\211\203:\313
!\210)\311`\314\"\206D\315 -\236A@.=\203R\316 \207\203h/\203h\317 \203h\316 \210\320\321\322\"\2070\203\212\n\204\212\204\212\323\f\203\2001S\202\2032T\324\325e`\"#\207\3263!\204\226\3273!\2104r5q\210`)p6\330=\203\256\3313!\202\263\332\f6\"789:;\203\305:\204\325\320\333\334\n\203\320\335\202\321\336#\202D
;\337=\204\364;\340=\203\350<\204\364;\341=\203$
\342 \203$
\3263!\203
\343 \202D
\320\333\344\n\203
\335\202\f
\3367\203
\3457P\202
\346$\210\347\3247\f#\202D
\350=!\205D
8p=\203:
\351\3528\353\"!\210\3543:\n\f9%,\207" [major-mode gnus-summary-buffer unread subject backward to gnus-summary-mode gnus-summary-search-forward gnus-summary-display-article get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-position-point gnus-summary-first-unread-article gnus-message 6 "Wrapped" gnus-summary-goto-article nil count-lines gnus-ephemeral-group-p gnus-summary-jump-to-group best gnus-summary-best-group gnus-summary-search-group 7 "No more%s articles" " unread" "" quietly slightly-quietly almost-quietly gnus-summary-last-article-p gnus-summary-exit "No more%s articles (%s)..." "selecting " "exiting" gnus-summary-next-group gnus-key-press-event-p select-window get-buffer-window 0 gnus-summary-walk-group-buffer gnus-newsgroup-data gnus-canceled-mark gnus-auto-select-same gnus-auto-extend-newsgroup gnus-newsgroup-begin gnus-newsgroup-end gnus-newsgroup-name last-command-event gnus-group-buffer gnus-keep-same-level group current-summary point cmd gnus-auto-select-next push last-input-event] 7 (#$ . 251886) "P"])
(defalias 'gnus-summary-walk-group-buffer #[(from-group cmd unread backward start) "\306\307\310\211\211\211\211rq\210b\210 \311=\203&\312!!\202,\313\" \")	?\205\323\314\315#\203>\316\202?\317\n\203^\320!!\204^\314\321\322$!\323\n!\324\n%\"J@$\202i\314\325\322$!\323!!##\326!\211@\307\236\203\247p&\327!\210\n\203\213\330\n!\210\331\236\211'A@)!\210\332 \327&!\210)\310\211\202/$\232\203\311\n\203\271\320!!\203\277\333 \210\202.\334\310\n\"#\210\202.\fA(B(\202..\207" [prompt ended group key keve cursor-in-echo-area ((14 (gnus-group-next-unread-group 1)) (16 (gnus-group-prev-unread-group 1))) t nil best gnus-summary-best-group gnus-summary-search-group format "No more%s articles%s " " unread" "" gnus-ephemeral-group-p " (Type %s for %s [%s])" single-key-description gnus-group-decoded-name intern-soft " (Type %s to exit %s)" gnus-read-event-char switch-to-buffer gnus-group-jump-to-group eval gnus-group-group-name gnus-summary-exit gnus-summary-next-group keystrokes gnus-group-buffer start gnus-keep-same-level gnus-newsgroup-name backward unread cmd gnus-newsrc-hashtb obuf x unread-command-events] 11])
#@42 Select unread article after current one.
(defalias 'gnus-summary-next-unread-article #[nil "\305\306=?\206!\307\310`\311\"\211\203\312	!\210)\310`\313\"\206 \314 !\n\205O\315\310`\311\"\211\2033\312	!\210)\310`\313\"\206=\314 \2368\211\205N\316\f!\205N\f\317H)\"\207" [gnus-summary-goto-unread to gnus-auto-select-same gnus-newsgroup-data headers gnus-summary-next-article never gnus-summary-last-article-p get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 vectorp 1] 7 (#$ . 255113) nil])
#@101 Select the article before the current one.
If UNREAD is non-nil, only unread articles are selected.
(defalias 'gnus-summary-prev-article #[(&optional unread subject) "\302	\303#\207" [unread subject gnus-summary-next-article t] 4 (#$ . 255674) "P"])
#@43 Select unread article before current one.
(defalias 'gnus-summary-prev-unread-article #[nil "\305\306=?\206!\307\310`\311\"\211\203\312	!\210)\310`\313\"\206 \314 !\n\205O\315\310`\311\"\211\2033\312	!\210)\310`\313\"\206=\314 \2368\211\205N\316\f!\205N\f\317H)\"\207" [gnus-summary-goto-unread to gnus-auto-select-same gnus-newsgroup-data headers gnus-summary-prev-article never gnus-summary-first-article-p get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 vectorp 1] 7 (#$ . 255931) nil])
#@413 Show next page of the selected article.
If at the end of the current article, select the next article.
LINES says how many lines should be scrolled up.

If CIRCULAR is non-nil, go to the start of the article instead of
selecting the next article when reaching the end of the current
article.

If STOP is non-nil, just stop when reaching the end of the message.

Also see the variable `gnus-article-skip-boring'.
(defalias 'gnus-summary-next-page #[(&optional lines circular stop) "p\306 \210\307`\310\"\211\203\311	!\210)\307`\312\"\206\313 \314\n\315\"\316\211\204,\317\320!\210\321\305!\210
&\236A'=\203T(\322=\203N\323
!\204N\324 \210\202\366\325 \210\202\366)\203o*\203o
*AU\203o*@+\232\204v\326
!\210\202\366\f\203\366\327 ,\n-\330-\331\".\332\216.\203\235\333.!\210\334.!q\210\202\242\335-!\210\336/!\206\253\337 ,\203\3660\204\2731\203\303\340\341\342\"\210\202\3662\203\316\343 \210\202\366/\203\333\340\341\342\"\210\202\366/\204\366(\322=\203\363\323
!\204\363\324 \210\202\366\325 \210\344 \210\345 +\207" [gnus-summary-buffer to gnus-article-buffer endp article-window article gnus-set-global-variables get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject get-buffer-window t nil error "No article to select" gnus-configure-windows never gnus-summary-last-article-p gnus-summary-next-article gnus-summary-next-unread-article gnus-summary-display-article selected-window gnus-get-buffer-window visible ((select-window #1=#:GnusStartBufferWindow)) select-window window-buffer pop-to-buffer gnus-article-next-page gnus-article-only-boring-p gnus-message 3 "End of message" gnus-summary-beginning-of-article gnus-summary-recenter gnus-summary-position-point gnus-newsgroup-reads gnus-canceled-mark gnus-summary-goto-unread gnus-current-article gnus-article-current gnus-newsgroup-name #1# #2=#:buf #3=#:w lines stop gnus-summary-stop-at-end-of-message circular] 5 (#$ . 256494) "P"])
#@182 Show previous page of selected article.
Argument LINES specifies lines to be scrolled down.
If MOVE, move to the previous unread article if point is at
the beginning of the buffer.
(defalias 'gnus-summary-prev-page #[(&optional lines move) "\306`\307\"\211\203
\310!\210)\306`\311\"\206\312 \313	\314\"\315\316\304!\210
\203=!\203=\f!AU\203=!@\"\232\204D\317\f!\210\202\252\320 \210\203\252\321 #	$\322$\323\"%\324\216%\203n\325%!\210\326%!q\210\202s\327$!\210\330&!,'\203\252\n\203\252&\203\217\331\332\333\"\210\202\252&\204\252(\334=\203\247\335\f!\204\247\336 \210\202\252\337 \210+\340 \207" [to gnus-article-buffer endp article-window article gnus-current-article get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject get-buffer-window t nil gnus-configure-windows gnus-summary-display-article gnus-summary-recenter selected-window gnus-get-buffer-window visible ((select-window #1=#:GnusStartBufferWindow)) select-window window-buffer pop-to-buffer gnus-article-prev-page gnus-message 3 "Beginning of message" never gnus-summary-first-article-p gnus-summary-prev-article gnus-summary-prev-unread-article gnus-summary-position-point gnus-article-current gnus-newsgroup-name #1# #2=#:buf #3=#:w lines move gnus-summary-goto-unread] 5 (#$ . 258499) "P"])
#@153 Show previous page of selected article.
Argument LINES specifies lines to be scrolled down.
If at the beginning of the article, go to the next article.
(defalias 'gnus-summary-prev-page-or-article #[(&optional lines) "\301\302\"\207" [lines gnus-summary-prev-page t] 3 (#$ . 259852) "P"])
#@195 Scroll up (or down) one line current article.
Argument LINES specifies lines to be scrolled up (or down if negative).
If no article is selected, then the current article will be selected first.
(defalias 'gnus-summary-scroll-up #[(lines) "\305\306!\210\307 \210\310\311\211\312#\313=\203Q\314 	\315\n\316\"\317\216\203-\320!\210\321!q\210\2021\322\n!\210\f\323V\203E\324\f!\203P\325\326\327\"\210\202P\f\323W\203P\330\f[!\210,\331 \210\332 \207" [#1=#:GnusStartBufferWindow gnus-article-buffer #2=#:buf #3=#:w lines gnus-configure-windows article gnus-summary-show-thread gnus-summary-select-article nil pseudo old selected-window gnus-get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer 0 gnus-article-next-page gnus-message 3 "End of message" gnus-article-prev-page gnus-summary-recenter gnus-summary-position-point] 4 (#$ . 260149) "p"])
#@195 Scroll down (or up) one line current article.
Argument LINES specifies lines to be scrolled down (or up if negative).
If no article is selected, then the current article will be selected first.
(defalias 'gnus-summary-scroll-down #[(lines) "\301[!\207" [lines gnus-summary-scroll-up] 2 (#$ . 261048) "p"])
#@64 Select next article which has the same subject as current one.
(defalias 'gnus-summary-next-same-subject #[nil "\303\304\305\306`\307\"\211\203\310!\210)\306`\311\"\206\312 	\2368\211\205+\313\n!\205+\n\314H)\"\207" [to gnus-newsgroup-data headers gnus-summary-next-article nil 3 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject vectorp 1] 7 (#$ . 261361) nil])
#@68 Select previous article which has the same subject as current one.
(defalias 'gnus-summary-prev-same-subject #[nil "\303\304\305\306`\307\"\211\203\310!\210)\306`\311\"\206\312 	\2368\211\205+\313\n!\205+\n\314H)\"\207" [to gnus-newsgroup-data headers gnus-summary-prev-article nil 3 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject vectorp 1] 7 (#$ . 261787) nil])
#@71 Select next unread article which has the same subject as current one.
(defalias 'gnus-summary-next-unread-same-subject #[nil "\303\304\305\306`\307\"\211\203\310!\210)\306`\311\"\206\312 	\2368\211\205+\313\n!\205+\n\314H)\"\207" [to gnus-newsgroup-data headers gnus-summary-next-article t 3 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject vectorp 1] 7 (#$ . 262217) nil])
#@75 Select previous unread article which has the same subject as current one.
(defalias 'gnus-summary-prev-unread-same-subject #[nil "\303\304\305\306`\307\"\211\203\310!\210)\306`\311\"\206\312 	\2368\211\205+\313\n!\205+\n\314H)\"\207" [to gnus-newsgroup-data headers gnus-summary-prev-article t 3 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject vectorp 1] 7 (#$ . 262655) nil])
#@78 Select the first unread article.
Return nil if there are no unread articles.
(defalias 'gnus-summary-first-unread-article #[nil "\301\302!\205&\303 \210\301\302!\210\304\305`\306\"\211\203\307!\210)\305`\310\"\206%\311 !\312 \210\207" [to gnus-summary-first-subject t gnus-summary-show-thread gnus-summary-display-article get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-position-point] 5 (#$ . 263097) nil])
#@110 Place the point on the subject line of the first unread article.
Return nil if there are no unread articles.
(defalias 'gnus-summary-first-unread-subject #[nil "\300\301!\205\f\302 \210\300\301!\303 \210\207" [gnus-summary-first-subject t gnus-summary-show-thread gnus-summary-position-point] 2 (#$ . 263581) nil])
#@110 Place the point on the subject line of the first unseen article.
Return nil if there are no unseen articles.
(defalias 'gnus-summary-first-unseen-subject #[nil "\300\301\211\302#\205\303 \210\300\301\211\302#\304 \210\207" [gnus-summary-first-subject nil t gnus-summary-show-thread gnus-summary-position-point] 4 (#$ . 263904) nil])
#@157 Place the point on the subject line of the first unseen and unread article.
If all article have been seen, on the subject line of the first unread
article.
(defalias 'gnus-summary-first-unseen-or-unread-subject #[nil "\300\301\211\302#\205\303 \210\300\301\211\302#?\205 \300\302!\205 \303 \210\300\302!\304 \210\207" [gnus-summary-first-subject nil t gnus-summary-show-thread gnus-summary-position-point] 4 (#$ . 264246) nil])
#@64 Select the first article.
Return nil if there are no articles.
(defalias 'gnus-summary-first-article #[nil "\301 \205$\302 \210\301 \210\303\304`\305\"\211\203\306!\210)\304`\307\"\206#\310 !\311 \210\207" [to gnus-summary-first-subject gnus-summary-show-thread gnus-summary-display-article get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-position-point] 5 (#$ . 264684) nil])
#@158 Select the unread article with the highest score.
If given a prefix argument, select the next unread article that has a
score higher than the default score.
(defalias 'gnus-summary-best-unread-article #[(&optional arg) "\203	\302 \202\303 \211\203\304	!\202\305\306!)\207" [arg article gnus-summary-better-unread-subject gnus-summary-best-unread-subject gnus-summary-goto-article error "No unread articles"] 3 (#$ . 265137) "P"])
#@51 Select the unread subject with the highest score.
(defalias 'gnus-summary-best-unread-subject #[nil "\306\307\211\2039@A@
U\2032@@\236A\206%\f\206%\310\211\fV\2032	@@A\211\204\f\n\203A\311\n!\210\312 \210\n,\207" [gnus-newsgroup-data score article data best gnus-unread-mark -1000000 nil 0 gnus-summary-goto-subject gnus-summary-position-point gnus-newsgroup-scored gnus-summary-default-score] 5 (#$ . 265582) nil])
#@74 Select the first unread subject that has a score over the default score.
(defalias 'gnus-summary-better-unread-subject #[nil "\306\211\211@@\211\2031@A@\fU\203*\n
\236A\206$\n\206$\307\nV\2041A\211\202\n\2039\310\n!\210\311 \210\n+\207" [gnus-newsgroup-data score article data gnus-unread-mark gnus-newsgroup-scored nil 0 gnus-summary-goto-subject gnus-summary-position-point gnus-summary-default-score] 4 (#$ . 266028) nil])
#@53 Go to the last displayed subject line in the group.
(defalias 'gnus-summary-last-subject #[nil "\206	\303	!\211@@\211\205\304\n!)\207" [gnus-newsgroup-data-reverse gnus-newsgroup-data article reverse gnus-summary-goto-subject] 3 (#$ . 266478)])
#@259 Fetch ARTICLE (article number or Message-ID) and display it if it exists.
If ALL-HEADERS is non-nil, no header lines are hidden.
If FORCE, go to the article even if it isn't displayed.  If FORCE
is a number, it is the line the article is to be displayed on.
(defalias 'gnus-summary-goto-article #[(article &optional all-headers force) ";\203\303\304\"\203\305!\2020;\203\306!\307	\"\203)\310\n\"\2020\311\312\313#\210\314\315 \210\207" [article force all-headers string-match "@\\|%40" gnus-summary-refer-article string-to-number gnus-summary-goto-subject gnus-summary-display-article gnus-message 4 "Couldn't go to article %s" nil gnus-summary-position-point] 4 (#$ . 266736) (list (gnus-completing-read "Article number or Message-ID" (mapcar 'int-to-string gnus-newsgroup-limit)) current-prefix-arg t)])
#@36 Go to the previously read article.
(defalias 'gnus-summary-goto-last-article #[nil "\205	\301\302\303#\304 \210\207" [gnus-last-article gnus-summary-goto-article nil t gnus-summary-position-point] 4 (#$ . 267566) nil])
#@93 Pop one article off the history and go to the previous.
NUMBER articles will be popped off.
(defalias 'gnus-summary-pop-article #[(number) "\303	\n\233\211A\203\304@\303\305#\210\202\306\307!\210)\310 \207" [to number gnus-newsgroup-history nil gnus-summary-goto-article t error "Article history empty" gnus-summary-position-point] 4 (#$ . 267794) "p"])
#@114 Limit the summary buffer to the next N articles.
If not given a prefix, use the process marked articles instead.
(defalias 'gnus-summary-limit-to-articles #[(n) "\303!\304\305	!)\306 \210\207" [n articles gnus-newsgroup-processable gnus-summary-work-articles nil gnus-summary-limit gnus-summary-position-point] 2 (#$ . 268164) "P"])
#@67 Restore the previous limit.
If given a prefix, remove all limits.
(defalias 'gnus-summary-pop-limit #[(&optional total) "\203\n\303\304	\"C\n\204\305\306!\210\307\310\311\"\312 \210\207" [total gnus-newsgroup-headers gnus-newsgroup-limits mapcar #[(h) "\301H\207" [h 0] 2] error "No limit to pop" gnus-summary-limit nil pop gnus-summary-position-point] 3 (#$ . 268506) "P"])
#@154 Limit the summary buffer to articles that have subjects that match a regexp.
If NOT-MATCHING, excluding articles that have subjects that match a regexp.
(defalias 'gnus-summary-limit-to-subject #[(subject &optional header not-matching) "\204\304	\305\232?\205+\306\206\304	\307\310\211\n&\211\204$\311\312	\"\210\313!)\314 \210\207" [header subject not-matching articles "subject" "" gnus-summary-find-matching all nil error "Found no matches for \"%s\"" gnus-summary-limit gnus-summary-position-point] 8 (#$ . 268894) (list (read-string (if current-prefix-arg "Exclude subject (regexp): " "Limit to subject (regexp): ")) nil current-prefix-arg)])
#@152 Limit the summary buffer to articles that have authors that match a regexp.
If NOT-MATCHING, excluding articles that have authors that match a regexp.
(defalias 'gnus-summary-limit-to-author #[(from &optional not-matching) "\302\303	#\207" [from not-matching gnus-summary-limit-to-subject "from"] 4 (#$ . 269561) (list (let* ((header (nth 3 (assq (progn (let ((to (get-text-property (point) 'gnus-intangible))) (and to (gnus-summary-goto-subject to))) (or (get-text-property (point) 'gnus-number) (gnus-summary-last-subject))) gnus-newsgroup-data))) (default (and header (car (mail-header-parse-address (aref header 2)))))) (read-string (concat (if current-prefix-arg "Exclude author (regexp" "Limit to author (regexp") (if default (concat ", default \"" default "\"): ") "): ")) nil nil default)) current-prefix-arg)])
#@186 Limit the summary buffer to articles with the given RECIPIENT.

If NOT-MATCHING, exclude RECIPIENT.

To and Cc headers are checked.  You need to include them in
`nnmail-extra-headers'.
(defalias 'gnus-summary-limit-to-recipient #[(recipient &optional not-matching) "\306\232?\205d\307	>\203\310\311\307B\312\313\211\n&\202%\314\315\316\"\210\317\315!\210\313\320	>\203:\310\311\320B\312\313\211\n&\202D\314\315\321\"\210\317\315!\210\313\n\203P\322\323\f\"\202S\f\244\211\204]\324\325\"\210\326
!+\327 \210\207" [recipient nnmail-extra-headers not-matching to cc articles "" To gnus-summary-find-matching extra all nil gnus-message 1 "`To' isn't present in `nnmail-extra-headers'" sit-for Cc "`Cc' isn't present in `nnmail-extra-headers'" mapcar #[(a) "	>\205\207" [a to] 2] error "Found no matches for \"%s\"" gnus-summary-limit gnus-summary-position-point] 8 (#$ . 270389) (list (read-string (format "%s recipient (regexp): " (if current-prefix-arg "Exclude" "Limit to"))) current-prefix-arg)])
#@197 Limit the summary buffer to articles with the given ADDRESS.

If NOT-MATCHING, exclude ADDRESS.

To, Cc and From headers are checked.  You need to include `To' and `Cc'
in `nnmail-extra-headers'.
(defalias 'gnus-summary-limit-to-address #[(address &optional not-matching) "\306\232?\205\247\307	>\203\310\311\307B\312\313\211\n&\202%\314\315\316\"\210\317\315!\210\320\321	>\203:\310\311\321B\312\313\211\n&\202D\314\315\322\"\210\317\315!\210\320\310\323\312\313\211\n&\n\203\201\f\320=\203j\320=\203c
\202\224\324\325\"\202\224\320=\203w\324\326\f\"\202\224\324\327\324\330\f\"\"\202\224\320=?\205\211\f\320=?\205\221\f\244
\244\211\204\237\331\332\"\210\333!,\334 \210\207" [address nnmail-extra-headers not-matching to cc from "" To gnus-summary-find-matching extra all nil gnus-message 1 "`To' isn't present in `nnmail-extra-headers'" sit-for t Cc "`Cc' isn't present in `nnmail-extra-headers'" "from" mapcar #[(a) "	>@\207" [a from] 2] #[(a) "	>@\207" [a from] 2] #[(a) "	>@\207" [a from] 2] #[(a) "	>@\207" [a to] 2] error "Found no matches for \"%s\"" gnus-summary-limit gnus-summary-position-point articles] 8 (#$ . 271416) (list (read-string (format "%s address (regexp): " (if current-prefix-arg "Exclude" "Limit to"))) current-prefix-arg)])
(defalias 'gnus-summary-limit-strange-charsets-predicate #[(header) "\306\307!\205;\310H\311HP\312\211\211GS\313\f
W\2038\314\315\307\fTH!\"\316\317\n\"\2031\320\fT\211\202*	+\207" [header found charset string i --dotimes-limit-- fboundp char-charset 1 2 nil 0 format "%s" string-match "unicode\\|big\\|japanese" t] 6])
#@121 Limit to articles where PREDICATE returns non-nil.
PREDICATE will be called with the header structures of the
articles.
(defalias 'gnus-summary-limit-to-predicate #[(predicate) "\306\307\n\306\211\203\"\f@
!\203\310H	B\fA\211\204\f*\311	\237!*\207" [case-fold-search articles gnus-newsgroup-headers header --dolist-tail-- predicate nil t 0 gnus-summary-limit] 3 (#$ . 273053)])
#@186 Limit the summary buffer to articles that are older than (or equal) AGE days.
If YOUNGER-P (the prefix) is non-nil, limit the summary buffer to
articles that are younger than AGE days.
(defalias 'gnus-summary-limit-to-age #[(age &optional younger-p) "\306	!\307\211\211\211\211A@\211\203q\310\311\f8!\203\311\f8\311H\211\203\312\313\211\314\232\203<\315\202U\316\317\320\f#\206U\321\f!\322\317\323\320\f%\210))!\"\203d\n\202f\n?\203\f@
B\202\324
\237!.\325 \210\207" [gnus-newsgroup-data age is-younger date d articles days-to-time nil vectorp 3 time-less-p time-since "" (0 0) get-text-property 0 gnus-time safe-date-to-time put-text-property 1 gnus-summary-limit gnus-summary-position-point cutoff data time younger-p] 9 (#$ . 273451) (let ((younger current-prefix-arg) (days-got nil) days) (while (not days-got) (setq days (if younger (read-string "Limit to articles younger than (in days, older when negative): ") (read-string "Limit to articles older than (in days, younger when negative): "))) (if (> (length days) 0) (progn (setq days (read days)))) (if (numberp days) (progn (setq days-got t) (if (< days 0) (progn (setq younger (not younger)) (setq days (* days -1))))) (message "Please enter a number.") (sleep-for 1))) (list days younger))])
#@68 Limit the summary buffer to articles that match an 'extra' header.
(defalias 'gnus-summary-limit-to-extra #[(header regexp &optional not-matching) "\304\232?\205#\305\306	B\307\310\211\n&\211\204\311\312\"\210\313!)\314 \210\207" [regexp header not-matching articles "" gnus-summary-find-matching extra all nil error "Found no matches for \"%s\"" gnus-summary-limit gnus-summary-position-point] 8 (#$ . 274754) (let ((header (intern (gnus-completing-read (if current-prefix-arg "Exclude extra header" "Limit extra header") (mapcar 'symbol-name gnus-extra-headers) t nil nil (symbol-name (car gnus-extra-headers)))))) (list header (read-string (format "%s header %s (regexp): " (if current-prefix-arg "Exclude" "Limit to") header)) current-prefix-arg))])
#@78 Limit the summary buffer to the predicated in the `display' group parameter.
(defalias 'gnus-summary-limit-to-display-predicate #[nil "\204\305\306!\210\307\n\307\211\203%\f@ \203	B\fA\211\204*\310	!\210)\311 \207" [gnus-newsgroup-display articles gnus-newsgroup-articles gnus-number --dolist-tail-- error "There is no `display' group parameter" nil gnus-summary-limit gnus-summary-position-point] 3 (#$ . 275523) nil])
#@121 Limit the summary buffer to articles that are not marked as read.
If ALL is non-nil, limit strictly to unread articles.
(defalias 'gnus-summary-limit-to-unread #[(&optional all) "\203\n\306\307	!!\207\306\n\f
	\n\f
\257\f\310\"\207" [all gnus-unread-mark gnus-del-mark gnus-read-mark gnus-ancient-mark gnus-killed-mark gnus-summary-limit-to-marks char-to-string reverse gnus-spam-mark gnus-kill-file-mark gnus-low-score-mark gnus-expirable-mark gnus-canceled-mark gnus-catchup-mark gnus-sparse-mark gnus-duplicate-mark] 13 (#$ . 275966) "P"])
#@135 Limit the summary buffer to articles that have headers that match MATCH.
If REVERSE (the prefix), limit to articles that don't match.
(defalias 'gnus-summary-limit-to-headers #[(match &optional reverse) "\302	\303#\207" [match reverse gnus-summary-limit-to-bodies t] 4 (#$ . 276531) "sMatch headers (regexp): \nP"])
#@134 Limit the summary buffer to articles that have bodies that match MATCH.
If REVERSE (the prefix), limit to articles that don't match.
(defalias 'gnus-summary-limit-to-bodies #[(match &optional reverse headersp) "\306\211\211\211\211\211\211\211\211\211\306\211\203{@\306\307\310\211\306@$\210)rq\210\311 \210\310\203N\312\306\310#\202T\313\306\310#\211\203_\203i\204q\203q@B+A\211\204#*\204\210\314\315!\210\202\215\316!\210.\n\317 \207" [gnus-display-mime-function gnus-auto-center-summary gnus-updated-mode-lines gnus-summary-display-arrow gnus-break-pages gnus-keep-backlog nil gnus-summary-select-article t article-goto-body re-search-backward re-search-forward message "No messages matched" gnus-summary-limit gnus-summary-position-point gnus-use-article-prefetch gnus-article-prepare-hook gnus-select-article-hook articles gnus-newsgroup-data data --dolist-tail-- gnus-mark-article-hook gnus-article-buffer case-fold-search headersp match found reverse] 11 (#$ . 276855) "sMatch body (regexp): \nP"])
#@135 Limit the summary buffer to articles that aren't part on any thread.
If THREADSP (the prefix), limit to articles that are in threads.
(defalias 'gnus-summary-limit-to-singletons #[(&optional threadsp) "\306\211\211\306\211\203=
@\211@;\2032\fA\306\211\203.
@\211B
A\211\204 *\2026\fB
A\211\204*\306\211\203p
@\307\f!
\203Y	G\310V\204e
\204i	G\310U\203i	\n\244
A\211\204F*\n\204|\311\312!\210\202\200\313\n!\210\314 +\207" [threads thread-articles articles gnus-newsgroup-threads thread --dolist-tail-- nil gnus-articles-in-thread 1 message "No messages matched" gnus-summary-limit gnus-summary-position-point threadsp] 4 (#$ . 277938) "P"])
#@103 Limit the summary buffer to replied articles.
If UNREPLIED (the prefix), limit to unreplied articles.
(defalias 'gnus-summary-limit-to-replied #[(&optional unreplied) "\203\303\304	\n\"!\210\202\303\n!\210\305 \207" [unreplied gnus-newsgroup-articles gnus-newsgroup-replied gnus-summary-limit gnus-set-difference gnus-summary-position-point] 4 (#$ . 278626) "P"])
#@234 Exclude articles that are marked with MARKS (e.g. "DK").
If REVERSE, limit the summary buffer to articles that are marked
with MARKS.  MARKS can either be a string of marks or a list of marks.
Returns how many articles were removed.
(defalias 'gnus-summary-limit-exclude-marks #[(marks &optional reverse) "\301\302\"\207" [marks gnus-summary-limit-to-marks t] 3 (#$ . 279002) "sMarks: "])
#@271 Limit the summary buffer to articles that are marked with MARKS (e.g. "DK").
If REVERSE (the prefix), limit the summary buffer to articles that are
not marked with MARKS.  MARKS can either be a string of marks or a
list of marks.
Returns how many articles were removed.
(defalias 'gnus-summary-limit-to-marks #[(marks &optional reverse) "	<\203\n	\202\305	\306\"\306\211\203:\f\203$@A@	>?\202*@A@	>\2033@@\nBA\211\204\307\n!+\310 \210\207" [gnus-newsgroup-data marks articles data reverse append nil gnus-summary-limit gnus-summary-position-point] 5 (#$ . 279399) "sMarks: \nP"])
#@49 Limit to articles with score at or above SCORE.
(defalias 'gnus-summary-limit-to-score #[(score) "\306\211\203(\n@@\236A\206\f\206\307
Y\203!\n@@	B\nA\211\204\310	!\311 \210*\207" [gnus-newsgroup-data articles data gnus-newsgroup-scored gnus-summary-default-score score nil 0 gnus-summary-limit gnus-summary-position-point] 3 (#$ . 280004) "NLimit to articles with score of at least: "])
#@27 Limit to unseen articles.
(defalias 'gnus-summary-limit-to-unseen #[nil "\301!\302 \210\207" [gnus-newsgroup-unseen gnus-summary-limit gnus-summary-position-point] 2 (#$ . 280412) nil])
#@142 Display all the hidden articles that is in the thread with ID in it.
When called interactively, ID is the Message-ID of the current
article.
(defalias 'gnus-summary-limit-include-thread #[(id) "\306\307\310!!!\311\211\312\f\244!\313\314\315\316!\317H\320
\"\203*
\321\225\311O\202+
)!\"\210\322 \210+\207" [id gnus-build-sparse-threads gnus-fetch-old-headers articles gnus-newsgroup-limit subject gnus-articles-in-thread gnus-id-to-thread gnus-root-id nil gnus-summary-limit gnus-summary-limit-include-matching-articles "subject" regexp-quote gnus-id-to-header 1 string-match 0 gnus-summary-position-point message-subject-re-regexp] 7 (#$ . 280606) (list (aref (nth 3 (assq (progn (let ((to (get-text-property (point) 'gnus-intangible))) (and to (gnus-summary-goto-subject to))) (or (get-text-property (point) 'gnus-number) (gnus-summary-last-subject))) gnus-newsgroup-data)) 4))])
#@70 Display all the hidden articles that have HEADERs that match REGEXP.
(defalias 'gnus-summary-limit-include-matching-articles #[(header regexp) "\304	\"\305\n\244!\306 \210)\207" [header regexp articles gnus-newsgroup-limit gnus-find-matching-articles gnus-summary-limit gnus-summary-position-point] 3 (#$ . 281505) (list (read-string "Match on header: ") (read-string "Regexp: "))])
#@73 Insert all the dormant articles for this group into the current buffer.
(defalias 'gnus-summary-insert-dormant-articles #[nil "\302]	\204\303\304\305\"\202\306	!)\207" [gnus-verbose gnus-newsgroup-dormant 6 gnus-message 3 "No dormant articles for this group" gnus-summary-goto-subjects] 3 (#$ . 281897) nil])
#@64 Insert ticked articles for this group into the current buffer.
(defalias 'gnus-summary-insert-ticked-articles #[nil "\302]	\204\303\304\305\"\202\306	!)\207" [gnus-verbose gnus-newsgroup-marked 6 gnus-message 3 "No ticked articles for this group" gnus-summary-goto-subjects] 3 (#$ . 282218) nil])
#@157 Display all the hidden articles that are marked as dormant.
Note that this command only works on a subset of the articles currently
fetched for this group.
(defalias 'gnus-summary-limit-include-dormant #[nil "\204\302\303!\210\304\305	\"!\306 \210\207" [gnus-newsgroup-dormant gnus-newsgroup-limit error "There are no dormant articles in this group" gnus-summary-limit append gnus-summary-position-point] 4 (#$ . 282528) nil])
#@68 Fetch the headers for ARTICLES and then display the summary lines.
(defalias 'gnus-summary-include-articles #[(articles) "\306\307\306\310\311\312\f\307\306#\313$\314
\f\"\315\316\f\"!+\207" [gnus-read-all-available-headers gnus-agent gnus-inhibit-demon gnus-newsgroup-headers articles gnus-newsgroup-articles t nil gnus-merge list gnus-fetch-headers gnus-article-sort-by-number gnus-sorted-nunion gnus-summary-limit append gnus-newsgroup-limit] 7 (#$ . 282965)])
#@28 Hide all dormant articles.
(defalias 'gnus-summary-limit-exclude-dormant #[nil "\301C\302\"\303 \210\207" [gnus-dormant-mark gnus-summary-limit-to-marks reverse gnus-summary-position-point] 3 (#$ . 283443) nil])
#@50 Hide all dormant articles that have no children.
(defalias 'gnus-summary-limit-exclude-childless-dormant #[nil "\206	\306	!\211\307\211\211
\211A@\211\203VA@\fU\203N\310@!\211\203\307
\n\203H\n@\f>\203?\307\311
\n\211A@\210\202/
)\203@\fB\202\312\f!\313 \210,\207" [gnus-newsgroup-data-reverse gnus-newsgroup-data children d articles data reverse nil gnus-article-children t gnus-summary-limit gnus-summary-position-point gnus-dormant-mark found] 4 (#$ . 283662) nil])
#@100 Mark all unread excluded articles as read.
If ALL, mark even excluded ticked and dormants as read.
(defalias 'gnus-summary-limit-mark-excluded-as-read #[(&optional all) "\306\307\"\310\306\311\312	\"\307\"\"\313\314\f\"
\203.\313\211\311\315\"\244\211\202R\211A@\211\205R\n>\204.\n>\204.\nBB\202.*\207" [gnus-newsgroup-limit gnus-newsgroup-headers article articles gnus-newsgroup-unreads all sort < gnus-sorted-ndifference mapcar #[(h) "\301H\207" [h 0] 2] nil gnus-sorted-intersection #[(n) "	B\207" [n gnus-catchup-mark] 2] gnus-newsgroup-dormant gnus-newsgroup-marked gnus-newsgroup-reads gnus-catchup-mark] 6 (#$ . 284169) "P"])
(defalias 'gnus-summary-limit #[(articles &optional pop) "\203
	@	A\202	B\n\fG\f\306`\307\"\211\203&\310!\210)\306`\311\"\2060\312 
\236
>)\313\211\314 \210\315 \210\203i\203i\310@@\313\316#\203`\313\316A\211\204O\204tdb\210\317 \210\320\321!\210\fGZ,\207" [pop gnus-newsgroup-limits articles gnus-newsgroup-limit gnus-newsgroup-data bdata get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject nil gnus-summary-prepare gnus-summary-maybe-hide-threads t gnus-summary-find-prev gnus-set-mode-line summary to found gnus-summary-mark-below data total] 5])
(defalias 'gnus-invisible-cut-children #[(threads) "\304	\203	\211@@)\304H>\203T	\211A@\210\202\305W)\207" [num threads x gnus-newsgroup-limit 0 2] 3])
(put 'gnus-invisible-cut-children 'byte-optimizer 'byte-compile-inline-expand)
#@77 Go forwards in the thread until we find an article that we want to display.
(defalias 'gnus-cut-thread #[(thread) "\306=\204\307=\204\247\204	\306=\204	\310=\203\270\n\203\270\n@\311H>\2043\n@\311H\f>\203\270\nAG\312X\204A\307=\203U\313\n@\311H
\"\n\211A@)\211\202\265\nA\311\203\200\211@@)\311H
>\203uT\211A@\210\202\\\314W*\203\270\nA\211\205\264\211@@)\311H
>\203\252@\315\211\202\215A\211\204\220\315)\204\n\207" [gnus-fetch-old-headers gnus-build-sparse-threads thread gnus-newsgroup-sparse gnus-newsgroup-ancient gnus-newsgroup-limit some invisible more 0 1 delq 2 nil x threads num th] 4 (#$ . 285732)])
(put 'gnus-cut-thread 'byte-optimizer 'byte-compile-inline-expand)
#@67 Cut off all uninteresting articles from the beginning of THREADS.
(defalias 'gnus-cut-threads #[(threads) "\306=\204\307=\204\247\204	\306=\204	\310=\203\345\n\211\203\344\211@\306=\204D\307=\204D\247\204D	\306=\204D	\310=\203\331\f\203\331\f@\311H
>\204[\f@\311H>\203\331\fAG\312X\204i\307=\203\313\f@\311H\"\f\211A@)\211\202\326\fA\311\n\203\246\n\211@@)\311H>\203\235T\n\211A@\210\202\205\314W*\203\331\fA\211\205\325\211@@)\311H>\203\315@\315\211\202\262A\211\204\265\315)\204D\f)\240\210A\211\204#)\313\315\n\"\207" [gnus-fetch-old-headers gnus-build-sparse-threads threads th thread gnus-newsgroup-sparse some invisible more 0 1 delq 2 nil gnus-newsgroup-ancient gnus-newsgroup-limit x num] 5 (#$ . 286485)])
#@173 Figure out what the initial limit is supposed to be on group entry.
This entails weeding out unwanted dormants, low-scored articles,
fetch-old-headers verbiage, and so on.
(defalias 'gnus-summary-initial-limit #[(&optional show-if-empty) "\2069	?\2059\n\306=\2059\307=?\2059\247?\2059\310=?\2059\f?\2059
\307=?\2059
\311=?\2059
??\205bB\312\313\314\"\210\204`\203`\211A@\207" [gnus-inhibit-limiting gnus-newsgroup-dormant gnus-newsgroup-display gnus-fetch-old-headers gnus-summary-expunge-below gnus-build-sparse-threads gnus-not-ignore some invisible more nil mapatoms #[(node) "J@?\2057JA\304\n\2056\203)\305\n@!W\203)\306\n\211A@!\210\202
\n\211A@\307	!\210\202
*\207" [node thread nodes gnus-thread-expunge-below nil gnus-thread-total-score gnus-expunge-thread gnus-summary-limit-children] 3] gnus-thread-expunge-below gnus-newsgroup-limit gnus-newsgroup-limits gnus-newsgroup-dependencies show-if-empty] 3 (#$ . 287285)])
#@59 Return 1 if this subthread is visible and 0 if it is not.
(defalias 'gnus-summary-limit-children #[(thread) "\205\324\306	]A\203\307\310\311\312A\"\"\202\313@\313H\314
>\204\314>\2034\315\n!\204\310\316=\204A\247\203N>\203N\315\n!\204\310\317=\203\\>\204\310\316=\203p>\203p\315\n!\204\310\203\271\236A\206\211W\203\271T\203\310\fW\203\310\320\"\203\255B\202\310B B \202\310!\203\314\"! )\204\314\313\202\323#B#\321,\207" [thread max-lisp-eval-depth children number score gnus-newsgroup-marked 5000 apply + mapcar gnus-summary-limit-children 0 nil zerop some invisible delq 1 gnus-newsgroup-dormant gnus-fetch-old-headers gnus-newsgroup-ancient gnus-build-sparse-threads gnus-newsgroup-sparse gnus-summary-expunge-below gnus-newsgroup-scored gnus-summary-default-score gnus-newsgroup-expunged-tally gnus-summary-mark-below gnus-newsgroup-unreads gnus-newsgroup-auto-expire gnus-newsgroup-expirable gnus-low-score-mark gnus-newsgroup-reads gnus-newsgroup-display gnus-number gnus-newsgroup-limit] 5 (#$ . 288272)])
#@38 Mark all articles in THREAD as read.
(defalias 'gnus-expunge-thread #[(thread) "@\306H\nT\307	\"\f\203	
B\202!	\nBB)\310\311A\"\207" [thread number gnus-newsgroup-expunged-tally gnus-newsgroup-unreads gnus-newsgroup-auto-expire gnus-newsgroup-expirable 0 delq mapcar gnus-expunge-thread gnus-low-score-mark gnus-newsgroup-reads] 3 (#$ . 289392)])
#@149 Refer parent article N times.
If N is negative, go to ancestor -N instead.
The difference between N and the number of articles fetched is returned.
(defalias 'gnus-summary-refer-parent-article #[(n) "\306\307\211\211\310\f!\204\311\f!\306\f\312V\203'
\n\204'
\313\314`\315\"\211\203,\316
!\210)\314`\317\"\2066\320 $\2368\211\312H%A=\203p&%@\232\203pr'q\210\321 \210\322\323!\211\204j\322\324!\211\203j\325!~\210)\202t	\326H\203
\327\232\204
\330\211(\205\365\331(G!?\205\365\f\203\341((\312\332(\206\241\327!\307)(*\333\334(*#\203\305(\312\224\312\225\211*O)B)\202\251)\237,)\f)\233\203\332)A)\202\313)@)\202\365\332(!(\333\335(\"\205\364\336\306(\")*!\204 
\337\306\340\"\210\202 
\337\306\341\314`\315\"\211\203
\316
!\210)\314`\317\"\206
\320 #\210\342\fS\211\202\343 \210\f,\207" [ref header error skip n to 1 nil natnump abs 0 3 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject nnheader-narrow-to-headers message-fetch-field "references" "in-reply-to" gnus-extract-message-id-from-in-reply-to 5 "" gnus-summary-refer-article zerop mail-header-remove-comments string-match "<[^<]+[^< 	]" "\\(<[^<]+>\\)[ 	]*\\'" match-string gnus-message "Couldn't find parent" "No references in article %d" t gnus-summary-position-point gnus-newsgroup-data gnus-article-current gnus-newsgroup-name gnus-original-article-buffer references ids beg] 7 (#$ . 289761) "p"])
#@95 Fetch all articles mentioned in the References header.
Return the number of articles fetched.
(defalias 'gnus-summary-refer-references #[nil "\305\306`\307\"\211\203\310!\210)\306`\311\"\206\312 	\2368\313H\306`\307\"\211\203*\310!\210)\306`\311\"\2064\312 \314\211\203B\f\315\232\203H\316\317!\202j\320\321\f\"\203b\nT\322\323\314\f\"\f\314\225\324O!\210\202H\310!\210\325 \210\n+\207" [to gnus-newsgroup-data n current ref 3 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 5 0 "" error "No References in the current article" string-match "<[^>]*>" gnus-summary-refer-article match-string nil gnus-summary-position-point] 6 (#$ . 291249) nil])
(defalias 'gnus-delete-duplicate-headers #[(headers) "G\303V\203 @\304H\211A@)\304HU\203 \211A@\210\202G\303V\203N@\304H\211A@)\304HU\203E\211\211AA)\241\210\202\"\211A@\210\202\"\n)\207" [headers x result 1 0] 4])
#@548 Fetch all articles in the current thread. For backends that
know how to search for threads (currently only 'nnimap) a
non-numeric prefix arg will use nnir to search the entire
server; without a prefix arg only the current group is
searched. If the variable `gnus-refer-thread-use-nnir' is
non-nil the prefix arg has the reverse meaning. If no
backend-specific 'request-thread function is available fetch
LIMIT (the numerical prefix) old headers. If LIMIT is
non-numeric or nil fetch the number specified by the
`gnus-refer-thread-limit' variable.
(defalias 'gnus-summary-refer-thread #[(&optional limit) "\306 \210\307\310`\311\"\211\203\312!\210)\310`\313\"\206\314 	\2368\211\315H\316\211\316+,\203;,<\203;-?\202=--\317./0\320\321\322\217*\203V\323\n.\"\202\270,\247\203c\324,!\202e1\211,\247\203x\n\325H,\\2^\202z23\326\n\327H!4\330\n\331H\206\213\332!5\333\320\334\335\336\337\34054D\"DDDF6\3413C,\247\203\263,\342_\202\265,\316#-7\32087<\203
7\320\2119\203\3749@\211\325H8B8\n\325H:\235\203\363\n\325H;B;\343\n\325H:\":9A\2119\204\315*\344\345\346<7\347$!<\350=8\237\"=\351!\210.\352 \207" [to gnus-newsgroup-data header id gnus-inhibit-demon gnus-summary-ignore-duplicates gnus-warp-to-article 3 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 4 t request-thread nil (byte-code ";\203\f\303!@\202
\304	!\204\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) gnus-request-thread prefix-numeric-value 0 gnus-simplify-subject 1 split-string 5 "" lambda (goto-char (point-min)) keep-lines regexp-opt quote append gnus-fetch-headers 2 delete gnus-delete-duplicate-headers gnus-merge list gnus-article-sort-by-number gnus-sorted-nunion gnus-summary-limit-include-thread gnus-summary-show-thread gnus-read-all-available-headers limit gnus-refer-thread-use-nnir gnus-newsgroup-name group func gnus-refer-thread-limit gnus-newsgroup-highest last subject refs gnus-parse-headers-hook new-headers article-ids --dolist-tail-- gnus-newsgroup-unselected gnus-newsgroup-unreads gnus-newsgroup-headers gnus-newsgroup-articles] 11 (#$ . 292211) "P"])
#@43 Fetch an article specified by MESSAGE-ID.
(defalias 'gnus-summary-refer-article #[(message-id) "\306 \210;\205w\307G!?\205w\310\311\312#\313\314\"\204!\315P\313\316\"\204,\317P\313\320\"\2047\321!\322!\211\205L	\323H\n>\205L	\323H>\324	\203s	\323H\n>\203_\f\203s\325	\323H\324\326#\f\203v\327	\323H!\210\202v\330\331\215+\207" [message-id header gnus-newsgroup-sparse gnus-newsgroup-limit sparse number gnus-warp-to-article zerop gnus-replace-in-string " " "" string-match "^<" "<" ">$" ">" "@" gnus-url-unhex-string gnus-id-to-header 0 nil gnus-summary-goto-article t gnus-summary-update-article found (byte-code "\304 \305\211\203-	@\306!\203&\307\n!\211\203&\310\305\211\211$\210\311\312\313\"\210	A\211\204	*\314\315\316\n#\207" [gnus-override-method --dolist-tail-- message-id number gnus-refer-article-methods nil gnus-check-server gnus-summary-insert-subject gnus-summary-select-article throw found t gnus-message 3 "Couldn't fetch article %s"] 6)] 5 (#$ . 294489) "sMessage-ID: "])
#@37 Return a list of referable methods.
(defalias 'gnus-refer-article-methods #[nil "\204	\nD\207\306=\203	C\207@9\203@\236\204k\307\307\211\203f@\211\306=\2037	\202Z
@\310=\203Y\310
\211\fA@)\206U	\307\211
\311\312\215+D\202Z
\fBA\211\204)*\f\237)\207C\207" [gnus-refer-article-method gnus-current-select-method gnus-select-method nnoo-definition-alist out method current nil nnir server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) --dolist-tail-- x no-enter-cache nocache] 5 (#$ . 295526)])
#@49 Edit the group parameters of the current group.
(defalias 'gnus-summary-edit-parameters #[nil "\301\302\"\207" [gnus-newsgroup-name gnus-group-edit-group params] 3 (#$ . 296698) nil])
#@54 Customize the group parameters of the current group.
(defalias 'gnus-summary-customize-parameters #[nil "\301!\207" [gnus-newsgroup-name gnus-group-customize] 2 (#$ . 296889) nil])
#@249 Enter an nndoc group based on the current article.
If FORCE, force a digest interpretation.  If not, try to guess
what the document format is.

To control what happens when you exit the group, see the
`gnus-auto-select-on-ephemeral-exit' variable.
(defalias 'gnus-summary-enter-digest-group #[(&optional force) "\306 \307\216\212\310\211\211\311 \210.	\312\313\314=\315\316D\"r>q\210?)#@=A\317\320\321\322AB\"J88\323ABC\324ABC\325ABC$C\326DpE\310\211F\310%rGq\210\327\330!\206h\327\331!\211\203z\317\332H!BC!C\333\334!F\335G!\210eb\336\337\310\326#\206\217`}\210eb\210\340\341!\210\342\343\327\344!\206\241\316!\345\"%\327\346!\211I\203\306\347\346!\210db\210~\210`d}\210\350\351\352I!\227!!\210)~\210)\353\216%\203\333\351\354%!\227!\202\335JKLM\355@\315@\356\357F!D\360N\203\371\361\202\372\362DF\326\310\211\211\363\364=\365\"BC&*\203
\320\321\322@B\"J88C\244\202/
\366E!\210\367 \210\370\371!\210\372\373\374\".\n\207" [gnus-current-window-configuration conf #1=#:wconfig gnus-break-pages gnus-display-mime-function gnus-article-prepare-hook current-window-configuration ((set-window-configuration #1#)) nil gnus-summary-select-article format "%s-%d" gnus-group-prefixed-name nndoc "" append 5 2 intern-soft to-group parent-group save-article-group t gnus-fetch-field "reply-to" "from" to-address nnheader-set-temp-buffer " *gnus digest buffer*" insert-buffer-substring search-forward "\n\n" delete-matching-lines "^Path:\\|^From " mail-content-type-get mail-header-parse-content-type "content-type" charset "content-transfer-encoding" message-remove-header mm-decode-content-transfer-encoding intern mail-header-strip ((kill-buffer dig)) gnus-strip-whitespace gnus-group-read-ephemeral-group nndoc-address get-buffer nndoc-article-type mbox guess adapt-file gnus-score-file-name "ADAPT" switch-to-buffer gnus-set-global-variables gnus-configure-windows summary gnus-message 3 "Article couldn't be entered?" gnus-newsgroup-name gnus-summary-buffer gnus-current-article name ogroup gnus-newsrc-hashtb params case-fold-search buf dig gnus-original-article-buffer gnus-decode-encoded-address-function encoding gnus-newsgroup-charset gnus-newsgroup-ignored-charsets gnus-newsgroup-ephemeral-ignored-charsets gnus-newsgroup-ephemeral-charset force] 12 (#$ . 297078) "P"])
#@176 Open a new group based on the current article(s).
This will allow you to read digests and other similar
documents as newsgroups.
Obeys the standard process/prefix convention.
(defalias 'gnus-summary-read-document #[(n) "\306\307\310\311	\n\"J88\312	BC\"\313\211\313\211*+\314,!\313-\211.\203\227.@-\315\316-#\317-!\210\320-!\203\216\212\321\322!/r/q\210\323\216\3240!\210\325 \210eb\210\326\327!\210~\210\330\f\331\f\332pD\333BBB\334\313\334%\211\203\210\307\310\311
\n\"J88\244\210
*B*\202\215\335\336\337\"\210,.A\211.\204)**\204\243\340\341!\202\303\330\315\342\343\344\345 \"#\211+\346+\347*DE\334p\350B$\206\303\340\351!.\207" [gnus-newsgroup-name ogroup gnus-newsrc-hashtb params group egroup append 5 2 intern-soft to-group nil gnus-summary-work-articles format "%s-%d" gnus-summary-remove-process-mark gnus-summary-display-article generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-buffer-substring message-narrow-to-head delete-matching-lines "^Path:\\|^From " gnus-group-read-ephemeral-group nndoc nndoc-address ((nndoc-article-type guess)) t gnus-error 3 "Article couldn't be entered" error "None of the articles could be interpreted as documents" "nnvirtual:%s-%s" format-time-string "%Y%m%dT%H%M%S" current-time nnvirtual nnvirtual-component-groups summary "Couldn't select virtual nndoc group" groups vgroup n article --dolist-tail-- #1# gnus-original-article-buffer] 8 (#$ . 299420) "P"])
#@105 Move point to the next field or button in the article.
With optional ARG, move across that many fields.
(defalias 'gnus-summary-widget-forward #[(arg) "\302 \210\303\304!\210\305\306!!\210\307	!\207" [gnus-article-buffer arg gnus-summary-select-article gnus-configure-windows article select-window gnus-get-buffer-window widget-forward] 3 (#$ . 300950) "p"])
#@109 Move point to the previous field or button in the article.
With optional ARG, move across that many fields.
(defalias 'gnus-summary-widget-backward #[(arg) "\302 \210\303\304!\210\305\306!!\210\307`!\204db\210\310	!\207" [gnus-article-buffer arg gnus-summary-select-article gnus-configure-windows article select-window gnus-get-buffer-window widget-at widget-backward] 3 (#$ . 301317) "p"])
#@111 Do incremental search forward on the current article.
If REGEXP-P (the prefix) is non-nil, do regexp isearch.
(defalias 'gnus-summary-isearch-article #[(&optional regexp-p) "\305 \210\306\307!\210\310 	\311\n\312\"\313\216\203#\314!\210\315!q\210\202'\316\n!\210\214~\210\317\f!-\207" [#1=#:GnusStartBufferWindow gnus-article-buffer #2=#:buf #3=#:w regexp-p gnus-summary-select-article gnus-configure-windows article selected-window gnus-get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer isearch-forward] 3 (#$ . 301718) "P"])
#@38 Repeat the previous search forwards.
(defalias 'gnus-summary-repeat-search-article-forward #[nil "\204\301\302!\210\303!\207" [gnus-last-search-regexp error "No previous search" gnus-summary-search-article-forward] 2 (#$ . 302299) nil])
#@39 Repeat the previous search backwards.
(defalias 'gnus-summary-repeat-search-article-backward #[nil "\204\301\302!\210\303\304\"\207" [gnus-last-search-regexp error "No previous search" gnus-summary-search-article-forward t] 3 (#$ . 302546) nil])
#@88 Search for an article containing REGEXP forward.
If BACKWARD, search backward instead.
(defalias 'gnus-summary-search-article-forward #[(regexp &optional backward) "\306\230\203	\206\306\202\n\211\307
\"\203#\310 \202(\311\312C\")\207" [regexp gnus-last-search-regexp gnus-current-article gnus-article-before-search gnus-last-article backward "" gnus-summary-search-article gnus-summary-show-thread signal search-failed] 4 (#$ . 302802) (list (read-string (format "Search article %s (regexp%s): " (if current-prefix-arg "backward" "forward") (if gnus-last-search-regexp (concat ", default " gnus-last-search-regexp) ""))) current-prefix-arg)])
#@51 Search for an article containing REGEXP backward.
(defalias 'gnus-summary-search-article-backward #[(regexp) "\301\302\"\207" [regexp gnus-summary-search-article-forward backward] 3 (#$ . 303470) (list (read-string (format "Search article backward (regexp%s): " (if gnus-last-search-regexp (concat ", default " gnus-last-search-regexp) ""))))])
#@159 Search for an article containing REGEXP.
Optional argument BACKWARD means do search for backward.
`gnus-select-article-hook' is not called during the search.
(defalias 'gnus-summary-search-article #[(regexp &optional backward) "\306\307!\210\306\310!\210\311\211\211\211\211\211\211\211\211\211\211\211p\311\211\211%&'()*+,-.\312 /\313\216\212\314 \2100q\210\315\316p!!b\2101\203O\317y\210	\204\351\320\321\3222A#\2101\203i\3233\311\324#\202o\3253\311\324#\203\220\301\326 \210\327\316p!`\"\210\330y\210\331\316p!`\"\210q\210`\202Oq\210\332	\332=\203O1\203\245\333 \202\247\334 \204\260\324\211\202\226\335`\336\"\2114\203\277\3374!\210)\335`\340\"\206\311\341 5>\204\225\311\314 \2100q\210~\2101\203\343d\202\344eb\210\202\225\320\321\342\"\210+	\301=\205
b\210\343 \210\3376!\210\344 \210\324.\207" [point found gnus-display-mime-function sum gnus-auto-center-summary gnus-updated-mode-lines require gnus-async gnus-art nil gnus-hidden-threads-configuration ((gnus-restore-hidden-threads-configuration #1=#:config)) gnus-summary-select-article window-point get-buffer-window -1 gnus-message 7 "Searching article: %d..." re-search-backward t re-search-forward beginning-of-line set-window-start 1 set-window-point not gnus-summary-find-prev gnus-summary-find-next get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject "" gnus-summary-show-thread gnus-summary-position-point gnus-summary-display-arrow gnus-break-pages gnus-keep-backlog gnus-visual gnus-use-trees gnus-xmas-force-redisplay gnus-use-article-prefetch gnus-mark-article-hook gnus-article-prepare-hook gnus-select-article-hook #1# gnus-article-buffer backward gnus-article-current regexp to gnus-newsgroup-sparse gnus-current-article] 17 (#$ . 303823)])
#@185 Return a list of all articles that match REGEXP on HEADER.
This search includes all articles in the current group that Gnus has
fetched headers for, whether they are displayed or not.
(defalias 'gnus-find-matching-articles #[(header regexp) "\306\307\310\311\312P!\313BE\314\f\306\211\2031
@\315\n!\"\203*\316HB
A\211\204*\237+\207" [header case-fold-search func articles gnus-newsgroup-headers --dolist-tail-- nil lambda (h) intern "mail-header-" (h) t string-match 0 regexp] 7 (#$ . 305648)])
#@403 Return a list of all articles that match REGEXP on HEADER.
The search stars on the current article and goes forwards unless
BACKWARD is non-nil.  If BACKWARD is `all', do all articles.
If UNREAD is non-nil, only unread articles will
be taken into consideration.  If NOT-CASE-FOLD, case won't be folded
in the comparisons. If NOT-MATCHING, return a list of all articles that
not match REGEXP on HEADER.
(defalias 'gnus-summary-find-matching #[(header regexp &optional backward unread not-case-fold not-matching) "?\306\211\211
:\2032
@\307=\203*\310\311\312\313\314\315
AD\316BBD\317BBE\202L\320\321
\"\210\202L\322\323\324
P!!\204A\320\325
\"\210\310\326\323\324
P!\327BE\"\330=\203X#\202\220\"\203l$\206n\331#!\211$\202n#%\332`\333\"\211&\203\334&!\210)\332`\335\"\206\211\336 %\236%>)\306\211'\203\336'@(\203\252\nA@)U\203\325\337\340\n8!\203\325*\203\304\341+	\340\n8!\"?\202\315\341+	\340\n8!\"\203\325\n@B'A\211'\204\230*\237,\207" [not-case-fold func d articles case-fold-search header nil extra lambda (h) or cdr assq quote ((mail-header-extra h)) ("") error "%s is an invalid header" fboundp intern "mail-header-" "%s is not a valid header" (h) (h) all reverse get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject vectorp 3 string-match backward gnus-newsgroup-data gnus-newsgroup-data-reverse bdata to --dolist-tail-- unread gnus-unread-mark not-matching regexp] 8 (#$ . 306169)])
#@223 Search forward for an article whose HEADER matches REGEXP and execute COMMAND.
If HEADER is an empty string (or nil), the match is done on the entire
article.  If BACKWARD (the prefix) is non-nil, search backward instead.
(defalias 'gnus-summary-execute-command #[(header regexp command &optional backward) "\306\232\203\307\310 \210\212\311 \312\216\313\211\211\211\211\211\211\314\315\316\317!#\210\320\321\322\323!DD$\210\314\315\324\317!#.\n\207" [header #1=#:wconfig gnus-article-prepare-hook gnus-treat-fold-newsgroups gnus-treat-hide-boring-headers gnus-treat-strip-multiple-blank-lines "Body" "" gnus-summary-show-all-threads current-window-configuration ((set-window-configuration #1#)) nil gnus-message 6 "Executing %s..." key-description gnus-execute call-interactively quote key-binding "Executing %s...done" gnus-treat-strip-leading-blank-lines gnus-treat-strip-trailing-blank-lines gnus-visual command regexp backward] 7 (#$ . 307665) (list (let ((completion-ignore-case t)) (gnus-completing-read "Header name" (mapcar 'symbol-name (append '(Number Subject From Lines Date Message-ID Xref References Body) gnus-extra-headers)) 'require-match)) (read-string "Regexp: ") (read-key-sequence "Command: ") current-prefix-arg)])
#@43 Scroll the article back to the beginning.
(defalias 'gnus-summary-beginning-of-article #[nil "\305 \210\306\307!\210\310 	\311\n\312\"\313\216\203#\314!\210\315!q\210\202'\316\n!\210~\210eb\210\f\2052\317 ,\207" [#1=#:GnusStartBufferWindow gnus-article-buffer #2=#:buf #3=#:w gnus-break-pages gnus-summary-select-article gnus-configure-windows article selected-window gnus-get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer gnus-narrow-to-page] 3 (#$ . 308934) nil])
#@35 Scroll to the end of the article.
(defalias 'gnus-summary-end-of-article #[nil "\305 \210\306\307!\210\310 	\311\n\312\"\313\216\203#\314!\210\315!q\210\202'\316\n!\210~\210db\210\317\320!\210\f\2056\321 ,\207" [#1=#:GnusStartBufferWindow gnus-article-buffer #2=#:buf #3=#:w gnus-break-pages gnus-summary-select-article gnus-configure-windows article selected-window gnus-get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer recenter -3 gnus-narrow-to-page] 3 (#$ . 309455) nil])
#@48 Truncate to LEN and quote all "("'s in STRING.
(defalias 'gnus-summary-print-truncate-and-quote #[(string &optional len) "\302\203	GV\203	\303O\202	\304\305#\207" [len string gnus-replace-in-string 0 "[()]" "\\\\\\&"] 4 (#$ . 309987)])
#@703 Generate and print a PostScript image of the process-marked (mail) articles.

If used interactively, print the current article if none are
process-marked.  With prefix arg, prompt the user for the name of the
file to save in.

When used from Lisp, accept two optional args FILENAME and N.  N means
to print the next N articles.  If N is negative, print the N previous
articles.  If N is nil and articles have been marked with the process
mark, print these instead.

If the optional first argument FILENAME is nil, send the image to the
printer.  If FILENAME is a string, save the PostScript image in a file with
that name.  If FILENAME is a number, prompt the user for the name of the file
to save in.
(defalias 'gnus-summary-print-article #[(&optional filename n) "\306!\307\211\203G\n@\310\307\211\311	$\210\312 \f\313
\314\"\315\216\2034\316!\210\317!q\210\2028\320
!\210\321 \210,\322	!\210\nA\211\204\n*\323!\207" [n article --dolist-tail-- #1=#:GnusStartBufferWindow gnus-article-buffer #2=#:buf gnus-summary-work-articles nil gnus-summary-select-article pseudo selected-window gnus-get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer gnus-print-buffer gnus-summary-remove-process-mark ps-despool #3=#:w filename] 6 (#$ . 310239) (list (ps-print-preprint current-prefix-arg))])
(defalias 'gnus-print-buffer #[nil "\304\305\306H\307\"\310Q\304\305\311H\312\"\310QD\313\304\314H\310QD\315\316!\210\212\203+\317 \202-\320 +\207" [gnus-current-headers ps-right-header ps-left-header ps-print-color-p "(" gnus-summary-print-truncate-and-quote 1 66 ")" 2 45 "/pagenumberstring load" 3 gnus-run-hooks gnus-ps-print-hook ps-spool-buffer-with-faces ps-spool-buffer] 5])
#@134 Show a complete version of the current article.
This is only useful if you're looking at a partial version of the
article currently.
(defalias 'gnus-summary-show-complete-article #[nil "\306\211\211\307\310\311\312!@\"	\"\306\313\216J\306L\210\314 \210\315 .\207" [gnus-newsgroup-name obarray old-val variable gnus-agent gnus-use-cache nil intern format "%s-fetch-partial-articles" gnus-find-method-for-group ((set variable old-val)) gnus-flush-original-article-buffer gnus-summary-show-article gnus-keep-backlog] 8 (#$ . 311980) nil])
#@406 Force redisplaying of the current article.
If ARG (the prefix) is a number, show the article with the charset
defined in `gnus-summary-show-article-charset-alist', or the charset
input.
If ARG (the prefix) is non-nil and not a number, show the article,
but without running any of the article treatment functions
article.  Normally, the keystroke is `C-u g'.  When using `C-u
C-u g', show the raw article.
(defalias 'gnus-summary-show-article #[(&optional arg) "\247\203\265\306\307!\210	\236A\206\310\311r\nq\210\312`d\")\"\313\314\315\316\"\210
\315\211\211+,-.r/q\210\214\317 \210\320 -eb\210\321\322\315\307#\204Tdb\210~\210\323`d\"S+)\324\325!0r0q\210\326\216\327\3301A\"c\210-c\210+\203y\327\331+\"c\210\332c\210p2\333.\307\"@,-\3341A3\236\233\2114,\240\210)\3351A,\"\210\3361A\315\307#\203\260\3371A!\210.\202.
\204\3305\340=\203\320\341\340!\210\3076\314\315\316\"\210)\202.
\314\315\316\"\210\202.
\342\232\203\352\3077\314\315\316\"\210)\202.
\341\343!\210\341\344!\210\307\315\211\211\21189:;<\n\211=\205
\345\346=!!)\203(
r\nq\210\347 \210\350 \210\351>!\210\315\211?>)\314\315\316\"\210-\336@!\210\352 \207" [arg gnus-summary-show-article-charset-alist gnus-article-buffer gnus-newsgroup-ignored-charsets gnus-newsgroup-charset gnus-newsgroup-dependencies gnus-summary-show-article t mm-read-coding-system "View as charset: " mm-detect-coding-region gnus-all gnus-summary-select-article nil force message-narrow-to-head buffer-string re-search-forward "^lines:[ 	]\\([0-9]+\\)" count-lines generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) format "211 %d Article retrieved.\n" "Lines: %d\n" ".\n" gnus-get-newsgroup-headers 3 gnus-summary-update-article-line gnus-summary-goto-subject gnus-summary-update-secondary-mark shr require (16) gnus-async gnus-art buffer-live-p get-buffer gnus-article-stop-animations gnus-stop-downloads mm-destroy-parts gnus-summary-position-point lines header head deps gnus-original-article-buffer #1# gnus-article-current nntp-server-buffer gnus-newsgroup-data #2=#:c mm-text-html-renderer shr-ignore-cache gnus-inhibit-article-treatments gnus-break-pages gnus-display-mime-function gnus-article-decode-hook gnus-article-prepare-hook gnus-have-all-headers buffer gnus-article-mime-handles gnus-article-mime-handle-alist gnus-current-article] 6 (#$ . 312534) "P"])
#@73 Show the raw article without any article massaging functions being run.
(defalias 'gnus-summary-show-raw-article #[nil "\300\301!\207" [gnus-summary-show-article t] 2 (#$ . 314975) nil])
#@146 Toggle permanent full header display.
If ARG is a positive number, turn header display on.
If ARG is a negative number, turn header display off.
(defalias 'gnus-summary-verbose-headers #[(&optional arg) "\247\203\302!\203	?\202\303!\205\304\305 \207" [arg gnus-show-all-headers zerop natnump t gnus-summary-show-article] 2 (#$ . 315169) "P"])
#@184 Show the headers if they are hidden, or hide them if they are shown.
If ARG is a positive number, show the entire header.
If ARG is a negative number, hide the unwanted header lines.
(defalias 'gnus-summary-toggle-header #[(&optional arg) "\211\205\306\307	!!)\205\310\311\"rq\210~\210\312 \210\311\211
\247\203,
\313Y\2026\314\315!?\2066\316\317!\"\320\211#$ed|\210r%q\210e\211#b\210\321\322\320\311#\203Z`S\202[d$)\323%#$#\210\324\325!\210\"\203\202\320\211&'\326\317!\210\327\330!\210*\202\206\327\330!\210~\210\n\203\222\331\neb\"\210(\203\235\332 \210\202\256\333\334!\203\256\311\335\336!\210\335\337!\210)\340\341!.\207" [gnus-article-buffer buffer window inhibit-read-only inhibit-point-motion-hooks arg buffer-live-p get-buffer get-buffer-window t article-narrow-to-head 0 looking-at "[^ 	\n]+:" gnus-article-hidden-text-p headers nil search-forward "\n\n" insert-buffer-substring run-hooks gnus-article-decode-hook gnus-delete-wash-type gnus-treat-article head set-window-start gnus-narrow-to-page gnus-visual-p page-marker gnus-remove-text-with-property gnus-prev gnus-next gnus-set-mode-line article hidden s e gnus-original-article-buffer gnus-treat-hide-boring-headers gnus-treat-hide-headers gnus-break-pages] 5 (#$ . 315531) "P"])
#@32 Make all header lines visible.
(defalias 'gnus-summary-show-all-headers #[nil "\300\301!\207" [gnus-summary-toggle-header 1] 2 (#$ . 316821) nil])
#@169 Caesar rotate the current article by 13.
With a non-numerical prefix, also rotate headers.  A numerical
prefix specifies how many places to rotate each letter forward.
(defalias 'gnus-summary-caesar-message #[(&optional arg) "\306 \210\307\310 \n\311\312\"\313\216\f\203!\314\f!\210\315\f!q\210\202%\316!\210\214~\210\317 \320\321\232\203=\322\323\320\"\210\202B\322!\210\324\325p!\"\210.\326\323!\207" [mail-header-separator #1=#:GnusStartBufferWindow gnus-article-buffer #2=#:buf #3=#:w inhibit-read-only gnus-summary-select-article "" selected-window gnus-get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer window-start t (4) message-caesar-buffer-body nil set-window-start get-buffer-window gnus-treat-article start arg] 3 (#$ . 316975) "P"])
#@332 Decode IDNA encoded domain names in the current articles.
IDNA encoded domain names looks like `xn--bar'.  If a string
remain unencoded after running this function, it is likely an
invalid IDNA string (`xn--bar' is invalid).

You must have GNU Libidn (URL `http://www.gnu.org/software/libidn/')
installed for this command to work.
(defalias 'gnus-summary-idna-message #[(&optional arg) "\306\307\310\217\203\311\312!\203\313\314J!\204\315\316\317\"\207\320 \210\321\322 \n\323\324\"\325\216\f\203:\326\f!\210\327\f!q\210\202>\330!\210\214~\210\331 \306#\332\333\306\334#\203Z\335\336\337\340!!!\210\202G\341\342p!#\".\207" [mail-header-separator #1=#:GnusStartBufferWindow gnus-article-buffer #2=#:buf #3=#:w buffer-read-only nil (byte-code "\300\301!\207" [require idna] 2) ((file-error)) mm-coding-system-p utf-8 executable-find idna-program gnus-message 5 "GNU Libidn not installed properly (`idn' or `idna.el' missing)" gnus-summary-select-article "" selected-window gnus-get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer window-start re-search-forward "\\(xn--[-0-9a-z]+\\)" t replace-match idna-to-unicode match-string 1 set-window-start get-buffer-window start] 4 (#$ . 317788) "P"])
#@35 Morse decode the current article.
(defalias 'gnus-summary-morse-message #[(&optional arg) "\306 \210\307\310 \n\311\312\"\313\216\f\203!\314\f!\210\315\f!q\210\202%\316!\210\212\214~\210\317 \320eb\210\321 \203:\322 \210eb\210\323\324d\320#\203L\325\326!\210\202=\327ed\"\210~\210\330\331p!\".	\207" [mail-header-separator #1=#:GnusStartBufferWindow gnus-article-buffer #2=#:buf #3=#:w inhibit-read-only gnus-summary-select-article "" selected-window gnus-get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer window-start t message-goto-body gnus-narrow-to-body search-forward "·" replace-match "." unmorse-region set-window-start get-buffer-window pos] 4 (#$ . 319045) "P"])
#@44 Stop page breaking in the current article.
(defalias 'gnus-summary-stop-page-breaking #[nil "\306 \210\307 	\310\n\311\"\312\216\203\313!\210\314!q\210\202#\315\n!\210~\210\316\317!\2059\320\321\322!\210\321\323!\210)\324\211,\207" [#1=#:GnusStartBufferWindow gnus-article-buffer #2=#:buf #3=#:w inhibit-read-only gnus-page-broken gnus-summary-select-article selected-window gnus-get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer gnus-visual-p page-marker t gnus-remove-text-with-property gnus-prev gnus-next nil] 3 (#$ . 319781) nil])
#@823 Move the current article to a different newsgroup.
If N is a positive number, move the N next articles.
If N is a negative number, move the N previous articles.
If N is nil and any articles have been marked with the process mark,
move those articles instead.
If TO-NEWSGROUP is string, do not prompt for a newsgroup to move to.
If SELECT-METHOD is non-nil, do not move to a specific newsgroup, but
re-spool using this method.

When called interactively with TO-NEWSGROUP being nil, the value of
the variable `gnus-move-split-methods' is used for finding a default
for the target newsgroup.

For this function to work, both the current newsgroup and the
newsgroup that you want to move to have to support the `request-move'
and `request-accept' functions.

ACTION can be either `move' (the default), `crosspost' or `copy'.
(defalias 'gnus-summary-move-article #[(&optional n to-newsgroup select-method action) "\204\306\306=\203\307	\310\311\312\217*\204\313\314!\210\2025\315=\2035\316	\310\317\320\217*\2045\313\321!\210\322\f!\307	\310\323\324\217*\203J
	!\202K\325\326\212\327\330!)\310\211\211\211\211\211\211@ABCDEFGHIJH\236\204z\313\331\"\210K\204\350
L\204\350
M\203\266NJ>\203\243O\211P\205\237\332\333P!!)\204\266\310\211\211QRS\334\310\211\211J@$\210+\335H\236\211TA@)\336\337\340\"!JJI$\211K@\341K!\211U\203\347U<\203\347U\206\323
\342UV\"A\206\323
U\343\232\203\375W\206\267
\342UX\"A\206\267
\342UY\"A\206\267
Z[[\2039
U\337\344[@@@[@@A@#\232\2049
[\211A[@\210\202
[\211T@@*\206\267
\\]]\203n
U\337\344]\211T@@)]@A@#\232\204n
]\211A]@\210\202H
]@)\206\267
^A\310\211_`aa\203\264
\345a\211Aa@8\211`;\204\200
U`\310\346bc`\347\350\215+\232\203\200
`_\310\211a\204\205
_+\211d\203\320
\342UV\"\204\320
UdBVBVd))E\336\337\340\"!\351K\352EK\"\"L\210E\204\366L\206\364\341K!\211U\203U<\203U\206\363\342UV\"A\206\363U\343\232\203W\206\327\342UX\"A\206\327\342UY\"A\206\327Z[[\203YU\337\344[@@@[@@A@#\232\204Y[\211A[@\210\2025[\211T@@*\206\327\\]]\203\216U\337\344]\211T@@)]@A@#\232\204\216]\211A]@\210\202h]@)\206\327^A\310\211_`aa\203\324\345a\211Aa@8\211`;\204\240U`\310\346bc`\347\353\215+\232\203\240`_\310\211a\204\245_+\211d\203\360\342UV\"\204\360UdBVBVd))E@\206\nK\205\n\354K\352EK\"\"K\355E@\310\356\357\217*\204!\313\360E@\"\210\361E!\204/\313\362E@\"\210\363\364\365H\236AA@L@\206C\366K!J%\210J\203\203J\211AJ@Ce\203_\367C!\210\306=\203\305\370C!\210\371	!fL\206x\371K!E\372fE\"g\373C	\371	!A@\374K\375LDJ?\346\257J?g\205\277K\205\277Kh\376\377h\"\203\274h\201\207\225\310O\202\276h)&+\202\315\201\210=\203rGq\210\201\211C	\"\205\214\201\212 \210i\310j\211k\203k@j\201\213j\346\"\210kA\211k\204\355+\374KLJ?\346$)\202\315\315=\205\315\201\214\201\215Cl\2368\201\216H\201\217\"m	h\376\377h\"\203Dh\201\207\225\310O\202Fh)\201\220\201\221C!QDm\204_\201\222 Cm\201\223\201\224\201\225\201\226\201\225Dm\"\"\201\217#\201\217DQDrGq\210\201\211C	\"\210\374KLJ?\346$\211F:\205\314D\201\217F@\201\220\201\221FA!\260D\201\227\201\230D\"\210\201\231FAKp\346$\210F*\211F\204\362\363\201\232\201\233H\236\211TA@)C\201\234E@!%\210\202yF\201\235=\203.\306=\203y\201\236Cn\"\210\363\345\201\237C#\210\201\240\201\241\201\215\342Cl\"8	\310L&\210\202y\201\242F@E\"o\201\243\201\244op\"J8\211q@r\310sq\203\201\245>\203rB\235\204krBBBCt>\204\225FA\203\225\201\246sBsqAA\201\247\201\243q8FAC\"\240\210\201\250r!\211u\203\246v\202\263\201\225\201\251\201\252v!\"wFA\211x\203\333y\203\333\201\253rxCz>C{>Ct>%\210e\203\360x\203\360r	\232\203Ct>\204x|B}B}\201\244r~\"Jx\241\210x\241\210w\203\224\201\254w\211T@A)!\201\255=\203\213C\336\337\201\256w\211T@@)\"!J>\203\213w\211T@A)sBsr	\232\203w\336\337\201\256w\211T@@)\"!x\336\337\201\256w\211T@@)\"!JBL\210\201\257rw\211T@A)xCq$\210wA\211w\204u\203\314\200\203\314\201\260s>\204\314\201\260sBsr	\232\203\275x\201B\201\201\257r\201\260xCq$\210s\203\360\201\261\371r!\201\262\"\203\360\201\263rxC\201\264sEC\"\210\201\265\201\266\201\267\201\243\201\244rp\"J8!\201\270Q\201\271\201\272r!\201\273Q\"\210+\315=\203CrGq\210\201\211C	\"\210\201\227\201\230D\"\210\201\231C	p\346$\210)\201\240\201\274\201\215\342Cl\"8	KL&\210,\202q\210\306=\203y\212\201\275C!\210\201\236Cn\"\210)CABA\202G\212\201\276\201\277A\"\210)r\203q\210B\204\201\300\310\346\"\210*G\211\205\211P\205\273P;\203\265\333\202\270\201\301P!)\203\322\201\225\333\205!\206\"\206\201\302\205!\210)\201\303 \210\201\304\201\305!.\207" [action gnus-newsgroup-name group func n gnus-move-group-prefix-function move request-move-article nil (byte-code ";\203\f\303!@\202
\304	!\204\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format #1="%s-%s"] 6) ((error)) error "The current group does not support article moving" crosspost request-replace-article (byte-code ";\203\f\303!@\202
\304	!\204\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format #1#] 6) ((error)) "The current group does not support article editing" gnus-summary-work-articles (byte-code ";\203\f\303!@\202
\304	!\204\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format #1#] 6) ((error)) #2="" ((move "Move" "Moving") (copy "Copy" "Copying") (crosspost "Crosspost" "Crossposting")) nnheader-set-temp-buffer " *copy article*" "Unknown action %s" buffer-live-p get-buffer gnus-summary-select-article gnus-read-move-group-name intern format "gnus-current-%s-group" gnus-group-method assoc "native" "%s:%s" 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#3=(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#4=(server-alist) "\301\302\"\207" [server-alist mapc #[#5=(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #6=(nil #2#) format #7="%s" #8="%s:%s" assoc x name name-method no-enter-cache] 5) mm-decode-coding-string gnus-group-name-charset (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#3# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#4# "\301\302\"\207" [server-alist mapc #[#5# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #6# format #7# #8# assoc x name name-method no-enter-cache] 5) mm-encode-coding-string request-accept-article (byte-code ";\203\f\303!@\202
\304	!\204\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format #1#] 6) ((error)) "%s does not support article copying" gnus-check-server "Can't open server %s" gnus-message 6 "%s to %s: %s..." gnus-group-decoded-name gnus-summary-push-marks-to-backend gnus-dup-unsuppress-article gnus-find-method-for-group gnus-server-equal gnus-request-move-article gnus-request-accept-article quote string-match "^[^:]+:" encoded articles-to-update-marks to-groups article new-xref to-method art-group copy-buf names prefix articles to-newsgroup select-method gnus-move-split-methods gnus-current-article gnus-original-article-buffer buffer gnus-mark-article-hook gnus-article-prepare-hook gnus-display-mime-function x server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result gnus-preserve-marks from-method move-is-internal gname gnus-copy-article-ignored-headers hdr --dolist-tail-- gnus-newsgroup-data xref gnus-canceled-mark pto-group gnus-newsrc-hashtb info to-group to-marks gnus-newsgroup-unreads expirable gnus-article-mark-lists marks to-article gnus-use-cache gnus-newsgroup-marked gnus-newsgroup-dormant gnus-read-mark gnus-newsgroup-reads gnus-active-hashtb gnus-newsgroup-active gnus-mark-copied-or-moved-articles-as-expirable gnus-newsgroup-expirable gnus-summary-buffer gnus-group-buffer gnus-group-marked buf gnus-buffers 0 copy gnus-request-article-this-buffer nnheader-narrow-to-headers message-remove-header message-tokenize-header 3 8 " " ":" number-to-string system-name mapconcat identity delete "Xref:" nnheader-replace-header "Xref" gnus-request-replace-article 1 "Couldn't %s article %s: %s" nnheader-get-report junk gnus-summary-mark-article "Deleted article %s" run-hook-with-args gnus-summary-article-delete-hook gnus-group-prefixed-name 2 intern-soft (move copy) read gnus-add-to-range gnus-group-auto-expirable-p (expirable . expire) copy-sequence gnus-cache-possibly-enter-article gnus-article-mark-to-type list "gnus-newsgroup-%s" gnus-add-marked-articles expire gnus-method-option-p server-marks gnus-request-set-mark add gnus-dribble-enter "(gnus-group-set-info '" gnus-prin1-to-string ")" "^(gnus-group-set-info '(\"" regexp-quote "\"" gnus-summary-article-move-hook gnus-summary-goto-subject apply gnus-summary-remove-process-mark gnus-group-get-new-news-this-group buffer-name kill-buffer gnus-summary-position-point gnus-set-mode-line summary] 12 (#$ . 320376) "P"])
(defalias 'gnus-summary-push-marks-to-backend #[(article) "\306\f>\204\307\nB	\203B\310	\211@A)!\311=\2039\312\313\314	\211@@)\"!J>\2039	\211@A)\nB	\211A@\210\202\315C\302\nEC\"*\207" [gnus-article-mark-lists marks set article gnus-newsgroup-unreads x nil read gnus-article-mark-to-type list intern format "gnus-newsgroup-%s" gnus-request-set-mark gnus-newsgroup-name] 6])
#@361 Copy the current article to some other group.
If TO-NEWSGROUP is string, do not prompt for a newsgroup to copy to.
When called interactively, if TO-NEWSGROUP is nil, use the value of
the variable `gnus-move-split-methods' for finding a default target
newsgroup.
If SELECT-METHOD is non-nil, do not move to a specific newsgroup, but
re-spool using this method.
(defalias 'gnus-summary-copy-article #[(&optional n to-newsgroup select-method) "\303	\n\304$\207" [n to-newsgroup select-method gnus-summary-move-article copy] 5 (#$ . 331007) "P"])
#@52 Crosspost the current article to some other group.
(defalias 'gnus-summary-crosspost-article #[(&optional n) "\301\302\211\303$\207" [n gnus-summary-move-article nil crosspost] 5 (#$ . 331557) "P"])
#@93 Default method type for respooling an article.
If nil, use to the current newsgroup method.
(custom-declare-variable 'gnus-summary-respool-default-method nil '(#$ . 331763) :type 'symbol :group 'gnus-summary-mail)
#@679 Respool the current article.
The article will be squeezed through the mail spooling process again,
which means that it will be put in some mail newsgroup or other
depending on `nnmail-split-methods'.
If N is a positive number, respool the N next articles.
If N is a negative number, respool the N previous articles.
If N is nil and any articles have been marked with the process mark,
respool those articles instead.

Respooling can be done both from mail groups and "real" newsgroups.
In the former case, the articles in question will be moved from the
current group into whatever groups they are destined to.  In the
latter case, they will be copied into the relevant groups.
(defalias 'gnus-summary-respool-article #[(&optional n method) "\204\303\304!\210\305\306\307	!@!\310\311!\"\203\312\n\313#\207\314\n\313#\207" [method gnus-newsgroup-name n error "No method given for respooling" assoc symbol-name gnus-find-method-for-group gnus-methods-using respool gnus-summary-move-article nil gnus-summary-copy-article] 4 (#$ . 331984) (list current-prefix-arg (let* ((methods (mapcar #'car (gnus-methods-using 'respool))) (methname (symbol-name (or gnus-summary-respool-default-method (car (gnus-find-method-for-group gnus-newsgroup-name))))) (method (gnus-completing-read "Backend to use when respooling" methods t nil 'gnus-mail-method-history methname)) ms) (cond ((zerop (length (setq ms (gnus-servers-using-backend (intern method))))) (list (intern method) "")) ((= 1 (length ms)) (car ms)) (t (let ((ms-alist (mapcar #'(lambda (m) (cons (cadr m) m)) ms))) (cdr (assoc (gnus-completing-read "Server name" ms-alist t) ms-alist)))))))])
#@49 Import an arbitrary file into a mail newsgroup.
(defalias 'gnus-summary-import-article #[(file &optional edit) "\306 \307\211\211\310
/\307\311\312\217*\204\313\314
\"\210\3150!\2041\3160!\2031\313\3170\"\210r\320\321!q\210\322 \210\3230!\210eb\210\324 \203r\214eb\210\325\326\307\327#\210e`S}\210eb\210\330\331\307\327#\204ndb\210\332\333\3348!\335\261\210)\202\240\3360!\337ed\"\340\341\340!\335\342\341\342!\335\332\333\3348!\335\343\344 \335\345\346\n!\335\347\346\3508!\326\261\210\351
\307\327#\352p!\210)\353
!1\354y\210\355	A\307\327#\2102\205\301\356 -\207" [gnus-newsgroup-name group-art lines atts now group current-time nil request-accept-article (byte-code ";\203\f\303!@\202
\304	!\204\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) error "%s does not support article importing" file-readable-p file-regular-p "Can't read %s" gnus-get-buffer-create " *import file*" erase-buffer nnheader-insert-file-contents nnheader-article-p search-forward "\n\n" t re-search-forward "^date:" "Date: " message-make-date 5 "\n" file-attributes count-lines "From: " read-string "Subject: " "Message-ID: " message-make-message-id "Lines: " int-to-string "Chars: " 7 gnus-request-accept-article kill-buffer gnus-activate-group 1 gnus-summary-goto-article gnus-summary-edit-article func file gnus-newsgroup-active edit] 19 (#$ . 333638) "fImport file: \nP"])
#@40 Create an article in a mail newsgroup.
(defalias 'gnus-summary-create-article #[nil "\306 \307\310\307\311\312\217*\204\313\314\"\210r\315\316!q\210\317 \210eb\210\320\321\320!\322\323\321\323!\322\324\325\n!\322\326\327 \322\261\f\210\330\307\331#\332p!\210)\333!\334y\210\335	A\307\331#\210\336 +\207" [gnus-newsgroup-name group-art now group func gnus-newsgroup-active current-time nil request-accept-article (byte-code ";\203\f\303!@\202
\304	!\204\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) error "%s does not support article importing" gnus-get-buffer-create " *import file*" erase-buffer "From: " read-string "\n" "Subject: " "Date: " message-make-date "Message-ID: " message-make-message-id gnus-request-accept-article t kill-buffer gnus-activate-group 1 gnus-summary-goto-article gnus-summary-edit-article] 12 (#$ . 335135) nil])
#@142 Say whether the current (mail) article is available from news as well.
This will be the case if the article has both been mailed and posted.
(defalias 'gnus-summary-article-posted-p #[nil "\304\305`\306\"\211\203\307!\210)\305`\310\"\206\311 	\2368\312H\313 @\314\315\"\2031\316\317\320\n#\2028\316\317\321\n#\210\322*\207" [to gnus-newsgroup-data gnus-override-method id 3 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 5 gnus-refer-article-methods gnus-request-head "" gnus-message 2 "The current message was found on %s" "The current message couldn't be found on %s" nil] 5 (#$ . 336105) nil])
#@72 Expire all articles that are marked as expirable in the current group.
(defalias 'gnus-summary-expire-articles #[(&optional now) "?\205\323\306	\307\310\311\217*\205\323\312	!\211\203&\313\314!\210\315 \210\316	!\202,\317
\320\"\211!\"\2037\321\202;\322	\323\"\322	\324\"\206F##\307$!\205\322\325\326\327\"\210\330	!\203\316\212\203s\307%&\331!	\"$*\202z\331!	\"$\f\204\201$$!=\204\315\307'!\307(\211)\203\314)@\211($>\204\303(*\236\203\303\332(+\"\210\333\334\335\336\337(*\"8	\307\211&\210)A\211)\204\227+)\325\326\340\"-\207" [gnus-group-is-exiting-without-update-p gnus-newsgroup-name group func total gnus-newsgroup-expirable request-expire-articles nil (byte-code ";\203\f\303!@\202
\304	!\204\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) gnus-group-total-expirable-p gnus-run-hooks gnus-exit-group-hook gnus-summary-update-info gnus-list-of-read-articles sort < immediate gnus-group-find-parameter expiry-wait expiry-target gnus-message 6 "Expiring articles..." gnus-check-group gnus-request-expire-articles gnus-summary-mark-article run-hook-with-args gnus-summary-article-expire-hook delete 3 assoc "Expiring articles...done" expirable now nnmail-expiry-target es nnmail-expiry-wait nnmail-expiry-wait-function gnus-use-cache article --dolist-tail-- gnus-newsgroup-data gnus-canceled-mark] 8 (#$ . 336770) nil])
#@150 Expunge all expirable articles in the current group.
This means that *all* articles that are marked as expirable will be
deleted forever, right now.
(defalias 'gnus-summary-expire-articles-now #[nil "\204\301\302!\204\303\304!\210\305\306!\207" [gnus-expert-user gnus-yes-or-no-p "Are you really, really sure you want to delete all expirable messages? " error "Phew!" gnus-summary-expire-articles t] 2 (#$ . 338266) nil])
#@403 Delete the N next (mail) articles.
This command actually deletes articles.  This is not a marking
command.  The article will disappear forever from your life, never to
return.

If N is negative, delete backwards.
If N is nil and articles have been marked with the process mark,
delete these instead.

If `gnus-novice-user' is non-nil you will be asked for
confirmation before the articles are deleted.
(defalias 'gnus-summary-delete-article #[(&optional n) "\306\307\310\311\217*\204\312\313!\210\314\315!!\204\312\316!\210\317\320\321!!\322\"\323\307()\203I\324\325\326(G\327V\203C\325\330(G\"\202D\331\"!\203\233\332(\333#\212(\203\220\334(@!\210(@\f>\204\207\335(@*\"\210(@+\336\337+,\"8-\340\341\323-\307\211&\210*(A\211(\204V)\f\203\233\342\343\344\f#\210\345 \210\346\347!\210\f+\207" [gnus-newsgroup-name group func n not-deleted nnmail-expiry-target request-expire-articles nil (byte-code ";\203\f\303!@\202
\304	!\204\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) error "The current newsgroup does not support article deletion" gnus-check-server gnus-find-method-for-group "Couldn't open server" sort copy-sequence gnus-summary-work-articles < delete gnus-yes-or-no-p format "Do you really want to delete %s forever? " 1 "these %s articles" "this article" gnus-request-expire-articles force gnus-summary-remove-process-mark gnus-summary-mark-article 3 assoc run-hook-with-args gnus-summary-article-delete-hook gnus-message 4 "Couldn't delete articles %s" gnus-summary-position-point gnus-set-mode-line summary articles gnus-novice-user gnus-canceled-mark article gnus-newsgroup-data ghead] 8 (#$ . 338700) "P"])
#@339 Edit the current article.
This will have permanent effect only in mail groups.
If ARG is nil, edit the decoded articles.
If ARG is 1, edit the raw articles.
If ARG is 2, edit the raw articles even in read-only groups.
If ARG is 3, edit the articles with the current handles.
Otherwise, allow editing of articles even in read-only
groups.
(defalias 'gnus-summary-edit-article #[(&optional arg) "\306\211\211\203G\307=\203\310\202G\311=\203\"\310\211\202G\312=\203E\f\211\2053\313\314
!!)\205Ar\fq\2101\3061)\202G\310	\203\\\n\204\\2\315\235\203\\\316\3172\"\210r3q\21045$ \320 \210\n\204y\321 \203y\316\322!\210\323\310!\210	\204\230\f\211\205\214\313\314
!!)\203\230r\fq\210\324 \210)2\325\235\203\241\310\326	\203\252\327\202\273\330\306\331\332\333\331\334\335\300DE\336BBBBE\330\337\331\340\3414DD\342\343\344\3415DD\345\341\346\3472!2\"6\350\3516B\3526B\3536BE%\")DD\257	?\205\364\354\3557\356H\206\375\357\321 3\360BBBBFE\".\207" [current-handles raw force arg gnus-article-buffer buffer nil 1 t 2 3 buffer-live-p get-buffer ("nndraft:delayed" "nndraft:drafts" "nndraft:queue") error "Can't edit the raw article in group %s" gnus-set-global-variables gnus-group-read-only-p "The current newsgroup does not support article editing" gnus-summary-show-article mm-enable-multibyte ("nndraft:delayed" "nndraft:drafts") gnus-article-edit-article ignore lambda let ((mbl mml-buffer-list)) (setq mml-buffer-list nil) ((rfc2047-quote-decoded-words-containing-tspecials t)) mime-to-mml ((let ((mbl1 mml-buffer-list)) (setq mml-buffer-list mbl) (set (make-local-variable 'mml-buffer-list) mbl1)) (gnus-make-local-hook 'kill-buffer-hook) (add-hook 'kill-buffer-hook 'mml-destroy-buffers t t)) (no-highlight) mail-parse-charset quote (message-options message-options) (message-options-set-recipient) mail-parse-ignored-charsets rfc2047-header-encoding-alist gnus-group-name-charset gnus-find-method-for-group append "Newsgroups" "Followup-To" "Xref" (progn (mml-to-mime) (mml-destroy-buffers) (remove-hook 'kill-buffer-hook 'mml-destroy-buffers t) (kill-local-variable 'mml-buffer-list)) gnus-summary-edit-article-done 5 "" (no-highlight) gnus-article-mime-handles gnus-newsgroup-name gnus-summary-buffer gnus-newsgroup-charset gnus-newsgroup-ignored-charsets charset gnus-current-headers] 17 (#$ . 340476) "P"])
(defalias 'gnus-summary-edit-article-postpone 'gnus-article-edit-exit)
#@46 Make edits to the current article permanent.
(defalias 'gnus-summary-edit-article-done #[(&optional references read-only buffer no-highlight) "\212\306 \203X\307`d\"d`Z\310\311`!eb\210\312\313\310#\203+\314\224\314\225|\210\315\n!c\210eb\210\312\316\310#\203A\314\224\314\225|\210\315\n!c\210eb\210\312\317\310#\203W\314\224\314\225|\210\315!c\210,)p\fA\32012\321\322!3r3q\210\323\216\3242!\2104\204\213\3251\f@p\310$\211\204\213\326\327!\202b

\247\203\254r5q\210\33016\"6\3316!\210
1\3321\310\"\210)7\203%
\3337\334\"\333\335\336!\206\276\337\334\"\232\203%
\212\214\340 \210\341ed\"\32089\321\322!:r:q\210\342\216\343\3441\"c\2109c\210\345c\210p;\346\320\310\"@8)r5q\210\3471<\236\233\211=8\240\210)\35018\"\210\3321\320\310#\203 
\3511!\210.\202A
>\206,
5q\210\3521!\210\3321\320\310#\203A
\3511!\210?\204X
r@q\210Aq\210\3531\f@p#\210)\354\355\356\"\205b
\357\360!.\207" [body case-fold-search length lines gnus-article-current replace-result article-goto-body count-lines t copy-marker re-search-forward "^content-length:[ 	]\\([0-9]+\\)" 1 number-to-string "^x-content-length:[ 	]\\([0-9]+\\)" "^lines:[ 	]\\([0-9]+\\)" nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-buffer-substring gnus-request-replace-article error "Couldn't replace article" delq gnus-summary-limit gnus-summary-goto-subject message-tokenize-header " " message-fetch-field "references" "" message-narrow-to-head buffer-substring-no-properties ((byte-code "\301!\203\n\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) format "211 %d Article retrieved.\n" ".\n" gnus-get-newsgroup-headers 3 gnus-summary-update-article-line gnus-summary-update-secondary-mark gnus-summary-update-article gnus-request-article gnus-visual-p summary-highlight highlight gnus-run-hooks gnus-visual-mark-article-hook article buf #1# read-only gnus-summary-buffer gnus-newsgroup-limit references header head #2# nntp-server-buffer gnus-newsgroup-data #3=#:c buffer no-highlight gnus-article-buffer gnus-original-article-buffer] 6 (#$ . 342919) nil])
#@52 Perform editing command KEY in the article buffer.
(defalias 'gnus-summary-edit-wash #[(key) "\301\302!\210\303 \210\304\305 P!\210\306 \207" [key message "" gnus-summary-edit-article execute-kbd-macro this-command-keys gnus-article-edit-done] 3 (#$ . 345095) (list (progn (message "%s" (concat (this-command-keys) "- ")) (read-char)))])
#@59 Query where the respool algorithm would put this article.
(defalias 'gnus-summary-respool-query #[(&optional silent trace) "\305\306 \210r	q\210\307\310\n\"\f?\205(\203#\311\312\313\314\315#\"\210\202'\311\316!\210+\207" [gnus-mark-article-hook gnus-original-article-buffer trace groups silent nil gnus-summary-select-article nnmail-article-group identity message "This message would go to %s" mapconcat car ", " "This message would go to no groups"] 6 (#$ . 345440) nil])
#@128 Trace where the respool algorithm would put this article.
Display a buffer showing all fancy splitting patterns which matched.
(defalias 'gnus-summary-respool-trace #[nil "\300\301\302\"\207" [gnus-summary-respool-query nil t] 3 (#$ . 345928) nil])
#@163 Mark articles which has the same subject as read, and then select the next.
If UNMARK is positive, remove any kind of mark.
If UNMARK is negative, tick articles.
(defalias 'gnus-summary-kill-same-subject-and-select #[(&optional unmark) "\203\306!\307\310\311`\312\"\211\203\313	!\210)\311`\314\"\206!\315 \n\2368\211\2052\316!\2052\317H)\"\320\321
\205f\310\311`\312\"\211\203J\313	!\210)\311`\314\"\206T\315 \n\2368\211\205e\316!\205e\317H)\"\210\322\323\324\f\211\317U\203v\325\202w\326\203\327\202\200\330%)\207" [unmark to gnus-newsgroup-data headers count gnus-auto-select-same prefix-numeric-value gnus-summary-mark-same-subject 3 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject vectorp 1 gnus-summary-next-article t gnus-message 7 "%d article%s marked as %s" " is" "s are" "unread" "read"] 7 (#$ . 346184) "P"])
#@137 Mark articles which has the same subject as read.
If UNMARK is positive, remove any kind of mark.
If UNMARK is negative, tick articles.
(defalias 'gnus-summary-kill-same-subject #[(&optional unmark) "\203\305!\306\307\310`\311\"\211\203\312	!\210)\310`\313\"\206!\314 \n\2368\211\2052\315!\2052\316H)\"\204?\317\316\320\"\210\321\322\323\f\203K\324\202L\325$)\207" [unmark to gnus-newsgroup-data headers count prefix-numeric-value gnus-summary-mark-same-subject 3 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject vectorp 1 gnus-summary-next-subject t gnus-message 7 "%d articles are marked as %s" "unread" "read"] 6 (#$ . 347091) "P"])
#@210 Mark articles with same SUBJECT as read, and return marked number.
If optional argument UNMARK is positive, remove any kinds of marks.
If optional argument UNMARK is negative, mark articles as unread instead.
(defalias 'gnus-summary-mark-same-subject #[(subject &optional unmark) "\306\212	\204\307\n!\210\310 \210\311!\203FT\202	\312V\2033\313\f!\210\310 \210\311!\203FT\202 \313
!\210\310 \210\311!\203FT\2023\314\315!\210*\207" [count unmark gnus-killed-mark subject gnus-ticked-mark gnus-unread-mark 1 gnus-summary-mark-article-as-read gnus-summary-show-thread gnus-summary-find-subject 0 gnus-summary-mark-article-as-unread gnus-set-mode-line summary] 2 (#$ . 347804)])
#@223 Set the process mark on the next N articles.
If N is negative, mark backward instead.  If UNMARK is non-nil, remove
the process mark instead.  The difference between N and the actual
number of articles marked is returned.
(defalias 'gnus-summary-mark-as-processable #[(n &optional unmark) "\204\304 \203\305\306 \307 	#\207\310!\211\311W\312!\311V\203x	\203C\313\314`\315\"\211\2035\316!\210)\314`\317\"\206?\320 !\202\\\321\314`\315\"\211\203Q\316!\210)\314`\317\"\206[\320 !\203x\322\323\n\203i\324\202j\325\326\327#!\203xS\211\202\311U\204\203\330\331\332\"\210\333 \210\334 \210*\207" [n unmark backward to gnus-region-active-p gnus-uu-mark-region region-beginning region-end prefix-numeric-value 0 abs gnus-summary-remove-process-mark get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-set-process-mark zerop gnus-summary-next-subject -1 1 nil t gnus-message 7 "No more articles" gnus-summary-recenter gnus-summary-position-point] 6 (#$ . 348507) "P"])
#@176 Remove the process mark from the next N articles.
If N is negative, unmark backward instead.  The difference between N and
the actual number of articles unmarked is returned.
(defalias 'gnus-summary-unmark-as-processable #[(n) "\301\302\"\207" [n gnus-summary-mark-as-processable t] 3 (#$ . 349565) "P"])
#@44 Remove the process mark from all articles.
(defalias 'gnus-summary-unmark-all-processable #[nil "\212\203
\301@!\210\202
)\302 \207" [gnus-newsgroup-processable gnus-summary-remove-process-mark gnus-summary-position-point] 2 (#$ . 349877) nil])
#@35 Mark ARTICLE with a mark of TYPE.
(defalias 'gnus-summary-add-mark #[(article type) "	\236@\306\211\204\307\310\"\2020\311\312\313\"!\211\f\nJBL\210\314>\203,\315\f!\2020\316
\317\"*\207" [type gnus-article-mark-lists var vtype article gnus-del-mark nil error "No such mark type: %s" intern format "gnus-newsgroup-%s" (processable cached replied forwarded recent saved) gnus-summary-update-secondary-mark gnus-summary-update-mark unread] 5 (#$ . 350132)])
#@160 Mark N articles forward as expirable.
If N is negative, mark backward instead.  The difference between N and
the actual number of articles marked is returned.
(defalias 'gnus-summary-mark-as-expirable #[(n) "\302	\"\207" [n gnus-expirable-mark gnus-summary-mark-forward] 3 (#$ . 350607) "p"])
#@155 Mark N articles forward as spam.
If N is negative, mark backward instead.  The difference between N and
the actual number of articles marked is returned.
(defalias 'gnus-summary-mark-as-spam #[(n) "\302	\"\207" [n gnus-spam-mark gnus-summary-mark-forward] 3 (#$ . 350908) "p"])
#@97 Mark ARTICLE as replied to and update the summary line.
ARTICLE can also be a list of articles.
(defalias 'gnus-summary-mark-article-as-replied #[(article) "<\203	\202C\211\305\211\205<\n@\211\247\204!\306\307\"\210B\310\311\305\310#\2033\312!\210)\nA\211\204\305+\207" [article articles --dolist-tail-- gnus-newsgroup-replied inhibit-read-only nil error "%s is not a number" t gnus-summary-goto-subject gnus-summary-update-secondary-mark] 5 (#$ . 351193) (list (progn (let ((to (get-text-property (point) 'gnus-intangible))) (and to (gnus-summary-goto-subject to))) (or (get-text-property (point) 'gnus-number) (gnus-summary-last-subject))))])
#@96 Mark ARTICLE as forwarded and update the summary line.
ARTICLE can also be a list of articles.
(defalias 'gnus-summary-mark-article-as-forwarded #[(article) "<\203	\202C\211\305\211\2052\n@\211B\306\307\305\306#\203)\310!\210)\nA\211\204\305+\207" [article articles --dolist-tail-- gnus-newsgroup-forwarded inhibit-read-only nil t gnus-summary-goto-subject gnus-summary-update-secondary-mark] 5 (#$ . 351867)])
#@36 Set a bookmark in current article.
(defalias 'gnus-summary-set-bookmark #[(article) "\306!\203	\203\n\203\n@\232\204\307\310!\210\311\f
\236
\"\frq\210\312`\212\313 \210`)^`\")B
B\314\315\316\"\207" [gnus-article-buffer gnus-current-article gnus-article-current gnus-newsgroup-name article gnus-newsgroup-bookmarks get-buffer error "No current article selected" delq count-lines article-goto-body gnus-message 6 "A bookmark has been added to the current article."] 4 (#$ . 352304) (list (progn (let ((to (get-text-property (point) 'gnus-intangible))) (and to (gnus-summary-goto-subject to))) (or (get-text-property (point) 'gnus-number) (gnus-summary-last-subject))))])
#@47 Remove the bookmark from the current article.
(defalias 'gnus-summary-remove-bookmark #[(article) "	\236\204\302\303\304\"\207\305	\236	\"\302\303\306\"\207" [article gnus-newsgroup-bookmarks gnus-message 6 "No bookmark in current article." delq "Removed bookmark."] 3 (#$ . 352993) (list (progn (let ((to (get-text-property (point) 'gnus-intangible))) (and to (gnus-summary-goto-subject to))) (or (get-text-property (point) 'gnus-number) (gnus-summary-last-subject))))])
#@158 Mark N articles forward as dormant.
If N is negative, mark backward instead.  The difference between N and
the actual number of articles marked is returned.
(defalias 'gnus-summary-mark-as-dormant #[(n) "\302	\"\207" [n gnus-dormant-mark gnus-summary-mark-forward] 3 (#$ . 353477) "p"])
#@62 Set the process mark on ARTICLE and update the summary line.
(defalias 'gnus-summary-set-process-mark #[(article) "\302	\"B\303!\205\304 \210\303!\210\305!\207" [article gnus-newsgroup-processable delq gnus-summary-goto-subject gnus-summary-show-thread gnus-summary-update-secondary-mark] 4 (#$ . 353771)])
#@68 Remove the process mark from ARTICLES and update the summary line.
(defalias 'gnus-summary-remove-process-mark #[(&rest articles) "\304\211\203(\n@\305	\"\306	!\203!\307 \210\306	!\210\310	!\210\nA\211\204*\311\207" [articles article --dolist-tail-- gnus-newsgroup-processable nil delq gnus-summary-goto-subject gnus-summary-show-thread gnus-summary-update-secondary-mark t] 4 (#$ . 354092)])
#@62 Set the process mark on ARTICLE and update the summary line.
(defalias 'gnus-summary-set-saved-mark #[(article) "	B\302!\205
\303!\207" [article gnus-newsgroup-saved gnus-summary-goto-subject gnus-summary-update-secondary-mark] 2 (#$ . 354502)])
#@233 Mark N articles as read forwards.
If N is negative, mark backwards instead.  Mark with MARK, ?r by default.
The difference between N and the actual number of articles marked is
returned.
If NO-EXPIRE, auto-expiry will be inhibited.
(defalias 'gnus-summary-mark-forward #[(n &optional mark no-expire) "\306 \210\307W	\205	\310=?\205\n\f
F>?\311!\n\206#\307V\203X\312\313\n#\203X\314\315\203B\316\202C\317	\205K	\310=?\320#!\203XS\211\202)\307U\204l\321\322\323\n\203i\324\202j\325#\210\326 \210\327 \210\330\331!\210,\207" [n gnus-summary-goto-unread mark gnus-unread-mark gnus-spam-mark gnus-ticked-mark gnus-summary-show-thread 0 never abs gnus-summary-mark-article nil zerop gnus-summary-next-subject -1 1 t gnus-message 7 "No more %sarticles" "" "unread " gnus-summary-recenter gnus-summary-position-point gnus-set-mode-line summary gnus-dormant-mark gnus-del-mark backward no-expire] 7 (#$ . 354760) "p"])
#@53 Mark the current article quickly as read with MARK.
(defalias 'gnus-summary-mark-article-as-read #[(mark) "\306`\307\"\211\203
\310!\210)\306`\311\"\206\312 \313	\n\"\313	\"\313	\f\"\313	
\"	BB\203>\314	!\210\315	#\203g>\203g\315	#	B\316\317\"\210)\320\207" [to article gnus-newsgroup-unreads gnus-newsgroup-marked gnus-newsgroup-spam-marked gnus-newsgroup-dormant get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject delq gnus-cache-enter-remove-article gnus-request-update-mark gnus-summary-update-mark unread t mark gnus-newsgroup-reads gnus-use-cache gnus-newsgroup-name gnus-newsgroup-auto-expire gnus-auto-expirable-marks gnus-expirable-mark gnus-newsgroup-expirable] 5 (#$ . 355712)])
#@55 Mark the current article quickly as unread with MARK.
(defalias 'gnus-summary-mark-article-as-unread #[(mark) "\306`\307\"\211\203
\310!\210)\306`\311\"\206\312 \211\n\236A@\313\f	
#\211=\203.\314\202\323	\315X\203=\316\317\320\"\210\321\202\323\322	\"\322	\"\322	\"\322	\"\322	\"\322	\"
U\203x\323	\"\202\241
 U\203\211\323	\"\202\241
!U\203\232\323	\"\202\241\323	\"\322	\236\"\"\203\315\324\325	\n\2368!\203\315\212\326\f	
U
!U
#U%\210)\327
\330\"\210\314*\207" [to article gnus-newsgroup-data old-mark gnus-newsgroup-name mark get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-request-update-mark t 0 gnus-error 1 "Can't mark negative article numbers" nil delq gnus-add-to-sorted-list vectorp 3 gnus-cache-possibly-enter-article gnus-summary-update-mark unread gnus-newsgroup-marked gnus-newsgroup-spam-marked gnus-newsgroup-dormant gnus-newsgroup-expirable gnus-newsgroup-reads gnus-newsgroup-unreads gnus-ticked-mark gnus-spam-mark gnus-dormant-mark gnus-use-cache gnus-unread-mark] 8 (#$ . 356505)])
#@326 Mark ARTICLE with MARK.  MARK can be any character.
Four MARK strings are reserved: `? ' (unread), `?!' (ticked),
`??' (dormant) and `?E' (expirable).
If MARK is nil, then the default character `?r' is used.
If ARTICLE is nil, then the article on the current line will be
marked.
If NO-EXPIRE, auto-expiry will be inhibited.
(defalias 'gnus-summary-mark-article #[(&optional article mark no-expire) ";\203	\306H\204	\n\204\203\f>\203
\206=\307`\310\"\211\2033\311!\210)\307`\312\"\206=\313 \236A@\314#\211=\203[\315\202\327\204d\316\317!\210U\204\200U\204\200 U\204\200!U\203\210\320\"\202\215\321\"\204\224\315\202\327\"\203\301#U\204\301\322\323\2368!\203\301\212\324U!UU%\210)\311\325\315#\205\327\315$\326 \210\327\330\"\210)\315*\207" [mark gnus-del-mark no-expire gnus-newsgroup-auto-expire gnus-auto-expirable-marks gnus-expirable-mark 0 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-request-update-mark t error "No article on current line" gnus-mark-article-as-unread gnus-mark-article-as-read vectorp 3 gnus-cache-possibly-enter-article nil gnus-summary-show-thread gnus-summary-update-mark unread article to gnus-newsgroup-data old-mark gnus-newsgroup-name gnus-unread-mark gnus-ticked-mark gnus-spam-mark gnus-dormant-mark gnus-use-cache gnus-canceled-mark inhibit-read-only] 8 (#$ . 357648)])
#@51 Update the secondary (read, process, cache) mark.
(defalias 'gnus-summary-update-secondary-mark #[(article) "\306	>\203\n\202F>\203\f\202F
>\203 \202F>\203,\202F>\2038\202F>\203D\202F\307\"\210\310\311\312\"\203W\313 \210\314\315!\210\316\207" [article gnus-newsgroup-processable gnus-process-mark gnus-newsgroup-cached gnus-cached-mark gnus-newsgroup-replied gnus-summary-update-mark replied gnus-visual-p summary-highlight highlight gnus-summary-highlight-line gnus-run-hooks gnus-summary-update-hook t gnus-replied-mark gnus-newsgroup-forwarded gnus-forwarded-mark gnus-newsgroup-saved gnus-saved-mark gnus-newsgroup-unseen gnus-unseen-mark gnus-no-mark] 3 (#$ . 359113)])
#@27 Update the download mark.
(defalias 'gnus-summary-update-download-mark #[(article) "\306	>\203\n\202\203\f\202
\307\"\210\310\311!\210\311\207" [article gnus-newsgroup-undownloaded gnus-undownloaded-mark gnus-newsgroup-agentized gnus-downloaded-mark gnus-no-mark gnus-summary-update-mark download gnus-summary-update-line t] 3 (#$ . 359833)])
(defalias 'gnus-summary-update-mark #[(mark type) "	\236A\306\307\310\311 \312#\210\205g\313\314!\203T`\\dX\205g`\\b\210\315\316f\f``T{#``T|\210
c\210)\317=\205g\320`\321\"\211\203P\322!\210)\320`\323\"\206Z\324 \236A\f\240\210\325\f=!*\207" [type gnus-summary-mark-positions inhibit-read-only forward mark to-insert t re-search-backward "[\n
]" point-at-bol move-to-limit looking-at "
" mm-subst-char-in-string nil unread get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-update-line to gnus-newsgroup-data gnus-unread-mark] 6])
#@65 Enter ARTICLE in the pertinent lists and remove it from others.
(defalias 'gnus-mark-article-as-read #[(article &optional mark) "\206	\211\nU\203\306\f\"\202\307\f\"\307\f
\"\307\f\n\"\n\307\f\"\307\f\f\"\f\fB
B
\203C\310\f!\210)\311\207" [mark gnus-del-mark gnus-expirable-mark gnus-newsgroup-expirable article gnus-newsgroup-unreads gnus-add-to-sorted-list delq gnus-cache-enter-remove-article t gnus-newsgroup-marked gnus-newsgroup-spam-marked gnus-newsgroup-dormant gnus-newsgroup-reads gnus-use-cache] 4 (#$ . 360808)])
#@65 Enter ARTICLE in the pertinent lists and remove it from others.
(defalias 'gnus-mark-article-as-unread #[(article &optional mark) "\206	\n\306X\203\307\310\311\"\210\312\202y\313\n\"\313\n\f\"\313\n
\"\313\n\"\313\n\"\203;\314\n!\210	U\203I\315\n\"\202nU\203X\315\f\n\"\202nU\203g\315
\n\"\202n\315\n\"\313\n\236\"\316)\207" [mark gnus-ticked-mark article gnus-newsgroup-marked gnus-newsgroup-spam-marked gnus-newsgroup-dormant 0 gnus-error 1 "Can't mark negative article numbers" nil delq gnus-dup-unsuppress-article gnus-add-to-sorted-list t gnus-newsgroup-expirable gnus-newsgroup-unreads gnus-suppress-duplicates gnus-spam-mark gnus-dormant-mark gnus-newsgroup-reads] 3 (#$ . 361365)])
#@141 Tick N articles forwards.
If N is negative, tick backwards instead.
The difference between N and the number of articles ticked is returned.
(defalias 'gnus-summary-tick-article-forward #[(n) "\302	\"\207" [n gnus-ticked-mark gnus-summary-mark-forward] 3 (#$ . 362111) "p"])
#@100 Tick N articles backwards.
The difference between N and the number of articles ticked is returned.
(defalias 'gnus-summary-tick-article-backward #[(n) "\302[	\"\207" [n gnus-ticked-mark gnus-summary-mark-forward] 3 (#$ . 362393) "p"])
#@171 Mark current article as unread.
Optional 1st argument ARTICLE specifies article number to be marked as unread.
Optional 2nd argument CLEAR-MARK remove any kinds of mark.
(defalias 'gnus-summary-tick-article #[(&optional article clear-mark) "\304	\203\n\n\202\"\207" [article clear-mark gnus-unread-mark gnus-ticked-mark gnus-summary-mark-article] 3 (#$ . 362636) nil])
#@156 Mark N articles as read forwards.
If N is negative, mark backwards instead.
The difference between N and the actual number of articles marked is
returned.
(defalias 'gnus-summary-mark-as-read-forward #[(n) "\303	\n#\207" [n gnus-del-mark gnus-inhibit-user-auto-expire gnus-summary-mark-forward] 4 (#$ . 363017) "p"])
#@119 Mark the N articles as read backwards.
The difference between N and the actual number of articles marked is
returned.
(defalias 'gnus-summary-mark-as-read-backward #[(n) "\303[	\n#\207" [n gnus-del-mark gnus-inhibit-user-auto-expire gnus-summary-mark-forward] 4 (#$ . 363342) "p"])
#@152 Mark current article as read.
ARTICLE specifies the article to be marked as read.
MARK specifies a string to be inserted at the beginning of the line.
(defalias 'gnus-summary-mark-as-read #[(&optional article mark) "\302	\"\207" [article mark gnus-summary-mark-article] 3 (#$ . 363632)])
#@150 Clear marks from N articles forward.
If N is negative, clear backward instead.
The difference between N and the number of marks cleared is returned.
(defalias 'gnus-summary-clear-mark-forward #[(n) "\302	\"\207" [n gnus-unread-mark gnus-summary-mark-forward] 3 (#$ . 363928) "p"])
#@109 Clear marks from N articles backward.
The difference between N and the number of marks cleared is returned.
(defalias 'gnus-summary-clear-mark-backward #[(n) "\302[	\"\207" [n gnus-unread-mark gnus-summary-mark-forward] 3 (#$ . 364217) "p"])
#@50 Intended to be used by `gnus-mark-article-hook'.
(defalias 'gnus-summary-mark-unread-as-read #[nil "	>\205\n\303\n\"\207" [gnus-current-article gnus-newsgroup-unreads gnus-read-mark gnus-summary-mark-article] 3 (#$ . 364466)])
#@50 Intended to be used by `gnus-mark-article-hook'.
(defalias 'gnus-summary-mark-read-and-unread-as-read #[(&optional new-mark) "\306`\307\"\211\203
\310!\210)\306`\311\"\206\312 	\236A@\313\n!\204(\314\n!\2050\315\f\206/
\")\207" [to gnus-newsgroup-data mark gnus-current-article new-mark gnus-read-mark get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-unread-mark-p gnus-read-mark-p gnus-summary-mark-article] 4 (#$ . 364702)])
#@50 Intended to be used by `gnus-mark-article-hook'.
(defalias 'gnus-summary-mark-current-read-and-unread-as-read #[(&optional new-mark) "\305`\306\"\211\203
\307!\210)\305`\310\"\206\311 	\236A@\312\n!\204(\313\n!\205F\314\305`\306\"\211\2036\307!\210)\305`\310\"\206@\311 \206E\f\")\207" [to gnus-newsgroup-data mark new-mark gnus-read-mark get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-unread-mark-p gnus-read-mark-p gnus-summary-mark-article] 5 (#$ . 365199)])
#@50 Intended to be used by `gnus-mark-article-hook'.
(defalias 'gnus-summary-mark-unread-as-ticked #[nil "	>\205\n\303\n\"\207" [gnus-current-article gnus-newsgroup-unreads gnus-ticked-mark gnus-summary-mark-article] 3 (#$ . 365737)])
#@157 Mark all unread articles between point and mark as read.
If given a prefix, mark all articles between point and mark as read,
even ticked and dormant ones.
(defalias 'gnus-summary-mark-region-as-read #[(point mark all) "\212\306	b\210\307 \210`\nW\205?\2041\310`\311\"\211\203 \312\f!\210)\310`\313\"\206*\314 \211
>\2037\315\"\210\316 \205?\202	*\207" [article point mark all to gnus-newsgroup-unreads nil beginning-of-line get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-mark-article gnus-summary-find-next gnus-del-mark] 4 (#$ . 365978) "r\nP"])
#@53 Mark articles with score less than SCORE with MARK.
(defalias 'gnus-summary-mark-below #[(score mark) "\203\n\306!\202	\206\307r\nq\210eb\210\310`\311\"\211\203$\312!\210)\310`\313\"\206.\314 \f\236A\2069	\2069\307W\203C\315\316
\"\210\317 \205K\202)\207" [score gnus-summary-default-score gnus-summary-buffer to gnus-newsgroup-scored mark prefix-numeric-value 0 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-mark-article nil gnus-summary-find-next] 4 (#$ . 366610) "P\ncMark: "])
#@47 Mark articles with score below SCORE as read.
(defalias 'gnus-summary-kill-below #[(&optional score) "\302	\"\207" [score gnus-killed-mark gnus-summary-mark-below] 3 (#$ . 367181) "P"])
#@55 Clear all marks from articles with score above SCORE.
(defalias 'gnus-summary-clear-above #[(&optional score) "\302	\"\207" [score gnus-unread-mark gnus-summary-mark-above] 3 (#$ . 367374) "P"])
#@43 Tick all articles with score above SCORE.
(defalias 'gnus-summary-tick-above #[(&optional score) "\302	\"\207" [score gnus-ticked-mark gnus-summary-mark-above] 3 (#$ . 367576) "P"])
#@48 Mark articles with score over SCORE with MARK.
(defalias 'gnus-summary-mark-above #[(score mark) "\203\n\306!\202	\206\307r\nq\210eb\210\310`\311\"\211\203$\312!\210)\310`\313\"\206.\314 \f\236A\2069	\2069\307V\203C\315\316
\"\210\317 \205K\202)\207" [score gnus-summary-default-score gnus-summary-buffer to gnus-newsgroup-scored mark prefix-numeric-value 0 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-mark-article nil gnus-summary-find-next] 4 (#$ . 367765) "P\ncMark: "])
(defalias 'gnus-summary-show-all-expunged 'gnus-summary-limit-include-expunged)
#@68 Display all the hidden articles that were expunged for low scores.
(defalias 'gnus-summary-limit-include-expunged #[(&optional no-error) "\306	\307\211\211\203>\310\f\211@@)\2368\2047\311\f\211@@)!\211\2037\f\211@A)W\2037\nB\fA\211\204\f\204N?\205\211\312\313!\202\211eb\210B\314!\307\211\203|@\211\315HBA\211\204g*\316\237!\210eb\210\317 \210\306,\207" [inhibit-read-only gnus-newsgroup-scored h headers scored x t nil 3 gnus-number-to-header error "No expunged articles hidden" copy-sequence 0 gnus-summary-prepare-unthreaded gnus-summary-position-point gnus-newsgroup-data gnus-summary-expunge-below no-error gnus-newsgroup-limit gnus-newsgroup-limits --dolist-tail--] 4 (#$ . 368411) nil])
#@496 Mark all unread articles in this newsgroup as read.
If prefix argument ALL is non-nil, ticked and dormant articles will
also be marked as read.
If QUIETLY is non-nil, no questions will be asked.

If TO-HERE is non-nil, it should be a point in the buffer.  All
articles before (after, if REVERSE is set) this point will be marked
as read.

Note that this function will only catch up the unread article
in the current summary buffer limitation.

The number of articles marked as read is returned.
(defalias 'gnus-summary-catchup #[(&optional all quietly to-here not-mark reverse) "\212\204	\203\n\204\306\203\307\202\310!\205\250\f\203Y
\204Y\204Y\204Y\2039\311=\203Y\203F\312\211\312\313\314\"\315 \"\"\202\247\316 \210!\203~\"\203~!b\210\317#!\210\320?!\203\243\321#!\210\202o\322?!\203\243!\203\221`!W\202\222\323\203\243\321#!\203\243\320?!\204\205\324\325!\210\323)\326 \210\207" [quietly gnus-interactive-catchup gnus-expert-user all not-mark gnus-newsgroup-adaptive gnus-y-or-n-p "Mark absolutely all articles as read? " "Mark all unread articles as read? " passive nil gnus-sorted-nunion gnus-sorted-intersection gnus-sorted-difference gnus-summary-show-all-threads gnus-summary-mark-current-read-and-unread-as-read gnus-summary-find-next gnus-summary-mark-article-as-read gnus-summary-first-subject t gnus-set-mode-line summary gnus-summary-position-point gnus-newsgroup-auto-expire gnus-suppress-duplicates gnus-use-cache gnus-newsgroup-marked gnus-newsgroup-spam-marked gnus-newsgroup-dormant gnus-newsgroup-unreads gnus-newsgroup-downloadable gnus-newsgroup-unfetched gnus-newsgroup-cached to-here reverse gnus-catchup-mark] 6 (#$ . 369166) "P"])
#@126 Mark all unticked articles before the current one as read.
If ALL is non-nil, also mark ticked and dormant articles as read.
(defalias 'gnus-summary-catchup-to-here #[(&optional all) "\212\303 \304\216\212`\n\204\305 \203\306\n\307	#\210-\310 \207" [#1=#:config beg all gnus-hidden-threads-configuration ((gnus-restore-hidden-threads-configuration #1#)) gnus-summary-find-prev gnus-summary-catchup t gnus-summary-position-point] 4 (#$ . 370896) "P"])
#@141 Mark all unticked articles after (and including) the current one as read.
If ALL is non-nil, also mark ticked and dormant articles as read.
(defalias 'gnus-summary-catchup-from-here #[(&optional all) "\212\303 \304\216\212`\n\204\305 \203\306\n\307	\310\307%\210-\311 \207" [#1=#:config beg all gnus-hidden-threads-configuration ((gnus-restore-hidden-threads-configuration #1#)) gnus-summary-find-next gnus-summary-catchup t nil gnus-summary-position-point] 6 (#$ . 371360) "P"])
#@168 Mark all articles in this newsgroup as read.
This command is dangerous.  Normally, you want \[gnus-summary-catchup]
instead, which marks only unread articles as read.
(defalias 'gnus-summary-catchup-all #[(&optional quietly) "\301\302\"\207" [quietly gnus-summary-catchup t] 3 (#$ . 371853) "P"])
#@179 Mark all unread articles in this group as read, then exit.
If prefix argument ALL is non-nil, all articles are marked as read.
If QUIETLY is non-nil, no questions will be asked.
(defalias 'gnus-summary-catchup-and-exit #[(&optional all quietly) "\304	\305\306$\205\307\n!\204\301=\203\310\305!\207\311 \207" [all quietly gnus-newsgroup-name gnus-auto-select-next gnus-summary-catchup nil fast gnus-group-quit-config gnus-summary-next-group gnus-summary-exit] 5 (#$ . 372158) "P"])
#@192 Mark all articles in this newsgroup as read, and then exit.
This command is dangerous.  Normally, you want \[gnus-summary-catchup-and-exit]
instead, which marks only unread articles as read.
(defalias 'gnus-summary-catchup-all-and-exit #[(&optional quietly) "\301\302\"\207" [quietly gnus-summary-catchup-and-exit t] 3 (#$ . 372654) "P"])
#@141 Mark all articles in this group as read and select the next group.
If given a prefix, mark all articles, unread as well as ticked, as
read.
(defalias 'gnus-summary-catchup-and-goto-next-group #[(&optional all) "\212\301!\210)\302 \207" [all gnus-summary-catchup gnus-summary-next-group] 2 (#$ . 373001) "P"])
#@145 Mark all articles in this group as read and select the previous group.
If given a prefix, mark all articles, unread as well as ticked, as
read.
(defalias 'gnus-summary-catchup-and-goto-prev-group #[(&optional all) "\212\301!\210)\302\303\211\304#\207" [all gnus-summary-catchup gnus-summary-next-group nil t] 4 (#$ . 373318) "P"])
#@108 Select ARTICLE and perform FORMS in the original article buffer.
Then replace the article with the result.
(defalias 'gnus-with-article '(macro . #[(article &rest forms) "\302\303\304\305\306\211\307\257E\310\311	\312\313\314\315\316\317BB\320BBF\321B\"BBB\207" [article forms progn let (gnus-mark-article-hook) gnus-summary-select-article t nil (set-buffer gnus-original-article-buffer) append if (not (gnus-check-backend-function 'request-replace-article (car gnus-article-current))) (gnus-message 5 "Read-only group; not replacing") unless gnus-request-replace-article ((car gnus-article-current) (current-buffer) t) ((error "Couldn't replace article")) ((when gnus-keep-backlog (gnus-backlog-remove-article (car gnus-article-current) (cdr gnus-article-current))) (when gnus-use-cache (gnus-cache-update-article (car gnus-article-current) (cdr gnus-article-current))))] 12 (#$ . 373657)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put gnus-with-article lisp-indent-function 1 edebug-form-spec (form body)] 4)
#@142 Return a list of all articles in the current thread.
If ARTICLE is non-nil, return all articles in the thread that starts
with that article.
(defalias 'gnus-summary-articles-in-thread #[(&optional article) "\206\306`\307\"\211\203\310	!\210)\306`\311\"\206\312 \n\236>)\313\f@8\204O\314\f@8\315H\316\"\203I\317\225\320O\202K)\202b\321=\203a\322\314\f@8\315H!\202b\320\212\323\f@8b\210\324 \203t`\202ud)\320\f\203\341\323\f@8W\203\341\203\303\321=\203\242\322\314\f@8\315H!\202\277\314\f@8\315H\316\"\203\274\317\225\320O\202\276)\230\203\313\f@@B\fA\211\203\333\313\f@8
V\204{\320\211\204\237.\207" [article to gnus-newsgroup-data bdata data top-level get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 4 3 1 string-match 0 nil fuzzy gnus-simplify-subject-fuzzy 2 gnus-summary-go-to-next-thread gnus-thread-operation-ignore-subject subject message-subject-re-regexp top-subject end-point articles] 5 (#$ . 374695)])
#@53 Rethread the thread the current article is part of.
(defalias 'gnus-summary-rethread-current #[nil "\306\307`\310\"\211\203\311	!\210)\307`\312\"\206\313 \314\307`\310\"\211\203(\311	!\210)\307`\312\"\2062\313 \2368\315H\316\317\f!!C\f\204G\320\321!\210\322\f!\210\311\n!,\207" [gnus-show-threads to article gnus-newsgroup-data id gnus-newsgroup-threads t get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 4 gnus-id-to-thread gnus-root-id error "No article on the current line" gnus-rebuild-thread] 5 (#$ . 375746) nil])
#@202 Make the current article child of the marked (or previous) article.

Note that the re-threading will only work if `gnus-thread-ignore-subject'
is non-nil or the Subject: of both articles are the same.
(defalias 'gnus-summary-reparent-thread #[nil "\304 \203	\305\306!\210G\307X\204\305\310!\210\311`\312\"\211\203!\313	!\210)\311`\314\"\206+\315 \2034@\202Z\212\316y\317=\203V\311`\312\"\211\203I\313	!\210)\311`\314\"\206Y\315 \202Y\305\320!)\321\nC\"*\207" [gnus-newsgroup-processable to parent child gnus-group-read-only-p error "The current newsgroup does not support article editing" 1 "No more than one article may be marked" get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject -1 0 "Beginning of summary buffer" gnus-summary-reparent-children] 5 (#$ . 376338) nil])
#@140 Make PARENT the parent of CHILDREN.
When called interactively, PARENT is the current article and CHILDREN
are the process-marked articles.
(defalias 'gnus-summary-reparent-children #[(parent children) "\306\211\205\341\n@\307 \310\216\311
	=\203\312\313!\210\314
*\2368\315H\211+\2031+\316\232\2035\312\317!\210\306,\320\321\211\306	$\210)-q\210\214eb\210\322 \210\323\324\306\321#\203h\323\325\306\321#\210\326y\210\306\210\327+\261\210\202o\330+\331\261\210)\332.@/0\306\333\334\217*\204\210\335\336\337\"\210\202\227\340	.@p\321$\204\227\312\341!\2101\203\245\342.@.A\"\2102\203\263\343.@.A\"\2103q\210\344 \210\345	!\210\346.A\306\321#\203\316\347.A!\210\350 \210\335\314\351	
$\210,\nA\211\204\306*\207" [children child --dolist-tail-- #1=#:wconfig gnus-article-buffer parent nil current-window-configuration ((set-window-configuration #1#)) " *reparent*" error "An article may not be self-referential" 3 4 "" "No message-id in desired parent" gnus-summary-select-article t message-narrow-to-head re-search-forward "^References: " "^[^ 	]" -1 " " "References: " "\n" request-replace-article (byte-code ";\203\f\303!@\202
\304	!\204\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) gnus-message 5 "Read-only group; not replacing" gnus-request-replace-article "Couldn't replace article" gnus-backlog-remove-article gnus-cache-update-article gnus-summary-unmark-all-processable gnus-summary-update-article gnus-summary-goto-subject gnus-summary-update-secondary-mark gnus-summary-rethread-current "Article %d is now the child of article %d" gnus-newsgroup-data message-id gnus-mark-article-hook gnus-original-article-buffer gnus-article-current group func gnus-keep-backlog gnus-use-cache gnus-summary-buffer] 6 (#$ . 377183) (list (progn (let ((to (get-text-property (point) 'gnus-intangible))) (and to (gnus-summary-goto-subject to))) (or (get-text-property (point) 'gnus-number) (gnus-summary-last-subject))) (gnus-summary-work-articles nil))])
#@103 Toggle showing conversation threads.
If ARG is positive number, turn showing conversation threads on.
(defalias 'gnus-summary-toggle-threads #[(&optional arg) "\305`\306\"\211\203
\307!\210)\305`\310\"\206\311 \206	\204%\f?\202*\312!\313V\314 \210\307\n!\210\315\316\317\f\203=\320\202>\321#\210\322 )\207" [to gnus-newsgroup-end current arg gnus-show-threads get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject prefix-numeric-value 0 gnus-summary-prepare gnus-message 6 "Threading is now %s" "on" "off" gnus-summary-position-point] 5 (#$ . 379289) "P"])
(byte-code "\300\301!\203\302\303\301\"\210\202\302\303\304\"\210\300\207" [fboundp remove-overlays defalias gnus-remove-overlays #[(beg end name val) "\306	\"\307\211\205#@\310\n\f\"
=\203\311\n!\210A\211\204\307*\207" [beg end ov --dolist-tail-- name val gnus-overlays-in nil gnus-overlay-get gnus-delete-overlay] 4 "Clear BEG and END of overlays whose property NAME has value VAL.\nFor compatibility with XEmacs."]] 3)
#@19 Show all threads.
(defalias 'gnus-summary-show-all-threads #[nil "\300ed\301\302$\210\303 \207" [gnus-remove-overlays invisible gnus-sum gnus-summary-position-point] 5 (#$ . 380349) nil])
(defalias 'gnus-summary--inv #[(p) "\301\302\"\303=\205\n\207" [p get-char-property invisible gnus-sum] 3])
(put 'gnus-summary--inv 'byte-optimizer 'byte-compile-inline-expand)
#@71 Show thread subtrees.
Returns nil if no thread was there to be shown.
(defalias 'gnus-summary-show-thread #[nil "`\305 \211\306\n\307\"\310=\205\n)\206#	S\306\n\307\"\310=\205\"\n)\311 \210o\203/`\2021`S	\205X\312\313!\203G\313	\307\"\206Xd\202X\314\210m\204W\306`\307\"\310=\204G`\211\205k\315\f\307\310$\210b\210\316 \210\f-\207" [orig end p beg eoi point-at-eol get-char-property invisible gnus-sum beginning-of-line fboundp next-single-char-property-change 2 gnus-remove-overlays gnus-summary-position-point] 6 (#$ . 380723) nil])
#@55 If requested, hide the threads that should be hidden.
(defalias 'gnus-summary-maybe-hide-threads #[nil "\205	\205\302	:\204\303	!\205\304	!!\207" [gnus-show-threads gnus-thread-hide-subtree gnus-summary-hide-all-threads functionp gnus-make-predicate] 3 (#$ . 381287)])
(defalias 'gnus-article-unread-p #[(header) "\302H	>\207" [header gnus-newsgroup-unreads 0] 2])
(defalias 'gnus-article-unseen-p #[(header) "\302H	>\207" [header gnus-newsgroup-unseen 0] 2])
#@77 Map PREDICATE over ARTICLES and return non-nil if any predicate is non-nil.
(defalias 'gnus-map-articles #[(predicate articles) "\302\303\304\304\305	\"\"\"\207" [predicate articles apply gnus-or mapcar #[(number) "\302	\2368\207" [number gnus-newsgroup-data 3] 3]] 7 (#$ . 381764)])
#@109 Hide all thread subtrees.
If PREDICATE is supplied, threads that satisfy this predicate
will not be hidden.
(defalias 'gnus-summary-hide-all-threads #[(&optional predicate) "\212eb\210\303\304\211\2048T\305\306\307\"!\203\310\311\"\210\n\203)\312\n\313 \"\203,\314 \210\305\315\316\317\"!?\211\203\f+\320 \207" [count end predicate nil 0 zerop mod 1000 message "Hiding all threads... %d" gnus-map-articles gnus-summary-article-children gnus-summary-hide-thread gnus-summary-next-thread 1 t gnus-summary-position-point] 5 (#$ . 382057) nil])
#@156 Hide thread subtrees.
If PREDICATE is supplied, threads that satisfy this predicate
will not be hidden.
Returns nil if no threads were there to be hidden.
(defalias 'gnus-summary-hide-thread #[nil "`\305 \306`\307\"\211\203\310!\210)\306`\311\"\206\312 \211b\210m?\205z\313\314\315\316\"!\2043db\205z`V\203v\317\320\316#\203v`\nV\203c\321\n`\322\323$\210\324\n`\325\316\325%\326\f\322\323#\210\326\f\327\316#\210)\310	!\210`V\205z\330\331!\210db\202zb\210\325+\207" [to article starteol start ol line-end-position get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject zerop gnus-summary-next-thread 1 t search-backward "\n" gnus-remove-overlays invisible gnus-sum gnus-make-overlay nil gnus-overlay-put evaporate message "Hiding the thread moved us backwards, aborting!"] 7 (#$ . 382618) nil])
#@169 Go to the same level (or less) next thread.
If PREVIOUS is non-nil, go to previous thread instead.
Return the article number moved to, or nil if moving was impossible.
(defalias 'gnus-summary-go-to-next-thread #[(&optional previous) "\306=\203\307`\310\"\203\311\202,\312\307`\310\"\211\203\313	!\210)\307`\314\"\206)\315 \n\2368\2034\316\2025\317`
y\210m\204y\306=\203T\307`\310\"\203T\311\202o\312\307`\310\"\211\203b\313	!\210)\307`\314\"\206l\315 \n\2368W\203y
y\210\202=m\203\204\fb\210\320\202\240`\307`\310\"\211\203\223\313	!\210)\307`\314\"\206\235\315 \fb\210+\207" [gnus-summary-make-false-root to gnus-newsgroup-data previous beg way dummy get-text-property gnus-intangible 0 4 gnus-summary-goto-subject gnus-number gnus-summary-last-subject -1 1 nil level] 6 (#$ . 383485)])
#@190 Go to the same level next N'th thread.
If N is negative, search backward instead.
Returns the difference between N and the number of skips actually
done.

If SILENT, don't output messages.
(defalias 'gnus-summary-next-thread #[(n &optional silent) "\303W\304!\303V\203\305	!\203S\211\202	\n\204\"\306 \210\n\2041\303U\2041\307\310\311\"\210*\207" [n backward silent 0 abs gnus-summary-go-to-next-thread gnus-summary-position-point gnus-message 7 "No more threads"] 4 (#$ . 384315) "p"])
#@116 Go to the same level previous N'th thread.
Returns the difference between N and the number of skips actually
done.
(defalias 'gnus-summary-prev-thread #[(n) "\301[!\207" [n gnus-summary-next-thread] 2 (#$ . 384826) "p"])
#@42 Go down one level in the current thread.
(defalias 'gnus-summary-go-down-thread #[nil "\301 \211\205\302@!)\207" [children gnus-summary-article-children gnus-summary-goto-subject] 3 (#$ . 385054)])
#@40 Go up one level in the current thread.
(defalias 'gnus-summary-go-up-thread #[nil "\301 \211\205\n\302!)\207" [parent gnus-summary-article-parent gnus-summary-goto-subject] 3 (#$ . 385262)])
#@132 Go down thread N steps.
If N is negative, go up instead.
Returns the difference between N and how many steps down that were
taken.
(defalias 'gnus-summary-down-thread #[(n) "\302W\303!\302V\203#	\203\304 \202\305 \203#S\211\202	\306 \210\302U\2041\307\310\311\"\210*\207" [n up 0 abs gnus-summary-go-up-thread gnus-summary-go-down-thread gnus-summary-position-point gnus-message 7 "Can't go further"] 4 (#$ . 385463) "p"])
#@132 Go up thread N steps.
If N is negative, go down instead.
Returns the difference between N and how many steps down that were
taken.
(defalias 'gnus-summary-up-thread #[(n) "\301[!\207" [n gnus-summary-down-thread] 2 (#$ . 385910) "p"])
#@30 Go to the top of the thread.
(defalias 'gnus-summary-top-thread #[nil "\301 \204\302`\303\"\211\203\304!\210)\302`\305\"\206\306 \207" [to gnus-summary-go-up-thread get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject] 4 (#$ . 386152) nil])
#@48 Mark articles under current thread as expired.
(defalias 'gnus-summary-expire-thread #[nil "\300\301!\207" [gnus-summary-kill-thread 0] 2 (#$ . 386452) nil])
#@223 Mark articles under current thread as read.
If the prefix argument is positive, remove any kinds of marks.
If the prefix argument is zero, mark thread as expired.
If the prefix argument is negative, tick articles instead.
(defalias 'gnus-summary-kill-thread #[(&optional unmark) "\203\306!\307 ?\206\310U\212\311 \210\n\203S\312\n@!\210\204,\313!\210\202L\310V\2039\314\f!\210\202L\310U\203G\315\316
\"\210\202L\314!\210\nA\211\204)	\203`\203`\317 \210	\203i\320\321\322\"\210*\323\324!\207" [unmark hide articles gnus-killed-mark gnus-unread-mark gnus-expirable-mark prefix-numeric-value gnus-summary-articles-in-thread 0 gnus-summary-show-thread gnus-summary-goto-subject gnus-summary-mark-article-as-read gnus-summary-mark-article-as-unread gnus-summary-mark-article nil gnus-summary-hide-thread gnus-summary-next-subject 1 t gnus-set-mode-line summary gnus-ticked-mark gnus-thread-hide-killed] 4 (#$ . 386617) "P"])
#@82 Sort the summary buffer by article number.
Argument REVERSE means reverse order.
(defalias 'gnus-summary-sort-by-number #[(&optional reverse) "\301\302\"\207" [reverse gnus-summary-sort number] 3 (#$ . 387575) "P"])
#@94 Sort the summary buffer by most recent article number.
Argument REVERSE means reverse order.
(defalias 'gnus-summary-sort-by-most-recent-number #[(&optional reverse) "\301\302\"\207" [reverse gnus-summary-sort most-recent-number] 3 (#$ . 387798) "P"])
#@98 Randomize the order in the summary buffer.
Argument REVERSE means to randomize in reverse order.
(defalias 'gnus-summary-sort-by-random #[(&optional reverse) "\301\302\"\207" [reverse gnus-summary-sort random] 3 (#$ . 388057) "P"])
#@156 Sort the summary buffer by author name alphabetically.
If `case-fold-search' is non-nil, case of letters is ignored.
Argument REVERSE means reverse order.
(defalias 'gnus-summary-sort-by-author #[(&optional reverse) "\301\302\"\207" [reverse gnus-summary-sort author] 3 (#$ . 388297) "P"])
#@159 Sort the summary buffer by recipient name alphabetically.
If `case-fold-search' is non-nil, case of letters is ignored.
Argument REVERSE means reverse order.
(defalias 'gnus-summary-sort-by-recipient #[(&optional reverse) "\301\302\"\207" [reverse gnus-summary-sort recipient] 3 (#$ . 388595) "P"])
#@173 Sort the summary buffer by subject alphabetically.  `Re:'s are ignored.
If `case-fold-search' is non-nil, case of letters is ignored.
Argument REVERSE means reverse order.
(defalias 'gnus-summary-sort-by-subject #[(&optional reverse) "\301\302\"\207" [reverse gnus-summary-sort subject] 3 (#$ . 388902) "P"])
#@72 Sort the summary buffer by date.
Argument REVERSE means reverse order.
(defalias 'gnus-summary-sort-by-date #[(&optional reverse) "\301\302\"\207" [reverse gnus-summary-sort date] 3 (#$ . 389218) "P"])
#@84 Sort the summary buffer by most recent date.
Argument REVERSE means reverse order.
(defalias 'gnus-summary-sort-by-most-recent-date #[(&optional reverse) "\301\302\"\207" [reverse gnus-summary-sort most-recent-date] 3 (#$ . 389427) "P"])
#@73 Sort the summary buffer by score.
Argument REVERSE means reverse order.
(defalias 'gnus-summary-sort-by-score #[(&optional reverse) "\301\302\"\207" [reverse gnus-summary-sort score] 3 (#$ . 389672) "P"])
#@87 Sort the summary buffer by the number of lines.
Argument REVERSE means reverse order.
(defalias 'gnus-summary-sort-by-lines #[(&optional reverse) "\301\302\"\207" [reverse gnus-summary-sort lines] 3 (#$ . 389884) "P"])
#@82 Sort the summary buffer by article length.
Argument REVERSE means reverse order.
(defalias 'gnus-summary-sort-by-chars #[(&optional reverse) "\301\302\"\207" [reverse gnus-summary-sort chars] 3 (#$ . 390110) "P"])
#@97 Sort the summary buffer using the default sorting method.
Argument REVERSE means reverse order.
(defalias 'gnus-summary-sort-by-original #[(&optional reverse) "\302\303\304 \210\305 *\207" [inhibit-read-only gnus-summary-prepare-hook t nil gnus-summary-prepare gnus-summary-maybe-hide-threads] 1 (#$ . 390331) "P"])
#@65 Sort summary buffer by PREDICATE.  REVERSE means reverse order.
(defalias 'gnus-summary-sort #[(predicate reverse) "\306\307\310\"!\306\307\311\"!\204	\202\312\313	\314BE\211\204'\n\202-\312\315\n\316BE\317\320\321 \210\322 .\207" [predicate thread article reverse gnus-thread-sort-functions gnus-sort-gathered-threads-function intern format "gnus-thread-sort-by-%s" "gnus-article-sort-by-%s" lambda (t1 t2) (t2 t1) (t1 t2) (t2 t1) t nil gnus-summary-prepare gnus-summary-maybe-hide-threads gnus-article-sort-functions inhibit-read-only gnus-summary-prepare-hook] 5 (#$ . 390655)])
#@439 Save the current article using the default saver function.
If N is a positive number, save the N next articles.
If N is a negative number, save the N previous articles.
If N is nil and any articles have been marked with the process mark,
save those articles instead.
The variable `gnus-default-article-saver' specifies the saver function.

If the optional second argument NOT-SAVED is non-nil, articles saved
will not be marked as saved.
(defalias 'gnus-summary-save-article #[(&optional n not-saved) "\306\307!\210\310!\212\311\312!)	G\f\205
\313N&
\314N\211'\203'\315\202)((
\316\211)*	\316+\211,\203\305,@+\317+-\2368)\320)!\204n\321)\236\203d\322\321)\236A!\210\202\261\323\324\325+#\210\202\261\326 .\327\216\330&\211\316+$\210\331+!\210*r\nq\210\332 \210\333&\203\225/\202\2270!\210)\334\n*#*\335+!\2101\204\261\336+!\210'\203\274'\316',A\211,\204=*\n\2112\2113\205\3363;\203\332\337\202\333\3403!)\203\361\341\3372!4\"4\3422!\210)\343 \210\344\345!\210.	\207" [n articles save-buffer num gnus-article-save-coding-system gnus-default-article-saver require gnus-art gnus-summary-work-articles nnheader-set-temp-buffer " *Gnus Save*" :decode :function t nil 3 vectorp name gnus-copy-file gnus-message 1 "Article %d is unsavable" current-window-configuration ((set-window-configuration #1=#:wconfig)) gnus-summary-select-article gnus-summary-goto-subject erase-buffer insert-buffer-substring gnus-article-save gnus-summary-remove-process-mark gnus-summary-set-saved-mark get-buffer buffer-name delete kill-buffer gnus-summary-position-point gnus-set-mode-line summary decode saver2 gnus-prompt-before-saving header file article --dolist-tail-- gnus-newsgroup-data #1# gnus-article-buffer gnus-original-article-buffer not-saved buf buffer gnus-buffers] 6 (#$ . 391265) "P"])
#@959 Pipe the current article to a subprocess.
If N is a positive number, pipe the N next articles.
If N is a negative number, pipe the N previous articles.
If N is nil and any articles have been marked with the process mark,
pipe those articles instead.
The default command to which articles are piped is specified by the
variable `gnus-summary-pipe-output-default-command'; if it is nil, you
will be prompted for the command.

The properties `:decode' and `:headers' that are put to the function
symbol `gnus-summary-save-in-pipe' control whether this function
decodes articles and what headers to keep (see the doc string for the
`gnus-default-article-saver' variable).  If SYM (the symbolic prefix)
is neither omitted nor the symbol `r', force including all headers
regardless of the `:headers' property.  If it is the symbol `r',
articles that are not decoded and include all headers will be piped
no matter what the properties `:decode' and `:headers' are.
(defalias 'gnus-summary-pipe-output #[(&optional n sym) "\306\307!\210\310!\311\312>?\211\206
\313=.\314\315N/\316\21101	@\247\204/\317\320!\210\321\322	A\203>\323\324	G\"\202?\325\326Q2\"\2110\327\230\203P\317\330!\210\f\203Z\331\314\315\316#\210\332\216	\203\225\333	\211A@!\210\334 3\335\216\3140.\"\210*\336\n!\203\\\337\340\336\n!!!\204\\1r\nq\210\341 )P1\202\\)\3371G!?\205\327r\342\n!q\210\343 \2101c\210\344e`\"\345U\205\276\346\210i\347\350 !Xeb\210)\203\320\351\3521\346\353O\"\202\327\351\316!\210\354\355!.\207" [n articles result-buffer sym all-headers gnus-save-all-headers require gnus-art gnus-summary-work-articles "*Shell Command Output*" (nil r) r gnus-summary-save-in-pipe :headers nil error "No article to pipe" gnus-read-shell-command "Shell command on " format "these %d articles" "this article" ": " "" "A command is required" put ((byte-code "\301\302\303#\207" [headers put gnus-summary-save-in-pipe :headers] 4)) gnus-summary-goto-subject current-window-configuration ((set-window-configuration #1=#:wconfig)) get-buffer zerop buffer-size buffer-string get-buffer-create erase-buffer count-lines 1 0 window-width minibuffer-window message "%s" -1 gnus-configure-windows pipe raw headers command result gnus-summary-pipe-output-default-command #1#] 6 (#$ . 393117) (gnus-interactive "P\ny")])
#@261 Append the current article to a Unix mail box file.
If N is a positive number, save the N next articles.
If N is a negative number, save the N previous articles.
If N is nil and any articles have been marked with the process mark,
save those articles instead.
(defalias 'gnus-summary-save-article-mail #[(&optional arg) "\302\303!\210\304\305	!)\207" [gnus-default-article-saver arg require gnus-art gnus-summary-save-in-mail gnus-summary-save-article] 2 (#$ . 395441) "P"])
#@254 Append the current article to an rmail file.
If N is a positive number, save the N next articles.
If N is a negative number, save the N previous articles.
If N is nil and any articles have been marked with the process mark,
save those articles instead.
(defalias 'gnus-summary-save-article-rmail #[(&optional arg) "\302\303!\210\304\305	!)\207" [gnus-default-article-saver arg require gnus-art gnus-summary-save-in-rmail gnus-summary-save-article] 2 (#$ . 395924) "P"])
#@247 Append the current article to a file.
If N is a positive number, save the N next articles.
If N is a negative number, save the N previous articles.
If N is nil and any articles have been marked with the process mark,
save those articles instead.
(defalias 'gnus-summary-save-article-file #[(&optional arg) "\302\303!\210\304\305	!)\207" [gnus-default-article-saver arg require gnus-art gnus-summary-save-in-file gnus-summary-save-article] 2 (#$ . 396402) "P"])
#@274 Write the current article to a file, deleting the previous file.
If N is a positive number, save the N next articles.
If N is a negative number, save the N previous articles.
If N is nil and any articles have been marked with the process mark,
save those articles instead.
(defalias 'gnus-summary-write-article-file #[(&optional arg) "\302\303!\210\304\305	!)\207" [gnus-default-article-saver arg require gnus-art gnus-summary-write-to-file gnus-summary-save-article] 2 (#$ . 396871) "P"])
#@252 Append the current article body to a file.
If N is a positive number, save the N next articles.
If N is a negative number, save the N previous articles.
If N is nil and any articles have been marked with the process mark,
save those articles instead.
(defalias 'gnus-summary-save-article-body-file #[(&optional arg) "\302\303!\210\304\305	!)\207" [gnus-default-article-saver arg require gnus-art gnus-summary-save-body-in-file gnus-summary-save-article] 2 (#$ . 397369) "P"])
#@279 Write the current article body to a file, deleting the previous file.
If N is a positive number, save the N next articles.
If N is a negative number, save the N previous articles.
If N is nil and any articles have been marked with the process mark,
save those articles instead.
(defalias 'gnus-summary-write-article-body-file #[(&optional arg) "\302\303!\210\304\305	!)\207" [gnus-default-article-saver arg require gnus-art gnus-summary-write-body-to-file gnus-summary-save-article] 2 (#$ . 397853) "P"])
#@252 Print the current article using Muttprint.
If N is a positive number, save the N next articles.
If N is a negative number, save the N previous articles.
If N is nil and any articles have been marked with the process mark,
save those articles instead.
(defalias 'gnus-summary-muttprint #[(&optional arg) "\302\303!\210\304\305	\306\")\207" [gnus-default-article-saver arg require gnus-art gnus-summary-pipe-to-muttprint gnus-summary-save-article t] 3 (#$ . 398366) "P"])
#@43 Pipe the current article through PROGRAM.
(defalias 'gnus-summary-pipe-message #[(program) "\306 \210\307\310 \n\311\312\"\313\216\f\203!\314\f!\210\315\f!q\210\202%\316!\210\214~\210\317 \320\321!\210\322\323p!\".\207" [mail-header-separator #1=#:GnusStartBufferWindow gnus-article-buffer #2=#:buf #3=#:w inhibit-read-only gnus-summary-select-article "" selected-window gnus-get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer window-start t message-pipe-buffer-body set-window-start get-buffer-window start program] 3 (#$ . 398843) "sProgram: "])
#@44 Return a value based on the split METHODS.
(defalias 'gnus-get-split-value #[(methods) "\306\211\211\211\f\203yr
q\210\214\307 \210\f\203x\204xeb\210\f\211A@\211@\211;\2034\306\310\311\217\202U\312!\203G\214~\210!\211)\202U:\203\214~\210\313!\211)\203\nA	;\203k\314	\"B\202	:\203\315	\"\202*\237,\207" [match result method split-name methods gnus-original-article-buffer nil nnheader-narrow-to-headers (re-search-forward match nil t) ((error)) functionp eval expand-file-name append gnus-newsgroup-name gnus-article-save-directory] 5 (#$ . 399452)])
(defalias 'gnus-valid-move-group-p #[(group) "9\205\301!\205\302!\205J\205\303\304\302!!\305\306#\207" [group boundp symbol-name gnus-get-function gnus-find-method-for-group request-accept-article t] 4])
#@20 Read a group name.
(defalias 'gnus-read-move-group-name #[(prompt default articles prefix) "\306!\307\310\311\fG\312V\203\310\313\fG\"\202\314#	\2042\315
\316\317'\320#\307(\307)&\202T	G\312U\203L\315
\316\317'\320#\307(\321	@&\202T\322
	\237\307\211\321%*\323*!\211+\203k+<\203k+\206W
\324+,\"A\206W
+\325\232\203\201-\206;
\324+.\"A\206;
\324+/\"A\206;
011\203\275+\310\3261@@@1@@A@#\232\204\2751\211A1@\210\202\2311\2112@@*\206;
344\203\362+\310\3264\2112@@)4@A@#\232\204\3624\211A4@\210\202\3144@)\206;
5A\307\2116788\2038
\3278\211A8@8\2117;\204
+7\307\3209:7\330\331\215+\232\203
76\307\2118\204	
6+\211;\203T
\324+,\"\204T
+;B,B,;))<\307=*\205\324
*\332\230\204q
*(\230\203u
)**\204~
\333\334!\210\335*\336<*\"\"=\337='\"J\204\322
\340=\307\211<$\204\322
\341\310\342*\"!\203\314
\343=<\"\203\304
\340=\307\211<$\203\304
\344=!\204\322
\333\345*\"\204\322
\333\346*\"\210=.\207" [gnus-move-split-methods split-name minibuffer-confirm-incomplete prompt articles prom gnus-get-split-value nil format "%s %s to" 1 "these %d articles" "this article" gnus-group-completing-read gnus-remove-if-not gnus-valid-move-group-p t gnus-group-history gnus-completing-read gnus-group-method assoc "native" "%s:%s" 4 server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1="") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) #1# error "No group name entered" mm-encode-coding-string gnus-group-name-charset intern-soft gnus-activate-group gnus-y-or-n-p "No such group: %s.  Create it? " gnus-request-create-group gnus-subscribe-group "Couldn't create group %s" "No such group: %s" gnus-active-hashtb prefix default to-newsgroup server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result to-method encoded] 8 (#$ . 400267)])
#@81 Save parts matching TYPE to DIR.
If REVERSE, save parts that do not match TYPE.
(defalias 'gnus-summary-save-parts #[(type dir n &optional reverse) "\306!	\205`\307	@!\210\310\211\211\211\211\311\312 \210.rq\210\2068\313\310\"\2068\2058\314 \315\211\203V\316$\210\204V\317!\210+	\211A@\210\202)\207" [n #1=#:gnus-summary-iterate-articles gnus-inhibit-treatment gnus-break-pages gnus-display-mime-function gnus-article-decode-hook gnus-summary-work-articles gnus-summary-goto-subject nil t gnus-summary-select-article mm-dissect-buffer mm-uu-dissect 1 gnus-summary-save-parts-1 mm-destroy-parts gnus-article-prepare-hook gnus-article-buffer gnus-article-mime-handles gnus-article-loose-mime gnus-article-emulate-mime gnus-summary-save-parts-counter handles type dir reverse] 7 (#$ . 402862) (list (read-string "Save parts of type: " (or (car gnus-summary-save-parts-type-history) gnus-summary-save-parts-default-mime) 'gnus-summary-save-parts-type-history) (setq gnus-summary-save-parts-last-directory (read-directory-name "Save to directory: " gnus-summary-save-parts-last-directory nil t)) current-prefix-arg)])
(defalias 'gnus-summary-save-parts-1 #[(type dir handle reverse) "@;\203\f\306\307A\"\207	\203)\310\n\211@;\203@\202#A@@)\"?\202>\310\n\211@;\2038@\202<A@@)\"\205m\311\312\313\314!\206S\315\316\f
A$!\"\"T\317!?\205l\320\")\207" [handle reverse type mm-file-name-rewrite-functions gnus-newsgroup-name gnus-article-current mapcar #[(h) "\304	\n$\207" [type dir h reverse gnus-summary-save-parts-1] 5] string-match expand-file-name gnus-map-function file-name-nondirectory mm-handle-filename format "%s.%d.%d" file-exists-p mm-save-part-to-file gnus-summary-save-parts-counter dir file] 10])
(defalias 'gnus-summary-insert-pseudos #[(pslist &optional not-view) "\306\307`\310\"\211\203\311!\210)\307`\312\"\206\313 \314\211\211\311\f!\204+\315\316\f\"\210\317 \210+\204\342\320,\321\"\211,\314\211-\211.\203\341\322.@\236A\323.@\236AC-.\203\232.A\203\232\206i\324\322.\211/A@)\236A\206x\325\230\203\232\323.\211/A@)\236A-B-.\211/\211AA)\241\210\202X-\203\330\326\327\"\204\255\330-B-\330-B-\331.@\236\203\330\331.@\236\326\327\"\203\314\332\202\315\333\334\335-\330#\"\241\210.A\211.\204G+0\203
1\204
,\205\223
\331,@\236\203
\336\331,@\236A0\337=\"\210,A\211,\202\356\212,\205\222
\304,@\236A\2065
\307`\310\"\211\203+
\311!\210)\307`\312\"\2065
\313 \311!\210\340y\210`\341\342\323,@\236A!\343\331,@\236A\206S
\344\345\261\210`\346y\210\347\n	S\312234F#\210\35025\n,@\351	\nZ&\210\35262\"62S2,A\211,\204
\314)-\207" [to e b after-article article inhibit-read-only t get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject nil error "No such article: %d" gnus-summary-position-point sort gnus-pseudos< action name "1" "2" string-match "%s" " " execute format concat mapconcat #[(f) "\301\232\203\207\302!\207" [f " " shell-quote-argument] 2] gnus-execute-command not-confirm 1 "    " file-name-nondirectory ": " "" "\n" -1 gnus-add-text-properties gnus-data-enter 0 gnus-add-to-sorted-list gnus-view-pseudos-separately pslist files ps x gnus-view-pseudos not-view gnus-reffed-article-number gnus-mouse-face-prop gnus-mouse-face gnus-unread-mark gnus-newsgroup-unreads] 10])
(defalias 'gnus-pseudos< #[(p1 p2) "\304\236A\304	\236A\211\205\n\205\n\231*\207" [p1 p2 c2 c1 action] 4])
(defalias 'gnus-request-pseudo-article #[(props) "\303\236\203
\304\303\236A!\210\305`\306\"\211\203\307	!\210)\305`\310\"\206$\311 \312\313!)\207" [props to gnus-current-article execute gnus-execute-command get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-run-hooks gnus-mark-article-hook] 4])
(defalias 'gnus-execute-command #[(command &optional automatic) "\212\306 \210q\210\307\n\203\202\310\311\312B\"\313 \210\314\315\261\210\f\2030\316\317p
%\202:\320
\307\321\307&*\207" [gnus-article-buffer buffer-read-only automatic command gnus-view-pseudo-asynchronously shell-file-name gnus-article-setup-buffer nil read-string "Command: " 0 erase-buffer "$ " "\n\n" start-process "gnus-execute" call-process t shell-command-switch] 7])
#@30 Edit the "global" kill file.
(defalias 'gnus-summary-edit-global-kill #[(article) "\301!\207" [article gnus-group-edit-global-kill] 2 (#$ . 407220) (list (progn (let ((to (get-text-property (point) 'gnus-intangible))) (and to (gnus-summary-goto-subject to))) (or (get-text-property (point) 'gnus-number) (gnus-summary-last-subject))))])
#@58 Edit a local kill file applied to the current newsgroup.
(defalias 'gnus-summary-edit-local-kill #[nil "\304\305`\306\"\211\203\307!\210)\305`\310\"\206\311 	\2368\312\305`\306\"\211\203*\307!\210)\305`\310\"\2064\311 \"\207" [to gnus-newsgroup-data gnus-current-headers gnus-newsgroup-name 3 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-group-edit-local-kill] 5 (#$ . 407564) nil])
#@69 Read the headers of article ID and enter them into the Gnus system.
(defalias 'gnus-read-header #[(id &optional header) "	\206\306!\205\307 @\310\f;\203\"
\206\311\f!\202-
\206,\312\f!\2368
\203>
\313H\">\204>
\202
r#q\210\314\f\"\211\203\201\315 \210db\210\316c\210eb\210\317c\210\320\f\247\203e\f\202{\nA\203o\nA\202{
\203y
\313H\202{$p\"\210\321c\210\n?\206\216\322\310\323\"@\211??\205

\313H\">\204
\324\325!\203\277\203\277\326\n@!\204\277\327
\330H\310\331\n@	\"
\332H
\333H%\210\f;\203\360%\334\335%\"\203\330%\313\225\310O\202\332%)\n@\230\203\352\336	\337!\"\204\360
\313$I\210r&q\210$S$\340
\313H!\210
'B'
(
\313H)B))
)+\207" [gnus-newsgroup-name gnus-override-method where group id header gnus-news-group-p gnus-refer-article-methods nil gnus-id-to-header 3 0 gnus-request-head nnheader-fold-continuation-lines ".\n" "211 " princ " Article retrieved.\n" gnus-get-newsgroup-headers t boundp gnus-registry-enabled gnus-ephemeral-group-p gnus-registry-handle-action 4 gnus-group-prefixed-name 1 2 string-match "^[^:]+:" gnus-server-equal gnus-group-method gnus-remove-header gnus-newsgroup-data gnus-newsgroup-sparse nntp-server-buffer gnus-reffed-article-number gname gnus-summary-buffer gnus-newsgroup-headers gnus-current-headers gnus-newsgroup-limit] 7 (#$ . 408023)])
#@53 Remove header NUMBER from `gnus-newsgroup-headers'.
(defalias 'gnus-remove-header #[(number) "\203	@\304HU\203\211A@\207\nA\2030	\n\211A@)\304HU\2040\n\211A@\210\202\nA\205=\n\211\211AA)\241)\207" [gnus-newsgroup-headers number headers x 0] 4 (#$ . 409373)])
#@47 Highlight selected article in summary buffer.
(defalias 'gnus-highlight-selected-summary #[nil "\205_\212\306 \307 \310	\"\203	\202 \311	\312\n$\206 	\211\nU\203-\f\313Z\2027\311\f\312\n$\2067\n\211\313\\\fU\203D	\n\203S\314\f
p$\202^\315\316\f
\"\211\317#-\207" [gnus-summary-selected-face beg end gnus-mouse-face-prop from to point-at-bol point-at-eol get-text-property next-single-property-change nil 2 gnus-move-overlay gnus-overlay-put gnus-make-overlay face gnus-newsgroup-selected-overlay] 6 (#$ . 409656)])
(defvar gnus-summary-highlight-line-cached nil)
(defvar gnus-summary-highlight-line-trigger nil)
(defalias 'gnus-summary-highlight-line-0 #[nil "	=\203\f\n\203\f\n\207	\303C\211	\211\2039\f
\211\n@@)\306
\211\n@A)DD\307B\241\210\fA
A\211\204\310\311\307E!+\211\207" [gnus-summary-highlight-line-trigger gnus-summary-highlight gnus-summary-highlight-line-cached cond c list quote nil gnus-byte-compile lambda x] 5])
#@63 Highlight current line according to `gnus-summary-highlight'.
(defalias 'gnus-summary-highlight-line #[nil "\306 \307`\310\"\211\203\311	!\210)\307`\312\"\206\313 \206\n\211\f\236A\206+
\206+\314\307`\310\"\211\203:\311	!\210)\307`\312\"\206D\313 \236A@\206N\315
\205o>\205o>? \316  \211\307\317\"=?\205\244\320\321 \317\322!\203\222J\202\224\211$\210!\205\244!\".\n\207" [beg to gnus-current-article article gnus-newsgroup-scored gnus-summary-default-score point-at-bol get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 0 t gnus-summary-highlight-line-0 face gnus-put-text-property-excluding-characters-with-faces point-at-eol boundp score gnus-newsgroup-data gnus-unread-mark mark inhibit-read-only default gnus-summary-default-high-score default-high gnus-summary-default-low-score default-low gnus-summary-use-undownloaded-faces gnus-newsgroup-undownloaded gnus-newsgroup-cached uncached gnus-summary-highlight-line-function] 7 (#$ . 410636)])
#@69 Update the list of read articles in GROUP.
UNREAD is a sorted list.
(defalias 'gnus-update-read-articles #[(group unread &optional compute) "\206	\306	\n\"J\307\306	\"J8\310\311)*)?\206!*??\205p
+\203;+@\312W\203;+A\211+\204*+\203S+@*@W\203S+A\211+\204@+\203\204+@
U\204v
+@SU\203m
\202s
+@SB\fB+@T+A\211+\204X
*AX\203\224
*AB\fB\fG\310V\203\240\f\237\202\241\f,\203\253\f\202p
\212\311-\313\314	!\315\"\203(
\316	.\311\317\320\217*\203(
\321\307)8\f\"\321\f\307)8\"\204\341\203'
\322	!\204\354\323\324	\"\210\325	\326\311\205\372\327\330E\205
\331\332ED\"\"\210\325	\333\326\311\205
\327\334E\205!
\331\335ED\"DE-*/q\210\336\337\340\333)D\333\341)8D\342BBB\343\333)D\333\307)8DE\344\333)D\345	DE\346	\347BB-\257!\210*)AA\f\240\210\344)\306	\n\"J\"\210\350,\207" [gnus-newsgroup-active group gnus-active-hashtb gnus-newsrc-hashtb read prev intern-soft 2 1 nil 0 gnus-method-option-p gnus-find-method-for-group server-marks request-set-mark (byte-code ";\203\f\303!@\202
\304	!\204\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) gnus-remove-from-range gnus-check-group error "Can't open server for %s" gnus-request-set-mark delq add (read) del (read) quote (read) (read) gnus-undo-register progn gnus-info-set-marks 3 (t) gnus-info-set-read gnus-get-unread-articles-in-group gnus-active gnus-group-update-group (t) t info active unread compute setmarkundo func gnus-group-buffer] 10 (#$ . 411705)])
#@43 Offer to save all active summary buffers.
(defalias 'gnus-offer-save-summaries #[nil "\306\307 \306\211\203<\n@\310	!\211\2035\311\312	\"\2035r	q\210\313=\205-\f\205-
?)\2035	B\nA\211\204*\205m\212\314=\203g\306\211\205c\n@\315	!\210\316 \210\nA\211\204Q\306*\202l\317\320\321#))\207" [buffers buffer --dolist-tail-- major-mode gnus-newsgroup-prepared gnus-dead-summary-mode nil buffer-list buffer-name string-match "Summary" gnus-summary-mode quiet switch-to-buffer gnus-summary-exit map-y-or-n-p "Update summary buffer %s? " #[(buf) "\301!\210\302 \207" [buf switch-to-buffer gnus-summary-exit] 2] gnus-interactive-exit] 5 (#$ . 413308)])
#@34 Setup newsgroup default charset.
(defalias 'gnus-summary-setup-default-charset #[nil "\306\235\203\n\307\211\207\n\206\310\205\311!\"
\206)\203'\312!\206)\f\313\303!\210\f\211)\207" [gnus-newsgroup-name gnus-newsgroup-charset gnus-newsgroup-ephemeral-ignored-charsets gnus-newsgroup-ignored-charsets ignored-charsets gnus-newsgroup-ephemeral-charset ("nndraft:delayed" "nndraft:drafts") nil append gnus-parameter-ignored-charsets gnus-parameter-charset make-local-variable gnus-default-charset] 3 (#$ . 413987)])
#@156 Display the current article buffer fully MIME-buttonized.
If SHOW-ALL-PARTS (the prefix) is non-nil, all multipart/* parts are
treated as multipart/mixed.
(defalias 'gnus-summary-display-buttonized #[(&optional show-all-parts) "\303\304!\210\305\306 *\207" [show-all-parts gnus-mime-display-multipart-as-mixed gnus-unbuttonized-mime-types require gnus-art nil gnus-summary-show-article] 2 (#$ . 414526) "P"])
#@63 Add a Content-Type header to a multipart article without one.
(defalias 'gnus-summary-repair-multipart #[(article) "\306\307\310\211\306	$\210)\nq\210\311 \210\312\313!\210db\210\314c\210~\210\315\316\306\310#\203<`\317 {\311 \210\312\320!\210db\210\321\322\"c\210~\210)\323\f@\306\324\325\217*\204R\326\327\330\"\210\202`\331	\f@p\310$\204`\332\333!\210\203l\334\f@\fA\"\210 \203x\335\f@\fA\"\210\306\307\310\211\306	$)\207" [gnus-mark-article-hook article gnus-original-article-buffer separator gnus-article-current group nil gnus-summary-select-article t message-narrow-to-head message-remove-header "Mime-Version" "Mime-Version: 1.0\n" search-forward "\n--" point-at-eol "Content-Type" format "Content-Type: multipart/mixed; boundary=\"%s\"\n" request-replace-article (byte-code ";\203\f\303!@\202
\304	!\204\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) gnus-message 5 "Read-only group; not replacing" gnus-request-replace-article error "Couldn't replace article" gnus-backlog-remove-article gnus-cache-update-article func gnus-keep-backlog gnus-use-cache] 5 (#$ . 414944) (list (progn (let ((to (get-text-property (point) 'gnus-intangible))) (and to (gnus-summary-goto-subject to))) (or (get-text-property (point) 'gnus-number) (gnus-summary-last-subject))))])
#@47 Toggle the buttonizing of the article buffer.
(defalias 'gnus-summary-toggle-display-buttonized #[nil "\302\303!\210?\211\203\304\305 )\207\305 \207" [gnus-inhibit-mime-unbuttonizing gnus-unbuttonized-mime-types require gnus-art nil gnus-summary-show-article] 2 (#$ . 416340) nil])
#@37 An alist of names/marks/keystrokes.
(defvar gnus-summary-marking-alist '((read gnus-del-mark "d") (unread gnus-unread-mark "u") (ticked gnus-ticked-mark "!") (dormant gnus-dormant-mark "?") (expirable gnus-expirable-mark "e")) (#$ . 416633))
(defvar gnus-summary-generic-mark-map (make-sparse-keymap))
(defalias 'gnus-summary-make-all-marking-commands #[nil "\305\306	#\210\n\307\211\205\f@\310\311\"\210\fA\211\204\307*\207" [gnus-summary-mark-map gnus-summary-generic-mark-map gnus-summary-marking-alist elem --dolist-tail-- define-key "M" nil apply gnus-summary-make-marking-command] 5])
(defalias 'gnus-summary-make-marking-command #[(name mark keystroke) "\306 \307	\n#\210\310\311\312\313\314\315\316\211\n\257\257\316\211\205B\f@\317
@$\320!\307\3218#\210)\fA\211\204\316+\207" [map gnus-summary-generic-mark-map keystroke lway --dolist-tail-- mark make-sparse-keymap define-key (next "next" next nil "n") (next-unread "next unread" next t "N") (prev "previous" prev nil "p") (prev-unread "previous unread" prev t "P") nomove "" nil gnus-summary-make-marking-command-1 eval 4 name func] 10])
(defalias 'gnus-summary-make-marking-command-1 #[(mark way lway name) "\305\306\307\310	\311=\203\312\202\313\314	!P#!\315\307\316\n\211A@)#\317\320\321\f\322\323\n8D\324\n8\257\257\207" [name way lway x mark defun intern format "gnus-summary-put-mark-as-%s%s" nomove "" "-" symbol-name (n) "Mark the current article as %s%s.\nIf N, the prefix, then repeat N times.\nIf N is negative, move in reverse order.\nThe difference between N and the actual number of articles marked is\nreturned." (interactive "p") gnus-summary-generic-mark n quote 2 3] 12])
#@28 Mark N articles with MARK.
(defalias 'gnus-summary-generic-mark #[(n mark move unread) "\306=\204\n\307\310!\210\311 \210	\312=\203\313\202\"	\314=\203!\315\202\"\316\317\n!\203.\313\202;\316W\203;\320!\n[\316V\203Y\321\322\f\"\203Y\317\323\n
\324#!\203YS\211\202<\316U\204m\325\326\327\f\203j\330\202k\331#\210\332 \210\333 \210\334\335!\210)\207" [major-mode move nummove n mark unread gnus-summary-mode error "This command can only be used in the summary buffer" gnus-summary-show-thread next 1 prev -1 0 zerop abs gnus-summary-mark-article nil gnus-summary-next-subject t gnus-message 7 "No more %sarticles" "" "unread " gnus-summary-recenter gnus-summary-position-point gnus-set-mode-line summary] 6 (#$ . 418334)])
(defalias 'gnus-summary-insert-articles #[(articles) "\306\307\310	\"\"\211\205\216\311\312	\313!\314$\315\n\"\203!\316 \210\f\203=
\317=\203=\f\320=\2037\321 \210\202k\322 \210\202k\315\323\324!\"\"\325\211\203j@\326 \" A\211\204T*!\203s\327 \210\330 \210	\203\207	@\331H\"\332	!\331H#$\205\216\333 \207" [articles gnus-newsgroup-headers gnus-newsgroup-articles gnus-suppress-duplicates gnus-fetch-old-headers gnus-headers-retrieved-by gnus-sorted-difference mapcar #[(h) "\301H\207" [h 0] 2] gnus-merge list gnus-fetch-headers gnus-article-sort-by-number gnus-sorted-nunion gnus-dup-suppress-articles nov invisible gnus-build-all-threads gnus-build-old-threads gnus-sorted-nintersection gnus-list-of-unread-articles nil delq gnus-agent-get-undownloaded-list gnus-summary-remove-list-identifiers 0 gnus-last-element gnus-possibly-score-headers gnus-newsgroup-unreads gnus-newsgroup-name art --dolist-tail-- gnus-newsgroup-unselected gnus-agent gnus-newsgroup-begin gnus-newsgroup-end gnus-use-scoring] 6])
#@149 Insert all old articles in this group.
If ALL is non-nil, already read articles become readable.
If ALL is a number, fetch this number of articles.
(defalias 'gnus-summary-insert-old-articles #[(&optional all) "\306\307\310\"\311\"\312\211\313\fC\"\314\n!\n\2037

\247\203\206
	W\203\n\237 \312
\315V\203{ \211A @\211!\247\203D!\202G!@\"!\247\203T!\202W!A#\"#X\203w
\315V\203w#\nB
S#S#\202Y+\202+)\2027
\316\n!\2027

\203\221\316\n!\2027
$\247\2033
	$V\2033
\312%\317&!'\320\321\322\323&!'\203\267\324\202\270\325	$\312\211'\205\305\326'!$(\327\330(\"\2042
\331(!\211	W\2032
\n\237 \312
\315V\2031
 \211A @\211!\247\203\372!\202\375!@\"!\247\203\n
!\202

!A#\"#X\203-

\315V\203-
#\nB
S#S#\202
+\202\341)+\316\n!\n\204A
\332\333!\202K
\334\n!\210\335\336\n\"!+\337 \210\207" [gnus-newsgroup-data len older old gnus-newsgroup-active all sort mapcar car < nil gnus-range-difference gnus-range-length 0 gnus-uncompress-range gnus-parameter-large-newsgroup-initial read-string format "How many articles from %s (%s %d): " gnus-group-decoded-name "max" "default" number-to-string string-match "^[ 	]*$" string-to-number message "No old news." gnus-summary-insert-articles gnus-summary-limit gnus-sorted-nunion gnus-summary-position-point older-range r min max gnus-large-newsgroup cursor-in-echo-area gnus-newsgroup-name initial input] 7 (#$ . 420145) "P"])
#@40 Insert all new articles in this group.
(defalias 'gnus-summary-insert-new-articles #[nil "\306\307\310\"\311\"	\312C\313\n\314\"\315\211
\204!\316\317!\210\320
!\211A\211\fV\203=\fB\fS\211\202,\204H\321\322!\210\202[\323!\210\324\"\325\324\"!\210.\326 \207" [gnus-newsgroup-data gnus-newsgroup-highest gnus-newsgroup-name new i new-active sort mapcar car < t gnus-activate-group scan nil error "Couldn't fetch new data" gnus-copy-sequence message "No gnus is bad news" gnus-summary-insert-articles gnus-sorted-nunion gnus-summary-limit gnus-summary-position-point nnmail-fetched-sources old-high old gnus-newsgroup-active gnus-newsgroup-unreads] 7 (#$ . 421586) nil])
#@50 Make a bookmark entry for a Gnus summary buffer.
(defalias 'gnus-summary-bookmark-make-record #[nil "\306\211\307\310!\203\n\204\214~\210`)\311`p\312 \210\204#\313\314\315`\316\"\211\2031\317
!\210)\315`\320\"\206;\321 \2368\322\234\n@ \nA!\314!\2368\211\"\323H#\324\306\325\326\217\327\330\331 !#%B\332 B\333!B\334#B\335BBBB\".B\207" [buf pos gnus-article-current bookmark-yank-point bookmark-current-buffer to nil derived-mode-p gnus-summary-mode "art" gnus-article-show-summary "sum" 3 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 1 4 append (byte-code "\301\302\303#\207" [pos bookmark-make-record-default no-file no-context] 4) ((wrong-number-of-arguments (byte-code "\300\301!\207" [bookmark-make-record-default point-only] 2))) location format "Gnus-%s %s:%d:%s" group article message-id ((handler . gnus-summary-bookmark-jump)) gnus-newsgroup-data subject grp art head id] 11 (#$ . 422295)])
#@128 Handler function for record returned by `gnus-summary-bookmark-make-record'.
BOOKMARK is a bookmark name or a bookmark record.
(defalias 'gnus-summary-bookmark-jump #[(bookmark) "\305\304\"\305\303\"\305\306\"\307\305\310\"!@\311\fC\"\210\312 \210\313\n\314\315#\210\316\317!\210	\320\230\2034\321\317!\210\322\323\324pB\325!BB!,\207" [bookmark buf id article group bookmark-prop-get message-id split-string location gnus-fetch-group gnus-summary-insert-cached-articles gnus-summary-goto-article nil force sit-for 1 "Gnus-art" other-window bookmark-default-handler "" buffer bookmark-get-bookmark-record] 7 (#$ . 423293)])
(byte-code "\300 \210\301 \210\302\303!\210\304\305!\207" [gnus-summary-make-all-marking-commands gnus-ems-redefine provide gnus-sum run-hooks gnus-sum-load-hook] 2)