;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:14:35 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/gnus/gnus-sum.el
;;; in Emacs version 24.0.50.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 "`gnus-sum.el' was compiled for Emacs 23 or later"))

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


(byte-code "\300\301!\204\302\301\303\"\210\304\305!\210\304\306!\210\304\307!\210\304\310!\210\304\311!\210\304\312!\210\304\313!\210\304\314!\210\304\315!\210\304\316!\210\317\320\321\322\323$\210\317\324\321\"\210\317\325\326\322\323$\210\317\327\326\322\323$\210\317\330\331\322\323$\210\317\332\333\"\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" '(#$ . 1251) 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%\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] 6)
#@158 *If non-nil, kill the summary buffer when you exit from it.
If nil, the summary will become a "*Dead Summary*" buffer, and
it will be killed sometime later.
(custom-declare-variable 'gnus-kill-summary-on-exit 't '(#$ . -1733) :group 'gnus-summary-exit :type 'boolean)
#@92 If non-nil, go to the next unread newsgroup on summary exit.
See `gnus-group-goto-unread'.
(custom-declare-variable 'gnus-summary-next-group-on-exit 't '(#$ . 2007) :link '(custom-manual "(gnus)Group Maneuvering") :group 'gnus-summary-exit :version "23.1" :type 'boolean)
#@61 If non-nil, don't select the next message when using `SPC'.
(custom-declare-variable 'gnus-summary-stop-at-end-of-message 'nil '(#$ . 2285) :link '(custom-manual "(gnus)Group Maneuvering") :group 'gnus-summary-maneuvering :version "24.1" :type 'boolean)
#@994 *Non-nil means that Gnus will try to build threads by grabbing old headers.
If an unread article in the group refers to an older, already
read (or just marked as read) article, the old article will not
normally be displayed in the Summary buffer.  If this variable is
t, Gnus will attempt to grab the headers to the old articles, and
thereby build complete threads.  If it has the value `some', all
old headers will be fetched but only enough headers to connect
otherwise loose threads will be displayed.  This variable can
also be a number.  In that case, no more than that number of old
headers will be fetched.  If it has the value `invisible', all
old headers will be fetched, but none will be displayed.

The server has to support NOV for any of this to work.

This feature can seriously impact performance it ignores all
locally cached header entries.  Setting it to t for groups for a
server that doesn't expire articles (such as news.gmane.org),
leads to very slow summary generation.
(custom-declare-variable 'gnus-fetch-old-headers 'nil '(#$ . -2546) :group 'gnus-thread :type '(choice (const :tag "off" nil) (const :tag "on" t) (const some) (const invisible) number (sexp :menu-tag "other" t)))
#@145 *The number of old headers to fetch when doing \<gnus-summary-mode-map>\[gnus-summary-refer-thread].
If t, fetch all the available old headers.
(custom-declare-variable 'gnus-refer-thread-limit '500 '(#$ . -3759) :group 'gnus-thread :type '(choice number (sexp :menu-tag "other" t)))
#@1029 *nil means that Gnus won't gather loose threads.
If the root of a thread has expired or been read in a previous
session, the information necessary to build a complete thread has been
lost.  Instead of having many small sub-threads from this original thread
scattered all over the summary buffer, Gnus can gather them.

If non-nil, Gnus will try to gather all loose sub-threads from an
original thread into one large thread.

If this variable is non-nil, it should be one of `none', `adopt',
`dummy' or `empty'.

If this variable is `none', Gnus will not make a false root, but just
present the sub-threads after another.
If this variable is `dummy', Gnus will create a dummy root that will
have all the sub-threads as children.
If this variable is `adopt', Gnus will make one of the "children"
the parent and mark all the step-children as such.
If this variable is `empty', the "children" are printed with empty
subject fields.  (Or rather, they will be printed with a string
given by the `gnus-summary-same-subject' variable.)
(custom-declare-variable 'gnus-summary-make-false-root ''adopt '(#$ . -4051) :group 'gnus-thread :type '(choice (const :tag "off" nil) (const none) (const dummy) (const adopt) (const empty)))
#@33 Always make a false dummy root.
(custom-declare-variable 'gnus-summary-make-false-root-always 'nil '(#$ . 5277) :version "22.1" :group 'gnus-thread :type 'boolean)
#@258 *A regexp to match subjects to be excluded from loose thread gathering.
As loose thread gathering is done on subjects only, that means that
there can be many false gatherings performed.  By rooting out certain
common subjects, gathering might become saner.
(custom-declare-variable 'gnus-summary-gather-exclude-subject '"^ *$\\|^(none)$" '(#$ . -5448) :group 'gnus-thread :type 'regexp)
#@468 *Maximum length of subject comparisons when gathering loose threads.
Use nil to compare full subjects.  Setting this variable to a low
number will help gather threads that have been corrupted by
newsreaders chopping off subject lines, but it might also mean that
unrelated articles that have subject that happen to begin with the
same few characters will be incorrectly gathered.

If this variable is `fuzzy', Gnus will use a fuzzy algorithm when
comparing subjects.
(custom-declare-variable 'gnus-summary-gather-subject-limit 'nil '(#$ . -5842) :group 'gnus-thread :type '(choice (const :tag "off" nil) (const fuzzy) (sexp :menu-tag "on" t)))
#@277 List of functions taking a string argument that simplify subjects.
The functions are applied recursively.

Useful functions to put in this list include:
`gnus-simplify-subject-re', `gnus-simplify-subject-fuzzy',
`gnus-simplify-whitespace', and `gnus-simplify-all-whitespace'.
(custom-declare-variable 'gnus-simplify-subject-functions 'nil '(#$ . 6493) :group 'gnus-thread :type '(repeat function))
#@78 *Remove matches for this regexp from subject lines when simplifying fuzzily.
(custom-declare-variable 'gnus-simplify-ignored-prefixes 'nil '(#$ . -6897) :group 'gnus-thread :type '(choice (const :tag "off" nil) regexp))
#@251 *If non-nil, fill in the gaps in threads.
If `some', only fill in the gaps that are needed to tie loose threads
together.  If `more', fill in all leaf nodes that Gnus can find.  If
non-nil and non-`some', fill in all gaps that Gnus manages to guess.
(custom-declare-variable 'gnus-build-sparse-threads 'nil '(#$ . -7124) :group 'gnus-thread :type '(choice (const :tag "off" nil) (const some) (const more) (sexp :menu-tag "all" t)))
#@274 *Function used for gathering loose threads.
There are two pre-defined functions: `gnus-gather-threads-by-subject',
which only takes Subjects into consideration; and
`gnus-gather-threads-by-references', which compared the References
headers of the articles to find matches.
(custom-declare-variable 'gnus-summary-thread-gathering-function ''gnus-gather-threads-by-subject '(#$ . -7563) :group 'gnus-thread :type '(radio (function-item gnus-gather-threads-by-subject) (function-item gnus-gather-threads-by-references) (function :tag "other")))
#@174 *String indicating that the current article has the same subject as the previous.
This variable will only be used if the value of
`gnus-summary-make-false-root' is `empty'.
(custom-declare-variable 'gnus-summary-same-subject '"" '(#$ . -8112) :group 'gnus-summary-format :type 'string)
#@439 *If t, many commands will go to the next unread article.
This applies to marking commands as well as other commands that
"naturally" select the next article, like, for instance, `SPC' at
the end of an article.

If nil, the marking commands do NOT go to the next unread article
(they go to the next article instead).  If `never', commands that
usually go to the next unread article, will go to the next article,
whether it is read or not.
(custom-declare-variable 'gnus-summary-goto-unread 'nil '(#$ . -8405) :version "24.1" :group 'gnus-summary-marks :link '(custom-manual "(gnus)Setting Marks") :type '(choice (const :tag "off" nil) (const never) (sexp :menu-tag "on" t)))
#@151 *Default article score level.
All scores generated by the score files will be added to this score.
If this variable is nil, scoring will be disabled.
(custom-declare-variable 'gnus-summary-default-score '0 '(#$ . -9086) :group 'gnus-score-default :type '(choice (const :tag "disable") integer))
#@134 *Default threshold for a high scored article.
An article will be highlighted as high scored if its score is greater
than this score.
(custom-declare-variable 'gnus-summary-default-high-score '0 '(#$ . -9388) :version "22.1" :group 'gnus-score-default :type 'integer)
#@132 *Default threshold for a low scored article.
An article will be highlighted as low scored if its score is smaller
than this score.
(custom-declare-variable 'gnus-summary-default-low-score '0 '(#$ . -9662) :version "22.1" :group 'gnus-score-default :type 'integer)
#@146 *Fuzziness factor for the zcore in the summary buffer.
Articles with scores closer than this to `gnus-summary-default-score'
will not be marked.
(custom-declare-variable 'gnus-summary-zcore-fuzz '0 '(#$ . -9933) :group 'gnus-summary-format :type 'integer)
#@208 *Strings to be removed when doing fuzzy matches.
This can either be a regular expression or list of regular expressions
that will be removed from subject strings if fuzzy subject
simplification is selected.
(custom-declare-variable 'gnus-simplify-subject-fuzzy-regexp 'nil '(#$ . -10196) :group 'gnus-thread :type '(repeat regexp))
#@47 *If non-nil, display threads in summary mode.
(custom-declare-variable 'gnus-show-threads 't '(#$ . -10534) :group 'gnus-thread :type 'boolean)
#@218 *If non-nil, hide all threads initially.
This can be a predicate specifier which says which threads to hide.
If threads are hidden, you have to run the command
`gnus-summary-show-thread' by hand or select an article.
(custom-declare-variable 'gnus-thread-hide-subtree 'nil '(#$ . -10685) :group 'gnus-thread :type '(radio (sexp :format "Non-nil\n" :match (lambda (widget value) (not (or (consp value) (functionp value)))) :value t) (const nil) (sexp :tag "Predicate specifier")))
#@49 *If non-nil, hide killed threads automatically.
(custom-declare-variable 'gnus-thread-hide-killed 't '(#$ . -11171) :group 'gnus-thread :type 'boolean)
#@198 *If non-nil, which is the default, ignore subjects and do all threading based on the Reference header.
If nil, articles that have different subjects from their parents will
start separate threads.
(custom-declare-variable 'gnus-thread-ignore-subject 't '(#$ . -11330) :group 'gnus-thread :type 'boolean)
#@387 *If non-nil, subjects will be ignored when doing thread commands.
This affects commands like `gnus-summary-kill-thread' and
`gnus-summary-lower-thread'.

If this variable is nil, articles in the same thread with different
subjects will not be included in the operation in question.  If this
variable is `fuzzy', only articles that have subjects that are fuzzily
equal will be included.
(custom-declare-variable 'gnus-thread-operation-ignore-subject 't '(#$ . -11641) :group 'gnus-thread :type '(choice (const :tag "off" nil) (const fuzzy) (sexp :tag "on" t)))
#@64 *Number that says how much each sub-thread should be indented.
(custom-declare-variable 'gnus-thread-indent-level '4 '(#$ . -12207) :group 'gnus-thread :type 'integer)
#@68 *If non-nil, extend newsgroup forward and backward when requested.
(custom-declare-variable 'gnus-auto-extend-newsgroup 't '(#$ . -12381) :group 'gnus-summary-choose :type 'boolean)
#@457 If non-nil, select an article on group entry.
An article is selected automatically when entering a group
e.g. with \<gnus-group-mode-map>\[gnus-group-read-group], or via `gnus-summary-next-page' or
`gnus-summary-catchup-and-goto-next-group'.

Which article is selected is controlled by the variable
`gnus-auto-select-subject'.

If you want to prevent automatic selection of articles in some
newsgroups, set the variable to nil in `gnus-select-group-hook'.
(custom-declare-variable 'gnus-auto-select-first 't '(#$ . 12570) :group 'gnus-group-select :type '(choice (const :tag "none" nil) (sexp :menu-tag "first" t)))
#@594 *Says what subject to place under point when entering a group.

This variable can either be the symbols `first' (place point on the
first subject), `unread' (place point on the subject line of the first
unread article), `best' (place point on the subject line of the
higest-scored article), `unseen' (place point on the subject line of
the first unseen article), `unseen-or-unread' (place point on the subject
line of the first unseen article or, if all articles have been seen, on the
subject line of the first unread article), or a function to be called to
place point on some subject line.
(custom-declare-variable 'gnus-auto-select-subject ''unseen-or-unread '(#$ . -13193) :version "24.1" :group 'gnus-group-select :type '(choice (const best) (const unread) (const first) (const unseen) (const unseen-or-unread)))
#@708 *If non-nil, offer to go to the next group from the end of the previous.
If the value is t and the next newsgroup is empty, Gnus will exit
summary mode and go back to group mode.  If the value is neither nil
nor t, Gnus will select the following unread newsgroup.  In
particular, if the value is the symbol `quietly', the next unread
newsgroup will be selected without any confirmation, and if it is
`almost-quietly', the next group will be selected without any
confirmation if you are located on the last article in the group.
Finally, if this variable is `slightly-quietly', the `\<gnus-summary-mode-map>\[gnus-summary-catchup-and-goto-next-group]' command
will go to the next group without confirmation.
(custom-declare-variable 'gnus-auto-select-next 't '(#$ . -14019) :group 'gnus-summary-maneuvering :type '(choice (const :tag "off" nil) (const quietly) (const almost-quietly) (const slightly-quietly) (sexp :menu-tag "on" t)))
#@146 *If non-nil, select the next article with the same subject.
If there are no more articles with the same subject, go to
the first unread article.
(custom-declare-variable 'gnus-auto-select-same 'nil '(#$ . -14960) :group 'gnus-summary-maneuvering :type 'boolean)
#@456 What article should be selected after exiting an ephemeral group.
Valid values include:

`next'
  Select the next article.
`next-unread'
  Select the next unread article.
`next-noselect'
  Move the cursor to the next article.  This is the default.
`next-unread-noselect'
  Move the cursor to the next unread article.

If it has any other value or there is no next (unread) article, the
article selected before entering to the ephemeral group will appear.
(custom-declare-variable 'gnus-auto-select-on-ephemeral-exit ''next-noselect '(#$ . 15229) :version "23.1" :group 'gnus-summary-maneuvering :type '(choice :format "%{%t%}:\n %[Value Menu%] %v" (const next) (const next-unread) (const next-noselect) (const next-unread-noselect) (sexp :tag "other" :value nil)))
#@522 *Says how to handle unfetched articles when maneuvering.

This variable can either be the symbols nil (maneuver to any
article), `undownloaded' (maneuvering while unplugged ignores articles
that have not been fetched), `always-undownloaded' (maneuvering always
ignores articles that have not been fetched), `unfetched' (maneuvering
ignores articles whose headers have not been fetched).

NOTE: The list of unfetched articles will always be nil when plugged
and, when unplugged, a subset of the undownloaded article list.
(custom-declare-variable 'gnus-auto-goto-ignores ''unfetched '(#$ . -16001) :version "22.1" :group 'gnus-summary-maneuvering :type '(choice (const :tag "None" nil) (const :tag "Undownloaded when unplugged" undownloaded) (const :tag "Undownloaded" always-undownloaded) (const :tag "Unfetched" unfetched)))
#@148 *If non-nil, consider the current article when moving.
The "unread" movement commands will stay on the same line if the
current article is unread.
(custom-declare-variable 'gnus-summary-check-current 'nil '(#$ . -16834) :group 'gnus-summary-maneuvering :type 'boolean)
#@192 *If non-nil, always center the current summary buffer.
In particular, if `vertical' do only vertical recentering.  If non-nil
and non-`vertical', do both horizontal and vertical recentering.
(custom-declare-variable 'gnus-auto-center-summary '2 '(#$ . -17110) :group 'gnus-summary-maneuvering :type '(choice (const :tag "none" nil) (const vertical) (integer :tag "height") (sexp :menu-tag "both" t)))
#@45 If non-nil, always center the group buffer.
(custom-declare-variable 'gnus-auto-center-group 't '(#$ . 17517) :group 'gnus-summary-maneuvering :type 'boolean)
#@38 *If non-nil, don't hide any headers.
(custom-declare-variable 'gnus-show-all-headers 'nil '(#$ . -17682) :group 'gnus-article-hiding :group 'gnus-article-headers :type 'boolean)
#@65 *If non-nil, ignore articles with identical Message-ID headers.
(custom-declare-variable 'gnus-summary-ignore-duplicates 'nil '(#$ . -17866) :group 'gnus-summary :type 'boolean)
#@107 *If non-nil, display all articles in the same buffer.
If nil, each group will get its own article buffer.
(custom-declare-variable 'gnus-single-article-buffer 'nil '(#$ . -18051) :version "24.1" :group 'gnus-article-various :type 'boolean)
#@80 If non-nil, selecting the article buffer will display only the article buffer.
(custom-declare-variable 'gnus-widen-article-window 'nil '(#$ . 18297) :version "24.1" :group 'gnus-article-various :type 'boolean)
#@115 *If non-nil, do page breaking on articles.
The page delimiter is specified by the `gnus-page-delimiter'
variable.
(custom-declare-variable 'gnus-break-pages 't '(#$ . -18515) :group 'gnus-article-various :type 'boolean)
#@232 *Variable used to suggest where articles are to be moved to.
It uses the same syntax as the `gnus-split-methods' variable.
However, whereas `gnus-split-methods' specifies file names as targets,
this variable specifies group names.
(custom-declare-variable 'gnus-move-split-methods 'nil '(#$ . -18742) :group 'gnus-summary-mail :type '(repeat (choice (list :value (fun) function) (cons :value (#1="" #1#) regexp (repeat string)) (sexp :value nil))))
#@176 Function used to compute default prefix for article move/copy/etc prompts.
The function should take one argument, a group name, and return a
string with the suggested prefix.
(custom-declare-variable 'gnus-move-group-prefix-function ''gnus-group-real-prefix '(#$ . 19198) :group 'gnus-summary-mail :type 'function)
#@33 *Mark used for unread articles.
(custom-declare-variable 'gnus-unread-mark '32 '(#$ . -19519) :group 'gnus-summary-marks :type 'character)
#@33 *Mark used for ticked articles.
(custom-declare-variable 'gnus-ticked-mark '33 '(#$ . -19664) :group 'gnus-summary-marks :type 'character)
#@34 *Mark used for dormant articles.
(custom-declare-variable 'gnus-dormant-mark '63 '(#$ . -19809) :group 'gnus-summary-marks :type 'character)
#@32 *Mark used for del'd articles.
(custom-declare-variable 'gnus-del-mark '114 '(#$ . -19956) :group 'gnus-summary-marks :type 'character)
#@31 *Mark used for read articles.
(custom-declare-variable 'gnus-read-mark '82 '(#$ . -20098) :group 'gnus-summary-marks :type 'character)
#@36 *Mark used for expirable articles.
(custom-declare-variable 'gnus-expirable-mark '69 '(#$ . -20239) :group 'gnus-summary-marks :type 'character)
#@33 *Mark used for killed articles.
(custom-declare-variable 'gnus-killed-mark '75 '(#$ . -20390) :group 'gnus-summary-marks :type 'character)
#@31 *Mark used for spam articles.
(custom-declare-variable 'gnus-spam-mark '36 '(#$ . -20535) :version "22.1" :group 'gnus-summary-marks :type 'character)
#@47 *Mark used for articles killed by kill files.
(custom-declare-variable 'gnus-kill-file-mark '88 '(#$ . -20692) :group 'gnus-summary-marks :type 'character)
#@43 *Mark used for articles with a low score.
(custom-declare-variable 'gnus-low-score-mark '89 '(#$ . -20854) :group 'gnus-summary-marks :type 'character)
#@45 *Mark used for articles that are caught up.
(custom-declare-variable 'gnus-catchup-mark '67 '(#$ . -21012) :group 'gnus-summary-marks :type 'character)
#@52 *Mark used for articles that have been replied to.
(custom-declare-variable 'gnus-replied-mark '65 '(#$ . -21170) :group 'gnus-summary-marks :type 'character)
#@51 *Mark used for articles that have been forwarded.
(custom-declare-variable 'gnus-forwarded-mark '70 '(#$ . -21335) :version "22.1" :group 'gnus-summary-marks :type 'character)
#@42 *Mark used for articles that are recent.
(custom-declare-variable 'gnus-recent-mark '78 '(#$ . -21517) :version "22.1" :group 'gnus-summary-marks :type 'character)
#@48 *Mark used for articles that are in the cache.
(custom-declare-variable 'gnus-cached-mark '42 '(#$ . -21687) :group 'gnus-summary-marks :type 'character)
#@47 *Mark used for articles that have been saved.
(custom-declare-variable 'gnus-saved-mark '83 '(#$ . -21847) :group 'gnus-summary-marks :type 'character)
#@49 *Mark used for articles that haven't been seen.
(custom-declare-variable 'gnus-unseen-mark '46 '(#$ . -22005) :version "22.1" :group 'gnus-summary-marks :type 'character)
#@60 *Mark used for articles that have no other secondary mark.
(custom-declare-variable 'gnus-no-mark '32 '(#$ . -22182) :version "22.1" :group 'gnus-summary-marks :type 'character)
#@34 *Mark used for ancient articles.
(custom-declare-variable 'gnus-ancient-mark '79 '(#$ . -22366) :group 'gnus-summary-marks :type 'character)
#@42 *Mark used for sparsely reffed articles.
(custom-declare-variable 'gnus-sparse-mark '81 '(#$ . -22513) :group 'gnus-summary-marks :type 'character)
#@35 *Mark used for canceled articles.
(custom-declare-variable 'gnus-canceled-mark '71 '(#$ . -22667) :group 'gnus-summary-marks :type 'character)
#@36 *Mark used for duplicate articles.
(custom-declare-variable 'gnus-duplicate-mark '77 '(#$ . -22816) :group 'gnus-summary-marks :type 'character)
#@50 *Mark used for articles that weren't downloaded.
(custom-declare-variable 'gnus-undownloaded-mark '45 '(#$ . -22967) :version "22.1" :group 'gnus-summary-marks :type 'character)
#@47 *Mark used for articles that were downloaded.
(custom-declare-variable 'gnus-downloaded-mark '43 '(#$ . -23151) :group 'gnus-summary-marks :type 'character)
#@52 *Mark used for articles that are to be downloaded.
(custom-declare-variable 'gnus-downloadable-mark '37 '(#$ . -23314) :group 'gnus-summary-marks :type 'character)
#@45 *Mark used for articles that won't be sent.
(custom-declare-variable 'gnus-unsendable-mark '61 '(#$ . -23484) :group 'gnus-summary-marks :type 'character)
#@49 *Score mark used for articles with high scores.
(custom-declare-variable 'gnus-score-over-mark '43 '(#$ . -23645) :group 'gnus-summary-marks :type 'character)
#@48 *Score mark used for articles with low scores.
(custom-declare-variable 'gnus-score-below-mark '45 '(#$ . -23810) :group 'gnus-summary-marks :type 'character)
#@40 *There is no thread under the article.
(custom-declare-variable 'gnus-empty-thread-mark '32 '(#$ . -23975) :group 'gnus-summary-marks :type 'character)
#@39 *There is a thread under the article.
(custom-declare-variable 'gnus-not-empty-thread-mark '61 '(#$ . -24133) :group 'gnus-summary-marks :type 'character)
#@61 *If non-nil, Gnus will view pseudo-articles asynchronously.
(custom-declare-variable 'gnus-view-pseudo-asynchronously 'nil '(#$ . -24294) :group 'gnus-extract-view :type 'boolean)
#@76 *The list of marks converted into expiration if a group is auto-expirable.
(custom-declare-variable '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) '(#$ . -24480) :version "24.1" :group 'gnus-summary :type '(repeat character))
#@120 *If non-nil, user marking commands will not mark an article as expirable, even if the group has auto-expire turned on.
(custom-declare-variable 'gnus-inhibit-user-auto-expire 't '(#$ . -24823) :version "21.1" :group 'gnus-summary :type 'boolean)
#@384 If non-nil, mark articles copied or moved to auto-expire group as expirable.
If nil, the expirable marks will be unchanged except that the marks
will be removed when copying or moving articles to a group that has
not turned auto-expire on.  If non-nil, articles that have been read
will be marked as expirable when being copied or moved to a group in
which auto-expire is turned on.
(custom-declare-variable 'gnus-mark-copied-or-moved-articles-as-expirable 'nil '(#$ . 25076) :version "23.2" :type 'boolean :group 'gnus-summary-marks)
#@175 *If `automatic', pseudo-articles will be viewed automatically.
If `not-confirm', pseudos will be viewed automatically, and the user
will not be asked to confirm the command.
(custom-declare-variable 'gnus-view-pseudos 'nil '(#$ . -25618) :group 'gnus-extract-view :type '(choice (const :tag "off" nil) (const automatic) (const not-confirm)))
#@184 *If non-nil, one pseudo-article will be created for each file to be viewed.
If nil, all files that use the same viewing command will be given as a
list of parameters to that command.
(custom-declare-variable 'gnus-view-pseudos-separately 't '(#$ . -25967) :group 'gnus-extract-view :type 'boolean)
#@61 *If non-nil, insert pseudo-articles when decoding articles.
(custom-declare-variable 'gnus-insert-pseudo-articles 't '(#$ . -26271) :group 'gnus-extract-view :type 'boolean)
#@256 *The format specification for the dummy roots in the summary buffer.
It works along the same lines as a normal formatting string,
with some simple extensions.

%S  The subject

General format specifiers can also be used.
See `(gnus)Formatting Variables'.
(custom-declare-variable 'gnus-summary-dummy-line-format '"   %(:                             :%) %S\n" '(#$ . -26452) :link '(custom-manual "(gnus)Formatting Variables") :group 'gnus-threading :type 'string)
#@657 *The format specification for the summary mode line.
It works along the same lines as a normal formatting string,
with some simple extensions:

%G  Group name
%p  Unprefixed group name
%A  Current article number
%z  Current article score
%V  Gnus version
%U  Number of unread articles in the group
%e  Number of unselected articles in the group
%Z  A string with unread/unselected article counts
%g  Shortish group name
%S  Subject of the current article
%u  User-defined spec
%s  Current score file name
%d  Number of dormant articles
%r  Number of articles that have been marked as read in this session
%E  Number of articles expunged by the score files
(custom-declare-variable 'gnus-summary-mode-line-format '"Gnus: %g [%A] %Z" '(#$ . -26923) :group 'gnus-summary-format :type 'string)
#@102 Regexp that matches list identifiers to be removed from subject.
This can also be a list of regexps.
(custom-declare-variable 'gnus-list-identifiers 'nil '(#$ . 27720) :version "21.1" :group 'gnus-summary-format :group 'gnus-article-hiding :type '(choice (const :tag "none" nil) (regexp :value ".*") (repeat :value (".*") regexp)))
#@143 *Mark all articles with a score below this variable as read.
This variable is local to each summary buffer and usually set by the
score file.
(custom-declare-variable 'gnus-summary-mark-below '0 '(#$ . -28059) :group 'gnus-score-default :type 'integer)
#@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 (#$ . 28319)])
#@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 (#$ . 28589)])
#@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 (#$ . 28912)])
(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)
#@1029 *List of functions used for sorting articles in the summary buffer.

Each function takes two articles and returns non-nil if the first
article should be sorted before the other.  If you use more than one
function, the primary sort function should be the last.  You should
probably always include `gnus-article-sort-by-number' in the list of
sorting functions -- preferably first.  Also note that sorting by date
is often much slower than sorting by number, and the sorting order is
very similar.  (Sorting by date means sorting by the time the message
was sent, sorting by number means sorting by arrival time.)

Each item can also be a list `(not F)' where F is a function;
this reverses the sort order.

Ready-made functions include `gnus-article-sort-by-number',
`gnus-article-sort-by-author', `gnus-article-sort-by-subject',
`gnus-article-sort-by-date', `gnus-article-sort-by-random'
and `gnus-article-sort-by-score'.

When threading is turned on, the variable `gnus-thread-sort-functions'
controls how articles are sorted.
(custom-declare-variable 'gnus-article-sort-functions ''(gnus-article-sort-by-number) '(#$ . -29462) :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"))))
#@1267 *List of functions used for sorting threads in the summary buffer.
By default, threads are sorted by article number.

Each function takes two threads and returns non-nil if the first
thread should be sorted before the other.  If you use more than one
function, the primary sort function should be the last.  You should
probably always include `gnus-thread-sort-by-number' in the list of
sorting functions -- preferably first.  Also note that sorting by date
is often much slower than sorting by number, and the sorting order is
very similar.  (Sorting by date means sorting by the time the message
was sent, sorting by number means sorting by arrival time.)

Each list item can also be a list `(not F)' where F is a
function; this specifies reversed sort order.

Ready-made functions include `gnus-thread-sort-by-number',
`gnus-thread-sort-by-author', `gnus-thread-sort-by-recipient'
`gnus-thread-sort-by-subject', `gnus-thread-sort-by-date',
`gnus-thread-sort-by-score', `gnus-thread-sort-by-most-recent-number',
`gnus-thread-sort-by-most-recent-date', `gnus-thread-sort-by-random',
and `gnus-thread-sort-by-total-score' (see
`gnus-thread-score-function').

When threading is turned off, the variable
`gnus-article-sort-functions' controls how articles are sorted.
(custom-declare-variable 'gnus-thread-sort-functions ''(gnus-thread-sort-by-number) '(#$ . -30993) :group 'gnus-summary-sort :type '(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"))))
#@237 *Function used for calculating the total score of a thread.

The function is called with the scores of the article and each
subthread and should then return the score of the thread.

Some functions you can use are `+', `max', or `min'.
(custom-declare-variable 'gnus-thread-score-function ''+ '(#$ . -32955) :group 'gnus-summary-sort :type 'function)
#@121 All articles that have a score less than this variable will be expunged.
This variable is local to the summary buffers.
(custom-declare-variable 'gnus-summary-expunge-below 'nil '(#$ . 33313) :group 'gnus-score-default :type '(choice (const :tag "off" nil) integer))
#@208 All threads that have a total score less than this variable will be expunged.
See `gnus-thread-score-function' for en explanation of what a
"thread score" is.

This variable is local to the summary buffers.
(custom-declare-variable 'gnus-thread-expunge-below 'nil '(#$ . 33587) :group 'gnus-threading :group 'gnus-score-default :type '(choice (const :tag "off" nil) integer))
#@101 *A hook for Gnus summary mode.
This hook is run before any variables are set in the summary buffer.
(custom-declare-variable 'gnus-summary-mode-hook 'nil '(#$ . -33970) :options '(turn-on-gnus-mailing-list-mode gnus-pick-mode) :group 'gnus-summary-various :type 'hook)
#@56 *Hook run after the creation of the summary mode menu.
(custom-declare-variable 'gnus-summary-menu-hook 'nil '(#$ . -34245) :group 'gnus-summary-visual :type 'hook)
#@99 *A hook called on exit from the summary buffer.
It will be called with point in the group buffer.
(custom-declare-variable 'gnus-summary-exit-hook 'nil '(#$ . -34416) :group 'gnus-summary-exit :type 'hook)
#@126 *A hook called after the summary buffer has been generated.
If you want to modify the summary buffer, you can use this hook.
(custom-declare-variable 'gnus-summary-prepare-hook 'nil '(#$ . -34629) :group 'gnus-summary-various :type 'hook)
#@79 *A hook called as the last thing after the summary buffer has been generated.
(custom-declare-variable 'gnus-summary-prepared-hook 'nil '(#$ . -34874) :group 'gnus-summary-various :type 'hook)
#@130 *A hook run just before generating the summary buffer.
This hook is commonly used to customize threading variables and the
like.
(custom-declare-variable 'gnus-summary-generate-hook 'nil '(#$ . -35074) :group 'gnus-summary-various :type 'hook)
#@399 *A hook called when a newsgroup is selected.

If you'd like to simplify subjects like the
`gnus-summary-next-same-subject' command does, you can use the
following hook:

 (add-hook gnus-select-group-hook
	   (lambda ()
	     (mapcar (lambda (header)
		       (mail-header-set-subject
			header
			(gnus-simplify-subject
			 (mail-header-subject header) 're-only)))
		     gnus-newsgroup-headers)))
(custom-declare-variable 'gnus-select-group-hook 'nil '(#$ . -35325) :group 'gnus-group-select :type 'hook)
#@45 *A hook called when an article is selected.
(custom-declare-variable 'gnus-select-article-hook 'nil '(#$ . -35837) :group 'gnus-summary-choose :options '(gnus-agent-fetch-selected-article) :type 'hook)
#@166 *Hook run after selecting an article in the summary buffer.
It is meant to be used for highlighting the article in some way.  It
is not run if `gnus-visual' is nil.
(custom-declare-variable 'gnus-visual-mark-article-hook '(list 'gnus-highlight-selected-summary) '(#$ . -36046) :group 'gnus-summary-visual :type 'hook)
#@44 *A hook called before parsing the headers.
(custom-declare-variable 'gnus-parse-headers-hook 'nil '(#$ . -36370) :group 'gnus-various :type 'hook)
#@113 *A hook called when exiting summary mode.
This hook is not called from the non-updating exit commands like `Q'.
(custom-declare-variable 'gnus-exit-group-hook 'nil '(#$ . -36524) :group 'gnus-various :type 'hook)
#@229 *A hook called when a summary line is changed.
The hook will not be called if `gnus-visual' is nil.

The default function `gnus-summary-highlight-line' will
highlight the line according to the `gnus-summary-highlight'
variable.
(custom-declare-variable 'gnus-summary-update-hook 'nil '(#$ . -36744) :group 'gnus-summary-visual :type 'hook)
#@159 *A hook called when an article is selected for the first time.
The hook is intended to mark an article as read (or unread)
automatically when it is selected.
(custom-declare-variable 'gnus-mark-article-hook ''(gnus-summary-mark-read-and-unread-as-read) '(#$ . -37091) :group 'gnus-summary-choose :type 'hook)
#@74 *A hook run when returning to group mode having no more (unread) groups.
(custom-declare-variable 'gnus-group-no-more-groups-hook 'nil '(#$ . -37406) :group 'gnus-group-select :type 'hook)
#@53 *A hook run before ps-printing something from Gnus.
(custom-declare-variable 'gnus-ps-print-hook 'nil '(#$ . -37601) :group 'gnus-summary :type 'hook)
#@78 *A hook called after an article is moved, copied, respooled, or crossposted.
(custom-declare-variable 'gnus-summary-article-move-hook 'nil '(#$ . -37758) :version "22.1" :group 'gnus-summary :type 'hook)
#@45 *A hook called after an article is deleted.
(custom-declare-variable 'gnus-summary-article-delete-hook 'nil '(#$ . -37968) :version "22.1" :group 'gnus-summary :type 'hook)
#@45 *A hook called after an article is expired.
(custom-declare-variable 'gnus-summary-article-expire-hook 'nil '(#$ . -38147) :version "22.1" :group 'gnus-summary :type 'hook)
#@65 *If non-nil, display an arrow highlighting the current article.
(custom-declare-variable 'gnus-summary-display-arrow '(and (fboundp 'display-graphic-p) (display-graphic-p)) '(#$ . -38326) :version "22.1" :group 'gnus-summary :type 'boolean)
#@71 Face used for highlighting the current article in the summary buffer.
(custom-declare-variable 'gnus-summary-selected-face ''gnus-summary-selected '(#$ . 38573) :group 'gnus-summary-visual :type 'face)
(byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list gnus-tmp-downloaded default-boundp set-default nil] 3)
#@734 *Controls the highlighting of summary buffer lines.

A list of (FORM . FACE) pairs.  When deciding how a particular
summary line should be displayed, each form is evaluated.  The content
of the face field after the first true form is used.  You can change
how those summary lines are displayed, by editing the face field.

You can use the following variables in the FORM field.

score:        The article's score.
default:      The default article score.
default-high: The default score for high scored articles.
default-low:  The default score for low scored articles.
below:        The score below which articles are automatically marked as read.
mark:         The article's mark.
uncached:     Non-nil if the article is uncached.
(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)) '(#$ . -38918) :group 'gnus-summary-visual :type '(repeat (cons (sexp :tag "Form" nil) face)))
(put 'gnus-summary-highlight 'risky-local-variable t)
#@168 Function called to allow alteration of article header structures.
The function is called with one parameter, the article header vector,
which it may alter in any way.
(custom-declare-variable 'gnus-alter-header-function 'nil '(#$ . 41018) :type '(choice (const :tag "None" nil) function) :group 'gnus-summary)
#@54 Function used to decode a string with encoded words.
(defvar gnus-decode-encoded-word-function 'mail-decode-encoded-word-string (#$ . 41334))
#@55 Function used to decode addresses with encoded words.
(defvar gnus-decode-encoded-address-function 'mail-decode-encoded-address-string (#$ . 41482))
#@26 *Extra headers to parse.
(custom-declare-variable 'gnus-extra-headers ''(To Newsgroups) '(#$ . -41637) :version "21.1" :group 'gnus-summary :type '(repeat symbol))
#@105 *From headers that may be suppressed in favor of To headers.
This can be a regexp or a list of regexps.
(custom-declare-variable 'gnus-ignored-from-addresses '(and user-mail-address (not (string= user-mail-address "")) (regexp-quote user-mail-address)) '(#$ . -41808) :version "21.1" :group 'gnus-summary :type '(choice regexp (repeat :tag "Regexp List" regexp)))
(defalias 'gnus-ignored-from-addresses #[nil "\301!\207" [gnus-ignored-from-addresses gmm-regexp-concat] 2])
(put 'gnus-ignored-from-addresses 'byte-optimizer 'byte-compile-inline-expand)
#@96 *String prefixed to the To field in the summary line when
using `gnus-ignored-from-addresses'.
(custom-declare-variable 'gnus-summary-to-prefix '"-> " '(#$ . -42367) :version "22.1" :group 'gnus-summary :type 'string)
#@103 *String prefixed to the Newsgroup field in the summary
line when using `gnus-ignored-from-addresses'.
(custom-declare-variable 'gnus-summary-newsgroup-prefix '"=> " '(#$ . -42592) :version "22.1" :group 'gnus-summary :type 'string)
#@141 List of charsets that should be ignored.
When these charsets are used in the "charset" parameter, the
default charset will be used instead.
(custom-declare-variable 'gnus-newsgroup-ignored-charsets ''(unknown-8bit x-unknown) '(#$ . 42831) :version "21.1" :type '(repeat symbol) :group 'gnus-charset)
#@271 The maximum number of articles a newsgroup.
If this is a number, old articles in a newsgroup exceeding this number
are silently ignored.  If it is nil, no article is ignored.  Note that
setting this variable to a number might prevent you from reading very
old articles.
(custom-declare-variable 'gnus-newsgroup-maximum-articles 'nil '(#$ . 43138) :group 'gnus-group-select :version "22.2" :type '(choice (const :tag "No limit" nil) integer))
#@177 Alist of regexps (to match group names) and charsets that should be ignored.
When these charsets are used in the "charset" parameter, the
default charset will be used instead.
(custom-declare-variable 'gnus-group-ignored-charsets-alist ''(("alt\\.chinese\\.text" iso-8859-1)) '(#$ . 43587) :group 'gnus-group-parameter :group 'gnus-charset :type '(repeat (cons (regexp :tag "Group") (repeat symbol))))
(byte-code "\301\302\236\"\303\300\302\304\305E\"\207" [gnus-group-parameters-more 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."] 5)
#@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 (#$ . 44329)])
#@108 Alist of group regexps and highlight regexps.
This variable uses the same syntax as `gnus-emphasis-alist'.
(custom-declare-variable 'gnus-group-highlight-words-alist 'nil '(#$ . 44668) :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)
#@157 Alist of number and charset.
The article will be shown with the charset corresponding to the
numbered argument.
For example: ((1 . cn-gb-2312) (2 . big5)).
(custom-declare-variable 'gnus-summary-show-article-charset-alist 'nil '(#$ . 45133) :version "21.1" :type '(repeat (cons (number :tag "Argument" 1) (symbol :tag "Charset"))) :group 'gnus-charset)
#@75 Whether marks are preserved when moving, copying and respooling messages.
(custom-declare-variable 'gnus-preserve-marks 't '(#$ . 45492) :version "21.1" :type 'boolean :group 'gnus-summary-marks)
#@183 If non-nil, Gnus will store and retrieve marks from the backends.
This means that marks will be stored both in .newsrc.eld and in
the backend, and will slow operation down somewhat.
(custom-declare-variable 'gnus-propagate-marks 'nil '(#$ . 45695) :type 'boolean :group 'gnus-summary-marks)
#@69 Function to be called to alter the list of articles to be selected.
(custom-declare-variable 'gnus-alter-articles-to-read-function 'nil '(#$ . 45992) :type '(choice (const nil) function) :group 'gnus-summary)
#@60 *All orphans get this score added.  Set in the score file.
(custom-declare-variable 'gnus-orphan-score 'nil '(#$ . -46207) :group 'gnus-score-default :type '(choice (const nil) integer))
#@249 *A regexp to match MIME parts when saving multiple parts of a
message with `gnus-summary-save-parts' (\<gnus-summary-mode-map>\[gnus-summary-save-parts]).
This regexp will be used by default when prompting the user for which
type of files to save.
(custom-declare-variable 'gnus-summary-save-parts-default-mime '"image/.*" '(#$ . -46401) :group 'gnus-summary :type 'regexp)
#@198 Whether Gnus should parse all headers made available to it.
This is mostly relevant for slow back ends where the user may
wish to widen the summary buffer to include all headers
that were fetched.
(custom-declare-variable 'gnus-read-all-available-headers 'nil '(#$ . 46782) :version "22.1" :group 'gnus-summary :type '(choice boolean regexp))
#@272 Command (and optional arguments) used to pipe article to subprocess.
This will be used as the default command if it is non-nil.  The value
will be updated if you modify it when executing the command
`gnus-summary-pipe-output' or the function `gnus-summary-save-in-pipe'.
(custom-declare-variable 'gnus-summary-pipe-output-default-command 'nil '(#$ . 47132) :version "23.1" :group 'gnus-summary :type '(radio (const :tag "None" nil) (string :tag "Command")))
#@153 Command (and optional arguments) used to run Muttprint.
The value will be updated if you modify it when executing the command
`gnus-summary-muttprint'.
(custom-declare-variable 'gnus-summary-muttprint-program '"muttprint" '(#$ . 47597) :version "22.1" :group 'gnus-summary :type 'string)
#@297 If non-nil, don't require MIME-Version header.
Some brain-damaged MUA/MTA, e.g. Lotus Domino 5.0.6 clients, does not
supply the MIME-Version header or deliberately strip it from the mail.
If non-nil (the default), Gnus will treat some articles as MIME
even if the MIME-Version header is missing.
(custom-declare-variable 'gnus-article-loose-mime 't '(#$ . 47892) :version "22.1" :type 'boolean :group 'gnus-article-mime)
#@228 If non-nil, use MIME emulation for uuencode and the like.
This means that Gnus will search message bodies for text that look
like uuencoded bits, yEncoded bits, and so on, and present that using
the normal Gnus MIME machinery.
(custom-declare-variable 'gnus-article-emulate-mime 't '(#$ . 48320) :version "22.1" :type 'boolean :group 'gnus-article-mime)
(byte-code "\302B\303\302!\204\304\302\305\"\210\306B\303\306!\204\304\306\305\"\210\307B\303\307!\204-\304\307\305\"\210\310B\303\310!\204<\304\310\305\"\210\311B\303\311!\204K\304\311\305\"\210\312B\303\312!\204Z\304\312\305\"\210\313B\303\313!\204i\304\313\305\"\210\314B\303\314!\204x\304\314\305\"\210\315B\303\315!\204\207\304\315\305\"\210\316B\303\316!\204\226\304\316\305\"\210\317B\303\317!\204\245\304\317\305\"\210\320B\303\320!\204\264\304\320	\"\210\305\207" [current-load-list gnus-thread-indent-level gnus-summary-display-cache default-boundp set-default nil gnus-article-mime-handles gnus-article-decoded-p gnus-article-charset gnus-article-ignored-charsets gnus-scores-exclude-files gnus-page-broken gnus-original-article gnus-article-internal-prepare-hook gnus-newsgroup-process-stack gnus-thread-indent-array gnus-thread-indent-array-level] 3)
#@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 (#$ . 49582))
(byte-code "\302B\303\302!\204\304\302\305\"\210\306B\303\306!\204\304\306	\"\210\307B\303\307!\204-\304\307\305\"\210\310B\303\310!\204<\304\310\305\"\210\311B\303\311!\204K\304\311\305\"\210\312B\303\312!\204Z\304\312\305\"\210\313B\303\313!\204i\304\313\305\"\210\314B\303\314!\204x\304\314\305\"\210\315B\303\315!\204\207\304\315\305\"\210\316B\303\316!\204\226\304\316\305\"\210\317B\303\317!\204\245\304\317\305\"\210\320B\303\320!\204\264\304\320\305\"\210\321B\303\321!\204\303\304\321\305\"\210\322B\303\322!\204\322\304\322\305\"\210\305\207" [current-load-list mm-default-directory gnus-summary-save-parts-type-history default-boundp set-default nil gnus-summary-save-parts-last-directory gnus-summary-inhibit-highlight gnus-newsgroup-selected-overlay gnus-inhibit-limiting gnus-newsgroup-adaptive-score-file gnus-current-score-file gnus-current-move-group gnus-current-copy-group gnus-current-crosspost-group gnus-newsgroup-display gnus-newsgroup-dependencies gnus-newsgroup-adaptive gnus-summary-display-article-function] 3)
#@52 Function called after highlighting a summary line.
(defvar gnus-summary-highlight-line-function nil (#$ . 50846))
#@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!\341BB\342BB\343\336\337\344!\345BB\346BB\347\336\337\350!\351BB\352BB\353\354\355\356\357\360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\301\377!D\201@BB\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 gnus-macroexpand-all (nnir-article-rsv (mail-header-number gnus-tmp-header)) (0) (100) 71 (nnir-article-group (mail-header-number gnus-tmp-header)) (#1="") (115) 103 (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) (#$ . 50967))
(byte-code "\302B\303\302!\204\304\302\305\"\210\301B\303\301!\204\304\301\306\"\210\307B\303\307!\204/\304\307\310	\244\"\210\302\207" [current-load-list gnus-summary-mode-line-format-alist gnus-summary-dummy-line-format-alist default-boundp set-default ((83 gnus-tmp-subject 115) (78 gnus-tmp-number 100) (117 gnus-tmp-user-defined 115)) ((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)) gnus-article-mode-line-format-alist ((119 (gnus-article-wash-status) 115) (109 (gnus-article-mime-part-status) 115))] 4)
#@44 Default regexp for article search command.
(defvar gnus-last-search-regexp nil (#$ . 54734))
#@35 Default shell command on article.
(defvar gnus-last-shell-command nil (#$ . 54833))
#@89 Locally bound in each summary buffer to indicate whether the server has been agentized.
(defvar gnus-newsgroup-agentized nil (#$ . 54923))
(byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\306B\302\306!\204-\303\306\304\"\210\307B\302\307!\204<\303\307\304\"\210\310B\302\310!\204K\303\310\304\"\210\311B\302\311!\204Z\303\311\304\"\210\312B\302\312!\204i\303\312\304\"\210\313B\302\313!\204x\303\313\304\"\210\314B\302\314!\204\207\303\314\304\"\210\315B\302\315!\204\226\303\315\304\"\210\316B\302\316!\204\245\303\316\304\"\210\317B\302\317!\204\264\303\317\304\"\210\320B\302\320!\204\303\303\320\304\"\210\321B\302\321!\204\322\303\321\304\"\210\322B\302\322!\204\341\303\322\304\"\210\304\207" [current-load-list gnus-newsgroup-begin default-boundp set-default nil 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-active gnus-newsgroup-highest gnus-newsgroup-data gnus-newsgroup-data-reverse gnus-newsgroup-limit gnus-newsgroup-limits gnus-summary-use-undownloaded-faces] 3)
#@58 Sorted list of unread articles in the current newsgroup.
(defvar gnus-newsgroup-unreads nil (#$ . 56137))
#@69 Sorted list of unselected unread articles in the current newsgroup.
(defvar gnus-newsgroup-unselected nil (#$ . 56249))
#@68 Alist of read articles and article marks in the current newsgroup.
(defvar gnus-newsgroup-reads nil (#$ . 56375))
(byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list gnus-newsgroup-expunged-tally default-boundp set-default nil] 3)
#@83 Sorted list of ticked articles in the current newsgroup (a subset of unread art).
(defvar gnus-newsgroup-marked nil (#$ . 56641))
#@59 List of ranges of articles that have been marked as spam.
(defvar gnus-newsgroup-spam-marked nil (#$ . 56777))
#@72 List of ranges of articles that have been through the scoring process.
(defvar gnus-newsgroup-killed nil (#$ . 56894))
#@59 Sorted list of articles that come from the article cache.
(defvar gnus-newsgroup-cached nil (#$ . 57019))
#@40 List of articles that have been saved.
(defvar gnus-newsgroup-saved nil (#$ . 57131))
(byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list gnus-newsgroup-kill-headers default-boundp set-default nil] 3)
#@70 List of articles that have been replied to in the current newsgroup.
(defvar gnus-newsgroup-replied nil (#$ . 57367))
#@69 List of articles that have been forwarded in the current newsgroup.
(defvar gnus-newsgroup-forwarded nil (#$ . 57491))
#@65 List of articles that have are recent in the current newsgroup.
(defvar gnus-newsgroup-recent nil (#$ . 57616))
#@71 Sorted list of articles in the current newsgroup that can be expired.
(defvar gnus-newsgroup-expirable nil (#$ . 57734))
#@66 List of articles in the current newsgroup that can be processed.
(defvar gnus-newsgroup-processable nil (#$ . 57861))
#@73 Sorted list of articles in the current newsgroup that can be processed.
(defvar gnus-newsgroup-downloadable nil (#$ . 57985))
#@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 (#$ . 58118))
#@73 List of articles in the current newsgroup that haven't been downloaded.
(defvar gnus-newsgroup-undownloaded nil (#$ . 58343))
#@63 List of articles in the current newsgroup that won't be sent.
(defvar gnus-newsgroup-unsendable nil (#$ . 58475))
#@64 List of articles in the current newsgroup that have bookmarks.
(defvar gnus-newsgroup-bookmarks nil (#$ . 58595))
#@59 Sorted list of dormant articles in the current newsgroup.
(defvar gnus-newsgroup-dormant nil (#$ . 58715))
#@51 List of unseen articles in the current newsgroup.
(defvar gnus-newsgroup-unseen nil (#$ . 58828))
#@50 Range of seen articles in the current newsgroup.
(defvar gnus-newsgroup-seen nil (#$ . 58932))
#@44 List of articles in the current newsgroup.
(defvar gnus-newsgroup-articles nil (#$ . 59033))
#@51 List of scored articles in the current newsgroup.
(defvar gnus-newsgroup-scored nil (#$ . 59132))
#@51 List of article headers in the current newsgroup.
(defvar gnus-newsgroup-headers nil (#$ . 59236))
(byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list gnus-newsgroup-threads default-boundp set-default nil] 3)
#@55 Whether the current group has been prepared properly.
(defvar gnus-newsgroup-prepared nil (#$ . 59480))
#@69 List of `gnus-fetch-old-headers' articles in the current newsgroup.
(defvar gnus-newsgroup-ancient nil (#$ . 59590))
(byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\306B\302\306!\204-\303\306\304\"\210\307B\302\307!\204<\303\307\304\"\210\310B\302\310!\204K\303\310\304\"\210\311B\302\311!\204Z\303\311\304\"\210\312B\302\312!\204i\303\312\304\"\210\313B\302\313!\204x\303\313\304\"\210\314B\302\314!\204\207\303\314\304\"\210\315B\302\315!\204\226\303\315\304\"\210\316B\302\316!\204\245\303\316\304\"\210\304\207" [current-load-list gnus-newsgroup-sparse default-boundp set-default nil gnus-current-article gnus-article-current gnus-current-headers gnus-have-all-headers gnus-last-article gnus-newsgroup-history gnus-newsgroup-charset gnus-newsgroup-ephemeral-charset gnus-newsgroup-ephemeral-ignored-charsets gnus-article-before-search] 3)
#@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-recent 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) (#$ . 60511))
#@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 (#$ . 62494))
#@421 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 only apply to thes 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) (#$ . 63444))
(byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list gnus-decode-encoded-word-methods-cache default-boundp set-default nil] 3)
#@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\203Y
@\211!
A\211\204I\306*\207" [gnus-decode-encoded-word-methods-cache gnus-newsgroup-name gnus-decode-encoded-word-methods method #1=#:--cl-dolist-temp-- #2=#:--cl-dolist-temp-- nil string-match string] 4 (#$ . 64115)])
#@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 (#$ . 64613)])
#@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 (#$ . 64906)])
#@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 (#$ . 65109)])
(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 (#$ . 65384)])
(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 #[nil "\305\306\307\310eb\210\311\306\305#\203\312\n\206\313!\210\202*\314 =\204\251\314 \f<\2036\315\316\f\"\210\202U\f\203U\f\306eb\210\311\306\305#\203T\312\n\206O\313!\210\202A*\317\306eb\210\311\306\305#\203o\312\n\206j\313!\210\202\\*\320\306eb\210\311\306\305#\203\212\312\n\206\205\313!\210\202w*\321\322eb\210\311\306\305#\203\245\312\n\206\240\313!\210\202\222*\202\323\306eb\210\311\306\305#\203\303\312\n\206\276\313!\210\202\260*\324\310eb\210\311\306\305#\203\336\312\n\206\331\313!\210\202\313*\325\306eb\210\311\306\305#\203\371\312\n\206\364\313!\210\202\346*\326\306eb\210\311\306\305#\205\312\n\206\313!\210\202,\207" [modified-tick case-fold-search newtext regexp gnus-simplify-subject-fuzzy-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 (#$ . 66131)])
#@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	\n\"\203\n\311\225\312O\nc\210\307\312\313\314eb\210\315
\312\307#\2038\316\f\2063\317!\210\202%*\320 =\204\307\320 <\203R\321\322\"\210\202s\203s\312eb\210\315
\312\307#\203r\316\f\206m\317!\210\202_*\323\312eb\210\315
\312\307#\203\215\316\f\206\210\317!\210\202z*\324\312eb\210\315
\312\307#\203\250\316\f\206\243\317!\210\202\225*\325\326eb\210\315
\312\307#\203\303\316\f\206\276\317!\210\202\260*\2029\327\312eb\210\315
\312\307#\203\341\316\f\206\334\317!\210\202\316*\330\314eb\210\315
\312\307#\203\374\316\f\206\367\317!\210\202\351*\331\312eb\210\315
\312\307#\203\316\f\206\317!\210\202*\332\312eb\210\315
\312\307#\2052\316\f\206-\317!\210\202,\210\333 *\207" [case-fold-search gnus-simplify-ignored-prefixes subject modified-tick newtext regexp 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 gnus-simplify-subject-fuzzy-regexp] 4 (#$ . 67565)])
#@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 (#$ . 68919)])
(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 (#$ . 69509)])
(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 (#$ . 70607)])
(byte-code "\301\302\303\304#\210\305\306\307\"\210\305\310\311\"\210\305\312\313\"\210\305\314\315\"\210\305\316\317\"\210\305\320\321\"\210\305\322\323\"\210\305\324\325\"\210\305\326\327\"\210\305\330\331\"\210\305\332\333\"\210\305\334\335\"\210\305\336\337\"\210\305\340\341\"\210\305\342\343\"\210\305\344\345\"\210\305\346\347\"\210\305\350\351\"\210\305\352\353\"\210\305\354\355\"\210\305\356\357\"\210\305\360\361\"\210\305\362\363\"\210\305\364\365\"\210\305\366\367\"\210\370B\371\370!\204\222\372\370\373\"\210\374B\375\376!\207" [current-load-list 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 [tab] gnus-summary-widget-forward "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 [tab] gnus-summary-widget-forward "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) gnus-article-post-menu default-boundp set-default nil gnus-summary-menu-maxlen (lambda (#1=#:defconst-tmp-var) (defconst gnus-summary-menu-maxlen #1#)) 20] 4)
(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!?\205\241\312\313\314\315#\210\316\313!\204\317\313\320\"\210\321\313\315\322\323C\324\325!\244\324\326!\244\327\244B$\210\330\331\332\333\334\335\336\337\340\341\342\343\344\345\346\347\350BBBB\"\351\352\353\354\355\356\342\343\344\345\346\357\360BBBB\"\361BBBBBB\257\362\363\364\365\366\367\370\371\372\373\374\375\376\377\201B\201C\201D!\203\203\201D \202\211\376\201E	\"\201F\"\"!B\257\n\201G\201H\201I\201J\201K\201L\201M\201N\201O\201P\201Q\201R\201S\342\343\201T\201U\201VBB\"\201WBBBBBBBBBBBBBB\201X\342\343\201Y\201Z\201[BB\"\342\343\201\\\201]\201^BB\"\201_\201`\201a\201b\201c\201d\201e\342\343\201f\201g\201hBB\"\257\201i\201j\201k\201l\"B\201m\342\343\201n\201o\201pBB\"\201qBB\201rBBBBBBBBB\312\303\314\315#\210\316\303!\204^\317\303\320\"\210\321\303\315\201s\nB$\210\201t!\204\220\312\305\314\315#\210\316\305!\204\202\317\305\320\"\210\321\305\f\315\201u\nB$\210\202\244\201v!\201w\f\201x\201u
B#\210)\312\201y\314\315#\210\316\201y!\204\274\317\201y\320\"\210\321\201y\315\201z$\210\312\201@\314\315#\210\316\201@!\204\336\317\201@\320\"\210\321\201@\315\201{\342\343\201|\201}\201~BB\"\342\343\201\201\200\201\201BB\"\342\343\201\202\201\203\201\204BB\"\201\205\342\343\201\206\201\207\201\210BB\"\201\211\201\212\201\213\342\343\201\214\201\215\201\216BB\"\201\217\342\343\201\220\201\221\201\222BB\"\201\223\201\224\201\225\201\226\201\227\201\230\201\231\201\232\201\233\342\343\201\234\201\235\201\236BB\"\201\237\201\240\342\343\201\241\201\242\201j\201\243\201\244\201\245#BB\"\257$\210\201t@!\204\245@A\202\262A\204\262\201v@!A\201w\f\201\246\201{AB#\210\312\311\314\315#\210\316\311!\204\322\317\311\320\"\210\321\311\315\201\247\201\250\201\251\201\252\201\253\342\343\201\254\201\255\201\256BB\"\201\257BBBBB\201\260\201\261\201\262\201\263\201\264\342\343\201\265\201\266\201\267BB\"\342\343\201\270\201\271\201\272BB\"\201\273BBB\201\274\201\275\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\342\343\201\320\201\321\201\322BB\"\201\323\201\324\201\325\342\343\201\326\201\327\201\330BB\"\201\331BBBBBB\257$\210\201\332\201\333!\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 put gnus-summary-kill-menu variable-documentation "" default-boundp set-default nil easy-menu-do-define "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] gnus-summary-post-menu gnus-article-post-menu sort fboundp coding-system-list 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"]) "Article" keymapp "Commands" copy-keymap define-key [menu-bar commands] 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]) "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] "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])
(byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list gnus-summary-tool-bar-map default-boundp set-default nil] 3)
#@68 Update summary mode toolbar.
Setter function for custom variables.
(defalias 'gnus-summary-tool-bar-update #[(&optional symbol value) "\303\304\305\"\210\203\303	\"\210\306\n!\205r\nq\210\307 )\207" [symbol value gnus-summary-buffer set-default gnus-summary-tool-bar-map nil gnus-buffer-live-p gnus-summary-make-tool-bar] 3 (#$ . 108196)])
#@296 Specifies the Gnus summary tool bar.

It can be either a list or a symbol refering to a list.  See
`gmm-tool-bar-from-list' for the format of the list.  The
default key map is `gnus-summary-mode-map'.

Pre-defined symbols include `gnus-summary-tool-bar-gnome' and
`gnus-summary-tool-bar-retro'.
(custom-declare-variable 'gnus-summary-tool-bar '(if (eq gmm-tool-bar-style 'gnome) 'gnus-summary-tool-bar-gnome 'gnus-summary-tool-bar-retro) '(#$ . 108549) :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)
#@117 List of functions for the summary tool bar (GNOME style).

See `gmm-tool-bar-from-list' for the format of the list.
(custom-declare-variable '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")) '(#$ . 109307) :type '(repeat gmm-tool-bar-item) :version "23.1" :initialize 'custom-initialize-default :set 'gnus-summary-tool-bar-update :group 'gnus-summary)
#@116 List of functions for the summary tool bar (retro look).

See `gmm-tool-bar-from-list' for the format of the list.
(custom-declare-variable '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)) '(#$ . 110999) :type '(repeat gmm-tool-bar-item) :version "23.1" :initialize 'custom-initialize-default :set 'gnus-summary-tool-bar-update :group 'gnus-summary)
#@169 List of icon items from the global tool bar.
These items are not displayed in the Gnus summary mode tool bar.

See `gmm-tool-bar-from-list' for the format of the list.
(custom-declare-variable 'gnus-summary-tool-bar-zap-list 't '(#$ . 112280) :type 'gmm-tool-bar-zap-list :version "23.1" :initialize 'custom-initialize-default :set 'gnus-summary-tool-bar-update :group 'gnus-summary)
#@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 (#$ . 112670)])
#@55 A version of set that updates the GNU Emacs menu-bar.
(defalias 'gnus-score-set-default #[(var value) "	L\210\302\303!\207" [var value message ""] 2 (#$ . 113261)])
#@40 Make a summary score map of type TYPE.
(defalias 'gnus-make-score-map #[(type) "\300\207" [nil] 1 (#$ . 113433)])
#@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\321.!\210\322 \210\323/\3240\3231\325\326!\210\327 \210\330 \210\331\332!\210\331\333!\210\331\334!\210\331\335!\210\331\336!\210\337\340!\210\341\340\342\324\323$\210\343\344!\210\345 \210\346 \210\331\347!\210\350'\351\324\352\353\354$\210\355 \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 add-to-invisibility-spec (gnus-sum . t) gnus-summary-set-display-table gnus-set-default-directory make-local-variable 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 (#$ . 113554) nil])
#@46 Make all the local summary buffer variables.
(defalias 'gnus-summary-make-local-variables #[nil "\304	\304\211\203<@\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 #1=#:--cl-dolist-temp-- nil eval make-local-variable] 3 (#$ . 115835)])
(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 (#$ . 119045)])
#@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 (#$ . 119276)])
#@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 (#$ . 119470)]))
#@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 (#$ . 119668)]))
#@46 Say whether this article is a parent or not.
(defalias 'gnus-article-parent-p #[(number) "\n	\236	>)\211A\205\304@8\304A@8W)\207" [gnus-newsgroup-data bdata number data 4] 4 (#$ . 119868)])
#@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 (#$ . 120071)])
#@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 (#$ . 120325)]))
#@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 (#$ . 120589)]))
#@37 Say whether ARTICLE is read or not.
(defalias 'gnus-article-read-p #[(article) "	>\206\n>\206>\206\f>\206
>?\207" [article gnus-newsgroup-marked gnus-newsgroup-spam-marked gnus-newsgroup-unreads gnus-newsgroup-unselected gnus-newsgroup-dormant] 2 (#$ . 120780)])
#@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 (#$ . 121064)]))
#@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 (#$ . 121407)]))
#@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 (#$ . 121638)]))
#@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 (#$ . 122000)]))
#@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 (#$ . 122225)]))
(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 (#$ . 122534)]))
#@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 (#$ . 122940)]))
#@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 (#$ . 123213)])
#@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 (#$ . 123704)])
#@38 Say whether MARK is the unread mark.
(defalias 'gnus-unread-mark-p #[(mark) "	U\207" [mark gnus-unread-mark] 2 (#$ . 124201)])
#@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 (#$ . 124336)])
#@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 (#$ . 124662)]))
#@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 (#$ . 125545)]))
(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 (#$ . 126031)])
#@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 (#$ . 126494)])
#@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 (#$ . 126775)])
(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 (#$ . 127174)])
#@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 (#$ . 127814)])
#@28 Initialize summary buffer.
(defalias 'gnus-summary-setup-buffer #[(group) "\306!\307\310!\311Q\312	!\2035	\211\211\205%\n;\203\"\313\202#\314\n!)\2034\315\313!\f\"\316!\210)\313\n!\203F\nq\210p?\202q\317\n!q\320!\210\321!\203\\\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 "*" gnus-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 (#$ . 128179)])
#@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\362p\n\f
\n	\f
\307 \211!\203n!@:\203[\310!\211\"@@)!B\202e\310!@!B!A\211!\204B\237)r#q\210\n\f
 \211!\203\340!@:\203\313!\211\"@@)\211A@L\210\202\327!@\211A@L\210!A\211!\204\260)\311\f!\205\360\fq\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 gnus-buffer-live-p 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 gnus-group-buffer] 15 (#$ . 128995)])
#@39 Say whether ARTICLE is unread or not.
(defalias 'gnus-summary-article-unread-p #[(article) "	>\207" [article gnus-newsgroup-unreads] 2 (#$ . 130138)])
#@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 (#$ . 130296)])
#@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 (#$ . 130666)])
(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 #2=#:--cl-dolist-temp-- gnus-summary-mark-positions] 12 (#$ . 131332)])
#@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 (#$ . 132591)])
(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\232!@\206\231)+\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 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\244+,>\203d-\202\244.\203n/\202\244+0>\203{1\202\244+2>\203\2103\202\244(4>\203\2255\202\244(6>\203\2427\202\2448.9\203\260:\202\274;\203\272<\202\2748=\307H>\314\315>\"\203\353\311\224?\314\316>\"\203\341>\317\311\225SO\206\347>\311?O)\202\314\320>\"\203\377>\311\224T\311\225SO\202>@\317HAB\203\321\202\322CB\203\323\202\324D\325E@\326\230\203.>@\f\247\2045\327\f\327U\203@\330\202D\331\f!\332\333\334\217\210\335\336\337\"\205\\\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-recent gnus-recent-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 (#$ . 136033)])
(byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list gnus-tmp-new-adopts default-boundp set-default nil] 3)
#@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 (#$ . 137363)])
#@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 (#$ . 138001)])
(put 'gnus-summary-line-message-size 'byte-optimizer 'byte-compile-inline-expand)
#@848 Specifies date format depending on age of article.
This is an alist of items (AGE . FORMAT).  AGE can be a number (of
seconds) or a Lisp expression evaluating to a number.  When the age of
the article is less than this number, then use `format-time-string'
with the corresponding FORMAT for displaying the date of the article.
If AGE is not a number or a Lisp expression evaluating to a
non-number, then the corresponding FORMAT is used as a default value.

Note that the list is processed from the beginning, so it should be
sorted by ascending AGE.  Also note that items following the first
non-number AGE will be ignored.

You can use the functions `gnus-seconds-today', `gnus-seconds-month'
and `gnus-seconds-year' in the AGE spec.  They return the number of
seconds passed since the start of today, of this month, of this year,
respectively.
(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")) '(#$ . 138575) :version "24.1" :group 'gnus-summary-format :type '(alist :key-type sexp :value-type string))
#@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 (#$ . 139794)])
#@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\2033@\211:\203,\nA:\203,\n@9\203,\n@>\204,\306\307\310\217\210A\211\204\f+\306\207" [vars group elem #1=#:--cl-dolist-temp-- (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 (#$ . 140587)])
#@211 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 a summary buffer.
(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 (#$ . 141091)])
(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\2020
\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\2020
\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\"\2020\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 !\203GH\204GG\203:\365 \210\202GK\203G\203G\366\326!\210\347\367!\210\363\364 !\203oH\204o\370\342\326\"\210\306\371\372\"\210\203k\316!\210\342\2020\373 \210\317\320!\210\203\200\316!\210\374 \210L\204\326H\204\326M\203\326N\203\326\375`\376\"\211O\203\246\377O!\210)\375`\201W\"\206\264\201X PQ\204\313PR>\204\322PS>\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`!\204/\201a!\210\326+\207" [group new-group quit-config show-all select-articles did-select gnus-message 5 "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 (#$ . 145087)])
#@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 (#$ . 145557) 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 (#$ . 146139)])
(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 (#$ . 146782) 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 (#$ . 147657)])
#@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 (#$ . 148669)])
#@86 Sort subtreads 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 (#$ . 149508)])
#@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 (#$ . 149800)])
#@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 (#$ . 150226)])
#@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\277J@\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\340JJAJC\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 (#$ . 150690)])
(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\344E\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 #1=#:--cl-dolist-temp-- 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] 12])
(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 (#$ . 155715)])
(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\203A\n!\210\nBCCB\211\350H\2114\205\234\3414B\"D\307\211EF\307\211GH\307ID\204\267\307\202!\351D!\204\307D\nCL\210\202!DJ@\204\327DJ\n\240\210\202!C\203\350DJ\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\203E\202\336)m\204\"\341u\210m?\205C\312\344!\2031\336\225b\210`\307\326A\327#\203@`S\202BA{\306\211FG\306f\345>\204\202`\307\326A\327#\203_`S\202aA{F\330\346F\"\203I\347\350\341F\"!F\336\225\306OBGBG\202IG*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\341O	!\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] 16 (#$ . 159248)])
#@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\2026{\311\211<=\311f\341>\204@`\317\3206\321#\203`S\2026{<\322\342<\"\203\343\344\334<\"!<\331\225\311OB=B=\202=*>?@A8BCD\345DCB8
A@?>&\n.\n4*
\346\230\203\2174\330H\211\203\217\347\f\236A\211\203\2174\350\351\f!I\210E\203\232E4!\2104	\n\2114\352H\2118\205\260\3438	\"F\311\211GH\311\211IJ\311KF\204\314\3114\202;\353F!\204\335F4CL\210\202;FJ@\204\356FJ4\240\210\202;\n\203\377FJ4\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] 16) ((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 (#$ . 163372)])
#@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 (#$ . 167100)])
#@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 (#$ . 169629)])
#@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 (#$ . 170556)])
#@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 (#$ . 171661)])
#@60 Return the headers of the GENERATIONeth 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 (#$ . 171869)])
#@43 Return the (sub-)thread where ID appears.
(defalias 'gnus-id-to-thread #[(id) "\302	\"J\207" [id gnus-newsgroup-dependencies intern-soft] 3 (#$ . 172570)])
#@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 (#$ . 172733)])
#@35 Return the article headers of ID.
(defalias 'gnus-id-to-header #[(id) "\301!@\207" [id gnus-id-to-thread] 2 (#$ . 172899)])
#@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 (#$ . 173030)])
#@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 (#$ . 174137)])
#@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 (#$ . 174685)])
#@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\272	\204\272	@;\203\266\313=\203\243\314	\211A@)@\315H!\210\316y\210\317 \320y\210`|\210\321 \210	A\211\203\272\322	@!\210	A\211\202\247\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 (#$ . 174885)])
#@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 (#$ . 175653)])
(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 (#$ . 176523)])
#@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 (#$ . 177124)])
#@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 (#$ . 177429)]))
#@34 Sort articles by article number.
(defalias 'gnus-article-sort-by-number #[(h1 h2) "\302H	\302HW\207" [h1 h2 0] 3 (#$ . 177827)])
(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) "\211:\203\211@;\203A@@	\211:\203\211@;\203A@@\211\302H	\302HW*\207" [h1 h2 0] 4 (#$ . 178042)])
#@25 Sort articles randomly.
(defalias 'gnus-article-sort-by-random #[(h1 h2) "\300\301\302!!\207" [zerop random 2] 3 (#$ . 178241)])
(put 'gnus-article-sort-by-random 'byte-optimizer 'byte-compile-inline-expand)
#@24 Sort threads randomly.
(defalias 'gnus-thread-sort-by-random #[(h1 h2) "\211:\203\211@;\203A@@	\211:\203\211@;\203A@@\302\303\304!!*\207" [h1 h2 zerop random 2] 3 (#$ . 178455)])
#@40 Sort articles by article Lines header.
(defalias 'gnus-article-sort-by-lines #[(h1 h2) "\302H	\302HW\207" [h1 h2 7] 3 (#$ . 178651)])
(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) "\211:\203\211@;\203A@@	\211:\203\211@;\203A@@\211\302H	\302HW*\207" [h1 h2 7] 4 (#$ . 178870)])
#@32 Sort articles by octet length.
(defalias 'gnus-article-sort-by-chars #[(h1 h2) "\302H	\302HW\207" [h1 h2 6] 3 (#$ . 179074)])
(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) "\211:\203\211@;\203A@@	\211:\203\211@;\203A@@\211\302H	\302HW*\207" [h1 h2 6] 4 (#$ . 179285)])
#@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 (#$ . 179489)])
(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) "\211:\203\211@;\203A@@	\211:\203\211@;\203A@@\305\n\306H!\211@\2066\211A@)\2066\307)\n	\306H!\211@\206L\211A@)\206L\307)\"*\207" [h1 h2 gnus-extract-address-components extract x gnus-string< 2 ""] 6 (#$ . 179835)])
#@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 (#$ . 180156)])
(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) "\211:\203\211@;\203A@@	\211:\203\211@;\203A@@\305\n\306\307H\236A\206,\310!\211@\2069\211A@))\n\306	\307H\236A\206E\310!\211@\206R\211A@))\"*\207" [h1 h2 gnus-extract-address-components extract x gnus-string< To 9 ""] 7 (#$ . 180528)])
#@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 (#$ . 180876)])
(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) "\211:\203\211@;\203A@@	\211:\203\211@;\203A@@\304\305H\306\n\"\2034\n\307\225\310O\2025\n)\227	\305H\306\n\"\203J\n\307\225\310O\202K\n)\227\"*\207" [h1 h2 subject message-subject-re-regexp gnus-string< 1 string-match 0 nil] 5 (#$ . 181246)])
#@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 (#$ . 181595)])
(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) "\211:\203\211@;\203A@@	\211:\203\211@;\203A@@\304\305H\211\306\232\203/\307\202E\310\311\312\n#\206E\313\n!\314\311\315\312\n%\210))	\305H\211\306\232\203T\307\202j\310\311\312\n#\206j\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] 9 (#$ . 182078)])
#@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 (#$ . 182541)])
(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) "\211:\203\211@;\203A@@	\211:\203\211@;\203A@@\211\304H\n\236A\206.\206.\304	\304H\n\236A\206<\206<\304V*\207" [h1 h2 gnus-newsgroup-scored gnus-summary-default-score 0] 4 (#$ . 182916)])
#@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 (#$ . 183211)])
(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 (#$ . 183663)])
#@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 (#$ . 183811)])
#@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 (#$ . 184036)])
#@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] 9 (#$ . 184272)])
#@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 (#$ . 184686)])
#@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 (#$ . 184904)])
(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])
(byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\306B\302\306!\204-\303\306\304\"\210\307B\302\307!\204<\303\307\304\"\210\304\207" [current-load-list gnus-tmp-prev-subject default-boundp set-default nil gnus-tmp-false-parent gnus-tmp-root-expunged gnus-tmp-dummy-line] 3)
#@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 (#$ . 185961)])
(byte-code "\301B\302\301!\204\303\301\304\"\210\301\207" [current-load-list gnus-tmp-thread-tree-header-string default-boundp set-default ""] 3)
#@75 With %B spec, used for the root of a thread.
If nil, use subject instead.
(custom-declare-variable 'gnus-sum-thread-tree-root '"> " '(#$ . 186295) :version "22.1" :type '(radio (const :format "%v  " nil) string) :group 'gnus-thread)
#@79 With %B spec, used for a false root of a thread.
If nil, use subject instead.
(custom-declare-variable 'gnus-sum-thread-tree-false-root '"> " '(#$ . 186534) :version "22.1" :type '(radio (const :format "%v  " nil) string) :group 'gnus-thread)
#@85 With %B spec, used for a thread with just one message.
If nil, use subject instead.
(custom-declare-variable 'gnus-sum-thread-tree-single-indent '"" '(#$ . 186783) :version "22.1" :type '(radio (const :format "%v  " nil) string) :group 'gnus-thread)
#@49 With %B spec, used for drawing a vertical line.
(custom-declare-variable 'gnus-sum-thread-tree-vertical '"| " '(#$ . 187039) :version "22.1" :type 'string :group 'gnus-thread)
#@35 With %B spec, used for indenting.
(custom-declare-variable 'gnus-sum-thread-tree-indent '"  " '(#$ . 187221) :version "22.1" :type 'string :group 'gnus-thread)
#@46 With %B spec, used for a leaf with brothers.
(custom-declare-variable 'gnus-sum-thread-tree-leaf-with-other '"+-> " '(#$ . 187387) :version "22.1" :type 'string :group 'gnus-thread)
#@49 With %B spec, used for a leaf without brothers.
(custom-declare-variable 'gnus-sum-thread-tree-single-leaf '"\\-> " '(#$ . 187575) :version "22.1" :type 'string :group 'gnus-thread)
#@203 If non-nil, show and update the summary buffer as it's being built.
If the value is t, update the buffer after every line is inserted.  If
the value is an integer (N), update the display every N lines.
(custom-declare-variable 'gnus-summary-display-while-building 'nil '(#$ . 187764) :version "22.1" :group 'gnus-thread :type '(choice (const :tag "off" nil) number (const :tag "frequently" t)))
#@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\202\205\203\215\322\323 !\210\204\240U\204\240P\204\240Q\203\205\\\312U\203\fU\203\271U\211_@@)\312U\203\f`\204\fP\204\310Q\203\fP\203\360a\203\326\312\202\327\324\\P@C\211X\211_@@)MPAP\202KQ\203KQ@C\211X\211_@@)MQAQ\202K\203\211X\211_@@)M\202KU@\211T@\\T\211_A@)T\211_AA)@XUAUX\211_@@)M\316\211`a\316OM;\203\327b\325=\203\241PX\211_@A)A\244P\326\327X\211_@A)A\"S\244SX\211_@@)X\211_@A)@DXABX\330\\\331`\202b\332=\203\277\326\333X\211_@A)A\"S\244S\330\\\202b\334=\203\321McM]\202\330\\\202M\312HWM\324H\211VVd\203\364\335dV\"\202Ke\204VV\336fV\"\203V\312\225\316O\202V)\202Ke\337=\203#\340V!\202Ke\247\203I\341VV\336fV\"\203@V\312\225\316O\202BV)e\"\202KV)Ng\204y\342\\!\204y]\203y]N\230\204yQX@C\244Q\331O\316M\202\nWh>\204\302\326\343X\211_@A)\"S\244SX\211_@A)\203\253\344PX\211_@A)\"\202\255PP\331O\316M\342\\!\203\n\331a\202\ni\203\nWj\236A\206\322[iW\203\nWk>\204\nWl>\204\n\345Wm\"mn\203\346oW\"o\202\nWpBqBqM\203c\203{cM\324H\316rstr\204\376tVd\2038\335dV\"\202\217e\204YVV\336fV\"\203SV\312\225\316O\202UV)\202\217e\337=\203g\340V!\202\217e\247\203\215\341VV\336fV\"\203\204V\312\225\316O\202\206V)e\"\202\217V)sVd\203\242\335dV\"\202\371e\204\303VV\336fV\"\203\275V\312\225\316O\202\277V)\202\371e\337=\203\321\340V!\202\371e\247\203\367\341VV\336fV\"\203\356V\312\225\316O\202\360V)e\"\202\371V)\232\202ktsVd\203\335dV\"\202ie\2043VV\336fV\"\203-V\312\225\316O\202/V)\202ie\337=\203A\340V!\202ie\247\203g\341VV\336fV\"\203^V\312\225\316O\202`V)e\"\202iV)\232+\203{\347cM\312H\"\210\316cWu>\203\210v\202\341Ww>\203\225x\202\341Wm>\203\242y\202\341Wz>\203\257{\202\341W|>\203\274}\202\341W~>\203\311\202\341Wo>\203\326\200\202\341Wq\236A\206\341\201LWL`TM\\\257\202B\202g\203]\203]N\230\204V\202:\342\\!\2038b\332=\2033WS>\2033]\2033]N\230\2033\203\202:V\202:\203Ib\325=\203Z\\\324U\203ZWS>\203Z\350@\351\202_\352@\353\\\204GY\203s\354\204G\355_\\]!\210\204\\HGM\307HFWj\236A\206\216\n\206\216\312E\n\203\240\356E\nZ!\205X\203\244\357\202\262E\nW\203\260\206\202\262\207DW\210>\203\301\211\202W\212>\203\316\213\202W\214>\203\333\215\202W\216>\203\350\217\202W\220>\203\365\221\202W\222>\203\223\202W\224>\203\225\202\226JW\227>\203 \230\202,\231\203*\232\202,\226KM\355HC\336\360C\"\203[\312\224R\336\361C\"\203RC\324\312\225SO\206qC\312RO\202q\336\362C\"\203oC\312\224T\312\225SO\202qCB\233\204|\317\202\312\342\\!\203\261X\211_@A)\203\230\234\206\312V\202\312P\203\247\235\206\312V\202\312\236\206\312V\202\312\363\364\326\365\366\f!A\"\"XA@\203\307\237\202\311\240P^B\317\230\203\327CBF\247\204\340\330FF\330U\203\355\367F\202\363\370F!F\371`\372\241!\210`\373W$\210\203\330y\210\374 \210>\203\375\376!\210\324y\210N]XA@\2032\312\\]\377\f!XAEUBUXA@\203=\324\202>\312\fB\\T\\O?\205TX\211_@A)\203{Y\203uZS\211Z\312U\203{\201\242\312!\210Z\202{\201\242\312!\210\204\215\312\\\202\215. \306\307\201\243\"\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-recent gnus-recent-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 (#$ . 188166)])
#@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 (#$ . 195069)])
#@88 Remove list identifiers in `gnus-list-identifiers' from articles in the current group.
(defalias 'gnus-summary-remove-list-identifiers #[nil ":\203
\306\307\310#\202\311\211\211\205n\312\313Q\f\311\211\203l@\211\314H\311\315	\"\203G	\316\314\224O	\316\225\311OP\317\202/\n\203c\315\320	\"\203^	\316\314\224O	\314\225\311OP
\314	I\210A\211\204%*\311+\207" [gnus-list-identifiers subject changed regexp gnus-newsgroup-headers header mapconcat identity " *\\|" nil "^\\(?:R[Ee]: +\\)*\\(" " *\\)" 1 string-match 0 t "^\\(\\(?:R[Ee]: +\\)+\\)R[Ee]: +" #1=#:--cl-dolist-temp--] 6 (#$ . 196325)])
#@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 5 "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 (#$ . 196956)])
#@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\"IJ\313K\340!L\341\342\"\"\343M\242\206\344!\204\345\202c\"\346=\203\"\345\202c\347\"!\2033\350\351\352\"\"!\202c\"\247\203b\353\306H\"JA\"Z\211N\344V\203QN\202R\354)\306H\"JAB!O\313\202c\313P)\355 \210\356!\203sQB\357\211LR\"S\"L\313T\360L\311#\210\f\203\221\361\f!\210O\211@\203\244\362L@\"K\202\253\363M\"@@\204\264\364\202n@\344=\203\277\313\202n\365@G!U\366 \210\367@!VB\203\330BQW\203\340\370 \210\371@!X\351\372V\"\211AY\373LA\"L\374 \210\375\362@A\"!\210Z\203$[\376=\203$Z\377=\203\201b \210\202$\201c \210G\203.\201d \210\\\2038\201e \210\201f!]^\203M_\201g\232\204R\201h \210V\203hV@\344H`\201iV!\344HaV\206n\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 gnus-set-global-variables gnus-fetch-headers gnus-dup-suppress-articles copy-sequence #[(headers) "\301H\207" [headers 0] 2] gnus-sorted-nintersection gnus-compute-unseen-list gnus-update-missing-marks nov invisible articles fetched-articles cached major-mode buf buffer gnus-buffers gnus-agent gnus-active-hashtb gnus-summary-use-undownloaded-faces gnus-newsgroup-name 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-newsgroup-headers gnus-suppress-duplicates gnus-newsgroup-limit gnus-newsgroup-articles gnus-fetch-old-headers gnus-headers-retrieved-by gnus-list-identifiers gnus-newsgroup-auto-expire gnus-single-article-buffer gnus-article-buffer gnus-newsgroup-begin gnus-newsgroup-end gnus-build-all-threads gnus-build-old-threads gnus-agent-get-undownloaded-list gnus-summary-remove-list-identifiers gnus-group-auto-expirable-p "*Article*" gnus-article-setup-buffer gnus-last-element] 7 (#$ . 197555)])
(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 #1=#:--cl-dolist-temp-- 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\357\n\307=\203\f>\202\357\n\310=\203*
>\202\357\n\311=\2037>\202\357\n\312=\203D>\202\357\n\313=\203Q>\202\357\n\314=\203^>\202\357\n\315=\203k>\202\357\n\316=\203x>\202\357\n\317=\203\205>\202\357\n\320=\203\222 >\202\357\n\321=\203\237!\236\202\357\n\322=\203\254\"\236\202\357\n\323=\203\271#>\202\357\n\324=\203\306$>\202\357\n\325=\203\323%>\202\357\n\326=\203\341&>?\202\357\n\327=\203\356'>\202\357\330)\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 recent 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 gnus-newsgroup-recent] 2])
#@48 Find out what articles the user wants to read.
(defalias 'gnus-articles-to-read #[(group &optional read-all) "\204\306	G!\203\306\nG!\204\203H\f\2037\307
\"J\310@\311A\f\312#]AB!)\202?\310\307
\"J!\206P\313
!\202P\314\315	\"\n\"\316\"\211GG 	GG\\!\247\203t\202\201\247\203}\202\201\317\320\321\217\211\";\203\217\322\"!\202\221\"\211\"\203\236\306\"!\203\243\"\202\306!\204\302\323\"!X\203\302\324\325\"\211G \202\310\326!\323\"! W\203\361\"\327W\203\347\323\"!S\233\317\241\210\202\361 \"Z\233\330\n\"#$\203	\324$%\"\325\".\207" [read-all gnus-newsgroup-marked gnus-newsgroup-unreads gnus-newsgroup-display gnus-newsgroup-maximum-articles group zerop intern-soft gnus-uncompress-range - -1 gnus-cache-articles-in-group gnus-sorted-nunion gnus-sorted-union gnus-killed-articles nil (byte-code "	X\204\f\nU\203N\247\203N\nV\203N\306\307
!\310\311\312\313
!\203-\314\202.\315\n$\205;\316!\317B\"\320\321\"\203J\n\202L+\207	V\203\200\nW\203\200\nZ\322V\203\200\310\311\323\324\313!\n%!\320\321\"\203|\n\202~)\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 (%s %d): " gnus-group-decoded-name "max" "default" number-to-string 0 string-match "^[ 	]*$" 20 "%s %s (%d scored, %d total): " "How many articles from" initial input group] 7) ((quit (message "Quit getting the articles to read") nil)) string-to-number abs sort < copy-sequence 0 gnus-sorted-difference 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 (#$ . 202950)])
(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])
#@38 Uncompress the mark ranges in MARKS.
(defalias 'gnus-uncompress-marks #[(marks) "\304\305\n\2034\n\211@@)	>\203\n@B\202-\n\211@@)\306\n\211@A)!BB\nA\211\204*\207" [out uncompressed marks x (score bookmark) nil gnus-uncompress-range] 4 (#$ . 205162)])
#@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 (#$ . 205436)])
#@55 Return whether MARK should be propagated to back end.
(defalias 'gnus-article-unpropagatable-p #[(mark) "	>\207" [mark gnus-article-unpropagated-mark-lists] 2 (#$ . 205609)])
#@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 \203\305 @\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\203L\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 #1=#:--cl-dolist-temp-- lh l x] 8 (#$ . 205791)])
#@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\203E
@\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 #1=#:--cl-dolist-temp-- nil gnus-article-mark-to-type list intern format "gnus-newsgroup-%s" delq] 5 (#$ . 207080)])
#@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\204&\211A&@\211$\203(\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	./\310\326\327\217*\203\330$A!\204$A\331%8\236A0\332\3330!\"\332\333!0\"\211\203\373\334$ACEB\203\335\307	1\"J\"\211\336$ACEB+\203$AB
B\202\203<\337	!\2047\340\341	\"\210\342	\"\210\331%\233\203M\331%\233
\240\210\202Y
\203Y%AA
C\241\210\34322\306V\205\2032%8?\205\2032S\2112%\233\203\\2%\233\310\241\210\202\\).\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-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-active-hashtb i] 8 (#$ . 207523)])
#@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 (#$ . 209161)])
#@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 (#$ . 210561)])
#@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\221	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\216\314\315\211@@)@\211@@)A@#\232\204\216\211A@\210\202b\211@@*\206\203\307\314\315\211@@)\211@A)@#\232\204\307\211A@\210\202\235@)\206 A\316\211!\"##\203
\311#\211A#@8\211\";\204\331\"\316\317$%\"\320\321\215+\232\203\331\"!\316\211#\204\336!+\211&\203)\312\"\204)&BB&))\205\221\322\323!\"\204c'\204c\323!\211\"\232\204c@\"@\232\205\221A@\"A@\232\205\221(\205\221(\317=\203\215'\204\215
A@\211):\203\204)@\202\206))*X\205\221\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 (#$ . 211392)])
(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\"\204+\312	\313\314#\315\"!\316\317EC\"\202\362\320	#\"\"r$q\210\321\322\323\324\fD\324\325\f8D\326BBB\327\324\fD\324\310\f8DE\330\324\fD\331	DE\312	\332\211\324\"D\333BBDE\334	\335BB\257!\210)\fAA\"\240\210\312	\"\316\336EC\"\210!\205\362\"\204\226!AT!@Z\202\343\"A<\204\255!A\"AT\"@ZZ\202\343\"\203\335\"@\247\203\277T\202\324\"\211%@A)T\"\211%@@)Z\\\"A\211\"\204\262!AZ\240\210\337	!?\205\362\334	\340\"-\207" [num group gnus-newsrc-hashtb entry info gnus-active-hashtb 0 intern-soft 2 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 list ('del '(read)) gnus-group-update-group (t) (read) gnus-ephemeral-group-p t active range articles gnus-group-buffer x] 12 (#$ . 214223)])
(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{\202B\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\214L\355\224\355\225O\211RGCGV\203iRC\202iC)\202\226\306\211CJb\210\325\356\306\314#\203\266\306\357\360\217\211H\247\203\262H\202\267\361\202\267\361Jb\210\325\362\306\314#\203\327\306\363\364\217\211I\247\203\323I\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\370T*&\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`\204K\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\20278{\310\211>?\310f\340>\204w`\316\3178\320#\203T`S\202V8{>\321\341>\"\203>\342\343\333>\"!>\330\225\310OB?B?\202>?*@ABC5:DEF\344FED:5CBA@&\n.\n6*5\345\230\203\3156\327H\2114\203\315\3464\236A\2114\203\3156\347\3504!I\210G\203\330G6!\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] 16) ((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 (#$ . 219384)])
#@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 (#$ . 223840)])
#@145 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.
(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\254\204o\203o
\203o\312H\236\211\203o\3138b\210\314
\315 \316 T\315 \317y\210`|\210Z\"\210\203|\fC\320 \210)\203\207\f\312\312HI\210\321\f\312H\211\"\321
\"
B\322\f\323H	\"\210\324
\311\325#\210
\247\203\322
\312V\203\322
V\203\301

W\203\313
\321
 \" \f\205\331\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-list-identifiers gnus-newsgroup-headers gnus-newsgroup-sparse gnus-newsgroup-ancient gnus-newsgroup-limit gnus-newsgroup-end gnus-newsgroup-begin gnus-newsgroup-unselected] 7 (#$ . 224432)])
#@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 (#$ . 225590)])
#@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 (#$ . 226696)]))
(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 (#$ . 227313) 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 (#$ . 227543) 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 (#$ . 227782) 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 (#$ . 228046)])
#@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 (#$ . 228275)])
#@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 (#$ . 228633)])
(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 (#$ . 232224)])
#@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 (#$ . 232632) "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 (#$ . 232983)])
#@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 (#$ . 233472) nil])
#@47 Move point to NEWSGROUP in group mode buffer.
(defalias 'gnus-summary-jump-to-group #[(newsgroup) "p\302!=\203\303\213\207\212\304\305\"\203\306!\210\202q\210\307	!)\207" [gnus-group-buffer newsgroup get-buffer ((byte-code "\302!\203\n\303!\210\304	!\207" [gnus-group-buffer newsgroup get-buffer-window pop-to-buffer gnus-group-jump-to-group] 2)) get-buffer-window 0 pop-to-buffer gnus-group-jump-to-group] 3 (#$ . 234403)])
(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\342\nA<\204h\n@W\204]\nC\202h\nAT]\202\342\n@\247\203s\n@\206z\n\211@@)\211\316U\204\206\n\203\342\203\247W\203\247BT\211\202\221\n@:\204\262\n@\202\271\n\211@A)T\n\211A@):\204\321\n\211A@)\202\331\n\211A@)@\nA\211\204\212
X\203\371BT\211\202\344\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 (#$ . 235597)])
(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\315\nA<\204a\n@W\204V\nC\202a\nAT]\202\315\n@\247\203l\n@\206s\n\211@@)\211\314U\204\n\203\315\203\222BB\n@:\204\235\n@\202\244\n\211@A)T\n\211A@):\204\274\n\211A@)\202\304\n\211A@)@\nA\211\204\203\203\367
\203\367
W\203\351
BB\202\367
U\203\367B\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-buffer' is set, show only the article
buffer.
(defalias 'gnus-summary-select-article-buffer #[nil "\302!\204\n\303\304!\207\305!\204\306 \210\307	\203\310\202\311\312\"\210\313\305!!\207" [gnus-article-buffer gnus-widen-article-window gnus-buffer-live-p 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] 3 (#$ . 236801) 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 (#$ . 237328) "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 (#$ . 237973) "P"])
#@287 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 cancelled 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 #1=#:--cl-dolist-temp-- 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 (#$ . 238250)])
#@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 (#$ . 239088) "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 (#$ . 239743) "P"])
(defalias 'gnus-summary-update-info #[(&optional non-destructive) "\212\211\205e\n\203\306\307\310\f\"
\"\311\"\fA<\204\fCrq\210\312 \210)\313	\307
\"\"\210?\205=??\205C\212\314 \210*\203V\315	
#\210q\210\316	!?\205d\317	!)*\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-undo-force-boundary gnus-update-read-articles gnus-update-marks gnus-mark-xrefs-as-read gnus-ephemeral-group-p gnus-group-update-group gnus-newsgroup-headers headers gnus-group-buffer gnus-save-score non-destructive gnus-newsgroup-scored gnus-use-cross-reference] 6])
#@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 (#$ . 240828) "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\307!\203rq\210\310	!\210\311\211)\312 \210\313 \210\314!\3151234\3115p6
\204F7\203>\316 \2108\203F\317 \210\320\321!\2109\203U\322 \210\323 \210\324\f!\210:\203a\325 \210;\203j\326\f!\2109\203r\327 \210\330\f<\331\332<\"\203\207<\333\225\311O\202\211<)!\210
\204\227\320\334!\210\335 \210\336\f!\210=q\210
\204\247\337\f!\210\320\340!\210
\204\277>\203\277\f\341 \230\203\277\342\343!\210`5??\205\3106q\210@\204\332\344 \210\3114\202\345!\203\344\346!\2104\347=\2036\2116\211A\205A;\203\345\202\350A!)\203\351\3456!B\"B\3526!\210)CD=q\210
\203+\353
!\210\202J5b\210\354p\333\"\211E\203?\355E`\"\210)F\204J\356\304\357\"\210G\204\300\3072!\203\223r2q\2103\360=\204\2222\2116\211A\205{A;\203w\345\202x\350A!)\203\216\351\3456!B\"B\3526!\210)\311H)I\2116\211A\205\254A;\203\250\345\202\251\350A!)\203\277\351\3456!B\"B\3526!\210)
?\205\310\311\211.\207" [gnus-article-buffer gnus-article-mime-handles gnus-article-mime-handle-alist gnus-newsgroup-name group quit-config gnus-set-global-variables gnus-buffer-live-p 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 get-buffer 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 gnus-group-is-exiting-p article-buffer major-mode mode group-point buf 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 buffer gnus-buffers gnus-select-method gnus-current-select-method win leave-hidden gnus-single-article-buffer gnus-article-current gnus-original-article-buffer] 5 (#$ . 241193) 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!\205\312 \210\313\314!\210\315\"!\2038r\"q\210\316#!\210\317\211$#)%\204\232\"\211&\211'\205V';\203R\320\202S\321'!)\203i\322\320&!(\"(\323&!\210))\211&\211'\205\203';\203\320\202\200\321'!)\203\226\322\320&!(\"(\323&!\210)\317*\324\301\325\"\210+\204\252\326 \210\202\333\327	!\210,\211&\211'\205\307';\203\303\320\202\304\321'!)\203\332\322\320&!(\"(\323&!\210)%\204\343\317*-\203\354\330	!\210\331	!\210\320\"!\203\374\332\"!\210\317\333	!\204\334	!\210\335 	\232\203\336\337!\210\f\205\340\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 gnus-buffer-live-p mm-destroy-parts nil get-buffer buffer-name delete kill-buffer gnus-configure-windows force gnus-deaden-summary 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 gnus-article-mime-handles gnus-article-mime-handle-alist gnus-single-article-buffer buf buffer gnus-buffers gnus-original-article-buffer gnus-article-current gnus-kill-summary-on-exit gnus-summary-buffer gnus-use-trees] 4 (#$ . 243823) 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) "\305@!\204\f\306\307\310\"\207@q\210	\311=\203\312 \210\2023	\313=\2033r\314\n!\204,q\210\nq\210\312 \210)A\315=\204AA\316=\203]\317\320!\203T\320J\203T\306\316\310\"\210\202c\306A\310\"\210\202c\306A\310\"\210	\311=\205\262\f\321>\203\225\322\f\323=\203~\324\325\326\327#\202\211\f\330=\205\211\324\325\327\211#!\203\255\306\331\310\"\210\202\255\f\332=\203\242\324\325!\210\202\255\f\333=\203\255\324\325\327\"\210\334 \210\335 \207" [quit-config major-mode gnus-summary-buffer gnus-group-buffer gnus-auto-select-on-ephemeral-exit buffer-name gnus-configure-windows group force gnus-summary-mode gnus-set-global-variables gnus-article-mode gnus-buffer-live-p 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] 5 (#$ . 245457)])
(byte-code "\305B\306\305!\204O\307\305\310 \311	!\210\312\313\314	#\210\315\316\211\2031@\317	\n\314#\210A\211\204!*\320\316\211\203J\f@\317	\n\321#\210\fA\211\204:*	)\"\210\316\207" [current-load-list map key #:--cl-dolist-temp-- #:--cl-dolist-temp-- gnus-dead-summary-mode-map default-boundp set-default make-keymap suppress-keymap substitute-key-definition undefined gnus-summary-wake-up-the-dead ("" "
" "" [delete]) nil define-key ("q" "Q") bury-buffer] 7)
#@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 (#$ . 247044))
(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 (#$ . 247265) (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 (#$ . 248064)])
#@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 (#$ . 248469)])
#@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 (#$ . 249253) nil])
#@33 Describe the current newsgroup.
(defalias 'gnus-summary-describe-group #[(&optional force) "\302	\"\207" [force gnus-newsgroup-name gnus-group-describe-group] 3 (#$ . 249613) "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 (#$ . 249801) 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\212\fq\210\312!\210
\2060\313=\203*\314!\2020\315\"\211\204O\316\317\320\"\210\311\321\n!\203H\nq\210\310 \210\322\323!\210\202
\312
!\210\324 \211\311=\204i\203\202\325!\204\202\326
\307\327\n!\205u\n\307&\203\202\311\202\206
\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" gnus-buffer-live-p 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 unreads no-article] 8 (#$ . 250253) "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 (#$ . 251349) "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 (#$ . 251644) "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 (#$ . 252833) "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 (#$ . 253544) "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 (#$ . 253710) "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 (#$ . 253958) "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 #1=#:--cl-dolist-temp-- gnus-newsgroup-limit nil gnus-summary-goto-subject t gnus-summary-limit append gnus-summary-position-point] 4 (#$ . 254128)])
#@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 (#$ . 254499) "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 (#$ . 255150) "P"])
#@36 Display ARTICLE in article buffer.
(defalias 'gnus-summary-display-article #[(article &optional all-header) "\306!\203rq\210	)\307=\204\310 \210\311 \210rq\210\n\f\312 \210)\205r\2037\"\202=\313\"\314\315!\210\203R\316!\204R\317!\210\320 \210\203i\203i\321!\210\322!\210\323\236A!\210\207" [gnus-article-buffer major-mode gnus-newsgroup-charset gnus-article-charset gnus-newsgroup-ignored-charsets gnus-article-ignored-charsets gnus-buffer-live-p 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 article gnus-summary-display-article-function all-header gnus-current-article gnus-use-trees gnus-show-threads gnus-newsgroup-bookmarks] 4 (#$ . 255449)])
#@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\257\321\n\f\"\210\322!\203\243rq\210\204\242\323 \210)\324\n\236A!\210\n\202\260\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 gnus-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 gnus-article-decoded-p gnus-newsgroup-bookmarks] 4 (#$ . 256398)])
#@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 (#$ . 257734) nil])
#@20 Obsolete function.
(defalias 'gnus-summary-set-current-mark #[(&optional current-mark) "\300\207" [nil] 1 (#$ . 258123)])
#@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\"\207/\203\212\n\204\212\204\212\323\f\203\2000S\202\2031T\324\325e`\"#\207\3262!\204\226\3272!\2103r4q\210`)p5\330=\203\256\3312!\202\263\332\f5\"6789:\203\3059\204\325\320\333\334\n\203\320\335\202\321\336#\202C:\337=\204\364:\340=\203\350;\204\364:\341=\203$\342 \203$\3262!\203\343 \202C\320\333\344\n\203\335\202\f\3366\203\3456P\202\346$\210\347\3246\f#\202C\350<!\205C7p=\2039\351\3527!!\210\35329\n\f8%,\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 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 (#$ . 258252) "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 (#$ . 261472) 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 (#$ . 262033) "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 (#$ . 262290) 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 (#$ . 262853) "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 (#$ . 264858) "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 (#$ . 266211) "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 (#$ . 266508) "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 (#$ . 267407) "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 (#$ . 267720) 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 (#$ . 268146) 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 (#$ . 268576) 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 (#$ . 269014) 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 (#$ . 269456) 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 (#$ . 269940) 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 (#$ . 270263) 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 (#$ . 270605) 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 (#$ . 271043) 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 (#$ . 271496) "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 (#$ . 271941) 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 (#$ . 272387) 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 (#$ . 272837)])
#@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 (#$ . 273095) (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 (#$ . 273925) 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 (#$ . 274153) "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 (#$ . 274523) "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 (#$ . 274865) "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 (#$ . 275253) (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 (#$ . 275920) (list (read-string (if current-prefix-arg "Exclude author (regexp): " "Limit to author (regexp): ")) 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 (#$ . 276364) (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 (#$ . 277391) (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 #1=#:--cl-dotimes-temp-- fboundp char-charset 1 2 nil 0 format "%s" string-match "unicode\\|big\\|japanese" t] 7])
#@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 #1=#:--cl-dolist-temp-- predicate nil t 0 gnus-summary-limit] 3 (#$ . 279035)])
#@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 (#$ . 279441) (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): "))) (when (> (length days) 0) (setq days (read days))) (if (numberp days) (progn (setq days-got t) (when (< days 0) (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 (#$ . 280732) (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 #1=#:--cl-dolist-temp-- error "There is no `display' group parameter" nil gnus-summary-limit gnus-summary-position-point] 3 (#$ . 281501) 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 (#$ . 281952) "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 (#$ . 282517) "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 #1=#:--cl-dolist-temp-- gnus-mark-article-hook gnus-article-buffer case-fold-search headersp match found reverse] 10 (#$ . 282841) "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\203A
@\211@;\2036\fA\306\211
\2032
@\211B
A\211
\204!*\202:\fB
A\211\204*\306\211\203x@\307\f!\203_	G\310V\204k\204o	G\310U\203o	\n\244A\211\204K*\n\204\204\311\312!\210\202\210\313\n!\210\314 +\207" [threads thread-articles articles gnus-newsgroup-threads thread #1=#:--cl-dolist-temp-- nil gnus-articles-in-thread 1 message "No messages matched" gnus-summary-limit gnus-summary-position-point #2=#:--cl-dolist-temp-- #3=#:--cl-dolist-temp-- threadsp] 4 (#$ . 283932) "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 (#$ . 284687) "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 (#$ . 285063) "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 (#$ . 285460) "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 (#$ . 286065) "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 (#$ . 286473) 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 (#$ . 286667) (list (mail-header-id (gnus-summary-article-header)))])
#@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 (#$ . 287389) (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 (#$ . 287781) 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 (#$ . 288102) 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 (#$ . 288412) 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\315\f
\"!+\207" [gnus-read-all-available-headers gnus-agent gnus-inhibit-demon gnus-newsgroup-headers articles gnus-newsgroup-limit t nil gnus-merge list gnus-fetch-headers gnus-article-sort-by-number gnus-summary-limit append] 7 (#$ . 288849)])
#@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 (#$ . 289273) 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 (#$ . 289492) 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 (#$ . 289999) "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 (#$ . 291562)])
(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] 6 (#$ . 292315)])
#@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 (#$ . 293115)])
#@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 (#$ . 294102)])
#@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 (#$ . 295222)])
#@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 (#$ . 295591) "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 (#$ . 297079) nil])
#@234 Fetch all articles in the current thread.
If no backend-specific 'request-thread function is available
fetch LIMIT (the numerical prefix) old headers. If LIMIT is nil
fetch what's 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\"#\2036\317#!\2028$#\320\321%\322&'(\323\324\325\217*\203S\326\n!\202\224#\247\203e\n\327H#\\)^\202g)*\330\n\331H!+\332\n\333H\206x\334!,\335-\336*C#\247\203\217#\337_\202\221#\316#,\340$%\341!.\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 prefix-numeric-value gnus-merge list 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 0 gnus-simplify-subject 1 split-string 5 "" #[nil "eb\210\303\304\305	\nD\"!!\207" [refs id subject keep-lines regexp-opt append] 6] gnus-fetch-headers 2 gnus-article-sort-by-number gnus-summary-limit-include-thread gnus-read-all-available-headers limit gnus-refer-thread-limit gnus-newsgroup-headers gnus-newsgroup-name group func gnus-newsgroup-highest last subject refs gnus-parse-headers-hook] 8 (#$ . 297802) "P"])
#@43 Fetch an article specified by MESSAGE-ID.
(defalias 'gnus-summary-refer-article #[(message-id) ";\205t\306G!?\205t\307\310\311#\312\313\"\204\314P\312\315\"\204)\316P\312\317\"\2044\320!\321!\211\205I	\322H\n>\205I	\322H>\323	\203p	\322H\n>\203\\\f\203p\324	\322H\323\325#\f\203s\326	\322H!\210\202s\327\330\215+\207" [message-id header gnus-newsgroup-sparse gnus-newsgroup-limit sparse number 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 #1=#:--cl-dolist-temp-- 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 (#$ . 299332) "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\204I\307\307\211\203D@\211\306=\2037	\2028
\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 #1=#:--cl-dolist-temp--] 3 (#$ . 300348)])
#@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 (#$ . 300740) 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 (#$ . 300931) 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\213\210	\307\310\311\n\312\313D\"rq\210\f)#\n1\314\315\316\31712\"J88\3201BC\3211BC\3221BC$3\3234p5\324\2116r7q\210\325\326!\206R\325\327!\211\203d\314\3308!BC!3\331\332!6\3337!\210eb\334\335\324\323#\206y`}\210eb\210\336\337!\210~\210)\340\2169:;<\341
\312
\342\3436!D\344=\203\243\345\202\244\346DF\323\324\211\211\347\350\n\351\"BC&*\203\307\315\316\317
2\"J883\244\202\327\3525!\210\353 \210\354\355!\210\356\357\360\".	\207" [gnus-current-window-configuration conf gnus-newsgroup-name gnus-summary-buffer gnus-current-article name ((byte-code "\212\303\211\211\304 \210,\303\207" [gnus-break-pages gnus-display-mime-function gnus-article-prepare-hook nil gnus-summary-select-article] 3)) format "%s-%d" gnus-group-prefixed-name nndoc "" append 5 2 intern-soft to-group parent-group save-article-group t nil 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 " ((kill-buffer dig)) 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?" ogroup gnus-newsrc-hashtb params case-fold-search buf dig gnus-original-article-buffer gnus-decode-encoded-address-function gnus-newsgroup-charset gnus-newsgroup-ignored-charsets gnus-newsgroup-ephemeral-ignored-charsets gnus-newsgroup-ephemeral-charset force] 12 (#$ . 301120) "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 #2=#:--cl-dolist-temp-- #1# gnus-original-article-buffer] 8 (#$ . 303034) "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 (#$ . 304572) "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 (#$ . 304939) "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 (#$ . 305520) 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 (#$ . 305767) 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 (#$ . 306023) (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 (#$ . 306691) (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=\205b\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 (#$ . 307044)])
#@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 #1=#:--cl-dolist-temp-- nil lambda (h) intern "mail-header-" (h) t string-match 0 regexp] 6 (#$ . 308869)])
#@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 #1=#:--cl-dolist-temp-- unread gnus-unread-mark not-matching regexp] 7 (#$ . 309398)])
#@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) "\301\232\203\302\303 \210\212\304\213)\207" [header "Body" "" gnus-summary-show-all-threads ((byte-code "\306\211\211\211\211\211\211\307\310\311\312!#\210\313\314\315\316!DD$\210\307\310\317\312!#.\207" [gnus-article-prepare-hook gnus-treat-fold-newsgroups gnus-treat-hide-boring-headers gnus-treat-strip-multiple-blank-lines gnus-treat-strip-leading-blank-lines gnus-treat-strip-trailing-blank-lines nil gnus-message 6 "Executing %s..." key-description gnus-execute call-interactively quote key-binding "Executing %s...done" gnus-visual command header regexp backward] 7))] 2 (#$ . 310902) (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 (#$ . 312121) 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 (#$ . 312642) 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 (#$ . 313174)])
#@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 #1=#:--cl-dolist-temp-- #2=#:GnusStartBufferWindow gnus-article-buffer #3=#:buf gnus-summary-work-articles nil gnus-summary-select-article pseudo selected-window gnus-get-buffer-window visible ((select-window #2#)) select-window window-buffer pop-to-buffer gnus-print-buffer gnus-summary-remove-process-mark ps-despool #4=#:w filename] 6 (#$ . 313426) (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 (#$ . 315175) 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\266\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!,r,q\210\326\216\327\330-A\"c\210)c\210'\203y\327\331'\"c\210\332c\210p.\333*\307\"@(--A/\2360\3340\233(\240\210)\335-A(\"\210\336-A\315\307#\203\261\337-A!\210.\202\204\302\314\315\316\"\210\202\340\232\203\324\3071\314\315\316\"\210)\202\341\342!\210\341\343!\210\307\315\211\211\21123456\344\n!\203r\nq\210\3457!\210\315\21187)\314\315\316\"\210-\3369!\210\346 \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 (16) require gnus-async gnus-art gnus-buffer-live-p 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=#:--cl-x-- gnus-inhibit-article-treatments gnus-break-pages gnus-display-mime-function gnus-article-decode-hook gnus-article-prepare-hook gnus-have-all-headers gnus-article-mime-handles gnus-article-mime-handle-alist gnus-current-article] 6 (#$ . 315729) "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 (#$ . 317972) 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 (#$ . 318166) "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) "\306!\205\n\307\310\"rq\210~\210\311 \210\310\211\f\247\203#\f\312Y\202-\313\314!?\206-\315\316!\317\211!\"ed|\210r#q\210e\211!b\210\320\321\317\310#\203P`S\202Qd\")\322#!\"#\210\323\324!\210
\203w\317\211$%\325\316!\210\326\327!\210*\202{\326\327!\210~\210	\203\207\330	eb\"\210&\203\222\331 \210\202\243\332\333!\203\243\310\334\335!\210\334\336!\210)\337\340!.\207" [gnus-article-buffer window inhibit-read-only inhibit-point-motion-hooks arg hidden gnus-buffer-live-p 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 s e gnus-original-article-buffer gnus-treat-hide-boring-headers gnus-treat-hide-headers gnus-break-pages] 5 (#$ . 318528) "P"])
#@32 Make all header lines visible.
(defalias 'gnus-summary-show-all-headers #[nil "\300\301!\207" [gnus-summary-toggle-header 1] 2 (#$ . 319781) 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 (#$ . 319935) "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 (#$ . 320748) "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 (#$ . 322005) "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 (#$ . 322741) 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\351L\204\351M\203\253NJ>\203\230\332O!\204\253\310\211\211PQR\333\310\211\211J@$\210+\334H\236\211SA@)\335\336\337\"!JJI$\211K@\340K!\211T\203\334T<\203\334T\206\324\341TU\"A\206\324T\342\232\203\362V\206\270\341TW\"A\206\270\341TX\"A\206\270YZZ\2036T\336\343Z\211S@@)@Z\211S@@)A@#\232\2046Z\211AZ@\210\202\nZ\211S@@*\206\270[\\\\\203oT\336\343\\\211S@@)\\\211S@A)@#\232\204o\\\211A\\@\210\202E\\@)\206\270]A\310\211^_``\203\265\344`\211A`@8\211_;\204\201T_\310\345ab_\346\347\215+\232\203\201_^\310\211`\204\206^+\211c\203\321\341TU\"\204\321TcBUBUc))E\335\336\337\"!\350K\351EK\"\"L\210E\204L\206\340K!\211T\203T<\203T\206\341TU\"A\206T\342\232\203V\206\344\341TW\"A\206\344\341TX\"A\206\344YZZ\203bT\336\343Z\211S@@)@Z\211S@@)A@#\232\204bZ\211AZ@\210\2026Z\211S@@*\206\344[\\\\\203\233T\336\343\\\211S@@)\\\211S@A)@#\232\204\233\\\211A\\@\210\202q\\@)\206\344]A\310\211^_``\203\341\344`\211A`@8\211_;\204\255T_\310\345ab_\346\352\215+\232\203\255_^\310\211`\204\262^+\211c\203\375\341TU\"\204\375TcBUBUc))E@\206K\205\353K\351EK\"\"K\354E@\310\355\356\217*\204.\313\357E@\"\210\360E!\204<\313\361E@\"\210\362\363\364H\236\211SAA)@L@\206T\365K!J%\210J\203uJ\211AJ@Cd\203p\366C!\210\306=\203\324\367C!\210\370	!eL\206\211\370K!E\371eE\"f\372C	\370	!A@\373K\374LDJ?\345\257J?f\205\316K\205\316Kg\375\376g\"\203\313g\377\225\310O\202\315g)&+\202\332\201\207=\203!rGq\210\201\210C	\"\205\214\201\211 \210h\310i\211j\203j@i\201\212i\345\"\210jA\211j\204\374+\373KLJ?\345$)\202\332\315=\205\332\201\213\201\214Ck\2368\201\215H\201\216\"l	g\375\376g\"\203Qg\377\225\310O\202Sg)\201\217\201\220C!QDl\204l\201\221 Cl\201\222\201\223\201\224\201\225\201\224Dl\"\"\201\216#\201\216DQDrGq\210\201\210C	\"\210\373KLJ?\345$\211F:\205\331D\201\216F@\201\217\201\220FA!\260D\201\226\201\227D\"\210\201\230FAKp\345$\210F*\211F\204\377\362\201\231\201\232H\236\211SA@)C\201\233E@!%\210\202kF\201\234=\203;\306=\203k\201\235Cm\"\210\362\344\201\236C#\210\201\237\201\240\201\214\341Ck\"8	\310L&\210\202k\201\241F@E\"n\201\242\201\243no\"J8\211p@q\310rp\203
\201\244>\203
qB\235\204xqBBBCs>\204\242FA\203\242\201\245rBrpAA\201\246\201\242p8FAC\"\240\210\201\247q!\211t\203\263u\202\300\201\224\201\250\201\251u!\"vFA\211w\203\350x\203\350\201\252qwCy>Cz>Cs>%\210d\203\357w\203\357q	\232\203Cs>\204w{B|B|\201\243q}\"Jw\241\210~w\241\210v\203\241\201\253v\211S@A)!\201\254=\203\230C\335\336\201\255v\211S@@)\"!J>\203\230v\211S@A)rBrq	\232\203\204\335\336\201\255v\211S@@)\"!w\335\336\201\255v\211S@@)\"!JBL\210\201\256qv\211S@A)wCp$\210vA\211v\204#t\203\331\203\331\201\257r>\204\331\201\257rBrq	\232\203\312w\200B\200\201\256q\201\257wCp$\210r\203\357\201\260qwC\201\261rEC\"\210\201\262\201\263\201\264\201\242\201\243qo\"J8!\201\265Q!\210+\315=\2035rGq\210\201\210C	\"\210\201\226\201\227D\"\210\201\230C	p\345$\210)\201\237\201\266\201\214\341Ck\"8	KL&\210,\201q\210\306=\203k\212\201\267C!\210\201\235Cm\"\210)CABA\202X\212\201\270\201\271A\"\210)r\202q\210B\203\201\272\310\345\"\210*G\211\204\211\205\205\257\205;\203\251\201\273\202\254\201\274\205!)\203\310\201\224\201\273\204!\206\"\206\201\275\204!\210)\201\276 \210\201\277\201\300!.\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" gnus-buffer-live-p 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 "^[^:]+:" 0 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 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 #9=#:--cl-dolist-temp-- 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 buffer gnus-buffers 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-request-set-mark add gnus-dribble-enter "(gnus-group-set-info '" gnus-prin1-to-string ")" gnus-summary-article-move-hook gnus-summary-goto-subject apply gnus-summary-remove-process-mark gnus-group-get-new-news-this-group get-buffer buffer-name kill-buffer gnus-summary-position-point gnus-set-mode-line summary] 12 (#$ . 323336) "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 (#$ . 333865) "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 (#$ . 334415) "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 '(#$ . 334621) :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 (#$ . 334843) (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 (#$ . 336495) "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 (#$ . 337992) 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 (#$ . 338962) nil])
#@72 Expire all articles that are marked as expirable in the current group.
(defalias 'gnus-summary-expire-articles #[(&optional now) "?\205\330\306	\307\310\311\217*\205\330\312	!\211\203&\313\314!\210\315 \210\316	!\202,\317
\320\"\211#$\2037\321\202;\322	\323\"\322	\324\"\206F%%\307&#\205\327\325\326\327\"\210\330	!\204`\331\332	\"\210\212\203x\307'(\333#	\"&*\202\333#	\"&\f\204\206&&#=\204\322\307)#\307*\211+\203\321+@\211*&>\204\310*,\236\203\310\334*-\"\210\335\336\337\340\341*,\"8	\307\211&\210+A\211+\204\234+)\325\326\342\"-\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 error "Can't open server for %s" 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 #1=#:--cl-dolist-temp-- gnus-newsgroup-data gnus-canceled-mark] 9 (#$ . 339627) 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 (#$ . 341175) 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 (#$ . 341609) "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\203<\307=\203\310\202<\311=\203\"\310\211\202<\312=\203:\313\f!\2056r\fq\210
\306)\202<\310	\203Q\n\204Q0\314\235\203Q\315\3160\"\210r1q\21023#\317 \210\n\204n\320 \203n\315\321!\210\322\310!\210	\204\204\313\f!\203\204r\fq\210\323 \210)0\324\235\203\215\310\325	\203\226\326\202\247\327\306\330\331\332\330\333\334\300DE\335BBBBE\327\336\330\337\3402DD\341\342\343\3403DD\344\340\345\3460!0\"4\347\3504B\3514B\3524BE$\")DD\257	?\205\340\353\3545\355H\206\351\356\320 1\357BBBBFE\".\207" [current-handles raw force arg gnus-article-buffer gnus-article-mime-handles nil 1 t 2 3 gnus-buffer-live-p ("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-newsgroup-name gnus-summary-buffer gnus-newsgroup-charset gnus-newsgroup-ignored-charsets charset gnus-current-headers] 17 (#$ . 343385) "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!\202c
\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\2101<\236=\347=\2338\240\210)\35018\"\210\3321\320\310#\203!\3511!\210.\202B>\206-5q\210\3521!\210\3321\320\310#\203B\3511!\210?\204Yr@q\210Aq\210\3531\f@p#\210)\354\355\356\"\205c\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=#:--cl-x-- buffer no-highlight gnus-article-buffer gnus-original-article-buffer] 5 (#$ . 345771) 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 (#$ . 347952) (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 (#$ . 348297) 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 (#$ . 348785) 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 (#$ . 349041) "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 (#$ . 349948) "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 (#$ . 350661)])
#@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 (#$ . 351364) "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 (#$ . 352422) "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 (#$ . 352734) 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 (#$ . 352989)])
#@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 (#$ . 353464) "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 (#$ . 353765) "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\203;\n@\211\247\204!\306\307\"\210B\310\311\305\310#\2033\312!\210)\nA\211\204+\305\207" [article articles #1=#:--cl-dolist-temp-- gnus-newsgroup-replied inhibit-read-only nil error "%s is not a number" t gnus-summary-goto-subject gnus-summary-update-secondary-mark] 6 (#$ . 354050) (list (gnus-summary-article-number))])
#@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\2031\n@\211B\306\307\305\306#\203)\310!\210)\nA\211\204+\305\207" [article articles #1=#:--cl-dolist-temp-- gnus-newsgroup-forwarded inhibit-read-only nil t gnus-summary-goto-subject gnus-summary-update-secondary-mark] 6 (#$ . 354582)])
#@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 (#$ . 355027) (list (gnus-summary-article-number))])
#@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 (#$ . 355566) (list (gnus-summary-article-number))])
#@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 (#$ . 355900) "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 (#$ . 356194)])
#@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 #1=#:--cl-dolist-temp-- gnus-newsgroup-processable nil delq gnus-summary-goto-subject gnus-summary-show-thread gnus-summary-update-secondary-mark t] 4 (#$ . 356515)])
#@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 (#$ . 356933)])
#@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 (#$ . 357191) "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 (#$ . 358143)])
#@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\314	\315X\203=\316\317\320\"\210\321\202\314\322	\"\322	\"\322	\"\322	\"\322	\"
U\203q\323	\"\202\232
U\203\202\323	\"\202\232
 U\203\223\323	\"\202\232\323!	\"!\322	\236\"\"\203\306\324\325	\n\2368!\203\306\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-ticked-mark gnus-spam-mark gnus-dormant-mark gnus-newsgroup-unreads gnus-use-cache gnus-unread-mark] 8 (#$ . 358936)])
#@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 (#$ . 360068)])
#@51 Update the secondary (read, process, cache) mark.
(defalias 'gnus-summary-update-secondary-mark #[(article) "\306	>\203\n\202R>\203\f\202R
>\203 \202R>\203,\202R>\2038\202R>\203D\202R>\203P\202R\307\"\210\310\311\312\"\203c\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-recent gnus-recent-mark gnus-newsgroup-unseen gnus-unseen-mark gnus-no-mark] 3 (#$ . 361533)])
#@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 (#$ . 362310)])
(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 (#$ . 363285)])
#@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 (#$ . 363842)])
#@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 (#$ . 364588) "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 (#$ . 364870) "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 (#$ . 365113) 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 (#$ . 365494) "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 (#$ . 365819) "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 (#$ . 366109)])
#@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 (#$ . 366405) "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 (#$ . 366694) "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 (#$ . 366943)])
#@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 (#$ . 367179)])
#@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 (#$ . 367676)])
#@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 (#$ . 368214)])
#@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 (#$ . 368455) "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 (#$ . 369087) "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 (#$ . 369658) "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 (#$ . 369851) "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 (#$ . 370053) "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 (#$ . 370242) "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 #1=#:--cl-dolist-temp--] 4 (#$ . 370888) 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 (#$ . 371651) "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 (#$ . 373381) "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 (#$ . 373845) "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 (#$ . 374338) "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 (#$ . 374643) "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 (#$ . 375139) "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 (#$ . 375486) "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 (#$ . 375803) "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 (#$ . 376142)]))
(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 (#$ . 377180)])
#@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 (#$ . 378231) 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 (#$ . 378823) 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) "\303\211\203\n@\304\213\210\nA\211\204*\303\207" [children child #1=#:--cl-dolist-temp-- nil ((byte-code "\306	\n=\203\f\307\310!\210\311	\2368\312H\211\203\f\313\232\203\"\307\314!\210\315\316\317\211\315\n$\210)(q\210\214eb\210\320 \210\321\322\315\317#\203S\321\323\315\317#\210\324y\210\315\210\325\f\261\210\202Y\326\f\327\261\210)\330)@*+\315\331\332\217*\204r\333\334\335\"\210\202\201\336\n)@p\317$\204\201\307\337!\210,\203\217\340)@)A\"\210-\203\235\341)@)A\"\210.q\210\342 \210\343\n!\210\344)A\315\317#\203\270\345)A!\210\346 \210\333\311\347\n	$\210*\315\207" [gnus-article-buffer parent child gnus-newsgroup-data message-id gnus-mark-article-hook " *reparent*" error "An article may not be self-referential" 3 4 "" "No message-id in desired parent" nil 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-original-article-buffer gnus-article-current group func gnus-keep-backlog gnus-use-cache gnus-summary-buffer] 6))] 3 (#$ . 379668) (list (gnus-summary-article-number) (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 (#$ . 381592) "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\203\"@\310\n\f\"
=\203\311\n!\210A\211\204*\307\207" [beg end ov #:--cl-dolist-temp-- 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 (#$ . 382658) 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 (#$ . 383032) 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 (#$ . 383596)])
(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 (#$ . 384073)])
#@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\302	\203\303	\304 \"\203\305 \210\306\307\310\311\"!?\211\203*\312 \207" [end predicate nil gnus-map-articles gnus-summary-article-children gnus-summary-hide-thread zerop gnus-summary-next-thread 1 t gnus-summary-position-point] 5 (#$ . 384366) 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?\205m\313\314\315\316\"!\2043db\205m`V\203i\317\320\316#\203i`\nV\203c\321\n`\322\323$\210\324\n`\325\316\325%\326\f\322\323#\210\326\f\327\316#\210)\310	!\202mb\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] 7 (#$ . 384817) 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 (#$ . 385598)])
#@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 (#$ . 386428) "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 (#$ . 386939) "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 (#$ . 387167)])
#@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 (#$ . 387375)])
#@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 (#$ . 387576) "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 (#$ . 388023) "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 (#$ . 388265) nil])
#@48 Mark articles under current thread as expired.
(defalias 'gnus-summary-expire-thread #[nil "\300\301!\207" [gnus-summary-kill-thread 0] 2 (#$ . 388565) 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 (#$ . 388730) "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 (#$ . 389688) "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 (#$ . 389911) "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 (#$ . 390170) "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 (#$ . 390410) "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 (#$ . 390708) "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 (#$ . 391015) "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 (#$ . 391331) "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 (#$ . 391540) "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 (#$ . 391785) "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 (#$ . 391997) "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 (#$ . 392223) "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 (#$ . 392444) "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 (#$ . 392768)])
#@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\263)@(\317(*\2368&\320&!\204n\321&\236\203d\322\321&\236A!\210\202\237\323\324\325(#\210\202\237\326\213\210r\nq\210\327 \210\330#\203\203+\202\205,!\210)\331\n'#'\332(!\210-\204\237\333(!\210$\203\252$\316$)A\211)\204=*\n\211.\211/\205\314/;\203\310\334\202\311\335/!)\203\337\336\334.!0\"0\337.!\210)\340 \210\341\342!\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 unsaveable" ((byte-code "\302\211\303	$\210\304	!\207" [decode article gnus-summary-select-article nil gnus-summary-goto-subject] 5)) 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 #1=#:--cl-dolist-temp-- gnus-newsgroup-data gnus-article-buffer gnus-original-article-buffer not-saved buf buffer gnus-buffers] 6 (#$ . 393378) "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\211/0	@\247\204/\317\320!\210\321\322	A\203>\323\324	G\"\202?\325\326Q1\"\211/\327\230\203P\317\330!\210\f\203Z\331\314\315\316#\210\332\216	\203\212\333	\211A@!\210\334\213\210\335\n!\203\\\336\337\335\n!!!\204\\0r\nq\210\340 )P0\202\\)\3360G!?\205\314r\341\n!q\210\342 \2100c\210\343e`\"\344U\205\263\345\210i\346\347 !Xeb\210)\203\305\350\3510\345\352O\"\202\314\350\316!\210\353\354!.\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 ((gnus-summary-save-in-pipe command raw)) 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] 6 (#$ . 395197) (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 (#$ . 397470) "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 (#$ . 397953) "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 (#$ . 398431) "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 (#$ . 398900) "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 (#$ . 399398) "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 (#$ . 399882) "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 (#$ . 400395) "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 (#$ . 400872) "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 (#$ . 401481)])
(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+\206c\324+,\"A\206c+\325\232\203\201-\206G\324+.\"A\206G\324+/\"A\206G011\203\305+\310\3261\2112@@)@1\2112@@)A@#\232\204\3051\211A1@\210\202\2311\2112@@*\206G344\203\376+\310\3264\2112@@)4\2112@A)@#\232\204\3764\211A4@\210\202\3244@)\206G5A\307\2116788\203D\3278\211A8@8\2117;\204+7\307\3209:7\330\331\215+\232\20376\307\2118\2046+\211;\203`\324+,\"\204`+;B,B,;))<\307=*\205\340*\332\230\204}*(\230\203\201)**\204\212\333\334!\210\335*\336<*\"\"=\337='\"J\204\336\340=\307\211<$\204\336\341\310\342*\"!\203\330\343=<\"\203\320\340=\307\211<$\203\320\344=!\204\336\333\345*\"\204\336\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 (#$ . 402296)])
#@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 (#$ . 404918) (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@@)\"\205y\311\312\313\314\3158\316\"\206_\314A@\317\"\206_\320\321\f
A$!\"\"T\322!?\205x\323\")\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 mail-content-type-get 4 filename name 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\2031\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 (#$ . 409324) (list (gnus-summary-article-number))])
#@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 (#$ . 409518) 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\360rq\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\357
\313H>\204\356\f;\203\314\324\325\"\203\264\313\225\310O\202\266)\n@\230\203\306\326	\327!\"\204\314
\313I\210rq\210S\330
\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 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] 4 (#$ . 409977)])
#@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 (#$ . 411136)])
#@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 (#$ . 411419)])
(byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\304\207" [current-load-list gnus-summary-highlight-line-cached default-boundp set-default nil gnus-summary-highlight-line-trigger] 3)
(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 (#$ . 412529)])
#@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!*??\205u+\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\202u\212\311-.\204\275\313\314	!\315\"\203-\316	/\311\317\320\217*\203-\321\307)8\f\"\321\f\307)8\"\204\346\203,\322	!\204\361\323\324	\"\210\325	\326\311\205\377\327\330E\205	\331\332ED\"\"\210\325	\333\326\311\205\327\334E\205&\331\335ED\"DE-*0q\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 gnus-propagate-marks func gnus-group-buffer] 10 (#$ . 413598)])
#@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*\205H\212\314\315\316#))\207" [buffers buffer #1=#:--cl-dolist-temp-- major-mode gnus-newsgroup-prepared gnus-dead-summary-mode nil buffer-list buffer-name string-match "Summary" gnus-summary-mode map-y-or-n-p "Update summary buffer %s? " #[(buf) "\301!\210\302 \207" [buf switch-to-buffer gnus-summary-exit] 2]] 4 (#$ . 415233)])
#@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 (#$ . 415779)])
#@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 (#$ . 416318) "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 (#$ . 416736) (list (gnus-summary-article-number))])
#@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 (#$ . 417982) 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")) (#$ . 418275))
(byte-code "\301B\302\301!\204\303\301\304 \"\210\301\207" [current-load-list gnus-summary-generic-mark-map default-boundp set-default make-sparse-keymap] 3)
(defalias 'gnus-summary-make-all-marking-commands #[nil "\305\306	#\210\n\307\211\203\f@\310\311\"\210\fA\211\204*\307\207" [gnus-summary-mark-map gnus-summary-generic-mark-map gnus-summary-marking-alist elem #1=#:--cl-dolist-temp-- define-key "M" nil apply gnus-summary-make-marking-command] 4])
(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\203A\f@\317
@$\320!\307\3218#\210)\fA\211\204+\316\207" [map gnus-summary-generic-mark-map keystroke lway #1=#:--cl-dolist-temp-- 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 (#$ . 420094)])
(defalias 'gnus-summary-insert-articles #[(articles) "\306\307\310	\"\"\211\205\214\311\312	\313!\314$\n\203\315 \210\2038\f\316=\2038\317=\2032\320 \210\202d\321 \210\202d\322
\323\324!\"\"\325\211\203c@\326\"A\211\204M* \203l\327 \210!\203t\330 \210	\203\205	@\331H\"\332	!\331H#$\205\214\333 \207" [articles gnus-newsgroup-headers gnus-suppress-duplicates gnus-fetch-old-headers gnus-headers-retrieved-by gnus-newsgroup-unreads gnus-sorted-difference mapcar #[(h) "\301H\207" [h 0] 2] gnus-merge list gnus-fetch-headers gnus-article-sort-by-number gnus-dup-suppress-articles nov invisible gnus-build-all-threads gnus-build-old-threads gnus-sorted-nunion 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-name art #1=#:--cl-dolist-temp-- gnus-newsgroup-unselected gnus-agent gnus-list-identifiers gnus-newsgroup-begin gnus-newsgroup-end gnus-use-scoring] 5])
#@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	$'\205\305\326'!\315B\"(\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 (#$ . 421907) "P"])
#@40 Insert all new articles in this group.
(defalias 'gnus-summary-insert-new-articles #[nil "\306\307\310\"\311\"	\312C\313\211\314\315\316\"!\211A\211
V\2031\nBS\211\202!\n\204;\317\320!\202M\321\n!\210\322\n\"\323\322\n\"!-\324 \210\207" [gnus-newsgroup-data gnus-newsgroup-highest new i nnmail-fetched-sources old-high sort mapcar car < t nil gnus-copy-sequence gnus-activate-group scan message "No gnus is bad news" gnus-summary-insert-articles gnus-sorted-nunion gnus-summary-limit gnus-summary-position-point old gnus-newsgroup-name gnus-newsgroup-active gnus-newsgroup-unreads] 6 (#$ . 423346) 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 (#$ . 423984)])
#@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 (#$ . 424982)])
(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)
