Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
gnus /
[ HOME SHELL ]
Name
Size
Permission
Action
.dir-locals.el
105
B
-rw-r--r--
canlock.elc
5.71
KB
-rw-r--r--
deuglify.elc
7.85
KB
-rw-r--r--
gmm-utils.elc
5.79
KB
-rw-r--r--
gnus-agent.elc
119.17
KB
-rw-r--r--
gnus-art.elc
262.11
KB
-rw-r--r--
gnus-async.elc
11.71
KB
-rw-r--r--
gnus-bcklg.elc
2.85
KB
-rw-r--r--
gnus-bookmark.elc
25.33
KB
-rw-r--r--
gnus-cache.elc
24.08
KB
-rw-r--r--
gnus-cite.elc
26.28
KB
-rw-r--r--
gnus-cloud.elc
18.45
KB
-rw-r--r--
gnus-cus.elc
39.5
KB
-rw-r--r--
gnus-delay.elc
4.61
KB
-rw-r--r--
gnus-demon.elc
7.52
KB
-rw-r--r--
gnus-diary.elc
8.41
KB
-rw-r--r--
gnus-dired.elc
8.03
KB
-rw-r--r--
gnus-draft.elc
12.03
KB
-rw-r--r--
gnus-dup.elc
4.59
KB
-rw-r--r--
gnus-eform.elc
4.76
KB
-rw-r--r--
gnus-fun.elc
9.93
KB
-rw-r--r--
gnus-gravatar.elc
4.15
KB
-rw-r--r--
gnus-group.elc
154.92
KB
-rw-r--r--
gnus-html.elc
13.41
KB
-rw-r--r--
gnus-icalendar.elc
40.93
KB
-rw-r--r--
gnus-int.elc
58.83
KB
-rw-r--r--
gnus-kill.elc
19.24
KB
-rw-r--r--
gnus-logic.elc
5.15
KB
-rw-r--r--
gnus-mh.elc
2.96
KB
-rw-r--r--
gnus-ml.elc
6.08
KB
-rw-r--r--
gnus-mlspl.elc
6.48
KB
-rw-r--r--
gnus-msg.elc
84.49
KB
-rw-r--r--
gnus-notifications.elc
5.38
KB
-rw-r--r--
gnus-picon.elc
8.06
KB
-rw-r--r--
gnus-range.elc
11.97
KB
-rw-r--r--
gnus-registry.elc
34.53
KB
-rw-r--r--
gnus-rfc1843.elc
1.59
KB
-rw-r--r--
gnus-salt.elc
27.54
KB
-rw-r--r--
gnus-score.elc
74.27
KB
-rw-r--r--
gnus-sieve.elc
8.14
KB
-rw-r--r--
gnus-spec.elc
12.88
KB
-rw-r--r--
gnus-srvr.elc
50.09
KB
-rw-r--r--
gnus-start.elc
138.21
KB
-rw-r--r--
gnus-sum.elc
431.26
KB
-rw-r--r--
gnus-topic.elc
46.53
KB
-rw-r--r--
gnus-undo.elc
4.69
KB
-rw-r--r--
gnus-util.elc
49.29
KB
-rw-r--r--
gnus-uu.elc
55.9
KB
-rw-r--r--
gnus-vm.elc
2.42
KB
-rw-r--r--
gnus-win.elc
10.95
KB
-rw-r--r--
gnus.elc
158.84
KB
-rw-r--r--
gssapi.elc
2.27
KB
-rw-r--r--
legacy-gnus-agent.elc
6.35
KB
-rw-r--r--
mail-source.elc
28.21
KB
-rw-r--r--
message.elc
237.92
KB
-rw-r--r--
mm-archive.elc
2.95
KB
-rw-r--r--
mm-bodies.elc
5.84
KB
-rw-r--r--
mm-decode.elc
55.66
KB
-rw-r--r--
mm-encode.elc
6.13
KB
-rw-r--r--
mm-extern.elc
4.25
KB
-rw-r--r--
mm-partial.elc
3.05
KB
-rw-r--r--
mm-url.elc
9.75
KB
-rw-r--r--
mm-util.elc
24.33
KB
-rw-r--r--
mm-uu.elc
21.99
KB
-rw-r--r--
mm-view.elc
16.82
KB
-rw-r--r--
mml-sec.elc
35.2
KB
-rw-r--r--
mml-smime.elc
10.44
KB
-rw-r--r--
mml.elc
44.72
KB
-rw-r--r--
mml1991.elc
7.59
KB
-rw-r--r--
mml2015.elc
25.61
KB
-rw-r--r--
nnagent.elc
10.44
KB
-rw-r--r--
nnbabyl.elc
16.84
KB
-rw-r--r--
nndiary.elc
38.56
KB
-rw-r--r--
nndir.elc
2.67
KB
-rw-r--r--
nndoc.elc
30.1
KB
-rw-r--r--
nndraft.elc
10.55
KB
-rw-r--r--
nneething.elc
11.45
KB
-rw-r--r--
nnfolder.elc
32.39
KB
-rw-r--r--
nngateway.elc
2.88
KB
-rw-r--r--
nnheader.elc
34.72
KB
-rw-r--r--
nnimap.elc
73.06
KB
-rw-r--r--
nnir.elc
62.86
KB
-rw-r--r--
nnmail.elc
52.09
KB
-rw-r--r--
nnmaildir.elc
90.83
KB
-rw-r--r--
nnmairix.elc
72.33
KB
-rw-r--r--
nnmbox.elc
18.57
KB
-rw-r--r--
nnmh.elc
15.14
KB
-rw-r--r--
nnml.elc
33.63
KB
-rw-r--r--
nnnil.elc
1.63
KB
-rw-r--r--
nnoo.elc
8.63
KB
-rw-r--r--
nnregistry.elc
1.72
KB
-rw-r--r--
nnrss.elc
29.02
KB
-rw-r--r--
nnspool.elc
15.72
KB
-rw-r--r--
nntp.elc
111.69
KB
-rw-r--r--
nnvirtual.elc
18.31
KB
-rw-r--r--
nnweb.elc
16.67
KB
-rw-r--r--
score-mode.elc
4.93
KB
-rw-r--r--
smiley.elc
5.31
KB
-rw-r--r--
smime.elc
18.76
KB
-rw-r--r--
spam-report.elc
11.41
KB
-rw-r--r--
spam-stat.elc
19.39
KB
-rw-r--r--
spam-wash.elc
1.23
KB
-rw-r--r--
spam.elc
80.84
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : gnus-sum.elc
;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\300\312!\210\300\313!\210\300\314!\210\300\315!\210\316\317\320\321\322$\210\316\323\320\"\210\316\324\325\321\322$\210\316\326\325\321\322$\210\316\327\330\321\322$\210\316\331\332\"\207" [require cl-lib gnus gnus-group gnus-spec gnus-range gnus-int gnus-undo gnus-util gmm-utils mm-decode shr url nnoo autoload gnus-summary-limit-include-cached "gnus-cache" nil t gnus-cache-write-active gnus-mailing-list-insinuate "gnus-ml" turn-on-gnus-mailing-list-mode gnus-pick-line-number "gnus-salt" mm-uu-dissect "mm-uu"] 5) #@59 Deuglify broken Outlook (Express) articles and redisplay. (autoload 'gnus-article-outlook-deuglify-article "deuglify" '(#$ . 1057) t) (byte-code "\300\301\302\303\304$\210\300\305\302\303\304$\210\300\306\302\303\304$\210\300\307\310\303\211\311%\210\300\312\310\303\211\311%\210\313\314\315\316\317DD\320\321\322\323\324&\210\313\325\315\316\326DD\327\330\331\321\322\332\333\323\324& \210\313\334\315\316\335DD\336\330\337\321\340\332\341\323\324& \210\313\342\315\316\343DD\344\321\345\323\346&\210\313\347\315\316\350DD\351\321\345\323\352&\210\313\353\315\316\354DD\355\332\341\321\345\323\324& \210\313\356\315\316\357DD\360\332\361\321\345\323\324& \210\313\362\315\316\363DD\364\321\345\323\365&\210\313\366\315\316\367DD\370\332\371\321\345\323\324& \210\313\372\315\316\373DD\374\321\345\323\375&\210\313\376\315\316\377DD\201@ \321\345\323\201A &\210\313\201B \315\316\201C DD\201D \321\345\323\201E &\210\313\201F \315\316\201G DD\201H \321\345\323\201I &\210\313\201J \315\316\201K DD\201L \321\345\323\201M &\210\313\201N \315\316\201O DD\201P \321\345\323\201Q &\210\313\201R \315\316\201S DD\201T \321\201U \323\201V &\210\313\201W \315\316\201X DD\201Y \332\341\321\201Z \330\201[ \323\201\\ & \210\313\201] \315\316\201^ DD\201_ \321\201` \323\201a &\210\313\201b \315\316\201c DD\201d \332\371\321\201` \323\201e & \210\313\201f \315\316\201g DD\201h \332\371\321\201` \323\201e & \210\313\201i \315\316\201j DD\201k \321\201U \323\201e &\210\313\201l \315\316\201m DD\201n \321\345\323\201o &\210\313\201p \315\316\201q DD\201r \321\345\323\324&\210\313\201s \315\316\201t DD\201u \321\345\323\201v &\210\313\201w \315\316\201x DD\201y \321\345\323\324&\210\313\201z \315\316\201{ DD\201| \321\345\323\324&\210\313\201} \315\316\201~ DD\201 \321\345\323\201\200 &\210\313\201\201 \315\316\201\202 DD\201\203 \321\345\323\201e &\210\313\201\204 \315\316\201\205 DD\201\206 \321\201\207 \323\324&\210\313\201\210 \315\316\201\211 DD\201\212 \321\201\213 \323\201\214 &\210\313\201\215 \315\316\201\216 DD\201\217 \332\341\321\201\213 \323\201\220 & \210\313\201\221 \315\316\201\222 DD\201\223 \321\340\323\201\224 &\210\313\201\225 \315\316\201\226 DD\201\227 \321\340\323\324&\210\313\201\230 \315\316\201\231 DD\201\232 \332\333\321\340\323\201\233 & \210\313\201\234 \315\316\201\235 DD\201\236 \332\371\321\340\323\201\237 & \210\313\201\240 \315\316\201\241 DD\201\242 \321\340\323\324&\210\313\201\243 \315\316\201\244 DD\201\245 \321\340\323\201\246 &\210\313\201\247 \315\316\201\250 DD\201\251 \321\340\323\324&\210\313\201\252 \315\316\201\253 DD\201\254 \321\201\255 \321\201\256 \323\324& \210\313\201\257 \315\316\201\260 DD\201\261 \321\201\262 \323\324&\210\313\201\263 \315\316\201\264 DD\201\265 \332\341\321\201\266 \323\324& \210\313\201\267 \315\316\201\270 DD\201\271 \332\341\321\201\266 \323\324& \210\313\201\272 \315\316\201\273 DD\201\274 \321\201\266 \323\324&\210\313\201\275 \315\316\201\276 DD\201\277 \321\201\300 \323\201\301 &\210\313\201\302 \315\316\201\303 DD\201\304 \321\201\300 \323\316&\210\313\201\305 \315\316\201\306 DD\201\307 \321\201Z \323\201\310 &\210\313\201\311 \315\316\201\312 DD\201\313 \321\201Z \323\201\310 &\210\313\201\314 \315\316\201\315 DD\201\316 \321\201Z \323\201\310 &\210\313\201\317 \315\316\201\320 DD\201\321 \321\201Z \323\201\310 &\210\313\201\322 \315\316\201\323 DD\201\324 \321\201Z \323\201\310 &\210\313\201\325 \315\316\201\326 DD\201\327 \321\201Z \323\201\310 &\210\313\201\330 \315\316\201\331 DD\201\332 \321\201Z \323\201\310 &\210\313\201\333 \315\316\201\334 DD\201\335 \332\371\321\201Z \323\201\310 & \210\313\201\336 \315\316\201\337 DD\201\340 \321\201Z \323\201\310 &\210\313\201\341 \315\316\201\342 DD\201\343 \321\201Z \323\201\310 &\210\313\201\344 \315\316\201\345 DD\201\346 \321\201Z \323\201\310 &\210\313\201\347 \315\316\201\350 DD\201\351 \321\201Z \323\201\310 &\210\313\201\352 \315\316\201\353 DD\201\354 \332\371\321\201Z \323\201\310 & \210\313\201\355 \315\316\201\356 DD\201\357 \332\371\321\201Z \323\201\310 & \210\313\201\360 \315\316\201\361 DD\201\362 \321\201Z \323\201\310 &\210\313\201\363 \315\316\201\364 DD\201\365 \321\201Z \323\201\310 &\210\313\201\366 \315\316\201\367 DD\201\370 \332\371\321\201Z \323\201\310 & \210\313\201\371 \315\316\201\372 DD\201\373 \332\371\321\201Z \323\201\310 & \210\313\201\374 \315\316\201\375 DD\201\376 \321\201Z \323\201\310 &\210\313\201\377 \315\316\201 DD\201\321\201Z \323\201\310 &\210\313\201\315\316\201DD\201\321\201Z \323\201\310 &\210\313\201\315\316\201DD\201\321\201Z \323\201\310 &\210\313\201\315\316\201 DD\201\n\332\371\321\201Z \323\201\310 & \210\313\201 \315\316\201\fDD\201 \321\201Z \323\201\310 &\210\313\201\315\316\201DD\201\321\201Z \323\201\310 &\210\313\201\315\316\201DD\201\321\201Z \323\201\310 &\210\313\201\315\316\201DD\201\321\201Z \323\201\310 &\210\313\201\315\316\201DD\201\321\201Z \323\201\310 &\210\313\201\315\316\201DD\201 \321\201Z \323\201\310 &\210\313\201 \315\316\201 DD\201 \321\201Z \323\201\310 &\210\313\201 \315\316\201!DD\201\"\321\201#\323\324&\210\313\201$\315\316\201%DD\201&\332\341\321\201\262 \323\201'& \210\313\201(\315\316\201)DD\201*\332\201+\321\201\262 \323\324& \210\313\201,\315\316\201-DD\201.\332\201/\323\324\321\201Z & \210\313\2010\315\316\2011DD\2012\321\201#\323\2013&\210\313\2014\315\316\2015DD\2016\321\201#\323\324&\210\313\2017\315\316\2018DD\2019\321\201#\323\324&\210\313\201:\315\316\201;DD\201<\330\201=\321\201>\323\201V & \210\313\201?\315\316\201@DD\201A\321\201U \323\201V &\210\313\201B\315\316\201CDD\201D\332\201+\321\201U \321\201\255 \323\201E& \210\313\201F\315\316\201GDD\201H\321\201` \323\201e &\207" [autoload gnus-article-outlook-unwrap-lines "deuglify" nil t gnus-article-outlook-repair-attribution gnus-article-outlook-rearrange-citation nnir-article-rsv "nnir" macro nnir-article-group custom-declare-variable gnus-kill-summary-on-exit funcall function #[0 "\300\207" [t] 1] "If non-nil, kill the summary buffer when you exit from it.\nIf nil, the summary will become a \"*Dead Summary*\" buffer, and\nit will be killed sometime later." :group gnus-summary-exit :type boolean gnus-summary-next-group-on-exit #[0 "\300\207" [t] 1] "If non-nil, go to the next unread newsgroup on summary exit.\nSee `gnus-group-goto-unread'." :link (custom-manual "(gnus)Group Maneuvering") :version "23.1" gnus-summary-stop-at-end-of-message #[0 "\300\207" [nil] 1] "If non-nil, don't select the next message when using `SPC'." (custom-manual "(gnus)Group Maneuvering") gnus-summary-maneuvering "24.1" gnus-fetch-old-headers #[0 "\300\207" [nil] 1] "Non-nil means that Gnus will try to build threads by grabbing old headers.\nIf an unread article in the group refers to an older, already\nread (or just marked as read) article, the old article will not\nnormally be displayed in the Summary buffer. If this variable is\nt, Gnus will attempt to grab the headers to the old articles, and\nthereby build complete threads. If the value is the symbol `some',\nall old headers will be fetched but only enough headers to connect\notherwise loose threads will be displayed. This variable can\nalso be a number. In that case, no more than that number of old\nheaders will be fetched. If the value is the symbol `invisible',\nall old headers will be fetched, but none will be displayed.\n\nThe server has to support NOV for any of this to work.\n\nThis feature can seriously impact performance it ignores all\nlocally cached header entries. Setting it to t for groups for a\nserver that doesn't expire articles (such as news.gmane.org),\nleads to very slow summary generation." gnus-thread (choice (const :tag "off" nil) (const :tag "on" t) (const some) (const invisible) number (sexp :menu-tag "other" t)) gnus-refer-thread-limit #[0 "\300\207" [500] 1] "The number of old headers to fetch when doing \\<gnus-summary-mode-map>\\[gnus-summary-refer-thread].\nIf t, fetch all the available old headers." (choice number (sexp :menu-tag "other" t)) gnus-refer-thread-use-nnir #[0 "\300\207" [nil] 1] "Use nnir to search an entire server when referring threads.\nA nil value will only search for thread-related articles in the\ncurrent group." gnus-refer-thread-limit-to-thread #[0 "\300\207" [nil] 1] "If non-nil referring a thread will limit the summary buffer to\narticles in the thread. A nil value will add the thread articles\nto the summary buffer." "25.1" gnus-summary-make-false-root #[0 "\300\207" [adopt] 1] "nil means that Gnus won't gather loose threads.\nIf the root of a thread has expired or been read in a previous\nsession, the information necessary to build a complete thread has been\nlost. Instead of having many small sub-threads from this original thread\nscattered all over the summary buffer, Gnus can gather them.\n\nIf non-nil, Gnus will try to gather all loose sub-threads from an\noriginal thread into one large thread.\n\nIf this variable is non-nil, it should be one of `none', `adopt',\n`dummy' or `empty'.\n\nIf this variable is `none', Gnus will not make a false root, but just\npresent the sub-threads after another.\nIf this variable is `dummy', Gnus will create a dummy root that will\nhave all the sub-threads as children.\nIf this variable is `adopt', Gnus will make one of the \"children\"\nthe parent and mark all the step-children as such.\nIf this variable is `empty', the \"children\" are printed with empty\nsubject fields. (Or rather, they will be printed with a string\ngiven by the `gnus-summary-same-subject' variable.)" (choice (const :tag "off" nil) (const none) (const dummy) (const adopt) (const empty)) gnus-summary-make-false-root-always #[0 "\300\207" [nil] 1] "Always make a false dummy root." "22.1" gnus-summary-gather-exclude-subject #[0 "\300\207" [#1="^ *$\\|^(none)$"] 1 #1#] "A regexp to match subjects to be excluded from loose thread gathering.\nAs loose thread gathering is done on subjects only, that means that\nthere can be many false gatherings performed. By rooting out certain\ncommon subjects, gathering might become saner." regexp gnus-summary-gather-subject-limit #[0 "\300\207" [nil] 1] "Maximum length of subject comparisons when gathering loose threads.\nUse nil to compare full subjects. Setting this variable to a low\nnumber will help gather threads that have been corrupted by\nnewsreaders chopping off subject lines, but it might also mean that\nunrelated articles that have subject that happen to begin with the\nsame few characters will be incorrectly gathered.\n\nIf this variable is `fuzzy', Gnus will use a fuzzy algorithm when\ncomparing subjects." (choice (const :tag "off" nil) (const fuzzy) (sexp :menu-tag "on" t)) gnus-simplify-subject-functions #[0 "\300\207" [nil] 1] "List of functions taking a string argument that simplify subjects.\nThe functions are applied recursively.\n\nUseful functions to put in this list include:\n`gnus-simplify-subject-re', `gnus-simplify-subject-fuzzy',\n`gnus-simplify-whitespace', and `gnus-simplify-all-whitespace'." (repeat function) gnus-simplify-ignored-prefixes #[0 "\300\207" [nil] 1] "Remove matches for this regexp from subject lines when simplifying fuzzily." (choice (const :tag "off" nil) regexp) gnus-build-sparse-threads #[0 "\300\207" [nil] 1] "If non-nil, fill in the gaps in threads.\nIf set to the symbol `some', only fill in the gaps that are\nneeded to tie loose threads together. If the symbol `more', fill\nin all leaf nodes that Gnus can find. If t (or any other value),\nfill in all gaps that Gnus manages to guess." (choice (const :tag "off" nil) (const some) (const more) (sexp :menu-tag "all" t)) gnus-summary-thread-gathering-function #[0 "\300\207" [gnus-gather-threads-by-subject] 1] "Function used for gathering loose threads.\nThere are two pre-defined functions: `gnus-gather-threads-by-subject',\nwhich only takes Subjects into consideration; and\n`gnus-gather-threads-by-references', which compared the References\nheaders of the articles to find matches." (radio (function-item gnus-gather-threads-by-subject) (function-item gnus-gather-threads-by-references) (function :tag "other")) gnus-summary-same-subject #[0 "\300\207" [#2=""] 1 #2#] "String indicating that the current article has the same subject as the previous.\nThis variable will only be used if the value of\n`gnus-summary-make-false-root' is `empty'." gnus-summary-format string gnus-summary-goto-unread #[0 "\300\207" [nil] 1] "If t, many commands will go to the next unread article.\nThis applies to marking commands as well as other commands that\n\"naturally\" select the next article, like, for instance, `SPC' at\nthe end of an article.\n\nIf nil, the marking commands do NOT go to the next unread article\n(they go to the next article instead). If `never', commands that\nusually go to the next unread article, will go to the next article,\nwhether it is read or not." gnus-summary-marks (custom-manual "(gnus)Setting Marks") (choice (const :tag "off" nil) (const never) (sexp :menu-tag "on" t)) gnus-summary-default-score #[0 "\300\207" [0] 1] "Default article score level.\nAll scores generated by the score files will be added to this score.\nIf this variable is nil, scoring will be disabled." gnus-score-default (choice (const :tag "disable") integer) gnus-summary-default-high-score #[0 "\300\207" [0] 1] "Default threshold for a high scored article.\nAn article will be highlighted as high scored if its score is greater\nthan this score." integer gnus-summary-default-low-score #[0 "\300\207" [0] 1] "Default threshold for a low scored article.\nAn article will be highlighted as low scored if its score is smaller\nthan this score." gnus-summary-zcore-fuzz #[0 "\300\207" [0] 1] "Fuzziness factor for the zcore in the summary buffer.\nArticles with scores closer than this to `gnus-summary-default-score'\nwill not be marked." gnus-simplify-subject-fuzzy-regexp #[0 "\300\207" [nil] 1] "Strings to be removed when doing fuzzy matches.\nThis can either be a regular expression or list of regular expressions\nthat will be removed from subject strings if fuzzy subject\nsimplification is selected." (repeat regexp) gnus-show-threads #[0 "\300\207" [t] 1] "If non-nil, display threads in summary mode." gnus-thread-hide-subtree #[0 "\300\207" [nil] 1] "If non-nil, hide all threads initially.\nThis can be a predicate specifier which says which threads to hide.\nIf threads are hidden, you have to run the command\n`gnus-summary-show-thread' by hand or select an article." (radio (sexp :format "Non-nil\n" :match (lambda (widget value) (and value (not (functionp value)))) :value t) (const nil) (sexp :tag "Predicate specifier")) gnus-thread-hide-killed #[0 "\300\207" [t] 1] "If non-nil, hide killed threads automatically." gnus-thread-ignore-subject #[0 "\300\207" [t] 1] "If non-nil, ignore subjects when creating threads.\n\nIf nil, articles that have different subjects from their parents will\nstart separate threads.\n\nThreads that are split because the subject changes will still be\nsorted as if they were part of the same thread, and\n`gnus-thread-sort-functions' will not apply to these split\nthreads." gnus-thread-operation-ignore-subject #[0 "\300\207" [t] 1] "If non-nil, subjects will be ignored when doing thread commands.\nThis affects commands like `gnus-summary-kill-thread' and\n`gnus-summary-lower-thread'.\n\nIf this variable is nil, articles in the same thread with different\nsubjects will not be included in the operation in question. If this\nvariable is `fuzzy', only articles that have subjects that are fuzzily\nequal will be included." (choice (const :tag "off" nil) (const fuzzy) (sexp :tag "on" t)) gnus-thread-indent-level #[0 "\300\207" [4] 1] "Number that says how much each sub-thread should be indented." gnus-auto-extend-newsgroup #[0 "\300\207" [t] 1] "If non-nil, extend newsgroup forward and backward when requested." gnus-summary-choose gnus-auto-select-first #[0 "\300\207" [t] 1] "If non-nil, select an article on group entry.\nAn article is selected automatically when entering a group\ne.g. with \\<gnus-group-mode-map>\\[gnus-group-read-group], or via `gnus-summary-next-page' or\n`gnus-summary-catchup-and-goto-next-group'.\n\nWhich article is selected is controlled by the variable\n`gnus-auto-select-subject'.\n\nIf you want to prevent automatic selection of articles in some\nnewsgroups, set the variable to nil in `gnus-select-group-hook'." gnus-group-select (choice (const :tag "none" nil) (sexp :menu-tag "first" t)) gnus-auto-select-subject #[0 "\300\207" [unseen-or-unread] 1] "Says what subject to place under point when entering a group.\n\nThis variable can either be the symbols `first' (place point on the\nfirst subject), `unread' (place point on the subject line of the first\nunread article), `best' (place point on the subject line of the\nhighest-scored article), `unseen' (place point on the subject line of\nthe first unseen article), `unseen-or-unread' (place point on the subject\nline of the first unseen article or, if all articles have been seen, on the\nsubject line of the first unread article), or a function to be called to\nplace point on some subject line." (choice (const best) (const unread) (const first) (const unseen) (const unseen-or-unread) (function :tag "Function to call")) gnus-auto-select-next #[0 "\300\207" [t] 1] "If non-nil, offer to go to the next group from the end of the previous.\nIf the value is t and the next newsgroup is empty, Gnus will exit\nsummary mode and go back to group mode. If the value is neither nil\nnor t, Gnus will select the following unread newsgroup. In\nparticular, if the value is the symbol `quietly', the next unread\nnewsgroup will be selected without any confirmation, and if it is\n`almost-quietly', the next group will be selected without any\nconfirmation if you are located on the last article in the group.\nFinally, if this variable is `slightly-quietly', the `\\<gnus-summary-mode-map>\\[gnus-summary-catchup-and-goto-next-group]' command\nwill go to the next group without confirmation." (choice (const :tag "off" nil) (const quietly) (const almost-quietly) (const slightly-quietly) (sexp :menu-tag "on" t)) gnus-auto-select-same #[0 "\300\207" [nil] 1] "If non-nil, select the next article with the same subject.\nIf there are no more articles with the same subject, go to\nthe first unread article." gnus-auto-select-on-ephemeral-exit #[0 "\300\207" [next-noselect] 1] "What article should be selected after exiting an ephemeral group.\nValid values include:\n\n`next'\n Select the next article.\n`next-unread'\n Select the next unread article.\n`next-noselect'\n Move the cursor to the next article. This is the default.\n`next-unread-noselect'\n Move the cursor to the next unread article.\n\nIf it has any other value or there is no next (unread) article, the\narticle selected before entering to the ephemeral group will appear." (choice :format "%{%t%}:\n %[Value Menu%] %v" (const next) (const next-unread) (const next-noselect) (const next-unread-noselect) (sexp :tag "other" :value nil)) gnus-auto-goto-ignores #[0 "\300\207" [unfetched] 1] "Says how to handle unfetched articles when maneuvering.\n\nThis variable can either be the symbols nil (maneuver to any\narticle), `undownloaded' (maneuvering while unplugged ignores articles\nthat have not been fetched), `always-undownloaded' (maneuvering always\nignores articles that have not been fetched), `unfetched' (maneuvering\nignores articles whose headers have not been fetched).\n\nNOTE: The list of unfetched articles will always be nil when plugged\nand, when unplugged, a subset of the undownloaded article list." (choice (const :tag "None" nil) (const :tag "Undownloaded when unplugged" undownloaded) (const :tag "Undownloaded" always-undownloaded) (const :tag "Unfetched" unfetched)) gnus-summary-check-current #[0 "\300\207" [nil] 1] "If non-nil, consider the current article when moving.\nThe \"unread\" movement commands will stay on the same line if the\ncurrent article is unread." gnus-auto-center-summary #[0 "\301\300!\203\n \206 \302\303]\207" [scroll-margin boundp 0 2] 2] "If non-nil, always center the current summary buffer.\nIn particular, if `vertical' do only vertical recentering. If non-nil\nand non-`vertical', do both horizontal and vertical recentering." (choice (const :tag "none" nil) (const vertical) (integer :tag "height") (sexp :menu-tag "both" t)) gnus-auto-center-group #[0 "\300\207" [t] 1] "If non-nil, always center the group buffer." gnus-show-all-headers #[0 "\300\207" [nil] 1] "If non-nil, don't hide any headers." gnus-article-hiding gnus-article-headers gnus-summary-ignore-duplicates #[0 "\300\207" [nil] 1] "If non-nil, ignore articles with identical Message-ID headers." gnus-summary gnus-single-article-buffer #[0 "\300\207" [nil] 1] "If non-nil, display all articles in the same buffer.\nIf nil, each group will get its own article buffer." gnus-article-various gnus-widen-article-window #[0 "\300\207" [nil] 1] "If non-nil, selecting the article buffer will display only the article buffer." gnus-break-pages #[0 "\300\207" [t] 1] "If non-nil, do page breaking on articles.\nThe page delimiter is specified by the `gnus-page-delimiter'\nvariable." gnus-move-split-methods #[0 "\300\207" [nil] 1] "Variable used to suggest where articles are to be moved to.\nIt uses the same syntax as the `gnus-split-methods' variable.\nHowever, whereas `gnus-split-methods' specifies file names as targets,\nthis variable specifies group names." gnus-summary-mail (repeat (choice (list :value (fun) function) (cons :value (#2# #2#) regexp (repeat string)) (sexp :value nil))) gnus-move-group-prefix-function #[0 "\300\207" [gnus-group-real-prefix] 1] "Function used to compute default prefix for article move/copy/etc prompts.\nThe function should take one argument, a group name, and return a\nstring with the suggested prefix." gnus-unread-mark #[0 "\300\207" [32] 1] "Mark used for unread articles." character gnus-ticked-mark #[0 "\300\207" [33] 1] "Mark used for ticked articles." gnus-dormant-mark #[0 "\300\207" [63] 1] "Mark used for dormant articles." gnus-del-mark #[0 "\300\207" [114] 1] "Mark used for del'd articles." gnus-read-mark #[0 "\300\207" [82] 1] "Mark used for read articles." gnus-expirable-mark #[0 "\300\207" [69] 1] "Mark used for expirable articles." gnus-killed-mark #[0 "\300\207" [75] 1] "Mark used for killed articles." gnus-spam-mark #[0 "\300\207" [36] 1] "Mark used for spam articles." gnus-kill-file-mark #[0 "\300\207" [88] 1] "Mark used for articles killed by kill files." gnus-low-score-mark #[0 "\300\207" [89] 1] "Mark used for articles with a low score." gnus-catchup-mark #[0 "\300\207" [67] 1] "Mark used for articles that are caught up." gnus-replied-mark #[0 "\300\207" [65] 1] "Mark used for articles that have been replied to." gnus-forwarded-mark #[0 "\300\207" [70] 1] "Mark used for articles that have been forwarded." gnus-recent-mark #[0 "\300\207" [78] 1] "Mark used for articles that are recent." gnus-cached-mark #[0 "\300\207" [42] 1] "Mark used for articles that are in the cache." gnus-saved-mark #[0 "\300\207" [83] 1] "Mark used for articles that have been saved." gnus-unseen-mark #[0 "\300\207" [46] 1] "Mark used for articles that haven't been seen." gnus-no-mark #[0 "\300\207" [32] 1] "Mark used for articles that have no other secondary mark." gnus-ancient-mark #[0 "\300\207" [79] 1] "Mark used for ancient articles." gnus-sparse-mark #[0 "\300\207" [81] 1] "Mark used for sparsely reffed articles." gnus-canceled-mark #[0 "\300\207" [71] 1] "Mark used for canceled articles." gnus-duplicate-mark #[0 "\300\207" [77] 1] "Mark used for duplicate articles." gnus-undownloaded-mark #[0 "\300\207" [45] 1] "Mark used for articles that weren't downloaded." gnus-downloaded-mark #[0 "\300\207" [43] 1] "Mark used for articles that were downloaded." gnus-downloadable-mark #[0 "\300\207" [37] 1] "Mark used for articles that are to be downloaded." gnus-unsendable-mark #[0 "\300\207" [61] 1] "Mark used for articles that won't be sent." gnus-score-over-mark #[0 "\300\207" [43] 1] "Score mark used for articles with high scores." gnus-score-below-mark #[0 "\300\207" [45] 1] "Score mark used for articles with low scores." gnus-empty-thread-mark #[0 "\300\207" [32] 1] "There is no thread under the article." gnus-not-empty-thread-mark #[0 "\300\207" [61] 1] "There is a thread under the article." gnus-view-pseudo-asynchronously #[0 "\300\207" [nil] 1] "If non-nil, Gnus will view pseudo-articles asynchronously." gnus-extract-view gnus-auto-expirable-marks #[0 " \n \f \257\207" [gnus-killed-mark gnus-del-mark gnus-catchup-mark gnus-low-score-mark gnus-ancient-mark gnus-read-mark gnus-duplicate-mark] 7] "The list of marks converted into expiration if a group is auto-expirable." (repeat character) gnus-inhibit-user-auto-expire #[0 "\300\207" [t] 1] "If non-nil, user marking commands will not mark an article as expirable, even if the group has auto-expire turned on." "21.1" gnus-mark-copied-or-moved-articles-as-expirable #[0 "\300\207" [nil] 1] "If non-nil, mark articles copied or moved to auto-expire group as expirable.\nIf nil, the expirable marks will be unchanged except that the marks\nwill be removed when copying or moving articles to a group that has\nnot turned auto-expire on. If non-nil, articles that have been read\nwill be marked as expirable when being copied or moved to a group in\nwhich auto-expire is turned on." "23.2" gnus-view-pseudos #[0 "\300\207" [nil] 1] "If `automatic', pseudo-articles will be viewed automatically.\nIf `not-confirm', pseudos will be viewed automatically, and the user\nwill not be asked to confirm the command." (choice (const :tag "off" nil) (const automatic) (const not-confirm)) gnus-view-pseudos-separately #[0 "\300\207" [t] 1] "If non-nil, one pseudo-article will be created for each file to be viewed.\nIf nil, all files that use the same viewing command will be given as a\nlist of parameters to that command." gnus-insert-pseudo-articles #[0 "\300\207" [t] 1] "If non-nil, insert pseudo-articles when decoding articles." gnus-summary-dummy-line-format #[0 "\300\207" [#3=" %(: :%) %S\n"] 1 #3#] "The format specification for the dummy roots in the summary buffer.\nIt works along the same lines as a normal formatting string,\nwith some simple extensions.\n\n%S The subject\n\nGeneral format specifiers can also be used.\nSee `(gnus)Formatting Variables'." (custom-manual "(gnus)Formatting Variables") gnus-threading gnus-summary-mode-line-format #[0 "\300\207" [#4="Gnus: %g [%A] %Z"] 1 #4#] "The format specification for the summary mode line.\nIt works along the same lines as a normal formatting string,\nwith some simple extensions:\n\n%G Group name\n%p Unprefixed group name\n%A Current article number\n%z Current article score\n%V Gnus version\n%U Number of unread articles in the group\n%e Number of unselected articles in the group\n%Z A string with unread/unselected article counts\n%g Shortish group name\n%S Subject of the current article\n%u User-defined spec\n%s Current score file name\n%d Number of dormant articles\n%r Number of articles that have been marked as read in this session\n%E Number of articles expunged by the score files" gnus-list-identifiers #[0 "\300\207" [nil] 1] "Regexp that matches list identifiers to be removed from subject.\nThis can also be a list of regexps." (choice (const :tag "none" nil) (regexp :value ".*") (repeat :value (".*") regexp)) gnus-summary-mark-below #[0 "\300\207" [0] 1] "Mark all articles with a score below this variable as read.\nThis variable is local to each summary buffer and usually set by the\nscore file."] 12) #@142 Ignoring WIDGET, convert VALUE to internal form. VALUE should have the form `FOO' or `(not FOO)', where FOO is an symbol. (fn WIDGET VALUE) (defalias 'gnus-widget-reversible-match #[514 "\2119\206 \211<\205 \211G\300=\205 \211@\301=\205 \211A@9\207" [2 not] 4 (#$ . 28935)]) #@209 Ignoring WIDGET, convert VALUE to internal form. VALUE should have the form `FOO' or `(not FOO)', where FOO is an atom. FOO is converted to (FOO nil) and (not FOO) is converted to (FOO t). (fn WIDGET VALUE) (defalias 'gnus-widget-reversible-to-internal #[514 "\211:\204 \211\300D\207\211A@\301D\207" [nil t] 4 (#$ . 29222)]) #@214 Ignoring WIDGET, convert VALUE to external form. VALUE should have the form `(FOO nil)' or `(FOO t)', where FOO is an atom. (FOO nil) is converted to FOO and (FOO t) is converted to (not FOO). (fn WIDGET VALUE) (defalias 'gnus-widget-reversible-to-external #[514 "\211A@\203 \300@D\207\211@\207" [not] 4 (#$ . 29556)]) (byte-code "\300\301\302\303\304\305\306\307\310\311& \210\312\313\314\315\316DD\317\320\321\322\323&\210\312\324\314\315\325DD\326\320\321\322\327&\210\312\330\314\315\331DD\332\333\334\320\321\322\335& \210\312\336\314\315\337DD\340\320\321\322\315&\210\312\341\314\315\342DD\343\320\344\322\345&\210\312\346\314\315\347DD\350\320\351\320\344\322\352& \210\312\353\314\315\354DD\355\320\356\322\357&\210\312\360\314\315\361DD\362\320\363\322\357&\210\312\364\314\315\365DD\366\320\367\322\357&\210\312\370\314\315\371DD\372\320\367\322\357&\210\312\373\314\315\374DD\375\320\367\322\357&\210\312\376\314\315\377DD\201@ \320\201A \322\357&\210\312\201B \314\315\201C DD\201D \320\201E \201F \201G \322\357& \210\312\201H \314\315\201I DD\201J \320\356\322\357&\210\312\201K \314\315\201L DD\201M \320\201N \322\357&\210\312\201O \314\315\201P DD\201Q \320\201N \322\357&\210\312\201R \314\315\201S DD\201T \320\356\322\357&\210\312\201U \314\315\201V DD\201W \320\201E \322\357&\210\312\201X \314\315\201Y DD\201Z \320\201A \322\357&\210\312\201[ \314\315\201\\ DD\201] \320\201^ \322\357&\210\312\201_ \314\315\201` DD\201a \333\201b \320\201^ \322\357& \210\312\201c \314\315\201d DD\201e \333\201b \320\201^ \322\357& \210\312\201f \314\315\201g DD\201h \333\201b \320\201^ \322\357& \210\312\201i \314\315\201j DD\201k \333\201b \320\201^ \322\201l & \210\312\201m \314\315\201n DD\201o \320\356\322\201p &\207" [define-widget gnus-widget-reversible group "A `group' that convert values." :match gnus-widget-reversible-match :value-to-internal gnus-widget-reversible-to-internal :value-to-external gnus-widget-reversible-to-external custom-declare-variable gnus-article-sort-functions funcall function #[0 "\300\207" [(gnus-article-sort-by-number)] 1] "List of functions used for sorting articles in the summary buffer.\n\nEach function takes two articles and returns non-nil if the first\narticle should be sorted before the other. If you use more than one\nfunction, the primary sort function should be the last. You should\nprobably always include `gnus-article-sort-by-number' in the list of\nsorting functions -- preferably first. Also note that sorting by date\nis often much slower than sorting by number, and the sorting order is\nvery similar. (Sorting by date means sorting by the time the message\nwas sent, sorting by number means sorting by arrival time.)\n\nEach item can also be a list `(not F)' where F is a function;\nthis reverses the sort order.\n\nReady-made functions include `gnus-article-sort-by-number',\n`gnus-article-sort-by-author', `gnus-article-sort-by-subject',\n`gnus-article-sort-by-date', `gnus-article-sort-by-random'\nand `gnus-article-sort-by-score'.\n\nWhen threading is turned on, the variable `gnus-thread-sort-functions'\ncontrols how articles are sorted." :group gnus-summary-sort :type (repeat (gnus-widget-reversible (choice (function-item gnus-article-sort-by-number) (function-item gnus-article-sort-by-author) (function-item gnus-article-sort-by-subject) (function-item gnus-article-sort-by-date) (function-item gnus-article-sort-by-score) (function-item gnus-article-sort-by-random) (function :tag "other")) (boolean :tag "Reverse order"))) gnus-thread-sort-functions #[0 "\300\207" [(gnus-thread-sort-by-number)] 1] "List of functions used for sorting threads in the summary buffer.\nBy default, threads are sorted by article number.\n\nEach function takes two threads and returns non-nil if the first\nthread should be sorted before the other. If you use more than one\nfunction, the primary sort function should be the last. You should\nprobably always include `gnus-thread-sort-by-number' in the list of\nsorting functions -- preferably first. Also note that sorting by date\nis often much slower than sorting by number, and the sorting order is\nvery similar. (Sorting by date means sorting by the time the message\nwas sent, sorting by number means sorting by arrival time.)\n\nEach list item can also be a list `(not F)' where F is a\nfunction; this specifies reversed sort order.\n\nReady-made functions include `gnus-thread-sort-by-number',\n`gnus-thread-sort-by-author', `gnus-thread-sort-by-recipient'\n`gnus-thread-sort-by-subject', `gnus-thread-sort-by-date',\n`gnus-thread-sort-by-score', `gnus-thread-sort-by-most-recent-number',\n`gnus-thread-sort-by-most-recent-date', `gnus-thread-sort-by-random',\nand `gnus-thread-sort-by-total-score' (see\n`gnus-thread-score-function').\n\nWhen threading is turned off, the variable\n`gnus-article-sort-functions' controls how articles are sorted.\n\nBy default, threads and their subthreads are sorted according to\nthe value of this variable. To use a different sorting order for\nsubthreads, customize `gnus-subthread-sort-functions'." (repeat (gnus-widget-reversible (choice (function-item gnus-thread-sort-by-number) (function-item gnus-thread-sort-by-author) (function-item gnus-thread-sort-by-recipient) (function-item gnus-thread-sort-by-subject) (function-item gnus-thread-sort-by-date) (function-item gnus-thread-sort-by-score) (function-item gnus-thread-sort-by-most-recent-number) (function-item gnus-thread-sort-by-most-recent-date) (function-item gnus-thread-sort-by-random) (function-item gnus-thread-sort-by-total-score) (function :tag "other")) (boolean :tag "Reverse order"))) gnus-subthread-sort-functions #[0 "\300\207" [gnus-thread-sort-functions] 1] "List of functions used for sorting subthreads in the summary buffer.\nBy default, subthreads are sorted the same as threads, i.e.,\naccording to the value of `gnus-thread-sort-functions'." :version "24.4" (choice (const :tag "Sort subthreads like threads" gnus-thread-sort-functions) (repeat (gnus-widget-reversible (choice (function-item gnus-thread-sort-by-number) (function-item gnus-thread-sort-by-author) (function-item gnus-thread-sort-by-recipient) (function-item gnus-thread-sort-by-subject) (function-item gnus-thread-sort-by-date) (function-item gnus-thread-sort-by-score) (function-item gnus-thread-sort-by-most-recent-number) (function-item gnus-thread-sort-by-most-recent-date) (function-item gnus-thread-sort-by-random) (function-item gnus-thread-sort-by-total-score) (function :tag "other")) (boolean :tag "Reverse order")))) gnus-thread-score-function #[0 "\300\207" [+] 1] "Function used for calculating the total score of a thread.\n\nThe function is called with the scores of the article and each\nsubthread and should then return the score of the thread.\n\nSome functions you can use are `+', `max', or `min'." gnus-summary-expunge-below #[0 "\300\207" [nil] 1] "All articles that have a score less than this variable will be expunged.\nThis variable is local to the summary buffers." gnus-score-default (choice (const :tag "off" nil) integer) gnus-thread-expunge-below #[0 "\300\207" [nil] 1] "All threads that have a total score less than this variable will be expunged.\nSee `gnus-thread-score-function' for en explanation of what a\n\"thread score\" is.\n\nThis variable is local to the summary buffers." gnus-threading (choice (const :tag "off" nil) integer) gnus-summary-menu-hook #[0 "\300\207" [nil] 1] "Hook run after the creation of the summary mode menu." gnus-summary-visual hook gnus-summary-exit-hook #[0 "\300\207" [nil] 1] "A hook called on exit from the summary buffer.\nIt will be called with point in the group buffer." gnus-summary-exit gnus-summary-prepare-hook #[0 "\300\207" [nil] 1] "A hook called after the summary buffer has been generated.\nIf you want to modify the summary buffer, you can use this hook." gnus-summary-various gnus-summary-prepared-hook #[0 "\300\207" [nil] 1] "A hook called as the last thing after the summary buffer has been generated." gnus-summary-generate-hook #[0 "\300\207" [nil] 1] "A hook run just before generating the summary buffer.\nThis hook is commonly used to customize threading variables and the\nlike." gnus-select-group-hook #[0 "\300\207" [nil] 1] "A hook called when a newsgroup is selected.\n\nIf you'd like to simplify subjects like the\n`gnus-summary-next-same-subject' command does, you can use the\nfollowing hook:\n\n (add-hook gnus-select-group-hook\n (lambda ()\n (mapcar (lambda (header)\n (setf (mail-header-subject header)\n (gnus-simplify-subject\n (mail-header-subject header) \\='re-only)))\n gnus-newsgroup-headers)))" gnus-group-select gnus-select-article-hook #[0 "\300\207" [nil] 1] "A hook called when an article is selected." gnus-summary-choose :options (gnus-agent-fetch-selected-article) gnus-visual-mark-article-hook #[0 "\300C\207" [gnus-highlight-selected-summary] 1] "Hook run after selecting an article in the summary buffer.\nIt is meant to be used for highlighting the article in some way. It\nis not run if `gnus-visual' is nil." gnus-parse-headers-hook #[0 "\300\207" [nil] 1] "A hook called before parsing the headers." gnus-various gnus-exit-group-hook #[0 "\300\207" [nil] 1] "A hook called when exiting summary mode.\nThis hook is not called from the non-updating exit commands like `Q'." gnus-summary-update-hook #[0 "\300\207" [nil] 1] "A hook called when a summary line is changed.\nThe hook will not be called if `gnus-visual' is nil.\n\nThe default function `gnus-summary-highlight-line' will\nhighlight the line according to the `gnus-summary-highlight'\nvariable." gnus-mark-article-hook #[0 "\300\207" [(gnus-summary-mark-read-and-unread-as-read)] 1] "A hook called when an article is selected for the first time.\nThe hook is intended to mark an article as read (or unread)\nautomatically when it is selected." gnus-group-no-more-groups-hook #[0 "\300\207" [nil] 1] "A hook run when returning to group mode having no more (unread) groups." gnus-ps-print-hook #[0 "\300\207" [nil] 1] "A hook run before ps-printing something from Gnus." gnus-summary gnus-summary-article-move-hook #[0 "\300\207" [nil] 1] "A hook called after an article is moved, copied, respooled, or crossposted." "22.1" gnus-summary-article-delete-hook #[0 "\300\207" [nil] 1] "A hook called after an article is deleted." gnus-summary-article-expire-hook #[0 "\300\207" [nil] 1] "A hook called after an article is expired." gnus-summary-display-arrow #[0 "\300 \207" [display-graphic-p] 1] "If non-nil, display an arrow highlighting the current article." boolean gnus-summary-selected-face #[0 "\300\207" [gnus-summary-selected] 1] "Face used for highlighting the current article in the summary buffer." face] 10) (defvar gnus-tmp-downloaded nil) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\301\313\314#\210\300\315\302\303\316DD\317\310\320\306\321&\207" [custom-declare-variable gnus-summary-highlight funcall function #[0 "\300\207" [(((eq mark gnus-canceled-mark) . gnus-summary-cancelled) ((and uncached (> score default-high)) . gnus-summary-high-undownloaded) ((and uncached (< score default-low)) . gnus-summary-low-undownloaded) (uncached . gnus-summary-normal-undownloaded) ((and (> score default-high) (or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark))) . gnus-summary-high-ticked) ((and (< score default-low) (or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark))) . gnus-summary-low-ticked) ((or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark)) . gnus-summary-normal-ticked) ((and (> score default-high) (eq mark gnus-ancient-mark)) . gnus-summary-high-ancient) ((and (< score default-low) (eq mark gnus-ancient-mark)) . gnus-summary-low-ancient) ((eq mark gnus-ancient-mark) . gnus-summary-normal-ancient) ((and (> score default-high) (eq mark gnus-unread-mark)) . gnus-summary-high-unread) ((and (< score default-low) (eq mark gnus-unread-mark)) . gnus-summary-low-unread) ((eq mark gnus-unread-mark) . gnus-summary-normal-unread) ((> score default-high) . gnus-summary-high-read) ((< score default-low) . gnus-summary-low-read) (t . gnus-summary-normal-read))] 1] "Controls the highlighting of summary buffer lines.\n\nA list of (FORM . FACE) pairs. When deciding how a particular\nsummary line should be displayed, each form is evaluated. The content\nof the face field after the first true form is used. You can change\nhow those summary lines are displayed, by editing the face field.\n\nYou can use the following variables in the FORM field.\n\nscore: The article's score.\ndefault: The default article score.\ndefault-high: The default score for high scored articles.\ndefault-low: The default score for low scored articles.\nmark: The article's mark.\nuncached: Non-nil if the article is uncached." :group gnus-summary-visual :type (repeat (cons (sexp :tag "Form" nil) face)) put risky-local-variable t gnus-alter-header-function #[0 "\300\207" [nil] 1] "Function called to allow alteration of article header structures.\nThe function is called with one parameter, the article header vector,\nwhich it may alter in any way." (choice (const :tag "None" nil) function) gnus-summary] 8) #@54 Function used to decode a string with encoded words. (defvar gnus-decode-encoded-word-function 'mail-decode-encoded-word-string (#$ . 42824)) #@55 Function used to decode addresses with encoded words. (defvar gnus-decode-encoded-address-function 'mail-decode-encoded-address-string (#$ . 42972)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\310\311\312\320& \207" [custom-declare-variable gnus-extra-headers funcall function #[0 "\300\207" [(To Cc Keywords Gcc Newsgroups X-GM-LABELS)] 1] "Extra headers to parse." :version "25.1" :group gnus-summary :type (repeat symbol) gnus-ignored-from-addresses #[0 "\205 \301\230?\205 \302!\207" [user-mail-address "" regexp-quote] 2] "From headers that may be suppressed in favor of To headers.\nThis can be a regexp, a list of regexps or a function.\n\nIf a function, an email string is passed as the argument." "21.1" (choice regexp (repeat :tag "Regexp List" regexp) function)] 10) (defalias 'gnus-ignored-from-addresses #[0 "\301!\203 \207\302!\207" [gnus-ignored-from-addresses functionp gmm-regexp-concat] 2]) (byte-code "\301\302\303\304#\210\305\306\307\310\311DD\312\313\314\315\316\317\320& \210\305\321\307\310\322DD\323\313\314\315\316\317\320& \210\305\324\307\310\325DD\326\313\327\317\330\315\331& \210\305\332\307\310\333DD\334\315\335\313\336\317\337& \210\305\340\307\310\341DD\342\315\343\315\331\317\344& \210\345\346\236\"\347\300\346\350\351E\"\207" [gnus-group-parameters-more put gnus-ignored-from-addresses byte-optimizer byte-compile-inline-expand custom-declare-variable gnus-summary-to-prefix funcall function #[0 "\300\207" [#1="-> "] 1 #1#] "String prefixed to the To field in the summary line when\nusing `gnus-ignored-from-addresses'." :version "22.1" :group gnus-summary :type string gnus-summary-newsgroup-prefix #[0 "\300\207" [#2="=> "] 1 #2#] "String prefixed to the Newsgroup field in the summary\nline when using the option `gnus-ignored-from-addresses'." gnus-newsgroup-ignored-charsets #[0 "\300\207" [(unknown-8bit x-unknown)] 1] "List of charsets that should be ignored.\nWhen these charsets are used in the \"charset\" parameter, the\ndefault charset will be used instead." "21.1" (repeat symbol) gnus-charset gnus-newsgroup-maximum-articles #[0 "\300\207" [nil] 1] "The maximum number of articles a newsgroup.\nIf this is a number, old articles in a newsgroup exceeding this number\nare silently ignored. If it is nil, no article is ignored. Note that\nsetting this variable to a number might prevent you from reading very\nold articles." gnus-group-select "22.2" (choice (const :tag "No limit" nil) integer) gnus-group-ignored-charsets-alist #[0 "\300\207" [(("alt\\.chinese\\.text" iso-8859-1))] 1] "Alist of regexps (to match group names) and charsets that should be ignored.\nWhen these charsets are used in the \"charset\" parameter, the\ndefault charset will be used instead." gnus-group-parameter (repeat (cons (regexp :tag "Group") (repeat symbol))) delq ignored-charsets add-to-list (choice :tag "Ignored charsets" :value nil (repeat (symbol))) "List of charsets that should be ignored.\n\nWhen these charsets are used in the \"charset\" parameter, the\ndefault charset will be used instead."] 10) #@50 Return the ignored charsets of GROUP. (fn NAME) (defalias 'gnus-parameter-ignored-charsets #[257 "\211\2053 \301\302\303#\2063 \304\211\211A\262\242\211\262\2031 \203 \305@\"\203 \304\262A\262\202 \266\202\207" [gnus-group-ignored-charsets-alist gnus-group-find-parameter ignored-charsets t nil string-match] 7 (#$ . 46096)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\307\310\317\312\320& \210\300\321\302\303\322DD\323\306\307\310\324\312\325& \210\300\326\302\303\327DD\330\310\303\312\331&\210\300\332\302\303\333DD\334\312\335\310\336&\210\300\337\302\303\340DD\341\312\331\310\342&\210\300\343\302\303\344DD\345\306\346\312\331\310\347& \210\300\350\302\303\351DD\352\306\353\312\331\310\354& \210\300\355\302\303\356DD\357\306\346\312\331\310\360& \210\300\361\302\303\362DD\363\306\346\310\324\312\364& \210\300\365\302\303\366DD\367\306\346\310\324\312\364& \207" [custom-declare-variable gnus-group-highlight-words-alist funcall function #[0 "\300\207" [nil] 1] "Alist of group regexps and highlight regexps.\nThis variable uses the same syntax as `gnus-emphasis-alist'." :version "21.1" :type (repeat (cons (regexp :tag "Group") (repeat (list (regexp :tag "Highlight regexp") (number :tag "Group for entire word" 0) (number :tag "Group for displayed part" 0) (symbol :tag "Face" gnus-emphasis-highlight-words))))) :group gnus-summary-visual gnus-summary-show-article-charset-alist #[0 "\300\207" [nil] 1] "Alist of number and charset.\nThe article will be shown with the charset corresponding to the\nnumbered argument.\nFor example: ((1 . cn-gb-2312) (2 . big5))." (repeat (cons (number :tag "Argument" 1) (symbol :tag "Charset"))) gnus-charset gnus-preserve-marks #[0 "\300\207" [t] 1] "Whether marks are preserved when moving, copying and respooling messages." boolean gnus-summary-marks gnus-alter-articles-to-read-function #[0 "\300\207" [#[514 "\207" [] 3 "\n\n(fn GROUP ARTICLE-LIST)"]] 1] "Function to be called to alter the list of articles to be selected.\nThis option defaults to a lambda form that simply returns the\nlist of articles unchanged. Use `add-function' to set one or\nmore custom filter functions." gnus-summary gnus-orphan-score #[0 "\300\207" [nil] 1] "All orphans get this score added. Set in the score file." gnus-score-default (choice (const nil) integer) gnus-summary-save-parts-default-mime #[0 "\300\207" [#1="image/.*"] 1 #1#] "A regexp to match MIME parts when saving multiple parts of a\nmessage with `gnus-summary-save-parts' (\\<gnus-summary-mode-map>\\[gnus-summary-save-parts]).\nThis regexp will be used by default when prompting the user for which\ntype of files to save." regexp gnus-read-all-available-headers #[0 "\300\207" [nil] 1] "Whether Gnus should parse all headers made available to it.\nThis is mostly relevant for slow back ends where the user may\nwish to widen the summary buffer to include all headers\nthat were fetched." "22.1" (choice boolean regexp) gnus-summary-pipe-output-default-command #[0 "\300\207" [nil] 1] "Command (and optional arguments) used to pipe article to subprocess.\nThis will be used as the default command if it is non-nil. The value\nwill be updated if you modify it when executing the command\n`gnus-summary-pipe-output' or the function `gnus-summary-save-in-pipe'." "23.1" (radio (const :tag "None" nil) (string :tag "Command")) gnus-summary-muttprint-program #[0 "\300\207" [#2="muttprint"] 1 #2#] "Command (and optional arguments) used to run Muttprint.\nThe value will be updated if you modify it when executing the command\n`gnus-summary-muttprint'." string gnus-article-loose-mime #[0 "\300\207" [t] 1] "If non-nil, don't require MIME-Version header.\nSome brain-damaged MUA/MTA, e.g. Lotus Domino 5.0.6 clients, does not\nsupply the MIME-Version header or deliberately strip it from the mail.\nIf non-nil (the default), Gnus will treat some articles as MIME\neven if the MIME-Version header is missing." gnus-article-mime gnus-article-emulate-mime #[0 "\300\207" [t] 1] "If non-nil, use MIME emulation for uuencode and the like.\nThis means that Gnus will search message bodies for text that look\nlike uuencoded bits, yEncoded bits, and so on, and present that using\nthe normal Gnus MIME machinery."] 10) (defvar gnus-summary-display-cache nil) (defvar gnus-article-mime-handles nil) (defvar gnus-article-decoded-p nil) (defvar gnus-article-charset nil) (defvar gnus-article-ignored-charsets nil) (defvar gnus-scores-exclude-files nil) (defvar gnus-page-broken nil) (defvar gnus-original-article nil) (defvar gnus-article-internal-prepare-hook nil) (defvar gnus-newsgroup-process-stack nil) (defvar gnus-thread-indent-array nil) (defvar gnus-thread-indent-array-level gnus-thread-indent-level) #@91 Function called to sort the articles within a thread after it has been gathered together. (defvar gnus-sort-gathered-threads-function 'gnus-thread-sort-by-number (#$ . 50876)) (defvar gnus-summary-save-parts-type-history nil) (defvar gnus-summary-save-parts-last-directory mm-default-directory) (defvar gnus-summary-inhibit-highlight nil) (defvar gnus-newsgroup-selected-overlay nil) (defvar gnus-inhibit-limiting nil) (defvar gnus-newsgroup-adaptive-score-file nil) (defvar gnus-current-score-file nil) (defvar gnus-current-move-group nil) (defvar gnus-current-copy-group nil) (defvar gnus-current-crosspost-group nil) (defvar gnus-newsgroup-display nil) #@53 A hash table holding dependencies between messages. (defvar gnus-newsgroup-dependencies nil (#$ . 51538)) (defvar gnus-newsgroup-adaptive nil) (defvar gnus-summary-display-article-function nil) #@52 Function called after highlighting a summary line. (defvar gnus-summary-highlight-line-function nil (#$ . 51738)) #@199 An alist of format specifications that can appear in summary lines. These are paired with what variables they correspond with, along with the type of the variable (string, integer, character, etc). (defvar gnus-summary-line-format-alist (byte-code "\300\301\302!\303BB\304\301\305!\306BB\307\310\311\312\313\314\301\315!\316BB\317\301\320!\321BB\322\323\324\301\325!\326BB\327\301\330!\331BB\332\333\334\335\336\337\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357\360\361\362\363\301\364!D\365BB\257&\207" [78 macroexpand (mail-header-number gnus-tmp-header) (100) 83 (mail-header-subject gnus-tmp-header) (115) (115 gnus-tmp-subject-or-nil 115) (110 gnus-tmp-name 115) (65 (car (cdr (funcall gnus-extract-address-components gnus-tmp-from))) 115) (97 (or (car (funcall gnus-extract-address-components gnus-tmp-from)) gnus-tmp-from) 115) (70 gnus-tmp-from 115) 120 (mail-header-xref gnus-tmp-header) (115) 68 (mail-header-date gnus-tmp-header) (115) (100 (gnus-dd-mmm (mail-header-date gnus-tmp-header)) 115) (111 (gnus-date-iso8601 (mail-header-date gnus-tmp-header)) 115) 77 (mail-header-id gnus-tmp-header) (115) 114 (mail-header-references gnus-tmp-header) (115) (99 (or (mail-header-chars gnus-tmp-header) 0) 100) (107 (gnus-summary-line-message-size gnus-tmp-header) 115) (76 gnus-tmp-lines 115) (90 (or (nnir-article-rsv (mail-header-number gnus-tmp-header)) 0) 100) (71 (or (nnir-article-group (mail-header-number gnus-tmp-header)) #1="") 115) (103 (or (gnus-group-short-name (nnir-article-group (mail-header-number gnus-tmp-header))) #1#) 115) (79 gnus-tmp-downloaded 99) (73 gnus-tmp-indentation 115) (84 (if (= gnus-tmp-level 0) #1# (make-string (frame-width) 32)) 115) (82 gnus-tmp-replied 99) (91 gnus-tmp-opening-bracket 99) (93 gnus-tmp-closing-bracket 99) (62 (make-string gnus-tmp-level 32) 115) (60 (make-string (max 0 (- 20 gnus-tmp-level)) 32) 115) (105 gnus-tmp-score 100) (122 gnus-tmp-score-char 99) (86 (gnus-thread-total-score (and (boundp 'gnus-tmp-thread) (car gnus-tmp-thread))) 100) (85 gnus-tmp-unread 99) (102 (gnus-summary-from-or-to-or-newsgroups gnus-tmp-header gnus-tmp-from) 115) (116 (gnus-summary-number-of-articles-in-thread (and (boundp 'gnus-tmp-thread) (car gnus-tmp-thread)) gnus-tmp-level) 100) (101 (gnus-summary-number-of-articles-in-thread (and (boundp 'gnus-tmp-thread) (car gnus-tmp-thread)) gnus-tmp-level t) 99) (117 gnus-tmp-user-defined 115) (80 (gnus-pick-line-number) 100) (66 gnus-tmp-thread-tree-header-string 115) user-date gnus-user-date (mail-header-date gnus-tmp-header) (115)] 41) (#$ . 51859)) (defvar gnus-summary-dummy-line-format-alist '((83 gnus-tmp-subject 115) (78 gnus-tmp-number 100) (117 gnus-tmp-user-defined 115))) (defvar gnus-summary-mode-line-format-alist '((71 gnus-tmp-group-name 115) (103 (gnus-short-group-name gnus-tmp-group-name) 115) (112 (gnus-group-real-name gnus-tmp-group-name) 115) (65 gnus-tmp-article-number 100) (90 gnus-tmp-unread-and-unselected 115) (86 gnus-version 115) (85 gnus-tmp-unread-and-unticked 100) (83 gnus-tmp-subject 115) (101 gnus-tmp-unselected 100) (117 gnus-tmp-user-defined 115) (100 (length gnus-newsgroup-dormant) 100) (116 (length gnus-newsgroup-marked) 100) (104 (length gnus-newsgroup-spam-marked) 100) (114 (length gnus-newsgroup-reads) 100) (122 (gnus-summary-article-score gnus-tmp-article-number) 100) (69 gnus-newsgroup-expunged-tally 100) (115 (gnus-current-score-file-nondirectory) 115))) (defvar gnus-article-mode-line-format-alist (nconc '((119 (gnus-article-wash-status) 115) (109 (gnus-article-mime-part-status) 115)) gnus-summary-mode-line-format-alist)) #@44 Default regexp for article search command. (defvar gnus-last-search-regexp nil (#$ . 55465)) #@35 Default shell command on article. (defvar gnus-last-shell-command nil (#$ . 55564)) #@89 Locally bound in each summary buffer to indicate whether the server has been agentized. (defvar gnus-newsgroup-agentized nil (#$ . 55654)) (defvar gnus-newsgroup-begin nil) (defvar gnus-newsgroup-end nil) (defvar gnus-newsgroup-last-rmail nil) (defvar gnus-newsgroup-last-mail nil) (defvar gnus-newsgroup-last-folder nil) (defvar gnus-newsgroup-last-file nil) (defvar gnus-newsgroup-last-directory nil) (defvar gnus-newsgroup-auto-expire nil) (defvar gnus-newsgroup-active nil) (defvar gnus-newsgroup-highest nil) (defvar gnus-newsgroup-data nil) (defvar gnus-newsgroup-data-reverse nil) (defvar gnus-newsgroup-limit nil) (defvar gnus-newsgroup-limits nil) (defvar gnus-summary-use-undownloaded-faces nil) #@58 Sorted list of unread articles in the current newsgroup. (defvar gnus-newsgroup-unreads nil (#$ . 56366)) #@69 Sorted list of unselected unread articles in the current newsgroup. (defvar gnus-newsgroup-unselected nil (#$ . 56478)) #@68 Alist of read articles and article marks in the current newsgroup. (defvar gnus-newsgroup-reads nil (#$ . 56604)) (defvar gnus-newsgroup-expunged-tally nil) #@83 Sorted list of ticked articles in the current newsgroup (a subset of unread art). (defvar gnus-newsgroup-marked nil (#$ . 56767)) #@59 List of ranges of articles that have been marked as spam. (defvar gnus-newsgroup-spam-marked nil (#$ . 56903)) #@72 List of ranges of articles that have been through the scoring process. (defvar gnus-newsgroup-killed nil (#$ . 57020)) #@59 Sorted list of articles that come from the article cache. (defvar gnus-newsgroup-cached nil (#$ . 57145)) #@40 List of articles that have been saved. (defvar gnus-newsgroup-saved nil (#$ . 57257)) (defvar gnus-newsgroup-kill-headers nil) #@70 List of articles that have been replied to in the current newsgroup. (defvar gnus-newsgroup-replied nil (#$ . 57390)) #@69 List of articles that have been forwarded in the current newsgroup. (defvar gnus-newsgroup-forwarded nil (#$ . 57514)) #@71 Sorted list of articles in the current newsgroup that can be expired. (defvar gnus-newsgroup-expirable nil (#$ . 57639)) #@66 List of articles in the current newsgroup that can be processed. (defvar gnus-newsgroup-processable nil (#$ . 57766)) #@73 Sorted list of articles in the current newsgroup that can be processed. (defvar gnus-newsgroup-downloadable nil (#$ . 57890)) #@169 Sorted list of articles in the current newsgroup whose headers have not been fetched into the agent. This list will always be a subset of gnus-newsgroup-undownloaded. (defvar gnus-newsgroup-unfetched nil (#$ . 58023)) #@73 List of articles in the current newsgroup that haven't been downloaded. (defvar gnus-newsgroup-undownloaded nil (#$ . 58248)) #@63 List of articles in the current newsgroup that won't be sent. (defvar gnus-newsgroup-unsendable nil (#$ . 58380)) #@64 List of articles in the current newsgroup that have bookmarks. (defvar gnus-newsgroup-bookmarks nil (#$ . 58500)) #@59 Sorted list of dormant articles in the current newsgroup. (defvar gnus-newsgroup-dormant nil (#$ . 58620)) #@51 List of unseen articles in the current newsgroup. (defvar gnus-newsgroup-unseen nil (#$ . 58733)) #@50 Range of seen articles in the current newsgroup. (defvar gnus-newsgroup-seen nil (#$ . 58837)) #@56 Range of unexisting articles in the current newsgroup. (defvar gnus-newsgroup-unexist nil (#$ . 58938)) #@44 List of articles in the current newsgroup. (defvar gnus-newsgroup-articles nil (#$ . 59048)) #@51 List of scored articles in the current newsgroup. (defvar gnus-newsgroup-scored nil (#$ . 59147)) #@51 List of article headers in the current newsgroup. (defvar gnus-newsgroup-headers nil (#$ . 59251)) (defvar gnus-newsgroup-threads nil) #@55 Whether the current group has been prepared properly. (defvar gnus-newsgroup-prepared nil (#$ . 59392)) #@69 List of `gnus-fetch-old-headers' articles in the current newsgroup. (defvar gnus-newsgroup-ancient nil (#$ . 59502)) (defvar gnus-newsgroup-sparse nil) (defvar gnus-current-article nil) (defvar gnus-article-current nil) (defvar gnus-current-headers nil) (defvar gnus-have-all-headers nil) (defvar gnus-last-article nil) (defvar gnus-newsgroup-history nil) (defvar gnus-newsgroup-charset nil) (defvar gnus-newsgroup-ephemeral-charset nil) (defvar gnus-newsgroup-ephemeral-ignored-charsets nil) (defvar gnus-article-before-search nil) #@57 Variables that are buffer-local to the summary buffers. (defvar gnus-summary-local-variables '(gnus-newsgroup-name gnus-newsgroup-unreads gnus-newsgroup-unselected gnus-newsgroup-marked gnus-newsgroup-spam-marked gnus-newsgroup-reads gnus-newsgroup-saved gnus-newsgroup-replied gnus-newsgroup-forwarded gnus-newsgroup-expirable gnus-newsgroup-killed gnus-newsgroup-unseen gnus-newsgroup-seen gnus-newsgroup-unexist gnus-newsgroup-cached gnus-newsgroup-downloadable gnus-newsgroup-undownloaded gnus-newsgroup-unsendable gnus-newsgroup-begin gnus-newsgroup-end gnus-newsgroup-last-rmail gnus-newsgroup-last-mail gnus-newsgroup-last-folder gnus-newsgroup-last-file gnus-newsgroup-last-directory gnus-newsgroup-auto-expire gnus-newsgroup-processable gnus-newsgroup-unfetched gnus-newsgroup-articles gnus-newsgroup-bookmarks gnus-newsgroup-dormant gnus-newsgroup-headers gnus-newsgroup-threads gnus-newsgroup-prepared gnus-summary-highlight-line-function gnus-current-article gnus-current-headers gnus-have-all-headers gnus-last-article gnus-article-internal-prepare-hook (gnus-summary-article-delete-hook . global) (gnus-summary-article-move-hook . global) gnus-newsgroup-dependencies gnus-newsgroup-selected-overlay gnus-newsgroup-scored gnus-newsgroup-kill-headers gnus-thread-expunge-below gnus-score-alist gnus-current-score-file (gnus-summary-expunge-below . global) (gnus-summary-mark-below . global) (gnus-orphan-score . global) gnus-newsgroup-active gnus-scores-exclude-files gnus-newsgroup-highest gnus-newsgroup-history gnus-newsgroup-ancient gnus-newsgroup-sparse gnus-newsgroup-process-stack (gnus-newsgroup-adaptive . gnus-use-adaptive-scoring) gnus-newsgroup-adaptive-score-file (gnus-reffed-article-number . -1) (gnus-newsgroup-expunged-tally . 0) gnus-cache-removable-articles gnus-newsgroup-data gnus-newsgroup-data-reverse gnus-newsgroup-limit gnus-newsgroup-limits gnus-newsgroup-charset gnus-newsgroup-display gnus-summary-use-undownloaded-faces) (#$ . 60041)) #@895 A list of variables that have separate values in different newsgroups. A list of newsgroup (summary buffer) local variables, or cons of variables and their default expressions to be evalled (when the default values are not nil), that should be made global while the summary buffer is active. Note: The default expressions will be evaluated (using function `eval') before assignment to the local variable rather than just assigned to it. If the default expression is the symbol `global', that symbol will not be evaluated but the global value of the local variable will be used instead. These variables can be used to set variables in the group parameters while still allowing them to affect operations done in other buffers. For example: (setq gnus-newsgroup-variables \='(message-use-followup-to (gnus-visible-headers . "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^To:"))) (defvar gnus-newsgroup-variables nil (#$ . 62025)) #@422 List of methods used to decode encoded words. This variable is a list of FUNCTION or (REGEXP . FUNCTION). If item is FUNCTION, FUNCTION will be apply to all newsgroups. If item is a (REGEXP . FUNCTION), FUNCTION will be applied only to the newsgroups whose names match REGEXP. For example: (("chinese" . gnus-decode-encoded-word-string-by-guess) mail-decode-encoded-word-string ("chinese" . rfc1843-decode-string)) (defvar gnus-decode-encoded-word-methods '(mail-decode-encoded-word-string) (#$ . 62977)) (defvar gnus-decode-encoded-word-methods-cache nil) #@79 Apply the functions from `gnus-encoded-word-methods' that match. (fn STRING) (defalias 'gnus-multi-decode-encoded-word-string #[257 "\203 @=\204< C\n\211\203; \211@\2119\203\" C\244\210\2024 \2034 \303@ \"\2034 AC\244\210A\266\202\202 \210A\211\203P \211@\211!\262A\266\202\202> \207" [gnus-decode-encoded-word-methods-cache gnus-newsgroup-name gnus-decode-encoded-word-methods string-match] 6 (#$ . 63546)]) #@49 Remove excessive whitespace from STR. (fn STR) (defalias 'gnus-simplify-whitespace #[257 "\300\301\"\203 \302\303\211\224#\304\302\303\225\"Q\262\202 \300\305\"\203' \302\303\225\"\262\300\306\"\2036 \302\303\211\224#\262\207" [string-match "[ ][ ]+" substring 0 " " "^[ ]+" "[ ]+$"] 6 (#$ . 63981)]) #@43 Remove all whitespace from STR. (fn STR) (defalias 'gnus-simplify-all-whitespace #[257 "\300\301\"\203 \302\303\304\211$\262\202 \207" [string-match "[ \n]+" replace-match "" nil] 6 (#$ . 64305)]) #@48 Remove "Re:" from subject lines. (fn SUBJECT) (defalias 'gnus-simplify-subject-re #[257 "\301\"\203 \302\303\225\"\207\207" [message-subject-re-regexp string-match substring 0] 4 (#$ . 64515)]) (put 'gnus-simplify-subject-re 'byte-optimizer 'byte-compile-inline-expand) #@122 Remove `Re:' and words in parentheses. If RE-ONLY is non-nil, strip leading `Re:'s only. (fn SUBJECT &optional RE-ONLY) (defalias 'gnus-simplify-subject #[513 "\302\303\304\"\203 \305\306\225\"\262\211\204& \203& \303 \"\203& \305\306\225\"\262\211\204< \303\307\"\203< \305\306\211\224#\262\202* )\207" [case-fold-search gnus-simplify-ignored-prefixes t string-match "\\`\\(re\\([[(^][0-9]+[])]?\\)?:[ ]*\\)+" substring 0 "[ \n]*([^()]*)[ \n]*\\'"] 6 (#$ . 64797)]) #@33 (fn REGEXP &optional NEWTEXT) (defalias 'gnus-simplify-buffer-fuzzy-step #[513 "eb\210\300\301\302#\205 \303\206 \304!\210\202 \207" [re-search-forward nil t replace-match ""] 6 (#$ . 65287)]) (put 'gnus-simplify-buffer-fuzzy-step 'byte-optimizer 'byte-compile-inline-expand) #@343 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'. (fn REGEXP) (defalias 'gnus-simplify-buffer-fuzzy #[257 "\301\302\303\304eb\210\305\302\301#\205 \306\206 \307!\210\202 \266\211\310 =\204\245 \310 \262<\2036 \311\312\"\210\202T \203T \302eb\210\305\302\301#\205R \306\206M \307!\210\202? \266\313\302eb\210\305\302\301#\205l \306\206g \307!\210\202Y \266\314\302eb\210\305\302\301#\205\206 \306\206\201 \307!\210\202s \266\315\316eb\210\305\302\301#\205\240 \306\206\233 \307!\210\202\215 \266\202 \317\302eb\210\305\302\301#\205\275 \306\206\270 \307!\210\202\252 \266\320\304eb\210\305\302\301#\205\327 \306\206\322 \307!\210\202\304 \266\321\302eb\210\305\302\301#\205\361 \306\206\354 \307!\210\202\336 \266\322\302eb\210\305\302\301#\205 \306\206\307!\210\202\370 \266\202)\207" [case-fold-search t nil " " " " re-search-forward replace-match "" buffer-modified-tick mapc gnus-simplify-buffer-fuzzy-step "^ *\\[[-+?*!][-+?*!]\\] *" "^ *\\(re\\|fw\\|fwd\\)[[{(^0-9]*[])}]?[:;] *" "^[[].*:\\( .*\\)[]]$" "\\1" " *[[{(][^()\n]*[]})] *$" " +" " $" "^ +"] 9 (#$ . 65577)]) #@96 Simplify a subject string fuzzily. See `gnus-simplify-buffer-fuzzy' for details. (fn SUBJECT) (defalias 'gnus-simplify-subject-fuzzy #[257 "\212\303 \210\304\n\203 \305\n\"\203 \306\307\225\"\262c\210\211\304\310\311\312eb\210\313\310\304#\2059 \314\2064 \315!\210\202& \266\211\316 =\204\302 \316 \262<\203S \317\320\"\210\202q \203q \310eb\210\313\310\304#\205o \314\206j \315!\210\202\\ \266\321\310eb\210\313\310\304#\205\211 \314\206\204 \315!\210\202v \266\322\310eb\210\313\310\304#\205\243 \314\206\236 \315!\210\202\220 \266\323\324eb\210\313\310\304#\205\275 \314\206\270 \315!\210\202\252 \266\202; \325\310eb\210\313\310\304#\205\332 \314\206\325 \315!\210\202\307 \266\326\312eb\210\313\310\304#\205\364 \314\206\357 \315!\210\202\341 \266\327\310eb\210\313\310\304#\205\314\206 \315!\210\202\373 \266\330\310eb\210\313\310\304#\205(\314\206#\315!\210\202\266\202)\266\331 )\262)\207" [gnus-simplify-subject-fuzzy-regexp case-fold-search gnus-simplify-ignored-prefixes gnus-set-work-buffer t string-match substring 0 nil " " " " re-search-forward replace-match "" buffer-modified-tick mapc gnus-simplify-buffer-fuzzy-step "^ *\\[[-+?*!][-+?*!]\\] *" "^ *\\(re\\|fw\\|fwd\\)[[{(^0-9]*[])}]?[:;] *" "^[[].*:\\( .*\\)[]]$" "\\1" " *[[{(][^()\n]*[]})] *$" " +" " $" "^ +" buffer-string] 11 (#$ . 66978)]) #@91 Simplify a subject string according to `gnus-summary-gather-subject-limit'. (fn SUBJECT) (defalias 'gnus-simplify-subject-fully #[257 "\203 \303\"\207 \204 \211\304\n\"\203 \305\306\225\"\207\207 \307=\203& \310!\207 \247\203> \311\304\n\"\203; \305\306\225\"\262 \"\207\207" [gnus-simplify-subject-functions gnus-summary-gather-subject-limit message-subject-re-regexp gnus-map-function string-match substring 0 fuzzy gnus-simplify-subject-fuzzy truncate-string-to-width] 6 (#$ . 68350)]) (put 'gnus-simplify-subject-fully 'byte-optimizer 'byte-compile-inline-expand) #@152 Check whether two subjects are equal. If optional argument SIMPLE-FIRST is t, first argument is already simplified. (fn S1 S2 &optional SIMPLE-FIRST) (defalias 'gnus-subject-equal #[770 "\211\204\246 \203 \303\"\262\202T \204- \211\304\n\"\203( \305\306\225\"\266\202\202T \262\202T \307=\203; \310!\262\202T \247\203T \311\304\n\"\203P \305\306\225\"\262 \"\262\203b \303\"\262\202\244 \204} \211\304\n\"\203x \305\306\225\"\266\202\202\244 \262\202\244 \307=\203\213 \310!\262\202\244 \247\203\244 \311\304\n\"\203\240 \305\306\225\"\262 \"\262\232\207\203\265 \303\"\262\202\367 \204\320 \211\304\n\"\203\313 \305\306\225\"\266\202\202\367 \262\202\367 \307=\203\336 \310!\262\202\367 \247\203\367 \311\304\n\"\203\363 \305\306\225\"\262 \"\262\232\207" [gnus-simplify-subject-functions gnus-summary-gather-subject-limit message-subject-re-regexp gnus-map-function string-match substring 0 fuzzy gnus-simplify-subject-fuzzy truncate-string-to-width] 10 (#$ . 68939)]) (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 #[0 "\301!\207" [gnus-newsgroup-name gnus-group-add-score] 2 (#$ . 70044)]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\210\300\313\314\"\210\300\315\316\"\210\300\317\320\"\210\300\321\322\"\210\300\323\324\"\210\300\325\326\"\210\300\327\330\"\210\300\331\332\"\210\300\333\334\"\210\300\335\336\"\210\300\337\340\"\210\300\341\342\"\210\300\343\344\"\210\300\345\346\"\210\300\347\350\"\210\300\351\352\"\210\300\353\354\"\210\300\355\356\"\210\300\357\360\"\210\300\361\362\"\207" [gnus-define-keys-1 gnus-summary-mode-map (" " gnus-summary-next-page [33554464] gnus-summary-prev-page "" gnus-summary-prev-page [delete] 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 "[" gnus-summary-prev-unseen-article "]" gnus-summary-next-unseen-article "\363" gnus-summary-search-article-forward "\362" gnus-summary-search-article-backward "\323" gnus-summary-repeat-search-article-forward "\322" gnus-summary-repeat-search-article-backward "<" gnus-summary-beginning-of-article ">" gnus-summary-end-of-article "j" gnus-summary-goto-article "^" gnus-summary-refer-parent-article "\336" gnus-summary-refer-article "u" gnus-summary-tick-article-forward "!" gnus-summary-tick-article-forward "U" gnus-summary-tick-article-backward "d" gnus-summary-mark-as-read-forward "D" gnus-summary-mark-as-read-backward "E" gnus-summary-mark-as-expirable "\365" gnus-summary-clear-mark-forward "\325" gnus-summary-clear-mark-backward "k" gnus-summary-kill-same-subject-and-select " " gnus-summary-kill-same-subject "\213" gnus-summary-kill-thread "\214" gnus-summary-lower-thread "e" gnus-summary-edit-article "#" gnus-summary-mark-as-processable "\243" gnus-summary-unmark-as-processable "\224" gnus-summary-toggle-threads "\223" gnus-summary-show-thread "\210" gnus-summary-hide-thread "\206" gnus-summary-next-thread "\202" gnus-summary-prev-thread [(meta down)] gnus-summary-next-thread [(meta up)] gnus-summary-prev-thread "\225" gnus-summary-up-thread "\204" gnus-summary-down-thread "&" gnus-summary-execute-command "c" gnus-summary-catchup-and-exit "" gnus-summary-mark-region-as-read "" toggle-truncate-lines "?" gnus-summary-mark-as-dormant "\223" gnus-summary-limit-include-expunged "" gnus-summary-sort-by-number " " gnus-summary-sort-by-most-recent-number "\f" gnus-summary-sort-by-lines "" gnus-summary-sort-by-chars " " gnus-summary-sort-by-marks "" gnus-summary-sort-by-author "" gnus-summary-sort-by-recipient "" gnus-summary-sort-by-subject "" gnus-summary-sort-by-date " " gnus-summary-sort-by-most-recent-date " " gnus-summary-sort-by-score "" gnus-summary-sort-by-original "" gnus-summary-sort-by-random "=" gnus-summary-expand-window "" gnus-summary-reselect-current-group "\347" gnus-summary-rescan-group "" gnus-summary-caesar-message "f" gnus-summary-followup "F" gnus-summary-followup-with-original "C" gnus-summary-cancel-article "r" gnus-summary-reply "R" gnus-summary-reply-with-original "" gnus-summary-mail-forward "o" gnus-summary-save-article "" gnus-summary-save-article-mail "|" gnus-summary-pipe-output "\353" gnus-summary-edit-local-kill "\313" gnus-summary-edit-global-kill "" gnus-summary-describe-group "q" gnus-summary-exit "Q" gnus-summary-exit-no-update " " gnus-info-find-node [mouse-2] gnus-mouse-pick-article [follow-link] mouse-face "m" gnus-summary-mail-other-window "a" gnus-summary-post-news "x" gnus-summary-limit-to-unread "s" gnus-summary-isearch-article " " gnus-summary-button-forward [backtab] gnus-summary-button-backward "w" gnus-summary-browse-url "t" gnus-summary-toggle-header "g" gnus-summary-show-article "l" gnus-summary-goto-last-article "" gnus-uu-decode-uu-view "" gnus-summary-enter-digest-group "\204" gnus-summary-read-document "\205" gnus-summary-edit-parameters "\201" gnus-summary-customize-parameters "" gnus-bug "*" gnus-cache-enter-article "\252" gnus-cache-remove-article "\246" gnus-summary-universal-argument "\f" gnus-recenter "I" gnus-summary-increase-score "L" gnus-summary-lower-score "\351" gnus-symbolic-argument "h" gnus-summary-select-article-buffer "b" gnus-article-view-part "\364" gnus-summary-toggle-display-buttonized "V" gnus-summary-score-map "X" gnus-uu-extract-map "S" gnus-summary-send-map) (gnus-summary-mark-map "M" gnus-summary-mode-map) ("t" gnus-summary-tick-article-forward "!" gnus-summary-tick-article-forward "d" gnus-summary-mark-as-read-forward "r" gnus-summary-mark-as-read-forward "c" gnus-summary-clear-mark-forward " " gnus-summary-clear-mark-forward "e" gnus-summary-mark-as-expirable "x" gnus-summary-mark-as-expirable "?" gnus-summary-mark-as-dormant "b" gnus-summary-set-bookmark "B" gnus-summary-remove-bookmark "#" gnus-summary-mark-as-processable "\243" gnus-summary-unmark-as-processable "S" gnus-summary-limit-include-expunged "C" gnus-summary-catchup "H" gnus-summary-catchup-to-here "h" gnus-summary-catchup-from-here "" gnus-summary-catchup-all "k" gnus-summary-kill-same-subject-and-select "K" gnus-summary-kill-same-subject "P" gnus-uu-mark-map) (gnus-summary-mscore-map "V" gnus-summary-mark-map) ("c" gnus-summary-clear-above "u" gnus-summary-tick-above "m" gnus-summary-mark-above "k" gnus-summary-kill-below) (gnus-summary-limit-map "/" gnus-summary-mode-map) ("/" gnus-summary-limit-to-subject "n" gnus-summary-limit-to-articles "b" gnus-summary-limit-to-bodies "h" gnus-summary-limit-to-headers "w" gnus-summary-pop-limit "s" gnus-summary-limit-to-subject "a" gnus-summary-limit-to-author "u" gnus-summary-limit-to-unread "m" gnus-summary-limit-to-marks "M" gnus-summary-limit-exclude-marks "v" gnus-summary-limit-to-score "*" gnus-summary-limit-include-cached "D" gnus-summary-limit-include-dormant "T" gnus-summary-limit-include-thread "d" gnus-summary-limit-exclude-dormant "t" gnus-summary-limit-to-age "." gnus-summary-limit-to-unseen "x" gnus-summary-limit-to-extra "p" gnus-summary-limit-to-display-predicate "E" gnus-summary-limit-include-expunged "c" gnus-summary-limit-exclude-childless-dormant "C" gnus-summary-limit-mark-excluded-as-read "o" gnus-summary-insert-old-articles "N" gnus-summary-insert-new-articles "S" gnus-summary-limit-to-singletons "r" gnus-summary-limit-to-replied "R" gnus-summary-limit-to-recipient "A" gnus-summary-limit-to-address) (gnus-summary-goto-map "G" gnus-summary-mode-map) ("n" gnus-summary-next-unread-article "p" gnus-summary-prev-unread-article "N" gnus-summary-next-article "P" gnus-summary-prev-article "" gnus-summary-next-same-subject "" gnus-summary-prev-same-subject "\356" gnus-summary-next-unread-subject "\360" gnus-summary-prev-unread-subject "f" gnus-summary-first-unread-article "b" gnus-summary-best-unread-article "u" gnus-summary-next-unseen-article "U" gnus-summary-prev-unseen-article "j" gnus-summary-goto-article "g" gnus-summary-goto-subject "l" gnus-summary-goto-last-article "o" gnus-summary-pop-article) (gnus-summary-thread-map "T" gnus-summary-mode-map) ("k" gnus-summary-kill-thread "E" gnus-summary-expire-thread "l" gnus-summary-lower-thread "i" gnus-summary-raise-thread "T" gnus-summary-toggle-threads "t" gnus-summary-rethread-current "^" gnus-summary-reparent-thread "\336" gnus-summary-reparent-children "s" gnus-summary-show-thread "S" gnus-summary-show-all-threads "h" gnus-summary-hide-thread "H" gnus-summary-hide-all-threads "n" gnus-summary-next-thread "p" gnus-summary-prev-thread "u" gnus-summary-up-thread "o" gnus-summary-top-thread "d" gnus-summary-down-thread "#" gnus-uu-mark-thread "\243" gnus-uu-unmark-thread) (gnus-summary-buffer-map "Y" gnus-summary-mode-map) ("g" gnus-summary-prepare "c" gnus-summary-insert-cached-articles "d" gnus-summary-insert-dormant-articles "t" gnus-summary-insert-ticked-articles) (gnus-summary-exit-map "Z" gnus-summary-mode-map) ("c" gnus-summary-catchup-and-exit "C" gnus-summary-catchup-all-and-exit "E" gnus-summary-exit-no-update "Q" gnus-summary-exit "Z" gnus-summary-exit "n" gnus-summary-catchup-and-goto-next-group "p" gnus-summary-catchup-and-goto-prev-group "R" gnus-summary-reselect-current-group "G" gnus-summary-rescan-group "N" gnus-summary-next-group "s" gnus-summary-save-newsrc "P" gnus-summary-prev-group) (gnus-summary-article-map "A" gnus-summary-mode-map) (" " gnus-summary-next-page "n" gnus-summary-next-page [33554464] gnus-summary-prev-page "" gnus-summary-prev-page [delete] gnus-summary-prev-page "p" gnus-summary-prev-page " " gnus-summary-scroll-up "\215" gnus-summary-scroll-down "<" gnus-summary-beginning-of-article ">" gnus-summary-end-of-article "b" gnus-summary-beginning-of-article "e" gnus-summary-end-of-article "^" gnus-summary-refer-parent-article "r" gnus-summary-refer-parent-article "C" gnus-summary-show-complete-article "D" gnus-summary-enter-digest-group "R" gnus-summary-refer-references "T" gnus-summary-refer-thread "W" gnus-warp-to-article "g" gnus-summary-show-article "s" gnus-summary-isearch-article " " gnus-summary-button-forward [backtab] gnus-summary-button-backward "w" gnus-summary-browse-url "P" gnus-summary-print-article "S" gnus-sticky-article "M" gnus-mailing-list-insinuate "t" gnus-article-babel) (gnus-summary-wash-map "W" gnus-summary-mode-map) ("b" gnus-article-add-buttons "B" gnus-article-add-buttons-to-head "o" gnus-article-treat-overstrike "e" gnus-article-emphasize "w" gnus-article-fill-cited-article "Q" gnus-article-fill-long-lines "L" gnus-article-toggle-truncate-lines "C" gnus-article-capitalize-sentences "c" gnus-article-remove-cr "q" gnus-article-de-quoted-unreadable "6" gnus-article-de-base64-unreadable "Z" gnus-article-decode-HZ "A" gnus-article-treat-ansi-sequences "h" gnus-article-wash-html "u" gnus-article-unsplit-urls "s" gnus-summary-force-verify-and-decrypt "f" gnus-article-display-x-face "l" gnus-summary-stop-page-breaking "r" gnus-summary-caesar-message "m" gnus-summary-morse-message "t" gnus-summary-toggle-header "g" gnus-treat-smiley "v" gnus-summary-verbose-headers "a" gnus-article-strip-headers-in-body "p" gnus-article-verify-x-pgp-sig "d" gnus-article-treat-smartquotes "U" gnus-article-treat-non-ascii "i" gnus-summary-idna-message) (gnus-summary-wash-deuglify-map "Y" gnus-summary-wash-map) ("u" gnus-article-outlook-unwrap-lines "a" gnus-article-outlook-repair-attribution "c" gnus-article-outlook-rearrange-citation "f" gnus-article-outlook-deuglify-article) (gnus-summary-wash-hide-map "W" gnus-summary-wash-map) ("a" gnus-article-hide "h" gnus-article-hide-headers "b" gnus-article-hide-boring-headers "s" gnus-article-hide-signature "c" gnus-article-hide-citation "C" gnus-article-hide-citation-in-followups "l" gnus-article-hide-list-identifiers "B" gnus-article-strip-banner "P" gnus-article-hide-pem "" gnus-article-hide-citation-maybe) (gnus-summary-wash-highlight-map "H" gnus-summary-wash-map) ("a" gnus-article-highlight "h" gnus-article-highlight-headers "c" gnus-article-highlight-citation "s" gnus-article-highlight-signature) (gnus-summary-wash-header-map "G" gnus-summary-wash-map) ("f" gnus-article-treat-fold-headers "u" gnus-article-treat-unfold-headers "n" gnus-article-treat-fold-newsgroups) (gnus-summary-wash-display-map "D" gnus-summary-wash-map) ("x" gnus-article-display-x-face "d" gnus-article-display-face "s" gnus-treat-smiley "D" gnus-article-remove-images "W" gnus-article-show-images "f" gnus-treat-from-picon "m" gnus-treat-mail-picon "n" gnus-treat-newsgroups-picon "g" gnus-treat-from-gravatar "h" gnus-treat-mail-gravatar) (gnus-summary-wash-mime-map "M" gnus-summary-wash-map) ("w" gnus-article-decode-mime-words "c" gnus-article-decode-charset "h" gnus-mime-buttonize-attachments-in-header "v" gnus-mime-view-all-parts "b" gnus-article-view-part) (gnus-summary-wash-time-map "T" gnus-summary-wash-map) ("z" gnus-article-date-ut "u" gnus-article-date-ut "l" gnus-article-date-local "p" gnus-article-date-english "e" gnus-article-date-lapsed "o" gnus-article-date-original "i" gnus-article-date-iso8601 "s" gnus-article-date-user) (gnus-summary-wash-empty-map "E" gnus-summary-wash-map) ("t" gnus-article-remove-trailing-blank-lines "l" gnus-article-strip-leading-blank-lines "m" gnus-article-strip-multiple-blank-lines "a" gnus-article-strip-blank-lines "A" gnus-article-strip-all-blank-lines "s" gnus-article-strip-leading-space "e" gnus-article-strip-trailing-space "w" gnus-article-remove-leading-whitespace) (gnus-summary-help-map "H" gnus-summary-mode-map) ("v" gnus-version "d" gnus-summary-describe-group "h" gnus-summary-describe-briefly "i" gnus-info-find-node) (gnus-summary-backend-map "B" gnus-summary-mode-map) ("e" gnus-summary-expire-articles "\205" gnus-summary-expire-articles-now "" gnus-summary-delete-article [delete] gnus-summary-delete-article [backspace] gnus-summary-delete-article "m" gnus-summary-move-article "r" gnus-summary-respool-article "w" gnus-summary-edit-article "c" gnus-summary-copy-article "B" gnus-summary-crosspost-article "q" gnus-summary-respool-query "t" gnus-summary-respool-trace "i" gnus-summary-import-article "I" gnus-summary-create-article "p" gnus-summary-article-posted-p) (gnus-summary-save-map "O" gnus-summary-mode-map) ("o" gnus-summary-save-article "m" gnus-summary-save-article-mail "F" gnus-summary-write-article-file "r" gnus-summary-save-article-rmail "f" gnus-summary-save-article-file "b" gnus-summary-save-article-body-file "B" gnus-summary-write-article-body-file "h" gnus-summary-save-article-folder "v" gnus-summary-save-article-vm "p" gnus-summary-pipe-output "P" gnus-summary-muttprint) (gnus-summary-mime-map "K" gnus-summary-mode-map) ("b" gnus-summary-display-buttonized "m" gnus-summary-repair-multipart "v" gnus-article-view-part "o" gnus-article-save-part "O" gnus-article-save-part-and-strip "r" gnus-article-replace-part "d" gnus-article-delete-part "t" gnus-article-view-part-as-type "j" gnus-article-jump-to-part "c" gnus-article-copy-part "C" gnus-article-view-part-as-charset "e" gnus-article-view-part-externally "H" gnus-article-browse-html-article "E" gnus-article-encrypt-body "i" gnus-article-inline-part "|" gnus-article-pipe-part) (gnus-uu-mark-map "P" gnus-summary-mark-map) ("p" gnus-summary-mark-as-processable "u" gnus-summary-unmark-as-processable "U" gnus-summary-unmark-all-processable "v" gnus-uu-mark-over "s" gnus-uu-mark-series "r" gnus-uu-mark-region "g" gnus-uu-unmark-region "R" gnus-uu-mark-by-regexp "G" gnus-uu-unmark-by-regexp "t" gnus-uu-mark-thread "T" gnus-uu-unmark-thread "a" gnus-uu-mark-all "b" gnus-uu-mark-buffer "S" gnus-uu-mark-sparse "k" gnus-summary-kill-process-mark "y" gnus-summary-yank-process-mark "w" gnus-summary-save-process-mark "i" gnus-uu-invert-processable) (gnus-uu-extract-map "X" gnus-summary-mode-map) ("m" gnus-summary-save-parts "u" gnus-uu-decode-uu "U" gnus-uu-decode-uu-and-save "s" gnus-uu-decode-unshar "S" gnus-uu-decode-unshar-and-save "o" gnus-uu-decode-save "O" gnus-uu-decode-save "b" gnus-uu-decode-binhex "B" gnus-uu-decode-binhex "Y" gnus-uu-decode-yenc "p" gnus-uu-decode-postscript "P" gnus-uu-decode-postscript-and-save) (gnus-uu-extract-view-map "v" gnus-uu-extract-map) ("u" gnus-uu-decode-uu-view "U" gnus-uu-decode-uu-and-save-view "s" gnus-uu-decode-unshar-view "S" gnus-uu-decode-unshar-and-save-view "o" gnus-uu-decode-save-view "O" gnus-uu-decode-save-view "b" gnus-uu-decode-binhex-view "B" gnus-uu-decode-binhex-view "p" gnus-uu-decode-postscript-view "P" gnus-uu-decode-postscript-and-save-view)] 3) (defvar gnus-article-post-menu nil) (defconst gnus-summary-menu-maxlen 20) #@13 (fn MENU) (defalias 'gnus-summary-menu-split #[257 "\211G\301_\302\245V\203D \211\303\211\304\203A \233\262\203# S\233\303\241\210\305\306@\307H\310!@\307H#BB\262\211T\262\262\202 \237\207\207" [gnus-summary-menu-maxlen 3 2 nil 1 format "%s ... %s" 0 last] 10 (#$ . 86076)]) (defalias 'gnus-summary-make-menu-bar #[0 "\306\307!\210\310\311!?\205\264 \312\313!\210\314\315\316\317\320C\321\322!\244\321\323!\244\324\244B$\210\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\345\346\347\350 \351\"\"!B\257 \352BBBBB\353\313!\210\314\301\316\354B$\210\355 !\204h \356\313!\210\314\303\n\316\357B$\210\202t \360 !\361\n\362\357 B#\210\210\363\313!\210\314\364\316\365$\210\366\313!\210\314\304\316\367$\210\355\f!\204\226 \f\202\236 \204\236 \360\f!\361\n\370\371 B#\210\372\313!\210\314\311\316\373$\210\374\375!\207" [gnus-summary-mode-map gnus-summary-article-menu gnus-article-mode-map gnus-article-commands-menu gnus-summary-post-menu gnus-article-post-menu gnus-turn-off-edit-menu summary boundp gnus-summary-misc-menu (lambda (#1=#:def-tmp-var) (defvar gnus-summary-kill-menu #1# #2="")) nil easy-menu-do-define gnus-summary-kill-menu #2# "Score" ["Customize" gnus-score-customize t] gnus-make-score-map increase lower (("Mark" ["Kill below" gnus-summary-kill-below t] ["Mark above" gnus-summary-mark-above t] ["Tick above" gnus-summary-tick-above t] ["Clear above" gnus-summary-clear-above t]) ["Current article score" gnus-summary-current-score t] ["Current thread score" (gnus-summary-current-score 'total) 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-favorite-words t] ["Rescore buffer" gnus-summary-rescore t] ["Increase score..." gnus-summary-increase-score t] ["Lower score..." gnus-summary-lower-score t]) ("Hide" ["All" gnus-article-hide t] ["Headers" gnus-article-hide-headers t] ["Signature" gnus-article-hide-signature t] ["Citation" gnus-article-hide-citation t] ["List identifiers" gnus-article-hide-list-identifiers t] ["Banner" gnus-article-strip-banner t] ["Boring headers" gnus-article-hide-boring-headers t]) ("Highlight" ["All" gnus-article-highlight t] ["Headers" gnus-article-highlight-headers t] ["Signature" gnus-article-highlight-signature t] ["Citation" gnus-article-highlight-citation t]) ("MIME" ["Words" gnus-article-decode-mime-words t] ["Charset" gnus-article-decode-charset t] ["QP" gnus-article-de-quoted-unreadable t] ["Base64" gnus-article-de-base64-unreadable t] ["View MIME buttons" gnus-summary-display-buttonized t] ["View MIME buttons in header" gnus-mime-buttonize-attachments-in-header t] ["View all" gnus-mime-view-all-parts t] ["Verify and Decrypt" gnus-summary-force-verify-and-decrypt t] ["Encrypt body" gnus-article-encrypt-body :active (not (gnus-group-read-only-p)) :help "Encrypt the message body on disk"] ["Extract all parts..." gnus-summary-save-parts t] ("Multipart" ["Repair multipart" gnus-summary-repair-multipart t] ["Pipe part..." gnus-article-pipe-part t] ["Inline part" gnus-article-inline-part t] ["View part as type..." gnus-article-view-part-as-type t] ["Encrypt body" gnus-article-encrypt-body :active (not (gnus-group-read-only-p)) :help "Encrypt the message body on disk"] ["View part externally" gnus-article-view-part-externally t] ["View HTML parts in browser" gnus-article-browse-html-article t] ["View part with charset..." gnus-article-view-part-as-charset t] ["Copy part" gnus-article-copy-part t] ["Save part..." gnus-article-save-part t] ["View part" gnus-article-view-part t])) ("Date" ["Local" gnus-article-date-local t] ["ISO8601" gnus-article-date-iso8601 t] ["UT" gnus-article-date-ut t] ["Original" gnus-article-date-original t] ["Lapsed" gnus-article-date-lapsed t] ["User-defined" gnus-article-date-user t]) "Display" ["Display HTML images" gnus-article-show-images t] ["Remove images" gnus-article-remove-images t] ["Toggle smiley" gnus-treat-smiley t] ["Show X-Face" gnus-article-display-x-face t] ["Show picons in From" gnus-treat-from-picon t] ["Show picons in mail headers" gnus-treat-mail-picon t] ["Show picons in news headers" gnus-treat-newsgroups-picon t] ["Show Gravatars in From" gnus-treat-from-gravatar t] ["Show Gravatars in mail headers" gnus-treat-mail-gravatar t] "View as different encoding" gnus-summary-menu-split mapcar #[257 "\300\301\302\"!\211\303\304\305\306\307!\310\"\311\312\211&M\210\313\307\314!\315BB\"\207" [intern format "gnus-summary-show-article-from-menu-as-charset-%s" make-byte-code 0 "\302\300BC\303\302!)\207" vconcat vector [gnus-summary-show-article-charset-alist 1 gnus-summary-show-article] 2 nil apply symbol-name (t)] 10 "\n\n(fn CS)"] sort coding-system-list string< (("Washing" ("Remove Blanks" ["Leading" gnus-article-strip-leading-blank-lines t] ["Multiple" gnus-article-strip-multiple-blank-lines t] ["Trailing" gnus-article-remove-trailing-blank-lines t] ["All of the above" gnus-article-strip-blank-lines t] ["All" gnus-article-strip-all-blank-lines t] ["Leading space" gnus-article-strip-leading-space t] ["Trailing space" gnus-article-strip-trailing-space t] ["Leading space in headers" gnus-article-remove-leading-whitespace t]) ["Overstrike" gnus-article-treat-overstrike t] ["Smartquotes" gnus-article-treat-smartquotes t] ["Non-ASCII" gnus-article-treat-non-ascii t] ["Emphasis" gnus-article-emphasize t] ["Word wrap" gnus-article-fill-cited-article t] ["Fill long lines" gnus-article-fill-long-lines t] ["Toggle truncate long lines" gnus-article-toggle-truncate-lines t] ["Capitalize sentences" gnus-article-capitalize-sentences t] ["Remove CR" gnus-article-remove-cr t] ["Quoted-Printable" gnus-article-de-quoted-unreadable t] ["Base64" gnus-article-de-base64-unreadable t] ["Rot 13" gnus-summary-caesar-message :help "\"Caesar rotate\" article by 13"] ["De-IDNA" gnus-summary-idna-message t] ["Morse decode" gnus-summary-morse-message t] ["Unix pipe..." gnus-summary-pipe-message t] ["Add buttons" gnus-article-add-buttons t] ["Add buttons to head" gnus-article-add-buttons-to-head t] ["Stop page breaking" gnus-summary-stop-page-breaking t] ["Verbose header" gnus-summary-verbose-headers t] ["Toggle header" gnus-summary-toggle-header t] ["Unfold headers" gnus-article-treat-unfold-headers t] ["Fold newsgroups" gnus-article-treat-fold-newsgroups t] ["Html" gnus-article-wash-html t] ["Unsplit URLs" gnus-article-unsplit-urls t] ["Verify X-PGP-Sig" gnus-article-verify-x-pgp-sig t] ["Decode HZ" gnus-article-decode-HZ t] ["ANSI sequences" gnus-article-treat-ansi-sequences t] ("(Outlook) Deuglify" ["Unwrap lines" gnus-article-outlook-unwrap-lines t] ["Repair attribution" gnus-article-outlook-repair-attribution t] ["Rearrange citation" gnus-article-outlook-rearrange-citation t] ["Full (Outlook) deuglify" gnus-article-outlook-deuglify-article t])) ("Output" ["Save in default format..." gnus-summary-save-article :help "Save article using default method"] ["Save in file..." gnus-summary-save-article-file :help "Save article in file"] ["Save in Unix mail format..." gnus-summary-save-article-mail t] ["Save in MH folder..." gnus-summary-save-article-folder t] ["Save in VM folder..." gnus-summary-save-article-vm t] ["Save in RMAIL mbox..." gnus-summary-save-article-rmail t] ["Save body in file..." gnus-summary-save-article-body-file t] ["Pipe through a filter..." gnus-summary-pipe-output t] ["Print with Muttprint..." gnus-summary-muttprint t] ["Print" gnus-summary-print-article :help "Generate and print a PostScript image"]) ("Copy, move,... (Backend)" :help "Copying, moving, expiring articles..." ["Respool article..." gnus-summary-respool-article t] ["Move article..." gnus-summary-move-article (gnus-check-backend-function 'request-move-article gnus-newsgroup-name)] ["Copy article..." gnus-summary-copy-article t] ["Crosspost article..." gnus-summary-crosspost-article (gnus-check-backend-function 'request-replace-article gnus-newsgroup-name)] ["Import file..." gnus-summary-import-article (gnus-check-backend-function 'request-accept-article gnus-newsgroup-name)] ["Create article..." gnus-summary-create-article (gnus-check-backend-function 'request-accept-article gnus-newsgroup-name)] ["Check if posted" gnus-summary-article-posted-p t] ["Edit article" gnus-summary-edit-article (not (gnus-group-read-only-p))] ["Delete article" gnus-summary-delete-article (gnus-check-backend-function 'request-expire-articles gnus-newsgroup-name)] ["Query respool" gnus-summary-respool-query t] ["Trace respool" gnus-summary-respool-trace t] ["Delete expirable articles" gnus-summary-expire-articles-now (gnus-check-backend-function 'request-expire-articles gnus-newsgroup-name)]) ("Extract" ["Uudecode" gnus-uu-decode-uu :help "Decode uuencoded article(s)"] ["Uudecode and save" gnus-uu-decode-uu-and-save t] ["Unshar" gnus-uu-decode-unshar t] ["Unshar and save" gnus-uu-decode-unshar-and-save t] ["Save" gnus-uu-decode-save t] ["Binhex" gnus-uu-decode-binhex t] ["PostScript" gnus-uu-decode-postscript t] ["All MIME parts" gnus-summary-save-parts t]) ("Cache" ["Enter article" gnus-cache-enter-article t] ["Remove article" gnus-cache-remove-article t]) ["Translate" gnus-article-babel t] ["Select article buffer" gnus-summary-select-article-buffer t] ["Make article buffer sticky" gnus-sticky-article t] ["Enter digest buffer" gnus-summary-enter-digest-group t] ["Isearch article..." gnus-summary-isearch-article t] ["Beginning of the article" gnus-summary-beginning-of-article t] ["End of the article" gnus-summary-end-of-article t] ["Fetch parent of article" gnus-summary-refer-parent-article t] ["Fetch referenced articles" gnus-summary-refer-references t] ["Fetch current thread" gnus-summary-refer-thread t] ["Fetch article with id..." gnus-summary-refer-article t] ["Setup Mailing List Params" gnus-mailing-list-insinuate t] ["Redisplay" gnus-summary-show-article t] ["Raw article" gnus-summary-show-raw-article :keys "C-u g"]) (lambda (#1#) (defvar gnus-summary-article-menu #1# #2#)) "Article" keymapp (lambda (#1#) (defvar gnus-article-commands-menu #1# #2#)) "Commands" copy-keymap define-key [menu-bar commands] (lambda (#1#) (defvar gnus-summary-thread-menu #1# #2#)) gnus-summary-thread-menu ("Threads" ["Find all messages in thread" gnus-summary-refer-thread t] ["Toggle threading" gnus-summary-toggle-threads t] ["Hide threads" gnus-summary-hide-all-threads t] ["Show threads" gnus-summary-show-all-threads t] ["Hide thread" gnus-summary-hide-thread t] ["Show thread" gnus-summary-show-thread t] ["Go to next thread" gnus-summary-next-thread t] ["Go to previous thread" gnus-summary-prev-thread t] ["Go down thread" gnus-summary-down-thread t] ["Go up thread" gnus-summary-up-thread t] ["Top of thread" gnus-summary-top-thread t] ["Mark thread as read" gnus-summary-kill-thread t] ["Mark thread as expired" gnus-summary-expire-thread t] ["Lower thread score" gnus-summary-lower-thread t] ["Raise thread score" gnus-summary-raise-thread t] ["Rethread current" gnus-summary-rethread-current t]) (lambda (#1#) (defvar gnus-summary-post-menu #1# #2#)) ("Post" ["Send a message (mail or news)" gnus-summary-post-news :help "Compose a new message (mail or news)"] ["Followup" gnus-summary-followup :help "Post followup to this article"] ["Followup and yank" gnus-summary-followup-with-original :help "Post followup to this article, quoting its contents"] ["Supersede article" gnus-summary-supersede-article t] ["Cancel article" gnus-summary-cancel-article :help "Cancel an article you posted"] ["Reply" gnus-summary-reply t] ["Reply and yank" gnus-summary-reply-with-original t] ["Wide reply" gnus-summary-wide-reply t] ["Wide reply and yank" gnus-summary-wide-reply-with-original :help "Mail a reply, quoting this article"] ["Very wide reply" gnus-summary-very-wide-reply t] ["Very wide reply and yank" gnus-summary-very-wide-reply-with-original :help "Mail a very wide reply, quoting this article"] ["Mail forward" gnus-summary-mail-forward t] ["Post forward" gnus-summary-post-forward t] ["Digest and mail" gnus-uu-digest-mail-forward t] ["Digest and post" gnus-uu-digest-post-forward t] ["Resend message" gnus-summary-resend-message t] ["Resend message edit" gnus-summary-resend-message-edit t] ["Send bounced mail" gnus-summary-resend-bounced-mail t] ["Send a mail" gnus-summary-mail-other-window t] ["Attach article to outgoing message" gnus-summary-attach-article t] ["Create a local message" gnus-summary-news-other-window t] ["Uuencode and post" gnus-uu-post-news :help "Post a uuencoded article"] ["Followup via news" gnus-summary-followup-to-mail t] ["Followup via news and yank" gnus-summary-followup-to-mail-with-original t] ["Strip signature on reply" (lambda nil (interactive) (setq message-cite-function (if (eq message-cite-function #'message-cite-original-without-signature) #'message-cite-original #'message-cite-original-without-signature))) :visible (memq message-cite-function '(message-cite-original-without-signature message-cite-original)) :style toggle :selected (eq message-cite-function #'message-cite-original-without-signature) :help "Strip signature from cited article when replying."]) [menu-bar post] "Post" (lambda (#1#) (defvar gnus-summary-misc-menu #1# #2#)) ("Gnus" ("Mark Read" ["Mark as read" gnus-summary-mark-as-read-forward t] ["Mark same subject and select" gnus-summary-kill-same-subject-and-select t] ["Mark same subject" gnus-summary-kill-same-subject t] ["Catchup" gnus-summary-catchup :help "Mark unread articles in this group as read"] ["Catchup all" gnus-summary-catchup-all t] ["Catchup to here" gnus-summary-catchup-to-here t] ["Catchup from here" gnus-summary-catchup-from-here t] ["Catchup region" gnus-summary-mark-region-as-read mark-active] ["Mark excluded" gnus-summary-limit-mark-excluded-as-read t]) ("Mark Various" ["Tick" gnus-summary-tick-article-forward t] ["Mark as dormant" gnus-summary-mark-as-dormant t] ["Remove marks" gnus-summary-clear-mark-forward t] ["Set expirable mark" gnus-summary-mark-as-expirable t] ["Set bookmark" gnus-summary-set-bookmark t] ["Remove bookmark" gnus-summary-remove-bookmark t]) ("Limit to" ["Marks..." gnus-summary-limit-to-marks t] ["Subject..." gnus-summary-limit-to-subject t] ["Author..." gnus-summary-limit-to-author t] ["Recipient..." gnus-summary-limit-to-recipient t] ["Address..." gnus-summary-limit-to-address t] ["Age..." gnus-summary-limit-to-age t] ["Extra..." gnus-summary-limit-to-extra t] ["Score..." gnus-summary-limit-to-score t] ["Display Predicate" gnus-summary-limit-to-display-predicate t] ["Unread" gnus-summary-limit-to-unread t] ["Unseen" gnus-summary-limit-to-unseen t] ["Singletons" gnus-summary-limit-to-singletons t] ["Replied" gnus-summary-limit-to-replied t] ["Non-dormant" gnus-summary-limit-exclude-dormant t] ["Next or process marked articles" gnus-summary-limit-to-articles t] ["Pop limit" gnus-summary-pop-limit t] ["Show dormant" gnus-summary-limit-include-dormant t] ["Hide childless dormant" gnus-summary-limit-exclude-childless-dormant t] ["Hide marked" gnus-summary-limit-exclude-marks t] ["Show expunged" gnus-summary-limit-include-expunged t]) ("Process Mark" ["Set mark" gnus-summary-mark-as-processable t] ["Remove mark" gnus-summary-unmark-as-processable t] ["Remove all marks" gnus-summary-unmark-all-processable t] ["Invert marks" gnus-uu-invert-processable t] ["Mark above" gnus-uu-mark-over t] ["Mark series" gnus-uu-mark-series t] ["Mark region" gnus-uu-mark-region mark-active] ["Unmark region" gnus-uu-unmark-region mark-active] ["Mark by regexp..." gnus-uu-mark-by-regexp t] ["Unmark by regexp..." gnus-uu-unmark-by-regexp t] ["Mark all" gnus-uu-mark-all t] ["Mark buffer" gnus-uu-mark-buffer t] ["Mark sparse" gnus-uu-mark-sparse t] ["Mark thread" gnus-uu-mark-thread t] ["Unmark thread" gnus-uu-unmark-thread t] ("Process Mark Sets" ["Kill" gnus-summary-kill-process-mark t] ["Yank" gnus-summary-yank-process-mark gnus-newsgroup-process-stack] ["Save" gnus-summary-save-process-mark t] ["Run command on marked..." gnus-summary-universal-argument t])) ("Registry Marks") ("Scroll article" ["Page forward" gnus-summary-next-page :help "Show next page of article"] ["Page backward" gnus-summary-prev-page :help "Show previous page of article"] ["Line forward" gnus-summary-scroll-up t]) ("Move" ["Next unread article" gnus-summary-next-unread-article t] ["Previous unread article" gnus-summary-prev-unread-article t] ["Next article" gnus-summary-next-article t] ["Previous article" gnus-summary-prev-article t] ["Next unread subject" gnus-summary-next-unread-subject t] ["Previous unread subject" gnus-summary-prev-unread-subject t] ["Next article same subject" gnus-summary-next-same-subject t] ["Previous article same subject" gnus-summary-prev-same-subject t] ["First unread article" gnus-summary-first-unread-article t] ["Best unread article" gnus-summary-best-unread-article t] ["Next unseen article" gnus-summary-next-unseen-article t] ["Prev unseen article" gnus-summary-prev-unseen-article t] ["Go to subject number..." gnus-summary-goto-subject t] ["Go to article number..." gnus-summary-goto-article t] ["Go to the last article" gnus-summary-goto-last-article t] ["Pop article off history" gnus-summary-pop-article t]) ("Sort" ["Sort by number" gnus-summary-sort-by-number t] ["Sort by most recent number" gnus-summary-sort-by-most-recent-number t] ["Sort by author" gnus-summary-sort-by-author t] ["Sort by recipient" gnus-summary-sort-by-recipient t] ["Sort by subject" gnus-summary-sort-by-subject t] ["Sort by date" gnus-summary-sort-by-date t] ["Sort by most recent date" gnus-summary-sort-by-most-recent-date t] ["Sort by score" gnus-summary-sort-by-score t] ["Sort by lines" gnus-summary-sort-by-lines t] ["Sort by characters" gnus-summary-sort-by-chars t] ["Sort by marks" gnus-summary-sort-by-marks t] ["Randomize" gnus-summary-sort-by-random t] ["Original sort" gnus-summary-sort-by-original t]) ("Help" ["Describe group" gnus-summary-describe-group t] ["Read manual" gnus-info-find-node t]) ("Modes" ["Pick and read" gnus-pick-mode t] ["Binary" gnus-binary-mode t]) ("Regeneration" ["Regenerate" gnus-summary-prepare t] ["Insert cached articles" gnus-summary-insert-cached-articles t] ["Insert dormant articles" gnus-summary-insert-dormant-articles t] ["Insert ticked articles" gnus-summary-insert-ticked-articles t] ["Toggle threading" gnus-summary-toggle-threads t]) ["See old articles" gnus-summary-insert-old-articles t] ["See new articles" gnus-summary-insert-new-articles t] ["Filter articles..." gnus-summary-execute-command t] ["Run command on articles..." gnus-summary-universal-argument t] ["Search articles forward..." gnus-summary-search-article-forward t] ["Search articles backward..." gnus-summary-search-article-backward t] ["Toggle line truncation" toggle-truncate-lines t] ["Expand window" gnus-summary-expand-window t] ["Expire expirable articles" gnus-summary-expire-articles (gnus-check-backend-function 'request-expire-articles gnus-newsgroup-name)] ["Edit local kill file" gnus-summary-edit-local-kill t] ["Edit main kill file" gnus-summary-edit-global-kill t] ["Edit group parameters" gnus-summary-edit-parameters t] ["Customize group parameters" gnus-summary-customize-parameters t] ["Send a bug report" gnus-bug t] ("Exit" ["Catchup and exit" gnus-summary-catchup-and-exit :help "Mark unread articles in this group as read, then exit"] ["Catchup all and exit" gnus-summary-catchup-all-and-exit t] ["Catchup and goto next" gnus-summary-catchup-and-goto-next-group t] ["Catchup and goto prev" gnus-summary-catchup-and-goto-prev-group t] ["Exit group" gnus-summary-exit :help "Exit current group, return to group selection mode"] ["Exit group without updating" gnus-summary-exit-no-update t] ["Exit and goto next group" gnus-summary-next-group t] ["Exit and goto prev group" gnus-summary-prev-group t] ["Reselect group" gnus-summary-reselect-current-group t] ["Rescan group" gnus-summary-rescan-group t] ["Update dribble" gnus-summary-save-newsrc t])) gnus-run-hooks gnus-summary-menu-hook] 21]) (defvar gnus-summary-tool-bar-map nil) #@97 Update summary mode toolbar. Setter function for custom variables. (fn &optional SYMBOL VALUE) (defalias 'gnus-summary-tool-bar-update #[512 "\302\303\304\"\210\203 \302\"\210\211\205 \305\306 !\211!\205 )\205* rq\210\307 )\207" [gnus-summary-buffer buffer set-default gnus-summary-tool-bar-map nil buffer-live-p get-buffer gnus-summary-make-tool-bar] 6 (#$ . 106380)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317& \210\300\320\302\303\321DD\322\306\323\310\311\312\313\314\315\316\317& \210\300\324\302\303\325DD\326\306\327\310\311\312\313\314\315\316\317& \210\300\330\302\303\331DD\332\306\333\310\311\312\313\314\315\316\317& \207" [custom-declare-variable gnus-summary-tool-bar funcall function #[0 "\301=\203 \302\207\303\207" [gmm-tool-bar-style gnome gnus-summary-tool-bar-gnome gnus-summary-tool-bar-retro] 2] "Specifies the Gnus summary tool bar.\n\nIt can be either a list or a symbol referring to a list. See\n`gmm-tool-bar-from-list' for the format of the list. The\ndefault key map is `gnus-summary-mode-map'.\n\nPre-defined symbols include `gnus-summary-tool-bar-gnome' and\n`gnus-summary-tool-bar-retro'." :type (choice (const :tag "GNOME style" gnus-summary-tool-bar-gnome) (const :tag "Retro look" gnus-summary-tool-bar-retro) (repeat :tag "User defined list" gmm-tool-bar-item) (symbol)) :version "23.1" :initialize custom-initialize-default :set gnus-summary-tool-bar-update :group gnus-summary gnus-summary-tool-bar-gnome #[0 "\300\207" [((gnus-summary-post-news "mail/compose" nil) (gnus-summary-insert-new-articles "mail/inbox" nil :visible (or (not gnus-agent) gnus-plugged)) (gnus-summary-reply-with-original "mail/reply") (gnus-summary-reply "mail/reply" nil :visible nil) (gnus-summary-followup-with-original "mail/reply-all") (gnus-summary-followup "mail/reply-all" nil :visible nil) (gnus-summary-mail-forward "mail/forward") (gnus-summary-save-article "mail/save") (gnus-summary-search-article-forward "search" nil :visible nil) (gnus-summary-print-article "print") (gnus-summary-tick-article-forward "flag-followup" nil :visible nil) (gnus-summary-save-newsrc "save" nil :visible nil) (gnus-summary-prev-article "left-arrow") (gnus-summary-next-article "right-arrow") (gnus-summary-next-page "next-page") (gnus-summary-mark-as-expirable "delete" nil :visible (gnus-check-backend-function 'request-expire-articles gnus-newsgroup-name)) (gnus-summary-mark-as-spam "mail/spam" t :visible (and (fboundp 'spam-group-ham-contents-p) (spam-group-ham-contents-p gnus-newsgroup-name)) :help "Mark as spam") (gnus-summary-mark-as-read-forward "mail/not-spam" nil :visible (and (fboundp 'spam-group-spam-contents-p) (spam-group-spam-contents-p gnus-newsgroup-name))) (gnus-summary-exit "exit") (gmm-customize-mode "preferences" t :help "Edit mode preferences") (gnus-info-find-node "help"))] 1] "List of functions for the summary tool bar (GNOME style).\n\nSee `gmm-tool-bar-from-list' for the format of the list." (repeat gmm-tool-bar-item) gnus-summary-tool-bar-retro #[0 "\300\207" [((gnus-summary-prev-unread-article "gnus/prev-ur") (gnus-summary-next-unread-article "gnus/next-ur") (gnus-summary-post-news "gnus/post") (gnus-summary-followup-with-original "gnus/fuwo") (gnus-summary-followup "gnus/followup") (gnus-summary-reply-with-original "gnus/reply-wo") (gnus-summary-reply "gnus/reply") (gnus-summary-caesar-message "gnus/rot13") (gnus-uu-decode-uu "gnus/uu-decode") (gnus-summary-save-article-file "gnus/save-aif") (gnus-summary-save-article "gnus/save-art") (gnus-uu-post-news "gnus/uu-post") (gnus-summary-catchup "gnus/catchup") (gnus-summary-catchup-and-exit "gnus/cu-exit") (gnus-summary-exit "gnus/exit-summ") (gnus-summary-print-article "gnus/print" nil :visible nil) (gnus-summary-mark-as-expirable "gnus/close" nil :visible nil) (gnus-summary-save-newsrc "gnus/save" nil :visible nil) (gnus-summary-search-article-forward "gnus/search" nil :visible nil) (gnus-info-find-node "gnus/help" nil :visible nil))] 1] "List of functions for the summary tool bar (retro look).\n\nSee `gmm-tool-bar-from-list' for the format of the list." (repeat gmm-tool-bar-item) gnus-summary-tool-bar-zap-list #[0 "\300\207" [t] 1] "List of icon items from the global tool bar.\nThese items are not displayed in the Gnus summary mode tool bar.\n\nSee `gmm-tool-bar-from-list' for the format of the list." gmm-tool-bar-zap-list] 14) #@116 Make a summary mode tool bar from `gnus-summary-tool-bar'. When FORCE, rebuild the tool bar. (fn &optional FORCE) (defalias 'gnus-summary-make-tool-bar #[256 "\306\300!\203+ \203+ \203 \211\203+ \307\310\311\312\313$\211@ B\314\f \315#\211\203) \211*\210\316\317!\210 \211\207" [tool-bar-mode gnus-summary-tool-bar-map load-path image-load-path gnus-summary-tool-bar gnus-summary-tool-bar-zap-list boundp image-load-path-for-library "gnus" "mail/save.xpm" nil t gmm-tool-bar-from-list gnus-summary-mode-map make-local-variable tool-bar-map] 7 (#$ . 110790)]) #@51 Make a summary score map of type TYPE. (fn TYPE) (defalias 'gnus-make-score-map #[257 "\300\207" [nil] 2 (#$ . 111364)]) #@151 Variable for communication with `gnus-summary-mode'. Allows the `gnus-newsgroup-name' local variable to be set before the summary mode hooks are run. (defvar gnus-summary-mode-group nil (#$ . 111493)) (defvar gnus-summary-mode-hook nil) (byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [gnus-summary-mode-hook variable-documentation put "Hook run after entering Summary mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp gnus-summary-mode-map definition-name gnus-summary-mode] 4) (defvar gnus-summary-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [gnus-summary-mode-abbrev-table gnus-summary-mode-map variable-documentation put purecopy "Keymap for `gnus-summary-mode'." boundp gnus-summary-mode-syntax-table definition-name gnus-summary-mode (lambda (#1=#:def-tmp-var) (defvar gnus-summary-mode-syntax-table #1#)) make-syntax-table "Syntax table for `gnus-summary-mode'." (lambda (#1#) (defvar gnus-summary-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `gnus-summary-mode'." derived-mode-parent gnus-mode] 5) #@925 Major mode for reading articles. \<gnus-summary-mode-map> Each line in this buffer represents one article. To read an article, you can, for instance, type `\[gnus-summary-next-page]'. To move forwards and backwards while displaying articles, type `\[gnus-summary-next-unread-article]' and `\[gnus-summary-prev-unread-article]', respectively. You can also post articles and send mail from this buffer. To follow up an article, type `\[gnus-summary-followup]'. To mail a reply to the author of an article, type `\[gnus-summary-reply]'. There are approx. one gazillion commands you can execute in this buffer; read the Info manual for more information (`\[gnus-info-find-node]'). The following commands are available: \{gnus-summary-mode-map} In addition to any hooks its parent mode `gnus-mode' might have run, this mode runs the hook `gnus-summary-mode-hook', as the final or penultimate step during initialization. (defalias 'gnus-summary-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324 \325\"\204R 8=\204R \326 \3258C#\210\327 !\210\330\f!\210 89 :\331 \210)\331 \210;<\332\333\334\"\203y \335 \210\336 \210\337 \210\340 \210\341 \210\342=\307>\343?\344\345!\210\346 \210\347 \210\306\350!\210\306\351!\210\306\352!\210\306\353!\210\306\354!\210\306\355!\210\306\356!\210\306\357!\210\360\361\362\342\307$\210\363 \210\306\364!\210\3654)\366\367!\207" [delay-mode-hooks major-mode mode-name gnus-summary-mode-map gnus-summary-mode-syntax-table gnus-summary-mode-abbrev-table make-local-variable t gnus-mode gnus-summary-mode "Summary" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table gnus-summary-make-local-variables gnus-visual-p summary-menu menu gnus-summary-make-menu-bar gnus-summary-make-tool-bar gnus-make-thread-indent-array gnus-simplify-mode-line buffer-disable-undo nil left-to-right add-to-invisibility-spec (gnus-sum . t) gnus-summary-set-display-table gnus-set-default-directory gnus-summary-line-format gnus-summary-line-format-spec gnus-summary-dummy-line-format gnus-summary-dummy-line-format-spec gnus-summary-mark-positions gnus-article-buffer gnus-article-current gnus-original-article-buffer add-hook pre-command-hook gnus-set-global-variables mm-enable-multibyte bookmark-make-record-function gnus-summary-bookmark-make-record run-mode-hooks gnus-summary-mode-hook local-abbrev-table gnus-newsgroup-variables gnus-summary-local-variables gnus-summary-mode-group gnus-newsgroup-name show-trailing-whitespace truncate-lines bidi-paragraph-direction] 5 (#$ . 112924) nil]) #@46 Make all the local summary buffer variables. (defalias 'gnus-summary-make-local-variables #[0 "\211\2055 \211@\211:\203( \211A\301=\203 \211@J\202 \302A!\303@!L\266\202. \303!\304L\210A\266\202\202 \207" [gnus-summary-local-variables global eval make-local-variable nil] 5 (#$ . 115736)]) #@73 compiler-macro for inlining `gnus-data-number'. (fn CL-WHOLE-ARG CL-X) (defalias 'gnus-data-number--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block gnus-data-number (progn (car cl-x))) nil] 9 (#$ . 116041)]) (put 'gnus-data-number 'compiler-macro 'gnus-data-number--cmacro) #@61 Access slot "number" of `gnus-data' struct CL-X. (fn CL-X) (defalias 'gnus-data-number #[257 "\211@\207" [] 2 (#$ . 116360)]) (byte-code "\300\301\302\303#\300\207" [function-put gnus-data-number side-effect-free t] 4) #@71 compiler-macro for inlining `gnus-data-mark'. (fn CL-WHOLE-ARG CL-X) (defalias 'gnus-data-mark--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block gnus-data-mark (progn (nth 1 cl-x))) nil] 9 (#$ . 116586)]) (put 'gnus-data-mark 'compiler-macro 'gnus-data-mark--cmacro) #@59 Access slot "mark" of `gnus-data' struct CL-X. (fn CL-X) (defalias 'gnus-data-mark #[257 "\211A@\207" [] 2 (#$ . 116897)]) (byte-code "\300\301\302\303#\300\207" [function-put gnus-data-mark side-effect-free t] 4) #@70 compiler-macro for inlining `gnus-data-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'gnus-data-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block gnus-data-pos (progn (nth 2 cl-x))) nil] 9 (#$ . 117118)]) (put 'gnus-data-pos 'compiler-macro 'gnus-data-pos--cmacro) #@58 Access slot "pos" of `gnus-data' struct CL-X. (fn CL-X) (defalias 'gnus-data-pos #[257 "\3008\207" [2] 3 (#$ . 117424)]) (byte-code "\300\301\302\303#\300\207" [function-put gnus-data-pos side-effect-free t] 4) #@73 compiler-macro for inlining `gnus-data-header'. (fn CL-WHOLE-ARG CL-X) (defalias 'gnus-data-header--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block gnus-data-header (progn (nth 3 cl-x))) nil] 9 (#$ . 117643)]) (put 'gnus-data-header 'compiler-macro 'gnus-data-header--cmacro) #@61 Access slot "header" of `gnus-data' struct CL-X. (fn CL-X) (defalias 'gnus-data-header #[257 "\3008\207" [3] 3 (#$ . 117964)]) (byte-code "\300\301\302\303#\300\207" [function-put gnus-data-header side-effect-free t] 4) #@72 compiler-macro for inlining `gnus-data-level'. (fn CL-WHOLE-ARG CL-X) (defalias 'gnus-data-level--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block gnus-data-level (progn (nth 4 cl-x))) nil] 9 (#$ . 118192)]) (put 'gnus-data-level 'compiler-macro 'gnus-data-level--cmacro) #@60 Access slot "level" of `gnus-data' struct CL-X. (fn CL-X) (defalias 'gnus-data-level #[257 "\3008\207" [4] 3 (#$ . 118508)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put gnus-data-level side-effect-free t defalias copy-gnus-data copy-sequence] 4) #@95 compiler-macro for inlining `gnus-data-make'. (fn CL-WHOLE-ARG NUMBER MARK POS HEADER LEVEL) (defalias 'gnus-data-make--cmacro #[1542 "\300\301\302\303\211\211\n\n\n\n\n&\n\207" [cl--defsubst-expand (number mark pos header level) (cl-block gnus-data-make (list number mark pos header level)) nil] 17 (#$ . 118781)]) (put 'gnus-data-make 'compiler-macro 'gnus-data-make--cmacro) #@81 Constructor for objects of type `gnus-data'. (fn NUMBER MARK POS HEADER LEVEL) (defalias 'gnus-data-make #[1285 "\257\207" [] 10 (#$ . 119171)]) (byte-code "\300\301\302\303#\304\305\306\211\307\306\310\311\305\306& \207" [function-put gnus-data-make side-effect-free t cl-struct-define gnus-data nil list ((number) (mark) (pos) (header) (level)) cl-struct-gnus-data-tags] 11) #@13 (fn DATA) (defalias 'gnus-data-unseen-p #[257 "\211@>\207" [gnus-newsgroup-unseen] 3 (#$ . 119561)]) #@13 (fn DATA) (defalias 'gnus-data-unread-p #[257 "\211A@U\207" [gnus-unread-mark] 3 (#$ . 119671)]) (byte-code "\300\301\302\303#\300\207" [function-put gnus-data-unread-p compiler-macro gnus-data-unread-p--inliner] 4) #@26 (fn INLINE--FORM DATA) (defalias 'gnus-data-unread-p--inliner #[514 "\3002 \301\302D\303E0\207" [inline--just-use = gnus-data-mark gnus-unread-mark] 5 (#$ . 119896)]) #@13 (fn DATA) (defalias 'gnus-data-read-p #[257 "\211A@U?\207" [gnus-unread-mark] 3 (#$ . 120073)]) (byte-code "\300\301\302\303#\300\207" [function-put gnus-data-read-p compiler-macro gnus-data-read-p--inliner] 4) #@26 (fn INLINE--FORM DATA) (defalias 'gnus-data-read-p--inliner #[514 "\3002 \301\302D\303E0\207" [inline--just-use /= gnus-data-mark gnus-unread-mark] 5 (#$ . 120293)]) #@13 (fn DATA) (defalias 'gnus-data-pseudo-p #[257 "\3008:\207" [3] 3 (#$ . 120469)]) (byte-code "\300\301\302\303#\300\207" [function-put gnus-data-pseudo-p compiler-macro gnus-data-pseudo-p--inliner] 4) #@26 (fn INLINE--FORM DATA) (defalias 'gnus-data-pseudo-p--inliner #[514 "\3002\n \301\302DD0\207" [inline--just-use consp gnus-data-header] 5 (#$ . 120678)]) (defalias 'gnus-data-find-in 'assq) #@15 (fn NUMBER) (defalias 'gnus-data-find #[257 "\301\"\207" [gnus-newsgroup-data gnus-data-find-in] 4 (#$ . 120877)]) (byte-code "\300\301\302\303#\300\207" [function-put gnus-data-find compiler-macro gnus-data-find--inliner] 4) #@28 (fn INLINE--FORM NUMBER) (defalias 'gnus-data-find--inliner #[514 "\3002 \301\302E0\207" [inline--just-use gnus-data-find-in gnus-newsgroup-data] 5 (#$ . 121113)]) #@30 (fn NUMBER &optional DATA) (defalias 'gnus-data-find-list '(macro . #[513 "\300\301\206 \302DC\303\304\305BB\306BBE\207" [let bdata gnus-newsgroup-data memq gnus-data-find-in (bdata) (bdata)] 8 (#$ . 121287)])) #@58 (fn AFTER-ARTICLE NUMBER MARK POS HEADER LEVEL OFFSET) (defalias 'gnus-data-enter #[1799 "\302\">\262\211\204 \303\304 \"\210\211\257AB\241\210\305\306AA\"\207" [gnus-newsgroup-data gnus-newsgroup-data-reverse gnus-data-find-in error "No such article: %d" nil gnus-data-update-list] 14 (#$ . 121509)]) #@44 (fn AFTER-ARTICLE LIST &optional OFFSET) (defalias 'gnus-data-enter-list #[770 "\205` \205 \302\">\262\204, \204, \244\203( \303\"\210\210\202[ \304!\262\204H \241\210\211\203[ \303A\"\210\202[ A\241\210\241\210\203[ \303A\"\210\305\211\266\202\207" [gnus-newsgroup-data gnus-newsgroup-data-reverse gnus-data-find-in gnus-data-update-list last nil] 9 (#$ . 121842)]) #@33 (fn ARTICLE &optional OFFSET) (defalias 'gnus-data-remove #[513 "\211@@U\203 A\302\205F \303\"\202F \211A\205F \211A@\211@\262U\203? \211AA\241\210\203: \303A\"\210\302\262\302\211A\262\202 \207" [gnus-newsgroup-data gnus-newsgroup-data-reverse nil gnus-data-update-list] 6 (#$ . 122252)]) #@17 (fn BACKWARD) (defalias 'gnus-data-list '(macro . #[257 "\300\301BB\207" [if ((or gnus-newsgroup-data-reverse (setq gnus-newsgroup-data-reverse (reverse gnus-newsgroup-data))) gnus-newsgroup-data)] 4 (#$ . 122569)])) #@70 Add OFFSET to the POS of all data entries in DATA. (fn DATA OFFSET) (defalias 'gnus-data-update-list #[514 "\301\205 @AA\211@\\\240\266A\262\202 \207" [gnus-newsgroup-data-reverse nil] 6 (#$ . 122795)]) #@68 Say whether this article is a pseudo article or not. (fn ARTICLE) (defalias 'gnus-summary-article-pseudo-p #[257 "\301\302\"\3038\262!?\207" [gnus-newsgroup-data mail-header-p gnus-data-find-in 3] 5 (#$ . 123015)]) #@68 Say whether this article is a sparse article or not. (fn ARTICLE) (defalias 'gnus-summary-article-sparse-p '(macro . #[257 "\300\301BB\207" [memq (gnus-newsgroup-sparse)] 4 (#$ . 123241)])) #@68 Say whether this article is a sparse article or not. (fn ARTICLE) (defalias 'gnus-summary-article-ancient-p '(macro . #[257 "\300\301BB\207" [memq (gnus-newsgroup-ancient)] 4 (#$ . 123439)])) #@55 Return a list of all children to NUMBER. (fn NUMBER) (defalias 'gnus-article-children #[257 "\301\">\262\302@8\303A\262\203. \302@8TU\203. @@B\262A\262\202 \207" [gnus-newsgroup-data gnus-data-find-in 4 nil] 6 (#$ . 123639)]) #@73 If the current article is intangible, then jump to a different article. (defalias 'gnus-summary-skip-intangible #[0 "\300`\301\"\211\205 \302!\207" [get-text-property gnus-intangible gnus-summary-goto-subject] 3 (#$ . 123889)]) (put 'gnus-summary-skip-intangible 'byte-optimizer 'byte-compile-inline-expand) #@48 Say whether this article is intangible or not. (defalias 'gnus-summary-article-intangible-p '(macro . #[0 "\300\207" [(get-text-property (point) 'gnus-intangible)] 1 (#$ . 124205)])) #@138 The article number of the article on the current line. If there isn't an article number here, then we return the current article number. (defalias 'gnus-summary-article-number #[0 "\300`\301\"\211\205 \302!\266\300`\303\"\206 \304 \207" [get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject] 3 (#$ . 124395)]) (put 'gnus-summary-article-number 'byte-optimizer 'byte-compile-inline-expand) #@61 Return the header of article NUMBER. (fn &optional NUMBER) (defalias 'gnus-summary-article-header #[256 "\301\206 \302`\303\"\211\205 \304!\266\302`\305\"\206 \306 \"\3078\207" [gnus-newsgroup-data gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3] 5 (#$ . 124839)]) (byte-code "\300\301\302\303#\300\207" [function-put gnus-summary-article-header compiler-macro gnus-summary-article-header--inliner] 4) #@38 (fn INLINE--FORM &optional NUMBER) (defalias 'gnus-summary-article-header--inliner #[513 "\3002 \301\302\206\f \303CDD0\207" [inline--just-use gnus-data-header gnus-data-find gnus-summary-article-number] 5 (#$ . 125326)]) #@84 Return the level of thread that starts with article NUMBER. (fn &optional NUMBER) (defalias 'gnus-summary-thread-level '(macro . #[256 "\300\301\302\303\304\206\n \305DDF\207" [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)] 7 (#$ . 125558)])) #@59 Return the mark of article NUMBER. (fn &optional NUMBER) (defalias 'gnus-summary-article-mark '(macro . #[256 "\300\301\206 \302DD\207" [gnus-data-mark gnus-data-find (gnus-summary-article-number)] 4 (#$ . 125921)])) #@75 Return the position of the line of article NUMBER. (fn &optional NUMBER) (defalias 'gnus-summary-article-pos '(macro . #[256 "\300\301\206 \302DD\207" [gnus-data-pos gnus-data-find (gnus-summary-article-number)] 4 (#$ . 126147)])) (defalias 'gnus-summary-subject-string 'gnus-summary-article-subject) #@73 Return current subject string or nil if nothing. (fn &optional NUMBER) (defalias 'gnus-summary-article-subject #[256 "\301\206 \302`\303\"\211\205 \304!\266\302`\305\"\206 \306 \"\3078\262\211\205/ \310!\205/ \211\311H\207" [gnus-newsgroup-data gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 mail-header-p 1] 5 (#$ . 126457)]) (put 'gnus-summary-article-subject 'byte-optimizer 'byte-compile-inline-expand) #@54 Return current article score. (fn &optional NUMBER) (defalias 'gnus-summary-article-score '(macro . #[256 "\300\301\302\206 \303\304BBD\305BB\207" [or cdr assq (gnus-summary-article-number) (gnus-newsgroup-scored) (gnus-summary-default-score 0)] 6 (#$ . 126952)])) #@94 Return a list of article numbers that are children of article NUMBER. (fn &optional NUMBER) (defalias 'gnus-summary-article-children #[256 "\301\206 \302`\303\"\211\205 \304!\266\302`\305\"\206 \306 \">\262\307@8\310\211A\211\262\203M \307@8\211\262V\203M TU\203( @@B\262\202( \211\237\207" [gnus-newsgroup-data gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 4 nil] 7 (#$ . 127226)]) #@83 Return the article number of the parent of article NUMBER. (fn &optional NUMBER) (defalias 'gnus-summary-article-parent #[256 "\206 \302 !\211\303\206$ \304`\305\"\211\205 \306!\266\304`\307\"\206$ \310 \">\262\311@8\211\312U?\205M A\211\262\203F \311@8W\2035 \205M @@\207" [gnus-newsgroup-data-reverse gnus-newsgroup-data reverse gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 4 0] 6 (#$ . 127707)]) #@49 Say whether MARK is the unread mark. (fn MARK) (defalias 'gnus-unread-mark-p #[257 "\211U\207" [gnus-unread-mark] 3 (#$ . 128201)]) #@133 Say whether MARK is one of the marks that mark as read. This is all marks except unread, ticked, dormant, and expirable. (fn MARK) (defalias 'gnus-read-mark-p #[257 "\211U\206 \211 U\206 \211\nU\206 \211 U\206 \211\fU?\207" [gnus-unread-mark gnus-ticked-mark gnus-spam-mark gnus-dormant-mark gnus-expirable-mark] 3 (#$ . 128342)]) #@253 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. (fn NUMBER) (defalias 'gnus-article-mark '(macro . #[257 "\300\301\302BB\303B\301\304BB\305B\301\306BB\307B\301\310BB\311B\301\312BB\313B\301\314BB\315B\301\316BB\317B\320\321\322\323\f\324BBD\325BBD\257 \207" [cond memq (gnus-newsgroup-unsendable) (gnus-unsendable-mark) (gnus-newsgroup-downloadable) (gnus-downloadable-mark) (gnus-newsgroup-unreads) (gnus-unread-mark) (gnus-newsgroup-marked) (gnus-ticked-mark) (gnus-newsgroup-spam-marked) (gnus-spam-mark) (gnus-newsgroup-dormant) (gnus-dormant-mark) (gnus-newsgroup-expirable) (gnus-expirable-mark) t or cdr assq (gnus-newsgroup-reads) (gnus-ancient-mark)] 15 (#$ . 128686)])) #@84 Save hidden threads, eval FORMS, and restore the hidden threads. (fn &rest FORMS) (defalias 'gnus-save-hidden-threads '(macro . #[128 "\300\301!\302\303BC\304\305B\306DEE\207" [make-symbol "config" let ((gnus-hidden-threads-configuration)) unwind-protect save-excursion gnus-restore-hidden-threads-configuration] 8 (#$ . 129575)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-save-hidden-threads lisp-indent-function 0 put edebug-form-spec t] 5) #@40 Compute the positions of all articles. (defalias 'gnus-data-compute-positions #[0 "\302 \212\303 \304\305\306\307\310!\311\"\312$\216\212\313 \210eb\210\205? \314`\315\"\203* \316y\210\202 @AA\211`\317\\\240\266A\262\316y\210\202 *\262)\207" [gnus-newsgroup-data-reverse gnus-newsgroup-data nil gnus-hidden-threads-configuration make-byte-code 0 "\301\300!\207" vconcat vector [gnus-restore-hidden-threads-configuration] 2 gnus-summary-show-all-threads get-text-property gnus-intangible 1 3] 8 (#$ . 130058)]) #@50 Return the current hidden threads configuration. (defalias 'gnus-hidden-threads-configuration #[0 "\212\300eb\210m\204# \301\302 \303\"\304=\203 \212\305y\210`)B\262\306y\210\202 \211\262)\207" [nil get-char-property point-at-eol invisible gnus-sum 0 1] 4 (#$ . 130584)]) #@64 Restore hidden threads configuration from CONFIG. (fn CONFIG) (defalias 'gnus-restore-hidden-threads-configuration #[257 "\212\301\302\211A\262\242\211\262\205 \211b\210\303 \210\202 )\262)\207" [inhibit-read-only nil t gnus-summary-hide-thread] 4 (#$ . 130867)]) #@10 (fn E) (defalias 'gnus-mouse-pick-article #[257 "\300!\210\301\302\303\"\207" [mouse-set-point gnus-summary-next-page nil t] 4 (#$ . 131145) "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 #[0 "\302!\206 \303 \304\211S\211\262\305Y\203 \306I\210\202 \307\310I\210\311\310I\210\312\310I\210\31318 \314\315\316\"\316U0\202< \210\202C \203C \316\202D \317\211S\211\262\320Y\203\\ H\204D \321I\210\202D \210\211\207" [standard-display-table buffer-display-table copy-sequence make-display-table 32 0 [63] 10 nil 13 9 (error) make-char latin-iso8859-1 160 256 127 [63]] 6 (#$ . 131302)]) #@70 Update the overlay arrow to point to line at position POS. (fn POS) (defalias 'gnus-summary-set-article-display-arrow #[257 "\205# \303\301!\210\303\302!\210\212\211b\210\304 \210 \204 \305 \306 `p\223\211)\207" [gnus-summary-display-arrow overlay-arrow-position overlay-arrow-string make-local-variable beginning-of-line make-marker "=>"] 4 (#$ . 131918)]) #@218 Initialize summary buffer for GROUP. This function does all setup work that relies on the specific value of GROUP, and puts the buffer in `gnus-summary-mode'. Returns non-nil if the setup was successful. (fn GROUP) (defalias 'gnus-summary-setup-buffer #[257 "\306!\307\310Q\211\211\211\205 \311\312!\211!\205 )\203$ \313!\210\314 \210\210\312!\2035 q\210p\n?\202` \315!q\210p\316 \210)\317!\203N \320\304!\210\321\322 \210\323\321\324\325\326$\210\327 \210\330 !\210\331\207" [buffer gnus-summary-buffer gnus-newsgroup-prepared gnus-summary-mode-group gnus-single-article-buffer gnus-newsgroup-name gnus-summary-buffer-name "*Dead Summary " "*" buffer-live-p get-buffer kill-buffer gnus-prune-buffers gnus-get-buffer-create gnus-summary-mode gnus-group-quit-config make-local-variable nil turn-on-gnus-mailing-list-mode gnus-update-format-specifications summary summary-mode summary-dummy gnus-update-summary-mark-positions gnus-summary-set-local-parameters t] 8 (#$ . 132289)]) #@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 #[0 "\306\307!\205\251 p \n \f \310\211\203> \211@\311:\2030 @\2021 \312\"B\262A\266\202\202 \210\211\237\262\313\314!r\211q\210\315\316\317\320\321!\322\"\323$\216 \f \n \211\205\242 \211@\211:\203\222 \211@\202\223 \211\211A\262\242L\210A\266\202\202\202 \262*\262\266\216\207" [gnus-summary-buffer gnus-newsgroup-name gnus-newsgroup-marked gnus-newsgroup-spam-marked gnus-newsgroup-unreads gnus-current-headers derived-mode-p gnus-summary-mode nil eval t generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 gnus-newsgroup-data gnus-article-buffer gnus-original-article-buffer gnus-article-current gnus-reffed-article-number gnus-current-score-file gnus-newsgroup-charset gnus-newsgroup-variables] 21 (#$ . 133295)]) #@53 Say whether ARTICLE is unread or not. (fn ARTICLE) (defalias 'gnus-summary-article-unread-p #[257 "\211>\207" [gnus-newsgroup-unreads] 3 (#$ . 134387)]) #@84 Return whether ARTICLE is the first article in the buffer. (fn &optional ARTICLE) (defalias 'gnus-summary-first-article-p #[256 "\211\206 \301`\302\"\211\205 \303!\266\301`\304\"\206 \305 \211\262\205% \211@@=\207" [gnus-newsgroup-data get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject] 4 (#$ . 134548)]) #@83 Return whether ARTICLE is the last article in the buffer. (fn &optional ARTICLE) (defalias 'gnus-summary-last-article-p #[256 "\211\206 \301`\302\"\211\205 \303!\266\301`\304\"\206 \305 \211\262\204\" \306\207\307\">\262A?\207" [gnus-newsgroup-data get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject t gnus-data-find-in] 5 (#$ . 134915)]) (defconst gnus--dummy-mail-header (byte-code "\300\301\302\211\303\302\211\301\211\302\304&\n\207" [vector 0 "" "05 Apr 2001 23:33:09 +0400" nil] 11)) (defconst gnus--dummy-data-list (byte-code "\301\302\211\302\257C\207" [gnus--dummy-mail-header 0 nil] 5)) #@20 (fn &optional N) (defalias 'gnus-make-thread-indent-array #[256 "\211\204 \303\262\203 \nU?\2051 \304T\305\" \211\306Y\2051 \307 _\310\"I\210\211S\262\202 \207" [gnus-thread-indent-array gnus-thread-indent-level gnus-thread-indent-array-level 200 make-vector "" 0 make-string 32] 6 (#$ . 135579)]) #@44 Compute where the summary marks are to go. (defalias 'gnus-update-summary-mark-positions #[0 "\212\211\205 \306\307 !\211!\205 )\203 q\210\n\310\212\311 \210\312\211\211\211\211 \313\310\211 \" # $ % & '\314(\315\310\316'\316\310\317\310\320&\n\210eb\210\321\322\310\316#\203i `B\262\202Y \323 \210\324'\325&\326\211%$\327#\314(\315\310\316'\316\310\317\310\320&\n\210\211\211\203\242 \211@\211Sb|\210\312c\210A\266\202\202\214 \210eb\210\330\331\332\310\316#\205\264 \333`e\320#BC\262 eb\210\334\331\335\310\316#\205\311 \333`e\320#B B\262 eb\210\336\331\337\310\316#\205\340 \333`e\320#B B\262 eb\210\340\331\341\310\316#\205\367 \333`e\320#B B\262 . \266\n)\211\211)\266\202)\207" [gnus-summary-buffer buffer gnus-summary-line-format-spec gnus--dummy-data-list case-fold-search gnus-newsgroup-downloadable buffer-live-p get-buffer nil gnus-set-work-buffer 90 (0) gnus-summary-insert-line 0 t "" 1 re-search-forward "[A-D]" erase-buffer 65 66 67 68 unread search-forward "A" - replied "B" score "C" download "D" gnus-newsgroup-data gnus-undownloaded-mark gnus-score-over-mark gnus-score-below-mark gnus-replied-mark gnus-tmp-unread gnus--dummy-mail-header gnus-summary-mark-positions] 24 (#$ . 135898)]) #@65 Insert a dummy root in the summary buffer. (fn SUBJECT NUMBER) (defalias 'gnus-summary-insert-dummy-line #[514 "\303 \210\304`\305\n\306\"\210`*\307\310F#\207" [gnus-tmp-number gnus-tmp-subject gnus-summary-dummy-line-format-spec beginning-of-line add-text-properties eval t gnus-number gnus-intangible] 9 (#$ . 137153)]) #@13 (fn FROM) (defalias 'gnus-summary-extract-address-component #[257 "!@\206 \211\207" [gnus-extract-address-components] 3 (#$ . 137489)]) #@20 (fn HEADER FROM) (defalias 'gnus-summary-from-or-to-or-newsgroups #[514 "\211r q\210\n) \203\225 \306!\203 \307 !!\2023 \310\306!\203- \2021 \311! \"\203\225 \312H\313\211\314\236A\211\262\203Z !!@\206T \211\262P\202\220 \315\236A\206\206 \315>\205\206 \316!@\317=\205\206 \310\320\"\203\203 \321\322\225\"\202\204 \211\262\211\262\205\220 P\266\203\206\243 \323 !@\206\240 \211\262!+\207" [gnus-newsgroup-charset gnus-summary-buffer gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mail-parse-charset gnus-tmp-from functionp mail-strip-quoted-names string-match gmm-regexp-concat 9 nil To Newsgroups gnus-find-method-for-group nntp "^[^:]+:" substring 0 bidi-string-mark-left-to-right gnus-ignored-from-addresses gnus-summary-to-prefix gnus-decode-encoded-address-function gnus-extract-address-components gnus-extra-headers gnus-newsgroup-name gnus-summary-newsgroup-prefix] 9 (#$ . 137636)]) #@112 (fn HEADER LEVEL CURRENT UNDOWNLOADED UNREAD REPLIED EXPIRABLE SUBJECT-OR-NIL &optional DUMMY SCORE PROCESS) (defalias 'gnus-summary-insert-line #[2824 " GY\203 \306\307G_ ]!\210\n ( )\211 *\nH + \310H ,\206= -\206= \311 .-\203Q \312.-Z!/X\203U \313\202d .-W\203b 0\202d 1 2 \311H 3*\203u 4\202\261 5>\203\201 6\202\261 \203\212 7\202\261 8>\203\226 9\202\261 :>\203\242 ;\202\261 3<>\203\257 =\202\261 > ?\203\275 @\202\311 A\203\307 B\202\311 > C \307H D\314\315D\"\203\370 \311\224\314\316D\"\203\355 \317D\320\311\225S#\206\363 \317D\311#\262\202\314\321D\"\203 \317D\311\224T\311\225S#\202D E \320H F)\203 \322\202 \323 G)\203+\324\202,\325 H\326 IE\327\230\203<DE,\247\204E\330,,\330U\203P\331\202T\332,!,\3331j\334`\335J!\210`\3363$0\202o\210\337\340\341\"\210\342\343\344\"\205\203\330y\210\345 \210\346\347!\210\320y.\207" [gnus-thread-indent-array gnus-tmp-header gnus-tmp-level gnus-tmp-current gnus-tmp-unread gnus-tmp-expirable gnus-make-thread-indent-array 2 7 0 abs 32 string-match "<[^>]+> *$" "^\".+\"" substring 1 "(.+)" 60 91 62 93 t "" -1 "?" number-to-string (error) put-text-property eval gnus-number gnus-message 5 "Error updating the summary line" gnus-visual-p summary-highlight highlight gnus-summary-highlight-line gnus-run-hooks gnus-summary-update-hook gnus-tmp-subject-or-nil gnus-tmp-dummy gnus-tmp-process gnus-tmp-indentation gnus-tmp-lines gnus-summary-default-score gnus-tmp-score gnus-summary-zcore-fuzz gnus-score-below-mark gnus-score-over-mark gnus-tmp-score-char gnus-tmp-number gnus-process-mark gnus-newsgroup-cached gnus-cached-mark gnus-replied-mark gnus-newsgroup-forwarded gnus-forwarded-mark gnus-newsgroup-saved gnus-saved-mark gnus-newsgroup-unseen gnus-unseen-mark gnus-no-mark gnus-tmp-replied gnus-undownloaded-mark gnus-newsgroup-agentized gnus-downloaded-mark gnus-tmp-downloaded gnus-tmp-from gnus-tmp-name gnus-tmp-subject gnus-tmp-opening-bracket gnus-tmp-closing-bracket inhibit-read-only gnus-summary-line-format-spec] 16 (#$ . 138596)]) #@63 Update summary line after change. (fn &optional DONT-UPDATE) (defalias 'gnus-summary-update-line #[256 "\205\305 ?\205\305 \306\307`\310\"\211\205 \311!\266\307`\312\"\206! \313 \211\n\236A\206- \206- \314\204\265 \203h \307`\310\"\211\205@ \311!\266\307`\312\"\206K \313 \n\236A\206V \206V \314 W\203h \f>\203\221 \315 !\210\202\221 \316\307`\310\"\211\205t \311!\266\307`\312\"\206 \313 \"\211A@\262 =\203\221 \317!\210\320\203\241 \321Z! X\203\245 \322\202\262 W\203\260 \202\262 \323\"\210\324\325\326\"\205\302 \327 \210\330\331!)\266\202\207" [gnus-summary-default-score gnus-summary-inhibit-highlight gnus-newsgroup-scored gnus-summary-mark-below gnus-newsgroup-unreads gnus-low-score-mark t get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 0 gnus-summary-mark-article-as-read gnus-data-find-in gnus-summary-mark-article-as-unread gnus-summary-update-mark abs 32 score gnus-visual-p summary-highlight highlight gnus-summary-highlight-line gnus-run-hooks gnus-summary-update-hook gnus-newsgroup-data gnus-unread-mark gnus-summary-zcore-fuzz gnus-score-below-mark gnus-score-over-mark] 7 (#$ . 140693)]) (defvar gnus-tmp-new-adopts nil) #@166 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. (fn THREAD &optional LEVEL CHAR) (defalias 'gnus-summary-number-of-articles-in-thread #[769 "<\204 \304\2026 :\203 A\203 \305\306\304\307\310A\"#\2026 \204( \304\2026 @\311H>\2035 \304\2026 \311\203O \311U\203O \203O \211\305\306\307\310 \"\"\\\262\203a \211\304V\203] \n\202b \202b \211\207" [gnus-newsgroup-limit gnus-tmp-new-adopts gnus-not-empty-thread-mark gnus-empty-thread-mark 1 apply + mapcar gnus-summary-number-of-articles-in-thread 0] 10 (#$ . 141923)]) #@133 Return pretty-printed version of message size. This function is intended to be used in `gnus-summary-line-format-alist'. (fn HEAD) (defalias 'gnus-summary-line-message-size #[257 "\211\300H\206 \301\211\302W\203 \303\202D \211\304W\203 \305\306\307\245\"\202D \211\310W\203/ \305\311\312\245\"\202D \211\313W\203> \305\314\315\245\"\202D \305\316\317\245\"\207" [6 -1 0 "n/a" 10000 format "%1.1fk" 1024.0 100000 "%dk" 1024.0 10000000 "%1.1fM" 1048576.0 "%dM" 1048576.0] 6 (#$ . 142545)]) (byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315\316\317& \207" [put gnus-summary-line-message-size byte-optimizer byte-compile-inline-expand custom-declare-variable gnus-user-date-format-alist funcall function #[0 "\300\207" [(((gnus-seconds-today) . "Today, %H:%M") ((+ 86400 (gnus-seconds-today)) . "Yesterday, %H:%M") (604800 . "%A %H:%M") ((gnus-seconds-month) . "%A %d") ((gnus-seconds-year) . "%B %d") (t . "%b %d %Y"))] 1] "Specifies date format depending on age of article.\nThis is an alist of items (AGE . FORMAT). AGE can be a number (of\nseconds) or a Lisp expression evaluating to a number. When the age of\nthe article is less than this number, then use `format-time-string'\nwith the corresponding FORMAT for displaying the date of the article.\nIf AGE is not a number or a Lisp expression evaluating to a\nnon-number, then the corresponding FORMAT is used as a default value.\n\nNote that the list is processed from the beginning, so it should be\nsorted by ascending AGE. Also note that items following the first\nnon-number AGE will be ignored.\n\nYou can use the functions `gnus-seconds-today', `gnus-seconds-month'\nand `gnus-seconds-year' in the AGE spec. They return the number of\nseconds passed since the start of today, of this month, of this year,\nrespectively." :version "24.1" :group gnus-summary-format :type (alist :key-type sexp :value-type string)] 10) #@213 Format the messy-date according to `gnus-user-date-format-alist'. Returns " ? " if there's bad input or if another error occurs. Input should look like this: "Sun, 14 Oct 2001 13:34:39 +0200". (fn MESSY-DATE) (defalias 'gnus-user-date #[257 "\3011l \211\211\302\232\203 \303\202& \304\305\306#\206& \307!\310\305\311\306%\210\211\262\262\312 \313\314\"\315@@!\211\247\203A \316\"\202C \211?\203T A\262\315@@!\262\2025 @A;\203` @A\262\266\317\315!\"\266\2030\207\210\320\207" [gnus-user-date-format-alist (error) "" (0 0) get-text-property 0 gnus-time safe-date-to-time put-text-property 1 current-time "%b %d '%y" time-subtract eval time-less-p format-time-string " ? "] 10 (#$ . 144466)]) #@91 Go through the local params of GROUP and set all variable specs in that list. (fn GROUP) (defalias 'gnus-summary-set-local-parameters #[257 "\300\301!\211\205U \211@\211:\203N \211A:\203N \211@9\203N \211@>\204N \3021I \211@B\262\303@!\203@ \304@!\305A@!L\202E \305A@!0\202M \210\202N \210A\266\202\202 \262\207" [(quit-config active) gnus-group-find-parameter (error) boundp make-local-variable eval] 7 (#$ . 145192)]) #@537 Start reading news in newsgroup GROUP. If SHOW-ALL is non-nil, already read articles are also listed. If NO-ARTICLE is non-nil, no article is selected initially. If NO-DISPLAY, don't generate the summary buffer contents. If KILL-BUFFER, it should be a buffer that's killed once the new summary buffer has been generated. If BACKWARD, move point to the previous group in the group buffer If SELECT-ARTICLES, only select those articles from GROUP. (fn GROUP &optional SHOW-ALL NO-ARTICLE KILL-BUFFER NO-DISPLAY BACKWARD SELECT-ARTICLES) (defalias 'gnus-summary-read-group #[1793 "\302\203N \302\303&\206! \302\262\302\211\262)\211\262\204N \304=\203N q\210\2039 \305\306!\210\307 \232\204H \307 \262\202 \302\262\202 \211\207" [gnus-auto-select-next gnus-group-buffer nil gnus-summary-read-group-1 quietly gnus-group-prev-unread-group 2 gnus-group-group-name] 15 (#$ . 145631)]) #@142 Display articles and threads in a Summary buffer for GROUP. (fn GROUP SHOW-ALL NO-ARTICLE KILL-BUFFER NO-DISPLAY &optional SELECT-ARTICLES) (defalias 'gnus-summary-read-group-1 #[1541 "\306\307\310#\210\311!\312!\205 \313#\204> \314 \210\203* \315!\210\316\317\320\"\210\321\317!\210\322 \210\323\324!\210\325\202E\211\204\207 \326\327!\203m p\232\204m \330p!\210\204i \331 \210q\210\332 !\210\333\334!\210\202m \335!\210\336 !\204~ \306\337\340 #\210\202\203 \306\337\341\"\210\342\202E\211\343=\203\306 \326\327!\203\236 p\232\204\236 \330p!\210\203\247 \315!\210\204\273 q\210\332 !\210\316\344\320\"\210\202\277 \335!\210\345\343\342\"\202E\314 \210\346\301!\203\321 \347\346\350!\203\332 \351 \210\352\353\n \"!\211A\354\355!\210\317\356\342\317\357\360$>\203\366 \361 \210@\203\376 \362 \2103\203\363 \210\203\342 A\364!\210)\202 \364!\210\204#\365 \210B\203.\366 \210\367C\370 \347U\203R\204RA\203D\371 \210\202RD\203R\203R\372\325!\210\354\373!\210\370 \347U\203x\204x\374\342\325\"\210\306\375\376\"\210\203t\315!\210\342\202E\377 \210\316\317!\210\203\210\315!\210\201M \210\203\225\342E\204\353\204\353F\203\353G\203\353\201N `\201O \"\211\205\271\201P !\266\201N `\201Q \"\206\312\201R \211\203\347H\203\347\211I>\204\347\211J>\204\347\201S !\210\210\202\367\322 \210\316\317\320\"\210\321\317!\210K\203)\201T \325\"\203)\201U \201V \201T \325\"!\210\201W \n!\203\"\201X \210\201V !\266\325L\354\201Y !\210\201Z !\204D\201[ \342\325#\210\325\207" [gnus-group-buffer gnus-pick-line-number gnus-newsgroup-name gnus-active-hashtb gnus-newsgroup-active gnus-newsgroup-highest gnus-message 7 "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 derived-mode-p gnus-summary-mode kill-buffer gnus-summary-update-info gnus-group-jump-to-group gnus-group-next-unread-group 1 gnus-handle-ephemeral-exit gnus-list-of-unread-articles 3 "Group %s contains no messages" "Can't select group" nil quit group signal boundp 0 spam-install-hooks spam-initialize copy-tree gethash gnus-run-hooks gnus-select-group-hook gnus-update-format-specifications summary-mode summary-dummy gnus-update-summary-mark-positions gnus-possibly-score-headers gnus-build-sparse-threads gnus-summary-initial-limit gnus-summary-prepare gnus-tree-open gnus-tree-highlight-article buffer-size gnus-summary-limit-include-dormant gnus-summary-limit-include-expunged gnus-apply-kill-hook gnus-summary-catchup-and-exit 6 "No unread news" gnus-summary-maybe-hide-threads gnus-use-scoring gnus-newsgroup-dormant gnus-use-trees gnus-summary-highlight-line-function gnus-newsgroup-scored overlay-arrow-position gnus-newsgroup-unreads gnus-auto-select-first gnus-plugged gnus-newsgroup-undownloaded gnus-newsgroup-downloadable gnus-auto-center-group gnus-newsgroup-prepared gnus-summary-auto-select-subject get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-goto-article get-buffer-window selected-window select-window gnus-group-goto-group recenter gnus-summary-prepared-hook gnus-ephemeral-group-p gnus-group-update-group] 16 (#$ . 146544)]) #@49 Select the subject line on initial group entry. (defalias 'gnus-summary-auto-select-subject #[0 "eb\210\301\267\202 \302 \207\303 \207\304 \207\305 \207\306\207\307!\205 \207" [gnus-auto-select-subject #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (best 9 unread 12 unseen 15 unseen-or-unread 18 first 21)) gnus-summary-best-unread-subject gnus-summary-first-unread-subject gnus-summary-first-unseen-subject gnus-summary-first-unseen-or-unread-subject t functionp] 2 (#$ . 149942)]) #@30 Generate the summary buffer. (defalias 'gnus-summary-prepare #[0 "\306\307 \210\310\211\311\312!\210 \203( \313\f\203# \314 \315\316\317 !!!!\202& \320 !!\210 \237eb\210\311\321!)\207" [inhibit-read-only gnus-newsgroup-data gnus-newsgroup-data-reverse gnus-newsgroup-headers gnus-show-threads gnus-summary-thread-gathering-function t erase-buffer nil gnus-run-hooks gnus-summary-generate-hook gnus-summary-prepare-threads gnus-sort-gathered-threads gnus-sort-threads gnus-cut-threads gnus-make-threads gnus-sort-articles gnus-summary-prepare-hook] 7 (#$ . 150476) nil]) #@87 Simplify subject by the same rules as `gnus-gather-threads-by-subject'. (fn SUBJECT) (defalias 'gnus-general-simplify-subject #[257 "\203 \304\"\202O \247\2034 \211\305\n\"\203 \306\307\225\"\262\262\211G V\2030 \306\307 #\202O \211\202O \310=\203@ \311!\202O \211\305\n\"\203O \306\307\225\"\262\262 \205Y \305 \"?\205^ \211\207" [gnus-simplify-subject-functions gnus-summary-gather-subject-limit message-subject-re-regexp gnus-summary-gather-exclude-subject gnus-map-function string-match substring 0 fuzzy gnus-simplify-subject-fuzzy] 5 (#$ . 151056)]) (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 #[0 "\305 \210\306\307\310\311\206! \312`\313\"\211\205 \314!\266\312`\315\"\206! \316 \"\3178\262\211\2055 \320!\2055 \211\321H\266\202 \203B \322 \"\202\206 \n\247\203k \211\323 \"\203V \324\325\225\"\262\262\211G\nV\203g \324\325\n#\202\206 \211\202\206 \n\326=\203w \327!\202\206 \211\323 \"\203\206 \324\325\225\"\262\262\f\205\220 \323\f\"?\205\225 \211\262\"\207" [gnus-newsgroup-data gnus-simplify-subject-functions gnus-summary-gather-subject-limit message-subject-re-regexp gnus-summary-gather-exclude-subject gnus-summary-select-article message "%s" nil gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 mail-header-p 1 gnus-map-function string-match substring 0 fuzzy gnus-simplify-subject-fuzzy] 7 (#$ . 151718) nil]) #@61 Gather threads by looking at Subject headers. (fn THREADS) (defalias 'gnus-gather-threads-by-subject #[257 "\204 \207\306\307\310 \206 \311\312\313$)\211\314\211\211\203\346 @@\211\315H\262\211\262\n\2033 \316\n\"\202w \247\203\\ \211\317\f\"\203G \320\321\225\"\262\262\211G V\203X \320\321 #\202w \211\202w \322=\203h \323!\202w \211\317\f\"\203w \320\321\225\"\262\262 \205\201 \317 \"?\205\206 \211\262\262\203\332 \324\"\211\262\203\277 @@;\204\247 @D\240\210@@A@C\244\241\210A\241\210\262\202\332 \325\203\324 \n@D\240\210\202\326 #\210\262A\262\202 \207" [gnus-summary-make-false-root size gnus-simplify-subject-functions gnus-summary-gather-subject-limit message-subject-re-regexp gnus-summary-gather-exclude-subject 1000 make-hash-table :size 300 :test equal nil 1 gnus-map-function string-match substring 0 fuzzy gnus-simplify-subject-fuzzy gethash puthash gnus-summary-make-false-root-always] 12 (#$ . 152649)]) #@64 Gather threads by looking at References headers. (fn THREADS) (defalias 'gnus-gather-threads-by-references #[257 "\304\305\306\206 \307\310\311$)\304\305\306\206 \307\310\311$)\211\312\211\211\211\211\211\211 \203\361 @@\211\313H\262\211\262\203\345 @@\211\314H\262\262\315\316 \206K \317!\312\320\321 #\203g \322 \315\224\315\225\211#\nB\202P \n\237,\262\312\262\211A\262\242\211\262\203\345 \323\"\262\324\f\"\211\262\204\241 \325 #\210\325 \f#\210\202o \324 \"\262\204\315 @@;\204\301 \211@@\211\326H\262@D\240\210@@A @C\244\241\210\325\f#\210\327\262\fA\241\210\262\f\202o \262 A\262\f\202# \207" [size references ids beg 1000 make-hash-table :size 300 :test equal nil 5 4 0 mail-header-remove-comments "" string-match "<[^<]+[^< ]" substring delete gethash puthash 1 t] 17 (#$ . 153645)]) #@101 Sort subthreads inside each gathered thread by `gnus-sort-gathered-threads-function'. (fn THREADS) (defalias 'gnus-sort-gathered-threads #[257 "\211\203 @@;\203 @\301@A\"\241\210A\262\202 \211\207" [gnus-sort-gathered-threads-function sort] 6 (#$ . 154518)]) #@50 Say whether ROOT is in THREAD. (fn ROOT THREAD) (defalias 'gnus-thread-loop-p #[514 "\211C\301\302\211A\262\242\211\262\203i A\262\211\203( \211@@=\204( \211A\266\202\202 \211\203` \302\303@A\"\241\210\304\305\"\211\262\203M \211A@C\244\241\210\202V \306\302@D#\210\307\262\302\262\210\202 AB\262\202 \207" [gnus-newsgroup-dependencies 0 nil delq gethash "none" puthash 1] 10 (#$ . 154794)]) #@75 Go through the dependency hashtb and find the roots. Return all threads. (defalias 'gnus-make-threads #[0 "\301C\3022 \303\304\305\306\307\310!\311\"\312\313%\"0\204 \211\242\207" [gnus-newsgroup-dependencies nil infloop maphash make-byte-code 514 "\211@\203' \301\302\303\304\305\306\307\310!\311\"\312\313%A\"\"\314U\204' \300\315\240\210\316\317\320\"\210\211@?\2055 \300\321A\300\242\"\240\207" vconcat vector [apply + mapcar make-byte-code 257 "\301\300@\"\207" vconcat vector [gnus-thread-loop-p] 4 "\n\n(fn THREAD)" 0 nil throw infloop t append] 11 "\n\n(fn ID REFS)"] 8 (#$ . 155220)]) #@498 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 non-nil then duplicate Message-IDs will not be entered in the DEPENDENCIES table. Otherwise duplicate Message-IDs will be renamed to a unique Message-ID before being entered. Returns HEADER if it was entered in the DEPENDENCIES. Returns nil otherwise. (fn HEADER DEPENDENCIES FORCE-NEW) (defalias 'gnus-dependencies-add-header #[771 "\305H\211\205 \306\"\307\211\211\211\211\204 \307\262\n\202\226 \204- \310 C #\262\202\226 @\204G \306\n\"\n\240\210\306\n\"\262\202\226 \203\\ \306\n\"\n\240\210\311\262\202\226 \204z \310\312 \211\262 C #\262 \211\305 I\266\202\226 @\211\313@\313H\206\207 \314 \313H\206\217 \314PI\266\307\262\n \203\311\211\204\311 \315H\307\211\205\nG\316U?\205 \203\361 \n\316\317\n\206\277 \314!\307 \320\321\n\f#\203\333 \322\n\316\224\316\225\211# B\202\304 \237, \233\203\353 A\202\337 @)\202\317\n!\320\323\n\"\205 \324\325\n\")*\262\262\203\235\306\n\"\211\262\203\235\242\211\262\203\235\230\2036@\211\315\326I\266\307\262\307\262\202\315H\307\211\205\227\nG\316U?\205\227 \203\207\n\316\317\n\206U\314!\307 \320\321\n\f#\203q\322\n\316\224\316\225\211# B\202Z \237, \233\203\201 A\202u @)\202\227\317\n!\320\323\n\"\205\226\324\325\n\")*\262\202\206\242\326\262\306\n\"\262\203\277\306\n\"AC\244\241\210\202\311\310\307D #\210 \207" [gnus-summary-ignore-duplicates n references ids beg 4 gethash nil puthash t nnmail-message-id 8 "" 5 0 mail-header-remove-comments string-match "<[^<]+[^< ]" substring "\\(<[^<]+>\\)[ ]*\\'" match-string 1 "none"] 17 (#$ . 155832)]) (put 'gnus-dependencies-add-header 'byte-optimizer 'byte-compile-inline-expand) #@15 (fn STRING) (defalias 'gnus-extract-message-id-from-in-reply-to #[257 "\300\301\"\205 \302\303\224\303\225#\207" [string-match "<[^>]+>" substring 0] 5 (#$ . 157761)]) (defalias 'gnus-build-sparse-threads #[0 " \306\307\211\211\211\211\211\211\211\211 \n\310\311\312\"\210\212\313\314!\210 \211A\262 \242\211\262\n\203\233 \315H\211\262 \203 \316\230\204 c\210\317H\262\320H\262\321H\262\322\262\323\324\307\306#\203\204 `T\262\323\325\307\306#\203S `{\262T\211\262\211\262\257B\262\202S \203\225 T\307FB\262\326 \210\202 \327p!\210)\330\331\"\211\203\360\211@\332\f\3218\316\3178\206\270 \316A@\3338\206\303 \316\322\211\316\307&\n \307\317H\211\205\326 \334\"\307\211\211\211\211\204\346 \307\262\n\202a\204\370 \335 C #\262\202a@\204\334\n\"\n\240\210\334\n\"\262\202a\203'\334\n\"\n\240\210\306\262\202a\n\204E\335\336 \211\262 C #\262 \211\317 I\266\202a@\211\337@\337H\206R\316 \337H\206Z\316PI\266\307\262\n \203\312\211\204\312 \315H\307 (\211 )\205\347)G\322U?\205\347(\203\323) )\322\340)\206\221\316!\307 * ) +\341\342)+#\203\266\343)\322\224\322\225\211+#*B*\202\231*\237, *(*\233\203\314*A*\202\274*@)\202\347\340)! )\341\344)\"\205\346\345\320)\")*\262\262\203\236\334\n\"\211\262\203\236\242\211\262\203\236\230\203 @\211\315\346I\266\307\262\307\262\202\355\315H\307 (\211 )\205\230)G\322U?\205\230(\203\204) )\322\340)\206B\316!\307 * ) +\341\342)+#\203g\343)\322\224\322\225\211+#*B*\202J*\237, *(*\233\203}*A*\202m*@)\202\230\340)! )\341\344)\"\205\227\345\320)\")*\262\202\355\206\243\346\262\334\n\"\262\203\300\334\n\"AC\244\241\210\202\312\335\307D #\210 \266\212\203\351\f,B,\f-B-\f.B/B/\fSA\266\202\202\245 \210\310\311\347\"*\207" [gnus-newsgroup-headers gnus-newsgroup-charset gnus-summary-ignore-duplicates mail-parse-charset gnus-reffed-article-number gnus-newsgroup-dependencies t nil gnus-message 7 "Making sparse threads..." nnheader-set-temp-buffer " *gnus sparse threads*" 5 "" 4 1 3 0 search-backward ">" "<" erase-buffer kill-buffer sort car-less-than-car vector 2 gethash puthash nnmail-message-id 8 mail-header-remove-comments string-match "<[^<]+[^< ]" substring "\\(<[^<]+>\\)[ ]*\\'" match-string "none" "Making sparse threads...done" n references ids beg gnus-newsgroup-limit gnus-newsgroup-sparse gnus-sparse-mark gnus-newsgroup-reads] 30]) (defalias 'gnus-build-old-threads #[0 "\303C\304\305\306\307\310\311!\312\"\313\314%\n\")\207" [gnus-newsgroup-charset mail-parse-charset gnus-newsgroup-dependencies nil maphash make-byte-code 514 "\211@?\205> \300A\240\210\300\242\205> \300\242@@\211\302H\262 >\203' \300\211\242A\240\210\202 \303!\211\262\2037 \304!@\203' \300\305\240\210\202 \207" vconcat vector [gnus-newsgroup-dormant 0 gnus-build-get-header gnus-id-to-thread nil] 5 "\n\n(fn ID REFS)"] 9]) #@85 Translate STRING into something that doesn't contain weird characters. (fn STRING) (defalias 'gnus-remove-odd-characters #[257 "\300\301\302\300\303\302\304$\304$\207" [subst-char-in-string 13 45 10 t] 9 (#$ . 160757)]) (put 'gnus-remove-odd-characters 'byte-optimizer 'byte-compile-inline-expand) #@48 (fn NUMBER DEPENDENCIES &optional FORCE-NEW) (defalias 'gnus-nov-parse-line #[770 "\306 \307\211\211\310\216\307`}\210m\204 \307u\210\3111B `\312\313 \314#\203) `S\202+ {\211\262!\315\316\317\315\320\317\321$\321$\2620\202D \210\3221q `\312\313\n\314#\203X `S\202Z {\211\262!\315\316\317\315\320\317\321$\321$\2620\202s \210`\312\313\n\314#\203\202 `S\202\204 {`\312\313 \314#\203\224 `S\202\226 {\323\324\"\203\242 \211\202\275 \f\211\247\203\262 \325\326 \n#\202\274 \325\327 \330\fT\211!#)\262`\312\313\f\314#\203\316 `S\202\320 \n{\211\262 \307f\331=\203\337 \332\202\370 \3331\352 \334p!0\202\354 \210\307\211\247\203\365 \211\202\366 \332\262m\204\377 \335u\210\307f\331=\203\n\332\202#\3361\334p!0\202\210\307\211\247\203 \211\202!\332\262m\204*\335u\210m?\205K\337\340!\2039\332\225b\210`\312\313\314#\203H`S\202J {\307\211\307f\341>\204\202`\312\313\314#\203c`S\202e{\262\323\342\"\203M\343\344\335\"!\345\332\225\"BB\262\202M\266\202\346\n\n\n\n\n\n\n\n\n\n&\n\266\212\262\210)\347\230\203\304\331H\211\262\203\304\350\236A\211\262\203\304\211\351\352!I\266 \203\314 !\210\353H\211\205\334\354\"\307\211\211\211\211\204\354\307\262\n\202h\204\376\355 C #\262\202h@\204\354\n\"\n\240\210\354\n\"\262\202h\203-\354\n\"\n\240\210\321\262\202h4\204L\355\356 \211\262 C #\262 \211\353 I\266\202h@\211\357@\357H\206Y\347 \357H\206a\347PI\266\307\262\n \203\321\211\204\321 \351H\307 5\211 6\205\3566G\332U?\205\3565\203\3326 6\332\3606\206\230\347!\307 7 6 8\323\36168#\203\275\3456\332\224\332\225\2118#7B7\202\2407\237, 757\233\203\3237A7\202\3037@)\202\356\3606! 6\323\3626\"\205\355\344\3356\")*\262\262\203\245\354\n\"\211\262\203\245\242\211\262\203\245\230\203#@\211\351\363I\266\307\262\307\262\202\364\351H\307 5\211 6\205\2376G\332U?\205\2375\203\2136 6\332\3606\206I\347!\307 7 6 8\323\36168#\203n\3456\332\224\332\225\2118#7B7\202Q7\237, 757\233\203\2047A7\202t7@)\202\237\3606! 6\323\3626\"\205\236\344\3356\")*\262\202\364\206\252\363\262\354\n\"\262\203\307\354\n\"AC\244\241\210\202\321\355\307D #\210 \266\212\207" [gnus-decode-encoded-word-function gnus-decode-encoded-address-function number gnus-newsgroup-name nnheader-fake-message-id gnus-alter-header-function point-at-eol nil #[0 "~\207" [] 1] (error) search-forward " " move subst-char-in-string 13 45 10 t (error) string-match "^<[^>]+>$" format "fake+none+%s+%d" "fake+none+%s+%s" int-to-string 9 0 (error) read 1 (error) looking-at "Xref: " (10 nil) "^\\([^ :]+\\): " intern match-string substring vector "" In-Reply-To 5 gnus-extract-message-id-from-in-reply-to 4 gethash puthash nnmail-message-id 8 mail-header-remove-comments "<[^<]+[^< ]" "\\(<[^<]+>\\)[ ]*\\'" "none" gnus-summary-ignore-duplicates n references ids beg] 30 (#$ . 161064)]) (put 'gnus-nov-parse-line 'byte-optimizer 'byte-compile-inline-expand) #@174 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). (fn ID) (defalias 'gnus-build-get-header #[257 "\306\211r q\210\306eb\210\2041 \307\306\310#\2031 \311 \210\312\313\314\315!\"!\262\204\f \311\316!\210\202\f \205\235\311 \210\317p!\306\320 \306\211\211\321\216\306`}\210m\204P \306u\210\3221 `\307\323 \324#\203f `S\202h {\211\262!\325\326\327\325\330\327\310$\310$\2620\202\201 \210\3311\256 \f`\307\323\n\324#\203\225 `S\202\227 {\211\262!\325\326\327\325\330\327\310$\310$\2620\202\260 \210`\307\323\n\324#\203\277 `S\202\301 {`\307\323 \324#\203\321 `S\202\323 {\332\333\"\203\337 \211\202\376 \f\211 \247\203\360 \313\334: #\202\375 \313\335:\336;T\211;!#)\262`\307\323\f\324#\203`S\202\n{\211\262 \306f\337=\203 \340\2029\3411+\317p!0\202-\210\306\211\247\2036\211\2027\340\262m\204@\342u\210\306f\337=\203K\340\202d\3431V\317p!0\202X\210\306\211\247\203a\211\202b\340\262m\204k\342u\210m?\205\214\312\344!\203z\340\225b\210`\307\323\324#\203\211`S\202\213 {\306\211\306f\345>\204\303`\307\323\324#\203\244`S\202\246{\262\332\346\"\203\216\347\350\342\"!\351\340\225\"BB\262\202\216\266\202\352\n\n\n\n\n\n\n\n\n\n&\n\266\212\262\210)\353\230\203\337H\211\262\203\354\236A\211\262\203\211\355\356!I\266<\203<!\210\357H\211\205 \360\"\306\211\211\211\211\204/\306\262\n\202\253\204A\361 C #\262\202\253@\204[\360\n\"\n\240\210\360\n\"\262\202\253\203p\360\n\"\n\240\210\310\262\202\253=\204\217\361\362 \211\262 C #\262 \211\357 I\266\202\253@\211\363@\363H\206\234\353 \363H\206\244\353PI\266\306\262\n \203\211\204 \355H\306 >\211 ?\2051?G\340U?\2051>\203 ? ?\340\364?\206\333\353!\306 @ ? A\332\365?A#\203 \351?\340\224\340\225\211A#@B@\202\343@\237, @>@\233\203@A@\202@@)\2021\364?! ?\332\366?\"\2050\350\342?\")*\262\262\203\350\360\n\"\211\262\203\350\242\211\262\203\350\230\203f@\211\355\367I\266\306\262\306\262\2027\355H\306 >\211 ?\205\342?G\340U?\205\342>\203\316? ?\340\364?\206\214\353!\306 @ ? A\332\365?A#\203\261\351?\340\224\340\225\211A#@B@\202\224@\237, @>@\233\203\307@A@\202\267@@)\202\342\364?! ?\332\366?\"\205\341\350\342?\")*\262\2027\206\355\367\262\360\n\"\262\203\n\360\n\"AC\244\241\210\202\361\306D #\210 \266\212\266\207\211\262\205\235\211\355H\306 >\211 ?\205\234?G\340U?\205\234>\203\210? ?\340\364?\206F\353!\306 @ ? A\332\365?A#\203k\351?\340\224\340\225\211A#@B@\202N@\237, @>@\233\203\201@A@\202q@@)\202\234\364?! ?\332\366?\"\205\233\350\342?\")**\203\320\340H\211BBBCBC\211D>\203\311\370E\"E\371D\"D\202\317\211FBF\210\207" [gnus-newsgroup-dependencies nntp-server-buffer case-fold-search gnus-decode-encoded-word-function gnus-decode-encoded-address-function number nil search-forward t beginning-of-line looking-at format "^[^ ]* [^ ]* [^ ]* [^ ]* %s" regexp-quote 2 read point-at-eol #[0 "~\207" [] 1] (error) " " move subst-char-in-string 13 45 10 (error) string-match "^<[^>]+>$" "fake+none+%s+%d" "fake+none+%s+%s" int-to-string 9 0 (error) 1 (error) "Xref: " (10 nil) "^\\([^ :]+\\): " intern match-string substring vector "" In-Reply-To 5 gnus-extract-message-id-from-in-reply-to 4 gethash puthash nnmail-message-id 8 mail-header-remove-comments "<[^<]+[^< ]" "\\(<[^<]+>\\)[ ]*\\'" "none" gnus-add-to-sorted-list delq gnus-newsgroup-name nnheader-fake-message-id gnus-alter-header-function gnus-summary-ignore-duplicates n references ids beg gnus-newsgroup-limit gnus-newsgroup-headers gnus-newsgroup-unselected gnus-newsgroup-unreads gnus-newsgroup-ancient] 34 (#$ . 164130)]) #@23 Read all the headers. (defalias 'gnus-build-all-threads #[0 "\306 \307\211r\fq\210\307 eb\210m?\205H\3101\n\311p!\262\211\306\312 \307\211\211\313\216\307`}\210m\2046 \307u\210\3141f 7`\315\316 \317#\203M `S\202O {\211\262!\320\321\322\320\323\322\306$\306$\2620\202h \210\3241\226 8`\315\316\n\317#\203} `S\202 {\211\262!\320\321\322\320\323\322\306$\306$\2620\202\230 \210`\315\316\n\317#\203\247 `S\202\251 {`\315\316 \317#\203\271 `S\202\273 {\325\326\"\203\307 \211\202\350 \f\211 9\247\203\332 \327\330:9#\202\347 \327\331:\332;T\211;!#)\262`\315\316\f\317#\203\371 `S\202\373 \n{\211\262 \307f\333=\203\n\334\202#\3351\311p!0\202\210\307\211\247\203 \211\202!\334\262m\204*\336u\210\307f\333=\2035\334\202N\3371@\311p!0\202B\210\307\211\247\203K\211\202L\334\262m\204U\336u\210m?\205v\340\341!\203d\334\225b\210`\315\316\317#\203s`S\202u {\307\211\307f\342>\204\255`\315\316\317#\203\216`S\202\220{\262\325\343\"\203x\344\345\336\"!\346\334\225\"BB\262\202x\266\202\347\n\n\n\n\n\n\n\n\n\n&\n\266\212\262\210)\350\230\203\357\333H\211\262\203\357\351\236A\211\262\203\357\211\352\353!I\266<\203\371<!\210\354H\211\205 \355\"\307\211\211\211\211\204\307\262\n\202\224\204+\356 C #\262\202\224@\204E\355\n\"\n\240\210\355\n\"\262\202\224\203Z\355\n\"\n\240\210\306\262\202\224 \204x\356\357 \211\262 C #\262 \211\354 I\266\202\224@\211\360@\360H\206\205\350 \360H\206\215\350PI\266\307\262\n \203\375\211\204\375 \352H\307 =\211 >\205>G\334U?\205=\203> >\334\361>\206\304\350!\307 ? > @\325\362>@#\203\351\346>\334\224\334\225\211@#?B?\202\314?\237, ?=?\233\203\377?A?\202\357?@)\202\361>! >\325\363>\"\205\345\336>\")*\262\262\203\321\355\n\"\211\262\203\321\242\211\262\203\321\230\203O@\211\352\364I\266\307\262\307\262\202 \352H\307 =\211 >\205\313>G\334U?\205\313=\203\267> >\334\361>\206u\350!\307 ? > @\325\362>@#\203\232\346>\334\224\334\225\211@#?B?\202}?\237, ?=?\233\203\260?A?\202\240?@)\202\313\361>! >\325\363>\"\205\312\345\336>\")*\262\202 \206\326\364\262\355\n\"\262\203\363\355\n\"AC\244\241\210\202\375\356\307D #\210 \266\212\266\207\211\2620\202\210\202\210\203 rAq\210BBB\334H\211\262C>\203;\365D\"D\366C\"C\202A\211EBE)\336y\210\202 ,\207" [gnus-newsgroup-charset gnus-newsgroup-dependencies mail-parse-charset gnus-summary-ignore-duplicates nntp-server-buffer case-fold-search t nil (error) read point-at-eol #[0 "~\207" [] 1] (error) search-forward " " move subst-char-in-string 13 45 10 (error) string-match "^<[^>]+>$" format "fake+none+%s+%d" "fake+none+%s+%s" int-to-string 9 0 (error) 1 (error) looking-at "Xref: " (10 nil) "^\\([^ :]+\\): " intern match-string substring vector "" In-Reply-To 5 gnus-extract-message-id-from-in-reply-to 4 gethash puthash nnmail-message-id 8 mail-header-remove-comments "<[^<]+[^< ]" "\\(<[^<]+>\\)[ ]*\\'" "none" gnus-add-to-sorted-list delq gnus-decode-encoded-word-function gnus-decode-encoded-address-function number gnus-newsgroup-name nnheader-fake-message-id gnus-alter-header-function n references ids beg gnus-summary-buffer gnus-newsgroup-headers gnus-newsgroup-unselected gnus-newsgroup-unreads gnus-newsgroup-ancient] 34 (#$ . 168024)]) #@64 Update the line for ARTICLE using HEADER. (fn ARTICLE HEADER) (defalias 'gnus-summary-update-article-line #[514 "\211\306H\307!\211\204 \310\311!\210\211\240\210\312!\210\313\">\262\211@\314\n\315=\2034 \316`\317\"\2034 \320\202R \313\316`\317\"\211\205@ \312!\266\316`\321\"\206K \322 \"\3068\262\323 \324y\210`|\210`\325\326 >\f\f>\203o \202\310 \f$>\203| %\202\310 \f&>\203\211 '\202\310 \f(>\203\226 )\202\310 \f*>\203\243 +\202\310 \f,>\203\260 -\202\310 \f.>\203\275 /\202\310 \f0\236A\206\310 1 2>.>3\203#\3271\377 4\206\346 \330!\2114\313\">\262A@\3318\262\211\324H\2620\202\210\332\324H\326\211\204\3005\203\3335\"\262\202b6\2047\211\3347\"\2032\335\320\225\"\266\202\202b\262\202b6\336=\203F\337!\262\202b6\247\203b\340\3347\"\203]\335\320\225\"\2626\"\2625\203r\3335\"\262\202\2726\204\217\211\3347\"\203\212\335\320\225\"\266\202\202\272\262\202\2726\336=\203\236\337!\262\202\2726\247\203\272\340\3347\"\203\265\335\320\225\"\2626\"\262\232\266\203\202 5\203\321\3335\"\262\2026\204\356\211\3347\"\203\351\335\320\225\"\266\202\202\262\2026\336=\203\375\337!\262\2026\247\203\340\3347\"\203\335\320\225\"\2626\"\262\232\266\203\203#\332\202'\324H\3268\236A9>& \210`ZA\205Q\341A\342\3438A@\3438\262#\"\262)\266\203\207" [gnus-newsgroup-data inhibit-read-only gnus-summary-make-false-root gnus-newsgroup-undownloaded gnus-newsgroup-unsendable gnus-unsendable-mark 4 gnus-id-to-thread error "Article in no thread" gnus-summary-goto-subject gnus-data-find-in t dummy get-text-property gnus-intangible 0 gnus-number gnus-summary-last-subject point-at-bol 1 gnus-summary-insert-line nil (error) reverse 3 "" gnus-map-function string-match substring fuzzy gnus-simplify-subject-fuzzy truncate-string-to-width gnus-data-update-list - 2 gnus-newsgroup-downloadable gnus-downloadable-mark gnus-newsgroup-unreads gnus-unread-mark gnus-newsgroup-marked gnus-ticked-mark gnus-newsgroup-spam-marked gnus-spam-mark gnus-newsgroup-dormant gnus-dormant-mark gnus-newsgroup-expirable gnus-expirable-mark gnus-newsgroup-reads gnus-ancient-mark gnus-newsgroup-replied gnus-show-threads gnus-newsgroup-data-reverse gnus-simplify-subject-functions gnus-summary-gather-subject-limit message-subject-re-regexp gnus-newsgroup-scored gnus-newsgroup-processable] 26 (#$ . 171457)]) #@71 Update ARTICLE in the summary buffer. (fn ARTICLE &optional IHEADER) (defalias 'gnus-summary-update-article #[513 "q\210\306 \"\3078\262\211\310H\306 \"\311!\312H\311\205& \313\232?\205& \314\211\205\204 G\315U?\205\204 \n\203t \315\316 \206B \313!\314 \317\320 #\203^ \321 \315\224\315\225\211#\fB\202G \f\237, \n\f\233\203n \fA\202b \f@)\202\204 \316 !\317\322 \"\205\203 \323\324 \")*\206\211 \325!\326 @\205\277 \204\245 \314\240\210\203\245 \327\"\210\330\"\203\272 \211\331!\240\262\202\277 \240\210\314)\207" [gnus-summary-buffer gnus-newsgroup-data n references ids beg gnus-data-find-in 3 4 gnus-id-to-thread 5 "" nil 0 mail-header-remove-comments string-match "<[^<]+[^< ]" substring "\\(<[^<]+>\\)[ ]*\\'" match-string 1 "none" t delq gnus-summary-insert-subject gnus-id-to-article inhibit-read-only] 14 (#$ . 173921)]) #@117 Rebuild the thread containing ID. If LINE, insert the rebuilt thread starting on line LINE. (fn ID &optional LINE) (defalias 'gnus-rebuild-thread #[513 "\304\305\211\211\211 \204 \306!@C\262\202 \307!\262\310 \262\212\311\312\305\304#\205? \313`\314\"\211\2054 \315!\266\313`\316\"\206? \317 )\262@;\203\212 @\305\211A\262\203u \306\320@@\211\321H\262!!\211\262>\204n \211B\262A\262\202P G\322U\203\201 @\202\206 \323!B\262\266\305\203\230 eb\210Sy\210\305\211 \203\252 \324\325C!!\210\202\256 \326!\210 \237\262\n\262*\327?\205\276 `Z#\210\211\n\244\330 \262)\207" [inhibit-read-only gnus-show-threads gnus-newsgroup-threads gnus-newsgroup-data t nil gnus-id-to-thread gnus-remove-thread point-at-bol re-search-backward "[ \n]" get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-root-id 4 1 gnus-sort-threads gnus-summary-prepare-threads gnus-cut-threads gnus-summary-prepare-unthreaded gnus-data-enter-list gnus-data-compute-positions] 15 (#$ . 174803)]) #@52 Return the header for article NUMBER. (fn NUMBER) (defalias 'gnus-number-to-header #[257 "\211\203 @\301HU\204 \211A\266\202\202 \211\205 \211@\207" [gnus-newsgroup-headers 0] 5 (#$ . 175871)]) #@97 Return the headers of the GENERATIONth parent of HEADERS. (fn IN-HEADERS &optional GENERATION) (defalias 'gnus-parent-headers #[513 "\211\204 \304\262\305\306\203\224 \307U\204\224 \310H\211\262\203\224 \211\205\213 \211\306\211\205\200 G\307U?\205\200 \203p \307\311 \206> \312!\306\313\314 #\203Z \315 \307\224\307\225\211#\nB\202C \n\237,\n\233\203j \nA\202^ \n@)\202\200 \311 !\313\316 \"\205 \317\304 \")*\211\262\205\213 \320!@\262S\262\202\n =?\205\234 \207" [n references ids beg 1 t nil 0 5 mail-header-remove-comments "" string-match "<[^<]+[^< ]" substring "\\(<[^<]+>\\)[ ]*\\'" match-string gnus-id-to-thread] 11 (#$ . 176080)]) #@52 Return the (sub-)thread where ID appears. (fn ID) (defalias 'gnus-id-to-thread #[257 "\301!\205\n \302\"\207" [gnus-newsgroup-dependencies hash-table-p gethash] 4 (#$ . 176763)]) #@43 Return the article number of ID. (fn ID) (defalias 'gnus-id-to-article #[257 "\300!\211\205 \211@\205 \211@\301H\207" [gnus-id-to-thread 0] 4 (#$ . 176952)]) #@44 Return the article headers of ID. (fn ID) (defalias 'gnus-id-to-header #[257 "\300!@\207" [gnus-id-to-thread] 3 (#$ . 177120)]) #@59 Say whether ARTICLE is a root(ish) article. (fn ARTICLE) (defalias 'gnus-article-displayed-root-p #[257 "\306=\203 \307`\310\"\203 \311\202 \312 \"\3138\262\312 \"\3148\262\211\315H\262\316\2041 \316\2024\311U\203; \317\2024\204C \317\2024\316\211\205\242 G\311U?\205\242 \n\203\222 \311\320 \206` \321!\316 \322\323 #\203| \324 \311\224\311\225\211#\fB\202e \f\237, \n\f\233\203\214 \fA\202\200 \f@)\202\242 \320 !\322\325 \"\205\241 \326\327 \")*\204\252 \317\2024\327U\2054\330\316\211\205 G\311U?\205\n\203 \311\320 \206\316 \321!\316 \322\323 #\203\352 \324 \311\224\311\225\211#\fB\202\323 \f\237, \n\f\233\203\372 \fA\202\356 \f@)\202\320 !\322\325 \"\205\326\327 \")*!\211\262?\2054\306=\203*\307`\310\"\203*\311\2023\312 \"\3138\262?\207" [gnus-summary-make-false-root gnus-newsgroup-data n references ids beg dummy get-text-property gnus-intangible 0 gnus-data-find-in 4 3 5 nil t mail-header-remove-comments "" string-match "<[^<]+[^< ]" substring "\\(<[^<]+>\\)[ ]*\\'" match-string 1 gnus-id-to-article] 11 (#$ . 177256)]) #@68 Return the id of the root of the thread where ID appears. (fn ID) (defalias 'gnus-root-id #[257 "\304\211\203z \305!@\211\262\203z \262\211\306H\304\211\205t G\307U?\205t \203d \307\310 \2062 \311!\304\312\313 #\203N \314 \307\224\307\225\211#\nB\2027 \n\237,\n\233\203^ \nA\202R \n@)\202t \310 !\312\315 \"\205s \316\317 \")*\262\202 \207" [n references ids beg nil gnus-id-to-thread 5 0 mail-header-remove-comments "" string-match "<[^<]+[^< ]" substring "\\(<[^<]+>\\)[ ]*\\'" match-string 1] 9 (#$ . 178364)]) #@53 Return the list of articles in THREAD. (fn THREAD) (defalias 'gnus-articles-in-thread #[257 "\211@\300H\301\302A\"B\207" [0 mapcan gnus-articles-in-thread] 5 (#$ . 178911)]) #@69 Remove the thread that has ID in it. (fn ID &optional DONT-REMOVE) (defalias 'gnus-remove-thread #[513 "\302\211\211\303!\262\304\305!!\262\302\203U @\262\211@;\203@ \211A\262\211\203N \211@@\235\2039 @\262\302\262\302\262\211A\262\202# \211@@=\203N \211\262\302\262A\262\202 \203e \204j \306\"\202j \305!\262\205\262 \204\262 @;\203\256 \307=\203\232 \310A@@\211\311H\262!\210\312y\210\313 \314y\210`|\210\315 \210A\262\203\262 \316@!\210A\262\202\236 \316!\210\266\202\207" [gnus-newsgroup-threads gnus-summary-make-false-root nil gnus-root-id flatten-tree gnus-id-to-thread delq dummy gnus-summary-goto-article 0 -1 point-at-bol 1 gnus-data-compute-positions gnus-remove-thread-1] 12 (#$ . 179093)]) #@52 Remove the thread THREAD recursively. (fn THREAD) (defalias 'gnus-remove-thread-1 #[257 "\211A\262\242\211\301H\262\302\303!\262\203! \304\211A\262\242!\210\202 \305\"\211\262\205D \3068b\210\307 \210\310\311 \312 T\311 \313y\210`|\210Z\"\207" [gnus-newsgroup-data 0 nil reverse gnus-remove-thread-1 gnus-data-find-in 2 gnus-summary-show-thread gnus-data-remove point-at-bol point-at-eol 1] 9 (#$ . 179846)]) #@21 (fn THREADS FUNC) (defalias 'gnus-sort-threads-recursive #[514 "\301=\203\n \211\202 \302!\303\304\305\306\307\310\311!\312\"\313\314%\"\"\207" [gnus-subthread-sort-functions gnus-thread-sort-functions gnus-make-sort-function sort mapcar make-byte-code 257 "\211@A\205\f \301A\300\"B\207" vconcat vector [gnus-sort-subthreads-recursive] 5 "\n\n(fn THREAD)"] 11 (#$ . 180276)]) #@21 (fn THREADS FUNC) (defalias 'gnus-sort-subthreads-recursive #[514 "\300\301\302\303\304\305\306!\307\"\310\311%\"\"\207" [sort mapcar make-byte-code 257 "\211@A\205\f \301A\300\"B\207" vconcat vector [gnus-sort-subthreads-recursive] 5 "\n\n(fn THREAD)"] 10 (#$ . 180670)]) #@21 (fn THREADS FUNC) (defalias 'gnus-sort-threads-loop #[514 "\300B\211BC\300\211\203G @A\262\2030 @\262@A\241\210\211A\203 \211ABB\262\202 @@\262\211\301A\"\241\210\211A\262\210\202 A\207" [nil sort] 10 (#$ . 180957)]) #@29 Sort THREADS. (fn THREADS) (defalias 'gnus-sort-threads #[257 "\204 \207\302\303\304\"\210\3051! \306]\307!\310\")\266\2020\202- \210\302\311\312\"\210\313\307!\"\302\303\314\"\210\207" [gnus-thread-sort-functions max-lisp-eval-depth gnus-message 8 "Sorting threads..." (error) 5000 gnus-make-sort-function gnus-sort-threads-recursive 9 "Sorting threads with loop..." gnus-sort-threads-loop "Sorting threads...done"] 6 (#$ . 181206)]) #@31 Sort ARTICLES. (fn ARTICLES) (defalias 'gnus-sort-articles #[257 "\205 \302\303\304\"\210\305\306!\"\211\302\303\307\"\210\207" [gnus-article-sort-functions gnus-newsgroup-headers gnus-message 7 "Sorting articles..." sort gnus-make-sort-function "Sorting articles...done"] 5 (#$ . 181658)]) #@177 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. (fn THREAD) (defalias 'gnus-thread-header '(macro . #[257 "\2119\204\n \301\302\303\"\210\304\300!\203 \203 \305D\207\306\307\310!\311F\207" [lexical-binding signal wrong-type-argument (symbolp thread) boundp #[257 "\211:\203 \211@;\203 A@@\207" [] 2] byte-code "\211:\203 \211@;\203 A@@\207" vector 2] 5 (#$ . 181962)])) #@46 Sort articles by article number. (fn H1 H2) (defalias 'gnus-article-sort-by-number #[514 "\300H\300HW\207" [0] 5 (#$ . 182464)]) (put 'gnus-article-sort-by-number 'byte-optimizer 'byte-compile-inline-expand) #@50 Sort threads by root article number. (fn H1 H2) (defalias 'gnus-thread-sort-by-number #[514 "\211:\203 \211@;\203 A@@\211:\203 \211@;\203 A@@\300H\300HW\207" [0] 7 (#$ . 182681)]) #@37 Sort articles randomly. (fn H1 H2) (defalias 'gnus-article-sort-by-random #[514 "\300\301!\302U\207" [random 2 0] 4 (#$ . 182876)]) (byte-code "\300\301\302\303#\210\304\305\301\306#\207" [put gnus-article-sort-by-random byte-optimizer byte-compile-inline-expand defalias gnus-thread-sort-by-random "Sort threads randomly."] 4) #@52 Sort articles by article Lines header. (fn H1 H2) (defalias 'gnus-article-sort-by-lines #[514 "\300H\300HW\207" [7] 5 (#$ . 183211)]) (put 'gnus-article-sort-by-lines 'byte-optimizer 'byte-compile-inline-expand) #@56 Sort threads by root article Lines header. (fn H1 H2) (defalias 'gnus-thread-sort-by-lines #[514 "\211:\203 \211@;\203 A@@\211:\203 \211@;\203 A@@\300H\300HW\207" [7] 7 (#$ . 183432)]) #@44 Sort articles by octet length. (fn H1 H2) (defalias 'gnus-article-sort-by-chars #[514 "\300H\300HW\207" [6] 5 (#$ . 183632)]) (put 'gnus-article-sort-by-chars 'byte-optimizer 'byte-compile-inline-expand) #@56 Sort threads by root article octet length. (fn H1 H2) (defalias 'gnus-thread-sort-by-chars #[514 "\211:\203 \211@;\203 A@@\211:\203 \211@;\203 A@@\300H\300HW\207" [6] 7 (#$ . 183845)]) #@44 Sort articles by octet length. (fn H1 H2) (defalias 'gnus-article-sort-by-marks #[514 "\306H>\203\f \202h \306H\n>\203 \202h \306H\f>\203$ \202h \306H>\2032 \202h \306H >\203@ \n\202h \306H >\203N \f\202h \306H >\203\\ \202h \306H\236A\206h \306H>\203t \202\320 \306H\n>\203\200 \202\320 \306H\f>\203\214 \202\320 \306H>\203\232 \202\320 \306H >\203\250 \n\202\320 \306H >\203\266 \f\202\320 \306H >\203\304 \202\320 \306H\236A\206\320 W\207" [gnus-newsgroup-unsendable gnus-unsendable-mark gnus-newsgroup-downloadable gnus-downloadable-mark gnus-newsgroup-unreads gnus-unread-mark 0 gnus-newsgroup-marked gnus-ticked-mark gnus-newsgroup-spam-marked gnus-spam-mark gnus-newsgroup-dormant gnus-dormant-mark gnus-newsgroup-expirable gnus-expirable-mark gnus-newsgroup-reads gnus-ancient-mark] 5 (#$ . 184045)]) (put 'gnus-article-sort-by-marks 'byte-optimizer 'byte-compile-inline-expand) #@56 Sort threads by root article octet length. (fn H1 H2) (defalias 'gnus-thread-sort-by-marks #[514 "\211:\203 \211@;\203 A@@\211:\203 \211@;\203 A@@\306H>\203* \202\206 \306H\n>\2036 \202\206 \306H\f>\203B \202\206 \306H>\203P \202\206 \306H >\203^ \n\202\206 \306H >\203l \f\202\206 \306H >\203z \202\206 \306H\236A\206\206 \306H>\203\222 \202\356 \306H\n>\203\236 \202\356 \306H\f>\203\252 \202\356 \306H>\203\270 \202\356 \306H >\203\306 \n\202\356 \306H >\203\324 \f\202\356 \306H >\203\342 \202\356 \306H\236A\206\356 W\207" [gnus-newsgroup-unsendable gnus-unsendable-mark gnus-newsgroup-downloadable gnus-downloadable-mark gnus-newsgroup-unreads gnus-unread-mark 0 gnus-newsgroup-marked gnus-ticked-mark gnus-newsgroup-spam-marked gnus-spam-mark gnus-newsgroup-dormant gnus-dormant-mark gnus-newsgroup-expirable gnus-expirable-mark gnus-newsgroup-reads gnus-ancient-mark] 7 (#$ . 184994)]) #@43 Sort articles by root author. (fn H1 H2) (defalias 'gnus-article-sort-by-author #[514 "\301\302H!\211@\206 \211A@\206 \303\262\302H!\211@\206% \211A@\206% \303\262\"\207" [gnus-extract-address-components gnus-string< 2 ""] 7 (#$ . 185955)]) (put 'gnus-article-sort-by-author 'byte-optimizer 'byte-compile-inline-expand) #@42 Sort threads by root author. (fn H1 H2) (defalias 'gnus-thread-sort-by-author #[514 "\211:\203 \211@;\203 A@@\211:\203 \211@;\203 A@@\301\302H!\211@\2060 \211A@\2060 \303\262\302H!\211@\206C \211A@\206C \303\262\"\207" [gnus-extract-address-components gnus-string< 2 ""] 9 (#$ . 186290)]) #@41 Sort articles by recipient. (fn H1 H2) (defalias 'gnus-article-sort-by-recipient #[514 "\301\302\303H\236A\206\f \304!\211@\206 \211A@\262\302\303H\236A\206\" \304!\211@\206+ \211A@\262\"\207" [gnus-extract-address-components gnus-string< To 9 ""] 8 (#$ . 186598)]) (put 'gnus-article-sort-by-recipient 'byte-optimizer 'byte-compile-inline-expand) #@45 Sort threads by root recipient. (fn H1 H2) (defalias 'gnus-thread-sort-by-recipient #[514 "\211:\203 \211@;\203 A@@\211:\203 \211@;\203 A@@\301\302\303H\236A\206* \304!\211@\2063 \211A@\262\302\303H\236A\206@ \304!\211@\206I \211A@\262\"\207" [gnus-extract-address-components gnus-string< To 9 ""] 10 (#$ . 186960)]) #@44 Sort articles by root subject. (fn H1 H2) (defalias 'gnus-article-sort-by-subject #[514 "\301\302H\303\"\203 \304\305\225\"\262\227\302H\303\"\203$ \304\305\225\"\262\227\"\207" [message-subject-re-regexp gnus-string< 1 string-match substring 0] 8 (#$ . 187296)]) (put 'gnus-article-sort-by-subject 'byte-optimizer 'byte-compile-inline-expand) #@43 Sort threads by root subject. (fn H1 H2) (defalias 'gnus-thread-sort-by-subject #[514 "\211:\203 \211@;\203 A@@\211:\203 \211@;\203 A@@\301\302H\303\"\2030 \304\305\225\"\262\227\302H\303\"\203B \304\305\225\"\262\227\"\207" [message-subject-re-regexp gnus-string< 1 string-match substring 0] 10 (#$ . 187658)]) #@49 Sort articles by root article date. (fn H1 H2) (defalias 'gnus-article-sort-by-date #[514 "\300\301H\211\302\232\203 \303\202% \304\305\306#\206% \307!\310\305\311\306%\210\211\262\262\301H\211\302\232\2034 \303\202K \304\305\306#\206K \307!\310\305\311\306%\210\211\262\262\"\207" [time-less-p 3 "" (0 0) get-text-property 0 gnus-time safe-date-to-time put-text-property 1] 12 (#$ . 187993)]) (put 'gnus-article-sort-by-date 'byte-optimizer 'byte-compile-inline-expand) #@48 Sort threads by root article date. (fn H1 H2) (defalias 'gnus-thread-sort-by-date #[514 "\211:\203 \211@;\203 A@@\211:\203 \211@;\203 A@@\300\301H\211\302\232\203, \303\202C \304\305\306#\206C \307!\310\305\311\306%\210\211\262\262\301H\211\302\232\203R \303\202i \304\305\306#\206i \307!\310\305\311\306%\210\211\262\262\"\207" [time-less-p 3 "" (0 0) get-text-property 0 gnus-time safe-date-to-time put-text-property 1] 14 (#$ . 188488)]) #@111 Sort articles by root article score. Unscored articles will be counted as having a score of zero. (fn H1 H2) (defalias 'gnus-article-sort-by-score #[514 "\302H\236A\206 \206 \302\302H\236A\206 \206 \302V\207" [gnus-newsgroup-scored gnus-summary-default-score 0] 5 (#$ . 188959)]) (put 'gnus-article-sort-by-score 'byte-optimizer 'byte-compile-inline-expand) #@49 Sort threads by root article score. (fn H1 H2) (defalias 'gnus-thread-sort-by-score #[514 "\211:\203 \211@;\203 A@@\211:\203 \211@;\203 A@@\302H\236A\206, \206, \302\302H\236A\206: \206: \302V\207" [gnus-newsgroup-scored gnus-summary-default-score 0] 7 (#$ . 189334)]) #@127 Sort threads by the sum of all scores in the thread. Unscored articles will be counted as having a score of zero. (fn H1 H2) (defalias 'gnus-thread-sort-by-total-score #[514 "\300!\300!V\207" [gnus-thread-total-score] 5 (#$ . 189623)]) #@15 (fn THREAD) (defalias 'gnus-thread-total-score #[257 "\211\204 \301\207\211:\203 \211@;\203 \302\301\303\304A\"#\207\304!\207\304C!\207" [gnus-thread-score-function 0 apply mapcar gnus-thread-total-score-1] 7 (#$ . 189868)]) #@38 Sort articles by number. (fn H1 H2) (defalias 'gnus-article-sort-by-most-recent-number #[514 "\300H\300HW\207" [0] 7 (#$ . 190108)]) #@99 Sort threads such that the thread with the most recently arrived article comes first. (fn H1 H2) (defalias 'gnus-thread-sort-by-most-recent-number #[514 "\300!\300!V\207" [gnus-thread-highest-number] 5 (#$ . 190252)]) #@59 Return the highest article number in THREAD. (fn THREAD) (defalias 'gnus-thread-highest-number #[257 "\300\301\302\303\304!\"\"\207" [apply max mapcar #[257 "\211\300H\207" [0] 3 "\n\n(fn HEADER)"] flatten-tree] 7 (#$ . 190479)]) #@38 Sort articles by number. (fn H1 H2) (defalias 'gnus-article-sort-by-most-recent-date #[514 "\300\301H\211\302\232\203 \303\202' \304\305\306#\206' \307!\310\305\311\306%\210\211\262\262\301H\211\302\232\2036 \303\202M \304\305\306#\206M \307!\310\305\311\306%\210\211\262\262\"\207" [time-less-p 3 "" (0 0) get-text-property 0 gnus-time safe-date-to-time put-text-property 1] 14 (#$ . 190717)]) #@97 Sort threads such that the thread with the most recently dated article comes first. (fn H1 H2) (defalias 'gnus-thread-sort-by-most-recent-date #[514 "\300!\300!V\207" [gnus-thread-latest-date] 5 (#$ . 191138)]) #@57 Return the highest article date in THREAD. (fn THREAD) (defalias 'gnus-thread-latest-date #[257 "\300\301\302\303\304!\"\"\207" [apply max mapcar #[257 "\300\301H\211\302\232\203 \303\202% \304\305\306#\206% \307!\310\305\311\306%\210\211\262\262!\207" [float-time 3 "" (0 0) get-text-property 0 gnus-time safe-date-to-time put-text-property 1] 10 "\n\n(fn HEADER)"] flatten-tree] 7 (#$ . 191358)]) #@13 (fn ROOT) (defalias 'gnus-thread-total-score-1 #[257 "\211@\262\303\304\305\306\307\310H!A\"\311H\311V\205( \311H \236A\206' \n\206' \311C\"\2062 \nC\2062 \312\"\207" [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)] 9 (#$ . 191774)]) (defvar gnus-tmp-prev-subject nil) (defvar gnus-tmp-false-parent nil) (defvar gnus-tmp-root-expunged nil) (defvar gnus-tmp-dummy-line nil) #@62 Return the extra header of TYPE. (fn TYPE &optional HEADER) (defalias 'gnus-extra-header #[513 "\206 \301H\236A\206 \302\207" [gnus-tmp-header 9 ""] 5 (#$ . 192260)]) (defvar gnus-tmp-thread-tree-header-string "") (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\307\310\317\312\313& \210\300\320\302\303\321DD\322\306\307\310\323\312\313& \210\300\324\302\303\325DD\326\306\307\310\327\312\313& \210\300\330\302\303\331DD\332\306\307\310\327\312\313& \210\300\333\302\303\334DD\335\306\307\310\327\312\313& \210\300\336\302\303\337DD\340\306\307\310\327\312\313& \210\300\341\302\303\342DD\343\306\307\312\313\310\344& \207" [custom-declare-variable gnus-sum-thread-tree-root funcall function #[0 "\300\207" [#1="> "] 1 #1#] "With %B spec, used for the root of a thread.\nIf nil, use subject instead." :version "22.1" :type (radio (const :format "%v " nil) string) :group gnus-thread gnus-sum-thread-tree-false-root #[0 "\300\207" [#2="> "] 1 #2#] "With %B spec, used for a false root of a thread.\nIf nil, use subject instead." (radio (const :format "%v " nil) string) gnus-sum-thread-tree-single-indent #[0 "\300\207" [#3=""] 1 #3#] "With %B spec, used for a thread with just one message.\nIf nil, use subject instead." (radio (const :format "%v " nil) string) gnus-sum-thread-tree-vertical #[0 "\300\207" [#4="| "] 1 #4#] "With %B spec, used for drawing a vertical line." string gnus-sum-thread-tree-indent #[0 "\300\207" [#5=" "] 1 #5#] "With %B spec, used for indenting." gnus-sum-thread-tree-leaf-with-other #[0 "\300\207" [#6="+-> "] 1 #6#] "With %B spec, used for a leaf with brothers." gnus-sum-thread-tree-single-leaf #[0 "\300\207" [#7="\\-> "] 1 #7#] "With %B spec, used for a leaf without brothers." gnus-summary-display-while-building #[0 "\300\207" [nil] 1] "If non-nil, show and update the summary buffer as it's being built.\nIf the value is t, update the buffer after every line is inserted. If\nthe value is an integer (N), update the display every N lines." (choice (const :tag "off" nil) number (const :tag "frequently" t))] 10) #@180 Prepare summary buffer from THREADS and indentation LEVEL. THREADS is either a list of `(PARENT [(CHILD1 [(GRANDCHILD ...]...) ...])' or a straight list of headers. (fn THREADS) (defalias 'gnus-summary-prepare-threads #[257 "\306\307\310\"\210\211\311 \210\312 \206 \312\313\314\315\"\n\211\250\316\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211 @ A B C D E\n F G\f H I J K L M N\316O\317P\320\"@!\203\211 \321\"!\210\202\357\n\203\222 \322\323 !\210!\204\246 \204\246 M\204\246 \203\357N\312U\203\203\273 @@\312U\203Q\204M\204\312 \203M\203\357 R\203\330 \312\202\331 \324NM@C\262 @@LMAM\202<\203<@C\262 @@LA\262\202<!\203!\262 @@L\202<@\262@NA@\262AA@\262 A\262@@L\316\211QR\316\262L;\203\246S\325\267\202\240M @AA\244M\326\327 @AA\"\244\262@@ @A@D AB\262 \330N\331Q\202\205\326\332 @AA\"\244\262\330N\202\205LTLO\202\205\330N\202\205L\312H\262L\324H\262U\203\303\333U\"\262\202 V\204\340\211\334W\"\203\333\335\312\225\"\266\202\202 \262\202 V\336=\203\357\337!\262\202 V\247\203 \340\334W\"\203\335\312\225\"\262V\"\262\262X\2048N\312U\2048O\2038O\230\2048 @C\244\262\331\262\316L\202\275Y>\204u\326\341 @A\"\244\262@A\203^\342M @A\"\202`MM\331\262\316LN\312U\203\275\331R\202\275Z\203\275[\236A\206\205 ZW\203\275\\>\204\275]>\204\275\343^\"^_\203\263\344` \"`\202\275aBbBbL\203\205T\203\363TL\324H\316\211\204\210U\203\342\333U\"\262\202*V\204\377\211\334W\"\203\372\335\312\225\"\266\202\202*\262\202*V\336=\203\337!\262\202*V\247\203*\340\334W\"\203%\335\312\225\"\262V\"\262U\203:\333U\"\262\202\202V\204W\211\334W\"\203R\335\312\225\"\266\202\202\202\262\202\202V\336=\203f\337!\262\202\202V\247\203\202\340\334W\"\203}\335\312\225\"\262V\"\262\232\266\203\202\344U\203\231\333U\"\262\202\341V\204\266\211\334W\"\203\261\335\312\225\"\266\202\202\341\262\202\341V\336=\203\305\337!\262\202\341V\247\203\341\340\334W\"\203\334\335\312\225\"\262V\"\262\232\266\203\203\363\345TL\312H\"\210\316Tc>\203 d\202Ye>\203 f\202Y^>\203g\202Yh>\203'i\202Yj>\2034k\202Yl>\203Am\202Y`>\203Nn\202Yb\236A\206YoKK`TLN\257pBpX\203\203O\203\203O\230\204\203\202\262N\312U\203\260S\346=\203\253>\203\253O\203\253O\230\203\253q\202\262\202\262qHS\347=\203\321N\324U\203\321>\203\321\350\351\202\325\352\353NrGY\203\351\354\355rG_N]!\210rNHFL\307HE[\236A\206 \206\312D \203\356D Z!sX\203\357\202(D W\203&t\202(uCv>\2037w\202zx>\203Dy\202zz>\203Q{\202z|>\203^}\202z~>\203k\202z\200>\203x\201\202z\202I\203>\203\211\204\202\225\205\203\223\206\202\225\202JL\355HB\334\360B\"\203\306\312\224\262\334\361B\"\203\274\335B\324\312\225S#\206\335\335B\312#\202\335\334\362B\"\203\333\335B\312\224T\312\225S#\202\335BA\207\204\350\317\2022N\312U\203@A\203 \210\2062\2022M\203\211\2062\2022\212\2062\2022\363\364\326\365\366!A\"\" A@\203/\213\2021\214PPA\317\230\203?BAE\247\204H\330EE\330U\203S\367\202W\370E!E@\371`\372\215!\210`\373 $\210 \203\201\330y\210\374 \210>\203~\375\376!\210\324y\210OA@\203\234\312N]\377! AEB\262A@\203\247\324\202\250\312B\262NTN?\205\273@A\262\"\n\203\344 \203\336 S\262 \312U\203\344\201\216 \312!\210\n\262 \202\344\201\216 \312!\210!\204\222 \312N\202\222 .\266!\306\307\201\217 \"\207" [gnus-newsgroup-threads gnus-summary-default-score gnus-summary-display-while-building 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 switch-to-buffer buffer-name 1 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (adopt 338 empty 386 dummy 405)) mapcar #[257 "\211@\300H\207" [0] 3 "\n\n(fn H)"] -1 t #[257 "\211@\300H\207" [0] 3 "\n\n(fn H)"] gnus-map-function string-match substring fuzzy gnus-simplify-subject-fuzzy truncate-string-to-width #[257 "\211@\300H\207" [0] 3 "\n\n(fn H)"] append delq gnus-add-to-sorted-list gnus-summary-insert-dummy-line empty adopt 60 62 91 93 gnus-make-thread-indent-array 2 abs 32 "<[^>]+> *$" "^\".+\"" "(.+)" apply concat #[257 "\211\302U\203 \207 \207" [gnus-sum-thread-tree-vertical gnus-sum-thread-tree-indent 1] 3 "\n\n(fn ITEM)"] reverse "?" number-to-string put-text-property eval gnus-number gnus-summary-highlight-line gnus-run-hooks gnus-summary-update-hook copy-sequence gnus-tmp-thread gnus-tmp-name gnus-tmp-from gnus-tmp-score-char gnus-tmp-score gnus-tmp-lines gnus-tmp-indentation gnus-tmp-dummy gnus-tmp-subject-or-nil gnus-tmp-replied gnus-tmp-downloaded gnus-tmp-unread gnus-tmp-header gnus-tmp-new-adopts gnus-tmp-level gnus-tmp-prev-subject gnus-tmp-thread-tree-header-string gnus-tmp-false-parent gnus-tmp-root-expunged gnus-summary-make-false-root gnus-tmp-dummy-line gnus-simplify-subject-functions gnus-summary-gather-subject-limit message-subject-re-regexp gnus-thread-ignore-subject gnus-newsgroup-limit gnus-summary-mark-below gnus-newsgroup-scored gnus-newsgroup-sparse gnus-newsgroup-ancient gnus-newsgroup-unreads gnus-newsgroup-auto-expire gnus-newsgroup-expirable gnus-low-score-mark gnus-newsgroup-reads gnus-newsgroup-unsendable gnus-unsendable-mark gnus-newsgroup-downloadable gnus-downloadable-mark gnus-unread-mark gnus-newsgroup-marked gnus-ticked-mark gnus-newsgroup-spam-marked gnus-spam-mark gnus-newsgroup-dormant gnus-dormant-mark gnus-expirable-mark gnus-ancient-mark gnus-newsgroup-data gnus-summary-same-subject gnus-thread-indent-array gnus-summary-zcore-fuzz gnus-score-below-mark gnus-score-over-mark gnus-newsgroup-processable gnus-process-mark gnus-newsgroup-cached gnus-cached-mark gnus-newsgroup-replied gnus-replied-mark gnus-newsgroup-forwarded gnus-forwarded-mark gnus-newsgroup-saved gnus-saved-mark gnus-newsgroup-unseen gnus-unseen-mark gnus-no-mark gnus-newsgroup-undownloaded gnus-undownloaded-mark gnus-newsgroup-agentized gnus-downloaded-mark gnus-show-threads gnus-sum-thread-tree-root gnus-sum-thread-tree-false-root gnus-sum-thread-tree-single-indent gnus-sum-thread-tree-leaf-with-other gnus-sum-thread-tree-single-leaf gnus-summary-line-format-spec sit-for "Generating summary...done"] 45 (#$ . 194379)]) #@71 Generate an unthreaded summary buffer based on HEADERS. (fn HEADERS) (defalias 'gnus-summary-prepare-unthreaded #[257 "\306\211\211\307 \210\205\353 \211A\262\242\211\262\211\310H\262\211\262>\203 \203W \n\236A\2060 \2060 \310 W\203W \f>\204W \311 \"\f\203N B \202W BB>\203c \202\264 >\203o \202\264 >\203z \202\264 >\203\206 \202\264 >\203\222 \202\264 >\203\236 \202\264 >\203\252 \202\264 \236A\206\264 \262`T\310\257 B \312\310\211 > > >\n\313H\306 \n\236A\f >& \210\202 \207" [gnus-newsgroup-limit gnus-summary-mark-below gnus-newsgroup-scored gnus-summary-default-score gnus-newsgroup-ancient gnus-newsgroup-unreads nil beginning-of-line 0 delq gnus-summary-insert-line 1 gnus-newsgroup-auto-expire gnus-newsgroup-expirable gnus-low-score-mark gnus-newsgroup-reads gnus-newsgroup-unsendable gnus-unsendable-mark gnus-newsgroup-downloadable gnus-downloadable-mark gnus-unread-mark gnus-newsgroup-marked gnus-ticked-mark gnus-newsgroup-spam-marked gnus-spam-mark gnus-newsgroup-dormant gnus-dormant-mark gnus-expirable-mark gnus-ancient-mark gnus-newsgroup-data gnus-newsgroup-undownloaded gnus-newsgroup-replied gnus-newsgroup-processable] 17 (#$ . 201120)]) #@51 Get list identifier regexp for GROUP. (fn GROUP) (defalias 'gnus-group-get-list-identifiers #[257 "\301!\206 :\203 \302\303\304#\207\207" [gnus-list-identifiers gnus-parameter-list-identifier mapconcat identity " *\\|"] 5 (#$ . 202378)]) #@88 Remove list identifiers in `gnus-list-identifiers' from articles in the current group. (defalias 'gnus-summary-remove-list-identifiers #[0 "\302!\303\211\205b \304\305Q\262 \211\205` \211@\211\306H\262\303\262\307\"\2039 \310\311\306\224#\310\311\225\"P\262\312\262\202 \203Y \307\313\"\203R \310\311\306\224#\310\306\225\"P\262\211\211\306I\266A\266\202\202 \262\207" [gnus-newsgroup-name gnus-newsgroup-headers gnus-group-get-list-identifiers nil "^\\(?:R[Ee]: +\\)*\\(" " *\\)" 1 string-match substring 0 t "^\\(\\(?:R[Ee]: +\\)+\\)R[Ee]: +"] 9 (#$ . 202629)]) #@82 Fetch headers of ARTICLES. (fn ARTICLES &optional LIMIT FORCE-NEW DEPENDENCIES) (defalias 'gnus-fetch-headers #[1025 "\303\304\305#\210\306\206! \307=\204 \247\203 G\310V\205! #\211\311=\2033 \312\313%\2027 \314\"\303\304\315#\210\207" [gnus-newsgroup-name gnus-fetch-old-headers gnus-headers-retrieved-by gnus-message 7 "Fetching headers for %s..." gnus-retrieve-headers some 1 nov gnus-get-newsgroup-headers-xover t gnus-get-newsgroup-headers "Fetching headers for %s...done"] 10 (#$ . 203222)]) #@195 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. (fn GROUP &optional READ-ALL SELECT-ARTICLES) (defalias 'gnus-select-newsgroup #[769 "\306\"\307!@\310=\203 \311\202 \211A@\312\211\211\313\314\302!\210\307 !\211!\204, \315\316!\210\2037 @\311=\203l \317!\204l \320\321!\203b p\211\211\205V \322\323 !\211!\205V )\203a \324!\210\325 \210\210\315\326 \327 !#\210\330\311\312$\204\245 \320\321!\203\233 p\211\211\205\217 \322\323 !\211!\205\217 )\203\232 \324!\210\325 \210\210\315\331 \327 !#\210\f\203\304 \306 \"\203\304 \332\306\n \"#\210\333\334\"@8\312A\335!B\336\337\"\242\206\335 \340\340U\204\346 \341\202)\211\342=\203\360 \341\202)\343!\203\377 \344\345\346\"!\202)\211\247\203(\347\306\n \"AZ\211\340V\203\211\202\350\262\306 \"AB!\262\312\202)\312C\210\351 \210\352!\203:D\262\353\211BE\"F\"B\312G\354B\311#\210\203Y\355!\210\211\262\203j\356B\"A\202r\357\"\262\204z\360\202`\340=\203\204\312\202`G H\361\362H\206\220\363\364\365$)IJ\211\205\250\322\323 !\211!\205\250 )\203\262\366 \210\202\270\367\3708\"\210\371!K\211\203\304\211DL\203\314\372 \210\373!M\345\374K\"\262N\375B\"B\376 \210\377\356\"!\210O\203P\201V =\203O\201W =\203 \201X \210\202\201Y \210\f\203\201Z \210\201[ \210\201\\ !\205.\201] !?QR\203>S\201^ \232\204C\201_ \210K\203ZK@\340HT\201` K!@\340HUK\206`\311)\207" [gnus-newsrc-hashtb gnus-summary-ignore-duplicates gnus-current-select-method buffer gnus-agent gnus-active-hashtb gethash gnus-find-method-for-group nnvirtual t nil gnus-check-server make-local-variable error "Couldn't open server" gnus-activate-group derived-mode-p gnus-summary-mode buffer-live-p get-buffer kill-buffer gnus-prune-buffers "Couldn't activate group %s: %s" gnus-status-message gnus-request-group "Couldn't request group %s: %s" gnus-agent-possibly-alter-active gnus-agent-find-parameter agent-enable-undownloaded-faces gnus-list-of-unread-articles gnus-group-find-parameter display 0 gnus-not-ignore all arrayp gnus-summary-display-make-predicate mapcar identity gnus-uncompress-range 1 gnus-summary-setup-default-charset gnus-virtual-group-p gnus-sorted-ndifference gnus-update-read-articles gnus-adjust-marked-articles gnus-sorted-difference gnus-articles-to-read quit make-hash-table :size 300 :test equal gnus-set-global-variables set-default gnus-newsgroup-name gnus-fetch-headers gnus-dup-suppress-articles copy-sequence mail-header-number gnus-sorted-nintersection gnus-compute-unseen-list gnus-update-missing-marks gnus-summary-use-undownloaded-faces gnus-newsgroup-unselected gnus-newsgroup-unreads gnus-newsgroup-display gnus-newsgroup-cached gnus-newsgroup-marked gnus-newsgroup-dormant gnus-newsgroup-processable size gnus-newsgroup-dependencies gnus-group-buffer gnus-newsgroup-headers gnus-suppress-duplicates gnus-newsgroup-limit gnus-newsgroup-articles gnus-fetch-old-headers gnus-headers-retrieved-by gnus-newsgroup-auto-expire gnus-single-article-buffer gnus-article-buffer gnus-newsgroup-begin gnus-newsgroup-end nov invisible gnus-build-all-threads gnus-build-old-threads gnus-agent-get-undownloaded-list gnus-summary-remove-list-identifiers gnus-group-auto-expirable-p gnus-group-read-only-p "*Article*" gnus-article-setup-buffer last] 15 (#$ . 203747)]) (defalias 'gnus-compute-unseen-list #[0 "\204 \211\207\303 \"\211\207" [gnus-newsgroup-seen gnus-newsgroup-articles gnus-newsgroup-unseen gnus-inverse-list-range-intersection] 3]) #@16 (fn DISPLAY) (defalias 'gnus-summary-display-make-predicate #[257 "\304\305!\210\211G\306U\203 \211@\262\204: \307\310 \"\211\2039 \211@\211AA\311\312\313\314\315!\316\"\317$\262BBA\266\202\202 \210\211\320!*\207" [gnus-summary-display-cache gnus-article-mark-lists gnus-category-predicate-cache gnus-category-predicate-alist require gnus-agent 1 append ((unread . unread) (read . read) (unseen . unseen)) make-byte-code 0 "\301\300!\207" vconcat vector [gnus-article-marked-p] 2 gnus-get-predicate] 11 (#$ . 207393)]) #@31 (fn TYPE &optional ARTICLE) (defalias 'gnus-article-marked-p #[513 "\211\206 \306\267\202~ \211 >\202 \211\n>\202 \211 >\202 \211\f>\202 \211 >\202 \211>\202 \211 >\202 \211\n>\202 \211 >\202 \211\f>\202 \211 >\202 \211\236\202 \211\236\202 \211>\202 \211>\202 \211>\202 \211>?\202 \307\207" [gnus-number gnus-newsgroup-marked gnus-newsgroup-spam-marked gnus-newsgroup-unsendable gnus-newsgroup-undownloaded gnus-newsgroup-downloadable #s(hash-table size 17 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (tick 11 spam 17 unsend 23 undownload 29 download 35 unread 41 read 48 dormant 55 expire 62 reply 69 killed 76 bookmark 83 score 90 save 97 cache 104 forward 111 seen 118)) t gnus-newsgroup-unreads gnus-newsgroup-reads gnus-newsgroup-dormant gnus-newsgroup-expirable gnus-newsgroup-replied gnus-newsgroup-killed gnus-newsgroup-bookmarks gnus-newsgroup-scored gnus-newsgroup-saved gnus-newsgroup-cached gnus-newsgroup-forwarded gnus-newsgroup-unseen] 5 (#$ . 207934)]) #@79 Find out what articles the user wants to read. (fn GROUP &optional READ-ALL) (defalias 'gnus-articles-to-read #[513 "\306\307\204 G\310U\203 G\310U\204 \n\203B \2033 \311\f\"\312@\313A \314#]AB!\262\2029 \312\311\f\"!\206L \315!\202L \316\262\317\320 \" \"\321\311+\"A@\262\3228\262\236A\"\323,\"\211GGG G\\\247\203x \202U\n\247\203\201 \n\202U\3241OX\204\221 U\203-\247\203-V\203\316 .\325/!\203\263 \211\206\264 -\202\264 \326\203\327 \327\330/\331\332\"\203\315 \333\310\225\"\202\316 \211\262$\202\357 \327\334/\331\332\"\203\352 \333\310\225\"\202\353 \211\262#\316\211\335!$\331\336\"\203 \202\211)\266\203\202KV\203JW\203JZ\337V\203J\326\327\340\341/\331\332\"\2030\333\310\225\"\2021\211\262%!\331\336\"\203D\202E\211\262\202K0\202U\210\342\343!\210\316\211;\203`\344!\202a\211\262\211\203m\211\310U\203q\211\202\320\310U\204\214\345!X\203\214\346\347\"\262G\262\202\222\350!\262\345!W\203\265\211\310W\203\255\345!S\233\316\241\210\202\265Z\233\262\351 \"0\3521!\203\317\3461/\"\347\"\262\207" [gnus-newsgroup-marked gnus-newsgroup-unreads gnus-newsgroup-display gnus-newsgroup-maximum-articles gnus-active-hashtb gnus-newsgroup-dormant t gnus-list-range-difference 0 gethash gnus-uncompress-range - -1 gnus-cache-articles-in-group nil gnus-sorted-nunion gnus-sorted-union unexist 3 gnus-killed-articles (quit) gnus-parameter-large-newsgroup-initial read-string format "How many articles from %s (available %d, default %d): " string-match "^[^:]+:" substring "How many articles from %s (%d default): " number-to-string "^[ ]*$" 20 "%s %s (%d scored, %d total): " "How many articles from" message "Quit getting the articles to read" string-to-number abs sort < copy-sequence gnus-sorted-difference functionp gnus-newsrc-hashtb gnus-newsgroup-killed gnus-large-newsgroup cursor-in-echo-area gnus-newsgroup-name gnus-newsgroup-unselected gnus-alter-articles-to-read-function] 17 (#$ . 208971)]) #@24 (fn KILLED ARTICLES) (defalias 'gnus-killed-articles #[514 "\303\203w @A<\204 @Y\205f AX\202f \304\203c @\247\2031 @Y\2026 @@Y\203c \n\203c @\247\203J @U\202W @@Y\203\\ @AX\203\\ \303A\211\204$ \n)?*\203p @B\262A\262\202 \211\207" [ranges number not-stop nil t] 5 (#$ . 211023)]) #@37 Return the type of MARK. (fn MARK) (defalias 'gnus-article-mark-to-type #[257 "\211\236A@\206 \301\207" [gnus-article-special-mark-lists list] 3 (#$ . 211345)]) #@66 Return whether MARK should be propagated to back end. (fn MARK) (defalias 'gnus-article-unpropagatable-p #[257 "\211>\207" [gnus-article-unpropagated-mark-lists] 3 (#$ . 211515)]) #@81 Set all article lists and remove all marks that are no longer valid. (fn INFO) (defalias 'gnus-adjust-marked-articles #[257 "\3028\303@\"\211@A \304\211\211\211\211\211\211\305 @!@\306=\203\" \307\262\n \211\205\211\211@\211@\262\310!\262\311\312\313\314 \"@\"!\262 \315\267\202\202\304\211A@\204X \n\304L\210\202\315 AA\247\203e AC\202g A\262\n\304\211B\262\211\262 \211A\262 \242\211\262\n\203\307 :\203\254 @]\262A ^\262X\203q \304B\241\262T\262\202\224 \202q X\203q \f Y\203q \304B\241\262\202q \nAL\210\266\202\202A\211\262\nL\210JA<\204\352 \211JCL\210A<\204\366 C\262\203\202\211A\262 \242\211\262:\203@\fW\204@ V\203\366 \316 J\"L\210\202\366 \202\202\317\267\202\202\211AA\247\203?\211AC\241\210\211A\262\203s@:\203Y @AV\204i@\247\203s @V\203s\211A\262 \210\202CL\210\202\202AL\210A\266\202\202$ \262\207" [gnus-active-hashtb gnus-article-mark-lists 3 gethash nil gnus-find-method-for-group nnimap 1 gnus-article-mark-to-type intern format "gnus-newsgroup-%s" rassq #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (list 72 tuple 210 range 300)) delq #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (seen 306 unexist 380))] 21 (#$ . 211703)]) #@92 Go through the list of MISSING articles and remove them from the mark lists. (fn MISSING) (defalias 'gnus-update-missing-marks #[257 "\211\205G \301\211\211\205C \211@\302A!\303=\203< \304\305\306@\"!\262J\203< \262\203< \307\211A\262\242J\"L\210\202' A\266\202\202 \262\266\202\207" [gnus-article-mark-lists nil gnus-article-mark-to-type list intern format "gnus-newsgroup-%s" delq] 9 (#$ . 213061)]) #@74 Enter the various lists of marked articles into the newsgroup info list. (defalias 'gnus-update-marks #[0 " \306\n\"A@\262\307\211\211\211\211\205\201\211A\262\242\211\262\203+\310\311\312@\"!\211\262J\262\203p A\313=\203p \203p \203p \307B\211\203j @:\203X @A\fU\203` A\241\210\202c \262A\262\202F \211A\262\266A\314=\203} \315 \"\262\316A!\317=\203\222 \320\321\322\"L\323\"\262\324 \3251\277 \211;\203\244 \326!@\202\245 \211\327!\204\257 \330!\210\331\310\311\332#!!\2620\202\301 \210\307\266\202\203\333A!\204A\3348\236A\335*\336\337!\"\"\335*\336\337 !\"\"\211\203\372 \211\340 ACEB\262\203\341\306 +\"\"\262\342 ACEB\262\266\204 A\343=\203 ABB\262\202 \211\203?\344 !\204:\345\346 \"\210\347 \"\210\334\233\203P\334\233\240\210\202[\203[AAC\241\210\350\211\351V\205\2118?\205\211S\211\262\233\203\\\211\233\307\241\210\202\\\262\207" [gnus-article-mark-lists gnus-newsgroup-name gnus-newsrc-hashtb gnus-save-score gnus-summary-default-score gnus-newsgroup-unseen gethash nil intern format "gnus-newsgroup-%s" score seen gnus-range-add gnus-article-mark-to-type list gnus-compress-sequence sort < t request-set-mark (error) gnus-find-method-for-group featurep require fboundp "%s-%s" gnus-article-unpropagatable-p 3 gnus-list-range-intersection gnus-remove-from-range copy-tree add gnus-sorted-range-intersection del unexist gnus-check-group error "Can't open server for %s" gnus-request-set-mark 5 2 gnus-newsgroup-articles gnus-active-hashtb] 16 (#$ . 213486)]) #@132 Set the mode line of the article or summary buffers. If WHERE is `summary', the summary mode line format will be used. (fn WHERE) (defalias 'gnus-set-mode-line #[257 "\211>\205\320 \306\307\310\"!J\205\320 \311r q\210\306\307\310\"!J\312\n!\f\206% \313 ! \"!G #$G#\313U\203C \211\313U\203C \314\202W \211\313U\203Q \307\315#\"\202W \307\316## %&\203n \317&!\203n \312&\320H!\202o \314 '\311\211\211 (\321!\262\322\323\"\203\227 \324\325=?\205\220 \326)!!G\327Z\202\230 \313\262\330*\203\252 \331\332 *#\202\254 G]\262GV\203\300 \333\334Z\"\335P\262.\266)\336C!+\337\340!\262\207" [gnus-updated-mode-lines gnus-summary-buffer gnus-newsgroup-name gnus-tmp-group-name gnus-current-article gnus-tmp-article-number intern format "gnus-%s-mode-line-format-spec" nil gnus-mode-string-quote 0 "" "{%d more}" "{%d(+%d) more}" mail-header-p 1 eval string-match "%b" buffer-name summary get-buffer 2 4 - window-width truncate-string-to-width 3 "..." gnus-mode-line-buffer-identification set-buffer-modified-p t gnus-newsgroup-unreads gnus-tmp-unread gnus-tmp-unread-and-unticked gnus-newsgroup-unselected gnus-tmp-unread-and-unselected gnus-current-headers gnus-tmp-subject gnus-tmp-header gnus-article-buffer gnus-mode-non-string-length mode-line-buffer-identification] 11 (#$ . 215075)]) #@170 Go through the HEADERS list and add all Xrefs to a hash table. The resulting hash table is returned, or nil if no Xrefs were found. (fn FROM-NEWSGROUP HEADERS UNREADS) (defalias 'gnus-create-xref-hashtb #[771 "\301!\211\203 \302\202 \303!\304\305\306\206 \307\310\311$)\304\211\211\211\211\211\n\203\233 \n\211A\262\f\242\262\211\312H\211\262\203! \211\313H\211\262\n>\204! \313\262\314\315#\203! \313\225\262\203f \316\317\224\317\225#P\202m \316\317\224\317\225#\262\320\316\321\224\321\225#!\262\322\"\211\262\203\217 AB\241\210\202G \323\304B #\210\202G \205\241 \207" [size gnus-virtual-group-p "" gnus-group-real-prefix nil make-hash-table :size 300 :test equal 8 0 string-match "\\([^ ]+\\)[:/]\\([0-9]+\\)" substring 1 string-to-number 2 gethash puthash] 17 (#$ . 216399)]) #@95 Look through all the headers and mark the Xrefs as read. (fn FROM-NEWSGROUP HEADERS UNREADS) (defalias 'gnus-mark-xrefs-as-read #[771 "\301!\302C\302\211C\302Crq\210\303#\211\262\2054 \304\305\306\307\310\311 \n\n%\312\"\313\314%\")\207" [gnus-group-buffer gnus-virtual-group-p nil gnus-create-xref-hashtb maphash make-byte-code 514 "\300\230?\205\322\302\306 \"A@\262\240\304\307\302\2428\240;\203r\304\211\242\211\203, \211<\203, \211\206n\310 \"A\206n\211\311\232\203@ \206W\310 \"A\206W\310!\"A\206W\"\211\203q \312\313@@@@@A@#\232\204q \211A\266\202\202T \211@@\262\206W#\211\203\226 \312\313@@@A@#\232\204\226 \211A\266\202\202{ \211@\262\206W$A\314\211\203U\211A\262\242\3078\262\262;\204\242 \314\315C\3162D\211\242\206\312 \240\210\204\342 \317\320\321\322\323\324!\325\"\307\326% \"\210 !D\211\203\211@\317\320\321\327\323\324!\330\"\307\326%\"\210A\266\202\202\347 \210\211\242A@\331\235\203\312\332\242@\"\202\"\312\313\242@\242A@#\211\242B\211 \235\204@\204@\310@ \"\204@\211 B \266\2020\262\266\203\232\203\242 \262\314\262\202\242 \266\202\211\203k\310 \"\204kB B \211\262\262\240\210\205\322\333\304\242\334\300!\"\204\244\301\204\244\304\242\303\334\300!\240\232\204\244\304\242@\303\242@\232\205\322\304\242A@\303\242A@\232\205\322%\205\322%\315=\203\316\301\204\316\302\242\211A@\211:\203\303\211@\202\304\211\262\262&X\205\322\335\"\207" vconcat vector [gnus-newsrc-hashtb gethash 4 assoc "native" format "%s:%s" nil t server-name mapc make-byte-code 257 "\211A\300\242\232\205 \301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-methods-equal-p gnus-find-method-for-group gnus-group-make-articles-read gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist gnus-use-cross-reference gnus-level-subscribed] 22 "\n\n(fn GROUP IDLIST)"] 19 (#$ . 217228)]) #@23 (fn GROUP ARTICLES) (defalias 'gnus-compute-read-articles #[514 "\302\"\211A@\302 \"\303\205} \203R \303\211\211A\262\242\211\262\203P \211\2038 AV\2038 \304 !\2066 \262AV\204F @W\203 \305 \"\262\202 \266\203m \3068\204m @\307V\203m \307@SB\262\202r \3068\262\310\311\312\"\211\262\"\207" [gnus-newsrc-hashtb gnus-active-hashtb gethash nil gnus-activate-group delq 2 1 gnus-add-to-range sort <] 12 (#$ . 219413)]) #@78 Update the info of GROUP to say that ARTICLES are read. (fn GROUP ARTICLES) (defalias 'gnus-group-make-articles-read #[514 "\303\304\"\211A@\304 \"\305\306!\307\"\310\204. \205\376 \311\312\313\n\314\"!\315\316EC\"\202\376 \317\"\262r\nq\210\320\321\322\323D\323\324 8D\325BBB\326\327\323 DD\323\330\n8DE\331\323 D\332DE\333\311\334\211\323\fD\335BBDEE\336D\337\340BB\257!\210)AA\211\240\266\203\232 \311\315\341EC\"\210\205\376 \211\204\255 AT@Z\262\202\354 \211A<\204\301 AAT@ZZ\262\202\354 \211\203\345 \211@\247\203\322 T\262\202\336 @AT@@Z\\\262\211A\262\202\301 AZ\262\240\210\342!?\205\376 \337\343\"\207" [gnus-newsrc-hashtb gnus-active-hashtb gnus-group-buffer 0 gethash gnus-method-option-p gnus-find-method-for-group server-marks nil gnus-request-set-mark gnus-compress-sequence sort < add (read) gnus-compute-read-articles gnus-undo-register progn gnus-info-set-marks quote 3 (t) setf gnus-info-read 2 gnus-get-unread-articles-in-group gnus-active when list ('del '(read)) gnus-group-jump-to-group gnus-group-update-group (t) (read) gnus-ephemeral-group-p t] 21 (#$ . 219870)]) #@41 (fn &optional DEPENDENCIES FORCE-NEW) (defalias 'gnus-get-newsgroup-headers #[512 "\206 r q\210\n)\306\211\211\211\211 r\3071 q0\202 \210\202! \210\f) @rq\210\310ed\311\312\313%\210\310ed\314\312\313%\210\315 \210\316\317!\210\313\306\211\211\211\211 Aeb\210\320\321\306\313#\203\306\262\n\306\262\322 !\211\262\306\210`\262`\323\324\306\313#\203w `\325Z\206x `}\210b\210\323\326\306\313#\203\223 B\327\306w\210`\330 {!\202\224 \331b\210\323\332\306\313#\203\255 C\327\306w\210`\330 {!\202\256 \333b\210\323\334\306\313#\203\304 \327\306w\210`\330 {\202\305 \335b\210\320\336\306\313#\203\331 \337\224\337\225{\202\372 \n\211 D\247\203\354 \340\341ED#\202\371 \340\342E\343FT\211F!#)\211\262b\210\323\344\306\313#\203.`\262\327\306w\210`\330 {\306\210\345\346\313#\210`T\345\347\313#\210`{\262\202\205\323\350\306\313#\203\201\327\306w\210`\330 {\211\262 \203\201\351\352 \"\203\201\306\353 \354\224\354\225#\262\351\352\f\354\225#\203z\353 \354\224\354\225#\262\211GGV\203W\211\262\202W \262\202\205\306\211\262b\210\323\355\306\313#\203\257\3561\235\322!0\202\237\210\306\211\262\247\203\253\202\260\357\202\260\357 b\210\323\360\306\313#\203\332\3611\310\322!0\202\312\210\306\211\262\n\247\203\326\202\333\357\202\333\357\nb\210\323\362\306\313#\205\357\327\306w\210`\330 {G\205'G\306\203% b\210\323\363\364@!\365Q\306\313#\203 @\327\306w\210`\330 {BB\262\211A\262\210\202\367\262\366\n\n\n\n\n\n\n\n\n\n&\n\266\212\262 \232\203M\306\262H\203\333H!\210\367H\262\n\370H\306 I\211 J\205\330JG\354U?\205\330I\203\304J J\354\371J\206\202\335!\306 K J L\351\372JL#\203\247\353J\354\224\354\225\211L#KBK\202\212K\237, KIK\233\203\275KAK\202\255K@)\202\330\371J! J\351\373J\"\205\327\374\337J\")*\262\f\367H\211\205\353\375\"\306\211\211\211\211\204\373\306\262\n\202}\204 \376 C #\262\202}@\204'\375\n\"\n\240\210\375\n\"\262\202}\203<\375\n\"\n\240\210\313\262\202}M\204[\376\377 \211\262 C #\262 \211\367 I\266\202}@\211\201N @\201N H\206l\335 \201N H\206v\335PI\266\306\262\n \203\352\211\204\352 \370H\306 I\211 J\205JG\354U?\205I\203\357J J\354\371J\206\255\335!\306 K J L\351\372JL#\203\322\353J\354\224\354\225\211L#KBK\202\265K\237, KIK\233\203\350KAK\202\330K@)\202\371J! J\351\373J\"\205\374\337J\")*\262\262\203\274\375\n\"\211\262\203\274\242\211\262\203\274\230\203:@\211\370\201O I\266\306\262\306\262\202 \370H\306 I\211 J\205\266JG\354U?\205\266I\203\242J J\354\371J\206`\335!\306 K J L\351\372JL#\203\205\353J\354\224\354\225\211L#KBK\202hK\237, KIK\233\203\233KAK\202\213K@)\202\266\371J! J\351\373J\"\205\265\374\337J\")*\262\202 \206\303\201O \262\375\n\"\262\203\340\375\n\"AC\244\241\210\202\352\376\306D #\210 \266\212\211\262\203\372 B\262 db\210~\210\202M \n\237)\266\206+\207" [nntp-server-buffer gnus-summary-buffer gnus-newsgroup-dependencies gnus-newsgroup-charset gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets nil (error) subst-char-in-region 9 32 t 13 ietf-drums-unfold-fws gnus-run-hooks gnus-parse-headers-hook re-search-forward "^[23][0-9]+ " read search-forward "\n.\n" 2 "\nsubject:" " " point-at-eol "(none)" "\nfrom:" "(nobody)" "\ndate:" "" "^message-id: *\\(<[^\n > ]+>\\)" 1 format "fake+none+%s+%d" "fake+none+%s+%s" int-to-string "\nreferences:" search-backward ">" "<" "\nin-reply-to:" string-match "<[^>]+>" substring 0 "\nchars: " (error) -1 "\nlines: " (error) "\nxref:" "\n" symbol-name ":" vector 4 5 mail-header-remove-comments "<[^<]+[^< ]" "\\(<[^<]+>\\)[ ]*\\'" match-string gethash puthash nnmail-message-id mail-parse-charset case-fold-search gnus-decode-encoded-word-function gnus-decode-encoded-address-function number gnus-newsgroup-name nnheader-fake-message-id gnus-extra-headers gnus-alter-header-function n references ids beg gnus-summary-ignore-duplicates 8 "none"] 37 (#$ . 221033)]) #@199 Parse the news overview data in the server buffer. Return a list of headers that match SEQUENCE (see `nntp-retrieve-headers'). (fn SEQUENCE &optional FORCE-NEW DEPENDENCIES GROUP ALSO-FETCH-HEADS) (defalias 'gnus-get-newsgroup-headers-xover #[1281 "\306C \n \206 \f \307=\203 \307\202' ;\203& \203& \310 \"\202' \311\311\211\211 @ Ar q\210\312ed\313\314\307%\210\315\316!\210eb\210m\204\233\3171\213\f\204V \203\205m\204\205\320!\262\204y \f\203y \f@W\203y \fA\262 \202d \204\212 \f\203 @=\203\fA\262 \321 \311\211\211\322\216\311`}\210m\204\246 \311u\210\3231\326 B`\324\325 \326#\203\275 `S\202\277 {\211\262!\327\313\330\327\331\330\307$\307$\2620\202\330 \210\3321C`\324\325\n\326#\203\355 `S\202\357 {\211\262!\327\313\330\327\331\330\307$\307$\2620\202\210`\324\325\n\326#\203`S\202{`\324\325 \326#\203)`S\202+ {\310\333\"\2037\211\202X\f\211 D\247\203J\334\335ED#\202W\334\336E\337FT\211F!#)\262`\324\325\f\326#\203i`S\202k\n{\211\262 \311f\340=\203z\341\202\223\3421\205\320p!0\202\207\210\311\211\247\203\220\211\202\221\341\262m\204\232\343u\210\311f\340=\203\245\341\202\276\3441\260\320p!0\202\262\210\311\211\247\203\273\211\202\274\341\262m\204\305\343u\210m?\205\346\345\346!\203\324\341\225b\210`\324\325\326#\203\343`S\202\345 {\311\211\311f\347>\204 `\324\325\326#\203\376`S\202 {\262\310\350\"\203\350\351\352\343\"!\353\341\225\"BB\262\202\350\266\202\354\n\n\n\n\n\n\n\n\n\n&\n\266\212\262\210)\355\230\203_\340H\211\262\203_\356\236A\211\262\203_\211\357\360!I\266G\203iG!\210\361H\211\205y\362\"\311\211\211\211\211\204\211\311\262\n\202\204\233\363 C #\262\202@\204\265\362\n\"\n\240\210\362\n\"\262\202\203\312\362\n\"\n\240\210\307\262\202H\204\351\363\364 \211\262 C #\262 \211\361 I\266\202@\211\365@\365H\206\366\355 \365H\206\376\355PI\266\311\262\n \203n\211\204n \357H\311 I\211 J\205\213JG\341U?\205\213I\203wJ J\341\366J\2065\355!\311 K J L\310\367JL#\203Z\353J\341\224\341\225\211L#KBK\202=K\237, KIK\233\203pKAK\202`K@)\202\213\366J! J\310\370J\"\205\212\352\343J\")*\262\262\203B\362\n\"\211\262\203B\242\211\262\203B\230\203\300@\211\357\371I\266\311\262\311\262\202\221\357H\311 I\211 J\205<JG\341U?\205<I\203(J J\341\366J\206\346\355!\311 K J L\310\367JL#\203 \353J\341\224\341\225\211L#KBK\202\356K\237, KIK\233\203!KAK\202K@)\202<\366J! J\310\370J\"\205;\352\343J\")*\262\202\221\206G\371\262\362\n\"\262\203d\362\n\"AC\244\241\210\202n\363\311D #\210 \266\212\266\207\211\262\203\211B\262\343y\210\202M db0\202\227\210\372\361\373\374e`\"#\210\343y\210\202E \203\245\f\204\252\237\202\276\307 M\237\375\f\"\376=\205\274\377 \244)+\207" [gnus-article-internal-prepare-hook gnus-newsgroup-charset gnus-newsgroup-ignored-charsets nntp-server-buffer gnus-newsgroup-dependencies gnus-read-all-available-headers gnus-article-get-xrefs t string-match nil subst-char-in-region 13 32 gnus-run-hooks gnus-parse-headers-hook (error) read point-at-eol #[0 "~\207" [] 1] (error) search-forward " " move subst-char-in-string 45 10 (error) "^<[^>]+>$" format "fake+none+%s+%d" "fake+none+%s+%s" int-to-string 9 0 (error) 1 (error) looking-at "Xref: " (10 nil) "^\\([^ :]+\\): " intern match-string substring vector "" In-Reply-To 5 gnus-extract-message-id-from-in-reply-to 4 gethash puthash nnmail-message-id 8 mail-header-remove-comments "<[^<]+[^< ]" "\\(<[^<]+>\\)[ ]*\\'" "none" gnus-error "Invalid data on line %d" count-lines gnus-retrieve-headers headers gnus-get-newsgroup-headers mail-parse-ignored-charsets mail-parse-charset gnus-decode-encoded-word-function gnus-decode-encoded-address-function number gnus-newsgroup-name nnheader-fake-message-id gnus-alter-header-function gnus-summary-ignore-duplicates n references ids beg gnus-nov-is-evil] 42 (#$ . 225129)]) #@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 #[0 "rq\210 )\n?\206Y \211?\206Y \211\304H\203 \211\304H\305\230?\206Y \306\307\214\310 \210eb\210m\204< \307f\227\311=\203< \312\313!\204D \314\315\307\306#\205V \316\225Tb\210`\317 {\262\211\304I\262*\266\202\207" [gnus-summary-buffer gnus-current-headers gnus-use-cross-reference case-fold-search 8 "" t nil nnheader-narrow-to-headers 120 looking-at "Xref:" search-forward "\nXref:" 0 point-at-eol] 7 (#$ . 229185)]) #@364 Find article ID and insert the summary line for that article. OLD-HEADER can either be a header or a line number to insert the subject line on. If USE-OLD-HEADER is non-nil, then OLD-HEADER should be a header, and OLD-HEADER will be used when the summary line is inserted, too, instead of trying to fetch new headers. (fn ID &optional OLD-HEADER USE-OLD-HEADER) (defalias 'gnus-summary-insert-subject #[769 "\247\205 \306!\205 \211\203 \203 \211\202- \247\203* \307!\203* \307!\202- \310!\247\2053 \311\203\235 \204g \203g \203g \312\313H \"\211\262\203g \3148b\210\315\316 \317 T\316 \320y\210`|\210Z\"\210C\321 \210)\203| \211\313\313HI\266\322\313H\211\262 \"\322\f\" B\323\324H\"\210\325\311\326#\210\247\203\315 \313V\203\315 \203\264 W\204\267 \203\303 V\204\306 \322\"\205\324 \313H\207" [gnus-show-threads gnus-newsgroup-data gnus-newsgroup-headers gnus-newsgroup-sparse gnus-newsgroup-ancient gnus-newsgroup-limit mail-header-p gnus-number-to-header gnus-read-header nil gnus-data-find-in 0 2 gnus-data-remove point-at-bol point-at-eol 1 gnus-summary-remove-list-identifiers delq gnus-rebuild-thread 4 gnus-summary-goto-subject t gnus-newsgroup-end gnus-newsgroup-begin gnus-newsgroup-unselected] 14 (#$ . 229786)]) #@170 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. (fn N) (defalias 'gnus-summary-work-articles #[257 "rq\210\211\203` \304!\262\211\305W\306\304!!\307\211\212\305V\203X \310`\311\"\211\205) \312!\266\310`\313\"\2064 \314 \211\262B\211\262\203X \203J \315\307\"\202N \316\307\"\203X S\262\202 )\237\266\204\202\330 \203\264 \n\203\264 \317 \203\264 \320\321!\210`\317 ]\307\211\212`\317 ^b\210\310`\311\"\211\205\211 \312!\266\310`\313\"\206\224 \314 \211\262B\211\262\203\254 \316\307\"\203\254 `W\204~ \237)\266\203\202\330 \203\301 \322 \210\323 !\202\330 \310`\311\"\211\205\314 \312!\266\310`\313\"\206\327 \314 C)\207" [gnus-summary-buffer transient-mark-mode mark-active gnus-newsgroup-processable 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 mark message "region active" gnus-summary-save-process-mark reverse] 8 (#$ . 231085)]) #@206 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. (fn ARG &rest FORMS) (defalias 'gnus-summary-iterate '(macro . #[385 "\300\301!\302\303DDC\304\305\306DD\307\310DC\"BBBE\207" [make-symbol "gnus-summary-iterate-articles" let gnus-summary-work-articles while gnus-summary-goto-subject car append pop] 12 (#$ . 232199)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-summary-iterate lisp-indent-function 1 put edebug-form-spec t] 5) #@63 Push the current set of process marked articles on the stack. (defalias 'gnus-summary-save-process-mark #[0 "\302! B\211\207" [gnus-newsgroup-processable gnus-newsgroup-process-stack copy-sequence] 2 (#$ . 232805) nil]) #@74 Push the current set of process marked articles on the stack and unmark. (defalias 'gnus-summary-kill-process-mark #[0 "\300 \210\301 \207" [gnus-summary-save-process-mark gnus-summary-unmark-all-processable] 1 (#$ . 233033) nil]) #@63 Pop the last process mark state off the stack and restore it. (defalias 'gnus-summary-yank-process-mark #[0 "\204 \301\302!\210\303\211A\242!\207" [gnus-newsgroup-process-stack error "Empty mark stack" gnus-summary-process-mark-set] 3 (#$ . 233270) nil]) #@62 Make SET into the current process marked articles. (fn SET) (defalias 'gnus-summary-process-mark-set #[257 "\300 \210\301\302\"\207" [gnus-summary-unmark-all-processable mapc gnus-summary-set-process-mark] 4 (#$ . 233535)]) #@137 Search for next unread newsgroup. If optional argument BACKWARD is non-nil, search backward instead. (fn &optional BACKWARD USE-LEVEL) (defalias 'gnus-summary-search-group #[512 "rq\210\301\302\205 \303 #\205 \304 )\207" [gnus-group-buffer gnus-group-search-forward nil gnus-group-group-level gnus-group-group-name] 6 (#$ . 233768)]) #@114 Find the name of the best unread group. If EXCLUDE-GROUP, do not go to this group. (fn &optional EXCLUDE-GROUP) (defalias 'gnus-summary-best-group #[256 "rq\210\212\301!*\207" [gnus-group-buffer gnus-group-best-unread-group] 3 (#$ . 234115)]) #@42 (fn &optional UNREAD ARTICLE BACKWARD) (defalias 'gnus-summary-find-next #[768 "\211\203 \306\"\207\307`\310\"\206' \307`\310\"\211\205 \311!\266\307`\312\"\206' \313 \314\">\262\315\204K \203G \203G @A@\nU\204K A\262\203\234 \203\230 @@ \316=\203a \f\202} \203i \315\202} \317\267\202x \202} \f\202} \205} \315>\204\221 @A@\nU\203\221 @\262\315\262A\262\202P \211\202\236 @\211\262\205\253 \3208b\210\211@\207" [gnus-newsgroup-data gnus-summary-check-current gnus-unread-mark gnus-auto-goto-ignores gnus-newsgroup-undownloaded gnus-plugged gnus-summary-find-prev get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-data-find-in nil always-undownloaded #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (unfetched 111 undownloaded 116)) 2 gnus-newsgroup-unfetched] 10 (#$ . 234367)]) #@33 (fn &optional UNREAD ARTICLE) (defalias 'gnus-summary-find-prev #[512 "m\206 \306`\307\"\211\205 \310!\266\306`\311\"\206 \312 \206$ \313 !\211\314\">\262\315\204F \n\203B \203B @A@ U\204F A\262\203\230 \203\224 @@\f\316=\203[ \202y \203d \315\202y \f\317\267\202s \202y \202y \205y \315>\204\215 @A@ U\203\215 @\262\315\262A\262\202J \211\202\232 @\211\262\205\247 \3208b\210\211@\207" [gnus-newsgroup-data-reverse gnus-newsgroup-data gnus-summary-check-current gnus-unread-mark gnus-auto-goto-ignores gnus-newsgroup-undownloaded get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject reverse gnus-data-find-in nil always-undownloaded #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (unfetched 106 undownloaded 111)) 2 gnus-plugged gnus-newsgroup-unfetched] 9 (#$ . 235282)]) #@50 (fn SUBJECT &optional UNREAD BACKWARD ARTICLE) (defalias 'gnus-summary-find-subject #[1025 "\203 \306\"\262\202P \204) \211\307\n\"\203$ \310\311\225\"\266\202\202P \262\202P \312=\2037 \313!\262\202P \247\203P \314\307\n\"\203L \310\311\225\"\262 \"\262\206j \315`\316\"\211\205_ \317!\266\315`\320\"\206j \321 \203z \206{ \322\f!\211\202{ \f\211\323\">\262\324 \203\230 \203\230 @A@U\204\234 A\262\203\317\203\257 @A@U\203\310\325\326@8!\203\310\326@8\327H\330\211\204j\203\322 \306\"\262\202 \204\355 \211\307\n\"\203\350 \310\311\225\"\266\202\202\262\202 \312=\203\373 \313!\262\202 \247\203\314\307\n\"\203\310\311\225\"\262 \"\262\203\"\306\"\262\202d \204=\211\307\n\"\2038\310\311\225\"\266\202\202d\262\202d \312=\203K\313!\262\202d \247\203d\314\307\n\"\203`\310\311\225\"\262 \"\262\232\266\203\202\276\203y\306\"\262\202\273 \204\224\211\307\n\"\203\217\310\311\225\"\266\202\202\273\262\202\273 \312=\203\242\313!\262\202\273 \247\203\273\314\307\n\"\203\267\310\311\225\"\262 \"\262\232\266\203\203\310@\262\324\262A\262\202\234 \211\205\334\3318b\205\334\211@\207" [gnus-simplify-subject-functions gnus-summary-gather-subject-limit message-subject-re-regexp gnus-newsgroup-data-reverse gnus-newsgroup-data gnus-summary-check-current gnus-map-function string-match substring 0 fuzzy gnus-simplify-subject-fuzzy truncate-string-to-width get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject reverse gnus-data-find-in nil mail-header-p 3 1 t 2 gnus-unread-mark] 19 (#$ . 236184)]) #@198 Search forward for an article. If UNREAD, look for unread articles. If SUBJECT, look for articles with that subject. If BACKWARD, search backward instead. (fn &optional UNREAD SUBJECT BACKWARD) (defalias 'gnus-summary-search-forward #[768 "\203\n \300#\207\211\203 \301!\207\302!\207" [gnus-summary-find-subject gnus-summary-find-prev gnus-summary-find-next] 7 (#$ . 237868)]) #@95 Center point in window and redisplay frame. Also do horizontal recentering. (fn &optional N) (defalias 'gnus-recenter #[256 "\203 \301=\204 \302 \210\303!\207" [gnus-auto-center-summary vertical gnus-horizontal-recenter recenter-top-bottom] 3 (#$ . 238261) "P"]) (put 'gnus-recenter 'isearch-scroll t) #@127 Move N lines forward (backward if N is negative). Like forward-line, but skip over (and don't count) invisible lines. (fn N) (defalias 'gnus-forward-line-ignore-invisible #[257 "\300\301V\203- \211\204- \302`!\203 \303`!b\210\202 \304y\210m\203& \305\262\202 S\262\202 \301W\205\\ \211?\205\\ \306y\210o\203E \305\262\202- T\262o\204- \302`S!\203- \307`!b\210\202I \207" [nil 0 invisible-p next-char-property-change 1 t -1 previous-char-property-change] 4 (#$ . 238576)]) #@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 #[0 "\205\241 \302 \303W\203 \304\202( \302 \305W\203 \306\202( \247\203# \202( \302 S\307\245\302 S\212db\210\310[!\210`)\311p!\311 !\203} \212\310[!\210`)V\203U \312\"\210\202| \212db\210\310\313!\210`b\210\312`\314#\210\315\"\204z \310\306!\210\312`^\314#\210\210)\210\311p\314\"\205\237 \316=?\205\237 \317 \320\311p\314\"!\210\321 \210\322 \210\320!\262\266\204\207" [gnus-auto-center-summary gnus-article-buffer window-height 4 0 7 1 2 gnus-forward-line-ignore-invisible get-buffer-window set-window-start -1 t pos-visible-in-window-p vertical selected-window select-window gnus-summary-position-point gnus-horizontal-recenter] 10 (#$ . 239068) nil]) #@63 Move point to NEWSGROUP in group mode buffer. (fn NEWSGROUP) (defalias 'gnus-summary-jump-to-group #[257 "p\301!=\203% \302 \303\304\305\306\307!\310\"\311$\216\312!\203 \313!\210\314!)\207\212\312\304\"\2035 \313\315\"\210\2028 q\210\314!)\207" [gnus-group-buffer get-buffer current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 get-buffer-window pop-to-buffer gnus-group-jump-to-group t] 8 (#$ . 239929)]) #@14 (fn GROUP) (defalias 'gnus-list-of-unread-articles #[257 "\211\303\"A@\262\3048\262\303 \"\206 \305!\211A\206! \306\307\"\n\2030 @\310\n\311#]\2022 @\312\211\211\204@ \262\202\313 A<\204b @W\204W C\262\202b AT]\262\202\313 @\247\203o @\206s @@\211\262\313U\204~ \262\203\313 \203\231 W\203\231 B\262T\262\202\207 @:\204\246 @\202\252 @AT\262A@:\204\274 A@\202\301 A@@\262A\262\202~ X\203\335 B\262T\262\202\313 \314\315\237\"\207" [gnus-newsrc-hashtb gnus-active-hashtb gnus-newsgroup-maximum-articles gethash 2 gnus-activate-group error "Group %s couldn't be activated " - -1 nil 1 delq 0] 11 (#$ . 240406)]) #@73 Return a list of unread, unticked and non-dormant articles. (fn GROUP) (defalias 'gnus-list-of-read-articles #[257 "\211\303\"A@\262\3048\303 \"\205A \211\205A \305\211\306\307\n\2030 @\310A\n\311#]AB\2021 !\312!\"\313\236A\"\314\236A\"\207" [gnus-newsrc-hashtb gnus-active-hashtb gnus-newsgroup-maximum-articles gethash 3 gnus-list-range-difference gnus-sorted-complement gnus-uncompress-range - -1 gnus-list-of-unread-articles dormant tick] 13 (#$ . 241096)]) #@14 (fn GROUP) (defalias 'gnus-sequence-of-unread-articles #[257 "\211\303\"A@\262\3048\262\303 \"\206 \305!\211A\n\203) @\306\n\307#]\202+ @\310\211\211\2049 \262\202\271 A<\204[ @W\204P C\262\202[ AT]\262\202\271 @\247\203h @\206l @@\211\262\311U\204w \262\203\271 \203\207 BB\262@:\204\224 @\202\230 @AT\262A@:\204\252 A@\202\257 A@@\262A\262\202w \203\334 \203\334 W\203\321 BB\262\202\334 U\203\334 B\262\312\313\237\"\207" [gnus-newsrc-hashtb gnus-active-hashtb gnus-newsgroup-maximum-articles gethash 2 gnus-activate-group - -1 nil 1 delq 0] 11 (#$ . 241580)]) #@118 Reconfigure windows to show the article buffer. If `gnus-widen-article-window' is set, show only the article buffer. (defalias 'gnus-summary-select-article-buffer #[0 "\211\205 \304\305 !\211!\205 )\204 \306\307!\207\310!\204= \n\311`\312\"\211\205+ \313!\266\311`\314\"\2066 \315 =\204= \316 \210rq\210`)\317 \203L \320\202M \321\322\"\210\323\310!!\210\211eU\204a \211b\202f \324 \210\325u\207" [gnus-article-buffer buffer gnus-current-article gnus-widen-article-window buffer-live-p get-buffer error "There is no article buffer for this summary buffer" get-buffer-window get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-show-article gnus-configure-windows only-article article t select-window article-goto-body -1] 5 (#$ . 242227) nil]) #@76 Perform any operation on all articles that are process/prefixed. (fn ARG) (defalias 'gnus-summary-universal-argument #[257 "\301!\302\211\303\304\305\306!!!\211\262\307=\203 \310\311\312\"\210\202< \212\203; \313\211A\262\242\211\262!\210\302\314!\210)\315!\210\202 )\266\316 \207" [gnus-newsgroup-processable gnus-summary-work-articles nil key-binding read-key-sequence substitute-command-keys "\\<gnus-summary-mode-map>\\[gnus-summary-universal-argument]" undefined gnus-error 1 "Undefined key" gnus-summary-goto-subject command-execute gnus-summary-remove-process-mark gnus-summary-position-point] 8 (#$ . 243047) "P"]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias gnus-summary-toggle-truncation toggle-truncate-lines nil make-obsolete "26.1"] 4) #@286 Return the number of an article to stay on across a reselect. The current article is considered, then following articles, then previous articles. An article is sought which is not canceled and isn't a temporary insertion from another group. If there's no such then return a dummy 0. (defalias 'gnus-summary-find-for-reselect #[0 "\303\304\211\203g \211@\204` \211\203 \206 \305 !\211\202 \306\307`\310\"\211\205) \311!\266\307`\312\"\2064 \313 \">\262\211\203_ \204_ \314@@W\203X \n@A@=\204X \211@@\262\211A\262\202: \210A\266\202\202 \210\211\206m \314\207" [gnus-newsgroup-data-reverse gnus-newsgroup-data gnus-canceled-mark nil (nil t) reverse gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 0] 8 (#$ . 243838)]) #@128 Exit and then reselect the current newsgroup. The prefix argument ALL means to select all articles. (fn &optional ALL RESCAN) (defalias 'gnus-summary-reselect-current-group #[512 "\302!\203\n \303\304!\210\305 \306\307\306\310\"\210\311!\210\203\" \212\312\313!\210)\314\315\"\210\316\306\315#\207" [gnus-newsgroup-name gnus-newsgroup-begin gnus-ephemeral-group-p error "Ephemeral groups can't be reselected" gnus-summary-find-for-reselect nil gnus-summary-exit leave-hidden gnus-summary-jump-to-group gnus-group-get-new-news-this-group 1 gnus-group-read-group t gnus-summary-goto-subject] 8 (#$ . 244650) "P"]) #@89 Exit the newsgroup, ask for new articles, and select the newsgroup. (fn &optional ALL) (defalias 'gnus-summary-rescan-group #[256 "\301\302\"\210\303!\210\211\304=\205 \305 \207" [gnus-current-window-configuration gnus-summary-reselect-current-group t gnus-configure-windows article gnus-summary-select-article] 5 (#$ . 245276) "P"]) #@34 (fn &optional NON-DESTRUCTIVE) (defalias 'gnus-summary-update-info #[256 "\212\211\205\231 \203 \306\307\310\n \"\f\"\311\" A<\204 C \312!\313\204= \314\315\"A@\262!\262\316\3178\"\262rq\210\320 \210)\321\307\f\n\"\"\210?\205V ??\205\\ \212\322 \210*\203n \323\f#\210q\210?\205\227 \324\313\314\315\"A@\262!\262\316\3178\"\211\262\232#\266\203\262)\207" [gnus-newsgroup-name gnus-newsgroup-kill-headers gnus-newsgroup-unselected gnus-newsgroup-killed gnus-newsgroup-unreads gnus-newsgroup-headers gnus-compress-sequence gnus-sorted-union gnus-list-range-intersection t gnus-ephemeral-group-p nil copy-sequence gethash delq 5 gnus-undo-force-boundary gnus-update-read-articles gnus-update-marks gnus-mark-xrefs-as-read gnus-group-update-group gnus-newsrc-hashtb gnus-group-buffer gnus-save-score gnus-newsgroup-scored gnus-use-cross-reference] 14 (#$ . 245621)]) #@187 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). (fn &optional FORCE) (defalias 'gnus-summary-save-newsrc #[256 "\300\301!\210\211\203 \302 \207\303 \207" [gnus-summary-update-info t gnus-save-newsrc-file gnus-dribble-save] 3 (#$ . 246542) "P"]) #@190 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. (fn &optional TEMPORARY LEAVE-HIDDEN) (defalias 'gnus-summary-exit #[512 "\306 \210\211\205 \307\310 !\211!\205 )\203% rq\210\311\n!\210\312\211)\313 \210\314 \210\f\315\f!\316 34\312p5\204O 6\203G \317 \2107\203O \320 \2108\203Z \321 \210\322 \210\323!\2109\203g \324 \210:\203o \325 \2108\203w \326 \210\327\330\331\"\203\211 \332\333\225\"\202\212 \211\262!\210\204\232 \334\335!\210\336 \210\334\337!\210\340!\210;\211\205\265 \307\310 !\211!\205\265 )\203\275 ;q\210\204\307 \341!\210\334\342!\210\204\341 <\203\341 \343 \230\203\341 \344\345!\210`\262\346 \210 ?\205\342q\210=\204\376 \347 \210\312\262\202,\310!\203\350!\210\351=\203,\211\211\205 \307\310 !\211!\205 )\203+\352!\210\353 \210\210>?;\211\205B\307\310 !\211!\205B )\203J;q\210\203W\354!\210\202ub\210\204d\355\356\357\"\210\360p\333\"b\210\211\203t\361`\"\210\210\211\204\331\211\205\212\307\310 !\211!\205\212 )\203\273rq\2104\362=\204\272\211\211\205\253\307\310 !\211!\205\253 )\203\266\352!\210\353 \210\210\312@)\211\211\205\315\307\310 !\211!\205\315 )\203\330\352!\210\353 \210\210?\205\342\312\211)\207" [gnus-article-buffer buffer gnus-article-mime-handles gnus-article-mime-handle-alist gnus-newsgroup-name gnus-group-is-exiting-p gnus-set-global-variables buffer-live-p get-buffer mm-destroy-parts nil gnus-kill-save-kill-buffer gnus-async-halt-prefetch gnus-group-quit-config t gnus-score-adaptive gnus-score-save gnus-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 "^[^:]+:" substring 0 gnus-run-hooks gnus-exit-group-hook gnus-summary-update-info gnus-summary-prepare-exit-hook gnus-close-group gnus-group-jump-to-group gnus-summary-exit-hook gnus-group-group-name gnus-group-next-unread-group 1 gnus-article-stop-animations gnus-deaden-summary bury-buffer gnus-summary-mode kill-buffer gnus-prune-buffers gnus-handle-ephemeral-exit gnus-configure-windows group force get-buffer-window set-window-point gnus-sticky-article-mode gnus-original-article-buffer major-mode gnus-single-article-buffer gnus-newsgroup-adaptive gnus-use-scoring gnus-use-cache gnus-suppress-duplicates gnus-use-trees gnus-group-buffer gnus-summary-next-group-on-exit gnus-kill-summary-on-exit gnus-select-method gnus-current-select-method gnus-article-current] 16 (#$ . 246912) nil]) (defalias 'gnus-summary-quit 'gnus-summary-exit-no-update) #@97 Quit reading current newsgroup without updating read article info. (fn &optional NO-QUESTIONS) (defalias 'gnus-summary-exit-no-update #[256 "\306\211\307!\204 \310!\204 \204 \311\312!\205 \313 \210\314\315!\210\f\211 \2054 \316\317 !\211!\2054 )\203N r\fq\210\320 \210\321 \210\322#!\210\323\211$#)%\204\223 \f\211 \211\205e \316\317 !\211!\205e )\203p \324!\210\325 \210\210&\211 \211\205\204 \316\317 !\211!\205\204 )\203\217 \324!\210\325 \210\210\323'(\204\243 \326 \210\327\330\331\"\210\202\313 \327\330\331\"\210\332!\210)\211 \211\205\277 \316\317 !\211!\205\277 )\203\312 \324!\210\325 \210\210%\204\323 \323'*\203\333 \333 \210\334!\210\317\f!\203\351 \335\f!\210\323\310!\204\367 \336\323\306#\210\337!\203\340\341!\210\320 \210\211\205 \342!*\207" [gnus-newsgroup-name gnus-group-is-exiting-p gnus-group-is-exiting-without-update-p gnus-expert-user gnus-article-buffer buffer t gnus-group-quit-config gnus-ephemeral-group-p gnus-y-or-n-p "Discard changes to this group and exit? " gnus-async-halt-prefetch run-hooks gnus-summary-prepare-exit-hook buffer-live-p get-buffer gnus-article-stop-animations gnus-stop-downloads mm-destroy-parts nil kill-buffer gnus-prune-buffers gnus-deaden-summary gnus-configure-windows group force gnus-close-group gnus-tree-close gnus-async-prefetch-remove-group bury-buffer gnus-group-update-group gnus-group-goto-group gnus-group-next-unread-group 1 gnus-handle-ephemeral-exit gnus-article-mime-handles gnus-article-mime-handle-alist gnus-single-article-buffer gnus-original-article-buffer gnus-article-current gnus-kill-summary-on-exit gnus-summary-buffer gnus-use-trees] 8 (#$ . 249634) nil]) #@130 Handle movement when leaving an ephemeral group. The state which existed when entering the ephemeral is reset. (fn QUIT-CONFIG) (defalias 'gnus-handle-ephemeral-exit #[257 "\306@!\204! \211\205 \306\307 !\211!\205 )\205\331 \310\311\312\"\207\211@q\210\211A\311=\2040 \313\n!\314\315!\203< \316 \210\202b \314\317!\203b r\f\211\205T \306\307 !\211!\205T )\204[ q\210\fq\210\316 \210)\211A\320=\204p \211A\321=\203\214 \322\323!\203\203 \323J\203\203 \310\321\312\"\210\202\222 \310A\312\"\210\202\222 \310A\312\"\210\314\315!\205\331 \324>\203\302 \325\267\202\264 \326\327\330\331#\202\265 \326\327\331\211#\202\265 \330\332U\203\324 \310\333\312\"\210\202\324 \334\267\202\324 \326\327!\210\202\324 \326\327\331\"\210\335 \210\336 \207" [gnus-group-buffer buffer gnus-newsgroup-name gnus-current-select-method gnus-summary-buffer gnus-auto-select-on-ephemeral-exit buffer-live-p get-buffer gnus-configure-windows group force gnus-find-method-for-group derived-mode-p gnus-summary-mode gnus-set-global-variables gnus-article-mode article pick boundp gnus-pick-mode (next-noselect next-unread-noselect) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (next-noselect 164 next-unread-noselect 172)) gnus-summary-next-subject 1 nil t 0 summary #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (next 200 next-unread 207)) gnus-summary-recenter gnus-summary-position-point] 6 (#$ . 251325)]) (defvar gnus-dead-summary-mode-map (byte-code "\300 \301!\210\302\303\304#\210\305\211\203 \211@\306\304#\210A\266\202\202 \210\307\211\2035 \211@\306\310#\210A\266\202\202\" \210\211\207" [make-keymap suppress-keymap substitute-key-definition undefined gnus-summary-wake-up-the-dead ("" " " "" [delete]) define-key ("q" "Q") bury-buffer] 7)) #@113 Non-nil if Gnus-Dead-Summary mode is enabled. Use the command `gnus-dead-summary-mode' to change this variable. (defvar gnus-dead-summary-mode nil (#$ . 253165)) (make-variable-buffer-local 'gnus-dead-summary-mode) #@308 Minor mode for Gnus summary buffers. If called interactively, enable Gnus-Dead-Summary mode if ARG is positive, and disable it if ARG is zero or negative. If called from Lisp, also enable the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'; disable the mode otherwise. (fn &optional ARG) (defalias 'gnus-dead-summary-mode #[256 "\301 \302=\203 ?\202 \303!\304V\305\306!\204 \307\310\311\203% \312\202& \313\"\210\314\315!\203J \301 \203: \211\301 \232\203J \316\317\320\203E \321\202F \322#\266\210\323 \210\207" [gnus-dead-summary-mode current-message toggle prefix-numeric-value 0 derived-mode-p gnus-summary-mode nil run-hooks gnus-dead-summary-mode-hook gnus-dead-summary-mode-on-hook gnus-dead-summary-mode-off-hook called-interactively-p any " in current buffer" message "Gnus-Dead-Summary mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 253387) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) (defvar gnus-dead-summary-mode-hook nil) (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\211%\207" [gnus-dead-summary-mode-map gnus-dead-summary-mode-hook variable-documentation put "Hook run after entering or leaving `gnus-dead-summary-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode gnus-dead-summary-mode " Dead" nil] 6) #@61 Make the current summary buffer into a dead summary buffer. (defalias 'gnus-deaden-summary #[0 "\302!\203 rq\210 \203 \303p!\210)p\301\304!\210\305 \306\307\"\2055 \310\311\312\211\224#\313\311\312\224\"Q\314\"\210\315 \207" [gnus-dead-summary gnus-dead-summary-mode buffer-live-p kill-buffer 1 buffer-name string-match "Summary" rename-buffer substring 0 "Dead " t bury-buffer] 7 (#$ . 254796)]) #@49 Kill or deaden the summary BUFFER. (fn BUFFER) (defalias 'gnus-kill-or-deaden-summary #[257 "\212\306!\203L \204L r\211q\210 \211\211\205! \306\307\n!\211!\205! \n)\203, \310!\210\311 \210\210 \211\211\205? \306\307\n!\211!\205? \n)\203J \310!\210\311 \210\210)\f\203\222 \203q \211\211\205e \306\307\n!\211!\205e \n)\203q r\211q\210\312 \210)\211\211\211\205\203 \306\307\n!\211!\205\203 \n)\205\215 \310!\210\311 \262\202\256 \211\211\205\243 \306\307\n!\211!\205\243 \n)\205\256 r\211q\210\313 ))\207" [gnus-single-article-buffer gnus-article-buffer buffer gnus-original-article-buffer gnus-kill-summary-on-exit gnus-use-trees buffer-live-p get-buffer kill-buffer gnus-prune-buffers gnus-tree-close gnus-deaden-summary] 5 (#$ . 255207)]) #@48 Wake up the dead summary buffer. (fn &rest _) (defalias 'gnus-summary-wake-up-the-dead #[128 "\300\301!\210\302 \303\304\"\203 \305\306\307\211\224#\306\307\225\"P\310\"\210\210\311\312\313\"\207" [gnus-dead-summary-mode -1 buffer-name string-match "Dead " rename-buffer substring 0 t gnus-message 3 "This dead summary is now alive again"] 7 (#$ . 255972) nil]) #@55 Describe the current newsgroup. (fn &optional FORCE) (defalias 'gnus-summary-describe-group #[256 "\301\"\207" [gnus-newsgroup-name gnus-group-describe-group] 4 (#$ . 256345) "P"]) #@41 Describe summary mode commands briefly. (defalias 'gnus-summary-describe-briefly #[0 "\300\301\302\303\304!#\207" [gnus-message 6 "%s" substitute-command-keys "\\<gnus-summary-mode-map>\\[gnus-summary-next-page]:Select \\[gnus-summary-next-unread-article]:Forward \\[gnus-summary-prev-unread-article]:Backward \\[gnus-summary-exit]:Exit \\[gnus-info-find-node]:Run Info \\[gnus-summary-describe-briefly]:This help"] 5 (#$ . 256535) nil]) #@268 Exit current newsgroup and then select next unread newsgroup. If prefix argument NO-ARTICLE is non-nil, no article is selected initially. If TARGET-GROUP, go to this group. If BACKWARD, go to previous group instead. (fn &optional NO-ARTICLE TARGET-GROUP BACKWARD) (defalias 'gnus-summary-next-group #[768 "\304 \210p\305\306\307!\210\211?\205\227 q\210\310!\210\206* \n\311=\203& \312!\202* \313\n\"\262\204Z \314\315\316\"\210\307\262\211\205I \317\320 !\211!\205I )\203S q\210\306 \210\321\322!\210\202\n \310!\210\323 \211\307=\204p \211\203\215 \211\324U\204\215 \325\305 \317!\205 \305\n&\203\215 \307\262\202\223 \262\305\262\210\202\n \207" [gnus-newsgroup-name gnus-group-buffer gnus-keep-same-level buffer gnus-async-halt-prefetch nil gnus-summary-exit t gnus-group-jump-to-group best gnus-summary-best-group gnus-summary-search-group gnus-message 5 "Returning to the group buffer" buffer-live-p get-buffer gnus-run-hooks gnus-group-no-more-groups-hook gnus-group-group-unread 0 gnus-summary-read-group] 15 (#$ . 256985) "P"]) #@170 Exit current newsgroup and then select previous unread newsgroup. If prefix argument NO-ARTICLE is non-nil, no article is selected initially. (fn &optional NO-ARTICLE) (defalias 'gnus-summary-prev-group #[256 "\300\301\302#\207" [gnus-summary-next-group nil t] 5 (#$ . 258060) "P"]) #@360 Go to the first subject satisfying any non-nil constraint. If UNREAD is non-nil, the article should be unread. If UNDOWNLOADED is non-nil, the article should be undownloaded. If UNSEEN is non-nil, the article should be unseen as well as unread. Returns the article selected or nil if there are no matching articles. (fn &optional UNREAD UNDOWNLOADED UNSEEN) (defalias 'gnus-summary-first-subject #[768 "\204 \305\306\307\"\210\310\207\204! \204! \211\204! \311@8b\210@@\207\211\203] \211@@\211 >\206Q \2039 \211\n>\206P \203C \211 >\206P \205P \211\f>\205P \211\n>?\262\203] \211A\262\202\" \211\203m \311@8b\210\211@@\202\275 \305\306\312\205v \313\205| \314\205\202 \315\316\310E\"\211G\306U\203\232 \317\320\260\202\270 \211G\311U\203\253 \211@\320A@Q\202\270 \211G\321U\203\267 \211@\202\270 \322\266\204#\210\310\323 \210\207" [gnus-newsgroup-data gnus-newsgroup-unfetched gnus-newsgroup-unreads gnus-newsgroup-undownloaded gnus-newsgroup-unseen gnus-message 3 "No articles in the group" nil 2 "No more%s articles" " unread" " undownloaded" " unseen" delq "," ", or" 1 "" gnus-summary-position-point] 16 (#$ . 258352) "P"]) #@257 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. (fn N &optional UNREAD DONT-DISPLAY) (defalias 'gnus-summary-next-subject #[769 "\300W\301!\211\300V\203, \203 \302!\202 \303!\203, \211S\211\262\300U\204 \304 \210\202 \211\300U\204A \305\306\307\203> \310\202? \311#\210\204K \312 \210\313 \210\207" [0 abs gnus-summary-find-prev gnus-summary-find-next gnus-summary-show-thread gnus-message 7 "No more%s articles" " unread" "" gnus-summary-recenter gnus-summary-position-point] 9 (#$ . 259516) "p"]) #@46 Go to next N'th unread summary line. (fn N) (defalias 'gnus-summary-next-unread-subject #[257 "\300\301\"\207" [gnus-summary-next-subject t] 4 (#$ . 260205) "p"]) #@133 Go to previous N'th summary line. If optional argument UNREAD is non-nil, only unread article is selected. (fn N &optional UNREAD) (defalias 'gnus-summary-prev-subject #[513 "\300[\"\207" [gnus-summary-next-subject] 5 (#$ . 260377) "p"]) #@50 Go to previous N'th unread summary line. (fn N) (defalias 'gnus-summary-prev-unread-subject #[257 "\300[\301\"\207" [gnus-summary-next-subject t] 4 (#$ . 260624) "p"]) #@78 Insert the subject header for ARTICLES in the current buffer. (fn ARTICLES) (defalias 'gnus-summary-goto-subjects #[257 "\212\211\211\203 \211@\301\302\"\210A\266\202\202 \210)\303\304\"!\210\305 \207" [gnus-newsgroup-limit gnus-summary-goto-subject t gnus-summary-limit append gnus-summary-position-point] 6 (#$ . 260800)]) #@135 Go to the subject line of ARTICLE. If FORCE, also allow jumping to articles not currently shown. (fn ARTICLE &optional FORCE SILENT) (defalias 'gnus-summary-goto-subject #[769 "\247\204\n \301\302\"\210`\303\"\211\2041 \2031 \304\247\204% \305!\205& \306#\2031 \303\"\262b\210\211\204G \204C \307\310\311#\210\312\202V \3138\211b\210\314!\266\315 \210\207" [gnus-newsgroup-data error "Article %s is not a number" gnus-data-find-in gnus-summary-insert-subject mail-header-p t gnus-message 3 "Can't find article %d" nil 2 gnus-summary-set-article-display-arrow gnus-summary-position-point] 9 (#$ . 261139) "nArticle number: "]) #@139 Make the summary buffer take up the entire Emacs frame. Given a prefix, will force an `article' buffer configuration. (fn &optional ARG) (defalias 'gnus-summary-expand-window #[256 "\211\203 \300\301\302\"\207\300\303\302\"\207" [gnus-configure-windows article force summary] 4 (#$ . 261794) "P"]) #@71 Display ARTICLE in article buffer. (fn ARTICLE &optional ALL-HEADER) (defalias 'gnus-summary-display-article #[513 "\211\205 \306\307 !\211!\205 )\203 rq\210\310\311!)\204# \312 \210\313 \210rq\210~\210\314\315 \210) \316 \210)\205z \206E \317\"\320\321!\210\203] \322U\204] \323!\210\324 \210\203r \203r \325!\210\326!\210\327 \236A!\210\207" [gnus-article-buffer buffer inhibit-read-only gnus-newsgroup-charset gnus-article-charset gnus-newsgroup-ignored-charsets buffer-live-p get-buffer derived-mode-p gnus-article-mode gnus-article-setup-buffer gnus-set-global-variables t erase-buffer mm-enable-multibyte gnus-article-prepare gnus-run-hooks gnus-select-article-hook 0 gnus-summary-goto-subject gnus-summary-recenter gnus-possibly-generate-tree gnus-highlight-selected-tree gnus-article-set-window-start gnus-article-ignored-charsets gnus-summary-display-article-function gnus-current-article gnus-use-trees gnus-show-threads gnus-newsgroup-bookmarks] 7 (#$ . 262100)]) #@295 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. (fn &optional ALL-HEADERS FORCE PSEUDO ARTICLE) (defalias 'gnus-summary-select-article #[1024 "\306\307!\204 q\210\211\206# \310`\311\"\211\205 \312!\266\310`\313\"\206# \314 \205( \315\316\2048 \317!\2038 \320\321!\210rq\210\n\203d \203} \f\203} \322 !\203} \fA=\203} \f@\232\203} \322!\203} \n\204y \203} \322!\203} =\203} \203\264 \323\"\210 \211 \205\227 \324\322!\211!\205\227 )\203\250 r q\210\204\247 \325 \210)\326 \236A!\210\202\265 \327*\207" [gnus-summary-buffer gnus-summary-display-article-function gnus-single-article-buffer gnus-current-article gnus-article-current gnus-article-buffer derived-mode-p gnus-summary-mode get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject t nil gnus-summary-article-pseudo-p error "This is a pseudo-article" get-buffer gnus-summary-display-article buffer-live-p mm-disable-multibyte gnus-article-set-window-start old gnus-newsgroup-name gnus-original-article-buffer buffer gnus-article-decoded-p gnus-newsgroup-bookmarks] 10 (#$ . 263116)]) #@69 Display buttons for signed/encrypted parts and verify/decrypt them. (defalias 'gnus-summary-force-verify-and-decrypt #[0 "\304\211\305\306\307\310D\"\311\312\313\",\207" [gnus-buttonized-mime-types gnus-article-emulate-mime mm-decrypt-option mm-verify-option known t append "multipart/signed" "multipart/encrypted" gnus-summary-select-article nil force] 6 (#$ . 264438) nil]) #@237 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. (fn &optional UNREAD SUBJECT BACKWARD PUSH) (defalias 'gnus-summary-next-article #[1024 "\306\307!\204 q\210\310#\203R \311\312`\313\"\211\205 \314!\266\312`\315\"\206( \316 !\204O \317\312`\313\"\211\2058 \314!\266\312`\315\"\206C \316 \"\211A@\262\n=\203R \320 \207\203g \203g \321 \203g \320 \210\322\323\324\"\207\f\203\207 \204\207 \204\207 \325\203} S\202\200 -T\326\327e`\"#\207\330.!\204\223 \331.!\210/r0q\210`)p1\332=\203\253 \333.!\202\260 \3341\"2\203\271 \204\322 2\335=?\205D\322\323\336\n\203\315 \337\202\316 \340#\202D2\335=\204\360 2\341=\203\344 \204\360 2\342=\203&\343 \203&\330.!\203\374 \344 \202D2\335=\204 \322\323\345\n\203\337\202\340\203\346P\202\347$\210\350\326#\202D3\247\205Dp=\2039\351\352\353\"!\210\354.\n %\207" [gnus-summary-buffer gnus-newsgroup-data gnus-canceled-mark gnus-auto-select-same gnus-auto-extend-newsgroup gnus-newsgroup-begin derived-mode-p gnus-summary-mode gnus-summary-search-forward gnus-summary-display-article get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-data-find-in 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 quietly "No more%s articles" " unread" "" slightly-quietly almost-quietly gnus-summary-last-article-p gnus-summary-exit "No more%s articles (%s)..." "selecting " "exiting" gnus-summary-next-group select-window get-buffer-window 0 gnus-summary-walk-group-buffer gnus-newsgroup-end gnus-newsgroup-name last-command-event gnus-group-buffer gnus-keep-same-level gnus-auto-select-next last-input-event] 14 (#$ . 264826) "P"]) #@45 (fn FROM-GROUP CMD UNREAD BACKWARD START) (defalias 'gnus-summary-walk-group-buffer #[1285 "\306\307\310\211\211\211\211r q\210b\210\n\311=\203 \312 !\202\" \313 \n\"\262)?\205\276 \314\315 \2035 \316\2026 \317\203R \320 !\204R \314\321\322!\323\n\f\"@$\202Z \314\324\322! ##\262\325!\211\262@\262\307\262\236\203\225 p\326 !\210\203} \327!\210\330 \236A@!\210\331 \262\326!\266\310\262\202% \232\203\266 \203\246 \320 !\203\254 \332 \210\202% \333\310 #\210\202% A B\202% )\207" [cursor-in-echo-area gnus-group-buffer gnus-keep-same-level gnus-newsgroup-name gnus-newsrc-hashtb unread-command-events ((14 (gnus-group-next-unread-group 1)) (16 (gnus-group-prev-unread-group 1))) t nil best gnus-summary-best-group gnus-summary-search-group format "No more%s articles%s " " unread" "" gnus-ephemeral-group-p " (Type %s for %s [%s])" single-key-description gethash " (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] 22 (#$ . 266832)]) #@42 Select unread article after current one. (defalias 'gnus-summary-next-unread-article #[0 "\303\304=?\206 \305\306`\307\"\211\205 \310!\266\306`\311\"\206 \312 ! \205V \313\314\206@ \306`\307\"\211\2055 \310!\266\306`\311\"\206@ \312 \n\"\3158\262\211\205T \316!\205T \211\317H\266\202\"\207" [gnus-summary-goto-unread gnus-auto-select-same gnus-newsgroup-data 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 nil gnus-data-find-in 3 mail-header-p 1] 7 (#$ . 267920) nil]) #@132 Select the article before the current one. If UNREAD is non-nil, only unread articles are selected. (fn &optional UNREAD SUBJECT) (defalias 'gnus-summary-prev-article #[512 "\300\301#\207" [gnus-summary-next-article t] 6 (#$ . 268520) "P"]) #@43 Select unread article before current one. (defalias 'gnus-summary-prev-unread-article #[0 "\303\304=?\206 \305\306`\307\"\211\205 \310!\266\306`\311\"\206 \312 ! \205V \313\314\206@ \306`\307\"\211\2055 \310!\266\306`\311\"\206@ \312 \n\"\3158\262\211\205T \316!\205T \211\317H\266\202\"\207" [gnus-summary-goto-unread gnus-auto-select-same gnus-newsgroup-data 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 nil gnus-data-find-in 3 mail-header-p 1] 7 (#$ . 268770) nil]) #@449 Show next page of the selected article. If at the end of the current article, select the next article. LINES says how many lines should be scrolled up. If CIRCULAR is non-nil, go to the start of the article instead of selecting the next article when reaching the end of the current article. If STOP is non-nil, just stop when reaching the end of the message. Also see the variable `gnus-article-skip-boring'. (fn &optional LINES CIRCULAR STOP) (defalias 'gnus-summary-next-page #[768 "\306 \210\307`\310\"\211\205 \311!\266\307`\312\"\206 \313 \314\315\"\316\204& \317\320!\210\321\322!\210 \236A\n=\203K \323=\203E \324!\204E \325 \210\202\347 \326 \210\202\347 \f\203b \203b AU\203b @-\232\204i \327!\210\202\347 \203\347 \330 \331\332\"\333\334\335\336\337!\340\"\341$\216\211\203\221 \342!\210\343!q\210\202\225 \344!\210\345 !\206\236 \346 \262)\266\211\203\347 \204\260 .\203\270 \347\350\351\"\210\202\347 \203\302 \352 \210\202\347 \203\316 \347\350\351\"\210\202\347 \204\347 \323=\203\344 \324!\204\344 \325 \210\202\347 \326 \210\353 \210\354 \207" [gnus-article-buffer gnus-newsgroup-reads gnus-canceled-mark gnus-summary-goto-unread gnus-current-article gnus-article-current 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 article never gnus-summary-last-article-p gnus-summary-next-article gnus-summary-next-unread-article gnus-summary-display-article selected-window gnus-get-buffer-window visible make-byte-code 0 "\301\300!\207" vconcat vector [select-window] 2 select-window window-buffer pop-to-buffer gnus-article-next-page gnus-article-only-boring-p gnus-message 3 "End of message" gnus-summary-beginning-of-article gnus-summary-recenter gnus-summary-position-point gnus-newsgroup-name gnus-summary-stop-at-end-of-message] 15 (#$ . 269372) "P"]) #@209 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. (fn &optional LINES MOVE) (defalias 'gnus-summary-prev-page #[512 "\305`\306\"\211\205 \307!\266\305`\310\"\206 \311 \312\313\"\314\315\316!\210 \2035 \n\2035 \nAU\2035 \n@ \232\204< \317!\210\202\241 \320 \210\203\241 \321 \322\323\"\324\325\326\327\330!\331\"\332$\216\211\203g \333!\210\334!q\210\202k \335!\210\336!\262)\266\203\241 \211\203\241 \203\210 \337\340\341\"\210\202\241 \204\241 \f\342=\203\236 \343!\204\236 \344 \210\202\241 \345 \210\266\346 \207" [gnus-article-buffer gnus-current-article gnus-article-current gnus-newsgroup-name gnus-summary-goto-unread get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject get-buffer-window t nil gnus-configure-windows article gnus-summary-display-article gnus-summary-recenter selected-window gnus-get-buffer-window visible make-byte-code 0 "\301\300!\207" vconcat vector [select-window] 2 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] 14 (#$ . 271335) "P"]) #@175 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. (fn &optional LINES) (defalias 'gnus-summary-prev-page-or-article #[256 "\300\301\"\207" [gnus-summary-prev-page t] 4 (#$ . 272689) "P"]) #@207 Scroll up (or down) one line current article. Argument LINES specifies lines to be scrolled up (or down if negative). If no article is selected, then the current article will be selected first. (fn LINES) (defalias 'gnus-summary-scroll-up #[257 "\301\302!\210\303 \210\304\305\211\306#\307=\203[ \310 \311\312\"\313\314\315\316\317!\320\"\321$\216\211\2035 \322!\210\323!q\210\2029 \324!\210\314V\203M \325!\203X \326\327\330\"\210\202X \314W\203X \331[!\210)\266\332 \210\333 \207" [gnus-article-buffer gnus-configure-windows article gnus-summary-show-thread gnus-summary-select-article nil pseudo old selected-window gnus-get-buffer-window visible make-byte-code 0 "\301\300!\207" vconcat vector [select-window] 2 select-window window-buffer pop-to-buffer gnus-article-next-page gnus-message 3 "End of message" gnus-article-prev-page gnus-summary-recenter gnus-summary-position-point] 10 (#$ . 272988) "p"]) #@207 Scroll down (or up) one line current article. Argument LINES specifies lines to be scrolled down (or up if negative). If no article is selected, then the current article will be selected first. (fn LINES) (defalias 'gnus-summary-scroll-down #[257 "\300[!\207" [gnus-summary-scroll-up] 3 (#$ . 273918) "p"]) #@64 Select next article which has the same subject as current one. (defalias 'gnus-summary-next-same-subject #[0 "\301\302\211\303\206 \304`\305\"\211\205 \306!\266\304`\307\"\206 \310 \"\3118\262\211\2052 \312!\2052 \211\313H\266\202\"\207" [gnus-newsgroup-data gnus-summary-next-article nil gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 mail-header-p 1] 7 (#$ . 274233) nil]) #@68 Select previous article which has the same subject as current one. (defalias 'gnus-summary-prev-same-subject #[0 "\301\302\211\303\206 \304`\305\"\211\205 \306!\266\304`\307\"\206 \310 \"\3118\262\211\2052 \312!\2052 \211\313H\266\202\"\207" [gnus-newsgroup-data gnus-summary-prev-article nil gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 mail-header-p 1] 7 (#$ . 274695) nil]) #@71 Select next unread article which has the same subject as current one. (defalias 'gnus-summary-next-unread-same-subject #[0 "\301\302\303\304\206 \305`\306\"\211\205 \307!\266\305`\310\"\206 \311 \"\3128\262\211\2052 \313!\2052 \211\314H\266\202\"\207" [gnus-newsgroup-data gnus-summary-next-article t nil gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 mail-header-p 1] 7 (#$ . 275161) nil]) #@75 Select previous unread article which has the same subject as current one. (defalias 'gnus-summary-prev-unread-same-subject #[0 "\301\302\303\304\206 \305`\306\"\211\205 \307!\266\305`\310\"\206 \311 \"\3128\262\211\2052 \313!\2052 \211\314H\266\202\"\207" [gnus-newsgroup-data gnus-summary-prev-article t nil gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 mail-header-p 1] 7 (#$ . 275639) nil]) #@78 Select the first unread article. Return nil if there are no unread articles. (defalias 'gnus-summary-first-unread-article #[0 "\300\301!\205% \302 \210\300\301!\210\303\304`\305\"\211\205 \306!\266\304`\307\"\206$ \310 !\311 \210\207" [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] 4 (#$ . 276121) 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 #[0 "\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 (#$ . 276599) nil]) #@58 Select the next unseen article. (fn &optional BACKWARD) (defalias 'gnus-summary-next-unseen-article #[256 "\304`\305\"\211\205 \306!\266\304`\307\"\206 \310 \203& \206' \311 !\211\202' \312\">\262\n\203C \313@!\203C \211@A@ U\204G \211A\262\211\203b \313@!\203[ \211@A@ U\204b \211A\262\202G \211\204v \203p \314\315!\202\202 \314\316!\202\202 \317@8b\210\320 \210\211@@\207" [gnus-newsgroup-data-reverse gnus-newsgroup-data gnus-summary-check-current gnus-unread-mark get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject reverse gnus-data-find-in gnus-data-unseen-p message "No previous unseen article" "No next unseen article" 2 gnus-summary-select-article] 6 (#$ . 276919) nil]) #@37 Select the previous unseen article. (defalias 'gnus-summary-prev-unseen-article #[0 "\300\301!\207" [gnus-summary-next-unseen-article t] 2 (#$ . 277671) nil]) #@110 Place the point on the subject line of the first unseen article. Return nil if there are no unseen articles. (defalias 'gnus-summary-first-unseen-subject #[0 "\300\301\211\302#\205 \303 \210\300\301\211\302#\304 \210\207" [gnus-summary-first-subject nil t gnus-summary-show-thread gnus-summary-position-point] 4 (#$ . 277837) nil]) #@157 Place the point on the subject line of the first unseen and unread article. If all article have been seen, on the subject line of the first unread article. (defalias 'gnus-summary-first-unseen-or-unread-subject #[0 "\300\301\211\302#\205 \303 \210\300\301\211\302#?\205 \300\302!\205 \303 \210\300\302!\304 \210\207" [gnus-summary-first-subject nil t gnus-summary-show-thread gnus-summary-position-point] 4 (#$ . 278177) nil]) #@64 Select the first article. Return nil if there are no articles. (defalias 'gnus-summary-first-article #[0 "\300 \205# \301 \210\300 \210\302\303`\304\"\211\205 \305!\266\303`\306\"\206\" \307 !\310 \210\207" [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] 4 (#$ . 278613) nil]) #@178 Select the unread article with the highest score. If given a prefix argument, select the next unread article that has a score higher than the default score. (fn &optional ARG) (defalias 'gnus-summary-best-unread-article #[256 "\211\203 \300 \202 \301 \211\203 \302!\202 \303\304!\207" [gnus-summary-better-unread-subject gnus-summary-best-unread-subject gnus-summary-goto-article error "No unread articles"] 4 (#$ . 279061) "P"]) #@51 Select the unread subject with the highest score. (defalias 'gnus-summary-best-unread-subject #[0 "\304\305\211\2036 @A@ U\203/ @@\n\236A\206 \206 \306\211\262V\203/ \211\262@@\262A\262\202 \203> \307!\210\310 \210\207" [gnus-newsgroup-data gnus-unread-mark gnus-newsgroup-scored gnus-summary-default-score -1000000 nil 0 gnus-summary-goto-subject gnus-summary-position-point] 6 (#$ . 279503) nil]) #@74 Select the first unread subject that has a score over the default score. (defalias 'gnus-summary-better-unread-subject #[0 "\304@@\211\262\203, @A@ U\203% \211\n\236A\206 \206 \305 V\204, A\262\202 \211\2034 \306!\210\307 \210\207" [gnus-newsgroup-data gnus-unread-mark gnus-newsgroup-scored gnus-summary-default-score nil 0 gnus-summary-goto-subject gnus-summary-position-point] 4 (#$ . 279926) nil]) #@53 Go to the last displayed subject line in the group. (defalias 'gnus-summary-last-subject #[0 "\206 \302 !\211@\211@\262\211\205 \303!\207" [gnus-newsgroup-data-reverse gnus-newsgroup-data reverse gnus-summary-goto-subject] 3 (#$ . 280345)]) #@301 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. (fn ARTICLE &optional ALL-HEADERS FORCE) (defalias 'gnus-summary-goto-article #[769 ";\203 \300\301\"\203 \302!\2021 ;\203 \303!\262\304\"\203* \305\"\2021 \306\307\310#\210\311\312 \210\207" [string-match "@\\|%40" gnus-summary-refer-article string-to-number gnus-summary-goto-subject gnus-summary-display-article gnus-message 4 "Couldn't go to article %s" nil gnus-summary-position-point] 7 (#$ . 280599) (byte-code "\302\303\304\305\"\" \306E\207" [gnus-newsgroup-limit current-prefix-arg gnus-completing-read "Article number or Message-ID" mapcar int-to-string t] 5)]) #@36 Go to the previously read article. (defalias 'gnus-summary-goto-last-article #[0 "\205 \301\302\303#\304 \210\207" [gnus-last-article gnus-summary-goto-article nil t gnus-summary-position-point] 4 (#$ . 281452) nil]) #@106 Pop one article off the history and go to the previous. NUMBER articles will be popped off. (fn NUMBER) (defalias 'gnus-summary-pop-article #[257 "\301\233\211\262A\211\203 \302@\301\303#\210\202 \304\305!\210\210\306 \207" [gnus-newsgroup-history nil gnus-summary-goto-article t error "Article history empty" gnus-summary-position-point] 6 (#$ . 281679) "p"]) #@122 Limit the summary buffer to the next N articles. If not given a prefix, use the process marked articles instead. (fn N) (defalias 'gnus-summary-limit-to-articles #[257 "\301!\302\303!\262\304 \210\207" [gnus-newsgroup-processable gnus-summary-work-articles nil gnus-summary-limit gnus-summary-position-point] 4 (#$ . 282055) "P"]) #@89 Restore the previous limit. If given a prefix, remove all limits. (fn &optional TOTAL) (defalias 'gnus-summary-pop-limit #[256 "\211\203\n \302\303\"C \204 \304\305!\210\306\307\310\"\311 \210\207" [gnus-newsgroup-headers gnus-newsgroup-limits mapcar mail-header-number error "No limit to pop" gnus-summary-limit nil pop gnus-summary-position-point] 4 (#$ . 282397) "P"]) #@198 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. (fn SUBJECT &optional HEADER NOT-MATCHING) (defalias 'gnus-summary-limit-to-subject #[769 "\204 \300\262\301\232?\205- \302\206 \300\303\304\211&\211\204% \305\306\"\210\307!\262\310 \210\207" ["subject" "" gnus-summary-find-matching all nil error "Found no matches for \"%s\"" gnus-summary-limit gnus-summary-position-point] 10 (#$ . 282780) (byte-code "\301\203 \302\202\n \303!\304E\207" [current-prefix-arg read-string "Exclude subject (regexp): " "Limit to subject (regexp): " nil] 3)]) #@186 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. (fn FROM &optional NOT-MATCHING) (defalias 'gnus-summary-limit-to-author #[513 "\300\301#\207" [gnus-summary-limit-to-subject "from"] 6 (#$ . 283449) (byte-code "\302\303`\304\"\211\205\f \305!\266\303`\306\"\206 \307 \"\3108\262\211\205( \311\312H!@\313 \2031 \314\2022 \315\203= \316\317Q\202> \320P\321\211$\266\202 D\207" [gnus-newsgroup-data current-prefix-arg gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 mail-header-parse-address 2 read-string "Exclude author (regexp" "Limit to author (regexp" ", default \"" "\"): " "): " nil] 7)]) #@225 Limit the summary buffer to articles with the given RECIPIENT. If NOT-MATCHING, exclude RECIPIENT. To and Cc headers are checked. You need to include them in `nnmail-extra-headers'. (fn RECIPIENT &optional NOT-MATCHING) (defalias 'gnus-summary-limit-to-recipient #[513 "\301\232?\205q \302>\203 \303\304\302B\305\306\211&\202& \307\310\311\"\210\312\310!\210\306\313>\203; \303\304\313B\305\306\211&\202E \307\310\314\"\210\312\310!\210\306\203\\ \315\316\317\320\321\322!\323\"\324\325%\"\202_ \244\211\204i \326\327\"\210\330!\266\203\331 \210\207" [nnmail-extra-headers "" To gnus-summary-find-matching extra all nil gnus-message 1 "`To' isn't present in `nnmail-extra-headers'" sit-for Cc "`Cc' isn't present in `nnmail-extra-headers'" mapcar make-byte-code 257 "\211\300>\205 \211\207" vconcat vector [] 3 "\n\n(fn A)" error "Found no matches for \"%s\"" gnus-summary-limit gnus-summary-position-point] 11 (#$ . 284234) (byte-code "\301\302\303\203 \304\202\f \305\"!D\207" [current-prefix-arg read-string format "%s recipient (regexp): " "Exclude" "Limit to"] 4)]) #@234 Limit the summary buffer to articles with the given ADDRESS. If NOT-MATCHING, exclude ADDRESS. To, Cc and From headers are checked. You need to include `To' and `Cc' in `nnmail-extra-headers'. (fn ADDRESS &optional NOT-MATCHING) (defalias 'gnus-summary-limit-to-address #[513 "\301\232?\205\307 \302>\203 \303\304\302B\305\306\211&\202& \307\310\311\"\210\312\310!\210\313\314>\203; \303\304\314B\305\306\211&\202E \307\310\315\"\210\312\310!\210\313\303\316\305\306\211&\203\242 \313=\203v \313=\203c \211\202\265 \317\320\321\322\323\324!\325\"\326\327%\"\202\265 \317\320\321\322\323\324!\325\"\326\327%\313=\203\216 \202\236 \317\320\321\322\323\324\n!\325\"\326\327%\"\"\202\265 \313=?\205\252 \313=?\205\262 \244\244\211\204\277 \330\331\"\210\332!\266\204\333 \210\207" [nnmail-extra-headers "" To gnus-summary-find-matching extra all nil gnus-message 1 "`To' isn't present in `nnmail-extra-headers'" sit-for t Cc "`Cc' isn't present in `nnmail-extra-headers'" "from" mapcar make-byte-code 257 "\211\300>@\207" vconcat vector [] 3 "\n\n(fn A)" error "Found no matches for \"%s\"" gnus-summary-limit gnus-summary-position-point] 14 (#$ . 285341) (byte-code "\301\302\303\203 \304\202\f \305\"!D\207" [current-prefix-arg read-string format "%s address (regexp): " "Exclude" "Limit to"] 4)]) #@15 (fn HEADER) (defalias 'gnus-summary-limit-strange-charsets-predicate #[257 "\211\300H\301HP\302\211GS\303\211W\2033 \211\304\305\306TH!\"\262\307\310\"\203+ \311\262\210\211T\262\202 \266\207" [1 2 nil 0 format "%s" char-charset string-match "unicode\\|big\\|japanese" t] 12 (#$ . 286686)]) #@137 Limit to articles where PREDICATE returns non-nil. PREDICATE will be called with the header structures of the articles. (fn PREDICATE) (defalias 'gnus-summary-limit-to-predicate #[257 "\302\303 \211\203 \211@!\203 \211\304HB\262A\266\202\202 \210\305\237!)\207" [case-fold-search gnus-newsgroup-headers nil t 0 gnus-summary-limit] 6 (#$ . 286999)]) #@216 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. (fn AGE &optional YOUNGER-P) (defalias 'gnus-summary-limit-to-age #[513 "\301!\302\211\211\211\211A\262\242\211\262\203j \303\3048!\203 \3048\304H\211\262\203 \305\306\211\307\232\2034 \310\202K \311\312\313#\206K \314!\315\312\316\313%\210\211\262\262!\"\262\203\\ \211\202^ \211?\203 @B\262\202 \317\237!\266\206\320 \210\207" [gnus-newsgroup-data days-to-time nil mail-header-p 3 time-less-p time-since "" (0 0) get-text-property 0 gnus-time safe-date-to-time put-text-property 1 gnus-summary-limit gnus-summary-position-point] 18 (#$ . 287366) (byte-code "\301\211\204G \203 \302\303!\202 \302\304!\262\211G\305V\203\" \306!\262\211\247\203< \307\262\211\305W\203 ?\262\211\310_\262\202 \311\312!\210\313\314!\210\202 \211D\207" [current-prefix-arg nil read-string "Limit to articles younger than (in days, older when negative): " "Limit to articles older than (in days, younger when negative): " 0 read t -1 message "Please enter a number." sleep-for 1] 5)]) #@111 Limit the summary buffer to articles that match an `extra' header. (fn HEADER REGEXP &optional NOT-MATCHING) (defalias 'gnus-summary-limit-to-extra #[770 "\300\232?\205$ \301\302B\303\304\211&\211\204 \305\306\"\210\307!\262\310 \210\207" ["" gnus-summary-find-matching extra all nil error "Found no matches for \"%s\"" gnus-summary-limit gnus-summary-position-point] 10 (#$ . 288568) (byte-code "\302\303\203\n \304\202 \305\306\307 \"\310\311\211\307 @!&!\211\312\313\314\203% \315\202& \316#!E\207" [current-prefix-arg gnus-extra-headers intern gnus-completing-read "Exclude extra header" "Limit extra header" mapcar symbol-name t nil read-string format "%s header %s (regexp): " "Exclude" "Limit to"] 9)]) #@78 Limit the summary buffer to the predicated in the `display' group parameter. (defalias 'gnus-summary-limit-to-display-predicate #[0 "\204 \303\304!\210\305 \211\203# \211@ \203 \nB\262\211A\262)\202\n \210\306!\266\307 \207" [gnus-newsgroup-display gnus-newsgroup-articles gnus-number error "There is no `display' group parameter" nil gnus-summary-limit gnus-summary-position-point] 4 (#$ . 289301) nil]) #@141 Limit the summary buffer to articles that are not marked as read. If ALL is non-nil, limit strictly to unread articles. (fn &optional ALL) (defalias 'gnus-summary-limit-to-unread #[256 "\211\203\n \306\307!!\207\306 \n \f \n \f \257\f\310\"\207" [gnus-unread-mark gnus-del-mark gnus-read-mark gnus-ancient-mark gnus-killed-mark gnus-spam-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] 14 (#$ . 289723) "P"]) #@165 Limit the summary buffer to articles that have headers that match MATCH. If REVERSE (the prefix), limit to articles that don't match. (fn MATCH &optional REVERSE) (defalias 'gnus-summary-limit-to-headers #[513 "\300\301#\207" [gnus-summary-limit-to-bodies t] 6 (#$ . 290294) "sMatch headers (regexp): \nP"]) #@173 Limit the summary buffer to articles that have bodies that match MATCH. If REVERSE (the prefix), limit to articles that don't match. (fn MATCH &optional REVERSE HEADERSP) (defalias 'gnus-summary-limit-to-bodies #[769 "\306\211\211\211\211\211\211\211\211\211 \211\203h \211@\306 \307\310\211\306@$\210)rq\210\311 \210\310 \203B \312\306\310#\202H \313\306\310#\211\203P \203X \211\204^ \203^ @B\262)\210)A\266\202\202 \210\211\204t \314\315!\210\202x \316!\210. \210\317 \207" [gnus-display-mime-function gnus-auto-center-summary gnus-updated-mode-lines gnus-summary-display-arrow gnus-break-pages gnus-keep-backlog nil gnus-summary-select-article t article-goto-body re-search-backward re-search-forward message "No messages matched" gnus-summary-limit gnus-summary-position-point gnus-use-article-prefetch gnus-article-prepare-hook gnus-select-article-hook gnus-newsgroup-data gnus-mark-article-hook gnus-article-buffer case-fold-search] 13 (#$ . 290612) "sMatch body (regexp): \nP"]) #@160 Limit the summary buffer to articles that aren't part on any thread. If THREADSP (the prefix), limit to articles that are in threads. (fn &optional THREADSP) (defalias 'gnus-summary-limit-to-singletons #[256 "\301\211\211\211\2034 \211@\211@;\203( \211A\211\203$ \211@\211B\262A\266\202\202 \210\202- \211B\262A\266\202\202 \210\211\211\203c \211@\302!\262\203L G\303V\204W \204\\ G\303U\203\\ \244\262A\266\202\2026 \210\204o \304\305!\210\202s \306!\210\307 \207" [gnus-newsgroup-threads nil gnus-articles-in-thread 1 message "No messages matched" gnus-summary-limit gnus-summary-position-point] 10 (#$ . 291638) "P"]) #@129 Limit the summary buffer to replied articles. If UNREPLIED (the prefix), limit to unreplied articles. (fn &optional UNREPLIED) (defalias 'gnus-summary-limit-to-replied #[256 "\211\203 \302\303 \"!\210\202 \302 !\210\304 \207" [gnus-newsgroup-articles gnus-newsgroup-replied gnus-summary-limit gnus-set-difference gnus-summary-position-point] 5 (#$ . 292288) "P"]) #@264 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. (fn MARKS &optional REVERSE) (defalias 'gnus-summary-limit-exclude-marks #[513 "\300\301\"\207" [gnus-summary-limit-to-marks t] 5 (#$ . 292663) "sMarks: "]) #@301 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. (fn MARKS &optional REVERSE) (defalias 'gnus-summary-limit-to-marks #[513 "<\203\n \202 \301\302\"\302\2038 \203! @A@>?\202' @A@>\2031 @@B\262A\262\202 \303!\266\203\304 \210\207" [gnus-newsgroup-data append nil gnus-summary-limit gnus-summary-position-point] 7 (#$ . 293062) "sMarks: \nP"]) #@150 Limit to articles with score at or above SCORE. With a prefix argument, limit to articles with score at or below SCORE. (fn SCORE &optional BELOW) (defalias 'gnus-summary-limit-to-score #[513 "\204 \203 \304\202 \305\306\2036 @@\n\236A\206\" \206\" \307\"\203/ @@B\262A\262\202 \310!\311 \210\207" [gnus-newsgroup-data current-prefix-arg gnus-newsgroup-scored gnus-summary-default-score <= >= nil 0 gnus-summary-limit gnus-summary-position-point] 8 (#$ . 293650) (byte-code "\301\302\303\304\203\f \305\202 \306\"!!C\207" [current-prefix-arg string-to-number read-string format "Limit to articles with score of at %s: " "most" "least"] 5)]) #@27 Limit to unseen articles. (defalias 'gnus-summary-limit-to-unseen #[0 "\301!\302 \210\207" [gnus-newsgroup-unseen gnus-summary-limit gnus-summary-position-point] 2 (#$ . 294320) nil]) #@227 Display all hidden articles belonging to thread ID. When called interactively, ID is the Message-ID of the current article. If thread-only is non-nil limit the summary buffer to these articles. (fn ID &optional THREAD-ONLY) (defalias 'gnus-summary-limit-include-thread #[513 "\306\307\310!!!\311\211\312\203 \202 \n\244!\313\314\315\316!\211\317H\262 \203/ \320 \"\202s \f\247\203X \211\321 \"\203C \322\323\225\"\262\262\211G\fV\203T \322\323\f#\202s \211\202s \f\324=\203d \325!\202s \211\321 \"\203s \322\323\225\"\262\262\205 \321\"?\205\204 \211\262!\"\210\210A\326 \210*\207" [gnus-build-sparse-threads gnus-fetch-old-headers gnus-newsgroup-limit gnus-simplify-subject-functions gnus-summary-gather-subject-limit message-subject-re-regexp gnus-articles-in-thread gnus-id-to-thread gnus-root-id nil gnus-summary-limit gnus-summary-limit-include-matching-articles "subject" regexp-quote gnus-id-to-header 1 gnus-map-function string-match substring 0 fuzzy gnus-simplify-subject-fuzzy gnus-summary-position-point gnus-summary-gather-exclude-subject gnus-newsgroup-limits] 12 (#$ . 294512) (byte-code "\301\302`\303\"\211\205\f \304!\266\302`\305\"\206 \306 \"\3078\262\211\310H\262C\207" [gnus-newsgroup-data gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 4] 4)]) #@90 Display all the hidden articles that have HEADERs that match REGEXP. (fn HEADER REGEXP) (defalias 'gnus-summary-limit-include-matching-articles #[514 "\301\"\302\244!\303 \210\207" [gnus-newsgroup-limit gnus-find-matching-articles gnus-summary-limit gnus-summary-position-point] 6 (#$ . 295900) (byte-code "\300\301!\300\302!D\207" [read-string "Match on header: " "Regexp: "] 3)]) #@73 Insert all the dormant articles for this group into the current buffer. (defalias 'gnus-summary-insert-dormant-articles #[0 "\302] \204 \303\304\305\"\202 \306 !)\207" [gnus-verbose gnus-newsgroup-dormant 6 gnus-message 3 "No dormant articles for this group" gnus-summary-goto-subjects] 3 (#$ . 296293) nil]) #@64 Insert ticked articles for this group into the current buffer. (defalias 'gnus-summary-insert-ticked-articles #[0 "\302] \204 \303\304\305\"\202 \306 !)\207" [gnus-verbose gnus-newsgroup-marked 6 gnus-message 3 "No ticked articles for this group" gnus-summary-goto-subjects] 3 (#$ . 296612) nil]) #@157 Display all the hidden articles that are marked as dormant. Note that this command only works on a subset of the articles currently fetched for this group. (defalias 'gnus-summary-limit-include-dormant #[0 "\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 (#$ . 296920) nil]) #@83 Fetch the headers for ARTICLES and then display the summary lines. (fn ARTICLES) (defalias 'gnus-summary-include-articles #[257 "\306\307\306\310\311 \312\307\306#\313$\314\f\"\315\316 \"!+\207" [gnus-read-all-available-headers gnus-agent gnus-inhibit-demon gnus-newsgroup-headers gnus-newsgroup-articles gnus-newsgroup-limit t nil cl-merge list gnus-fetch-headers gnus-article-sort-by-number gnus-sorted-nunion gnus-summary-limit append] 8 (#$ . 297355)]) #@28 Hide all dormant articles. (defalias 'gnus-summary-limit-exclude-dormant #[0 "\301C\302\"\303 \210\207" [gnus-dormant-mark gnus-summary-limit-to-marks reverse gnus-summary-position-point] 3 (#$ . 297827) nil]) #@50 Hide all dormant articles that have no children. (defalias 'gnus-summary-limit-exclude-childless-dormant #[0 "\206 \303 !\211\304\211\211\211A\262\242\211\262\203T A@\nU\203K \305@!\211\262\203\f \304\203E @>\203< \304\262\306\262\211A\262\210\202+ \211\262\203\f @B\262\202\f \307!\310 \210\207" [gnus-newsgroup-data-reverse gnus-newsgroup-data gnus-dormant-mark reverse nil gnus-article-children t gnus-summary-limit gnus-summary-position-point] 7 (#$ . 298044) nil]) #@120 Mark all unread excluded articles as read. If ALL, mark even excluded ticked and dormants as read. (fn &optional ALL) (defalias 'gnus-summary-limit-mark-excluded-as-read #[256 "\306\307\"\310\306\311\312 \"\307\"\"\313\314\n\"\203( \313\211\311\315\" \244\211\202J \211A\262\242\211\262\205J \211 >\204( \211\f>\204( \211B B\202( \207" [gnus-newsgroup-limit gnus-newsgroup-headers gnus-newsgroup-unreads gnus-newsgroup-dormant gnus-newsgroup-marked gnus-newsgroup-reads sort < gnus-sorted-ndifference mapcar mail-header-number nil gnus-sorted-intersection #[257 "\211B\207" [gnus-catchup-mark] 3 "\n\n(fn N)"] gnus-catchup-mark] 7 (#$ . 298542) "P"]) #@31 (fn ARTICLES &optional POP) (defalias 'gnus-summary-limit #[513 "\211\203 @\262A\202 B\nG\n\304\305`\306\"\211\205# \307!\266\305`\310\"\206. \311 \">\262\312\211\313 \210\314 \210\203] \203] \307@@\312\315#\203V \312\262\315\262A\262\202B \211\204g db\210\316 \210\317\320!\210\nGZ)\207" [gnus-newsgroup-limits gnus-newsgroup-limit gnus-newsgroup-data gnus-summary-mark-below gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject nil gnus-summary-prepare gnus-summary-maybe-hide-threads t gnus-summary-find-prev gnus-set-mode-line summary] 10 (#$ . 299217)]) #@16 (fn THREADS) (defalias 'gnus-invisible-cut-children #[257 "\301\203 @@\211\301H\262>\203 \211T\262\211A\262\210\202 \211\302W\207" [gnus-newsgroup-limit 0 2] 5 (#$ . 299873)]) (put 'gnus-invisible-cut-children 'byte-optimizer 'byte-compile-inline-expand) #@90 Go forwards in the thread until we find an article that we want to display. (fn THREAD) (defalias 'gnus-cut-thread #[257 "\305=\204 \306=\204 \247\204 \305=\204 \307=\203\244 \211\203\244 \211@\310H\n>\2043 \211@\310H >\203\244 \211AG\311X\204A \306=\203R \312@\310H\f\"\211A@\211\262\202\241 \211A\310\203s @@\211\310H\262\f>\203j \211T\262\211A\262\210\202U \211\313W\266\202\203\244 \211A\211\205\237 \211@@\211\310H\262\f>\203\230 \211@\262\314\262\202} \211A\262\202} \262\204 \207" [gnus-fetch-old-headers gnus-build-sparse-threads gnus-newsgroup-sparse gnus-newsgroup-ancient gnus-newsgroup-limit some invisible more 0 1 delq 2 nil] 6 (#$ . 300146)]) (put 'gnus-cut-thread 'byte-optimizer 'byte-compile-inline-expand) #@81 Cut off all uninteresting articles from the beginning of THREADS. (fn THREADS) (defalias 'gnus-cut-threads #[257 "\305=\204 \306=\204 \247\204 \305=\204 \307=\203\323 \211\211\203\322 \211@\305=\204B \306=\204B \247\204B \305=\204B \307=\203\311 \211\203\311 \211@\310H\n>\204X \211@\310H >\203\311 \211AG\311X\204f \306=\203w \312@\310H\f\"\211A@\211\262\202\306 \211A\310\203\230 @@\211\310H\262\f>\203\217 \211T\262\211A\262\210\202z \211\313W\266\202\203\311 \211A\211\205\304 \211@@\211\310H\262\f>\203\275 \211@\262\314\262\202\242 \211A\262\202\242 \262\204B \240\210\211A\262\202 \210\312\314\"\207" [gnus-fetch-old-headers gnus-build-sparse-threads gnus-newsgroup-sparse gnus-newsgroup-ancient gnus-newsgroup-limit some invisible more 0 1 delq 2 nil] 9 (#$ . 300903)]) #@203 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. (fn &optional SHOW-IF-EMPTY) (defalias 'gnus-summary-initial-limit #[256 "\2069 ?\2059 \n\306=\2059 \307=?\2059 \247?\2059 \310=?\2059 \f?\2059 \307=?\2059 \311=?\2059 ??\205a B\312\313\314\"\210\204_ \211\203_ \211A\242\207" [gnus-inhibit-limiting gnus-newsgroup-dormant gnus-newsgroup-display gnus-fetch-old-headers gnus-summary-expunge-below gnus-build-sparse-threads gnus-not-ignore some invisible more nil maphash #[514 "\211@?\2057 \211A\301\2055 \203& \302@!W\203& \303\211A\262\242!\210\202 \211A\262\242\262\304!\210\202 \266\202\207" [gnus-thread-expunge-below nil gnus-thread-total-score gnus-expunge-thread gnus-summary-limit-children] 7 "\n\n(fn ID DEPS)"] gnus-thread-expunge-below gnus-newsgroup-limit gnus-newsgroup-limits gnus-newsgroup-dependencies] 4 (#$ . 301722)]) #@72 Return 1 if this subthread is visible and 0 if it is not. (fn THREAD) (defalias 'gnus-summary-limit-children #[257 "\211\205\315 \306]\211A\203 \307\310\311\312A\"\"\202 \313@\313H\314 >\204\303 \n>\2030 \313U\204\277 \315=\204; \247\203G \f>\203G \313U\204\277 \316=\203S \f>\204\277 \315=\203f >\203f \313U\204\277 \203\260 \236A\206u \211\262W\203\260 T\203\277 \211W\203\277 \317\"\203\244 B\202\277 BB\202\277 \203\303 )\204\303 \313\202\312 B \320)\266\203\207" [max-lisp-eval-depth gnus-newsgroup-marked gnus-newsgroup-dormant gnus-fetch-old-headers gnus-newsgroup-ancient gnus-build-sparse-threads 5000 apply + mapcar gnus-summary-limit-children 0 nil some invisible delq 1 gnus-newsgroup-sparse gnus-summary-expunge-below gnus-newsgroup-scored gnus-summary-default-score gnus-newsgroup-expunged-tally gnus-summary-mark-below gnus-newsgroup-unreads gnus-newsgroup-auto-expire gnus-newsgroup-expirable gnus-low-score-mark gnus-newsgroup-reads gnus-newsgroup-display gnus-number gnus-newsgroup-limit] 7 (#$ . 302728)]) #@51 Mark all articles in THREAD as read. (fn THREAD) (defalias 'gnus-expunge-thread #[257 "\211@\306HT\307 \"\n\203 \211 B\202 \211\fB B\210\310\311A\"\207" [gnus-newsgroup-expunged-tally gnus-newsgroup-unreads gnus-newsgroup-auto-expire gnus-newsgroup-expirable gnus-low-score-mark gnus-newsgroup-reads 0 delq mapcar gnus-expunge-thread] 5 (#$ . 303829)]) #@157 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. (fn N) (defalias 'gnus-summary-refer-parent-article #[257 "\306\307\211\211\310!\204 \311!\262\306\262\312V\203 \204 \313\314`\315\"\211\205( \316!\266\314`\317\"\2063 \320 \"\3218\262\262\312H A=\203p \n @\232\203p r q\210\322 \210\323\324!\211\262\204j \323\325!\211\262\203j \326!\262~\210)\202u \327H\262\211\203\370 \211\330\232\204\370 \331 \211 \205\353 G\312U?\205\353 \f\203\333 \312\332 \206\235 \330!\307 % &\333\334 &#\203\277 \335 \312\224\312\225\211&#%B%\202\244 %\237, %\f%\233\203\324 %A%\202\305 %@)\202\353 \332 ! \333\336 \"\205\352 \337\306 \")*!\204\340\306\341\"\210\202\340\306\342\314`\315\"\211\205\316!\266\314`\317\"\206\320 #\210\343\262S\262\202 \344 \210\207" [gnus-newsgroup-data gnus-article-current gnus-newsgroup-name gnus-original-article-buffer n references 1 nil natnump abs 0 gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 nnheader-narrow-to-headers message-fetch-field "references" "in-reply-to" gnus-extract-message-id-from-in-reply-to 5 "" gnus-summary-refer-article mail-header-remove-comments string-match "<[^<]+[^< ]" substring "\\(<[^<]+>\\)[ ]*\\'" match-string gnus-message "Couldn't find parent" "No references in article %d" t gnus-summary-position-point ids beg] 12 (#$ . 304199) "p"]) #@95 Fetch all articles mentioned in the References header. Return the number of articles fetched. (defalias 'gnus-summary-refer-references #[0 "\301\302`\303\"\211\205\f \304!\266\302`\305\"\206 \306 \"\3078\262\211\310H\262\302`\303\"\211\205. \304!\266\302`\305\"\2069 \306 \311\203D \312\232\203J \313\314!\202n \315\316\"\203f \211T\262\317\320\311\"\321\311\225\"\262!\210\202J \304!\210\322 \210\211\207" [gnus-newsgroup-data gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 5 0 "" error "No References in the current article" string-match "<[^>]*>" gnus-summary-refer-article match-string substring gnus-summary-position-point] 8 (#$ . 305717) nil]) #@16 (fn HEADERS) (defalias 'gnus-delete-duplicate-headers #[257 "\211G\300V\203 \211@\301HA@\211\301H\262U\203 \211A\266\202\202 \211G\300V\203I @\301HA@\211\301H\262U\203@ \211AA\241\210\202 \211A\262\210\202 \211\207" [1 0] 6 (#$ . 306462)]) #@575 Fetch all articles in the current thread. For backends that know how to search for threads (currently only 'nnimap) a non-numeric prefix arg will use nnir to search the entire server; without a prefix arg only the current group is searched. If the variable `gnus-refer-thread-use-nnir' is non-nil the prefix arg has the reverse meaning. If no backend-specific `request-thread' function is available fetch LIMIT (the numerical prefix) old headers. If LIMIT is non-numeric or nil fetch the number specified by the `gnus-refer-thread-limit' variable. (fn &optional LIMIT) (defalias 'gnus-summary-refer-thread #[256 "\306\307`\310\"\211\205\f \311!\266\307`\312\"\206 \313 \"\3148\262\211\315H\316\211\316\2035 <\2035 \f?\2026 \f \317 \3201d \211;\203I \321!@\202J \211\322!\204T \323!\210\324\325\326\327#!!\2620\202f \210\330\266\202\203r \331 \"\202\312 \247\203} \332!\202 2\211\247\203\217 \333H\\3^\202\221 3\334\335H!\336\337H\206\236 \340!\341D\"\342\333\343\344\345!\346\"\314$\262 4\347C\247\203\304 \350_\202\305 \316#)\266\204\330\211<\203\211\203\346 \211@\211\333HB\262A\266\202\202\322 \210\237\262\3515\"\262\3525\"5\3536\"6\354\355\3567\357$!7\3538\"8\3609\"\210,\266\361 \207" [gnus-newsgroup-data gnus-inhibit-demon gnus-summary-ignore-duplicates gnus-read-all-available-headers gnus-refer-thread-use-nnir gnus-newsgroup-name gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 4 t request-thread (error) gnus-find-method-for-group featurep require fboundp intern format "%s-%s" nil gnus-request-thread prefix-numeric-value 0 gnus-simplify-subject 1 split-string 5 "" append make-byte-code "eb\210\301\302\300!!\207" vconcat vector [keep-lines regexp-opt] gnus-fetch-headers 2 gnus-sorted-intersection gnus-sorted-ndifference gnus-sorted-nunion gnus-delete-duplicate-headers cl-merge list gnus-article-sort-by-number gnus-summary-limit-include-thread gnus-summary-show-thread gnus-refer-thread-limit gnus-newsgroup-highest gnus-parse-headers-hook gnus-newsgroup-unselected gnus-newsgroup-unreads gnus-newsgroup-headers gnus-newsgroup-articles gnus-refer-thread-limit-to-thread] 15 (#$ . 306726) "P"]) #@81 Open a group containing the article with the given MESSAGE-ID. (fn MESSAGE-ID) (defalias 'gnus-summary-open-group-with-article #[257 "\303\304!\210\305\306!r\211q\210\307\310\311\312\313!\314\"\315$\216\316 \210\317c\210\320\321\322\"\2034 \323\310\211\224#\323\310\225\"P\2025 \324\304\325pD\326BBB\327p\nB\330\331\330\310&\210*\332!*\207" [gnus-article-mode-line-format gnus-summary-mode-line-format gnus-current-window-configuration require nndoc generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 erase-buffer "From nobody Tue Sep 13 22:05:34 2011\n\n" "Found %G" string-match "%[gG]" substring gnus-group-read-ephemeral-group nndoc-address ((nndoc-article-type mbox)) :activate nil (-1) gnus-summary-refer-article] 11 (#$ . 308987) "sMessage-ID: "]) #@60 Fetch an article specified by MESSAGE-ID. (fn MESSAGE-ID) (defalias 'gnus-summary-refer-article #[257 "\211;\205\253 \211G\303U?\205\253 \304\305\306#\262\307\310\"\204 \311P\262\307\312\"\204, \211\313P\262\307\314\"\2048 \315!\262\316!\211\205L \211\303H>\205L \211\303H >\317\203q \303H>\203] \203q \320\303H\317\321#\203\251 \322\303H!\210\202\251 \3232\251 \324 \211\203\241 \211@\325\n!\203\231 \326!\211\262\203\231 \327\317\211\211$\210\330\323\321\"\210\211A\262)\202w \210\331\332\333#0\266\203\207" [gnus-newsgroup-sparse gnus-newsgroup-limit gnus-override-method 0 replace-regexp-in-string " " "" string-match "^<" "<" ">$" ">" "@" gnus-url-unhex-string gnus-id-to-header nil gnus-summary-goto-article t gnus-summary-update-article found gnus-refer-article-methods gnus-check-server gnus-summary-insert-subject gnus-summary-select-article throw gnus-message 3 "Couldn't fetch article %s"] 10 (#$ . 309830) "sMessage-ID: "]) #@37 Return a list of referable methods. (defalias 'gnus-refer-article-methods #[0 "\204 \nD\207\306=\203 C\207@9\203 @ \236\204\332 \307\211\203\326 \211@\211\306=\2030 \202\313 \211@\310=\203\312 \310A@\206\306 \307\211C\3112\302 \211\242\206N \n\240\210\204e \312\313\314\315\316\317!\320\"\321\322%\f\"\210 D\211\203\207 \211@\312\313\314\323\316\317!\324\"\321\322%\"\210A\266\202\202i \210\211\242A@\325\235\203\232 \326\327\242@\"\202\244 \326\330\242@\242A@#\211\242B\211\f\235\204\276 \204\276 \331@\f\"\204\276 \211\fB\266\2020\262\266\203D\202\313 \211B\262A\266\202\202 \210\211\237\207C\207" [gnus-refer-article-method gnus-current-select-method gnus-select-method nnoo-definition-alist gnus-server-method-cache gnus-server-alist current nil nnir server-name mapc make-byte-code 257 "\211A\300\242\232\205 \301\302@\"\207" vconcat vector [throw server-name] 4 "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") format "%s" "%s:%s" assoc gnus-predefined-server-alist] 17 (#$ . 310800)]) #@49 Edit the group parameters of the current group. (defalias 'gnus-summary-edit-parameters #[0 "\301\302\"\207" [gnus-newsgroup-name gnus-group-edit-group params] 3 (#$ . 311950) nil]) #@54 Customize the group parameters of the current group. (defalias 'gnus-summary-customize-parameters #[0 "\301!\207" [gnus-newsgroup-name gnus-group-customize] 2 (#$ . 312139) nil]) #@271 Enter an nndoc group based on the current article. If FORCE, force a digest interpretation. If not, try to guess what the document format is. To control what happens when you exit the group, see the `gnus-auto-select-on-ephemeral-exit' variable. (fn &optional FORCE) (defalias 'gnus-summary-enter-digest-group #[256 "\306 \307\310\311\312\313!\314\"\315$\216\212\316\211\211\317 \210-\210\211\320\321\322\f\323\324D\"r q\210@)#\f\325\326A\"A@\262\3278\262\330BC\331BC\332BC$\333 Bp\316C\316\211rCq\210\334\335!\206a \334\336!\211\262\203s \325\337D!BC\"\262\340\341!\240\210\342C!\210eb\343\344\316\333#\206\211 `}\210eb\210\345\346!\210\347\350\334\351!\206\233 \324!\352\"\262\334\353!\211\203\275 \354\353!\210db\210~\210`d}\210\355\356\357!\227!!\210\210~\210)\307\310\360\312\313!\361\"\315$\216\211\203\333 \356\362!\227!\202\335 EF G H\363\323 \364\365\242!D\366\203\372 \367\202\373 \370DF\333\316\211\211\371\372\f\373\"BC&*\203#\326A\"A@\262\3278\262\244\2028\374!\210\375 \210\376\377!\210\201I \201J \201K \"*\266\207\207" [gnus-current-window-configuration gnus-break-pages gnus-display-mime-function gnus-article-prepare-hook gnus-newsgroup-name gnus-summary-buffer current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 nil gnus-summary-select-article format "%s-%d" gnus-group-prefixed-name nndoc "" append gethash 5 to-group parent-group save-article-group t gnus-fetch-field "reply-to" "from" to-address nnheader-set-temp-buffer " *gnus digest buffer*" insert-buffer-substring search-forward "\n\n" delete-matching-lines "^Path:\\|^From " mail-content-type-get mail-header-parse-content-type "content-type" charset "content-transfer-encoding" message-remove-header mm-decode-content-transfer-encoding intern mail-header-strip-cte "\301\300\242!\207" [kill-buffer] gnus-strip-whitespace gnus-group-read-ephemeral-group nndoc-address get-buffer nndoc-article-type mbox guess adapt-file gnus-score-file-name "ADAPT" switch-to-buffer gnus-set-global-variables gnus-configure-windows summary gnus-current-article gnus-newsrc-hashtb case-fold-search gnus-original-article-buffer gnus-decode-encoded-address-function gnus-newsgroup-charset gnus-newsgroup-ignored-charsets gnus-newsgroup-ephemeral-ignored-charsets gnus-newsgroup-ephemeral-charset gnus-message 3 "Article couldn't be entered?"] 20 (#$ . 312326) "P"]) #@184 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. (fn N) (defalias 'gnus-summary-read-document #[257 "\303\304 \"A@\262\3058\262\306BC\"\307\211\211\211\310!\211\203\230 \211@\311\312#\262\313!\210\314!\203\221 \212\315\316!r\211q\210\317\320\321\322\323!\324\"\325$\216\326\n!\210\327 \210eb\210\330\331!\210~\210\332\333 \334pD\335BBB\336\307\336%\211\262\203\211 \304 \"A@\262\3058\262\244\210B\262\202\216 \337\340\341\"\210*\210)A\266\202\202 \210\204\243 \342\343!\202\300 \332\311\344\345\346!#\211\262\347\350DE\336p\351B$\206\300 \342\352!\207" [gnus-newsgroup-name gnus-newsrc-hashtb gnus-original-article-buffer append gethash 5 to-group nil gnus-summary-work-articles format "%s-%d" gnus-summary-remove-process-mark gnus-summary-display-article generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [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" nnvirtual nnvirtual-component-groups summary "Couldn't select virtual nndoc group"] 16 (#$ . 314765) "P"]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias gnus-summary-widget-forward gnus-summary-button-forward nil make-obsolete "27.1"] 4) #@115 Move point to the next field or button in the article. With optional ARG, move across that many fields. (fn ARG) (defalias 'gnus-summary-button-forward #[257 "\301 \210\302\303!\210\304\305\"\206 \306\307!\310!\210\311\312!!\210\313!\207" [gnus-article-buffer gnus-summary-select-article gnus-configure-windows article gnus-get-buffer-window t error "No article window found" select-window select-frame-set-input-focus window-frame forward-button] 5 (#$ . 316400) "p"]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias gnus-summary-widget-backward gnus-summary-button-backward nil make-obsolete "27.1"] 4) #@119 Move point to the previous field or button in the article. With optional ARG, move across that many fields. (fn ARG) (defalias 'gnus-summary-button-backward #[257 "\301 \210\302\303!\210\304\305\"\206 \306\307!\310!\210\311\312!!\210\313`!\204$ db\210\314!\207" [gnus-article-buffer gnus-summary-select-article gnus-configure-windows article gnus-get-buffer-window t error "No article window found" select-window select-frame-set-input-focus window-frame button-at backward-button] 5 (#$ . 317036) "p"]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable gnus-collect-urls-primary-text funcall function #[0 "\300\207" [#1="Link"] 1 #1#] "The button text for the default link in `gnus-summary-browse-url'." :version "27.1" :type string :group gnus-article-various] 10) #@127 Return the list of URLs in the buffer after (point). The 1st element is the button named by `gnus-collect-urls-primary-text'. (defalias 'gnus-collect-urls #[0 "`\302\211\303\304\302\211\305$\203U `\262\306!\211\205! \307\310\"\206! \311\312\"\211\203P \313\302\305\314#)\266\203\203P \203K \204K \315!\230\203K \211\262\202P \211B\262\266\202 \237\262\211\203b \211B\262\316!\207" [inhibit-changing-match-data gnus-collect-urls-primary-text nil forward-button 1 t button-at button-get shr-url get-text-property gnus-string "\\`[[:alpha:]]+://" string-match button-label delete-dups] 12 (#$ . 317861)]) #@86 Truncate STRING to LENGTH, replacing initial surplus with "...". (fn STRING LENGTH) (defalias 'gnus--string-truncate-left #[514 "G\211X\203\f \202 \300\301Z]\262\302\303\300\304\305#]\"P\207" [0 3 "..." substring - 1] 11 (#$ . 318492)]) #@72 Return an excerpt from URL not exceeding MAX characters. (fn URL MAX) (defalias 'gnus-shorten-url #[514 "GX\203 \207\301!\302!>\204 \303\304\305D\"\210\211\306H\302!>\204- \303\304\305D\"\210\307H\302!>\204? \303\304\305D\"\210\310H\211\205I \311P\262P\312GZ\"P\207" [cl-struct-url-tags url-generic-parse-url type-of signal wrong-type-argument url 4 6 7 "#" gnus--string-truncate-left] 10 (#$ . 318746)]) #@417 Scan the current article body for links, and offer to browse them. Links are opened using `browse-url' unless a prefix argument is given: Then `browse-url-secondary-browser-function' is used instead. If only one link is found, browse that directly, otherwise use completion to select a link. The first link marked in the article text with `gnus-collect-urls-primary-text' is the default. (fn &optional EXTERNAL) (defalias 'gnus-summary-browse-url #[256 "\303\211\304 \210\305\306!!\205] rq\210\307\310 \210\311u\210\312 \262G\313U\203) @\202C G\313V\205C \314\315\316\317@\320\"\"\303\307\303\211@&\262\211\203Y \203S \n!\202\\ \321!\202\\ \322\323!*\207" [gnus-article-buffer inhibit-read-only browse-url-secondary-browser-function nil gnus-summary-select-article buffer-live-p get-buffer t article-goto-body -1 gnus-collect-urls 1 completing-read format "URL to browse (default %s): " gnus-shorten-url 40 browse-url message "No URLs found."] 11 (#$ . 319183) "P"]) #@136 Do incremental search forward on the current article. If REGEXP-P (the prefix) is non-nil, do regexp isearch. (fn &optional REGEXP-P) (defalias 'gnus-summary-isearch-article #[256 "\301 \210\302\303!\210\304 \305\306\"\307\310\311\312\313!\314\"\315$\216\211\203+ \316!\210\317!q\210\202/ \320!\210\214~\210\321!*\207" [gnus-article-buffer gnus-summary-select-article gnus-configure-windows article selected-window gnus-get-buffer-window visible make-byte-code 0 "\301\300!\207" vconcat vector [select-window] 2 select-window window-buffer pop-to-buffer isearch-forward] 10 (#$ . 320177) "P"]) #@38 Repeat the previous search forwards. (defalias 'gnus-summary-repeat-search-article-forward #[0 "\204 \301\302!\210\303!\207" [gnus-last-search-regexp error "No previous search" gnus-summary-search-article-forward] 2 (#$ . 320786) nil]) #@39 Repeat the previous search backwards. (defalias 'gnus-summary-repeat-search-article-backward #[0 "\204 \301\302!\210\303\304\"\207" [gnus-last-search-regexp error "No previous search" gnus-summary-search-article-forward t] 3 (#$ . 321031) nil]) #@120 Search for an article containing REGEXP forward. If BACKWARD, search backward instead. (fn REGEXP &optional BACKWARD) (defalias 'gnus-summary-search-article-forward #[513 "\304\230\203 \206 \304\262\202 \n\211\305\"\203$ \306 \202) \307\310C\")\207" [gnus-last-search-regexp gnus-current-article gnus-article-before-search gnus-last-article "" gnus-summary-search-article gnus-summary-show-thread signal search-failed] 6 (#$ . 321286) (byte-code "\302\303\304\203 \305\202\f \306 \203 \307 P\202 \310#!D\207" [current-prefix-arg gnus-last-search-regexp read-string format "Search article %s (regexp%s): " "backward" "forward" ", default " ""] 6)]) #@64 Search for an article containing REGEXP backward. (fn REGEXP) (defalias 'gnus-summary-search-article-backward #[257 "\300\301\"\207" [gnus-summary-search-article-forward backward] 4 (#$ . 321961) (byte-code "\301\302\303\203 \304P\202 \305\"!C\207" [gnus-last-search-regexp read-string format "Search article backward (regexp%s): " ", default " ""] 5)]) #@191 Search for an article containing REGEXP. Optional argument BACKWARD means do search for backward. `gnus-select-article-hook' is not called during the search. (fn REGEXP &optional BACKWARD) (defalias 'gnus-summary-search-article #[513 "\306\307!\210\306\310!\210\311\211\211\211\211\211\211\211\211\211\211p\311\211\211 -\n . /\f 0 1 2\312 \313\314\315\316\317!\320\"\321$\216\212\322 \2103q\210\323\324p!!b\210\203c \325y\210\204\376 \326\327\3304A#\210\203} \331\311\332#\202\203 \333\311\332#\203\246 \334\262\335 \210\336\324p!`\"\210\337y\210\340\324p!`\"\210q\210`\262\202c q\210\341\262\341=\203c \203\274 \342 \202\276 \343 \204\307 \332\262\202\254 \344`\345\"\211\205\322 \346!\266\344`\347\"\206\335 \350 5>\204\254 \311\262\322 \2103q\210~\210\203\370 d\202\371 eb\210\202\254 \326\327\351\"\210*\210\334=\205 \211b\210\352\314!\210\353 \210\3466!\210\354 \210\332.\f\207" [gnus-display-mime-function gnus-auto-center-summary gnus-updated-mode-lines gnus-summary-display-arrow gnus-break-pages gnus-keep-backlog require gnus-async gnus-art nil gnus-hidden-threads-configuration make-byte-code 0 "\301\300!\207" vconcat vector [gnus-restore-hidden-threads-configuration] 2 gnus-summary-select-article window-point get-buffer-window -1 gnus-message 7 "Searching article: %d..." re-search-backward t re-search-forward found 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 "" sit-for gnus-summary-show-thread gnus-summary-position-point gnus-visual gnus-use-trees gnus-use-article-prefetch gnus-mark-article-hook gnus-article-prepare-hook gnus-select-article-hook gnus-article-buffer gnus-article-current gnus-newsgroup-sparse gnus-current-article] 24 (#$ . 322328)]) #@205 Return a list of all articles that match REGEXP on HEADER. This search includes all articles in the current group that Gnus has fetched headers for, whether they are displayed or not. (fn HEADER REGEXP) (defalias 'gnus-find-matching-articles #[514 "\302\303\304P!\305 \211\203& \211@\306!\"\203 \211\307HB\262A\266\202\202 \210\237)\207" [case-fold-search gnus-newsgroup-headers nil intern "mail-header-" t string-match 0] 10 (#$ . 324221)]) #@477 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. (fn HEADER REGEXP &optional BACKWARD UNREAD NOT-CASE-FOLD NOT-MATCHING) (defalias 'gnus-summary-find-matching #[1538 "?\304\211:\2033 @\305=\203* A\306\307\310\311\312!\313\"\314\315%\262\262\202L \316\317\n\"\210\202L \320\321\322 P!!\204D \316\323\n\"\210\321\322\nP!\262\324=\203W \202\206 \203h \n\206i \325 !\211\202i \326\327`\330\"\211\205u \331!\266\327`\332\"\206\200 \333 \">\262\211\203\313 \211@\203\231 \211A@ U\203\304 \334\3358!\203\304 \203\262 \336\n\3358!\"?\202\273 \336\n\3358!\"\203\304 \211@B\262A\266\202\202\206 \210\237)\207" [case-fold-search gnus-newsgroup-data gnus-newsgroup-data-reverse gnus-unread-mark nil extra make-byte-code 257 "\300\301H\236A\206\n \302\207" vconcat vector [9 ""] 4 "\n\n(fn H)" error "%s is an invalid header" fboundp intern "mail-header-" "%s is not a valid header" all reverse gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject mail-header-p 3 string-match] 16 (#$ . 324682)]) #@270 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. (fn HEADER REGEXP COMMAND &optional BACKWARD) (defalias 'gnus-summary-execute-command #[1027 "\306\232\203 \307\262\310 \210\212\311 \312\313\314\315\316!\317\"\320$\216\321\211\211\211\211\211\211 \322\323\324\325!#\210\326\327\330\331!DD$\210\322\323\332\325!#.\262)\207" [gnus-article-prepare-hook gnus-treat-fold-newsgroups gnus-treat-hide-boring-headers gnus-treat-strip-multiple-blank-lines gnus-treat-strip-leading-blank-lines gnus-treat-strip-trailing-blank-lines "Body" "" gnus-summary-show-all-threads current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 nil gnus-message 6 "Executing %s..." key-description gnus-execute call-interactively quote key-binding "Executing %s...done" gnus-visual] 12 (#$ . 326135) (byte-code "\303\304\305\306\307\310\311 \"\"\312#)\313\314!\315\316!\nF\207" [completion-ignore-case gnus-extra-headers current-prefix-arg t gnus-completing-read "Header name" mapcar symbol-name append (Number Subject From Lines Date Message-ID Xref References Body) require-match read-string "Regexp: " read-key-sequence "Command: "] 7)]) #@43 Scroll the article back to the beginning. (defalias 'gnus-summary-beginning-of-article #[0 "\302 \210\303\304!\210\305 \306\307\"\310\311\312\313\314!\315\"\316$\216\211\203+ \317!\210\320!q\210\202/ \321!\210~\210eb\210 \205: \322 )\207" [gnus-article-buffer gnus-break-pages gnus-summary-select-article gnus-configure-windows article selected-window gnus-get-buffer-window visible make-byte-code 0 "\301\300!\207" vconcat vector [select-window] 2 select-window window-buffer pop-to-buffer gnus-narrow-to-page] 9 (#$ . 327501) nil]) #@35 Scroll to the end of the article. (defalias 'gnus-summary-end-of-article #[0 "\302 \210\303\304!\210\305 \306\307\"\310\311\312\313\314!\315\"\316$\216\211\203+ \317!\210\320!q\210\202/ \321!\210~\210db\210\322\323!\210 \205> \324 )\207" [gnus-article-buffer gnus-break-pages gnus-summary-select-article gnus-configure-windows article selected-window gnus-get-buffer-window visible make-byte-code 0 "\301\300!\207" vconcat vector [select-window] 2 select-window window-buffer pop-to-buffer recenter -3 gnus-narrow-to-page] 9 (#$ . 328048) nil]) #@75 Truncate to LEN and quote all "("'s in STRING. (fn STRING &optional LEN) (defalias 'gnus-summary-print-truncate-and-quote #[513 "\300\301\302\203 GV\203 \303\304#\202 #\207" [replace-regexp-in-string "[()]" "\\\\\\&" substring 0] 9 (#$ . 328606)]) #@730 Generate and print a PostScript image of the process-marked (mail) articles. If used interactively, print the current article if none are process-marked. With prefix arg, prompt the user for the name of the file to save in. When used from Lisp, accept two optional args FILENAME and N. N means to print the next N articles. If N is negative, print the N previous articles. If N is nil and articles have been marked with the process mark, print these instead. If the optional first argument FILENAME is nil, send the image to the printer. If FILENAME is a string, save the PostScript image in a file with that name. If FILENAME is a number, prompt the user for the name of the file to save in. (fn &optional FILENAME N) (defalias 'gnus-summary-print-article #[512 "\301!\211\203I \211@\302\303\211\304$\210\305 \306\307\"\310\311\312\313\314!\315\"\316$\216\211\2034 \317!\210\320!q\210\2028 \321!\210\322 \210)\266\323!\210A\266\202\202 \210\324!\207" [gnus-article-buffer gnus-summary-work-articles gnus-summary-select-article nil pseudo selected-window gnus-get-buffer-window visible make-byte-code 0 "\301\300!\207" vconcat vector [select-window] 2 select-window window-buffer pop-to-buffer gnus-print-buffer gnus-summary-remove-process-mark ps-despool] 13 (#$ . 328872) (byte-code "\301!C\207" [current-prefix-arg ps-print-preprint] 2)]) (defalias 'gnus-print-buffer #[0 "\304\305\306H\307\"\310Q\304\305\311H\312\"\310QD\313\304\314H\310QD\315\316!\210\212 \203+ \317 \202- \320 +\207" [gnus-current-headers ps-right-header ps-left-header ps-print-color-p "(" gnus-summary-print-truncate-and-quote 1 66 ")" 2 45 "/pagenumberstring load" 3 gnus-run-hooks gnus-ps-print-hook ps-spool-buffer-with-faces ps-spool-buffer] 5]) #@134 Show a complete version of the current article. This is only useful if you're looking at a partial version of the article currently. (defalias 'gnus-summary-show-complete-article #[0 "\305\211\211\306\307\310\311!@\" \"\305C \312\313\314\315\316\"\317\"\320$\216\211J\240\210\305L\210\321 \210\322 ,\207" [gnus-newsgroup-name obarray gnus-agent gnus-use-cache gnus-keep-backlog nil intern format "%s-fetch-partial-articles" gnus-find-method-for-group make-byte-code 0 "\300\301\242L\207" vconcat vector [] 2 gnus-flush-original-article-buffer gnus-summary-show-article] 12 (#$ . 330635) nil]) #@426 Force redisplaying of the current article. If ARG (the prefix) is a number, show the article with the charset defined in `gnus-summary-show-article-charset-alist', or the charset input. If ARG (the prefix) is non-nil and not a number, show the article, but without running any of the article treatment functions article. Normally, the keystroke is `C-u g'. When using `C-u C-u g', show the raw article. (fn &optional ARG) (defalias 'gnus-summary-show-article #[256 "\211\247\203\260 \306\307!\210\211\236A\206 \310\311r q\210\312`d\")\"\313\314\315\316\"\210\f\315\211\211r q\210\214\317 \210\320 \262eb\210\321\322\315\307#\204K db\210~\210\323`d\"S\262)\324\325!r\211q\210\326\327\330\331\332!\333\"\334$\216\335\3362A\"c\210c\210\203t \335\337\"c\210\340c\210p 3\341\307\"@\262+\210)\3422A4\"\343\233\211\240\266\3442A\"\210\3452A\315\307#\203\252 \3462A!\210\266*\2021\211\204\323 5\347=\203\313 \350\347!\210\307 6\314\315\316\"\210)\2021\314\315\316\"\210\2021\211\351\232\203\345 \307 7\314\315\316\"\210)\2021\350\352!\210\350\353!\210\307\315\211\211\211 8 9 : ; < \211 =\205\354\355=!\211=!\205=)\203+r q\210\356 \210\357 \210\360>!\210\315\211?>)\314\315\316\"\210-\345@!\210\361 \207" [gnus-summary-show-article-charset-alist gnus-article-buffer gnus-newsgroup-ignored-charsets gnus-newsgroup-charset gnus-newsgroup-dependencies gnus-original-article-buffer gnus-summary-show-article t read-coding-system "View as charset: " mm-detect-coding-region gnus-all gnus-summary-select-article nil force message-narrow-to-head buffer-string re-search-forward "^lines:[ ]\\([0-9]+\\)" count-lines generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 format "211 %d Article retrieved.\n" "Lines: %d\n" ".\n" gnus-get-newsgroup-headers gnus-data-find-in 3 gnus-summary-update-article-line gnus-summary-goto-subject gnus-summary-update-secondary-mark shr require (16) gnus-async gnus-art buffer-live-p get-buffer gnus-article-stop-animations gnus-stop-downloads mm-destroy-parts gnus-summary-position-point gnus-article-current nntp-server-buffer gnus-newsgroup-data mm-text-html-renderer shr-ignore-cache gnus-inhibit-article-treatments gnus-break-pages gnus-display-mime-function gnus-article-decode-hook gnus-article-prepare-hook gnus-have-all-headers buffer gnus-article-mime-handles gnus-article-mime-handle-alist gnus-current-article] 13 (#$ . 331247) "P"]) #@73 Show the raw article without any article massaging functions being run. (defalias 'gnus-summary-show-raw-article #[0 "\300\301!\207" [gnus-summary-show-article t] 2 (#$ . 333729) nil]) #@166 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. (fn &optional ARG) (defalias 'gnus-summary-verbose-headers #[256 "\211\247\203 \211\301U\203 ?\202 \302!\205 \303\304 \207" [gnus-show-all-headers 0 natnump t gnus-summary-show-article] 3 (#$ . 333921) "P"]) #@204 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. (fn &optional ARG) (defalias 'gnus-summary-toggle-header #[256 "\211\205 \306\307 !\211!\205 )\205 \310\311\"rq\210~\210\312 \210\311\211\247\2031 \313Y\202: \314\315!\206: \316\317!\320\211ed|\210r\fq\210e\211\262b\210\321\322\320\311#\203W `S\202X d\262)\323\f#\210\324\325!\210\203z \320\211 #\326\317!\210\327\330!\210*\202\206 \327\330!\210$\203\206 \331 \210~\210\203\222 \332eb\"\210%\203\235 \333 \210\202\256 \334\335!\203\256 \311\336\337!\210\336\340!\210)\341\342!*\266\203)\207" [gnus-article-buffer buffer inhibit-read-only inhibit-point-motion-hooks gnus-original-article-buffer gnus-treat-hide-boring-headers buffer-live-p get-buffer get-buffer-window t article-narrow-to-head 0 looking-at "\n?\\'" gnus-article-hidden-text-p headers nil search-forward "\n\n" insert-buffer-substring run-hooks gnus-article-decode-hook gnus-delete-wash-type gnus-treat-article head gnus-mime-buttonize-attachments-in-header set-window-start gnus-narrow-to-page gnus-visual-p page-marker gnus-remove-text-with-property gnus-prev gnus-next gnus-set-mode-line article gnus-treat-hide-headers gnus-mime-display-attachment-buttons-in-header gnus-break-pages] 10 (#$ . 334289) "P"]) #@32 Make all header lines visible. (defalias 'gnus-summary-show-all-headers #[0 "\300\301!\207" [gnus-summary-toggle-header 1] 2 (#$ . 335679) nil]) #@189 Caesar rotate the current article by 13. With a non-numerical prefix, also rotate headers. A numerical prefix specifies how many places to rotate each letter forward. (fn &optional ARG) (defalias 'gnus-summary-caesar-message #[256 "\303 \210\304\305 \306\307\"\310\311\312\313\314!\315\"\316$\216\211\203) \317!\210\320!q\210\202- \321!\210\214~\210\322 \323\324\232\203B \325\326\323\"\210\202F \325!\210\327\330p!\"\210)\210*\266)\331\326!\207" [mail-header-separator gnus-article-buffer inhibit-read-only gnus-summary-select-article "" selected-window gnus-get-buffer-window visible make-byte-code 0 "\301\300!\207" vconcat vector [select-window] 2 select-window window-buffer pop-to-buffer window-start t (4) message-caesar-buffer-body nil set-window-start get-buffer-window gnus-treat-article] 10 (#$ . 335831) "P"]) #@353 Decode IDNA encoded domain names in the current articles. IDNA encoded domain names looks like `xn--bar'. If a string remain unencoded after running this function, it is likely an invalid IDNA string (`xn--bar' is invalid). You must have GNU Libidn (URL `https://www.gnu.org/software/libidn/') installed for this command to work. (fn &optional ARG) (defalias 'gnus-summary-idna-message #[256 "\303 \210\304\305 \306\307\"\310\311\312\313\314!\315\"\316$\216\211\203) \317!\210\320!q\210\202- \321!\210\214~\210\322 \323\324\325\323\326#\203G \327\330\331\332!!!\210\2024 \333\334p!\")\262*\266\203)\207" [mail-header-separator gnus-article-buffer buffer-read-only gnus-summary-select-article "" selected-window gnus-get-buffer-window visible make-byte-code 0 "\301\300!\207" vconcat vector [select-window] 2 select-window window-buffer pop-to-buffer window-start nil re-search-forward "\\(xn--[-0-9a-z]+\\)" t replace-match puny-decode-domain match-string 1 set-window-start get-buffer-window] 10 (#$ . 336675) nil]) #@55 Morse decode the current article. (fn &optional ARG) (defalias 'gnus-summary-morse-message #[256 "\303 \210\304\305 \306\307\"\310\311\312\313\314!\315\"\316$\216\211\203) \317!\210\320!q\210\202- \321!\210\212\214~\210\322 \323eb\210\324 \203@ \325 \210eb\210\326\327d\323#\203R \330\331!\210\202C \332ed\"\210~\210\333\334p!\")\262+\266\203)\207" [mail-header-separator gnus-article-buffer inhibit-read-only gnus-summary-select-article "" selected-window gnus-get-buffer-window visible make-byte-code 0 "\301\300!\207" vconcat vector [select-window] 2 select-window window-buffer pop-to-buffer window-start t message-goto-body gnus-narrow-to-body search-forward "·" replace-match "." unmorse-region set-window-start get-buffer-window] 10 (#$ . 337712) nil]) #@44 Stop page breaking in the current article. (defalias 'gnus-summary-stop-page-breaking #[0 "\303 \210\304 \305\306\"\307\310\311\312\313!\314\"\315$\216\211\203' \316!\210\317!q\210\202+ \320!\210~\210\321\322!\205A \323\324\325!\210\324\326!\210)\327\211)\207" [gnus-article-buffer inhibit-read-only gnus-page-broken gnus-summary-select-article selected-window gnus-get-buffer-window visible make-byte-code 0 "\301\300!\207" vconcat vector [select-window] 2 select-window window-buffer pop-to-buffer gnus-visual-p page-marker t gnus-remove-text-with-property gnus-prev gnus-next nil] 9 (#$ . 338491) nil]) #@875 Move the current article to a different newsgroup. If N is a positive number, move the N next articles. If N is a negative number, move the N previous articles. If N is nil and any articles have been marked with the process mark, move those articles instead. If TO-NEWSGROUP is string, do not prompt for a newsgroup to move to. If SELECT-METHOD is non-nil, do not move to a specific newsgroup, but re-spool using this method. When called interactively with TO-NEWSGROUP being nil, the value of the variable `gnus-move-split-methods' is used for finding a default for the target newsgroup. For this function to work, both the current newsgroup and the newsgroup that you want to move to have to support the `request-move' and `request-accept' functions. ACTION can be either `move' (the default), `crosspost' or `copy'. (fn &optional N TO-NEWSGROUP SELECT-METHOD ACTION) (defalias 'gnus-summary-move-article #[1024 "\211\204 \306\262\211\306=\203H \307\3101: \211;\203 \311!@\202 \211\312!\204* \313!\210\314\315\316\317#!!\2620\202< \210\320\266\202\204H \321\322!\210\202\206 \211\323=\203\206 \324\3251{ \211;\203` \311!@\202a \211\312!\204k \313!\210\314\315\316\317#!!\2620\202} \210\320\266\202\204\206 \321\326!\210\327!\307\3301\266 \211;\203\233 \311!@\202\234 \211\312!\204\246 \313!\210\314\315\316\317#!!\2620\202\270 \210\320\266\202\203\303 !\202\304 \331\332\212\333\334!)\320\211\211\211\211\211\n\236\204\336 \335\336\f\"\210\f\204\224 \204\224\n\203 \n>\203\f\211 \205\337\340 !\211!\205 )\204\320\211\211 @ A B\341\320\211\211 @$\210+\342 \236A@\315\316\343\"!J\f\f$\262 \344 !\211\203C\211<\203C\211\206\205\345C\"A\206\205\211\346\232\203WD\206n\345E\"A\206n\345F\"A\206nG\211\203\210\316\347@@@@@A@#\232\204\210\211A\266\202\202k\211@@\262\206nH\211\203\255\316\347@@@A@#\232\204\255\211A\266\202\202\222\211@\262\206nIA\320\211\203l\211A\262\242\3508\262\262;\204\271\320\351C\3522[\211\242\206\341D\240\210\204\371\353\354\355\356\357\360!\361\"\350\362%C\"\210EFD\211\203 \211@\353\354\355\363\357\360!\364\"\350\362%\"\210A\266\202\202\376\210\211\242A@\365\235\203/\316\366\242@\"\2029\316\347\242@\242A@#\211\242B\211C\235\204W\204W\345@C\"\204W\211CBC\266\2020\262\266\203\232\203\271\262\320\262\202\271\266\202\211\203\202\345C\"\204\202BCBC\211\262\262\262\315\316\343 \"! L\210\204\364 \206\362\344 !\211\203\256\211<\203\256\211\206\360\345C\"A\206\360\211\346\232\203\302D\206\331\345E\"A\206\331\345F\"A\206\331G\211\203\363\316\347@@@@@A@#\232\204\363\211A\266\202\202\326\211@@\262\206\331H\211\203\316\347@@@A@#\232\204\211A\266\202\202\375\211@\262\206\331IA\320\211\203\327\211A\262\242\3508\262\262;\204$\320\351C\3522\306\211\242\206LD\240\210\204d\353\354\355\356\357\360!\367\"\350\362%C\"\210EFD\211\203\207\211@\353\354\355\363\357\360!\370\"\350\362%\"\210A\266\202\202i\210\211\242A@\365\235\203\232\316\366\242@\"\202\244\316\347\242@\242A@#\211\242B\211C\235\204\302\204\302\345@C\"\204\302\211CBC\266\2020\262\266\203\232\203$\262\320\262\202$\266\202\211\203\355\345C\"\204\355BCBC\211\262\262\262\371@\3721\"\211;\203\311!@\202\211\312!\204\313!\210\314\315\316\317#!!\2620\202$\210\320\266\202\2040\335\373@\"\210\374!\204=\335\375@\"\210\376\377\201^ \236AA@@\206R%\210 \203P \211A\262 \242\262J\203o\201_ !\210\n\201` \267\202\336K\203\203\201a !\210\311!\f\206\217\311!\201b \"\201c \311!A@\201d \201e D?\351\257?\205\332\205\332\201f \201g \"\203\327\201h \201i \225\"\202\330\211\262&\266\203\202\337rq\210\201j \"\205\214\201k \210L\211\203 \211@\201l \351\"\210A\266\202\202\367\210)\201d \f?\351$)\202\337\201m \201n M\"\201o 8\262\211\201p H\262\201q \"\201f \201g \"\203Q\201h \201i \225\"\202R\211\262\201r \201s !Q\262\211\204k\201t C\262\201u \201v \201w \201x \201w \"\"\201q #\201q Q\262rq\210\201j \"\210\201d ?\351$\211\262:\205\330\201q @\201r \201s A!\260\262\201y \201z \"\210\201{ Ap\351$\210)\262\202\337\320\262\204\376\201| \201} \236A@\201~ \n@!%\210\202H\201 =\203A\n\306=\203H\201\200 N\"\210\376\350\201\201 #\210\201\202 \201\203 \f\201n M\"\201o 8\262\320&\210\202H\201\204 @\"\211\201\205 O\"A@\262\211@\320\203\344\201\206 >\203\344\235\204sB\262P>\204\235 A\203\235\201\207 B\262AA\211\201\210 \201\211 8 AC\"\240\266\201\212 !\211\203\253Q\202\270\201w \201\213 \201\214 Q!\" A\211\203\332R\203\332\201\215 \fS> T>P>%\210J\203\271\211\203\271\232\203 P>\204 \211UBVBV\201\205 W\"\241\210X\241\210\203g\201\216 @A!\201\217 =\203` \315\316\201\220 @@\"!J>\203`@AB\262\232\203S\315\316\201\220 @@\"!\315\316\201\220 @@\"!JBL\210\201\221 @AC $\210A\262\202 \203\230Y\203\230\201\222 >\204\230\201\222 B\262\232\203\213\211ZBZ\201\221 \201\222 C $\210\203\271\201\223 \311!\201\224 \"\203\271\201\225 C\201\226 EC\"\210\201\227 \201\230 \201\231 \201\205 O\"A@\262!\201\232 Q\201\233 \201\234 !\201\235 Q\"\266\323=\203 r\nq\210\201j \"\210\201y \201z \"\210\201{ p\351$\210)\201\202 \201\236 \201n \nM\"\201o 8\262&\266[q\210\n\306=\203H\212\201\237 !\210\201\200 N\"\210)B\262\202V\212\201\240 \201\241 \"\210)r\\q\210 ]\201\242 \320\351\"\210*\211 \211\205~\337\340 !\211!\205~ )\203\215\201\243 !\210\201\244 \210\210\201\245 \210\201\246 \201\247 !\207" [gnus-newsgroup-name gnus-move-group-prefix-function gnus-move-split-methods gnus-current-article gnus-original-article-buffer buffer move request-move-article (error) gnus-find-method-for-group featurep require fboundp intern format "%s-%s" nil user-error "The current group does not support article moving" crosspost request-replace-article (error) "The current group does not support article editing" gnus-summary-work-articles (error) #1="" ((move "Move" "Moving") (copy "Copy" "Copying") (crosspost "Crosspost" "Crossposting")) nnheader-set-temp-buffer " *copy article*" error "Unknown action %s" buffer-live-p get-buffer gnus-summary-select-article gnus-read-move-group-name "gnus-current-%s-group" gnus-group-method assoc "native" "%s:%s" 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205 \301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) "%s" [throw server-name] [gnus-server-method-cache gnus-methods-equal-p throw server-name] request-accept-article (error) "%s does not support article copying" gnus-check-server "Can't open server %s" gnus-message 6 gnus-mark-article-hook gnus-article-prepare-hook gnus-display-mime-function gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist gnus-preserve-marks gnus-suppress-duplicates gnus-copy-article-ignored-headers gnus-newsgroup-data gnus-canceled-mark gnus-newsrc-hashtb gnus-newsgroup-unreads gnus-article-mark-lists gnus-use-cache gnus-newsgroup-marked gnus-newsgroup-dormant gnus-read-mark gnus-newsgroup-reads gnus-active-hashtb gnus-newsgroup-active gnus-mark-copied-or-moved-articles-as-expirable gnus-newsgroup-expirable gnus-summary-buffer gnus-group-buffer gnus-group-marked "%s to %s: %s..." gnus-summary-push-marks-to-backend #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (move 1144 copy 1249 crosspost 1309)) gnus-dup-unsuppress-article gnus-server-equal gnus-request-move-article gnus-request-accept-article quote string-match "^[^:]+:" substring 0 gnus-request-article-this-buffer nnheader-narrow-to-headers message-remove-header message-tokenize-header gnus-data-find-in 3 8 " " ":" number-to-string system-name mapconcat identity delete "Xref:" nnheader-replace-header "Xref" gnus-request-replace-article 1 "Couldn't %s article %s: %s" nnheader-get-report junk gnus-summary-mark-article "Deleted article %s" run-hook-with-args gnus-summary-article-delete-hook gnus-group-prefixed-name gethash (move copy) read gnus-add-to-range 2 gnus-group-auto-expirable-p (expirable . expire) copy-sequence gnus-cache-possibly-enter-article gnus-article-mark-to-type list "gnus-newsgroup-%s" gnus-add-marked-articles expire gnus-method-option-p server-marks gnus-request-set-mark add gnus-dribble-enter "(gnus-group-set-info '" gnus-prin1-to-string ")" "^(gnus-group-set-info '(\"" regexp-quote "\"" gnus-summary-article-move-hook gnus-summary-goto-subject apply gnus-summary-remove-process-mark gnus-group-get-new-news-this-group kill-buffer gnus-prune-buffers gnus-summary-position-point gnus-set-mode-line summary] 33 (#$ . 339113) "P"]) #@16 (fn ARTICLE) (defalias 'gnus-summary-push-marks-to-backend #[257 "\303\211 >\204 \304B\262\211\203C \305@A!\306=\2034 \307\310\311@@\"!J>\2034 \211@AB\262\202; \211@AB\262\211A\266\202\202 \312\nC\313EC\314ED\"\207" [gnus-article-mark-lists gnus-newsgroup-unreads gnus-newsgroup-name nil read gnus-article-mark-to-type list intern format "gnus-newsgroup-%s" gnus-request-set-mark set del] 10 (#$ . 348210)]) #@160 Copy the current article to some other group. Arguments have the same meanings as in `gnus-summary-move-article'. (fn &optional N TO-NEWSGROUP SELECT-METHOD) (defalias 'gnus-summary-copy-article #[768 "\300\301$\207" [gnus-summary-move-article copy] 8 (#$ . 348648) "P"]) #@138 Crosspost the current article to some other group. Arguments have the same meanings as in `gnus-summary-move-article'. (fn &optional N) (defalias 'gnus-summary-crosspost-article #[256 "\300\301\211\302$\207" [gnus-summary-move-article nil crosspost] 6 (#$ . 348931) "P"]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable gnus-summary-respool-default-method funcall function #[0 "\300\207" [nil] 1] "Default method type for respooling an article.\nIf nil, use to the current newsgroup method." :type symbol :group gnus-summary-mail] 8) #@704 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. (fn &optional N METHOD) (defalias 'gnus-summary-respool-article #[512 "\211\204 \301\302!\210\303\304\305!@!\306\307!\"\203 \310\311#\207\312\311#\207" [gnus-newsgroup-name 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] 6 (#$ . 349513) (byte-code "\303\304\305\306!\"\307 \206 \310\n!@!\311\312\313\314\315&\314\316\317!!\211\262G\320U\2032 \317!\321D\202M \211G\322U\203> \211@\202M \303\323\"\324\311\325\313#\"A\262\266\204D\207" [current-prefix-arg gnus-summary-respool-default-method gnus-newsgroup-name mapcar car gnus-methods-using respool symbol-name gnus-find-method-for-group gnus-completing-read "Backend to use when respooling" t nil gnus-mail-method-history gnus-servers-using-backend intern 0 "" 1 #[257 "\211A@B\207" [] 3 "\n\n(fn M)"] assoc "Server name"] 11)]) #@75 Import an arbitrary file into a mail newsgroup. (fn FILE &optional EDIT) (defalias 'gnus-summary-import-article #[513 "\302\211\211\303\30411 \211;\203 \305!@\202 \211\306!\204! \307!\210\310\311\312\313#!!\2620\2023 \210\302\266\202\204= \314\315\"\210\316!\204Q \317!\203Q \314\320\"\210r\321\322!q\210\323 \210\324!\210eb\210\325 \203\233 \214eb\210\326\327\302\330#\210e`S}\210eb\210\331\332\302\330#\204\227 db\210\333!\262\334\335\3368\262!\337\261\210)\202\324 \333!\262\340ed\"\262\341\342\341!\337\343\342\343!\337\334\335\n\3368\262!\337\344\345 \337\346\347!\337\350\347\3518\262!\327\261\210\352\302\330#\262\353p!\210)\354!\355y\210\356A\302\330#\210\205\364 \357 \207" [gnus-newsgroup-name gnus-newsgroup-active nil request-accept-article (error) gnus-find-method-for-group featurep require fboundp intern format "%s-%s" error "%s does not support article importing" file-readable-p file-regular-p "Can't read %s" gnus-get-buffer-create " *import file*" erase-buffer nnheader-insert-file-contents nnheader-article-p search-forward "\n\n" t re-search-forward "^date:" file-attributes "Date: " message-make-date 5 "\n" count-lines "From: " read-string "Subject: " "Message-ID: " message-make-message-id "Lines: " int-to-string "Chars: " 7 gnus-request-accept-article kill-buffer gnus-activate-group 1 gnus-summary-goto-article gnus-summary-edit-article] 26 (#$ . 351118) "fImport file: \nP"]) #@40 Create an article in a mail newsgroup. (defalias 'gnus-summary-create-article #[0 "\302 \303\304\30511 \211;\203 \306!@\202 \211\307!\204! \310!\210\311\312\313\314#!!\2620\2023 \210\303\266\202\204= \315\316\"\210r\317\320!q\210\321 \210eb\210\322\323\322!\324\325\323\325!\324\326\327 !\324\330\331 \324\261\f\210\332\303\333#\262\334p!\210)\335!\336y\210\337A\303\333#\210\340 \207" [gnus-newsgroup-name gnus-newsgroup-active current-time nil request-accept-article (error) gnus-find-method-for-group featurep require fboundp intern format "%s-%s" error "%s does not support article importing" gnus-get-buffer-create " *import file*" erase-buffer "From: " read-string "\n" "Subject: " "Date: " message-make-date "Message-ID: " message-make-message-id gnus-request-accept-article t kill-buffer gnus-activate-group 1 gnus-summary-goto-article gnus-summary-edit-article] 15 (#$ . 352577) nil]) #@142 Say whether the current (mail) article is available from news as well. This will be the case if the article has both been mailed and posted. (defalias 'gnus-summary-article-posted-p #[0 "\302\303`\304\"\211\205\f \305!\266\303`\306\"\206 \307 \"\3108\262\211\311H\262\312 @\313\314\"\2036 \315\316\317 #\202= \315\316\320 #\210\321)\207" [gnus-newsgroup-data gnus-override-method gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 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 (#$ . 353496) nil]) #@92 Expire all articles that are marked as expirable in the current group. (fn &optional NOW) (defalias 'gnus-summary-expire-articles #[256 "?\205 \306 \30712 \211;\203 \310!@\202 \211\311!\204\" \312!\210\313\314\315\316#!!\2620\2024 \210\317\266\202\205 \320 !\321\203N \322\323!\210\324 \210\325 !\202T \326\n\327\"\211 \"\203^ \330\202b \331 \332\"\331 \333\"\206j \f \317\205\375 \334\335\336\"\210\337 !\203\371 \212\203\217 \317 (\340 \"\262*\202\225 \340 \"\262\204\233 \211\211=\204\370 \317 )\211\203\366 \211@\211>\204\357 \341*\"\203\357 \342+\"\210\343\344\345\341*\"\3468\262 \f;\203\326 \f\202\353 \f\345=\203\340 \317\202\353 \f !\211;\205\351 \211\262\317&\210A\266\202\202\245 \210))\334\335\347\")\266\204\207" [gnus-group-is-exiting-without-update-p gnus-newsgroup-name gnus-newsgroup-expirable gnus-newsgroup-unexist nnmail-expiry-target nnmail-expiry-wait request-expire-articles (error) gnus-find-method-for-group featurep require fboundp intern format "%s-%s" nil gnus-group-total-expirable-p gnus-list-range-difference gnus-run-hooks gnus-exit-group-hook gnus-summary-update-info gnus-list-of-read-articles sort < immediate gnus-group-find-parameter expiry-wait expiry-target gnus-message 6 "Expiring articles..." gnus-check-group gnus-request-expire-articles gnus-data-find-in gnus-summary-mark-article run-hook-with-args gnus-summary-article-expire-hook delete 3 "Expiring articles...done" nnmail-expiry-wait-function gnus-use-cache gnus-newsgroup-data gnus-canceled-mark] 14 (#$ . 354185) 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 #[0 "\204 \301\302!\204 \303\304!\210\305\306!\207" [gnus-expert-user gnus-yes-or-no-p "Are you really, really sure you want to delete all expirable messages? " error "Phew!" gnus-summary-expire-articles t] 2 (#$ . 355751) nil]) #@421 Delete the N next (mail) articles. This command actually deletes articles. This is not a marking command. The article will disappear forever from your life, never to return. If N is negative, delete backwards. If N is nil and articles have been marked with the process mark, delete these instead. If `gnus-novice-user' is non-nil you will be asked for confirmation before the articles are deleted. (fn &optional N) (defalias 'gnus-summary-delete-article #[256 "\305\3061- \211;\203 \307!@\202 \211\310!\204 \311!\210\312\313\314\315#!!\2620\202/ \210\316\266\202\2048 \317\320!\210\321\307!!\204D \317\322!\210\323\324\325!!\326\"\327\316\n\203m \330\314\331G\332V\203g \314\333G\"\202h \334\"!\203\263 \335\336#\262\212\203\250 \337@!\210@>\204\241 \340@ \"\210@\341\f\"\3428\262\343\344\327\316\211&\266A\262\202u )\211\203\263 \345\346\347#\210\350 \210\351\352!\210)\207" [gnus-newsgroup-name nnmail-expiry-target gnus-novice-user gnus-canceled-mark gnus-newsgroup-data request-expire-articles (error) gnus-find-method-for-group featurep require fboundp intern format "%s-%s" nil error "The current newsgroup does not support article deletion" gnus-check-server "Couldn't open server" sort copy-sequence gnus-summary-work-articles < delete gnus-yes-or-no-p "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-data-find-in 3 run-hook-with-args gnus-summary-article-delete-hook gnus-message 4 "Couldn't delete articles %s" gnus-summary-position-point gnus-set-mode-line summary] 13 (#$ . 356183) "P"]) #@359 Edit the current article. This will have permanent effect only in mail groups. If ARG is nil, edit the decoded articles. If ARG is 1, edit the raw articles. If ARG is 2, edit the raw articles even in read-only groups. If ARG is 3, edit the articles with the current handles. Otherwise, allow editing of articles even in read-only groups. (fn &optional ARG) (defalias 'gnus-summary-edit-article #[256 "\306\211\211C\203C \307\267\202@ \310\262\202C \310\262\310\262\202C \211\211\205/ \311\312 !\211!\205/ )\205; rq\210\n\306)\240\210\202C \310\262\203V \204V \313\235\203V \314\315 \"\210r\fq\210 1 $ \316 \210\204q \317 \203q \314\320!\210\321\310!\210\204\226 \211\205\212 \311\312 !\211!\205\212 )\203\226 rq\210\322 \210) \323\235\203\237 \310\262\324\203\250 \325\202\264 \326\327\330\331\332!\333\"\334$\335\336\337\340\341 DD\342\343\344\3411DD\345\341\346\347 ! \"\350\351B\352B\353BE%\"\262DD\257?\205\347 \354\3552\356H\206\360 \357\317 \f\360BBBBFE\"+\207" [gnus-article-buffer buffer gnus-article-mime-handles gnus-newsgroup-name gnus-summary-buffer gnus-newsgroup-charset nil #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (1 14 2 20 3 29)) t buffer-live-p get-buffer ("nndraft:delayed" "nndraft:drafts" "nndraft:queue") error "Can't edit the raw article in group %s" gnus-set-global-variables gnus-group-read-only-p "The current newsgroup does not support article editing" gnus-summary-show-article mm-enable-multibyte ("nndraft:delayed" "nndraft:drafts") gnus-article-edit-article ignore make-byte-code 0 " \303\304\305\300\242!\210) \306\301!\210\307\310\311\304\211$\207" vconcat vector [mml-buffer-list rfc2047-quote-decoded-words-containing-tspecials nil t mime-to-mml make-local-variable add-hook kill-buffer-hook mml-destroy-buffers] 6 lambda (no-highlight) let mail-parse-charset quote (message-options message-options) (message-options-set-recipient) mail-parse-ignored-charsets rfc2047-header-encoding-alist gnus-group-name-charset gnus-find-method-for-group append "Newsgroups" "Followup-To" "Xref" (progn (mml-to-mime) (mml-destroy-buffers) (remove-hook 'kill-buffer-hook #'mml-destroy-buffers t) (kill-local-variable 'mml-buffer-list)) gnus-summary-edit-article-done 5 "" (no-highlight) gnus-newsgroup-ignored-charsets gnus-current-headers] 22 (#$ . 357864) "P"]) (defalias 'gnus-summary-edit-article-postpone 'gnus-article-edit-exit) #@103 Make edits to the current article permanent. (fn &optional REFERENCES READ-ONLY BUFFER NO-HIGHLIGHT) (defalias 'gnus-summary-edit-article-done #[1024 "\212\306 \203W \307`d\"d`Z\310\311 eb\210\312\313\310#\203( \314\224\314\225|\210\315!c\210eb\210\312\316\310#\203> \314\224\314\225|\210\315!c\210eb\210\312\317\310#\203T \314\224\314\225|\210\315!c\210)\266)p A\320\321\322!r\211q\210\323\324\325\326\327!\330\"\331$\216\332!\210\204\213 \333 @p\310$\211\262\204\213 \334\335!\202T\247\203\246 r\nq\210\336 \"\337 !\210\262\340\310\"\210)\203 \341\342\"\341\343\344!\206\270 \345\342\"\232\203 \212\214\346 \210\347ed\"\320\321\322!r\211q\210\323\324\325\326\327!\350\"\331$\216\351\352\"c\210c\210\353c\210p \354\320\310\"@\262)r\nq\210\355 \"\356\233\211\240\266\357\"\210\340\320\310#\203\360!\210+\266*\2025\206#\nq\210\361!\210\340\320\310#\2035\360!\210\204Jr8q\2109q\210\362 @p#\210)\363\364\365\"\205T\366\367!*\262\207" [case-fold-search gnus-article-current gnus-summary-buffer gnus-newsgroup-limit nntp-server-buffer gnus-newsgroup-data article-goto-body count-lines t point-marker re-search-forward "^content-length:[ ]\\([0-9]+\\)" 1 number-to-string "^x-content-length:[ ]\\([0-9]+\\)" "^lines:[ ]\\([0-9]+\\)" nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-buffer-substring gnus-request-replace-article error "Couldn't replace article" delq gnus-summary-limit gnus-summary-goto-subject message-tokenize-header " " message-fetch-field "references" "" message-narrow-to-head buffer-substring-no-properties [buffer-name kill-buffer] format "211 %d Article retrieved.\n" ".\n" gnus-get-newsgroup-headers gnus-data-find-in 3 gnus-summary-update-article-line gnus-summary-update-secondary-mark gnus-summary-update-article gnus-request-article gnus-visual-p summary-highlight highlight gnus-run-hooks gnus-visual-mark-article-hook gnus-article-buffer gnus-original-article-buffer] 17 (#$ . 360315) nil]) #@62 Perform editing command KEY in the article buffer. (fn KEY) (defalias 'gnus-summary-edit-wash #[257 "\300\301!\210\302 \210\303\304 P!\210\305 \207" [message "" gnus-summary-edit-article execute-kbd-macro this-command-keys gnus-article-edit-done] 4 (#$ . 362386) (byte-code "\300\301\302 \303P\"\210\304 C\207" [message "%s" this-command-keys "- " read-char] 4)]) #@88 Query where the respool algorithm would put this article. (fn &optional SILENT TRACE) (defalias 'gnus-summary-respool-query #[512 "\306\307 \210r q\210\310\n!@\311=\203: \312=\203 \f\202) \203$ \202) \205) \313 \206/ \314\315\"*\202> \314\315\"?\205X \211\203S \316\317\320\321\322#\"\210\202W \316\323!\210\211\262*\207" [gnus-mark-article-hook gnus-original-article-buffer gnus-newsgroup-name nnimap-split-methods nnmail-split-methods nnimap-split-fancy nil gnus-summary-select-article gnus-find-method-for-group nnimap default nnmail-split-fancy nnmail-article-group identity message "This message would go to %s" mapconcat car ", " "This message would go to no groups"] 9 (#$ . 362758) 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 #[0 "\300\301\302\"\207" [gnus-summary-respool-query nil t] 3 (#$ . 363478) nil]) #@186 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. (fn &optional UNMARK) (defalias 'gnus-summary-kill-same-subject-and-select #[256 "\211\203 \302!\262\303\304\305\206& \306`\307\"\211\205 \310!\266\306`\311\"\206& \312 \"\3138\262\211\205: \314!\205: \211\315H\266\202\"\316\317 \205v \304\305\206` \306`\307\"\211\205U \310!\266\306`\311\"\206` \312 \"\3138\262\211\205t \314!\205t \211\315H\266\202\"\210\320\321\322\211\315U\203\206 \323\202\207 \324\203\220 \325\202\221 \326%\207" [gnus-newsgroup-data gnus-auto-select-same prefix-numeric-value gnus-summary-mark-same-subject nil gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 mail-header-p 1 gnus-summary-next-article t gnus-message 7 "%d article%s marked as %s" " is" "s are" "unread" "read"] 9 (#$ . 363732) "P"]) #@160 Mark articles which has the same subject as read. If UNMARK is positive, remove any kind of mark. If UNMARK is negative, tick articles. (fn &optional UNMARK) (defalias 'gnus-summary-kill-same-subject #[256 "\211\203 \301!\262\302\303\304\206& \305`\306\"\211\205 \307!\266\305`\310\"\206& \311 \"\3128\262\211\205: \313!\205: \211\314H\266\202\"\204G \315\314\316\"\210\317\320\321\203S \322\202T \323$\207" [gnus-newsgroup-data prefix-numeric-value gnus-summary-mark-same-subject nil gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 mail-header-p 1 gnus-summary-next-subject t gnus-message 7 "%d articles are marked as %s" "unread" "read"] 7 (#$ . 364717) "P"]) #@241 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. (fn SUBJECT &optional UNMARK) (defalias 'gnus-summary-mark-same-subject #[513 "\303\212\204 \304!\210\305 \210\306!\203H \211T\262\202 \307V\2034 \310 !\210\305 \210\306!\203H \211T\262\202 \310\n!\210\305 \210\306!\203H \211T\262\2024 \311\312!\210)\211\207" [gnus-killed-mark 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] 5 (#$ . 365472)]) #@248 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. (fn N &optional UNMARK) (defalias 'gnus-summary-mark-as-processable #[513 "\204 \203 \203 \302\303 \304 #\207\305!\262\306W\307!\211\306V\203x \203D \310\311`\312\"\211\2055 \313!\266\311`\314\"\206@ \315 !\202\\ \316\311`\312\"\211\205P \313!\266\311`\314\"\206[ \315 !\203x \317\203h \320\202i \321\322\323#\306U\203x \211S\262\202 \211\306U\204\203 \324\325\326\"\210\327 \210\330 \210\207" [transient-mark-mode mark-active gnus-uu-mark-region region-beginning region-end prefix-numeric-value 0 abs gnus-summary-remove-process-mark get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-set-process-mark gnus-summary-next-subject -1 1 nil t gnus-message 7 "No more articles" gnus-summary-recenter gnus-summary-position-point] 8 (#$ . 366184) "P"]) #@184 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. (fn N) (defalias 'gnus-summary-unmark-as-processable #[257 "\300\301\"\207" [gnus-summary-mark-as-processable t] 4 (#$ . 367240) "P"]) #@44 Remove the process mark from all articles. (defalias 'gnus-summary-unmark-all-processable #[0 "\212\203 \301@!\210\202 )\302 \207" [gnus-newsgroup-processable gnus-summary-remove-process-mark gnus-summary-position-point] 2 (#$ . 367558) nil]) #@54 Mark ARTICLE with a mark of TYPE. (fn ARTICLE TYPE) (defalias 'gnus-summary-add-mark #[514 "\211\236@\302\204 \303\304\"\202/ \305\306\307\"!\262\211JBL\210\310>\203+ \311!\202/ \312 \313\"\207" [gnus-article-mark-lists gnus-del-mark nil error "No such mark type: %s" intern format "gnus-newsgroup-%s" (processable cached replied forwarded recent saved) gnus-summary-update-secondary-mark gnus-summary-update-mark unread] 8 (#$ . 367811)]) #@168 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. (fn N) (defalias 'gnus-summary-mark-as-expirable #[257 "\301\"\207" [gnus-expirable-mark gnus-summary-mark-forward] 4 (#$ . 368269) "p"]) #@163 Mark N articles forward as spam. If N is negative, mark backward instead. The difference between N and the actual number of articles marked is returned. (fn N) (defalias 'gnus-summary-mark-as-spam #[257 "\301\"\207" [gnus-spam-mark gnus-summary-mark-forward] 4 (#$ . 368576) "p"]) #@111 Mark ARTICLE as replied to and update the summary line. ARTICLE can also be a list of articles. (fn ARTICLE) (defalias 'gnus-summary-mark-article-as-replied #[257 "\211<\203 \211\202 \211C\211\211\2056 \211@\211\247\204 \302\303\"\210\211B\304\305\306\304#\203. \307!\210)A\266\202\202\f \262\207" [gnus-newsgroup-replied inhibit-read-only error "%s is not a number" t gnus-summary-goto-subject nil gnus-summary-update-secondary-mark] 8 (#$ . 368868) (byte-code "\300`\301\"\211\205 \302!\266\300`\303\"\206 \304 C\207" [get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject] 3)]) #@110 Mark ARTICLE as forwarded and update the summary line. ARTICLE can also be a list of articles. (fn ARTICLE) (defalias 'gnus-summary-mark-article-as-forwarded #[257 "\211<\203 \211\202 \211C\211\211\205, \211@\211B\302\303\304\302#\203$ \305!\210)A\266\202\202\f \262\207" [gnus-newsgroup-forwarded inhibit-read-only t gnus-summary-goto-subject nil gnus-summary-update-secondary-mark] 8 (#$ . 369516)]) #@50 Set a bookmark in current article. (fn ARTICLE) (defalias 'gnus-summary-set-bookmark #[257 "\305!\203 \203 \n\203 \n@\232\204 \306\307!\210\310\f\236\f\"\211rq\210\311`\212\312 \210`)^`\")B\fB\313\314\315\"\207" [gnus-article-buffer gnus-current-article gnus-article-current gnus-newsgroup-name gnus-newsgroup-bookmarks get-buffer error "No current article selected" delq count-lines article-goto-body gnus-message 6 "A bookmark has been added to the current article."] 5 (#$ . 369934) (byte-code "\300`\301\"\211\205 \302!\266\300`\303\"\206 \304 C\207" [get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject] 3)]) #@61 Remove the bookmark from the current article. (fn ARTICLE) (defalias 'gnus-summary-remove-bookmark #[257 "\211\236\204 \301\302\303\"\207\304\236\"\301\302\305\"\207" [gnus-newsgroup-bookmarks gnus-message 6 "No bookmark in current article." delq "Removed bookmark."] 4 (#$ . 370616) (byte-code "\300`\301\"\211\205 \302!\266\300`\303\"\206 \304 C\207" [get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject] 3)]) #@166 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. (fn N) (defalias 'gnus-summary-mark-as-dormant #[257 "\301\"\207" [gnus-dormant-mark gnus-summary-mark-forward] 4 (#$ . 371092) "p"]) #@76 Set the process mark on ARTICLE and update the summary line. (fn ARTICLE) (defalias 'gnus-summary-set-process-mark #[257 "\211\301\"B\302!\205 \303 \210\302!\210\304!\207" [gnus-newsgroup-processable delq gnus-summary-goto-subject gnus-summary-show-thread gnus-summary-update-secondary-mark] 5 (#$ . 371392)]) #@89 Remove the process mark from ARTICLES and update the summary line. (fn &rest ARTICLES) (defalias 'gnus-summary-remove-process-mark #[128 "\211\211\203$ \211@\301\"\302!\203 \303 \210\302!\210\304!\210A\266\202\202 \210\305\207" [gnus-newsgroup-processable delq gnus-summary-goto-subject gnus-summary-show-thread gnus-summary-update-secondary-mark t] 6 (#$ . 371716)]) #@76 Set the process mark on ARTICLE and update the summary line. (fn ARTICLE) (defalias 'gnus-summary-set-saved-mark #[257 "\211B\301!\205 \302!\207" [gnus-newsgroup-saved gnus-summary-goto-subject gnus-summary-update-secondary-mark] 3 (#$ . 372100)]) #@266 Mark N articles as read forwards. If N is negative, mark backwards instead. Mark with MARK, ?r by default. The difference between N and the actual number of articles marked is returned. If NO-EXPIRE, auto-expiry will be inhibited. (fn N &optional MARK NO-EXPIRE) (defalias 'gnus-summary-mark-forward #[769 "\306 \210\307W\205 \310=?\205 \n \fF>?\311!\206! \307V\203R \312\313#\203R \314\203; \315\202< \316\205D \310=?\317#\307U\203R S\262\202# \307U\204f \320\321\322\203c \323\202d \324#\210\325 \210\326 \210\327\330!\210)\207" [gnus-summary-goto-unread gnus-unread-mark gnus-spam-mark gnus-ticked-mark gnus-dormant-mark gnus-del-mark gnus-summary-show-thread 0 never abs gnus-summary-mark-article nil 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] 11 (#$ . 372361) "p"]) #@64 Mark the current article quickly as read with MARK. (fn MARK) (defalias 'gnus-summary-mark-article-as-read #[257 "\306`\307\"\211\205 \310!\266\306`\311\"\206 \312 \313\"\313 \"\313\n\"\313 \"\211B\fB \2038 \314!\210\315#\262\203^ >\203^ \262\315#\262\211B\316\317\"\210\320\207" [gnus-newsgroup-unreads gnus-newsgroup-marked gnus-newsgroup-spam-marked gnus-newsgroup-dormant gnus-newsgroup-reads gnus-use-cache 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-name gnus-newsgroup-auto-expire gnus-auto-expirable-marks gnus-expirable-mark gnus-newsgroup-expirable] 6 (#$ . 373281)]) #@66 Mark the current article quickly as unread with MARK. (fn MARK) (defalias 'gnus-summary-mark-article-as-unread #[257 "\306`\307\"\211\205 \310!\266\306`\311\"\206 \312 \313\"\211A@\262\314 #\262=\2030 \315\202\315 \316X\203? \317\320\321\"\210\322\202\315 \323\n\"\323 \"\323\f\"\323 \"\323\"\323\" U\203p \324\n\"\202\225 U\203 \324 \"\202\225 U\203\216 \324\f\"\202\225 \324\"\323\236\" \203\307 \325\313\"\3268\262!\203\307 \212\327 U U U%\210)\330\331\"\210\315\207" [gnus-newsgroup-data gnus-newsgroup-name gnus-newsgroup-marked gnus-newsgroup-spam-marked gnus-newsgroup-dormant gnus-newsgroup-expirable get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-data-find-in gnus-request-update-mark t 0 gnus-error 1 "Gnus doesn't know the article number; can't mark" nil delq gnus-add-to-sorted-list mail-header-p 3 gnus-cache-possibly-enter-article gnus-summary-update-mark unread gnus-newsgroup-reads gnus-newsgroup-unreads gnus-ticked-mark gnus-spam-mark gnus-dormant-mark gnus-use-cache gnus-unread-mark] 10 (#$ . 374070)]) #@365 Mark ARTICLE with MARK. MARK can be any character. Four MARK strings are reserved: `? ' (unread), `?!' (ticked), `??' (dormant) and `?E' (expirable). If MARK is nil, then the default character `?r' is used. If ARTICLE is nil, then the article on the current line will be marked. If NO-EXPIRE, auto-expiry will be inhibited. (fn &optional ARTICLE MARK NO-EXPIRE) (defalias 'gnus-summary-mark-article #[768 ";\203\n \306H\262\204 \262\211\204\" \203\" \n>\203\" \262\206< \307`\310\"\211\2051 \311!\266\307`\312\"\206< \313 \314\f\"\211A@\262\315 #\262=\203W \316\202\322 \204_ \317\320!\210U\204{ U\204{ U\204{ U\203\202 \321\"\202\206 \322\"\204\215 \316\202\322 \203\275 U\204\275 \323\314\f\"\3248\262!\203\275 \212\325 U UU%\210)\311\326\316#\205\322 \316 \327 \210\330\331\"\210)\316\207" [gnus-del-mark gnus-newsgroup-auto-expire gnus-auto-expirable-marks gnus-expirable-mark gnus-newsgroup-data gnus-newsgroup-name 0 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-data-find-in gnus-request-update-mark t error "No article on current line" gnus-mark-article-as-unread gnus-mark-article-as-read mail-header-p 3 gnus-cache-possibly-enter-article nil gnus-summary-show-thread gnus-summary-update-mark unread gnus-unread-mark gnus-ticked-mark gnus-spam-mark gnus-dormant-mark gnus-use-cache gnus-canceled-mark inhibit-read-only] 12 (#$ . 375231)]) #@65 Update the secondary (read, process, cache) mark. (fn ARTICLE) (defalias 'gnus-summary-update-secondary-mark #[257 "\306>\203 \202E \n>\203 \202E \f>\203 \202E >\203+ \202E >\2037 \202E >\203C \202E \307\"\210\310\311\312\"\203V \313 \210\314\315!\210\316\207" [gnus-newsgroup-processable gnus-process-mark gnus-newsgroup-cached gnus-cached-mark gnus-newsgroup-replied gnus-replied-mark gnus-summary-update-mark replied gnus-visual-p summary-highlight highlight gnus-summary-highlight-line gnus-run-hooks gnus-summary-update-hook t gnus-newsgroup-forwarded gnus-forwarded-mark gnus-newsgroup-saved gnus-saved-mark gnus-newsgroup-unseen gnus-unseen-mark gnus-no-mark] 4 (#$ . 376706)]) #@41 Update the download mark. (fn ARTICLE) (defalias 'gnus-summary-update-download-mark #[257 "\305>\203 \202 \n\203 \202 \f\306\"\210\307\310!\210\310\207" [gnus-newsgroup-undownloaded gnus-undownloaded-mark gnus-newsgroup-agentized gnus-downloaded-mark gnus-no-mark gnus-summary-update-mark download gnus-summary-update-line t] 4 (#$ . 377425)]) #@18 (fn MARK TYPE) (defalias 'gnus-summary-update-mark #[514 "\211\236A\304\305\306\307 \310#\210\211\205e \311\312!\203 \211T\262\211`\\dX\205e \211`\\b\210\313\314f``T{#``T|\210\211c\266\315=\205e \316\317`\320\"\211\205L \321!\266\317`\322\"\206W \323 \n\"\211A\211\240\266\324 =!)\207" [gnus-summary-mark-positions inhibit-read-only gnus-newsgroup-data gnus-unread-mark t re-search-backward "[\n ]" point-at-bol move-to-limit looking-at " " subst-char-in-string nil unread gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-update-line] 8 (#$ . 377784)]) #@94 Enter ARTICLE in the pertinent lists and remove it from others. (fn ARTICLE &optional MARK) (defalias 'gnus-mark-article-as-read #[513 "\211\206 \211 U\203 \306\n\"\202 \307\n\"\307 \"\307\f\"\307 \"\307\n\"\nB B \f\203> \310!\210\311\207" [gnus-del-mark gnus-expirable-mark gnus-newsgroup-expirable gnus-newsgroup-unreads gnus-newsgroup-marked gnus-newsgroup-spam-marked gnus-add-to-sorted-list delq gnus-cache-enter-remove-article t gnus-newsgroup-dormant gnus-newsgroup-reads gnus-use-cache] 6 (#$ . 378437)]) #@94 Enter ARTICLE in the pertinent lists and remove it from others. (fn ARTICLE &optional MARK) (defalias 'gnus-mark-article-as-unread #[513 "\211\206 \306X\203 \307\310\311\"\210\312\202r \313 \"\313\n\"\313 \"\313\f\"\313 \"\2036 \314!\210\211U\203D \315 \"\202g \211U\203S \315\n\"\202g \211U\203b \315 \"\202g \315 \"\313\236\"\316\207" [gnus-ticked-mark gnus-newsgroup-marked gnus-newsgroup-spam-marked gnus-newsgroup-dormant gnus-newsgroup-expirable gnus-newsgroup-unreads 0 gnus-error 1 "Gnus doesn't know the article number; can't mark" nil delq gnus-dup-unsuppress-article gnus-add-to-sorted-list t gnus-suppress-duplicates gnus-spam-mark gnus-dormant-mark gnus-newsgroup-reads] 6 (#$ . 378979)]) #@149 Tick N articles forwards. If N is negative, tick backwards instead. The difference between N and the number of articles ticked is returned. (fn N) (defalias 'gnus-summary-tick-article-forward #[257 "\301\"\207" [gnus-ticked-mark gnus-summary-mark-forward] 4 (#$ . 379726) "p"]) #@108 Tick N articles backwards. The difference between N and the number of articles ticked is returned. (fn N) (defalias 'gnus-summary-tick-article-backward #[257 "\301[\"\207" [gnus-ticked-mark gnus-summary-mark-forward] 4 (#$ . 380014) "p"]) #@206 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. (fn &optional ARTICLE CLEAR-MARK) (defalias 'gnus-summary-tick-article #[512 "\302\203\n \202 \"\207" [gnus-unread-mark gnus-ticked-mark gnus-summary-mark-article] 5 (#$ . 380263) nil]) #@164 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. (fn N) (defalias 'gnus-summary-mark-as-read-forward #[257 "\302 #\207" [gnus-del-mark gnus-inhibit-user-auto-expire gnus-summary-mark-forward] 5 (#$ . 380632) "p"]) #@127 Mark the N articles as read backwards. The difference between N and the actual number of articles marked is returned. (fn N) (defalias 'gnus-summary-mark-as-read-backward #[257 "\302[ #\207" [gnus-del-mark gnus-inhibit-user-auto-expire gnus-summary-mark-forward] 5 (#$ . 380962) "p"]) #@181 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. (fn &optional ARTICLE MARK) (defalias 'gnus-summary-mark-as-read #[512 "\300\"\207" [gnus-summary-mark-article] 5 (#$ . 381257)]) #@158 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. (fn N) (defalias 'gnus-summary-clear-mark-forward #[257 "\301\"\207" [gnus-unread-mark gnus-summary-mark-forward] 4 (#$ . 381548) "p"]) #@117 Clear marks from N articles backward. The difference between N and the number of marks cleared is returned. (fn N) (defalias 'gnus-summary-clear-mark-backward #[257 "\301[\"\207" [gnus-unread-mark gnus-summary-mark-forward] 4 (#$ . 381843) "p"]) #@50 Intended to be used by `gnus-mark-article-hook'. (defalias 'gnus-summary-mark-unread-as-read #[0 " >\205\n \303\n\"\207" [gnus-current-article gnus-newsgroup-unreads gnus-read-mark gnus-summary-mark-article] 3 (#$ . 382098)]) #@75 Intended to be used by `gnus-mark-article-hook'. (fn &optional NEW-MARK) (defalias 'gnus-summary-mark-read-and-unread-as-read #[256 "\303\304`\305\"\211\205\f \306!\266\304`\307\"\206 \310 \"\211A@\262\311!\204* \312!\2052 \313 \2061 \n\"\207" [gnus-newsgroup-data gnus-current-article gnus-read-mark gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-unread-mark-p gnus-read-mark-p gnus-summary-mark-article] 5 (#$ . 382332)]) #@75 Intended to be used by `gnus-mark-article-hook'. (fn &optional NEW-MARK) (defalias 'gnus-summary-mark-current-read-and-unread-as-read #[256 "\302\303`\304\"\211\205\f \305!\266\303`\306\"\206 \307 \"\211A@\262\310!\204* \311!\205G \312\303`\304\"\211\2056 \305!\266\303`\306\"\206A \307 \206F \"\207" [gnus-newsgroup-data gnus-read-mark gnus-data-find-in 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] 6 (#$ . 382845)]) #@50 Intended to be used by `gnus-mark-article-hook'. (defalias 'gnus-summary-mark-unread-as-ticked #[0 " >\205\n \303\n\"\207" [gnus-current-article gnus-newsgroup-unreads gnus-ticked-mark gnus-summary-mark-article] 3 (#$ . 383397)]) #@178 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. (fn POINT MARK ALL) (defalias 'gnus-summary-mark-region-as-read #[771 "\212\302b\210\303 \210`W\205= \2040 \304`\305\"\211\205 \306!\266\304`\307\"\206( \310 \211\262>\2035 \311 \"\210\312 \205= \202 \262)\207" [gnus-newsgroup-unreads gnus-del-mark 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] 7 (#$ . 383636) "r\nP"]) #@70 Mark articles with score less than SCORE with MARK. (fn SCORE MARK) (defalias 'gnus-summary-mark-below #[514 "\203\n \303!\202 \206 \304\262r q\210eb\210\305`\306\"\211\205# \307!\266\305`\310\"\206. \311 \n\236A\2069 \2069 \304W\203C \312\313\"\210\314 \205K \202 )\207" [gnus-summary-default-score gnus-summary-buffer gnus-newsgroup-scored 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] 5 (#$ . 384254) "P\ncMark: "]) #@69 Mark articles with score below SCORE as read. (fn &optional SCORE) (defalias 'gnus-summary-kill-below #[256 "\301\"\207" [gnus-killed-mark gnus-summary-mark-below] 4 (#$ . 384821) "P"]) #@77 Clear all marks from articles with score above SCORE. (fn &optional SCORE) (defalias 'gnus-summary-clear-above #[256 "\301\"\207" [gnus-unread-mark gnus-summary-mark-above] 4 (#$ . 385016) "P"]) #@65 Tick all articles with score above SCORE. (fn &optional SCORE) (defalias 'gnus-summary-tick-above #[256 "\301\"\207" [gnus-ticked-mark gnus-summary-mark-above] 4 (#$ . 385220) "P"]) #@65 Mark articles with score over SCORE with MARK. (fn SCORE MARK) (defalias 'gnus-summary-mark-above #[514 "\203\n \303!\202 \206 \304\262r q\210eb\210\305`\306\"\211\205# \307!\266\305`\310\"\206. \311 \n\236A\2069 \2069 \304V\203C \312\313\"\210\314 \205K \202 )\207" [gnus-summary-default-score gnus-summary-buffer gnus-newsgroup-scored 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] 5 (#$ . 385411) "P\ncMark: "]) (defalias 'gnus-summary-show-all-expunged 'gnus-summary-limit-include-expunged) #@93 Display all the hidden articles that were expunged for low scores. (fn &optional NO-ERROR) (defalias 'gnus-summary-limit-include-expunged #[256 "\306 \307\211\2036 \310@@\n\"\3118\262\204/ \312@@!\211\262\203/ @A W\203/ \211B\262A\262\202 \204E ?\205q \313\314!\202q eb\210\f B\315\f!\211\203d \211@\211\316H\fBA\266\202\202Q \210\317\237!\210eb\210\320 \210\306\266\203)\207" [inhibit-read-only gnus-newsgroup-scored gnus-newsgroup-data gnus-summary-expunge-below gnus-newsgroup-limit gnus-newsgroup-limits t nil gnus-data-find-in 3 gnus-number-to-header error "No expunged articles hidden" copy-sequence 0 gnus-summary-prepare-unthreaded gnus-summary-position-point] 8 (#$ . 386053) nil]) #@549 Mark all unread articles in this newsgroup as read. If prefix argument ALL is non-nil, ticked and dormant articles will also be marked as read. If QUIETLY is non-nil, no questions will be asked. If TO-HERE is non-nil, it should be a point in the buffer. All articles before (after, if REVERSE is set) this point will be marked as read. Note that this function will only catch up the unread article in the current summary buffer limitation. The number of articles marked as read is returned. (fn &optional ALL QUIETLY TO-HERE NOT-MARK REVERSE) (defalias 'gnus-summary-catchup #[1280 "\212\204 \203 \204 \306\203 \307\202 \310!\205\237 \203U \n\204U \204U \f\204U \2035 \311=\203U \203B \312\211\312\313\314\"\315 \"\"\202\236 \316 \210\203w \211\203w b\210\317 !\210\320?!\203\232 \321 !\210\202h \322?!\203\232 \203\210 `W\202\211 \323\203\232 \321 !\203\232 \320?!\204~ \324\325!\210\323)\326 \210\207" [gnus-interactive-catchup gnus-expert-user gnus-newsgroup-adaptive gnus-newsgroup-auto-expire gnus-suppress-duplicates gnus-use-cache gnus-y-or-n-p "Mark absolutely all articles as read? " "Mark all unread articles as read? " passive nil gnus-sorted-nunion gnus-sorted-intersection gnus-sorted-difference gnus-summary-show-all-threads gnus-summary-mark-current-read-and-unread-as-read gnus-summary-find-next gnus-summary-mark-article-as-read gnus-summary-first-subject t gnus-set-mode-line summary gnus-summary-position-point gnus-newsgroup-marked gnus-newsgroup-spam-marked gnus-newsgroup-dormant gnus-newsgroup-unreads gnus-newsgroup-downloadable gnus-newsgroup-unfetched gnus-newsgroup-cached gnus-catchup-mark] 11 (#$ . 386773) "P"]) #@146 Mark all unticked articles before the current one as read. If ALL is non-nil, also mark ticked and dormant articles as read. (fn &optional ALL) (defalias 'gnus-summary-catchup-to-here #[256 "\212\300 \301\302\303\304\305!\306\"\307$\216\212`\204 \310 \203 \311\312#\210\210*\210)\313 \207" [gnus-hidden-threads-configuration make-byte-code 0 "\301\300!\207" vconcat vector [gnus-restore-hidden-threads-configuration] 2 gnus-summary-find-prev gnus-summary-catchup t gnus-summary-position-point] 8 (#$ . 388466) "P"]) #@161 Mark all unticked articles after (and including) the current one as read. If ALL is non-nil, also mark ticked and dormant articles as read. (fn &optional ALL) (defalias 'gnus-summary-catchup-from-here #[256 "\212\300 \301\302\303\304\305!\306\"\307$\216\212`\204 \310 \203\" \311\312\313\312%\210\210*\210)\314 \207" [gnus-hidden-threads-configuration make-byte-code 0 "\301\300!\207" vconcat vector [gnus-restore-hidden-threads-configuration] 2 gnus-summary-find-next gnus-summary-catchup t nil gnus-summary-position-point] 9 (#$ . 388996) "P"]) #@192 Mark all articles in this newsgroup as read. This command is dangerous. Normally, you want \[gnus-summary-catchup] instead, which marks only unread articles as read. (fn &optional QUIETLY) (defalias 'gnus-summary-catchup-all #[256 "\300\301\"\207" [gnus-summary-catchup t] 4 (#$ . 389556) "P"]) #@207 Mark all unread articles in this group as read, then exit. If prefix argument ALL is non-nil, all articles are marked as read. If QUIETLY is non-nil, no questions will be asked. (fn &optional ALL QUIETLY) (defalias 'gnus-summary-catchup-and-exit #[512 "\302\303\304$\205 \305!\204 \306=\203 \307\303!\207\310 \207" [gnus-newsgroup-name gnus-auto-select-next gnus-summary-catchup nil fast gnus-group-quit-config quietly gnus-summary-next-group gnus-summary-exit] 7 (#$ . 389861) "P"]) #@216 Mark all articles in this newsgroup as read, and then exit. This command is dangerous. Normally, you want \[gnus-summary-catchup-and-exit] instead, which marks only unread articles as read. (fn &optional QUIETLY) (defalias 'gnus-summary-catchup-all-and-exit #[256 "\300\301\"\207" [gnus-summary-catchup-and-exit t] 4 (#$ . 390360) "P"]) #@161 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. (fn &optional ALL) (defalias 'gnus-summary-catchup-and-goto-next-group #[256 "\212\300!\210)\301 \207" [gnus-summary-catchup gnus-summary-next-group] 3 (#$ . 390707) "P"]) #@165 Mark all articles in this group as read and select the previous group. If given a prefix, mark all articles, unread as well as ticked, as read. (fn &optional ALL) (defalias 'gnus-summary-catchup-and-goto-prev-group #[256 "\212\300!\210)\301\302\211\303#\207" [gnus-summary-catchup gnus-summary-next-group nil t] 5 (#$ . 391028) "P"]) #@134 Select ARTICLE and perform FORMS in the original article buffer. Then replace the article with the result. (fn ARTICLE &rest FORMS) (defalias 'gnus-with-article '(macro . #[385 "\300\301\302\303\304\211\305\257E\306\307\310\311\312\313\314 \315BB\316BBF\317B\"BBB\207" [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))))] 14 (#$ . 391371)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-with-article lisp-indent-function 1 put edebug-form-spec t] 5) #@166 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. (fn &optional ARTICLE) (defalias 'gnus-summary-articles-in-thread #[256 "\211\206 \303`\304\"\211\205 \305!\266\303`\306\"\206 \307 \310\">\262\311@8 \204B \312@8\313H\314\n\"\203T \315\316\225\"\262\202T \317=\203S \320\312@8\313H!\202T \321\212\322@8b\210\323 \203d `\202e d)\321\203\302 \322@8W\203\302 \203\244 \317=\203\213 \320\312@8\313H!\202\240 \312@8\313H\314\n\"\203\240 \315\316\225\"\262\230\203\253 @@B\262A\211\262\203\274 \311@8V\204g \321\262\202g \211\237\207" [gnus-newsgroup-data gnus-thread-operation-ignore-subject message-subject-re-regexp get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-data-find-in 4 3 1 string-match substring 0 fuzzy gnus-simplify-subject-fuzzy nil 2 gnus-summary-go-to-next-thread] 12 (#$ . 392404)]) #@53 Rethread the thread the current article is part of. (defalias 'gnus-summary-rethread-current #[0 "\303\304`\305\"\211\205 \306!\266\304`\307\"\206 \310 \311\304`\305\"\211\205$ \306!\266\304`\307\"\206/ \310 \"\3128\262\211\313H\262\314\315!!C\211\204J \316\317!\210\320!\210\306!*\207" [gnus-show-threads gnus-newsgroup-data gnus-newsgroup-threads t get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-data-find-in 3 4 gnus-id-to-thread gnus-root-id error "No article on the current line" gnus-rebuild-thread] 5 (#$ . 393392) 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 #[0 "\301 \203 \302\303!\210G\304X\204 \302\305!\210\306`\307\"\211\205 \310!\266\306`\311\"\206* \312 \2033 @\202X \212\313y\314=\203T \306`\307\"\211\205F \310!\266\306`\311\"\206W \312 \202W \302\315!)\316C\"\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" get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject -1 0 "Beginning of summary buffer" gnus-summary-reparent-children] 5 (#$ . 393998) nil]) #@162 Make PARENT the parent of CHILDREN. When called interactively, PARENT is the current article and CHILDREN are the process-marked articles. (fn PARENT CHILDREN) (defalias 'gnus-summary-reparent-children #[514 "\211\211\205\211@\306 \307\310\311\312\313!\314\"\315$\216\316=\203! \317\320!\210\321 \"\3228\262\211\323H\262\211\2039 \211\324\232\203= \317\325!\210\326\327\330\211\326$\210) q\210\214eb\210\331 \210\332\333\326\330#\203n \332\334\326\330#\210\335y\210\326\210\336\261\210\202t \337\340\261\210)\341\f@\3421\243 \211;\203\210 \343!@\202\211 \211\344!\204\223 \345!\210\346\347\350\351#!!\2620\202\245 \210\326\266\202\204\262 \352\353\354\"\210\202\300 \355\f@p\330$\204\300 \317\356!\210 \203\313 \357\f@\fA\"\2107\203\327 \360\f@\fA\"\2108q\210\361 \210\362!\210\363\fA\326\330#\203\360 \364\fA!\210\365 \210\352\322\366 $\266*\210A\266\202\202 \207" [gnus-article-buffer gnus-newsgroup-data gnus-mark-article-hook gnus-original-article-buffer gnus-article-current gnus-keep-backlog current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 " *reparent*" error "An article may not be self-referential" gnus-data-find-in 3 4 "" "No message-id in desired parent" nil gnus-summary-select-article t message-narrow-to-head re-search-forward "^References: " "^[^ ]" -1 " " "References: " "\n" request-replace-article (error) gnus-find-method-for-group featurep require fboundp intern format "%s-%s" gnus-message 5 "Read-only group; not replacing" gnus-request-replace-article "Couldn't replace article" gnus-backlog-remove-article gnus-cache-update-article gnus-summary-unmark-all-processable gnus-summary-update-article gnus-summary-goto-subject gnus-summary-update-secondary-mark gnus-summary-rethread-current "Article %d is now the child of article %d" gnus-use-cache gnus-summary-buffer] 15 (#$ . 394819) (byte-code "\300`\301\"\211\205 \302!\266\300`\303\"\206 \304 \305\306!D\207" [get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-work-articles nil] 3)]) #@123 Toggle showing conversation threads. If ARG is positive number, turn showing conversation threads on. (fn &optional ARG) (defalias 'gnus-summary-toggle-threads #[256 "\302`\303\"\211\205 \304!\266\302`\305\"\206 \306 \206 \204# ?\202( \307!\310V\311 \210\304!\210\312\313\314 \203; \315\202< \316#\210\317 \207" [gnus-newsgroup-end 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] 6 (#$ . 396946) "P"]) #@19 Show all threads. (defalias 'gnus-summary-show-all-threads #[0 "\300ed\301\302$\210\303 \207" [remove-overlays invisible gnus-sum gnus-summary-position-point] 5 (#$ . 397555) nil]) #@10 (fn P) (defalias 'gnus-summary--inv #[257 "\300\301\"\302=\205\n \211\207" [get-char-property invisible gnus-sum] 4 (#$ . 397742)]) (put 'gnus-summary--inv 'byte-optimizer 'byte-compile-inline-expand) #@71 Show thread subtrees. Returns nil if no thread was there to be shown. (defalias 'gnus-summary-show-thread #[0 "`\300 \211\301\302\"\303=\205 \211\262\206! \211S\301\302\"\303=\205 \211\262\304 \210o\203, `\202. `S\2056 \305\302\"\211\205H \306\302\303$\210b\210\307 \210\211\207" [point-at-eol get-char-property invisible gnus-sum beginning-of-line next-single-char-property-change remove-overlays gnus-summary-position-point] 10 (#$ . 397952) nil]) #@55 If requested, hide the threads that should be hidden. (defalias 'gnus-summary-maybe-hide-threads #[0 "\205 \205 \302 :\204 \303 !\205 \304 !!\207" [gnus-show-threads gnus-thread-hide-subtree gnus-summary-hide-all-threads functionp gnus-make-predicate] 3 (#$ . 398419)]) #@15 (fn HEADER) (defalias 'gnus-article-unread-p #[257 "\211\301H>\207" [gnus-newsgroup-unreads 0] 3 (#$ . 398701)]) #@15 (fn HEADER) (defalias 'gnus-article-unseen-p #[257 "\211\301H>\207" [gnus-newsgroup-unseen 0] 3 (#$ . 398823)]) #@102 Map PREDICATE over ARTICLES and return non-nil if any predicate is non-nil. (fn PREDICATE ARTICLES) (defalias 'gnus-map-articles #[514 "\300\301\302\302\303\"\"\"\207" [apply gnus-or mapcar gnus-summary-article-header] 9 (#$ . 398945)]) #@135 Hide all thread subtrees. If PREDICATE is supplied, threads that satisfy this predicate will not be hidden. (fn &optional PREDICATE) (defalias 'gnus-summary-hide-all-threads #[256 "\212eb\210\300\301\2047 \211T\262\302\303\"\301U\203 \304\305\"\210\203( \306\307 \"\203+ \310 \210\311\312\313\"\301U?\262\202 \266)\314 \207" [nil 0 mod 1000 message "Hiding all threads... %d" gnus-map-articles gnus-summary-article-children gnus-summary-hide-thread gnus-summary-next-thread 1 t gnus-summary-position-point] 6 (#$ . 399193) nil]) #@156 Hide thread subtrees. If PREDICATE is supplied, threads that satisfy this predicate will not be hidden. Returns nil if no threads were there to be hidden. (defalias 'gnus-summary-hide-thread #[0 "\300 \210`\301 \302`\303\"\211\205 \304!\266\302`\305\"\206 \306 m?\205u \307\310\311\"\312U\204/ db\205u `V\203q \313\314\311#\203q `V\203^ \315`\316\317$\210\320`\321\311\321%\322\316\317#\210\322\323\311#\266\304!\210`V\205u \324\325!\210db\202u b\210\321\207" [beginning-of-line line-end-position get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-next-thread 1 t 0 search-backward "\n" remove-overlays invisible gnus-sum make-overlay nil overlay-put evaporate message "Hiding the thread moved us backwards, aborting!"] 9 (#$ . 399740) nil]) #@194 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. (fn &optional PREVIOUS) (defalias 'gnus-summary-go-to-next-thread #[256 "\302=\203 \303`\304\"\203 \305\202/ \306\303`\304\"\211\205 \307!\266\303`\310\"\206( \311 \"\3128\262\2037 \313\2028 \314`y\210m\204z \302=\203R \303`\304\"\203R \305\202p \306\303`\304\"\211\205^ \307!\266\303`\310\"\206i \311 \"\3128\262W\203z y\210\202< m\203\205 \211b\210\315\202\241 `\262\303`\304\"\211\205\223 \307!\266\303`\310\"\206\236 \311 b\210\207" [gnus-summary-make-false-root gnus-newsgroup-data dummy get-text-property gnus-intangible 0 gnus-data-find-in gnus-summary-goto-subject gnus-number gnus-summary-last-subject 4 -1 1 nil] 9 (#$ . 400564)]) #@215 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. (fn N &optional SILENT) (defalias 'gnus-summary-next-thread #[513 "\300W\301!\211\300V\203 \302!\203 \211S\262\202 \204 \303 \210\204/ \211\300U\204/ \304\305\306\"\210\207" [0 abs gnus-summary-go-to-next-thread gnus-summary-position-point gnus-message 7 "No more threads"] 7 (#$ . 401404) "p"]) #@124 Go to the same level previous N'th thread. Returns the difference between N and the number of skips actually done. (fn N) (defalias 'gnus-summary-prev-thread #[257 "\300[!\207" [gnus-summary-next-thread] 3 (#$ . 401907) "p"]) #@42 Go down one level in the current thread. (defalias 'gnus-summary-go-down-thread #[0 "\300 \211\205\n \301@!\207" [gnus-summary-article-children gnus-summary-goto-subject] 3 (#$ . 402141)]) #@40 Go up one level in the current thread. (defalias 'gnus-summary-go-up-thread #[0 "\300 \211\205 \301!\207" [gnus-summary-article-parent gnus-summary-goto-subject] 3 (#$ . 402337)]) #@140 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. (fn N) (defalias 'gnus-summary-down-thread #[257 "\211\300W\301!\211\300V\203! \203 \302 \202 \303 \203! \211S\262\202 \304 \210\211\300U\204/ \305\306\307\"\210\207" [0 abs gnus-summary-go-up-thread gnus-summary-go-down-thread gnus-summary-position-point gnus-message 7 "Can't go further"] 6 (#$ . 402526) "p"]) #@140 Go up thread N steps. If N is negative, go down instead. Returns the difference between N and how many steps down that were taken. (fn N) (defalias 'gnus-summary-up-thread #[257 "\300[!\207" [gnus-summary-down-thread] 3 (#$ . 402984) "p"]) #@30 Go to the top of the thread. (defalias 'gnus-summary-top-thread #[0 "\300 \204 \301`\302\"\211\205 \303!\266\301`\304\"\206 \305 \207" [gnus-summary-go-up-thread get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject] 3 (#$ . 403232) nil]) #@48 Mark articles under current thread as expired. (defalias 'gnus-summary-expire-thread #[0 "\300\301!\207" [gnus-summary-kill-thread 0] 2 (#$ . 403526) nil]) #@246 Mark articles under current thread as read. If the prefix argument is positive, remove any kinds of marks. If the prefix argument is zero, mark thread as expired. If the prefix argument is negative, tick articles instead. (fn &optional UNMARK) (defalias 'gnus-summary-kill-thread #[256 "\211\203 \305!\262\306 ?\206 \307U\212\310 \210\203Q \311@!\210\204+ \312!\210\202J \307V\2038 \313 !\210\202J \307U\203F \314\315\n\"\210\202J \313 !\210A\262\202 )\211\203] \f\203] \316 \210\211\203f \317\320\321\"\210\266\322\323!\207" [gnus-killed-mark gnus-unread-mark gnus-expirable-mark gnus-ticked-mark gnus-thread-hide-killed prefix-numeric-value gnus-summary-articles-in-thread 0 gnus-summary-show-thread gnus-summary-goto-subject gnus-summary-mark-article-as-read gnus-summary-mark-article-as-unread gnus-summary-mark-article nil gnus-summary-hide-thread gnus-summary-next-subject 1 t gnus-set-mode-line summary] 6 (#$ . 403689) "P"]) #@106 Sort the summary buffer by article number. Argument REVERSE means reverse order. (fn &optional REVERSE) (defalias 'gnus-summary-sort-by-number #[256 "\300\301\"\207" [gnus-summary-sort number] 4 (#$ . 404646) "P"]) #@118 Sort the summary buffer by most recent article number. Argument REVERSE means reverse order. (fn &optional REVERSE) (defalias 'gnus-summary-sort-by-most-recent-number #[256 "\300\301\"\207" [gnus-summary-sort most-recent-number] 4 (#$ . 404870) "P"]) #@122 Randomize the order in the summary buffer. Argument REVERSE means to randomize in reverse order. (fn &optional REVERSE) (defalias 'gnus-summary-sort-by-random #[256 "\300\301\"\207" [gnus-summary-sort random] 4 (#$ . 405130) "P"]) #@180 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. (fn &optional REVERSE) (defalias 'gnus-summary-sort-by-author #[256 "\300\301\"\207" [gnus-summary-sort author] 4 (#$ . 405370) "P"]) #@183 Sort the summary buffer by recipient name alphabetically. If `case-fold-search' is non-nil, case of letters is ignored. Argument REVERSE means reverse order. (fn &optional REVERSE) (defalias 'gnus-summary-sort-by-recipient #[256 "\300\301\"\207" [gnus-summary-sort recipient] 4 (#$ . 405668) "P"]) #@197 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. (fn &optional REVERSE) (defalias 'gnus-summary-sort-by-subject #[256 "\300\301\"\207" [gnus-summary-sort subject] 4 (#$ . 405975) "P"]) #@96 Sort the summary buffer by date. Argument REVERSE means reverse order. (fn &optional REVERSE) (defalias 'gnus-summary-sort-by-date #[256 "\300\301\"\207" [gnus-summary-sort date] 4 (#$ . 406291) "P"]) #@108 Sort the summary buffer by most recent date. Argument REVERSE means reverse order. (fn &optional REVERSE) (defalias 'gnus-summary-sort-by-most-recent-date #[256 "\300\301\"\207" [gnus-summary-sort most-recent-date] 4 (#$ . 406501) "P"]) #@97 Sort the summary buffer by score. Argument REVERSE means reverse order. (fn &optional REVERSE) (defalias 'gnus-summary-sort-by-score #[256 "\300\301\"\207" [gnus-summary-sort score] 4 (#$ . 406746) "P"]) #@111 Sort the summary buffer by the number of lines. Argument REVERSE means reverse order. (fn &optional REVERSE) (defalias 'gnus-summary-sort-by-lines #[256 "\300\301\"\207" [gnus-summary-sort lines] 4 (#$ . 406959) "P"]) #@106 Sort the summary buffer by article length. Argument REVERSE means reverse order. (fn &optional REVERSE) (defalias 'gnus-summary-sort-by-chars #[256 "\300\301\"\207" [gnus-summary-sort chars] 4 (#$ . 407186) "P"]) #@105 Sort the summary buffer by article marks. Argument REVERSE means reverse order. (fn &optional REVERSE) (defalias 'gnus-summary-sort-by-marks #[256 "\300\301\"\207" [gnus-summary-sort marks] 4 (#$ . 407408) "P"]) #@121 Sort the summary buffer using the default sorting method. Argument REVERSE means reverse order. (fn &optional REVERSE) (defalias 'gnus-summary-sort-by-original #[256 "\302\303\304 \210\305 *\207" [inhibit-read-only gnus-summary-prepare-hook t nil gnus-summary-prepare gnus-summary-maybe-hide-threads] 2 (#$ . 407629) nil]) #@89 Sort summary buffer by PREDICATE. REVERSE means reverse order. (fn PREDICATE REVERSE) (defalias 'gnus-summary-sort #[514 "\305`\306\"\211\205 \307!\266\305`\310\"\206 \311 \312\313\314\"!\312\313\315\"!\204+ \2028 \316\317\320\321\322!\323\"\324\325%\211\204C \211\202O \316\317\320\321\322!\323\"\324\325%\326\327 \330 \210\331 \210\307!-\207" [gnus-thread-sort-functions gnus-sort-gathered-threads-function gnus-article-sort-functions inhibit-read-only gnus-summary-prepare-hook get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject intern format "gnus-thread-sort-by-%s" "gnus-article-sort-by-%s" make-byte-code 514 "\300\"\207" vconcat vector [] 5 "\n\n(fn T1 T2)" t nil gnus-summary-prepare gnus-summary-maybe-hide-threads] 12 (#$ . 407961)]) #@542 Save the current article using the default saver function. If N is a positive number, save the N next articles. If N is a negative number, save the N previous articles. If N is nil and any articles have been marked with the process mark, save those articles instead. The variable `gnus-default-article-saver' specifies the saver function. If the optional second argument NOT-SAVED is non-nil, articles saved will not be marked as saved. The `gnus-prompt-before-saving' variable says how prompting is performed. (fn &optional N NOT-SAVED) (defalias 'gnus-summary-save-article #[512 "\306\307!\210\310!\212\311\312!)G\205 \313N \314N\211\203 \315\202! \n \316\211\211\203\300 \211@\317 \"\3208\262\262\321!\204X \322\236\203O \323\322\236A!\210\202\260 \324\325\326#\210\202\260 \327 \330\331\332\333\334!\335\"\336$\216\337\211\316$\210\340!\210)\210\203| \f\202} \341\342!!\331U\203\214 \343\344\"\210rq\210\345 \210\346!\210)\210\347 #\262\350!\210 \204\260 \351!\210\203\271 \316\262A\266\202\202( \210\211 0\211\205\327 \352\3420!\2110!\205\327 0)\203\342 \353!\210\354 \210\210\355 \210\356\357!\210*\207" [gnus-article-save-coding-system gnus-default-article-saver gnus-prompt-before-saving gnus-newsgroup-data gnus-article-buffer gnus-original-article-buffer require gnus-art gnus-summary-work-articles nnheader-set-temp-buffer " *Gnus Save*" :decode :function t nil gnus-data-find-in 3 mail-header-p name gnus-copy-file gnus-message 1 "Article %d is unsavable" current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 gnus-summary-select-article gnus-summary-goto-subject buffer-size get-buffer error "Couldn't select article %s" erase-buffer insert-buffer-substring gnus-article-save gnus-summary-remove-process-mark gnus-summary-set-saved-mark buffer-live-p kill-buffer gnus-prune-buffers gnus-summary-position-point gnus-set-mode-line summary buffer] 18 (#$ . 408782) "P"]) #@981 Pipe the current article to a subprocess. If N is a positive number, pipe the N next articles. If N is a negative number, pipe the N previous articles. If N is nil and any articles have been marked with the process mark, pipe those articles instead. The default command to which articles are piped is specified by the variable `gnus-summary-pipe-output-default-command'; if it is nil, you will be prompted for the command. The properties `:decode' and `:headers' that are put to the function symbol `gnus-summary-save-in-pipe' control whether this function decodes articles and what headers to keep (see the doc string for the `gnus-default-article-saver' variable). If SYM (the symbolic prefix) is neither omitted nor the symbol `r', force including all headers regardless of the `:headers' property. If it is the symbol `r', articles that are not decoded and include all headers will be piped no matter what the properties `:decode' and `:headers' are. (fn &optional N SYM) (defalias 'gnus-summary-pipe-output #[512 "\302\303!\210\304!\305\306>?\211\206 \307=\310\311N\312\211@\247\204% \313\314!\210\315\316A\2036 \317\320\nG\"\2027 \321\322Q \"\262\323\230\203G \313\324!\210\203Q \325\310\311\312#\210\326\327\330\331\332!\333\"\334$\216\203\244 \335\211A\262 \242!\210\336 \326\327\337\331\332!\340\"\341$\216\310\"\210)\210\342!\203^ \343\342!!\327U\204^ \211rq\210\344 )P\262\202^ )\211G\327U?\205\345 r\345!q\210\346 \210\211c\210\347e`\"\350U\205\314 \327\210i\351\352 !Xeb\210)\203\336 \353\354\355\327\356#\"\202\345 \353\312!\210\357\360!)\207" [gnus-save-all-headers gnus-summary-pipe-output-default-command require gnus-art gnus-summary-work-articles "*Shell Command Output*" (nil r) r gnus-summary-save-in-pipe :headers nil error "No article to pipe" read-shell-command "Shell command on " format "these %d articles" "this article" ": " "" "A command is required" put make-byte-code 0 "\301\302\303\300#\207" vconcat vector [put gnus-summary-save-in-pipe :headers] 4 gnus-summary-goto-subject current-window-configuration "\301\300!\207" [set-window-configuration] 2 get-buffer buffer-size buffer-string get-buffer-create erase-buffer count-lines 1 window-width minibuffer-window message "%s" substring -1 gnus-configure-windows pipe] 16 (#$ . 410775) (gnus-interactive "P\ny")]) #@281 Append the current article to a Unix mail box file. If N is a positive number, save the N next articles. If N is a negative number, save the N previous articles. If N is nil and any articles have been marked with the process mark, save those articles instead. (fn &optional ARG) (defalias 'gnus-summary-save-article-mail #[256 "\301\302!\210\303\304!)\207" [gnus-default-article-saver require gnus-art gnus-summary-save-in-mail gnus-summary-save-article] 3 (#$ . 413117) "P"]) #@274 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. (fn &optional ARG) (defalias 'gnus-summary-save-article-rmail #[256 "\301\302!\210\303\304!)\207" [gnus-default-article-saver require gnus-art gnus-summary-save-in-rmail gnus-summary-save-article] 3 (#$ . 413604) "P"]) #@267 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. (fn &optional ARG) (defalias 'gnus-summary-save-article-file #[256 "\301\302!\210\303\304!)\207" [gnus-default-article-saver require gnus-art gnus-summary-save-in-file gnus-summary-save-article] 3 (#$ . 414086) "P"]) #@294 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. (fn &optional ARG) (defalias 'gnus-summary-write-article-file #[256 "\301\302!\210\303\304!)\207" [gnus-default-article-saver require gnus-art gnus-summary-write-to-file gnus-summary-save-article] 3 (#$ . 414559) "P"]) #@272 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. (fn &optional ARG) (defalias 'gnus-summary-save-article-body-file #[256 "\301\302!\210\303\304!)\207" [gnus-default-article-saver require gnus-art gnus-summary-save-body-in-file gnus-summary-save-article] 3 (#$ . 415061) "P"]) #@299 Write the current article body to a file, deleting the previous file. If N is a positive number, save the N next articles. If N is a negative number, save the N previous articles. If N is nil and any articles have been marked with the process mark, save those articles instead. (fn &optional ARG) (defalias 'gnus-summary-write-article-body-file #[256 "\301\302!\210\303\304!)\207" [gnus-default-article-saver require gnus-art gnus-summary-write-body-to-file gnus-summary-save-article] 3 (#$ . 415549) "P"]) #@272 Print the current article using Muttprint. If N is a positive number, save the N next articles. If N is a negative number, save the N previous articles. If N is nil and any articles have been marked with the process mark, save those articles instead. (fn &optional ARG) (defalias 'gnus-summary-muttprint #[256 "\301\302!\210\303\304\305\")\207" [gnus-default-article-saver require gnus-art gnus-summary-pipe-to-muttprint gnus-summary-save-article t] 4 (#$ . 416066) "P"]) #@57 Pipe the current article through PROGRAM. (fn PROGRAM) (defalias 'gnus-summary-pipe-message #[257 "\303 \210\304\305 \306\307\"\310\311\312\313\314!\315\"\316$\216\211\203) \317!\210\320!q\210\202- \321!\210\214~\210\322 \323\324!\210\325\326p!\")\262*\266\203)\207" [mail-header-separator gnus-article-buffer inhibit-read-only gnus-summary-select-article "" selected-window gnus-get-buffer-window visible make-byte-code 0 "\301\300!\207" vconcat vector [select-window] 2 select-window window-buffer pop-to-buffer window-start t message-pipe-buffer-body set-window-start get-buffer-window] 10 (#$ . 416547) "sProgram: "]) #@58 Return a value based on the split METHODS. (fn METHODS) (defalias 'gnus-get-split-value #[257 "\303\211\211\211\203\205 rq\210\214\304 \210\203\204 \204\204 eb\210\211A\262\242\262@\262\211;\203= \30519 \306\303\307#0\202_ \210\202 \310!\203P \214~\210\211 !\211\262)\202_ \211:\203 \214~\210\311!\211\262)\203 A\262;\203v \312\n\"B\262\202 :\203 \313\"\262\202 *\237\207" [gnus-original-article-buffer gnus-newsgroup-name gnus-article-save-directory nil nnheader-narrow-to-headers (error) re-search-forward t functionp eval expand-file-name append] 9 (#$ . 417188)]) #@14 (fn GROUP) (defalias 'gnus-valid-move-group-p #[257 "\211;\205 \211\211\300\230\262?\205 \301\302!\303\304#\207" ["" gnus-get-function gnus-find-method-for-group request-accept-article t] 5 (#$ . 417794)]) #@57 Read a group name. (fn PROMPT DEFAULT ARTICLES PREFIX) (defalias 'gnus-read-move-group-name #[1028 "\306!\307\310G\311V\203 \307\312G\"\202 \313#\314\315 \316C\317\320\321\322\323\324!\325\"\326\327%\"\210\211\242\237\266\202\"\204G \330\316\316 &\202e G\311U\203] \330\316\331@&\202e \332\237\316\211\331%\333!\211\203u \211<\203u \211\206\250\334\n\"A\206\250\211\335\232\203\207 \206\224\334\f\"A\206\224\334 \"A\206\2246\211\203\266 \307\336@@@@@A@#\232\204\266 \211A\266\202\202\231 \211@@\262\206\2247\211\203\333 \307\336@@@A@#\232\204\333 \211A\266\202\202\300 \211@\262\206\2248A\316\211\203\222\211A\262\242\3378\262\262;\204\347 \316\340C\3412\201\211\242\206 \240\210\204%\342\320\343\344\323\324!\345\"\337\346%\n\"\210\f D\211\203F\211@\342\320\343\347\323\324!\350\"\337\346%\"\210A\266\202\202(\210\211\242A@\351\235\203Y\307\352\242@\"\202c\307\336\242@\242A@#\211\242B\211\n\235\204}\204}\334@\n\"\204}\211\nB\266\2020\262\266\203\232\203\347 \262\316\262\202\347 \266\202\211\203\245\334\n\"\204\245B\nB\211\262\262\205\353\230\204\273\230\203\277\262\204\307\354\355!\210\356 \"\204\357\316\211$\204\360\307\361\"!\203\375\362\"\203\366\357\316\211$\203\366\363!\204\354\364\"\204\354\365\"\210\207" [gnus-move-split-methods gnus-active-hashtb gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-get-split-value format "%s %s to" 1 "these %d articles" "this article" seq-filter gnus-valid-move-group-p nil maphash make-byte-code 514 "\300\300\242B\240\207" vconcat vector [] 5 "\n\n(fn K --CL-VAR--)" gnus-group-completing-read gnus-group-history gnus-completing-read gnus-group-method assoc "native" "%s:%s" 4 t server-name mapc 257 "\211A\300\242\232\205 \301\302@\"\207" [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1="") "%s" #1# error "No group name entered" gethash gnus-activate-group gnus-y-or-n-p "No such group: %s. Create it? " gnus-request-create-group gnus-subscribe-group "Couldn't create group %s" "No such group: %s" gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist] 26 (#$ . 418012)]) #@116 Save parts matching TYPE to DIR. If REVERSE, save parts that do not match TYPE. (fn TYPE DIR N &optional REVERSE) (defalias 'gnus-summary-save-parts #[1027 "\306!\211\205Z \307@!\210\310\211\211\211\211\311 \312 \210.r q\210\2065 \313\310\"\2065 \2055 \314 \315 \211\203O \316$\210\204O \317!\210)\210)\211A\266\202\202 \207" [gnus-inhibit-treatment gnus-break-pages gnus-display-mime-function gnus-article-decode-hook gnus-article-prepare-hook gnus-article-buffer gnus-summary-work-articles gnus-summary-goto-subject nil t gnus-summary-select-article mm-dissect-buffer mm-uu-dissect 1 gnus-summary-save-parts-1 mm-destroy-parts gnus-article-mime-handles gnus-article-loose-mime gnus-article-emulate-mime gnus-summary-save-parts-counter] 11 (#$ . 420382) (byte-code "\304\305@\206 \300#\306\307\n\310\311$\211 E\207" [gnus-summary-save-parts-type-history gnus-summary-save-parts-default-mime gnus-summary-save-parts-last-directory current-prefix-arg read-string "Save parts of type: " read-directory-name "Save to directory: " nil t] 6)]) #@32 (fn TYPE DIR HANDLE REVERSE) (defalias 'gnus-summary-save-parts-1 #[1028 "@;\203 \304\305\306\307\310\311 #\312\"\313\314%A\"\207\211\2039 \315\211@;\203. \211@\2022 \211A@@\262\"?\202N \315\211@;\203G \211@\202K \211A@@\262\"\205w \316\317\320\321!\206c \322\323 \nA $!\"\" T\324!?\205u \325\"\262\207" [mm-file-name-rewrite-functions gnus-newsgroup-name gnus-article-current gnus-summary-save-parts-counter mapcar make-byte-code 257 "\303\300\301\302$\207" vconcat vector [gnus-summary-save-parts-1] 6 "\n\n(fn H)" string-match expand-file-name gnus-map-function file-name-nondirectory mm-handle-filename format "%s.%d.%d" file-exists-p mm-save-part-to-file] 13 (#$ . 421459)]) #@34 (fn PSLIST &optional NOT-VIEW) (defalias 'gnus-summary-insert-pseudos #[513 "\306\307`\310\"\211\205\f \311!\266\307`\312\"\206 \313 \314\211\211\311!\204' \315\316\"\210\317 \210 \204\271 \320\321\"\211\262\314\211\203\267 \322@\236A\262\323@\236AC\262\203z A\203z \211\206Y \324\322A@\236A\206c \325\230\203z \323A@\236AB\262\211AA\241\210\202K \203\260 \326\327\"\204\212 \330B\262\330B\262\331@\236\203\260 \331@\236\326\327\"\203\245 \332\202\246 \333\334\335\330#\"\241\210A\262\2028 \266\n\203\342 \204\342 \205`\331@\236\203\332 \336\331@\236A\n\337=\"\210A\262\202\301 \212\205_\340@\236A\206\307`\310\"\211\205\374 \311!\266\307`\312\"\206\313 \262\311!\210\341y\210`\262\342\343\323 @\236A!\344\331\n@\236A\206'\345\346\261\210`\262\347y\210\350S\312 \351\fF#\210\352 @\353 Z&\210\354- \"- SA\262\202\343 ))\207" [inhibit-read-only gnus-view-pseudos-separately gnus-view-pseudos gnus-reffed-article-number gnus-mouse-face gnus-unread-mark t get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject nil error "No such article: %d" gnus-summary-position-point sort gnus-pseudos< action name "1" "2" string-match "%s" " " execute format concat mapconcat #[257 "\211\300\232\203 \207\301!\207" [" " shell-quote-argument] 3 "\n\n(fn F)"] gnus-execute-command not-confirm article 1 " " file-name-nondirectory ": " "" "\n" -1 add-text-properties mouse-face gnus-data-enter 0 gnus-add-to-sorted-list gnus-newsgroup-unreads] 17 (#$ . 422171)]) #@14 (fn P1 P2) (defalias 'gnus-pseudos< #[514 "\300\236A\300\236A\205 \211\205 \231\207" [action] 6 (#$ . 423755)]) #@14 (fn PROPS) (defalias 'gnus-request-pseudo-article #[257 "\301\236\203 \302\301\236A!\210\303`\304\"\211\205 \305!\266\303`\306\"\206# \307 \310\311!)\207" [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 (#$ . 423882)]) #@36 (fn COMMAND &optional AUTOMATIC) (defalias 'gnus-execute-command #[513 "\212\305 \210q\210\306\211\203 \202 \307\310\311B\"\312 \210\313\314\261\210\n\203. \315\316p \f%\2028 \317 \306\320\306\f&\262)\207" [gnus-article-buffer buffer-read-only gnus-view-pseudo-asynchronously shell-file-name shell-command-switch gnus-article-setup-buffer nil read-string "Command: " 0 erase-buffer "$ " "\n\n" start-process "gnus-execute" call-process t] 10 (#$ . 424258)]) #@44 Edit the "global" kill file. (fn ARTICLE) (defalias 'gnus-summary-edit-global-kill #[257 "\300!\207" [gnus-group-edit-global-kill] 3 (#$ . 424737) (byte-code "\300`\301\"\211\205 \302!\266\300`\303\"\206 \304 C\207" [get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject] 3)]) #@58 Edit a local kill file applied to the current newsgroup. (defalias 'gnus-summary-edit-local-kill #[0 "\303\304`\305\"\211\205\f \306!\266\304`\307\"\206 \310 \"\3118\262\312\304`\305\"\211\205+ \306!\266\304`\307\"\2066 \310 \n\"\207" [gnus-newsgroup-data gnus-current-headers gnus-newsgroup-name gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 gnus-group-edit-local-kill] 4 (#$ . 425070) nil]) #@95 Read the headers of article ID and enter them into the Gnus system. (fn ID &optional HEADER) (defalias 'gnus-read-header #[513 " \206 \306!\205 \307 @\310;\203\" \206 \311!\262\2021 \206/ \312\n\"\3138\262\262\203A \314H >\204A \202r\fq\210\315\"\211\262\203\203 \316 \210db\210\317c\210eb\210\320c\210\321\247\203h \202} A\203r A\202} \203| \314H\202} p\"\210\322c\210\211?\206\221 \323\310\324\"@\211\262??\205\314H >\204\325\326!\203\312 \203\312 \327@!\204\312 \330\331H\310\332@ \206\277 \333!\"\334H\335H%\210;\203\370 \336\337\"\203\337 \340\314\225\"\202\340 \211\262@\230\203\361 \341 \342!\"\204\370 \211\314 I\266r$q\210 S\343\314H!\210%B%&\314H'B')))\207" [gnus-newsgroup-name gnus-override-method gnus-newsgroup-data gnus-newsgroup-sparse nntp-server-buffer gnus-reffed-article-number gnus-news-group-p gnus-refer-article-methods nil gnus-id-to-header gnus-data-find-in 3 0 gnus-request-head nnheader-fold-continuation-lines ".\n" "211 " princ " Article retrieved.\n" gnus-get-newsgroup-headers t boundp gnus-registry-enabled gnus-ephemeral-group-p gnus-registry-handle-action 4 gnus-group-prefixed-name gnus-find-method-for-group 1 2 string-match "^[^:]+:" substring gnus-server-equal gnus-group-method gnus-remove-header gnus-summary-buffer gnus-newsgroup-headers gnus-current-headers gnus-newsgroup-limit] 12 (#$ . 425550)]) #@66 Remove header NUMBER from `gnus-newsgroup-headers'. (fn NUMBER) (defalias 'gnus-remove-header #[257 "\203 \211@\301HU\203 \211A\242\207\211A\203. A@\211\301H\262U\204. \211A\266\202\202 \211A\2058 \211AA\241\207" [gnus-newsgroup-headers 0] 6 (#$ . 426967)]) #@47 Highlight selected article in summary buffer. (defalias 'gnus-highlight-selected-summary #[0 "\205\\ \212\302 \303 \304\305\"\203 \202 \306\305\307$\206 \211U\203* \211\310Z\2024 \306\305\307$\2064 \211\310\\U\203B \262\262 \203O \311 p$\202Y \312\313\"\211\314#\266\204)\207" [gnus-summary-selected-face gnus-newsgroup-selected-overlay point-at-bol point-at-eol get-text-property mouse-face next-single-property-change nil 2 move-overlay overlay-put make-overlay face] 9 (#$ . 427245)]) (defvar gnus-summary-highlight-line-cached nil) (defvar gnus-summary-highlight-line-trigger nil) (defalias 'gnus-summary-highlight-line-0 #[0 " =\203\f \n\203\f \n\207 \303C\211 \211\203. @@\304@ADDC\241\210A\262\211A\262\202 \305\306\307\310F!\266\203\211\207" [gnus-summary-highlight-line-trigger gnus-summary-highlight gnus-summary-highlight-line-cached cond quote gnus-byte-compile lambda nil (with-no-warnings (defvar score) (defvar default) (defvar default-high) (defvar default-low) (defvar mark) (defvar uncached))] 8]) #@63 Highlight current line according to `gnus-summary-highlight'. (defalias 'gnus-summary-highlight-line #[0 "\306 \307`\310\"\211\205 \311!\266\307`\312\"\206 \313 \206 \211 \236A\206( \n\206( \314\315\307`\310\"\211\2055 \311!\266\307`\312\"\206@ \313 \f\"\211A@\262\206K \316 \n \205l \211 >\205l \211 >? \317 \211\320\321\"=?\205\233 \322\323 \321\324!\203\213 J\202\214 \211\262$\210 \205\233 \"\262.\207" [gnus-current-article gnus-newsgroup-scored gnus-summary-default-score score gnus-newsgroup-data gnus-unread-mark point-at-bol get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 0 gnus-data-find-in t gnus-summary-highlight-line-0 gnus-get-text-property-excluding-characters-with-faces face gnus-put-text-property-excluding-characters-with-faces point-at-eol boundp mark inhibit-read-only default gnus-summary-default-high-score default-high gnus-summary-default-low-score default-low gnus-summary-use-undownloaded-faces gnus-newsgroup-undownloaded gnus-newsgroup-cached uncached gnus-summary-highlight-line-function] 9 (#$ . 428303)]) #@106 Update the list of read articles in GROUP. UNREAD is a sorted list. (fn GROUP UNREAD &optional COMPUTE) (defalias 'gnus-update-read-articles #[770 "\206 \304 \"\304\n\"A@\262\305\306?\206 ??\205\207\2030 @\307W\2030 A\262\202 \203C @@W\203C A\262\2020 \203q @U\204e @SU\203[ \202a @SBB\262@T\262A\262\202C AX\203\200 ABB\262\211G\305V\203\214 \211\237\202\215 \211\262\203\227 \211\202\207\212\306\310\311 !\312\"\2037\313\3141\321 \211;\203\266 \311!@\202\267 \211\315!\204\301 \316!\210\317\320\321\322#!!\2620\202\323 \210\306\266\202\2037\323\3248\"\323\3248\"\211\204\355 \2035\325\n!\204\372 \326\327 \"\210\330\n\331\306\205\332\333E\205\334\335ED\"\"\210\330\n\336\331\306\205%\332\337E\205/\334\340ED\"DE\262\266 q\210\341\342\343\336D\336\344 8D\345BBB\346\347\336 DD\336\324\n8DE\350\fD\351\336\nD\352DE\353\354BB\257!\266)AA\211\240\266\351\304 \"\"\210\355\207" [gnus-newsgroup-active gnus-active-hashtb gnus-newsrc-hashtb gnus-group-buffer gethash 1 nil 0 gnus-method-option-p gnus-find-method-for-group server-marks request-set-mark (error) featurep require fboundp intern format "%s-%s" gnus-remove-from-range 2 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) setf gnus-info-read gnus-group-jump-to-group gnus-get-unread-articles-in-group gnus-active gnus-group-update-group (t) t] 19 (#$ . 429441)]) #@43 Offer to save all active summary buffers. (defalias 'gnus-offer-save-summaries #[0 "\303\304 \211\2039 \211@\305!\211\262\2032 \306\307\"\2032 r\211q\210\310\311!\205) \205) ?)\2032 \211B\262A\266\202\202 \210\211\205e \212\n\312=\203_ \211\211\205Z \211@\313!\210\314 \210A\266\202\202F \262\202d \315\316\317#)\207" [gnus-newsgroup-prepared gnus-dead-summary-mode gnus-interactive-exit nil buffer-list buffer-name string-match "Summary" derived-mode-p gnus-summary-mode quiet switch-to-buffer gnus-summary-exit map-y-or-n-p "Update summary buffer %s? " #[257 "\300!\210\301 \207" [switch-to-buffer gnus-summary-exit] 3 "\n\n(fn BUF)"]] 6 (#$ . 430998)]) #@34 Setup newsgroup default charset. (defalias 'gnus-summary-setup-default-charset #[0 "\306\235\203\n \307\211\207\n\206 \310\205 \311! \"\f\206' \203& \312!\206' \313\303!\210\211\211\207" [gnus-newsgroup-name gnus-newsgroup-charset gnus-newsgroup-ephemeral-ignored-charsets gnus-newsgroup-ignored-charsets gnus-newsgroup-ephemeral-charset gnus-default-charset ("nndraft:delayed" "nndraft:drafts") nil append gnus-parameter-ignored-charsets gnus-parameter-charset make-local-variable] 3 (#$ . 431674)]) #@187 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. (fn &optional SHOW-ALL-PARTS) (defalias 'gnus-summary-display-buttonized #[256 "\302\303!\210\304\305 *\207" [gnus-mime-display-multipart-as-mixed gnus-unbuttonized-mime-types require gnus-art nil gnus-summary-show-article] 3 (#$ . 432193) "P"]) #@77 Add a Content-Type header to a multipart article without one. (fn ARTICLE) (defalias 'gnus-summary-repair-multipart #[257 "\305\306\307\211\305$\210) q\210\310 \210\311\312!\210db\210\313c\210~\210\314\315\305\307#\203; `\316 {\310 \210\311\317!\210db\210\320\321\"c\210~\266\322\n@\3231i \211;\203N \324!@\202O \211\325!\204Y \326!\210\327\330\320\331#!!\2620\202k \210\305\266\202\204x \332\333\334\"\210\202\206 \335\n@p\307$\204\206 \336\337!\210 \203\221 \340\n@\nA\"\210\f\203\234 \341\n@\nA\"\210\305\306\307\211\305$)\207" [gnus-mark-article-hook gnus-original-article-buffer gnus-article-current gnus-keep-backlog gnus-use-cache nil gnus-summary-select-article t message-narrow-to-head message-remove-header "Mime-Version" "Mime-Version: 1.0\n" search-forward "\n--" point-at-eol "Content-Type" format "Content-Type: multipart/mixed; boundary=\"%s\"\n" request-replace-article (error) gnus-find-method-for-group featurep require fboundp intern "%s-%s" 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] 10 (#$ . 432604) (byte-code "\300`\301\"\211\205 \302!\266\300`\303\"\206 \304 C\207" [get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject] 3)]) #@47 Toggle the buttonizing of the article buffer. (defalias 'gnus-summary-toggle-display-buttonized #[0 "\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 (#$ . 433946) 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")) (#$ . 434237)) (defvar gnus-summary-generic-mark-map (make-sparse-keymap)) (defalias 'gnus-summary-make-all-marking-commands #[0 "\303\304 #\210\n\211\205 \211@\305\306\"\210A\266\202\202 \207" [gnus-summary-mark-map gnus-summary-generic-mark-map gnus-summary-marking-alist define-key "M" apply gnus-summary-make-marking-command] 5]) #@28 (fn NAME MARK KEYSTROKE) (defalias 'gnus-summary-make-marking-command #[771 "\301 \302#\210\303\304\305\306\307\310\311\211 \257\257\211\2059 \211@\312@ $\313!\262\302\3148#\266A\266\202\202 \262\207" [gnus-summary-generic-mark-map 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] 13 (#$ . 434809)]) #@27 (fn MARK WAY LWAY NAME) (defalias 'gnus-summary-make-marking-command-1 #[1028 "\300\301\302\303\304=\203 \305\202 \306\307 !P#!\310\302\311A@#\312\313\314\n\315\316 8D\317 8\257\257\207" [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] 15 (#$ . 435315)]) #@53 Mark N articles with MARK. (fn N MARK MOVE UNREAD) (defalias 'gnus-summary-generic-mark #[1028 "\300\301!\204\n \302\303!\210\304 \210\305\267\202 \306\202 \307\202 \310\211\310U\203( \306\262\2028 \310W\2038 \311!\262\307_\262\310V\203V \312\313\"\203V \314\315#\310U\203V S\262\2028 \310U\204k \316\317\320\203h \321\202i \322#\210\323 \210\324 \210\325\326!\210\207" [derived-mode-p gnus-summary-mode error "This command can only be used in the summary buffer" gnus-summary-show-thread #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (next 19 prev 23)) 1 -1 0 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] 9 (#$ . 435882)]) #@17 (fn ARTICLES) (defalias 'gnus-summary-insert-articles #[257 "\306\307\310\"\"\211\262\205\205 \311\312\313\314\315#\316$\317 \"\n\203$ \320 \210 \203@ \f\321=\203@ \322=\203: \323 \210\202a \324 \210\202a \317 \325\326 !\"\"\211\211\203` \211@\327 \" A\266\202\202L \210 \203i \330 \210\331 \210\203~ @\332H \333!@\332H!\"\205\205 \334 \207" [gnus-newsgroup-headers gnus-newsgroup-articles gnus-suppress-duplicates gnus-fetch-old-headers gnus-headers-retrieved-by gnus-newsgroup-unreads gnus-sorted-difference mapcar #[257 "\211\300H\207" [0] 3 "\n\n(fn H)"] cl-merge list gnus-fetch-headers nil t gnus-article-sort-by-number gnus-sorted-nunion gnus-dup-suppress-articles nov invisible gnus-build-all-threads gnus-build-old-threads gnus-sorted-nintersection gnus-list-of-unread-articles delq gnus-agent-get-undownloaded-list gnus-summary-remove-list-identifiers 0 last gnus-possibly-score-headers gnus-newsgroup-name gnus-newsgroup-unselected gnus-agent gnus-newsgroup-begin gnus-newsgroup-end gnus-use-scoring] 8 (#$ . 436716)]) #@169 Insert all old articles in this group. If ALL is non-nil, already read articles become readable. If ALL is a number, fetch this number of articles. (fn &optional ALL) (defalias 'gnus-summary-insert-old-articles #[256 "\306\307\310\"\311\"\312\211\313\211 C\"\n\"\262\314!\262\203\247\203~ W\203v \237\312\262\315V\203r \211A\262\242\211\247\203A \211\202C \211@\247\203L \202N AX\203m \315V\203m \211B\262S\262\211S\262\202N \266\202, \210\202\316!\262\202\203\212 \316!\262\202 \247\203\211 V\203\312 \317 !\320\321\322 \203\246 \323\202\247 \324$\312\211\205\263 \325!$\326\327\"\204\330!\262W\203\237\312\262\315V\203\211A\262\242\211\247\203\341 \211\202\343 \211@\247\203\354 \202\356 AX\203 \315V\203 \211B\262 S\262\n\211S\262\202\356 \266\202\313 \210)\266\316!\262\204%\331\332!\202/\333!\210\334\335\"!\266\203\336 \210\207" [gnus-newsgroup-data gnus-newsgroup-active gnus-newsgroup-unexist gnus-large-newsgroup cursor-in-echo-area gnus-newsgroup-name sort mapcar gnus-data-number < nil gnus-range-difference gnus-range-length 0 gnus-uncompress-range gnus-parameter-large-newsgroup-initial read-string format "How many articles from %s (%s %d): " "max" "default" number-to-string string-match "^[ ]*$" string-to-number message "No old news." gnus-summary-insert-articles gnus-summary-limit gnus-sorted-nunion gnus-summary-position-point] 12 (#$ . 437778) "P"]) #@40 Insert all new articles in this group. (defalias 'gnus-summary-insert-new-articles #[0 "\306\307\310\"\311\" \312C\313\n\314\"\315\211\204 \316\317!\210\320!\211A\262V\2036 B\262S\262\202$ \211\204A \321\322!\210\202R \323!\210\324 \"\325\324\"!\210)\266\326 \207" [gnus-newsgroup-data gnus-newsgroup-highest gnus-newsgroup-name nnmail-fetched-sources gnus-newsgroup-active gnus-newsgroup-unreads sort mapcar gnus-data-number < t gnus-activate-group scan nil error "Couldn't fetch new data" copy-tree message "No gnus is bad news" gnus-summary-insert-articles gnus-sorted-nunion gnus-summary-limit gnus-summary-position-point] 11 (#$ . 439249) nil]) #@50 Make a bookmark entry for a Gnus summary buffer. (defalias 'gnus-summary-bookmark-make-record #[0 "\304\211\305\306!\203\f \204 \214~\210`\262)\307\262`p\310 \210\211\204$ \311\262\312\313`\314\"\211\2050 \315!\266\313`\316\"\206; \317 \"\3208\262\321\234@A\312 \"\3208\262\211\322H\323\3241d \325\326\327 #0\202h \210\325\330!\331\332\333 \n\n %B\334B\335B\336B\337BBBB\"B\266\205\207" [gnus-article-current bookmark-yank-point bookmark-current-buffer gnus-newsgroup-data nil derived-mode-p gnus-summary-mode "art" gnus-article-show-summary "sum" gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 1 4 append (wrong-number-of-arguments) bookmark-make-record-default no-file no-context point-only location format "Gnus-%s %s:%d:%s" group article message-id ((handler . gnus-summary-bookmark-jump))] 17 (#$ . 439929)]) #@143 Handler function for record returned by `gnus-summary-bookmark-make-record'. BOOKMARK is a bookmark name or a bookmark record. (fn BOOKMARK) (defalias 'gnus-summary-bookmark-jump #[257 "\300\301\"\300\302\"\300\303\"\304\300\305\"!@\306C\"\210\307 \210\310\311\312#\210\313\314!\210\211\315\230\2030 \316\314!\210\317\320\321pB\322!BB!\207" [bookmark-prop-get group article message-id split-string location gnus-fetch-group gnus-summary-insert-cached-articles gnus-summary-goto-article nil force sit-for 1 "Gnus-art" other-window bookmark-default-handler "" buffer bookmark-get-bookmark-record] 10 (#$ . 440850)]) (byte-code "\300 \210\301\302!\210\303\304!\207" [gnus-summary-make-all-marking-commands provide gnus-sum run-hooks gnus-sum-load-hook] 2)
Close
