;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:44:06 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/gnus/gnus-sum.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`gnus-sum.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\312\313\314\315\316$\210\312\317\314\"\210\312\320\321\"\207" [require gnus gnus-group gnus-spec gnus-range gnus-int gnus-undo gnus-util mm-decode nnoo autoload gnus-summary-limit-include-cached "gnus-cache" nil t gnus-cache-write-active mm-uu-dissect "mm-uu"] 5) #@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 '(#$ . -1018) :group 'gnus-summary-exit :type 'boolean) #@736 *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 non-nil, Gnus will attempt to grab the headers to the old articles, and thereby build complete threads. If it has the value `some', 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. (custom-declare-variable 'gnus-fetch-old-headers 'nil '(#$ . -1293) :group 'gnus-thread :type '(choice (const :tag "off" nil) (const some) number (sexp :menu-tag "other" t))) #@145 *The number of old headers to fetch when doing \\[gnus-summary-refer-thread]. If t, fetch all the available old headers. (custom-declare-variable 'gnus-refer-thread-limit '200 '(#$ . -2210) :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 '(#$ . -2502) :group 'gnus-thread :type '(choice (const :tag "off" nil) (const none) (const dummy) (const adopt) (const empty))) #@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)$" '(#$ . -3729) :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 '(#$ . -4123) :group 'gnus-thread :type '(choice (const :tag "off" nil) (const fuzzy) (sexp :menu-tag "on" t))) #@244 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' and `gnus-simplify-whitespace'. (custom-declare-variable 'gnus-simplify-subject-functions 'nil '(#$ . 4774) :group 'gnus-thread :type '(repeat function)) #@85 *Regexp, matches for which are removed from subject lines when simplifying fuzzily. (custom-declare-variable 'gnus-simplify-ignored-prefixes 'nil '(#$ . -5145) :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 '(#$ . -5379) :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 '(#$ . -5818) :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 '"" '(#$ . -6367) :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 't '(#$ . -6660) :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 '(#$ . -7323) :group 'gnus-score-default :type '(choice (const :tag "disable") 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 '(#$ . -7625) :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 '(#$ . -7888) :group 'gnus-thread :type '(repeat regexp)) #@47 *If non-nil, display threads in summary mode. (custom-declare-variable 'gnus-show-threads 't '(#$ . -8225) :group 'gnus-thread :type 'boolean) #@188 *If non-nil, hide all threads initially. If threads are hidden, you have to run the command `gnus-summary-show-thread' by hand or use `gnus-select-article-hook' to expose hidden threads. (custom-declare-variable 'gnus-thread-hide-subtree 'nil '(#$ . -8375) :group 'gnus-thread :type 'boolean) #@49 *If non-nil, hide killed threads automatically. (custom-declare-variable 'gnus-thread-hide-killed 't '(#$ . -8674) :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 '(#$ . -8832) :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 '(#$ . -9142) :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 '(#$ . -9707) :group 'gnus-thread :type 'integer) #@68 *If non-nil, extend newsgroup forward and backward when requested. (custom-declare-variable 'gnus-auto-extend-newsgroup 't '(#$ . -9880) :group 'gnus-summary-choose :type 'boolean) #@554 *If nil, don't select the first unread article when entering a group. If this variable is `best', select the highest-scored unread article in the group. If t, select the first unread article. This variable can also be a function to place point on a likely subject line. Useful values include `gnus-summary-first-unread-subject', `gnus-summary-first-unread-article' and `gnus-summary-best-unread-article'. If you want to prevent automatic selection of the first unread article in some newsgroups, set the variable to nil in `gnus-select-group-hook'. (custom-declare-variable 'gnus-auto-select-first 't '(#$ . -10068) :group 'gnus-group-select :type '(choice (const :tag "none" nil) (const best) (sexp :menu-tag "first" t) (function-item gnus-summary-first-unread-subject) (function-item gnus-summary-first-unread-article) (function-item gnus-summary-best-unread-article))) #@644 *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 `Z n' command will go to the next group without confirmation. (custom-declare-variable 'gnus-auto-select-next 't '(#$ . -10951) :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 '(#$ . -11828) :group 'gnus-summary-maneuvering :type 'boolean) #@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 '(#$ . -12097) :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 't '(#$ . -12373) :group 'gnus-summary-maneuvering :type '(choice (const :tag "none" nil) (const vertical) (integer :tag "height") (sexp :menu-tag "both" t))) #@38 *If non-nil, don't hide any headers. (custom-declare-variable 'gnus-show-all-headers 'nil '(#$ . -12780) :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 '(#$ . -12964) :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 't '(#$ . -13149) :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 '(#$ . -13378) :group 'gnus-article-various :type 'boolean) #@124 *Variable used to suggest where articles are to be moved to. It uses the same syntax as the `gnus-split-methods' variable. (custom-declare-variable 'gnus-move-split-methods 'nil '(#$ . -13605) :group 'gnus-summary-mail :type '(repeat (choice (list :value (fun) function) (cons :value ("" "") regexp (repeat string)) (sexp :value nil)))) #@33 *Mark used for unread articles. (custom-declare-variable 'gnus-unread-mark '32 '(#$ . -13948) :group 'gnus-summary-marks :type 'character) #@33 *Mark used for ticked articles. (custom-declare-variable 'gnus-ticked-mark '33 '(#$ . -14093) :group 'gnus-summary-marks :type 'character) #@34 *Mark used for dormant articles. (custom-declare-variable 'gnus-dormant-mark '63 '(#$ . -14238) :group 'gnus-summary-marks :type 'character) #@32 *Mark used for del'd articles. (custom-declare-variable 'gnus-del-mark '114 '(#$ . -14385) :group 'gnus-summary-marks :type 'character) #@31 *Mark used for read articles. (custom-declare-variable 'gnus-read-mark '82 '(#$ . -14527) :group 'gnus-summary-marks :type 'character) #@36 *Mark used for expirable articles. (custom-declare-variable 'gnus-expirable-mark '69 '(#$ . -14668) :group 'gnus-summary-marks :type 'character) #@33 *Mark used for killed articles. (custom-declare-variable 'gnus-killed-mark '75 '(#$ . -14819) :group 'gnus-summary-marks :type 'character) #@33 *Mark used for killed articles. (custom-declare-variable 'gnus-souped-mark '70 '(#$ . -14964) :group 'gnus-summary-marks :type 'character) #@47 *Mark used for articles killed by kill files. (custom-declare-variable 'gnus-kill-file-mark '88 '(#$ . -15109) :group 'gnus-summary-marks :type 'character) #@43 *Mark used for articles with a low score. (custom-declare-variable 'gnus-low-score-mark '89 '(#$ . -15271) :group 'gnus-summary-marks :type 'character) #@45 *Mark used for articles that are caught up. (custom-declare-variable 'gnus-catchup-mark '67 '(#$ . -15429) :group 'gnus-summary-marks :type 'character) #@52 *Mark used for articles that have been replied to. (custom-declare-variable 'gnus-replied-mark '65 '(#$ . -15587) :group 'gnus-summary-marks :type 'character) #@48 *Mark used for articles that are in the cache. (custom-declare-variable 'gnus-cached-mark '42 '(#$ . -15752) :group 'gnus-summary-marks :type 'character) #@50 *Mark used for articles that have been saved to. (custom-declare-variable 'gnus-saved-mark '83 '(#$ . -15912) :group 'gnus-summary-marks :type 'character) #@34 *Mark used for ancient articles. (custom-declare-variable 'gnus-ancient-mark '79 '(#$ . -16073) :group 'gnus-summary-marks :type 'character) #@42 *Mark used for sparsely reffed articles. (custom-declare-variable 'gnus-sparse-mark '81 '(#$ . -16220) :group 'gnus-summary-marks :type 'character) #@35 *Mark used for canceled articles. (custom-declare-variable 'gnus-canceled-mark '71 '(#$ . -16374) :group 'gnus-summary-marks :type 'character) #@36 *Mark used for duplicate articles. (custom-declare-variable 'gnus-duplicate-mark '77 '(#$ . -16523) :group 'gnus-summary-marks :type 'character) #@50 *Mark used for articles that weren't downloaded. (custom-declare-variable 'gnus-undownloaded-mark '64 '(#$ . -16674) :group 'gnus-summary-marks :type 'character) #@52 *Mark used for articles that are to be downloaded. (custom-declare-variable 'gnus-downloadable-mark '37 '(#$ . -16842) :group 'gnus-summary-marks :type 'character) #@45 *Mark used for articles that won't be sent. (custom-declare-variable 'gnus-unsendable-mark '61 '(#$ . -17012) :group 'gnus-summary-marks :type 'character) #@49 *Score mark used for articles with high scores. (custom-declare-variable 'gnus-score-over-mark '43 '(#$ . -17173) :group 'gnus-summary-marks :type 'character) #@48 *Score mark used for articles with low scores. (custom-declare-variable 'gnus-score-below-mark '45 '(#$ . -17338) :group 'gnus-summary-marks :type 'character) #@40 *There is no thread under the article. (custom-declare-variable 'gnus-empty-thread-mark '32 '(#$ . -17503) :group 'gnus-summary-marks :type 'character) #@39 *There is a thread under the article. (custom-declare-variable 'gnus-not-empty-thread-mark '61 '(#$ . -17661) :group 'gnus-summary-marks :type 'character) #@61 *If non-nil, Gnus will view pseudo-articles asynchronously. (custom-declare-variable 'gnus-view-pseudo-asynchronously 'nil '(#$ . -17822) :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-souped-mark gnus-duplicate-mark) '(#$ . -18008) :version "21.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 '(#$ . -18368) :version "21.1" :group 'gnus-summary :type 'boolean) #@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 '(#$ . -18621) :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 '(#$ . -18970) :group 'gnus-extract-view :type 'boolean) #@61 *If non-nil, insert pseudo-articles when decoding articles. (custom-declare-variable 'gnus-insert-pseudo-articles 't '(#$ . -19274) :group 'gnus-extract-view :type 'boolean) #@177 *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 (custom-declare-variable 'gnus-summary-dummy-line-format '" %(: :%) %S\n" '(#$ . -19455) :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" '(#$ . -19791) :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 '(#$ . 20588) :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 '(#$ . -20927) :group 'gnus-score-default :type 'integer) #@131 *List of functions used for sorting articles in the summary buffer. This variable is only used when not using a threaded display. (custom-declare-variable 'gnus-article-sort-functions ''(gnus-article-sort-by-number) '(#$ . -21187) :group 'gnus-summary-sort :type '(repeat (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 :tag "other")))) #@677 *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 return 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. Ready-made functions include `gnus-thread-sort-by-number', `gnus-thread-sort-by-author', `gnus-thread-sort-by-subject', `gnus-thread-sort-by-date', `gnus-thread-sort-by-score' and `gnus-thread-sort-by-total-score' (see `gnus-thread-score-function'). (custom-declare-variable 'gnus-thread-sort-functions ''(gnus-thread-sort-by-number) '(#$ . -21719) :group 'gnus-summary-sort :type '(repeat (choice (function-item gnus-thread-sort-by-number) (function-item gnus-thread-sort-by-author) (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-total-score) (function :tag "other")))) #@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 ''+ '(#$ . -22838) :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 '(#$ . 23196) :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 '(#$ . 23470) :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 '(#$ . -23853) :options '(turn-on-gnus-mailing-list-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 '(#$ . -24113) :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 '(#$ . -24284) :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 '(#$ . -24497) :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 '(#$ . -24742) :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 '(#$ . -24942) :group 'gnus-summary-various :type 'hook) #@412 *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: (setq gnus-select-group-hook (list (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 '(#$ . -25193) :group 'gnus-group-select :type 'hook) #@45 *A hook called when an article is selected. (custom-declare-variable 'gnus-select-article-hook 'nil '(#$ . -25718) :group 'gnus-summary-choose :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) '(#$ . -25881) :group 'gnus-summary-visual :type 'hook) #@44 *A hook called before parsing the headers. (custom-declare-variable 'gnus-parse-headers-hook 'nil '(#$ . -26205) :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 '(#$ . -26359) :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 '(list 'gnus-summary-highlight-line) '(#$ . -26579) :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) '(#$ . -26958) :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 '(#$ . -27273) :group 'gnus-group-select :type 'hook) #@53 *A hook run before ps-printing something from Gnus. (custom-declare-variable 'gnus-ps-print-hook 'nil '(#$ . -27468) :group 'gnus-summary :type 'hook) #@71 Face used for highlighting the current article in the summary buffer. (custom-declare-variable 'gnus-summary-selected-face ''gnus-summary-selected-face '(#$ . 27625) :group 'gnus-summary-visual :type 'face) #@546 *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 articles score default: The default article score. below: The score below which articles are automatically marked as read. mark: The articles mark. (custom-declare-variable 'gnus-summary-highlight ''(((= mark gnus-canceled-mark) . gnus-summary-cancelled-face) ((and (> score default) (or (= mark gnus-dormant-mark) (= mark gnus-ticked-mark))) . gnus-summary-high-ticked-face) ((and (< score default) (or (= mark gnus-dormant-mark) (= mark gnus-ticked-mark))) . gnus-summary-low-ticked-face) ((or (= mark gnus-dormant-mark) (= mark gnus-ticked-mark)) . gnus-summary-normal-ticked-face) ((and (> score default) (= mark gnus-ancient-mark)) . gnus-summary-high-ancient-face) ((and (< score default) (= mark gnus-ancient-mark)) . gnus-summary-low-ancient-face) ((= mark gnus-ancient-mark) . gnus-summary-normal-ancient-face) ((and (> score default) (= mark gnus-unread-mark)) . gnus-summary-high-unread-face) ((and (< score default) (= mark gnus-unread-mark)) . gnus-summary-low-unread-face) ((= mark gnus-unread-mark) . gnus-summary-normal-unread-face) ((and (> score default) (memq mark (list gnus-downloadable-mark gnus-undownloaded-mark))) . gnus-summary-high-unread-face) ((and (< score default) (memq mark (list gnus-downloadable-mark gnus-undownloaded-mark))) . gnus-summary-low-unread-face) ((memq mark (list gnus-downloadable-mark gnus-undownloaded-mark)) . gnus-summary-normal-unread-face) ((> score default) . gnus-summary-high-read-face) ((< score default) . gnus-summary-low-read-face) (t . gnus-summary-normal-read-face)) '(#$ . -27839) :group 'gnus-summary-visual :type '(repeat (cons (sexp :tag "Form" nil) face))) #@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 '(#$ . 29869)) #@89 Variable that says which function should be used to decode a string with encoded words. (defvar gnus-decode-encoded-word-function 'mail-decode-encoded-word-string (#$ . 30115)) #@26 *Extra headers to parse. (custom-declare-variable 'gnus-extra-headers 'nil '(#$ . -30298) :version "21.1" :group 'gnus-summary :type '(repeat symbol)) #@72 *Regexp of From headers that may be suppressed in favor of To headers. (custom-declare-variable 'gnus-ignored-from-addresses '(and user-mail-address (regexp-quote user-mail-address)) '(#$ . -30455) :version "21.1" :group 'gnus-summary :type 'regexp) #@87 Alist of regexps (to match group names) and default charsets to be used when reading. (custom-declare-variable 'gnus-group-charset-alist ''(("^hk\\>\\|^tw\\>\\|\\" cn-big5) ("^cn\\>\\|\\" cn-gb-2312) ("^fj\\>\\|^japan\\>" iso-2022-jp-2) ("^tnn\\>\\|^pin\\>\\|^sci.lang.japan" iso-2022-7bit) ("^relcom\\>" koi8-r) ("^fido7\\>" koi8-r) ("^\\(cz\\|hun\\|pl\\|sk\\|hr\\)\\>" iso-8859-2) ("^israel\\>" iso-8859-1) ("^han\\>" euc-kr) ("^alt.chinese.text.big5\\>" chinese-big5) ("^soc.culture.vietnamese\\>" vietnamese-viqr) ("^\\(comp\\|rec\\|alt\\|sci\\|soc\\|news\\|gnu\\|bofh\\)\\>" iso-8859-1) (".*" iso-8859-1)) '(#$ . 30711) :type '(repeat (list (regexp :tag "Group") (symbol :tag "Charset"))) :group 'gnus-charset) #@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) '(#$ . 31453) :version "21.1" :type '(repeat symbol) :group 'gnus-charset) #@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)) '(#$ . 31760) :type '(repeat (cons (regexp :tag "Group") (repeat symbol))) :group 'gnus-charset) #@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 '(#$ . 32140) :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 '(#$ . 32605) :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 '(#$ . 32964) :version "21.1" :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 '(#$ . 33166) :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 '(#$ . -33381) :group 'gnus-score-default :type '(choice (const nil) integer)) #@200 *A regexp to match MIME parts when saving multiple parts of a message with gnus-summary-save-parts (X m). 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/.*" '(#$ . -33575) :group 'gnus-summary :type 'regexp) (byte-code "\301B\306\301!\204\f\307\302B\306\302!\204\307\303B\306\303!\204$\307\304B\306\304!\2040\307\305B\306\305!\204<\307\310B\306\310!\204I\307\311B\306\311!\204V\307 \312B\306\312!\204c\307\n\313B\306\313!\204p\307 \314B\306\314!\204~ \f\307\207" [current-load-list gnus-article-mime-handles gnus-article-decoded-p gnus-scores-exclude-files gnus-page-broken gnus-inhibit-mime-unbuttonizing boundp nil gnus-original-article gnus-article-internal-prepare-hook gnus-newsgroup-process-stack gnus-thread-indent-array gnus-thread-indent-array-level gnus-thread-indent-level] 2) #@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 (#$ . 34529)) (byte-code "\301B\306\301!\204\f\307\302B\306\302!\204\307\303B\306\303!\204$\307\304B\306\304!\2040\307\305B\306\305!\204<\307\310B\306\310!\204I\307\311B\306\311!\204V\307 \312B\306\312!\204c\307\n\313B\306\313!\204p\307 \314B\306\314!\204}\307\f\315B\306\315!\204\212\307 \316B\306\316!\204\227\307\317B\306\317!\204\244\307\307\207" [current-load-list gnus-summary-save-parts-type-history gnus-summary-save-parts-last-directory gnus-summary-inhibit-highlight gnus-newsgroup-selected-overlay gnus-inhibit-limiting boundp nil gnus-newsgroup-adaptive-score-file gnus-current-score-file gnus-current-move-group gnus-current-copy-group gnus-current-crosspost-group gnus-newsgroup-dependencies gnus-newsgroup-adaptive gnus-summary-display-article-function] 2) #@52 Function called after highlighting a summary line. (defvar gnus-summary-highlight-line-function nil (#$ . 35525)) #@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\332BBBBBBBBBBBBB\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) (76 gnus-tmp-lines 100) (73 gnus-tmp-indentation 115) (84 (if (= gnus-tmp-level 0) "" (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) (108 (bbb-grouplens-score gnus-tmp-header) 115) (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) 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))] 15) (#$ . 35646)) (byte-code "\301B\303\301!\204\f\304\302B\303\302!\204\305\301\207" [current-load-list gnus-summary-dummy-line-format-alist gnus-summary-mode-line-format-alist boundp ((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) (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))] 2) #@44 Default regexp for article search command. (defvar gnus-last-search-regexp nil (#$ . 38547)) #@35 Default shell command on article. (defvar gnus-last-shell-command nil (#$ . 38646)) (byte-code "\301B\306\301!\204\f\307\302B\306\302!\204\307\303B\306\303!\204$\307\304B\306\304!\2040\307\305B\306\305!\204<\307\310B\306\310!\204I\307\311B\306\311!\204V\307 \312B\306\312!\204c\307\n\313B\306\313!\204p\307 \314B\306\314!\204}\307\f\315B\306\315!\204\212\307 \316B\306\316!\204\227\307\307\207" [current-load-list gnus-newsgroup-begin gnus-newsgroup-end gnus-newsgroup-last-rmail gnus-newsgroup-last-mail gnus-newsgroup-last-folder boundp nil gnus-newsgroup-last-file gnus-newsgroup-auto-expire gnus-newsgroup-active gnus-newsgroup-data gnus-newsgroup-data-reverse gnus-newsgroup-limit gnus-newsgroup-limits] 2) #@51 List of unread articles in the current newsgroup. (defvar gnus-newsgroup-unreads nil (#$ . 39415)) #@62 List of unselected unread articles in the current newsgroup. (defvar gnus-newsgroup-unselected nil (#$ . 39520)) #@68 Alist of read articles and article marks in the current newsgroup. (defvar gnus-newsgroup-reads nil (#$ . 39639)) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list gnus-newsgroup-expunged-tally boundp nil] 2) #@76 List of ticked articles in the current newsgroup (a subset of unread art). (defvar gnus-newsgroup-marked nil (#$ . 39873)) #@72 List of ranges of articles that have been through the scoring process. (defvar gnus-newsgroup-killed nil (#$ . 40002)) #@52 List of articles that come from the article cache. (defvar gnus-newsgroup-cached nil (#$ . 40127)) #@40 List of articles that have been saved. (defvar gnus-newsgroup-saved nil (#$ . 40232)) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list gnus-newsgroup-kill-headers boundp nil] 2) #@70 List of articles that have been replied to in the current newsgroup. (defvar gnus-newsgroup-replied nil (#$ . 40436)) #@64 List of articles in the current newsgroup that can be expired. (defvar gnus-newsgroup-expirable nil (#$ . 40560)) #@66 List of articles in the current newsgroup that can be processed. (defvar gnus-newsgroup-processable nil (#$ . 40680)) #@66 List of articles in the current newsgroup that can be processed. (defvar gnus-newsgroup-downloadable nil (#$ . 40804)) #@74 List of articles in the current newsgroup that haven't been downloaded.. (defvar gnus-newsgroup-undownloaded nil (#$ . 40929)) #@63 List of articles in the current newsgroup that won't be sent. (defvar gnus-newsgroup-unsendable nil (#$ . 41062)) #@64 List of articles in the current newsgroup that have bookmarks. (defvar gnus-newsgroup-bookmarks nil (#$ . 41182)) #@52 List of dormant articles in the current newsgroup. (defvar gnus-newsgroup-dormant nil (#$ . 41302)) #@51 List of scored articles in the current newsgroup. (defvar gnus-newsgroup-scored nil (#$ . 41408)) #@51 List of article headers in the current newsgroup. (defvar gnus-newsgroup-headers nil (#$ . 41512)) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list gnus-newsgroup-threads boundp nil] 2) #@55 Whether the current group has been prepared properly. (defvar gnus-newsgroup-prepared nil (#$ . 41724)) #@69 List of `gnus-fetch-old-headers' articles in the current newsgroup. (defvar gnus-newsgroup-ancient nil (#$ . 41834)) (byte-code "\301B\306\301!\204\f\307\302B\306\302!\204\307\303B\306\303!\204$\307\304B\306\304!\2040\307\305B\306\305!\204<\307\310B\306\310!\204I\307\311B\306\311!\204V\307 \312B\306\312!\204c\307\n\313B\306\313!\204p\307 \314B\306\314!\204}\307\f\307\207" [current-load-list gnus-newsgroup-sparse gnus-current-article gnus-article-current gnus-current-headers gnus-have-all-headers boundp nil gnus-last-article gnus-newsgroup-history gnus-newsgroup-charset gnus-newsgroup-ephemeral-charset gnus-newsgroup-ephemeral-ignored-charsets] 2) #@57 Variables that are buffer-local to the summary buffers. (defconst gnus-summary-local-variables '(gnus-newsgroup-name gnus-newsgroup-begin gnus-newsgroup-end gnus-newsgroup-last-rmail gnus-newsgroup-last-mail gnus-newsgroup-last-folder gnus-newsgroup-last-file gnus-newsgroup-auto-expire gnus-newsgroup-unreads gnus-newsgroup-unselected gnus-newsgroup-marked gnus-newsgroup-reads gnus-newsgroup-saved gnus-newsgroup-replied gnus-newsgroup-expirable gnus-newsgroup-processable gnus-newsgroup-killed gnus-newsgroup-downloadable gnus-newsgroup-undownloaded gnus-newsgroup-unsendable 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-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-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-cached gnus-newsgroup-data gnus-newsgroup-data-reverse gnus-newsgroup-limit gnus-newsgroup-limits gnus-newsgroup-charset) (#$ . 42537)) #@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) (#$ . 44159)) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list gnus-decode-encoded-word-methods-cache boundp nil] 2) #@66 Apply the functions from `gnus-encoded-word-methods' that match. (defalias 'gnus-multi-decode-encoded-word-string #[(string) "\203 @=\204 C\305\306\n\"\210\211\211A@\210 \203* \211A@\f!\202)\f\207" [gnus-decode-encoded-word-methods-cache gnus-newsgroup-name gnus-decode-encoded-word-methods xlist string mapcar #[(x) "9\203\n C\244\207\n\205\303@\n\"\205 AC\244\207" [x gnus-decode-encoded-word-methods-cache gnus-newsgroup-name string-match] 3]] 4 (#$ . 44798)]) #@39 Remove excessive whitespace from STR. (defalias 'gnus-simplify-whitespace #[(str) "\302\303 \"\203 \304\211\224O\305 \304\225\306OQ\202\302\307 \"\203& \304\225\306O\302\310 \"\2033 \304\211\224O )\207" [str mystr string-match "[ ][ ]+" 0 " " nil "^[ ]+" "[ ]+$"] 5 (#$ . 45292)]) #@34 Remove "Re:" from subject lines. (defalias 'gnus-simplify-subject-re #[(subject) "\301\302\"\203 \303\225\304O\207\207" [subject string-match "^[Rr][Ee]: *" 0 nil] 3 (#$ . 45594)]) (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 (#$ . 45861)]) (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 mapcar gnus-simplify-buffer-fuzzy-step "^ *\\[[-+?*!][-+?*!]\\] *" "^ *\\(re\\|fw\\|fwd\\)[[{(^0-9]*[])}]?[:;] *" "^[[].*:\\( .*\\)[]]$" "\\1" " *[[{(][^()\n]*[]})] *$" " +" " $" "^ +"] 4 (#$ . 46608)]) #@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 mapcar gnus-simplify-buffer-fuzzy-step "^ *\\[[-+?*!][-+?*!]\\] *" "^ *\\(re\\|fw\\|fwd\\)[[{(^0-9]*[])}]?[:;] *" "^[[].*:\\( .*\\)[]]$" "\\1" " *[[{(][^()\n]*[]})] *$" " +" " $" "^ +" buffer-string gnus-simplify-subject-fuzzy-regexp] 4 (#$ . 48044)]) #@75 Simplify a subject string according to gnus-summary-gather-subject-limit. (defalias 'gnus-simplify-subject-fully #[(subject) "\203 \305 \"\207\n\204! \306\307 \"\203 \310\225\311O\202 )\207\n\312=\203+\313 !\207\n\247\203W \306\307 \"\203A \310\225\311O\202B )\n\211G V\203T\f\310 O\202U\f*\207 \207" [gnus-simplify-subject-functions subject gnus-summary-gather-subject-limit width str gnus-map-function string-match "^[Rr][Ee]: *" 0 nil fuzzy gnus-simplify-subject-fuzzy] 4 (#$ . 49400)]) (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\323  \203\306 \n\"\202i\f\204+\n\307\310\n\"\203&\n\311\225\312O\202'\n)\202i\f\313=\2037\314\n!\202i\f\247\203h\n\307\310\n\"\203M\n\311\225\312O\202N\n)\f\211 G V\203b \311 O\202d *\202i\n) \203x\306 \n\"\202\320\f\204\222\n\307\310\n\"\203\215\n\311\225\312O\202\216\n)\202\320\f\313=\203\236\314\n!\202\320\f\247\203\317\n\307\310\n\"\203\264\n\311\225\312O\202\265\n)\f\211 G V\203\311 \311 O\202\313 *\202\320\n)\232\207  \203\342\306 \n\"\202:\f\204\374\n\307\310\n\"\203\367\n\311\225\312O\202\370\n)\202:\f\313=\203\314\n!\202:\f\247\2039\n\307\310\n\"\203\n\311\225\312O\202\n)\f\211 G V\2033 \311 O\2025 *\202:\n)\232\207" [simple-first s1 subject gnus-simplify-subject-functions gnus-summary-gather-subject-limit width gnus-map-function string-match "^[Rr][Ee]: *" 0 nil fuzzy gnus-simplify-subject-fuzzy str s2] 5 (#$ . 49994)]) (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 (#$ . 51171)]) (byte-code "\301\302\303\304#\210\305B\306\307\310\"\210\306\311\312\"\210\306\313\314\"\210\306\315\316\"\210\306\317\320\"\210\306\321\322\"\210\306\323\324\"\210\306\325\326\"\210\306\327\330\"\210\306\331\332\"\210\306\333\334\"\210\306\335\336\"\210\306\337\340\"\210\306\341\342\"\210\306\343\344\"\210\306\345\346\"\210\306\347\350\"\210\306\351\352\"\210\306\353\354\"\207" [current-load-list put gnus-summary-mode mode-class special gnus-article-commands-menu 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 "<" 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 "\f" gnus-summary-sort-by-lines "" gnus-summary-sort-by-chars "" gnus-summary-sort-by-author "" gnus-summary-sort-by-subject "" gnus-summary-sort-by-date " " gnus-summary-sort-by-score "=" gnus-summary-expand-window "" gnus-summary-reselect-current-group "\347" gnus-summary-rescan-group "w" gnus-summary-stop-page-breaking "" 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 "m" gnus-summary-mail-other-window "a" gnus-summary-post-news "x" gnus-summary-limit-to-unread "s" gnus-summary-isearch-article "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 "" 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 "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 "x" gnus-summary-limit-to-extra "E" gnus-summary-limit-include-expunged "c" gnus-summary-limit-exclude-childless-dormant "C" gnus-summary-limit-mark-excluded-as-read) (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 "l" gnus-summary-lower-thread "i" gnus-summary-raise-thread "T" gnus-summary-toggle-threads "t" gnus-summary-rethread-current "^" gnus-summary-reparent-thread "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) (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 "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 "D" gnus-summary-enter-digest-group "R" gnus-summary-refer-references "T" gnus-summary-refer-thread "g" gnus-summary-show-article "s" gnus-summary-isearch-article "P" gnus-summary-print-article "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 "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 "h" gnus-article-wash-html "f" gnus-article-display-x-face "l" gnus-summary-stop-page-breaking "r" gnus-summary-caesar-message "t" gnus-summary-toggle-header "v" gnus-summary-verbose-headers "H" gnus-article-strip-headers-in-body "d" gnus-article-treat-dumbquotes) (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 "p" gnus-article-hide-pgp "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-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 "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) (gnus-summary-help-map "H" gnus-summary-mode-map) ("v" gnus-version "f" gnus-summary-fetch-faq "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 "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 "h" gnus-summary-save-article-folder "v" gnus-summary-save-article-vm "p" gnus-summary-pipe-output "s" gnus-soup-add-article) (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 "c" gnus-article-copy-part "e" gnus-article-externalize-part "i" gnus-article-inline-part "|" gnus-article-pipe-part)] 4) (defalias 'gnus-summary-make-menu-bar #[nil "\306\307!\210\310\311!?\205\271\312\300\313\314#\210\310\300!\204\315\316\300 \314\317\320\321D\322\323!\244\322\324!\244\325\244B$\210\326\312\303\313\314#\210\310\303!\204>\315\316\303 \314\327\nB$\210\330 !\204g\312\304\313\314#\210\310\304!\204[\315\316\304 \314\331\nB$\210\202s\332 !\333 \334\331\fB#\210)\312\335\313\314#\210\310\335!\204\203\315\316\335 \314\336$\210\312\337\313\314#\210\310\337!\204\231\315\316\337 \314\340$\210\312\311\313\314#\210\310\311!\204\257\315 \316\311 \314\341$\210\342\343!\207" [gnus-summary-kill-menu gnus-summary-mode-map innards gnus-summary-article-menu gnus-article-commands-menu gnus-article-mode-map gnus-turn-off-edit-menu summary boundp gnus-summary-misc-menu put variable-documentation "" nil easy-menu-do-define "Score" ["Enter score..." gnus-summary-score-entry t] ["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] ["PGP" gnus-article-hide-pgp 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 all" gnus-mime-view-all-parts 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]) ("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]) ["Overstrike" gnus-article-treat-overstrike t] ["Dumb quotes" gnus-article-treat-dumbquotes t] ["Emphasis" gnus-article-emphasize t] ["Word wrap" gnus-article-fill-cited-article t] ["Fill long lines" gnus-article-fill-long-lines t] ["Capitalize sentences" gnus-article-capitalize-sentences t] ["CR" gnus-article-remove-cr t] ["Show X-Face" gnus-article-display-x-face 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"] ["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] ["Html" gnus-article-wash-html t] ["HZ" gnus-article-decode-HZ 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] ["Add to SOUP packet" gnus-soup-add-article t] ["Print" gnus-summary-print-article t]) ("Backend" ["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 t] ["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]) ("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] ["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] ["Redisplay" gnus-summary-show-article t]) "Article" keymapp "Commands" copy-keymap define-key [menu-bar commands] gnus-summary-thread-menu ("Threads" ["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] ["Lower thread score" gnus-summary-lower-thread t] ["Raise thread score" gnus-summary-raise-thread t] ["Rethread current" gnus-summary-rethread-current t]) gnus-summary-post-menu ("Post" ["Post an article" gnus-summary-post-news :help "Post an article"] ["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"] ["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] ["Send bounced mail" gnus-summary-resend-bounced-mail t] ["Send a mail" gnus-summary-mail-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]) ("Misc" ("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 region" gnus-summary-mark-region-as-read t] ["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]) ("Mark Limit" ["Marks..." gnus-summary-limit-to-marks t] ["Subject..." gnus-summary-limit-to-subject t] ["Author..." gnus-summary-limit-to-author t] ["Age..." gnus-summary-limit-to-age t] ["Extra..." gnus-summary-limit-to-extra t] ["Score" gnus-summary-limit-to-score t] ["Unread" gnus-summary-limit-to-unread t] ["Non-dormant" gnus-summary-limit-exclude-dormant t] ["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-show-all-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] ["Mark above" gnus-uu-mark-over t] ["Mark series" gnus-uu-mark-series t] ["Mark region" gnus-uu-mark-region t] ["Unmark region" gnus-uu-unmark-region t] ["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])) ("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 author" gnus-summary-sort-by-author t] ["Sort by subject" gnus-summary-sort-by-subject t] ["Sort by date" gnus-summary-sort-by-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]) ("Help" ["Fetch group FAQ" gnus-summary-fetch-faq t] ["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] ["Toggle threading" gnus-summary-toggle-threads t]) ["Filter articles..." gnus-summary-execute-command t] ["Run command on subjects..." 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] ["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] 8]) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list gnus-summary-tool-bar-map boundp nil] 2) (defalias 'gnus-summary-make-tool-bar #[nil "\303\304!\203p\305\306!\203p\204p\307 \304\310\311\n#\210\304\312\313\n#\210\304\314\315\n#\210\304\316\317\n#\210\304\320\321\n#\210\304\322\323\n#\210\304\324\325\n#\210\304\326\327\n#\210\304\330\331\n#\210\304\332\333\n#\210\304\334\335\n#\210\304\336\337\n#\210\304\340\341\n#\210\304\342\343\n#\210\304\344\345\n#\210 )\205y\346\301!L\207" [gnus-summary-tool-bar-map tool-bar-map gnus-summary-mode-map fboundp tool-bar-add-item-from-menu default-value tool-bar-mode make-sparse-keymap gnus-summary-prev-unread "prev-ur" gnus-summary-next-unread "next-ur" gnus-summary-post-news "post" gnus-summary-followup-with-original "fuwo" gnus-summary-followup "followup" gnus-summary-reply-with-original "reply-wo" gnus-summary-reply "reply" gnus-summary-caesar-message "rot13" gnus-uu-decode-uu "uu-decode" gnus-summary-save-article-file "save-aif" gnus-summary-save-article "save-art" gnus-uu-post-news "uu-post" gnus-summary-catchup "catchup" gnus-summary-catchup-and-exit "cu-exit" gnus-summary-exit "exit-summ" make-local-variable] 4]) #@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 (#$ . 78249)]) #@40 Make a summary score map of type TYPE. (defalias 'gnus-make-score-map #[(type) "\300\207" [nil] 1 (#$ . 78420)]) #@795 Major mode for reading articles. All normal editing commands are switched off. \ 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\310\311\"\203\312 \210\313 \210\314 \210\315 \210\316 \210\317\320\321\322!\210\323\n!\210\324 \210\325\325\325\325*\326 \210\327 \210+,\321\330!\210\321\331!\210\321\332!\210\321\333!\210\321\334!\210\335\336!\210\337\336\340\341\325$\210\342\343!\210\344 \210\345\341\346\347\350$\210\351 \207" [major-mode mode-name gnus-summary-mode-map buffer-read-only truncate-lines selective-display kill-all-local-variables gnus-visual-p summary-menu menu gnus-summary-make-menu-bar gnus-summary-make-tool-bar gnus-summary-make-local-variables gnus-make-thread-indent-array gnus-simplify-mode-line gnus-summary-mode "Summary" make-local-variable minor-mode-alist use-local-map buffer-disable-undo t gnus-summary-set-display-table gnus-set-default-directory gnus-summary-line-format gnus-summary-line-format-spec gnus-summary-dummy-line-format gnus-summary-dummy-line-format-spec gnus-summary-mark-positions make-local-hook pre-command-hook add-hook gnus-set-global-variables nil gnus-run-hooks gnus-summary-mode-hook mm-enable-multibyte-mule4 gnus-update-format-specifications summary summary-mode summary-dummy gnus-update-summary-mark-positions selective-display-ellipses group gnus-newsgroup-name] 5 (#$ . 78540) 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\210 A\211\204\n+\304\207" [global gnus-summary-local-variables local #1=#:--dolist-temp--97316 nil eval make-local-variable] 3 (#$ . 80628)]) (defalias 'gnus-summary-clear-local-variables #[nil "\211\2057 @:\203#\303 \211@@)!\203/ \211@@)\304L\210\202/\303 @!\203/ @\304L\210 A\211\204\304)\207" [gnus-summary-local-variables locals x vectorp nil] 3]) (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\257 AB\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) "\205q \205\n \236 >)\211\2042 \2042\n\n\244 \203.\306 \"\210)\202lA\203>A\211\2023 \204W\n\241\210\f \203l\306A \"\210\202l A\241\210 \f\241\210 \203l\306A \"\210\307\211\n*\207" [list after-article gnus-newsgroup-data bdata ilist data gnus-data-update-list 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\306 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 (#$ . 84065)]) #@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 (#$ . 84295)]) #@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 (#$ . 84488)])) #@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 (#$ . 84685)])) #@46 Say whether this article is a parent or not. (defalias 'gnus-article-parent-p #[(number) "\n \236 >)\211A\205\304 @8\304 A@8W)\207" [gnus-newsgroup-data bdata number data 4] 4 (#$ . 84884)]) #@42 Return a list of all children to NUMBER. (defalias 'gnus-article-children #[(number) "\n \236 >)\306 @8\307 A\211\203.\306 @8\fTU\203. @@ B A\211\204 +\207" [gnus-newsgroup-data bdata number data level children 4 nil] 3 (#$ . 85086)]) #@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 (#$ . 85339)])) #@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 (#$ . 85602)])) #@37 Say whether ARTICLE is read or not. (defalias 'gnus-article-read-p #[(article) " >\206\n>\206 >\206\f>?\207" [article gnus-newsgroup-marked gnus-newsgroup-unreads gnus-newsgroup-unselected gnus-newsgroup-dormant] 2 (#$ . 85792)]) #@138 The article number of the article on the current line. If there isn's 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 (#$ . 86039)])) #@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 (#$ . 86381)])) #@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 (#$ . 86611)])) #@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 (#$ . 86972)])) #@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 (#$ . 87196)])) (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 (#$ . 87504)])) #@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 (#$ . 87909)])) #@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 \314\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 (#$ . 88181)]) #@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 (#$ . 88671)]) #@38 Say whether MARK is the unread mark. (defalias 'gnus-unread-mark-p #[(mark) " U\207" [mark gnus-unread-mark] 2 (#$ . 89167)]) #@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\206 U\206\fU?\207" [mark gnus-unread-mark gnus-ticked-mark gnus-dormant-mark gnus-expirable-mark] 2 (#$ . 89301)]) #@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-undownloaded) (gnus-undownloaded-mark) (gnus-newsgroup-downloadable) (gnus-downloadable-mark) (gnus-newsgroup-unreads) (gnus-unread-mark) (gnus-newsgroup-marked) (gnus-ticked-mark) (gnus-newsgroup-dormant) (gnus-dormant-mark) (gnus-newsgroup-expirable) (gnus-expirable-mark) t or cdr assq (gnus-newsgroup-reads) (gnus-ancient-mark)] 14 (#$ . 89602)])) (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) #@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 (#$ . 90630)])) #@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 (#$ . 90978)]) #@50 Return the current hidden threads configuration. (defalias 'gnus-hidden-threads-configuration #[nil "\212\301eb\210\302\303\301\304#\203`SB\202*\207" [config nil search-forward " " t] 4 (#$ . 91440)]) #@51 Restore hidden threads configuration from CONFIG. (defalias 'gnus-restore-hidden-threads-configuration #[(config) "\212\303\211\n\211A@\211\205, dW\203 b\203\303f\304=\203\305 \211T\304\306$\210\202+\207" [buffer-read-only point config nil 10 subst-char-in-region 13] 5 (#$ . 91655)]) (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\315 S\211\316Y\203D\n H\204-\n \317I\210\202-)\n\211*\207" [standard-display-table i table buffer-display-table copy-sequence make-display-table 32 0 [63] 10 nil 13 9 256 127 [63]] 3 (#$ . 92093)]) #@28 Initialize summary buffer. (defalias 'gnus-summary-setup-buffer #[(group) "\306\307Q\310 !\203 q\210p ?\202:\311 !q\312!\210\f\203&\313\314!\210 \2046\315\316!\210\315\317!\210\315\320!\210\321)\207" [group buffer gnus-summary-buffer gnus-newsgroup-prepared gnus-carpal gnus-single-article-buffer "*Summary " "*" get-buffer gnus-get-buffer-create gnus-summary-mode gnus-carpal-setup-buffer summary make-local-variable gnus-article-buffer gnus-article-current gnus-original-article-buffer t gnus-newsgroup-name] 3 (#$ . 92614)]) #@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\206p\n \f  \n \f \212q\210 \f\n  \n\211\205x\307!\205x\310\307!!)\205\204\nq\210\211. \207" [major-mode gnus-summary-buffer gnus-newsgroup-name gnus-newsgroup-marked gnus-newsgroup-unreads gnus-current-headers gnus-summary-mode get-buffer buffer-name gnus-newsgroup-data gnus-article-buffer gnus-original-article-buffer gnus-article-current gnus-reffed-article-number gnus-current-score-file gnus-newsgroup-charset default-charset score-file reffed gac original article-buffer summary data headers unread marked name gnus-group-buffer buffer] 13 (#$ . 93162)]) #@39 Say whether ARTICLE is unread or not. (defalias 'gnus-summary-article-unread-p #[(article) " >\207" [article gnus-newsgroup-unreads] 2 (#$ . 94064)]) #@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 (#$ . 94221)]) #@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 (#$ . 94590)]) (defalias 'gnus-make-thread-indent-array #[nil "\304 \205 \n U?\205+\305\306\307\"\n\310Y\205+ \311\n_\312\"I\210S\211\202)\207" [n gnus-thread-indent-array gnus-thread-indent-level gnus-thread-indent-array-level 200 make-vector 201 "" 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\310\311\211\312\n\313\211 !\"\212\314 \210 \315#\316\317\320\313\321\322\313\323\313\324& \210eb\210\325\326\327\313\322#\205Q`\330ZBCeb\210\331\326\332\313\322#\205c`\330ZB Beb\210\333\326\334\313\322#\205v`\330ZB Beb\210\335\326\336\313\322#\205\211`\330ZB B+ \211$.\207" [gnus-summary-buffer buffer gnus-summary-line-format-spec pos gnus-visual spec get-buffer buffer-name 129 130 131 nil gnus-set-work-buffer ((0 . t)) gnus-summary-insert-line [0 "" "" "" "" "" 0 0 "" nil] 0 128 t "" 1 unread search-forward "\200" 2 replied "\201" score "\202" download "\203" gnus-download-mark gnus-score-over-mark gnus-score-below-mark gnus-replied-mark gnus-newsgroup-downloadable gnus-summary-mark-positions] 11 (#$ . 95245)]) #@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 (#$ . 96142)]) (defalias 'gnus-summary-from-or-to-or-newsgroups #[(header) "\306\307H\236A\310\307H\236A \212\nq\210 ) \211\203B\203B\311\312H\"\203B\313!!@\206>!P\202j \203]\203]\311\312H\"\203]\314 P\202j\312H!@\206j\312H,\207" [header gnus-newsgroup-charset gnus-summary-buffer gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mail-parse-charset To 9 Newsgroups string-match 2 "-> " "=> " newsgroups to gnus-ignored-from-addresses gnus-extract-address-components gnus-decode-encoded-word-function] 5]) (defalias 'gnus-summary-insert-line #[(gnus-tmp-header gnus-tmp-level gnus-tmp-current gnus-tmp-unread gnus-tmp-replied gnus-tmp-expirable gnus-tmp-subject-or-nil &optional gnus-tmp-dummy gnus-tmp-score gnus-tmp-process) " H \306H \206\206\307\203$\310 Z! X\203(\311\2026 W\2034!\2026\"#$\203B%\202h&'>\203O(\202h)\203Y*\202h&+>\203f,\202h-) \312H.\313\314.\"\203\231\307\224/\313\315.\"\203\217.\307\224T\307\225SO\206\225.\307/O)\202\257\313\316.\"\203\255.\307\224T\307\225SO\202\257.0 \317H1 \307H23\203\304\320\202\305\32143\203\320\322\202\321\3235\32460\325\230\203\341.0\f\247\204\350\307\326`\3277!\210`\3302$\210\331\332\333\"\205\334y\210\335\336!\210\317y.\f\207" [gnus-thread-indent-array gnus-tmp-level gnus-tmp-indentation gnus-tmp-header gnus-tmp-lines gnus-tmp-score 7 0 abs 32 2 string-match "<[^>]+> *$" "^\"[^\"]*\"" "(.+)" 1 60 91 62 93 nil "" gnus-put-text-property eval gnus-number gnus-visual-p summary-highlight highlight -1 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-process gnus-process-mark gnus-tmp-current gnus-newsgroup-cached gnus-cached-mark gnus-tmp-replied gnus-replied-mark gnus-newsgroup-saved gnus-saved-mark gnus-unread-mark gnus-tmp-from beg gnus-tmp-name gnus-tmp-subject gnus-tmp-number gnus-tmp-dummy gnus-tmp-opening-bracket gnus-tmp-closing-bracket buffer-read-only gnus-summary-line-format-spec] 5]) #@35 Update summary line after change. (defalias 'gnus-summary-update-line #[(&optional dont-update) "\205\307 ?\205\307\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\306\325\326!+\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-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 (#$ . 98554)]) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list gnus-tmp-new-adopts boundp nil] 2) #@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 (#$ . 99814)]) #@79 Go through the local params of GROUP and set all variable specs in that list. (defalias 'gnus-summary-set-local-parameters #[(group) "\303!\304\n\2050\n@\nA :\203 A:\203 @9\203 @\305>\204\306\307\310\217\210\202*\207" [group elem params gnus-group-find-parameter nil (quit-config) #1=#:G97317 (byte-code "\301@!\210@\302A@!L\207" [elem make-local-variable eval] 3) ((error))] 3 (#$ . 100450)]) #@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\306\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 (#$ . 100870)]) (defalias 'gnus-summary-read-group-1 #[(group show-all no-article kill-buffer no-display &optional select-articles) "\306!\204\307 \"J\204\310\311!\210\312\313\314#\210\315!\316!\n\205)\317\f #@\n\204P\320 \210\203<\321!\210\322\323\324\"\210\325\323!\210\326 \210\327\330!\210\331\202M@\204\212A\332=\203\201p\232\204\201\333p!\210 \204}\334 \210Bq\210\335!\210\336\337!\210\202\201\340 !\210\312\341\342\"\210\343\202M@\344=\203\320A\332=\203\243p\232\204\243\333p!\210\203\255\321!\210 \204\305Bq\210\335!\210\336\337!\210\322\300\324\"\210\202\311\340 !\210\345\344\343\"\202M\320 \210\346\307CD\"J!E\347\350!\210\351C!\210\352\343\323\353\354$\210\355 \210F\203\371\356 \210/\203\357 \210G\203\f\203\343H\360\f!\210)\202#\360\f!\210\202#\361\362I\"JK\204+\363 \210L\2037\364!\210\365M\366\367 !\203[K\204[H\203N\370 \210\202[N\203[\f\203[\371\331!\210\347\372!\210\366\367 !\203\203K\204\203\373\343\331\"\210\312\374\375\"\210\203\321!\210\343\202MG\203\220O\203\220\376 \210\203\232\321!\210P\204K\204Q\203R\203\322\323!\210R\377=\203\301\201V \210\202R\331=\203\320\201W \210\202R\211S9\203\342\201XS!\206\370S<\203\362S@\201Y=\206\370\201ZS!)\203R \210\202eb\210\326 \210\322\323\324\"\210\325\323!\210\201[B\331\"\203C\201\\ T\201]\201[B\331\"!\210\201^!\203;\201_ \210\201]T!\210)\331U\347\201`!\210\331+\207" [group gnus-newsrc-hashtb new-group quit-config show-all select-articles gnus-group-native-p intern-soft error "Dead non-native groups can't be entered" gnus-message 5 "Retrieving newsgroup: %s..." 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 3 "Can't select group" nil quit signal gnus-copy-sequence gnus-run-hooks gnus-select-group-hook gnus-summary-set-local-parameters 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 mapcar #[(header) "\301H\207" [header 0] 2] 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-hide-all-threads best did-select major-mode gnus-group-buffer gnus-newsgroup-name gnus-active-hashtb gnus-newsgroup-active gnus-use-scoring gnus-show-threads gnus-newsgroup-dormant gnus-newsgroup-headers gnus-newsgroup-limit no-display gnus-use-trees gnus-summary-highlight-line-function gnus-newsgroup-scored gnus-thread-hide-subtree no-article gnus-newsgroup-unreads gnus-auto-select-first form owin gnus-newsgroup-prepared gnus-summary-best-unread-article gnus-summary-first-unread-article fboundp lambda byte-code-function-p get-buffer-window selected-window select-window gnus-group-goto-group recenter gnus-summary-prepared-hook] 6]) #@30 Generate the summary buffer. (defalias 'gnus-summary-prepare #[nil "\306\307 \210\306\306\310\311!\210 \203(\312\f\203#\313 \314\315\316 !!!!\202&\317 !!\210 \237eb\210\310\320!)\207" [buffer-read-only gnus-newsgroup-data gnus-newsgroup-data-reverse gnus-newsgroup-headers gnus-show-threads gnus-summary-thread-gathering-function nil erase-buffer 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] 6 (#$ . 104870) nil]) #@69 Simply subject by the same rules as gnus-gather-threads-by-subject. (defalias 'gnus-general-simplify-subject #[(subject) "\203 \304 \"\202U\n\247\2036 \305\306 \"\203! \307\225\310O\202\" )\211G\nV\2032 \307\nO\202U \202U\n\311=\203B\312 !\202U \305\306 \"\203S \307\225\310O\202T ) \205^\305 \"?\205c \207" [gnus-simplify-subject-functions subject gnus-summary-gather-subject-limit gnus-summary-gather-exclude-subject gnus-map-function string-match "^[Rr][Ee]: *" 0 nil fuzzy gnus-simplify-subject-fuzzy] 4 (#$ . 105449)]) (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\"\211\203\313!\210)\311`\314\"\206\315 \2368\211\205-\316\n!\205-\n\317H)\f\203:\320\f \"\202\204 \247\203e \321\322 \"\203P \323\225\324O\202Q )\211G V\203a \323 O\202\204 \202\204 \325=\203q\326 !\202\204 \321\322 \"\203\202 \323\225\324O\202\203 )\205\217\321 \"?\205\224 )!\207" [to gnus-newsgroup-data headers subject gnus-simplify-subject-functions gnus-summary-gather-subject-limit gnus-summary-select-article message 3 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject vectorp 1 gnus-map-function string-match "^[Rr][Ee]: *" 0 nil fuzzy gnus-simplify-subject-fuzzy gnus-summary-gather-exclude-subject] 6 (#$ . 106081) 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\341 \211@@)\311H\211\2033\312\f\"\202\201\247\203a\f\313\314\f\"\203J\f\315\225\310O\202K\f)\211GV\203]\f\315O\202\201\f\202\201\316=\203n\317\f!\202\201\f\313\314\f\"\203\f\315\225\310O\202\200\f)\205\214\313\f\"?\205\221\f)\211\203\327\320\f\"J\211\203\317 \211@@);\204\264 \n @D\240\210 @ \211@A) @C\244\241\210 A\241\210\202\327\321\f\" 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 "^[Rr][Ee]: *" 0 fuzzy gnus-simplify-subject-fuzzy intern-soft intern prev hashtb x gnus-simplify-subject-functions gnus-summary-gather-subject-limit gnus-summary-gather-exclude-subject] 7 (#$ . 106939)]) #@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\312\211@@)\311H\211\203\300\211@@)\312H\313!\310\211A@\211\203\300\314 \"\315 \"J\211\204v\316 \" L\210\316 \"L\210\202E\315 \"J\n\204\252\f\211@@);\204\233\f\211\211@@)\317H\f@D\240\210\f@\f\211@A)@C\244\241\210\316 \"\fL\210\320A\241\210\202EA\211\204$. \207" [threads ref entered gid gthread id gnus-make-hashtable 1024 nil 5 4 gnus-split-references delete intern-soft intern 1 t references ids result prev thhashtb idhashtb x] 12 (#$ . 107870)]) #@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 (#$ . 108573)]) #@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)\202A B\211\202\n+\207" [thread th infloop stack x root 0 nil delq boundp intern "none" 1 ref-dep gnus-newsgroup-dependencies] 5 (#$ . 108865)]) #@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 (#$ . 109291)]) #@471 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 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\310\310 \204\310\202y\311 !\204+ CL\210\202y J@\2049 J\240\210\202y\203F J\240\210\202y\204`\307\312 \211\n\"\211CL\210\306 I\210\202y J@\313 J@\313H\206m\314\313H\206t\314PI\210\310\203Y\315H\310\211\205\247\316!\206\225\317\233\203\243A\202\217@)*\211\203 \320\f\n\"\211\203 \311 !\203  J@\211\203  \f\230\203\330 J@\315\321I\210\310\211\202\252\315H\310\211\205\316!\206\361\317\233\203\377A\202\353@)*\211\204\255\315H\310\211\2053\316!\206!\317\233\203/A\202@)*\307\f\206;\321\n\"\311 !\203R J JA JC\244\241\210\202Y \310 JDL\210-\207" [header id dependencies id-dep ref ref-dep 4 intern nil boundp nnmail-message-id 8 "" 5 gnus-split-references 1 intern-soft "none" ref-header force-new gnus-summary-ignore-duplicates n references ids] 6 (#$ . 109755)]) (put 'gnus-dependencies-add-header 'byte-optimizer 'byte-compile-inline-expand) (defalias 'gnus-build-sparse-threads #[nil " \306\307\211\211\211\211\211\211\211\211 !\"#$\310\311\312\"\210\212\313\314!\210$\211A$@\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\257B\202_ \203\236T \307FB\326 \210\202*\327p!\210)\330\331\332\333\"\"\210\310\311\334\".\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 mapcar #[(relation) "\306 8\307\310 8\206\f\307 A@\311 8\206\307\312\211\307\313\314 \f \n&\n.\n\313\211\310H\211\205W\315\" \313!\313\"\313# \204m\313\202\333\316 !\204~ CL\210\202\333 J@\204\217 J\240\210\202\333\203\236 J\240\210\202\333$\204\276\315\317 \211\"\211 CL\210\310I\210\202\333 J@\320 J@\320H\206\315\307\320H\206\325\307PI\210\313\203\323\321H\313%\211\205 \322!&%\206\371\323&\233\203&A&\202\363&@)*\211!\203x\324!\"\211\"\203x\316\"!\203x\"J@\211#\203x!\230\203F J@\321\325I\210\313\211!\202#\321H\313%\211\205q\322!&%\206_\323&\233\203m&A&\202Y&@)*\211!\204\321H\313%\211\205\243\322!&%\206\221\323&\233\203\237&A&\202\213&@)*!\315!\206\255\325\"\"\316\"!\203\312\"J\"JA JC\244\241\210\202\323\"\313 JDL\210.\205\363'B'(B()B*B*S\211\207" [gnus-reffed-article-number relation extra xref lines chars 3 "" 4 2 0 nil vector intern boundp nnmail-message-id 8 5 gnus-split-references 1 intern-soft "none" references id date from subject number gnus-newsgroup-dependencies force-new dependencies header id-dep ref ref-dep ref-header gnus-summary-ignore-duplicates n ids gnus-newsgroup-limit gnus-newsgroup-sparse gnus-sparse-mark gnus-newsgroup-reads] 12] sort car-less-than-car "Making sparse threads...done" subject relations generation references header gnus-summary-ignore-duplicates mail-parse-charset headers] 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]) (defalias 'gnus-nov-parse-line #[(number dependencies &optional force-new) "\306 p\307\310\216`\n}\210m\204\307u\210 \f`\311\312\n\313#\203$`S\202%\n{!\f`\311\312\n\313#\2036`S\2027\n{!`\311\312\n\313#\203G`S\202H\n{`\311\312\n\313#\203W`S\202X\n{\314\315 \"\203e \202o\316\317'T\211'!P)`\311\312\n\313#\203~`S\202\n{\307f\320=\203\213\321\202\235\307\322\323\217\211(\247\203\233(\202\234\321)m\204\244\324u\210\307f\320=\203\257\321\202\301\307\325\326\217\211(\247\203\277(\202\300\321)m\204\310\324u\210m?\205\347\327\330!\203\327\321\225b\210`\311\312\n\313#\203\345`S\202\346\n{\307\211)*\307f\331>\204$`\311\312\n\313#\203`S\202\n{)\314\332)\"\203\355\333\334\324)\"!)\321\225\307OB*B*\202\355**+,-./012\335 210 /.-,+&\n.\n)3\203\\3!\2104554\211\336H\211\205s\333 4\"6\3077\3078\30796\204\210\307\202\355\3376!\204\2306CL\210\202\3556J@\204\2506J\240\210\202\3555\203\2666J\240\210\202\355:\204\322\333\340 \2114\"\2116CL\210\336 I\210\202\3556J@\3416J@\341H\206\341\342\341H\206\350\342PI\210\307\203\341\343H\307;\211/\205\344/!<;\206 \324<\233\203]+>$" "fake+none+" 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 4 boundp nnmail-message-id 8 "" 5 gnus-split-references intern-soft "none" nnheader-fake-message-id num string out extra xref lines chars references date from subject gnus-alter-header-function dependencies force-new id-dep ref ref-dep ref-header gnus-summary-ignore-duplicates n ids] 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\211\212\fq\210\306eb\210\n\2044\307/\306\310#\2034\311 \210\312\313\314\315/!\"!\211\204\311\316!\210\202\n\205z\311 \210\317p! \306012\320 p\30634\321\216`4}\210m\204]\306u\21025`\307\3224\323#\203p`S\202r4{!5`\307\3224\323#\203\205`S\202\2074{!`\307\3224\323#\203\230`S\202\2324{`\307\3224\323#\203\252`S\202\2544{/\324\325/\"\203\274/\202\306\326\3276T\2116!P)`\307\3224\323#\203\326`S\202\3304{\306f\330=\203\344\331\202\366\306\332\333\217\2117\247\203\3647\202\365\331)m\204\375\334u\210\306f\330=\203\331\202\306\335\336\217\2117\247\2037\202\331)m\204!\334u\210m?\205B\312\337!\2030\331\225b\210`\307\3224\323#\203?`S\202A4{\306\21189\306f\340>\204\201`\307\3224\323#\203^`S\202`4{8\324\3418\"\203H\342\343\3348\"!8\331\225\306OB9B9\202H9*:;<=>/?@A2\3442A@?/>=<;:&\n.\n)B\203\275B !\210 1001\211\345H\211/\205\326\342/1\"C\306D\306E\306FC\204\353\306\202R\346C!\204\373C CL\210\202RCJ@\204 CJ \240\210\202R0\203CJ \240\210\202RG\2047\342\347 \211/1\"\211C CL\210 \345/I\210\202RCJ@\350CJ@\350H\206F\351 \350H\206M\351PI\210\306 \203G \352H\306H\211>\205\200\353>!IH\206n\334I\233\203|IAI\202hI@)*\211D\203\355\354D1\"\211E\203\355\346E!\203\355EJ@\211F\203\355/D\230\203\273CJ@\352\355I\210\306\211D\202\204F\352H\306H\211>\205\346\353>!IH\206\324\334I\233\203\342IAI\202\316I@)*\211D\204\207 \352H\306H\211>\205\353>!IH\206\334I\233\203IAI\202\377I@)*D\342D\206!\3551\"E\346E!\203>EJEJACJC\244\241\210\202GE\306CJDL\210 .\211\205z \352H\306H\211>\205y\353>!IH\206g\334I\233\203uIAI\202aI@)** \203\262 \331H\2112JBJ KBK2L>\203\2522MBM\3562L\"L\202\2612NBN)+\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 gnus-point-at-eol ((widen)) " " move string-match "^<[^>]+>$" "fake+none+" 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 4 boundp nnmail-message-id 8 "" 5 gnus-split-references intern-soft "none" delq id force-new dependencies number buffer eol gnus-decode-encoded-word-function nnheader-fake-message-id num string out extra xref lines chars references date from subject gnus-alter-header-function id-dep ref ref-dep ref-header gnus-summary-ignore-duplicates n ids gnus-newsgroup-limit gnus-newsgroup-headers gnus-newsgroup-unselected gnus-newsgroup-unreads gnus-newsgroup-ancient] 16 (#$ . 116219)]) #@23 Read all the headers. (defalias 'gnus-build-all-threads #[nil "\306 \307\211\212q\210\307eb\210m?\205W\310\311\312\217\210 \203\212q\210 B \313H\211>\203J\nB\314\n\"\202P\nB)\315y\210\202.\207" [gnus-newsgroup-charset gnus-newsgroup-dependencies article header dependencies mail-parse-charset t nil #1=#:G97318 (byte-code "\306p!\211 \307\310 p\307(\311\216`(}\210m\204 \307u\210 )`\312\313(\314#\2032`S\2024({!)`\312\313(\314#\203G`S\202I({!`\312\313(\314#\203Z`S\202\\({`\312\313(\314#\203l`S\202n({*\315\316*\"\203~*\202\210\317\320+T\211+!P)`\312\313(\314#\203\230`S\202\232({\307f\321=\203\246\322\202\270\307\323\324\217\211,\247\203\266,\202\267\322)m\204\277\325u\210\307f\321=\203\312\322\202\334\307\326\327\217\211,\247\203\332,\202\333\322)m\204\343\325u\210m?\205\330\331!\203\362\322\225b\210`\312\313(\314#\203`S\202({\307\211-.\307f\332>\204C`\312\313(\314#\203 `S\202\"({-\315\333-\"\203\n\334\335\325-\"!-\322\225\307OB.B.\202\n.*/0123*456\336 654*3210/&\n.\n)7\203}7\f!\210\f \n\211\337H\211*\205\221\334* \"8\3079\307:\307;8\204\246\307\202 \3408!\204\2668\fCL\210\202 8J@\204\3068J\f\240\210\202 \n\203\3238J\f\240\210\202 <\204\360\334\341 \211* \"\2118\fCL\210\f\337*I\210\202 8J@\3428J@\342H\206\377\343\f\342H\206\343PI\210\307\f\203\376\f\344H\307=\2113\2059\3453!>=\206'\325>\233\2035>A>\202!>@)*\2119\203\245\3469 \"\211:\203\245\340:!\203\245:J@\211;\203\245*9\230\203s8J@\344\347I\210\307\2119\202=;\344H\307=\2113\205\236\3453!>=\206\214\325>\233\203\232>A>\202\206>@)*\2119\204@\f\344H\307=\2113\205\317\3453!>=\206\275\325>\233\203\313>A>\202\267>@)*9\3349\206\331\347 \":\340:!\203\365:J:JA8JC\244\241\210\202\376:\3078JDL\210\f.\307\207" [article dependencies force-new number header buffer read nil gnus-point-at-eol ((widen)) search-forward " " move string-match "^<[^>]+>$" "fake+none+" 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 4 boundp nnmail-message-id 8 "" 5 gnus-split-references intern-soft "none" eol gnus-decode-encoded-word-function id nnheader-fake-message-id num string out extra xref lines chars references date from subject gnus-alter-header-function id-dep ref ref-dep ref-header gnus-summary-ignore-duplicates n ids] 16) ((error)) 0 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 (#$ . 119192)]) #@44 Update the line for ARTICLE using HEADERS. (defalias 'gnus-summary-update-article-line #[(article header) "\306H\307 !\211\204\310\311!\210\n\240\210\312 !\210\f \236 >)\211@ A\205;\313 8\313\211!A@)8Z\"\314#$\315=\203R\316`\317\"\203R\320\202o\306\316`\317\"\211%\203b\312%!\210)\316`\321\"\206l\322 \f\2368&\323 \210`\324y\210`|\210\325&\314 '>\203\214(\202\336 )>\203\230*\202\336 +>\203\244,\202\336 ->\203\260.\202\336 />\203\2740\202\336 1>\203\3102\202\336 3>\203\3244\202\336 5\236A\206\3366 7> 3>8\203\207\314\326\327\217\324H\3149:;9\204\376;<=\203\330=<\"\202{>\2040<<\331\332<\"\203*<\320\225\314O\202,<)\202{>\333=\203>\334\247\203y<<\331\332<\"\203Y<\320\225\314O\202[<)>?\211@G?V\203s@\320?O\202u@*\202{<):<=\203\216\330=<\"\202\371>\204\256<<\331\332<\"\203\250<\320\225\314O\202\252<)\202\371>\333=\203\274\334\247\203\367<<\331\332<\"\203\327<\320\225\314O\202\331<)>?\211@G?V\203\361@\320?O\202\363@*\202\371<)\232\202;:<=\203\330=<\"\202}>\2042<<\331\332<\"\203,<\320\225\314O\202.<)\202}>\333=\203@\334\247\203{<<\331\332<\"\203[<\320\225\314O\202]<)>?\211@G?V\203u@\320?O\202w@*\202}<)\232+\203\207\335\202\212\324H\314 A\236A B>&\n\210\"\205\252\336A\"\313 8`ZZ\".\207" [header id thread article gnus-newsgroup-data bdata 4 gnus-id-to-thread error "Article in no thread" gnus-summary-goto-subject 2 nil dummy get-text-property gnus-intangible 0 gnus-number gnus-summary-last-subject beginning-of-line 1 gnus-summary-insert-line (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 "")) gnus-map-function string-match "^[Rr][Ee]: *" fuzzy gnus-simplify-subject-fuzzy "" gnus-data-update-list datal data x length buffer-read-only gnus-summary-make-false-root to level gnus-newsgroup-unsendable gnus-unsendable-mark gnus-newsgroup-undownloaded gnus-undownloaded-mark gnus-newsgroup-downloadable gnus-downloadable-mark gnus-newsgroup-unreads gnus-unread-mark gnus-newsgroup-marked gnus-ticked-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 width str gnus-newsgroup-scored gnus-newsgroup-processable] 13 (#$ . 121982)]) #@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\205R\314!\206@\315\233\203NA\202:@)*\206W\316!\313@\205\223\204}\313\240\210\203}\317\"\210\320\f \"\203\214 \321\f!\240\202\223\240\210\313.\207" [gnus-summary-buffer article gnus-newsgroup-data header id data 3 4 gnus-id-to-thread 5 "" nil gnus-split-references 1 "none" delq gnus-summary-insert-subject gnus-id-to-article thread references n ids parent buffer-read-only old iheader] 4 (#$ . 124585)]) #@93 Rebuild the thread containing ID. If LINE, insert the rebuilt thread starting on line LINE. (defalias 'gnus-rebuild-thread #[(id &optional line) "\306\211\211\211\211 \204\307!@C\202\310!\311 \212\312\313\306\314#\205B\315`\316\"\211\2038\317!\210)\315`\320\"\206B\321 ) @;\203\227 @\306\211 A\211\203\307\322 \211 @@)\323H!!\211>\204xB A\211\204[G\324U\203\216@\202\226\325!B+\306!\"\203\247eb\210\"Sy\210\306\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 buffer-read-only gnus-show-threads nil gnus-id-to-thread gnus-remove-thread gnus-point-at-bol re-search-backward "[ \n]" t 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 (#$ . 125250)]) #@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 (#$ . 126359)]) #@60 Return the headers of the GENERATIONeth parent of HEADERS. (defalias 'gnus-parent-headers #[(in-headers &optional generation) "\204\306\307 \310\f\203z\311!\204z \312H\211\203z\n\205s\n\310\211\205i\n\313\310\314\315\n#\203L\n\313\224\313\225\211OB\2022\237+ \206W\306\233\203eA\202R@)*\211\205s\316\f!@S\202\f =?\205\202 +\207" [generation in-headers references headers parent n 1 t nil zerop 5 0 string-match "<[^>]+>" gnus-id-to-thread ids beg] 5 (#$ . 126567)]) #@43 Return the (sub-)thread where ID appears. (defalias 'gnus-id-to-thread #[(id) "\302 \"J\207" [id gnus-newsgroup-dependencies intern-soft] 3 (#$ . 127093)]) #@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 (#$ . 127256)]) #@35 Return the article headers of ID. (defalias 'gnus-id-to-header #[(id) "\301!@\207" [id gnus-id-to-thread] 2 (#$ . 127422)]) #@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\271\316 !\2033\317\202\271\f\204;\317\202\271\f\315\211\205c\320!\206Q\321\233\203_A\202K@)*\204k\317\202\271 \321U\205\271\322\f\315\211\205\232\320!\206\210\321\233\203\226A\202\202@)*!\211?\205\271\306=\203\263\307`\310\"\203\263\311\202\270\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 gnus-split-references 1 gnus-id-to-article n references ids] 5 (#$ . 127553)]) #@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\2054\311\f! \206&\312 \233\2031 A\202! @)*\211\204 *\207" [prev last-id id n references ids nil gnus-id-to-thread 5 gnus-split-references 1] 3 (#$ . 128290)]) #@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 (#$ . 128611)]) #@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\306 A\211\202' @\n@=\203S \306A\211\204 \203m\204q\312 \f\"\202q\311! \205\274 \204\274 @;\203\270\313=\203\245\314 \211A@)@\315H!\210\316y\210\317 \210`\320y\210`|\210\321 \210 A\211\203\274\322 @!\210 A\211\202\251\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 beginning-of-line 1 gnus-data-compute-positions gnus-remove-thread-1 threads x dont-remove gnus-summary-make-false-root] 5 (#$ . 128811)]) #@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\315 \210`\316y\210`|\210Z\"*\207" [thread d number gnus-newsgroup-data 0 nil reverse gnus-remove-thread-1 2 gnus-summary-show-thread gnus-data-remove gnus-point-at-bol gnus-point-at-eol beginning-of-line 1] 6 (#$ . 129589)]) (defalias 'gnus-sort-threads-1 #[(threads func) "\302\303\304\" \"\207" [threads func sort mapcar #[(thread) "@A\205\f\302A \"B\207" [thread func gnus-sort-threads-1] 4]] 4]) #@15 Sort THREADS. (defalias 'gnus-sort-threads #[(threads) "\204 \207\302\303\304\"\210\305 \306!\"\302\303\307\"\210\207" [gnus-thread-sort-functions threads gnus-message 8 "Sorting threads..." gnus-sort-threads-1 gnus-make-sort-function "Sorting threads...done"] 4 (#$ . 130194)]) #@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 (#$ . 130483)]) #@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 (#$ . 130788)])) #@34 Sort articles by article number. (defalias 'gnus-article-sort-by-number #[(h1 h2) "\302H \302HW\207" [h1 h2 0] 3 (#$ . 131186)]) (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 (#$ . 131401)]) #@40 Sort articles by article Lines header. (defalias 'gnus-article-sort-by-lines #[(h1 h2) "\302H \302HW\207" [h1 h2 7] 3 (#$ . 131600)]) (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 (#$ . 131819)]) #@32 Sort articles by octet length. (defalias 'gnus-article-sort-by-chars #[(h1 h2) "\302H \302HW\207" [h1 h2 6] 3 (#$ . 132023)]) (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 (#$ . 132234)]) #@31 Sort articles by root author. (defalias 'gnus-article-sort-by-author #[(h1 h2) " \305H!\211@\206\n\211A@)\206\306)\f\305H!\211@\206+\n\211A@)\206+\306)\231\207" [gnus-extract-address-components h1 extract x h2 2 ""] 5 (#$ . 132438)]) (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@@\n\305H!\211@\2065 \211A@)\2065\306)\n \305H!\211@\206K \211A@)\206K\306)\231*\207" [h1 h2 gnus-extract-address-components extract x 2 ""] 5 (#$ . 132769)]) #@32 Sort articles by root subject. (defalias 'gnus-article-sort-by-subject #[(h1 h2) "\303H\304\305 \"\203 \306\225\307O\202 )\227\n\303H\304\305 \"\203) \306\225\307O\202* )\227\231\207" [h1 subject h2 1 string-match "^[Rr][Ee]: *" 0 nil] 4 (#$ . 133075)]) (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@@\211\303H\304\305\n\"\2033\n\306\225\307O\2024\n)\227 \303H\304\305\n\"\203I\n\306\225\307O\202J\n)\227\231*\207" [h1 h2 subject 1 string-match "^[Rr][Ee]: *" 0 nil] 5 (#$ . 133424)]) #@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 (#$ . 133756)]) (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 (#$ . 134239)]) #@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 (#$ . 134702)]) (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 (#$ . 135077)]) #@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 (#$ . 135372)]) (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]) (defalias 'gnus-thread-total-score-1 #[(root) "@\304 \305\306\307\310\311H!A\"\312H\312V\205&\312H\n\236A\206% \206%\312C\"\2060 C\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\305\301!\204\f\306\302B\305\302!\204\306\303B\305\303!\204$\306\304B\305\304!\2040\306\306\207" [current-load-list gnus-tmp-prev-subject gnus-tmp-false-parent gnus-tmp-root-expunged gnus-tmp-dummy-line boundp nil] 2) #@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 (#$ . 136390)]) #@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\"\316\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\21156789:;<=>?@ABCDEFGHI JK\316L\317@!\203p\320!\210\202\315\n\204\203F\204\203A\204\203B\203\315\nK\312U\203\357F\203\234F\211M@@)\312U\203\357N\204\357A\204\253B\203\357A\203\323O\203\271\312\202\272\321KA@C\211I\211M@@)?AAA\202B\203B@C\211I\211M@@)?BAB\202\203\211I\211M@@)?\202F@\211E@KEAIFAFI\211M@@)?\316N\316O\316@?;\203\253P\322=\203uAI\211M@A)A\244A\323\324I\211M@A)A\"D\244DI\211M@@)I\211M@A)@DIABI\325K\326N\202\233\nP\327=\203\223\323\330I\211M@A)A\"D\244D\325K\202\233\nP\331=\203\245?Q?L\202\233\n\325K\202\233\n?\312HH?\321HGR\204o\332K!\204oL\203oLG\316STUS\204\330UGV\203\352\333VG\"\202UW\204\nGG\334\335G\"\203G\312\225\316O\202G)\202UW\336=\203\337G!\202UW\247\203SGG\334\335G\"\2033G\312\225\316O\2025G)WX\211YGXV\203MY\312XO\202OY*\202UG)TGV\203h\333VG\"\202\323W\204\210GG\334\335G\"\203\202G\312\225\316O\202\204G)\202\323W\336=\203\226\337G!\202\323W\247\203\321GG\334\335G\"\203\261G\312\225\316O\202\263G)WX\211YGXV\203\313Y\312XO\202\315Y*\202\323G)\232\202YUTGV\203\354\333VG\"\202WW\204\fGG\334\335G\"\203G\312\225\316O\202G)\202WW\336=\203\337G!\202WW\247\203UGG\334\335G\"\2035G\312\225\316O\2027G)WX\211YGXV\203OY\312XO\202QY*\202WG)\232+\204oBI@C\244B\326@\316?\202\377HZ>\204\270\323\340I\211M@A)\"D\244DI\211M@A)\203\241\341AI\211M@A)\"\202\243AA\326@\316?\332K!\203\377\326O\202\377[\203\377H\\\236A\206\310J[W\203\377H]>\204\377H^>\204\377\342H_\"_`\203\365HaBa\202\377HbBcBc?\203\233\nQ\203\254Q?\321H\316STUS\204UGV\203-\333VG\"\202\230W\204MGG\334\335G\"\203GG\312\225\316O\202IG)\202\230W\336=\203[\337G!\202\230W\247\203\226GG\334\335G\"\203vG\312\225\316O\202xG)WX\211YGXV\203\220Y\312XO\202\222Y*\202\230G)TGV\203\253\333VG\"\202W\204\313GG\334\335G\"\203\305G\312\225\316O\202\307G)\202W\336=\203\331\337G!\202W\247\203GG\334\335G\"\203\364G\312\225\316O\202\366G)WX\211YGXV\203Y\312XO\202Y*\202G)\232\202\234UTGV\203/\333VG\"\202\232W\204OGG\334\335G\"\203IG\312\225\316O\202KG)\202\232W\336=\203]\337G!\202\232W\247\203\230GG\334\335G\"\203xG\312\225\316O\202zG)WX\211YGXV\203\222Y\312XO\202\224Y*\202\232G)\232+\203\254\343Q?\312H\"\210\316QHd>\203\271e\202Hf>\203\306g\202Hh>\203\323i\202H_>\203\340j\202Hk>\203\355l\202Hm>\203\372n\202Ha>\203o\202Hc\236A\206p>H>`T?K\257qBqR\203\311L\203\311LG\316STUS\204?UGV\203Q\333VG\"\202\274W\204qGG\334\335G\"\203kG\312\225\316O\202mG)\202\274W\336=\203\337G!\202\274W\247\203\272GG\334\335G\"\203\232G\312\225\316O\202\234G)WX\211YGXV\203\264Y\312XO\202\266Y*\202\274G)TGV\203\317\333VG\"\202:W\204\357GG\334\335G\"\203\351G\312\225\316O\202\353G)\202:W\336=\203\375\337G!\202:W\247\2038GG\334\335G\"\203G\312\225\316O\202G)WX\211YGXV\2032Y\312XO\2024Y*\202:G)\232\202\300UTGV\203S\333VG\"\202\276W\204sGG\334\335G\"\203mG\312\225\316O\202oG)\202\276W\336=\203\201\337G!\202\276W\247\203\274GG\334\335G\"\203\234G\312\225\316O\202\236G)WX\211YGXV\203\266Y\312XO\202\270Y*\202\276G)\232+\204\311G\202\205 \332K!\203\203 P\327=\203~ HD>\203~ L\203~ LG\316STUS\204\364UGV\203\333VG\"\202qW\204&GG\334\335G\"\203 G\312\225\316O\202\"G)\202qW\336=\2034\337G!\202qW\247\203oGG\334\335G\"\203OG\312\225\316O\202QG)WX\211YGXV\203iY\312XO\202kY*\202qG)TGV\203\204\333VG\"\202\357W\204\244GG\334\335G\"\203\236G\312\225\316O\202\240G)\202\357W\336=\203\262\337G!\202\357W\247\203\355GG\334\335G\"\203\315G\312\225\316O\202\317G)WX\211YGXV\203\347Y\312XO\202\351Y*\202\357G)\232\202u UTGV\203 \333VG\"\202s W\204( GG\334\335G\"\203\" G\312\225\316O\202$ G)\202s W\336=\2036 \337G!\202s W\247\203q GG\334\335G\"\203Q G\312\225\316O\202S G)WX\211YGXV\203k Y\312XO\202m Y*\202s G)\232+\203~ r\202\205 G\202\205 r<P\322=\203\244 K\321U\203\244 HD>\203\244 \344\345\202\250 \346\347sKH:?\307H9H\\\236A\206\303 \n\206\303 \3128\n\203\325 \3508\nZ!tX\203\331 \351\202\347 8\nW\203\345 u\202\347 v7Hw>\203\366 x\202\nHy>\203\nz\202\nH{>\203\n|\202\nH}>\203\n~\202\nj=?\352H6\334\3536\"\203P\n\312\224C\334\3546\"\203G\n6\312\224T\312\225SO\206f\n6\312CO\202f\n\334\3556\"\203d\n6\312\224T\312\225SO\202f\n6\2115\356\230\203r\n659\247\204{\n\3129\357`\360!\210`\361H$\210 \203\227\n\325y\210\362\363!\210\321y\210GLIA@\203\257\n\312K]IABFBFKTK@?\205\302\nI\211M@A)\211\204p\312K\202p.\306\307\364\"\207" [threads gnus-newsgroup-threads gnus-summary-default-score gnus-tmp-closing-bracket gnus-tmp-opening-bracket gnus-tmp-number gnus-message 7 "Generating summary..." beginning-of-line 0 gnus-visual-p summary-highlight highlight nil vectorp gnus-summary-prepare-unthreaded 1 adopt mapcar #[(h) "@\301H\207" [h 0] 2] -1 t empty #[(h) "@\301H\207" [h 0] 2] dummy zerop gnus-map-function string-match "^[Rr][Ee]: *" fuzzy gnus-simplify-subject-fuzzy #[(h) "@\301H\207" [h 0] 2] append delq gnus-summary-insert-dummy-line 60 62 91 93 abs 32 2 "<[^>]+> *$" "^\"[^\"]*\"" "(.+)" "" gnus-put-text-property eval gnus-number gnus-run-hooks gnus-summary-update-hook "Generating summary...done" 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-unread gnus-tmp-header thread-end gnus-tmp-new-adopts new-roots beg-match gnus-tmp-gathered state stack subject number thread default-score gnus-tmp-level gnus-tmp-prev-subject x gnus-tmp-false-parent gnus-tmp-root-expunged gnus-summary-make-false-root gnus-tmp-dummy-line gnus-thread-ignore-subject simple-first s2 s1 gnus-simplify-subject-functions gnus-summary-gather-subject-limit width str 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 gnus-newsgroup-unsendable gnus-unsendable-mark gnus-newsgroup-undownloaded gnus-undownloaded-mark gnus-newsgroup-downloadable gnus-downloadable-mark gnus-unread-mark gnus-newsgroup-marked gnus-ticked-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-saved gnus-saved-mark gnus-summary-line-format-spec] 28 (#$ . 136575)]) #@57 Generate an unthreaded summary buffer based on HEADERS. (defalias 'gnus-summary-prepare-unthreaded #[(headers) "\306\211\211\307 \210 \205\345 \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  \"> >\n\313H\306 \f\236A #>&\n\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-undownloaded gnus-undownloaded-mark gnus-newsgroup-downloadable gnus-downloadable-mark gnus-unread-mark gnus-newsgroup-marked gnus-ticked-mark gnus-newsgroup-dormant gnus-dormant-mark gnus-expirable-mark gnus-ancient-mark gnus-newsgroup-data gnus-newsgroup-replied gnus-newsgroup-processable] 12 (#$ . 144120)]) #@88 Remove list identifiers in `gnus-list-identifiers' from articles in the current group. (defalias 'gnus-summary-remove-list-identifiers #[nil ";\203 \202\305\306\307#\n\310\211\203O\f@\311\312 \313Q \314H\"\203H \314 \314H\315\314\224O\316\317 \314H\"\206>\316\320 \314H\" \314H\314\225\310OQI\210\fA\211\204+\310\207" [gnus-list-identifiers regexp gnus-newsgroup-headers header #1=#:--dolist-temp--97319 mapconcat identity " *\\|" nil string-match "\\(\\(\\(Re: +\\)?\\(" " *\\)\\)+\\(Re: +\\)?\\)" 1 0 match-string 3 5] 8 (#$ . 145351)]) #@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\313<\313=\314\315\316!\307!L!\2041\317\320!\210\n\203<\n@\311=\203U\321!\204U>\322\232\203M\323p!\210\317\324\325!#\210\326\311\"\204o>\322\232\203g\323p!\210\317\324\325!#\210?\313@\327!A\330 \210\f\203\205\331\f!\210\332!\203\217B=\333\211AC\"D\"A\313E\334A\"\210F\211\203\271\335A\336A \"\"@\202\277\337G\" \204\307\340\202\231 \341=\203\321\313\202\231\342 G!H\343 \210\344\345\346?#\210\347 ?I\350=\204\362I\247\203\371 G\351V\205\373I#\211J\352=\203\353 \313\211?\311%\202\354 K\344\345\355?#\210=\203#=BL\203+\356 \210\357 !M\360A\361\362K\"\211<\"A\363\336< \"!\210I\203bJ\352=\203bI\364=\203_\365 \210\202b\366 \210N\203j\367 \210O\203r\370 \210\371!PQ\204\372 \210K\203\223K@\341HR\373K!\341HSK\206\231\311.\207" [group gnus-newsrc-hashtb entry gnus-summary-ignore-duplicates info articles 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-activate-group gnus-summary-mode kill-buffer "Couldn't request group %s: %s" gnus-status-message gnus-request-group gnus-list-of-unread-articles gnus-summary-setup-default-charset gnus-adjust-marked-articles gnus-virtual-group-p gnus-set-difference gnus-update-read-articles gnus-sorted-intersection gnus-sorted-complement gnus-articles-to-read quit 0 gnus-make-hashtable gnus-set-global-variables gnus-message 5 "Fetching headers for %s..." gnus-retrieve-headers some 1 nov gnus-get-newsgroup-headers-xover gnus-get-newsgroup-headers "Fetching headers for %s...done" gnus-dup-suppress-articles copy-sequence gnus-set-sorted-intersection mapcar #[(headers) "\301H\207" [headers 0] 2] gnus-update-missing-marks invisible gnus-build-all-threads gnus-build-old-threads gnus-agent-get-undownloaded-list gnus-summary-remove-list-identifiers gnus-group-auto-expirable-p gnus-article-setup-buffer gnus-last-element fetched-articles cached major-mode gnus-newsgroup-name gnus-newsgroup-unselected gnus-newsgroup-unreads gnus-newsgroup-cached gnus-newsgroup-marked gnus-newsgroup-dormant gnus-newsgroup-processable select-articles read-all gnus-newsgroup-dependencies gnus-fetch-old-headers gnus-headers-retrieved-by gnus-newsgroup-headers gnus-suppress-duplicates gnus-newsgroup-limit gnus-agent gnus-list-identifiers gnus-newsgroup-auto-expire gnus-single-article-buffer gnus-newsgroup-begin gnus-newsgroup-end] 6 (#$ . 145913)]) #@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\307 \310\"\311=\203+\312\313 \f\"J!\2065\314 !\2025\315\316 \317\n!#\320\"\321\"\211GG G G\\\247\203X\202\\\322\323\324\217\211 ;\203j\325 !\202l \211 \203y\306 !\203~ \202\347\306!\204\235\326 !X\203\235\315\320\"\211G\202\243\317!\326 !W\203\314 \327W\203\302\326 !S\233\322\241\210\202\314 Z\233\330\n\331\n\"\"!\"\203\345\315\"#\n\"\320\".\207" [read-all gnus-newsgroup-marked gnus-newsgroup-unreads group gnus-active-hashtb gnus-newsgroup-dormant zerop gnus-group-find-parameter display all gnus-uncompress-range intern-soft gnus-cache-articles-in-group sort append copy-sequence < gnus-killed-articles nil (byte-code " X\204\f\nU\203F \247\203F\n V\203F\306\307\310\f\311\211G V\203.\312 O\2020*\n#!\313\314\"\203B\n\202D)\207 V\203v\nW\203v\nZ\315V\203v\306\307\316\317\n%!\313\314\"\203r\n\202t)\207\n\207" [scored marked number gnus-large-newsgroup gnus-newsgroup-name width read-string format "How many articles from %s (default %d): " 35 0 string-match "^[ ]*$" 20 "%s %s (%d scored, %d total): " "How many articles from" str input group] 8) ((quit (message "Quit getting the articles to read") nil)) string-to-number abs 0 gnus-sorted-intersection gnus-sorted-complement articles gnus-newsgroup-killed scored-list scored number marked select gnus-newsgroup-unselected gnus-alter-articles-to-read-function gnus-newsgroup-name] 7 (#$ . 148682)]) (defalias 'gnus-killed-articles #[(killed articles) "\306 \203\203 @\n A<\204\f @Y\205s\f AX\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\306 A\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 (#$ . 150649)]) #@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\311\311\311\311\311 \205\344 \211A@\312\313\314\315@\211\"@\"!\211@>\203TA\202Y\316A!L\210J\317>\203\220\203'\211A@\211\fW\204\202 V\203g\320J\"L\210\202g>\203'JA<\204\247\211JCL\210A<\204\263C\203'\211A@\211:\203\326@\fW\204\326@ V\203\263\320J\"L\210\202\263. \207" [info marked-lists gnus-active-hashtb active min max 3 intern-soft (score bookmark killed) nil intern format "gnus-newsgroup-%s" rassq gnus-uncompress-range (tick dormant expire reply save) delq gnus-article-mark-lists types uncompressed marks var articles article mark] 7 (#$ . 150923)]) #@78 Go through the list of MISSING articles and remove them from the mark lists. (defalias 'gnus-update-missing-marks #[(missing) "\2055 \305\211\f\2054\306\307\310\f\211A@@\"!\211J\203\n\n\203\n \311\n\211A@ J\"L\210\202!+\207" [missing gnus-article-mark-lists m var types nil intern format "gnus-newsgroup-%s" delq] 6 (#$ . 151742)]) #@74 Enter the various lists of marked articles into the newsgroup info list. (defalias 'gnus-update-marks #[nil "\306\307 \n\"J8\310\311\211\211\211\211\"#$%&%\205o&\211A&@\211#\203\312\313\314#@\"!\211J\211\"\203\224#A\315=\203\224'\203\224\"\203\224\"(\311\"B\211)*(\203\216(@:\203w(\211+@A),U\203\201)(A\241\210\202\205()(A\211(\204b*A\"+#A$>\204\251\316\f\317\"\320\"L\321\"\"\322 -.\323\324\325\217*\203#A\326\327$\">\204#A\330%8\236A/\331\332/!\"\"\331\332\"!/\"\211\203\361\333#ACE B\203\334#ACE B+\"\203 #A\"B B\202 \203'\335 !\204\"\336\337 \"\210\340 \"\210\330%\233\2038\330%\233 \240\210\202D \203D%AA C\241\210\34100\306V\205n0%8?\205n0S\2110%\233\203G0%\233\311\241\210\202G).\207" [gnus-article-mark-lists gnus-newsgroup-name gnus-newsrc-hashtb delta-marks symbol newmarked 2 intern-soft (score bookmark killed) nil intern format "gnus-newsgroup-%s" score gnus-compress-sequence sort < t request-set-mark #1=#:G97320 (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)) append (cache download unsend) 3 gnus-remove-from-range gnus-copy-sequence add del gnus-check-group error "Can't open server for %s" gnus-request-set-mark 5 list type uncompressed info types gnus-save-score arts prev all x gnus-summary-default-score group func old i] 9 (#$ . 152094)]) #@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) " >\205M\306\307\310\"!J\205M\311\212 q\210\306\307\310\"!J \311 '\211(\204/\312'!(\313()\"*\311+,\211-\203H-A\202l,\211A,@\211-\203j\314-@'\"\203H\311,-A+\202H+-.\211/\203\211.\203\211\315\316!\203\211\317/.\"\202\213/*01\206\224\3202343G56G7\3215!\203\266\3217!\203\266\322\202\314\3217!\203\305\307\3235\"\202\314\307\32457#89\203\343\3259!\203\343\3269\327H!\202\344\322:\311;\311<\311=\330\f!\314\331\n\"\203 \332\333=?\205\334>!!G\335Z\202\320;\336?\203!\337 ?Z;Z\202#\nG]<\nG\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-int 2 intern-soft intern entry number xrefs header headers unreads] 5 (#$ . 155407)]) #@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\211 \f \212q\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\216 J\307\n\f\"J\310 8\211\3118\211;\203+\312!\205\216\313\314!\"\204_\204_\314!\211\232\204_@@\232\205\216A@A@\232\205\216\205\216\315=\203\212\204\212A@\211:\203\201@\202\203)X\205\216\316\n \"\207" [from-newsgroup group name idlist gnus-newsrc-hashtb entry symbol-name intern-soft 2 4 gnus-server-to-method gnus-methods-equal-p gnus-find-method-for-group t gnus-group-make-articles-read info nth4 virtual method gnus-use-cross-reference rank gnus-level-subscribed] 5] entry name virtual gnus-group-buffer headers unreads] 8 (#$ . 156235)]) (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~\307 8\204~ @\313V\203~\313 @SB\202\203\307 8\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\310 8\307 \"J\311 \205\303\312 \"\212q\210\313\314\315\316\fD\316\317\f8D\320BBB\321\316\fD\316\310\f8DE\322\316\fD\323 DE\324 \325BB\257!\210)\fAA\240\210\205\303\204nAT@Z\202\273A<\204\205AAT@ZZ\202\273\203\265@\247\203\227T\202\254\211@A)T\211@@)Z\\A\211\204\212AZ \240\210\324 \326\"-\207" [num group gnus-newsrc-hashtb entry info gnus-active-hashtb 0 intern-soft 2 nil 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 gnus-group-update-group (t) t active range articles gnus-group-buffer x] 9 (#$ . 157694)]) (byte-code "\301B\302\301!\204\f\303\301\207" [current-load-list gnus-newsgroup-none-id boundp 0] 2) (defalias 'gnus-get-newsgroup-headers #[(&optional dependencies force-new) " \206 \212\nq\210 )\306\211\211\211\f\212\306\307\310\217\210 )@ABCDEF\212q\210\311ed\312\313\314%\210\311ed\315\313\314%\210\316\317!\210\314\306\211\211\211\211GHIJKLeb\210\320\321\306\314#\203\372\306D\306B\322\323F!\306\210`I`\324\325\306\314#\203|`\326Z\206}`}\210Ib\210\324\327\306\314#\203\226M\330\225\331 {!\202\227\332Ib\210\324\333\306\314#\204\253\324\334\306\314#\203\266M\330\225\331 {!\202\267\335Ib\210\324\336\306\314#\203\313\330\225\331 {\202\314\337Ib\210\320\340\306\314#\203\340\341\224\341\225{\202\352\342\343NT\211N!P\211DIb\210\324\344\306\314#\203`C\330\225\331 {\306\210\345\346C\314#\210`T\345\347C\314#\210`{B\202o\324\350\306\314#\203k\330\225\331 {\211K\203k\351\352K\"\203k\306OK\330\224\330\225OB\351\352K\330\225#\203eK\330\224\330\225O\211OGBGV\203BOB\202BB)\202o\306\211BIb\210\324\353\306\314#\203\217\354\355\356\217\211G\247\203\213G\202\220\330\202\220\330Ib\210\324\357\306\314#\203\260\360\361\362\217\211H\247\203\254H\202\261\330\202\261\330Ib\210\324\363\306\314#\205\302\330\225\331 {P\205P\306QRR\203\377Ib\210\324\364\365R@!\366Q\306\314#\203\364R@\330\225\331 {BQBQR\211AR@\210\202\316Q*&\nJDB\232\203\306BS\203PSJ!\210J\367HDJ\370H\306T\211U\205M\371U!VT\206;\341V\233\203IVAV\2025V@)*BJ WW\211J\367H\211D\205h\372D \"X\306B\306Y\306ZX\204~\306J\202\353\373X!\204\217XJCL\210\202\353XJ@\204\240XJJ\240\210\202\353W\203\257XJJ\240\210\202\353[\204\316\372\374 \211D \"\211XJCL\210J\367DI\210\202\353XJ@\375XJ@\375H\206\335\337J\375H\206\345\337PI\210\306JJ\203\341J\370H\306T\211U\205\371U!VT\206 \341V\233\203VAV\202V@)*\211B\203\207\376B \"\211Y\203\207\373Y!\203\207YJ@\211Z\203\207DB\230\203UXJ@\370\377I\210\306\211B\202Z\370H\306T\211U\205\200\371U!VT\206n\341V\233\203|VAV\202hV@)*\211B\204\"J\370H\306T\211U\205\262\371U!VT\206\240\341V\233\203\256VAV\202\232V@)*B\372B\206\274\377 \"Y\373Y!\203\330YJYJAXJC\244\241\210\202\341Y\306XJDL\210J.\211J\203\362JEBEdb\210~\210\202TE\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 gnus-run-hooks gnus-parse-headers-hook re-search-forward "^[23][0-9]+ " vector read search-forward "\n.\n" 2 "\nsubject: " 0 gnus-point-at-eol "(none)" "\nfrom: " "\nfrom:" "(nobody)" "\ndate: " "" "^message-id: *\\(<[^\n > ]+>\\)" 1 "fake+none+" int-to-string "\nreferences: " search-backward ">" "<" "\nin-reply-to: " string-match "<[^>]+>" "\nchars: " #1=#:G97321 (read cur) ((error)) "\nlines: " #2=#:G97322 (read cur) ((error)) "\nxref: " "\n" symbol-name ": " 4 5 gnus-split-references intern boundp nnmail-message-id 8 intern-soft "none" mail-parse-ignored-charsets mail-parse-charset ref end id headers cur chars lines p header in-reply-to case-fold-search gnus-decode-encoded-word-function nnheader-fake-message-id ref2 gnus-extra-headers out extra gnus-alter-header-function n references ids force-new id-dep ref-dep ref-header gnus-summary-ignore-duplicates] 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\211\211\212 q\210\310ed\311\312\313%\210\314\315!\210eb\210m\204<\307\316\317\217\210\320y\210\202-\203F\204L\237\202_\313\237\321\"\205]\322 \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) nil subst-char-in-region 13 32 t gnus-run-hooks gnus-parse-headers-hook (byte-code "\203;m\204;\306 !\203@\nW\203A\211\204\2035\n@=\2035A\n \f\307 p\310()\311\216`)}\210m\204I\310u\210\n*`\312\313)\314#\203[`S\202]){!*`\312\313)\314#\203p`S\202r){!`\312\313)\314#\203\203`S\202\205){`\312\313)\314#\203\225`S\202\227){+\315\316+\"\203\247+\202\261\317\320,T\211,!P)`\312\313)\314#\203\301`S\202\303){\310f\321=\203\317\322\202\341\310\323\324\217\211-\247\203\337-\202\340\322)m\204\350\325u\210\310f\321=\203\363\322\202\310\326\327\217\211-\247\203-\202\322)m\204\f\325u\210m?\205-\330\331!\203\322\225b\210`\312\313)\314#\203*`S\202,){\310\211./\310f\332>\204l`\312\313)\314#\203I`S\202K){.\315\333.\"\2033\334\335\325.\"!.\322\225\310OB/B/\2023/*01234+567\336\n765+43210&\n.\n)8\203\2468 !\210 \f\211\337H\211+\205\272\334+ \"9\310:\310;\310<9\204\317\310\2024\3409!\204\3379 CL\210\20249J@\204\3579J \240\210\2024\f\203\3749J \240\210\2024=\204\334\341 \211+ \"\2119 CL\210 \337+I\210\20249J@\3429J@\342H\206(\343 \342H\206/\343PI\210\310 \203' \344H\310>\2114\205b\3454!?>\206P\325?\233\203^?A?\202J?@)*\211:\203\316\346: \"\211;\203\316\340;!\203\316;J@\211<\203\316+:\230\203\2349J@\344\347I\210\310\211:\202f<\344H\310>\2114\205\307\3454!?>\206\265\325?\233\203\303?A?\202\257?@)*\211:\204i \344H\310>\2114\205\370\3454!?>\206\346\325?\233\203\364?A?\202\340?@)*:\334:\206\347 \";\340;!\203;J;JA9JC\244\241\210\202';\3109JDL\210 .\211\2035 @B@\325y\210\202\310\207" [sequence cur number dependencies force-new header read gnus-point-at-eol nil ((widen)) search-forward " " move string-match "^<[^>]+>$" "fake+none+" 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 4 boundp nnmail-message-id 8 "" 5 gnus-split-references intern-soft "none" buffer eol gnus-decode-encoded-word-function id nnheader-fake-message-id num string out extra xref lines chars references date from subject gnus-alter-header-function id-dep ref ref-dep ref-header gnus-summary-ignore-duplicates n ids headers] 16) ((error (byte-code "\300\301\302\303e`\"#\207" [gnus-error 4 "Strange nov line (%d)" count-lines] 6))) 1 gnus-retrieve-headers gnus-get-newsgroup-headers header headers number cur mail-parse-ignored-charsets mail-parse-charset also-fetch-heads sequence gnus-nov-is-evil group] 7 (#$ . 161998)]) #@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 "\212q\210 ) ?\206V\n?\206V\n\306H\203 \n\306H\307\230?\206V\310\311\214\312 \210eb\210m\204=\311f\227\313=\203=\314\315!\204E\316\317\311\310#\205U\320\225Tb\210`\311\210`{\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] 4 (#$ . 165296)]) #@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\241\204q\203q \203q\312H\236\211\203q\3138b\210\314 \315 \316 T\317 \210`\320y\210`|\210Z\"\210\203|\f\312\312HI\210\321\f\312H\211\"\321 \" B\322\f\323H \"\210\324 \311\325#\210 \247\203\307 \312V\203\307 V\203\266  W\203\300 \321 \"\f\205\316\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 gnus-point-at-bol gnus-point-at-eol beginning-of-line 1 delq gnus-rebuild-thread 4 gnus-summary-goto-subject t d gnus-show-threads gnus-newsgroup-data gnus-newsgroup-sparse gnus-newsgroup-ancient gnus-newsgroup-limit gnus-newsgroup-end gnus-newsgroup-begin gnus-newsgroup-unselected] 7 (#$ . 165883)]) #@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) "\212q\210 \203a\306 !\211\307W\310\306 !!\311\211\212 \307V\203Z\312`\313\"\211\203.\314 !\210)\312`\315\"\2068\316 \211 B\211\203Z\f\203L\317\311\n\"\202P\320\311\n\"\203Z S\211\202) \237,\202\335\321 \203\266\322 \203\266\323\324!\210`\322 ]\311\211\212`\322 ^\307\\b\210\312`\313\"\211\203\217\314 !\210)\312`\315\"\206\231\316 \211 B\211\203\260\320\311\n\"\203\260`W\204\202 \237,\202\335\203\305\325 \210\326!\202\335\312`\313\"\211\203\322\314 !\210)\312`\315\"\206\334\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 (#$ . 166966)]) #@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 (#$ . 168081)])) (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 (#$ . 168698) 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 (#$ . 168928) 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 (#$ . 169167) nil]) #@52 Make SET into the current process marked articles. (defalias 'gnus-summary-process-mark-set #[(set) "\301 \210\205\302\211A@!\210\202\207" [set gnus-summary-unmark-all-processable gnus-summary-set-process-mark] 3 (#$ . 169431)]) #@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) "\212q\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 (#$ . 169674)]) #@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) "\212q\210\212\302 !*\207" [gnus-group-buffer exclude-group gnus-group-best-unread-group] 2 (#$ . 170035)]) (defalias 'gnus-summary-find-next #[(&optional unread article backward undownloaded) "\203\306 \207\307`\310\"\n\206'\307`\310\"\211\203\311 !\210)\307`\312\"\206'\313 \f\n \236 >)\314 \204S\203N\203N@A@U\204SA\203\216\203\211\203m@A@=\204x@A@U\203\200@\314A\211\204]\202\221@\211\205\240\3158b\210@,\207" [backward dummy article to gnus-newsgroup-data bdata gnus-summary-find-prev get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject nil 2 arts result gnus-summary-check-current unread gnus-unread-mark undownloaded gnus-undownloaded-mark] 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|\203w@A@U\203n@\314A\211\204[\202@\211\205\216\3158b\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 2 arts result gnus-summary-check-current unread gnus-unread-mark] 4]) (defalias 'gnus-summary-find-subject #[(subject &optional unread backward article) " \203 \306 \"\202b\n\204'\307\310\"\203\"\311\225\312O\202#)\202b\n\313=\2033\314!\202b\n\247\203a\307\310\"\203I\311\225\312O\202J)\n\211G V\203\\\f\311 O\202]\f*\202b)\206\202\315`\316\"\211\203x\317!\210)\315`\320\"\206\202\321 \203\230\206\232\322!\211\202\232\211\236>)\312 !\203\302\"\203\302@A@#U\204\307A\203B\"\203\334@A@#U\2039\323\324@8!\2039 \324@8\325H\326$%&$\204\306& \203\306 \"\202]\n\204\"\307\310\"\203\311\225\312O\202)\202]\n\313=\203.\314!\202]\n\247\203\\\307\310\"\203D\311\225\312O\202E)\n\211G V\203W\f\311 O\202X\f*\202])% \203l\306 \"\202\301\n\204\206\307\310\"\203\201\311\225\312O\202\202)\202\301\n\313=\203\222\314!\202\301\n\247\203\300\307\310\"\203\250\311\225\312O\202\251)\n\211G V\203\273\f\311 O\202\274\f*\202\301)\232\202-&% \203\326\306 \"\202+\n\204\360\307\310\"\203\353\311\225\312O\202\354)\202+\n\313=\203\374\314!\202+\n\247\203*\307\310\"\203\311\225\312O\202)\n\211G V\203%\f\311 O\202&\f*\202+)\232+\2039@ \312A\211\204\314 \205R\327 8b\205R @-\207" [subject gnus-simplify-subject-functions gnus-summary-gather-subject-limit width str simp-subject gnus-map-function string-match "^[Rr][Ee]: *" 0 nil fuzzy gnus-simplify-subject-fuzzy get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject reverse vectorp 3 1 t 2 article 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 (#$ . 173302)]) #@77 Center point in window and redisplay frame. Also do horizontal recentering. (defalias 'gnus-recenter #[(&optional n) "\203 \302=\204 \303 \210\304 !\207" [gnus-auto-center-summary n vertical gnus-horizontal-recenter recenter] 2 (#$ . 173710) "P"]) #@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 "\306 \307W\203 \310\202 \306 \311W\203\312\202 \247\203\202 \313\306 S\212db\210\n[y\210`)\314p!\205\245\314 !\203\201\212 [y\210`) V\203X\315\f\316#\210\202\200\212db\210\317y\210` b\210\315\f`\316#\210\320\f\"\204\312y\210\315\f`^\316#\210*)\314p\316\"\205\245\321=?\205\245\322 \323\314p\316\"!\210\324 \210\325 \210\323!),\207" [gnus-auto-center-summary top height bottom window gnus-article-buffer window-height 4 0 7 1 2 get-buffer-window set-window-start t -1 pos-visible-in-window-p vertical selected-window select-window gnus-summary-position-point gnus-horizontal-recenter top-pos last-line-start selected] 4 (#$ . 173969) 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!\203\305!\210\202q\210\306 !)\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 pop-to-buffer gnus-group-jump-to-group] 3 (#$ . 174839)]) (defalias 'gnus-list-of-unread-articles #[(group) "\306\211\307 \"J88\307 \"J\206\310!\211A\311 \311\311\n\204-\f@ \202\306\nA<\204L\n@\f@W\204A\nC\202L\f@\nAT] \202\306\n@\247\203W\n@\206^\n\211@@)\211\312U\204j\f@ \n\203\306 \203\213 W\203\213 B T\211 \202u\n@:\204\226\n@\202\235\n\211@A)T \n\211A@):\204\265\n\211A@)\202\275\n\211A@)@\nA\211\204n X\203\335 B T\211 \202\310\313\314\237\".\207" [group gnus-newsrc-hashtb read gnus-active-hashtb active last 2 intern-soft gnus-activate-group nil 1 delq 0 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\2052 \2052\311\312\313 !\314!\"\315\313\316 \236A!\313\317 \236A!\"\"+\207" [group gnus-newsrc-hashtb info marked gnus-active-hashtb active 2 intern-soft 3 gnus-set-difference gnus-sorted-complement gnus-uncompress-range gnus-list-of-unread-articles append dormant tick] 7 (#$ . 175885)]) #@45 Reconfigure windows to show article buffer. (defalias 'gnus-summary-select-article-buffer #[nil "\211\205\302 !\205\303\302 !!)\204\304\305!\207\306\307!\210\310\311!!\207" [gnus-article-buffer buffer get-buffer buffer-name error "There is no article buffer for this summary buffer" gnus-configure-windows article select-window get-buffer-window] 4 (#$ . 176329) 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-universal-argument]" undefined gnus-error 1 "Undefined key" gnus-summary-goto-subject command-execute gnus-summary-remove-process-mark gnus-summary-position-point] 4 (#$ . 176713) "P"]) #@92 Toggle truncation of summary lines. With arg, turn line truncation on iff 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 (#$ . 177358) "P"]) #@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\"\211\203\313 !\210)\311`\314\"\206!\315 \316\317 \210\320\n!\210 \2037\212\321\322!\210)\323\324\"\210\313 \316\324#*\207" [gnus-newsgroup-name to group current-subject gnus-newsgroup-begin rescan gnus-ephemeral-group-p error "Ephemeral groups can't be reselected" get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject nil gnus-summary-exit gnus-summary-jump-to-group gnus-group-get-new-news-this-group 1 gnus-group-read-group t all] 5 (#$ . 177636) "P"]) #@69 Exit the newsgroup, ask for new articles, and select the newsgroup. (defalias 'gnus-summary-rescan-group #[(&optional all) "\301\302\"\207" [all gnus-summary-reselect-current-group t] 3 (#$ . 178363) "P"]) (defalias 'gnus-summary-update-info #[(&optional non-destructive) "\212\211\205p\n\203!\306\307\310 !\311\f\312\"\211\"\311 \312\"\211\244\313\" A<\204* C\212q\210\314 \210)\315 \316 \f\"\"\210?\205H??\205N\212\317 \210*\203a\320  #\210q\210\321 !?\205o\322 !)*\207" [gnus-newsgroup-name group gnus-newsgroup-kill-headers gnus-newsgroup-killed gnus-newsgroup-unselected gnus-newsgroup-unreads gnus-compress-sequence gnus-set-sorted-intersection gnus-uncompress-range sort < t gnus-undo-force-boundary gnus-update-read-articles append 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] 7]) #@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 (#$ . 179366) "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) "\306 \210\211\205\307 !\205\310\307 !!)\203%\212q\210\311\n!\210\312\312)\313 \210\314 \210\f\315\f!-./\3120p1-\204Q2\203I\316 \2103\203Q\317 \210\320\321!\2104\204}5\2111\211\205p ;\203m\307\202n\310 !)\203y\3221!\210)\31267\203\210\323 \210\324 \210\325 !\2108\203\224\326 \2109\203\235\327 !\2107\203\245\330 \210\331 :\332\333:\"\203\272:\334\225\312O\202\274:)!\210-\204\313\320\335!\210\336 \210\337 !\210;q\210-\204\334\340 !\210\320\341!\210-\204\360 \342 \230\203\360\343\344!\210`0?\351;!\210-\204\2440b\210\352\305\353\"\210\202\251\354-!\210-?\205\262\312\211-\207" [gnus-article-buffer buffer gnus-article-mime-handles gnus-article-mime-handle-alist gnus-newsgroup-name group gnus-set-global-variables get-buffer buffer-name mm-destroy-parts nil gnus-kill-save-kill-buffer gnus-async-halt-prefetch gnus-group-quit-config gnus-score-adaptive gnus-score-save gnus-run-hooks gnus-summary-prepare-exit-hook kill-buffer 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 gnus-summary-clear-local-variables bury-buffer gnus-summary-mode pop-to-buffer gnus-configure-windows force gnus-handle-ephemeral-exit quit-config major-mode mode group-point buf gnus-newsgroup-adaptive gnus-use-scoring gnus-single-article-buffer gnus-original-article-buffer gnus-article-current gnus-use-cache gnus-suppress-duplicates gnus-use-trees gname gnus-group-buffer temporary gnus-kill-summary-on-exit gnus-select-method gnus-current-select-method] 5 (#$ . 179731) 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 ! \204\f\204\307\310!\205\370\311 \210\312\313\314\315\316 !\"\"\210 \211!\2056\317!!\2056\320\317!!!)\203K\212 q\210\321\"!\210\322#\322\")$\204\231 \211%\211!\205i!;\203e\317\202f\320!!)\203r\323%!\210)&\211%\211!\205\214!;\203\210\317\202\211\320!!)\203\225\323%!\210)\322'(\204\244\324 \210\202\276\325 !\210\326 \210)q\210\326 \210\317*!\203\276\323*!\210$\204\306\322'+\203\317\327 !\210\330 !\210\317 !\203\337\331 !\210\332\301\333\"\210\322\334 \232\203\361\335\336!\210\n\205\370\337\n!*\207" [gnus-newsgroup-name group quit-config no-questions gnus-expert-user gnus-summary-prepare-exit-hook gnus-group-quit-config gnus-y-or-n-p "Discard changes to this group and exit? " gnus-async-halt-prefetch mapcar funcall delq gnus-summary-expire-articles copy-sequence get-buffer buffer-name mm-destroy-parts nil kill-buffer gnus-deaden-summary gnus-close-group gnus-summary-clear-local-variables gnus-tree-close gnus-async-prefetch-remove-group bury-buffer gnus-configure-windows force gnus-group-group-name gnus-group-next-unread-group 1 gnus-handle-ephemeral-exit gnus-article-buffer buffer gnus-article-mime-handles gnus-article-mime-handle-alist gnus-single-article-buffer buf gnus-original-article-buffer gnus-article-current gnus-kill-summary-on-exit gnus-group-buffer gnus-summary-buffer gnus-use-trees] 7 (#$ . 182184) 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\202B \313=\203B\212\n\211\2054\314 !\2054\305\314 !!)\204;\fq\210\nq\210\312 \210)A\315=\204PA\316=\203o\317 \210\320\321!\203f\321J\203f\306\316\310\"\210\202u\306A\310\"\210\202u\306A\310\"\210 \311=\205\206\322\323\324\325#\210\326 \210\327 \207" [quit-config major-mode gnus-summary-buffer buffer gnus-group-buffer buffer-name gnus-configure-windows group force gnus-summary-mode gnus-set-global-variables gnus-article-mode get-buffer article pick gnus-summary-show-article boundp gnus-pick-mode gnus-summary-next-subject 1 nil t gnus-summary-recenter gnus-summary-position-point] 5 (#$ . 183727)]) (byte-code "\301B\303\301!\204\f\304 \2041\305 \306 !\210\307\310\311 #\210\312\n\2030\313 \n\211A@\311#\210\202)\304\207" [current-load-list gnus-dead-summary-mode-map keys boundp nil make-keymap suppress-keymap substitute-key-definition undefined gnus-summary-wake-up-the-dead ("" " " "" [delete]) define-key] 4) #@38 Minor mode for Gnus summary buffers. (defvar gnus-dead-summary-mode nil (#$ . 184908)) #@38 Minor mode for Gnus summary buffers. (defalias 'gnus-dead-summary-mode #[(&optional arg) "\304=\205\"\305\302!\210 \204\n?\202\306 !\307V\211\205\"\310\302\311 #\207" [major-mode arg gnus-dead-summary-mode gnus-dead-summary-mode-map gnus-summary-mode make-local-variable prefix-numeric-value 0 gnus-add-minor-mode " Dead"] 5 (#$ . 185001) "P"]) #@61 Make the current summary buffer into a dead summary buffer. (defalias 'gnus-deaden-summary #[nil "\203\303!\203\212q\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 (#$ . 185360)]) #@36 Kill or deaden the summary BUFFER. (defalias 'gnus-kill-or-deaden-summary #[(buffer) "\212\306!\203I \204I\212q\210\n\211\211\205#;\203 \307\202!\306!)\203+\310 !\210)\f\211\211\205@;\203=\307\202>\306!)\203H\310 !\210* \203\221 \203r\211\205d;\203a\307\202b\306!)\203r\212q\210\311\f!\210)\211\211\205\206;\203\203\307\202\204\306!)\205\215\310 !)\202\256\211\205\243;\203\240\307\202\241\306!)\205\256\212q\210\312 ))\207" [buffer gnus-single-article-buffer gnus-article-buffer buf gnus-original-article-buffer gnus-kill-summary-on-exit buffer-name get-buffer kill-buffer gnus-tree-close gnus-deaden-summary gnus-use-trees gnus-newsgroup-name] 3 (#$ . 185768)]) #@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 (#$ . 186490) nil]) #@112 Fetch the FAQ for the current group. If FAQ-DIR (the prefix), prompt for a directory to search for the faq in. (defalias 'gnus-summary-fetch-faq #[(&optional faq-dir) "\303\304 \n\"\211\205\305\306!)\207" [gnus-faq-buffer gnus-newsgroup-name faq-dir nil gnus-group-fetch-faq gnus-configure-windows summary-faq] 3 (#$ . 186851) (list (when current-prefix-arg (completing-read "Faq dir: " (and (listp gnus-group-faq-directory) (mapcar (lambda (file) (list file)) gnus-group-faq-directory)))))]) #@33 Describe the current newsgroup. (defalias 'gnus-summary-describe-group #[(&optional force) "\302 \"\207" [force gnus-newsgroup-name gnus-group-describe-group] 3 (#$ . 187354) "P"]) #@41 Describe summary mode commands briefly. (defalias 'gnus-summary-describe-briefly #[nil "\300\301\302\303!\"\207" [gnus-message 6 substitute-command-keys "\\\\[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"] 4 (#$ . 187542) nil]) #@217 Exit current newsgroup and then select next unread newsgroup. If prefix argument NO-ARTICLE is non-nil, no article is selected initially. If NEXT-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\234\fq\210\312 !\210 \2060\313=\203*\314!\2020\315\"\211\204a\316\317\320\"\210\311\n\211\205P\321!\205P\322\321!!)\203Z\nq\210\310 \210\323\324!\210\202 \312 !\210\325 \211\311=\204{\203\224\326!\204\224\327 \307\322\n!\205\207\n\307&\203\224\311\202\230 \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" get-buffer buffer-name gnus-run-hooks gnus-group-no-more-groups-hook gnus-group-group-unread zerop gnus-summary-read-group gnus-keep-same-level backward buffer unreads no-article] 8 (#$ . 187986) "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 (#$ . 189115) "P"]) #@156 Go to the first unread subject. If UNREAD is non-nil, go to the first unread article. Returns the article selected or nil if there are no unread articles. (defalias 'gnus-summary-first-subject #[(&optional unread undownloaded) "\204 \306\307\310\"\210\311\202\\ \204\312@8b\210@@\202\\\n\204*\306\307\313\"\210\311\202\\\211\203N\f\203= @A@=\204N @A@ U\204N A\211\2040 \205[\312 @8b\210 @@)\314 \210\207" [gnus-newsgroup-data unread gnus-newsgroup-unreads data undownloaded gnus-undownloaded-mark gnus-message 3 "No articles in the group" nil 2 "No more unread articles" gnus-summary-position-point gnus-unread-mark] 4 (#$ . 189410) "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 (#$ . 190077) "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 (#$ . 190788) "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 (#$ . 190954) "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 (#$ . 191202) "p"]) #@95 Go the subject line of ARTICLE. If FORCE, also allow jumping to articles not currently shown. (defalias 'gnus-summary-goto-subject #[(article &optional force silent) "` \236\n\204%\f\203%\306\f\247\204\307\f!\205\f\310#\203% \236 b\210\n\204: \2046\311\312\313#\210\314\202C\315\n8b\210\316 \210*\207" [article gnus-newsgroup-data data b force silent gnus-summary-insert-subject vectorp t gnus-message 3 "Can't find article %d" nil 2 gnus-summary-position-point] 4 (#$ . 191372) "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 (#$ . 191898) "P"]) #@36 Display ARTICLE in article buffer. (defalias 'gnus-summary-display-article #[(article &optional all-header) "\211\205\306 !\205\307\306 !!)\203rq\210\310 \210)\311 \210\n\205b \203/ \n\f\"\2023\312\n\f\"\313\314!\210 \203E\315 !\204E\316 !\210\317 \210\203Z\203Z\320\n!\210\321\n!\210\322\n\236A!\210\207" [gnus-article-buffer buffer article gnus-summary-display-article-function all-header gnus-current-article get-buffer buffer-name mm-enable-multibyte-mule4 gnus-set-global-variables gnus-article-prepare gnus-run-hooks gnus-select-article-hook zerop gnus-summary-goto-subject gnus-summary-recenter gnus-possibly-generate-tree gnus-highlight-selected-tree gnus-article-set-window-start gnus-use-trees gnus-show-threads gnus-newsgroup-bookmarks] 5 (#$ . 192197)]) #@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!\210\212 q\210\203e\203{\203{\320!\203{\nA=\203{@\232\203{\204v\203{\n=\203{\203\277\321\n\f\"\210\211\205\225\320!\205\225\322\320!!)\203\247rq\210\204\246\323 \210)\f\204\260 \203\263\324 \210\325\n!\236A!\210\n\202\314\f\204\310 \203\313\324 \210\326,\207" [major-mode gnus-summary-buffer article to all-headers gnus-summary-display-article-function gnus-summary-mode get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject nil gnus-summary-article-pseudo-p error "This is a pseudo-article" get-buffer gnus-summary-display-article buffer-name mm-disable-multibyte-mule4 gnus-article-show-all-headers gnus-article-set-window-start old pseudo gnus-single-article-buffer gnus-current-article gnus-article-current gnus-article-buffer gnus-newsgroup-name force buffer gnus-article-decoded-p gnus-show-all-headers gnus-newsgroup-bookmarks] 4 (#$ . 192992)]) #@20 Obsolete function. (defalias 'gnus-summary-set-current-mark #[(&optional current-mark) "\300\207" [nil] 1 (#$ . 194405)]) #@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 \n#\203G\307\310`\311\"\211\203\312 !\210)\310`\313\"\206 \314 !\204D\310`\311\"\211\2031\312 !\210)\310`\313\"\206;\314 \f\236A@ =\203G\315 \207 \203]+\203]\316 \203]\315 \210\317\320\321\"\207,\203\204 \204\322\n\203u-S\202x.T\323\324e`\"#\207\325/!\204\213\326/!\2100\2121q\210`)2\327=\203\242\330/!\202\247\331\n2\"345\332\333p!!\2106\203\2755\204\315\317\334\335\203\310\336\202\311\337#\202-6\340=\204\3546\341=\203\3407\204\3546\342=\203\343 \203\325/!\203\370\344 \202-\317\334\345\203\336\202\3373\203\3463P\202\347$\210\350\3233\n#\202-\3518!\205-\352/5\n4%+\207" [unread subject backward to gnus-newsgroup-data gnus-canceled-mark 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 select-window get-buffer-window 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 gnus-summary-walk-group-buffer gnus-auto-select-same gnus-auto-extend-newsgroup gnus-newsgroup-begin gnus-newsgroup-end gnus-newsgroup-name last-command-char gnus-group-buffer gnus-keep-same-level group point cmd gnus-auto-select-next push last-input-event] 7 (#$ . 194534) "P"]) (defalias 'gnus-summary-walk-group-buffer #[(from-group cmd unread backward start) "\306\307\310\211\211\211\212q\210b\210 \311=\203#\312!!\202)\313\" \")?\205\312\314\315\316#\203<\317\202=\320 \203Z\321!!\204Z\322\323\324$! \325 %\"J@$\202c\322\326\324$!!#$\210\327 \211@\307\n \236\203\236p&\330!\210 \203\203\331 !\210\332\n \236\211'A@)!\210\333 \330&!\210)\310\211\202,\n$\232\203\300 \203\260\321!!\203\266\334 \210\202+\335\310 \"#\210\202+ A(B(\202+.\207" [ended group key keve cursor-in-echo-area keystrokes ((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 gnus-message 5 "No more%s articles%s" " unread" "" gnus-ephemeral-group-p format " (Type %s for %s [%s])" single-key-description 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 gnus-group-buffer start gnus-keep-same-level gnus-newsgroup-name backward unread cmd gnus-newsrc-hashtb obuf x unread-command-events] 12]) #@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 (#$ . 197609) nil]) #@100 Select the article after 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 (#$ . 198170) "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 (#$ . 198426) nil]) #@293 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. (defalias 'gnus-summary-next-page #[(&optional lines circular) "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\337\325 \210\202\337'\203o(\203o (AU\203o(@)\232\204v\326 !\210\202\337\f\203\337\327 *\n+\314+\330\",\331\216,\203\235\332,!\210\333,!q\210\202\242\334+!\210\335-!, \203\337.\203\267\336 \210\202\337-\203\304\337\340\341\"\210\202\337-\204\337&\322=\203\334\323 !\204\334\324 \210\202\337\325 \210\342 \210\343 +\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 visible ((select-window #1=#:GnusStartBufferWindow)) select-window window-buffer pop-to-buffer gnus-article-next-page gnus-summary-beginning-of-article gnus-message 3 "End of message" 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 circular] 5 (#$ . 198989) "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 \" #\313#\322\"$\323\216$\203n\324$!\210\325$!q\210\202s\326#!\210\327%!,&\203\252\n\203\252%\203\217\330\331\332\"\210\202\252%\204\252'\333=\203\247\334\f!\204\247\335 \210\202\252\336 \210+\337 \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 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 (#$ . 200715) "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 (#$ . 202045) "P"]) #@119 Scroll up (or down) one line current article. Argument LINES specifies lines to be scrolled up (or down if negative). (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 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 (#$ . 202342) "p"]) #@119 Scroll down (or up) one line current article. Argument LINES specifies lines to be scrolled down (or up if negative). (defalias 'gnus-summary-scroll-down #[(lines) "\301[!\207" [lines gnus-summary-scroll-up] 2 (#$ . 203160) "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 (#$ . 203397) 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 (#$ . 203823) 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 (#$ . 204253) 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 (#$ . 204691) 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 (#$ . 205133) 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 (#$ . 205617) 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 (#$ . 205939) nil]) #@51 Select the unread article with the highest score. (defalias 'gnus-summary-best-unread-article #[nil "\306\307\211 \2039 @A@ U\2032 @@ \236A\206%\206%\310\211\fV\2032  @@ A\211\204\f\n\203C\311\n!\202F\312\313!\314 \210,\207" [gnus-newsgroup-data score article data best gnus-unread-mark -1000000 nil 0 gnus-summary-goto-article error "No unread articles" gnus-summary-position-point gnus-newsgroup-scored gnus-summary-default-score] 5 (#$ . 206391) 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 (#$ . 206872)]) #@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 "@" 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 (#$ . 207130) (list (completing-read "Article number or Message-ID: " (mapcar (lambda (number) (list (int-to-string number))) 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 (#$ . 207984) 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 (#$ . 208212) "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 (#$ . 208582) "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 (#$ . 208924) "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 (#$ . 209312) (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 (#$ . 209979) (list (read-string (if current-prefix-arg "Exclude author (regexp): " "Limit to author (regexp): ")) current-prefix-arg)]) #@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\203O\310\311\f8!\203\311\f8\311H\211\203\312\313\307\314\315\217!\"\203B\n\202D\n?\203\f@ B\202\316 \237!.\317 \210\207" [gnus-newsgroup-data age is-younger date d articles days-to-time nil vectorp 3 time-less-p time-since (date-to-time date) ((error '(0 0))) gnus-summary-limit gnus-summary-position-point cutoff data younger-p] 6 (#$ . 210423) (let ((younger current-prefix-arg) (days-got nil) days) (while (not days-got) (setq days (if younger (read-string "Limit to articles within (in days): ") (read-string "Limit to articles old than (in days): "))) (when (> (length days) 0) (setq days (read days))) (if (numberp days) (setq days-got t) (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 (#$ . 211465) (let ((header (intern (gnus-completing-read (symbol-name (car gnus-extra-headers)) (if current-prefix-arg "Exclude extra header:" "Limit extra header:") (mapcar (lambda (x) (cons (symbol-name x) x)) gnus-extra-headers) nil t)))) (list header (read-string (format "%s header %s (regexp): " (if current-prefix-arg "Exclude" "Limit to") header)) current-prefix-arg))]) (byte-code "\300\301\302\"\210\303\301\302\"\207" [defalias gnus-summary-delete-marked-as-read gnus-summary-limit-to-unread make-obsolete] 3) #@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-kill-file-mark gnus-low-score-mark gnus-expirable-mark gnus-canceled-mark gnus-catchup-mark gnus-sparse-mark gnus-duplicate-mark gnus-souped-mark] 13 (#$ . 212400) "P"]) (byte-code "\300\301\302\"\210\303\301\304\"\207" [defalias gnus-summary-delete-marked-with gnus-summary-limit-exclude-marks make-obsolete gnus-summary-limit-exlude-marks] 3) #@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 (#$ . 213142) "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 @@\nB A\211\204\307\n!+\310 \210\207" [gnus-newsgroup-data marks articles data reverse append nil gnus-summary-limit gnus-summary-position-point] 5 (#$ . 213539) "sMarks: \nP"]) #@49 Limit to articles with score at or above SCORE. (defalias 'gnus-summary-limit-to-score #[(&optional score) "\203\n\306!\202 \206\307\n\310\211\2038\f@@ \236A\206& \206&\307Y\2031\f@@ B\fA\211\204\311 !\312 \210*\207" [score gnus-summary-default-score gnus-newsgroup-data articles data gnus-newsgroup-scored prefix-numeric-value 0 nil gnus-summary-limit gnus-summary-position-point] 3 (#$ . 214144) "P"]) #@61 Display all the hidden articles that in the current thread. (defalias 'gnus-summary-limit-include-thread #[(id) "\303\304\305!!!\306 \n\244!\307 \210)\207" [id articles gnus-newsgroup-limit gnus-articles-in-thread gnus-id-to-thread gnus-root-id gnus-summary-limit gnus-summary-position-point] 4 (#$ . 214573) (list (mail-header-id (gnus-summary-article-header)))]) #@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 (#$ . 214947) nil]) #@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 (#$ . 215384) 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\203V A@\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 (#$ . 215603) 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\311\"\312\"\307 \312\"\"\313\314\f \" \203,\313\313\310\315 \"\244\211\202P \211A@\211\205P\n>\204,\n>\204,\nBB\202,*\207" [gnus-newsgroup-headers gnus-newsgroup-limit article articles gnus-newsgroup-unreads all gnus-sorted-complement sort mapcar #[(h) "\301H\207" [h 0] 2] < nil gnus-intersection #[(n) " B\207" [n gnus-catchup-mark] 2] gnus-newsgroup-dormant gnus-newsgroup-marked gnus-newsgroup-reads gnus-catchup-mark] 5 (#$ . 216110) "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\203O\203O\315 \210\203s\203s\310@@\313\316#\203j\313\316A\211\204Y\204~db\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-hide-all-threads t gnus-summary-find-prev gnus-set-mode-line summary to found gnus-summary-mark-below data total gnus-show-threads gnus-thread-hide-subtree] 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 (#$ . 217720)]) (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\262 A\211\204\265\315)\204D\f)\240\210 A\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 (#$ . 218473)]) #@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) "\2068 ?\2058\n\306=?\2058\n\247?\2058\n\307=?\2058 ?\2058\f\306=?\2058\f\310=?\2058 ?\2058\f??\205a B\311 \312\313\"\210 \204_\203_\211A@  \207" [gnus-inhibit-limiting gnus-newsgroup-dormant gnus-fetch-old-headers gnus-summary-expunge-below gnus-build-sparse-threads gnus-thread-expunge-below 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-use-nocem gnus-newsgroup-limit gnus-newsgroup-limits gnus-newsgroup-dependencies show-if-empty] 3 (#$ . 219273)]) #@59 Return 1 if this subthread is visible and 0 if it is not. (defalias 'gnus-summary-limit-children #[(thread) "\205\325A\203\306\307\310\311A\"\"\202\312@\312H\313\n\f>\204\315\n >\203/\314 !\204\311\315=\204<\247\203I\n>\203I\314 !\204\311\316=\203W\n>\204\311\315=\203k\n>\203k\314 !\204\311\203\264\n\236A\206z\211W\203\264T\203\311 W\203\311\317\n\"\203\250\nB\202\311\nB B \202\311!\203\315\320@\321H!\203\315\317\n\"\312\202\324\n\"B\"\322+\207" [thread score number children gnus-newsgroup-marked gnus-newsgroup-dormant apply + mapcar gnus-summary-limit-children 0 nil zerop some invisible delq gnus-nocem-unwanted-article-p 4 1 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-use-nocem gnus-newsgroup-limit] 5 (#$ . 220236)]) #@38 Mark all articles in THREAD as read. (defalias 'gnus-expunge-thread #[(thread) "@\306H\nT\307 \"\f\203 B\202! \nB B )\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 (#$ . 221359)]) #@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\365\n\204\365\313\314`\315\"\211\203,\316 !\210)\314`\317\"\2066\320 \2368\211\312H A=\203h! @\232\203h\212\"q\210\321 \210\322\323!\211\204b\322\324!~\210)\202l \325H\203\320\326\232\204\320\327 \211#\205\303##\312\307$%\330\331#%#\203\246#\312\224\312\225\211%O$B$\202\212$\237+$\f\206\261\306$\233\203\277$A$\202\254$@)*!\204\356\332\306\333\"\210\202\356\332\306\334\314`\315\"\211\203\340\316 !\210)\314`\317\"\206\352\320 #\210\335\fS\211\202\336 \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" 5 "" gnus-summary-refer-article string-match "<[^>]+>" 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 (#$ . 221728) "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 (#$ . 223020) nil]) #@175 Fetch all articles in the current thread. If LIMIT (the numerical prefix), fetch that many old headers instead of what's specified by the `gnus-refer-thread-limit' variable. (defalias 'gnus-summary-refer-thread #[(&optional limit) "\306\307`\310\"\211\203\311!\210)\307`\312\"\206\313 \2368\314H\n\203'\315\n!\202( \n\247\2036\n Z\\\316=\204a\317\320\321#\210\322 C\n#\323=\203V\324 \210\202Z\325\326!\210\317\320\327#\210\330\f!*\207" [to gnus-newsgroup-data limit gnus-refer-thread-limit id gnus-newsgroup-end 3 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 4 prefix-numeric-value invisible gnus-message 5 "Fetching headers for %s..." gnus-retrieve-headers nov gnus-build-all-threads error "Can't fetch thread from backends that don't support NOV" "Fetching headers for %s...done" gnus-summary-limit-include-thread gnus-newsgroup-begin gnus-fetch-old-headers gnus-newsgroup-name] 5 (#$ . 223743) "P"]) #@43 Fetch an article specified by MESSAGE-ID. (defalias 'gnus-summary-refer-article #[(message-id) ";\205c\306G!?\205c\307\310\"\204\311P\307\312\"\204#\313P\314!\211\2058 \315H\n>\2058 \315H >\316 \203_ \315H\n>\203K\f\203_\317 \315H\316\320#\f\203b\321 \315H!\210\202b\322\323\215+\207" [message-id header gnus-newsgroup-sparse gnus-newsgroup-limit sparse number zerop string-match "^<" "<" ">$" ">" gnus-id-to-header 0 nil gnus-summary-goto-article t gnus-summary-update-article found (byte-code "\304 \305\211\203+ @\306!\210\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=#:--dolist-temp--97323 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 (#$ . 224731) "sMessage-ID: "]) #@38 Return a list of referrable 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=#:--dolist-temp--97324] 3 (#$ . 225651)]) #@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 (#$ . 226046) 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 (#$ . 226237) nil]) #@144 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. (defalias 'gnus-summary-enter-digest-group #[(&optional force) "\212\306 \210) \307\310\311\n\312\313D\"\212 q\210\f)#\n-\314\315\316\317-.\"J88\320-BC\321-BC#/\3220p1\3232\323\2123q\210\324\325!\206O\324\326!\211\203a\314\3274!BC!/\330\331!2\3323!\210eb\333\334\323\322#\206v`}\210eb\210\335\336!\210~\210)\337\2165678\340 \312 \341\3422!D\3439\203\240\344\202\241\345DF\322#*\203\271\315\316\317 .\"J88/\244\202\311\3461!\210\347 \210\350\351!\210\352\353\354\". \207" [gnus-current-window-configuration conf gnus-newsgroup-name gnus-summary-buffer gnus-current-article name gnus-summary-select-article format "%s-%d" gnus-group-prefixed-name nndoc "" append 5 2 intern-soft to-group save-article-group t nil message-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 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-word-function gnus-newsgroup-charset gnus-newsgroup-ignored-charsets gnus-newsgroup-ephemeral-ignored-charsets gnus-newsgroup-ephemeral-charset force] 7 (#$ . 226426) "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!\n\307\310\311\312 \f\"J88\313 BC\"\314+\314,\314-\314.\314/ \211A@\211+\203\233\315\316\n+#,\317+!\210\320+!\203%\212\321\322\323!!0\324\216r0q\210\3251!\210\326 \210eb\210\327\330!\210~\210\331,\332,\333pD\334BBB\335\314\335%\211-\203\222\310\311\312-\f\"J88 \244\210-.B.\202\227\336\337\340\"\210,\202%.\204\246\341\342!\202\306\331\315\343\n\344\345\346 \"#\211/\347/\350.DE\335p\351B$\206\306\341\352!.\207" [n articles gnus-newsgroup-name ogroup gnus-newsrc-hashtb params gnus-summary-work-articles append 5 2 intern-soft to-group nil format "%s-%d" gnus-summary-remove-process-mark gnus-summary-display-article get-buffer-create generate-new-buffer-name " *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" article group egroup groups vgroup #1# gnus-original-article-buffer] 7 (#$ . 228018) "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 get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer isearch-forward] 3 (#$ . 229574) "P"]) #@88 Search for an article containing REGEXP forward. If BACKWARD, search backward instead. (defalias 'gnus-summary-search-article-forward #[(regexp &optional backward) "\303\230\203 \206 \303\202\304\n\"\203\305 \207\306\307\"\207" [regexp gnus-last-search-regexp backward "" gnus-summary-search-article gnus-summary-show-thread error "Search failed: \"%s\""] 3 (#$ . 230150) (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 (#$ . 230748) (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\211p\311\211\211%&'(\312 )\313\216\212\314 \210*q\210\315\316p!!b\210+\203=\317y\210 \204\327\320\321\322,A#\210+\203W\323-\311\324#\202]\325-\311\324#\203~\301\326 \210\327\316p!`\"\210\330y\210\331\316p!`\"\210 q\210`\202= q\210\332 \332=\203=+\203\223\333 \202\225\334 \204\236\324\211\202\204\335`\336\"\211.\203\255\337.!\210)\335`\340\"\206\267\341 />\204\203\311\314 \210*q\210~\210+\203\321d\202\322eb\210\202\203\320\321\342\"\210+ \301=\205\362b\210\343 \210\3370!\210\344 \210\324.\n\207" [point found gnus-display-mime-function sum gnus-use-trees gnus-xmas-force-redisplay 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-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] 11 (#$ . 231101)]) #@404 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=#:--dolist-temp--97325 unread gnus-unread-mark not-matching regexp] 7 (#$ . 232768)]) #@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 "\304\305\306\307!#\210\310 \n\311\312\313!DD $\210\304\305\314\307!#\207" [command header regexp backward gnus-message 6 "Executing %s..." key-description gnus-execute call-interactively quote key-binding "Executing %s...done"] 7))] 2 (#$ . 234275) (list (let ((completion-ignore-case t)) (completing-read "Header name: " (mapcar (lambda (string) (list string)) '("Number" "Subject" "From" "Lines" "Date" "Message-ID" "Xref" "References" "Body")) nil '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-page-broken gnus-summary-select-article gnus-configure-windows article selected-window get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer gnus-narrow-to-page] 3 (#$ . 235248) 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-page-broken gnus-summary-select-article gnus-configure-windows article selected-window get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer recenter -3 gnus-narrow-to-page] 3 (#$ . 235764) nil]) #@444 Generate and print a PostScript image of the N next (mail) 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\203~\n@\310\307\211\311 $\210\312 \f\313 \314\"!\315\216!\2034\316!!\210\317!!q\210\2028\320 !\210\321\322!\"\323\216\324\"ed#\210\"q\210\325 \210\326#\327H\330Q\326#\331H\330QD\332\326#\333H\330QD$%\334\335!\210\212\336 \210. \337 !\210\nA\211\204\n*\340&!\207" [n article #1=#:--dolist-temp--97326 #2=#:GnusStartBufferWindow gnus-article-buffer #3=#:buf gnus-summary-work-articles nil gnus-summary-select-article pseudo selected-window get-buffer-window visible ((select-window #2#)) select-window window-buffer pop-to-buffer generate-new-buffer " *print*" ((kill-buffer buffer)) copy-to-buffer gnus-article-delete-invisible-text "(" 1 ")" 2 "/pagenumberstring load" 3 gnus-run-hooks gnus-ps-print-hook ps-spool-buffer-with-faces gnus-summary-remove-process-mark ps-despool #4=#:w buffer gnus-current-headers ps-right-header ps-left-header filename] 6 (#$ . 236292) (list (ps-print-preprint current-prefix-arg))]) #@309 Force re-fetching 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 inputed. If ARG (the prefix) is non-nil and not a number, show the raw article without any article massaging functions being run. (defalias 'gnus-summary-show-article #[(&optional arg) "\247\203 \236A\206\306\307!\310\311\312\313\"\210*\202l\204'\311\312\313\"\210\202l\314\315!\210\314\316!\210\317\312\211\211\211\211\205Q\320!\205Q\321\320!!)\203f\212q\210\322!\210\312\312)\311\312\313\"\210-\323!\210\324 \207" [arg gnus-summary-show-article-charset-alist gnus-newsgroup-ignored-charsets gnus-newsgroup-charset gnus-break-pages gnus-display-mime-function read-coding-system "Charset: " gnus-all gnus-summary-select-article nil force require gnus-async gnus-art t get-buffer buffer-name mm-destroy-parts gnus-summary-goto-subject gnus-summary-position-point gnus-article-decode-hook gnus-article-prepare-hook gnus-have-all-headers gnus-article-buffer buffer gnus-article-mime-handles gnus-article-mime-handle-alist gnus-current-article] 6 (#$ . 237760) "P"]) #@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 (#$ . 238949) "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) "\212q\210\214\306\307\306\306 \247\203 \310Y\202 \214\311 \210\312\313!)eb\210\314\315\306\307#\2031e`S|\210eb\210\212q\210eb\210\314\315\306\307#\206EdS)\316\317\f#\210\214e`}\210\320 \210 \203p\306\211\321\313\"\322\323!\210*\202t\322\323!\210)\324\325!.\207" [gnus-article-buffer buffer-read-only inhibit-point-motion-hooks hidden e arg nil t 0 article-narrow-to-head gnus-article-hidden-text-p headers search-forward "\n\n" insert-buffer-substring 1 article-decode-encoded-words delq gnus-treat-article head gnus-set-mode-line article gnus-original-article-buffer gnus-treat-hide-boring-headers gnus-treat-hide-headers gnus-article-wash-types] 4 (#$ . 239311) "P"]) #@32 Make all header lines visible. (defalias 'gnus-summary-show-all-headers #[nil "\300 \207" [gnus-article-show-all-headers] 1 (#$ . 240254) nil]) #@120 Caesar rotate the current article by 13. The 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!\210\322\311p!\".\207" [mail-header-separator #1=#:GnusStartBufferWindow gnus-article-buffer #2=#:buf #3=#:w buffer-read-only gnus-summary-select-article "" selected-window get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer window-start nil message-caesar-buffer-body set-window-start start arg] 3 (#$ . 240405) "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)\320\211,\207" [#1=#:GnusStartBufferWindow gnus-article-buffer #2=#:buf #3=#:w buffer-read-only gnus-page-broken gnus-summary-select-article selected-window get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer gnus-visual-p page-marker nil gnus-remove-text-with-property gnus-prev gnus-next] 3 (#$ . 241066) nil]) #@659 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. 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\307\310\213\210)\306=\203%\311\n\312\313\314\217*\204%\315\316!\210\202;\317=\203;\320\n\321\322\323\217*\204;\315\324!\210\325 !\311\n\326\327\330\217*\203P\331\n!\202Q\332\333\212\334\335!)\307\211\211\211\211@ABCDEFGHF\236\204z\315\336\"\210I\204\247J\204\247\337F\236\211KA@)\340\341\342\"!JHG$I\340\341\342\"!IL\210J\206\262\343\344I!!C\345C@\346\347\350\217*\204\311\315\351C@\"\210\352C!\204\327\315\353C@\"\210\354\355\356F\236\211KAA)@J@\206\355IH%\210H\203\321H\211AH@A\306=\203'\357A!\210\360A\n\361\n!A@\362I\363JDH?\364\257H?%\202\341\365=\203H\212Eq\210\366A\n\"\205D\362IJH?\364$)\202\341\317=\205\341\367\370AL\2368\371H\372\"M\nN\373\374N\"\203pN\375\225\307O\202rN)\376AQBM\204\203\377 CM\201f\201g\201h\201i\201hBM\"\"\372#\372BQB\212Eq\210\366A\n\"\210\362IJH?#\211D:\205\340B\372D@\376DA\260B\201j\201kB\"\210\201lDAIp#\210D*\211D\204\354\201m\201nF\236\211KA@)A\201oC@!%\210\202\307D\201p=\203,\306=\203\307\201qAO\"\210\354\201r\201sA#\210\202\307\201tD@C\"P\201uPQ\"JR\201vR8\211S@T\307US\203\207\201w>\203\207T@\235\204mT@B@AV>\204\221\201xUBUSAA\201y\201vS8DAC\"\240\210WDAXYZ\203\267\201zTXA[>A\\>AV>%\210]\203iT\n\232\203\350AV>\204\350X^B_B_\201uT`\"JX\241\210aX\241\210Y\203XA\340\341\201{Y\211K@@)\"!J>\203OY\211K@A)UBUT\n\232\203;\340\341\201{Y\211K@@)\"!X\340\341\201{Y\211K@@)\"!JBL\210\201|TY\211K@A)XCS$\210YA\211Y\204\355\201}TXC\201~UEC\"\210\201\201\200\201\201\201v\201uTQ\"J8!\201\202Q!\210*\317=\203\254\212Eq\210\366A\n\"\210\201j\201kB\"\210\201lA\np#\210)-bq\210\201\203A!\210\306=\203\307\201qAO\"\210\201\204A!\210\202\361@\203\373\212cq\210\201\205@@\364\"\203\357\201\206\201m\364\"\210@\211A@@\210)\202\321E\211d\211e\205e;\203\201\207\202\201\210e!)\203#\201\211d!\210)\201\212 \210\201\213\201\214!. \207" [action gnus-mark-article-hook gnus-newsgroup-name group func n move nil ((gnus-summary-select-article)) request-move-article #1=#:G97328 (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 group does not support article moving" crosspost request-replace-article #2=#:G97329 (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)) "The current group does not support article editing" gnus-summary-work-articles #3=#:G97330 (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-real-prefix "" ((move "Move" "Moving") (copy "Copy" "Copying") (crosspost "Crosspost" "Crossposting")) nnheader-set-temp-buffer " *copy article*" "Unknown action %s" gnus-read-move-group-name intern format "gnus-current-%s-group" gnus-server-to-method gnus-group-method request-accept-article #4=#:G97327 (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)) "%s does not support article copying" gnus-check-server "Can't open server %s" gnus-message 6 "%s to %s: %s..." gnus-dup-unsuppress-article gnus-request-move-article gnus-find-method-for-group gnus-request-accept-article quote t copy gnus-request-article-this-buffer message-tokenize-header 3 8 " " string-match "^[^:]+:" 0 ":" system-name to-groups article new-xref to-method art-group copy-buf names prefix articles to-newsgroup select-method x gnus-newsgroup-data xref gname gnus-canceled-mark pto-group gnus-newsrc-hashtb entry info to-group to-marks gnus-newsgroup-unreads gnus-article-mark-lists to-article marks gnus-use-cache gnus-newsgroup-marked gnus-newsgroup-dormant gnus-preserve-marks gnus-read-mark gnus-newsgroup-reads gnus-active-hashtb gnus-newsgroup-active gnus-summary-buffer gnus-group-buffer buf buffer 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 4 "Deleted article %s" gnus-group-prefixed-name intern-soft 2 (move copy) read gnus-add-to-range gnus-cache-possibly-enter-article "gnus-newsgroup-%s" gnus-add-marked-articles gnus-request-set-mark set gnus-dribble-enter "(gnus-group-set-info '" gnus-prin1-to-string ")" gnus-summary-goto-subject gnus-summary-remove-process-mark gnus-group-goto-group gnus-group-get-new-news-this-group get-buffer buffer-name kill-buffer gnus-summary-position-point gnus-set-mode-line summary] 10 (#$ . 241653) "P"]) #@219 Move the current article to a different newsgroup. 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. (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 (#$ . 247418) "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 (#$ . 247826) "P"]) #@88 Default method for respooling an article. If nil, use to the current newsgroup method. (custom-declare-variable 'gnus-summary-respool-default-method 'nil '(#$ . 248032) :type '(choice (gnus-select-method :value (nnml "")) (const nil)) :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 (#$ . 248301) (list current-prefix-arg (let* ((methods (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 methname "What backend do you want to use when respooling?" methods nil t nil 'gnus-mail-method-history)) 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 (completing-read "Server name: " ms-alist nil t) ms-alist)))))))]) #@49 Import an arbitrary file into a mail newsgroup. (defalias 'gnus-summary-import-article #[(file) "\306 \307\211\310\f\311\312\313\217*\204\314\315\f\"\210\316)!\204.\317)!\203.\314\320)\"\210\212\321\322!q\210\323 \210\324)!\210eb\210\325 \204r\326)!\327ed\"\330\331\330!\332\333\331\333!\332\334\335\336\n8!\332\337\340 \332\341\342 !\332\343\342\344\n8!\345\261\210\346\f\307\347#\210\350p!-\207" [gnus-newsgroup-name lines atts now group func current-time nil request-accept-article #1=#:G97331 (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 file-attributes count-lines "From: " read-string "\n" "Subject: " "Date: " message-make-date 5 "Message-ID: " message-make-message-id "Lines: " int-to-string "Chars: " 7 "\n\n" gnus-request-accept-article t kill-buffer file] 19 (#$ . 249961) "fImport file: "]) #@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 (#$ . 251135) nil]) #@72 Expire all articles that are marked as expirable in the current group. (defalias 'gnus-summary-expire-articles #[(&optional now) "\306\307\310\311\217*\205\260\312!\211\203!\313\314!\210\315 \210\316!\202'\317\f\320\"\211\2031\321\2025\322\323\"\322\324\"\206@  \325! \205\257\326\327\330\"\210\331!\204Y\332\333\"\210\212\203p\325\"#\334 \"!*\202v\334 \"!) \204~!! =\204\253\325$ \203\252 @!>\204\243 @%\236\203\243\335 @&\"\210 A\211\204\214)\326\327\336\"-\207" [gnus-newsgroup-name group func total gnus-newsgroup-expirable expirable request-expire-articles #1=#:G97332 (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 nil gnus-message 6 "Expiring articles..." gnus-check-group error "Can't open server for %s" gnus-request-expire-articles gnus-summary-mark-article "Expiring articles...done" now nnmail-expiry-target es nnmail-expiry-wait nnmail-expiry-wait-function gnus-use-cache gnus-newsgroup-data gnus-canceled-mark] 4 (#$ . 251800) 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, really sure you want to delete all these messages? " error "Phew!" gnus-summary-expire-articles t] 2 (#$ . 253140) nil]) #@300 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. (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$\203D\324\325\326 G\327V\203>\325\330 G\"\202?\331\"!\203r\332 \333# \203h\334 @!\210 @\f>\204a\335 @%\"\210 A\211\204N\f\203r\336\337\340\f#\210\341 \210\342\343!\210\f*\207" [gnus-newsgroup-name group func n not-deleted articles request-expire-articles #1=#:G97333 (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 < nil 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 gnus-message 4 "Couldn't delete articles %s" gnus-summary-position-point gnus-set-mode-line summary gnus-novice-user gnus-canceled-mark] 7 (#$ . 253578) "P"]) #@283 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. Otherwise, allow editing of articles even in read-only groups. (defalias 'gnus-summary-edit-article #[(&optional arg) "\306\211\n\203\"\n\307=\203\310\202\"\n\311=\203 \310\310\202\"\310\2034 \2044 \312\232\2034\313\314!\210\212\fq\210 \"\315 \210 \204O\316 \203O\313\317!\210\320\310!\210\204y#\211$\205l\321$!\205l\322\321$!!)\203yr#q\210\323 \210) \312\232\203\201\310\324\203\212\325\202\213\326\327\330\331\332\333 DD\334\333\"DDD?\205\240\335\336%\337H\206\251\340\316 \f\341BBBBFE\"-\207" [raw force arg gnus-newsgroup-name gnus-summary-buffer gnus-newsgroup-charset nil 1 t 2 "nndraft:drafts" error "Can't edit the raw article in group nndraft:drafts" gnus-set-global-variables gnus-group-read-only-p "The current newsgroup does not support article editing" gnus-summary-show-article get-buffer buffer-name mm-enable-multibyte-mule4 gnus-article-edit-article ignore #[nil "\302\303 \210\304\305!\210 \306\300!\210)\307\305\310\311\211$)\207" [mml-buffer-list mbl nil mime-to-mml make-local-hook kill-buffer-hook make-local-variable add-hook mml-destroy-buffers t] 5] lambda (no-highlight) let mail-parse-charset quote mail-parse-ignored-charsets (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-ignored-charsets gnus-article-buffer buffer gnus-current-headers] 13 (#$ . 255057) "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) "p\306\307\310!!\311\216r q\210\312!\210\n\204'\313 A @p\314$\204'\315\316!\202\303\f\203\224\317\f\320\"\317\321\322!\2067\323\320\"\232\203\224\212\214\324 \210\325 \326%\306\307\310!!&\327\216r&q\210\330\331 A\"c\210%c\210\332c\210p'\333\212(q\210))\314\"@)\212(q\210 A*\236+\334+\233 \240\210)\335 A \"\210.\202\242,\206\233(q\210\336 A!\210-\204\271\212.q\210/q\210\337 A @p#\210)\340\341\342\"\205\303\343\344!,\207" [buf #1=#:temp-buffer read-only gnus-article-current references header get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-buffer-substring gnus-request-replace-article t error "Couldn't replace article" message-tokenize-header " " message-fetch-field "references" "" message-narrow-to-head buffer-string nil ((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-article gnus-request-article gnus-visual-p summary-highlight highlight gnus-run-hooks gnus-visual-mark-article-hook head #2# nntp-server-buffer gnus-summary-buffer gnus-newsgroup-dependencies gnus-newsgroup-data #3=#:--x--97335 buffer no-highlight gnus-article-buffer gnus-original-article-buffer] 5 (#$ . 256849) 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 (#$ . 258387) (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 \210\212 q\210\214\307 \210\310\311\n\"\f?\205, \203'\312\313\314\315 \316#\"\210\202+\312\317!\210 ,\207" [gnus-mark-article-hook gnus-original-article-buffer trace groups silent nil gnus-summary-select-article message-narrow-to-head nnmail-article-group identity message "This message would go to %s" mapconcat car ", " "This message would go to no groups"] 6 (#$ . 258732) 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 (#$ . 259259) 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 (#$ . 259515) "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 (#$ . 260422) "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 (#$ . 261135)]) #@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) "\304W\305!\304V\203c\n\203.\306\307`\310\"\211\203 \311 !\210)\307`\312\"\206*\313 !\202G\314\307`\310\"\211\203<\311 !\210)\307`\312\"\206F\313 !\203c\315\316 \203T\317\202U\320\321\322#!\203cS\211\202 \304U\204n\323\324\325\"\210\326 \210\327 \210*\207" [n backward unmark to 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 (#$ . 261838) "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 (#$ . 262754) "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 (#$ . 263066) nil]) #@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 (#$ . 263322) "p"]) #@51 Mark ARTICLE replied and update the summary line. (defalias 'gnus-summary-mark-article-as-replied #[(article) " B\303\304\303\305#\205\306!)\207" [article gnus-newsgroup-replied buffer-read-only nil gnus-summary-goto-subject t gnus-summary-update-secondary-mark] 4 (#$ . 263622)]) #@36 Set a bookmark in current article. (defalias 'gnus-summary-set-bookmark #[(article) "\306!\203 \203\n\203 \n@\232\204\307\310!\210\f \236\211\203(\311 \")\f\212q\210\312`\212eb\210\313\314\315\316#\210`)^`\")B B\317\320\321\"\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 search-forward "\n\n" nil t gnus-message 6 "A bookmark has been added to the current article." old] 8 (#$ . 263916) (list (gnus-summary-article-number))]) #@47 Remove the bookmark from the current article. (defalias 'gnus-summary-remove-bookmark #[(article) " \236\211\203\303\n \"\304\305\306\"\202\304\305\307\")\207" [article gnus-newsgroup-bookmarks old delq gnus-message 6 "Removed bookmark." "No bookmark in current article."] 4 (#$ . 264505) (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 (#$ . 264847) "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 (#$ . 265141)]) #@67 Remove the process mark from ARTICLE and update the summary line. (defalias 'gnus-summary-remove-process-mark #[(article) "\302 \"\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] 3 (#$ . 265462)]) #@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 (#$ . 265789)]) #@234 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. Iff 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 E>?\311!\n\206!\307V\203V\312\313\n#\203V\314\315\203@\316\202A\317 \205I \310=?\320#!\203VS\211\202'\307U\204j\321\322\323\n\203g\324\202h\325#\210\326 \210\327 \210\330\331!\210,\207" [n gnus-summary-goto-unread mark gnus-unread-mark gnus-ticked-mark gnus-dormant-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-del-mark backward no-expire] 6 (#$ . 266047) "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\" BB\2038\314 !\210\315 #\203[ >\203[\315 # B\316 \317\"\210)\320\207" [to article gnus-newsgroup-unreads gnus-newsgroup-marked gnus-newsgroup-dormant mark 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 gnus-newsgroup-reads gnus-use-cache gnus-newsgroup-name gnus-newsgroup-auto-expire gnus-auto-expirable-marks gnus-expirable-mark gnus-newsgroup-expirable] 5 (#$ . 266983)]) #@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\261 \315X\203=\316\317\320\"\210\321\202\261\322 \"\322 \"\322 \"\322 \" U\203i B\202 U\203y B\202 B\322 \236\"\203\253\323\324 \n\2368!\203\253\212\325\f U U  U%\210)\326 \327\"\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 vectorp 3 gnus-cache-possibly-enter-article gnus-summary-update-mark unread gnus-newsgroup-marked gnus-newsgroup-dormant gnus-newsgroup-expirable gnus-newsgroup-reads gnus-ticked-mark gnus-dormant-mark gnus-newsgroup-unreads gnus-use-cache gnus-unread-mark] 8 (#$ . 267732)]) #@327 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. Iff 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\320\204d\316\317!\210U\204yU\204y U\203\201\320\"\202\206\321\"\204\215\315\202\320!\203\272\"U\204\272\322\323\2368!\203\272\212\324U UU%\210)\311\325\315#\205\320\325#\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-dormant-mark gnus-use-cache gnus-canceled-mark buffer-read-only] 8 (#$ . 268729)]) #@51 Update the secondary (read, process, cache) mark. (defalias 'gnus-summary-update-secondary-mark #[(article) "\306 >\203 \n\202. >\203\f\202. >\203 \202.>\203,\202.\307\"\210\310\311\312\"\203<\313\314!\210\315\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-run-hooks gnus-summary-update-hook t gnus-replied-mark gnus-newsgroup-saved gnus-saved-mark gnus-unread-mark] 3 (#$ . 270160)]) (defalias 'gnus-summary-update-mark #[(mark type) " \236A\306\307\310\311 \312#\210 \205[\313\314!\203 T `\\dX\205[ `\\b\210\315``T\306f\f$\210\316=\205[\317`\320\"\211\203D\321 !\210)\317`\322\"\206N\323 \236A\f\240\210\324\f=!*\207" [type gnus-summary-mark-positions buffer-read-only forward mark to nil re-search-backward "[\n ]" gnus-point-at-bol move-to-limit looking-at " " subst-char-in-region unread get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-update-line 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 \fB\202\306 \f\"\306 \"\306  \" \306 \n\"\n B B \f\203<\307 !\210)\310\207" [mark gnus-del-mark gnus-expirable-mark article gnus-newsgroup-expirable gnus-newsgroup-unreads delq gnus-cache-enter-remove-article t gnus-newsgroup-marked gnus-newsgroup-dormant gnus-newsgroup-reads gnus-use-cache] 4 (#$ . 271317)]) #@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\202`\313\n \"\313\n\f\"\313\n \"\313\n\"\2034\314\n!\210 U\203A\n B\202UU\203O\n\fB\202U\nB\313\n\236\"\315)\207" [mark gnus-ticked-mark article gnus-newsgroup-marked gnus-newsgroup-dormant gnus-newsgroup-expirable 0 gnus-error 1 "Can't mark negative article numbers" nil delq gnus-dup-unsuppress-article t gnus-newsgroup-unreads gnus-suppress-duplicates gnus-dormant-mark gnus-newsgroup-reads] 3 (#$ . 271801)]) (byte-code "\300\301\302\"\210\303\301\302\"\207" [defalias gnus-summary-mark-as-unread-forward gnus-summary-tick-article-forward make-obsolete] 3) #@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 (#$ . 272576) "p"]) (byte-code "\300\301\302\"\210\303\301\302\"\207" [defalias gnus-summary-mark-as-unread-backward gnus-summary-tick-article-backward make-obsolete] 3) #@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 (#$ . 273008) "p"]) (byte-code "\300\301\302\"\210\303\301\302\"\207" [defalias gnus-summary-mark-as-unread gnus-summary-tick-article make-obsolete] 3) #@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 (#$ . 273383) 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 (#$ . 273764) "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 (#$ . 274089) "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 (#$ . 274379)]) #@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 (#$ . 274675) "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 (#$ . 274964) "p"]) #@58 Intended to be used by `gnus-summary-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 (#$ . 275213)]) #@58 Intended to be used by `gnus-summary-mark-article-hook'. (defalias 'gnus-summary-mark-read-and-unread-as-read #[nil "\305`\306\"\211\203 \307!\210)\305`\310\"\206\311 \236A@\312\n!\204(\313\n!\205,\314 \f\")\207" [to gnus-newsgroup-data mark gnus-current-article 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 (#$ . 275457)]) #@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 (#$ . 275930) "r\nP"]) #@53 Mark articles with score less than SCORE with MARK. (defalias 'gnus-summary-mark-below #[(score mark) "\203\n\306!\202 \206\307\212\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 (#$ . 276562) "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 (#$ . 277136) "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 (#$ . 277329) "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 (#$ . 277531) "P"]) #@48 Mark articles with score over SCORE with MARK. (defalias 'gnus-summary-mark-above #[(score mark) "\203\n\306!\202 \206\307\212\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 (#$ . 277720) "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 \306\211\211\203>\307\f\211@@)!\2047\310\f\211@@)\2368\211\2037\f\211@A)W\2037\n B\fA\211\204\f \204N?\205]\311\312!\202]eb\210\313 \237!\210eb\210\314 \210\315,\207" [buffer-read-only gnus-newsgroup-scored h headers scored x nil gnus-summary-goto-subject 3 error "No expunged articles hidden" gnus-summary-prepare-unthreaded gnus-summary-position-point t gnus-newsgroup-data gnus-summary-expunge-below no-error] 4 (#$ . 278369) nil]) #@466 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 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) "\212\204 \203\n\204\306 \203\307\202\310!\205{\f\203J \204J\204J\204J\2039\311=\203J \203C\312\312\202z\313 \210\314 ?\315\"\203v\203a`W\202b\315\203v\316!\203v\317 ?\312\211\315$\204U\320\321!\210\315)\322 \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-summary-show-all-threads gnus-summary-first-subject t gnus-summary-mark-article-as-read gnus-summary-find-next gnus-set-mode-line summary gnus-summary-position-point gnus-newsgroup-auto-expire gnus-suppress-duplicates gnus-use-cache gnus-newsgroup-marked gnus-newsgroup-dormant gnus-newsgroup-downloadable gnus-newsgroup-unreads to-here gnus-catchup-mark] 5 (#$ . 278978) "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 (#$ . 280366) "P"]) #@46 Mark all articles in this newsgroup as read. (defalias 'gnus-summary-catchup-all #[(&optional quietly) "\301\302\"\207" [quietly gnus-summary-catchup t] 3 (#$ . 280829) "P"]) #@128 Mark all unread articles in this group as read, then exit. If prefix argument ALL is non-nil, all articles are marked as read. (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 (#$ . 281012) "P"]) #@61 Mark all articles in this newsgroup as read, and then exit. (defalias 'gnus-summary-catchup-all-and-exit #[(&optional quietly) "\301\302\"\207" [quietly gnus-summary-catchup-and-exit t] 3 (#$ . 281456) "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 (#$ . 281672) "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 (#$ . 281989)])) (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\204N\314\f@8\315H\316\317\"\203H\320\225\321O\202J)\202a\322=\203`\323\314\f@8\315H!\202a\321\212\324 \203m`\202nd)\321\f\203\331\325\f@8W\203\331\203\273\322=\203\233\323\314\f@8\315H!\202\267\314\f@8\315H\316\317\"\203\264\320\225\321O\202\266)\230\203\303\f@@B\fA\211\203\323\313\f@8 V\204t\321\211\204x\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 "^[Rr][Ee]: *" 0 nil fuzzy gnus-simplify-subject-fuzzy gnus-summary-go-to-next-thread 2 gnus-thread-operation-ignore-subject subject top-subject end-point articles] 5 (#$ . 283027)]) #@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 (#$ . 284058) 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 "\301 \203 \302\303!\210G\304X\204\302\305!\210\306\213\207" [gnus-newsgroup-processable gnus-group-read-only-p error "The current newsgroup does not support article editing" 1 "No more than one article may be marked" ((byte-code "\306\307`\310\"\211\203\311!\210)\307`\312\"\206\313 \203! @\202G\212\314y\315=\203C\307`\310\"\211\2036\311!\210)\307`\312\"\206F\313 \202F\316\317!) \n=\203T\316\320!\210\321\n \2368\322H\211.\203h.\323\232\203l\316\324!\210\325/\326\327\211\325 $\210)0q\210\214eb\210\330 \210\331\332\325\327#\203\237\331\333\325\327#\210\314y\210\325\210\334.\261\210\202\246\335.\336\261\210)\3371@23\340\341\342\217*\204\277\343\344\345\"\210\202\316\346 1@p\327$\204\316\316\347!\2104\203\334\3501@1A\"\2105\203\352\3511@1A\"\2106q\210\352 \210\353 !\210\354 \210\343\321\355 \n$,\207" [to gnus-newsgroup-processable parent-article current-article gnus-article-buffer gnus-newsgroup-data " *reparent*" get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject -1 0 error "Beginning of summary buffer" "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: " "^[^ ]" " " "References: " "\n" request-replace-article #1=#:G97337 (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-rethread-current "Article %d is now the child of article %d" message-id gnus-mark-article-hook gnus-original-article-buffer gnus-article-current group func gnus-keep-backlog gnus-use-cache gnus-summary-buffer] 6))] 2 (#$ . 284650) 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 (#$ . 286927) "P"]) #@19 Show all threads. (defalias 'gnus-summary-show-all-threads #[nil "\212\301\302ed\303\304\305%\210*\306 \207" [buffer-read-only nil subst-char-in-region 13 10 t gnus-summary-position-point] 6 (#$ . 287549) nil]) #@71 Show thread subtrees. Returns nil if no thread was there to be shown. (defalias 'gnus-summary-show-thread #[nil "\304`\304\210`\305 \210`\306\307 \310#\311 \312\313\310%\210\nb\210\314 \210,\207" [beg end orig buffer-read-only nil beginning-of-line search-forward " " t subst-char-in-region 13 10 gnus-summary-position-point] 7 (#$ . 287767) nil]) #@27 Hide all thread subtrees. (defalias 'gnus-summary-hide-all-threads #[nil "\212eb\210\300 \210\301\302\303\304\"!\203\300 \210\202)\305 \207" [gnus-summary-hide-thread zerop gnus-summary-next-thread 1 t gnus-summary-position-point] 4 (#$ . 288127) nil]) #@74 Hide thread subtrees. Returns nil if no threads were there to be hidden. (defalias 'gnus-summary-hide-thread #[nil "\304`\305`\306\"\211\203\307!\210)\305`\310\"\206\311 \nb\210m?\205Q\312\313\314\315\"!\2042db\205Q`\nV\203M\316\317\n\315#\203M\320\n`\321\322$\210\307 !\202Q\nb\210\304+\207" [to article start buffer-read-only nil 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" subst-char-in-region 10 13] 6 (#$ . 288390) 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 (#$ . 288948)]) #@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 (#$ . 289778) "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 (#$ . 290289) "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 (#$ . 290517)]) #@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 (#$ . 290725)]) #@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 (#$ . 290926) "p"]) #@130 Go up 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-up-thread #[(n) "\301[!\207" [n gnus-summary-down-thread] 2 (#$ . 291373) "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 (#$ . 291613) nil]) #@167 Mark articles under current thread as read. If the prefix argument is positive, remove any kinds of marks. If the prefix argument is negative, tick articles instead. (defalias 'gnus-summary-kill-thread #[(&optional unmark) "\203\306!\307 \212\310 \210 \203;\311 @!\210\204#\312\n!\210\2024\313V\2030\314 !\210\2024\314\f!\210 A\211\204)\204G \203G\315 \210\204P\316\317\320\"\210)\321\322!\207" [unmark articles gnus-killed-mark gnus-unread-mark gnus-ticked-mark gnus-thread-hide-killed prefix-numeric-value gnus-summary-articles-in-thread gnus-summary-show-thread gnus-summary-goto-subject gnus-summary-mark-article-as-read 0 gnus-summary-mark-article-as-unread gnus-summary-hide-thread gnus-summary-next-subject 1 t gnus-set-mode-line summary] 4 (#$ . 291914) "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 (#$ . 292709) "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 (#$ . 292933) "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 (#$ . 293231) "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 (#$ . 293547) "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 (#$ . 293756) "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 (#$ . 293968) "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 (#$ . 294194) "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\317\320 \210\205D\205D\321 .\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) nil gnus-summary-prepare gnus-summary-hide-all-threads gnus-article-sort-functions buffer-read-only gnus-summary-prepare-hook gnus-show-threads gnus-thread-hide-subtree] 5 (#$ . 294415)]) #@340 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. (defalias 'gnus-summary-save-article #[(&optional n not-saved) "\306!\212\307\310!) G\311\311 \311\211\203v@\312\2368\313\f!\204H\314\f\236\203>\315\314\f\236A!\210\202m\316\317\320#\210\202m\321\213\210\212\nq\210\322 \210\323 !\210)\324\n #\325!\210!\204m\326!\210A\211\204*\n\211\"\211#\205\217#;\203\213\327\202\214\330#!)\203\230\331\"!\210)\332 \210\333\334!\210-\207" [n articles save-buffer num header file gnus-summary-work-articles nnheader-set-temp-buffer " *Gnus Save*" nil 3 vectorp name gnus-copy-file gnus-message 1 "Article %d is unsaveable" ((byte-code "\303\211\304\305\303\211\n$\210*\303\207" [gnus-article-prepare-hook gnus-display-mime-function article nil gnus-summary-select-article t] 5)) erase-buffer insert-buffer-substring gnus-article-save gnus-summary-remove-process-mark gnus-summary-set-saved-mark get-buffer buffer-name kill-buffer gnus-summary-position-point gnus-set-mode-line summary article #1=#:--dolist-temp--97338 gnus-newsgroup-data gnus-original-article-buffer not-saved buf buffer] 6 (#$ . 295079) "P"]) #@251 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. (defalias 'gnus-summary-pipe-output #[(&optional arg) "\302\303!\210\304\305 \306\"\210)\307\310!\207" [gnus-default-article-saver arg require gnus-art gnus-summary-save-in-pipe gnus-summary-save-article t gnus-configure-windows pipe] 3 (#$ . 296525) "P"]) #@253 Append the current article to an mail 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 (#$ . 297040) "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 (#$ . 297515) "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 (#$ . 297993) "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 (#$ . 298462) "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 (#$ . 298960) "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\311p!\".\207" [mail-header-separator #1=#:GnusStartBufferWindow gnus-article-buffer #2=#:buf #3=#:w buffer-read-only gnus-summary-select-article "" selected-window get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer window-start nil message-pipe-buffer-body set-window-start start program] 3 (#$ . 299443) "sProgram: "]) #@44 Return a value based on the split METHODS. (defalias 'gnus-get-split-value #[(methods) "\306\211\211\211\f\203\230\212 q\210\214\307 \210\f\203\227 \204\227eb\210\f\211A@\211@\211;\2034\310\311\312\217\202t\2119\203C\313!\206U<\203Q@\314=\206U\315!)\203f\214~\210!\211)\202t:\203\214~\210\316!\211)\203\nA ;\203\212\317 \" B\202 :\203\320 \"\202* \237,\207" [match result method split-name methods gnus-original-article-buffer nil nnheader-narrow-to-headers #1=#:G97339 (re-search-forward match nil t) ((error)) fboundp lambda byte-code-function-p eval expand-file-name append form gnus-newsgroup-name gnus-article-save-directory] 5 (#$ . 300030)]) (defalias 'gnus-valid-move-group-p #[(group) "\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# \204/\315  \316\307!\317&\202S G\312U\203E\315 @  \316\307\211\317&\202S\315\307 \320\321 \237\"\307\211\211\317&\"\322\323\"!!#\"\203\306\"\324\230\204q\"!\230\203u\"\"\204~\325\326!\210\327\" \"J\204\306\330\"\307\211#$\204\306\331\310\332\"\"!\203\300\333\"#\"\203\270\330\"\307\211#$\203\270\334\"!\204\306\325\335\"\"\204\306\325\336\"\"\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-completing-read gnus-valid-move-group-p gnus-group-history mapcar #[(el) "C\207" [el] 1] gnus-server-to-method gnus-group-method "" error "No group name entered" 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" default gnus-active-hashtb prefix to-newsgroup to-method] 8 (#$ . 300947)]) #@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! \205H\307 @!\210\310\311\312 \210*\212\fq\210 \206$\313 \206$\314 \211\203>\315$\210 \204>\316!\210* \211A@\210\202)\207" [n #1=#:gnus-summary-iterate-articles gnus-inhibit-treatment gnus-display-mime-function gnus-article-buffer gnus-article-mime-handles gnus-summary-work-articles gnus-summary-goto-subject nil t gnus-summary-select-article mm-dissect-buffer mm-uu-dissect gnus-summary-save-parts-1 mm-destroy-parts handles type dir reverse] 6 (#$ . 302094) (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-file-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#\3118@)\"?\202>\310\n\211@;\2038@\202<\3118@)\"\205f\312\313\314\3158\316\"\206S \317\320\fA!Q! \"\321!?\205e\322\")\207" [handle reverse type gnus-newsgroup-name gnus-article-current dir mapcar #[(h) "\304 \n $\207" [type dir h reverse gnus-summary-save-parts-1] 5] string-match 1 expand-file-name file-name-nondirectory mail-content-type-get 4 filename "." number-to-string file-exists-p mm-save-part-to-file file] 7]) (defalias 'gnus-summary-insert-pseudos #[(pslist &optional not-view) "\306\307`\310\"\211\203\311!\210)\307`\312\"\206\313 \306\211\211\311\f!\204+\314\315\f\"\210\316 \210)\204\342\317*\320\"\211*\306\211+\211,\203\341\321,@\236A\322,@\236AC+,\203\232,A\203\232\206i\323\321,\211-A@)\236A\206x\324\230\203\232\322,\211-A@)\236A+B+,\211-\211AA)\241\210\202X+\203\330\325\326\"\204\255\327+B+\327+B+\330,@\236\203\330\330,@\236\325\326\"\203\314\331\202\315\332\333\334+\327#\"\241\210,A\211,\204G+.\203/\204*\205\222\330*@\236\203\335\330*@\236A.\336=\"\210*A\211*\202\356\212*\205\221\304*@\236A\2065\307`\310\"\211\203+\311!\210)\307`\312\"\2065\313 \311 !\210\337y\210`\340\341\322*@\236A!\342\330*@\236A\206S\343\344\261\210`\345y\210\346\n S\312012F#\210\347 03\n*@\350 \nZ&\21004B40S0*A\211*\204\306)-\207" [to e b after-article article buffer-read-only nil get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 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 " " mm-quote-arg] 2] gnus-execute-command not-confirm 1 " " file-name-nondirectory ": " "" "\n" -1 gnus-add-text-properties gnus-data-enter 0 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 (#$ . 306152) (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 (#$ . 306346) 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> \2029 \203\220 \313H>\203\220 \314H\310\211\205u\315! \206c\316 \233\203q A \202] @)*\211!\205\200\317!!\211\"\203\217\320 \"\236\"\"\210*\212#q\210\321\f \"\211\203\323\322 \210db\210\323c\210eb\210\324c\210\325\f\247\203\267\f\202\315\nA\203\301\nA\202\315 \203\313 \313H\202\315$p\"\210\326c\210\n?\206\340\327\310\330\"@\211??\2058 \313H>\2047\f;\203 %\331\332%\"\203%\313\225\310O\202%)\n@\230\204 \313$I\210\212&q\210$S$\333 \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 5 gnus-split-references 1 gnus-id-to-thread delq gnus-request-head nnheader-fold-continuation-lines ".\n" "211 " princ " Article retrieved.\n" gnus-get-newsgroup-headers t string-match "^[^:]+:" gnus-remove-header gnus-newsgroup-data gnus-newsgroup-sparse n references ids parent thread nntp-server-buffer gnus-reffed-article-number gname gnus-summary-buffer gnus-newsgroup-headers gnus-current-headers gnus-newsgroup-limit] 4 (#$ . 306805)]) #@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 (#$ . 308150)]) #@47 Highlight selected article in summary buffer. (defalias 'gnus-highlight-selected-summary #[nil "\205c\212\306 \210`\307\210`\310 \"\203 \202$\311 \307\n$\206$ \211\nU\2031\f\312Z\202;\311\f \307\n$\206;\n\211\312\\\fU\203H \n\203W\313\f p$\202b\314\315\f \"\211\316#-\207" [gnus-summary-selected-face beg end gnus-mouse-face-prop from to beginning-of-line nil get-text-property next-single-property-change 2 gnus-move-overlay gnus-overlay-put gnus-make-overlay face gnus-newsgroup-selected-overlay] 6 (#$ . 308433)]) #@63 Highlight current line according to `gnus-summary-highlight'. (defalias 'gnus-summary-highlight-line #[nil "`\306\210`\307 \210`\310`\311\"\211\203\312 !\210)\310`\313\"\206%\314 \211\206-\236A\206:\206:\315\310`\311\"\211\203I\312 !\210)\310`\313\"\206S\314 \236A@\206]\316 \203}\317 \211@@)!\204} A\211\204j) \211@A)\211\310\f\320\"=\204\265\321\f \320\322!\203\241J\202\243\211$\210\203\265\"\210)\nb.\207" [gnus-summary-highlight list p end beg to nil beginning-of-line get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 0 t eval face gnus-put-text-property-excluding-characters-with-faces boundp article gnus-current-article gnus-newsgroup-scored gnus-summary-default-score score gnus-newsgroup-data gnus-unread-mark mark inhibit-read-only default x gnus-summary-highlight-line-function] 7 (#$ . 308984)]) #@44 Update the list of read articles in GROUP. (defalias 'gnus-update-read-articles #[(group unread &optional compute) "\206 \306 \n\"J\306 \f\"J\307 8*\310+\311\312,!\313\",\314-*?\206, ??\205\202,\203F,@\315W\203F,A\211,\2045,\203],@ @W\203],A\211,\204K,\203\225,@+U\204\206+,@SU\203z+\202\201+,@SB-B-,@T+,A\211,\204b+ AX\203\247+ AB-B--G\310V\203\265-\237\202\267--.\203\303-\202\202\212\314/\316 0\317\320\321\217*\2039\322\307*8-\"\322-\307*8\"\204\362\2038\323 !\204\375\324\325 \"\210\326 \327\314\205 \330\331E\205\332\333ED\"\"\210\326 \334\327\314\205(\330\335E\2052\332\336ED\"DE/*1q\210\337\340\341\334*D\334\342*8D\343BBB\344\334*D\334\307*8DE\345\334*D\346 DE\347 \350BB/\257!\210**AA-\240\210\345*\306 \n\"J\"\210\351.\207" [gnus-newsgroup-active group gnus-active-hashtb active gnus-newsrc-hashtb entry intern-soft 2 1 sort copy-sequence < nil 0 request-set-mark #1=#:G97340 (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 prev unread read compute setmarkundo func gnus-group-buffer] 10 (#$ . 309918)]) #@43 Offer to save all active summary buffers. (defalias 'gnus-offer-save-summaries #[nil "\212\306 \307\211\211\203;\310\n@!\211\2034\311\312\"\2034\212q\210 \313=\205,\f\205, ?)\2034 B\nA\211\204\f \205D\314\315\316 #,\207" [bufname buffers buflist major-mode gnus-newsgroup-prepared gnus-dead-summary-mode buffer-list nil 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]] 5 (#$ . 311491)]) #@34 Setup newsgroup default charset. (defalias 'gnus-summary-setup-default-charset #[nil "\306\232\203\n\307\211\207\205!\310\311\n\"\203\n\312\225\307O\202 \n)\f\206g\313\205d\314\315\316#\206d \307\211\211A@\211\203a \203<\310@ \"\203<\307A\202<+\" \206\265\203\263\314\317\"\206\265\307\211\211A@\211\203\255 \203\203\310@ \"\203\203\307\211A@)\202\203+\206\265\320\321! L*\207" [gnus-newsgroup-name gnus-newsgroup-charset gname name gnus-newsgroup-ephemeral-ignored-charsets gnus-group-ignored-charsets-alist "nndraft:drafts" nil string-match "^[^:]+:" 0 append gnus-group-find-parameter ignored-charsets t charset make-local-variable gnus-newsgroup-ignored-charsets charsets elem alist gnus-newsgroup-ephemeral-charset gnus-group-charset-alist x gnus-default-charset] 6 (#$ . 312022)]) #@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 (#$ . 312903) "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 \210db\210~\210\312\313\306\310#\203<`\314 {\311 \210\315\316!\210\315\317!\210db\210\320\321 \"c\210\322c\210~\210)\323\f@\324\325\326\217*\204R\327\330\331\"\210\202`\332 \f@p\310$\204`\333\334!\210 \203l\335\f@\fA\"\210!\203x\336\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 search-forward "\n--" gnus-point-at-eol message-remove-header "Mime-Version" "Content-Type" format "Content-Type: multipart/mixed; boundary=\"%s\"\n" "Mime-Version: 1.0\n" request-replace-article #1=#:G97341 (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 (#$ . 313321) (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 (#$ . 314584) 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")) (#$ . 314877)) (byte-code "\301B\302\301!\204 \303 \304B\301\207" [current-load-list gnus-summary-generic-mark-map boundp make-sparse-keymap gnus-summary-mark-map] 2) (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=#:--dolist-temp--97342 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\321 8#\210)\fA\211\204+\316\207" [map gnus-summary-generic-mark-map keystroke lway #1=#:--dolist-temp--97343 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\316\\[ \316V\203[\321\322\f\"\203[\317\323\n \324#!\203[ S\211\202> \316U\204o\325\326\327\f\203l\330\202m\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 (#$ . 316696)]) (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)