Remove non-free old and crusty clearcase pkg
[packages] / xemacs-packages / gnus / lisp / gnus-sum.el
1 ;;; gnus-sum.el --- summary mode commands for Gnus
2
3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4 ;;   2005, 2006, 2007, 2008 Free Software Foundation, Inc.
5
6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
7 ;; Keywords: news
8
9 ;; This file is part of GNU Emacs.
10
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation; either version 3, or (at your option)
14 ;; any later version.
15
16 ;; GNU Emacs is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
19 ;; GNU General Public License for more details.
20
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
24 ;; Boston, MA 02110-1301, USA.
25
26 ;;; Commentary:
27
28 ;;; Code:
29
30 (eval-when-compile
31   (require 'cl)
32   (defvar tool-bar-mode))
33
34 (require 'gnus)
35 (require 'gnus-group)
36 (require 'gnus-spec)
37 (require 'gnus-range)
38 (require 'gnus-int)
39 (require 'gnus-undo)
40 (require 'gnus-util)
41 (require 'gmm-utils)
42 (require 'mm-decode)
43 (require 'nnoo)
44
45 (autoload 'gnus-summary-limit-include-cached "gnus-cache" nil t)
46 (autoload 'gnus-cache-write-active "gnus-cache")
47 (autoload 'gnus-mailing-list-insinuate "gnus-ml" nil t)
48 (autoload 'turn-on-gnus-mailing-list-mode "gnus-ml" nil t)
49 (autoload 'gnus-pick-line-number "gnus-salt" nil t)
50 (autoload 'mm-uu-dissect "mm-uu")
51 (autoload 'gnus-article-outlook-deuglify-article "deuglify"
52   "Deuglify broken Outlook (Express) articles and redisplay."
53   t)
54 (autoload 'gnus-article-outlook-unwrap-lines "deuglify" nil t)
55 (autoload 'gnus-article-outlook-repair-attribution "deuglify" nil t)
56 (autoload 'gnus-article-outlook-rearrange-citation "deuglify" nil t)
57
58 (defun-when-void put-display-table (range value display-table)
59   "Set the value for char RANGE to VALUE in DISPLAY-TABLE.  "
60   (ecase (type-of display-table)
61     (vector
62      (aset display-table range value))
63     (char-table
64      (put-char-table range value display-table))))
65
66 (defun-when-void get-display-table (character display-table)
67   "Find value for CHARACTER in DISPLAY-TABLE.  "
68   (ecase (type-of display-table)
69     (vector
70      (aref display-table character))
71     (char-table
72      (get-char-table character display-table))))
73
74 (defcustom gnus-kill-summary-on-exit t
75   "*If non-nil, kill the summary buffer when you exit from it.
76 If nil, the summary will become a \"*Dead Summary*\" buffer, and
77 it will be killed sometime later."
78   :group 'gnus-summary-exit
79   :type 'boolean)
80
81 (defcustom gnus-fetch-old-headers nil
82   "*Non-nil means that Gnus will try to build threads by grabbing old headers.
83 If an unread article in the group refers to an older, already read (or
84 just marked as read) article, the old article will not normally be
85 displayed in the Summary buffer.  If this variable is t, Gnus
86 will attempt to grab the headers to the old articles, and thereby
87 build complete threads.  If it has the value `some', only enough
88 headers to connect otherwise loose threads will be displayed.  This
89 variable can also be a number.  In that case, no more than that number
90 of old headers will be fetched.  If it has the value `invisible', all
91 old headers will be fetched, but none will be displayed.
92
93 The server has to support NOV for any of this to work."
94   :group 'gnus-thread
95   :type '(choice (const :tag "off" nil)
96                  (const :tag "on" t)
97                  (const some)
98                  (const invisible)
99                  number
100                  (sexp :menu-tag "other" t)))
101
102 (defcustom gnus-refer-thread-limit 200
103   "*The number of old headers to fetch when doing \\<gnus-summary-mode-map>\\[gnus-summary-refer-thread].
104 If t, fetch all the available old headers."
105   :group 'gnus-thread
106   :type '(choice number
107                  (sexp :menu-tag "other" t)))
108
109 (defcustom gnus-summary-make-false-root 'adopt
110   "*nil means that Gnus won't gather loose threads.
111 If the root of a thread has expired or been read in a previous
112 session, the information necessary to build a complete thread has been
113 lost.  Instead of having many small sub-threads from this original thread
114 scattered all over the summary buffer, Gnus can gather them.
115
116 If non-nil, Gnus will try to gather all loose sub-threads from an
117 original thread into one large thread.
118
119 If this variable is non-nil, it should be one of `none', `adopt',
120 `dummy' or `empty'.
121
122 If this variable is `none', Gnus will not make a false root, but just
123 present the sub-threads after another.
124 If this variable is `dummy', Gnus will create a dummy root that will
125 have all the sub-threads as children.
126 If this variable is `adopt', Gnus will make one of the \"children\"
127 the parent and mark all the step-children as such.
128 If this variable is `empty', the \"children\" are printed with empty
129 subject fields.  (Or rather, they will be printed with a string
130 given by the `gnus-summary-same-subject' variable.)"
131   :group 'gnus-thread
132   :type '(choice (const :tag "off" nil)
133                  (const none)
134                  (const dummy)
135                  (const adopt)
136                  (const empty)))
137
138 (defcustom gnus-summary-make-false-root-always nil
139   "Always make a false dummy root."
140   :version "22.1"
141   :group 'gnus-thread
142   :type 'boolean)
143
144 (defcustom gnus-summary-gather-exclude-subject "^ *$\\|^(none)$"
145   "*A regexp to match subjects to be excluded from loose thread gathering.
146 As loose thread gathering is done on subjects only, that means that
147 there can be many false gatherings performed.  By rooting out certain
148 common subjects, gathering might become saner."
149   :group 'gnus-thread
150   :type 'regexp)
151
152 (defcustom gnus-summary-gather-subject-limit nil
153   "*Maximum length of subject comparisons when gathering loose threads.
154 Use nil to compare full subjects.  Setting this variable to a low
155 number will help gather threads that have been corrupted by
156 newsreaders chopping off subject lines, but it might also mean that
157 unrelated articles that have subject that happen to begin with the
158 same few characters will be incorrectly gathered.
159
160 If this variable is `fuzzy', Gnus will use a fuzzy algorithm when
161 comparing subjects."
162   :group 'gnus-thread
163   :type '(choice (const :tag "off" nil)
164                  (const fuzzy)
165                  (sexp :menu-tag "on" t)))
166
167 (defcustom gnus-simplify-subject-functions nil
168   "List of functions taking a string argument that simplify subjects.
169 The functions are applied recursively.
170
171 Useful functions to put in this list include:
172 `gnus-simplify-subject-re', `gnus-simplify-subject-fuzzy',
173 `gnus-simplify-whitespace', and `gnus-simplify-all-whitespace'."
174   :group 'gnus-thread
175   :type '(repeat function))
176
177 (defcustom gnus-simplify-ignored-prefixes nil
178   "*Remove matches for this regexp from subject lines when simplifying fuzzily."
179   :group 'gnus-thread
180   :type '(choice (const :tag "off" nil)
181                  regexp))
182
183 (defcustom gnus-build-sparse-threads nil
184   "*If non-nil, fill in the gaps in threads.
185 If `some', only fill in the gaps that are needed to tie loose threads
186 together.  If `more', fill in all leaf nodes that Gnus can find.  If
187 non-nil and non-`some', fill in all gaps that Gnus manages to guess."
188   :group 'gnus-thread
189   :type '(choice (const :tag "off" nil)
190                  (const some)
191                  (const more)
192                  (sexp :menu-tag "all" t)))
193
194 (defcustom gnus-summary-thread-gathering-function
195   'gnus-gather-threads-by-subject
196   "*Function used for gathering loose threads.
197 There are two pre-defined functions: `gnus-gather-threads-by-subject',
198 which only takes Subjects into consideration; and
199 `gnus-gather-threads-by-references', which compared the References
200 headers of the articles to find matches."
201   :group 'gnus-thread
202   :type '(radio (function-item gnus-gather-threads-by-subject)
203                 (function-item gnus-gather-threads-by-references)
204                 (function :tag "other")))
205
206 (defcustom gnus-summary-same-subject ""
207   "*String indicating that the current article has the same subject as the previous.
208 This variable will only be used if the value of
209 `gnus-summary-make-false-root' is `empty'."
210   :group 'gnus-summary-format
211   :type 'string)
212
213 (defcustom gnus-summary-goto-unread t
214   "*If t, many commands will go to the next unread article.
215 This applies to marking commands as well as other commands that
216 \"naturally\" select the next article, like, for instance, `SPC' at
217 the end of an article.
218
219 If nil, the marking commands do NOT go to the next unread article
220 \(they go to the next article instead).  If `never', commands that
221 usually go to the next unread article, will go to the next article,
222 whether it is read or not."
223   :group 'gnus-summary-marks
224   :link '(custom-manual "(gnus)Setting Marks")
225   :type '(choice (const :tag "off" nil)
226                  (const never)
227                  (sexp :menu-tag "on" t)))
228
229 (defcustom gnus-summary-default-score 0
230   "*Default article score level.
231 All scores generated by the score files will be added to this score.
232 If this variable is nil, scoring will be disabled."
233   :group 'gnus-score-default
234   :type '(choice (const :tag "disable")
235                  integer))
236
237 (defcustom gnus-summary-default-high-score 0
238   "*Default threshold for a high scored article.
239 An article will be highlighted as high scored if its score is greater
240 than this score."
241   :version "22.1"
242   :group 'gnus-score-default
243   :type 'integer)
244
245 (defcustom gnus-summary-default-low-score 0
246   "*Default threshold for a low scored article.
247 An article will be highlighted as low scored if its score is smaller
248 than this score."
249   :version "22.1"
250   :group 'gnus-score-default
251   :type 'integer)
252
253 (defcustom gnus-summary-zcore-fuzz 0
254   "*Fuzziness factor for the zcore in the summary buffer.
255 Articles with scores closer than this to `gnus-summary-default-score'
256 will not be marked."
257   :group 'gnus-summary-format
258   :type 'integer)
259
260 (defcustom gnus-simplify-subject-fuzzy-regexp nil
261   "*Strings to be removed when doing fuzzy matches.
262 This can either be a regular expression or list of regular expressions
263 that will be removed from subject strings if fuzzy subject
264 simplification is selected."
265   :group 'gnus-thread
266   :type '(repeat regexp))
267
268 (defcustom gnus-show-threads t
269   "*If non-nil, display threads in summary mode."
270   :group 'gnus-thread
271   :type 'boolean)
272
273 (defcustom gnus-thread-hide-subtree nil
274   "*If non-nil, hide all threads initially.
275 This can be a predicate specifier which says which threads to hide.
276 If threads are hidden, you have to run the command
277 `gnus-summary-show-thread' by hand or select an article."
278   :group 'gnus-thread
279   :type '(radio (sexp :format "Non-nil\n"
280                       :match (lambda (widget value)
281                                (not (or (consp value) (functionp value))))
282                       :value t)
283                 (const nil)
284                 (sexp :tag "Predicate specifier")))
285
286 (defcustom gnus-thread-hide-killed t
287   "*If non-nil, hide killed threads automatically."
288   :group 'gnus-thread
289   :type 'boolean)
290
291 (defcustom gnus-thread-ignore-subject t
292   "*If non-nil, which is the default, ignore subjects and do all threading based on the Reference header.
293 If nil, articles that have different subjects from their parents will
294 start separate threads."
295   :group 'gnus-thread
296   :type 'boolean)
297
298 (defcustom gnus-thread-operation-ignore-subject t
299   "*If non-nil, subjects will be ignored when doing thread commands.
300 This affects commands like `gnus-summary-kill-thread' and
301 `gnus-summary-lower-thread'.
302
303 If this variable is nil, articles in the same thread with different
304 subjects will not be included in the operation in question.  If this
305 variable is `fuzzy', only articles that have subjects that are fuzzily
306 equal will be included."
307   :group 'gnus-thread
308   :type '(choice (const :tag "off" nil)
309                  (const fuzzy)
310                  (sexp :tag "on" t)))
311
312 (defcustom gnus-thread-indent-level 4
313   "*Number that says how much each sub-thread should be indented."
314   :group 'gnus-thread
315   :type 'integer)
316
317 (defcustom gnus-auto-extend-newsgroup t
318   "*If non-nil, extend newsgroup forward and backward when requested."
319   :group 'gnus-summary-choose
320   :type 'boolean)
321
322 (defcustom gnus-auto-select-first t
323   "If non-nil, select an article on group entry.
324 An article is selected automatically when entering a group
325 e.g. with \\<gnus-group-mode-map>\\[gnus-group-read-group], or via `gnus-summary-next-page' or
326 `gnus-summary-catchup-and-goto-next-group'.
327
328 Which article is selected is controlled by the variable
329 `gnus-auto-select-subject'.
330
331 If you want to prevent automatic selection of articles in some
332 newsgroups, set the variable to nil in `gnus-select-group-hook'."
333   ;; Commands include...
334   ;; \\<gnus-group-mode-map>\\[gnus-group-read-group]
335   ;; \\<gnus-summary-mode-map>\\[gnus-summary-next-page]
336   ;; \\<gnus-summary-mode-map>\\[gnus-summary-catchup-and-goto-next-group]
337   :group 'gnus-group-select
338   :type '(choice (const :tag "none" nil)
339                  (sexp :menu-tag "first" t)))
340
341 (defcustom gnus-auto-select-subject 'unread
342   "*Says what subject to place under point when entering a group.
343
344 This variable can either be the symbols `first' (place point on the
345 first subject), `unread' (place point on the subject line of the first
346 unread article), `best' (place point on the subject line of the
347 higest-scored article), `unseen' (place point on the subject line of
348 the first unseen article), `unseen-or-unread' (place point on the subject
349 line of the first unseen article or, if all article have been seen, on the
350 subject line of the first unread article), or a function to be called to
351 place point on some subject line."
352   :version "22.1"
353   :group 'gnus-group-select
354   :type '(choice (const best)
355                  (const unread)
356                  (const first)
357                  (const unseen)
358                  (const unseen-or-unread)))
359
360 (defcustom gnus-auto-select-next t
361   "*If non-nil, offer to go to the next group from the end of the previous.
362 If the value is t and the next newsgroup is empty, Gnus will exit
363 summary mode and go back to group mode.  If the value is neither nil
364 nor t, Gnus will select the following unread newsgroup.  In
365 particular, if the value is the symbol `quietly', the next unread
366 newsgroup will be selected without any confirmation, and if it is
367 `almost-quietly', the next group will be selected without any
368 confirmation if you are located on the last article in the group.
369 Finally, if this variable is `slightly-quietly', the `\\<gnus-summary-mode-map>\\[gnus-summary-catchup-and-goto-next-group]' command
370 will go to the next group without confirmation."
371   :group 'gnus-summary-maneuvering
372   :type '(choice (const :tag "off" nil)
373                  (const quietly)
374                  (const almost-quietly)
375                  (const slightly-quietly)
376                  (sexp :menu-tag "on" t)))
377
378 (defcustom gnus-auto-select-same nil
379   "*If non-nil, select the next article with the same subject.
380 If there are no more articles with the same subject, go to
381 the first unread article."
382   :group 'gnus-summary-maneuvering
383   :type 'boolean)
384
385 (defcustom gnus-auto-goto-ignores 'unfetched
386   "*Says how to handle unfetched articles when maneuvering.
387
388 This variable can either be the symbols nil (maneuver to any
389 article), `undownloaded' (maneuvering while unplugged ignores articles
390 that have not been fetched), `always-undownloaded' (maneuvering always
391 ignores articles that have not been fetched), `unfetched' (maneuvering
392 ignores articles whose headers have not been fetched).
393
394 NOTE: The list of unfetched articles will always be nil when plugged
395 and, when unplugged, a subset of the undownloaded article list."
396   :version "22.1"
397   :group 'gnus-summary-maneuvering
398   :type '(choice (const :tag "None" nil)
399                  (const :tag "Undownloaded when unplugged" undownloaded)
400                  (const :tag "Undownloaded" always-undownloaded)
401                  (const :tag "Unfetched" unfetched)))
402
403 (defcustom gnus-summary-check-current nil
404   "*If non-nil, consider the current article when moving.
405 The \"unread\" movement commands will stay on the same line if the
406 current article is unread."
407   :group 'gnus-summary-maneuvering
408   :type 'boolean)
409
410 (defcustom gnus-auto-center-summary t
411   "*If non-nil, always center the current summary buffer.
412 In particular, if `vertical' do only vertical recentering.  If non-nil
413 and non-`vertical', do both horizontal and vertical recentering."
414   :group 'gnus-summary-maneuvering
415   :type '(choice (const :tag "none" nil)
416                  (const vertical)
417                  (integer :tag "height")
418                  (sexp :menu-tag "both" t)))
419
420 (defvar gnus-auto-center-group t
421   "*If non-nil, always center the group buffer.")
422
423 (defcustom gnus-show-all-headers nil
424   "*If non-nil, don't hide any headers."
425   :group 'gnus-article-hiding
426   :group 'gnus-article-headers
427   :type 'boolean)
428
429 (defcustom gnus-summary-ignore-duplicates nil
430   "*If non-nil, ignore articles with identical Message-ID headers."
431   :group 'gnus-summary
432   :type 'boolean)
433
434 (defcustom gnus-single-article-buffer t
435   "*If non-nil, display all articles in the same buffer.
436 If nil, each group will get its own article buffer."
437   :group 'gnus-article-various
438   :type 'boolean)
439
440 (defcustom gnus-break-pages t
441   "*If non-nil, do page breaking on articles.
442 The page delimiter is specified by the `gnus-page-delimiter'
443 variable."
444   :group 'gnus-article-various
445   :type 'boolean)
446
447 (defcustom gnus-move-split-methods nil
448   "*Variable used to suggest where articles are to be moved to.
449 It uses the same syntax as the `gnus-split-methods' variable.
450 However, whereas `gnus-split-methods' specifies file names as targets,
451 this variable specifies group names."
452   :group 'gnus-summary-mail
453   :type '(repeat (choice (list :value (fun) function)
454                          (cons :value ("" "") regexp (repeat string))
455                          (sexp :value nil))))
456
457 ;; FIXME: Although the custom type is `character' for the following variables,
458 ;; using multibyte characters (Latin-1, UTF-8) doesn't work.  -- rs
459
460 (defcustom gnus-unread-mark ?           ;Whitespace
461   "*Mark used for unread articles."
462   :group 'gnus-summary-marks
463   :type 'character)
464
465 (defcustom gnus-ticked-mark ?!
466   "*Mark used for ticked articles."
467   :group 'gnus-summary-marks
468   :type 'character)
469
470 (defcustom gnus-dormant-mark ??
471   "*Mark used for dormant articles."
472   :group 'gnus-summary-marks
473   :type 'character)
474
475 (defcustom gnus-del-mark ?r
476   "*Mark used for del'd articles."
477   :group 'gnus-summary-marks
478   :type 'character)
479
480 (defcustom gnus-read-mark ?R
481   "*Mark used for read articles."
482   :group 'gnus-summary-marks
483   :type 'character)
484
485 (defcustom gnus-expirable-mark ?E
486   "*Mark used for expirable articles."
487   :group 'gnus-summary-marks
488   :type 'character)
489
490 (defcustom gnus-killed-mark ?K
491   "*Mark used for killed articles."
492   :group 'gnus-summary-marks
493   :type 'character)
494
495 (defcustom gnus-spam-mark ?$
496   "*Mark used for spam articles."
497   :version "22.1"
498   :group 'gnus-summary-marks
499   :type 'character)
500
501 (defcustom gnus-souped-mark ?F
502   "*Mark used for souped articles."
503   :group 'gnus-summary-marks
504   :type 'character)
505
506 (defcustom gnus-kill-file-mark ?X
507   "*Mark used for articles killed by kill files."
508   :group 'gnus-summary-marks
509   :type 'character)
510
511 (defcustom gnus-low-score-mark ?Y
512   "*Mark used for articles with a low score."
513   :group 'gnus-summary-marks
514   :type 'character)
515
516 (defcustom gnus-catchup-mark ?C
517   "*Mark used for articles that are caught up."
518   :group 'gnus-summary-marks
519   :type 'character)
520
521 (defcustom gnus-replied-mark ?A
522   "*Mark used for articles that have been replied to."
523   :group 'gnus-summary-marks
524   :type 'character)
525
526 (defcustom gnus-forwarded-mark ?F
527   "*Mark used for articles that have been forwarded."
528   :version "22.1"
529   :group 'gnus-summary-marks
530   :type 'character)
531
532 (defcustom gnus-recent-mark ?N
533   "*Mark used for articles that are recent."
534   :version "22.1"
535   :group 'gnus-summary-marks
536   :type 'character)
537
538 (defcustom gnus-cached-mark ?*
539   "*Mark used for articles that are in the cache."
540   :group 'gnus-summary-marks
541   :type 'character)
542
543 (defcustom gnus-saved-mark ?S
544   "*Mark used for articles that have been saved."
545   :group 'gnus-summary-marks
546   :type 'character)
547
548 (defcustom gnus-unseen-mark ?.
549   "*Mark used for articles that haven't been seen."
550   :version "22.1"
551   :group 'gnus-summary-marks
552   :type 'character)
553
554 (defcustom gnus-no-mark ?               ;Whitespace
555   "*Mark used for articles that have no other secondary mark."
556   :version "22.1"
557   :group 'gnus-summary-marks
558   :type 'character)
559
560 (defcustom gnus-ancient-mark ?O
561   "*Mark used for ancient articles."
562   :group 'gnus-summary-marks
563   :type 'character)
564
565 (defcustom gnus-sparse-mark ?Q
566   "*Mark used for sparsely reffed articles."
567   :group 'gnus-summary-marks
568   :type 'character)
569
570 (defcustom gnus-canceled-mark ?G
571   "*Mark used for canceled articles."
572   :group 'gnus-summary-marks
573   :type 'character)
574
575 (defcustom gnus-duplicate-mark ?M
576   "*Mark used for duplicate articles."
577   :group 'gnus-summary-marks
578   :type 'character)
579
580 (defcustom gnus-undownloaded-mark ?-
581   "*Mark used for articles that weren't downloaded."
582   :version "22.1"
583   :group 'gnus-summary-marks
584   :type 'character)
585
586 (defcustom gnus-downloaded-mark ?+
587   "*Mark used for articles that were downloaded."
588   :group 'gnus-summary-marks
589   :type 'character)
590
591 (defcustom gnus-downloadable-mark ?%
592   "*Mark used for articles that are to be downloaded."
593   :group 'gnus-summary-marks
594   :type 'character)
595
596 (defcustom gnus-unsendable-mark ?=
597   "*Mark used for articles that won't be sent."
598   :group 'gnus-summary-marks
599   :type 'character)
600
601 (defcustom gnus-score-over-mark ?+
602   "*Score mark used for articles with high scores."
603   :group 'gnus-summary-marks
604   :type 'character)
605
606 (defcustom gnus-score-below-mark ?-
607   "*Score mark used for articles with low scores."
608   :group 'gnus-summary-marks
609   :type 'character)
610
611 (defcustom gnus-empty-thread-mark ?     ;Whitespace
612   "*There is no thread under the article."
613   :group 'gnus-summary-marks
614   :type 'character)
615
616 (defcustom gnus-not-empty-thread-mark ?=
617   "*There is a thread under the article."
618   :group 'gnus-summary-marks
619   :type 'character)
620
621 (defcustom gnus-view-pseudo-asynchronously nil
622   "*If non-nil, Gnus will view pseudo-articles asynchronously."
623   :group 'gnus-extract-view
624   :type 'boolean)
625
626 (defcustom gnus-auto-expirable-marks
627   (list gnus-killed-mark gnus-del-mark gnus-catchup-mark
628         gnus-low-score-mark gnus-ancient-mark gnus-read-mark
629         gnus-souped-mark gnus-duplicate-mark)
630   "*The list of marks converted into expiration if a group is auto-expirable."
631   :version "21.1"
632   :group 'gnus-summary
633   :type '(repeat character))
634
635 (defcustom gnus-inhibit-user-auto-expire t
636   "*If non-nil, user marking commands will not mark an article as expirable, even if the group has auto-expire turned on."
637   :version "21.1"
638   :group 'gnus-summary
639   :type 'boolean)
640
641 (defcustom gnus-view-pseudos nil
642   "*If `automatic', pseudo-articles will be viewed automatically.
643 If `not-confirm', pseudos will be viewed automatically, and the user
644 will not be asked to confirm the command."
645   :group 'gnus-extract-view
646   :type '(choice (const :tag "off" nil)
647                  (const automatic)
648                  (const not-confirm)))
649
650 (defcustom gnus-view-pseudos-separately t
651   "*If non-nil, one pseudo-article will be created for each file to be viewed.
652 If nil, all files that use the same viewing command will be given as a
653 list of parameters to that command."
654   :group 'gnus-extract-view
655   :type 'boolean)
656
657 (defcustom gnus-insert-pseudo-articles t
658   "*If non-nil, insert pseudo-articles when decoding articles."
659   :group 'gnus-extract-view
660   :type 'boolean)
661
662 (defcustom gnus-summary-dummy-line-format
663   "   %(:                             :%) %S\n"
664   "*The format specification for the dummy roots in the summary buffer.
665 It works along the same lines as a normal formatting string,
666 with some simple extensions.
667
668 %S  The subject
669
670 General format specifiers can also be used.
671 See `(gnus)Formatting Variables'."
672   :link '(custom-manual "(gnus)Formatting Variables")
673   :group 'gnus-threading
674   :type 'string)
675
676 (defcustom gnus-summary-mode-line-format "Gnus: %g [%A] %Z"
677   "*The format specification for the summary mode line.
678 It works along the same lines as a normal formatting string,
679 with some simple extensions:
680
681 %G  Group name
682 %p  Unprefixed group name
683 %A  Current article number
684 %z  Current article score
685 %V  Gnus version
686 %U  Number of unread articles in the group
687 %e  Number of unselected articles in the group
688 %Z  A string with unread/unselected article counts
689 %g  Shortish group name
690 %S  Subject of the current article
691 %u  User-defined spec
692 %s  Current score file name
693 %d  Number of dormant articles
694 %r  Number of articles that have been marked as read in this session
695 %E  Number of articles expunged by the score files"
696   :group 'gnus-summary-format
697   :type 'string)
698
699 (defcustom gnus-list-identifiers nil
700   "Regexp that matches list identifiers to be removed from subject.
701 This can also be a list of regexps."
702   :version "21.1"
703   :group 'gnus-summary-format
704   :group 'gnus-article-hiding
705   :type '(choice (const :tag "none" nil)
706                  (regexp :value ".*")
707                  (repeat :value (".*") regexp)))
708
709 (defcustom gnus-summary-mark-below 0
710   "*Mark all articles with a score below this variable as read.
711 This variable is local to each summary buffer and usually set by the
712 score file."
713   :group 'gnus-score-default
714   :type 'integer)
715
716 (defcustom gnus-article-sort-functions '(gnus-article-sort-by-number)
717   "*List of functions used for sorting articles in the summary buffer.
718
719 Each function takes two articles and returns non-nil if the first
720 article should be sorted before the other.  If you use more than one
721 function, the primary sort function should be the last.  You should
722 probably always include `gnus-article-sort-by-number' in the list of
723 sorting functions -- preferably first.  Also note that sorting by date
724 is often much slower than sorting by number, and the sorting order is
725 very similar.  (Sorting by date means sorting by the time the message
726 was sent, sorting by number means sorting by arrival time.)
727
728 Ready-made functions include `gnus-article-sort-by-number',
729 `gnus-article-sort-by-author', `gnus-article-sort-by-subject',
730 `gnus-article-sort-by-date', `gnus-article-sort-by-random'
731 and `gnus-article-sort-by-score'.
732
733 When threading is turned on, the variable `gnus-thread-sort-functions'
734 controls how articles are sorted."
735   :group 'gnus-summary-sort
736   :type '(repeat (choice (function-item gnus-article-sort-by-number)
737                          (function-item gnus-article-sort-by-author)
738                          (function-item gnus-article-sort-by-subject)
739                          (function-item gnus-article-sort-by-date)
740                          (function-item gnus-article-sort-by-score)
741                          (function-item gnus-article-sort-by-random)
742                          (function :tag "other"))))
743
744 (defcustom gnus-thread-sort-functions '(gnus-thread-sort-by-number)
745   "*List of functions used for sorting threads in the summary buffer.
746 By default, threads are sorted by article number.
747
748 Each function takes two threads and returns non-nil if the first
749 thread should be sorted before the other.  If you use more than one
750 function, the primary sort function should be the last.  You should
751 probably always include `gnus-thread-sort-by-number' in the list of
752 sorting functions -- preferably first.  Also note that sorting by date
753 is often much slower than sorting by number, and the sorting order is
754 very similar.  (Sorting by date means sorting by the time the message
755 was sent, sorting by number means sorting by arrival time.)
756
757 Ready-made functions include `gnus-thread-sort-by-number',
758 `gnus-thread-sort-by-author', `gnus-thread-sort-by-subject',
759 `gnus-thread-sort-by-date', `gnus-thread-sort-by-score',
760 `gnus-thread-sort-by-most-recent-number',
761 `gnus-thread-sort-by-most-recent-date',
762 `gnus-thread-sort-by-random', and
763 `gnus-thread-sort-by-total-score' (see `gnus-thread-score-function').
764
765 When threading is turned off, the variable
766 `gnus-article-sort-functions' controls how articles are sorted."
767   :group 'gnus-summary-sort
768   :type '(repeat (choice (function-item gnus-thread-sort-by-number)
769                          (function-item gnus-thread-sort-by-author)
770                          (function-item gnus-thread-sort-by-subject)
771                          (function-item gnus-thread-sort-by-date)
772                          (function-item gnus-thread-sort-by-score)
773                          (function-item gnus-thread-sort-by-total-score)
774                          (function-item gnus-thread-sort-by-random)
775                          (function :tag "other"))))
776
777 (defcustom gnus-thread-score-function '+
778   "*Function used for calculating the total score of a thread.
779
780 The function is called with the scores of the article and each
781 subthread and should then return the score of the thread.
782
783 Some functions you can use are `+', `max', or `min'."
784   :group 'gnus-summary-sort
785   :type 'function)
786
787 (defcustom gnus-summary-expunge-below nil
788   "All articles that have a score less than this variable will be expunged.
789 This variable is local to the summary buffers."
790   :group 'gnus-score-default
791   :type '(choice (const :tag "off" nil)
792                  integer))
793
794 (defcustom gnus-thread-expunge-below nil
795   "All threads that have a total score less than this variable will be expunged.
796 See `gnus-thread-score-function' for en explanation of what a
797 \"thread score\" is.
798
799 This variable is local to the summary buffers."
800   :group 'gnus-threading
801   :group 'gnus-score-default
802   :type '(choice (const :tag "off" nil)
803                  integer))
804
805 (defcustom gnus-summary-mode-hook nil
806   "*A hook for Gnus summary mode.
807 This hook is run before any variables are set in the summary buffer."
808   :options '(turn-on-gnus-mailing-list-mode gnus-pick-mode)
809   :group 'gnus-summary-various
810   :type 'hook)
811
812 ;; Extracted from gnus-xmas-redefine in order to preserve user settings
813 (when (featurep 'xemacs)
814   (add-hook 'gnus-summary-mode-hook 'gnus-xmas-summary-menu-add)
815   (add-hook 'gnus-summary-mode-hook 'gnus-xmas-setup-summary-toolbar)
816   (add-hook 'gnus-summary-mode-hook
817             'gnus-xmas-switch-horizontal-scrollbar-off))
818
819 (defcustom gnus-summary-menu-hook nil
820   "*Hook run after the creation of the summary mode menu."
821   :group 'gnus-summary-visual
822   :type 'hook)
823
824 (defcustom gnus-summary-exit-hook nil
825   "*A hook called on exit from the summary buffer.
826 It will be called with point in the group buffer."
827   :group 'gnus-summary-exit
828   :type 'hook)
829
830 (defcustom gnus-summary-prepare-hook nil
831   "*A hook called after the summary buffer has been generated.
832 If you want to modify the summary buffer, you can use this hook."
833   :group 'gnus-summary-various
834   :type 'hook)
835
836 (defcustom gnus-summary-prepared-hook nil
837   "*A hook called as the last thing after the summary buffer has been generated."
838   :group 'gnus-summary-various
839   :type 'hook)
840
841 (defcustom gnus-summary-generate-hook nil
842   "*A hook run just before generating the summary buffer.
843 This hook is commonly used to customize threading variables and the
844 like."
845   :group 'gnus-summary-various
846   :type 'hook)
847
848 (defcustom gnus-select-group-hook nil
849   "*A hook called when a newsgroup is selected.
850
851 If you'd like to simplify subjects like the
852 `gnus-summary-next-same-subject' command does, you can use the
853 following hook:
854
855  (add-hook gnus-select-group-hook
856            (lambda ()
857              (mapcar (lambda (header)
858                        (mail-header-set-subject
859                         header
860                         (gnus-simplify-subject
861                          (mail-header-subject header) 're-only)))
862                      gnus-newsgroup-headers)))"
863   :group 'gnus-group-select
864   :type 'hook)
865
866 (defcustom gnus-select-article-hook nil
867   "*A hook called when an article is selected."
868   :group 'gnus-summary-choose
869   :options '(gnus-agent-fetch-selected-article)
870   :type 'hook)
871
872 (defcustom gnus-visual-mark-article-hook
873   (list 'gnus-highlight-selected-summary)
874   "*Hook run after selecting an article in the summary buffer.
875 It is meant to be used for highlighting the article in some way.  It
876 is not run if `gnus-visual' is nil."
877   :group 'gnus-summary-visual
878   :type 'hook)
879
880 (defcustom gnus-parse-headers-hook nil
881   "*A hook called before parsing the headers."
882   :group 'gnus-various
883   :type 'hook)
884
885 (defcustom gnus-exit-group-hook nil
886   "*A hook called when exiting summary mode.
887 This hook is not called from the non-updating exit commands like `Q'."
888   :group 'gnus-various
889   :type 'hook)
890
891 (defcustom gnus-summary-update-hook
892   (list 'gnus-summary-highlight-line)
893   "*A hook called when a summary line is changed.
894 The hook will not be called if `gnus-visual' is nil.
895
896 The default function `gnus-summary-highlight-line' will
897 highlight the line according to the `gnus-summary-highlight'
898 variable."
899   :group 'gnus-summary-visual
900   :type 'hook)
901
902 (defcustom gnus-mark-article-hook '(gnus-summary-mark-read-and-unread-as-read)
903   "*A hook called when an article is selected for the first time.
904 The hook is intended to mark an article as read (or unread)
905 automatically when it is selected."
906   :group 'gnus-summary-choose
907   :type 'hook)
908
909 (defcustom gnus-group-no-more-groups-hook nil
910   "*A hook run when returning to group mode having no more (unread) groups."
911   :group 'gnus-group-select
912   :type 'hook)
913
914 (defcustom gnus-ps-print-hook nil
915   "*A hook run before ps-printing something from Gnus."
916   :group 'gnus-summary
917   :type 'hook)
918
919 (defcustom gnus-summary-article-move-hook nil
920   "*A hook called after an article is moved, copied, respooled, or crossposted."
921   :version "22.1"
922   :group 'gnus-summary
923   :type 'hook)
924
925 (defcustom gnus-summary-article-delete-hook nil
926   "*A hook called after an article is deleted."
927   :version "22.1"
928   :group 'gnus-summary
929   :type 'hook)
930
931 (defcustom gnus-summary-article-expire-hook nil
932   "*A hook called after an article is expired."
933   :version "22.1"
934   :group 'gnus-summary
935   :type 'hook)
936
937 (defcustom gnus-summary-display-arrow
938   (and (fboundp 'display-graphic-p)
939        (display-graphic-p))
940   "*If non-nil, display an arrow highlighting the current article."
941   :version "22.1"
942   :group 'gnus-summary
943   :type 'boolean)
944
945 (defcustom gnus-summary-selected-face 'gnus-summary-selected
946   "Face used for highlighting the current article in the summary buffer."
947   :group 'gnus-summary-visual
948   :type 'face)
949
950 (defvar gnus-tmp-downloaded nil)
951
952 (defcustom gnus-summary-highlight
953   '(((eq mark gnus-canceled-mark)
954      . gnus-summary-cancelled)
955     ((and uncached (> score default-high))
956      . gnus-summary-high-undownloaded)
957     ((and uncached (< score default-low))
958      . gnus-summary-low-undownloaded)
959     (uncached
960      . gnus-summary-normal-undownloaded)
961     ((and (> score default-high)
962           (or (eq mark gnus-dormant-mark)
963               (eq mark gnus-ticked-mark)))
964      . gnus-summary-high-ticked)
965     ((and (< score default-low)
966           (or (eq mark gnus-dormant-mark)
967               (eq mark gnus-ticked-mark)))
968      . gnus-summary-low-ticked)
969     ((or (eq mark gnus-dormant-mark)
970          (eq mark gnus-ticked-mark))
971      . gnus-summary-normal-ticked)
972     ((and (> score default-high) (eq mark gnus-ancient-mark))
973      . gnus-summary-high-ancient)
974     ((and (< score default-low) (eq mark gnus-ancient-mark))
975      . gnus-summary-low-ancient)
976     ((eq mark gnus-ancient-mark)
977      . gnus-summary-normal-ancient)
978     ((and (> score default-high) (eq mark gnus-unread-mark))
979      . gnus-summary-high-unread)
980     ((and (< score default-low) (eq mark gnus-unread-mark))
981      . gnus-summary-low-unread)
982     ((eq mark gnus-unread-mark)
983      . gnus-summary-normal-unread)
984     ((> score default-high)
985      . gnus-summary-high-read)
986     ((< score default-low)
987      . gnus-summary-low-read)
988     (t
989      . gnus-summary-normal-read))
990   "*Controls the highlighting of summary buffer lines.
991
992 A list of (FORM . FACE) pairs.  When deciding how a particular
993 summary line should be displayed, each form is evaluated.  The content
994 of the face field after the first true form is used.  You can change
995 how those summary lines are displayed, by editing the face field.
996
997 You can use the following variables in the FORM field.
998
999 score:        The article's score.
1000 default:      The default article score.
1001 default-high: The default score for high scored articles.
1002 default-low:  The default score for low scored articles.
1003 below:        The score below which articles are automatically marked as read.
1004 mark:         The article's mark.
1005 uncached:     Non-nil if the article is uncached."
1006   :group 'gnus-summary-visual
1007   :type '(repeat (cons (sexp :tag "Form" nil)
1008                        face)))
1009 (put 'gnus-summary-highlight 'risky-local-variable t)
1010
1011 (defcustom gnus-alter-header-function nil
1012   "Function called to allow alteration of article header structures.
1013 The function is called with one parameter, the article header vector,
1014 which it may alter in any way."
1015   :type '(choice (const :tag "None" nil)
1016                  function)
1017   :group 'gnus-summary)
1018
1019 (defvar gnus-decode-encoded-word-function 'mail-decode-encoded-word-string
1020   "Function used to decode a string with encoded words.")
1021
1022 (defvar gnus-decode-encoded-address-function
1023   'mail-decode-encoded-address-string
1024   "Function used to decode addresses with encoded words.")
1025
1026 (defcustom gnus-extra-headers '(To Newsgroups)
1027   "*Extra headers to parse."
1028   :version "21.1"
1029   :group 'gnus-summary
1030   :type '(repeat symbol))
1031
1032 (defcustom gnus-ignored-from-addresses
1033   (and user-mail-address
1034        (not (string= user-mail-address ""))
1035        (regexp-quote user-mail-address))
1036   "*Regexp of From headers that may be suppressed in favor of To headers."
1037   :version "21.1"
1038   :group 'gnus-summary
1039   :type 'regexp)
1040
1041 (defcustom gnus-newsgroup-ignored-charsets '(unknown-8bit x-unknown)
1042   "List of charsets that should be ignored.
1043 When these charsets are used in the \"charset\" parameter, the
1044 default charset will be used instead."
1045   :version "21.1"
1046   :type '(repeat symbol)
1047   :group 'gnus-charset)
1048
1049 (defcustom gnus-newsgroup-maximum-articles nil
1050   "The maximum number of articles a newsgroup.
1051 If this is a number, old articles in a newsgroup exceeding this number
1052 are silently ignored.  If it is nil, no article is ignored.  Note that
1053 setting this variable to a number might prevent you from reading very
1054 old articles."
1055   :group 'gnus-group-select
1056   :version "22.2"
1057   :type '(choice (const :tag "No limit" nil)
1058                  integer))
1059
1060 (gnus-define-group-parameter
1061  ignored-charsets
1062  :type list
1063  :function-document
1064  "Return the ignored charsets of GROUP."
1065  :variable gnus-group-ignored-charsets-alist
1066  :variable-default
1067  '(("alt\\.chinese\\.text" iso-8859-1))
1068  :variable-document
1069  "Alist of regexps (to match group names) and charsets that should be ignored.
1070 When these charsets are used in the \"charset\" parameter, the
1071 default charset will be used instead."
1072  :variable-group gnus-charset
1073  :variable-type '(repeat (cons (regexp :tag "Group")
1074                                (repeat symbol)))
1075  :parameter-type '(choice :tag "Ignored charsets"
1076                           :value nil
1077                           (repeat (symbol)))
1078  :parameter-document       "\
1079 List of charsets that should be ignored.
1080
1081 When these charsets are used in the \"charset\" parameter, the
1082 default charset will be used instead.")
1083
1084 (defcustom gnus-group-highlight-words-alist nil
1085   "Alist of group regexps and highlight regexps.
1086 This variable uses the same syntax as `gnus-emphasis-alist'."
1087   :version "21.1"
1088   :type '(repeat (cons (regexp :tag "Group")
1089                        (repeat (list (regexp :tag "Highlight regexp")
1090                                      (number :tag "Group for entire word" 0)
1091                                      (number :tag "Group for displayed part" 0)
1092                                      (symbol :tag "Face"
1093                                              gnus-emphasis-highlight-words)))))
1094   :group 'gnus-summary-visual)
1095
1096 (defcustom gnus-summary-show-article-charset-alist
1097   nil
1098   "Alist of number and charset.
1099 The article will be shown with the charset corresponding to the
1100 numbered argument.
1101 For example: ((1 . cn-gb-2312) (2 . big5))."
1102   :version "21.1"
1103   :type '(repeat (cons (number :tag "Argument" 1)
1104                        (symbol :tag "Charset")))
1105   :group 'gnus-charset)
1106
1107 (defcustom gnus-preserve-marks t
1108   "Whether marks are preserved when moving, copying and respooling messages."
1109   :version "21.1"
1110   :type 'boolean
1111   :group 'gnus-summary-marks)
1112
1113 (defcustom gnus-alter-articles-to-read-function nil
1114   "Function to be called to alter the list of articles to be selected."
1115   :type '(choice (const nil) function)
1116   :group 'gnus-summary)
1117
1118 (defcustom gnus-orphan-score nil
1119   "*All orphans get this score added.  Set in the score file."
1120   :group 'gnus-score-default
1121   :type '(choice (const nil)
1122                  integer))
1123
1124 (defcustom gnus-summary-save-parts-default-mime "image/.*"
1125   "*A regexp to match MIME parts when saving multiple parts of a
1126 message with `gnus-summary-save-parts' (\\<gnus-summary-mode-map>\\[gnus-summary-save-parts]).
1127 This regexp will be used by default when prompting the user for which
1128 type of files to save."
1129   :group 'gnus-summary
1130   :type 'regexp)
1131
1132 (defcustom gnus-read-all-available-headers nil
1133   "Whether Gnus should parse all headers made available to it.
1134 This is mostly relevant for slow back ends where the user may
1135 wish to widen the summary buffer to include all headers
1136 that were fetched.  Say, for nnultimate groups."
1137   :version "22.1"
1138   :group 'gnus-summary
1139   :type '(choice boolean regexp))
1140
1141 (defcustom gnus-summary-muttprint-program "muttprint"
1142   "Command (and optional arguments) used to run Muttprint."
1143   :version "22.1"
1144   :group 'gnus-summary
1145   :type 'string)
1146
1147 (defcustom gnus-article-loose-mime nil
1148   "If non-nil, don't require MIME-Version header.
1149 Some brain-damaged MUA/MTA, e.g. Lotus Domino 5.0.6 clients, does not
1150 supply the MIME-Version header or deliberately strip it from the mail.
1151 Set it to non-nil, Gnus will treat some articles as MIME even if
1152 the MIME-Version header is missed."
1153   :version "22.1"
1154   :type 'boolean
1155   :group 'gnus-article-mime)
1156
1157 (defcustom gnus-article-emulate-mime t
1158   "If non-nil, use MIME emulation for uuencode and the like.
1159 This means that Gnus will search message bodies for text that look
1160 like uuencoded bits, yEncoded bits, and so on, and present that using
1161 the normal Gnus MIME machinery."
1162   :version "22.1"
1163   :type 'boolean
1164   :group 'gnus-article-mime)
1165
1166 ;;; Internal variables
1167
1168 (defvar gnus-summary-display-cache nil)
1169 (defvar gnus-article-mime-handles nil)
1170 (defvar gnus-article-decoded-p nil)
1171 (defvar gnus-article-charset nil)
1172 (defvar gnus-article-ignored-charsets nil)
1173 (defvar gnus-scores-exclude-files nil)
1174 (defvar gnus-page-broken nil)
1175
1176 (defvar gnus-original-article nil)
1177 (defvar gnus-article-internal-prepare-hook nil)
1178 (defvar gnus-newsgroup-process-stack nil)
1179
1180 (defvar gnus-thread-indent-array nil)
1181 (defvar gnus-thread-indent-array-level gnus-thread-indent-level)
1182 (defvar gnus-sort-gathered-threads-function 'gnus-thread-sort-by-number
1183   "Function called to sort the articles within a thread after it has been gathered together.")
1184
1185 (defvar gnus-summary-save-parts-type-history nil)
1186 (defvar gnus-summary-save-parts-last-directory mm-default-directory)
1187
1188 ;; Avoid highlighting in kill files.
1189 (defvar gnus-summary-inhibit-highlight nil)
1190 (defvar gnus-newsgroup-selected-overlay nil)
1191 (defvar gnus-inhibit-limiting nil)
1192 (defvar gnus-newsgroup-adaptive-score-file nil)
1193 (defvar gnus-current-score-file nil)
1194 (defvar gnus-current-move-group nil)
1195 (defvar gnus-current-copy-group nil)
1196 (defvar gnus-current-crosspost-group nil)
1197 (defvar gnus-newsgroup-display nil)
1198
1199 (defvar gnus-newsgroup-dependencies nil)
1200 (defvar gnus-newsgroup-adaptive nil)
1201 (defvar gnus-summary-display-article-function nil)
1202 (defvar gnus-summary-highlight-line-function nil
1203   "Function called after highlighting a summary line.")
1204
1205 (defvar gnus-summary-line-format-alist
1206   `((?N ,(macroexpand '(mail-header-number gnus-tmp-header)) ?d)
1207     (?S ,(macroexpand '(mail-header-subject gnus-tmp-header)) ?s)
1208     (?s gnus-tmp-subject-or-nil ?s)
1209     (?n gnus-tmp-name ?s)
1210     (?A (car (cdr (funcall gnus-extract-address-components gnus-tmp-from)))
1211         ?s)
1212     (?a (or (car (funcall gnus-extract-address-components gnus-tmp-from))
1213             gnus-tmp-from) ?s)
1214     (?F gnus-tmp-from ?s)
1215     (?x ,(macroexpand '(mail-header-xref gnus-tmp-header)) ?s)
1216     (?D ,(macroexpand '(mail-header-date gnus-tmp-header)) ?s)
1217     (?d (gnus-dd-mmm (mail-header-date gnus-tmp-header)) ?s)
1218     (?o (gnus-date-iso8601 (mail-header-date gnus-tmp-header)) ?s)
1219     (?M ,(macroexpand '(mail-header-id gnus-tmp-header)) ?s)
1220     (?r ,(macroexpand '(mail-header-references gnus-tmp-header)) ?s)
1221     (?c (or (mail-header-chars gnus-tmp-header) 0) ?d)
1222     (?k (gnus-summary-line-message-size gnus-tmp-header) ?s)
1223     (?L gnus-tmp-lines ?s)
1224     (?O gnus-tmp-downloaded ?c)
1225     (?I gnus-tmp-indentation ?s)
1226     (?T (if (= gnus-tmp-level 0) "" (make-string (frame-width) ? )) ?s)
1227     (?R gnus-tmp-replied ?c)
1228     (?\[ gnus-tmp-opening-bracket ?c)
1229     (?\] gnus-tmp-closing-bracket ?c)
1230     (?\> (make-string gnus-tmp-level ? ) ?s)
1231     (?\< (make-string (max 0 (- 20 gnus-tmp-level)) ? ) ?s)
1232     (?i gnus-tmp-score ?d)
1233     (?z gnus-tmp-score-char ?c)
1234     (?l (bbb-grouplens-score gnus-tmp-header) ?s)
1235     (?V (gnus-thread-total-score (and (boundp 'thread) (car thread))) ?d)
1236     (?U gnus-tmp-unread ?c)
1237     (?f (gnus-summary-from-or-to-or-newsgroups gnus-tmp-header gnus-tmp-from)
1238         ?s)
1239     (?t (gnus-summary-number-of-articles-in-thread
1240          (and (boundp 'thread) (car thread)) gnus-tmp-level)
1241         ?d)
1242     (?e (gnus-summary-number-of-articles-in-thread
1243          (and (boundp 'thread) (car thread)) gnus-tmp-level t)
1244         ?c)
1245     (?u gnus-tmp-user-defined ?s)
1246     (?P (gnus-pick-line-number) ?d)
1247     (?B gnus-tmp-thread-tree-header-string ?s)
1248     (user-date (gnus-user-date
1249                 ,(macroexpand '(mail-header-date gnus-tmp-header))) ?s))
1250   "An alist of format specifications that can appear in summary lines.
1251 These are paired with what variables they correspond with, along with
1252 the type of the variable (string, integer, character, etc).")
1253
1254 (defvar gnus-summary-dummy-line-format-alist
1255   `((?S gnus-tmp-subject ?s)
1256     (?N gnus-tmp-number ?d)
1257     (?u gnus-tmp-user-defined ?s)))
1258
1259 (defvar gnus-summary-mode-line-format-alist
1260   `((?G gnus-tmp-group-name ?s)
1261     (?g (gnus-short-group-name gnus-tmp-group-name) ?s)
1262     (?p (gnus-group-real-name gnus-tmp-group-name) ?s)
1263     (?A gnus-tmp-article-number ?d)
1264     (?Z gnus-tmp-unread-and-unselected ?s)
1265     (?V gnus-version ?s)
1266     (?U gnus-tmp-unread-and-unticked ?d)
1267     (?S gnus-tmp-subject ?s)
1268     (?e gnus-tmp-unselected ?d)
1269     (?u gnus-tmp-user-defined ?s)
1270     (?d (length gnus-newsgroup-dormant) ?d)
1271     (?t (length gnus-newsgroup-marked) ?d)
1272     (?h (length gnus-newsgroup-spam-marked) ?d)
1273     (?r (length gnus-newsgroup-reads) ?d)
1274     (?z (gnus-summary-article-score gnus-tmp-article-number) ?d)
1275     (?E gnus-newsgroup-expunged-tally ?d)
1276     (?s (gnus-current-score-file-nondirectory) ?s)))
1277
1278 (defvar gnus-last-search-regexp nil
1279   "Default regexp for article search command.")
1280
1281 (defvar gnus-last-shell-command nil
1282   "Default shell command on article.")
1283
1284 (defvar gnus-newsgroup-agentized nil
1285   "Locally bound in each summary buffer to indicate whether the server has been agentized.")
1286 (defvar gnus-newsgroup-begin nil)
1287 (defvar gnus-newsgroup-end nil)
1288 (defvar gnus-newsgroup-last-rmail nil)
1289 (defvar gnus-newsgroup-last-mail nil)
1290 (defvar gnus-newsgroup-last-folder nil)
1291 (defvar gnus-newsgroup-last-file nil)
1292 (defvar gnus-newsgroup-last-directory nil)
1293 (defvar gnus-newsgroup-auto-expire nil)
1294 (defvar gnus-newsgroup-active nil)
1295
1296 (defvar gnus-newsgroup-data nil)
1297 (defvar gnus-newsgroup-data-reverse nil)
1298 (defvar gnus-newsgroup-limit nil)
1299 (defvar gnus-newsgroup-limits nil)
1300 (defvar gnus-summary-use-undownloaded-faces nil)
1301
1302 (defvar gnus-newsgroup-unreads nil
1303   "Sorted list of unread articles in the current newsgroup.")
1304
1305 (defvar gnus-newsgroup-unselected nil
1306   "Sorted list of unselected unread articles in the current newsgroup.")
1307
1308 (defvar gnus-newsgroup-reads nil
1309   "Alist of read articles and article marks in the current newsgroup.")
1310
1311 (defvar gnus-newsgroup-expunged-tally nil)
1312
1313 (defvar gnus-newsgroup-marked nil
1314   "Sorted list of ticked articles in the current newsgroup (a subset of unread art).")
1315
1316 (defvar gnus-newsgroup-spam-marked nil
1317   "List of ranges of articles that have been marked as spam.")
1318
1319 (defvar gnus-newsgroup-killed nil
1320   "List of ranges of articles that have been through the scoring process.")
1321
1322 (defvar gnus-newsgroup-cached nil
1323   "Sorted list of articles that come from the article cache.")
1324
1325 (defvar gnus-newsgroup-saved nil
1326   "List of articles that have been saved.")
1327
1328 (defvar gnus-newsgroup-kill-headers nil)
1329
1330 (defvar gnus-newsgroup-replied nil
1331   "List of articles that have been replied to in the current newsgroup.")
1332
1333 (defvar gnus-newsgroup-forwarded nil
1334   "List of articles that have been forwarded in the current newsgroup.")
1335
1336 (defvar gnus-newsgroup-recent nil
1337   "List of articles that have are recent in the current newsgroup.")
1338
1339 (defvar gnus-newsgroup-expirable nil
1340   "Sorted list of articles in the current newsgroup that can be expired.")
1341
1342 (defvar gnus-newsgroup-processable nil
1343   "List of articles in the current newsgroup that can be processed.")
1344
1345 (defvar gnus-newsgroup-downloadable nil
1346   "Sorted list of articles in the current newsgroup that can be processed.")
1347
1348 (defvar gnus-newsgroup-unfetched nil
1349   "Sorted list of articles in the current newsgroup whose headers have
1350 not been fetched into the agent.
1351
1352 This list will always be a subset of gnus-newsgroup-undownloaded.")
1353
1354 (defvar gnus-newsgroup-undownloaded nil
1355   "List of articles in the current newsgroup that haven't been downloaded.")
1356
1357 (defvar gnus-newsgroup-unsendable nil
1358   "List of articles in the current newsgroup that won't be sent.")
1359
1360 (defvar gnus-newsgroup-bookmarks nil
1361   "List of articles in the current newsgroup that have bookmarks.")
1362
1363 (defvar gnus-newsgroup-dormant nil
1364   "Sorted list of dormant articles in the current newsgroup.")
1365
1366 (defvar gnus-newsgroup-unseen nil
1367   "List of unseen articles in the current newsgroup.")
1368
1369 (defvar gnus-newsgroup-seen nil
1370   "Range of seen articles in the current newsgroup.")
1371
1372 (defvar gnus-newsgroup-articles nil
1373   "List of articles in the current newsgroup.")
1374
1375 (defvar gnus-newsgroup-scored nil
1376   "List of scored articles in the current newsgroup.")
1377
1378 (defvar gnus-newsgroup-headers nil
1379   "List of article headers in the current newsgroup.")
1380
1381 (defvar gnus-newsgroup-threads nil)
1382
1383 (defvar gnus-newsgroup-prepared nil
1384   "Whether the current group has been prepared properly.")
1385
1386 (defvar gnus-newsgroup-ancient nil
1387   "List of `gnus-fetch-old-headers' articles in the current newsgroup.")
1388
1389 (defvar gnus-newsgroup-sparse nil)
1390
1391 (defvar gnus-current-article nil)
1392 (defvar gnus-article-current nil)
1393 (defvar gnus-current-headers nil)
1394 (defvar gnus-have-all-headers nil)
1395 (defvar gnus-last-article nil)
1396 (defvar gnus-newsgroup-history nil)
1397 (defvar gnus-newsgroup-charset nil)
1398 (defvar gnus-newsgroup-ephemeral-charset nil)
1399 (defvar gnus-newsgroup-ephemeral-ignored-charsets nil)
1400
1401 (defvar gnus-article-before-search nil)
1402
1403 (defvar gnus-summary-local-variables
1404   '(gnus-newsgroup-name
1405     gnus-newsgroup-begin gnus-newsgroup-end
1406     gnus-newsgroup-last-rmail gnus-newsgroup-last-mail
1407     gnus-newsgroup-last-folder gnus-newsgroup-last-file
1408     gnus-newsgroup-last-directory
1409     gnus-newsgroup-auto-expire gnus-newsgroup-unreads
1410     gnus-newsgroup-unselected gnus-newsgroup-marked
1411     gnus-newsgroup-spam-marked
1412     gnus-newsgroup-reads gnus-newsgroup-saved
1413     gnus-newsgroup-replied gnus-newsgroup-forwarded
1414     gnus-newsgroup-recent
1415     gnus-newsgroup-expirable
1416     gnus-newsgroup-processable gnus-newsgroup-killed
1417     gnus-newsgroup-downloadable gnus-newsgroup-undownloaded
1418     gnus-newsgroup-unfetched
1419     gnus-newsgroup-unsendable gnus-newsgroup-unseen
1420     gnus-newsgroup-seen gnus-newsgroup-articles
1421     gnus-newsgroup-bookmarks gnus-newsgroup-dormant
1422     gnus-newsgroup-headers gnus-newsgroup-threads
1423     gnus-newsgroup-prepared gnus-summary-highlight-line-function
1424     gnus-current-article gnus-current-headers gnus-have-all-headers
1425     gnus-last-article gnus-article-internal-prepare-hook
1426     gnus-newsgroup-dependencies gnus-newsgroup-selected-overlay
1427     gnus-newsgroup-scored gnus-newsgroup-kill-headers
1428     gnus-thread-expunge-below
1429     gnus-score-alist gnus-current-score-file
1430     (gnus-summary-expunge-below . global)
1431     (gnus-summary-mark-below . global)
1432     (gnus-orphan-score . global)
1433     gnus-newsgroup-active gnus-scores-exclude-files
1434     gnus-newsgroup-history gnus-newsgroup-ancient
1435     gnus-newsgroup-sparse gnus-newsgroup-process-stack
1436     (gnus-newsgroup-adaptive . gnus-use-adaptive-scoring)
1437     gnus-newsgroup-adaptive-score-file (gnus-reffed-article-number . -1)
1438     (gnus-newsgroup-expunged-tally . 0)
1439     gnus-cache-removable-articles gnus-newsgroup-cached
1440     gnus-newsgroup-data gnus-newsgroup-data-reverse
1441     gnus-newsgroup-limit gnus-newsgroup-limits
1442     gnus-newsgroup-charset gnus-newsgroup-display
1443     gnus-summary-use-undownloaded-faces)
1444   "Variables that are buffer-local to the summary buffers.")
1445
1446 (defvar gnus-newsgroup-variables nil
1447   "A list of variables that have separate values in different newsgroups.
1448 A list of newsgroup (summary buffer) local variables, or cons of
1449 variables and their default expressions to be evalled (when the default
1450 values are not nil), that should be made global while the summary buffer
1451 is active.
1452
1453 Note: The default expressions will be evaluated (using function `eval')
1454 before assignment to the local variable rather than just assigned to it.
1455 If the default expression is the symbol `global', that symbol will not
1456 be evaluated but the global value of the local variable will be used
1457 instead.
1458
1459 These variables can be used to set variables in the group parameters
1460 while still allowing them to affect operations done in other buffers.
1461 For example:
1462
1463 \(setq gnus-newsgroup-variables
1464      '(message-use-followup-to
1465        (gnus-visible-headers .
1466          \"^From:\\\\|^Newsgroups:\\\\|^Subject:\\\\|^Date:\\\\|^To:\")))
1467 ")
1468
1469 ;; Byte-compiler warning.
1470 (eval-when-compile
1471   ;; Bind features so that require will believe that gnus-sum has
1472   ;; already been loaded (avoids infinite recursion)
1473   (let ((features (cons 'gnus-sum features)))
1474     ;; Several of the declarations in gnus-sum are needed to load the
1475     ;; following files. Right now, these definitions have been
1476     ;; compiled but not defined (evaluated).  We could either do a
1477     ;; eval-and-compile about all of the declarations or evaluate the
1478     ;; source file.
1479     (if (boundp 'gnus-newsgroup-variables)
1480         nil
1481       (load "gnus-sum.el" t t t))
1482     (require 'gnus)
1483     (require 'gnus-agent)
1484     (require 'gnus-art)))
1485
1486 ;; MIME stuff.
1487
1488 (defvar gnus-decode-encoded-word-methods
1489   '(mail-decode-encoded-word-string)
1490   "List of methods used to decode encoded words.
1491
1492 This variable is a list of FUNCTION or (REGEXP . FUNCTION).  If item
1493 is FUNCTION, FUNCTION will be apply to all newsgroups.  If item is a
1494 \(REGEXP . FUNCTION), FUNCTION will be only apply to thes newsgroups
1495 whose names match REGEXP.
1496
1497 For example:
1498 \((\"chinese\" . gnus-decode-encoded-word-string-by-guess)
1499  mail-decode-encoded-word-string
1500  (\"chinese\" . rfc1843-decode-string))")
1501
1502 (defvar gnus-decode-encoded-word-methods-cache nil)
1503
1504 (defun gnus-multi-decode-encoded-word-string (string)
1505   "Apply the functions from `gnus-encoded-word-methods' that match."
1506   (unless (and gnus-decode-encoded-word-methods-cache
1507                (eq gnus-newsgroup-name
1508                    (car gnus-decode-encoded-word-methods-cache)))
1509     (setq gnus-decode-encoded-word-methods-cache (list gnus-newsgroup-name))
1510     (mapcar (lambda (x)
1511               (if (symbolp x)
1512                   (nconc gnus-decode-encoded-word-methods-cache (list x))
1513                 (if (and gnus-newsgroup-name
1514                          (string-match (car x) gnus-newsgroup-name))
1515                     (nconc gnus-decode-encoded-word-methods-cache
1516                            (list (cdr x))))))
1517             gnus-decode-encoded-word-methods))
1518   (let ((xlist gnus-decode-encoded-word-methods-cache))
1519     (pop xlist)
1520     (while xlist
1521       (setq string (funcall (pop xlist) string))))
1522   string)
1523
1524 ;; Subject simplification.
1525
1526 (defun gnus-simplify-whitespace (str)
1527   "Remove excessive whitespace from STR."
1528   ;; Multiple spaces.
1529   (while (string-match "[ \t][ \t]+" str)
1530     (setq str (concat (substring str 0 (match-beginning 0))
1531                         " "
1532                         (substring str (match-end 0)))))
1533   ;; Leading spaces.
1534   (when (string-match "^[ \t]+" str)
1535     (setq str (substring str (match-end 0))))
1536   ;; Trailing spaces.
1537   (when (string-match "[ \t]+$" str)
1538     (setq str (substring str 0 (match-beginning 0))))
1539   str)
1540
1541 (defun gnus-simplify-all-whitespace (str)
1542   "Remove all whitespace from STR."
1543   (while (string-match "[ \t\n]+" str)
1544     (setq str (replace-match "" nil nil str)))
1545   str)
1546
1547 (defsubst gnus-simplify-subject-re (subject)
1548   "Remove \"Re:\" from subject lines."
1549   (if (string-match message-subject-re-regexp subject)
1550       (substring subject (match-end 0))
1551     subject))
1552
1553 (defun gnus-simplify-subject (subject &optional re-only)
1554   "Remove `Re:' and words in parentheses.
1555 If RE-ONLY is non-nil, strip leading `Re:'s only."
1556   (let ((case-fold-search t))           ;Ignore case.
1557     ;; Remove `Re:', `Re^N:', `Re(n)', and `Re[n]:'.
1558     (when (string-match "\\`\\(re\\([[(^][0-9]+[])]?\\)?:[ \t]*\\)+" subject)
1559       (setq subject (substring subject (match-end 0))))
1560     ;; Remove uninteresting prefixes.
1561     (when (and (not re-only)
1562                gnus-simplify-ignored-prefixes
1563                (string-match gnus-simplify-ignored-prefixes subject))
1564       (setq subject (substring subject (match-end 0))))
1565     ;; Remove words in parentheses from end.
1566     (unless re-only
1567       (while (string-match "[ \t\n]*([^()]*)[ \t\n]*\\'" subject)
1568         (setq subject (substring subject 0 (match-beginning 0)))))
1569     ;; Return subject string.
1570     subject))
1571
1572 ;; Remove any leading "re:"s, any trailing paren phrases, and simplify
1573 ;; all whitespace.
1574 (defsubst gnus-simplify-buffer-fuzzy-step (regexp &optional newtext)
1575   (goto-char (point-min))
1576   (while (re-search-forward regexp nil t)
1577     (replace-match (or newtext ""))))
1578
1579 (defun gnus-simplify-buffer-fuzzy ()
1580   "Simplify string in the buffer fuzzily.
1581 The string in the accessible portion of the current buffer is simplified.
1582 It is assumed to be a single-line subject.
1583 Whitespace is generally cleaned up, and miscellaneous leading/trailing
1584 matter is removed.  Additional things can be deleted by setting
1585 `gnus-simplify-subject-fuzzy-regexp'."
1586   (let ((case-fold-search t)
1587         (modified-tick))
1588     (gnus-simplify-buffer-fuzzy-step "\t" " ")
1589
1590     (while (not (eq modified-tick (buffer-modified-tick)))
1591       (setq modified-tick (buffer-modified-tick))
1592       (cond
1593        ((listp gnus-simplify-subject-fuzzy-regexp)
1594         (mapcar 'gnus-simplify-buffer-fuzzy-step
1595                 gnus-simplify-subject-fuzzy-regexp))
1596        (gnus-simplify-subject-fuzzy-regexp
1597         (gnus-simplify-buffer-fuzzy-step gnus-simplify-subject-fuzzy-regexp)))
1598       (gnus-simplify-buffer-fuzzy-step "^ *\\[[-+?*!][-+?*!]\\] *")
1599       (gnus-simplify-buffer-fuzzy-step
1600        "^ *\\(re\\|fw\\|fwd\\)[[{(^0-9]*[])}]?[:;] *")
1601       (gnus-simplify-buffer-fuzzy-step "^[[].*:\\( .*\\)[]]$" "\\1"))
1602
1603     (gnus-simplify-buffer-fuzzy-step " *[[{(][^()\n]*[]})] *$")
1604     (gnus-simplify-buffer-fuzzy-step "  +" " ")
1605     (gnus-simplify-buffer-fuzzy-step " $")
1606     (gnus-simplify-buffer-fuzzy-step "^ +")))
1607
1608 (defun gnus-simplify-subject-fuzzy (subject)
1609   "Simplify a subject string fuzzily.
1610 See `gnus-simplify-buffer-fuzzy' for details."
1611   (save-excursion
1612     (gnus-set-work-buffer)
1613     (let ((case-fold-search t))
1614       ;; Remove uninteresting prefixes.
1615       (when (and gnus-simplify-ignored-prefixes
1616                  (string-match gnus-simplify-ignored-prefixes subject))
1617         (setq subject (substring subject (match-end 0))))
1618       (insert subject)
1619       (inline (gnus-simplify-buffer-fuzzy))
1620       (buffer-string))))
1621
1622 (defsubst gnus-simplify-subject-fully (subject)
1623   "Simplify a subject string according to `gnus-summary-gather-subject-limit'."
1624   (cond
1625    (gnus-simplify-subject-functions
1626     (gnus-map-function gnus-simplify-subject-functions subject))
1627    ((null gnus-summary-gather-subject-limit)
1628     (gnus-simplify-subject-re subject))
1629    ((eq gnus-summary-gather-subject-limit 'fuzzy)
1630     (gnus-simplify-subject-fuzzy subject))
1631    ((numberp gnus-summary-gather-subject-limit)
1632     (gnus-limit-string (gnus-simplify-subject-re subject)
1633                        gnus-summary-gather-subject-limit))
1634    (t
1635     subject)))
1636
1637 (defsubst gnus-subject-equal (s1 s2 &optional simple-first)
1638   "Check whether two subjects are equal.
1639 If optional argument SIMPLE-FIRST is t, first argument is already
1640 simplified."
1641   (cond
1642    ((null simple-first)
1643     (equal (gnus-simplify-subject-fully s1)
1644            (gnus-simplify-subject-fully s2)))
1645    (t
1646     (equal s1
1647            (gnus-simplify-subject-fully s2)))))
1648
1649 (defun gnus-summary-bubble-group ()
1650   "Increase the score of the current group.
1651 This is a handy function to add to `gnus-summary-exit-hook' to
1652 increase the score of each group you read."
1653   (gnus-group-add-score gnus-newsgroup-name))
1654
1655 \f
1656 ;;;
1657 ;;; Gnus summary mode
1658 ;;;
1659
1660 (put 'gnus-summary-mode 'mode-class 'special)
1661
1662 (defvar gnus-article-commands-menu)
1663
1664 ;; Non-orthogonal keys
1665
1666 (gnus-define-keys gnus-summary-mode-map
1667   " " gnus-summary-next-page
1668   "\177" gnus-summary-prev-page
1669   [delete] gnus-summary-prev-page
1670   [backspace] gnus-summary-prev-page
1671   "\r" gnus-summary-scroll-up
1672   "\M-\r" gnus-summary-scroll-down
1673   "n" gnus-summary-next-unread-article
1674   "p" gnus-summary-prev-unread-article
1675   "N" gnus-summary-next-article
1676   "P" gnus-summary-prev-article
1677   "\M-\C-n" gnus-summary-next-same-subject
1678   "\M-\C-p" gnus-summary-prev-same-subject
1679   "\M-n" gnus-summary-next-unread-subject
1680   "\M-p" gnus-summary-prev-unread-subject
1681   "." gnus-summary-first-unread-article
1682   "," gnus-summary-best-unread-article
1683   "\M-s" gnus-summary-search-article-forward
1684   "\M-r" gnus-summary-search-article-backward
1685   "<" gnus-summary-beginning-of-article
1686   ">" gnus-summary-end-of-article
1687   "j" gnus-summary-goto-article
1688   "^" gnus-summary-refer-parent-article
1689   "\M-^" gnus-summary-refer-article
1690   "u" gnus-summary-tick-article-forward
1691   "!" gnus-summary-tick-article-forward
1692   "U" gnus-summary-tick-article-backward
1693   "d" gnus-summary-mark-as-read-forward
1694   "D" gnus-summary-mark-as-read-backward
1695   "E" gnus-summary-mark-as-expirable
1696   "\M-u" gnus-summary-clear-mark-forward
1697   "\M-U" gnus-summary-clear-mark-backward
1698   "k" gnus-summary-kill-same-subject-and-select
1699   "\C-k" gnus-summary-kill-same-subject
1700   "\M-\C-k" gnus-summary-kill-thread
1701   "\M-\C-l" gnus-summary-lower-thread
1702   "e" gnus-summary-edit-article
1703   "#" gnus-summary-mark-as-processable
1704   "\M-#" gnus-summary-unmark-as-processable
1705   "\M-\C-t" gnus-summary-toggle-threads
1706   "\M-\C-s" gnus-summary-show-thread
1707   "\M-\C-h" gnus-summary-hide-thread
1708   "\M-\C-f" gnus-summary-next-thread
1709   "\M-\C-b" gnus-summary-prev-thread
1710   [(meta down)] gnus-summary-next-thread
1711   [(meta up)] gnus-summary-prev-thread
1712   "\M-\C-u" gnus-summary-up-thread
1713   "\M-\C-d" gnus-summary-down-thread
1714   "&" gnus-summary-execute-command
1715   "c" gnus-summary-catchup-and-exit
1716   "\C-w" gnus-summary-mark-region-as-read
1717   "\C-t" gnus-summary-toggle-truncation
1718   "?" gnus-summary-mark-as-dormant
1719   "\C-c\M-\C-s" gnus-summary-limit-include-expunged
1720   "\C-c\C-s\C-n" gnus-summary-sort-by-number
1721   "\C-c\C-s\C-l" gnus-summary-sort-by-lines
1722   "\C-c\C-s\C-c" gnus-summary-sort-by-chars
1723   "\C-c\C-s\C-a" gnus-summary-sort-by-author
1724   "\C-c\C-s\C-s" gnus-summary-sort-by-subject
1725   "\C-c\C-s\C-d" gnus-summary-sort-by-date
1726   "\C-c\C-s\C-i" gnus-summary-sort-by-score
1727   "\C-c\C-s\C-o" gnus-summary-sort-by-original
1728   "\C-c\C-s\C-r" gnus-summary-sort-by-random
1729   "=" gnus-summary-expand-window
1730   "\C-x\C-s" gnus-summary-reselect-current-group
1731   "\M-g" gnus-summary-rescan-group
1732   "w" gnus-summary-stop-page-breaking
1733   "\C-c\C-r" gnus-summary-caesar-message
1734   "f" gnus-summary-followup
1735   "F" gnus-summary-followup-with-original
1736   "C" gnus-summary-cancel-article
1737   "r" gnus-summary-reply
1738   "R" gnus-summary-reply-with-original
1739   "\C-c\C-f" gnus-summary-mail-forward
1740   "o" gnus-summary-save-article
1741   "\C-o" gnus-summary-save-article-mail
1742   "|" gnus-summary-pipe-output
1743   "\M-k" gnus-summary-edit-local-kill
1744   "\M-K" gnus-summary-edit-global-kill
1745   ;; "V" gnus-version
1746   "\C-c\C-d" gnus-summary-describe-group
1747   "q" gnus-summary-exit
1748   "Q" gnus-summary-exit-no-update
1749   "\C-c\C-i" gnus-info-find-node
1750   gnus-mouse-2 gnus-mouse-pick-article
1751   [follow-link] mouse-face
1752   "m" gnus-summary-mail-other-window
1753   "a" gnus-summary-post-news
1754   "i" gnus-summary-news-other-window
1755   "x" gnus-summary-limit-to-unread
1756   "s" gnus-summary-isearch-article
1757   "t" gnus-summary-toggle-header
1758   "g" gnus-summary-show-article
1759   "l" gnus-summary-goto-last-article
1760   "\C-c\C-v\C-v" gnus-uu-decode-uu-view
1761   "\C-d" gnus-summary-enter-digest-group
1762   "\M-\C-d" gnus-summary-read-document
1763   "\M-\C-e" gnus-summary-edit-parameters
1764   "\M-\C-a" gnus-summary-customize-parameters
1765   "\C-c\C-b" gnus-bug
1766   "*" gnus-cache-enter-article
1767   "\M-*" gnus-cache-remove-article
1768   "\M-&" gnus-summary-universal-argument
1769   "\C-l" gnus-recenter
1770   "I" gnus-summary-increase-score
1771   "L" gnus-summary-lower-score
1772   "\M-i" gnus-symbolic-argument
1773   "h" gnus-summary-select-article-buffer
1774
1775   "b" gnus-article-view-part
1776   "\M-t" gnus-summary-toggle-display-buttonized
1777
1778   "V" gnus-summary-score-map
1779   "X" gnus-uu-extract-map
1780   "S" gnus-summary-send-map)
1781
1782 ;; Sort of orthogonal keymap
1783 (gnus-define-keys (gnus-summary-mark-map "M" gnus-summary-mode-map)
1784   "t" gnus-summary-tick-article-forward
1785   "!" gnus-summary-tick-article-forward
1786   "d" gnus-summary-mark-as-read-forward
1787   "r" gnus-summary-mark-as-read-forward
1788   "c" gnus-summary-clear-mark-forward
1789   " " gnus-summary-clear-mark-forward
1790   "e" gnus-summary-mark-as-expirable
1791   "x" gnus-summary-mark-as-expirable
1792   "?" gnus-summary-mark-as-dormant
1793   "b" gnus-summary-set-bookmark
1794   "B" gnus-summary-remove-bookmark
1795   "#" gnus-summary-mark-as-processable
1796   "\M-#" gnus-summary-unmark-as-processable
1797   "S" gnus-summary-limit-include-expunged
1798   "C" gnus-summary-catchup
1799   "H" gnus-summary-catchup-to-here
1800   "h" gnus-summary-catchup-from-here
1801   "\C-c" gnus-summary-catchup-all
1802   "k" gnus-summary-kill-same-subject-and-select
1803   "K" gnus-summary-kill-same-subject
1804   "P" gnus-uu-mark-map)
1805
1806 (gnus-define-keys (gnus-summary-mscore-map "V" gnus-summary-mark-map)
1807   "c" gnus-summary-clear-above
1808   "u" gnus-summary-tick-above
1809   "m" gnus-summary-mark-above
1810   "k" gnus-summary-kill-below)
1811
1812 (gnus-define-keys (gnus-summary-limit-map "/" gnus-summary-mode-map)
1813   "/" gnus-summary-limit-to-subject
1814   "n" gnus-summary-limit-to-articles
1815   "w" gnus-summary-pop-limit
1816   "s" gnus-summary-limit-to-subject
1817   "a" gnus-summary-limit-to-author
1818   "u" gnus-summary-limit-to-unread
1819   "m" gnus-summary-limit-to-marks
1820   "M" gnus-summary-limit-exclude-marks
1821   "v" gnus-summary-limit-to-score
1822   "*" gnus-summary-limit-include-cached
1823   "D" gnus-summary-limit-include-dormant
1824   "T" gnus-summary-limit-include-thread
1825   "d" gnus-summary-limit-exclude-dormant
1826   "t" gnus-summary-limit-to-age
1827   "." gnus-summary-limit-to-unseen
1828   "x" gnus-summary-limit-to-extra
1829   "p" gnus-summary-limit-to-display-predicate
1830   "E" gnus-summary-limit-include-expunged
1831   "c" gnus-summary-limit-exclude-childless-dormant
1832   "C" gnus-summary-limit-mark-excluded-as-read
1833   "o" gnus-summary-insert-old-articles
1834   "N" gnus-summary-insert-new-articles)
1835
1836 (gnus-define-keys (gnus-summary-goto-map "G" gnus-summary-mode-map)
1837   "n" gnus-summary-next-unread-article
1838   "p" gnus-summary-prev-unread-article
1839   "N" gnus-summary-next-article
1840   "P" gnus-summary-prev-article
1841   "\C-n" gnus-summary-next-same-subject
1842   "\C-p" gnus-summary-prev-same-subject
1843   "\M-n" gnus-summary-next-unread-subject
1844   "\M-p" gnus-summary-prev-unread-subject
1845   "f" gnus-summary-first-unread-article
1846   "b" gnus-summary-best-unread-article
1847   "j" gnus-summary-goto-article
1848   "g" gnus-summary-goto-subject
1849   "l" gnus-summary-goto-last-article
1850   "o" gnus-summary-pop-article)
1851
1852 (gnus-define-keys (gnus-summary-thread-map "T" gnus-summary-mode-map)
1853   "k" gnus-summary-kill-thread
1854   "l" gnus-summary-lower-thread
1855   "i" gnus-summary-raise-thread
1856   "T" gnus-summary-toggle-threads
1857   "t" gnus-summary-rethread-current
1858   "^" gnus-summary-reparent-thread
1859   "s" gnus-summary-show-thread
1860   "S" gnus-summary-show-all-threads
1861   "h" gnus-summary-hide-thread
1862   "H" gnus-summary-hide-all-threads
1863   "n" gnus-summary-next-thread
1864   "p" gnus-summary-prev-thread
1865   "u" gnus-summary-up-thread
1866   "o" gnus-summary-top-thread
1867   "d" gnus-summary-down-thread
1868   "#" gnus-uu-mark-thread
1869   "\M-#" gnus-uu-unmark-thread)
1870
1871 (gnus-define-keys (gnus-summary-buffer-map "Y" gnus-summary-mode-map)
1872   "g" gnus-summary-prepare
1873   "c" gnus-summary-insert-cached-articles
1874   "d" gnus-summary-insert-dormant-articles)
1875
1876 (gnus-define-keys (gnus-summary-exit-map "Z" gnus-summary-mode-map)
1877   "c" gnus-summary-catchup-and-exit
1878   "C" gnus-summary-catchup-all-and-exit
1879   "E" gnus-summary-exit-no-update
1880   "Q" gnus-summary-exit
1881   "Z" gnus-summary-exit
1882   "n" gnus-summary-catchup-and-goto-next-group
1883   "R" gnus-summary-reselect-current-group
1884   "G" gnus-summary-rescan-group
1885   "N" gnus-summary-next-group
1886   "s" gnus-summary-save-newsrc
1887   "P" gnus-summary-prev-group)
1888
1889 (gnus-define-keys (gnus-summary-article-map "A" gnus-summary-mode-map)
1890   " " gnus-summary-next-page
1891   "n" gnus-summary-next-page
1892   "\177" gnus-summary-prev-page
1893   [delete] gnus-summary-prev-page
1894   "p" gnus-summary-prev-page
1895   "\r" gnus-summary-scroll-up
1896   "\M-\r" gnus-summary-scroll-down
1897   "<" gnus-summary-beginning-of-article
1898   ">" gnus-summary-end-of-article
1899   "b" gnus-summary-beginning-of-article
1900   "e" gnus-summary-end-of-article
1901   "^" gnus-summary-refer-parent-article
1902   "r" gnus-summary-refer-parent-article
1903   "D" gnus-summary-enter-digest-group
1904   "R" gnus-summary-refer-references
1905   "T" gnus-summary-refer-thread
1906   "g" gnus-summary-show-article
1907   "s" gnus-summary-isearch-article
1908   "P" gnus-summary-print-article
1909   "M" gnus-mailing-list-insinuate
1910   "t" gnus-article-babel)
1911
1912 (gnus-define-keys (gnus-summary-wash-map "W" gnus-summary-mode-map)
1913   "b" gnus-article-add-buttons
1914   "B" gnus-article-add-buttons-to-head
1915   "o" gnus-article-treat-overstrike
1916   "e" gnus-article-emphasize
1917   "w" gnus-article-fill-cited-article
1918   "Q" gnus-article-fill-long-lines
1919   "C" gnus-article-capitalize-sentences
1920   "c" gnus-article-remove-cr
1921   "q" gnus-article-de-quoted-unreadable
1922   "6" gnus-article-de-base64-unreadable
1923   "Z" gnus-article-decode-HZ
1924   "h" gnus-article-wash-html
1925   "u" gnus-article-unsplit-urls
1926   "s" gnus-summary-force-verify-and-decrypt
1927   "f" gnus-article-display-x-face
1928   "l" gnus-summary-stop-page-breaking
1929   "r" gnus-summary-caesar-message
1930   "m" gnus-summary-morse-message
1931   "t" gnus-summary-toggle-header
1932   "g" gnus-treat-smiley
1933   "v" gnus-summary-verbose-headers
1934   "a" gnus-article-strip-headers-in-body ;; mnemonic: wash archive
1935   "p" gnus-article-verify-x-pgp-sig
1936   "d" gnus-article-treat-dumbquotes)
1937
1938 (gnus-define-keys (gnus-summary-wash-deuglify-map "Y" gnus-summary-wash-map)
1939   ;; mnemonic: deuglif*Y*
1940   "u" gnus-article-outlook-unwrap-lines
1941   "a" gnus-article-outlook-repair-attribution
1942   "c" gnus-article-outlook-rearrange-citation
1943   "f" gnus-article-outlook-deuglify-article) ;; mnemonic: full deuglify
1944
1945 (gnus-define-keys (gnus-summary-wash-hide-map "W" gnus-summary-wash-map)
1946   "a" gnus-article-hide
1947   "h" gnus-article-hide-headers
1948   "b" gnus-article-hide-boring-headers
1949   "s" gnus-article-hide-signature
1950   "c" gnus-article-hide-citation
1951   "C" gnus-article-hide-citation-in-followups
1952   "l" gnus-article-hide-list-identifiers
1953   "B" gnus-article-strip-banner
1954   "P" gnus-article-hide-pem
1955   "\C-c" gnus-article-hide-citation-maybe)
1956
1957 (gnus-define-keys (gnus-summary-wash-highlight-map "H" gnus-summary-wash-map)
1958   "a" gnus-article-highlight
1959   "h" gnus-article-highlight-headers
1960   "c" gnus-article-highlight-citation
1961   "s" gnus-article-highlight-signature)
1962
1963 (gnus-define-keys (gnus-summary-wash-header-map "G" gnus-summary-wash-map)
1964   "f" gnus-article-treat-fold-headers
1965   "u" gnus-article-treat-unfold-headers
1966   "n" gnus-article-treat-fold-newsgroups)
1967
1968 (gnus-define-keys (gnus-summary-wash-display-map "D" gnus-summary-wash-map)
1969   "x" gnus-article-display-x-face
1970   "d" gnus-article-display-face
1971   "s" gnus-treat-smiley
1972   "D" gnus-article-remove-images
1973   "f" gnus-treat-from-picon
1974   "m" gnus-treat-mail-picon
1975   "n" gnus-treat-newsgroups-picon)
1976
1977 (gnus-define-keys (gnus-summary-wash-mime-map "M" gnus-summary-wash-map)
1978   "w" gnus-article-decode-mime-words
1979   "c" gnus-article-decode-charset
1980   "v" gnus-mime-view-all-parts
1981   "b" gnus-article-view-part)
1982
1983 (gnus-define-keys (gnus-summary-wash-time-map "T" gnus-summary-wash-map)
1984   "z" gnus-article-date-ut
1985   "u" gnus-article-date-ut
1986   "l" gnus-article-date-local
1987   "p" gnus-article-date-english
1988   "e" gnus-article-date-lapsed
1989   "o" gnus-article-date-original
1990   "i" gnus-article-date-iso8601
1991   "s" gnus-article-date-user)
1992
1993 (gnus-define-keys (gnus-summary-wash-empty-map "E" gnus-summary-wash-map)
1994   "t" gnus-article-remove-trailing-blank-lines
1995   "l" gnus-article-strip-leading-blank-lines
1996   "m" gnus-article-strip-multiple-blank-lines
1997   "a" gnus-article-strip-blank-lines
1998   "A" gnus-article-strip-all-blank-lines
1999   "s" gnus-article-strip-leading-space
2000   "e" gnus-article-strip-trailing-space
2001   "w" gnus-article-remove-leading-whitespace)
2002
2003 (gnus-define-keys (gnus-summary-help-map "H" gnus-summary-mode-map)
2004   "v" gnus-version
2005   "f" gnus-summary-fetch-faq
2006   "d" gnus-summary-describe-group
2007   "h" gnus-summary-describe-briefly
2008   "i" gnus-info-find-node
2009   "c" gnus-group-fetch-charter
2010   "C" gnus-group-fetch-control)
2011
2012 (gnus-define-keys (gnus-summary-backend-map "B" gnus-summary-mode-map)
2013   "e" gnus-summary-expire-articles
2014   "\M-\C-e" gnus-summary-expire-articles-now
2015   "\177" gnus-summary-delete-article
2016   [delete] gnus-summary-delete-article
2017   [backspace] gnus-summary-delete-article
2018   "m" gnus-summary-move-article
2019   "r" gnus-summary-respool-article
2020   "w" gnus-summary-edit-article
2021   "c" gnus-summary-copy-article
2022   "B" gnus-summary-crosspost-article
2023   "q" gnus-summary-respool-query
2024   "t" gnus-summary-respool-trace
2025   "i" gnus-summary-import-article
2026   "I" gnus-summary-create-article
2027   "p" gnus-summary-article-posted-p)
2028
2029 (gnus-define-keys (gnus-summary-save-map "O" gnus-summary-mode-map)
2030   "o" gnus-summary-save-article
2031   "m" gnus-summary-save-article-mail
2032   "F" gnus-summary-write-article-file
2033   "r" gnus-summary-save-article-rmail
2034   "f" gnus-summary-save-article-file
2035   "b" gnus-summary-save-article-body-file
2036   "B" gnus-summary-write-article-body-file
2037   "h" gnus-summary-save-article-folder
2038   "v" gnus-summary-save-article-vm
2039   "p" gnus-summary-pipe-output
2040   "P" gnus-summary-muttprint
2041   "s" gnus-soup-add-article)
2042
2043 (gnus-define-keys (gnus-summary-mime-map "K" gnus-summary-mode-map)
2044   "b" gnus-summary-display-buttonized
2045   "m" gnus-summary-repair-multipart
2046   "v" gnus-article-view-part
2047   "o" gnus-article-save-part
2048   "c" gnus-article-copy-part
2049   "C" gnus-article-view-part-as-charset
2050   "e" gnus-article-view-part-externally
2051   "E" gnus-article-encrypt-body
2052   "i" gnus-article-inline-part
2053   "|" gnus-article-pipe-part)
2054
2055 (gnus-define-keys (gnus-uu-mark-map "P" gnus-summary-mark-map)
2056   "p" gnus-summary-mark-as-processable
2057   "u" gnus-summary-unmark-as-processable
2058   "U" gnus-summary-unmark-all-processable
2059   "v" gnus-uu-mark-over
2060   "s" gnus-uu-mark-series
2061   "r" gnus-uu-mark-region
2062   "g" gnus-uu-unmark-region
2063   "R" gnus-uu-mark-by-regexp
2064   "G" gnus-uu-unmark-by-regexp
2065   "t" gnus-uu-mark-thread
2066   "T" gnus-uu-unmark-thread
2067   "a" gnus-uu-mark-all
2068   "b" gnus-uu-mark-buffer
2069   "S" gnus-uu-mark-sparse
2070   "k" gnus-summary-kill-process-mark
2071   "y" gnus-summary-yank-process-mark
2072   "w" gnus-summary-save-process-mark
2073   "i" gnus-uu-invert-processable)
2074
2075 (gnus-define-keys (gnus-uu-extract-map "X" gnus-summary-mode-map)
2076   ;;"x" gnus-uu-extract-any
2077   "m" gnus-summary-save-parts
2078   "u" gnus-uu-decode-uu
2079   "U" gnus-uu-decode-uu-and-save
2080   "s" gnus-uu-decode-unshar
2081   "S" gnus-uu-decode-unshar-and-save
2082   "o" gnus-uu-decode-save
2083   "O" gnus-uu-decode-save
2084   "b" gnus-uu-decode-binhex
2085   "B" gnus-uu-decode-binhex
2086   "p" gnus-uu-decode-postscript
2087   "P" gnus-uu-decode-postscript-and-save)
2088
2089 (gnus-define-keys
2090     (gnus-uu-extract-view-map "v" gnus-uu-extract-map)
2091   "u" gnus-uu-decode-uu-view
2092   "U" gnus-uu-decode-uu-and-save-view
2093   "s" gnus-uu-decode-unshar-view
2094   "S" gnus-uu-decode-unshar-and-save-view
2095   "o" gnus-uu-decode-save-view
2096   "O" gnus-uu-decode-save-view
2097   "b" gnus-uu-decode-binhex-view
2098   "B" gnus-uu-decode-binhex-view
2099   "p" gnus-uu-decode-postscript-view
2100   "P" gnus-uu-decode-postscript-and-save-view)
2101
2102 (defvar gnus-article-post-menu nil)
2103
2104 (defconst gnus-summary-menu-maxlen 20)
2105
2106 (defun gnus-summary-menu-split (menu)
2107   ;; If we have lots of elements, divide them into groups of 20
2108   ;; and make a pane (or submenu) for each one.
2109   (if (> (length menu) (/ (* gnus-summary-menu-maxlen 3) 2))
2110       (let ((menu menu) sublists next
2111             (i 1))
2112         (while menu
2113           ;; Pull off the next gnus-summary-menu-maxlen elements
2114           ;; and make them the next element of sublist.
2115           (setq next (nthcdr gnus-summary-menu-maxlen menu))
2116           (if next
2117               (setcdr (nthcdr (1- gnus-summary-menu-maxlen) menu)
2118                       nil))
2119           (setq sublists (cons (cons (format "%s ... %s" (aref (car menu) 0)
2120                                              (aref (car (last menu)) 0)) menu)
2121                                sublists))
2122           (setq i (1+ i))
2123           (setq menu next))
2124         (nreverse sublists))
2125     ;; Few elements--put them all in one pane.
2126     menu))
2127
2128 (defun gnus-summary-make-menu-bar ()
2129   (gnus-turn-off-edit-menu 'summary)
2130
2131   (unless (boundp 'gnus-summary-misc-menu)
2132
2133     (easy-menu-define
2134       gnus-summary-kill-menu gnus-summary-mode-map ""
2135       (cons
2136        "Score"
2137        (nconc
2138         (list
2139          ["Customize" gnus-score-customize t])
2140         (gnus-make-score-map 'increase)
2141         (gnus-make-score-map 'lower)
2142         '(("Mark"
2143            ["Kill below" gnus-summary-kill-below t]
2144            ["Mark above" gnus-summary-mark-above t]
2145            ["Tick above" gnus-summary-tick-above t]
2146            ["Clear above" gnus-summary-clear-above t])
2147           ["Current score" gnus-summary-current-score t]
2148           ["Set score" gnus-summary-set-score t]
2149           ["Switch current score file..." gnus-score-change-score-file t]
2150           ["Set mark below..." gnus-score-set-mark-below t]
2151           ["Set expunge below..." gnus-score-set-expunge-below t]
2152           ["Edit current score file" gnus-score-edit-current-scores t]
2153           ["Edit score file..." gnus-score-edit-file t]
2154           ["Trace score" gnus-score-find-trace t]
2155           ["Find words" gnus-score-find-favourite-words t]
2156           ["Rescore buffer" gnus-summary-rescore t]
2157           ["Increase score..." gnus-summary-increase-score t]
2158           ["Lower score..." gnus-summary-lower-score t]))))
2159
2160     ;; Define both the Article menu in the summary buffer and the
2161     ;; equivalent Commands menu in the article buffer here for
2162     ;; consistency.
2163     (let ((innards
2164            `(("Hide"
2165               ["All" gnus-article-hide t]
2166               ["Headers" gnus-article-hide-headers t]
2167               ["Signature" gnus-article-hide-signature t]
2168               ["Citation" gnus-article-hide-citation t]
2169               ["List identifiers" gnus-article-hide-list-identifiers t]
2170               ["Banner" gnus-article-strip-banner t]
2171               ["Boring headers" gnus-article-hide-boring-headers t])
2172              ("Highlight"
2173               ["All" gnus-article-highlight t]
2174               ["Headers" gnus-article-highlight-headers t]
2175               ["Signature" gnus-article-highlight-signature t]
2176               ["Citation" gnus-article-highlight-citation t])
2177              ("MIME"
2178               ["Words" gnus-article-decode-mime-words t]
2179               ["Charset" gnus-article-decode-charset t]
2180               ["QP" gnus-article-de-quoted-unreadable t]
2181               ["Base64" gnus-article-de-base64-unreadable t]
2182               ["View MIME buttons" gnus-summary-display-buttonized t]
2183               ["View all" gnus-mime-view-all-parts t]
2184               ["Verify and Decrypt" gnus-summary-force-verify-and-decrypt t]
2185               ["Encrypt body" gnus-article-encrypt-body
2186                :active (not (gnus-group-read-only-p))
2187                ,@(if (featurep 'xemacs) nil
2188                    '(:help "Encrypt the message body on disk"))]
2189               ["Extract all parts..." gnus-summary-save-parts t]
2190               ("Multipart"
2191                ["Repair multipart" gnus-summary-repair-multipart t]
2192                ["Pipe part..." gnus-article-pipe-part t]
2193                ["Inline part" gnus-article-inline-part t]
2194                ["Encrypt body" gnus-article-encrypt-body
2195                 :active (not (gnus-group-read-only-p))
2196                ,@(if (featurep 'xemacs) nil
2197                    '(:help "Encrypt the message body on disk"))]
2198                ["View part externally" gnus-article-view-part-externally t]
2199                ["View part with charset..." gnus-article-view-part-as-charset t]
2200                ["Copy part" gnus-article-copy-part t]
2201                ["Save part..." gnus-article-save-part t]
2202                ["View part" gnus-article-view-part t]))
2203              ("Date"
2204               ["Local" gnus-article-date-local t]
2205               ["ISO8601" gnus-article-date-iso8601 t]
2206               ["UT" gnus-article-date-ut t]
2207               ["Original" gnus-article-date-original t]
2208               ["Lapsed" gnus-article-date-lapsed t]
2209               ["User-defined" gnus-article-date-user t])
2210              ("Display"
2211               ["Remove images" gnus-article-remove-images t]
2212               ["Toggle smiley" gnus-treat-smiley t]
2213               ["Show X-Face" gnus-article-display-x-face t]
2214               ["Show picons in From" gnus-treat-from-picon t]
2215               ["Show picons in mail headers" gnus-treat-mail-picon t]
2216               ["Show picons in news headers" gnus-treat-newsgroups-picon t]
2217               ("View as different encoding"
2218                ,@(gnus-summary-menu-split
2219                   (mapcar
2220                    (lambda (cs)
2221                      ;; Since easymenu under Emacs doesn't allow
2222                      ;; lambda forms for menu commands, we should
2223                      ;; provide intern'ed function symbols.
2224                      (let ((command (intern (format "\
2225 gnus-summary-show-article-from-menu-as-charset-%s" cs))))
2226                        (fset command
2227                              `(lambda ()
2228                                 (interactive)
2229                                 (let ((gnus-summary-show-article-charset-alist
2230                                        '((1 . ,cs))))
2231                                   (gnus-summary-show-article 1))))
2232                        `[,(symbol-name cs) ,command t]))
2233                    (sort (if (fboundp 'coding-system-list)
2234                              (coding-system-list)
2235                            (mapcar 'car mm-mime-mule-charset-alist))
2236                          'string<)))))
2237              ("Washing"
2238               ("Remove Blanks"
2239                ["Leading" gnus-article-strip-leading-blank-lines t]
2240                ["Multiple" gnus-article-strip-multiple-blank-lines t]
2241                ["Trailing" gnus-article-remove-trailing-blank-lines t]
2242                ["All of the above" gnus-article-strip-blank-lines t]
2243                ["All" gnus-article-strip-all-blank-lines t]
2244                ["Leading space" gnus-article-strip-leading-space t]
2245                ["Trailing space" gnus-article-strip-trailing-space t]
2246                ["Leading space in headers"
2247                 gnus-article-remove-leading-whitespace t])
2248               ["Overstrike" gnus-article-treat-overstrike t]
2249               ["Dumb quotes" gnus-article-treat-dumbquotes t]
2250               ["Emphasis" gnus-article-emphasize t]
2251               ["Word wrap" gnus-article-fill-cited-article t]
2252               ["Fill long lines" gnus-article-fill-long-lines t]
2253               ["Capitalize sentences" gnus-article-capitalize-sentences t]
2254               ["Remove CR" gnus-article-remove-cr t]
2255               ["Quoted-Printable" gnus-article-de-quoted-unreadable t]
2256               ["Base64" gnus-article-de-base64-unreadable t]
2257               ["Rot 13" gnus-summary-caesar-message
2258                ,@(if (featurep 'xemacs) '(t)
2259                    '(:help "\"Caesar rotate\" article by 13"))]
2260               ["Morse decode" gnus-summary-morse-message t]
2261               ["Unix pipe..." gnus-summary-pipe-message t]
2262               ["Add buttons" gnus-article-add-buttons t]
2263               ["Add buttons to head" gnus-article-add-buttons-to-head t]
2264               ["Stop page breaking" gnus-summary-stop-page-breaking t]
2265               ["Verbose header" gnus-summary-verbose-headers t]
2266               ["Toggle header" gnus-summary-toggle-header t]
2267               ["Unfold headers" gnus-article-treat-unfold-headers t]
2268               ["Fold newsgroups" gnus-article-treat-fold-newsgroups t]
2269               ["Html" gnus-article-wash-html t]
2270               ["Unsplit URLs" gnus-article-unsplit-urls t]
2271               ["Verify X-PGP-Sig" gnus-article-verify-x-pgp-sig t]
2272               ["Decode HZ" gnus-article-decode-HZ t]
2273               ("(Outlook) Deuglify"
2274                ["Unwrap lines" gnus-article-outlook-unwrap-lines t]
2275                ["Repair attribution" gnus-article-outlook-repair-attribution t]
2276                ["Rearrange citation" gnus-article-outlook-rearrange-citation t]
2277                ["Full (Outlook) deuglify"
2278                 gnus-article-outlook-deuglify-article t])
2279               )
2280              ("Output"
2281               ["Save in default format..." gnus-summary-save-article
2282                ,@(if (featurep 'xemacs) '(t)
2283                    '(:help "Save article using default method"))]
2284               ["Save in file..." gnus-summary-save-article-file
2285                ,@(if (featurep 'xemacs) '(t)
2286                    '(:help "Save article in file"))]
2287               ["Save in Unix mail format..." gnus-summary-save-article-mail t]
2288               ["Save in MH folder..." gnus-summary-save-article-folder t]
2289               ["Save in VM folder..." gnus-summary-save-article-vm t]
2290               ["Save in RMAIL mbox..." gnus-summary-save-article-rmail t]
2291               ["Save body in file..." gnus-summary-save-article-body-file t]
2292               ["Pipe through a filter..." gnus-summary-pipe-output t]
2293               ["Add to SOUP packet" gnus-soup-add-article t]
2294               ["Print with Muttprint..." gnus-summary-muttprint t]
2295               ["Print" gnus-summary-print-article
2296                ,@(if (featurep 'xemacs) '(t)
2297                    '(:help "Generate and print a PostScript image"))])
2298              ("Copy, move,... (Backend)"
2299               ,@(if (featurep 'xemacs) nil
2300                   '(:help "Copying, moving, expiring articles..."))
2301               ["Respool article..." gnus-summary-respool-article t]
2302               ["Move article..." gnus-summary-move-article
2303                (gnus-check-backend-function
2304                 'request-move-article gnus-newsgroup-name)]
2305               ["Copy article..." gnus-summary-copy-article t]
2306               ["Crosspost article..." gnus-summary-crosspost-article
2307                (gnus-check-backend-function
2308                 'request-replace-article gnus-newsgroup-name)]
2309               ["Import file..." gnus-summary-import-article
2310                (gnus-check-backend-function
2311                 'request-accept-article gnus-newsgroup-name)]
2312               ["Create article..." gnus-summary-create-article
2313                (gnus-check-backend-function
2314                 'request-accept-article gnus-newsgroup-name)]
2315               ["Check if posted" gnus-summary-article-posted-p t]
2316               ["Edit article" gnus-summary-edit-article
2317                (not (gnus-group-read-only-p))]
2318               ["Delete article" gnus-summary-delete-article
2319                (gnus-check-backend-function
2320                 'request-expire-articles gnus-newsgroup-name)]
2321               ["Query respool" gnus-summary-respool-query t]
2322               ["Trace respool" gnus-summary-respool-trace t]
2323               ["Delete expirable articles" gnus-summary-expire-articles-now
2324                (gnus-check-backend-function
2325                 'request-expire-articles gnus-newsgroup-name)])
2326              ("Extract"
2327               ["Uudecode" gnus-uu-decode-uu
2328                ,@(if (featurep 'xemacs) '(t)
2329                    '(:help "Decode uuencoded article(s)"))]
2330               ["Uudecode and save" gnus-uu-decode-uu-and-save t]
2331               ["Unshar" gnus-uu-decode-unshar t]
2332               ["Unshar and save" gnus-uu-decode-unshar-and-save t]
2333               ["Save" gnus-uu-decode-save t]
2334               ["Binhex" gnus-uu-decode-binhex t]
2335               ["Postscript" gnus-uu-decode-postscript t]
2336               ["All MIME parts" gnus-summary-save-parts t])
2337              ("Cache"
2338               ["Enter article" gnus-cache-enter-article t]
2339               ["Remove article" gnus-cache-remove-article t])
2340              ["Translate" gnus-article-babel t]
2341              ["Select article buffer" gnus-summary-select-article-buffer t]
2342              ["Enter digest buffer" gnus-summary-enter-digest-group t]
2343              ["Isearch article..." gnus-summary-isearch-article t]
2344              ["Beginning of the article" gnus-summary-beginning-of-article t]
2345              ["End of the article" gnus-summary-end-of-article t]
2346              ["Fetch parent of article" gnus-summary-refer-parent-article t]
2347              ["Fetch referenced articles" gnus-summary-refer-references t]
2348              ["Fetch current thread" gnus-summary-refer-thread t]
2349              ["Fetch article with id..." gnus-summary-refer-article t]
2350              ["Setup Mailing List Params" gnus-mailing-list-insinuate t]
2351              ["Redisplay" gnus-summary-show-article t]
2352              ["Raw article" gnus-summary-show-raw-article :keys "C-u g"])))
2353       (easy-menu-define
2354         gnus-summary-article-menu gnus-summary-mode-map ""
2355         (cons "Article" innards))
2356
2357       (if (not (keymapp gnus-summary-article-menu))
2358           (easy-menu-define
2359             gnus-article-commands-menu gnus-article-mode-map ""
2360             (cons "Commands" innards))
2361         ;; in Emacs, don't share menu.
2362         (setq gnus-article-commands-menu
2363               (copy-keymap gnus-summary-article-menu))
2364         (define-key gnus-article-mode-map [menu-bar commands]
2365           (cons "Commands" gnus-article-commands-menu))))
2366
2367     (easy-menu-define
2368       gnus-summary-thread-menu gnus-summary-mode-map ""
2369       '("Threads"
2370         ["Find all messages in thread" gnus-summary-refer-thread t]
2371         ["Toggle threading" gnus-summary-toggle-threads t]
2372         ["Hide threads" gnus-summary-hide-all-threads t]
2373         ["Show threads" gnus-summary-show-all-threads t]
2374         ["Hide thread" gnus-summary-hide-thread t]
2375         ["Show thread" gnus-summary-show-thread t]
2376         ["Go to next thread" gnus-summary-next-thread t]
2377         ["Go to previous thread" gnus-summary-prev-thread t]
2378         ["Go down thread" gnus-summary-down-thread t]
2379         ["Go up thread" gnus-summary-up-thread t]
2380         ["Top of thread" gnus-summary-top-thread t]
2381         ["Mark thread as read" gnus-summary-kill-thread t]
2382         ["Lower thread score" gnus-summary-lower-thread t]
2383         ["Raise thread score" gnus-summary-raise-thread t]
2384         ["Rethread current" gnus-summary-rethread-current t]))
2385
2386     (easy-menu-define
2387       gnus-summary-post-menu gnus-summary-mode-map ""
2388       `("Post"
2389         ["Send a message (mail or news)" gnus-summary-post-news
2390          ,@(if (featurep 'xemacs) '(t)
2391              '(:help "Compose a new message (mail or news)"))]
2392         ["Followup" gnus-summary-followup
2393          ,@(if (featurep 'xemacs) '(t)
2394              '(:help "Post followup to this article"))]
2395         ["Followup and yank" gnus-summary-followup-with-original
2396          ,@(if (featurep 'xemacs) '(t)
2397              '(:help "Post followup to this article, quoting its contents"))]
2398         ["Supersede article" gnus-summary-supersede-article t]
2399         ["Cancel article" gnus-summary-cancel-article
2400          ,@(if (featurep 'xemacs) '(t)
2401              '(:help "Cancel an article you posted"))]
2402         ["Reply" gnus-summary-reply t]
2403         ["Reply and yank" gnus-summary-reply-with-original t]
2404         ["Wide reply" gnus-summary-wide-reply t]
2405         ["Wide reply and yank" gnus-summary-wide-reply-with-original
2406          ,@(if (featurep 'xemacs) '(t)
2407              '(:help "Mail a reply, quoting this article"))]
2408         ["Very wide reply" gnus-summary-very-wide-reply t]
2409         ["Very wide reply and yank" gnus-summary-very-wide-reply-with-original
2410          ,@(if (featurep 'xemacs) '(t)
2411              '(:help "Mail a very wide reply, quoting this article"))]
2412         ["Mail forward" gnus-summary-mail-forward t]
2413         ["Post forward" gnus-summary-post-forward t]
2414         ["Digest and mail" gnus-uu-digest-mail-forward t]
2415         ["Digest and post" gnus-uu-digest-post-forward t]
2416         ["Resend message" gnus-summary-resend-message t]
2417         ["Resend message edit" gnus-summary-resend-message-edit t]
2418         ["Send bounced mail" gnus-summary-resend-bounced-mail t]
2419         ["Send a mail" gnus-summary-mail-other-window t]
2420         ["Create a local message" gnus-summary-news-other-window t]
2421         ["Uuencode and post" gnus-uu-post-news
2422          ,@(if (featurep 'xemacs) '(t)
2423              '(:help "Post a uuencoded article"))]
2424         ["Followup via news" gnus-summary-followup-to-mail t]
2425         ["Followup via news and yank"
2426          gnus-summary-followup-to-mail-with-original t]
2427         ;;("Draft"
2428         ;;["Send" gnus-summary-send-draft t]
2429         ;;["Send bounced" gnus-resend-bounced-mail t])
2430         ))
2431
2432     (cond
2433      ((not (keymapp gnus-summary-post-menu))
2434       (setq gnus-article-post-menu gnus-summary-post-menu))
2435      ((not gnus-article-post-menu)
2436       ;; Don't share post menu.
2437       (setq gnus-article-post-menu
2438             (copy-keymap gnus-summary-post-menu))))
2439     (define-key gnus-article-mode-map [menu-bar post]
2440       (cons "Post" gnus-article-post-menu))
2441
2442     (easy-menu-define
2443       gnus-summary-misc-menu gnus-summary-mode-map ""
2444       `("Gnus"
2445         ("Mark Read"
2446          ["Mark as read" gnus-summary-mark-as-read-forward t]
2447          ["Mark same subject and select"
2448           gnus-summary-kill-same-subject-and-select t]
2449          ["Mark same subject" gnus-summary-kill-same-subject t]
2450          ["Catchup" gnus-summary-catchup
2451           ,@(if (featurep 'xemacs) '(t)
2452               '(:help "Mark unread articles in this group as read"))]
2453          ["Catchup all" gnus-summary-catchup-all t]
2454          ["Catchup to here" gnus-summary-catchup-to-here t]
2455          ["Catchup from here" gnus-summary-catchup-from-here t]
2456          ["Catchup region" gnus-summary-mark-region-as-read
2457           (gnus-mark-active-p)]
2458          ["Mark excluded" gnus-summary-limit-mark-excluded-as-read t])
2459         ("Mark Various"
2460          ["Tick" gnus-summary-tick-article-forward t]
2461          ["Mark as dormant" gnus-summary-mark-as-dormant t]
2462          ["Remove marks" gnus-summary-clear-mark-forward t]
2463          ["Set expirable mark" gnus-summary-mark-as-expirable t]
2464          ["Set bookmark" gnus-summary-set-bookmark t]
2465          ["Remove bookmark" gnus-summary-remove-bookmark t])
2466         ("Limit to"
2467          ["Marks..." gnus-summary-limit-to-marks t]
2468          ["Subject..." gnus-summary-limit-to-subject t]
2469          ["Author..." gnus-summary-limit-to-author t]
2470          ["Age..." gnus-summary-limit-to-age t]
2471          ["Extra..." gnus-summary-limit-to-extra t]
2472          ["Score..." gnus-summary-limit-to-score t]
2473          ["Display Predicate" gnus-summary-limit-to-display-predicate t]
2474          ["Unread" gnus-summary-limit-to-unread t]
2475          ["Unseen" gnus-summary-limit-to-unseen t]
2476          ["Non-dormant" gnus-summary-limit-exclude-dormant t]
2477          ["Next or process marked articles" gnus-summary-limit-to-articles t]
2478          ["Pop limit" gnus-summary-pop-limit t]
2479          ["Show dormant" gnus-summary-limit-include-dormant t]
2480          ["Hide childless dormant"
2481           gnus-summary-limit-exclude-childless-dormant t]
2482          ;;["Hide thread" gnus-summary-limit-exclude-thread t]
2483          ["Hide marked" gnus-summary-limit-exclude-marks t]
2484          ["Show expunged" gnus-summary-limit-include-expunged t])
2485         ("Process Mark"
2486          ["Set mark" gnus-summary-mark-as-processable t]
2487          ["Remove mark" gnus-summary-unmark-as-processable t]
2488          ["Remove all marks" gnus-summary-unmark-all-processable t]
2489          ["Mark above" gnus-uu-mark-over t]
2490          ["Mark series" gnus-uu-mark-series t]
2491          ["Mark region" gnus-uu-mark-region (gnus-mark-active-p)]
2492          ["Unmark region" gnus-uu-unmark-region (gnus-mark-active-p)]
2493          ["Mark by regexp..." gnus-uu-mark-by-regexp t]
2494          ["Unmark by regexp..." gnus-uu-unmark-by-regexp t]
2495          ["Mark all" gnus-uu-mark-all t]
2496          ["Mark buffer" gnus-uu-mark-buffer t]
2497          ["Mark sparse" gnus-uu-mark-sparse t]
2498          ["Mark thread" gnus-uu-mark-thread t]
2499          ["Unmark thread" gnus-uu-unmark-thread t]
2500          ("Process Mark Sets"
2501           ["Kill" gnus-summary-kill-process-mark t]
2502           ["Yank" gnus-summary-yank-process-mark
2503            gnus-newsgroup-process-stack]
2504           ["Save" gnus-summary-save-process-mark t]
2505           ["Run command on marked..." gnus-summary-universal-argument t]))
2506         ("Scroll article"
2507          ["Page forward" gnus-summary-next-page
2508           ,@(if (featurep 'xemacs) '(t)
2509               '(:help "Show next page of article"))]
2510          ["Page backward" gnus-summary-prev-page
2511           ,@(if (featurep 'xemacs) '(t)
2512               '(:help "Show previous page of article"))]
2513          ["Line forward" gnus-summary-scroll-up t])
2514         ("Move"
2515          ["Next unread article" gnus-summary-next-unread-article t]
2516          ["Previous unread article" gnus-summary-prev-unread-article t]
2517          ["Next article" gnus-summary-next-article t]
2518          ["Previous article" gnus-summary-prev-article t]
2519          ["Next unread subject" gnus-summary-next-unread-subject t]
2520          ["Previous unread subject" gnus-summary-prev-unread-subject t]
2521          ["Next article same subject" gnus-summary-next-same-subject t]
2522          ["Previous article same subject" gnus-summary-prev-same-subject t]
2523          ["First unread article" gnus-summary-first-unread-article t]
2524          ["Best unread article" gnus-summary-best-unread-article t]
2525          ["Go to subject number..." gnus-summary-goto-subject t]
2526          ["Go to article number..." gnus-summary-goto-article t]
2527          ["Go to the last article" gnus-summary-goto-last-article t]
2528          ["Pop article off history" gnus-summary-pop-article t])
2529         ("Sort"
2530          ["Sort by number" gnus-summary-sort-by-number t]
2531          ["Sort by author" gnus-summary-sort-by-author t]
2532          ["Sort by subject" gnus-summary-sort-by-subject t]
2533          ["Sort by date" gnus-summary-sort-by-date t]
2534          ["Sort by score" gnus-summary-sort-by-score t]
2535          ["Sort by lines" gnus-summary-sort-by-lines t]
2536          ["Sort by characters" gnus-summary-sort-by-chars t]
2537          ["Randomize" gnus-summary-sort-by-random t]
2538          ["Original sort" gnus-summary-sort-by-original t])
2539         ("Help"
2540          ["Fetch group FAQ" gnus-summary-fetch-faq t]
2541          ["Describe group" gnus-summary-describe-group t]
2542          ["Fetch charter" gnus-group-fetch-charter
2543           ,@(if (featurep 'xemacs) nil
2544               '(:help "Display the charter of the current group"))]
2545          ["Fetch control message" gnus-group-fetch-control
2546           ,@(if (featurep 'xemacs) nil
2547               '(:help "Display the archived control message for the current group"))]
2548          ["Read manual" gnus-info-find-node t])
2549         ("Modes"
2550          ["Pick and read" gnus-pick-mode t]
2551          ["Binary" gnus-binary-mode t])
2552         ("Regeneration"
2553          ["Regenerate" gnus-summary-prepare t]
2554          ["Insert cached articles" gnus-summary-insert-cached-articles t]
2555          ["Insert dormant articles" gnus-summary-insert-dormant-articles t]
2556          ["Toggle threading" gnus-summary-toggle-threads t])
2557         ["See old articles" gnus-summary-insert-old-articles t]
2558         ["See new articles" gnus-summary-insert-new-articles t]
2559         ["Filter articles..." gnus-summary-execute-command t]
2560         ["Run command on articles..." gnus-summary-universal-argument t]
2561         ["Search articles forward..." gnus-summary-search-article-forward t]
2562         ["Search articles backward..." gnus-summary-search-article-backward t]
2563         ["Toggle line truncation" gnus-summary-toggle-truncation t]
2564         ["Expand window" gnus-summary-expand-window t]
2565         ["Expire expirable articles" gnus-summary-expire-articles
2566          (gnus-check-backend-function
2567           'request-expire-articles gnus-newsgroup-name)]
2568         ["Edit local kill file" gnus-summary-edit-local-kill t]
2569         ["Edit main kill file" gnus-summary-edit-global-kill t]
2570         ["Edit group parameters" gnus-summary-edit-parameters t]
2571         ["Customize group parameters" gnus-summary-customize-parameters t]
2572         ["Send a bug report" gnus-bug t]
2573         ("Exit"
2574          ["Catchup and exit" gnus-summary-catchup-and-exit
2575           ,@(if (featurep 'xemacs) '(t)
2576               '(:help "Mark unread articles in this group as read, then exit"))]
2577          ["Catchup all and exit" gnus-summary-catchup-all-and-exit t]
2578          ["Catchup and goto next" gnus-summary-catchup-and-goto-next-group t]
2579          ["Exit group" gnus-summary-exit
2580           ,@(if (featurep 'xemacs) '(t)
2581               '(:help "Exit current group, return to group selection mode"))]
2582          ["Exit group without updating" gnus-summary-exit-no-update t]
2583          ["Exit and goto next group" gnus-summary-next-group t]
2584          ["Exit and goto prev group" gnus-summary-prev-group t]
2585          ["Reselect group" gnus-summary-reselect-current-group t]
2586          ["Rescan group" gnus-summary-rescan-group t]
2587          ["Update dribble" gnus-summary-save-newsrc t])))
2588
2589     (gnus-run-hooks 'gnus-summary-menu-hook)))
2590
2591 (defvar gnus-summary-tool-bar-map nil)
2592
2593 ;; Note: The :set function in the `gnus-summary-tool-bar*' variables will only
2594 ;; affect _new_ message buffers.  We might add a function that walks thru all
2595 ;; summary-mode buffers and force the update.
2596 (defun gnus-summary-tool-bar-update (&optional symbol value)
2597   "Update summary mode toolbar.
2598 Setter function for custom variables."
2599   (setq-default gnus-summary-tool-bar-map nil)
2600   (when symbol
2601     ;; When used as ":set" function:
2602     (set-default symbol value))
2603   (when (gnus-buffer-live-p gnus-summary-buffer)
2604     (with-current-buffer gnus-summary-buffer
2605       (gnus-summary-make-tool-bar))))
2606
2607 (defcustom gnus-summary-tool-bar (if (eq gmm-tool-bar-style 'gnome)
2608                                      'gnus-summary-tool-bar-gnome
2609                                    'gnus-summary-tool-bar-retro)
2610   "Specifies the Gnus summary tool bar.
2611
2612 It can be either a list or a symbol refering to a list.  See
2613 `gmm-tool-bar-from-list' for the format of the list.  The
2614 default key map is `gnus-summary-mode-map'.
2615
2616 Pre-defined symbols include `gnus-summary-tool-bar-gnome' and
2617 `gnus-summary-tool-bar-retro'."
2618   :type '(choice (const :tag "GNOME style" gnus-summary-tool-bar-gnome)
2619                  (const :tag "Retro look"  gnus-summary-tool-bar-retro)
2620                  (repeat :tag "User defined list" gmm-tool-bar-item)
2621                  (symbol))
2622   :version "22.1" ;; Gnus 5.10.9
2623   :initialize 'custom-initialize-default
2624   :set 'gnus-summary-tool-bar-update
2625   :group 'gnus-summary)
2626
2627 (defcustom gnus-summary-tool-bar-gnome
2628   '((gnus-summary-post-news "mail/compose" nil)
2629     (gnus-summary-insert-new-articles "mail/inbox" nil
2630                                       :visible (or (not gnus-agent)
2631                                                    gnus-plugged))
2632     (gnus-summary-reply-with-original "mail/reply")
2633     (gnus-summary-reply "mail/reply" nil :visible nil)
2634     (gnus-summary-followup-with-original "mail/reply-all")
2635     (gnus-summary-followup "mail/reply-all" nil :visible nil)
2636     (gnus-summary-mail-forward "mail/forward")
2637     (gnus-summary-save-article "mail/save")
2638     (gnus-summary-search-article-forward "search" nil :visible nil)
2639     (gnus-summary-print-article "print")
2640     (gnus-summary-tick-article-forward "flag-followup" nil :visible nil)
2641     ;; Some new commands that may need more suitable icons:
2642     (gnus-summary-save-newsrc "save" nil :visible nil)
2643     ;; (gnus-summary-show-article "stock_message-display" nil :visible nil)
2644     (gnus-summary-prev-article "left-arrow")
2645     (gnus-summary-next-article "right-arrow")
2646     (gnus-summary-next-page "next-page")
2647     ;; (gnus-summary-enter-digest-group "right_arrow" nil :visible nil)
2648     ;;
2649     ;; Maybe some sort-by-... could be added:
2650     ;; (gnus-summary-sort-by-author "sort-a-z" nil :visible nil)
2651     ;; (gnus-summary-sort-by-date "sort-1-9" nil :visible nil)
2652     (gnus-summary-mark-as-expirable
2653      "delete" nil
2654      :visible (gnus-check-backend-function 'request-expire-articles
2655                                            gnus-newsgroup-name))
2656     (gnus-summary-mark-as-spam
2657      "mail/spam" t
2658      :visible (and (fboundp 'spam-group-ham-contents-p)
2659                    (spam-group-ham-contents-p gnus-newsgroup-name))
2660      :help "Mark as spam")
2661     (gnus-summary-mark-as-read-forward
2662      "mail/not-spam" nil
2663      :visible (and (fboundp 'spam-group-spam-contents-p)
2664                    (spam-group-spam-contents-p gnus-newsgroup-name)))
2665     ;;
2666     (gnus-summary-exit "exit")
2667     (gmm-customize-mode "preferences" t :help "Edit mode preferences")
2668     (gnus-info-find-node "help"))
2669   "List of functions for the summary tool bar (GNOME style).
2670
2671 See `gmm-tool-bar-from-list' for the format of the list."
2672   :type '(repeat gmm-tool-bar-item)
2673   :version "22.1" ;; Gnus 5.10.9
2674   :initialize 'custom-initialize-default
2675   :set 'gnus-summary-tool-bar-update
2676   :group 'gnus-summary)
2677
2678 (defcustom gnus-summary-tool-bar-retro
2679   '((gnus-summary-prev-unread-article "gnus/prev-ur")
2680     (gnus-summary-next-unread-article "gnus/next-ur")
2681     (gnus-summary-post-news "gnus/post")
2682     (gnus-summary-followup-with-original "gnus/fuwo")
2683     (gnus-summary-followup "gnus/followup")
2684     (gnus-summary-reply-with-original "gnus/reply-wo")
2685     (gnus-summary-reply "gnus/reply")
2686     (gnus-summary-caesar-message "gnus/rot13")
2687     (gnus-uu-decode-uu "gnus/uu-decode")
2688     (gnus-summary-save-article-file "gnus/save-aif")
2689     (gnus-summary-save-article "gnus/save-art")
2690     (gnus-uu-post-news "gnus/uu-post")
2691     (gnus-summary-catchup "gnus/catchup")
2692     (gnus-summary-catchup-and-exit "gnus/cu-exit")
2693     (gnus-summary-exit "gnus/exit-summ")
2694     ;; Some new command that may need more suitable icons:
2695     (gnus-summary-print-article "gnus/print" nil :visible nil)
2696     (gnus-summary-mark-as-expirable "gnus/close" nil :visible nil)
2697     (gnus-summary-save-newsrc "gnus/save" nil :visible nil)
2698     ;; (gnus-summary-enter-digest-group "gnus/right_arrow" nil :visible nil)
2699     (gnus-summary-search-article-forward "gnus/search" nil :visible nil)
2700     ;; (gnus-summary-insert-new-articles "gnus/paste" nil :visible nil)
2701     ;; (gnus-summary-toggle-threads "gnus/open" nil :visible nil)
2702     ;;
2703     (gnus-info-find-node "gnus/help" nil :visible nil))
2704   "List of functions for the summary tool bar (retro look).
2705
2706 See `gmm-tool-bar-from-list' for the format of the list."
2707   :type '(repeat gmm-tool-bar-item)
2708   :version "22.1" ;; Gnus 5.10.9
2709   :initialize 'custom-initialize-default
2710   :set 'gnus-summary-tool-bar-update
2711   :group 'gnus-summary)
2712
2713 (defcustom gnus-summary-tool-bar-zap-list t
2714   "List of icon items from the global tool bar.
2715 These items are not displayed in the Gnus summary mode tool bar.
2716
2717 See `gmm-tool-bar-from-list' for the format of the list."
2718   :type 'gmm-tool-bar-zap-list
2719   :version "22.1" ;; Gnus 5.10.9
2720   :initialize 'custom-initialize-default
2721   :set 'gnus-summary-tool-bar-update
2722   :group 'gnus-summary)
2723
2724 (defvar image-load-path)
2725
2726 (defun gnus-summary-make-tool-bar (&optional force)
2727   "Make a summary mode tool bar from `gnus-summary-tool-bar'.
2728 When FORCE, rebuild the tool bar."
2729   (when (and (not (featurep 'xemacs))
2730              (boundp 'tool-bar-mode)
2731              tool-bar-mode
2732              (or (not gnus-summary-tool-bar-map) force))
2733     (let* ((load-path
2734             (gmm-image-load-path-for-library "gnus"
2735                                              "mail/save.xpm"
2736                                              nil t))
2737            (image-load-path (cons (car load-path)
2738                                   (when (boundp 'image-load-path)
2739                                     image-load-path)))
2740            (map (gmm-tool-bar-from-list gnus-summary-tool-bar
2741                                         gnus-summary-tool-bar-zap-list
2742                                         'gnus-summary-mode-map)))
2743       (when map
2744         ;; Need to set `gnus-summary-tool-bar-map' because `gnus-article-mode'
2745         ;; uses it's value.
2746         (setq gnus-summary-tool-bar-map map))))
2747   (set (make-local-variable 'tool-bar-map) gnus-summary-tool-bar-map))
2748
2749 (defun gnus-score-set-default (var value)
2750   "A version of set that updates the GNU Emacs menu-bar."
2751   (set var value)
2752   ;; It is the message that forces the active status to be updated.
2753   (message ""))
2754
2755 (defun gnus-make-score-map (type)
2756   "Make a summary score map of type TYPE."
2757   (if t
2758       nil
2759     (let ((headers '(("author" "from" string)
2760                      ("subject" "subject" string)
2761                      ("article body" "body" string)
2762                      ("article head" "head" string)
2763                      ("xref" "xref" string)
2764                      ("extra header" "extra" string)
2765                      ("lines" "lines" number)
2766                      ("followups to author" "followup" string)))
2767           (types '((number ("less than" <)
2768                            ("greater than" >)
2769                            ("equal" =))
2770                    (string ("substring" s)
2771                            ("exact string" e)
2772                            ("fuzzy string" f)
2773                            ("regexp" r))))
2774           (perms '(("temporary" (current-time-string))
2775                    ("permanent" nil)
2776                    ("immediate" now)))
2777           header)
2778       (list
2779        (apply
2780         'nconc
2781         (list
2782          (if (eq type 'lower)
2783              "Lower score"
2784            "Increase score"))
2785         (let (outh)
2786           (while headers
2787             (setq header (car headers))
2788             (setq outh
2789                   (cons
2790                    (apply
2791                     'nconc
2792                     (list (car header))
2793                     (let ((ts (cdr (assoc (nth 2 header) types)))
2794                           outt)
2795                       (while ts
2796                         (setq outt
2797                               (cons
2798                                (apply
2799                                 'nconc
2800                                 (list (caar ts))
2801                                 (let ((ps perms)
2802                                       outp)
2803                                   (while ps
2804                                     (setq outp
2805                                           (cons
2806                                            (vector
2807                                             (caar ps)
2808                                             (list
2809                                              'gnus-summary-score-entry
2810                                              (nth 1 header)
2811                                              (if (or (string= (nth 1 header)
2812                                                               "head")
2813                                                      (string= (nth 1 header)
2814                                                               "body"))
2815                                                  ""
2816                                                (list 'gnus-summary-header
2817                                                      (nth 1 header)))
2818                                              (list 'quote (nth 1 (car ts)))
2819                                              (list 'gnus-score-delta-default
2820                                                    nil)
2821                                              (nth 1 (car ps))
2822                                              t)
2823                                             t)
2824                                            outp))
2825                                     (setq ps (cdr ps)))
2826                                   (list (nreverse outp))))
2827                                outt))
2828                         (setq ts (cdr ts)))
2829                       (list (nreverse outt))))
2830                    outh))
2831             (setq headers (cdr headers)))
2832           (list (nreverse outh))))))))
2833
2834 \f
2835
2836 (defun gnus-summary-mode (&optional group)
2837   "Major mode for reading articles.
2838
2839 All normal editing commands are switched off.
2840 \\<gnus-summary-mode-map>
2841 Each line in this buffer represents one article.  To read an
2842 article, you can, for instance, type `\\[gnus-summary-next-page]'.  To move forwards
2843 and backwards while displaying articles, type `\\[gnus-summary-next-unread-article]' and `\\[gnus-summary-prev-unread-article]',
2844 respectively.
2845
2846 You can also post articles and send mail from this buffer.  To
2847 follow up an article, type `\\[gnus-summary-followup]'.  To mail a reply to the author
2848 of an article, type `\\[gnus-summary-reply]'.
2849
2850 There are approx. one gazillion commands you can execute in this
2851 buffer; read the info pages for more information (`\\[gnus-info-find-node]').
2852
2853 The following commands are available:
2854
2855 \\{gnus-summary-mode-map}"
2856   (interactive)
2857   (kill-all-local-variables)
2858   (when (gnus-visual-p 'summary-menu 'menu)
2859     (gnus-summary-make-menu-bar)
2860     (gnus-summary-make-tool-bar))
2861   (gnus-summary-make-local-variables)
2862   (let ((gnus-summary-local-variables gnus-newsgroup-variables))
2863     (gnus-summary-make-local-variables))
2864   (gnus-make-thread-indent-array)
2865   (gnus-simplify-mode-line)
2866   (setq major-mode 'gnus-summary-mode)
2867   (setq mode-name "Summary")
2868   (make-local-variable 'minor-mode-alist)
2869   (use-local-map gnus-summary-mode-map)
2870   (buffer-disable-undo)
2871   (setq buffer-read-only t)             ;Disable modification
2872   (setq truncate-lines t)
2873   (setq selective-display t)
2874   (setq selective-display-ellipses t)   ;Display `...'
2875   (gnus-summary-set-display-table)
2876   (gnus-set-default-directory)
2877   (setq gnus-newsgroup-name group)
2878   (make-local-variable 'gnus-summary-line-format)
2879   (make-local-variable 'gnus-summary-line-format-spec)
2880   (make-local-variable 'gnus-summary-dummy-line-format)
2881   (make-local-variable 'gnus-summary-dummy-line-format-spec)
2882   (make-local-variable 'gnus-summary-mark-positions)
2883   (gnus-make-local-hook 'pre-command-hook)
2884   (add-hook 'pre-command-hook 'gnus-set-global-variables nil t)
2885   (gnus-run-mode-hooks 'gnus-summary-mode-hook)
2886   (turn-on-gnus-mailing-list-mode)
2887   (mm-enable-multibyte)
2888   (gnus-update-format-specifications nil 'summary 'summary-mode 'summary-dummy)
2889   (gnus-update-summary-mark-positions))
2890
2891 (defun gnus-summary-make-local-variables ()
2892   "Make all the local summary buffer variables."
2893   (let (global)
2894     (dolist (local gnus-summary-local-variables)
2895       (if (consp local)
2896           (progn
2897             (if (eq (cdr local) 'global)
2898                 ;; Copy the global value of the variable.
2899                 (setq global (symbol-value (car local)))
2900               ;; Use the value from the list.
2901               (setq global (eval (cdr local))))
2902             (set (make-local-variable (car local)) global))
2903         ;; Simple nil-valued local variable.
2904         (set (make-local-variable local) nil)))))
2905
2906 (defun gnus-summary-clear-local-variables ()
2907   (let ((locals gnus-summary-local-variables))
2908     (while locals
2909       (if (consp (car locals))
2910           (and (vectorp (caar locals))
2911                (set (caar locals) nil))
2912         (and (vectorp (car locals))
2913              (set (car locals) nil)))
2914       (setq locals (cdr locals)))))
2915
2916 ;; Summary data functions.
2917
2918 (defmacro gnus-data-number (data)
2919   `(car ,data))
2920
2921 (defmacro gnus-data-set-number (data number)
2922   `(setcar ,data ,number))
2923
2924 (defmacro gnus-data-mark (data)
2925   `(nth 1 ,data))
2926
2927 (defmacro gnus-data-set-mark (data mark)
2928   `(setcar (nthcdr 1 ,data) ,mark))
2929
2930 (defmacro gnus-data-pos (data)
2931   `(nth 2 ,data))
2932
2933 (defmacro gnus-data-set-pos (data pos)
2934   `(setcar (nthcdr 2 ,data) ,pos))
2935
2936 (defmacro gnus-data-header (data)
2937   `(nth 3 ,data))
2938
2939 (defmacro gnus-data-set-header (data header)
2940   `(setf (nth 3 ,data) ,header))
2941
2942 (defmacro gnus-data-level (data)
2943   `(nth 4 ,data))
2944
2945 (defmacro gnus-data-unread-p (data)
2946   `(= (nth 1 ,data) gnus-unread-mark))
2947
2948 (defmacro gnus-data-read-p (data)
2949   `(/= (nth 1 ,data) gnus-unread-mark))
2950
2951 (defmacro gnus-data-pseudo-p (data)
2952   `(consp (nth 3 ,data)))
2953
2954 (defmacro gnus-data-find (number)
2955   `(assq ,number gnus-newsgroup-data))
2956
2957 (defmacro gnus-data-find-list (number &optional data)
2958   `(let ((bdata ,(or data 'gnus-newsgroup-data)))
2959      (memq (assq ,number bdata)
2960            bdata)))
2961
2962 (defmacro gnus-data-make (number mark pos header level)
2963   `(list ,number ,mark ,pos ,header ,level))
2964
2965 (defun gnus-data-enter (after-article number mark pos header level offset)
2966   (let ((data (gnus-data-find-list after-article)))
2967     (unless data
2968       (error "No such article: %d" after-article))
2969     (setcdr data (cons (gnus-data-make number mark pos header level)
2970                        (cdr data)))
2971     (setq gnus-newsgroup-data-reverse nil)
2972     (gnus-data-update-list (cddr data) offset)))
2973
2974 (defun gnus-data-enter-list (after-article list &optional offset)
2975   (when list
2976     (let ((data (and after-article (gnus-data-find-list after-article)))
2977           (ilist list))
2978       (if (not (or data
2979                    after-article))
2980           (let ((odata gnus-newsgroup-data))
2981             (setq gnus-newsgroup-data (nconc list gnus-newsgroup-data))
2982             (when offset
2983               (gnus-data-update-list odata offset)))
2984       ;; Find the last element in the list to be spliced into the main
2985         ;; list.
2986         (while (cdr list)
2987           (setq list (cdr list)))
2988         (if (not data)
2989             (progn
2990               (setcdr list gnus-newsgroup-data)
2991               (setq gnus-newsgroup-data ilist)
2992               (when offset
2993                 (gnus-data-update-list (cdr list) offset)))
2994           (setcdr list (cdr data))
2995           (setcdr data ilist)
2996           (when offset
2997             (gnus-data-update-list (cdr list) offset))))
2998       (setq gnus-newsgroup-data-reverse nil))))
2999
3000 (defun gnus-data-remove (article &optional offset)
3001   (let ((data gnus-newsgroup-data))
3002     (if (= (gnus-data-number (car data)) article)
3003         (progn
3004           (setq gnus-newsgroup-data (cdr gnus-newsgroup-data)
3005                 gnus-newsgroup-data-reverse nil)
3006           (when offset
3007             (gnus-data-update-list gnus-newsgroup-data offset)))
3008       (while (cdr data)
3009         (when (= (gnus-data-number (cadr data)) article)
3010           (setcdr data (cddr data))
3011           (when offset
3012             (gnus-data-update-list (cdr data) offset))
3013           (setq data nil
3014                 gnus-newsgroup-data-reverse nil))
3015         (setq data (cdr data))))))
3016
3017 (defmacro gnus-data-list (backward)
3018   `(if ,backward
3019        (or gnus-newsgroup-data-reverse
3020            (setq gnus-newsgroup-data-reverse
3021                  (reverse gnus-newsgroup-data)))
3022      gnus-newsgroup-data))
3023
3024 (defun gnus-data-update-list (data offset)
3025   "Add OFFSET to the POS of all data entries in DATA."
3026   (setq gnus-newsgroup-data-reverse nil)
3027   (while data
3028     (setcar (nthcdr 2 (car data)) (+ offset (nth 2 (car data))))
3029     (setq data (cdr data))))
3030
3031 (defun gnus-summary-article-pseudo-p (article)
3032   "Say whether this article is a pseudo article or not."
3033   (not (vectorp (gnus-data-header (gnus-data-find article)))))
3034
3035 (defmacro gnus-summary-article-sparse-p (article)
3036   "Say whether this article is a sparse article or not."
3037   `(memq ,article gnus-newsgroup-sparse))
3038
3039 (defmacro gnus-summary-article-ancient-p (article)
3040   "Say whether this article is a sparse article or not."
3041   `(memq ,article gnus-newsgroup-ancient))
3042
3043 (defun gnus-article-parent-p (number)
3044   "Say whether this article is a parent or not."
3045   (let ((data (gnus-data-find-list number)))
3046     (and (cdr data)              ; There has to be an article after...
3047          (< (gnus-data-level (car data)) ; And it has to have a higher level.
3048             (gnus-data-level (nth 1 data))))))
3049
3050 (defun gnus-article-children (number)
3051   "Return a list of all children to NUMBER."
3052   (let* ((data (gnus-data-find-list number))
3053          (level (gnus-data-level (car data)))
3054          children)
3055     (setq data (cdr data))
3056     (while (and data
3057                 (= (gnus-data-level (car data)) (1+ level)))
3058       (push (gnus-data-number (car data)) children)
3059       (setq data (cdr data)))
3060     children))
3061
3062 (defmacro gnus-summary-skip-intangible ()
3063   "If the current article is intangible, then jump to a different article."
3064   '(let ((to (get-text-property (point) 'gnus-intangible)))
3065      (and to (gnus-summary-goto-subject to))))
3066
3067 (defmacro gnus-summary-article-intangible-p ()
3068   "Say whether this article is intangible or not."
3069   '(get-text-property (point) 'gnus-intangible))
3070
3071 (defun gnus-article-read-p (article)
3072   "Say whether ARTICLE is read or not."
3073   (not (or (memq article gnus-newsgroup-marked)
3074            (memq article gnus-newsgroup-spam-marked)
3075            (memq article gnus-newsgroup-unreads)
3076            (memq article gnus-newsgroup-unselected)
3077            (memq article gnus-newsgroup-dormant))))
3078
3079 ;; Some summary mode macros.
3080
3081 (defmacro gnus-summary-article-number ()
3082   "The article number of the article on the current line.
3083 If there isn't an article number here, then we return the current
3084 article number."
3085   '(progn
3086      (gnus-summary-skip-intangible)
3087      (or (get-text-property (point) 'gnus-number)
3088          (gnus-summary-last-subject))))
3089
3090 (defmacro gnus-summary-article-header (&optional number)
3091   "Return the header of article NUMBER."
3092   `(gnus-data-header (gnus-data-find
3093                       ,(or number '(gnus-summary-article-number)))))
3094
3095 (defmacro gnus-summary-thread-level (&optional number)
3096   "Return the level of thread that starts with article NUMBER."
3097   `(if (and (eq gnus-summary-make-false-root 'dummy)
3098             (get-text-property (point) 'gnus-intangible))
3099        0
3100      (gnus-data-level (gnus-data-find
3101                        ,(or number '(gnus-summary-article-number))))))
3102
3103 (defmacro gnus-summary-article-mark (&optional number)
3104   "Return the mark of article NUMBER."
3105   `(gnus-data-mark (gnus-data-find
3106                     ,(or number '(gnus-summary-article-number)))))
3107
3108 (defmacro gnus-summary-article-pos (&optional number)
3109   "Return the position of the line of article NUMBER."
3110   `(gnus-data-pos (gnus-data-find
3111                    ,(or number '(gnus-summary-article-number)))))
3112
3113 (defalias 'gnus-summary-subject-string 'gnus-summary-article-subject)
3114 (defmacro gnus-summary-article-subject (&optional number)
3115   "Return current subject string or nil if nothing."
3116   `(let ((headers
3117           ,(if number
3118                `(gnus-data-header (assq ,number gnus-newsgroup-data))
3119              '(gnus-data-header (assq (gnus-summary-article-number)
3120                                       gnus-newsgroup-data)))))
3121      (and headers
3122           (vectorp headers)
3123           (mail-header-subject headers))))
3124
3125 (defmacro gnus-summary-article-score (&optional number)
3126   "Return current article score."
3127   `(or (cdr (assq ,(or number '(gnus-summary-article-number))
3128                   gnus-newsgroup-scored))
3129        gnus-summary-default-score 0))
3130
3131 (defun gnus-summary-article-children (&optional number)
3132   "Return a list of article numbers that are children of article NUMBER."
3133   (let* ((data (gnus-data-find-list (or number (gnus-summary-article-number))))
3134          (level (gnus-data-level (car data)))
3135          l children)
3136     (while (and (setq data (cdr data))
3137                 (> (setq l (gnus-data-level (car data))) level))
3138       (and (= (1+ level) l)
3139            (push (gnus-data-number (car data))
3140                  children)))
3141     (nreverse children)))
3142
3143 (defun gnus-summary-article-parent (&optional number)
3144   "Return the article number of the parent of article NUMBER."
3145   (let* ((data (gnus-data-find-list (or number (gnus-summary-article-number))
3146                                     (gnus-data-list t)))
3147          (level (gnus-data-level (car data))))
3148     (if (zerop level)
3149         ()                              ; This is a root.
3150       ;; We search until we find an article with a level less than
3151       ;; this one.  That function has to be the parent.
3152       (while (and (setq data (cdr data))
3153                   (not (< (gnus-data-level (car data)) level))))
3154       (and data (gnus-data-number (car data))))))
3155
3156 (defun gnus-unread-mark-p (mark)
3157   "Say whether MARK is the unread mark."
3158   (= mark gnus-unread-mark))
3159
3160 (defun gnus-read-mark-p (mark)
3161   "Say whether MARK is one of the marks that mark as read.
3162 This is all marks except unread, ticked, dormant, and expirable."
3163   (not (or (= mark gnus-unread-mark)
3164            (= mark gnus-ticked-mark)
3165            (= mark gnus-spam-mark)
3166            (= mark gnus-dormant-mark)
3167            (= mark gnus-expirable-mark))))
3168
3169 (defmacro gnus-article-mark (number)
3170   "Return the MARK of article NUMBER.
3171 This macro should only be used when computing the mark the \"first\"
3172 time; i.e., when generating the summary lines.  After that,
3173 `gnus-summary-article-mark' should be used to examine the
3174 marks of articles."
3175   `(cond
3176     ((memq ,number gnus-newsgroup-unsendable) gnus-unsendable-mark)
3177     ((memq ,number gnus-newsgroup-downloadable) gnus-downloadable-mark)
3178     ((memq ,number gnus-newsgroup-unreads) gnus-unread-mark)
3179     ((memq ,number gnus-newsgroup-marked) gnus-ticked-mark)
3180     ((memq ,number gnus-newsgroup-spam-marked) gnus-spam-mark)
3181     ((memq ,number gnus-newsgroup-dormant) gnus-dormant-mark)
3182     ((memq ,number gnus-newsgroup-expirable) gnus-expirable-mark)
3183     (t (or (cdr (assq ,number gnus-newsgroup-reads))
3184            gnus-ancient-mark))))
3185
3186 ;; Saving hidden threads.
3187
3188 (defmacro gnus-save-hidden-threads (&rest forms)
3189   "Save hidden threads, eval FORMS, and restore the hidden threads."
3190   (let ((config (make-symbol "config")))
3191     `(let ((,config (gnus-hidden-threads-configuration)))
3192        (unwind-protect
3193            (save-excursion
3194              ,@forms)
3195          (gnus-restore-hidden-threads-configuration ,config)))))
3196 (put 'gnus-save-hidden-threads 'lisp-indent-function 0)
3197 (put 'gnus-save-hidden-threads 'edebug-form-spec '(body))
3198
3199 (defun gnus-data-compute-positions ()
3200   "Compute the positions of all articles."
3201   (setq gnus-newsgroup-data-reverse nil)
3202   (let ((data gnus-newsgroup-data))
3203     (save-excursion
3204       (gnus-save-hidden-threads
3205         (gnus-summary-show-all-threads)
3206         (goto-char (point-min))
3207         (while data
3208           (while (get-text-property (point) 'gnus-intangible)
3209             (forward-line 1))
3210           (gnus-data-set-pos (car data) (+ (point) 3))
3211           (setq data (cdr data))
3212           (forward-line 1))))))
3213
3214 (defun gnus-hidden-threads-configuration ()
3215   "Return the current hidden threads configuration."
3216   (save-excursion
3217     (let (config)
3218       (goto-char (point-min))
3219       (while (search-forward "\r" nil t)
3220         (push (1- (point)) config))
3221       config)))
3222
3223 (defun gnus-restore-hidden-threads-configuration (config)
3224   "Restore hidden threads configuration from CONFIG."
3225   (save-excursion
3226     (let (point buffer-read-only)
3227       (while (setq point (pop config))
3228         (when (and (< point (point-max))
3229                    (goto-char point)
3230                    (eq (char-after) ?\n))
3231           (subst-char-in-region point (1+ point) ?\n ?\r))))))
3232
3233 ;; Various summary mode internalish functions.
3234
3235 (defun gnus-mouse-pick-article (e)
3236   (interactive "e")
3237   (mouse-set-point e)
3238   (gnus-summary-next-page nil t))
3239
3240 (defun gnus-summary-set-display-table ()
3241   "Change the display table.
3242 Odd characters have a tendency to mess
3243 up nicely formatted displays - we make all possible glyphs
3244 display only a single character."
3245
3246   ;; We start from the standard display table, if any.
3247   (let ((table (or (copy-sequence standard-display-table)
3248                    (make-display-table)))
3249         (i 32))
3250     ;; Nix out all the control chars...
3251     (while (>= (setq i (1- i)) 0)
3252       (put-display-table i [??] table))
3253    ;; ... but not newline and cr, of course.  (cr is necessary for the
3254     ;; selective display).
3255     (put-display-table ?\n nil table)
3256     (put-display-table ?\r nil table)
3257     ;; We keep TAB as well.
3258     (put-display-table ?\t nil table)
3259     ;; We nix out any glyphs 127 through 255, or 127 through 159 in
3260     ;; Emacs 23 (unicode), that are not set already.
3261     (let ((i (if (ignore-errors (= (make-char 'latin-iso8859-1 160) 160))
3262                  160
3263                256)))
3264       (while (>= (setq i (1- i)) 127)
3265         ;; Only modify if the entry is nil.
3266         (unless (get-display-table i table)
3267           (put-display-table i [??] table))))
3268     (setq buffer-display-table table)))
3269
3270 (defun gnus-summary-set-article-display-arrow (pos)
3271   "Update the overlay arrow to point to line at position POS."
3272   (when (and gnus-summary-display-arrow
3273              (boundp 'overlay-arrow-position)
3274              (boundp 'overlay-arrow-string))
3275     (save-excursion
3276       (goto-char pos)
3277       (beginning-of-line)
3278       (unless overlay-arrow-position
3279         (setq overlay-arrow-position (make-marker)))
3280       (setq overlay-arrow-string "=>"
3281             overlay-arrow-position (set-marker overlay-arrow-position
3282                                                (point)
3283                                                (current-buffer))))))
3284
3285 (defun gnus-summary-setup-buffer (group)
3286   "Initialize summary buffer."
3287   (let ((buffer (gnus-summary-buffer-name group))
3288         (dead-name (concat "*Dead Summary "
3289                            (gnus-group-decoded-name group) "*")))
3290     ;; If a dead summary buffer exists, we kill it.
3291     (when (gnus-buffer-live-p dead-name)
3292       (gnus-kill-buffer dead-name))
3293     (if (get-buffer buffer)
3294         (progn
3295           (set-buffer buffer)
3296           (setq gnus-summary-buffer (current-buffer))
3297           (not gnus-newsgroup-prepared))
3298       ;; Fix by Sudish Joseph <joseph@cis.ohio-state.edu>
3299       (setq gnus-summary-buffer (set-buffer (gnus-get-buffer-create buffer)))
3300       (gnus-summary-mode group)
3301       (when gnus-carpal
3302         (gnus-carpal-setup-buffer 'summary))
3303       (unless gnus-single-article-buffer
3304         (make-local-variable 'gnus-article-buffer)
3305         (make-local-variable 'gnus-article-current)
3306         (make-local-variable 'gnus-original-article-buffer))
3307       (setq gnus-newsgroup-name group)
3308       ;; Set any local variables in the group parameters.
3309       (gnus-summary-set-local-parameters gnus-newsgroup-name)
3310       t)))
3311
3312 (defun gnus-set-global-variables ()
3313   "Set the global equivalents of the buffer-local variables.
3314 They are set to the latest values they had.  These reflect the summary
3315 buffer that was in action when the last article was fetched."
3316   (when (eq major-mode 'gnus-summary-mode)
3317     (setq gnus-summary-buffer (current-buffer))
3318     (let ((name gnus-newsgroup-name)
3319           (marked gnus-newsgroup-marked)
3320           (spam gnus-newsgroup-spam-marked)
3321           (unread gnus-newsgroup-unreads)
3322           (headers gnus-current-headers)
3323           (data gnus-newsgroup-data)
3324           (summary gnus-summary-buffer)
3325           (article-buffer gnus-article-buffer)
3326           (original gnus-original-article-buffer)
3327           (gac gnus-article-current)
3328           (reffed gnus-reffed-article-number)
3329           (score-file gnus-current-score-file)
3330           (default-charset gnus-newsgroup-charset)
3331           vlist)
3332       (let ((locals gnus-newsgroup-variables))
3333         (while locals
3334           (if (consp (car locals))
3335               (push (eval (caar locals)) vlist)
3336             (push (eval (car locals)) vlist))
3337           (setq locals (cdr locals)))
3338         (setq vlist (nreverse vlist)))
3339       (save-excursion
3340         (set-buffer gnus-group-buffer)
3341         (setq gnus-newsgroup-name name
3342               gnus-newsgroup-marked marked
3343               gnus-newsgroup-spam-marked spam
3344               gnus-newsgroup-unreads unread
3345               gnus-current-headers headers
3346               gnus-newsgroup-data data
3347               gnus-article-current gac
3348               gnus-summary-buffer summary
3349               gnus-article-buffer article-buffer
3350               gnus-original-article-buffer original
3351               gnus-reffed-article-number reffed
3352               gnus-current-score-file score-file
3353               gnus-newsgroup-charset default-charset)
3354         (let ((locals gnus-newsgroup-variables))
3355           (while locals
3356             (if (consp (car locals))
3357                 (set (caar locals) (pop vlist))
3358               (set (car locals) (pop vlist)))
3359             (setq locals (cdr locals))))
3360         ;; The article buffer also has local variables.
3361         (when (gnus-buffer-live-p gnus-article-buffer)
3362           (set-buffer gnus-article-buffer)
3363           (setq gnus-summary-buffer summary))))))
3364
3365 (defun gnus-summary-article-unread-p (article)
3366   "Say whether ARTICLE is unread or not."
3367   (memq article gnus-newsgroup-unreads))
3368
3369 (defun gnus-summary-first-article-p (&optional article)
3370   "Return whether ARTICLE is the first article in the buffer."
3371   (if (not (setq article (or article (gnus-summary-article-number))))
3372       nil
3373     (eq article (caar gnus-newsgroup-data))))
3374
3375 (defun gnus-summary-last-article-p (&optional article)
3376   "Return whether ARTICLE is the last article in the buffer."
3377   (if (not (setq article (or article (gnus-summary-article-number))))
3378       ;; All non-existent numbers are the last article.  :-)
3379       t
3380     (not (cdr (gnus-data-find-list article)))))
3381
3382 (defun gnus-make-thread-indent-array (&optional n)
3383   (when (or n
3384             (progn (setq n 200) nil)
3385             (null gnus-thread-indent-array)
3386             (/= gnus-thread-indent-level gnus-thread-indent-array-level))
3387     (setq gnus-thread-indent-array (make-vector (1+ n) "")
3388           gnus-thread-indent-array-level gnus-thread-indent-level)
3389     (while (>= n 0)
3390       (aset gnus-thread-indent-array n
3391             (make-string (* n gnus-thread-indent-level) ? ))
3392       (setq n (1- n)))))
3393
3394 (defun gnus-update-summary-mark-positions ()
3395   "Compute where the summary marks are to go."
3396   (save-excursion
3397     (when (gnus-buffer-exists-p gnus-summary-buffer)
3398       (set-buffer gnus-summary-buffer))
3399     (let ((spec gnus-summary-line-format-spec)
3400           pos)
3401       (save-excursion
3402         (gnus-set-work-buffer)
3403         (let ((gnus-tmp-unread ?Z)
3404               (gnus-replied-mark ?Z)
3405               (gnus-score-below-mark ?Z)
3406               (gnus-score-over-mark ?Z)
3407               (gnus-undownloaded-mark ?Z)
3408               (gnus-summary-line-format-spec spec)
3409               (gnus-newsgroup-downloadable '(0))
3410               (header [0 "" "" "05 Apr 2001 23:33:09 +0400" "" "" 0 0 "" nil])
3411               case-fold-search ignores)
3412           ;; Here, all marks are bound to Z.
3413           (gnus-summary-insert-line header
3414                                     0 nil t gnus-tmp-unread t nil "" nil 1)
3415           (goto-char (point-min))
3416           ;; Memorize the positions of the same characters as dummy marks.
3417           (while (re-search-forward "[A-D]" nil t)
3418             (push (point) ignores))
3419           (erase-buffer)
3420           ;; We use A-D as dummy marks in order to know column positions
3421           ;; where marks should be inserted.
3422           (setq gnus-tmp-unread ?A
3423                 gnus-replied-mark ?B
3424                 gnus-score-below-mark ?C
3425                 gnus-score-over-mark ?C
3426                 gnus-undownloaded-mark ?D)
3427           (gnus-summary-insert-line header
3428                                     0 nil t gnus-tmp-unread t nil "" nil 1)
3429           ;; Ignore characters which aren't dummy marks.
3430           (dolist (p ignores)
3431             (delete-region (goto-char (1- p)) p)
3432             (insert ?Z))
3433           (goto-char (point-min))
3434           (setq pos (list (cons 'unread
3435                                 (and (search-forward "A" nil t)
3436                                      (- (point) (point-min) 1)))))
3437           (goto-char (point-min))
3438           (push (cons 'replied (and (search-forward "B" nil t)
3439                                     (- (point) (point-min) 1)))
3440                 pos)
3441           (goto-char (point-min))
3442           (push (cons 'score (and (search-forward "C" nil t)
3443                                   (- (point) (point-min) 1)))
3444                 pos)